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

feat(emacs.d): Set screen-specific default text scales

Browse source
This commit is contained in:
Vincent Ambo 2019-12-17 17:41:37 +00:00 committed by Vincent Ambo
parent be28071e56
commit a40c2474fe
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -46,7 +46,7 @@
,(-map (lambda (n) (list n secondary)) (number-sequence 8 9)))))
(defun randr-layout-dp1-extend ()
"Layout for connecting my X1 Carbon to my screen at home"
"Layout for connecting my X1 Carbon to my screen at home."
(interactive)
(setq exwm-randr-workspace-monitor-plist (generate-randr-config "DP1-1" "eDP1"))
@ -59,7 +59,8 @@
(interactive)
(setq exwm-randr-workspace-monitor-plist (generate-randr-config "HDMI1" "eDP1"))
(exwm-randr-refresh)
(shell-command "xrandr --output HDMI1 --dpi 144 --auto --right-of eDP1 --primary"))
(shell-command "xrandr --output HDMI1 --dpi 144 --auto --right-of eDP1 --primary")
(set-default-text-scale nil 165))
(defun randr-layout-single ()
"Laptop screen only!"
@ -67,7 +68,8 @@
(interactive)
(shell-command "xrandr --output HDMI1 --off")
(shell-command "xrandr --output DP1-1 --off")
(exwm-randr-refresh))
(exwm-randr-refresh)
(restore-default-text-scale))
(defun set-xkb-layout (layout)
"Set the current X keyboard layout."