mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

chore(tools/emacs): Update window management configuration for frog

Browse source 
Change-Id: I848d4c1d58a81a66800f25459fee8f85d3f269f6
Reviewed-on: https://cl.tvl.fyi/c/depot/+/64
Reviewed-by: tazjin <mail@tazj.in>
This commit is contained in:
Vincent Ambo 2020-06-12 00:14:24 +01:00 committed by tazjin
parent 4e3d3b6c22
commit d570fbbad3
1 changed files with 15 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
tools/emacs/config/desktop.el
View file

@ -216,23 +216,23 @@
(shell-command "xrandr --output HDMI1 --right-of eDP1 --auto --primary") (shell-command "xrandr --output HDMI1 --right-of eDP1 --auto --primary")
(exwm-randr-refresh)) (exwm-randr-refresh))
;; Layouts for nugget (desktop) ;; Layouts for frog (desktop)
(defun randr-nugget-layout-right-only () (defun randr-frog-layout-right-only ()
"Use only the right screen on nugget." "Use only the right screen on frog."
(interactive) (interactive)
(set-randr-config `(("DP-2" ,(number-sequence 0 9)))) (set-randr-config `(("DP-1" ,(number-sequence 0 9))))
(shell-command "xrandr --output DP-0 --off") (shell-command "xrandr --output DP-2 --off")
(shell-command "xrandr --output DP-2 --auto --primary")) (shell-command "xrandr --output DP-1 --auto --primary"))
(defun randr-nugget-layout-both () (defun randr-frog-layout-both ()
"Use the left and right screen on nugget." "Use the left and right screen on frog."
(interactive) (interactive)
(set-randr-config `(("DP-0" 1 2 3 4 5) (set-randr-config `(("DP-2" 1 2 3 4 5)
("DP-2" 6 7 8 9 0))) ("DP-1" 6 7 8 9 0)))
(shell-command "xrandr --output DP-0 --auto --primary --left-of DP-2") (shell-command "xrandr --output DP-2 --auto --primary --left-of DP-1")
(shell-command "xrandr --output DP-2 --auto --right-of DP-0")) (shell-command "xrandr --output DP-1 --auto --right-of DP-2"))
(pcase (s-trim (shell-command-to-string "hostname")) (pcase (s-trim (shell-command-to-string "hostname"))
("vauxhall" ("vauxhall"
@ -240,9 +240,9 @@
(exwm-input-set-key (kbd "s-m a") #'randr-vauxhall-layout-all) (exwm-input-set-key (kbd "s-m a") #'randr-vauxhall-layout-all)
(exwm-input-set-key (kbd "s-m w") #'randr-vauxhall-layout-wide-only)) (exwm-input-set-key (kbd "s-m w") #'randr-vauxhall-layout-wide-only))
("nugget" ("frog"
(exwm-input-set-key (kbd "s-m b") #'randr-nugget-layout-both) (exwm-input-set-key (kbd "s-m b") #'randr-frog-layout-both)
(exwm-input-set-key (kbd "s-m r") #'randr-nugget-layout-right-only))) (exwm-input-set-key (kbd "s-m r") #'randr-frog-layout-right-only)))
(exwm-randr-enable) (exwm-randr-enable)