branch: master
commit 2ebf8624d563f5e5b9dd3c13b973579e8d415092
Author: jasonm23 <jason...@gmail.com>
Commit: jasonm23 <jason...@gmail.com>
Move Amaranth warning message to a defvar
---
hydra.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/hydra.el b/hydra.el
index b4c1926..6895251 100644
--- a/hydra.el
+++ b/hydra.el
@@ -100,6 +100,9 @@
"If a Hydra head sets this to t, exit the Hydra.
This will be done even if the head wasn't designated for exiting.")
+(defvar hydra-amaranth-warn-message "An amaranth Hydra can only exit through a
blue head"
+ "Amaranth Warning message. Shown when the user tries to press an
unbound/non-exit key while in an amaranth head.")
+
(defun hydra-set-transient-map (keymap on-exit &optional foreign-keys)
"Set KEYMAP to the highest priority.
@@ -185,7 +188,7 @@ warn: keep KEYMAP and issue a warning instead of running
the command."
(defun hydra-amaranth-warn ()
"Issue a warning that the current input was ignored."
(interactive)
- (message "An amaranth Hydra can only exit through a blue head"))
+ (message hydra-amaranth-warn-message))
;;* Customize
(defgroup hydra nil
