gnu: ruby: Update to use 3.4 series.

* gnu/packages/ruby.scm (ruby): Use Ruby-3.4 which is still
  in full maintenance period.

Signed-off-by: Steve George <steve@futurile.net>

gnu/local.mk

@@ -1699,7 +1699,6 @@ dist_patch_DATA =						\
   %D%/packages/patches/libcss-check-format.patch		\
   %D%/packages/patches/libeb-gcc-14.patch			\
   %D%/packages/patches/libextractor-tidy-support.patch		\
-  %D%/packages/patches/libfossil-skip-amalgamation.patch	\
   %D%/packages/patches/libftdi-fix-paths-when-FTDIPP-set.patch	\
   %D%/packages/patches/libgeotiff-fix-tests-with-proj-9.1.1.patch	\
   %D%/packages/patches/libgeotiff-fix-tests-with-proj-9.3.0.patch	\

gnu/packages/bash.scm

@@ -37,6 +37,8 @@
   #:use-module (gnu packages elf)
   #:use-module (gnu packages ncurses)
   #:use-module (gnu packages readline)
+  #:use-module (gnu packages ruby-check)
+  #:use-module (gnu packages ruby-xyz)
   #:use-module (gnu packages bison)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages libffi)
@@ -53,6 +55,7 @@
   #:use-module (guix store)
   #:use-module (guix build-system copy)
   #:use-module (guix build-system gnu)
+  #:use-module (guix build-system ruby)
   #:use-module (guix build-system trivial)
   #:autoload   (guix gnupg) (gnupg-verify*)
   #:autoload   (guix base32) (bytevector->nix-base32-string)
@@ -513,6 +516,46 @@ function interface (FFI) directly in your shell.  In other words, it allows
 you to call routines in shared libraries from within Bash.")
     (license license:expat)))
 
+(define-public bashly
+  (package
+    (name "bashly")
+    (version "1.3.5")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (rubygems-uri "bashly" version))
+       (sha256
+        (base32 "17msjzca5ifx8biimdjps655w51yc82d5ys9hwn749bi2f3n8mcz"))))
+    (build-system ruby-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (replace 'check
+            (lambda* (#:key tests? #:allow-other-keys)
+              (when tests?
+                (invoke "rspec" "-c" "spec")))))))
+    (native-inputs (list ruby-rspec))
+    (propagated-inputs (list ruby-colsole
+                             ruby-completely
+                             ruby-filewatcher
+                             ruby-gtx
+                             ruby-logger
+                             ruby-lp
+                             ruby-mister-bin
+                             ruby-ostruct
+                             ruby-requires
+                             ruby-tty-markdown))
+    (synopsis
+     "Create feature-rich Bash scrips using simple YAML configuration")
+    (description
+     "Bashly is a CLI for generating feature-rich Bash command line
+tools.  Bashly lets you focus on your specific code, without worrying about
+command line argument parsing, usage texts, error messages and other functions
+that are usually handled by a framework in other programming languages.")
+    (home-page "https://bashly.dev/")
+    (license license:expat)))
+
 (define-public blesh
   (package
     (name "blesh")

gnu/packages/emacs-xyz.scm

@@ -39910,7 +39910,7 @@ user interfaces for various built-in modes.")
 (define-public emacs-calibredb
   (package
     (name "emacs-calibredb")
-    (version "2.13.0")
+    (version "2.14.0")
     (source
      (origin
        (method git-fetch)
@@ -39919,31 +39919,40 @@ user interfaces for various built-in modes.")
              (commit version)))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "1a4gyc3gcq18j29pw2i296d70nvx5fbzlw9fdmqwzncciqz5as6m"))))
+        (base32 "1g0jg6a6fgvxd5bsydckbqwf899d2d9732laz4k1k476mbws5dqy"))))
     (build-system emacs-build-system)
     (arguments
      (list
+      #:include #~(cons "\\.py$" %default-include)
+      #:tests? #f                       ;no tests
       #:phases
       #~(modify-phases %standard-phases
           (add-after 'unpack 'patch-paths
             (lambda* (#:key inputs #:allow-other-keys)
-              (make-file-writable "calibredb-core.el")
               (let ((calibredb (search-input-file inputs "/bin/calibredb"))
                     (fetch-ebook-metadata
                      (search-input-file inputs "/bin/fetch-ebook-metadata"))
                     (ebook-convert
                      (search-input-file inputs "/bin/ebook-convert"))
                     (calibre-debug
-                     (search-input-file inputs "/bin/calibre-debug")))
+                     (search-input-file inputs "/bin/calibre-debug"))
+                    (ebook-meta
+                     (search-input-file inputs "/bin/ebook-meta"))
+                    (folder-program
+                     (string-append #$output
+                                    "/share/emacs/site-lisp/calibredb-"
+                                    #$version "/calibredb-folder.py")))
                 (emacs-substitute-variables "calibredb-core.el"
                   ("calibredb-fetch-metadata-program" fetch-ebook-metadata)
                   ("calibredb-program" calibredb)
                   ("calibredb-convert-program" ebook-convert)
-                  ("calibredb-debug-program" calibre-debug))))))))
+                  ("calibredb-debug-program" calibre-debug)
+                  ("calibredb-ebook-meta-program" ebook-meta)
+                  ("calibredb-folder-program" folder-program))))))))
     (inputs
      (list calibre))
     (propagated-inputs
-     (list emacs-dash emacs-esxml emacs-s))
+     (list emacs-dash emacs-esxml emacs-request emacs-s))
     (home-page "https://github.com/chenyanming/calibredb.el")
     (synopsis "Yet another calibre client for Emacs")
     (description "This package integrates calibre into Emacs.
@@ -41541,17 +41550,65 @@ time.")
     (build-system emacs-build-system)
     (arguments
      (list
-      #:tests? #f ; requires cask
-      #:phases #~(modify-phases %standard-phases
-                   ;; Move the source files to the top level, which is
-                   ;; included in the EMACSLOADPATH.
-                   (add-after 'unpack 'move-source-files
-                     (lambda _
-                       (let ((el-files (find-files "./lisp" ".*\\.el$")))
-                         (for-each (lambda (f)
-                                     (rename-file f
-                                                  (basename f)))
-                                   el-files)))))))
+      #:test-command #~(list "make" "tests")
+      #:phases
+      #~(modify-phases %standard-phases
+          ;; Move the source files to the top level, which is
+          ;; included in the EMACSLOADPATH.
+          (add-after 'unpack 'move-source-files
+            (lambda _
+              (let ((el-files (find-files "./lisp" ".*\\.el$")))
+                (for-each (lambda (f)
+                            (rename-file f
+                                         (basename f)))
+                          el-files))))
+          (add-before 'check 'fix-tests
+            (lambda _
+              (substitute* "Makefile"
+                (("cask") ""))
+              (substitute* "test/ert-helper.el"
+                (("lisp\\/") ""))))
+          (add-before 'check 'skip-failing-tests
+            (lambda _
+              (let-syntax
+                  ((disable-tests
+                    (syntax-rules ()
+                      ((_ file ())
+                       (syntax-error "test names list must not be empty"))
+                      ((_ file (test-name ...))
+                       (substitute* file
+                         (((string-append
+                            "^\\(ert-deftest " test-name ".*") all)
+                          (string-append all "(skip-unless nil)\n")) ...)))))
+                (disable-tests
+                 "test/mastodon-profile-tests.el"
+                 ("mastodon-profile--add-author-bylines"
+                  "mastodon-profile--make-author-buffer"))
+                (disable-tests
+                 "test/mastodon-auth-tests.el"
+                 ("mastodon-auth--handle-token-response--good"
+                  "mastodon-auth-plstore-token-check"))
+                (disable-tests
+                 "test/mastodon-client-tests.el"
+                 ("mastodon-client--make-user-active"
+                  "mastodon-client--store"
+                  "mastodon-client--store-access-token"))
+                (disable-tests
+                 "test/mastodon-tl-tests.el"
+                 ("mastodon-tl--byline-timestamp-has-relative-display"
+                  "mastodon-tl--next-tab-item--no-spaces-at-ends"
+                  "mastodon-tl--next-tab-item--with-spaces-at-ends"))
+                (disable-tests
+                 "test/mastodon-media-tests.el"
+                 ("mastodon-media--get-avatar-rendering"
+                  "mastodon-media--inline-images"
+                  "mastodon-media--load-image-from-url-avatar-with-imagemagic"
+                  "mastodon-media--load-image-from-url-avatar-without-imagemagic"
+                  "mastodon-media--load-image-from-url-media-link-with-imagemagic"
+                  "mastodon-media--load-image-from-url-media-link-without-imagemagic"
+                  "mastodon-media--load-image-from-url-url-fetching-fails"
+                  "mastodon-media--process-image-response"))))))))
+    (native-inputs (list emacs-el-mock))
     (propagated-inputs
      (list emacs-persist emacs-tp))
     (home-page "https://codeberg.org/martianh/mastodon.el")

gnu/packages/maths.scm

@@ -11458,7 +11458,7 @@ expression parsing and evaluation.")
 (define-public highs
   (package
     (name "highs")
-    (version "1.10.0")
+    (version "1.14.0")
     (source
      (origin
        (method git-fetch)
@@ -11467,14 +11467,14 @@ expression parsing and evaluation.")
              (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "19q99nkk6r6k91gxp8a5rjil1399qyfgfc6jqlg2gd82vpcw8c8b"))))
+        (base32 "16y664rzvxd8785195k0srz0842zvl0zdkf6qi103p503pj81afh"))))
     (build-system cmake-build-system)
     (home-page "https://highs.dev")
     (synopsis "High performance software for linear optimization")
     (description
      "HiGHS provides serial and parallel solvers for large-scale sparse
 linear programming (LP), mixed-integer programming (MIP), and quadratic
-programming (QP) models")
+programming (QP) models.")
     (license license:expat)))
 
 (define-public trilinos-zoltan

gnu/packages/patches/libfossil-skip-amalgamation.patch

@@ -1,43 +0,0 @@
---- a/Makefile.in
-+++ b/Makefile.in
-@@ -265,15 +265,11 @@
- amal.flags     = -nc
- amal.run       = TOPDIR="$(DIR.top)" $(SHELL.bash) $(bin.make-amal) --quiet
- 
- libfossil.c: $(amal.deps)
- 	$(amal.run) $(amal.flags)
--libfossil.h: libfossil.c
--all: libfossil.c
- @if ENABLE_CXX
--libfossil.hpp: libfossil.c
--libfossil.c++: libfossil.c
- amal.flags += -c++
- @endif
- 
- .PHONY: amal
- amal: libfossil.c
-@@ -287,19 +283,16 @@
- 	fossil uv sync
- @endif
- @endif
- 
- install: install-headers
--install-headers: libfossil.h $(install-dir.include)
--	$(INSTALL.noexec) libfossil.h $(install-dir.include)
-+install-headers: include/libfossil.h $(install-dir.include)
-+	$(INSTALL.noexec) $< $(install-dir.include)
- @if ENABLE_CXX
--libfossil++.hpp: libfossil.h
--libfossil++.cpp: libfossil++.hpp
--all: libfossil++.cpp
- install-headers: install-headers++
--install-headers++: libfossil++.hpp $(install-dir.include)
--	$(INSTALL.noexec) libfossil++.hpp $(install-dir.include)
-+install-headers++: include/libfossil.hpp $(install-dir.include)
-+	$(INSTALL.noexec) $< $(install-dir.include)
- @endif # ENABLE_CXX
- clean: clean-amalgamation
- clean-amalgamation:
- 	rm -f libfossil.c libfossil.h libfossil++.cpp libfossil++.hpp
- 	rm -f libfossil-config.h libfossil-amalgamation.zip VERSION.h
-

gnu/packages/ruby.scm

@@ -346,7 +346,7 @@ a focus on simplicity and productivity.")
     (home-page "https://www.ruby-lang.org")
     (license license:ruby)))
 
-(define-public ruby ruby-3.3)
+(define-public ruby ruby-3.4)
 
 (define-public mruby
   (package

gnu/packages/text-editors.scm

@@ -875,30 +875,29 @@ compiled, requires few libraries, and starts up quickly.")
 (define-public e3
   (package
     (name "e3")
-    (version "2.82")
-    (source (origin
-              (method url-fetch)
-              (uri (string-append "https://sites.google.com/site/e3editor/Home/"
-                                  "e3-" version ".tgz"))
-              (sha256
-               (base32
-                "0919kadkas020maqq37852isnzp053q2fnws2zh3mz81d1jiviak"))
-              (modules '((guix build utils)))
-
-              ;; Remove pre-built binaries.
-              (snippet '(begin
-                          (delete-file-recursively "bin")
-                          #t))))
+    (version "2.82.1")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://codeberg.org/museoa/e3editor")
+              (commit version)))
+       (sha256
+        (base32
+         "1l57rxin3kv6iiw91rhjzl3bpk0gkfp3nrx7wmqikk1nycmkfbhm"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:tests? #f
-       #:make-flags (list (string-append "PREFIX="
-                                         (assoc-ref %outputs "out")))
-       #:phases (modify-phases %standard-phases
-                  (delete 'configure))))
+     (list
+      #:tests? #f
+      #:make-flags
+      #~(list (string-append "PREFIX=" #$output))
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure))))
     (native-inputs
      (list nasm))
-    (home-page "https://sites.google.com/site/e3editor/")
+    (supported-systems '("x86_64-linux" "i686-linux"))
+    (home-page "https://codeberg.org/museoa/e3editor")
     (synopsis "Tiny text editor written in assembly")
     (description
      "e3 is a micro text editor with an executable code size between 3800 and
@@ -907,7 +906,6 @@ of the basic functions one expects plus built in arithmetic calculations.
 UTF-8 coding of unicode characters is supported as well.  e3 can use
 Wordstar-, EMACS-, Pico, Nedit or vi-like key bindings.  e3 can be used on
 16, 32, and 64-bit CPUs.")
-    (supported-systems '("x86_64-linux" "i686-linux"))
     (license license:gpl2+)))
 
 (define-public mg

gnu/packages/version-control.scm

@@ -3522,106 +3522,113 @@ modification time.")
     (license license:bsd-2)))
 
 (define-public libfossil
-  (let ((ci "914ed6dcaff13bf7209c9f27ccfb77c2d8fdf36b8d2133aa1590258b0708f035")
+  (package
+    (name "libfossil")
+    (version "0.6.0")
+    (source
+     (origin
+       (method fossil-fetch)
+       (uri (fossil-reference
+             (uri "https://fossil.wanderinghorse.net/r/libfossil")
+             (check-in version)))
+       (file-name (fossil-file-name name version))
+       (sha256
+        (base32 "0haaczpjnjpkiikf0q70nfabm2csdk6dl9rh80j0sh90wfvkyqwm"))
+       (modules '((guix build utils)
+                  (ice-9 ftw)
+                  (srfi srfi-26)))
+       (snippet
+        #~(begin
+            (define (delete-all-but directory . preserve)
+              (with-directory-excursion directory
+                (let* ((pred (negate (cut member <>
+                                          (cons* "." ".." preserve))))
+                       (items (scandir "." pred)))
+                  (for-each (cut delete-file-recursively <>) items))))
+            (delete-all-but "autosetup" "proj.tcl" "wh-common.tcl")
+            (delete-file-recursively "extsrc")
+            ;; Re-create Fossil check-out manifests,
+            ;; whose content does not affect in semantics.
+            (for-each
+              (lambda (file)
+                (call-with-output-file file (const #t)))
+              '("manifest" "manifest.uuid"))))))
+    (build-system gnu-build-system)
+    (arguments
+     (list #:configure-flags
+           #~(list "--no-debug" "--no-fnc" ;TODO: C++ and Tcl binding?
+                   (string-append "--with-sqlite="
+                                  #$(this-package-input "sqlite"))
+                   (string-append "--soname=libfossil.so"))
+           #:phases
+           #~(modify-phases %standard-phases
+               (replace 'configure
+                 (lambda* (#:key configure-flags #:allow-other-keys)
+                   (apply invoke "autosetup"
+                          (string-append "--prefix=" #$output)
+                          configure-flags)))
+               (replace 'check
+                 (lambda* (#:key tests? #:allow-other-keys)
+                   (when tests?
+                     (substitute* "sanity-checks.sh"
+                       ;; FIXME: these tests requires a Fossil checkout.
+                       (("\\./f-sanity.*") "")
+                       (("\\./f-parseparty.*") ""))
+                     (setenv "LD_LIBRARY_PATH" (getcwd))
+                     (invoke "./sanity-checks.sh")))))))
+    (native-inputs (list autosetup))
+    (inputs (list sqlite-next zlib))
+    (home-page "https://fossil.wanderinghorse.net/r/libfossil")
+    (synopsis "Unofficial Fossil SCM Library API")
+    (description
+     "@code{libfossil} is an alternative interface into Fossil repositories,
+as opposed to a replacement for the core fossil application,
+intended for new ways to access and manipulate fossil repositories.")
+    (license license:bsd-2)))
+
+(define-public fnc
+  (let ((check-in
+         "c158d7ac2175078b4b783157be92de38aa627dc1a237febab9ec92093420cedb")
         (revision "0"))
     (package
-      (name "libfossil")
-      (version (fossil-version "0.6.0" revision ci))
+      (name "fnc")
+      (version (fossil-version "0.19" revision check-in))
       (source
        (origin
          (method fossil-fetch)
          (uri (fossil-reference
-               (uri "https://fossil.wanderinghorse.net/r/libfossil")
-               (check-in ci)))
+               (uri "https://fnc.sh")
+               (check-in check-in)))
          (file-name (fossil-file-name name version))
          (sha256
-          (base32 "0a0ycnnba2izmiqjj8hgvjgjdwhpn0x36lhy3vmw4j7bhny0df52"))
-         (patches (search-patches "libfossil-skip-amalgamation.patch"))
-         (modules '((guix build utils)
-                    (ice-9 ftw)
-                    (srfi srfi-26)))
-         (snippet
-          #~(begin
-              (define (delete-all-but directory . preserve)
-                (with-directory-excursion directory
-                  (let* ((pred (negate (cut member <>
-                                            (cons* "." ".." preserve))))
-                         (items (scandir "." pred)))
-                    (for-each (cut delete-file-recursively <>) items))))
-              (delete-all-but "autosetup" "proj.tcl" "wh-common.tcl")
-              (delete-file-recursively "extsrc")
-              ;; Re-create Fossil check-out manifests,
-              ;; whose content does not affect in semantics.
-              (for-each
-                (lambda (file)
-                  (call-with-output-file file (const #t)))
-                '("manifest" "manifest.uuid"))))))
+          (base32 "09m0bgzy0yjglsgrqq03sdq4p2rwi3y8m84979j066z1c5b444iz"))
+         (modules '((guix build utils)))
+         (snippet #~(begin
+                      (delete-file-recursively "lib")
+                      (substitute* (find-files "." "\\.c$")
+                        (("^#include \"libfossil.h\"")
+                         "#include <fossil-scm/libfossil.h>"))
+                      (substitute* "fnc.bld.mk"
+                        ((" \\$\\{SQLITE_OBJS\\} \\$\\{FOSSIL_OBJS\\}") "")
+                        (("-lm -lutil -lz ") "")
+                        ;; Fix cross-compiling.
+                        (("install -s") "install"))))))
       (build-system gnu-build-system)
       (arguments
-       (list #:configure-flags
-             #~(list "--no-debug" "--no-fnc" ;TODO: C++ and Tcl binding?
-                     (string-append "--with-sqlite="
-                                    #$(this-package-input "sqlite"))
-                     (string-append "--soname=libfossil.so"))
-             #:phases
-             #~(modify-phases %standard-phases
-                 (replace 'configure
-                   (lambda* (#:key configure-flags #:allow-other-keys)
-                     (apply invoke "autosetup"
-                            (string-append "--prefix=" #$output)
-                            configure-flags)))
-                 (replace 'check
-                   (lambda* (#:key tests? #:allow-other-keys)
-                     (when tests?
-                       (substitute* "sanity-checks.sh"
-                         ;; FIXME: these tests requires a Fossil checkout.
-                         (("\\./f-sanity.*") "")
-                         (("\\./f-parseparty.*") ""))
-                       (setenv "LD_LIBRARY_PATH" (getcwd))
-                       (invoke "./sanity-checks.sh")))))))
-      (native-inputs (list autosetup))
-      (inputs (list sqlite-next zlib))
-      (home-page "https://fossil.wanderinghorse.net/r/libfossil")
-      (synopsis "Unofficial Fossil SCM Library API")
-      (description
-       "@code{libfossil} is an alternative interface into Fossil repositories,
-as opposed to a replacement for the core fossil application,
-intended for new ways to access and manipulate fossil repositories.")
-      (license license:bsd-2))))
-
-(define-public fnc
-  (package
-    (name "fnc")
-    (version "0.18")
-    (source (origin
-              (method url-fetch)
-              (uri
-               (string-append "https://fnc.bsdbox.org/uv/dl/fnc-"
-                              version ".tar.gz"))
-              (sha256
-               (base32
-                "1067rr4nqngld1nqa8c7imp9n3w5fp7rpc7khh6l84q2w1klrya9"))))
-    (build-system gnu-build-system)
-    (arguments
-     (list
-      #:phases #~(modify-phases %standard-phases
-                   (delete 'configure)
-                   ;; fix cross-compiling.
-                   (add-after 'unpack 'don-t-use-install-s
-                     (lambda _
-                       (substitute* "fnc.bld.mk"
-                         (("install -s")
-                          "install")))))
-      #:tests? #f                       ; no tests
-      #:make-flags #~(list (string-append "CC=" #$(cc-for-target))
-                           (string-append "PREFIX=" #$output))))
-    (inputs (list ncurses zlib sqlite-next))
-    (home-page "https://fnc.bsdbox.org")
-    (synopsis "Interactive text-based user interface for Fossil")
-    (description "fnc uses ncurses and libfossil to create a fossil user
+       (list
+        #:phases #~(modify-phases %standard-phases
+                     (delete 'configure))
+        #:tests? #f                     ;no tests
+        #:make-flags #~(list (string-append "CC=" #$(cc-for-target))
+                             "LDFLAGS=-lfossil -lsqlite3"
+                             (string-append "PREFIX=" #$output))))
+      (inputs (list libfossil ncurses sqlite-next))
+      (home-page "https://fnc.sh")
+      (synopsis "Interactive text-based user interface for Fossil")
+      (description "fnc uses ncurses and libfossil to create a fossil user
 interface in the terminal.  It can view local changes at the hunk level to
 prepare atomic commits.")
-    (license license:isc)))
+      (license license:isc))))
 
 (define-public myrepos
   (package

gnu/packages/wm.scm

@@ -3757,14 +3757,15 @@ control module for StumpWM.")
      (origin
        (method git-fetch)
        (uri (git-reference
-             (url "https://github.com/Junker/stumpwm-acpi-backlight")
-             (commit version)))
+              (url "https://github.com/Junker/stumpwm-acpi-backlight")
+              (commit version)))
        (file-name (git-file-name name version))
        (sha256
         (base32 "1dih6fzy77f3r60fwhsk0dw3qksadzj991k1i28z0da64fpshm0a"))))
     (arguments
-     '(#:asd-systems '("acpi-backlight")
-       #:tests? #f)) ; There are no tests.
+     (list
+      #:asd-systems ''("acpi-backlight")
+      #:tests? #f)) ; There are no tests.
     (build-system asdf-build-system/sbcl)
     (inputs (list stumpwm))
     (home-page "https://github.com/Junker/stumpwm-acpi-backlight")
@@ -3790,6 +3791,40 @@ control module for StumpWM.")
 mouse control mode for StumpWM.")
     (license (list license:gpl2+ license:gpl3+ license:bsd-2))))
 
+(define-public sbcl-stumpwm-bluetooth
+  (package
+    (name "sbcl-stumpwm-bluetooth")
+    (version "0.1.2")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/Junker/stumpwm-bluetooth")
+              (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "08a028r83kd66a3smiyzi9hadk3w89qdhha7hsd9ffh3gdk5s99a"))))
+    (arguments
+     (list
+      #:asd-systems ''("bluetooth")
+      #:tests? #f ; There are no tests.
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'fix-bin-path
+            (lambda* (#:key inputs #:allow-other-keys)
+              (substitute* "bluetooth.lisp"
+                (("/usr/bin/bluetoothctl")
+                 (search-input-file inputs "bin/bluetoothctl"))))))))
+    (build-system asdf-build-system/sbcl)
+    (inputs (list stumpwm
+                  bluez
+                  sbcl-bordeaux-threads))
+    (home-page "https://github.com/Junker/stumpwm-bluetooth")
+    (synopsis "StumpWM module for controlling Bluetooth devices")
+    (description
+     "StumpWM module for controlling Bluetooth devices via bluetoothctl.")
+    (license license:gpl3)))
+
 (define-public sbcl-stumpwm-stump-nm
   (package
     (inherit stumpwm-contrib)
@@ -4103,6 +4138,41 @@ 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
+     (list #:asd-systems ''("wpctl")
+           #:tests? #f ; There are no tests.
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'unpack 'fix-wpctl-path
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (substitute* "wpctl.lisp"
+                     (("/usr/bin/wpctl")
+                      (search-input-file inputs "bin/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)