C++博客-3D FPS -随笔分类-emacs

  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 ;; 动态加载的代码
15 ;; M-x load-file,
16 ;; M-x eval-buffer
17
18 ;关闭启动画面
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 ;;设置个人信息
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插件，这个可以使你在用C-x C-f打开文件的时候在后面有提示
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 ;;默认的分组方法并不是每个人都喜欢，它会把后缀名相同的文件分为一组，
75 ;;比如说perl脚本都扔在一个组里，yaml文件又扔在另一个组里。写代码的时候，
76 ;;在这两个组里切换实在是太麻烦了！我就喜欢把除了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 ;;显示时间
96 (display-time)
97
98 ;;显示行号
99 (column-number-mode t)
100 (show-paren-mode t)
101
102 ;;去掉工具栏
103 (tool-bar-mode nil)
104
105 ;;去掉菜单栏
106 ;;ctrl+鼠标右键可以按出菜单
107 ;;(menu-bar-mode nil)
108
109 ;;去掉滚动条
110 (set-scroll-bar-mode nil)
111
112 ;;关闭烦人的出错时的提示声
113 (setq visible-bell t)
114
115 ;;滚动页面时比较舒服，不要整页的滚动
116 (setq     scroll-step 1
117 scroll-margin 3
118 scroll-conservatively 10000)
119
120 ;在标题栏显示buffer的名字
121 (setq frame-title-format "%b@emacs")
122
123 ;;设置默认工作目录
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 ;;动态增加减少字体大小
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插件，显示行号
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)