Emacs的auto-newline功能试用

pluskid

如果你的 Emacs 版本够新的话，你可以打开 auto-newline 功能：

1. 
   
2. (add-hook 'c-mode-common-hook
   
3.           (lambda ()
   
4.             (c-toggle-auto-newline 1)))
   

复制代码

这就是最基本的 auto-newline 功能，他会根据当前的键入自动判断是否需要换
行并在需要的时候自动换行并缩进。这个功能默认的地方有几处还不好用，比如
你定义一个 class 的时候，输入末尾的 } ，按理说应该再输入一个 ; 才对，
可是 Emacs 这个时候已经自动换行了。还有就是比如要写：

1. 
   
2. int foo[] = {0};
   

复制代码

但是当你写到 { 的时候 Emacs 就换到下一行了，这些都是需要好好配置一下的。
herberteuler提供了他
的配置文件如下：

1. 
   
2. (defvar xgp-cfsi-left-PAREN-old nil
   
3.   "Command used to input "("")
   
4. (make-variable-buffer-local 'xgp-cfsi-left-PAREN-old)
   
5. 
   
6. (defun xgp-cfsi-modify-alist (alist term new)
   
7.   (let ((tl (assq term (symbol-value alist))))
   
8.     (if tl
   
9.         (setcdr tl new)
   
10.       (add-to-list alist (cons term new)))))
    
11. 
    
12. (defun xgp-cfsi (style)
    
13.   "Deciding whether using CFSI."
    
14.   (interactive "sStyle: ")
    
15. 
    
16.   (if (equal style "bsd")
    
17. 
    
18.       (progn  
    
19.         (c-set-style "bsd")
    
20.         (setq indent-tabs-mode
    
21.               t
    
22.               c-hanging-braces-alist
    
23.               (quote ((defun-open after)
    
24.                       (defun-close after)
    
25.                       (brace-list-open after)
    
26.                       (brace-list-close)
    
27.                       (brace-entry-open after)
    
28.                       (statement-cont after)
    
29.                       (substatement-open after)
    
30.                       (block-close . c-snug-do-while)
    
31.                       (extern-lang-open after)
    
32.                       (namespace-open after)
    
33.                       (module-open after)
    
34.                       (composition-open after)
    
35.                       (inexpr-class-open after)
    
36.                       (inexpr-class-close after)
    
37.                       (class-open after)
    
38.                       (class-close)))
    
39.               c-hanging-colons-alist
    
40.               (quote ((label after)
    
41.                       (case-label after)
    
42.                       (access-label after)))
    
43.               c-hanging-semi&comma-criteria
    
44.               (quote (c-semi&comma-inside-parenlist)))
    
45.         (local-set-key " " 'xgp-cfsi-bsd-SPC))
    
46. 
    
47.     (progn  (c-set-style style)
    
48.             (setq indent-tabs-mode
    
49.                   nil
    
50.                   c-hanging-colons-alist
    
51.                   (quote ((label after)
    
52.                           (case-label after)
    
53.                           (access-label after)))
    
54.                   c-hanging-semi&comma-criteria
    
55.                   (quote (c-semi&comma-inside-parenlist)))
    
56.             
    
57.             ;CLASS-CLOSE
    
58.             (xgp-cfsi-modify-alist 'c-hanging-braces-alist 'class-close nil)
    
59.             (local-set-key " " 'self-insert-command)
    
60. 
    
61.             ;In GNU style, '(' is always after ' '
    
62.             (if (and (equal style "gnu") (not xgp-cfsi-left-PAREN-old))
    
63.                 (progn (setq xgp-cfsi-left-PAREN-old
    
64.                              (lookup-key (current-local-map) "("))
    
65.                        (local-set-key "(" 'xgp-cfsi-gnu-PAREN)))))
    
66.   
    
67.   ;this is correct since ONLY GNU style put a ' ' before '('
    
68.   (if (and (not (equal style "gnu")) xgp-cfsi-left-PAREN-old)
    
69.       (progn (local-set-key "(" xgp-cfsi-left-PAREN-old)
    
70.              (setq xgp-cfsi-left-PAREN-old nil))))
    
71. 
    
72. (defun xgp-cfsi-bsd-SPC ()
    
73.   (interactive)
    
74.   (if (looking-back "^[ \t]*}[ \t]*\n[ \t]*$")
    
75.       (let ((s (save-excursion (search-backward "}")
    
76.                                (1+ (point)))))
    
77.         (delete-region s (point))
    
78.         (insert " "))
    
79.     (insert " ")))
    
80. 
    
81. (defun xgp-cfsi-gnu-PAREN ()
    
82.   (interactive)
    
83.   (if (not (looking-back " "))
    
84.       (insert " "))
    
85.   (funcall xgp-cfsi-left-PAREN-old nil))
    
86. 
    
87. (defun xgp-cfsi-erase-blanks ()
    
88.   "Erase all trivial blanks for CFSI."
    
89.   (interactive)
    
90.   (save-excursion
    
91.     (goto-char (point-min))
    
92.     (while (re-search-forward "[ \t]+$" nil t)
    
93.       (replace-match "" nil nil))))
    

复制代码

再引用一段他的话：

这里的核心函数是 xgp-cfsi，它接受风格名作为参数，并设置自动换行的方式。
这样，在 bsd 风格中只有函数声明、单独的 if、while 和 for 的子句以及枚举
和初始化说明中需要手工按回车，其他情况中 Emacs 都会自动插入回车。然后我
在 c-mode-common-hook 中加入了 (c-toggle-hungry-state 1)、
(c-toggle-auto-newline 1)，以及 (xgp-cfsi "bsd") 来将默认风格置为 bsd。
同时，如果需要输入其他风格的程序，Emacs 都会自动地进行排版。当然，我在
公司的开发组要求了一种我不喜欢的风格 (这也是我自己写这个函数的原因)，它
是这样设置的：

1. 
   
2. '(c-hanging-braces-alist (quote ((defun-open before after)
   
3.                                  (defun-close before after)
   
4.                                  (brace-list-open after)
   
5.                                  (brace-list-close)
   
6.                                  (brace-entry-open before after)
   
7.                                  (statement-cont before after)
   
8.                                  (substatement-open before after)
   
9.                                  (block-close after)
   
10.                                  (extern-lang-open before after)
    
11.                                  (namespace-open before after)
    
12.                                  (module-open before after)
    
13.                                  (composition-open before after)
    
14.                                  (inexpr-class-open before after)
    
15.                                  (inexpr-class-close before after)
    
16.                                  (class-open before after)
    
17.                                  (class-close))))
    
18. '(c-offsets-alist (quote ((block-open . 0)
    
19.                           (block-close . 0)
    
20.                           (statement-block-intro . +)
    
21.                           (substatement . +)
    
22.                           (substatement-open . 0)
    
23.                           (substatement-label . 0) (label . 0)
    
24.                           (case-label . 0)
    
25.                           (do-while-closure . 0)
    
26.                           (else-clause . 0)
    
27.                           (catch-clause . 0)
    
28.                           (case-label . 0)
    
29.                           (access-label . -)
    
30.                           (namespace-open . 0)
    
31.                           (class-open . 0)
    
32.                           (class-close . 0)
    
33.                           (innamespace . 0))))
    

复制代码

我根据他的配置又做了自己的配置:

1. 
   
2. (defun xgp-cfsi-modify-alist (alist term new)
   
3.   (let ((tl (assq term (symbol-value alist))))
   
4.     (if tl
   
5.         (setcdr tl new)
   
6.       (add-to-list alist (cons term new)))))
   
7. (defun kid-set-my-c-style()
   
8.   (kid-overwrite-alist (quote ((defun-open after)
   
9.                                (defun-close after)
   
10.                                (class-open before after)
    
11.                                (class-close ())
    
12.                                (block-open after)
    
13.                                (block-close . c-snug-do-while)
    
14.                                ;; in case I want to use ``int foo[] = {0};''
    
15.                                (topmost-intro)
    
16.                                (brace-list-open)
    
17.                                (brace-list-close)
    
18.                                (do-while-closure  after)
    
19.                                (substatement-open  after)
    
20.                                (else-clause after)
    
21.                                (access-label after)
    
22.                                (catch-clause  after)))
    
23.                        'c-hanging-braces-alist)
    
24.   (kid-overwrite-alist (quote ((case-label after)
    
25.                                (access-label after)
    
26.                                (label after)
    
27.                                (inher-intro)))
    
28.                        'c-hanging-colons-alist)
    
29.   (setq c-hanging-semi&comma-criteria
    
30.         (quote (c-semi&comma-inside-parenlist)))
    
31.   (setq c-cleanup-list
    
32.         (quote (brace-catch-brace
    
33.                 brace-else-brace
    
34.                 brace-elseif-brace
    
35.                 empty-defun-braces
    
36.                 defun-close-semi
    
37.                 one-liner-defun
    
38.                 list-close-comma
    
39.                 scope-operator))))
    
40. 
    
41. (defun kid-overwrite-alist (from to)
    
42.   (cond ((null from) nil)
    
43.         (t (progn (xgp-cfsi-modify-alist to
    
44.                                           (car (car from))
    
45.                                           (cdr (car from)))
    
46.                    (kid-overwrite-alist (cdr from) to)))))
    

复制代码

然后我的 c-mode-hook 里面这样写：

1. 
   
2. (add-hook 'c-mode-hook 'my-c-mode)
   
3. (add-hook 'c++-mode-hook 'my-c++-mode)
   
4. (add-hook 'c-mode-common-hook 'my-c-common-mode)
   
5. 
   
6. (defun my-c-common-mode ()
   
7.   (c-toggle-auto-newline 1)
   
8.   ;; 此模式下，当按Backspace时会删除最多的空格
   
9.   (c-toggle-hungry-state))
   
10. 
    
11. (defun my-c-mode ()
    
12.   ;; K&R 风格的缩进方案
    
13.   (c-set-style "k&r")
    
14.   (kid-set-my-c-style))
    
15. (defun my-c++-mode ()
    
16.     (c-set-style "stroustrup")
    
17.     (kid-set-my-c-style))
    

复制代码

这样，就可以很好地使用了！你也可以根据自己的习惯配置。