现在的位置: 首页 > 综合 > 正文

emacs 配置文件

2013年10月22日 ⁄ 综合 ⁄ 共 8212字 ⁄ 字号 小 中 大 ⁄ 评论关闭
最近又捡起了 emacs。由于前段时间学过一段 Lisp/Scheme，发现配置和运用要得心应手得多，只是一些 VIM 下的习惯经常出来捣乱。在此贴一下配置文件吧，都是到处抄来的，以后慢慢增补。

－－－－－－－配置文件－－－－－－－－

  1. ;;; The running on system stuff.
  2. (defvar running-on-windows (memq system-type '(windows-nt cygwin)))
  3. (defvar running-on-linux (not running-on-windows))
  4. (defvar running-on-x (eq window-system 'x))
  6. ;;;
  7. (setq visible-bell t)
  9. ;;;
  10. (fset 'yes-or-no-p 'y-or-n-p)
  12. ;;; Lose the menu bar
  13. ;;(if (fboundp 'menu-bar-mode) (menu-bar-mode nil))
  14. ;;; Lose the toolbar
  15. (tool-bar-mode nil)
  16. ;;; Lose the scroll bar
  17. (set-scroll-bar-mode nil)
  18. ;;(customize-set-variable 'scroll-bar-mode 'right)
  20. (set-cursor-color "steelblue")
  21. (set-mouse-color "steelblue")
  23. ;;; Time
  24. (setq display-time-day-and-date t)
  25. (display-time)
  26. ;;
  27. (display-time-mode 1)
  28. (setq display-time-24hr-format t)
  29. (setq display-time-day-and-date t)
  30. (setq display-time-use-mail-icon t)
  31. (setq display-time-interval 10)
  33. ;;Emacs@Windows maximum
  34. ;;(w32-send-sys-command #xf030)
  35. ;;; Window size for starting up
  36. (setq default-frame-alist
  37.  '((height . 35) (width . 100)))
  38. ;;; Disable startup screen
  39. (custom-set-variables
  40.  '(inhibit-startup-screen t))
  41. (custom-set-faces
  42.   ;; custom-set-faces was added by Custom.
  43.   ;; If you edit it by hand, you could mess it up, so be careful.
  44.   ;; Your init file should contain only one such instance.
  45.   ;; If there is more than one, they won't work right.
  46. )
  48. ;;; Useful key strokes
  49. ;;; goto-line --> ctrl+g
  50. (global-set-key "/C-c/C-g" 'goto-line)
  51. (global-set-key "/C-cb" 'whitespace-cleanup)
  53. (global-set-key "/M-?" 'help-command)
  55. ;;;
  56. (setq backup-directory-alist '(("" . "D:/GS/emacs_msw/backup")))
  57. (setq make-backup-files nil)
  58. (setq-default make-backup-files nil)
  59. (auto-compression-mode 1)
  61. ;;; Show trailing whitespace
  62. (setq-default show-trailing-whitespace t)
  64. ;;;
  65. (setq require-final-newline t)
  67. ;;;
  68. (setq mouse-yank-at-point t)
  69. (setq x-select-enable-clipboard t)
  70. ;;;
  71. (setq column-number-mode t)
  73. ;;
  74. (add-to-list 'load-path "D:/GS/emacs_msw/myemacs")
  75. (require 'linum)
  76. (global-linum-mode 1)
  77. (require 'xcscope)
  78. ;;
  79. (cond
  80.     (running-on-windows
  81.         (require 'color-theme)
  82.         (require 'color-theme-tango)
  83.         (color-theme-tango))
  84.     (running-on-x
  85.         (require 'color-theme)
  86.         (color-theme-gnome2))
  87. )
  91. (setq-default indent-tabs-mode nil)
  93. ;;(setq standard-indent 4)
  94. ;;(setq tab-stop-list ())
  95. (global-set-key (kbd "TAB") 'self-insert-command)
  96. (global-set-key (kbd "TAB") 'tab-to-tab-stop)
  97. (setq-default tab-width 4)
  98. (setq-default
  99.     tab-stop-list
  100.     (list 4 8 12 16 20 24 28 32 36 40
  101.           44 48 52 56 60 64 68 72 76 80
  102.           84 88 92 96 100 104 108))
  105. (setq show-paren-mode t) ;;打开括号匹配显示模式
  106. (setq show-paren-style 'parenthesis)
  108. (setq auto-image-file-mode t)
  110. (setq w32-charset-info-alist
  111.       (cons '("gbk" w32-charset-gb2312 . 936) w32-charset-info-alist))
  113. (setq default-frame-alist
  114.       (append
  115.        '((font . "fontset-gbk")) default-frame-alist))
  117. (create-fontset-from-fontset-spec
  118. "-outline-Courier New-normal-r-normal-normal-16-97-96-96-c-*-fontset-gbk")
  119. (set-fontset-font
  120. "fontset-default" nil
  121. "-outline-新宋体-normal-r-normal-*-16-*-96-96-c-*-iso10646-1" nil 'prepend)
  122. (set-fontset-font
  123. "fontset-gbk" 'kana
  124. "-outline-新宋体-normal-r-normal-*-16-*-96-96-c-*-iso10646-1" nil 'prepend)
  125. (set-fontset-font
  126. "fontset-gbk" 'han
  127. "-outline-新宋体-normal-r-normal-*-16-*-96-96-c-*-iso10646-1" nil 'prepend)
  128. (set-fontset-font
  129. "fontset-gbk" 'cjk-misc
  130. "-outline-新宋体-normal-r-normal-*-16-*-96-96-c-*-iso10646-1" nil 'prepend)
  131. (set-fontset-font
  132. "fontset-gbk" 'symbol
  133. "-outline-新宋体-normal-r-normal-*-16-*-96-96-c-*-iso10646-1" nil 'prepend)
  134. (set-default-font "fontset-gbk")
  136. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  137. ;;;  mode
  138. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  139. (add-hook 'c++-mode-hook
  140.    (lambda ()
  141.      (c-set-style "bsd")
  142.      (hs-minor-mode)
  143.      (local-set-key "/C-c/t" 'complete-symbol)
  144.      (local-set-key "/C-m" 'newline-and-indent)
  145.      (setq mslk-c++-key (make-keymap))
  146.      (local-set-key "/C-j" mslk-c++-key)
  147.      (define-key mslk-c++-key "/C-j" 'complete-symbol)
  148.      (define-key mslk-c++-key "/C-o" 'hs-hide-all)
  149.      (define-key mslk-c++-key "/C-p" 'hs-show-all)
  150.      (define-key mslk-c++-key "/C-h" 'hs-hide-block)
  151.      (define-key mslk-c++-key "/C-u" 'hs-show-block)
  152.      (define-key mslk-c++-key "/C-l" 'hs-hide-level)
  153.      (define-key mslk-c++-key "/C-m" 'hs-toggle-hiding)
  154.      ))
  156. (add-hook 'c-mode-hook 'c++-mode)
  158. (defun my-c-mode-common-hook()
  159.   (setq tab-width 4 indent-tabs-mode nil)
  160.   ;;; hungry-delete and auto-newline
  161.   (c-toggle-auto-hungry-state 1)
  162.   ;;按键定义
  163.   (define-key c-mode-base-map [(control /`)] 'hs-toggle-hiding)
  164.   (define-key c-mode-base-map [(return)] 'newline-and-indent)
  165.   (define-key c-mode-base-map [(f7)] 'compile)
  166.   (define-key c-mode-base-map [(meta /`)] 'c-indent-command)
  167. ;;  (define-key c-mode-base-map [(tab)] 'hippie-expand)
  168.   (define-key c-mode-base-map [(tab)] 'my-indent-or-complete)
  169.   (define-key c-mode-base-map [(meta ?/)] 'semantic-ia-complete-symbol-menu)
  170.     ;;预处理设置
  171.   (setq c-macro-shrink-window-flag t)
  172.   (setq c-macro-preprocessor "cpp")
  173.   (setq c-macro-cppflags " ")
  174.   (setq c-macro-prompt-flag t)
  175.   (setq hs-minor-mode t)
  176.   (setq abbrev-mode t)
  177. )
  178. (add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
  180. ;;;;我的C++语言编辑策略
  181. (defun my-c++-mode-hook()
  182.   (setq tab-width 4 indent-tabs-mode nil)
  183.   (c-set-style "stroustrup")
  184. ;;  (define-key c++-mode-map [f3] 'replace-regexp)
  185. )
  187. (defun my-indent-or-complete ()
  188.    (interactive)
  189.    (if (looking-at "//>")
  190.       (hippie-expand nil)
  191.       (indent-for-tab-command))
  192.  )
  194. (global-set-key [(control tab)] 'my-indent-or-complete)
  196. (setq compile-command "make")
  200. (define-key global-map (read-kbd-macro "M-RET") 'hippie-expand)
  202. (load "completion")
  203. (initialize-completions)
  206. ;; Make actionscript-mode the default mode for .as files
  207. ;;(load "actionscript-mode")
  209. ;;(add-to-list ‘auto-mode-alist ‘(”//.as[123]?$” . actionscript-mode))
  211. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  212. ;; Various functions
  213. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  215. ;; Convert DOS cr-lf to UNIX newline
  216. (defun dos-unix () (interactive) (goto-char (point-min))
  217.   (while (search-forward "/r/n" nil t) (replace-match "/n")))
  219. ;; Convert UNIX newline to DOS cr-lf
  220. (defun unix-dos () (interactive) (goto-char (point-min))
  221.   (while (search-forward "/n" nil t) (replace-match "/r/n")))
  223. ;; Replace all tab with four blank spaces
  224. (defun notab () (interactive)  (goto-char (point-min))
  225.   (while (search-forward "/t" nil t) (replace-match "    ")))
  227. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  228. ;; auto-indent
  229. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  232. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  233. (setq x-select-enable-clipboard t)
  234. ; for copying word
  235. (defun copy-word (&optional arg)
  236.     "Copy words at point into kill-ring"
  237.     (interactive "P")
  238.     (let ((beg (progn (if (looking-back "[a-zA-Z0-9]" 1) (backward-word 1)) (point)))
  239.         (end (progn (forward-word arg) (point))))
  240.     (copy-region-as-kill beg end))
  241. )
  242. (global-set-key (kbd "C-c w") (quote copy-word))
  244. ; for copying line
  245. (defun copy-line (&optional arg)
  246.     "Save current line into Kill-Ring without mark the line "
  247.     (interactive "P")
  248.     (let ((beg (line-beginning-position))
  249.           (end (line-end-position arg)))
  250.     (copy-region-as-kill beg end))
  251. )
  252. (global-set-key (kbd "C-c l") (quote copy-line))
  254. ; for copying paragraph
  255. (defun copy-paragraph (&optional arg)
  256.     "Copy paragraphes at point"
  257.     (interactive "P")
  258.     (let ((beg (progn (backward-paragraph 1) (point)))
  259.           (end (progn (forward-paragraph arg) (point))))
  260.     (copy-region-as-kill beg end))
  261. )
  262. (global-set-key (kbd "C-c p") (quote copy-paragraph))
  264. ; for copying string
  265. (defun copy-string (&optional arg)
  266.     "Copy a sequence of string into kill-ring"
  267.     (interactive)
  268.     (setq onPoint (point))
  269.     (let (
  270.             ( beg  (progn (re-search-backward "[/t ]" (line-beginning-position) 3 1)
  271.                    (if (looking-at "[/t ]") (+ (point) 1) (point) ) )
  272.             )
  273.             ( end  (progn  (goto-char onPoint) (re-search-forward "[/t ]" (line-end-position) 3 1)
  274.                    (if (looking-back "[/t ]") (- (point) 1) (point) ) )
  275.             )
  276.          )
  277.      (copy-region-as-kill beg end)
  278.      )
  279. )
  280. (global-set-key (kbd "C-c s") (quote copy-string))

Windows 下需要在注册表中设定 emacs 启动时载入配置文件的 HOME 目录，下面是注册表文件

  1. Windows Registry Editor Version 5.00
  3. [HKEY_CURRENT_USER/Software/GNU]
  5. [HKEY_CURRENT_USER/Software/GNU/Emacs]
  6. "HOME"="D://GS//emacs_msw"

返回
【上篇】
【下篇】

作者:

抱歉!评论已关闭.

返回首页

Copyright © 2013-2018 学步园  保留所有权利.
软文销售 QQ客服：2265327166 点击这里给我发消息（其他合作也可洽谈）
必威体育
必威电竞