個性化emacs設定

用emacs有一小段時間，剛接觸時感覺這個東西怎麼這麼難用，“面目猙獰“，習慣了visual studio漂亮且方便的介面一下子有點難以接受這樣的東西。一些本來整齊的程式碼到了這裡看起來卻是亂哄哄的一團。慢慢習慣了覺得它還真的功能強大，很功能交給使用者去設定，完完全全的DIY精神。Unix和windows雖然表面看起來僅是兩個不同的平臺，但時時刻刻體現出兩種不同的文化，Unix更加提倡透明性、可顯性，可定製性更強，因此它更受高階使用者的喜愛，但在一定程度上令普通使用者望而生畏，想想一個軟體不像windows下那樣點點滑鼠安裝上去就可用了，還要開啟密密麻麻的配置檔案設定好了才能用是多麼可怕的事情啊。就如emacs，經過一翻修改把它變得更加符合我的胃口了，感情自然會日漸濃厚起來了。雖然說工具是“死”的，但一個好的工具還是很重要的，可以使工作更加方便，心情也愉悅。

把配置貼下，以後還會用得著

[@more@]

;;------------語言環境字符集設定(utf-8)-------------

(set-language-environment 'Chinese-GB)

(set-keyboard-coding-system 'utf-8)

(set-clipboard-coding-system 'utf-8)

(set-terminal-coding-system 'utf-8)

(set-buffer-file-coding-system 'utf-8)

(set-default-coding-systems 'utf-8)

(set-selection-coding-system 'utf-8)

(modify-coding-system-alist 'process "*" 'utf-8)

(setq default-process-coding-system '(utf-8 . utf-8))

(setq-default pathname-coding-system 'utf-8)

; (set-file-name-coding-system 'utf-8)

(setq ansi-color-for-comint-mode t) ;;處理shell-mode亂碼,好像沒作用

;;------語言環境字符集設定結束------------

;;--------------視窗介面設定------------------

(set-foreground-color "black")

(set-background-color "snow")

(set-cursor-color "gold1")

(set-mouse-color "gold1")

(set-scroll-bar-mode t)

;;取消滾動欄

(customize-set-variable 'scroll-bar-mode 'right)

;;設定滾動欄在視窗右側，而預設是在左側

(tool-bar-mode t)

;;取消工具欄

;;啟動設定

(setq default-frame-alist

'((vertical-scroll-bars."right")

(top . 25)

(left . 45)

(width . 120)

(height . 40)

(background-color . "snow")

(foreground-color . "black")

(cursor-color . "black")

(mouse-color . "gold1")

(tool-bar-lines . 1)

(menu-bar-lines . 1)

(right-fringe)

(left-fringe)))

;; 啟動自動最大化

;;(setq initial-frame-alist '((top . 0) (left . 0) (width . 142) (height . 49)))

;; 設定另外一些顏色：語法高亮顯示的背景和主題，區域選擇的背景和主題，二次選擇的背景和選擇

(set-face-foreground 'highlight "white")

(set-face-background 'highlight "blue")

(set-face-foreground 'region "cyan")

(set-face-background 'region "blue")

(set-face-foreground 'secondary-selection "skyblue")

(set-face-background 'secondary-selection "darkblue")

;;------------視窗介面設定結束-----------------

;;------------設定自動縮排----------------------

(defun linux-cpp-mode ()

"my cpp mode define"

(interactive)

(c-set-style "K&R")

(setq c-basic-offset 8) ；；；；設定縮排8個字元

(c-toggle-auto-hungry-state)

(define-key c++-mode-map [return] 'newline-and-indent)

)

(defun linux-c-mode ()

"my c mode define"

(interactive)

;;(c++-mode)

(c-set-style "K&R")

(setq c-basic-offset 8)

(c-toggle-auto-hungry-state)

(define-key c-mode-map [return] 'newline-and-indent)

)

(add-hook 'c++-mode-hook 'linux-cpp-mode)

(add-hook 'c-mode-hook 'linux-c-mode)

;;-------------設定自動縮排結束---------------------

;;------------顯示時間設定------------------------------

(display-time-mode 1);;啟用時間顯示設定，在minibuffer上面的那個槓上

(setq display-time-24hr-format t);;時間使用24小時制

(setq display-time-day-and-date t);;時間顯示包括日期和具體時間

(setq display-time-use-mail-icon t);;時間欄旁邊啟用郵件設定

(setq display-time-interval 10);;時間的變化頻率，單位多少來著？

;;------------顯示時間設定結束--------------

;;------------定製操作習慣--------------------

;;設定開啟檔案的預設路徑

(setq default-directory "~/")

;;ido的配置,這個可以使你在用C-x C-f開啟檔案的時候在後面有提示;

;;這裡是直接開啟了ido的支援，在emacs23中這個是自帶的.

;(ido-mode t)

(setq ido-save-directory-list-file nil)

;;ido模式不儲存目錄列表

(setq visible-bell t)

;;關閉煩人的出錯時的提示聲

(setq inhibit-startup-message t)

;;關閉emacs啟動時的畫面

(setq gnus-inhibit-startup-message t)

;;關閉gnus啟動時的畫面

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

;; 改變 Emacs 固執的要你回答 yes 的行為。按 y 或空格鍵表示 yes，n 表示 no。

(setq font-lock-maximum-decoration t)

(setq font-lock-global-modes '(not shell-mode text-mode))

(setq font-lock-verbose t)

(setq font-lock-maximum-size '((t . 1048576) (vm-mode . 5250000)))

;; 語法高亮。除 shell-mode 和 text-mode 之外的模式中使用語法高亮。

(setq column-number-mode t)

(setq line-number-mode t)

;;顯示行列號

(setq mouse-yank-at-point t)

;;不要在滑鼠點選的那個地方插入剪貼簿內容。我不喜歡那樣，經常把我的文件搞的一團糟。我覺得先用游標定位，然後滑鼠中鍵點選要好的多。不管你的游標在文件的那個位置，或是在 minibuffer，滑鼠中鍵一點選，X selection 的內容就被插入到那個位置。

(setq kill-ring-max 200)

;;設定貼上緩衝條目數量.用一個很大的kill ring(最多的記錄個數). 這樣防止我不小心刪掉重要的東西

(setq-default auto-fill-function 'do-auto-fill)

; Autofill in all modes;;

(setq default-fill-column 120)

;;把 fill-column 設為 60. 這樣的文字更好讀

(setq-default indent-tabs-mode nil)

(setq default-tab-width 8);;tab鍵為8個字元寬度

(setq tab-stop-list ())

;;不用 TAB 字元來indent, 這會引起很多奇怪的錯誤。編輯 Makefile 的時候也不用擔心，因為 makefile-mode 會把 TAB 鍵設定成真正的 TAB 字元，並且加亮顯示的。

(setq sentence-end "([。！？]|……|[.?!][]"')}]*($|[ ]))[ ]*")

(setq sentence-end-double-space nil)

;;設定 sentence-end 可以識別中文標點。不用在 fill 時在句號後插入兩個空格。

(setq enable-recursive-minibuffers t)

;;可以遞迴的使用 minibuffer

(setq scroll-margin 3 scroll-conservatively 10000)

;;防止頁面滾動時跳動， scroll-margin 3 可以在靠近螢幕邊沿3行時就開始滾動，可以很好的看到上下文。

(setq default-major-mode 'text-mode)

(add-hook 'text-mode-hook 'turn-on-auto-fill)

;;設定預設主模式是text，,並進入auto-fill次模式.而不是基本模式fundamental-mode

(setq show-paren-mode t) ;;開啟括號匹配顯示模式

(setq show-paren-style 'parenthesis)

;;括號匹配時可以高亮顯示另外一邊的括號，但游標不會煩人的跳到另一個括號處。

(setq mouse-avoidance-mode 'animate)

;;游標靠近滑鼠指標時，讓滑鼠指標自動讓開，別擋住視線。

(setq frame-title-format "longtrue@%b")

;;在標題欄顯示buffer的名字，而不是 emacs@wangyin.com 這樣沒用的提示。

(setq uniquify-buffer-name-style 'forward);;好像沒起作用

;; 當有兩個檔名相同的緩衝時，使用字首的目錄名做 buffer 名字，不用原來的foobar> 形式。

(setq auto-image-file-mode t)

;;讓 Emacs 可以直接開啟和顯示圖片。

;(auto-compression-mode 1)

;開啟壓縮檔案時自動解壓縮。

(setq global-font-lock-mode t)

;;進行語法加亮。

(setq-default kill-whole-line t)

;; 在行首 C-k 時，同時刪除該行。

(add-hook 'comint-output-filter-functions

'comint-watch-for-password-prompt)

;;當你在shell、telnet、w3m等模式下時，必然碰到過要輸入密碼的情況,此時加密顯出你的密碼

(setq version-control t);;啟用版本控制，即可以備份多次

(setq kept-old-versions 2);;備份最原始的版本兩次，及第一次編輯前的文件，和第二次編輯前的文件

(setq kept-new-versions 1);;備份最新的版本1次，理解同上

(setq delete-old-versions t);;刪掉不屬於以上3中版本的版本

(setq backup-directory-alist '(("." . "~/backups")));;設定備份檔案的路徑

(setq backup-by-copying t);;備份設定方法，直接複製

;; Emacs 中，改變檔案時，預設都會產生備份檔案(以 ~ 結尾的檔案)。可以完全去掉; (並不可取)，也可以制定備份的方式。這裡採用的是，把所有的檔案備份都放在一個固定的地方("~/backups")。對於每個備份檔案，保留最原始的兩個版本和最新的1個版本。並且備份的時候，備份檔案是複本，而不是原件。

;;(setq make-backup-files nil)

;; 設定不產生備份檔案

(setq auto-save-mode nil)

;;自動儲存模式

(setq-default make-backup-files nil)

;; 不生成臨時檔案

(put 'scroll-left 'disabled nil) ;允許螢幕左移

(put 'scroll-right 'disabled nil) ;允許螢幕右移

(put 'set-goal-column 'disabled nil)

(put 'narrow-to-region 'disabled nil)

(put 'upcase-region 'disabled nil)

(put 'downcase-region 'disabled nil)

(put 'LaTeX-hide-environment 'disabled nil)

;;把這些預設禁用的功能開啟。

;;允許emacs和外部其他程式的貼上

(setq x-select-enable-clipboard t)

(setq mouse-yank-at-point t)

;;使用滑鼠中鍵可以貼上

(setq user-full-name "longtrue")

(setq user-mail-address "langchue@yahoo.com.cn")

;;設定有用的個人資訊,這在很多地方有用。

(setq require-final-newline t)

;; 自動的在檔案末增加一新行

(setq-default transient-mark-mode t)

;;Non-nil if Transient-Mark mode is enabled.

(setq track-eol t)

;; 當游標在行尾上下移動的時候，始終保持在行尾。

(setq Man-notify-method 'pushy)

;; 當瀏覽 man page 時，直接跳轉到 man buffer。

;;(setq next-line-add-newlines nil)

;;Emacs 21 中已經是預設設定。按 C-n 或向下鍵時不新增新行。

(global-set-key [home] 'beginning-of-buffer)

(global-set-key [end] 'end-of-buffer)

;;設定home鍵指向buffer開頭，end鍵指向buffer結尾

(global-set-key (kbd "C-,") 'scroll-left)

;; "C-,"設為螢幕左移命令

(global-set-key (kbd "C-.") 'scroll-right)

;; "C-."設為螢幕右移命令

(global-set-key [f1] 'manual-entry)

(global-set-key [C-f1] 'info )

(global-set-key [f3] 'repeat-complex-command)

(global-set-key [f4] 'other-window)

;; 跳轉到 Emacs 的另一個buffer視窗

(defun du-onekey-compile ()

"Save buffers and start compile"

(interactive)

(save-some-buffers t)

(switch-to-buffer-other-window "*compilation*")

(compile compile-command))

(global-set-key [C-f5] 'compile)

(global-set-key [f5] 'du-onekey-compile)

;; C-f5, 設定編譯命令; f5, 儲存所有檔案然後編譯當前視窗檔案

(global-set-key [f6] 'gdb)

;;F6設定為在Emacs中呼叫gdb

(global-set-key [C-f7] 'previous-error)

(global-set-key [f7] 'next-error)

(defun open-eshell-other-buffer ()

"Open eshell in other buffer"

(interactive)

(split-window-vertically)

(eshell))

(global-set-key [(f8)] 'open-eshell-other-buffer)

(global-set-key [C-f8] 'eshell)

;;目的是開一個shell的小buffer，用於更方便地測試程式(也就是執行程式了)，我經常會用到。

;;f8就是另開一個buffer然後開啟shell，C-f8則是在當前的buffer開啟shell

(setq speedbar-show-unknown-files t);;可以顯示所有目錄以及檔案

(setq dframe-update-speed nil);;不自動重新整理，手動 g 重新整理

(setq speedbar-update-flag nil)

(setq speedbar-use-images nil);;不使用 image 的方式

(setq speedbar-verbosity-level 0)

(global-set-key [f9] 'speedbar)

;;