diff options
| author | William Carroll <wpcarro@gmail.com> | 2020-09-29T10·21+0100 |
|---|---|---|
| committer | William Carroll <wpcarro@gmail.com> | 2020-09-29T10·21+0100 |
| commit | ce619879595666e951c242b45ca577f2e5a6f66a (patch) | |
| tree | 6f1a1ac7d3b35388b437bb56ad52211c07e24150 /emacs/.emacs.d | |
| parent | 1a5b2ab3b04dd8b5161862172767d53335eb3efd (diff) | |
Extend named-workspace struct to include display information
I want to couple my EXWM workspaces with monitors. E.g. - I'd like my "Chatter" workspace to prefer my `4k-vertical`. This change supports that. I also did a small amount of formatting, which I don't think belongs in a separate commit.
Diffstat (limited to 'emacs/.emacs.d')
| -rw-r--r-- | emacs/.emacs.d/wpc/window-manager.el | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/emacs/.emacs.d/wpc/window-manager.el b/emacs/.emacs.d/wpc/window-manager.el index 90d485ade7f9..01e128c281aa 100644 --- a/emacs/.emacs.d/wpc/window-manager.el +++ b/emacs/.emacs.d/wpc/window-manager.el @@ -57,7 +57,7 @@ ;; TODO: Support MRU cache of workspaces for easily switching back-and-forth ;; between workspaces. -(cl-defstruct window-manager--named-workspace label kbd) +(cl-defstruct window-manager--named-workspace label kbd display) (defconst window-manager--install-kbds? t "When t, install the keybindings to switch between named-workspaces.") @@ -68,16 +68,20 @@ (defconst window-manager--named-workspaces (list (make-window-manager--named-workspace :label "Web surfing" - :kbd "c") + :kbd "c" + :display display-4k-horizontal) (make-window-manager--named-workspace :label "Briefcase" - :kbd "d") + :kbd "d" + :display display-4k-horizontal) (make-window-manager--named-workspace :label "Todos" - :kbd "o") + :kbd "o" + :display display-4k-horizontal) (make-window-manager--named-workspace :label "Chatter" - :kbd "h")) + :kbd "h" + :display display-4k-vertical)) "List of `window-manager--named-workspace' structs.") ;; Assert that no two workspaces share KBDs. @@ -102,10 +106,10 @@ (require 'exwm-randr) (exwm-randr-enable) (setq exwm-randr-workspace-monitor-plist - (list 0 display-4k-horizontal - 1 display-laptop - 2 display-4k-vertical)) - + (->> window-manager--named-workspaces + (-map-indexed (lambda (i x) + (list i (window-manager--named-workspace-display x)))) + -flatten)) (evil-set-initial-state 'exwm-mode 'emacs) (setq exwm-workspace-number (list-length window-manager--named-workspaces)) @@ -113,7 +117,6 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Window sizing ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - (:key "C-M-=" :fn balance-windows) ;; TODO: Make sure these don't interfere with LISP KBDs. (:key "C-M-j" :fn shrink-window) @@ -124,7 +127,6 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Window traversing ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - (:key "M-h" :fn windmove-left) (:key "M-j" :fn windmove-down) (:key "M-k" :fn windmove-up) @@ -133,20 +135,17 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Window splitting ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - (:key "M-\\" :fn evil-window-vsplit) (:key "M--" :fn evil-window-split) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Window deletion ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - (:key "M-q" :fn delete-window) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Miscellaneous ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - (:key "M-:" :fn eval-expression) (:key "M-SPC" :fn ivy-helpers-run-external-command) (:key "M-x" :fn counsel-M-x) @@ -158,8 +157,8 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Workspaces ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - (:key ,(kbd-raw 'workspace "l") :fn window-manager-logout)))) + (setq exwm-input-global-keys (->> kbds (-map (lambda (plist) |