Add modules/feature/workspaces

modules/feature/workspaces/config.el

@@ -0,0 +1,71 @@
+;;; 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))
+