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

feature/workspaces: add +workspaces-on-switch-project-behavior #836

Browse source 
To control when a new workspace is created when switching projectile
projects.
This commit is contained in:
Henrik Lissner 2018-10-03 00:00:56 -04:00
parent 63b195b133
commit 6515efa19e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
modules/feature/workspaces/autoload/workspaces.el
View file

@ -549,7 +549,9 @@ This be hooked to `projectile-after-switch-project-hook'."
(setq +workspaces--project-dir dir)) (setq +workspaces--project-dir dir))
(when (and persp-mode +workspaces--project-dir) (when (and persp-mode +workspaces--project-dir)
(unwind-protect (unwind-protect
(if (+workspace-buffer-list) (if (and (not (null +workspaces-on-switch-project-behavior))
(or (eq +workspaces-on-switch-project-behavior t)
(+workspace-buffer-list)))
(let* (persp-p (let* (persp-p
(persp (persp
(let ((project-name (doom-project-name +workspaces--project-dir))) (let ((project-name (doom-project-name +workspaces--project-dir)))

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

@ -25,6 +25,16 @@ new project directory.")
"The basename of the file to store single workspace perspectives. Will be "The basename of the file to store single workspace perspectives. Will be
stored in `persp-save-dir'.") stored in `persp-save-dir'.")
(defvar +workspaces-on-switch-project-behavior 'non-empty
"Controls the behavior of workspaces when switching to a new project.
Can be one of the following:
t Always create a new workspace for the project
'non-empty Only create a new workspace if the current one has no buffers
associated with it.
nil Never create a new workspace on project switch.")
;; If emacs is passed --restore, restore the last session on startup. This is ;; If emacs is passed --restore, restore the last session on startup. This is
;; used by the `+workspace/restart-emacs-then-restore' command. ;; used by the `+workspace/restart-emacs-then-restore' command.
(defun +workspaces-restore-last-session (&rest _) (defun +workspaces-restore-last-session (&rest _)