blob: d8cfcdbf799de45dcb6f0b1bedfb6f3cc259726b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(setq lispy-no-permanent-semantic t)
(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)
|