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

feat(tazjin/emacs): add screen layouts for khamovnik

Browse source 
Change-Id: I057c996650a48cfafdcba84e1087663e212eadda
Reviewed-on: https://cl.tvl.fyi/c/depot/+/8879
Reviewed-by: tazjin <tazjin@tvl.su>
Tested-by: BuildkiteCI
This commit is contained in:
Vincent Ambo 2023-06-30 13:42:08 +03:00 committed by tazjin
parent 9dca6c9c6c
commit 22e7e7bc99
1 changed files with 21 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
users/tazjin/emacs/config/desktop.el
View file

@ -348,6 +348,22 @@ in-progress."
(shell-command "xrandr --output DisplayPort-0 --auto --primary --left-of DisplayPort-1") (shell-command "xrandr --output DisplayPort-0 --auto --primary --left-of DisplayPort-1")
(shell-command "xrandr --output DisplayPort-1 --auto --right-of DisplayPort-0 --rotate left")) (shell-command "xrandr --output DisplayPort-1 --auto --right-of DisplayPort-0 --rotate left"))
(defun randr-khamovnik-layout-office ()
"Use the left and right screen on khamovnik, in the office."
(interactive)
(set-randr-config `(("eDP-1" 1 2)
("DP-2" 3 4 5 6 7 8 9 0)))
(shell-command "xrandr --output DP-2 --auto --primary --right-of eDP-1"))
(defun randr-khamovnik-layout-single ()
"Use only the internal screen."
(interactive)
(set-randr-config '(("eDP-1" (number-sequence 0 9))))
(shell-command "xrandr --output eDP-1 --auto --primary")
(shell-command "xrandr --output DP-2 --off")
(exwm-randr-refresh))
(pcase (s-trim (shell-command-to-string "hostname")) (pcase (s-trim (shell-command-to-string "hostname"))
("tverskoy" ("tverskoy"
(exwm-input-set-key (kbd "s-m s") #'randr-tverskoy-layout-single) (exwm-input-set-key (kbd "s-m s") #'randr-tverskoy-layout-single)
@ -355,7 +371,11 @@ in-progress."
("frog" ("frog"
(exwm-input-set-key (kbd "s-m b") #'randr-frog-layout-both) (exwm-input-set-key (kbd "s-m b") #'randr-frog-layout-both)
(exwm-input-set-key (kbd "s-m r") #'randr-frog-layout-right-only))) (exwm-input-set-key (kbd "s-m r") #'randr-frog-layout-right-only))
("khamovnik"
(exwm-input-set-key (kbd "s-m 2") #'randr-khamovnik-layout-office)
(exwm-input-set-key (kbd "s-m s") #'randr-khamovnik-layout-single)))
;; Notmuch shortcuts as EXWM globals ;; Notmuch shortcuts as EXWM globals
;; (g m => gmail) ;; (g m => gmail)