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

Refactor; don't autosave blank session

Browse source
This commit is contained in:
Henrik Lissner 2017-06-04 02:38:02 +02:00
parent 8a70e47e6d
commit 3c8e70c0d0
1 changed files with 14 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

26
modules/feature/workspaces/config.el
View file

@ -58,11 +58,11 @@ renamed.")
(add-hook! 'after-init-hook (add-hook! 'after-init-hook
(if (display-graphic-p) (if (display-graphic-p)
(+workspaces|init) (+workspaces|init)
(add-hook 'after-make-frame-functions '+workspaces|init))) (add-hook 'after-make-frame-functions #'+workspaces|init)))
(define-key persp-mode-map [remap delete-window] #'+workspace/close-window-or-workspace) (define-key persp-mode-map [remap delete-window] #'+workspace/close-window-or-workspace)
;; Per-frame perspectives ;; Spawn a perspective for each new frame
(setq persp-init-new-frame-behaviour-override nil (setq persp-init-new-frame-behaviour-override nil
persp-interactive-init-frame-behaviour-override persp-interactive-init-frame-behaviour-override
(lambda (frame &optional new-frame-p) (lambda (frame &optional new-frame-p)
@ -88,23 +88,25 @@ perspective-specific buffer list via `doom-buffer-list'."
(advice-add #'switch-to-buffer :after #'+workspaces*auto-add-buffer) (advice-add #'switch-to-buffer :after #'+workspaces*auto-add-buffer)
(advice-add #'display-buffer :after #'+workspaces*auto-add-buffer) (advice-add #'display-buffer :after #'+workspaces*auto-add-buffer)
(defun doom|new-workspace-on-project-change () (defun +workspaces|workspace-per-project ()
"Create a new workspace when switching project with projectile." "Create a new workspace when switching project with projectile."
(+workspace-switch (projectile-project-name) t)) (+workspace-switch (projectile-project-name) t))
(add-hook 'projectile-before-switch-project-hook #'doom|new-workspace-on-project-change) (add-hook 'projectile-before-switch-project-hook #'+workspaces|workspace-per-project)
(defun +workspaces*reinit-popups (&rest _) (defun +workspaces|restore-popups (&rest _)
"Runs `+workspaces-load-session-hook'."
(run-hook-with-args '+workspaces-load-session-hook (window-list)))
(advice-add #'persp-load-state-from-file :after #'+workspaces*reinit-popups)
(defun +workspaces|restore-popups (windows)
"Restore popup windows when loading a perspective from file." "Restore popup windows when loading a perspective from file."
(dolist (window windows) (dolist (window (window-list))
(when-let (plist (window-parameter window 'popup)) (when-let (plist (window-parameter window 'popup))
(with-selected-window window (with-selected-window window
(unless doom-popup-mode (unless doom-popup-mode
(setq-local doom-popup-rules plist) (setq-local doom-popup-rules plist)
(doom-popup-mode +1)))))) (doom-popup-mode +1))))))
(add-hook '+workspaces-load-session-hook #'+workspaces|restore-popups)) (advice-add #'persp-load-state-from-file :after #'+workspaces|restore-popups)
(defun +workspaces*autosave-real-buffers (orig-fn &rest args)
"Don't autosave if no real buffers are open."
(when (doom-real-buffers-list)
(apply orig-fn args))
t)
(advice-add #'persp-asave-on-exit :around #'+workspaces*autosave-real-buffers))