From http://blog.csdn.net/jerrydung/article/details/8296900 , 加了些自己的改动。
.emacs:
(setq default-tab-width 2);;缩进
(cua-mode t);;windows 快捷键
(global-set-key (kbd "RET") 'newline-and-indent);;自动缩进
(global-set-key (kbd "C-s") 'save-buffer)
(global-set-key (kbd "C-a") 'mark-whole-buffer)
(global-set-key (kbd "C-o") 'find-file)
(global-set-key (kbd "C-w") 'kill-buffer)
(global-set-key (kbd "C-<tab>") 'other-window)
(global-set-key [f7] 'shell-command);;用来运行什么的
(global-set-key [C-f7] 'gdb)
(global-set-key (kbd "C-f") 'search)
(set-background-color "gray19")
(set-foreground-color "wheat")
(set-cursor-color "wheat")
(set-mouse-color "wheat")
(set-default-font "Consolas-15")
(global-font-lock-mode t);;高亮
(global-linum-mode t)
(global-auto-revert-mode t)
(custom-set-variables '(inhibit-startup-screen t));;免滚动栏
(tool-bar-mode nil);;免工具栏
(show-paren-mode 1);;括号匹配
(fset 'yes-or-no-p 'y-or-n-p);;酱油的
(setq x-select-enable-clipboard t);;外部拷贝
(setq make-backup-files nil)
(add-to-list 'load-path "~/.emacs.d/")
(require 'color-theme)
(color-theme-initialize)
(color-theme-tangotango);;https://github.com/juba/color-theme-tangotango
(global-set-key [C-f11] 'loop-alpha)
(setq alpha-list '((85 55) (100 100)));;以下设置透明(Gnome/KDE/外部工具 + Emacs24可用)
(defun next-alpha ()
(let ((current-alpha
(or (frame-parameter (selected-frame) 'alpha)
(first alpha-list)))
(lst alpha-list))
(or (second
(catch 'alpha
(while lst
(when (equal (first lst) current-alpha)
(throw 'alpha lst))
(setf lst (cdr lst)))))
(first alpha-list))))
(defun loop-alpha ()
(interactive)
(let ((new-alpha (next-alpha))
(current-default (assoc 'alpha default-frame-alist)))
(set-frame-parameter (selected-frame) 'alpha new-alpha)
(if current-default
(setcdr current-default new-alpha)
(add-to-list 'default-frame-alist (cons 'alpha new-alpha)))))
(图片显示不完全球破...(新标签页查看)
桌面在此:http://sns.xiaomei.cc/attachment/temp/img/2010/11/1000/574/img/img_1289833274_40.jpg
YYZ还是很漂亮的。个人感觉还可以什么的。)
最近 效率好低...Qtree4烦死了...
哎....
加油吧少年...