branch: externals/ivy-hydra
commit ff59888eacd1beef91e0c8d52b33fd5a82b142f2
Author: Eric Danan <[email protected]>
Commit: Eric Danan <[email protected]>
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
