-
Notifications
You must be signed in to change notification settings - Fork 15
/
pretty.el
26 lines (21 loc) · 745 Bytes
/
pretty.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
(defun pretty-fn-off ()
(interactive)
(remove-hook 'clojure-mode-hook 'esk-pretty-fn)
(clojure-mode)
(save-excursion
(goto-char 0)
(replace-string "fn" "fn")))
(defun pretty-fn-on ()
(interactive)
(add-hook 'clojure-mode-hook 'esk-pretty-fn))
(defun pretty-lambdas-p ()
(member 'esk-pretty-lambdas prog-mode-hook))
(defun toggle-pretty-lambdas ()
(interactive)
(if (pretty-lambdas-p)
(remove-hook 'prog-mode-hook 'esk-pretty-lambdas)
(add-hook 'prog-mode-hook 'esk-pretty-lambdas))
(message (concat "Pretty lambdas are " (if (pretty-lambdas-p) "ON" "OFF"))))
(remove-hook 'clojure-mode-hook 'esk-pretty-fn)
(global-set-key (kbd "C-C p +") 'pretty-fn-off)
(global-set-key (kbd "C-C p -") 'pretty-fn-on)