Stop and start dunst when (un)locking screen

1 files changed, 10 insertions, 0 deletions

diff --git a/.stumpwmrc b/.stumpwmrc
index cfe0c39..55b1f7a 100644
--- a/.stumpwmrc
+++ b/.stumpwmrc
@@ -63,6 +63,14 @@
                 (format nil "/home/slash/documents/mail/~A/~A/cur/*.*"
                         mailbox inbox))))))
 
+(defun dunst-pause ()
+  "Pause dunst"
+  (sb-ext:run-program "/usr/bin/killall" '("-SIGUSR1" "dunst")))
+
+(defun dunst-start ()
+  "Start dunst"
+  (sb-ext:run-program "/usr/bin/killall" '("-SIGUSR2" "dunst")))
+
 (defun mpd-playing-p ()
   "Check if MPD is currently in the playing state."
   (and (cl-ppcre:scan
@@ -174,8 +182,10 @@ Run `*lock-screen-hook*' before locking it and run
 
 (add-hook *lock-screen-hook* 'set-jabber-away)
 (add-hook *lock-screen-hook* 'mpd-pause)
+(add-hook *lock-screen-hook* 'dunst-pause)
 (add-hook *screen-unlocked-hook* 'set-jabber-online)
 (add-hook *screen-unlocked-hook* 'mpd-play)
+(add-hook *screen-unlocked-hook* 'dunst-start)
 
 (set-prefix-key (kbd "C-z"))