[elpa] externals/transient 71d16d86f1 25/26: Improve looks of debugging faces

[Jonas Bernoulli]

branch: externals/transient
commit 71d16d86f138a6f25f4c0cb703e5e9e0fb532431
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    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)