gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Improve workgroups2 integration

Browse Source
This commit is contained in:
Henrik Lissner 2015-11-30 05:32:55 -05:00
parent f6cbb96f5e
commit 7a0d0c8cd0
1 changed files with 21 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
core/core-workgroups.el
View File

@ -2,26 +2,28 @@
;; see lib/workgroup-defuns.el
(use-package workgroups2
:when window-system
:when (display-graphic-p)
:init
(setq split-height-threshold 8
(setq-default
wg-session-file (expand-file-name "wg-default" narf-temp-dir)
wg-workgroup-directory (expand-file-name "workgroups" narf-temp-dir)
wg-first-wg-name "main"
wg-session-load-on-start t
wg-mode-line-display-on nil
wg-mess-with-buffer-list t
wg-emacs-exit-save-behavior 'save ; Options: 'save 'ask nil
wg-workgroups-mode-exit-save-behavior 'save
wg-log-level 0
wg-session-file (expand-file-name "wg-default" narf-temp-dir)
wg-workgroup-directory (expand-file-name "workgroups" narf-temp-dir)
wg-first-wg-name "main"
wg-session-load-on-start t
wg-mode-line-display-on nil
wg-mess-with-buffer-list t
wg-emacs-exit-save-behavior 'save ; Options: 'save 'ask nil
wg-workgroups-mode-exit-save-behavior 'save
wg-log-level 0
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 "")
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 "")
:config
;; Don't mess with the modeline!
(advice-add 'wg-change-modeline :override 'ignore)
(defvar narf/helm-source-wg
'((name . "Workgroups")
(candidates . wg-workgroup-names)
@ -33,6 +35,8 @@
;; Create a new workgroup on switch-project
(setq projectile-switch-project-action 'narf/wg-projectile-switch-project))
;; Don't remember popwin windows
(add-hook! kill-emacs 'popwin:close-popup-window)
(add-hook! wg-before-switch-to-workgroup 'popwin:close-popup-window)
;; Initialize!