我的emacs配置文件

;; .emacs
;; ============================== Basic Configure START =====================================
;; set TAB=4 for C
;;(setq c-basic-offset 4)
;;
;; show colume number
;;(setq column-number-mode t) ;; kill the buffer imediate
(global-set-key (kbd "C-x k") 'kill-this-buffer) ;; hide tool bar
(tool-bar-mode -1) ;; hide menu bar
(menu-bar-mode -1) ;;hide scroll bar
(scroll-bar-mode -1) ;;Move line by text line
(setq line-move-visual nil)
;;
(setq use-dialog-box nil) ;;不要在鼠标点击的那个地方插入剪贴板内容。我不喜欢那样,经常把我的文档搞的一团糟。我觉得先用光标定位,然后鼠标
(setq mouse-yank-at-point t) ;;让 Emacs 可以直接打开和显示图片。
(setq auto-image-file-mode t) ;;当你在shell、telnet、w3m等模式下时,必然碰到过要输入密码的情况,此时加密显出你的密码
(add-hook 'comint-output-filter-functions
'comint-watch-for-password-prompt) ;;允许emacs和外部其他程序的粘贴
(setq x-select-enable-clipboard t) ;;使用鼠标中键可以粘贴
(setq mouse-yank-at-point t) ;;设置有用的个人信息,这在很多地方有用。
(setq user-full-name "lkong")
(setq user-mail-address "[email protected]") ;; 自动的在文件末增加一新行
(setq require-final-newline t) ;;设置F9快捷键指定Emacs 的日历系统
(global-set-key [f9] 'calendar) ;;设置F10 快速察看日程安排
(global-set-key [f10] 'list-bookmarks) ;;让 dired 可以递归的拷贝和删除目录。
(setq dired-recursive-copies 'top)
(setq dired-recursive-deletes 'top) ;;设置[C-f9]为调用dired命令
;;(global-set-key [C-f9] 'dired) ;;取消control+space键设为mark
(global-set-key (kbd "C-SPC") 'nil) ;;这样 我就不用按 C-@ 来 setmark 了, C-@ 很不好按。
;;(global-set-key (kbd "M-<SPC>") 'set-mark-command)
(global-set-key [?\S- ] 'set-mark-command) ;; 设置备份目录。
(setq backup-directory-alist '(("." . "~/emacs_backup"))) ;; 不备份文件,不推荐
;;(setq make-backup-files nil) ;; 设置光标为竖线
(setq-default cursor-type 'box)
;; 设置光标为方块
;; (setq-default cursor-type 'box) ;; 关闭起动时的那个“开机画面”
(setq inhibit-startup-message t) ;; 加亮选中部分
(transient-mark-mode t) ;; 滚轮支持
(setq mouse-wheel-mode t) ;; 显示列号
(setq column-number-mode t)
;; 显示行号
(global-linum-mode 1) ;; 用一个很大的 kill ring
(setq kill-ring-max 200) ;; 把 fill-column 设为 60. 这样的文字更好读
(setq default-fill-column 60) ;; 括号匹配时显示另外一边的括号,而不是烦人的跳到另一个括号
;;(show-paren-mode t)
;;(setq show-paren-style 'parentheses) ;; 在标题栏显示buffer的名字,而不是 [email protected] 这样没用的提示
(setq frame-title-format "emacs@%b") ;; 把这些缺省禁用的功能打开
(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)
;; 让 dired 可以递归的拷贝和删除目录
(setq dired-recursive-copies 'top)
(setq dired-recursive-deletes 'top) ;; auto enter new line
(add-hook 'org-mode-hook (lambda () (setq truncate-lines nil))) ;; set key f11 to switch to full
(global-set-key [f11] 'my-fullscreen) ;; full screen (fset 'yes-or-no-p'y-or-n-p) ;; statment highlight
(global-font-lock-mode t) ;; use a large kill ring
(setq kill-ring-max 1024) ;; Show the corse in which function
(which-function-mode t) ;; set default tab width
(setq default-tab-width 4) ;; use space to instead TAB
(setq-default indent-tabs-mode nil) ;; enable global line number
;;(global-linum-mode 1) ;;设置M-g为goto-line
(global-set-key (kbd "M-g") 'goto-line) ;; No backup
;;(setq backup-inhibited t) ;; set color theme
(add-to-list 'load-path "~/.emacs.d/elpa/color-theme-20080305.34/")
(require 'color-theme)
(color-theme-initialize)
;;(color-theme-dark-laptop)
;;(color-theme-kingsajz)
;;(load-file "~/.emacs.d/plugins/color-theme-wombat+.el")
;;(color-theme-wombat+) ;;(load-file "~/.emacs.d/plugins/color-theme-active.el")
;;(color-theme-active)
(load-file "~/.emacs.d/plugins/color-theme-colorful-obsolescence.el")
(color-theme-colorful-obsolescence) (defun my-fullscreen ()
(interactive)
(x-send-client-message
nil 0 nil "_NET_WM_STATE" 32
'(2 "_NET_WM_STATE_FULLSCREEN" 0))
)
;; let emacs to max frame
(add-to-list 'load-path "~/.emacs.d/elpa/maxframe-20120725.639/")
(require 'maxframe)
(add-hook 'window-setup-hook 'maximize-frame t) ;;#yum install wqy-microhei-fonts.noarch first
;;(set-default-font "WenQuanYi Micro Hei Mono-19.5")
(set-default-font "WenQuanYi Zen Hei Mono-22")
;;(set-fontset-font (frame-parameter nil 'font) 'han "WenQuanYi Zen Hei Mono-24")
;;(set-fontset-font (frame-parameter nil 'font) 'gb18030 "WenQuanYi Zen Hei Mono-24")
;;(set-fontset-font (frame-parameter nil 'font) 'bopomofo "WenQuanYi Zen Hei Mono-24")
;;(set-fontset-font (frame-parameter nil 'font) 'cjk-misc "WenQuanYi Zen Hei Mono-24")
;;(set-fontset-font (frame-parameter nil 'font) 'nil "WenQuanYi Zen Hei Mono-24")
;;(set-fontset-font (frame-parameter nil 'font) 'symbol "WenQuanYi Zen Hei Mono-24")
;;(set-fontset-font (frame-parameter nil 'font) 'kana "WenQuanYi Micro Hei Mono-24") ;; transparent set
(global-set-key [(f8)] 'loop-alpha) ;;注意这行中的F8 , 可以改成你想要的按键 (setq alpha-list '((85 55) (100 100))) (defun loop-alpha ()
(interactive)
(let ((h (car alpha-list)))
((lambda (a ab)
(set-frame-parameter (selected-frame) 'alpha (list a ab))
(add-to-list 'default-frame-alist (cons 'alpha (list a ab)))
) (car h) (car (cdr h)))
(setq alpha-list (cdr (append alpha-list (list h))))
)
)
(loop-alpha) ;; ============================== Basic Configure END ====================================== ;; ============================== Color Setting START ======================================
;; ============================== Color Setting END ======================================== ;; ============================== Python IDE Configure START =============================== ;; yasnippet
(add-to-list 'load-path "~/.emacs.d/elpa/yasnippet-0.8.0/")
(require 'yasnippet)
(yas-global-mode 1) ;; auto-completion.el
(add-to-list 'load-path "~/.emacs.d/elpa/popup-20140815.629/")
(require 'popup) (add-to-list 'load-path "~/.emacs.d/elpa/auto-complete-20140824.1658/")
(require 'auto-complete-config)
(add-to-list 'ac-dictionary-directories "~/.emacs.d/elpa/auto-complete-20140824.1658/dict/")
(ac-config-default) ;; python-mode
(add-to-list 'load-path "~/.emacs.d/elpa/python-mode-6.1.3")
(require 'python-mode) ;; ipython
(add-to-list 'load-path "~/.emacs.d/elpa/ipython-2927/")
(require 'ipython) ;; python document -- start
(setq pylookup-dir "~/.emacs.d/plugins/pylookup")
(add-to-list 'load-path pylookup-dir)
(require 'pylookup) ;; load pylookup when compile time
(setq pylookup-program (concat pylookup-dir "/pylookup.py"))
(setq pylookup-db-file (concat pylookup-dir "/pylookup.db")) ;; set search option if you want
(setq pylookup-search-options '("--insensitive" "0" "--desc" "0")) ;; to speedup, just load it on demand
(autoload 'pylookup-lookup "pylookup"
"Lookup SEARCH-TERM in the Python HTML indexes." t) (autoload 'pylookup-update "pylookup"
"Run pylookup-update and create the database at `pylookup-db-file'." t)
(global-set-key "\C-ch" 'pylookup-lookup) (setq browse-url-browser-function 'w3m-browse-url)
;; python document -- end ;; anything
(add-to-list 'load-path "~/.emacs.d/elpa/anything-config-0.4.1/")
;;(require 'anything-config)
;;(add-to-list 'load-path "~/.emacs.d/elpa/anything-ipython-0.1.2009/")
;;(require 'anything-ipython)
;;(when (require 'anything-show-completion nil t)
;; (use-anything-show-completion 'anything-ipython-complete
;; '(length initial-pattern))) ;; other compeletion methon
(add-to-list 'load-path "~/.emacs.d/elpa/pylint-20140729.1117/")
(require 'pylint)
(add-to-list 'load-path "~/.emacs.d/elpa/pep8-1.2/")
(require 'pep8)
(require 'tramp) ;; 保存时自动清除行尾空格及文件结尾空行
(add-hook 'before-save-hook 'delete-trailing-whitespace) ;; cscope -- start
(add-to-list 'load-path "~/.emacs.d/elpa/xcscope-20140510.1437")
(require 'xcscope)
(cscope-setup)
;; C-c s a 设定初始化的目录,一般是你代码的根目录
;; C-s s I 对目录中的相关文件建立列表并进行索引
;; C-c s s 序找符号
;; C-c s g 寻找全局的定义
;; C-c s c 看看指定函数被哪些函数所调用
;; C-c s C 看看指定函数调用了哪些函数
;; C-c s e 寻找正则表达式
;; C-c s f 寻找文件
;; C-c s i 看看指定的文件被哪些文件include
;; cscope -- end ;; ============================== Python IDE Configure END =============================== ;; ============================== C/C++ IDE Configure END ===============================
;; 设置另外一些颜色:语法高亮显示的背景和主题,区域选择的背景和主题,二次选择的背景和选择
(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")
;; ============================== C/C++ IDE Configure END =============================== ;; ============================ Other Configure for emacs START ===============================
;;http://elpa.gnu.org/ Default. Official GNU Emacs package repository. This repository contains the minimal set, and are FSF signed.
;;http://tromey.com/elpa/ ELPA (being phased out as of 2012-07-03).
;;http://marmalade-repo.org/ Marmalade. More extensive number of packages.
;;http://melpa.milkbox.net/ MELPA. As of 2012-10-18, MELPA has most packages, and updated daily. ;;(when (>= emacs-major-version 24)
;; (require 'package)
;; (package-initialize)
;;(add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/") t)
;;(add-to-list 'package-archives '("melpa" . "http://tromey.com/elpa/packages/") t)
;;(add-to-list 'package-archives '("melpa" . "http://elpa.gnu.org/packages/") t)
;;(add-to-list 'package-archives '("melpa" . "http://marmalade-repo.org/packages/") t)
;; (add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/"))
;; )
;; All packages repo
(setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
("marmalade" . "http://marmalade-repo.org/packages/")
("melpa" . "http://melpa.milkbox.net/packages/"))) ;; ============================== ECB Configure START ===============================
(add-to-list 'load-path "~/.emacs.d/elpa/ecb-20140215.114/")
(setq ecb-tip-of-the-day nil)
(require 'ecb)
(require 'ecb-autoloads)
(setq ecb-auto-activate t)
(global-set-key [M-left] 'windmove-left)
(global-set-key [M-right] 'windmove-right)
(global-set-key [M-up] 'windmove-up)
(global-set-key [M-down] 'windmove-down) (define-key global-map [(control f1)] 'ecb-hide-ecb-windows)
(define-key global-map [(control f2)] 'ecb-show-ecb-windows)
;;(define-key global-map [(control f3)] 'ecb-change-layout "left2")
;;(define-key global-map [(control f3)] 'ecb-change-layout)
;;(define-key global-map "\C-c3" 'ecb-change-layout) (define-key global-map "\C-c1" 'ecb-maximize-window-directories)
(define-key global-map "\C-c2" 'ecb-maximize-window-sources)
(define-key global-map "\C-c3" 'ecb-maximize-window-methods)
(define-key global-map "\C-c4" 'ecb-maximize-window-history)
(define-key global-map "\C-c`" 'ecb-restore-default-window-sizes)
(global-set-key [f12] 'ecb-activate) ;; ecb activate
;;(define-key global-map "\C-c1" 'ecb-maximize-window-methods)
;;(define-key global-map "\C-c2" 'ecb-maximize-window-history)
;;(define-key global-map "\C-c`" 'ecb-restore-window-sizes) ;; Disable buckets so that history buffer can display more entries
(setq ecb-history-make-buckets 'never) (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.
'(ecb-create-layout-frame-height 10)
'(ecb-create-layout-frame-width 50)
'(ecb-layout-name "lkong")
'(ecb-layout-window-sizes nil)
'(ecb-options-version "2.40")
'(ecb-primary-secondary-mouse-buttons (quote mouse-1--mouse-2))
'(ecb-toggle-layout-sequence (quote ("lkong2" "lkong")))
'(ecb-windows-width 0.225)) ;;不显示ecbTip
;;(set-foreground-color "grey")
(set-foreground-color "grey")
(set-background-color "black")
;;(setq ecb-layout-name "left10")
(setq ecb-history-make-buckets 'never)
(setq ecb-fix-window-size t)
(ecb-activate) ;; Ecb的操作:
;; C-c . g d 目录列表窗口
;; C-c . g s 源码窗口
;; C-c . g m 方法和变量窗口
;; C-c . g h 历史窗口
;; C-c . g l 最后选择过的编辑窗口
;; C-c . g 1 编辑窗口1
;; C-c . g n 编辑窗口n
;; C-c . l c 选择版面
;; C-c . l r 重画版面
;; C-c . l t switch layout
;; C-c . l w 拴牢可见的ecb窗口
;; C-c . / 拴牢编绎窗口
;; C-c . e: jump to the eshell buffer
;; C-c . n: histroy back
;; C-c . p: histroy forwad
;; C-c .h: Show ECB help pager
;; left2: directory + source
;; left6: source + method + history
;; left8: directory + source + method + history
;; ============================== ECB Configure END ===============================
(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.
) ;; ============================ Org-mode Configure START =================================
(require 'org-install)
(require 'org-publish)
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(add-hook 'org-mode-hook 'turn-on-font-lock)
(add-hook 'org-mode-hook
(lambda () (setq truncate-lines nil))) (global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cb" 'org-iswitchb)
(global-set-key "\C-cc" 'org-remember)
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode)) ;; GTD -- start
(setq org-todo-keywords
(quote ((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)")
(sequence "SOMEDAY(s@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)")))) (setq org-todo-keyword-faces
(quote (("TODO" :foreground "red" :weight bold)
("NEXT" :foreground "blue" :weight bold)
("DONE" :foreground "forest green" :weight bold)
("SOMEDAY" :foreground "orange" :weight bold)
("HOLD" :foreground "magenta" :weight bold)
("CANCELLED" :foreground "forest green" :weight bold)))) (setq org-todo-state-tags-triggers
(quote (("CANCELLED" ("CANCELLED" . t))
("SOMEDAY" ("SOMEDAY" . t))
("HOLD" ("SOMEDAY" . t) ("HOLD" . t))
(done ("SOMEDAY") ("HOLD"))
("TODO" ("SOMEDAY") ("CANCELLED") ("HOLD"))
("NEXT" ("SOMEDAY") ("CANCELLED") ("HOLD"))
("DONE" ("SOMEDAY") ("CANCELLED") ("HOLD")))))
(setq org-directory "~/Org-mode") (global-set-key (kbd "C-c c") 'org-capture)
(setq org-capture-templates
(quote (("t" "todo" entry (file "~/Org-mode/todo.org")
;;"* TODO %?\n%a\n" :clock-in t :clock-resume t)
"* TODO %?")
("i" "idea" entry (file+datetree "~/Org-mode/idea.org")
"* %? \n")
("s" "someday" entry (file "~/Org-mode/someday.org")
"* SOMEDAY %? :SOMEDAY:\n%a\n" :clock-in t :clock-resume t)
("n" "note" entry (file "~/Org-mode/diary.org")
"* %? :NOTE:\n%a\n" :clock-in t :clock-resume t)
("w" "org-protocol" entry (file "~/Org-mode/refile.org")
"* TODO Review %c\n%U\n" :immediate-finish t)))) ;;(setq org-tag-alist '(("office" . ?o) ("home" . ?h) ("notes" . ?n) ("slide" . ?s)))
;; GTD -- end ;; Only show the last star
;;(setq org-hide-leading-stars t) ;;org mode 自动折行
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(add-hook 'org-mode-hook 'turn-on-font-lock)
(add-hook 'org-mode-hook
(lambda () (setq truncate-lines nil))) ;; Remove empty LOGBOOK drawers on clock out
(defun bh/remove-empty-drawer-on-clock-out ()
(interactive)
(save-excursion
(beginning-of-line 0)
(org-remove-empty-drawer-at "LOGBOOK" (point)))) (add-hook 'org-clock-out-hook 'bh/remove-empty-drawer-on-clock-out 'append)
(defun gtd ()
(interactive)
(find-file "~/Org-mode/todo.org")
) (global-set-key (kbd "<f12>") 'list-bookmarks) (defun insert-current-time ()
"Insert the current time"
(interactive "*")
;;(insert (format-time-string "%Y/%m/%d %H:%M:%S" (current-time))))
(insert (format-time-string "%Y-%m-%d" (current-time))))
;;(insert (format-time-string "%H:%M:%S" (current-time))))
(global-set-key "\C-xt" 'insert-current-time)
;; ============================ Org-mode Configure END ================================= ;; ============================ GTD Configure START ================================
;; ============================ GTD Configure END ================================== ;; ============================ Bugzilla Configure END ================================== ;; ============================ Org-jekyll Configure START ================================
(add-to-list 'load-path "~/.emacs.d/elpa/org-jekyll-20130508.239/")
(require 'org-jekyll) (setq org-publish-project-alist
'( ("org-ianbarton"
;; Path to your org files.
:base-directory "~/WorkSpace/dev-github/org/"
:base-extension "org" ;; Path to your Jekyll project.
:publishing-directory "~/WorkSpace/dev-github/jekyll/"
:recursive t
:publishing-function org-publish-org-to-html
:headline-levels 4
:html-extension "html"
:body-only t ;; Only export section between <body> </body>
) ("org-static-ian"
:base-directory "~/WorkSpace/dev-github/org/"
:base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf\\|php"
:publishing-directory "~/WorkSpace/dev-github/"
:recursive t
:publishing-function org-publish-attachment) ("ian" :components ("org-ianbarton" "org-static-ian"))
))
04-21 10:12