個人Emacs配置

注:以上代碼主要來自於網絡

;;------------語言環境字符集設置(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 "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 . 120)
               (height . 40)
               (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 . 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")

;;------------窗口界面設置結束-----------------

;;----------日曆設置--------------------

;;設置日曆的一些顏色
(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 "whuchenxi2010@gmail.com")
;;(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

(global-linum-mode t)

;;把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))

(defun my-compile()
    (interactive)
    (save-some-buffers t)
    (let((file(file-name-nondirectory buffer-file-name)))
      (compile(format "g++ %s -g -o %s" file(file-name-sans-extension file))))
)


(global-linum-mode t)
(global-set-key [f9] 'my-compile)


(set-frame-parameter (selected-frame) 'alpha '(85  50))
 (add-to-list 'default-frame-alist '(alpha  (85  50)))

 (defun toggle-transparency ()
   (interactive)
   (let ((alpha (frame-parameter nil 'alpha)))
     (set-frame-parameter
      nil 'alpha
      (if (eql (cond ((numberp alpha) alpha)
                     ((numberp (cdr alpha)) (cdr alpha))
                     ;; Also handle undocumented ( ) form.
                     ((numberp (cadr alpha)) (cadr alpha)))
               100)
          '(85  50) '(100  100)))))
 (global-set-key (kbd "C-c t") 'toggle-transparency)
 
 
 (setq c-default-style
      '((java-mode . "java")(other . "awk")))
      
;;------------方便編程操做設置結束--------------------
(custom-set-variables
 ;; 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.
 '(cua-mode t nil (cua-base)))
(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.
 )

;;在標題欄顯示buffer的名字(默認不顯示)
(setq frame-title-format "%b@emacs")

;;顯示匹配括號
(show-paren-mode t)
(setq show-paren-style 'parentheses)

;;全選
(global-set-key (kbd "C-a") 'mark-whole-buffer)

;滾動頁面時比較舒服，不要整頁的滾動
(setq     scroll-step 1
scroll-margin 3
scroll-conservatively 10000)


;;打開代碼摺疊功能
(add-hook 'c-mode-hook 'hs-minor-mode)
(add-hook 'c++-mode-hook 'hs-minor-mode)

;;自動縮進
(global-set-key (kbd "RET") 'newline-and-indent)
(setq default-tab-width 4) (setq indent-tabs-mode nil)

其中最重要的一段:[F9]編譯

(defun my-compile()
    (interactive)
    (save-some-buffers t)
    (let((file(file-name-nondirectory buffer-file-name)))
      (compile(format "g++ %s -g -o %s" file(file-name-sans-extension file))))
)


(global-linum-mode t)
(global-set-key [f9] 'my-compile)