我的emacs配置

今天重新系统，不小心把emacs配置文件弄丢了，只得重新来过

1. 首先中文输入
使用 ibus.el
 - 安装python-xlib

sudo apt-get install python-xlib

 - 配置文件

(add-to-list 'load-path "~/.emacs.d/site-lisp/ibus-el-0.2.1")
(require 'ibus)
;; Turn on ibus-mode automatically after loading .emacs
(add-hook 'after-init-hook 'ibus-mode-on)
;; Use C-SPC for Set Mark command
(ibus-define-common-key ?\C-\s nil)
;; Use C-/ for Undo command
(ibus-define-common-key ?\C-/ nil)
;; Change cursor color depending on IBus status
(setq ibus-cursor-color '("red" "blue" "limegreen"))
;; Use s-SPC to toggle input status
(global-set-key (kbd "s-SPC") 'ibus-toggle)

现在，按 super+space 可以输入中文了

2. 保存桌面环境
使用 desktop.el ，这个emacs23自带

(desktop-save-mode 1)

3. buffer管理
使用 ibuffer.el ，这个也是emacs23自带

(global-set-key (kbd "C-x C-b") 'ibuffer)
(autoload 'ibuffer "ibuffer" "List buffers." t)

ibuffer.el介绍：

4. tab设置
先设置tab长度为4：

(setq default-tab-width 4)

使用 smart-tab.el ，参考：
================================================
因有工作任务，用到哪里配置哪里吧，持续更新中～～



不做解释，先贴出来

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; ibus.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-to-list 'load-path "~/.emacs.d/site-lisp/ibus-el-0.2.1")
(require 'ibus)
;; Turn on ibus-mode automatically after loading .emacs
(add-hook 'after-init-hook 'ibus-mode-on)
;; Use C-SPC for Set Mark command
(ibus-define-common-key ?\C-\s nil)
;; Use C-/ for Undo command
(ibus-define-common-key ?\C-/ nil)
;; Change cursor color depending on IBus status
(setq ibus-cursor-color '("red" "blue" "limegreen"))
;; Use s-SPC to toggle input status
(global-set-key (kbd "s-SPC") 'ibus-toggle)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; desktop.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(desktop-save-mode 1)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; ibuffer.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(global-set-key (kbd "C-x C-b") 'ibuffer)
(autoload 'ibuffer "ibuffer" "List buffers." t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; general
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 设置tab为4个宽度
(setq-default tab-width 4)
(setq tab-width 4)

;;去掉工具栏
;; hide tool-bar
(tool-bar-mode nil)

;;设置菜单栏
;; hide menu-bar
(menu-bar-mode nil)

;; 回答的 yes/no用 y/n來代替
;; answer y/n instand of yes/no
(fset 'yes-or-no-p 'y-or-n-p)

;; 不產生臨時備份文件
;; never make backup files
(setq-default make-backup-files nil)

;; 默認模式為文本 : text
;; set default majar mode to "text-mode", not fundamental
(setq-default major-mode 'text-mode)

;; 關閉 emacs啟動時候提示信息
;; never show startup message
(setq inhibit-startup-message t)

;; 去掉滾動條
;; donot show scroll bar
(scroll-bar-mode nil)

;; 狀態欄裏面顯示時間
(setq display-time-day-and-date t)
(setq display-time-24hr-format t)
(setq display-time-format "%Y-%m-%d %H:%M:%S")
(display-time)

;; 顯示行列信息
(setq column-number-mode t)
(setq line-number-mode t)
;;(require 'display-line-number)
;;(global-display-line-number-mode 1)
;;(setq display-line-number-format "%4d|")

;;设置显示行号
(global-linum-mode nil)

;; 高亮顯示選擇區域
(setq-default transient-mark-mod t)
(transient-mark-mode t)

;; 高量顯示括號匹配,括号匹配时显示另外一边的括号，而不是烦人的跳到另一个括号。
(show-paren-mode t)
(setq show-paren-highlihgt-openparen t)
(setq show-paren-style 'parenthesis)

;; 自動載入圖片
(auto-image-file-mode t)

;; 80個字符自動換行
;;(setq default-fill-column 80)

;; 標題名字
(setq frame-title-format "神之编辑@%b")
;(setq frame-title-format "神的编辑器@%b %f")

;; tab鍵
;; in some mode, tab is define to do other thing
(global-set-key[C-tab] "\C-q\t")

;; emacs 啟動占 CPU巨高解決方案
(setq semantic-idle-scheduler-idle-time 432000)

;光标靠近鼠标指针时，让鼠标指针自动让开，别挡住视线。很好玩阿，这个功能
(mouse-avoidance-mode 'animate)

;支持emacs和外部程序的粘贴
(setq x-select-enable-clipboard t)

;不要在鼠标点击的那个地方插入剪贴板内容。我不喜欢那样，经常把 我的文档搞的一团糟。我觉得先用光标定位，然后鼠标中键点击要好 的多。不管你的光标在文档的那个位置，或是在 minibuffer，鼠标 中键一点击，X selection 的内容就被插入到那个位置。
(setq mouse-yank-at-point t)

;用一个很大的 kill ring. 这样防止我不小心删掉重要的东西。我很 努莽的，你知道 :P
(setq kill-ring-max 200)

;设置有用的个人信息。这在很多地方有用。
;Personal information
(setq user-full-name "Wang Chengyi")
(setq user-mail-address "[e-mail]")

;防止页面滚动时跳动， scroll-margin 3 可以在靠近屏幕边沿3行时就开始滚动，可以很好的看到上下文。
(setq scroll-margin 3
scroll-conservatively 10000)

;设置 sentence-end 可以识别中文标点。不用在 fill 时在句号后插 入两个空格。
(setq sentence-end "\\([。！？]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*")
(setq sentence-end-double-space nil)

;;Font
;(set-default-font "10x20")

;;设置中文语言环境
;;(set-language-environment 'Chinese-GB)

;;写文件的编码方式
;;(set-buffer-file-coding-system 'gb2312)
(set-buffer-file-coding-system 'utf-8)

;;新建文件的编码方式
;;(setq default-buffer-file-coding-system 'gb2312)
(setq default-buffer-file-coding-system 'utf-8)

;;终端方式的编码方式
(set-terminal-coding-system 'utf-8)

;;键盘输入的编码方式
;;(set-keyboard-coding-system 'gb2312)

;;读取或写入文件名的编码方式
(setq file-name-coding-system 'utf-8)

;;语法高亮,默认禁止的设置
(global-font-lock-mode t)
(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)

;;按f11让Emacs进入全屏显示
;;参考： <
(defun toggle-fullscreen (&optional f)
(interactive)
(let ((current-value (frame-parameter nil 'fullscreen)))
(set-frame-parameter nil 'fullscreen
(if (equal 'fullboth current-value)
(if (boundp 'old-fullscreen) old-fullscreen nil)
(progn (setq old-fullscreen current-value)
'fullboth)))))
(global-set-key [f11] 'toggle-fullscreen)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; muse.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-to-list 'load-path "~/.emacs.d/site-lisp/muse-3.20/lisp")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; color setting
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 指针颜色设置为白色
;;(set-cursor-color "white")
;; 鼠标颜色设置为白色
;;(set-mouse-color "white")
;; 设置背景颜色和字体颜色
;(set-foreground-color "white")
;(set-background-color "darkblue")
;; 设置另外一些颜色：语法高亮显示的背景和主题，区域选择的背景和主题，二次选择的背景和选择
;(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")))
;(load-file “C:/Program Files/Emacs/color-theme.el”)
;(color-theme-blue-mood);选择 darkblue的配色方案
;(load-file “C:/Program Files/Emacs/fontset-win.el”)
;(load “fontset-win”)
;(huangq-fontset-monaco 11)

(add-to-list 'load-path "~/.emacs.d/site-lisp/color-theme-6.6.0")
(require 'color-theme)



;; ;; ;; ;; ;;
(defun insert-comment-trac ()
"插入trac的xml注释"
(interactive)
(insert "{{{
#!xml

}}}"))
(global-set-key (kbd "C-}") 'insert-comment-trac)

(defun insert-comment-trac-2 ()
(interactive)(insert "{{{}}}"))
(global-set-key (kbd "C-{") 'insert-comment-trac-2)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; trac-wiki
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(add-to-list 'load-path "~/.emacs.d/site-lisp/trac-wiki")
(require 'trac-wiki)
;(autoload 'trac-wiki "trac-wiki"
;   "Trac wiki editing entry-point." t)
;; ou
;(add-to-list 'load-path "~/.emacs.d/site-lisp/trac")
;(require 'trac)