branch: externals/transient
commit 71d16d86f138a6f25f4c0cb703e5e9e0fb532431
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
Improve looks of debugging faces
Most importantly give them distinct looks, and use colors appropriate
to the severity of the potential issue. I.e., mismatched keys should
be avoided if at all possible, while adding a shorthand-like binding
for an argument that doesn't exist as a shorthand, cannot be avoided,
and hiding come suffixes from users is also something that is often
done intentionally.
---
lisp/transient.el | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 87fea41bb1..d33d5d7b75 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -483,7 +483,9 @@ See info node `(transient)Enabling and Disabling Suffixes'."
See info node `(transient)Enabling and Disabling Suffixes'."
:group 'transient-faces)
-(defface transient-higher-level '((t :underline t))
+(defface transient-higher-level
+ `((t (:box ( :line-width -1
+ :color ,(face-attribute 'shadow :foreground nil t)))))
"Face optionally used to highlight suffixes on higher levels.
Also see option `transient-highlight-higher-levels'."
:group 'transient-faces)
@@ -543,12 +545,14 @@ character used to separate possible values from each
other."
"Face used for keys unreachable from the current prefix sequence."
:group 'transient-faces)
-(defface transient-nonstandard-key '((t :underline t))
+(defface transient-nonstandard-key
+ '((t (:box (:line-width -1 :color "cyan"))))
"Face optionally used to highlight keys conflicting with short-argument.
Also see option `transient-highlight-mismatched-keys'."
:group 'transient-faces)
-(defface transient-mismatched-key '((t :underline t))
+(defface transient-mismatched-key
+ '((t (:box (:line-width -1 :color "magenta"))))
"Face optionally used to highlight keys without a short-argument.
Also see option `transient-highlight-mismatched-keys'."
:group 'transient-faces)
