[bug#57756] [PATCH 2/3] gnu: add sbcl-stumpwm-notify

[Trevor Richards <trev@trevdev.ca>]

---
 gnu/packages/wm.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 451dfce516..6ae0135a64 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -56,6 +56,7 @@
 ;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 ;;; Copyright © 2022 muradm <mail@muradm.net>
 ;;; Copyright © 2022 Elais Player <elais@fastmail.com>
+;;; Copyright © 2022 Trevor Richards <trev@trevdev.ca>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -2256,6 +2257,29 @@ (define-public sbcl-stumpwm-screenshot
 PNG files.")
     (license license:gpl3+)))
 
+(define-public sbcl-stumpwm-notify
+  (package
+    (inherit stumpwm-contrib)
+    (name "sbcl-stumpwm-notify")
+    (build-system asdf-build-system/sbcl)
+    (inputs
+     `(("stumpwm" ,stumpwm "lib")
+       ("xml-emitter" ,sbcl-xml-emitter)
+       ("dbus" ,sbcl-dbus)
+       ("bordeaux-threads" ,sbcl-bordeaux-threads)))
+    (arguments
+     '(#:asd-systems '("notify")
+       #:tests? #f
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'chdir
+           (lambda _ (chdir "util/notify") #t)))))
+    (home-page "https://github.com/stumpwm/stumpwm-contrib")
+    (synopsis "Notifications server for StumpWM")
+    (description "Implements org.freedesktop.Notifications
+interface[fn:dbus-spec]. Shows notifications using stumpwm:message by default.")
+    (license license:gpl3)))
+
 (define-public lemonbar
   (package
     (name "lemonbar")
-- 
2.37.3