[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 1660d71 05/17: Allow :pre and :post to be function symbols

From: Oleh Krehel
Subject: [elpa] master 1660d71 05/17: Allow :pre and :post to be function symbols
Date: Tue, 10 Feb 2015 07:13:24 +0000

branch: master
commit 1660d71516cb80fe1aa654495ab30594463e8a2a
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Allow :pre and :post to be function symbols
    * hydra.el (defhydra): :pre and :post are eihter sexps or function
    Re #16.
        (defun hydra-vi/pre ()
          (set-cursor-color "#e52b50"))
        (defun hydra-vi/post ()
          (set-cursor-color "#ffffff"))
         (kbd "C-z")
         (defhydra hydra-vi
             (:pre hydra-vi/pre
                   :post hydra-vi/post
                   :color amaranth)
           ("l" forward-char)
           ("h" backward-char)
           ("j" next-line)
           ("k" previous-line)
           ("m" set-mark-command "mark")
           ("a" move-beginning-of-line "beg")
           ("e" move-end-of-line "end")
           ("d" delete-region "del" :color blue)
           ("y" kill-ring-save "yank" :color blue)
           ("q" nil "quit")))
 hydra.el |    4 ++++
 1 files changed, 4 insertions(+), 0 deletions(-)

diff --git a/hydra.el b/hydra.el
index 89f21d8..db0a89b 100644
--- a/hydra.el
+++ b/hydra.el
@@ -352,6 +352,10 @@ in turn can be either red or blue."
     (when (and (or body-pre body-post)
                (version< emacs-version "24.4"))
       (error "At least Emacs 24.4 is needed for :pre and :post"))
+    (when (and body-pre (symbolp body-pre))
+      (setq body-pre `(funcall #',body-pre)))
+    (when (and body-post (symbolp body-post))
+      (setq body-post `(funcall #',body-post)))
     (when (eq body-color 'amaranth)
       (if (cl-some `(lambda (h)
                       (eq (hydra--color h ',body-color) 'blue))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]