hydra.el (defhydra): :exit key can now also be a sexp

Fixes #361
6 years ago · d2b921d067
parent 9fc28a044b
commit d2b921d067
1 changed files with 9 additions and 3 deletions
--- a/hydra.el
+++ b/hydra.el
@ -915,9 +915,15 @@ BODY-AFTER-EXIT is added to the end of the wrapper."
       (require 'hydra)
       (hydra-default-pre)
       ,@(when body-pre (list body-pre))
-       ,@(if (hydra--head-property head :exit)
-             body-on-exit-t
-           body-on-exit-nil))))
+       ,@(cond ((eq (hydra--head-property head :exit) t)
+                body-on-exit-t)
+               ((eq (hydra--head-property head :exit) nil)
+                body-on-exit-nil)
+               (t
+                `((if ,(hydra--head-property head :exit)
+                      (progn
+                        ,@body-on-exit-t)
+                    ,@body-on-exit-nil)))))))

 (defvar hydra-props-alist nil)