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

Prevent doom buffer from sneaking into saved workgroups

Browse source
This commit is contained in:
Henrik Lissner 2016-10-30 13:10:34 +01:00
parent 799ea3054d
commit efb2d30bb4
2 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
core/defuns/defuns-workgroup.el
View file

@ -2,9 +2,12 @@
;;;###autoload
(defun doom|wg-cleanup ()
(doom/popup-close-all)
(when (and (featurep 'neotree) (neo-global--window-exists-p))
(neotree-hide)))
"Remove unsavable windows and buffers before we save the window
configuration."
(let (doom-buffer-inhibit-refresh)
(doom/popup-close-all)
(when (and (featurep 'neotree) (neo-global--window-exists-p))
(neotree-hide))))
;;;###autoload
(defun doom/wg-projectile-switch-project ()
@ -17,9 +20,9 @@
;;;###autoload (autoload 'doom:workgroup-save "defuns-workgroup" nil t)
(evil-define-command doom:workgroup-save (&optional bang session-name)
(interactive "<!><a>")
(doom|wg-cleanup)
(unless (wg-workgroup-list)
(wg-create-workgroup wg-first-wg-name))
(doom|wg-cleanup)
(wg-save-session-as (if session-name
(concat wg-workgroup-directory session-name)
(if bang
@ -29,6 +32,7 @@
;;;###autoload (autoload 'doom:workgroup-load "defuns-workgroup" nil t)
(evil-define-command doom:workgroup-load (&optional bang session-name)
(interactive "<!><a>")
(doom|wg-cleanup)
(let ((session-file (if session-name
(concat wg-workgroup-directory session-name)
(let ((sess (concat wg-workgroup-directory (f-filename (doom/project-root)))))