transient-state: Add pink to color guide

Pink is for keys that do not exit hydras that run foreign keys.
This commit is contained in:
justbur 2016-01-28 13:28:04 -05:00 committed by syl20bnr
parent e80ae8ac93
commit c40e49f1a1
1 changed files with 4 additions and 2 deletions

View File

@ -132,8 +132,10 @@ used."
',bindings ',remove-bindings ',add-bindings)))
(when ,title
(let ((guide (concat "[" (propertize "KEY" 'face 'hydra-face-blue)
"] exits state "
"[" (propertize "KEY" 'face 'hydra-face-red)
"] exits state ["
(if ',foreign-keys
(propertize "KEY" 'face 'hydra-face-pink)
(propertize "KEY" 'face 'hydra-face-red))
"] will not exit")))
;; (add-face-text-property 0 (length guide) '(:height 0.9) t guide)
(add-face-text-property 0 (length guide) 'italic t guide)