你的 .emacs 里有什么？

Question

我最近更换了几次计算机，并且在途中的某个地方我丢失了 .emacs。 我正在尝试再次构建它，但是当我这样做时，我想我会选择其他人使用的其他好的配置。

那么，如果您使用 Emacs，您的 .emacs 中有什么？

我的现在非常贫瘠，只包含：

1. 全局字体锁定模式！ (global-font-lock-mode 1)
2. 我个人对缩进、制表符和空格的偏好。
3. 使用 cperl 模式而不是 perl 模式。
4. 编译的快捷方式。

你觉得什么有用？

Answer 1

您可以在 我的网站< 上找到我的配置（在 html 和 tar 压缩包中） /a>. 它包含许多不同模式的设置

Answer 2

这个块对我来说是最重要的：

(setq locale-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-selection-coding-system 'utf-8)
(prefer-coding-system 'utf-8)

不过，我一直不清楚它们之间的区别。 货物崇拜，我猜...

Answer 3

我尝试让 .emacs 保持井井有条。 配置始终是一项正在进行的工作，但我开始对整体结构感到满意。

所有内容都位于 ~/.elisp 下，这是一个受版本控制的目录（我使用 git，如果感兴趣的话）。 ~/.emacs 只是指向 ~/.elisp/dotemacs ，它本身只是加载 ~/.elisp/cfg/init。 该文件又通过 require 导入各种配置文件。 这意味着配置文件需要表现得像模式：它们导入它们依赖的东西，并在文件末尾提供自己，例如(provide 'my-ibuffer-cfg)< /代码>。 我在配置中定义的所有标识符都添加了 my- 前缀。

我根据模式/主题/任务来组织配置，而不是根据它们的技术含义，例如，我没有有一个单独的配置文件，其中所有键绑定或面都是定义的。

我的 init.el 定义了以下钩子，以确保 Emacs 在保存时重新编译配置文件（编译后的 Elisp 加载速度要快得多，但我不想手动执行此步骤）：

;; byte compile config file if changed
(add-hook 'after-save-hook
          '(lambda ()
                   (when (string-match
                          (concat (expand-file-name "~/.elisp/cfg/") ".*\.el$")
                          buffer-file-name)
           (byte-compile-file buffer-file-name))))

这是目录结构对于 ~/.elisp：

~/.elisp/todo.org：组织模式文件，我在其中跟踪仍需要完成的事情（+愿望清单项目）。

~/.elisp/dotemacs：~/.emacs 的符号链接目标，加载 ~/.elisp/cfg/init。

~/.elisp/cfg：我自己的配置文件。

~/.elisp/modes：仅包含单个文件的模式。

~/.elisp/packages：带有 lisp、文档和可能的资源文件的复杂模式。

我使用 GNU Emacs，该版本并不真正支持软件包。 因此我手动组织它们，通常是这样的：
~/.elisp/packages/foobar-0.1.3 是包的根目录。 子目录 lisp 包含所有 lisp 文件，info 是文档所在的位置。 ~/.elisp/packages/foobar 是一个符号链接，指向当前使用的包版本，这样我在更新某些内容时就不需要更改配置文件。 对于某些软件包，我保留一个 ~/.elisp/packages/foobar.installation 文件，在其中记录有关安装过程的记录。 出于性能原因，我编译新安装的软件包中的所有 elisp 文件，默认情况下应该不是这种情况。

Answer 4

这是我自己的一些东西：

以 ISO 8601 格式插入日期：

(defun insertdate ()
  (interactive)
  (insert (format-time-string "%Y-%m-%d")))

(global-set-key [(f5)] 'insertdate)

对于 C++ 程序员，创建一个类骨架（类的名称将与文件名相同，不带扩展名）：

(defun createclass ()
  (interactive)
  (setq classname (file-name-sans-extension (file-name-nondirectory   buffer-file-name)))
  (insert 
"/**
  * " classname".h 
  *
  * Author: Your Mom
  * Modified: " (format-time-string "%Y-%m-%d") "
  * Licence: GNU GPL
  */
#ifndef "(upcase classname)"
#define "(upcase classname)"

class " classname "
{
  public:
    "classname"();
    ~"classname"();

  private:

};
#endif
"))

自动创建右括号：

(setq skeleton-pair t)
(setq skeleton-pair-on-word t)
(global-set-key (kbd "[") 'skeleton-pair-insert-maybe)
(global-set-key (kbd "(") 'skeleton-pair-insert-maybe)
(global-set-key (kbd "{") 'skeleton-pair-insert-maybe) 
(global-set-key (kbd "<") 'skeleton-pair-insert-maybe)

Answer 5

我使用 paredit 来实现简单的 (e)lisp 处理和 ido 模式迷你缓冲区完成。

Answer 6

这个问题很难回答，因为每个人使用 Emacs 的目的都非常不同。

此外，更好的做法可能是 KISS 你的 dotemacs。 由于简易定制界面得到了广泛支持在 Emacs 模式中，您应该将所有自定义存储在 custom-file 中（这可能是 dotemacs 中的单独位置），并且对于 dotemacs，只放入加载路径设置、包要求、挂钩和键绑定。 一旦你开始使用Emacs Starter Kit，一个完整有用的工具包许多设置也可能会从您的 dotemacs 中删除。

Answer 7

请参阅 EmacsWiki 的 DotEmacs 类别。 它提供了许多解决此问题的页面链接。

Answer 8

(put 'erase-buffer 'disabled nil)
(put 'downcase-region 'disabled nil)
(set-variable 'visible-bell t)
(set-variable 'tool-bar-mode nil)
(set-variable 'menu-bar-mode nil)

(setq load-path (cons (expand-file-name "/usr/share/doc/git-core/contrib/emacs") load-path))
 (require 'vc-git)
 (when (featurep 'vc-git) (add-to-list 'vc-handled-backends 'git))
 (require 'git)
 (autoload 'git-blame-mode "git-blame"
           "Minor mode for incremental blame for Git." t)

Answer 9

我使用 webjump 设置了一些方便的网页和搜索快捷方式

(require 'webjump)
(global-set-key [f2] 'webjump)
(setq webjump-sites
      (append '(
        ("Reddit Search" .
         [simple-query "www.reddit.com" "http://www.reddit.com/search?q=" ""])
        ("Google Image Search" .
         [simple-query "images.google.com" "images.google.com/images?hl=en&q=" ""])
        ("Flickr Search" .
         [simple-query "www.flickr.com" "flickr.com/search/?q=" ""])
        ("Astar algorithm" . 
         "http://www.heyes-jones.com/astar")
        )
          webjump-sample-sites))

博客文章介绍其工作原理

http://justinsboringpage.blogspot.com/2009/02/search-reddit-flickr-and-google-from.html

另外我推荐这些：

(setq visible-bell t) ; no beeping

(setq transient-mark-mode t) ; visually show region

(setq line-number-mode t) ; show line numbers

(setq global-font-lock-mode 1) ; everything should use fonts

(setq font-lock-maximum-decoration t)

我也摆脱一些多余的 GUI 东西

  (if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
  (if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
  (if (fboundp 'menu-bar-mode) (menu-bar-mode -1)))

Answer 10

一行修改加载路径
一行加载我的初始化库
一行加载我的 emacs 初始化文件

当然，“emacs 初始化文件”相当多，每个特定的东西一个，以确定的顺序加载。

Answer 11

emacs-starter-kit 作为基础，然后我添加了.. vimpulse.el 、whitespace.el 、yasnippet 、textmate.el 和 newsticker.el 。

在我的 ~/.emacs.d/$USERNAME.el (dbr.el) 文件中：

(add-to-list 'load-path (concat dotfiles-dir "/vendor/"))

;; Snippets
(add-to-list 'load-path "~/.emacs.d/vendor/yasnippet/")
(require 'yasnippet)

(yas/initialize)
(yas/load-directory "~/.emacs.d/vendor/yasnippet/snippets")

;; TextMate module
(require 'textmate)
(textmate-mode 'on)

;; Whitespace module
(require 'whitespace)
(add-hook 'ruby-mode-hook 'whitespace-mode)
(add-hook 'python-mode-hook 'whitespace-mode)

;; Misc
(flyspell-mode 'on)
(setq viper-mode t)
(require 'viper)
(require 'vimpulse)

;; IM
(eval-after-load 'rcirc '(require 'rcirc-color))
(setq rcirc-default-nick "_dbr")
(setq rcirc-default-user-name "_dbr")
(setq rcirc-default-user-full-name "_dbr")

(require 'jabber)

;;; Google Talk account
(custom-set-variables
 '(jabber-connection-type (quote ssl))
 '(jabber-network-server "talk.google.com")
 '(jabber-port 5223)
 '(jabber-server "mysite.tld")
 '(jabber-username "myusername"))

;; Theme
(color-theme-zenburn)

;; Key bindings
(global-set-key (kbd "M-z") 'undo)
(global-set-key (kbd "M-s") 'save-buffer)
(global-set-key (kbd "M-S-z") 'redo)

Answer 12

我是 emacs 新手，在我的 .emacs 文件中有

• 缩进配置
• 颜色主题
• php 模式、咖啡模式和 js2 模式
• ido 模式

Answer 13

FWIW，我的 .emacs 在这里：

http://svn.red-bean。 com/repos/kfogel/trunk/.emacs

Answer 14

很多东西： https://github.com/tavisrudd/emacs.d

el-get 使管理它和依赖项变得更加容易：https://github.com/tavisrudd/emacs.d/blob/master/dss-init-el -get.el

Answer 15

对于 Scala 程序员

;; Load the ensime lisp code... http://github.com/aemoncannon/ensime
(add-to-list 'load-path "ENSIME_ROOT/elisp/")
(require 'ensime)
;; This step causes the ensime-mode to be started whenever ;; scala-mode is started for a buffer. You may have to customize this step ;; if you're not using the standard scala mode.
(add-hook 'scala-mode-hook 'ensime-scala-mode-hook)
;; MINI HOWTO:  ;; Open .scala file. M-x ensime (once per project)

Answer 16

多年来，我的 emacs 配置已经变得相当大，并且那里有很多对我有用的东西，但如果我有两个函数，那可能就是这些函数。

定义 Cx UP 和 Cx DOWN 移动当前行或向下移动，将光标保持在正确的位置：

;Down/UP the current line
(global-set-key '[(control x) (up)] 'my-up-line)
(global-set-key '[(control x) (down)] 'my-down-line)
(defun my-down-line()
  (interactive)
  (let ((col (current-column)))
    (forward-line 1)
    (transpose-lines 1)
    (forward-line -1)
    (forward-char col)
    )
  )

(defun my-up-line()
  (interactive)
  (let ((col (current-column)))
    (transpose-lines 1)
    (forward-line -2)
    (forward-char col)
    )
  )

Answer 17

https://b7j0c.org/stuff/dotemacs.html

Answer 18

始终将我的配置保存在 svn http://my-trac.assembla 中。 com/ez-conf/browser/emacs.d

Answer 19

读完本文后，我认为最好有一个简单的站点来进行最佳的 .emacs 修改。 请随意在这里发帖并投票：

http://dotemacs.slinkset.com/

Answer 20

使用终极点文件网站。 在这里添加您的“.emacs”。 阅读其他人的“.emacs”。

Answer 21

我最喜欢的片段。 Emacs 的终极视觉效果：

;; real lisp hackers use the lambda character
;; courtesy of stefan monnier on c.l.l
(defun sm-lambda-mode-hook ()
  (font-lock-add-keywords
   nil `(("\\<lambda\\>"
   (0 (progn (compose-region (match-beginning 0) (match-end 0)
        ,(make-char 'greek-iso8859-7 107))
      nil))))))
(add-hook 'emacs-lisp-mode-hook 'sm-lambda-mode-hook)
(add-hook 'lisp-interactive-mode-hook 'sm-lamba-mode-hook)
(add-hook 'scheme-mode-hook 'sm-lambda-mode-hook)

所以你在编辑 lisp/scheme 时会看到以下内容：

(global-set-key "^Cr" '(λ () (interactive) (revert-buffer t t nil)))

Answer 22

我有这个将 yes 或 no 提示更改为 y 或 n 提示：

(fset 'yes-or-no-p 'y-or-n-p)

我有这些来启动 Emacs，无需我从 这个问题中得到了这么多“大张旗鼓”< /a>.

(setq inhibit-startup-echo-area-message t)
(setq inhibit-startup-message t)

Steve Yegge 的功能可重命名您正在编辑的文件及其相应的缓冲区：

(defun rename-file-and-buffer (new-name)
  "Renames both current buffer and file it's visiting to NEW-NAME."
  (interactive "sNew name: ")
  (let ((name (buffer-name))
 (filename (buffer-file-name)))
    (if (not filename)
 (message "Buffer '%s' is not visiting a file!" name)
      (if (get-buffer new-name)
   (message "A buffer named '%s' already exists!" new-name)
 (progn
   (rename-file name new-name 1)
   (rename-buffer new-name)
   (set-visited-file-name new-name)
   (set-buffer-modified-p nil))))))

Answer 23

事实证明非常有用的一件事是：在它变得太大之前，尝试将其拆分为多个文件来执行各种任务：我的 .emacs 只是设置我的加载路径并加载一堆文件 - 我已经获得了所有模式 - mode-configs.el 中的特定设置、keys.el 中的键绑定等

Answer 24

我的 .emacs 只有 127 行，这里是最有用的小片段：

;; keep backup files neatly out of the way in .~/
(setq backup-directory-alist '(("." . ".~")))

这使得我发现目录混乱的 *~ 文件进入一个特殊目录，在本例中是 .~

;; uniquify changes conflicting buffer names from file<2> etc
(require 'uniquify)
(setq uniquify-buffer-name-style 'reverse)
(setq uniquify-separator "/")
(setq uniquify-after-kill-buffer-p t) ; rename after killing uniquified
(setq uniquify-ignore-buffers-re "^\\*") ; don't muck with special buffers

这设置了 uniquify ，它改变了那些丑陋的文件< 2> 当多个文件具有相同的名称时，您会得到缓冲区名称，并尽可能多地使用文件的整个路径，将其转换为更整洁、明确的名称。

就这样……剩下的都是相当标准的东西，我相信每个人都知道。

Answer 25

这不是整个工具包和 kaboodle，但它是我收集的一些更有用的片段：

(defadvice show-paren-function (after show-matching-paren-offscreen
                                      activate)
  "If the matching paren is offscreen, show the matching line in the                               
echo area. Has no effect if the character before point is not of                                   
the syntax class ')'."
  (interactive)
  (let ((matching-text nil))
    ;; Only call `blink-matching-open' if the character before point                               
    ;; is a close parentheses type character. Otherwise, there's not                               
    ;; really any point, and `blink-matching-open' would just echo                                 
    ;; "Mismatched parentheses", which gets really annoying.                                       
    (if (char-equal (char-syntax (char-before (point))) ?\))
        (setq matching-text (blink-matching-open)))
    (if (not (null matching-text))
        (message matching-text))))

;;;;;;;;;;;;;;;
;; UTF-8
;;;;;;;;;;;;;;;;;;;;
;; set up unicode
(prefer-coding-system       'utf-8)
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
;; This from a japanese individual.  I hope it works.
(setq default-buffer-file-coding-system 'utf-8)
;; From Emacs wiki
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
;; Wwindows clipboard is UTF-16LE 
(set-clipboard-coding-system 'utf-16le-dos)


(defun jonnay-timestamp ()
  "Spit out the current time"
  (interactive)
  (insert (format-time-string "%Y-%m-%d")))

(defun jonnay-sign ()
  "spit out my name, email and the current time"
  (interactive)
  (insert "-- Jonathan Arkell ([email protected])")
  (jonnay-timestamp))


;; Cygwin requires some seriosu setting up to work the way i likes it
(message "Setting up Cygwin...")
(let* ((cygwin-root "c:")
       (cygwin-bin (concat cygwin-root "/bin"))
       (gambit-bin "/usr/local/Gambit-C/4.0b22/bin/")
       (snow-bin "/usr/local/snow/current/bin")
       (mysql-bin "/wamp/bin/mysql/mysql5.0.51a/bin/"))
   (setenv "PATH" (concat cygwin-bin ";" ;
                          snow-bin ";" 
                          gambit-bin ";"
                          mysql-bin ";"
                          ".;")  
           (getenv "PATH"))
   (setq exec-path (cons cygwin-bin exec-path)))

(setq shell-file-name "bash")
(setq explicit-shell-file-name "bash")

(require 'cygwin-mount)
(cygwin-mount-activate)
(message "Setting up Cygwin...Done")


; Completion isn't perfect, but close
(defun my-shell-setup ()
   "For Cygwin bash under Emacs 20+"
   (setq comint-scroll-show-maximum-output 'this)
   (setq comint-completion-addsuffix t)
   (setq comint-eol-on-send t)
   (setq w32-quote-process-args ?\")
   (make-variable-buffer-local 'comint-completion-addsuffix))

(setq shell-mode-hook 'my-shell-setup)
(add-hook 'emacs-startup-hook 'cygwin-shell)


; Change how home key works
(global-set-key [home] 'beginning-or-indentation)
(substitute-key-definition 'beginning-of-line 'beginning-or-indentation global-map)


(defun yank-and-down ()
  "Yank the text and go down a line."
  (interactive)
  (yank)
  (exchange-point-and-mark)
  (next-line))

(defun kill-syntax (&optional arg)
  "Kill ARG sets of syntax characters after point."
  (interactive "p")
  (let ((arg (or arg 1))
    (inc (if (and arg (< arg 0)) 1 -1))
    (opoint (point)))
    (while (not (= arg 0))
      (if (> arg 0)
      (skip-syntax-forward (string (char-syntax (char-after))))
    (skip-syntax-backward (string (char-syntax (char-before)))))
      (setq arg (+ arg inc)))
    (kill-region opoint (point))))

(defun kill-syntax-backward (&optional arg)
  "Kill ARG sets of syntax characters preceding point."
  (interactive "p")
  (kill-syntax (- 0 (or arg 1))))

(global-set-key [(control shift y)] 'yank-and-down)
(global-set-key [(shift backspace)] 'kill-syntax-backward)
(global-set-key [(shift delete)] 'kill-syntax)


(defun insert-file-name (arg filename)
  "Insert name of file FILENAME into buffer after point.
  Set mark after the inserted text.

  Prefixed with \\[universal-argument], expand the file name to
  its fully canocalized path.

  See `expand-file-name'."
  ;; Based on insert-file in Emacs -- ashawley 2008-09-26
  (interactive "*P\nfInsert file name: ")
  (if arg
      (insert (expand-file-name filename))
      (insert filename)))

(defun kill-ring-save-filename ()
  "Copy the current filename to the kill ring"
  (interactive)
  (kill-new (buffer-file-name)))

(defun insert-file-name ()
  "Insert the name of the current file."
  (interactive)
  (insert (buffer-file-name)))

(defun insert-directory-name ()
  "Insert the name of the current directory"
  (interactive)
  (insert (file-name-directory (buffer-file-name))))

(defun jonnay-toggle-debug ()
  "Toggle debugging by toggling icicles, and debug on error"
  (interactive)
  (toggle-debug-on-error)
  (icicle-mode))


(defvar programming-modes
  '(emacs-lisp-mode scheme-mode lisp-mode c-mode c++-mode 
    objc-mode latex-mode plain-tex-mode java-mode
    php-mode css-mode js2-mode nxml-mode nxhtml-mode)
  "List of modes related to programming")

; Text-mate style indenting
(defadvice yank (after indent-region activate)
  (if (member major-mode programming-modes)
      (indent-region (region-beginning) (region-end) nil)))

Answer 26

我已经提到了很多其他内容，但我认为这些是绝对必要的：

(transient-mark-mode 1) ; makes the region visible
(line-number-mode 1)    ; makes the line number show up
(column-number-mode 1)  ; makes the column number show up

Answer 27

您可以在这里查看： http://www.dotemacs.de/

我的 .emacs 很长也把它放在这里，这样会使答案不太可读。 不管怎样，如果你愿意的话我可以寄给你。

另外，我建议您阅读以下内容：http://steve.yegge.googlepages .com/my-dot-emacs-file

Answer 28

以下是我所依赖的一些关键映射：

(global-set-key [(control \,)] 'goto-line)
(global-set-key [(control \.)] 'call-last-kbd-macro)
(global-set-key [(control tab)] 'indent-region)
(global-set-key [(control j)] 'join-line)
(global-set-key [f1] 'man)
(global-set-key [f2] 'igrep-find)
(global-set-key [f3] 'isearch-forward)
(global-set-key [f4] 'next-error)
(global-set-key [f5] 'gdb)
(global-set-key [f6] 'compile)
(global-set-key [f7] 'recompile)
(global-set-key [f8] 'shell)
(global-set-key [f9] 'find-next-matching-tag)
(global-set-key [f11] 'list-buffers)
(global-set-key [f12] 'shell)

一些其他杂项，主要用于 C++ 开发：

;; Use C++ mode for .h files (instead of plain-old C mode)
(setq auto-mode-alist (cons '("\\.h$" . c++-mode) auto-mode-alist))

;; Use python-mode for SCons files
(setq auto-mode-alist (cons '("SConstruct" . python-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("SConscript" . python-mode) auto-mode-alist))

;; Parse CppUnit failure reports in compilation-mode
(require 'compile)
(setq compilation-error-regexp-alist
      (cons '("\\(!!!FAILURES!!!\nTest Results:\nRun:[^\n]*\n\n\n\\)?\\([0-9]+\\)) test: \\([^(]+\\)(F) line: \\([0-9]+\\) \\([^ \n]+\\)" 5 4)
            compilation-error-regexp-alist))

;; Enable cmake-mode from http://www.cmake.org/Wiki/CMake_Emacs_mode_patch_for_comment_formatting
(require 'cmake-mode)
(setq auto-mode-alist
      (append '(("CMakeLists\\.txt\\'" . cmake-mode)
                ("\\.cmake\\'" . cmake-mode))
              auto-mode-alist))

;; "M-x reload-buffer" will revert-buffer without requiring confirmation
(defun reload-buffer ()
  "revert-buffer without confirmation"
  (interactive)
  (revert-buffer t t))

Answer 29

刷新您在 Emacs 中编辑的网页

(defun moz-connect()
  (interactive)
  (make-comint "moz-buffer" (cons "127.0.0.1" "4242"))
  (global-set-key "\C-x\C-g" '(lambda () 
                (interactive)
                (save-buffer)
                (comint-send-string "*moz-buffer*" "this.BrowserReload()\n"))))

与 http://hyperstruct.net/projects/mozlab< 结合使用/a>