[elpa] externals/ivy-hydra ff59888 136/395: ivy.el (ivy-read-action-format-columns): Add

[Basil L. Contovounesios]

branch: externals/ivy-hydra
commit ff59888eacd1beef91e0c8d52b33fd5a82b142f2
Author: Eric Danan <ricouilletaff@gmail.com>
Commit: Eric Danan <ricouilletaff@gmail.com>

    ivy.el (ivy-read-action-format-columns): Add
    
    Add a new function to format the action list, using several columns if
    needed to preserve `ivy-height`.
---
 ivy.el | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/ivy.el b/ivy.el
index 500b0a1..d230c4e 100644
--- a/ivy.el
+++ b/ivy.el
@@ -878,6 +878,45 @@ key (a string), cmd and doc (a string)."
            actions
            "\n")))
 
+(defun ivy-read-action-format-columns (actions)
+  "Create a docstring from ACTIONS, using several columns if needed to 
preserve `ivy-height'.
+
+ACTIONS is a list.  Each list item is a list of 3 items: key (a
+string), cmd and doc (a string)."
+  (let ((length (length actions))
+       (i 0)
+       (max-rows (- ivy-height 1))
+       rows cols col lwidth rwidth)
+    (while (< i length)
+      (setq col (cl-subseq actions i (min length (cl-incf i max-rows))))
+      (setq lwidth (apply 'max (mapcar (lambda (x)
+                                        (length (nth 0 x)))
+                                      col)))
+      (setq rwidth (apply 'max (mapcar (lambda (x)
+                                        (length (nth 2 x)))
+                                      col)))
+      (setq col (mapcar (lambda (x)
+                         (format (format "%%%ds: %%-%ds" lwidth rwidth)
+                                 (propertize (car x) 'face 'ivy-action)
+                                 (nth 2 x)))
+                       col))
+      (cond
+       ((null rows)
+       (setq rows (length col)))
+       ((< (length col) rows)
+       (setq col (append col (make-list (- rows (length col)) "")))))
+      (push col cols))
+    (format "%s\n%s\n"
+            (if (eq this-command 'ivy-read-action)
+               "Select action: "
+              (ivy-state-current ivy-last))
+           (mapconcat 'identity
+                      (apply 'cl-mapcar
+                             (lambda (&rest args)
+                               (mapconcat 'identity args " | "))
+                             (nreverse cols))
+                      "\n"))))
+
 (defcustom ivy-read-action-function #'ivy-read-action-by-key
   "Function used to read an action."
   :type '(radio