gnu: Add sbcl-stumpwm-wpctl.

* gnu/packages/wm.scm (sbcl-stumpwm-wpctl): New variable.

Change-Id: I2a73a72c1437e0a27b4ca9d047c6c153f5389dcf
Signed-off-by: jgart <jgart@dismail.de>

1 files changed, 33 insertions, 0 deletions

diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 0a901bca11..238baea977 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -4138,6 +4138,39 @@ layouts in StumpWM.")
 one in Emacs.")
     (license license:gpl3+)))
 
+(define-public sbcl-stumpwm-wpctl
+  (package
+    (name "sbcl-stumpwm-wpctl")
+    (version "0.2.2")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/Junker/stumpwm-wpctl")
+              (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1c3i5z1cmhd96xnlsb40ykgk60cyignl1m4f61i9k9vq05n83pdj"))))
+    (arguments
+     '(#:asd-systems '("wpctl")
+       #:tests? #f ;there are no tests
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'fix-wpctl-path
+           (lambda _
+             (substitute* "wpctl.lisp"
+               (("/usr/bin/wpctl") (which "wpctl"))))))))
+    (build-system asdf-build-system/sbcl)
+    (inputs (list stumpwm
+                  wireplumber-minimal
+                  sbcl-parse-float
+                  sbcl-bordeaux-threads))
+    (home-page "https://github.com/Junker/stumpwm-wpctl")
+    (synopsis "StumpWM PipeWire module")
+    (description
+     "PipeWire (WirePlumber) volume and microphone control module for StumpWM")
+    (license license:gpl3)))
+
 (define-public sbcl-stumpwm-screenshot
   (package
     (inherit stumpwm-contrib)