feature/workspaces: use doom-fallback-buffer function, instead of variable

This commit is contained in:
Henrik Lissner 2017-02-20 16:33:52 -05:00
parent cd66f735ce
commit 21fc4508b6

View file

@ -237,11 +237,12 @@ workspace to delete."
(+workspace-error "Could not clear session")) (+workspace-error "Could not clear session"))
(+workspace-switch persp-nil-name) (+workspace-switch persp-nil-name)
(doom/kill-all-buffers) (doom/kill-all-buffers)
(switch-to-buffer doom-fallback-buffer) (let ((fallback-buf (doom-fallback-buffer)))
(switch-to-buffer fallback-buf)
(dolist (buf (buffer-list)) (dolist (buf (buffer-list))
(unless (eq (buffer-name buf) doom-fallback-buffer) (unless (eq (buffer-name buf) fallback-buf)
(persp-remove-buffer buf) (persp-remove-buffer buf)
(kill-buffer buf)))) (kill-buffer buf)))))
;;;###autoload ;;;###autoload
(defun +workspace/kill-session-and-quit () (defun +workspace/kill-session-and-quit ()
@ -265,7 +266,7 @@ pre-existing workspace."
(dolist (window (window-list)) (dolist (window (window-list))
(persp-add-buffer (window-buffer window) persp nil)) (persp-add-buffer (window-buffer window) persp nil))
(delete-other-windows-internal) (delete-other-windows-internal)
(switch-to-buffer doom-fallback-buffer)) (switch-to-buffer (doom-fallback-buffer)))
(+workspace/display))) (+workspace/display)))
('error (+workspace-error (cadr ex) t)))) ('error (+workspace-error (cadr ex) t))))