gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ui/workspaces: minor refactors

Browse Source
This commit is contained in:
Henrik Lissner 2019-04-24 18:27:40 -04:00
parent 1ab8dac872
commit fc511ed701
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
modules/ui/workspaces/autoload/workspaces.el
View File

@ -68,6 +68,8 @@ error if NAME doesn't exist."
;;;###autoload
(defun +workspace-list ()
"Return a list of workspace structs (satisifes `+workspace-p')."
;; We don't use `hash-table-values' because it doesn't ensure order in older
;; versions of Emacs
(cdr (cl-loop for persp being the hash-values of *persp-hash*
collect persp)))
@ -87,9 +89,7 @@ PERSP can be a string (name of a workspace) or a workspace (satisfies
(let ((persp (or persp (+workspace-current))))
(unless (+workspace-p persp)
(user-error "Not in a valid workspace (%s)" persp))
(cl-loop for buf in (buffer-list)
if (+workspace-contains-buffer-p buf persp)
collect buf)))
(persp-buffers persp)))
;;;###autoload
(defun +workspace-orphaned-buffer-list ()
@ -380,7 +380,7 @@ the next."
(delete-frame)
(+workspace/delete current-persp-name))))
(t (+workspace-error "Can't delete last workspace" t)))))))
((+workspace-error "Can't delete last workspace" t)))))))
;;
@ -500,8 +500,6 @@ This be hooked to `projectile-after-switch-project-hook'."
(+workspace-new project-name))))
(new-name (persp-name persp)))
(+workspace-switch new-name)
(unless persp-p
(switch-to-buffer (doom-fallback-buffer)))
(with-current-buffer (doom-fallback-buffer)
(setq default-directory +workspaces--project-dir))
(unless current-prefix-arg