first commit: my emacs script & configuration file.

Author: crazycode

.gitignore

@@ -0,0 +1,8 @@
+#*#
+*~
+/auto-save-list
+/backups
+*.elc
+/**/*.elc
+.svn
+tramp

INSTALL.txt

@@ -0,0 +1,48 @@
+安装方法：
+1、从svn或copy得到emacs.d目录，放到~目录下，重命名为.emacs.ext
+2、修改.emacs，加入以下内容(或参考sample.emacs)：
+(load "~/.emacs.ext/plugins/subdirs.el")
+(mapc 'load (directory-files "~/.emacs.ext/config" t "\.el$")) 
+
+
+
+目前包括以下插件：
+1、emacs on rails (包括需要的ruby-mode/snippet/find-recursive)
+2、mmm-mode  
+3、color-theme (http://download.gna.org/color-theme/ 6.6.0)
+4、psvn
+5、yaml-mode (svn: http://svn.clouder.jp/repos/public/yaml-mode/trunk/  #151)
+
+很多时候,emacs并不是按照你的想像去启动的.你会发现它可能启动后占据了两个或更多窗口.或者,你喜欢全屏工作方式,但每次启动后最大化总是一件很麻烦的事情.在日常应用中,我总结了以下两种方法,
+第一种方法:
+在你的 ~/.Xdefaults 中增加下面这行
+Emacs.geometry: 80x30
+然后运行 xrdb ~/.Xdefaults
+这样emacs的启动窗口就被设为80列x30行的大小
+你可以按照自己的要求设置
+Emacs.geometry: WIDTHxHEIGHT+XOFF+YOFF
+其中WIDTH, HEIGHT分别表示窗口的宽度和高度，可选的XOFF和YOFF表示启动窗口的左上角座标。
+例如：
+Emacs.geometry: 80x30+20+10
+表示令窗口大小为80x30，启动后左上角处于(20,10)处,很简单,不是么
+
+第二种方法:
+在配置文件中配置,配置文件通常在你的用户目录,为.emacsrc.
+加入下面一行:
+(setq default-frame-alist
+'((height . 35) (width . 100) (menu-bar-lines . 20) (tool-bar-lines . 0)))
+由于后一种是写在配置文件中的,所以相对来说比较方便.比较方便
+
+===================================
+对于T43，为了使用右Alt，修改为使用backford键映射为windows键，需要一段时间来熟悉：
+Windows Registry Editor Version 5.00
+
+[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]
+"Scancode Map"=hex:00,00,00,00,00,00,00,00,02,00,00,00,5c,e0,6a,e0,00,00,00,00
+
+这是映射右alt为windows的方法:
+Windows Registry Editor Version 5.00
+
+[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout]
+"Scancode Map"=hex:00,00,00,00,00,00,00,00,01,00,00,00,5b,e0,38,e0,00,00,00,00
+

config/01base/basesetup.el

@@ -0,0 +1,155 @@
+;;启用部分补全功能，如输入M-x q r r相当于M-x query-replace-regexp
+(partial-completion-mode 1)
+;;在minibuffer里启用自动补全函数和变量
+(icomplete-mode 1)
+;;所有的问题用y/n方式，不用yes/no方式。有点懒，只想输入一个字母
+(fset 'yes-or-no-p 'y-or-n-p)
+;;允许minibuffer自由变化其大小（指宽度）
+(setq resize-mini-windows t)
+;;当寻找一个同名的文件，自动关联上那个文件？
+(setq uniquify-buffer-name-style 'forward)
+;;在emacs读man文档时，使用当前buffer
+(setq Man-notify-method 'pushy)
+;;鼠标自动避开指针，如当你输入的时候，指针到了鼠标的位置，鼠标有点挡住视线了
+(mouse-avoidance-mode 'animate)
+;;允许自动打开图片，如wiki里面
+(auto-image-file-mode)
+;;可以操作压缩文档
+;;(auto-compression-mode 1)
+;;在minibuffer上面可以显示列号
+(column-number-mode t)
+;;显示默认的文档的宽度，看起来比较舒服？
+;;(setq default-fill-column 60)
+
+;;设置光标为短线
+(setq-default cursor-type 'bar)
+
+;;指针不要闪，我得眼睛花了
+;;(blink-cursor-mode -1)
+
+(transient-mark-mode 1)
+
+;;当指针到一个括号时，自动显示所匹配的另一个括号
+(show-paren-mode 1)
+;;是用滚轴鼠标
+(mouse-wheel-mode t)
+;;去掉烦人的警告铃声
+(setq visible-bell nil)
+;;滚动页面时比较舒服，不要整页的滚动
+(setq scroll-step 1
+scroll-margin 3
+scroll-conservatively 10000)
+;;设定句子结尾，主要是针对中文设置
+(setq sentence-end "\\([¡££¡£¿]\\|¡¡\\|[.?!][]\"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*")
+(setq sentence-end-double-space nil)
+;;去掉Emacs和gnus启动时的引导界面
+(setq inhibit-startup-message t)
+(setq gnus-inhibit-startup-message t)
+;;当指针移到另一行，不要新增这一行？d
+(setq next-line-add-newlines nil)
+;;在文档最后自动插入空白一行，好像某些系统配置文件是需要这样的
+(setq require-final-newline t)
+(setq track-eol t)
+;;使用C-k删掉指针到改行末的所有东西
+(setq-default kill-whole-line t)
+;;设定删除保存记录为200，可以方便以后无限恢复
+(setq kill-ring-max 200)
+;;增大使用查找函数和变量的寻找范围
+(setq apropos-do-all t)
+;;是用aspell程序作为Emacs的拼写检查成学
+;;(setq-default ispell-program-name "aspell")
+;;使用narrow功能时的一个设置
+(put 'narrow-to-region 'disabled nil)
+;;改变emacs标题栏的标题
+;;(setq frame-title-format "%[email protected]")
+;;允许emacs和外部其他程序的粘贴
+(setq x-select-enable-clipboard t)
+
+
+(desktop-save-mode 1)
+
+;; 默认工作目录
+(setq default-directory "~/work")
+
+;;去掉工具栏
+(tool-bar-mode nil)
+
+;;备份设置
+;;emacs还有一个自动保存功能，默认在~/.emacs.d/auto-save-list里，这个非常有用，我这里没有改动，具体可以参见Sams teach yourself emacs in 24hours(我简称为sams24)
+;;启用版本控制，即可以备份多次
+(setq version-control t)
+;;备份最原始的版本两次，记第一次编辑前的文档，和第二次编辑前的文档
+(setq kept-old-versions 2)
+;;备份最新的版本五次，理解同上
+(setq kept-new-versions 5)
+;;删掉不属于以上7中版本的版本
+(setq delete-old-versions t)
+;;设置备份文件的路径
+(setq backup-directory-alist '(("." . "~/.emacs.ext/tmp")))
+;;备份设置方法，直接拷贝
+(setq backup-by-copying t)
+
+ ;; 所有的备份文件转移到~/backups目录下
+(setq backup-directory-alist (quote (("." . "~/.emacs.ext/tmp"))))
+;; Emacs 中，改变文件时，默认都会产生备份文件(以 ~ 结尾的文件)。可以完全去掉
+;; (并不可取)，也可以制定备份的方式。这里采用的是，把所有的文件备份都放在一
+;; 个固定的地方("~/var/tmp")。对于每个备份文件，保留最原始的两个版本和最新的
+;; 五个版本。并且备份的时候，备份文件是复本，而不是原件。
+
+;;不产生备份文件
+;;(setq make-backup-files nil)
+
+;;默认用空格代替tab
+(setq-default indent-tabs-mode nil)
+
+;;使用快速buffer切换
+(iswitchb-mode 1)
+
+;;在标题栏显示当前buffer所有位置
+(setq frame-title-format '("Emacs@"system-name": %b %+%+ %f"))
+
+;;设置在双栏模式下自动折行显示
+(setq truncate-partial-width-windows nil)
+
+;设定用户信息
+(setq user-full-name "Tang Liqun")
+(setq user-mail-address "[email protected]")
+;设置地理位置
+(setq calendar-latitude 31.22)
+(setq calendar-longitude 121.48)
+(setq calendar-location-name "Shanghai")
+
+;;加入行号显示
+(require 'linum)
+
+;;高亮当前行
+;;(global-hl-line-mode 1)
+
+;;;设置c-o,这样在一行中的任何位置就可以直接新建一行了。相当于先c-e再enter
+(global-set-key (kbd "C-o")
+            '(lambda ()
+               (interactive)
+               (end-of-line 1)
+               (newline-and-indent)))
+
+;;对付重名 buffer
+(require 'uniquify)
+(setq uniquify-buffer-name-style 'forward)
+
+(split-window-horizontally)
+(enlarge-window-horizontally 15)
+
+;;(auto-revert-mode t)
+(global-auto-revert-mode)
+
+;;加强c-x c-b (buffer list)的功能，用起来和目录差不多, 按 g 刷新
+(require 'ibuffer)
+(global-set-key (kbd "C-x C-b") 'ibuffer)
+(autoload 'ibuffer "ibuffer" "List buffers." t)
+
+(ansi-color-for-comint-mode-on)
+
+;;你是不是经常按 C-y 放进一个 kill-ring 里的单元。然后 M-y，M-y，…… 来寻找你需要的很久以前剪切下来的东西？很费事吧？用了 browse-kill-ring 就好了。你只需要把它绑定到一个热键，比如 C-c k: 就能出现这样一个buffer
+;;(require 'browse-kill-ring)
+;;(global-set-key [(control c)(k)] 'browse-kill-ring)
+

config/01base/color-theme.el

@@ -0,0 +1,13 @@
+(require 'color-theme)  
+(color-theme-initialize)  
+
+;;(color-theme-jsc-dark)
+
+;;(color-theme-dark-laptop)   ;;2008-02-22
+
+;;(color-theme-gnome2)  
+;;(color-theme-dark-blue) 
+;;(color-theme-tty-dark)
+;;(color-theme-comidia)  ;;2008-03-01
+
+(color-theme-blue)

config/01base/font.el

@@ -0,0 +1,11 @@
+(set-default-font "DejaVu Sans Mono-10")
+(set-fontset-font (frame-parameter nil 'font)
+          'unicode '("Microsoft YaHei" . "unicode-bmp")) 
+(set-fontset-font (frame-parameter nil 'font)
+          'han '("Microsoft YaHei" . "unicode-bmp"))
+(set-fontset-font (frame-parameter nil 'font)
+          'symbol '("Microsoft YaHei"  . "unicode-bmp"))
+(set-fontset-font (frame-parameter nil 'font)
+                  'cjk-misc '("Microsoft YaHei"  . "unicode-bmp"))
+(set-fontset-font (frame-parameter nil 'font)
+                  'bopomofo '("Microsoft YaHei"  . "unicode-bmp")) 

config/01base/git-model.el

@@ -0,0 +1 @@
+(require 'git-emacs)

config/01base/my-extends.el

@@ -0,0 +1,116 @@
+(defun circle-windows ()
+  (interactive)
+  (let ((owindow (selected-window))
+	(obuffer (current-buffer))
+	)
+    (while (not (equal owindow (next-window)))
+      (set-window-buffer (selected-window) (window-buffer (next-window)))
+      (select-window (next-window)))
+    (set-window-buffer (selected-window) obuffer)
+    (select-window owindow)))
+
+(defun move-region-around (direction beg end)
+  (let (real-beg
+	real-end
+	target-beg
+	deactivate-mark
+	text)
+    (save-excursion
+      (goto-char beg)
+      (setq real-beg (line-beginning-position))
+      
+      (when (equal direction 'up)
+        (setq target-beg (line-beginning-position 0)))
+      
+      (goto-char end)
+      (setq real-end (line-beginning-position 2))
+      
+      (when (equal direction 'down)
+        (setq target-beg (copy-marker (line-beginning-position 3)))) ;must use marker
+      
+      (setq text (buffer-substring-no-properties real-beg real-end))
+      (delete-region real-beg real-end)
+      (goto-char target-beg)
+      (insert text)
+      )
+
+    (set-mark (+ target-beg (- real-end real-beg 1)))
+    (goto-char target-beg)
+    (setq transient-mark-mode 'only)))
+
+
+(defun move-region-up (beg end)
+  (interactive "r")
+  (move-region-around 'up beg end))
+
+(defun move-region-down (beg end)
+  (interactive "r")
+  (move-region-around 'down beg end))
+
+;全屏
+(defun my-fullscreen ()
+  (interactive)
+  (x-send-client-message
+   nil 0 nil "_NET_WM_STATE" 32
+   '(2 "_NET_WM_STATE_FULLSCREEN" 0))
+)
+
+;最大化
+(defun my-maximized ()
+  (interactive)
+  (x-send-client-message
+   nil 0 nil "_NET_WM_STATE" 32
+   '(2 "_NET_WM_STATE_MAXIMIZED_HORZ" 0))
+  (x-send-client-message
+   nil 0 nil "_NET_WM_STATE" 32
+   '(2 "_NET_WM_STATE_MAXIMIZED_VERT" 0))
+)
+
+;; author: pluskid
+;; 调用 stardict 的命令行接口来查辞典
+;; 如果选中了 region 就查询 region 的内容，
+;; 否则就查询当前光标所在的词
+(global-set-key (kbd "C-c d") 'kid-star-dict)
+(defun kid-star-dict ()
+  (interactive)
+  (let ((begin (point-min))
+        (end (point-max)))
+    (if mark-active
+        (setq begin (region-beginning)
+              end (region-end))
+      (save-excursion
+        (backward-word)
+        (mark-word)
+        (setq begin (region-beginning)
+              end (region-end))))
+    ;; 有时候 stardict 会很慢，所以在回显区显示一点东西
+    ;; 以免觉得 Emacs 在干什么其他奇怪的事情。
+    (message "searching for %s ..." (buffer-substring begin end))
+    (tooltip-show
+     (shell-command-to-string
+      (concat "sdcv -n "
+              (buffer-substring begin end))))))
+
+
+;;插入日期时间
+;;{{{
+;; insert current date
+(defun my-insert-date ()
+  (interactive)
+  (insert (format-time-string "%Y-%m-%d %a")))
+
+;; insert current time
+(defun my-insert-time ()
+  (interactive)
+  (insert (format-time-string "%p %I:%M")))
+
+(global-set-key "\C-c\C-d" 'my-insert-date)
+(global-set-key "\C-c\C-t" 'my-insert-time)
+
+;启动时最大化
+(my-maximized) 
+(global-set-key [\C-f11] 'my-fullscreen)
+
+(global-set-key (quote [M-up]) (quote move-region-up))
+(global-set-key (quote [M-down]) (quote move-region-down))
+(global-set-key "\C-c\C-c2" 'circle-windows)

config/01base/smart-find.el

@@ -0,0 +1,3 @@
+(load "smart-find") 
+(setq smart-find-file-path 
+'("~" "~/work" "~/jwork" "~/practice"))