Add keybindings for managing dunst in stumpwm

1 files changed, 11 insertions, 0 deletions

diff --git a/oni/home/services/stumpwm/config b/oni/home/services/stumpwm/config
index 625f7a8..474c55d 100644
--- a/oni/home/services/stumpwm/config
+++ b/oni/home/services/stumpwm/config
@@ -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*)