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

refactor(ibuffer): +ibuffer/visit-workspace-buffer

Browse source
This commit is contained in:
Henrik Lissner 2022-04-03 21:06:35 +02:00
parent 065e005db9
commit 8e33d2d04a
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 13 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

27
modules/emacs/ibuffer/autoload/workspaces.el
View file

@ -18,18 +18,17 @@
"Visit buffer, but switch to its workspace if it exists."
(interactive "P")
(let ((buf (ibuffer-current-buffer t)))
(if (not (buffer-live-p buf))
(user-error "Not a valid or live buffer: %s" buf)
(when-let (workspaces
(cl-loop for wk in (+workspace-list)
if (+workspace-contains-buffer-p buf wk)
collect wk))
(unless (buffer-live-p buf)
(user-error "Not a valid or live buffer: %s" buf))
(if-let (workspaces
(cl-loop for wk in (+workspace-list)
if (+workspace-contains-buffer-p buf wk)
collect wk))
(+workspace-switch
(persp-name
(if (and (not select-first) (cdr workspaces))
(+workspace-get
(or (completing-read "Select workspace: " (mapcar #'persp-name workspaces))
(user-error "Aborted")))
(car workspaces)))))
(persp-add-buffer buf) ; then add the buffer to the current workspace
(switch-to-buffer buf))))
(if (and (not select-first) (cdr workspaces))
(or (completing-read "Select workspace: " (mapcar #'persp-name workspaces))
(user-error "Aborted"))
(persp-name (car workspaces))))
;; Or add the buffer to the current workspace
(persp-add-buffer buf))
(switch-to-buffer buf)))