TakeV/spacemacs
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add helm lazy-loading support for describe function

Browse source
This commit is contained in:
syl20bnr 2015-03-21 23:51:04 -04:00
parent 4d0f391a8e
commit d113b78192
1 changed files with 18 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
spacemacs/keybindings.el
View file

@ -61,14 +61,24 @@
;; Cycling settings -----------------------------------------------------------
(evil-leader/set-key "Tn" 'spacemacs/cycle-spacemacs-theme)
;; describe functions ---------------------------------------------------------
(evil-leader/set-key
"hdc" 'describe-char
"hdf" 'describe-function
"hdk" 'describe-key
"hdm" 'describe-mode
"hdp" 'describe-package
"hdt" 'describe-theme
"hdv" 'describe-variable)
(defmacro spacemacs||describe-set-key (keys func)
"Define a key bindings for FUNC using KEYS.
Ensure that helm is required before calling FUNC."
(let ((func-name (intern (format "spacemacs/%s" (symbol-name func)))))
`(progn
(defun ,func-name ()
,(format "Wrapper for %s" (symbol-name func))
(interactive)
(require 'helm)
(call-interactively ',func))
(evil-leader/set-key ,keys ',func-name))))
(spacemacs||describe-set-key "hdc" describe-char)
(spacemacs||describe-set-key "hdf" describe-function)
(spacemacs||describe-set-key "hdk" describe-key)
(spacemacs||describe-set-key "hdm" describe-mode)
(spacemacs||describe-set-key "hdp" describe-package)
(spacemacs||describe-set-key "hdt" describe-theme)
(spacemacs||describe-set-key "hdv" describe-variable)
;; errors ---------------------------------------------------------------------
(evil-leader/set-key
"en" 'spacemacs/next-error