2015-06-15 15:05:52 +08:00
|
|
|
;;; core-workgroups.el
|
|
|
|
|
;; see lib/workgroup-defuns.el
|
|
|
|
|
|
|
|
|
|
(use-package workgroups2
|
2015-11-30 18:32:55 +08:00
|
|
|
:when (display-graphic-p)
|
2015-06-15 15:05:52 +08:00
|
|
|
:init
|
2015-12-23 16:42:47 +08:00
|
|
|
(add-hook! after-init 'workgroups-mode)
|
2015-11-30 18:32:55 +08:00
|
|
|
(setq-default
|
|
|
|
|
wg-session-file (expand-file-name "wg-default" narf-temp-dir)
|
|
|
|
|
wg-workgroup-directory (expand-file-name "workgroups" narf-temp-dir)
|
2015-12-11 09:43:33 +08:00
|
|
|
wg-first-wg-name "*untitled*"
|
2015-11-30 18:32:55 +08:00
|
|
|
wg-session-load-on-start t
|
|
|
|
|
wg-mode-line-display-on nil
|
2015-12-12 05:51:04 +08:00
|
|
|
wg-mess-with-buffer-list nil
|
2015-11-30 18:32:55 +08:00
|
|
|
wg-emacs-exit-save-behavior 'save ; Options: 'save 'ask nil
|
|
|
|
|
wg-workgroups-mode-exit-save-behavior 'save
|
|
|
|
|
wg-log-level 0
|
|
|
|
|
|
2015-12-30 12:14:24 +08:00
|
|
|
;; Some of these make workgroup-restoration-on-init unstable. I'd rather trade some
|
|
|
|
|
;; convenience for stability.
|
|
|
|
|
wg-restore-fringes nil
|
|
|
|
|
wg-restore-margins nil
|
|
|
|
|
wg-restore-scroll-bars nil
|
|
|
|
|
wg-restore-frame-position nil
|
|
|
|
|
wg-restore-remote-buffers nil
|
|
|
|
|
;; wg-restore-mark nil
|
|
|
|
|
;; wg-restore-point-max nil
|
|
|
|
|
|
2015-12-11 09:43:33 +08:00
|
|
|
wg-list-display-decor-divider " "
|
|
|
|
|
wg-list-display-decor-left-brace ""
|
2015-12-12 05:51:04 +08:00
|
|
|
wg-list-display-decor-right-brace "| "
|
2015-12-11 09:43:33 +08:00
|
|
|
wg-list-display-decor-current-left ""
|
|
|
|
|
wg-list-display-decor-current-right ""
|
2015-11-30 18:32:55 +08:00
|
|
|
wg-list-display-decor-previous-left ""
|
|
|
|
|
wg-list-display-decor-previous-right "")
|
2015-06-15 15:05:52 +08:00
|
|
|
:config
|
|
|
|
|
(defvar narf/helm-source-wg
|
|
|
|
|
'((name . "Workgroups")
|
|
|
|
|
(candidates . wg-workgroup-names)
|
|
|
|
|
(action . narf/wg-helm-switch-to-workgroup)))
|
|
|
|
|
|
2015-12-12 05:51:04 +08:00
|
|
|
(unless (file-exists-p wg-workgroup-directory)
|
|
|
|
|
(mkdir wg-workgroup-directory))
|
2015-11-09 06:57:41 +08:00
|
|
|
|
2015-12-21 18:44:44 +08:00
|
|
|
(defvar narf-wg-frames '()
|
|
|
|
|
"A list of all the frames opened as separate workgroups. See
|
|
|
|
|
lib/defuns-workgroups.el.")
|
|
|
|
|
(defvar narf-wg-names '()
|
|
|
|
|
"A list of fixed names for workgroups. If a name is set, workgroup names aren't
|
|
|
|
|
automatically renamed to the project name.")
|
|
|
|
|
|
|
|
|
|
;; Remember the set names in between sessions
|
|
|
|
|
(add-to-list 'savehist-additional-variables 'narf-wg-names)
|
|
|
|
|
|
2015-06-15 15:05:52 +08:00
|
|
|
(after! projectile
|
2015-11-14 15:41:53 +08:00
|
|
|
;; Create a new workgroup on switch-project
|
2015-06-15 15:05:52 +08:00
|
|
|
(setq projectile-switch-project-action 'narf/wg-projectile-switch-project))
|
|
|
|
|
|
2015-12-21 18:44:44 +08:00
|
|
|
;; Save the session every 10 minutes
|
|
|
|
|
(run-with-timer 0 600 'narf/wg-autosave)
|
|
|
|
|
|
|
|
|
|
;; Don't mess with the modeline!
|
|
|
|
|
(advice-add 'wg-change-modeline :override 'ignore)
|
2015-11-25 19:00:49 +08:00
|
|
|
|
2015-12-21 18:44:44 +08:00
|
|
|
;; Don't remember popup windows
|
2015-12-23 16:42:47 +08:00
|
|
|
(add-hook! kill-emacs 'narf-popup-close-all))
|
2015-06-15 15:05:52 +08:00
|
|
|
|
|
|
|
|
(provide 'core-workgroups)
|
|
|
|
|
;;; core-workgroups.el ends here
|
