d81f31107d
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
89 lines
3 KiB
EmacsLisp
89 lines
3 KiB
EmacsLisp
;;; keybindings.el --- Centralizing my keybindings -*- lexical-binding: t -*-
|
|
;; Author: William Carroll <wpcarro@gmail.com>
|
|
|
|
;;; Commentary:
|
|
;; Attempting to centralize my keybindings to simplify my configuration.
|
|
|
|
;;; Code:
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Dependencies
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(require 'clipboard)
|
|
(require 'screen-brightness)
|
|
(require 'chrome)
|
|
(require 'scrot)
|
|
(require 'ivy-clipmenu)
|
|
(require 'general)
|
|
(require 'window-manager)
|
|
(require 'vterm-mgt)
|
|
(require 'buffer)
|
|
(require 'display)
|
|
(require 'device)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Configuration
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(defmacro keybinding/exwm (c fn)
|
|
"Bind C to FN using `exwm-input-set-key' with `kbd' applied to C."
|
|
`(exwm-input-set-key (kbd ,c) ,fn))
|
|
|
|
(keybinding/exwm "C-M-v" #'ivy-clipmenu/copy)
|
|
|
|
(keybinding/exwm "<XF86MonBrightnessUp>" #'screen-brightness/increase)
|
|
(keybinding/exwm "<XF86MonBrightnessDown>" #'screen-brightness/decrease)
|
|
|
|
(keybinding/exwm "<XF86AudioMute>" #'pulse-audio/toggle-mute)
|
|
(keybinding/exwm "<XF86AudioLowerVolume>" #'pulse-audio/decrease-volume)
|
|
(keybinding/exwm "<XF86AudioRaiseVolume>" #'pulse-audio/increase-volume)
|
|
(keybinding/exwm "<XF86AudioMicMute>" #'pulse-audio/toggle-microphone)
|
|
|
|
(keybinding/exwm "C-M-c" #'chrome/browse)
|
|
|
|
(keybinding/exwm (kbd/raw 'x11 "s") #'scrot/select)
|
|
|
|
(keybinding/exwm "<C-M-tab>" #'exwm/switch-to-exwm-buffer)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Vterm
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; Show or hide a vterm buffer. I'm intentionally not defining this in
|
|
;; vterm-mgt.el because it consumes `buffer/show-previous', and I'd like to
|
|
;; avoid bloating vterm-mgt.el with dependencies that others may not want.
|
|
(general-define-key (kbd/raw 'x11 "t")
|
|
(lambda ()
|
|
(interactive)
|
|
(if (vterm-mgt--instance? (current-buffer))
|
|
(switch-to-buffer (first (buffer/source-code-buffers)))
|
|
(call-interactively #'vterm-mgt-find-or-create))))
|
|
|
|
(general-define-key
|
|
:keymaps '(vterm-mode-map)
|
|
"C-S-n" #'vterm-mgt-instantiate
|
|
"C-S-w" #'vterm-mgt-kill
|
|
"<C-tab>" #'vterm-mgt-next
|
|
"<C-S-iso-lefttab>" #'vterm-mgt-prev
|
|
"<s-backspace>" #'vterm-mgt-rename-buffer)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Displays
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(when (device/work-laptop?)
|
|
(keybinding/exwm "<XF86Display>" #'display/cycle-display-states)
|
|
(general-define-key
|
|
:prefix "<SPC>"
|
|
:states '(normal)
|
|
"d0" #'display/disable-laptop
|
|
"d1" #'display/enable-laptop)
|
|
(general-define-key
|
|
:prefix "<SPC>"
|
|
:states '(normal)
|
|
"D0" #'display/disable-4k
|
|
"D1" #'display/enable-4k))
|
|
|
|
(provide 'keybindings)
|
|
;;; keybindings.el ends here
|