最近因爲項目任務在弄java的東西，然後把druid連接池應用到了開發中，感覺還不錯哦。
因爲重裝了系統，clojure的東西又重新裝了一下，windows下的emacs+nrepl+clojure。
1、emacs的安裝配置，安裝很簡單，配置就比較講究了。在emacs的menu bar選擇options，進行任意操作，會在操作系統用戶主目錄（例如我的：C:\Users\lrq\）下生成.emacs文件和.emacs.d目錄。 這裏我是win7，開始因爲user home下有中文，不能生成emacs配置文件，切換成英文就好了(當然你可以檢查一下你的系統環境變量，看看home值，我這裏默認是英文的，但是實際目錄是中文的，我係統中英文切換過，可能home值沒變吧)。
.emacs文件的配置可以上網搜索一下，這裏給出一份，忘記是從哪位童鞋那兒找的了。
前面這幾段，相當於我們使用的倉庫位置，下載來源。
2、重啓emacs鍵入："m-x package-list-packages" 會鏈接到各網站，並出現列表。將光標移動到clojure-mode前，按“i”（即選中），然後按“x”（既執行下載並安裝到～/.eamcs.d/elpa/文件夾下。"d“爲標註卸載，按“x”可刪除，“r”爲刷新列表，自己直接手動刪除也可）。nrepl安裝同上。
3、在步驟2種，也可以使用“m-x package-install"回車、"Install package: 這裏輸入要安裝的包名 "回車。
4、執行“m-x nrepl-jack-in”我們熟悉的環境又回來啦。
(require 'package)
(add-to-list 'package-archives
'("elpa" . "http://tromey.com/elpa/") t)
(add-to-list 'package-archives
'("marmalade" . "http://marmalade-repo.org/packages/") t)
(add-to-list 'package-archives
'("melpa" . "http://melpa.milkbox.net/packages/") t)
(package-initialize)
;;------------語言環境字符集設置(utf-8)-------------
(defun qiang-font-existsp (font)
(if (null (x-list-fonts font))
nil t))
(defvar font-list '("宋體" "新宋體" "Microsoft Yahei" "文泉驛等寬微米黑" "黑體" ))
(require 'cl) ;; find-if is in common list package
(find-if #'qiang-font-existsp font-list)
(defun qiang-make-font-string (font-name font-size)
(if (and (stringp font-size)
(equal ":" (string (elt font-size 0))))
(format "%s%s" font-name font-size)
(format "%s %s" font-name font-size)))
(defun qiang-set-font (english-fonts
english-font-size
chinese-fonts
&optional chinese-font-size)
"english-font-size could be set to \":pixelsize=18\" or a integer.
If set/leave chinese-font-size to nil, it will follow english-font-size"
(require 'cl) ; for find if
(let ((en-font (qiang-make-font-string
(find-if #'qiang-font-existsp english-fonts)
english-font-size))
(zh-font (font-spec :family (find-if #'qiang-font-existsp chinese-fonts)
:size chinese-font-size)))
;; Set the default English font
;;
;; The following 2 method cannot make the font settig work in new frames.
;; (set-default-font "Consolas:pixelsize=18")
;; (add-to-list 'default-frame-alist '(font . "Consolas:pixelsize=18"))
;; We have to use set-face-attribute
(message "Set English Font to %s" en-font)
(set-face-attribute
'default nil :font en-font)
;; Set Chinese font
;; Do not use 'unicode charset, it will cause the english font setting invalid
(message "Set Chinese Font to %s" zh-font)
(dolist (charset '(kana han symbol cjk-misc bopomofo))
(set-fontset-font (frame-parameter nil 'font)
charset
zh-font))))
(qiang-set-font
'("Consolas" "Monaco" "DejaVu Sans Mono" "Monospace" "Courier New") ":pixelsize=15"
'("宋體" "新宋體" "Microsoft Yahei" "文泉驛等寬微米黑" "黑體" ))
;;Setting English Font
;;(set-face-attribute 'default nil :font "Consolas 12")
;; Chinese Font
;;(dolist (charset '(kana han symbol cjk-misc bopomofo)) (set-fontset-font (frame-parameter nil 'font) charset (font-spec :family "Microsoft Yahei" :size 12)))
;;處理shell-mode亂碼,好像沒作用
;;------語言環境字符集設置結束------------
;;--------------窗口界面設置------------------
(set-foreground-color "grey")
(set-background-color "black")
(set-cursor-color "gold1")
(set-mouse-color "gold1")
(set-scroll-bar-mode nil)
;;取消滾動欄
;;(customize-set-variable 'scroll-bar-mode 'right))
;;設置滾動欄在窗口右側，而默認是在左側
(tool-bar-mode nil)
;;取消工具欄
;;啓動設置
;;(setq default-frame-alist '((vertical-scroll-bars) (top . 25) (left . 45) (width . 180) (height . 55)
;;(background-color . "black") (foreground-color . "grey")(cursor-color . "gold1") (mouse-color . "gold1") (tool-bar-lines . 0) (menu-bar-lines . 1) (right-fringe) (left-fringe)))
;;啓動自動最大化(數據自己調整，注意格式，如(top . 0)，圓點前後都要留有空格)
(setq initial-frame-alist '((top . 0) (left . 0) (width . 120) (height . 36)))
;; 設置另外一些顏色：語法高亮顯示的背景和主題，區域選擇的背景和主題，二次選擇的背景和選擇
(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")
;;------------窗口界面設置結束-----------------
;;------------顯示時間設置------------------------------
(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 "~/")
;;(setenv "HOME" "D:/My Documents/Visual Studio 2008/Projects")
;;(setenv "PATH" "D:/My Documents/Visual Studio 2008/Projects")
;;set the default file path
(setq default-directory "~/")
;;------------------------------------------
;;ido的配置,這個可以使你在用C-x C-f打開文件的時候在後面有提示;
;;這裏是直接打開了ido的支持，在emacs23中這個是自帶的.
(ido-mode t)
(setq ido-save-directory-list-file nil)
;;ido模式中不保存目錄列表,解決退出Emacs時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)
;;顯示行列號
(global-linum-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 "\\([。！？]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*")
(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
(show-paren-mode t)
;;打開括號匹配顯示模式
(setq show-paren-style 'parenthesis)
;;括號匹配時可以高亮顯示另外一邊的括號，但光標不會煩人的跳到另一個括號處。
(mouse-avoidance-mode 'animate)
;;光標靠近鼠標指針時，讓鼠標指針自動讓開，別擋住視線。
(setq frame-title-format "emacs@%b")
;;在標題欄顯示buffer的名字，而不是 [email protected] 這樣沒用的提示。
(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 "Bluesky")
(setq user-mail-address "[email protected]")
;;設置有用的個人信息,這在很多地方有用。
(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 [f2] 'emacs-wiki-find-file)
;;打開wiki
;;(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)
;;設置f9調用speedbar命令
;;使用 n 和 p 可以上下移動，
;; + 展開目錄或文件進行瀏覽，- 收縮，RET 訪問目錄或文件，g 更新 speedbar。
(setq dired-recursive-copies 'top)
(setq dired-recursive-deletes 'top)
;;讓 dired 可以遞歸的拷貝和刪除目錄。
(global-set-key [C-f9] 'dired)
;;設置[C-f9]爲調用dired命令
(global-set-key [f10] 'undo)
;;設置F10爲撤銷
(global-set-key [f11] 'calendar)
;;設置F11快捷鍵指定Emacs 的日曆系統
(global-set-key [f12] 'list-bookmarks)
;;設置F12 快速察看日程安排
(setq time-stamp-active t)
(setq time-stamp-warn-inactive t)
(setq time-stamp-format "%:y-%02m-%02d %3a %02H:%02M:%02S chunyu")
;; 設置時間戳，標識出最後一次保存文件的時間。
(global-set-key (kbd "M-g") 'goto-line)
;;設置M-g爲goto-line
(global-set-key (kbd "C-SPC") 'nil)
;;取消control+space鍵設爲mark
(global-set-key (kbd "s-SPC") 'set-mark-command)
;;用win+space鍵來set-mark，這樣，C-SPC就可以用來調用外部輸入法了。
;;----------定製操作習慣結束-------------
;;----------日曆設置--------------------
;;設置日曆的一些顏色
(setq calendar-load-hook
'(lambda ()
(set-face-foreground 'diary-face "skyblue")
(set-face-background 'holiday-face "slate blue")
(set-face-foreground 'holiday-face "white")))
;;設置我所在地方的經緯度，calendar裏有個功能是日月食的預測，和你的經緯度相聯繫的。
;; 讓emacs能計算日出日落的時間，在 calendar 上用 S 即可看到
(setq calendar-latitude +39.54)
(setq calendar-longitude +116.28)
(setq calendar-location-name "北京")
;; 設置陰曆顯示，在 calendar 上用 pC 顯示陰曆
(setq chinese-calendar-celestial-stem
["甲" "乙" "丙" "丁" "戊" "己" "庚" "辛" "壬" "癸"])
(setq chinese-calendar-terrestrial-branch
["子" "醜" "寅" "卯" "辰" "巳" "戊" "未" "申" "酉" "戌" "亥"])
;; 設置 calendar 的顯示
(setq calendar-remove-frame-by-deleting t)
(setq calendar-week-start-day 1) ; 設置星期一爲每週的第一天
(setq mark-diary-entries-in-calendar t) ; 標記calendar上有diary的日期
(setq mark-holidays-in-calendar nil) ; 爲了突出有diary的日期，calendar上不標記節日
(setq view-calendar-holidays-initially nil) ; 打開calendar的時候不顯示一堆節日
;; 去掉不關心的節日，設定自己在意的節日，在 calendar 上用 h 顯示節日
(setq christian-holidays nil)
(setq hebrew-holidays nil)
(setq islamic-holidays nil)
(setq solar-holidays nil)
(setq general-holidays '((holiday-fixed 1 1 "元旦")
(holiday-fixed 2 14 "情人節")
(holiday-fixed 3 14 "白色情人節")
(holiday-fixed 4 1 "愚人節")
(holiday-fixed 5 1 "勞動節")
(holiday-float 5 0 2 "母親節")
(holiday-fixed 6 1 "兒童節")
(holiday-float 6 0 3 "父親節")
(holiday-fixed 7 1 "建黨節")
(holiday-fixed 8 1 "建軍節")
(holiday-fixed 9 10 "教師節")
(holiday-fixed 10 1 "國慶節")
(holiday-fixed 12 25 "聖誕節")))
;;Calendar模式支持各種方式來更改當前日期
;;（這裏的“前”是指還沒有到來的那一天，“後”是指已經過去的日子）
;; q 退出calendar模式
;; C-f 讓當前日期向前一天
;; C-b 讓當前日期向後一天
;; C-n 讓當前日期向前一週
;; C-p 讓當前日期向後一週
;; M-} 讓當前日期向前一個月
;; M-{ 讓當前日期向後一個月
;; C-x ] 讓當前日期向前一年
;; C-x [ 讓當前日期向後一年
;; C-a 移動到當前周的第一天
;; C-e 移動到當前周的最後一天
;; M-a 移動到當前月的第一天
;; M-e 多動到當前月的最後一天
;; M-< 移動到當前年的第一天
;; M-> 移動到當前年的最後一天
;;Calendar模式支持移動多種移動到特珠日期的方式
;; g d 移動到一個特別的日期
;; o 使某個特殊的月分作爲中間的月分
;; . 移動到當天的日期
;; p d 顯示某一天在一年中的位置，也顯示本年度還有多少天。
;; C-c C-l 刷新Calendar窗口
;; Calendar支持生成LATEX代碼。
;; t m 按月生成日曆
;; t M 按月生成一個美化的日曆
;; t d 按當天日期生成一個當天日曆
;; t w 1 在一頁上生成這個周的日曆
;; t w 2 在兩頁上生成這個周的日曆
;; t w 3 生成一個ISO-SYTLE風格的當前週日歷
;; t w 4 生成一個從週一開始的當前週日歷
;; t y 生成當前年的日曆
;;EMACS Calendar支持配置節日：
;; h 顯示當前的節日
;; x 定義當天爲某個節日
;; u 取消當天已被定義的節日
;; e 顯示所有這前後共三個月的節日。
;; M-x holiday 在另外的窗口的顯示這前後三個月的節日。
;; 另外，還有一些特殊的，有意思的命令：
;; S 顯示當天的日出日落時間(是大寫的S)
;; p C 顯示農曆可以使用
;; g C 使用農曆移動日期可以使用
;;-----------日曆設置結束----------------
;;-----------日記設置---------------------
(setq diary-file "~/diary/diary");; 默認的日記文件
(setq diary-mail-addr "[email protected]")
;;(add-hook 'diary-hook 'appt-make-list)
;;當你創建了一個'~/diary'文件，你就可以使用calendar去查看裏面的內容。你可以查看當天的事件，相關命令如下 ：
;; d 顯示被選中的日期的所有事件
;; s 顯示所有事件，包括過期的，未到期的等等
;; 創建一個事件的樣例：
;; 02/11/1989
;; Bill B. visits Princeton today
;; 2pm Cognitive Studies Committee meeting
;; 2:30-5:30 Liz at Lawrenceville
;; 4:00pm Dentist appt
;; 7:30pm Dinner at George's
;; 8:00-10:00pm concert
;; 創建事件的命令：
;; i d 爲當天日期添加一個事件
;; i w 爲當天周創建一個周事件
;; i m 爲當前月創建一個月事件
;; i y 爲當前年創建一個年事件
;; i a 爲當前日期創建一個週年紀念日
;; i c 創建一個循環的事件
;;----------日記設置結束-----------------
;;-------------方便編程操作設置----------------
;;代碼摺疊
(load-library "hideshow")
(add-hook 'c-mode-hook 'hs-minor-mode)
(add-hook 'c++-mode-hook 'hs-minor-mode)
(add-hook 'java-mode-hook 'hs-minor-mode)
(add-hook 'perl-mode-hook 'hs-minor-mode)
(add-hook 'php-mode-hook 'hs-minor-mode)
(add-hook 'emacs-lisp-mode-hook 'hs-minor-mode)
;;能把一個代碼塊縮起來，需要的時候再展開
;; M-x hs-minor-mode
;; C-c @ ESC C-s show all
;; C-c @ ESC C-h hide all
;; C-c @ C-s show block
;; C-c @ C-h hide block
;; C-c @ C-c toggle hide/show
;;自動補全括號
(defun my-c-mode-auto-pair ()
(interactive)
(make-local-variable 'skeleton-pair-alist)
(setq skeleton-pair-alist '(
(?` ?` _ "''")
(?\( ? _ " )")
(?\[ ? _ " ]")
(?{ \n > _ \n ?} >)))
(setq skeleton-pair t)
(local-set-key (kbd "(") 'skeleton-pair-insert-maybe)
(local-set-key (kbd "{") 'skeleton-pair-insert-maybe)
(local-set-key (kbd "`") 'skeleton-pair-insert-maybe)
(local-set-key (kbd "[") 'skeleton-pair-insert-maybe))
(add-hook 'c-mode-hook 'my-c-mode-auto-pair)
(add-hook 'c++-mode-hook 'my-c-mode-auto-pair)
;;輸入左邊的括號，就會自動補全右邊的部分.包括(), "", [] , {} , 等等。
;;把c語言風格設置爲k&r風格
(add-hook 'c-mode-hook
'(lambda ()
(c-set-style "k&r")))
(autoload 'css-mode "css-mode" "CSS editing mode" t)
;;css-mode.el編輯css文件
(autoload 'htmlize-buffer "htmlize" "HTMLize mode" t)
;;把buffer的內容連同顏色轉爲html格式
(autoload 'folding-mode "folding" "Folding mode" t)
(autoload 'turn-off-folding-mode "folding" "Folding mode" t)
(autoload 'turn-on-folding-mode "folding" "Folding mode" t)
;;folding.el 編輯文本的一部分，其它部分摺疊起來
(setq auto-mode-alist
;; 將文件模式和文件後綴關聯起來
(append '(("\\.py\\'" . python-mode)
("\\.s?html?\\'" . html-helper-mode)
("\\.asp\\'" . html-helper-mode)
("\\.phtml\\'" . html-helper-mode)
("\\.css\\'" . css-mode))
auto-mode-alist))
;;------------方便編程操作設置結束--------------------