[Top][All Lists]

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

[elpa] master 62f9b05 01/72: Allow some heads with no hints

From: Oleh Krehel
Subject: [elpa] master 62f9b05 01/72: Allow some heads with no hints
Date: Fri, 06 Mar 2015 13:03:58 +0000

branch: master
commit 62f9b058f4e680b7cc89e46df05a23571349c846
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    Allow some heads with no hints
    * hydra.el (hydra--hint): If the HINT part of HEAD is explicitely nil,
      omit it from the compound hint.
         (kbd "C-M-o")
         (defhydra hydra-window (:color amaranth)
           ("h" windmove-left nil)
           ("j" windmove-down nil)
           ("k" windmove-up nil)
           ("l" windmove-right nil)
           ("v" (lambda ()
           ("x" (lambda ()
           ("q" nil "cancel")))
    Here, "h", "j", "k", "l" will not be in the echo area.
 hydra.el |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/hydra.el b/hydra.el
index 2770fbc..a1bc9e9 100644
--- a/hydra.el
+++ b/hydra.el
@@ -225,7 +225,12 @@ It's intended for the echo area, when a Hydra is active."
                (car h) 'face
                (hydra--face h body-color))))
-           heads ", ")))
+           (cl-remove-if
+            (lambda (x)
+              (and (> (length x) 2)
+                   (null (cl-caddr x))))
+            heads)
+           ", ")))
 (defun hydra-disable ()
   "Disable the current Hydra."

reply via email to

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