2c74f844352e
More
author | Steve Losh <steve@stevelosh.com> |
---|---|
date | Fri, 29 Mar 2024 16:16:57 -0400 |
parents | 417f91fae3c2 |
children | 4f28fbfd7d63 |
branches/tags | (none) |
files | stumpwm/key-mapping.lisp stumpwm/terminal-fonts.lisp vim/custom-dictionary.utf-8.add |
Changes
--- a/stumpwm/key-mapping.lisp Thu Mar 28 16:06:55 2024 -0400 +++ b/stumpwm/key-mapping.lisp Fri Mar 29 16:16:57 2024 -0400 @@ -47,6 +47,9 @@ ("H-V" "vlc") ("H-e" "budget") ("H-E" "spend") + ("S-XF86AudioMute" "terminal-font-size-show") + ("S-XF86AudioRaiseVolume" "terminal-font-size-down") ; todo unfuck the backwards mapping in qmk + ("S-XF86AudioLowerVolume" "terminal-font-size-up") ("C-BackSpace" "clear-notifications")) (define-top-keys ;; clipboard
--- a/stumpwm/terminal-fonts.lisp Thu Mar 28 16:06:55 2024 -0400 +++ b/stumpwm/terminal-fonts.lisp Fri Mar 29 16:16:57 2024 -0400 @@ -11,6 +11,15 @@ (defcommand reload-terminal-font-size () () (setf *terminal-font-size* (read-terminal-font-size-from-config))) +(defcommand terminal-font-size-show () () + (message "~D" *terminal-font-size*)) + +(defcommand terminal-font-size-up () () + (message "~D" (incf *terminal-font-size*))) + +(defcommand terminal-font-size-down () () + (message "~D" (setf *terminal-font-size* (max 6 (1- *terminal-font-size*))))) + (defcommand st-font-up () () (loop :repeat 7 :do (meta (kbd "C-S-SunPageUp"))))