Emacs設(shè)置

EnderViking

說明
應(yīng)朋友要求，共享一下我的Emacs配置文件。稍微整理了一下，還是有點(diǎn)亂，大家將就看吧。
我的配置文件參考了水木社區(qū)BBS和其他網(wǎng)站很多人的文章以及配置文件，由于是好多年來一點(diǎn)一點(diǎn)攢起來的，因此無法一一列出，請?jiān)�諒�?
從頭開始一段一段貼吧。
基本環(huán)境
配色方案設(shè)定
幾乎一天到晚面對著emacs，為了防止眼睛瞎掉，所以選個(gè)比較不刺眼的配色方案。
(require 'color-theme)
;;(color-theme-initialize)
;;(color-theme-tty-dark)
(color-theme-comidia)
;;(color-theme-dark-laptop)
雜七雜八的設(shè)定  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
'(browse-url-mozilla-program "firefox")
'(case-fold-search-t nil)
'(column-number-mode t)
'(compilation-scroll-output t)
'(compile-command "make")
;; '(current-language-environment "Chinese-GB")
'(display-time-mode t)
'(ecb-options-version "2.32")
'(global-font-lock-mode t)
'(show-paren-mode t)
'(tab-width 4)
'(tool-bar-mode nil)
'(transient-mark-mode t))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
)
字體配置
注意，這里并不是字體配置的全部內(nèi)容，還有一部分在.Xdefaults里。
;;字體設(shè)定
(set-fontset-font
   "fontset-default" nil
    "-*-simsun-*-*-*-*-18-*-*-*-*-*-gb2312.1980-*" nil 'prepend)
(set-fontset-font
   "fontset-courier" 'kana
    "-*-simsun-*-*-*-*-18-*-*-*-*-*-gbk-0" nil 'prepend)
(set-fontset-font
   "fontset-courier" 'han
    "-*-simsun-*-*-*-*-18-*-*-*-*-*-gbk-0" nil 'prepend)
(set-fontset-font
   "fontset-courier" 'cjk-misc
    "-*-simsun-*-*-*-*-18-*-*-*-*-*-gbk-0" nil 'prepend)
語言環(huán)境設(shè)定(set-language-environment 'Chinese-GBK)
(set-selection-coding-system 'chinese-gbk)
(set-terminal-coding-system 'chinese-gbk)
(set-keyboard-coding-system 'chinese-gbk)
(set-language-environment 'Chinese-GBK)
(setq locale-coding-system 'chinese-gbk)
(setq current-language-environment "Chinese-GBK")
(set-selection-coding-system 'chinese-gbk)
(prefer-coding-system 'chinese-gbk)
(setq file-coding-system-alist
    (list file-coding-system-alist
        `(".*" chinese-gbk)))
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
全局的快捷鍵;;;;以下是我的快捷鍵設(shè)置
;; ----------------------- Short Cut -------------------------
(global-set-key [(meta g)] 'goto-line)
;;(global-set-key [(meta ?/)] 'hippie-expand)
;; F12 t 從當(dāng)前緩沖區(qū)建立任務(wù)
(global-set-key (kbd " t") 'planner-create-task-from-buffer)
;; F12 g 切換到當(dāng)日的任務(wù)
;;(global-set-key (kbd " g") 'planner-goto-today)
(global-set-key (kbd " g") 'planner-goto-today)
(global-set-key (kbd " p") 'plan)
;; F12 r 添加當(dāng)前備忘錄
(global-set-key (kbd " r") 'remember)
;; F12 c 切換到日歷
(global-set-key (kbd " c") 'calendar)
;;;F2：進(jìn)入wiki-mode模式
(global-set-key [(f2)] 'emacs-wiki-find-file)
;;;F3：切換到dired模式
(global-set-key [(f3)] 'dired)
;;;F4：切換到shell模式
(global-set-key [(f4)] 'ansi-term)
;;;F5：打開speedbar
(global-set-key [(f5)] 'speedbar)
;;;;F7：調(diào)用compile
(global-set-key (kbd "") 'compile)
;;;Alt+s : 讓speedbar獲得焦點(diǎn)
(global-set-key (kbd "M-s") 'speedbar-get-focus)
;;;F9：列舉我的書簽
(global-set-key (kbd "") 'list-bookmarks)
;;;F10：添加當(dāng)前頁到書簽中
(global-set-key [(f10)] 'bookmark-set)
;;;F12 u 更新當(dāng)前版本
(global-set-key (kbd " u") 'vc-next-action)
;;------------------------End of Short Cut ---------------------
CEDET的配置
cedet的全稱是Collection of Emacs Development Environment Tools
;;;;模板文件目錄
(setq template-home-directory "~/lib/templates")
;;;;導(dǎo)入CEDET的各個(gè)插件
;; ---------------------------------------
;; Load CEDET
(load-file "~/lib/emacs-lisp/cedet-1.0pre3/common/cedet.el")
;; Enabling various SEMANTIC minor modes.  See semantic/INSTALL for more ideas.
;; Select one of the following
(semantic-load-enable-code-helpers)
;; (semantic-load-enable-guady-code-helpers)
;; (semantic-load-enable-excessive-code-helpers)
;; Enable this if you develop in semantic, or develop grammars
;; (semantic-load-enable-semantic-debugging-helpers)
;; ---------------------------------------
;;;; 配置 Emacs Code Browser
(add-to-list 'load-path
             "/home/caole/lib/emacs-lisp/ecb-2.32")
(require 'ecb)
;;;;配置Sementic的檢索范圍
(setq semanticdb-project-roots
          (list
        (expand-file-name "/")))
又是一些雜七雜八的配置;;;; 顯示行號：
(setq column-number-mode t)
(setq line-number-mode t)
;;;; 顯示時(shí)間
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
(display-time)
;;;; 關(guān)閉啟動(dòng)畫面
(setq inhibit-startup-message t)
;;;;設(shè)置大的kill ring
(setq kill-ring-max 150)
備份策略;;;;備份策略
(setq backup-directory-alist '(("" . "~/backup/emacs/backup")))
(setq-default make-backup-file t)
(setq make-backup-file t)
(setq make-backup-files t)
(setq version-control t)
(setq kept-old-versions 2)
(setq kept-new-versions 10)
(setq delete-old-versions t)
自動(dòng)補(bǔ)齊;;;;自動(dòng)補(bǔ)齊策略
(defun my-indent-or-complete ()
   (interactive)
   (if (looking-at "\\>")
          (hippie-expand nil)
          (indent-for-tab-command))
)
(global-set-key [(control tab)] 'my-indent-or-complete)
(autoload 'senator-try-expand-semantic "senator")
(setq hippie-expand-try-functions-list
          '(
                senator-try-expand-semantic
                try-expand-dabbrev
                try-expand-dabbrev-visible
                try-expand-dabbrev-all-buffers
                try-expand-dabbrev-from-kill
                try-expand-list
                try-expand-list-all-buffers
                try-expand-line
        try-expand-line-all-buffers
        try-complete-file-name-partially
        try-complete-file-name
        try-expand-whole-kill
        )
)
程序設(shè)計(jì)的配置;;;; CC-mode配置  http://cc-mode.sourceforge.net/
(require 'cc-mode)
(c-set-offset 'inline-open 0)
(c-set-offset 'friend '-)
(c-set-offset 'substatement-open 0)
;;;;根據(jù)后綴判斷所用的mode
;;;;注意：我在這里把.h關(guān)聯(lián)到了c++-mode
(setq auto-mode-alist
          (append '(("\\.h$" . c++-mode)) auto-mode-alist))
;;;;我的C/C++語言編輯策略
(defun my-c-mode-common-hook()
  (setq tab-width 4 indent-tabs-mode nil)
  ;;; hungry-delete and auto-newline
  (c-toggle-auto-hungry-state 1)
  ;;按鍵定義
  (define-key c-mode-base-map [(control \`)] 'hs-toggle-hiding)
  (define-key c-mode-base-map [(return)] 'newline-and-indent)
  (define-key c-mode-base-map [(f7)] 'compile)
  (define-key c-mode-base-map [(f8)] 'ff-get-other-file)
  (define-key c-mode-base-map [(meta \`)] 'c-indent-command)
;;  (define-key c-mode-base-map [(tab)] 'hippie-expand)
  (define-key c-mode-base-map [(tab)] 'my-indent-or-complete)
  (define-key c-mode-base-map [(meta ?/)] 'semantic-ia-complete-symbol-menu)
  ;;預(yù)處理設(shè)置
  (setq c-macro-shrink-window-flag t)
  (setq c-macro-preprocessor "cpp")
  (setq c-macro-cppflags " ")
  (setq c-macro-prompt-flag t)
  (setq hs-minor-mode t)
  (setq abbrev-mode t)
  (setq tab-width 4 indent-tabs-mode nil)
)
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
;;;;我的C++語言編輯策略
(defun my-c++-mode-hook()
  (setq tab-width 4 indent-tabs-mode nil)
  (c-set-style "stroustrup")
;;  (define-key c++-mode-map [f3] 'replace-regexp)
)
(add-hook 'c++-mode-hook 'my-c++-mode-hook)
;;;;C/C++語言啟動(dòng)時(shí)自動(dòng)加載semantic對/usr/include的索引數(shù)據(jù)庫
(setq semanticdb-search-system-databases t)
  (add-hook 'c-mode-common-hook
          (lambda ()
            (setq semanticdb-project-system-databases
                  (list (semanticdb-create-database
                           semanticdb-new-database-class
                           "/usr/include")))))
;;;;我的Java語言編輯策略
(defun my-java-mode-hook()
  (setq tab-width 4 indent-tabs-mode nil)
)
(add-hook 'java-mode-hook 'my-java-mode-hook)
;;;; Python Mode設(shè)置
(add-to-list 'load-path "/home/caole/lib/emacs-lisp/python-mode-1.0")
(require 'python-mode)
;;(require 'pycomplete)
(require 'doctest-mode)
;;;; 注釋配置
(load-file "/home/caole/lib/emacs-lisp/gnome-doc.el")
我的Emacs Wiki配置;;;;我的Emacs Wiki配置
;; ------------------------------  WIKI  --------------------------
(add-to-list 'load-path
             "/home/caole/lib/emacs-lisp/emacs-wiki-2.70")
(add-to-list 'load-path "/home/caole/lib/emacs-lisp/")
(require 'emacs-wiki)
(require 'emacs-wiki-menu)
(require 'emacs-wiki-srctag)
;;指定Wiki工作目錄
(setq emacs-wiki-directories '("~/document/wiki/diary"))
;;指定項(xiàng)目及工作目錄
(setq emacs-wiki-projects
      `(("default" . ((emacs-wiki-directories . ("~/document/wiki/"))))
        ("default" . ((fill-column .65)
                      (emacs-wiki-directories . ("~/document/wiki/diary"))))
            ("diary" . ((fill-column .65)
                      (emacs-wiki-directories . ("~/document/wiki/diary"))))
            ("emacs" . ((fill-column . 65)
                      (emacs-wiki-directories . ("~/document/wiki/diary"))))
            ("linux" . ((fill-column . 65)
                      (emacs-wiki-directories . ("~/document/wiki/diary"))))))
;;wiki目錄下所有文件都會(huì)出現(xiàn)在publish目錄中
(setq emacs-wiki-publishing-directory "publish")
;;指定publish工作目錄
(setq emacs-wiki-publishing-directory "~/document/publish")
;;css文件應(yīng)該放在publish目錄中，
(setq emacs-wiki-style-sheet "")
;;在wiki-directory下必須有一個(gè)emacs-wiki-home-page所指定名字的文件，
;;默認(rèn)是WelcomePage,才能在生成的html文件里才會(huì)出現(xiàn)形如"Home/Index"的
;;樣式，這里改為Home。只要在wiki的工作目錄下有這樣一個(gè)文件作為首頁即可。
(setq emacs-wiki-home-page "Home")
;;中文設(shè)置
(setq emacs-wiki-meta-content-coding "gbk")
(setq emacs-wiki-charset-default "gbk")
(setq emacs-wiki-coding-default 'gbk)
;;維護(hù)設(shè)置
(setq emacs-wiki-inline-relative-to 'emacs-wiki-publishing-directory)
(setq emacs-wiki-anchor-on-word nil)
(setq emacs-wiki-maintainer "mailto:caole82@gmail.com")
(setq emacs-wiki-table-attributes "border=\"1\" cellpadding=\"1\"")
(add-hook 'emacs-wiki-mode-hook
          (lambda ()
            (define-key emacs-wiki-mode-map (kbd "C-c C-h") 'emacs-wiki-preview-html)
;;C-c C-h 預(yù)覽HTML頁面
            (define-key emacs-wiki-mode-map (kbd "C-c C-c") 'emacs-wiki-preview-source)))
;;C-c C-c 預(yù)覽wiki代碼
;;指定emacs wiki 導(dǎo)航菜單
(setq emacs-wiki-menu-factory 'emacs-wiki-menu-make-from-projects)
(defun emacs-wiki-preview-source ()
  (interactive)
  (emacs-wiki-publish-this-page)
  (find-file (emacs-wiki-published-file)))
(defun emacs-wiki-preview-html ()
  (interactive)
  (emacs-wiki-publish-this-page)
  (browse-url (emacs-wiki-published-file)))
(add-hook 'emacs-wiki-mode-hook
          (lambda ()
            (define-key emacs-wiki-mode-map (kbd "C-c C-h") 'emacs-wiki-preview-html)
            (define-key emacs-wiki-mode-map (kbd "C-c C-c") 'emacs-wiki-preview-source)))
(defun emacs-wiki-preview-source ()
  (interactive)
  (emacs-wiki-publish-this-page)
  (find-file (emacs-wiki-published-file)))
(defun emacs-wiki-preview-html ()
  (interactive)
  (emacs-wiki-publish-this-page)
  (browse-url (emacs-wiki-published-file)))
(setq emacs-wiki-index-page "./index.html")
;; ----------------------- END OF WIKI -----------------------------
我的planner和Remeber設(shè)置
拿Emacs做Todo和Remember之類的工具還是非常好用的。
;;;; 我的Planner 配置
(add-to-list 'load-path
             "/home/caole/lib/emacs-lisp/planner")
(require 'planner)
(setq planner-publishing-directory "~/document/wiki/diary/plan")
(planner-calendar-insinuate)
(setq planner-calendar-show-planner-files t)
;;;; 我的remember設(shè)置
(add-to-list 'load-path
             "/home/caole/lib/emacs-lisp/remember")
(require 'remember-planner)
(setq remember-handler-functions '(remember-planner-append))
(setq remember-annotation-functions planner-annotation-functions)
剩下的全部
一股腦都貼上來吧。
;;;;配置psvn
(add-to-list 'load-path
                         "/home/caole/lib/emacs-lisp")
(require 'psvn)
;;;;配置Semantic分析文件的目錄
(setq semanticdb-default-save-directory (expand-file-name "/home/caole/backup/emacs/semantic.cache/semanticdb"))
;;;;編譯elisp文件
;;(byte-recompile-directory "/home/caole/lib/emacs-lisp/" 0 t)
;;;;將C-x C-b進(jìn)入的Buffer列表改為ibuffer，獲得和dired類似的操作界面
(add-to-list 'load-path
                         "/home/caole/lib/emacs-lisp")
(require 'ibuffer)
(global-set-key (kbd "C-x C-b") 'ibuffer)
;;;;保存所有上次關(guān)閉的信息
(add-to-list 'load-path
                         "/home/caole/lib/emacs-lisp")
(require 'session)
(add-hook 'after-init-hook 'session-initialize)
;;;;給Emacs添加Tab功能
(add-to-list 'load-path
                         "/home/caole/lib/emacs-lisp")
(require 'tabbar)
(tabbar-mode)
(global-set-key (kbd "M-[") 'tabbar-backward-group)
(global-set-key (kbd "M-]") 'tabbar-forward-group)
(global-set-key (kbd "M-p") 'tabbar-backward-tab)
(global-set-key (kbd "M-n") 'tabbar-forward-tab)
;;;;導(dǎo)入HTML
(add-to-list 'load-path
                         "/home/caole/lib/emacs-lisp")
(require 'htmlize)
;;;;光標(biāo)靠近鼠標(biāo)指針時(shí)讓鼠標(biāo)指針自己閃開
;;(mouse-avoidance-mode 'animate)
;;;;修改標(biāo)題欄，顯示buffer的名字
(setq frame-title-format "%b")
;;;;啟動(dòng)Emacs Server
(server-start)
;;;;每次進(jìn)入Emacs即顯式Plan
;;;;(plan)
;;;;高亮當(dāng)前行
;;(require 'hl-line)
;;(global-hl-line-mode t)
;;;;向左右滾動(dòng)的命令激活：C-x
(put 'scroll-left 'disabled nil)
;;配置一下shell的顏色
;;(autoload 'ansi-color-for-comint-mode-on "ansi-color" nil t)
;;(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
;;(setq ansi-color-for-comint-mode t)
;;;;退出Emacs時(shí)保存所有正在編輯的文檔
(load "desktop")
(desktop-save-mode)
(desktop-read)


本文來自ChinaUnix博客，如果查看原文請點(diǎn)：http://blog.chinaunix.net/u/24129/showart_1096176.html