[elpa] externals/transient 90243aec65 4/4: transient-mode-line-format: Support specifying separator thickness

[Jonas Bernoulli]

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

    transient-mode-line-format: Support specifying separator thickness
---
 docs/transient.org |  8 +++++---
 lisp/transient.el  | 41 ++++++++++++++++++++++++-----------------
 2 files changed, 29 insertions(+), 20 deletions(-)

diff --git a/docs/transient.org b/docs/transient.org
index 3358af4e88..c8817237c1 100644
--- a/docs/transient.org
+++ b/docs/transient.org
@@ -623,9 +623,11 @@ Also see [[* Common Suffix Commands]].
   displayed right above the echo area, then this probably is not a
   good value.
 
-  If ~line~ (the default), then the buffer also has no mode-line,
-  but a thin line is drawn instead.  On termcap frames that is is
-  not possible, so there ~line~ is treated as a synonym for ~nil~.
+  If ~line~ (the default) or a natural number, then the buffer
+  has no mode-line, but a line is drawn is drawn in its place.
+  If a number is used, that specifies the thickness of the line.
+  On termcap frames we cannot draw lines, so there ~line~ and
+  numbers are synonyms for ~nil~.
 
   The color of the line is used to indicate if non-suffixes are
   allowed and whether they exit the transient.  The foreground
diff --git a/lisp/transient.el b/lisp/transient.el
index 7b43df9952..786f176c96 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -215,9 +215,11 @@ If nil, then the buffer has no mode-line.  If the buffer 
is not
 displayed right above the echo area, then this probably is not
 a good value.
 
-If `line' (the default), then the buffer also has no mode-line,
-but a thin line is drawn instead.  On termcap frames that is is
-not possible, so there `line' is treated as a synonym for nil.
+If `line' (the default) or a natural number, then the buffer
+has no mode-line, but a line is drawn is drawn in its place.
+If a number is used, that specifies the thickness of the line.
+On termcap frames we cannot draw lines, so there `line' and
+numbers are synonyms for nil.
 
 The color of the line is used to indicate if non-suffixes are
 allowed and whether they exit the transient.  The foreground
@@ -230,12 +232,13 @@ Otherwise this can be any mode-line format.
 See `mode-line-format' for details."
   :package-version '(transient . "0.2.0")
   :group 'transient
-  :type '(choice (const :tag "hide mode-line" nil)
-                 (const :tag "substitute thin line" line)
-                 (const :tag "name of prefix command"
-                        ("%e" mode-line-front-space
-                         mode-line-buffer-identification))
-                 (sexp  :tag "custom mode-line format")))
+  :type '(choice (const  :tag "hide mode-line" nil)
+                 (const  :tag "substitute thin line" line)
+                 (number :tag "substitute line with thickness")
+                 (const  :tag "name of prefix command"
+                         ("%e" mode-line-front-space
+                          mode-line-buffer-identification))
+                 (sexp   :tag "custom mode-line format")))
 
 (defcustom transient-show-common-commands nil
   "Whether to show common transient suffixes in the popup buffer.
@@ -3497,9 +3500,11 @@ have a history of their own.")
       (when (bound-and-true-p tab-line-format)
         (setq tab-line-format nil))
       (setq header-line-format nil)
-      (setq mode-line-format (if (eq transient-mode-line-format 'line)
-                                 nil
-                               transient-mode-line-format))
+      (setq mode-line-format
+            (if (or (natnump transient-mode-line-format)
+                    (eq transient-mode-line-format 'line))
+                nil
+              transient-mode-line-format))
       (setq mode-line-buffer-identification
             (symbol-name (oref transient--prefix command)))
       (if transient-enable-popup-navigation
@@ -3534,15 +3539,17 @@ have a history of their own.")
       (fit-window-to-buffer window nil 1))))
 
 (defun transient--separator-line ()
-  (and (eq transient-mode-line-format 'line)
-       window-system
-       (let ((face `(,@(and (>= emacs-major-version 27) '(:extend t))
+  (and-let* ((height (cond ((not window-system) nil)
+                           ((natnump transient-mode-line-format)
+                            transient-mode-line-format)
+                           ((eq transient-mode-line-format 'line) 1)))
+             (face `(,@(and (>= emacs-major-version 27) '(:extend t))
                      :background
                      ,(or (face-foreground (transient--key-face nil 
'non-suffix)
                                            nil t)
                           "#gray60"))))
-         (concat (propertize "__" 'face face 'display '(space :height (1)))
-                 (propertize "\n" 'face face 'line-height t)))))
+    (concat (propertize "__" 'face face 'display `(space :height (,height)))
+            (propertize "\n" 'face face 'line-height t))))
 
 (defmacro transient-with-shadowed-buffer (&rest body)
   "While in the transient buffer, temporarly make the shadowed buffer current."