New Environment

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-") '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烦死了...

哎....

加油吧少年...