我的.emacs

首先说明，这篇东西主要是为了自己的备忘，不做过多的说明。

如果想用的话，建议先看一下注释，做一些小的修改应该问题不大了。

办公环境是windows，只能在windows下使用emacs，版本是24.1。

配置比较简单，主要分为界面配置、工具配置和编程环境配置几个部分。

界面的配置大部分是从网上copy的，可以参考这篇文章在windows环境下使用emacs + cscope + ecb替代source insight

工具主要使用了linum，w3m，cscope，cedet，都可以到网上下载，有一个网站有很多emacs的插件可以折腾http://www.damtp.cam.ac.uk/user/sje30/emacs/ell.html#s

编程环境配置了c，python，erlang和TeX。

(setenv "HOME" "emacs-24.1")
(setenv "PATH" "emacs-24.1/bin")
;;(setq default-directory "/")


;======================= cscope 设置 =======================
;;使用 cscope 浏览源代码,这个xcscope是个改进版，为每一次查找的结果使用不同 buffer ，
;;这样就可以保存以前的结果。


;;(add-to-list 'load-path "~/site-lisp/") ;; 将软件包所在的路径加到 EMACS 的 load-path
(require 'xcscope) ;; 加载相应的软件
;; C-c s a 设定初始化的目录，一般是你代码的根目录
;; C-s s I 对目录中的相关文件建立列表并进行索引
;; C-c s s 序找符号
;; C-c s g 寻找全局的定义
;; C-c s c 看看指定函数被哪些函数所调用
;; C-c s C 看看指定函数调用了哪些函数
;; C-c s e 寻找正则表达式
;; C-c s f 寻找文件
;; C-c s i 看看指定的文件被哪些文件include




;; ;===================== cscope 设置结束 


;===================== cedet设置 =====================================
;;(require 'cedet);;将cedet设置放在前面，否则会覆盖自己的配置
(load-file "emacs-24.1/site-lisp/cedet-1.1/common/cedet.el")
;; (semantic-load-enable-minimum-features)
(semantic-load-enable-code-helpers)
;; (semantic-load-enable-guady-code-helpers)
;; (semantic-load-enable-excessive-code-helpers)
(semantic-load-enable-semantic-debugging-helpers)
(require 'ecb)
(setq stack-trace-on-error nil)
;; (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.
;;  '(ecb-options-version "2.40")
;;  '(inhibit-startup-screen 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.
;;  )
(defconst cedet-user-include-dirs
  (list ".." "../include" "../inc" "../common" "../public"
        "../.." "../../include" "../../inc" "../../common" "../../public"))
(defconst cedet-win32-include-dirs
  (list "C:/MinGW/include"
        "C:/MinGW/include/c++/3.4.5"
        "C:/MinGW/include/c++/3.4.5/mingw32"
        "C:/MinGW/include/c++/3.4.5/backward"
        "C:/MinGW/lib/gcc/mingw32/3.4.5/include"
        "C:/Program Files/Microsoft Visual Studio/VC98/MFC/Include"))
(require 'semantic-c nil 'noerror)
(let ((include-dirs cedet-user-include-dirs))
  (when (eq system-type 'windows-nt)
    (setq include-dirs (append include-dirs cedet-win32-include-dirs)))
  (mapc (lambda (dir)
          (semantic-add-system-include dir 'c++-mode)
          (semantic-add-system-include dir 'c-mode))
        include-dirs))
;; Ecb的操作:
;; C-c . g d 目录列表窗口
;; C-c . g s 源码窗口
;; C-c . g m 方法和变量窗口
;; C-c . g h 历史窗口
;; C-c . g l 最后选择过的编辑窗口
;; C-c . g 1 编辑窗口1
;; C-c . g n 编辑窗口n
;; C-c . l c 选择版面
;; C-c . l r 重画版面
;; C-c . l t 拴牢版面(锁定版面)
;; C-c . l w 拴牢可见的ecb窗口
;; C-c . \ 拴牢编绎窗口


;; 其中l为小写字母(L),大家别看错!!


;======================cedet设置结束


(require 'session)
(add-hook 'after-init-hook 'session-initialize) ;; 启动时初始化session
(require 'doxymacs) ;; 启动doxymac


(set-scroll-bar-mode nil)
;;取消滚动栏


;;(customize-set-variable 'scroll-bar-mode 'right))
;;设置滚动栏在窗口右侧，而默认是在左侧


(tool-bar-mode nil);;这个放在default-frame-alist后边好像不管用
;;取消工具栏


(setq default-frame-alist    ;;先设置，再设置字体，否则字体会被覆盖
'((vertical-scroll-bars)
(top . 25)
(left . 45)
(width . 110)
(height . 40)
;; (background-color . "blue")
;; (foreground-color . "grey")
;; (cursor-color . "gold1")
;; (mouse-color . "gold1")
(tool-bar-lines . 0)
(menu-bar-lines . 1)
(right-fringe);;右边缘
(left-fringe)))


;;这一部份主要用在linux 环境下，windows下没什么作用
;; (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乱码,好像没作用


(setq default-frame-alist
(append
'((font . "fontset-chinese")) default-frame-alist))


(create-fontset-from-fontset-spec
"-outline-Courier New-normal-r-normal-normal-13-97-96-96-c-*-fontset-chinese")
(set-fontset-font
"fontset-default" nil
"-outline-新宋体-normal-r-normal-normal-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-fontset-font
"fontset-chinese" 'kana
"-outline-新宋体-normal-r-normal-normal-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-fontset-font
"fontset-chinese" 'han
"-outline-新宋体-normal-r-normal-normal-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-fontset-font
"fontset-chinese" 'cjk-misc
"-outline-新宋体-normal-r-normal-normal-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-fontset-font
"fontset-chinese" 'symbol
"-outline-新宋体-normal-r-normal-normal-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-default-font "fontset-chinese")
;; (create-fontset-from-fontset-spec
;;  (concat
;;   "-outline-Courier New-normal-r-normal-normal-13-97-96-96-c-*-fontset-courier,"
;;   "chinese-gb2312:-outline-新宋体-normal-r-normal-normal-14-*-96-96-c-*-iso10646-1,"
;;   "mule-unicode-0100-24ff:-outline-新宋体-normal-r-normal-normal-14-*-96-96-c-*-iso10646-1,"
;;   "korean-ksc5601:-outline-新宋体-normal-r-normal-normal-14-*-96-96-c-*-iso10646-1,"
;;   "chinese-cns11643-5:-outline-新宋体-normal-r-normal-normal-14-*-96-96-c-*-iso10646-1,"
;;   "chinese-cns11643-6:-outline-新宋体-normal-r-normal-normal-14-*-96-96-c-*-iso10646-1,"
;;   "chinese-cns11643-7:-outline-新宋体-normal-r-normal-normal-14-*-96-96-c-*-iso10646-1,"
;;   "sjis:-outline-新宋体-normal-r-normal-normal-14-*-96-96-c-*-iso10646-1"
;;   ;;"-*-courier-medium-r-normal-*-14-*-*-*-*-*-fontset-courier,"
;;   ;; "chinese-gb2312:-*-simsun-medium-r-*-*-14-*-*-*-c-*-gb2312*-*,"
;;   ;; "mule-unicode-0100-24ff:-*-simsun-medium-r-*-*-14-*-*-*-c-*-iso10646*-*,"
;;   ;; "korean-ksc5601:-*-*-medium-r-*-*-14-*-*-*-*-*-ksc5601*-*,"
;;   ;; "chinese-cns11643-5:-*-simsun-medium-r-*-*-14-*-*-*-c-*-gbk*-*,"
;;   ;; "chinese-cns11643-6:-*-simsun-medium-r-*-*-14-*-*-*-c-*-gbk*-*,"
;;   ;; "chinese-cns11643-7:-*-simsun-medium-r-*-*-14-*-*-*-c-*-gbk*-*,"
;;   ;; "sjis:-*-medium-r-normal--14-*-jisx0208*-*"
;;   ))
;; (set-default-font "fontset-courier")
;; (setq default-frame-alist
;;       (append
;;        '((font . "fontset-courier")) default-frame-alist)


;;;;;;;;;;;;;;;;;;;;;;;;;;; 设置窗口界面 (好像没用);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;; (set-foreground-color "grey")
;; (set-background-color "black")
;; (set-cursor-color "gold1")
;; (set-mouse-color "gold1")


;; ;; 设置另外一些颜色：语法高亮显示的背景和主题，区域选择的背景和主题，二次选择的背景和选择
;; (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 "~/")


;;ido的配置,这个可以使你在用C-x C-f打开文件的时候在后面有提示;
;;这里是直接打开了ido的支持，在emacs23中这个是自带的.
(ido-mode t)


(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 global-linum-mode t);行号
(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 80)
;;把 fill-column 设为 60. 这样的文字更好读


(setq-default indent-tabs-mode nil)
(setq default-tab-width 4)
(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)
;;括号匹配时可以高亮显示另外一边的括号，但光标不会烦人的跳到另一个括号处。


(setq mouse-avoidance-mode 'animate)
;;光标靠近鼠标指针时，让鼠标指针自动让开，别挡住视线。


(setq frame-title-format "emacs@%b")
;;在标题栏显示buffer的名字，而不是 [email protected] 这样没用的提示。


(setq uniquify-buffer-name-style 'forward);;好像没起作用
;; 当有两个文件名相同的缓冲时，使用前缀的目录名做 buffer 名字，不用原来的foobar 形式。


(auto-image-file-mode t)
;;让 Emacs 可以直接打开和显示图片。


;;(auto-compression-mode 1)
;;打开压缩文件时自动解压缩。


(setq global-font-lock-mode t)
;;进行语法加亮。


(setq-default kill-whole-line t)
;; 在行首 C-k 时，同时删除该行。


;; (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 version-control 'never);;不需要而不是想换个地方保存备份文件
(auto-save-mode nil)
;;自动保存模式


;; (setq-default make-backup-files 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)
(put 'scroll-left 'disabled nil)
;;把这些缺省禁用的功能打开。


;;允许emacs和外部其他程序的粘贴
(setq x-select-enable-clipboard t)


(setq user-full-name "newdye")
(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 [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 "M-") 'set-mark-command)
;;这样 我就不用按 C-@ 来 setmark 了, C-@ 很不好按。


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;定制操作习惯结束;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 设置日历 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;设置日历的一些颜色
(setq calendar-load-hook
'(lambda ()
(set-face-foreground 'diary-face "red");;有日程的日期高亮的颜色
(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 holidays 在另外的窗口的显示这前后三个月的节日。




;; 另外，还有一些特殊的，有意思的命令：
;; S 显示当天的日出日落时间(是大写的S)
;; p C 显示农历可以使用
;; g C 使用农历移动日期可以使用




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 日历设置结束 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 设置日记 ;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;


(setq diary-file "~/confile/diary")
;;(setq diary-mail-addr "[email protected]")
(add-hook 'diary-hook 'appt-activate)
;;昨天发现了一个自己 .emacs 中的问题： appt-make-list --> appt-activate 
;;这个从 emacs 22.1 开始就要废弃的 appt-make-list, 终于在 24.1 中完全不用了。 
;;当你创建了一个'~/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 创建一个循环的事件




;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 设置日记结束 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 自定义lisp包设置 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;




;=======================五笔输入法设置======================
;; (add-to-list 'load-path "~/lisp/wubi/wubi")
;; (require 'wubi)
;; (register-input-method "chinese-wubi" "Chinese-GB" 'quail-use-package "wubi" "wubi")
;; (wubi-load-local-phrases)
;; (setq default-input-method "chinese-wubi")




;;这几句Lisp代码的作用是设置中文环境、注册五笔字型输入法。保存.emacs后请重新启动emacs，
;;使得上面的设置生效。现在您可以用快捷键C-\ （同时按住 Ctrl和反斜线键）唤出五笔字型输入法了。
;;在emacs的mode line上会出现“五笔字型”的字样。


;=======================五笔输入法设置结束===================






;;tabbar-ruler;;tabbar-ruler将tabbar显示的更美观
(setq tabbar-ruler-global-tabbar 't) ; If you want tabbar
(setq tabbar-ruler-global-ruler 't) ; if you want a global ruler
(setq tabbar-ruler-popup-menu 't) ; If you want a popup menu.
(setq tabbar-ruler-popup-toolbar 't) ; If you want a popup toolbar
(require 'tabbar-ruler)
;======================== tabbar设置 ========================
;; (require 'tabbar)
;; (tabbar-mode)
;========================tabbar设置结束=======================




;;=======================tramp设置============================
(setq tramp-default-method "plink")
(setq password-cache-expire 360000)
;;=======================tramp设置结束========================


;; ;======================= wb-line-number设置 ==================
;; (require 'wb-line-number);;这个显示靠谱一点
;; (wb-line-number-toggle)
;; (set-scroll-bar-mode nil)   ; no scroll bar, even in x-window system (recommended)
;; ;====================== wb-line-number设置结束 ================


;======================= setnu设置 ============================
;;再增加一个显示行号的功能
;;(require 'setnu);;增减行时会有问题
;;(add-hook 'find-file-hooks (lambda () (setnu-mode t)))
;;(setnu-mode t)
;;(global-set-key [f2] (quote setnu-mode))
(require 'linum)
(add-hook 'find-file-hooks (lambda () (linum-mode t)))
;======================= setnu设置结束 ======================
(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.
 '(ecb-options-version "2.40")
 '(session-use-package t nil (session)))
(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.
 )


;======================配置 w3m===============================
(add-to-list 'exec-path "../emacs-24.1/w3m")
(require 'w3m-load)
(require 'w3m)
(require 'w3m-image)
(setq w3m-use-favicon nil)
(setq w3m-default-display-inline-images t)
(setq w3m-toggle-inline-images-permanently nil)
(setq w3m-use-toolbar t)

;======================配置 w3m 结束=====================


;===================== 配置 erlang 环境 ====================
;; This is needed for Erlang mode setup
(setq erlang-root-dir "D:/erl5.9.2")
(setq load-path (cons "D:/erl5.9.2/lib/tools-2.6.8/emacs" load-path))
(setq exec-path (cons "D:/erl5.9.2/bin" exec-path))
(require 'erlang-start)


;; This is needed for Distel setup
(let ((distel-dir "D:/erl5.9.2/lib/distel-4.03/elisp"))
  (unless (member distel-dir load-path)
    ;; Add distel-dir to the end of load-path
    (setq load-path (append load-path (list distel-dir)))))


(require 'distel)
(distel-setup)


;; Some Erlang customizations
(add-hook 'erlang-mode-hook
	  (lambda ()
	    ;; when starting an Erlang shell in Emacs, default in the node name
	    (setq inferior-erlang-machine-options '("-sname" "emacs"))
	    ;; add Erlang functions to an imenu menu
	    (imenu-add-to-menubar "imenu")))


;; A number of the erlang-extended-mode key bindings are useful in the shell too
(defconst distel-shell-keys
  '(("\C-\M-i"   erl-complete)
    ("\M-?"      erl-complete)	
    ("\M-."      erl-find-source-under-point)
    ("\M-,"      erl-find-source-unwind) 
    ("\M-*"      erl-find-source-unwind) 
    )
  "Additional keys to bind when in Erlang shell.")


(add-hook 'erlang-shell-mode-hook
	  (lambda ()
	    ;; add some Distel bindings to the Erlang shell
	    (dolist (spec distel-shell-keys)
	      (define-key erlang-shell-mode-map (car spec) (cadr spec)))))


;=================== 配置 erlang 环境结束 ====================


;================== 配置 python 环境 =====================
(setq pythonversion "27")
(setq program-path "C:/")
;;(setenv "PATH" (concat (concat program-path"Python"pythonversion";") (getenv "PATH")))
(add-to-list 'exec-path "C:/Python27")
;================== 配置 python 环境end =====================




;===================配置Latex环境============================
(setenv "PATH" (concat "C:/CTEX/MiKTeX/miktex/bin;C:/Program Files/Tracker Software/PDF Viewer;" (getenv "PATH")))
(add-to-list 'load-path "C:/CTEX/MiKTeX/miktex/bin")
(load "site-start.el" nil t t)
(if (string-equal system-type "windows-nt")
    (require 'tex-mik))
(mapc (lambda (mode)
      (add-hook 'LaTeX-mode-hook mode))
      (list 'auto-fill-mode
            'LaTeX-math-mode
            'turn-on-reftex
            'linum-mode))
(add-hook 'LaTeX-mode-hook
          (lambda ()
            (setq TeX-auto-untabify t     ; remove all tabs before saving
                  TeX-engine 'xetex       ; use xelatex default
                  TeX-show-compilation t) ; display compilation windows
            (TeX-global-PDF-mode t)       ; PDF mode enable, not plain
            (setq TeX-save-query nil)
            (imenu-add-menubar-index)
            (setq-default TeX-master nil) 
            (define-key LaTeX-mode-map (kbd "TAB") 'TeX-complete-symbol)))
(setq TeX-view-program-list
      '(("PDFXCview" "C:/Program Files/Tracker Software/PDF Viewer/PDFXCview.exe
%o")
        ("Yap" "C:/CTEX/MiKTeX/miktex/bin/yap.exe %o")
        ("Gsview" "C:/CTEX/GSview/gsview/gsview32.exe %o")
        ("Okular" "okular --unique %o")
        ("Evince" "evince %o")
        ("Firefox" "firefox %o")))


(cond
 ((eq system-type 'windows-nt)
  (add-hook 'LaTeX-mode-hook
            (lambda ()
              (setq TeX-view-program-selection '((output-pdf "PDFXCview")
                                                 (output-dvi "Yap")
                                                 )))))
 
 ((eq system-type 'gnu/linux)
  (add-hook 'LaTeX-mode-hook
            (lambda ()
              (setq TeX-view-program-selection '((output-pdf "Okular")
                                                 (output-dvi "Okular")))))))
;===================Config Latex end========================


;===================配置graphviz环境============================
(setenv "PATH" (concat "C:/Program Files/Graphviz2.30/bin;" (getenv "PATH")))
(load "graphviz-dot-mode.el" nil t t)
;;(require 'graphviz-dot-mode)


(add-hook 'find-file-hook (lambda()
                            (if (string= "dot" (file-name-extension
                                                buffer-file-name))
                                (progn
                                  (message "Enabling Setings for dot-mode")
                                  (setq fill-column 1000)
                                  ;(base-auto-pair)
                                  (linum-mode)
                                  )
                              )))
;(setq graphviz-dot-view-command "dotty") ;不起作用，直接在graphviz-dot-mode.el中修改
;===================配置graphviz结束============================


;==================配置gnuplot=====================
(setenv "PATH" (concat "C:/Program Files/gnuplot/bin;" (getenv "PATH")))
(load "gnuplot.el" nil t t)
(require 'gnuplot)


;; (autoload 'gnuplot-mode "gnuplot" "gnuplot major mode" t)
;; (autoload 'gnuplot-make-buffer "gnuplot" "open a buffer in gnuplot mode" t)
;; (setq auto-mode-alist
;;      (append
;;         (list
;;            '("\\.gp$" . gnuplot-mode)
;;            '("\\.plt$" . gnuplot-mode)
;;         )
;;       auto-mode-alist))
;; ;; (global-set-key [f8] 'gnuplot-make-buffer)
;; (add-hook 'gnuplot-load-hook
;;    '(lambda ()
;;     (setq gnuplot-program "C:/Program Files/gnuplot/bin/pgnuplot.exe")))
(if window-system
    (progn
      (autoload 'gnuplot-mode "gnuplot" "gnuplot major mode" t)
      (autoload 'gnuplot-make-buffer "gnuplot" "open a buffer in gnuplot mode" t)
      (setq auto-mode-alist
            (append
             (list
              '("\\.gp$" . gnuplot-mode)
              '("\\.plt$" . gnuplot-mode)
              )
             auto-mode-alist))
      (if (eq system-type 'windows-nt)
          (progn
            (add-hook 'gnuplot-load-hook
                      '(lambda ()
                         (setq gnuplot-program
                               "C:/Program Files/gnuplot/bin/gnuplot.exe"))) ;;好像没有用，直接在gnuplot.el中改
            (setq gnuplot-program-version 4.6)
            (setq gnuplot-echo-command-line-flag nil)))
      ))
;=================配置gnuplot结束===================