2015-06-15 15:05:52 +08:00
|
|
|
;;; core-workgroups.el
|
|
|
|
|
;; see lib/workgroup-defuns.el
|
|
|
|
|
|
|
|
|
|
(use-package workgroups2
|
2015-08-11 04:28:47 +08:00
|
|
|
:when window-system
|
2015-06-15 15:05:52 +08:00
|
|
|
:init
|
2015-11-19 18:55:21 +08:00
|
|
|
(setq split-height-threshold 8
|
2015-11-04 14:20:07 +08:00
|
|
|
|
|
|
|
|
wg-session-file (expand-file-name "wg-default" narf-temp-dir)
|
2015-10-26 13:34:16 +08:00
|
|
|
wg-workgroup-directory (expand-file-name "workgroups" narf-temp-dir)
|
2015-06-15 15:05:52 +08:00
|
|
|
wg-first-wg-name "main"
|
|
|
|
|
wg-session-load-on-start t
|
|
|
|
|
wg-mode-line-display-on nil
|
|
|
|
|
wg-mess-with-buffer-list t
|
2015-11-14 15:41:53 +08:00
|
|
|
wg-emacs-exit-save-behavior 'save ; Options: 'save 'ask nil
|
2015-10-01 01:50:30 +08:00
|
|
|
wg-workgroups-mode-exit-save-behavior 'save
|
2015-10-12 16:31:55 +08:00
|
|
|
wg-log-level 0
|
2015-10-01 01:50:30 +08:00
|
|
|
|
|
|
|
|
wg-list-display-decor-divider " : "
|
|
|
|
|
wg-list-display-decor-current-left "["
|
|
|
|
|
wg-list-display-decor-current-right "]"
|
|
|
|
|
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-11-09 06:57:41 +08:00
|
|
|
(defvar narf-wg-frames '())
|
|
|
|
|
|
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))
|
|
|
|
|
|
|
|
|
|
;; Initialize!
|
|
|
|
|
(add-hook! after-init
|
|
|
|
|
(workgroups-mode 1)
|
|
|
|
|
(diminish 'workgroups-mode)))
|
|
|
|
|
|
|
|
|
|
(provide 'core-workgroups)
|
|
|
|
|
;;; core-workgroups.el ends here
|
