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

Support functions to toggling the display of the laptop

Browse source 
Since I already support toggling for the 4k monitor, I might as well support it
for my laptop too.
This commit is contained in:
William Carroll 2020-01-16 01:18:32 +00:00
parent 50f0bd3dad
commit b20fe610a4
1 changed files with 29 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
configs/shared/.emacs.d/wpc/display.el
View file

@ -58,7 +58,36 @@
:command (string/format "xrandr --output %s --off" :command (string/format "xrandr --output %s --off"
display/4k-monitor))) display/4k-monitor)))
(defun display/enable-laptop ()
"Turn the laptop monitor off.
Sometimes this is useful when I'm sharing my screen in a Google Hangout and I
only want to present one of my monitors."
(interactive)
(prelude/start-process
:name "display/disable-laptop"
:command (string/format "xrandr --output %s --auto"
display/laptop-monitor)))
(defun display/disable-laptop ()
"Turn the laptop monitor off.
Sometimes this is useful when I'm sharing my screen in a Google Hangout and I
only want to present one of my monitors."
(interactive)
(prelude/start-process
:name "display/disable-laptop"
:command (string/format "xrandr --output %s --off"
display/laptop-monitor)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Keybindings
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(when display/install-kbds? (when display/install-kbds?
(general-define-key
:prefix "<SPC>"
:states '(normal)
"d0" #'display/disable-laptop
"d1" #'display/enable-laptop)
(general-define-key (general-define-key
:prefix "<SPC>" :prefix "<SPC>"
:states '(normal) :states '(normal)