18 lines
754 B
EmacsLisp
18 lines
754 B
EmacsLisp
|
;;; ui/workspaces/autoload/ivy.el -*- lexical-binding: t; -*-
|
||
|
|
;;;###if (modulep! :completion ivy)
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun +workspace--ivy-rich-preview (workspace)
|
||
|
|
(if-let (buffers (when-let (workspace (gethash workspace *persp-hash*))
|
||
|
|
(cl-loop for (type . rest) in (persp-window-conf workspace)
|
||
|
|
if (eq type 'buffer)
|
||
|
|
collect (car leaf)
|
||
|
|
else if (eq type 'leaf)
|
||
|
|
append (cl-loop for (type . leaf) in rest
|
||
|
|
if (eq type 'buffer)
|
||
|
|
collect (car leaf)))))
|
||
|
|
(string-join buffers " ")
|
||
|
|
"*No buffers*"))
|
||
|
|
|
||
|
|
;;; ivy.el ends here
|