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

97 lines
3.4 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 -*-
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
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
;; Author: William Carroll <wpcarro@gmail.com>
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
;; Version: 0.0.1
;; URL: https://git.wpcarro.dev/wpcarro/briefcase
;; Package-Requires: ((emacs "24"))
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
;;; 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)
Support cycling through display configurations Today when I opened my laptop, I wasn't sure if it was powered off or on because the display was blank. Thankfully the volume was muted and the LED indicator was on, which informed me that the laptop was powered on. This saved me from unnecessarily rebooting. What happened was that last night I was working from home and using my external monitor. Usually I enable my external display and disable my laptop display. But when I left for work this morning, I unplugged the HDMI cable from my laptop without disabling the external display or enabling the laptop display. I noticed a XF86 button on my laptop entitled XF86Display. I figured that this could be a nice place to bind a key to toggle my laptop display on or off. At the last minute, I had the idea to just cycle through all possible display configurations that I use; there are only three anyways. When dealing with more than two states, I realized I should use a cycle to model the configuration states. Now I'm thinking that I should be using cycles to model toggles as well - instead of just using a top-level variable that I `setq` over. I haven't refactored existing toggles to be cycles, but I am excited about this new keybinding. This commit additionally: - Moves keybindings out of display.el and into keybindings.el - Conditionally sets KBDs if using work laptop
2020-02-11 12:00:24 +01:00
(require 'cycle)
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
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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
;; TODO: Consider if this logic should be conditioned by `device-work-laptop?'.
(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.
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
(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.")
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
(defconst display-display-states (cycle-from-list '((t . nil) (nil . t)))
Support cycling through display configurations Today when I opened my laptop, I wasn't sure if it was powered off or on because the display was blank. Thankfully the volume was muted and the LED indicator was on, which informed me that the laptop was powered on. This saved me from unnecessarily rebooting. What happened was that last night I was working from home and using my external monitor. Usually I enable my external display and disable my laptop display. But when I left for work this morning, I unplugged the HDMI cable from my laptop without disabling the external display or enabling the laptop display. I noticed a XF86 button on my laptop entitled XF86Display. I figured that this could be a nice place to bind a key to toggle my laptop display on or off. At the last minute, I had the idea to just cycle through all possible display configurations that I use; there are only three anyways. When dealing with more than two states, I realized I should use a cycle to model the configuration states. Now I'm thinking that I should be using cycles to model toggles as well - instead of just using a top-level variable that I `setq` over. I haven't refactored existing toggles to be cycles, but I am excited about this new keybinding. This commit additionally: - Moves keybindings out of display.el and into keybindings.el - Conditionally sets KBDs if using work laptop
2020-02-11 12:00:24 +01:00
"A list of cons cells modelling enabled and disabled states for my displays.
The car models the enabled state of my laptop display; the cdr models the
enabled state of my external 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
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 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.
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
(defun 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
"Attempt to connect to my 4K monitor."
(interactive)
Lint prelude.el This was a doozey because I use it everywhere. Is there a better way to globally rename things? Aye aye aye... computers, man!
2020-08-31 18:05:31 +02:00
(prelude-start-process
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
:name "display-enable-4k"
Lint string, macros.el More of the same type of linting... basically preferring `namespace-` instead of `namespace/`.
2020-09-01 00:28:47 +02:00
:command (string-format
Attempt to debug xrandr behavior in display.el Currently, after I connect my monitor to my laptop, I run `display/enable-4k`, which will use `xrandr` to enable the display. The scaling of the enabled display is not what I expect. So I've habituated re-running the same function, `display/enable-4k`, which scales the display and meets my expectations. What's strange is that if instead of running `display/enable-4k` the first time from Emacs, I call `xrandr ...` from a terminal, this enables the display and scales it properly on the first invocation. I'm unsure how to explain this behavior. It's possible that a environment variable is set properly in the terminal that isn't set in my Emacs, but this is just a guess. I'm going to using a different invocation in display.el that explicitly passes the monitors dimensions. Let's see if that works.
2020-02-02 13:16:27 +01:00
"xrandr --output %s --above %s --primary --auto --size 3840x2160 --rate 30.00 --dpi 144"
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
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
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
(defun display-disable-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
"Disconnect from the 4K monitor."
(interactive)
Lint prelude.el This was a doozey because I use it everywhere. Is there a better way to globally rename things? Aye aye aye... computers, man!
2020-08-31 18:05:31 +02:00
(prelude-start-process
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
:name "display-disable-4k"
Lint string, macros.el More of the same type of linting... basically preferring `namespace-` instead of `namespace/`.
2020-09-01 00:28:47 +02:00
:command (string-format "xrandr --output %s --off"
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
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
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
(defun display-enable-laptop ()
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
"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)
Lint prelude.el This was a doozey because I use it everywhere. Is there a better way to globally rename things? Aye aye aye... computers, man!
2020-08-31 18:05:31 +02:00
(prelude-start-process
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
:name "display-disable-laptop"
Lint string, macros.el More of the same type of linting... basically preferring `namespace-` instead of `namespace/`.
2020-09-01 00:28:47 +02:00
:command (string-format "xrandr --output %s --auto"
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
display-laptop-monitor)))
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
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
(defun display-disable-laptop ()
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
"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)
Lint prelude.el This was a doozey because I use it everywhere. Is there a better way to globally rename things? Aye aye aye... computers, man!
2020-08-31 18:05:31 +02:00
(prelude-start-process
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
:name "display-disable-laptop"
Lint string, macros.el More of the same type of linting... basically preferring `namespace-` instead of `namespace/`.
2020-09-01 00:28:47 +02:00
:command (string-format "xrandr --output %s --off"
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
display-laptop-monitor)))
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
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
(defun display-cycle-display-states ()
"Cycle through `display-display-states' enabling and disabling displays."
Support cycling through display configurations Today when I opened my laptop, I wasn't sure if it was powered off or on because the display was blank. Thankfully the volume was muted and the LED indicator was on, which informed me that the laptop was powered on. This saved me from unnecessarily rebooting. What happened was that last night I was working from home and using my external monitor. Usually I enable my external display and disable my laptop display. But when I left for work this morning, I unplugged the HDMI cable from my laptop without disabling the external display or enabling the laptop display. I noticed a XF86 button on my laptop entitled XF86Display. I figured that this could be a nice place to bind a key to toggle my laptop display on or off. At the last minute, I had the idea to just cycle through all possible display configurations that I use; there are only three anyways. When dealing with more than two states, I realized I should use a cycle to model the configuration states. Now I'm thinking that I should be using cycles to model toggles as well - instead of just using a top-level variable that I `setq` over. I haven't refactored existing toggles to be cycles, but I am excited about this new keybinding. This commit additionally: - Moves keybindings out of display.el and into keybindings.el - Conditionally sets KBDs if using work laptop
2020-02-11 12:00:24 +01:00
(interactive)
More Elisp linting This should cover most of the remaining linting errors. After this, I expect fewer than ten linting errors.
2020-09-01 11:17:43 +02:00
(let ((state (cycle-next display-display-states)))
(if (car state) (display-enable-laptop) (display-disable-laptop))
(if (cdr state) (display-enable-4k) (display-disable-4k))))
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
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