086e9a9322
To offer more context for ivy users while switching between workspaces. Close: #3006 Co-authored-by: rgrinberg <rgrinberg@users.noreply.github.com>~
17 lines
754 B
EmacsLisp
17 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
|