;;;C:\Documents and Settings\jims_mrs\Application Data
1 (load-file "D:/Program Files/emacs/HOME/.emacs")
2
3 ;;; Emacs Load Path
4 ;;(setq load-path (cons "D:/Program Files/emacs/HOME/.emacs" load-path))
D:\Program Files\emacs\HOME
1
2 (setenv "HOME" "D:/Program Files/emacs/HOME")
3 (setenv "PATH" "D:/Program Files/emacs/HOME")
4 ;;set the default file path
5 (setq default-directory "~/")
6 (add-to-list 'load-path "~/emacs/site-lisp")
7
8
9 ;;(server-start)
10
11
12
13
14 ;; 動(dòng)態(tài)加載的代碼
15 ;; M-x load-file,
16 ;; M-x eval-buffer
17
18 ;關(guān)閉啟動(dòng)畫面
19 (custom-set-variables
20 ;; custom-set-variables was added by Custom.
21 ;; If you edit it by hand, you could mess it up, so be careful.
22 ;; Your init file should contain only one such instance.
23 ;; If there is more than one, they won't work right.
24 '(column-number-mode t)
25 '(display-time-mode t)
26 '(inhibit-startup-screen t)
27 '(show-paren-mode t)
28 '(truncate-partial-width-windows nil))
29
30 ;;設(shè)置個(gè)人信息
31 (setq user-full-name "mrx jimsmorong")
32 (setq user-mail-address "jimsmorong@gmail.com")
33
34 ;;加載顏色
35 (require 'color-theme)
36 ;;M-x color-theme-select
37 ;;選擇哪一種顏色
38 (color-theme-comidia)
39
40 ;;加載lua mode
41 (require 'lua-mode)
42
43 ;;加載google_protobuf
44 (require 'protobuf-mode)
45
46 ;;加載CSope
47 (require 'xcscope) ;;加載xcscope
48
49 ;;加載yasnippet
50 ;;(require 'yasnippet/yasnippet) ;; not yasnippet-bundle
51 ;;(yas/initialize)
52 ;;(yas/load-directory "~/.emacs.d/plugins/yasnippet-0.6.1c/snippets")
53
54 ;;load browse-kill-ring
55 (require 'browse-kill-ring)
56 (global-set-key [(control c)(k)] 'browse-kill-ring)
57 (browse-kill-ring-default-keybindings)
58
59 ;;配置ido插件，這個(gè)可以使你在用C-x C-f打開文件的時(shí)候在后面有提示
60 ;;----------------------------------------------------------------------------------------
61 (require 'ido)
62 (ido-mode t)
63 ;;----------------------------------------------------------------------------------------
64
65
66
67
68 ;;加載tabbar.el
69 ;;------------------------------------------------------------------------------------------------------------------------------------------
70 (require 'tabbar)
71 (tabbar-mode t)
72 (global-set-key [(control shift tab)] 'tabbar-backward)
73 (global-set-key [(control tab)] 'tabbar-forward)
74 ;;默認(rèn)的分組方法并不是每個(gè)人都喜歡，它會(huì)把后綴名相同的文件分為一組，
75 ;;比如說perl腳本都扔在一個(gè)組里，yaml文件又扔在另一個(gè)組里。寫代碼的時(shí)候，
76 ;;在這兩個(gè)組里切換實(shí)在是太麻煩了！我就喜歡把除了Emacs Buffer之外的文件
77 ;;都放成一組，即我自己打開的文件放成一組
78 (setq tabbar-buffer-groups-function
79 (lambda (b) (list "All Buffers")))
80 (setq tabbar-buffer-list-function
81 (lambda ()
82 (remove-if
83 (lambda(buffer)
84 (find (aref (buffer-name buffer) 0) " '"))
85 (buffer-list))))
86
87 ;;------------------------------------------------------------------------------------------------------------------------------------------
88
89 ;;load line_number
90 ;;(set-scroll-bar-mode nil) ; no scroll bar, even in x-window system (recommended)
91 ;;(require 'wb-line-number)
92 ;;(wb-line-number-toggle)
93
94
95 ;;顯示時(shí)間
96 (display-time)
97
98 ;;顯示行號(hào)
99 (column-number-mode t)
100 (show-paren-mode t)
101
102 ;;去掉工具欄
103 (tool-bar-mode nil)
104
105 ;;去掉菜單欄
106 ;;ctrl+鼠標(biāo)右鍵 可以按出菜單
107 ;;(menu-bar-mode nil)
108
109 ;;去掉滾動(dòng)條
110 (set-scroll-bar-mode nil)
111
112 ;;關(guān)閉煩人的出錯(cuò)時(shí)的提示聲
113 (setq visible-bell t)
114
115 ;;滾動(dòng)頁面時(shí)比較舒服，不要整頁的滾動(dòng)
116 (setq scroll-step 1
117 scroll-margin 3
118 scroll-conservatively 10000)
119
120 ;在標(biāo)題欄顯示buffer的名字
121 (setq frame-title-format "%b@emacs")
122
123 ;;設(shè)置默認(rèn)工作目錄
124 (setq default-directory "D:/Program Files/emacs/mrx")
125 ;;(setq default-directory "d:/mate2/dqprotocol")
126
127 ; F5:激活speedbar
128 (global-set-key [(f5)] 'speedbar-get-focus)
129
130 ;;動(dòng)態(tài)增加減少字體大小
131 (defun sacha/increase-font-size ()
132 (interactive)
133 (set-face-attribute 'default
134 nil
135 :height
136 (ceiling (* 1.10
137 (face-attribute 'default :height)))))
138 (defun sacha/decrease-font-size ()
139 (interactive)
140 (set-face-attribute 'default
141 nil
142 :height
143 (floor (* 0.9
144 (face-attribute 'default :height)))))
145 (global-set-key (kbd "C-+") 'sacha/increase-font-size)
146 (global-set-key (kbd "C--") 'sacha/decrease-font-size)
147
148
149
150 (custom-set-faces
151 ;; custom-set-faces was added by Custom.
152 ;; If you edit it by hand, you could mess it up, so be careful.
153 ;; Your init file should contain only one such instance.
154 ;; If there is more than one, they won't work right.
155 '(default ((t (:inherit nil :stipple nil :background "Black" :foreground "SteelBlue" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight bold :height 90 :width normal :foundry "outline" :family #("微軟雅黑" 0 4 (charset chinese-gbk)))))))
156
157 ;; read pdf
158 ;;(load-file "~/dos/emacs/doc-view.el")
159 ;;(require 'doc-view)
160
161
162
163
164
165
166 ;;
167 ;;(setq gnuwin32_bin "GetGnuWin32\gnuwin32\bin")
168 (setq gnuwin32_bin "D:/Program Files/GetGnuWin32/gnuwin32/bin;")
169
170 (setenv "PATH"
171 (concat
172 gnuwin32_bin
173 (getenv "PATH")
174 )
175 )
176
177
178 (require 'doc-view)
179
180 ;;配置linum插件，顯示行號(hào)
181 ;;-----------------------------------------------------------------------------------
182 (require 'linum)
183 (global-linum-mode t)
184 ;;-----------------------------------------------------------------------------------
185
186
187 (defun my-insert-date ()
188 (interactive)
189 (insert "//")
190 (insert (user-full-name))
191 (insert "@")
192 (insert (format-time-string "%Y/%m/%d %H:%M:%S" (current-time))))
193 (global-set-key (kbd "C-c m d") 'my-insert-date)
194
195
196 (require 'cmake-mode)
將附件保存在D:\Program Files\emacs\ntemacs23\site-lisp
http://www.shnenglu.com/Files/jimsmorong/site-lisp.zip