From ef72f72055a21c81587ddf0d17ab5a0dccdef9b2 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Mon, 10 Apr 2017 23:30:58 -0400 Subject: lispy: Toggle off/on with view-mode on/off --- init.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index 4453e96..fa20541 100644 --- a/init.el +++ b/init.el @@ -1880,7 +1880,13 @@ ;; `imenu-create-index-function' from being set to ;; `semantic-create-imenu-index'. Trying to set it in ;; `emacs-lisp-mode-hook' or `lispy-mode-hook' doesn't work. - (defalias 'semantic-create-imenu-index 'imenu-default-create-index-function)) + (defalias 'semantic-create-imenu-index 'imenu-default-create-index-function) + + (after 'view + (add-hook 'view-mode-hook + (lambda () + (when (derived-mode-p 'emacs-lisp-mode 'scheme-mode) + (funcall #'lispy-mode (if view-mode -1 1))))))) (use-package geiser :config -- cgit v1.2.3