From 3a37c4e6dff5daae0cbf364bcf9454f19dd95f95 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Tue, 26 Nov 2013 01:35:41 +0100
Subject: Stop and start dunst when (un)locking screen

---
 .stumpwmrc | 10 ++++++++++
 1 file changed, 10 insertions(+)

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"))
 
-- 
cgit v1.2.3-54-g00ecf