emacs配置及注释

;; .emacs
;;; uncomment this line to disable loading of "default.el" at startup
;; (setq inhibit-default-init t)
;; Time-stamp:


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 编程相关的配置
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'xcscope)
(setq cscope-do-not-update-database t)
;; speed up cscope speed
;; (require 'git)

(defun generic-programming-realted-config ()
;; (require 'doxymacs)
;; (doxymacs-font-lock)
(setq comment-multi-line t) ;; 大段注释的时候， 每行的开头都是*
(c-toggle-hungry-state t) ;; hungry delete
(which-func-mode t) ;; 在状态栏显示当前函数
;; (set-variable 'show-trailing-whitespace 1) ;;有多余空格的时候高亮
(font-lock-add-keywords 'python-mode
'(("\\<\\(FIXME\\|HACK\\|XXX\\|TODO\\)" 1 font-lock-warning-face prepend)))
;; (add-hook 'before-save-hook 'whitespace-cleanup) ;;在保存之前清除空字符
;; (setq-default indent-tabs-mode t) ;; 在kernel模式下默认用table
)

(defun load-java-relate-lib ()
(generic-programming-realted-config)
(add-hook 'java-mode-hook (function cscope:hook))
(cscope-minor-mode)
(setq-default indent-tabs-mode nil) ;; 使用空格代替tab
)

(defun load-c-relate-lib ()
(generic-programming-realted-config)
(require 'cc-mode) ;; 更强大的C／C++语言模式
(cscope-minor-mode)
(c-set-offset 'inline-open 0)
(c-set-offset 'friend '-)
(c-set-offset 'substatement-open 0))

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

(global-set-key [f8] 'compile) ;; 在 Emacs 中编译
(global-set-key [f9] 'gdb) ;; 在 Emacs 中调试
(global-set-key [f5] 'revert-buffer) ;; 恢复文件
(global-set-key [f6] 'ff-find-related-file) ;; 找到对应的头文件
(global-set-key [f12] 'todo-show)

(put 'upcase-region 'disabled nil) ;; 打开C－x c－u把区域变成大写的功能

(defun color-init()
"init the color theme"
(require 'color-theme)
;(color-theme-initialize)
(color-theme-calm-forest))

(defun config-in-tty-mode ()
(color-init))

(defun config-not-in-tty-mode ()
(set-fontset-font (frame-parameter nil 'font)
'han '("WenQuanYi Zen Hei" . "unicode-bmp"))
(set-default-font "Lucida Sans Typewriter-11")
(color-init)
(mouse-avoidance-mode 'animate) ;; 光标靠近鼠标的时候，　鼠标自己就跑了
(setq x-select-enable-clipboard t) ;;让X的剪切板和EMACS联系起来
(tool-bar-mode -1) ;; 不要工具按钮
(scroll-bar-mode -1) ;; 不要缩放条
)

(defun if-in-tty()
(if (equal (frame-parameter nil 'font) "tty")
t
nil))

;; 自动补全的尝试列表
;; (global-set-key [(meta ?/)] 'hippie-expand)
(setq hippie-expand-try-functions-list
'(
;; try-expand-line
;; try-expand-line-all-buffers
try-expand-list
try-expand-list-all-buffers
try-expand-dabbrev
try-expand-dabbrev-visible
try-expand-dabbrev-all-buffers
try-expand-dabbrev-from-kill
try-complete-file-name
try-complete-file-name-partially
try-complete-lisp-symbol
try-complete-lisp-symbol-partially
;; try-expand-whole-kill
))

;; lazy evaluate accelerate boot speed
(add-hook 'c-mode-hook
'(lambda ()
;;(setq commento-style 'mutil-line)
(load-c-relate-lib)
(c-set-style "linux")))
(add-hook 'c++-mode-hook
'(lambda ()
;; (setq comment-style 'mutil-line)
(load-c-relate-lib)
(setq-default indent-tabs-mode nil) ;; 在kernel模式下默认用table
(c-set-style "cc-mode")))
(add-hook 'java-mode-hook
'(lambda ()
(load-java-relate-lib)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 日常的配置
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq mail-signature "
--
Zhang Jiejing")

(setq-default truncate-lines nil) ;; 自动折行

(auto-compression-mode 1) ;; 打开压缩文件时自动解压缩
(auto-image-file-mode) ;; 自动打开图片模式
(column-number-mode 1) ;; 显示列号
(blink-cursor-mode -1) ;; 光标不要闪烁
(show-paren-mode 1) ;; 高亮显示匹配的括号

(icomplete-mode t) ;; 给出用 M-x foo-bar-COMMAND 输入命令的提示。
(iswitchb-mode 1) ;; buffer切换的时候有字符匹配
;; (menu-bar-mode -1) ;; 不要 menu-bar。
;;(autoload 'big5togb-region "big5togb" "Big5 to GB2312" t)
;;【big5togb.el】ZSH 写的将 big5 文本转为 gb2312 的包。
(global-set-key "\C-z" 'undo) ;; 撤销命令
;(global-set-key "\C-xl" 'goto-line) ;; used to goto line
(global-set-key "\C-xj" [?\C-x ?b return]) ;; 跳到前一个buffer
(global-font-lock-mode t) ;; open font lock
(setq font-lock-maximum-decoration t)
(setq font-lock-verbose t)
(setq font-lock-maximum-size '((t . 1048576)
(vm-mode . 5250000)))
(setq-default line-spacing 1) ;; 行距设置， 中文行距更大一些

(setq transient-mark-mode nil) ;; 两次按C－space以后高亮显示区域
(setq inhibit-startup-message t) ;; 不显示 Emacs 的开始画面
(setq default-major-mode 'text-mode) ;; 任意的打开一个新文件时，缺省使用 text-mode。
(setq visiable-bell t) ;; 把嘟的声音去掉
(setq ring-bell-function 'ignore) ;; 不要让那个DIDI的响
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
(setq display-time-interval 10) ;; 在 mode-line 上显示时间。
(setq require-final-newline t)
(setq track-eol t)
(setq suggest-key-bindings 1) ;; 当使用 M-x COMMAND 后，过 1 秒钟显示该 COMMAND 绑定的键。
(setq line-number-display-limit 1000000);; 当行数超过一定数值，不再显示行号。
(setq kill-ring-max 200) ;; kill-ring 最多的记录个数。
(setq bookmark-save-flag 1)
;; 每当设置书签的时候都保存书签文件，否则只在你退出 Emacs 时保存。
; (setq bookmark-default-file "~/.emacs.d/.emacs.bmk")
;; 缺省书签文件的路径及文件名。
(setq version-control t)
(setq kept-old-versions 2)
(setq kept-new-versions 5)
(setq delete-old-versions t)
(setq backup-directory-alist '(("." . "~/emacs.bak")))
(setq backup-by-copying t)
;; Emacs 中，改变文件时，默认都会产生备份文件(以 ~ 结尾的文件)。可以完全去掉
;; (并不可取)，也可以制定备份的方式。这里采用的是，把所有的文件备份都放在一
;; 个固定的地方("~/var/tmp")。对于每个备份文件，保留最原始的两个版本和最新的
;; 五个版本。并且备份的时候，备份文件是复本，而不是原件。


(ansi-color-for-comint-mode-on) ;; 消除shell中的乱码
(fset 'yes-or-no-p 'y-or-n-p) ;; 把Yes或者用y代替
;; (cua-mode t) ;; something like CTRL-V is copy
(set-keyboard-coding-system 'chinese-iso-8bit) ;; 键盘输入，用于输入法。
(set-terminal-coding-system 'chinese-iso-8bit) ;; 终端显示的编码方式。
(set-clipboard-coding-system 'chinese-iso-8bit) ;; 剪切板，用于和其他程序之间复制内容
(set-clipboard-coding-system 'ctext) ;;解决firefox有时候复制文件有乱马
(set-language-environment "UTF-8")
(setq ispell-dictionary "en")
(add-hook 'comint-output-filter-functions
'comint-watch-for-password-prompt)
;; 密码的相关的提示密码

(load "desktop")
;;(desktop-load-default)
;;(desktop-read)

;; Ask question when C-x, C-c.
(setq kill-emacs-query-functions
(lambda() (y-or-n-p "Do you really want to quit?")))

;; For daemon mode
(add-hook 'after-make-frame-functions
(lambda (frame)
(with-selected-frame frame
(when window-system
(config-not-in-tty-mode)
(config-in-tty-mode)))))

;; Non-deamon mode config
(if (equal (daemonp) nil)
(if (equal (if-in-tty) nil)
(config-not-in-tty-mode)
(config-in-tty-mode)))


;; 开启服务器模式
;;(server-force-delete)
;;(server-start)
;; 用Daemon替代