72 lines
2.5 KiB
EmacsLisp
72 lines
2.5 KiB
EmacsLisp
|
;;; feature/workspaces/config.el
|
||
|
|
|
||
|
|
(defvar +workspace-frames '()
|
||
|
|
"A list of all the frames opened as separate workgroups. See
|
||
|
|
defuns/defuns-workgroups.el.")
|
||
|
|
|
||
|
|
(defvar +workspace-names '()
|
||
|
|
"Keeps track of the fixed names for workgroups (set with :tabrename), so that
|
||
|
|
these workgroups won't be auto-renamed.")
|
||
|
|
|
||
|
|
(defvar +workspaces-dir (concat doom-cache-dir "workgroups/")
|
||
|
|
"Path to workspaces.")
|
||
|
|
|
||
|
|
|
||
|
|
(use-package! workgroups2 :demand t
|
||
|
|
:init
|
||
|
|
(setq wg-workgroup-directory +workspaces-dir
|
||
|
|
wg-session-file (concat wg-workgroup-directory "last")
|
||
|
|
wg-first-wg-name "*untitled*"
|
||
|
|
wg-session-load-on-start nil
|
||
|
|
wg-mode-line-display-on nil
|
||
|
|
wg-mess-with-buffer-list nil
|
||
|
|
wg-emacs-exit-save-behavior 'save ; Options: 'save 'ask nil
|
||
|
|
wg-workgroups-mode-exit-save-behavior 'save
|
||
|
|
wg-log-level 0
|
||
|
|
|
||
|
|
;; NOTE: Some of these make workgroup-restoration unstable
|
||
|
|
wg-restore-mark t
|
||
|
|
wg-restore-frame-position t
|
||
|
|
wg-restore-remote-buffers nil
|
||
|
|
wg-restore-scroll-bars nil
|
||
|
|
wg-restore-fringes nil
|
||
|
|
wg-restore-margins nil
|
||
|
|
wg-restore-point-max t ; Throws silent errors if non-nil
|
||
|
|
|
||
|
|
wg-list-display-decor-divider " "
|
||
|
|
wg-list-display-decor-left-brace ""
|
||
|
|
wg-list-display-decor-right-brace "| "
|
||
|
|
wg-list-display-decor-current-left ""
|
||
|
|
wg-list-display-decor-current-right ""
|
||
|
|
wg-list-display-decor-previous-left ""
|
||
|
|
wg-list-display-decor-previous-right "")
|
||
|
|
|
||
|
|
:config
|
||
|
|
(eval-when-compile
|
||
|
|
(unless (f-exists-p +workspaces-dir)
|
||
|
|
(make-directory +workspaces-dir t)))
|
||
|
|
|
||
|
|
;; Remember fixed workgroup names between sessions
|
||
|
|
(push '+workspace-names savehist-additional-variables)
|
||
|
|
|
||
|
|
;; `wg-mode-line-display-on' wasn't enough
|
||
|
|
(advice-add 'wg-change-modeline :override 'ignore)
|
||
|
|
;; Don't remember popup and neotree windows
|
||
|
|
(add-hook 'kill-emacs-hook '+workspace-cleanup)
|
||
|
|
|
||
|
|
(after! projectile
|
||
|
|
;; Create a new workspace on project switch
|
||
|
|
;; FIXME Possibly bug?
|
||
|
|
(defun doom*workspace-projectile-switch-project ()
|
||
|
|
(let ((project-root (doom-project-root)))
|
||
|
|
(doom:workspace-new nil (file-name-nondirectory (directory-file-name project-root)) t)
|
||
|
|
(doom-reload-scratch-buffer project-root)
|
||
|
|
(when (featurep 'neotree)
|
||
|
|
(neotree-projectile-action))))
|
||
|
|
(setq projectile-switch-project-action 'doom*workspace-projectile-switch-project))
|
||
|
|
|
||
|
|
(workgroups-mode +1)
|
||
|
|
;; Ensure there is always a workgroup active
|
||
|
|
(wg-create-workgroup wg-first-wg-name))
|
||
|
|
|