[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 2ebf862 25/36: Move Amaranth warning message to a defvar
From: |
Oleh Krehel |
Subject: |
[elpa] master 2ebf862 25/36: Move Amaranth warning message to a defvar |
Date: |
Sat, 22 Jul 2017 11:22:24 -0400 (EDT) |
branch: master
commit 2ebf8624d563f5e5b9dd3c13b973579e8d415092
Author: jasonm23 <address@hidden>
Commit: jasonm23 <address@hidden>
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
- [elpa] master 943636f 35/36: hydra.el: Bump version, (continued)
- [elpa] master 943636f 35/36: hydra.el: Bump version, Oleh Krehel, 2017/07/22
- [elpa] master 3db82e5 29/36: Implement named columns, Oleh Krehel, 2017/07/22
- [elpa] master 95008ea 30/36: hydra.el: Add automatic lookup for remaped cmd, Oleh Krehel, 2017/07/22
- [elpa] master 32b8352 36/36: Merge commit '943636fe4a35298d9d234222bc4520dec9ef2305' from hydra, Oleh Krehel, 2017/07/22
- [elpa] master 91f8e7c 22/36: hydra.el: Bump version, Oleh Krehel, 2017/07/22
- [elpa] master a85a617 03/36: Allow to use e.g. "↑" in place of "<up>" in the docstring, Oleh Krehel, 2017/07/22
- [elpa] master 9c2589f 19/36: Update the package description, Oleh Krehel, 2017/07/22
- [elpa] master 63de503 21/36: hydra.el (hydra-key-regex): Add "$", Oleh Krehel, 2017/07/22
- [elpa] master 81d88e4 15/36: hydra.el (hydra-show-hint): Extract from defhydra, Oleh Krehel, 2017/07/22
- [elpa] master 1d378c6 16/36: Allow to set hydra verbosity, Oleh Krehel, 2017/07/22
- [elpa] master 2ebf862 25/36: Move Amaranth warning message to a defvar,
Oleh Krehel <=
- [elpa] master a07b92a 26/36: lv.el (lv-window): Rename to " *LV*", Oleh Krehel, 2017/07/22
- [elpa] master 36fb5e0 32/36: hydra.el (defhydra): Use copy-tree on heads, Oleh Krehel, 2017/07/22
- [elpa] master 02f2907 33/36: hydra.el (hydra--sort-heads): change ordering method of columns, Oleh Krehel, 2017/07/22
- [elpa] master 2751f00 31/36: Remove trailing whitespace from :column docstring, Oleh Krehel, 2017/07/22
- [elpa] master 38ce88a 34/36: hydra.el : fix some docstring warning, Oleh Krehel, 2017/07/22