gotnix · July 11, 2012 09:11 · Jul 25, 2012 · Jul 12, 2012 · Jul 11, 2012
diff --git a/.emacs b/.emacs
@@ -3,10 +3,10 @@
 ;;========================================
 
 ;;禁用工具栏
-(tool-bar-mode nil)
+(tool-bar-mode -1)
 
 ;;禁用菜单栏，F10 开启关闭菜单
-(menu-bar-mode nil)
+(menu-bar-mode -1)
 
 ;;禁用滚动栏，用鼠标滚轮代替
 ;(scroll-bar-mode nil)

diff --git a/.emacs b/.emacs
@@ -1,10 +1,3 @@
-;;========================================
-;;添加 Emacs 搜索目录 可以将自定的扩展放该目录
-;;========================================
-;(add-to-list 'load-path "~/..emacs")
-;如果有其它配置文件，使此命令读取
-;(load "addon.el")
-
 ;;========================================
 ;; 外观设置
 ;;========================================
@@ -16,7 +9,7 @@
 (menu-bar-mode nil)
 
 ;;禁用滚动栏，用鼠标滚轮代替
-;;(scroll-bar-mode nil)
+;(scroll-bar-mode nil)
 
 ;;禁用启动画面
 (setq inhibit-startup-message t)
@@ -25,52 +18,48 @@
 ;; 键绑定
 ;;========================================
 
-;; C-t 设置标记 ;; 
-;;(global-set-key (kbd "C-t") 'set-mark-command)
+;; C-t 设置标记
+;(global-set-key (kbd "C-t") 'set-mark-command)
 
 ;; C-x b => CRM bufer list
-;;(global-set-key "\C-xb" 'electric-buffer-list)
+;(global-set-key "\C-xb" 'electric-buffer-list)
 
-;;---------- redo
-;;(global-set-key ( kbd "C-.") 'redo)
-
-;;========================================
+;;-----------------------------------------
+;; 多窗口相关操作
+;;-----------------------------------------
 ;;关闭当前缓冲区 Alt+4  ;; C-x 0
-;;(global-set-key (kbd "M-4") 'delete-window)
+;(global-set-key (kbd "M-4") 'delete-window)
 ;;关闭其它缓冲区 Alt+1  ;; C-x 1
-;;(global-set-key (kbd "M-1") 'delete-other-windows)
+;(global-set-key (kbd "M-1") 'delete-other-windows)
 ;;水平分割缓冲区 Alt+2  ;; C-x 2
-;;(global-set-key (kbd "M-2") 'split-window-vertically)
+;(global-set-key (kbd "M-2") 'split-window-vertically)
 ;;垂直分割缓冲区 Alt+3  ;; C-x 3
-;;(global-set-key (kbd "M-3") 'split-window-horizontally)
+;(global-set-key (kbd "M-3") 'split-window-horizontally)
 ;;切换到其它缓冲区 Alt+0 ;; C-x o 
-;;(global-set-key (kbd "M-0") 'other-window)
-
-;;WIN+s 进入 Shell ;; M-x shell
-;;(global-set-key (kbd "s-s") 'shell)
-;;(define-key ctl-x-map "\M-s" 'shell)
+;(global-set-key (kbd "M-0") 'other-window)
 
 ;;F10 显示/隐藏菜单栏 ;; M-x menu-bar-open
-(global-set-key [f10] 'menu-bar-mode)
+(define-key global-map (kbd "<f10>") 'menu-bar-mode)
 
-;;设置换行自动缩进
-(global-set-key [return] 'newline-and-indent)
+;;-----------------------------------------
+;; WIN+s 进入 Shell ;; M-x shell
+;;-----------------------------------------
+;(global-set-key (kbd "s-s") 'shell)
+;(define-key ctl-x-map "\M-s" 'shell)
 
 ;;========================================
 ;; 缓冲区
 ;;========================================
 
-;;全局显示行号
-(global-linum-mode 1)
-
 ;;设定行距
 (setq default-line-spacing 0)
 
 ;;页宽 
-(setq default-fill-column 80)
+(setq default-fill-column 90)
 
 ;;缺省模式 text-mode
 (setq default-major-mode 'text-mode)
+(add-hook 'text-mode-hook 'turn-on-auto-fill)
 
 ;;设置删除纪录
 (setq kill-ring-max 200)
@@ -81,15 +70,12 @@
 ;;语法加亮
 (global-font-lock-mode t)
 
-;;高亮当前行
-(global-hl-line-mode 0)
-
 ;;高亮显示区域选择
 (transient-mark-mode t)
 
 ;;页面平滑滚动， scroll-margin 5 靠近屏幕边沿3行时开始滚动，可以很好的看到上下文。
 (setq scroll-margin 5
-      scroll-conservatively 10000)
+  scroll-conservatively 10000)
 
 ;高亮显示成对括号，但不来回弹跳
 (show-paren-mode t)
@@ -118,15 +104,18 @@
 (setq enable-recursive-minibuffers t)
 
 ;; 当使用 M-x COMMAND 后，过 1 秒钟显示该 COMMAND 绑定的键。
-;;(setq suggest-key-bindings 1) ;;
+;(setq suggest-key-bindings 1)
 
 ;;========================================
 ;; 状态栏
 ;;========================================
 
 ;;显示时间
 (display-time)
-;;时间格式
+
+;;-----------------------------------------
+;; 时间格式
+;;-----------------------------------------
 (setq display-time-24hr-format t)
 (setq display-time-day-and-date t)
 (setq display-time-interval 10)
@@ -137,18 +126,25 @@
 ;;标题栏显示 %f 缓冲区完整路径 %p 页面百分数 %l 行号
 (setq frame-title-format "%f")
 
-
 ;;========================================
 ;; 编辑器设定
 ;;========================================
 
 ;;不生成临时文件
-;;(setq-default make-backup-files nil)
+;(setq-default make-backup-files nil)
 
 ;;只渲染当前屏幕语法高亮，加快显示速度
 (setq font-lock-maximum-decoration t)
 
+;; 全局显示行号
+(global-linum-mode 1)
+
+;; 高亮当前行，高亮以后会覆盖该行的语法高亮。
+(global-hl-line-mode 0)
+
+;;-----------------------------------------
 ;;将错误信息显示在回显区
+;;-----------------------------------------
 ;(condition-case err
 ;    (progn
 ;    (require 'xxx) )
@@ -158,8 +154,10 @@
 ;;使用X剪贴板
 (setq x-select-enable-clipboard t)
 
-;;使用空格缩进
-;; indent-tabs-mode,t 使用 TAB 作格式化字符, nil 使用空格作格式化字符
+;;-----------------------------------------
+;; 使用空格缩进,indent-tabs-mode:
+;; t 使用 TAB 作格式化字符, nil 使用空格作格式化字符
+;;-----------------------------------------
 (setq indent-tabs-mode nil)
 (setq tab-always-indent nil)
 (setq tab-width 4)
@@ -170,21 +168,30 @@
 
 ;; 指针颜色
 (set-cursor-color "black")
+
 ;; 鼠标颜色
 (set-mouse-color "black")
+
+;;-----------------------------------------
 ;; 背景和字体颜色
+;;-----------------------------------------
 (set-foreground-color "gainsboro")
 (set-background-color "grey30")
 (set-border-color "black")
+
+;;-----------------------------------------
 ;; 语法高亮显示，区域选择，二次选择 ;;前景和背景色
+;;-----------------------------------------
 (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")
@@ -196,30 +203,52 @@
 ;;========================================
 (set-default-font "-unknown-DejaVu Sans Mono-normal-normal-normal-*-14-*-*-*-m-0-iso10646-1")
 (if window-system
-   (set-fontset-font (frame-parameter nil 'font)
-	  'unicode '("Microsoft YaHei" . "unicode-bmp"))
+  (set-fontset-font (frame-parameter nil 'font)
+    'unicode '("Microsoft YaHei" . "unicode-bmp"))
 )
 
 ;;========================================
 ;; 必备扩展 
 ;;========================================
 
-;;添加auto-complete 配置
-(add-to-list 'load-path "~/.emacs.d/plugins/auto-complete/") ; This may not be appeared if you have already added.
+;;-----------------------------------------
+;; 添加Auto-Complete 配置
+;;-----------------------------------------
+(add-to-list 'load-path
+  "~/.emacs.d/plugins/auto-complete/"); This may not be appeared if you have already added.                               
 (require 'auto-complete-config)
-(add-to-list 'ac-dictionary-directories "~/.emacs.d/plugins/auto-complete/dict/")
+(add-to-list 'ac-dictionary-directories
+  "~/.emacs.d/plugins/auto-complete/dict/")
 (ac-config-default)
-
-;;添加Yasnippet 配置
+
+;;-----------------------------------------
+;; 添加Yasnippet 配置
+;;-----------------------------------------
 (add-to-list 'load-path
-               "~/.emacs.d/plugins/yasnippet")
+  "~/.emacs.d/plugins/yasnippet")
 (require 'yasnippet)
 (yas/global-mode 1)
 
-;;开启服务器模式
-;(server-start)
+;;-----------------------------------------
+;; Docbook
+;;-----------------------------------------
+;(require 'docbook-xml-mode)
+
+;(add-hook 'docbook-xml-mode-hook
+;  (function (lambda ()
+;    (setq outline-regexp "<!\\-\\-\\*+")
+;      (outline-minor-mode)
+;      (hide-body))))
 
-;;org-mode
+;;-----------------------------------------
+;; org-mode
+;;-----------------------------------------
 (setq org-hide-leading-stars t)
- (define-key global-map "\C-ca" 'org-agenda)
- (setq org-log-done 'time)
+(define-key global-map "\C-ca" 'org-agenda)
+(setq org-log-done 'time)
+
+;; Outline-大纲模式
+(setq outline-minor-mode-prefix [(control o)])
+
+;;开启服务器模式
+;(server-start)
diff --git a/.emacs b/.emacs
@@ -0,0 +1,225 @@
+;;========================================
+;;添加 Emacs 搜索目录 可以将自定的扩展放该目录
+;;========================================
+;(add-to-list 'load-path "~/..emacs")
+;如果有其它配置文件，使此命令读取
+;(load "addon.el")
+
+;;========================================
+;; 外观设置
+;;========================================
+
+;;禁用工具栏
+(tool-bar-mode nil)
+
+;;禁用菜单栏，F10 开启关闭菜单
+(menu-bar-mode nil)
+
+;;禁用滚动栏，用鼠标滚轮代替
+;;(scroll-bar-mode nil)
+
+;;禁用启动画面
+(setq inhibit-startup-message t)
+
+;;========================================
+;; 键绑定
+;;========================================
+
+;; C-t 设置标记 ;; 
+;;(global-set-key (kbd "C-t") 'set-mark-command)
+
+;; C-x b => CRM bufer list
+;;(global-set-key "\C-xb" 'electric-buffer-list)
+
+;;---------- redo
+;;(global-set-key ( kbd "C-.") 'redo)
+
+;;========================================
+;;关闭当前缓冲区 Alt+4  ;; C-x 0
+;;(global-set-key (kbd "M-4") 'delete-window)
+;;关闭其它缓冲区 Alt+1  ;; C-x 1
+;;(global-set-key (kbd "M-1") 'delete-other-windows)
+;;水平分割缓冲区 Alt+2  ;; C-x 2
+;;(global-set-key (kbd "M-2") 'split-window-vertically)
+;;垂直分割缓冲区 Alt+3  ;; C-x 3
+;;(global-set-key (kbd "M-3") 'split-window-horizontally)
+;;切换到其它缓冲区 Alt+0 ;; C-x o 
+;;(global-set-key (kbd "M-0") 'other-window)
+
+;;WIN+s 进入 Shell ;; M-x shell
+;;(global-set-key (kbd "s-s") 'shell)
+;;(define-key ctl-x-map "\M-s" 'shell)
+
+;;F10 显示/隐藏菜单栏 ;; M-x menu-bar-open
+(global-set-key [f10] 'menu-bar-mode)
+
+;;设置换行自动缩进
+(global-set-key [return] 'newline-and-indent)
+
+;;========================================
+;; 缓冲区
+;;========================================
+
+;;全局显示行号
+(global-linum-mode 1)
+
+;;设定行距
+(setq default-line-spacing 0)
+
+;;页宽 
+(setq default-fill-column 80)
+
+;;缺省模式 text-mode
+(setq default-major-mode 'text-mode)
+
+;;设置删除纪录
+(setq kill-ring-max 200)
+
+;;以空行结束
+(setq require-final-newline t) 
+
+;;语法加亮
+(global-font-lock-mode t)
+
+;;高亮当前行
+(global-hl-line-mode 0)
+
+;;高亮显示区域选择
+(transient-mark-mode t)
+
+;;页面平滑滚动， scroll-margin 5 靠近屏幕边沿3行时开始滚动，可以很好的看到上下文。
+(setq scroll-margin 5
+      scroll-conservatively 10000)
+
+;高亮显示成对括号，但不来回弹跳
+(show-paren-mode t)
+(setq show-paren-style 'parentheses)
+
+;;鼠标指针规避光标
+;(mouse-avoidance-mode 'animate)
+
+;;粘贴于光标处，而不是鼠标指针处
+(setq mouse-yank-at-point t)
+
+;;========================================
+;; 回显区
+;;========================================
+
+;;闪屏报警
+(setq visible-bell t)
+
+;;使用 y or n 提问
+(fset 'yes-or-no-p 'y-or-n-p)
+
+;;锁定行高
+(setq resize-mini-windows nil)
+
+;;递归 minibuffer
+(setq enable-recursive-minibuffers t)
+
+;; 当使用 M-x COMMAND 后，过 1 秒钟显示该 COMMAND 绑定的键。
+;;(setq suggest-key-bindings 1) ;;
+
+;;========================================
+;; 状态栏
+;;========================================
+
+;;显示时间
+(display-time)
+;;时间格式
+(setq display-time-24hr-format t)
+(setq display-time-day-and-date t)
+(setq display-time-interval 10)
+
+;;显示列号
+(setq column-number-mode t)
+
+;;标题栏显示 %f 缓冲区完整路径 %p 页面百分数 %l 行号
+(setq frame-title-format "%f")
+
+
+;;========================================
+;; 编辑器设定
+;;========================================
+
+;;不生成临时文件
+;;(setq-default make-backup-files nil)
+
+;;只渲染当前屏幕语法高亮，加快显示速度
+(setq font-lock-maximum-decoration t)
+
+;;将错误信息显示在回显区
+;(condition-case err
+;    (progn
+;    (require 'xxx) )
+;  (error
+;   (message "Can't load xxx-mode %s" (cdr err))))
+
+;;使用X剪贴板
+(setq x-select-enable-clipboard t)
+
+;;使用空格缩进
+;; indent-tabs-mode,t 使用 TAB 作格式化字符, nil 使用空格作格式化字符
+(setq indent-tabs-mode nil)
+(setq tab-always-indent nil)
+(setq tab-width 4)
+
+;;========================================
+;; 颜色设置
+;;========================================
+
+;; 指针颜色
+(set-cursor-color "black")
+;; 鼠标颜色
+(set-mouse-color "black")
+;; 背景和字体颜色
+(set-foreground-color "gainsboro")
+(set-background-color "grey30")
+(set-border-color "black")
+;; 语法高亮显示，区域选择，二次选择 ;;前景和背景色
+(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")))
+
+;;========================================
+;; 字体设置
+;;========================================
+(set-default-font "-unknown-DejaVu Sans Mono-normal-normal-normal-*-14-*-*-*-m-0-iso10646-1")
+(if window-system
+   (set-fontset-font (frame-parameter nil 'font)
+	  'unicode '("Microsoft YaHei" . "unicode-bmp"))
+)
+
+;;========================================
+;; 必备扩展 
+;;========================================
+
+;;添加auto-complete 配置
+(add-to-list 'load-path "~/.emacs.d/plugins/auto-complete/") ; This may not be appeared if you have already added.
+(require 'auto-complete-config)
+(add-to-list 'ac-dictionary-directories "~/.emacs.d/plugins/auto-complete/dict/")
+(ac-config-default)
+
+;;添加Yasnippet 配置
+(add-to-list 'load-path
+               "~/.emacs.d/plugins/yasnippet")
+(require 'yasnippet)
+(yas/global-mode 1)
+
+;;开启服务器模式
+;(server-start)
+
+;;org-mode
+(setq org-hide-leading-stars t)
+ (define-key global-map "\C-ca" 'org-agenda)
+ (setq org-log-done 'time)