branch: master
commit f55c1fff4d64f03a600aea422f81f19432d18bbd
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
Add `hydra-is-helpful' custom var
* hydra.el (hydra-is-helpful): New custom.
(hydra-create): Display a hint in the echo area when `hydra-is-helpful'
is t.
Re #2.
---
hydra.el | 15 ++++++++++++++-
1 files changed, 14 insertions(+), 1 deletions(-)
diff --git a/hydra.el b/hydra.el
index 9479817..37c2cba 100644
--- a/hydra.el
+++ b/hydra.el
@@ -50,6 +50,16 @@
;;; Code:
(require 'cl-lib)
+(defgroup hydra nil
+ "Make bindings that stick around."
+ :group 'bindings
+ :prefix "hydra-")
+
+(defcustom hydra-is-helpful t
+ "When t, display a hint with possible bindings in the echo area."
+ :type 'boolean
+ :group 'hydra)
+
;;;###autoload
(defmacro hydra-create (body heads &optional method)
"Create a hydra with a BODY prefix and HEADS with METHOD.
@@ -81,7 +91,8 @@ When `(keymapp METHOD)`, it becomes:
`(lambda (key command) (define-key ,method key
command)))
(t
- method))))
+ method)))
+ (hint (concat "hydra: " (mapconcat #'car heads " "))))
`(progn
(,method ,(kbd body) nil)
,@(cl-mapcar
@@ -101,6 +112,8 @@ Call the head: `%S'."
(cdr head))
(interactive)
(call-interactively #',(cdr head))
+ (when hydra-is-helpful
+ (message ,hint))
(set-transient-map ',keymap t)))
heads names)
,@(cl-mapcar
