隨時隨地摺疊你的代碼吧。。。

這是應kenneth要求寫的一個摺疊代碼emacs小工具：

 

(defun fold-this-sexp () "把當前位置的括號內容摺疊起來，展開的話...wait" (interactive) (save-excursion (let ((ov (make-overlay (point) (progn (forward-list) (point))))) (overlay-put ov 'display "<....>") (overlay-put ov 'name "jrfold")))) (defun unfold-this-sexp () "括號內容摺疊展開" (interactive) (save-excursion (remove-overlays (point) (progn (forward-list) (point))))) ; 'display "<....>") (defun sexp-code-folding-dwim () "在括號處交替摺疊" (interactive) (save-excursion (let* ((ovs-1 (save-excursion (overlays-in (point) (progn (forward-list) (point))))) (ovs (remove-if-not #'(lambda (x) (equal (overlay-get x 'name) "jrfold")) ovs-1))) (if (null ovs) (fold-this-sexp) (unfold-this-sexp))))) (global-set-key "/C-c/C-f" 'sexp-code-folding-dwim)