Add screenshot bindings to stumpwm

This commit is contained in:
Tom Willemse 2023-07-15 01:30:43 -07:00
parent 1af8952d27
commit b146cf9bcc

View file

@ -141,6 +141,21 @@ after it has been unlocked."
(swm-gaps:toggle-gaps-on)
;;; Screenshots
(defvar *screenshot-bindings*
(let ((m (make-sparse-keymap)))
(define-key m (kbd "s") "exec flameshot gui")
(define-key m (kbd "c") "exec flameshot screen")
(define-key m (kbd "f") "exec flameshot full")
m))
(defvar *user-bindings*
(let ((m (make-sparse-keymap)))
(define-key m (kbd "s") '*screenshot-bindings*)))
(define-key *top-map* (kbd "s-c") '*user-bindings*)
(restore-from-file "default")
(define-frame-preference "Default"