about summary refs log tree commit diff
path: root/emacs/.emacs.d/wpc/window-manager.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2021-10-08T02·02-0700
committerWilliam Carroll <wpcarro@gmail.com>2021-10-08T02·02-0700
commit1909d4bd73101f89c0056c44076122da37866b9d (patch)
tree8cc4da083808cc7cff32932a00701e39edb9003b /emacs/.emacs.d/wpc/window-manager.el
parentf6ade91595b784dd3022dd79a82804ceb5ea4084 (diff)
Define 4k-vertical display
Back to having three monitors :)

I'm also calling `display-arrange-primary` in `exwm-init-hook`, which calls
`xrandr` to ensure my displays are configured as I expect.
Diffstat (limited to 'emacs/.emacs.d/wpc/window-manager.el')
-rw-r--r--emacs/.emacs.d/wpc/window-manager.el15
1 files changed, 13 insertions, 2 deletions
diff --git a/emacs/.emacs.d/wpc/window-manager.el b/emacs/.emacs.d/wpc/window-manager.el
index 98ee1cece96b..6030461da61b 100644
--- a/emacs/.emacs.d/wpc/window-manager.el
+++ b/emacs/.emacs.d/wpc/window-manager.el
@@ -72,7 +72,15 @@
         (make-window-manager--named-workspace
          :label "Coding"
          :kbd "d"
-         :display display-4k-horizontal))
+         :display display-4k-horizontal)
+        (make-window-manager--named-workspace
+         :label "Vertical"
+         :kbd "h"
+         :display display-4k-vertical)
+        (make-window-manager--named-workspace
+         :label "Laptop"
+         :kbd "p"
+         :display display-laptop))
   "List of `window-manager--named-workspace' structs.")
 
 ;; Assert that no two workspaces share KBDs.
@@ -337,7 +345,10 @@ predicate."
 ;; Startup Applications in `window-manager--named-workspaces'
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(add-hook 'exwm-init-hook (lambda () (window-manager--switch "Coding")))
+(add-hook 'exwm-init-hook
+          (lambda ()
+            (display-arrange-primary)
+            (window-manager--switch "Coding")))
 
 (provide 'window-manager)
 ;;; window-manager.el ends here