diff options
| -rw-r--r-- | .stumpwmrc | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -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")) |