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

Check toggle condition in status function

This commit is contained in:
Eivind Fonn 2016-10-27 12:58:00 +02:00
parent e4e6638d4d
commit 03a8f6733f
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
core/core-toggle.el
View File

@ -71,7 +71,11 @@ used."
;; a bound symbol
(status-eval `(and (or (and (symbolp ',status) (boundp ',status))
(listp ',status))
,status)))
,status))
(condition-eval `(or (null ',condition)
(and (or (and (symbolp ',condition) (boundp ',condition))
(listp ',condition))
,condition))))
`(progn
(push (append '(,name) '(:function ,wrapper-func
:predicate ,wrapper-func-status) ',props)
@ -80,10 +84,7 @@ used."
(defun ,wrapper-func ,(if prefix-arg-var (list prefix-arg-var) ())
,(format "Toggle %s on and off." (symbol-name name))
,(if prefix-arg-var '(interactive "P") '(interactive))
(if (or (null ',condition)
(and (or (and (symbolp ',condition) (boundp ',condition))
(listp ',condition))
,condition))
(if ,condition-eval
(if (,wrapper-func-status)
(progn ,@off-body
(when (called-interactively-p 'any)
@ -95,7 +96,7 @@ used."
;; predicate function
(defun ,wrapper-func-status ()
,(format "Check if %s is on." (symbol-name name))
,status-eval)
(and ,condition-eval ,status-eval))
;; Only define on- or off-functions when status is available
,@(when status
;; on-function