ui/workspaces: remove extra workspaces when restoring sessions

This commit is contained in:
Henrik Lissner 2019-12-22 19:59:22 -05:00
parent 6ac04e5a6d
commit 458cdd5df4
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 26 additions and 16 deletions

View file

@ -50,7 +50,11 @@
(cond ((require 'persp-mode nil t)
(unless persp-mode
(persp-mode +1))
(persp-load-state-from-file file))
(let ((allowed (persp-list-persp-names-in-file file)))
(cl-loop for name being the hash-keys of *persp-hash*
unless (member name allowed)
do (persp-kill name))
(persp-load-state-from-file file)))
((and (require 'frameset nil t)
(require 'restart-emacs nil t))
(restart-emacs--restore-frames-using-desktop file))