Add keybindings for managing dunst in stumpwm

This commit is contained in:
Tom Willemse 2023-09-27 23:44:21 -07:00
parent 9ad2400a9a
commit 51a84e941e

View file

@ -85,9 +85,20 @@ after it has been unlocked."
(define-key m (kbd "f") "exec flameshot full")
m))
(defvar *notification-bindings*
(let ((m (make-sparse-keymap)))
(define-key m (kbd "RET") "exec dunstctl action")
(define-key m (kbd "c") "exec dunstctl close")
(define-key m (kbd "S-c") "exec dunstctl close-all")
(define-key m (kbd "SPC") "exec dunstctl context")
(define-key m (kbd ",") "exec dunstctl history-pop")
(define-key m (kbd "p") "exec dunstctl set-paused toggle")
m))
(defvar *user-bindings*
(let ((m (make-sparse-keymap)))
(define-key m (kbd "s") '*screenshot-bindings*)
(define-key m (kbd "n") '*notification-bindings*)
m))
(define-key *top-map* (kbd "s-c") '*user-bindings*)