mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
tvl-depot/emacs/.emacs.d/wpc/display.el

99 lines
3.2 KiB
EmacsLisp
Raw Normal View History

Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
;;; display.el --- Working with single or multiple displays -*- lexical-binding: t -*-
;; Author: William Carroll <wpcarro@gmail.com>
;;; Commentary:
;; Mostly wrappers around xrandr.
;;
;; TODO: Look into autorandr to see if it could be useful.
;;
;; Troubleshooting:
;; The following commands help me when I (infrequently) interact with xrandr.
;; - xrandr --listmonitors
;; - xrandr --query
;;; Code:
Support prelude/start-process If you refer to the previous commit where I change shell-command usages to start-process function calls, you'll see the rationale for why I prefer start-process. This commit introduces a more ergonomic API for start-process that fits most of my current use-cases of it. This cleans up the code. I have introduced a bug in the way that I'm tokenizing the COMMAND value. I've tracked that with a TODO. For now it only affects the `xmodmap -e '<command-string>'` calls, which isn't too disruptive.
2019-12-23 18:31:42 +01:00
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Dependencies
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'prelude)
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Constants
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Support keybindings for using 4k monitor I'm not sure I'm sold on the "D{0,1}" keybindings. The thought was that 0 would indicate off and 1 would indicate on. This seems sensible to me. I'm hesitant because I don't think I have precedent for this idiom in any of my existing keybindings. I'm also not sure I like these being leader-prefixed keybindings.
2020-01-13 11:27:26 +01:00
(defconst display/install-kbds? t
"When t, install the keybindings defined in this module.")
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
;; TODO: Consider if this logic should be conditioned by `device/work-laptop?'.
Debug xrandr integration to support 4k monitor Two things: 1. I'm unsure if what I previously committed ever worked because the arguments to `string/format` were flipped. 2. I'm unsure why my screen devices are sometimes eDP-1 and eDP1. Perhaps expect more commits as this becomes more clear to me.
2020-01-11 21:01:57 +01:00
(defconst display/laptop-monitor "eDP1"
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
"The xrandr identifier for my primary screen (on work laptop).")
Debug xrandr integration to support 4k monitor Two things: 1. I'm unsure if what I previously committed ever worked because the arguments to `string/format` were flipped. 2. I'm unsure why my screen devices are sometimes eDP-1 and eDP1. Perhaps expect more commits as this becomes more clear to me.
2020-01-11 21:01:57 +01:00
;; TODO: Why is HDMI-1, eDP-1 sometimes and HDMI1, eDP1 other times.
(defconst display/4k-monitor "HDMI1"
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
"The xrandr identifer for my 4K monitor.")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Library
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Track TODO for investigating 4k monitor scaling It seems like something when I run `display/enable-4k` my resolution isn't at 4k fully. However, when I call the same command on the command line it does scale properly. This doesn't sound likely, and frankly I haven't had too much time to try and reproduce this. Hence - the TODO!
2020-01-15 23:14:51 +01:00
;; TODO: Debug why something this scales to 4k appropriately and other times it
;; doesn't.
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
(defun display/enable-4k ()
"Attempt to connect to my 4K monitor."
(interactive)
Support prelude/start-process If you refer to the previous commit where I change shell-command usages to start-process function calls, you'll see the rationale for why I prefer start-process. This commit introduces a more ergonomic API for start-process that fits most of my current use-cases of it. This cleans up the code. I have introduced a bug in the way that I'm tokenizing the COMMAND value. I've tracked that with a TODO. For now it only affects the `xmodmap -e '<command-string>'` calls, which isn't too disruptive.
2019-12-23 18:31:42 +01:00
(prelude/start-process
Debug xrandr integration to support 4k monitor Two things: 1. I'm unsure if what I previously committed ever worked because the arguments to `string/format` were flipped. 2. I'm unsure why my screen devices are sometimes eDP-1 and eDP1. Perhaps expect more commits as this becomes more clear to me.
2020-01-11 21:01:57 +01:00
:name "display/enable-4k"
:command (string/format
"xrandr --output %s --above %s --primary --auto --dpi 144"
display/4k-monitor
display/laptop-monitor)))
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
(defun display/disable-4k ()
"Disconnect from the 4K monitor."
(interactive)
Support prelude/start-process If you refer to the previous commit where I change shell-command usages to start-process function calls, you'll see the rationale for why I prefer start-process. This commit introduces a more ergonomic API for start-process that fits most of my current use-cases of it. This cleans up the code. I have introduced a bug in the way that I'm tokenizing the COMMAND value. I've tracked that with a TODO. For now it only affects the `xmodmap -e '<command-string>'` calls, which isn't too disruptive.
2019-12-23 18:31:42 +01:00
(prelude/start-process
:name "display/disable-4k"
Debug xrandr integration to support 4k monitor Two things: 1. I'm unsure if what I previously committed ever worked because the arguments to `string/format` were flipped. 2. I'm unsure why my screen devices are sometimes eDP-1 and eDP1. Perhaps expect more commits as this becomes more clear to me.
2020-01-11 21:01:57 +01:00
:command (string/format "xrandr --output %s --off"
display/4k-monitor)))
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
Support functions to toggling the display of the laptop Since I already support toggling for the 4k monitor, I might as well support it for my laptop too.
2020-01-16 02:18:32 +01:00
(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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Support keybindings for using 4k monitor I'm not sure I'm sold on the "D{0,1}" keybindings. The thought was that 0 would indicate off and 1 would indicate on. This seems sensible to me. I'm hesitant because I don't think I have precedent for this idiom in any of my existing keybindings. I'm also not sure I like these being leader-prefixed keybindings.
2020-01-13 11:27:26 +01:00
(when display/install-kbds?
Support functions to toggling the display of the laptop Since I already support toggling for the 4k monitor, I might as well support it for my laptop too.
2020-01-16 02:18:32 +01:00
(general-define-key
:prefix "<SPC>"
:states '(normal)
"d0" #'display/disable-laptop
"d1" #'display/enable-laptop)
Support keybindings for using 4k monitor I'm not sure I'm sold on the "D{0,1}" keybindings. The thought was that 0 would indicate off and 1 would indicate on. This seems sensible to me. I'm hesitant because I don't think I have precedent for this idiom in any of my existing keybindings. I'm also not sure I like these being leader-prefixed keybindings.
2020-01-13 11:27:26 +01:00
(general-define-key
:prefix "<SPC>"
:states '(normal)
"D0" #'display/disable-4k
"D1" #'display/enable-4k))
Massive configuration overhaul Currently paying the price of months of non-diligent git usage. Here's what has changed. - Theming support in Gvcci and wpgtk - Dropping support for i3 - Supporting EXWM - Many Elisp modules - Collapsed redundant directories in ./configs
2019-10-09 13:13:56 +02:00
(provide 'display)
;;; display.el ends here
Reference in a new issue Copy permalink