emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feature/workspaces: refactor +workspace-buffer-list

Browse source
This commit is contained in:
Henrik Lissner 2018-02-10 02:16:50 -05:00
parent a43b88b18a
commit f2a4028f30
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
modules/feature/workspaces/autoload/workspaces.el
View file

@ -85,11 +85,13 @@ The buffer list is ordered by recency (same as `buffer-list').
PERSP can be a string (name of a workspace) or a workspace (satisfies PERSP can be a string (name of a workspace) or a workspace (satisfies
`+workspace-p'). If nil or omitted, it defaults to the current workspace." `+workspace-p'). If nil or omitted, it defaults to the current workspace."
(let ((persp (or persp (+workspace-current)))) (unless persp
(cl-assert (+workspace-p persp) t) (setq persp (+workspace-current)))
(cl-loop for buf in (buffer-list) (unless (+workspace-p persp)
if (+workspace-contains-buffer-p buf persp) (error "You're in the nil perspective"))
collect buf))) (cl-loop for buf in (buffer-list)
if (+workspace-contains-buffer-p buf persp)
collect buf))
;;;###autoload ;;;###autoload
(defun +workspace-orphaned-buffer-list () (defun +workspace-orphaned-buffer-list ()