awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Optimize +workspace-new & workspace creation

Browse Source 
This is much faster than the old method of switching to the persp to
modify them.
This commit is contained in:
Henrik Lissner
2018-08-26 14:12:50 +02:00
parent d7e4901bda
commit e40a58c423
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -155,7 +155,13 @@ Otherwise return t on success, nil otherwise."
(error "Can't create a new '%s' workspace" name))
(when (+workspace-exists-p name)
(error "A workspace named '%s' already exists" name))
(persp-add-new name))
(let ((persp (persp-add-new name))
(+popup--inhibit-transient t))
(save-window-excursion
(delete-other-windows)
(switch-to-buffer (doom-fallback-buffer))
(setf (persp-window-conf persp)
(funcall persp-window-state-get-function (selected-frame))))))
;;;###autoload
(defun +workspace-rename (name new-name)
@ -342,8 +348,6 @@ workspace, otherwise the new workspace is blank."
(clone-p (persp-copy name t))
(t
(+workspace-switch name t)
(persp-delete-other-windows)
(switch-to-buffer (doom-fallback-buffer))
(+workspace/display)))
((debug error) (+workspace-error (cadr e) t))))