我的Emacs配置文件

julley

;;; 设置backspace键为删除键，默认按此键会出现帮助
(global-set-key "\C-h" 'backward-delete-char-untabify)
(global-set-key "\d" 'delete-char)

;;; 禁用启动信息
(setq inhibit-startup-message t)

;;; 设置tab的宽度
(setq-default tab-width 4)
(setq c-basic-offset 4)
(setq fill-column 70)
;;; 状态栏显示设置
(display-time-mode t)
(column-number-mode t)

;;; 高亮显示选中块
(transient-mark-mode t)

;;; 支持外部复制粘贴
(setq x-select-enable-clipboard t)

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

;;; 设置显示底边栏(时间，行列号)，字体
;;; (setq display-time-day-and-date t)
(display-time-mode 1)
(setq display-time-24hr-format t)
(setq display-time-use-mail-icon t) ;; 邮件设置图标
(setq frame-title-format "LavenLiu@%b")

;;; GDB设置，多窗口GDB
(setq gdb-many-windows t)

;;; 开启语法高亮
(global-font-lock-mode t)

;;; 设置用'y'或'n'代替'yes'或'no'
(fset 'yes-or-no-p 'y-or-n-p)
;;; yasnippet setting
(add-to-list 'load-path "~/.emacs.d/elpa/yasnippet")
(require 'yasnippet)
(yas/global-mode 1)

;;; 禁用自动保存
(setq auto-save-default nil)
(setq make-backup-files nil)

;;; 语言配置，避免出现多语言混乱。
(set-buffer-file-coding-system 'utf-8)
(set default-buffer-file-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-language-environment 'UTF-8)
(set-locale-environment "UTF-8")
;;; 自定义设置
(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.
'(ansi-color-faces-vector
   [default default default italic underline success warning error])
'(ansi-color-names-vector
   ["black" "red3" "ForestGreen" "yellow3" "blue" "magenta3" "DeepSkyBlue" "gray50"])
'(auto-image-file-mode t)
'(auto-save-default nil)
'(c-label-minimum-indentation 4)
'(column-number-mode t)
'(compile-command "gcc -g -o")
'(current-language-environment "UTF-8")
'(custom-enabled-themes (quote (light-blue)))
'(display-time-mode t)
'(ede-auto-add-method (quote always))
'(global-semantic-highlight-edits-mode t)
'(global-semantic-highlight-func-mode t)
'(global-semantic-idle-completions-mode t nil (semantic/idle))
'(image-animate-loop t)
'(jde-jdk-registry (quote (("1.8.0_65" . "/usr/local/jdk"))))
'(make-backup-files nil)
'(org-completion-use-ido t)
'(org-modules
   (quote
    (org-bbdb org-bibtex org-ctags org-docview org-gnus org-info org-irc org-mhe org-rmail org-w3m org-eshell org-mew org-toc)))
'(org-startup-with-inline-images t)
'(org-use-fast-todo-selection t)
'(package-archives
   (quote
    (("gnu" . "http://elpa.gnu.org/packages/")
     ("melpa" . "http://melpa.org/packages/"))))
'(safe-local-variable-values (quote ((TeX-master . t))))
'(semantic-default-submodes
   (quote
    (global-semantic-decoration-mode global-semantic-idle-completions-mode global-semantic-idle-scheduler-mode global-semanticdb-minor-mode global-semantic-idle-summary-mode global-semantic-mru-bookmark-mode)))
'(semantic-idle-scheduler-idle-time 3)
'(send-mail-function (quote smtpmail-send-it))
'(show-paren-mode t)
'(smtpmail-smtp-server "smtp.163.com")
'(smtpmail-smtp-service 25)
'(vc-annotate-color-map
   (quote
    ((20 . "#ab4642")
     (50 . "#dc9656")
     (80 . "#f7ca88")
     (110 . "#a1b56c")
     (140 . "#86c1b9")
     (170 . "#7cafc2")
     (200 . "#ba8baf")
     (230 . "#a16046")
     (260 . "#181818")
     (290 . "#282828")
     (320 . "#383838")
     (350 . "#585858"))))
'(vc-annotate-very-old-color "#585858"))
(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.
'(default ((t (:family #("新宋体" 0 3 (charset chinese-gbk)) :foundry "outline" :slant normal :weight normal :height 120 :width normal)))))

;;; 高亮显示选中区域
(transient-mark-mode t)

;;; 设置光标和指针颜色
(set-cursor-color "red")
(set-mouse-color "goldenrod")

;;; 设置选中区域的颜色
(set-face-background 'region "yellow")

;;; 在文件末尾添加一空白行
(setq require-final-newline t)
(setq track-eol t)

;;; 自动补全模式设置
(add-to-list 'load-path "~/.emacs.d/elpa/auto-complete")
(require 'auto-complete)

;;; Python编程环境配置，使用Jedi
(add-to-list 'load-path "~/.emacs.d/elpa/python-environment")
(add-to-list 'load-path "~/.emacs.d/elpa/jedi")
(add-to-list 'load-path "~/.emacs.d/elpa/jedi-core")
(add-to-list 'load-path "~/.emacs.d/elpa/virtualenv")
(add-to-list 'load-path "~/.emacs.d/elpa/ctable")
(add-to-list 'load-path "~/.emacs.d/elpa/concurrent")
(add-to-list 'load-path "~/.emacs.d/elpa/deferred")
(add-to-list 'load-path "~/.emacs.d/elpa/epc")
(add-to-list 'load-path "~/.emacs.d/elpa/popup")
(require 'popup)
(require 'ctable)
(require 'concurrent)
(require 'epc)
(add-hook 'python-mode-hook 'jedi:setup)
(autoload 'jedi:setup "jedi" nil t)
(setq jedi:complete-on-dot t)
(require 'cedet)
(global-ede-mode 1)

;; ===============================================
;; 我的自定义快捷键
(global-set-key (kbd "M-g") 'goto-line)
(global-set-key "\C-\\" 'set-mark-command)
;; easy keys for split windows
(global-set-key (kbd "M-3") 'delete-other-windows) ; [Alt+] unsplit all
(global-set-key (kbd "M-4") 'split-window-below)
(global-set-key (kbd "M-$") 'split-window-right)
(global-set-key (kbd "M-RET") 'other-window) ; [Alt+Return] move cursor to next pane
(global-set-key (kbd "M-0") 'delete-window)  ; remove current pane