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

Minor refactoring in micro-state.el

This commit is contained in:
syl20bnr 2015-02-22 01:10:26 -05:00
parent c2e61a9036
commit 78431c18a0
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
core/core-micro-state.el
View File

@ -115,6 +115,15 @@ Available PROPS:
(binding-pre (spacemacs/mplist-get binding :pre))
(binding-post (spacemacs/mplist-get binding :post))
(wrapper-name (intern (format "spacemacs//%S-%S-%s" name wrapped key)))
(doc-body `((let ((bdoc ,@binding-doc)
(defdoc ,@default-doc))
(if bdoc
(lv-message (spacemacs//micro-state-propertize-doc
(format "%S: %s" ',name bdoc)))
(when (and defdoc
',wrapped (not (plist-get ',binding :exit)))
(lv-message (spacemacs//micro-state-propertize-doc
(format "%S: %s" ',name defdoc))))))))
(wrapper-func
(eval `(defun ,wrapper-name ()
"Auto-generated function"
@ -123,15 +132,8 @@ Available PROPS:
(when ',wrapped
(call-interactively ',wrapped))
,@binding-post
(let ((bdoc ,@binding-doc)
(defdoc ,@default-doc))
(if bdoc
(lv-message (spacemacs//micro-state-propertize-doc
(format "%S: %s" ',name bdoc)))
(when (and defdoc
',wrapped (not (plist-get ',binding :exit)))
(lv-message (spacemacs//micro-state-propertize-doc
(format "%S: %s" ',name defdoc))))))))))
,@doc-body
))))
(append (list (car binding) wrapper-func) binding)))
(defun spacemacs//micro-state-fill-map-sexps (wrappers)