branch: master
commit 6f7cef2600ea3a8ecd3d26e02936785d8329ceb4
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
Add teal body color
* hydra.el (hydra-face-teal): New face.
(hydra--face): Update.
(defhydra): Teal color is the same as amaranth, except the heas inherit
blue instead of red.
This Hydra can reasonably be either blue or teal:
(global-set-key
(kbd "C-c C-v")
(defhydra hydra-toggle (:color teal)
"toggle"
("a" abbrev-mode "abbrev")
("d" toggle-debug-on-error "debug")
("f" auto-fill-mode "fill")
("t" toggle-truncate-lines "truncate")
("w" whitespace-mode "whitespace")
("q" nil "cancel")))
---
hydra.el | 14 +++++++++++---
1 files changed, 11 insertions(+), 3 deletions(-)
diff --git a/hydra.el b/hydra.el
index dbf3cf2..cfebf5e 100644
--- a/hydra.el
+++ b/hydra.el
@@ -122,6 +122,12 @@ Vanquishable only through a blue head.")
'((t (:foreground "#FF6EB4" :bold t)))
"Pink body has red heads and on intercepting non-heads calls them without
quitting.
Vanquishable only through a blue head.")
+
+(defface hydra-face-teal
+ '((t (:foreground "#367588" :bold t)))
+ "Teal body has blue heads an warns on intercepting non-heads.
+Vanquishable only through a blue head.")
+
;;* Fontification
(defun hydra-add-font-lock ()
"Fontify `defhydra' statements."
@@ -235,6 +241,7 @@ BODY is the second argument to `defhydra'"
(red 'hydra-face-red)
(amaranth 'hydra-face-amaranth)
(pink 'hydra-face-pink)
+ (teal 'hydra-face-teal)
(t (error "Unknown color for %S" h))))
(defun hydra-cleanup ()
@@ -473,7 +480,7 @@ result of `defhydra'."
(setq body-pre `(funcall #',body-pre)))
(when (and body-post (symbolp body-post))
(setq body-post `(funcall #',body-post)))
- (when (memq body-color '(amaranth pink))
+ (when (memq body-color '(amaranth pink teal))
(if (cl-some `(lambda (h)
(eq (hydra--head-color h ',body-color) 'blue))
heads)
@@ -488,8 +495,9 @@ result of `defhydra'."
`(lambda ()
(interactive)
,@(if
- (eq body-color 'amaranth)
- '((message "An amaranth Hydra can only exit through a blue
head"))
+ (memq body-color '(amaranth teal))
+ `((message ,(format "An %S Hydra can only exit through a
blue head"
+ body-color)))
'((let ((kb (key-binding (this-command-keys))))
(if kb
(if (commandp kb)
