diff options
author | Kyle Meyer <kyle@kyleam.com> | 2015-07-31 21:46:00 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2015-07-31 21:46:00 -0400 |
commit | a7ed888cc820832b0f41e7d280c5fa38b103d9d8 (patch) | |
tree | 93fe51c61c987136c56ee722b74fdfd8ae655661 /lisp/init-elisp.el | |
parent | 24b9c5ddfde46614158048febf53cd5b5586c4e1 (diff) | |
download | emacs.d-a7ed888cc820832b0f41e7d280c5fa38b103d9d8.tar.gz |
Set up outline-minor-mode for python and elisp
Diffstat (limited to 'lisp/init-elisp.el')
-rw-r--r-- | lisp/init-elisp.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lisp/init-elisp.el b/lisp/init-elisp.el index a6cee16..e35a53d 100644 --- a/lisp/init-elisp.el +++ b/lisp/init-elisp.el @@ -1,4 +1,15 @@ (add-hook 'emacs-lisp-mode-hook 'lispy-mode) +(add-hook 'emacs-lisp-mode-hook 'km/elisp-set-outline-vars) +;; This likely breaks lispy's outline functions, but I don't use them. +(add-hook 'lispy-mode-hook 'km/elisp-set-outline-vars) + +(defun km/elisp-outline-level () + (and (looking-at (concat "^" outline-regexp)) + (- (match-end 0) (match-beginning 0) 3))) + +(defun km/elisp-set-outline-vars () + (setq outline-regexp ";;;;* ") + (setq outline-level 'km/elisp-outline-level)) (provide 'init-elisp) |