emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
Download patch file Download diff file Expand all files Collapse all files

10
core/core-workgroups.el
View file

@ -2,10 +2,9 @@
;; see lib/workgroup-defuns.el ;; see lib/workgroup-defuns.el
(use-package workgroups2 (use-package workgroups2
:when window-system :when (display-graphic-p)
:init :init
(setq split-height-threshold 8 (setq-default
wg-session-file (expand-file-name "wg-default" narf-temp-dir) wg-session-file (expand-file-name "wg-default" narf-temp-dir)
wg-workgroup-directory (expand-file-name "workgroups" narf-temp-dir) wg-workgroup-directory (expand-file-name "workgroups" narf-temp-dir)
wg-first-wg-name "main" wg-first-wg-name "main"
@ -22,6 +21,9 @@
wg-list-display-decor-previous-left "" wg-list-display-decor-previous-left ""
wg-list-display-decor-previous-right "") wg-list-display-decor-previous-right "")
:config :config
;; Don't mess with the modeline!
(advice-add 'wg-change-modeline :override 'ignore)
(defvar narf/helm-source-wg (defvar narf/helm-source-wg
'((name . "Workgroups") '((name . "Workgroups")
(candidates . wg-workgroup-names) (candidates . wg-workgroup-names)
@ -33,6 +35,8 @@
;; Create a new workgroup on switch-project ;; Create a new workgroup on switch-project
(setq projectile-switch-project-action 'narf/wg-projectile-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) (add-hook! wg-before-switch-to-workgroup 'popwin:close-popup-window)
;; Initialize! ;; Initialize!