.emacs 配置

 

    这两天整emacs，做了些配置，尚未完善，先贴出来，到其他地方先用着。。。嗯，部分可用吧。。。

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Barton's .emacs start

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; load plugin

 

(add-to-list ' load-path "~/.emacs.d/")

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

;;允许使用C-z作为命令前缀

(define-prefix-command 'ctl-z-map)

(global-set-key (kbd "C-z") 'ctl-z-map)

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Edit this file quickly

 

;; 快速打开这个文件

;用C-c C-e 快速打开~/.emacs文件。

(defun open-init-file ( )

  (interactive)

  (find-file "~/.emacs"))

 

(global-set-key "\C-z\C-e" 'open-init-file)

 

;; 马上生效

;; 光标处前一句： C-x C-e

;; 整个Buffer：M-x eval-buffer<Enter>

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; GUI Config

 

;; 去掉 菜单栏

;(menu-bar-mode nil)

 

;; 去掉 工具栏

(tool-bar-mode nil)

 

;; 启动tab页(ctab插件)

(require 'ctab)

(ctab-mode t)

;;; 如果需要让.h文件和.c/.cpp文件排在一起，则增加下面一行:

(setq ctab-smart t)

;; 绑定到C-<Tab>

(global-set-key (kbd "<C-tab>") 'ctab-next)

(global-set-key (kbd "<C-M-tab>") 'ctab-previous)

 

;; 去掉 滚动条

(scroll-bar-mode nil)

 

;; 显示 行列号

(column-number-mode t)

 

;; 显示 行号(line-num.el)

(global-linum-mode 1)

 

;; 显示 列号

(setq mouse-yank-at-point t)

 

;; 显示 括号匹配

(show-paren-mode t)

 

;;以 y/n 替代 yes/no

(fset 'yes-or-no-p 'y-or-n-p)

 

;; 字体

(set-frame-font "微软雅黑-13")

 

;; emacs-color-theme plugin

(require 'color-theme)

(color-theme-initialize)

(color-theme-robin-hood)

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Base Config

 

;; 不 生成 临时文件

(setq-default make-backup-files nil)

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 时间 设置

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

;;启用时间显示设置，在minibuffer上面的那个杠上（忘了叫什么来着）

(display-time-mode 1)

;;时间使用24小时制

(setq display-time-24hr-format t)

;;时间显示包括日期和具体时间

(setq display-time-day-and-date t)

;;显示时间，格式如下

(display-time-mode 1)

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 编辑

 

;;系统剪贴板快捷键（C-c C-c复制，C-c C-v粘贴）

(global-set-key "\C-c\C-c" 'clipboard-kill-ring-save)

(global-set-key "\C-c\C-v" 'clipboard-yank)

 

;; Redo

(global-set-key ( kbd "C-.") 'redo)

 

;;C-Space被输入法占用，改用C-c m来标记文本块

(global-set-key "\C-cm" 'set-mark-command)

 

;;启用ibuffer支持，增强*buffer*

(global-set-key (kbd "C-x C-b") 'ibuffer)

 

;; 设置背景颜色和字体颜色

;;(set-foreground-color "white")

;;(set-background-color "black")

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Base Config

 

;; 不 生成 临时文件

(setq-default make-backup-files nil)

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 时间 设置

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

;;启用时间显示设置，在minibuffer上面的那个杠上（忘了叫什么来着）

(display-time-mode 1)

;;时间使用24小时制

;;(setq display-time-24hr-format t)

;;时间显示包括日期和具体时间

(setq display-time-day-and-date t)

;;显示时间，格式如下

(display-time-mode 1)

;;(setq display-time-24hr-format t)

(setq display-time-day-and-date t)

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 编辑

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

;;系统剪贴板快捷键（C-c C-c复制，C-c C-v粘贴）

(global-set-key "\C-c\C-c" 'clipboard-kill-ring-save)

(global-set-key "\C-c\C-v" 'clipboard-yank)

 

;; Redo

(global-set-key ( kbd "C-.") 'redo)

 

;;C-Space被输入法占用，改用C-c m来标记文本块

(global-set-key "\C-cm" 'set-mark-command)

 

;;启用ibuffer支持，增强*buffer*

(global-set-key (kbd "C-x C-b") 'ibuffer)

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; Buffer

 

;;关闭当前缓冲区 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)

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 代码 折叠

(add-hook 'c-mode-common-hook 'hs-minor-mode)

(add-hook 'emacs-lisp-mode-hook 'hs-minor-mode)

(add-hook 'java-mode-hook 'hs-minor-mode)

(add-hook 'ess-mode-hook 'hs-minor-mode)

(add-hook 'python-mode-hook 'hs-minor-mode)

(add-hook 'sh-mode-hook 'hs-minor-mode)

 

;; 折叠块

(global-set-key (kbd "C-z C-x") 'hs-hide-all)

(global-set-key (kbd "C-z C-a") 'hs-show-all)

(global-set-key (kbd "C-z C-z") 'hs-toggle-hiding)

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; 自动补全(auto-complete插件)

(require 'auto-complete-config)

(add-to-list 'ac-dictionary-directories "~/.emacs.d//ac-dict")

(ac-config-default)

 

;; yasnippet

(add-to-list 'load-path "/usr/share/emacs/site-lisp/yas")

(require 'yasnippet) ;; not yasnippet-bundle

(yas/initialize)

(yas/load-directory "/usr/share/emacs/site-lisp/yas/snippets")

 

;;==============================================================

;; Python START

;;==============================================================

 

;; pymacs

(autoload 'pymacs-apply "pymacs")

(autoload 'pymacs-call "pymacs")

(autoload 'pymacs-eval "pymacs" nil t)

(autoload 'pymacs-exec "pymacs" nil t)

(autoload 'pymacs-load "pymacs" nil t)

(eval-after-load "pymacs"  '(add-to-list 'pymacs-load-path "/usr/lib/python3.2/site-packages/Pymacs/"))

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; pycomplete start

 

;; python-mode settings

(setq auto-mode-alist (cons '("\\.py$" . python-mode) auto-mode-alist))

(setq interpreter-mode-alist(cons '("python" . python-mode)

                             interpreter-mode-alist))

 

;; path to the python interpreter, e.g.: ~rw/python31/bin/python3

(setq py-python-command "python3")

(autoload 'python-mode "python-mode" "Python editing mode." t)

 

;; pymacs settings

(setq pymacs-python-command py-python-command)

(autoload 'pymacs-load "pymacs" nil t)

(autoload 'pymacs-eval "pymacs" nil t)

(autoload 'pymacs-apply "pymacs")

(autoload 'pymacs-call "pymacs")

 

(require 'pycomplete)

;; pycomplete end

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

;; ropemacs  now, the plugin not support python3.2

;(require 'pymacs)

;(pymacs-load "ropemacs" "rope-")

;(pymacs-load '"ropemacs")

;(pymacs-load "rope")

 

;;==============================================================

;; Python END

;;==============================================================

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; Barton's .emacs end

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;