Add screenshot bindings to stumpwm
This commit is contained in:
parent
1af8952d27
commit
b146cf9bcc
1 changed files with 15 additions and 0 deletions
|
@ -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"
|
||||
|
|
Loading…
Reference in a new issue