[elpa] externals/transient 93179253c3 4/7: transient--column-stops: New function

[Jonas Bernoulli]

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

    transient--column-stops: New function
---
 lisp/transient.el | 29 ++++++++++++++++-------------
 1 file changed, 16 insertions(+), 13 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index e54f34f829..a84e40ecb3 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -3806,19 +3806,7 @@ have a history of their own.")
                    transient-align-variable-pitch))
            (rs (apply #'max (mapcar #'length columns)))
            (cs (length columns))
-           (cw (mapcar (let ((widths (oref transient--prefix column-widths)))
-                         (lambda (col)
-                           (apply
-                            #'max
-                            (if-let ((min (pop widths)))
-                                (if vp (* min (transient--pixel-width " ")) 
min)
-                              0)
-                            (mapcar (if vp #'transient--pixel-width #'length)
-                                    col))))
-                       columns))
-           (cc (transient--seq-reductions-from
-                (apply-partially #'+ (* 2 (if vp (transient--pixel-width " ") 
1)))
-                cw 0)))
+           (cc (transient--column-stops columns)))
       (dotimes (r rs)
         (dotimes (c cs)
           (when (> c 0)
@@ -4144,6 +4132,21 @@ If the OBJ's `key' is currently unreachable, then apply 
the face
       (car (window-text-pixel-size
             nil (line-beginning-position) (point))))))
 
+(defun transient--column-stops (columns)
+  (let* ((var-pitch (or transient-align-variable-pitch
+                        (oref transient--prefix variable-pitch)))
+         (char-width (and var-pitch (transient--pixel-width " "))))
+    (transient--seq-reductions-from
+     (apply-partially #'+ (* 2 (if var-pitch char-width 1)))
+     (transient--mapn
+      (lambda (cells min)
+        (apply #'max
+               (if min (if var-pitch (* min char-width) min) 0)
+               (mapcar (if var-pitch #'transient--pixel-width #'length) 
cells)))
+      columns
+      (oref transient--prefix column-widths))
+     0)))
+
 (defun transient-command-summary-or-name (obj)
   "Return the summary or name of the command represented by OBJ.