add prefix names for which-key

This commit is contained in:
Matthew Egan Odendahl 2016-05-15 18:49:45 -06:00 committed by syl20bnr
parent a086a5ba17
commit bef3f838fd

View file

@ -89,7 +89,17 @@
"si" 'slime
"sq" 'slime-quit-lisp
"tf" 'slime-toggle-fancy-trace))))
"tf" 'slime-toggle-fancy-trace)
;; prefix names for which-key
(mapc (lambda (x)
(spacemacs/declare-prefix-for-mode 'lisp-mode (car x) (cdr x)))
'(("mh" . "help")
("me" . "eval")
("ms" . "repl")
("mc" . "compile")
("mg" . "nav")
("mm" . "macro")
("mt" . "toggle"))))))
(when (configuration-layer/layer-usedp 'auto-completion)
(defun common-lisp/init-common-lisp-snippets ()))