gnu: Use built-in delete-all-but.

* gnu/packages/astronomy.scm (phd2): Use built-in delete-all-but. * gnu/packages/debug.scm (fandango): Likewise. * gnu/packages/electronics.scm (librepcb, nextpnr): Likewise. * gnu/packages/emacs-xyz.scm (emacs-smartparens): Likewise. * gnu/packages/emulators.scm (dolphin-emu, libretro-dolphin-emu) (libretro-slang-shaders, mgba, pcsx2, retroarch-minimal): Likewise. * gnu/packages/game-development.scm (sfml): Likewise. * gnu/packages/golang-apps.scm (godoc): Likewise. * gnu/packages/golang-build.scm (go-golang-org-x-tools-go-expect) (go-golang-org-x-tools-go-packages-packagestest) (go-golang-org-x-tools-godoc): Likewise. * gnu/packages/golang-web.scm (go-cloud-google-com-go-auth) (go-cloud-google-com-go-auth-oauth2adapt) (go-cloud-google-com-go-iam, go-cloud-google-com-go-kms) (go-cloud-google-com-go-longrunning) (go-cloud-google-com-go-monitoring, go-cloud-google-com-go-security) (go-cloud-google-com-go-storage) (go-github-com-aws-aws-sdk-go-v2-config) (go-github-com-aws-aws-sdk-go-v2-credentials) (go-github-com-aws-aws-sdk-go-v2-feature-ec2-imds) (go-github-com-aws-aws-sdk-go-v2-internal-configsources) (go-github-com-aws-aws-sdk-go-v2-internal-endpoints-v2) (go-github-com-aws-aws-sdk-go-v2-service-kms) (go-github-com-aws-aws-sdk-go-v2-service-sqs) (go-github-com-azure-azure-sdk-for-go-sdk-azcore) (go-github-com-azure-azure-sdk-for-go-sdk-azidentity) (go-github-com-azure-azure-sdk-for-go-sdk-internal) (go-github-com-azure-azure-sdk-for-go-sdk-security-keyvault-azkeys) (go-github-com-azure-azure-sdk-for-go-sdk-security-keyvault-intern) (go-github-com-azure-azure-sdk-for-go-sdk-storage-azblob) (go-github-com-azure-azure-sdk-for-go-sdk-storage-azfile) (go-github-com-envoyproxy-go-control-plane-envoy) (go-github-com-googlecloudplatform-opentelemetry-operations-go-exp) (go-github-com-googlecloudplatform-opentelemetry-operations-go-int) (go-github-com-grpc-ecosystem-go-grpc-middleware-providers-prometh) (go-github-com-hashicorp-go-secure-stdlib-parseutil) (go-github-com-jtolio-crawlspace-tools) (go-github-com-moby-moby-client) (go-github-com-sigstore-sigstore-pkg-signature-kms-aws) (go-github-com-sigstore-sigstore-pkg-signature-kms-azure) (go-github-com-sigstore-sigstore-pkg-signature-kms-gcp) (go-github-com-sigstore-sigstore-pkg-signature-kms-hashivault) (go-go-etcd-io-etcd-api-v3, go-go-etcd-io-etcd-client-pkg-v3) (go-go-opentelemetry-io-auto-sdk) (go-go-opentelemetry-io-contrib-detectors-gcp) (go-go-opentelemetry-io-contrib-propagators-autoprop) (go-go-opentelemetry-io-otel-exporters-otlp-otlpmetric-otlpmetricg) (go-go-opentelemetry-io-otel-exporters-otlp-otlpmetric-otlpmetrich) (go-go-opentelemetry-io-otel-exporters-otlp-otlptrace) (go-go-opentelemetry-io-otel-exporters-otlp-otlptrace-otlptracegrp) (go-go-opentelemetry-io-otel-exporters-otlp-otlptrace-otlptracehttp) (go-go-opentelemetry-io-otel-exporters-prometheus) (go-go-opentelemetry-io-otel-exporters-stdout-stdoutmetric) (go-go-opentelemetry-io-otel-exporters-zipkin) (go-go-opentelemetry-io-otel-log, go-go-opentelemetry-io-otel-sdk) (go-go-opentelemetry-io-otel-sdk-log) (go-go-opentelemetry-io-otel-sdk-metric) (go-google-golang-org-genproto-googleapis-api) (go-google-golang-org-genproto-googleapis-bytestream) (go-google-golang-org-grpc-cmd-protoc-gen-go-grpc) (go-google-golang-org-grpc-examples) (go-k8s-io-kube-openapi-test-integration): Likewise. * gnu/packages/golang-xyz.scm (go-github-com-ajstarks-deck-generate) (go-github-com-charmbracelet-x-ansi) (go-github-com-charmbracelet-x-cellbuf) (go-github-com-charmbracelet-x-errors) (go-github-com-charmbracelet-x-term) (go-github-com-charmbracelet-x-xpty) (go-github-com-containerd-errdefs-pkg) (go-github-com-moby-sys-atomicwriter) (go-github-com-moby-sys-mount, go-go-uber-org-zap-exp) (go-modernc-org-ccgo-v4, go-sigs-k8s-io-kustomize-cmd-config): Likewise. * gnu/packages/image-processing.scm (opencv): Likewise. * gnu/packages/ipfs.scm (go-github-com-ipfs-shipyard-nopfs-ipfs): Likewise. * gnu/packages/mail.scm (neomutt): Likewise. * gnu/packages/mpi.scm (openmpi-5): Likewise. * gnu/packages/protobuf.scm (protobuf-6): Likewise. * gnu/packages/specifications.scm (specification-astropy-data): Likewise. * gnu/packages/version-control.scm (libfossil): Likewise. * gnu/packages/vnc.scm (turbovnc): Likewise. Change-Id: I6575463a072a6ee05751e23ebcee9a393529c8b1 Merges: https://codeberg.org/guix/guix/pulls/5312 Reviewed-by: Maxim Cournoyer <maxim@guixotic.coop> Reviewed-by: Cayetano Santos <csantosb@inventati.org> Reviewed-by: Gabriel Wicki <gabriel@erlikon.ch> Co-authored-by: Nguyễn Gia Phong <cnx@loang.net> Signed-off-by: Nguyễn Gia Phong <cnx@loang.net>
guix: build: utils: Add delete-all-but.
2026-04-28 06:34:05 +00:00 · 2026-04-25 18:08:19 +09:00 · 2026-04-25 18:08:19 +09:00 · 2026-04-25 18:08:14 +09:00 · 2026-04-25 01:02:54 +09:00 · 2026-04-25 01:02:54 +09:00
52 changed files with 3769 additions and 3977 deletions
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -1468,7 +1468,6 @@ dist_patch_DATA =						\
  %D%/packages/patches/ghostscript-no-header-creationdate.patch \
  %D%/packages/patches/gimp-fix-metadata-editor.patch		\
  %D%/packages/patches/gimp-fix-tiff-load.patch			\
-  %D%/packages/patches/git-clar-path-max.patch			\
  %D%/packages/patches/git-filter-repo-generate-doc.patch	\
  %D%/packages/patches/gklib-suitesparse.patch			\
  %D%/packages/patches/glib-appinfo-watch.patch			\
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -7170,6 +7170,35 @@ stored in an SQL database.")
 (connects via USB OTG).")
    (license license:expat)))

+(define-public yoctofetch
+  (package
+    (name "yoctofetch")
+    (version "2.0.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://codeberg.org/Phosphenius/yoctofetch.git")
+             (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "0smkaydv74p2231gafibvqbwsy469w56hya8gz8wq0gw7m2l7zh3"))))
+    ; Support for other platforms not available per upstream:
+    ; https://codeberg.org/Phosphenius/yoctofetch#supported-platforms
+    (supported-systems '("x86_64-linux" "aarch64-linux"))
+    (build-system gnu-build-system)
+    (arguments
+     (list
+      #:tests? #f)) ; No tests available.
+    (home-page "https://codeberg.org/Phosphenius/yoctofetch")
+    (synopsis "Fast and low footprint system fetch tool for the Linux UAPI")
+    (description
+     "This package provides a system fetch tool, similar to
+@command{neofetch}, @command{fastfetch}, etc.  It is lightweight and
+has a focus on performance.  It can be used as a greeter by starting
+it from @file{~/.bashrc} for example.")
+    (license license:agpl3+)))
+
 (define-public zzz
  (package
    (name "zzz")
--- a/gnu/packages/aspell.scm
+++ b/gnu/packages/aspell.scm
@@ -52,7 +52,7 @@
 (define-public aspell
  (package
    (name "aspell")
-    (version "0.60.8.1")
+    (version "0.60.8.2")
    (source
     (origin
      (method url-fetch)
@@ -60,7 +60,7 @@
                          version ".tar.gz"))
      (sha256
       (base32
-        "06yjhwlgpcvbrl5g83qjrpzjwjx7hka5lhsfc3x5gm229nri5nnn"))
+        "06b9szgm9cj1zh58r7sbl5fbi3vi9fs7b1as4ir8y176x9ilizjp"))
      (patches (search-patches "aspell-default-dict-dir.patch"))))
    (build-system gnu-build-system)
    (arguments
--- a/gnu/packages/assembly.scm
+++ b/gnu/packages/assembly.scm
@@ -265,9 +265,7 @@ has strong support for macros.")
     '(#:parallel-tests? #f))           ; Some tests fail
                                        ; non-deterministically when run in
                                        ; parallel
-    (inputs
-     `(("python" ,python-wrapper)
-       ("xmlto" ,xmlto)))
+    (inputs (list python-wrapper xmlto))
    (home-page "https://yasm.tortall.net/")
    (synopsis "Rewrite of the NASM assembler")
    (description
--- a/gnu/packages/astronomy.scm
+++ b/gnu/packages/astronomy.scm
@@ -1877,18 +1877,9 @@ R. Seaman's protocol}
         (file-name (git-file-name name version))
         (sha256
          (base32 "0n2jzlpwvjgj8ydg7hsqxnvy8s9pdi5z96id0231kgi87pyfkh7s"))
-         (modules '((guix build utils)
-                    (ice-9 ftw)
-                    (srfi srfi-26)))
+         (modules '((guix build utils)))
         (snippet
          #~(begin
-              ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-              (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 "thirdparty" "thirdparty.cmake")))))
      (build-system cmake-build-system)
      (arguments
--- a/gnu/packages/avahi.scm
+++ b/gnu/packages/avahi.scm
@@ -98,24 +98,24 @@
                 (cut patch-shebang <> path)
                 (find-files (string-append #$output "/etc/avahi"))))))))
    (inputs
-     `(("bash-minimal" ,bash-minimal)
-       ("dbus" ,dbus)
-       ("expat" ,expat)
-       ("gdbm" ,gdbm)
-       ("glib" ,glib)
-       ;; Do not use libcap when cross-compiling since it's not quite
-       ;; cross-compilable; and use it only for supported systems.
-       ,@(if (and (not (%current-target-system))
-                  (member (%current-system)
-                          (package-supported-systems libcap)))
-             `(("libcap" ,libcap))   ;to enable chroot support in avahi-daemon
-             '())
-       ("libdaemon" ,libdaemon)
-       ("libevent" ,libevent)))
+     (cons* bash-minimal
+            dbus
+            expat
+            gdbm
+            glib
+            libdaemon
+            libevent
+            ;; Do not use libcap when cross-compiling since it's not quite
+            ;; cross-compilable; and use it only for supported systems.
+            (if (and (not (%current-target-system))
+                     (member (%current-system)
+                             (package-supported-systems libcap)))
+                (list libcap)        ;to enable chroot support in avahi-daemon
+                (list))))
    (native-inputs
-     `(("gettext" ,gettext-minimal)
-       ("glib" ,glib "bin")
-       ("pkg-config" ,pkg-config)))
+     (list gettext-minimal
+           (list glib "bin")
+           pkg-config))
    (synopsis "Implementation of mDNS/DNS-SD protocols")
    (description
     "Avahi is a system which facilitates service discovery on a local
--- a/gnu/packages/c.scm
+++ b/gnu/packages/c.scm
@@ -23,7 +23,7 @@
 ;;; Copyright © 2023, 2024 David Elsing <david.elsing@posteo.net>
 ;;; Copyright @ 2022, Kitzman <kitzman@disroot.org>
 ;;; Copyright @ 2025 Dariqq <dariqq@posteo.net>
-;;; Copyright © 2025 Ashish SHUKLA <ashish.is@lostca.se>
+;;; Copyright © 2025, 2026 Ashish SHUKLA <ashish.is@lostca.se>
 ;;; Copyright © 2026 Cayetano Santos <csantosb@inventati.org>
 ;;; Copyright © 2026 Sharlatan Hellseher <sharlatanus@gmail.com>
 ;;;
@@ -1762,7 +1762,7 @@ string.h, but with a utf8* prefix instead of the str* prefix.")
 (define-public simdutf
  (package
    (name "simdutf")
-    (version "7.7.1")
+    (version "9.0.0")
    (source
     (origin
       (method git-fetch)
@@ -1771,7 +1771,7 @@ string.h, but with a utf8* prefix instead of the str* prefix.")
             (commit (string-append "v" version))))
       (file-name (git-file-name name version))
       (sha256
-        (base32 "0kw4j4qqcfjaii667xa745pklj50m70nqq8cj5agj714acczbk7y"))))
+        (base32 "0f5ccvqj7pfa69m9y1kxp2v1lybx6x8i9pykdqfkr7dydqbhrhx6"))))
    (build-system cmake-build-system)
    (arguments (list #:configure-flags #~(list "-DBUILD_SHARED_LIBS=ON")))
    (synopsis "SIMD Unicode validation and transcoding")
--- a/gnu/packages/check.scm
+++ b/gnu/packages/check.scm
@@ -1140,8 +1140,7 @@ Anything Protocol} compliant programs can also be executed through Kyua.")
    (arguments
     `(#:tests? #f
       #:configure-flags '("-DBUILD_SHARED_LIBS=ON")))
-    (native-inputs
-     `(("python" ,python-wrapper)))
+    (native-inputs (list python-wrapper))
    (home-page "https://github.com/google/googletest/")
    (synopsis "Test discovery and XUnit test framework")
    (description "Google Test features an XUnit test framework, automated test
--- a/gnu/packages/cpp.scm
+++ b/gnu/packages/cpp.scm
@@ -44,7 +44,7 @@
 ;;; Copyright © 2024 Jakob Kirsch <jakob.kirsch@web.de>
 ;;; Copyright © 2025 Sharlatan Hellseher <sharlatanus@gmail.com>
 ;;; Copyright © 2025 Sergio Pastor Pérez <sergio.pastorperez@gmail.com>
-;;; Copyright © 2025 Ashish SHUKLA <ashish.is@lostca.se>
+;;; Copyright © 2025, 2026 Ashish SHUKLA <ashish.is@lostca.se>
 ;;; Copyright © 2025 Nicolas Graves <ngraves@ngraves.fr>
 ;;; Copyright © 2025 Romain Garbage <romain.garbage@inria.fr>
 ;;; Copyright © 2024, 2025 Janneke Nieuwenhuizen <janneke@gnu.org>
@@ -3360,7 +3360,7 @@ which can evaluate Jsonnet files and expressions.")))
 (define-public simdjson
  (package
    (name "simdjson")
-    (version "3.13.0")
+    (version "4.6.3")
    (source (origin
              (method git-fetch)
              (uri (git-reference
@@ -3369,7 +3369,7 @@ which can evaluate Jsonnet files and expressions.")))
              (file-name (git-file-name name version))
              (sha256
               (base32
-                "005yli56nrkvlyx9g9cq8dczk42r9a18l162i2s5k81lj3y7mcrp"))))
+                "0729mxnc2wjb94gr4znwlzfmgw5w2v9kd8glvn3vnjhkdnd87zry"))))
    (build-system cmake-build-system)
    (arguments
     '(#:tests? #f                      ; tests require downloading dependencies
@@ -3608,7 +3608,7 @@ std::wstring, etc).")
 (define-public fast-float
  (package
    (name "fast-float")
-    (version "8.0.2")
+    (version "8.2.5")
    (source (origin
              (method git-fetch)
              (uri (git-reference
@@ -3617,7 +3617,7 @@ std::wstring, etc).")
              (file-name (git-file-name name version))
              (sha256
               (base32
-                "19x1yklf641yrpad6lk4cq3jmird10d5ig8hicm3p9lxh92k78cl"))))
+                "1l13nsl4sgq71m7aifrmmmfyl14vp48vqdh7pb50hxqq6f8bq2b5"))))
    (build-system cmake-build-system)
    (arguments
     (list
@@ -3628,12 +3628,10 @@ std::wstring, etc).")
          (add-after 'unpack 'patch-cmake-tests
            (lambda* (#:key inputs native-inputs #:allow-other-keys)
              (substitute* "tests/CMakeLists.txt"
-                (("FetchContent_GetProperties\\(supplemental_test_files.*")
-                 "")
-                (("if\\(NOT supplemental_test_files_POPULATED.*")
+                (("FetchContent_MakeAvailable\\(supplemental_test_files.*")
                 (string-append
                  "set(supplemental_test_files_BINARY_DIR "
-                  #$fast-float-test-files ")\nif(0)\n"))))))))
+                  #$fast-float-test-files ")\n"))))))))
    (native-inputs (list doctest fast-float-test-files))
    (home-page "https://github.com/fastfloat/fast_float")
    (synopsis "Floating point number parser for C++")
--- a/gnu/packages/debug.scm
+++ b/gnu/packages/debug.scm
@@ -1096,17 +1096,9 @@ to aid in debugging.")
             (commit (string-append "v" version))))
       (file-name (git-file-name name version))
       (sha256 (base32 "0ppx8r9isc772y0ahpgl8g5b3yxka7ffqzlcsa920aib5nj39lrg"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (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))))
            (substitute* "pyproject.toml"
              ;; Python is linked with GNU readline on all Guix targets.
              ((".*gnureadline.*") "")
--- a/gnu/packages/electronics.scm
+++ b/gnu/packages/electronics.scm
@@ -1588,31 +1588,21 @@ exploration and optimization.")
              (commit version)
              (recursive? #t)))
       (file-name (git-file-name name version))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (snippet
-        #~(begin
-            ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-            (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 "libs"
-                            "delaunay-triangulation"
-                            "dxflib"
-                            ;; "fontobene-qt"
-                            ;; "googletest"
-                            ;; "hoedown"
-                            "librepcb"
-                            ;; "muparser"
-                            "optional"
-                            "parseagle"
-                            ;; "polyclipping"
-                            ;; "quazip"
-                            "type_safe")))
+        #~(delete-all-but "libs"
+            "delaunay-triangulation"
+            "dxflib"
+            ;; "fontobene-qt"
+            ;; "googletest"
+            ;; "hoedown"
+            "librepcb"
+            ;; "muparser"
+            "optional"
+            "parseagle"
+            ;; "polyclipping"
+            ;; "quazip"
+            "type_safe"))
       (sha256
        (base32 "1g3k2g2p5yy7zk971bg7qh4k38p30aydp27c5bfb02gn7djknz7w"))))
    (build-system cmake-build-system)
@@ -2168,18 +2158,9 @@ layout of a circuit corresponds to the desired netlists.")
              ;; no longer have their original upstream.
              (recursive? #t)))
       (file-name (git-file-name name version))
+       (modules '((guix build utils)))
       (snippet
        #~(begin
-            (use-modules (guix build utils)
-                         (ice-9 ftw)
-                         (srfi srfi-26))
-            ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-            (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 "3rdparty"
                            ;; The following sources have all been patched, so
                            ;; cannot easily be unbundled.
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -16024,18 +16024,9 @@ placed at the margin of the minibuffer for your completion candidates.")
               (url "https://github.com/Fuco1/smartparens")
               (commit commit)))
         (file-name (git-file-name name version))
-         (modules '((guix build utils)
-                    (ice-9 ftw)
-                    (srfi srfi-26)))
+         (modules '((guix build utils)))
         (snippet
          '(begin
-             ;; Taken from nextpnr package.
-             (define (delete-all-but directory . preserve)
-               (with-directory-excursion directory
-                 (let* ((pred
-                         (negate (cut member <> (append '("." "..") preserve))))
-                        (items (scandir "." pred)))
-                   (for-each delete-file items))))
             ;; Only activate basic tests.
             (delete-all-but "test"
                             "test-helper.el"
--- a/gnu/packages/emulators.scm
+++ b/gnu/packages/emulators.scm
@@ -460,13 +460,6 @@ It aims to support Nintendo DSi and 3DS as well.")
                    (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))))
-
              ;; Clean up the source from bundled libraries we don't need.
              (delete-all-but "Externals"
                              ;; XXX: The build system is currently hard-coded
@@ -656,14 +649,6 @@ turbo speed, networked multiplayer, and graphical enhancements.")
                    (srfi srfi-26)))
         (snippet
          #~(begin
-              ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-              (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))))
-
              ;; Clean up the source from bundled libraries we don't need.
              (delete-all-but "Externals"
                              ;; XXX: The build system is currently hard-coded
@@ -1079,17 +1064,9 @@ The following systems are supported:
         (sha256
          (base32
           "0dfsz4dsh49dc9xx9rjhfzfkg4h91i2ksgp2inlr9yhgldw9q8h3"))
-         (modules '((guix build utils)
-                    (ice-9 ftw)
-                    (srfi srfi-26)))
+         (modules '((guix build utils)))
         (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 "src/third-party"
                              "blip_buf"
                              "inih")))))
@@ -2319,42 +2296,9 @@ physical device and the RetroPad virtual controller.")
         (modules '((guix build utils)))
         (snippet
          '(begin
-             (use-modules (guix build utils)
-                          (ice-9 ftw)
-                          (srfi srfi-1)
-                          (srfi srfi-26))
-             (define (delete-all-but . preserve)
-               ;; Walk the file tree and delete everything except the paths
-               ;; listed in PRESERVE.  Directories listed PRESERVE will cause
-               ;; their whole contents to be preserved.
-               (let ((preserve (map (compose (cut string-trim-right <> #\/)
-                                             (cut string-append "./" <>))
-                                    preserve)))
-                 (file-system-fold
-                  (lambda (path stat result) ;enter
-                    (or (any (lambda (x)
-                               (or (string-prefix? path x)
-                                   (string-prefix? x path)))
-                             preserve)
-                        (begin
-                          (delete-file-recursively path)
-                          #f)))
-                  (lambda (path stat result) ;leaf (file)
-                    (unless (any (cut string-prefix? <> path) preserve)
-                      (delete-file path)))
-                  (const #t)                 ;down (directory)
-                  (const #t)                 ;up (directory)
-                  (lambda (path stat result) ;skip
-                    (when (file-exists? path)
-                      (error "could not enter unreadable directory" path)))
-                  (lambda (path stat errno result) ;error
-                    (error "error processing" path (strerror errno)))
-                  0
-                  ".")))
-
             ;; This is an allow-list of the shaders explicitly licensed as
             ;; free software.
-             (delete-all-but
+             (delete-all-but "."
              "anamorphic/shaders/anamorphic.slang" ;expat
              "anamorphic/anamorphic.slangp"
              "annotated_passthru.slang" ;public license
@@ -3011,16 +2955,7 @@ GLSL (@file{.slang}) shaders for use with RetroArch.")
             (commit (string-append "v" version))))
       (snippet
        #~(begin
-            (use-modules (guix build utils)
-                         (ice-9 ftw)
-                         (srfi srfi-26))
-            ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-            (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))))
+            (use-modules (guix build utils))
            ;; Remove as much bundled sources as possible, shaving off about
            ;; 65 MiB.
            (delete-all-but "deps"
@@ -3829,24 +3764,14 @@ de-interlacing patches for use with PCSX2.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "0nr53cjifqwnz3icxsj01yd3aw1vfsfxga4zz5zi8aqr175mvq27"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (snippet
        #~(begin
            (substitute* "cmake/Pcsx2Utils.cmake"
              (("(PCSX2_GIT_REV \")Unknown" _ prefix)
               (string-append prefix #$version "-guix")))
            (delete-file "3rdparty/include/Packet32.h") ;"not open source"
-            ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-            (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
-             "3rdparty"
+            (delete-all-but "3rdparty"
             ;; asl2.0 and cc0
             "glad"                     ;Is tailored.
             ;; bsd-3
--- a/gnu/packages/fltk.scm
+++ b/gnu/packages/fltk.scm
@@ -23,7 +23,6 @@
 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

 (define-module (gnu packages fltk)
-  #:use-module ((guix licenses) #:select (lgpl2.0 lgpl2.0+))
  #:use-module (gnu packages)
  #:use-module (gnu packages autotools)
  #:use-module (gnu packages build-tools)
@@ -35,8 +34,10 @@
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages python)
  #:use-module (gnu packages python-xyz)
-  #:use-module (guix packages)
  #:use-module (guix download)
+  #:use-module (guix gexp)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
  #:use-module (guix git-download)
  #:use-module (guix build-system gnu)
  #:use-module (guix build-system waf)
@@ -56,51 +57,51 @@
      (sha256
       (base32 "0pnifyhhvcqfjd6iaa4m14kvfyqhjjdw0aqbcizcdhhqrl6q4pjg"))))
   (build-system gnu-build-system)
-   (native-inputs
-    (list autoconf
-          automake
-          pkg-config))
-   (inputs
-    `(("libjpeg" ,libjpeg-turbo)
-      ("libpng" ,libpng)
-      ("libx11" ,libx11)
-      ("libxft" ,libxft)
-      ("mesa" ,mesa)
-      ("zlib" ,zlib)))
    (arguments
-     `(#:tests? #f                      ;TODO: compile programs in "test" dir
-       #:configure-flags
-       (list "--enable-shared"
-             (string-append "DSOFLAGS=-Wl,-rpath=" %output "/lib"))
-       #:phases
-       (modify-phases %standard-phases
-         (add-before 'configure 'patch-makeinclude
-           (lambda _
-             (substitute* "makeinclude.in"
-               (("/bin/sh") (which "sh")))
-             #t))
-         (add-after 'install 'patch-config
-           ;; Provide -L flags for image libraries when querying fltk-config to
-           ;; avoid propagating inputs.
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let ((conf (string-append (assoc-ref outputs "out")
-                                        "/bin/fltk-config"))
-                   (jpeg (assoc-ref inputs "libjpeg"))
-                   (png  (assoc-ref inputs "libpng"))
-                   (zlib (assoc-ref inputs "zlib")))
-               (substitute* conf
-                 (("-ljpeg") (string-append "-L" jpeg "/lib -ljpeg"))
-                 (("-lpng") (string-append "-L" png "/lib -lpng"))
-                 (("-lz") (string-append "-L" zlib "/lib -lz"))))
-             #t)))))
+     (list
+      #:tests? #f ;TODO: compile programs in "test" dir
+      #:configure-flags
+      #~(list "--enable-shared"
+              (string-append "DSOFLAGS=-Wl,-rpath=" %output "/lib"))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'configure 'patch-makeinclude
+            (lambda _
+              (substitute* "makeinclude.in"
+                (("/bin/sh")
+                 (which "sh")))))
+          (add-after 'install 'patch-config
+            ;; Provide -L flags for image libraries when querying fltk-config to
+            ;; avoid propagating inputs.
+            (lambda* (#:key inputs #:allow-other-keys)
+              (let ((conf (string-append #$output "/bin/fltk-config"))
+                    (libjpeg-so (search-input-file inputs "lib/libjpeg.so"))
+                    (libpng-so (search-input-file inputs "lib/libpng.so"))
+                    (libz-so (search-input-file inputs "lib/libz.so")))
+                (substitute* conf
+                  (("-ljpeg")
+                   (string-append "-L" (dirname libjpeg-so) " -ljpeg"))
+                  (("-lpng")
+                   (string-append "-L" (dirname libpng-so) " -lpng"))
+                  (("-lz")
+                   (string-append "-L" (dirname libz-so) " -lz")))))))))
+    (native-inputs (list autoconf automake pkg-config))
+    (inputs
+     (list libjpeg-turbo
+           libpng
+           libx11
+           libxft
+           mesa
+           zlib))
    (home-page "https://www.fltk.org")
    (synopsis "3D C++ GUI library")
-    (description "FLTK is a C++ GUI toolkit providing modern GUI functionality
-without the bloat.  It supports 3D graphics via OpenGL and its built-in GLUT
-emulation.  FLTK is designed to be small and modular enough to be statically
-linked, but works fine as a shared library.  FLTK also includes an excellent
-UI builder called FLUID that can be used to create applications in minutes.")
-    (license lgpl2.0))) ; plus certain additional permissions
+    (description
+     "FLTK is a C++ GUI toolkit providing modern GUI functionality without the
+bloat.  It supports 3D graphics via OpenGL and its built-in GLUT emulation.
+FLTK is designed to be small and modular enough to be statically linked, but
+works fine as a shared library.  FLTK also includes an excellent UI builder
+called FLUID that can be used to create applications in minutes.")
+    (license license:lgpl2.0))) ; plus certain additional permissions

 (define-public fltk
  (package
@@ -162,4 +163,4 @@ UI builder called FLUID that can be used to create applications in minutes.")
 library, adding improved graphics rendering via Cairo, a streamlined and
 enhanced widget set, and other features designed to improve the appearance and
 performance of the Non applications.")
-    (license lgpl2.0+))) ; plus certain additional permissions
+    (license license:lgpl2.0+))) ; plus certain additional permissions
--- a/gnu/packages/freedesktop.scm
+++ b/gnu/packages/freedesktop.scm
@@ -792,16 +792,16 @@ the freedesktop.org XDG Base Directory specification.")
 (define-public elogind
  (package
    (name "elogind")
-    (version "255.17")
+    (version "255.22")
    (source (origin
              (method git-fetch)
              (uri (git-reference
                    (url "https://github.com/elogind/elogind")
-                    (commit (string-append "v" version))))
+                    (commit (string-append "V" version))))
              (file-name (git-file-name name version))
              (sha256
               (base32
-                "0cb6p559281dzh24is91v6d4v4kz45yhyizibi4sfql9nign865h"))))
+                "0hnzks8f0jl2hkf954pqky5490zacqaipz20k38qvzl5g8i1if5l"))))
    (build-system meson-build-system)
    (arguments
     `(#:configure-flags
--- a/gnu/packages/game-development.scm
+++ b/gnu/packages/game-development.scm
@@ -1182,17 +1182,9 @@ It is capable of creating games for SCUMM version 6 and partially version 7.")
       (sha256
        (base32
         "12f1d45995qf5sazjmmfdydllcd6alhqs1s4xwv3jiq1fw66hcy9"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (snippet
        '(begin
-           ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-           (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 "extlibs/headers"
                           "glad")))))  ;pre-generated headers
    (build-system cmake-build-system)
--- a/gnu/packages/golang-apps.scm
+++ b/gnu/packages/golang-apps.scm
@@ -192,17 +192,9 @@ definitions in Go programs.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "0c1rxbj3v3m0fqb8q96xlbawxm9scyx6vvr8pddkiwp7zkx4ajym"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (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 "cmd" "godoc")
            (delete-all-but "." "cmd")))))
    (build-system go-build-system)
--- a/gnu/packages/golang-build.scm
+++ b/gnu/packages/golang-build.scm
@@ -1535,17 +1535,9 @@ Go programming language.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "0sjvngpahkb5x573i855fjlb1fdmr6n269nmb5xxnbabjb27mnvg"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (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 "go" "expect")
            (delete-all-but "." "go")))))
    (build-system go-build-system)
@@ -1575,17 +1567,9 @@ Go source code (including go.mod and go.work files) as test expectations.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "0sjvngpahkb5x573i855fjlb1fdmr6n269nmb5xxnbabjb27mnvg"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (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 "go" "packages")
            (delete-all-but "go/packages" "packagestest")
            (delete-all-but "." "go")))))
@@ -1618,18 +1602,9 @@ tools on.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "1blk22apy424j9v58lfy4pxnrgh93yqchqhxsnf78dmx4vx5yi9r"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (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 "." "godoc")))))
+        #~(begin (delete-all-but "." "godoc")))))
    (build-system go-build-system)
    (arguments
     (list
--- a/gnu/packages/golang-web.scm
+++ b/gnu/packages/golang-web.scm
--- a/gnu/packages/golang-xyz.scm
+++ b/gnu/packages/golang-xyz.scm
@@ -1238,26 +1238,8 @@ may be interactive or produce standard formats such as SVG or PDF.")
         (file-name (git-file-name name version))
         (sha256
          (base32 "1np11if704xzyhsx9mqhz7djx23g6wnz62r1v9ra6xaz91yfic0n"))
-         (modules '((guix build utils)
-                    (ice-9 ftw)
-                    (srfi srfi-26)))
-         (snippet
-          #~(begin
-              ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-              (define (delete-all-but directory . preserve)
-                (define (directory? x)
-                  (and=> (stat x #f)
-                         (compose (cut eq? 'directory <>) stat:type)))
-                (with-directory-excursion directory
-                  (let* ((pred
-                          (negate (cut member <> (append '("." "..") preserve))))
-                         (items (scandir "." pred)))
-                    (for-each (lambda (item)
-                                (if (directory? item)
-                                    (delete-file-recursively item)
-                                    (delete-file item)))
-                              items))))
-              (delete-all-but "." "generate")))))
+         (modules '((guix build utils)))
+         (snippet #~(delete-all-but "." "generate"))))
      (build-system go-build-system)
      (arguments
       (list
@@ -4818,18 +4800,9 @@ and multi-selects with a focus on user experience and aesthetics.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "083zj3yqb48li8w389iabi1b1zklbw7cwam2grvvglcqrrsj3bsf"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (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 "." "ansi")))))
+        #~(begin (delete-all-but "." "ansi")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -4866,14 +4839,7 @@ ECMA-48} specs.")
                  (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 "." "cellbuf")))))
+        #~(begin (delete-all-but "." "cellbuf")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -4931,18 +4897,8 @@ ECMA-48} specs.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "088786ak8jsgvssbb5y16z066vfq9f6078sjc7iv766knfr2i0x2"))
-       (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 "." "errors")))))
+       (modules '((guix build utils)))
+       (snippet #~(delete-all-but "." "errors"))))
    (build-system go-build-system)
    (arguments
     (list
@@ -5094,18 +5050,9 @@ package provides an API for comparing Golden files.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "1shw55110fnn4xz80wmgr18czmiil6z1j064m90iw8c7j9llfzn5"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (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 "." "term")))))
+        #~(begin (delete-all-but "." "term")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -5193,21 +5140,8 @@ package provides an API for comparing Golden files.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "0blpb8vpl7sc6pb43h0730wdcwrkvnhly6qhik6wljrzn2nqz5g2"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
-       (snippet
-        #~(begin
-            ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-            ;; Consider implementing it as a reusable procedure in
-            ;; guix/build/utils or guix/build-system/go.
-            (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 "." "xpty")))))
+       (modules '((guix build utils)))
+       (snippet #~(delete-all-but "." "xpty"))))
    (build-system go-build-system)
    (arguments
     (list
@@ -6245,21 +6179,8 @@ packages.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "0afaljkkd388f6igr3f2vjnd14yr8h20fcfzglw8j5q1q7a1cvik"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
-       (snippet
-        #~(begin
-            ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-            ;; Consider implementing it as a reusable procedure in
-            ;; guix/build/utils or guix/build-system/go.
-            (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 "." "pkg")))))
+       (modules '((guix build utils)))
+       (snippet #~(delete-all-but "." "pkg"))))
    (build-system go-build-system)
    (arguments
     (list
@@ -15182,18 +15103,9 @@ Twisted's manhole library} .")
       (file-name (git-file-name name version))
       (sha256
        (base32 "0xj782ghf0iv8r2xxmg2vrh72b02h216y4yfyi60y9z0691lrsip"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (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 "." "tools")))))
+        #~(begin (delete-all-but "." "tools")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -18797,18 +18709,9 @@ publish–subscribe pattern}.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "0an8ypp8v9gfxbbb71mpimb1g9labl4v7lgazcphysn6c5smgmiw"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (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 "." "atomicwriter")))))
+        #~(begin (delete-all-but "." "atomicwriter")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -18863,18 +18766,9 @@ https://github.com/syndtr/gocapability.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "1nh1disclgydvq7k10awzks6k8kw9cjj3q19f83ksi4b76p5l475"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (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 "." "mount")))))
+        #~(begin (delete-all-but "." "mount")))))
    (build-system go-build-system)
    (arguments
     (list
@@ -29617,21 +29511,8 @@ when they'd prefer a more familiar, loosely typed API.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "05i15278swdmpif3p6g18sy0sn7rnfdl3m2rj5p30cnyb0j29vig"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
-       (snippet
-        #~(begin
-            ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-            ;; Consider implementing it as a reusable procedure in
-            ;; guix/build/utils or guix/build-system/go.
-            (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 "." "exp")))))
+       (modules '((guix build utils)))
+       (snippet #~(delete-all-but "." "exp"))))
    (build-system go-build-system)
    (arguments
     (list
@@ -31030,18 +30911,9 @@ code.")
    (name "go-modernc-org-ccgo-v4")
    (source (origin
              (inherit (package-source go-modernc-org-ccgo-v3))
-              (modules '((guix build utils)
-                         (ice-9 ftw)
-                         (srfi srfi-26)))
+              (modules '((guix build utils)))
              (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 "." "v4")))))
+               #~(begin (delete-all-but "." "v4")))))
    (arguments
     (substitute-keyword-arguments
         (package-arguments go-modernc-org-ccgo-v3)
@@ -31997,20 +31869,9 @@ unmarshaling functions based on @code{encoding/json} @code{Unmarshal()}.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "12n8ij4gisah5mvxcgq263iic61gjpxdj3ml03826zckzn7wlv46"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (snippet
        #~(begin
-            ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-            ;; Consider implementing it as a reusable procedure in
-            ;; guix/build/utils or guix/build-system/go.
-            (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 "." "cmd")
            (delete-all-but "cmd" "config")))))
    (build-system go-build-system)
--- a/gnu/packages/groff.scm
+++ b/gnu/packages/groff.scm
@@ -47,13 +47,13 @@
 (define-public groff
  (package
   (name "groff")
-   (version "1.22.4")
+   (version "1.24.0")
   (source (origin
            (method url-fetch)
            (uri (string-append "mirror://gnu/groff/groff-" version
                                ".tar.gz"))
            (sha256 (base32
-                     "14q2mldnr1vx0l9lqp9v2f6iww24gj28iyh4j2211hyynx67p3p7"))))
+                     "0w3mf9jb5j1gbw1160lr5498q4ayl5i3jpf5g8721l1yzzcbr6z7"))))
   (build-system gnu-build-system)
   (outputs '("out"
              "doc"))                    ;12MiB of PS, PDF, HTML, and examples
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -1548,10 +1548,12 @@ order to provide IDE functionality for Guile Scheme.")
                  (symlink oldpath newpath)
                  (wrap-program newpath
                    `("GUILE_LOAD_PATH" ":" =
-                      ,(list site
+                      ,(list "$GUILE_LOAD_PATH"
+                             site
                             (getenv "GUILE_LOAD_PATH")))
                    `("GUILE_LOAD_COMPILED_PATH" ":" =
-                      ,(list ccache
+                      ,(list "$GUILE_LOAD_COMPILED_PATH"
+                             ccache
                             (getenv "GUILE_LOAD_COMPILED_PATH"))))
                  ;; Not needed since the wrapper followed the symlink.
                  (delete-file (string-append bin "/." name "-real"))))
--- a/gnu/packages/image-processing.scm
+++ b/gnu/packages/image-processing.scm
@@ -601,24 +601,16 @@ different data arrays similar to those available in the numdiff software.")
              (file-name (git-file-name name version))
              (snippet
               #~(begin
-                   (use-modules (guix build utils)
-                                (ice-9 ftw)
-                                (srfi srfi-26))
+                   (use-modules (guix build utils))
                   ;; Delete any bundled .jar files.
                   (for-each delete-file (find-files "." "\\.jar$"))
-                   (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 "3rdparty"
-                                   "fastcv"     ;TODO: Unbundle these
-                                   "libspng"
-                                   "libtim-vx"
-                                   "orbbecsdk"
-                                   "quirc"
-                                   "zlib-ng")))
+                     "fastcv"           ;TODO: Unbundle these
+                     "libspng"
+                     "libtim-vx"
+                     "orbbecsdk"
+                     "quirc"
+                     "zlib-ng")))
              (sha256
               (base32
                "15w4fqjqv5k1yw70jbjsnlgiky39mqpy05rvmm2fbyjrif4kbgkl"))))
--- a/gnu/packages/ipfs.scm
+++ b/gnu/packages/ipfs.scm
@@ -1362,21 +1362,9 @@ code prior to it getting merged into @code{go-cid}.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "00lwizzdfdx6kynxddal3all6q9dhwqanpkw0d0vxlwik4nkvxa5"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (snippet
-        #~(begin
-            ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-            ;; Consider to implement it as re-usable procedure in
-            ;; guix/build/utils or guix/build-system/go.
-            (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 "." "ipfs")))))
+        #~(begin (delete-all-but "." "ipfs")))))
    (build-system go-build-system)
    (arguments
     (list
--- a/gnu/packages/jemalloc.scm
+++ b/gnu/packages/jemalloc.scm
@@ -36,7 +36,7 @@
 (define-public jemalloc
  (package
    (name "jemalloc")
-    (version "5.3.0")
+    (version "5.3.1")
    (source (origin
              (method url-fetch)
              (uri (string-append
@@ -44,7 +44,7 @@
                    version "/jemalloc-" version ".tar.bz2"))
              (sha256
               (base32
-                "1apyxjd1ixy4g8xkr61p0ny8jiz8vyv1j0k4nxqkxpqrf4g2vf1d"))))
+                "14kgf0hs864hp5xxqfqh37l1d8wwg57h7wv28rffs8ig4f0bq9iq"))))
    (build-system gnu-build-system)
    (arguments
     (list
--- a/gnu/packages/libcanberra.scm
+++ b/gnu/packages/libcanberra.scm
@@ -69,17 +69,6 @@
       (search-patches "libcanberra-sound-theme-freedesktop.patch"
                       "libcanberra-wayland-crash.patch"))))
    (build-system gnu-build-system)
-    (inputs
-     `(("alsa-lib" ,alsa-lib)
-       ("gstreamer" ,gstreamer)
-       ("gtk+" ,gtk+)
-       ("libltdl" ,libltdl)
-       ("libvorbis" ,libvorbis)
-       ("pulseaudio" ,pulseaudio)
-       ("udev" ,eudev)
-       ("sound-theme-freedesktop" ,sound-theme-freedesktop)))
-    (native-inputs
-     (list pkg-config))
    (arguments
     `(#:phases
       (modify-phases %standard-phases
@@ -87,10 +76,21 @@
           (lambda* (#:key inputs #:allow-other-keys)
             (substitute* "src/sound-theme-spec.c"
               (("@SOUND_THEME_DIRECTORY@")
-                (string-append
-                 (assoc-ref inputs "sound-theme-freedesktop")
-                 "/share")))
-             #t)))))
+                (dirname
+                 (dirname
+                  (search-input-directory inputs
+                                          "share/sounds/freedesktop"))))))))))
+    (inputs
+     (list alsa-lib
+           gstreamer
+           gtk+
+           libltdl
+           libvorbis
+           pulseaudio
+           eudev
+           sound-theme-freedesktop))
+    (native-inputs
+     (list pkg-config))
    (home-page "https://0pointer.de/lennart/projects/libcanberra/")
    (synopsis
     "Implementation of the XDG Sound Theme and Name Specifications")
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -87,6 +87,7 @@
 ;;; Copyright © 2025 John Kehayias <john.kehayias@protonmail.com>
 ;;; Copyright © 2025 Arjan Adriaanse <arjan@adriaan.se>
 ;;; Copyright © 2026 Justin Veilleux <terramorpha@cock.li>
+;;; Copyright © 2025 Dariqq <dariqq@posteo.net>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -3026,57 +3027,45 @@ which need to be installed separately.")
 (define-public linux-pam
  (package
    (name "linux-pam")
-    (version "1.5.2")
+    (version "1.7.2")
    (source
     (origin
-       (method url-fetch)
-       (uri (string-append
-             "https://github.com/linux-pam/linux-pam/releases/download/v"
-             version "/Linux-PAM-" version ".tar.xz"))
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/linux-pam/linux-pam")
+              (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
       (sha256
        (base32
-         "0kgrsj2scv5mx6w925h9hxf11jnqqs9z8s22aw94b90xm4qp3v74"))
+         "1z5apric696zsci28c7651spvdll0zrpfm9z574gcjf45mp22gmi"))
       (patches (search-patches "linux-pam-unix_chkpwd.patch"
                                "linux-pam-no-setfsuid.patch"))))
-
-    (build-system gnu-build-system)
+    (build-system meson-build-system)
+    (outputs '("out" "doc")) ;; 0.8 MiB of html
    (inputs (list libxcrypt))
    (native-inputs
-     (list flex
-           ;; TODO: optional dependencies
-           ;; ("cracklib" ,cracklib)
-           ))
+     (list gettext-minimal
+           flex bison
+           ;; manpages
+           libxslt
+           libxml2
+           docbook-xml
+           docbook-xsl))
    (arguments
     (list
-      ;; Most users, such as `shadow', expect the headers to be under
-      ;; `security'.
-      #:configure-flags #~(list (string-append "--includedir="
-                                               (assoc-ref %outputs "out")
-                                               "/include/security")
-                                ;; explicit libdir for pkgconfig files
-                                ;; drop with 1.5.3, which fixes
-                                ;; https://github.com/linux-pam/linux-pam/issues/466
-                                (string-append "--libdir="
-                                               (assoc-ref %outputs "out")
-                                               "/lib")
-
-                                ;; XXX: <rpc/rpc.h> is missing from glibc when
-                                ;; cross-compiling, so we have to disable NIS
-                                ;; support altogether.
-                                #$@(if (%current-target-system)
-                                       #~("--disable-nis")
-                                       #~()))
-
-      #:phases (if (target-hurd?)
-                   #~(modify-phases %standard-phases
-                       (add-after 'unpack 'skip-pam-limits
-                         (lambda _
-                           ;; 'pam_limits.c' uses <sys/prctl.h>, which is
-                           ;; Linux-specific.  Skip it on GNU/Hurd.
-                           (substitute* "modules/Makefile.in"
-                             (("pam_limits") "")))))
-                   #~%standard-phases)
-
+      #:configure-flags
+      #~(list
+         ;; lastlog is deprecated since 1.5.3
+         "-Dpam_lastlog=enabled"
+         (string-append "-Dvendordir=" #$output "/share/pam")
+         (string-append "-Ddocbook-rng="
+                        #$(let ((docbook-xml (this-package-native-input
+                                              "docbook-xml")))
+                            (file-append docbook-xml
+                                         "/xml/docbook/"
+                                         (package-version docbook-xml)
+                                         "/rng/docbookxi.rng")))
+         (string-append "-Dhtmldir=" #$output:doc "/share/doc/" #$name "/html"))
      ;; XXX: Tests won't run in chroot, presumably because /etc/pam.d
      ;; isn't available.
      #:tests? #f))
@@ -4588,65 +4577,62 @@ inadequately in modern network environments, and both should be deprecated.")
        (revision "0"))
    (package
      (name "net-tools")
-      (version (string-append "1.60-" revision "." (string-take commit 7)))
-      (source (origin
-               (method url-fetch)
-               (uri (string-append "https://sourceforge.net/code-snapshots/git/"
-                                   "n/ne/net-tools/code.git/net-tools-code-"
-                                   commit ".zip"))
-               (file-name (string-append name "-" version ".zip"))
-               (sha256
-                (base32
-                 "0hz9fda9d78spp774b6rr5xaxav7cm4h0qcpxf70rvdbrf6qx7vy"))))
+      (version (string-append "1.60-" revision "."
+                              (string-take commit 7)))
+      (source
+       (origin
+         (method url-fetch)
+         (uri (string-append "https://sourceforge.net/code-snapshots/git/"
+                             "n/ne/net-tools/code.git/net-tools-code-" commit
+                             ".zip"))
+         (file-name (string-append name "-" version ".zip"))
+         (sha256
+          (base32 "0hz9fda9d78spp774b6rr5xaxav7cm4h0qcpxf70rvdbrf6qx7vy"))))
      (home-page "https://net-tools.sourceforge.net/")
      (build-system gnu-build-system)
      (arguments
-       `(#:modules ((guix build gnu-build-system)
+       (list
+        ;; Binaries that depend on libnet-tools.a don't declare that
+        ;; dependency, making it parallel-unsafe.
+        #:parallel-build? #f
+
+        #:tests? #f ;no test suite
+        #:make-flags
+        #~(list #$(string-append "CC=" (cc-for-target))
+                (string-append "BASEDIR=" #$output)
+                (string-append "INSTALLNLSDIR=" #$output "/share/locale")
+                (string-append "mandir=/share/man"))
+        #:modules `((guix build gnu-build-system)
                    (guix build utils)
                    (srfi srfi-1)
                    (srfi srfi-26))
-         #:phases
-         (modify-phases %standard-phases
-           (replace 'configure
-             (lambda* (#:key outputs #:allow-other-keys)
-               (let ((out (assoc-ref outputs "out")))
-                 (mkdir-p (string-append out "/bin"))
-                 (mkdir-p (string-append out "/sbin"))
+        #:phases
+        #~(modify-phases %standard-phases
+            (replace 'configure
+              (lambda _
+                (mkdir-p (string-append #$output "/bin"))
+                (mkdir-p (string-append #$output "/sbin"))

-                 ;; Pretend we have everything...
-                 (system "yes | make config")
+                ;; Pretend we have everything...
+                (system "yes | make config")

-                 ;; ... except for the things we don't have.
-                 ;; HAVE_AFDECnet requires libdnet, which we don't have.
-                 ;; HAVE_HWSTRIP and HAVE_HWTR require kernel headers
-                 ;; that have been removed.
-                 ;; XXX SELINUX and AFBLUETOOTH are removed for now, but we should
-                 ;; think about adding them later.
-                 (substitute* '("config.make" "config.h")
-                   (("^.*HAVE_(AFDECnet|HWSTRIP|HWTR|SELINUX|AFBLUETOOTH)[ =]1.*$")
-                    ""))
-                 #t)))
-           (add-after 'install 'remove-redundant-commands
-             (lambda* (#:key outputs #:allow-other-keys)
-               ;; Remove commands and man pages redundant with Inetutils.
-               (let* ((out (assoc-ref outputs "out"))
-                      (dup (append-map (cut find-files out <>)
-                                       '("^hostname"
-                                         "^(yp|nis|dns)?domainname"))))
-                 (for-each delete-file dup)
-                 #t))))
-         ;; Binaries that depend on libnet-tools.a don't declare that
-         ;; dependency, making it parallel-unsafe.
-         #:parallel-build? #f
-
-         #:tests? #f                                ; no test suite
-         #:make-flags (let ((out (assoc-ref %outputs "out")))
-                        (list ,(string-append "CC=" (cc-for-target))
-                              (string-append "BASEDIR=" out)
-                              (string-append "INSTALLNLSDIR=" out "/share/locale")
-                              (string-append "mandir=/share/man")))))
-      (native-inputs `(("gettext" ,gettext-minimal)
-                       ("unzip" ,unzip)))
+                ;; ... except for the things we don't have.
+                ;; HAVE_AFDECnet requires libdnet, which we don't have.
+                ;; HAVE_HWSTRIP and HAVE_HWTR require kernel headers
+                ;; that have been removed.
+                ;; XXX SELINUX and AFBLUETOOTH are removed for now, but we should
+                ;; think about adding them later.
+                (substitute* '("config.make" "config.h")
+                  (("^.*HAVE_(AFDECnet|HWSTRIP|HWTR|SELINUX|AFBLUETOOTH)[ =]1.*$")
+                   ""))))
+            (add-after 'install 'remove-redundant-commands
+              (lambda _
+                ;; Remove commands and man pages redundant with Inetutils.
+                (for-each delete-file
+                          (append-map (cute find-files #$output <>)
+                                      '("^hostname"
+                                        "^(yp|nis|dns)?domainname"))))))))
+      (native-inputs (list gettext-minimal unzip))
      (supported-systems (remove target-hurd? %supported-systems))
      (synopsis "Tools for controlling the network subsystem in Linux")
      (description
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -780,20 +780,10 @@ operating systems.")
       (file-name (git-file-name name version))
       (sha256
        (base32 "1sg6ifabci7xyp3zds1w906vx6jsmyjlfr6bqld7m7hj07by9ndd"))
-       (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"
-              "mutt-gettext.tcl"
-              "mutt-iconv.tcl")))))
+       (modules '((guix build utils)))
+       (snippet #~(delete-all-but "autosetup"
+                    "mutt-gettext.tcl"
+                    "mutt-iconv.tcl"))))
    (build-system gnu-build-system)
    (inputs
     (list cyrus-sasl
--- a/gnu/packages/maths.scm
+++ b/gnu/packages/maths.scm
@@ -3526,23 +3526,24 @@ can solve two kinds of problems:
            (variable "CURLOPT_CAPATH")
            (files '("etc/ssl/certs")))))
    (arguments
-     `(#:configure-flags
-       (list (string-append "--with-shell="
-                            (assoc-ref %build-inputs "bash")
-                            "/bin/sh")
+     (list
+      #:configure-flags
+      #~(list (string-append "--with-shell="
+                             (assoc-ref %build-inputs "bash")
+                             "/bin/sh")

-             ;; XXX: Without this flag, linking octave-cli fails with
-             ;; undefined references to 'logf@GLIBCXX_3.4' et.al. due to
-             ;; not pulling in liboctinterp.la for -lstdc++.
-             "--enable-link-all-dependencies")
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'configure 'configure-makeinfo
-           (lambda* (#:key inputs #:allow-other-keys)
-             (substitute* "libinterp/corefcn/help.h"
-               (("\"makeinfo\"")
-                (string-append
-                 "\"" (assoc-ref inputs "texinfo") "/bin/makeinfo\""))))))))
+              ;; XXX: Without this flag, linking octave-cli fails with
+              ;; undefined references to 'logf@GLIBCXX_3.4' et.al. due to
+              ;; not pulling in liboctinterp.la for -lstdc++.
+              "--enable-link-all-dependencies")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'configure 'configure-makeinfo
+            (lambda* (#:key inputs #:allow-other-keys)
+              (substitute* "libinterp/corefcn/help.h"
+                (("\"makeinfo\"")
+                 (format #f "~s"
+                         (search-input-file inputs "bin/makeinfo")))))))))
    (home-page "https://www.gnu.org/software/octave/")
    (synopsis "High-level language for numerical computation (no GUI)")
    (description "GNU Octave is a high-level interpreted language that is
@@ -5639,13 +5640,14 @@ software from KarypisLab, such as METIS.")
     `((release-monitoring-url
        . "http://glaros.dtc.umn.edu/gkhome/metis/metis/download")))
    (build-system cmake-build-system)
-    (inputs
-     `(("blas" ,openblas)))
    (arguments
-     `(#:tests? #f                      ;no tests
-       #:configure-flags `("-DSHARED=ON"
-                           ,(string-append "-DGKLIB_PATH=" (getcwd)
-                                           "/metis-" ,version "/GKlib"))))
+     (list
+      #:tests? #f                       ;no tests
+      #:configure-flags
+      #~(list "-DSHARED=ON"
+              (string-append "-DGKLIB_PATH="
+                             (getcwd) "/metis-" #$version "/GKlib"))))
+    (inputs (list openblas))
    (home-page "http://glaros.dtc.umn.edu/gkhome/metis/metis/overview")
    (synopsis "Graph partitioning and fill-reducing matrix ordering library")
    (description
@@ -7347,47 +7349,47 @@ factorization.")
           #t))))
    (build-system gnu-build-system)
    (arguments
-     `(#:tests? #f  ;no "check" target
-       #:make-flags
-       (list (string-append "CC=" ,(cc-for-target))
-             "TBB=-ltbb"
-             "MY_METIS_LIB=-lmetis"
+     (list
+      #:tests? #f                       ;no "check" target
+      #:make-flags
+      #~(list (string-append "CC=" #$(cc-for-target))
+              "TBB=-ltbb"
+              "MY_METIS_LIB=-lmetis"

-             ;; The default is to link against netlib lapack.  Use OpenBLAS
-             ;; instead.
-             "BLAS=-lopenblas" "LAPACK=-lopenblas"
+              ;; The default is to link against netlib lapack.  Use OpenBLAS
+              ;; instead.
+              "BLAS=-lopenblas"
+              "LAPACK=-lopenblas"

-             ;; Flags for cmake (required to build GraphBLAS and Mongoose)
-             (string-append "CMAKE_OPTIONS=-DCMAKE_INSTALL_PREFIX="
-                            (assoc-ref %outputs "out")
-                            " -DCMAKE_VERBOSE_MAKEFILE=ON"
-                            " -DCMAKE_C_FLAGS_RELEASE=\"$(CFLAGS) $(CPPFLAGS)\""
-                            " -DCMAKE_CXX_FLAGS_RELEASE=\"$(CXXFLAGS) $(CPPFLAGS)\""
-                            " -DCMAKE_SKIP_RPATH=TRUE"
-                            " -DCMAKE_BUILD_TYPE=Release"
-                            " -DCMAKE_INSTALL_LIBDIR=lib")
-             (string-append "INSTALL_LIB="
-                            (assoc-ref %outputs "out") "/lib")
-             (string-append "INSTALL_INCLUDE="
-                            (assoc-ref %outputs "out") "/include")
-             "library")
-       #:phases
-       (modify-phases %standard-phases
-         ,@(if (target-riscv64?)
-             ;; GraphBLAS FTBFS on riscv64-linux
-             `((add-after 'unpack 'skip-graphblas
-                 (lambda _
-                   (substitute* "Makefile"
-                     ((".*cd GraphBLAS.*") "")
-                     (("metisinstall gbinstall moninstall")
-                     "metisinstall moninstall")))))
-             '())
-         (delete 'configure))))         ;no configure script
+              ;; Flags for cmake (required to build GraphBLAS and Mongoose)
+              (string-append
+               "CMAKE_OPTIONS=-DCMAKE_INSTALL_PREFIX=" #$output
+               " -DCMAKE_VERBOSE_MAKEFILE=ON"
+               " -DCMAKE_C_FLAGS_RELEASE=\"$(CFLAGS) $(CPPFLAGS)\""
+               " -DCMAKE_CXX_FLAGS_RELEASE=\"$(CXXFLAGS) $(CPPFLAGS)\""
+               " -DCMAKE_SKIP_RPATH=TRUE"
+               " -DCMAKE_BUILD_TYPE=Release"
+               " -DCMAKE_INSTALL_LIBDIR=lib")
+              (string-append "INSTALL_LIB=" #$output "/lib")
+              (string-append "INSTALL_INCLUDE=" #$output "/include")
+              "library")
+      #:phases
+      #~(modify-phases %standard-phases
+          #$@(if (target-riscv64?)
+                 ;; GraphBLAS FTBFS on riscv64-linux
+                 #~((add-after 'unpack 'skip-graphblas
+                      (lambda _
+                        (substitute* "Makefile"
+                          ((".*cd GraphBLAS.*")
+                           "")
+                          (("metisinstall gbinstall moninstall")
+                           "metisinstall moninstall")))))
+                 #~())
+          (delete 'configure))))         ;no configure script
    (inputs
     (list tbb openblas gmp mpfr metis))
    (native-inputs
-     `(("cmake" ,cmake-minimal)
-       ("m4" ,m4)))
+     (list cmake-minimal m4))
    (home-page "https://faculty.cse.tamu.edu/davis/suitesparse.html")
    (synopsis "Suite of sparse matrix software")
    (description
--- a/gnu/packages/mpi.scm
+++ b/gnu/packages/mpi.scm
@@ -336,18 +336,9 @@ software vendors, application developers and computer science researchers.")
       (uri (string-append "https://www.open-mpi.org/software/ompi/v"
                           (version-major+minor version)
                           "/downloads/openmpi-" version ".tar.bz2"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (snippet
        '(begin
-           ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-           (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 as many bundled libraries as permitted by the build
           ;; system.
           (delete-all-but "3rd-party" "treematch" "Makefile.in" "Makefile.am")
--- a/gnu/packages/netpbm.scm
+++ b/gnu/packages/netpbm.scm
@@ -103,18 +103,6 @@
                #t))))

   (build-system gnu-build-system)
-   (inputs `(("ghostscript" ,ghostscript)
-             ("libjpeg" ,libjpeg-turbo)
-             ("libpng" ,libpng)
-             ("libtiff" ,libtiff)
-             ("libxml2" ,libxml2)
-             ("xorg-rgb" ,xorg-rgb)
-             ("zlib" ,zlib)))
-   (native-inputs
-     `(("flex" ,flex)
-       ("perl" ,perl)
-       ("pkg-config" ,pkg-config)
-       ("python" ,python-wrapper)))
   (arguments
    `(#:modules ((guix build gnu-build-system)
                 (guix build utils)
@@ -172,8 +160,7 @@

             ;; Skip tests that use nonfree programs that we don't build.
             (("ps-alt-roundtrip.test") "" )
-             (("pbm-misc-converters.test") ""))
-           #t))
+             (("pbm-misc-converters.test") ""))))
       (replace 'install
         (lambda* (#:key outputs make-flags #:allow-other-keys)
           (let ((out (assoc-ref outputs "out")))
@@ -190,8 +177,17 @@
                 (symlink
                  (match (find-files "." "^libnetpbm\\.so\\.[^.]*\\.[^.]*$")
                         ((head _ ...) head))
-                  "libnetpbm.so"))
-               #t)))))))
+                  "libnetpbm.so")))))))))
+   (inputs
+    (list ghostscript
+          libjpeg-turbo
+          libpng
+          libtiff
+          libxml2
+          xorg-rgb
+          zlib))
+   (native-inputs
+     (list flex perl pkg-config python-wrapper))
   (synopsis "Toolkit for manipulation of images")
   (description
    "Netpbm is a toolkit for the manipulation of graphic images, including
--- a/gnu/packages/onc-rpc.scm
+++ b/gnu/packages/onc-rpc.scm
@@ -165,11 +165,7 @@ from the protocol files.")
    (arguments
     `(#:configure-flags '("--disable-static")))
    (native-inputs
-     `(("autoconf" ,autoconf)
-       ("automake" ,automake)
-       ("gettext" ,gettext-minimal)
-       ("libtool" ,libtool)
-       ("pkg-config" ,pkg-config)))
+     (list autoconf automake gettext-minimal libtool pkg-config))
    (inputs
     (list libtirpc))
    (synopsis "Public client interface for NIS(YP) and NIS+")
--- a/gnu/packages/patches/git-clar-path-max.patch
+++ b/gnu/packages/patches/git-clar-path-max.patch
@@ -1,16 +0,0 @@
-On GNU/Hurd, 'PATH_MAX' is undefined.  Provide a reasonable default value.
-Adapted from <https://github.com/libgit2/libgit2/pull/7100>.
-
-diff --git a/tests/clar/clar.h b/tests/clar/clar.h
-index ca72292ae91..98e2b14e880 100644
--- a/t/unit-tests/clar/clar.h
-+++ b/t/unit-tests/clar/clar.h
-@@ -14,6 +14,8 @@
- # define CLAR_MAX_PATH 4096
- #elif defined(_WIN32)
- # define CLAR_MAX_PATH MAX_PATH
-+#elif !defined(PATH_MAX)			  /* GNU/Hurd */
-+# define CLAR_MAX_PATH 4096
- #else
- # define CLAR_MAX_PATH PATH_MAX
- #endif
--- a/gnu/packages/patches/linux-pam-unix_chkpwd.patch
+++ b/gnu/packages/patches/linux-pam-unix_chkpwd.patch
@@ -2,8 +2,14 @@ unix_chkpwd is designed to have a suid bit, but it's not possible to set it
 for files in the store.  This patch tells unix_pam.so to look for
 unix_chkpwd in setuid program directory on Guix System.

--- a/modules/pam_unix/Makefile.in
-+++ b/modules/pam_unix/Makefile.in
-@@ -651,1 +651,1 @@
-	-DCHKPWD_HELPER=\"$(sbindir)/unix_chkpwd\" \
-+	-DCHKPWD_HELPER=\"/run/setuid-programs/unix_chkpwd\" \
+--- a/modules/module-meson.build
+++ b/modules/module-meson.build
+@@ -114,7 +114,7 @@ if module == 'pam_unix'
+   if enable_nis
+     pam_module_src += ['yppasswd_xdr.c']
+   endif
+-  pam_module_c_args += ['-DCHKPWD_HELPER="@0@"'.format(sbindir / 'unix_chkpwd'),
+  pam_module_c_args += ['-DCHKPWD_HELPER="@0@"'.format('/run/privileged/bin' / 'unix_chkpwd'),
+                         '-DUPDATE_HELPER="@0@"'.format(sbindir / 'unix_update')]
+   pam_module_deps += [libcrypt, libselinux, libtirpc, libnsl]
+ endif
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -6509,7 +6509,7 @@ a safe way.")
               (base32
                "0y70qh5kn2hyrrvbsfhg0iws2qggk5vkpz37f7rbd5rd9cjc57dp"))))
    (build-system perl-build-system)
-    (native-inputs `(("test-script" ,perl-test-script)))
+    (native-inputs (list perl-test-script))
    (synopsis "Portable implementation of the `which' utility")
    (description
     "File::Which was created to be able to get the paths to executable
--- a/gnu/packages/protobuf.scm
+++ b/gnu/packages/protobuf.scm
@@ -108,24 +108,9 @@ data in motion, or as a file format for data at rest.")
       (uri (git-reference
              (url "https://github.com/protocolbuffers/protobuf/")
              (commit (string-append "v" version))))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
-       (snippet
-        #~(begin
-            ;; XXX: 'delete-all-but' is copied from the turbovnc package.
-            (define (delete-all-but directory . preserve)
-              (define (directory? x)
-                (and=> (stat x #f)
-                       (compose (cut eq? 'directory <>) stat:type)))
-              (with-directory-excursion directory
-                (let* ((pred
-                        (negate (cut member <> (append '("." "..") preserve))))
-                       (items (scandir "." pred)))
-                  (for-each delete-file-recursively items))))
-            ;; "utf8_range" development now takes place in main protobuf
-            ;; repository.
-            (delete-all-but "third_party" "utf8_range")))
+       (modules '((guix build utils)))
+       ;; "utf8_range" development now takes place in main protobuf repository.
+       (snippet #~(delete-all-but "third_party" "utf8_range"))
       (file-name (git-file-name name version))
       (sha256
        (base32 "1rdxm75bqwjj4qd3hz4vlydra6bw5dq391kwln2q0pjfx9gbrjhk"))))
--- a/gnu/packages/rust-apps.scm
+++ b/gnu/packages/rust-apps.scm
@@ -1696,7 +1696,7 @@ characters, ASCII whitespace characters, other ASCII characters and non-ASCII.")
 (define-public hyperfine
  (package
    (name "hyperfine")
-    (version "1.19.0")
+    (version "1.20.0")
    (source
      (origin
        (method url-fetch)
@@ -1704,32 +1704,34 @@ characters, ASCII whitespace characters, other ASCII characters and non-ASCII.")
        (file-name (string-append name "-" version ".tar.gz"))
        (sha256
         (base32
-          "07pm8i71l9y50awz0d97zb231lcvp3c2hmdh98znq4m9a02xd7hv"))))
+          "0b0jhpqg7hamf8zkzw8cwim9550hj3w7cq43702d4yyxdxz6kzn5"))))
    (build-system cargo-build-system)
    (arguments
-     `(#:modules ((guix build cargo-build-system)
-                  (guix build utils)
-                  (srfi srfi-26))
-       #:install-source? #f
-       #:phases
-       (modify-phases %standard-phases
-        (add-after 'install 'install-more
-          (lambda* (#:key outputs #:allow-other-keys)
-            (let* ((out   (assoc-ref outputs "out"))
-                   (share (string-append out "/share/"))
-                   (man   (string-append share "man/man1"))
-                   (bash  (string-append out "/etc/bash_completion.d/"))
-                   (fish  (string-append share "fish/vendor_completions.d"))
-                   (zsh   (string-append share "zsh/site-functions")))
-              (install-file "doc/hyperfine.1" man)
-              (for-each (cut install-file <> bash)
-                        (find-files "target" "^hyperfine.bash$"))
-              (rename-file (string-append bash "/hyperfine.bash")
-                           (string-append bash "/hyperfine"))
-              (for-each (cut install-file <> fish)
-                        (find-files "target" "^hyperfine.fish$"))
-              (for-each (cut install-file <> zsh)
-                        (find-files "target" "^_hyperfine$"))))))))
+     (list
+      #:install-source? #f
+      #:imported-modules (append %copy-build-system-modules
+                                 %cargo-build-system-modules)
+      #:modules '((guix build cargo-build-system)
+                  ((guix build copy-build-system) #:prefix copy:)
+                  (guix build utils))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'build 'pre-build
+            (lambda _
+              (setenv "SHELL_COMPLETIONS_DIR" (string-append (getcwd) "/target"))))
+          (add-after 'install 'install-extras
+            (lambda args
+              (apply (assoc-ref copy:%standard-phases 'install)
+                     #:install-plan
+                     '(("target/hyperfine.bash"
+                        "share/bash-completion/completions/hyperfine")
+                       ("target/hyperfine.elv"
+                        "share/elvish/lib/hyperfine")
+                       ("target/hyperfine.fish"
+                        "share/fish/vendor_completions.d/")
+                       ("target/_hyperfine"
+                        "share/zsh/site-functions/"))
+                     args))))))
    (inputs (cargo-inputs 'hyperfine))
    (home-page "https://github.com/sharkdp/hyperfine")
    (synopsis "Command-line benchmarking tool")
@@ -3402,35 +3404,54 @@ diagnostics, autocompletion, documentation, and formatting.")
 (define-public tectonic
  (package
    (name "tectonic")
-    (version "0.15.0")
+    (version "0.16.9")
    (source
     (origin
       ;; Grab all the sources instead of each packaged crate in the workspace.
       (method git-fetch)
       (uri (git-reference
             (url "https://github.com/tectonic-typesetting/tectonic")
-             (commit (string-append name "@" version))
-             (recursive? #t)))
+             (commit (string-append name "@" version))))
       (file-name (git-file-name name version))
       (sha256
-        (base32 "02wchm7kmfsw8y71x84hlk9qf5ldvj2ir7j8pcq2a09wlj4xi4f5"))
-       (snippet
-        #~(begin (use-modules (guix build utils))
-                 (delete-file-recursively "crates/bridge_harfbuzz/harfbuzz")))))
+        (base32 "1v9rs8wq608dwyr5wza9jlh9y8d3adm7jxny8dq02zpbda362ap7"))))
    (build-system cargo-build-system)
    (arguments
     (list
       #:install-source? #f
+       #:modules
+       '((guix build cargo-build-system)
+         (guix build utils)
+         (ice-9 match))
       #:cargo-install-paths ''(".")
       #:features '(list "external-harfbuzz")
-       #:cargo-test-flags '(list "--features" "external-harfbuzz")
+       #:cargo-test-flags '(list "--features" "external-harfbuzz"
+                                 "--"
+                                 "--skip=no_segfault_after_failed_compilation")
       #:phases
       #~(modify-phases %standard-phases
           (add-after 'install 'install-doc
             (lambda* (#:key outputs #:allow-other-keys)
               (let* ((out (assoc-ref outputs "out"))
                      (doc (string-append out "/share/doc/" #$name "-" #$version)))
-                 (copy-recursively "docs/src" doc)))))))
+                 (copy-recursively "docs/src" doc))))
+           (add-after 'install 'install-completions
+             (lambda* (#:key native-inputs #:allow-other-keys)
+               (for-each
+                (match-lambda
+                  ((shell . path)
+                   (mkdir-p (in-vicinity #$output (dirname path)))
+                   (let ((binary
+                          (if #$(%current-target-system)
+                              (search-input-file native-inputs "bin/tectonic")
+                              (in-vicinity #$output "bin/tectonic"))))
+                     (with-output-to-file (in-vicinity #$output path)
+                       (lambda _
+                         (invoke binary "-X" "show" "shell-completions" shell))))))
+                '(("bash"   . "share/bash-completion/completions/tectonic")
+                  ("elvish" . "share/elvish/lib/tectonic")
+                  ("fish"   . "share/fish/vendor_completions.d/tectonic.fish")
+                  ("zsh"    . "share/zsh/site-functions/_tectonic"))))))))
    (native-inputs
     (list pkg-config))
    (inputs
--- a/gnu/packages/rust-crates.scm
+++ b/gnu/packages/rust-crates.scm
--- a/gnu/packages/scanner.scm
+++ b/gnu/packages/scanner.scm
@@ -132,99 +132,104 @@ both WSD and eSCL.")
                   (("asctime \\(localtime \\(&current_time\\)\\)")
                    "\"1970-01-01\""))))))
    (build-system gnu-build-system)
-    (native-inputs
-     `(("autoconf" ,autoconf)
-       ("autoconf-archive" ,autoconf-archive)
-       ("automake" ,automake)
-       ("gettext" ,gettext-minimal)
-       ("libtool" ,libtool)
-       ("pkg-config" ,pkg-config)
-       ;; For scripts/pixma_gen_options.py.
-       ("python" ,python-wrapper)))
-    (inputs
-     (list libusb))
    (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-before 'bootstrap 'zap-unnecessary-git-dependency
-           (lambda _
-             ;; This runs before default patch-shebangs phase.
-             (substitute* "tools/git-version-gen"
-               (("/bin/sh") (which "sh")))
-             (with-output-to-file ".tarball-version"
-               (lambda _ (format #t ,version)))))
-         (add-before 'configure 'disable-backends
-           (lambda _
-             (setenv "BACKENDS" " ")
-
-             ;; Disable tests that may require back ends to be built.
-             (substitute* "testsuite/Makefile.in"
-               ((" backend ") " "))))
-         (add-before 'configure 'disable-failing-tests
-           (lambda _
-             ;; Disable unmaintained tests that that fail with errors resembling:
-             ;;
-             ;; < # by sane-desc 3.5 from sane-backends 1.0.24git on Jul 31 2013
-             ;; ---
-             ;; > # by sane-desc 3.5 from sane-backends 1.0.27 on 1970-01-01#
-             ;; FAIL: sane-desc -m usermap -s ./data
-             (for-each
-              (lambda (pattern)
-                (substitute* "testsuite/tools/Makefile.in"
-                  (((string-append " " pattern " ")) " ")))
-              (list "usermap" "db" "udev" "udev\\+acl" "udev\\+hwdb" "hwdb"))
-
-             ;; Disable tests that try to connect to actual USB hardware & fail
-             ;; with the following error when no USB access is allowed at all:
-             ;;
-             ;; sanei_usb_test: sanei_usb_test.c:849: main: Assertion
-             ;; `test_init (1)' failed.
-             (substitute* "testsuite/sanei/Makefile.in"
-               (("sanei_usb_test\\$\\(EXEEXT\\) ") ""))))
-         (add-before 'build 'build-pixma_sane_options.c
-           ;; "No rule to make target '../backend/pixma/pixma_sane_options.c',
-           ;; needed by 'sane-backends.pot-update'."
-           (lambda _
-             (invoke "make" "-C" "backend" "pixma/pixma_sane_options.c")))
-         (add-after 'install 'install-udev-rules
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out")))
-               (mkdir-p (string-append out "/lib/udev/rules.d"))
-               (copy-file "tools/udev/libsane.rules"
-                          (string-append out
-                                         "/lib/udev/rules.d/"
-                                         "60-libsane.rules")))))
-         (add-after 'install 'remove-dll.conf
-           (lambda _
-             ;; dll.conf lists enabled backends, so it should be removed as
-             ;; there are none in this package
-             (delete-file (string-append %output "/etc/sane.d/dll.conf"))))
-         (add-after 'install 'make-reproducible
-           ;; XXX Work around an old bug <https://issues.guix.gnu.org/26247>.
-           ;; Then work around "Throw to key `decoding-error' ..." by using sed.
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (locale (string-append out "/share/locale")))
-               (with-directory-excursion locale
-                 (for-each (lambda (file)
-                             (invoke "sed" "-i" "/^PO-Revision-Date:/d" file))
-                           (list "en@boldquot/LC_MESSAGES/sane-backends.mo"
-                                 "en@quot/LC_MESSAGES/sane-backends.mo")))))))))
-    (native-search-paths
     (list
-      (search-path-specification
-        (variable "SANE_CONFIG_DIR")
-        (files '("etc/sane.d")))
-      (search-path-specification
-        (variable "SANE_BACKEND_LIB_PATH")
-        (files '("lib/sane")))))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'bootstrap 'zap-unnecessary-git-dependency
+            (lambda _
+              ;; This runs before default patch-shebangs phase.
+              (substitute* "tools/git-version-gen"
+                (("/bin/sh")
+                 (which "sh")))
+              (with-output-to-file ".tarball-version"
+                (lambda _
+                  (format #t #$version)))))
+          (add-before 'configure 'disable-backends
+            (lambda _
+              (setenv "BACKENDS" " ")
+
+              ;; Disable tests that may require back ends to be built.
+              (substitute* "testsuite/Makefile.in"
+                ((" backend ")
+                 " "))))
+          (add-before 'configure 'disable-failing-tests
+            (lambda _
+              ;; Disable unmaintained tests that that fail with errors resembling:
+              ;;
+              ;; < # by sane-desc 3.5 from sane-backends 1.0.24git on Jul 31 2013
+              ;; ---
+              ;; > # by sane-desc 3.5 from sane-backends 1.0.27 on 1970-01-01#
+              ;; FAIL: sane-desc -m usermap -s ./data
+              (for-each (lambda (pattern)
+                          (substitute* "testsuite/tools/Makefile.in"
+                            (((string-append " " pattern " "))
+                             " ")))
+                        (list "usermap"
+                              "db"
+                              "udev"
+                              "udev\\+acl"
+                              "udev\\+hwdb"
+                              "hwdb"))
+
+              ;; Disable tests that try to connect to actual USB hardware & fail
+              ;; with the following error when no USB access is allowed at all:
+              ;;
+              ;; sanei_usb_test: sanei_usb_test.c:849: main: Assertion
+              ;; `test_init (1)' failed.
+              (substitute* "testsuite/sanei/Makefile.in"
+                (("sanei_usb_test\\$\\(EXEEXT\\) ")
+                 ""))))
+          (add-before 'build 'build-pixma_sane_options.c
+            ;; "No rule to make target '../backend/pixma/pixma_sane_options.c',
+            ;; needed by 'sane-backends.pot-update'."
+            (lambda _
+              (invoke "make" "-C" "backend" "pixma/pixma_sane_options.c")))
+          (add-after 'install 'install-udev-rules
+            (lambda _
+              (let ((dest (string-append #$output "/lib/udev/rules.d/"
+                                         "60-libsane.rules")))
+                (mkdir-p (dirname dest))
+                (copy-file "tools/udev/libsane.rules" dest))))
+          (add-after 'install 'remove-dll.conf
+            (lambda _
+              ;; dll.conf lists enabled backends, so it should be removed as
+              ;; there are none in this package
+              (delete-file (string-append #$output "/etc/sane.d/dll.conf"))))
+          (add-after 'install 'make-reproducible
+            ;; XXX Work around an old bug <https://issues.guix.gnu.org/26247>.
+            ;; Then work around "Throw to key `decoding-error' ..." by using sed.
+            (lambda _
+              (with-directory-excursion (string-append #$output "/share/locale")
+                (for-each (lambda (file)
+                            (invoke "sed" "-i" "/^PO-Revision-Date:/d" file))
+                          (list "en@boldquot/LC_MESSAGES/sane-backends.mo"
+                                "en@quot/LC_MESSAGES/sane-backends.mo"))))))))
+    (native-inputs
+     (list autoconf
+           autoconf-archive
+           automake
+           gettext-minimal
+           libtool
+           pkg-config
+           ;; For scripts/pixma_gen_options.py.
+           python-wrapper))
+    (inputs (list libusb))
+    (native-search-paths
+     (list (search-path-specification
+            (variable "SANE_CONFIG_DIR")
+            (files '("etc/sane.d")))
+           (search-path-specification
+            (variable "SANE_BACKEND_LIB_PATH")
+            (files '("lib/sane")))))
    (home-page "http://www.sane-project.org")
    (synopsis
     "Raster image scanner library and drivers, without scanner support")
-    (description "SANE stands for \"Scanner Access Now Easy\" and is an API
-proving access to any raster image scanner hardware (flatbed scanner,
-hand-held scanner, video- and still-cameras, frame-grabbers, etc.).  The
-package contains the library, but no drivers.")
+    (description
+     "SANE stands for \"Scanner Access Now Easy\" and is an API proving access
+to any raster image scanner hardware (flatbed scanner, hand-held scanner,
+video- and still-cameras, frame-grabbers, etc.).  The package contains the
+library, but no drivers.")
    (license license:gpl2+))) ; plus linking exception

 (define-public sane-backends
--- a/gnu/packages/shells.scm
+++ b/gnu/packages/shells.scm
@@ -890,7 +890,7 @@ A @code{andglob} program is also provided along with s.")
 (define-public oksh
  (package
    (name "oksh")
-    (version "7.5")
+    (version "7.8")
    (source
     (origin
       (method url-fetch)
@@ -899,7 +899,7 @@ A @code{andglob} program is also provided along with s.")
             version "/oksh-" version ".tar.gz"))
       (sha256
        (base32
-         "0pgdxvy8jgydsyzk7vcc93pm09bihqvrn3i35gz1ncg9z31rbf20"))))
+         "0l59x9mm6nbixcpz3zf3iplqili2gyw8l382rj89b0iv32hxac1v"))))
    (build-system gnu-build-system)
    (arguments
     `(#:tests? #f   ; there are no tests available
--- a/gnu/packages/specifications.scm
+++ b/gnu/packages/specifications.scm
@@ -46,19 +46,11 @@
       (file-name (git-file-name name version))
       (sha256
        (base32 "17iqvqs7w3z5c4acnjc6mixqkqz4rff2c7flfpnlwgfjgqy1a2zw"))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (snippet
        ;; XXX: Keep just some portion with valulable data and no license
        ;; issues.
        #~(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 "."
                            "allsky"
                            "coordinates"
--- a/gnu/packages/speech.scm
+++ b/gnu/packages/speech.scm
@@ -89,49 +89,43 @@
     ;; XXX:
     ;; There numerous issues with the testsuite.
     ;; Enable all of them once they are fixed in upstream.
-     `(#:tests? #f
-       #:parallel-build? #f
-       #:configure-flags
-       (list
-        "--enable-shared"
-        (string-append "LDFLAGS=-Wl,-rpath="
-                       (assoc-ref %outputs "out")
-                       "/lib"))
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'patch-rpath
-           (lambda _
-             (substitute* "main/Makefile"
-              (("flite_LIBS_flags \\+= -Wl,-rpath [^ ]*")
-               "flite_LIBS_flags +="))
-             #t))
-         (delete 'check)
-         ;; Modifying testsuite/Makefile is not done in favor of
-         ;; overriding 'check.
-         ;; The path not taken would be:
-         ;; test:\n\t$(foreach x,$(subst tris1,,$(subst dcoffset_wave,,$(subst flite_test,,$(subst by_word,,$(subst bin2ascii,,$(subst lpc_resynth,,$(subst rfc,,$(subst compare_wave,,$(subst record_in_noise,,$(subst combine_waves,,$(patsubst play_%,,$(subst record_wave,,$(subst lex_lookup,,$(patsubst lpc_test%,,$(patsubst asciiS2U%,,$(patsubst asciiU2S%,,$(ALL))))))))))))))))),echo TEST $x && ./$x data.one && ) true
-         (add-after 'install 'check
-           (lambda _
-             (invoke "make" "-C" "testsuite")
-             (with-directory-excursion "testsuite"
-               (invoke "./token_test")
-               (invoke "./hrg_test")
-               (invoke "./regex_test")
-               (invoke "./nums_test")
-               (invoke "./lex_test")
-               (invoke "./utt_test")
-               (invoke "./multi_thread"))
-             #t))
-         (add-after 'install 'remove-static-libs
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out")))
-               (for-each delete-file
-                         (find-files out "\\.a$"))
-               #t))))))
+     (list
+      #:tests? #f
+      #:parallel-build? #f
+      #:configure-flags
+      #~(list "--enable-shared"
+              (string-append "LDFLAGS=-Wl,-rpath=" #$output "/lib"))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch-rpath
+            (lambda _
+              (substitute* "main/Makefile"
+                (("flite_LIBS_flags \\+= -Wl,-rpath [^ ]*")
+                 "flite_LIBS_flags +="))))
+          (delete 'check)
+          ;; Modifying testsuite/Makefile is not done in favor of
+          ;; overriding 'check.
+          ;; The path not taken would be:
+          ;; test:\n\t$(foreach x,$(subst tris1,,$(subst dcoffset_wave,,$(subst flite_test,,$(subst by_word,,$(subst bin2ascii,,$(subst lpc_resynth,,$(subst rfc,,$(subst compare_wave,,$(subst record_in_noise,,$(subst combine_waves,,$(patsubst play_%,,$(subst record_wave,,$(subst lex_lookup,,$(patsubst lpc_test%,,$(patsubst asciiS2U%,,$(patsubst asciiU2S%,,$(ALL))))))))))))))))),echo TEST $x && ./$x data.one && ) true
+          (add-after 'install 'check
+            (lambda _
+              (invoke "make" "-C" "testsuite")
+              (with-directory-excursion "testsuite"
+                (invoke "./token_test")
+                (invoke "./hrg_test")
+                (invoke "./regex_test")
+                (invoke "./nums_test")
+                (invoke "./lex_test")
+                (invoke "./utt_test")
+                (invoke "./multi_thread"))))
+          (add-after 'install 'remove-static-libs
+            (lambda _
+              (for-each delete-file
+                        (find-files #$output "\\.a$")))))))
    (native-inputs
     (list perl))
    (inputs
-     `(("alsa" ,alsa-lib)))
+     (list alsa-lib))
    (synopsis "Speech synthesis system")
    (description "Flite (festival-lite) is a small, fast run-time text to speech
 synthesis engine developed at CMU and primarily designed for small embedded
--- a/gnu/packages/tcl.scm
+++ b/gnu/packages/tcl.scm
@@ -216,45 +216,40 @@ X11 GUIs.")
             (patches (search-patches "tk-find-library.patch"))))
    (build-system gnu-build-system)
    (arguments
-     `(#:phases (modify-phases %standard-phases
-                  (add-before 'configure 'pre-configure
-                    (lambda _ (chdir "unix")))
-                  (add-after 'install 'create-wish-symlink
-                    (lambda* (#:key outputs #:allow-other-keys)
-                      (let ((out (assoc-ref outputs "out")))
-                        (symlink (string-append out "/bin/wish"
-                                                ,(version-major+minor
-                                                  (package-version tk)))
-                                 (string-append out "/bin/wish")))))
-                  (add-after 'install 'add-fontconfig-flag
-                    (lambda* (#:key inputs outputs #:allow-other-keys)
-                      ;; Add the missing -L flag for Fontconfig in 'tk.pc' and
-                      ;; 'tkConfig.sh'.
-                      (let ((out        (assoc-ref outputs "out"))
-                            (fontconfig (assoc-ref inputs "fontconfig")))
-                        (substitute* (find-files out
-                                                 "^(tkConfig\\.sh|tk\\.pc)$")
-                          (("-lfontconfig")
-                           (string-append "-L" fontconfig
-                                          "/lib -lfontconfig")))))))
-
-       #:configure-flags
-       (list (string-append "--with-tcl="
-                            (assoc-ref %build-inputs "tcl")
-                            "/lib")
-             ;; This is needed when cross-compiling, see:
-             ;; https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=719247
-             ,@(if (%current-target-system)
-                   '("tcl_cv_strtod_buggy=1"
-                     "ac_cv_func_strtod=yes")
-                   '()))
-
-       ;; The tests require a running X server, so we just skip them.
-       #:tests? #f))
+     (list
+      ;; The tests require a running X server, so we just skip them.
+      #:tests? #f
+      #:configure-flags
+      #~(list (string-append "--with-tcl="
+                             (assoc-ref %build-inputs "tcl") "/lib")
+              ;; This is needed when cross-compiling, see:
+              ;; https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=719247
+              #$@(if (%current-target-system)
+                     '("tcl_cv_strtod_buggy=1" "ac_cv_func_strtod=yes")
+                     '()))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'configure 'pre-configure
+            (lambda _
+              (chdir "unix")))
+          (add-after 'install 'create-wish-symlink
+            (lambda _
+              (let ((version #$(version-major+minor (package-version tk)))
+                    (dest (string-append #$output "/bin/wish")))
+                (symlink (string-append dest version)
+                         dest))))
+          (add-after 'install 'add-fontconfig-flag
+            (lambda* (#:key inputs outputs #:allow-other-keys)
+              ;; Add the missing -L flag for Fontconfig in 'tk.pc' and
+              ;; 'tkConfig.sh'.
+              (let ((fontconfig (search-input-file inputs
+                                                   "lib/libfontconfig.so")))
+                (substitute* (find-files #$output "^(tkConfig\\.sh|tk\\.pc)$")
+                  (("-lfontconfig")
+                   (string-append "-L" (dirname fontconfig)
+                                  " -lfontconfig")))))))))
    (native-inputs (list pkg-config))
-    (inputs `(("libxft" ,libxft)
-              ("fontconfig" ,fontconfig)
-              ("tcl" ,tcl)))
+    (inputs (list libxft fontconfig tcl))
    ;; tk.h refers to X11 headers, hence the propagation.
    (propagated-inputs (list libx11 libxext))

--- a/gnu/packages/telephony.scm
+++ b/gnu/packages/telephony.scm
@@ -182,70 +182,68 @@ used as drop-in replacement for the non-free code from RFC 3591.")
    (build-system gnu-build-system)
    (outputs '("out" "doc" "static"))   ;doc contains HTML documentation
    (arguments
-     `(#:configure-flags '("--enable-doc=yes" "--enable-tests=yes")
-       #:parallel-build? #f ;non-deterministic build failures may occur otherwise
-       #:parallel-tests? #f ;fails removing the same the files twice otherwise
-       #:phases (modify-phases %standard-phases
-                  (add-after 'unpack 'patch-configure.ac
-                    (lambda _
-                      ;; spandsp looks at hard coded locations of the FHS to
-                      ;; find libxml2.
-                      (substitute* "configure.ac"
-                        (("AC_MSG_CHECKING\\(for libxml/xmlmemory\\.h.*" all)
-                         (string-append all
-                                        "PKG_CHECK_MODULES(XML2, libxml-2.0)\n"
-                                        "CPPFLAGS+=\" $XML2_CFLAGS\"\n")))
-                      ;; Force a regeneration of the autotools build system.
-                      (delete-file "autogen.sh")
-                      (delete-file "configure")
-                      #t))
-                  (add-after 'unpack 'do-not-install-data-files
-                    ;; The .tiff images produced for tests are not
-                    ;; reproducible and it is not desirable to have those
-                    ;; distributed.
-                    (lambda _
-                      (substitute* '("test-data/itu/fax/Makefile.am"
-                                     "test-data/etsi/fax/Makefile.am")
-                        (("nobase_data_DATA")
-                         "noinst_DATA"))
-                      #t))
-                  (add-after 'install 'install-doc
-                    (lambda* (#:key outputs #:allow-other-keys)
-                      (let ((doc (string-append (assoc-ref outputs "doc")
-                                                "/share/doc/" ,name "-" ,version)))
-                        (copy-recursively "doc/t38_manual" doc)
-                        #t)))
-                  (add-after 'install 'move-static-libraries
-                    (lambda* (#:key outputs #:allow-other-keys)
-                      (let ((out (assoc-ref outputs "out"))
-                            (static (assoc-ref outputs "static")))
-                        (mkdir-p (string-append static "/lib"))
-                        (with-directory-excursion out
-                          (for-each (lambda (file)
-                                      (rename-file file
-                                                   (string-append static "/"
-                                                                  file)))
-                                    (find-files "lib" "\\.a$")))
-                        #t))))))
+     (list
+      #:configure-flags #~'("--enable-doc=yes" "--enable-tests=yes")
+      #:parallel-build? #f ;non-deterministic build failures may occur otherwise
+      #:parallel-tests? #f ;fails removing the same the files twice otherwise
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch-configure.ac
+            (lambda _
+              ;; spandsp looks at hard coded locations of the FHS to
+              ;; find libxml2.
+              (substitute* "configure.ac"
+                (("AC_MSG_CHECKING\\(for libxml/xmlmemory\\.h.*" all)
+                 (string-append all
+                                "PKG_CHECK_MODULES(XML2, libxml-2.0)\n"
+                                "CPPFLAGS+=\" $XML2_CFLAGS\"\n")))
+              ;; Force a regeneration of the autotools build system.
+              (delete-file "autogen.sh")
+              (delete-file "configure")))
+          (add-after 'unpack 'do-not-install-data-files
+            ;; The .tiff images produced for tests are not
+            ;; reproducible and it is not desirable to have those
+            ;; distributed.
+            (lambda _
+              (substitute* '("test-data/itu/fax/Makefile.am"
+                             "test-data/etsi/fax/Makefile.am")
+                (("nobase_data_DATA")
+                 "noinst_DATA"))))
+          (add-after 'install 'install-doc
+            (lambda _
+              (copy-recursively "doc/t38_manual"
+                                (string-append #$output:doc
+                                               "/share/doc/"
+                                               #$name "-"
+                                               #$version))))
+          (add-after 'install 'move-static-libraries
+            (lambda _
+              (let ((static #$output:static))
+                (mkdir-p (string-append static "/lib"))
+                (with-directory-excursion #$output
+                  (for-each (lambda (file)
+                              (rename-file file
+                                           (string-append static "/" file)))
+                            (find-files "lib" "\\.a$")))))))))
    (native-inputs
-     `(("autoconf" ,autoconf)
-       ("automake" ,automake)
-       ("libtool" ,libtool)
-       ("pkg-config" ,pkg-config)
-       ;; For the tests
-       ("fftw" ,fftw)
-       ("libpcap" ,libpcap)
-       ("libsndfile" ,libsndfile)
-       ("libjpeg" ,libjpeg-turbo)      ;XXX: should be propagated from libtiff
-       ("libtiff" ,libtiff)
-       ("netpbm" ,netpbm)
-       ("sox" ,sox)
-       ;; For the documentation
-       ("docbook-xml" ,docbook-xml-4.3)
-       ("docbook-xsl" ,docbook-xsl)
-       ("doxygen" ,doxygen)
-       ("libxml2" ,libxml2)
-       ("libxslt" ,libxslt)))
+     (list autoconf
+           automake
+           libtool
+           pkg-config
+           ;; For the tests
+           fftw
+           libpcap
+           libsndfile
+           libjpeg-turbo               ;XXX: should be propagated from libtiff
+           libtiff
+           netpbm
+           sox
+           ;; For the documentation
+           docbook-xml-4.3
+           docbook-xsl
+           doxygen
+           libxml2
+           libxslt))
    (synopsis "DSP library for telephony")
    (description "SpanDSP is a library of DSP functions for telephony, in the
 8000 sample per second world of E1s, T1s, and higher order PCM channels.  It
--- a/gnu/packages/textutils.scm
+++ b/gnu/packages/textutils.scm
@@ -191,7 +191,7 @@ libenca and several charset conversion libraries and tools.")
  (hidden-package
   (package
     (name "utf8proc-bootstrap")
-     (version "2.10.0")
+     (version "2.11.3")
     (source
      (origin
        (method git-fetch)
@@ -200,7 +200,7 @@ libenca and several charset conversion libraries and tools.")
              (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-         (base32 "1n1k67x39sk8xnza4w1xkbgbvgb1g7w2a7j2qrqzqaw1lyilqsy2"))))
+         (base32 "1ssix4zf3lac1afzlw2gbfg3n52gmggip8lv224gywqf3zyvyp8c"))))
     (build-system gnu-build-system)
     (arguments
      (list #:tests? #f                 ;To break dependency cycle.
@@ -223,7 +223,7 @@ case-folding, and other operations for data in the UTF-8 encoding.")
    (inherit utf8proc-bootstrap)
    (name "utf8proc")
    (native-inputs
-     (let ((UNICODE_VERSION "16.0.0"))  ; defined in data/Makefile
+     (let ((UNICODE_VERSION "17.0.0"))  ; defined in data/Makefile
       ;; Only if the tests will be run should these be added.
       (if (and (%current-system)
                (supported-package? julia))
@@ -235,7 +235,7 @@ case-folding, and other operations for data in the UTF-8 encoding.")
                         UNICODE_VERSION "/ucd/NormalizationTest.txt"))
                   (sha256
                    (base32
-                     "1cffwlxgn6sawxb627xqaw3shnnfxq0v7cbgsld5w1z7aca9f4fq")))
+                     "1nw7i89q42r0plwlc8qj6qm18brk23hc0jf800cp86km63azy6ah")))
                 (origin
                   (method url-fetch)
                   (uri (string-append
@@ -243,7 +243,7 @@ case-folding, and other operations for data in the UTF-8 encoding.")
                         UNICODE_VERSION "/ucd/auxiliary/GraphemeBreakTest.txt"))
                   (sha256
                    (base32
-                     "1d9w6vdfxakjpp38qjvhgvbl2qx0zv5655ph54dhdb3hs9a96azf")))
+                     "1v4k2x52bzwgqxw89hdf3wdgwm8q3ianmfrya37bl699qp939lg2")))
                 (origin
                   (method url-fetch)
                   (uri (string-append
@@ -251,7 +251,7 @@ case-folding, and other operations for data in the UTF-8 encoding.")
                         UNICODE_VERSION "/ucd/DerivedCoreProperties.txt"))
                   (sha256
                    (base32
-                     "1gfsq4vdmzi803i2s8ih7mm4fgs907kvkg88kvv9fi4my9hm3lrr")))
+                     "021clafsjmjblsxcszp0dpxy2phwhbmyghfmxym2yj2w378zxir4")))
                 ;; For tests.
                 julia
                 perl
--- a/gnu/packages/tor-browsers.scm
+++ b/gnu/packages/tor-browsers.scm
@@ -91,8 +91,8 @@

 ;; See browser/locales/l10n-changesets.json for the commit.
 (define firefox-locales
-  (let ((commit "64046fdc97c1b1886a479dead61e6dc5428ae6e6")
-        (revision "1"))
+  (let ((commit "412690f1368e37f70af57eecabb93497167eb9ba")
+        (revision "2"))
    (package
      (name "firefox-locales")
      (version (git-version "0.0.0" revision commit))
@@ -105,7 +105,7 @@
          (file-name (git-file-name name version))
          (sha256
           (base32
-            "1rvk1m8bjnk9x61663s7bhgax6ig37v9m1d64g89fk1qwsk3djhh"))))
+            "15614g94zdk3n1nnx5jy622zryv2ydd5cmn4pidwrl07g1f3xxxa"))))
      (build-system copy-build-system)
      (home-page "https://github.com/mozilla-l10n/firefox-l10n")
      (synopsis "Firefox Locales")
@@ -115,16 +115,16 @@ Firefox locales.")

 ;; We copy the official build id, which is defined at
 ;; tor-browser-build/rbm.conf (browser_release_date).
-(define %torbrowser-build-date "20251028094500")
+(define %torbrowser-build-date "20260404073000")

 ;; To find the last version, look at https://www.torproject.org/download/.
-(define %torbrowser-version "15.0")
+(define %torbrowser-version "15.0.9")

 ;; To find the last Firefox version, browse
 ;; https://archive.torproject.org/tor-package-archive/torbrowser/<%torbrowser-version>
 ;; There should be only one archive that starts with
 ;; "src-firefox-tor-browser-".
-(define %torbrowser-firefox-version "140.4.0esr-15.0-1-build4")
+(define %torbrowser-firefox-version "140.9.1esr-15.0-1-build1")

 ;; See tor-browser-build/rbm.conf for the list.
 (define %torbrowser-locales (list "ar" "be" "bg" "ca" "cs" "da" "de" "el" "es-ES" "fa"
@@ -139,11 +139,11 @@ Firefox locales.")
    (method git-fetch)
    (uri (git-reference
          (url "https://gitlab.torproject.org/tpo/translation.git")
-          (commit "cdd3da6308bb3beb916744057af92331025053bb")))
+          (commit "ce651a6f8aa3a6c5ff9c3f9c77d3cb9585dcc903")))
    (file-name "translation-base-browser")
    (sha256
     (base32
-      "1l3alzgj1bz2xsijd323swiq450dm9s1zyygdwnzsjvcpdbbnm7b"))))
+      "0cr82adjkqkbamb4qk7xpr84lch4js4n126pzsm1993np0ap7vjp"))))

 ;; See tor-browser-build/projects/translation/config.
 (define torbrowser-translation-specific
@@ -151,11 +151,11 @@ Firefox locales.")
    (method git-fetch)
    (uri (git-reference
          (url "https://gitlab.torproject.org/tpo/translation.git")
-          (commit "3395fe5bdb7556490e31d3c6804e6240278bc708")))
+          (commit "685a144cb5cfdb50afc1e4effae48a63b3a81ee3")))
    (file-name "translation-tor-browser")
    (sha256
     (base32
-      "16jzbjak2r3f8gi13bl1h8lg4cmgifv97qbg2ypjvg77vf4z4dd1"))))
+      "02z1cfzyg10g4z4iz5z1k3jjv7k0ydmsf6i923iir02yw2jgznp7"))))

 (define torbrowser-assets
  ;; This is a prebuilt Torbrowser from which we take the assets we need.
@@ -171,7 +171,7 @@ Firefox locales.")
         version "/tor-browser-linux-x86_64-" version ".tar.xz"))
       (sha256
        (base32
-         "187yr0y14mbsakxbglr7jxp4x7kkiyc3k6xa6mf1nzhd32i4srr3"))))
+         "039nys7h83avkva16rg7lvrxh08pczw08vklxrh90pm38fpipddk"))))
    (arguments
     (list
      #:install-plan
@@ -212,7 +212,7 @@ Browser.")
         ".tar.xz"))
       (sha256
        (base32
-         "18inq4yfs4c3p68qwgx0xf54mk8lzs5pm5m0m9d6q2ikng1lmll1"))))
+         "0jvlznd2rc68c9bl7al405dpgk0806hznxn198ji0nryjr5hmzd5"))))
    (build-system mozilla-build-system)
    (inputs
     (list lyrebird
@@ -412,6 +412,12 @@ Browser.")
              (substitute* "dom/media/platforms/ffmpeg/FFmpegRuntimeLinker.cpp"
                (("libavcodec\\.so")
                 (search-input-file inputs "lib/libavcodec.so")))))
+
+          (add-after 'fix-ffmpeg-runtime-linker 'fix-zucchini
+            (lambda _
+              ;; This option breaks the configure phase.
+              (substitute* "browser/config/mozconfigs/base-browser"
+                (("ac_add_options --disable-zucchini") ""))))
          (add-after 'patch-source-shebangs 'patch-cargo-checksums
            (lambda _
              (use-modules (guix build cargo-utils))
@@ -783,17 +789,17 @@ attacks on the privacy of Tor users.")

 ;; We copy the official build id, which can be found there:
 ;; https://cdn.mullvad.net/browser/update_responses/update_1/release.
-(define %mullvadbrowser-build-date "20251028094500")
+(define %mullvadbrowser-build-date "20260404073000")

 ;; To find the last version, look at
 ;; https://mullvad.net/en/download/browser/linux.
-(define %mullvadbrowser-version "15.0")
+(define %mullvadbrowser-version "15.0.9")

 ;; To find the last Firefox version, browse
 ;; https://archive.torproject.org/tor-package-archive/mullvadbrowser/<%mullvadbrowser-version>
 ;; There should be only one archive that starts with
 ;; "src-firefox-mullvad-browser-".
-(define %mullvadbrowser-firefox-version "140.4.0esr-15.0-1-build4")
+(define %mullvadbrowser-firefox-version "140.9.1esr-15.0-1-build1")

 ;; See tor-browser-build/projects/translation/config.
 (define mullvadbrowser-translation-base
@@ -801,11 +807,11 @@ attacks on the privacy of Tor users.")
    (method git-fetch)
    (uri (git-reference
          (url "https://gitlab.torproject.org/tpo/translation.git")
-          (commit "cdd3da6308bb3beb916744057af92331025053bb")))
+          (commit "ce651a6f8aa3a6c5ff9c3f9c77d3cb9585dcc903")))
    (file-name "translation-base-browser")
    (sha256
     (base32
-      "1l3alzgj1bz2xsijd323swiq450dm9s1zyygdwnzsjvcpdbbnm7b"))))
+      "0cr82adjkqkbamb4qk7xpr84lch4js4n126pzsm1993np0ap7vjp"))))

 ;; See tor-browser-build/projects/translation/config.
 (define mullvadbrowser-translation-specific
@@ -813,11 +819,11 @@ attacks on the privacy of Tor users.")
    (method git-fetch)
    (uri (git-reference
          (url "https://gitlab.torproject.org/tpo/translation.git")
-          (commit "bf09d9c070f72ad3aee24c54cb154bab2570247b")))
+          (commit "4bf1989120841478aa114b1bf4efefe78cdaf8ee")))
    (file-name "translation-mullvad-browser")
    (sha256
     (base32
-      "1jbq2jb6rcbrzhgv1c19clr8z8fm63k4kwq4g94b619fynxz5jqm"))))
+      "1pp7hsflzn5c9xmfggwc8cvnwlfd1mn2cgn2n36ysis52n88w2c4"))))

 (define mullvadbrowser-assets
  ;; This is a prebuilt Mullvad Browser from which we take the assets we need.
@@ -833,7 +839,7 @@ attacks on the privacy of Tor users.")
         version "/mullvad-browser-linux-x86_64-" version ".tar.xz"))
       (sha256
        (base32
-         "127kh5mabfsayijhgvqw9gxa4vhs79728s534i3zdp44yyf6jgh4"))))
+         "154nraw83lhyrhrahvd35zvclnshcfvgjq16cr2z9jg5sz7c4hhs"))))
    (arguments
     (list
      #:install-plan
@@ -876,7 +882,7 @@ Mullvad Browser.")
         %mullvadbrowser-firefox-version ".tar.xz"))
       (sha256
        (base32
-         "0sj87q0x1lfkvhbz154dabmgm8l18j9d1h1xhyqlmwz3whz1hsfi"))))
+         "0i860k6i2dc86jj9hg2hvm0g071iha7zxngnrn21kbilqr4hi61z"))))
    (arguments
     (substitute-keyword-arguments arguments
       ((#:phases phases)
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -336,15 +336,14 @@ Python 3.3 and later, rather than on Python 2.")
 (define-public git-minimal
  (package
    (name "git-minimal")
-    (version "2.52.0")
+    (version "2.54.0")
    (source (origin
              (method url-fetch)
              (uri (string-append "mirror://kernel.org/software/scm/git/git-"
                                  version ".tar.xz"))
              (sha256
               (base32
-                "1ifpkrr64g8b0vv13155gz876s2f4vcqrvhgc75lkab9dzlgxn1w"))
-              (patches (search-patches "git-clar-path-max.patch"))))
+                "18w18qay032ir85d5fzd6iz0bsrihzsdpa4sz2gff3f1chiid2gn"))))
    (build-system gnu-build-system)
    (arguments
     (list
@@ -3538,17 +3537,9 @@ modification time.")
         (sha256
          (base32 "0a0ycnnba2izmiqjj8hgvjgjdwhpn0x36lhy3vmw4j7bhny0df52"))
         (patches (search-patches "libfossil-skip-amalgamation.patch"))
-         (modules '((guix build utils)
-                    (ice-9 ftw)
-                    (srfi srfi-26)))
+         (modules '((guix build utils)))
         (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,
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -523,22 +523,19 @@ video decode, encode and filtering on Intel's Gen graphics hardware platforms.")
    (build-system gnu-build-system)
    (outputs '("out" "doc"))
    (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'install 'move-docs
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (doc (assoc-ref outputs "doc")))
-               (mkdir-p (string-append doc "/share"))
-               (rename-file
-                (string-append out "/share/gtk-doc")
-                (string-append doc "/share/gtk-doc"))
-               #t))))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'install 'move-docs
+            (lambda _
+              (let ((doc #$output:doc))
+                (mkdir-p (string-append doc "/share"))
+                (rename-file (string-append #$output "/share/gtk-doc")
+                             (string-append doc "/share/gtk-doc"))))))))
    (native-inputs
     (list dash gtk-doc/stable pkg-config))
    (inputs
-     `(("glew" ,glew)
-       ("opengl" ,mesa)))
+     (list glew mesa))
    (propagated-inputs
     (list orc))
    (synopsis "Dirac video codec")
@@ -1469,10 +1466,10 @@ designed to encode video or images into an H.265 / HEVC encoded bitstream.")
    (native-inputs
     (list pkg-config nasm))
    (propagated-inputs
-     `(("freetype" ,freetype)
-       ("fribidi" ,fribidi)
-       ("fontconfig" ,fontconfig)
-       ("harfbuzz" ,harfbuzz)))
+     (list freetype
+           fribidi
+           fontconfig
+           harfbuzz))
    (home-page "https://github.com/libass/libass")
    (synopsis "Subtitle rendering library for the ASS/SSA format")
    (description "libass is a subtitle rendering library for the
@@ -5194,14 +5191,14 @@ specifications.")
 (define-public libaacs
  (package
    (name "libaacs")
-    (version "0.11.0")
+    (version "0.11.1")
    (source
     (origin
       (method url-fetch)
       (uri (string-append "https://ftp.videolan.org/pub/videolan/libaacs/"
                           version "/libaacs-" version ".tar.bz2"))
       (sha256
-        (base32 "11skjqjlldmbjkyxdcz4fmcn6y4p95r1xagbcnjy4ndnzf0l723d"))))
+        (base32 "0f8ax9dp49mrm1484bl2df659b34xyrjmngzmvvpg2n9wkms12m8"))))
    (inputs
     (list libgcrypt))
    (native-inputs
@@ -6250,32 +6247,30 @@ spec for MP4), which can be obtained from the ISO or found online.")
    (license license:expat)))

 (define-public vidstab
-  (let ((commit "aeabc8daa7904f9edf7441a11f293965a5ef53b8")
-        (revision "0"))
-    (package
-      (name "vidstab")
-      (version (git-version "1.1.0" revision commit))
-      (source (origin
-                (method git-fetch)
-                (uri (git-reference
-                      (url "https://github.com/georgmartius/vid.stab")
-                      (commit commit)))
-                (file-name (git-file-name name version))
-                (sha256
-                 (base32
-                  "042iy0f3khwzr68djzvqgn301sy21ljvkf52rnc2c73q7ircnzzn"))))
-      (build-system cmake-build-system)
-      (arguments
-       '(#:tests? #f)) ; tests are not run as part of standard build process
-      (home-page "http://public.hronopik.de/vid.stab/")
-      (synopsis "Video stabilization library")
-      (description "Vidstab is a video stabilization library which can be used
+  (package
+    (name "vidstab")
+    (version "1.1.1")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                     (url "https://github.com/georgmartius/vid.stab")
+                     (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "19k822bwsnw58ikbfh4fhh97zpn89ji9k1gdvh9r2ljy82g52md7"))))
+    (build-system cmake-build-system)
+    (arguments
+     '(#:tests? #f)) ; tests are not run as part of standard build process
+    (home-page "http://public.hronopik.de/vid.stab/")
+    (synopsis "Video stabilization library")
+    (description "Vidstab is a video stabilization library which can be used
 with FFmpeg.  A video acquired using a hand-held camera or a camera mounted on a
 vehicle typically suffers from undesirable shakes and jitters.  Activities such
 as surfing, skiing, riding and walking while shooting videos are especially
 prone to erratic camera shakes.  Vidstab targets these video contents to help
 create smoother and stable videos.")
-      (license license:gpl2+))))
+    (license license:gpl2+)))

 (define-public libopenshot
  (package
--- a/gnu/packages/vnc.scm
+++ b/gnu/packages/vnc.scm
@@ -183,9 +183,7 @@ RDP, VNC, SPICE, NX, XDMCP, SSH and EXEC network protocols are supported.")
       (uri (git-reference
              (url "https://github.com/TurboVNC/turbovnc")
              (commit version)))
-       (modules '((guix build utils)
-                  (ice-9 ftw)
-                  (srfi srfi-26)))
+       (modules '((guix build utils)))
       (snippet
        #~(begin
            ;; There are a few bundled Java libraries, such as jsch and jzlib,
@@ -193,12 +191,6 @@ RDP, VNC, SPICE, NX, XDMCP, SSH and EXEC network protocols are supported.")
            ;; bundled under java/org.  These are used by the 'vncviewer'
            ;; program.  The jsch copy is modified and integrates changes from
            ;; https://github.com/mwiede/jsch, so cannot easily be un-bundled.
-            (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))))

            ;; d3des, rfb (headers) and turbojpeg-jni are small and not
            ;; packaged in Guix, so preserve them.
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -75,7 +75,7 @@
 ;;; Copyright © 2025 Remco van 't Veer <remco@remworks.net>"
 ;;; Copyright © 2025 Daniel Khodabakhsh <d@niel.khodabakh.sh>
 ;;; Copyright © 2025 Josep Bigorra <jjbigorra@gmail.com>
-;;; Copyright © 2025 Ashish SHUKLA <ashish.is@lostca.se>
+;;; Copyright © 2025, 2026 Ashish SHUKLA <ashish.is@lostca.se>
 ;;; Copyright © 2025 Philippe Swartvagher <phil.swart@gmx.fr>
 ;;; Copyright © 2025 pinoaffe <pinoaffe@gmail.com>
 ;;; Copyright © 2025, 2026 gemmaro <gemmaro.dev@gmail.com>
@@ -1472,7 +1472,7 @@ used to train large language models, and poisoning the collected data.")
 (define-public jansson
  (package
    (name "jansson")
-    (version "2.14")
+    (version "2.15.0")
    (source (origin
             (method url-fetch)
             (uri (string-append "https://github.com/akheron/jansson"
@@ -1480,7 +1480,7 @@ used to train large language models, and poisoning the collected data.")
                                 "/jansson-" version ".tar.bz2"))
             (sha256
              (base32
-               "1fdgji964mrrz19glx0zh91asji542fvybymvzk6rrbagkr5dagv"))))
+               "0m49glsr5v376jpyj2y0xyr11703pr4bfgipz5jk2dq0a1vcgsm7"))))
    (build-system gnu-build-system)
    (arguments
     (list
@@ -9039,7 +9039,7 @@ derivation by David Revoy from the original MonsterID by Andreas Gohr.")
 (define-public nghttp2
  (package
    (name "nghttp2")
-    (version "1.58.0")
+    (version "1.68.1")
    (source
     (origin
       (method url-fetch)
@@ -9048,7 +9048,7 @@ derivation by David Revoy from the original MonsterID by Andreas Gohr.")
                           "nghttp2-" version ".tar.xz"))
       (sha256
        (base32
-         "1q4ps8acr7nyia7mf2z11m0yh3fn1imhyv855j3xjbx91l2a6s2a"))))
+         "1cph2j688zxxxl3944g5grjma15qbv4b6z252ichsn7ilyq7mgba"))))
    (build-system gnu-build-system)
    (outputs (list "out"
                   "lib"))              ; only libnghttp2
--- a/gnu/packages/xorg.scm
+++ b/gnu/packages/xorg.scm
@@ -1480,8 +1480,7 @@ treat it as part of their software base when porting.")
    (inputs
      (list libxt xorgproto libxext))
    (native-inputs
-     `(("gettext" ,gettext-minimal)
-       ("pkg-config" ,pkg-config)))
+     (list gettext-minimal pkg-config))
    (home-page "https://www.x.org/wiki/")
    (synopsis "Xorg XPM library")
    (description "XPM (X Pixmap) image file format library.")
@@ -6343,39 +6342,43 @@ to answer a question.  Xmessage can also exit after a specified time.")
         (search-patches "xterm-370-explicit-xcursor.patch"))))
    (build-system gnu-build-system)
    (arguments
-     '(#:configure-flags '("--enable-wide-chars" "--enable-load-vt-fonts"
-                           "--enable-i18n" "--enable-doublechars"
-                           "--enable-luit" "--enable-mini-luit"
-                           "X_EXTRA_LIBS=-lXcursor")
-       #:tests? #f                      ; no test suite
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'build 'patch-file-names
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out")))
-               (substitute* "uxterm"
-                 (("([ `\\|])(sh|sed|awk|xmessage) " _ prefix command)
-                  (string-append prefix (which command) " "))
-                 (("(`|\"|LANG=C )(locale) " _ prefix command)
-                  (string-append prefix (which command) " "))
-                 (("=xterm")
-                  (string-append "=" out "/bin/xterm")))))))))
+     (list
+      #:tests? #f                       ; no test suite
+      #:configure-flags
+      #~(list "--enable-wide-chars"
+              "--enable-load-vt-fonts"
+              "--enable-i18n"
+              "--enable-doublechars"
+              "--enable-luit"
+              "--enable-mini-luit"
+              "X_EXTRA_LIBS=-lXcursor")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'build 'patch-file-names
+            (lambda _
+              (substitute* "uxterm"
+                (("([ `\\|])(sh|sed|awk|xmessage) " _ prefix command)
+                 (string-append prefix (which command) " "))
+                (("(`|\"|LANG=C )(locale) " _ prefix command)
+                 (string-append prefix (which command) " "))
+                (("=xterm")
+                 (string-append "=" #$output "/bin/xterm"))))))))
    (native-inputs
     (list pkg-config))
    (inputs
-     `(("luit" ,luit)
-       ("libXft" ,libxft)
-       ("fontconfig" ,fontconfig)
-       ("freetype" ,freetype)
-       ("ncurses" ,ncurses)
-       ("libICE" ,libice)
-       ("libSM" ,libsm)
-       ("libX11" ,libx11)
-       ("libXcursor" ,libxcursor)
-       ("libXext" ,libxext)
-       ("libXt" ,libxt)
-       ("xorgproto" ,xorgproto)
-       ("libXaw" ,libxaw)))
+     (list luit
+           libxft
+           fontconfig
+           freetype
+           ncurses
+           libice
+           libsm
+           libx11
+           libxcursor
+           libxext
+           libxt
+           xorgproto
+           libxaw))
    (home-page "https://invisible-island.net/xterm/")
    (synopsis "Terminal emulator for the X Window System")
    (description
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -77,6 +77,7 @@
            make-file-writable
            copy-recursively
            delete-file-recursively
+            delete-all-but
            file-name-predicate
            find-files
            false-if-file-not-found
@@ -522,6 +523,14 @@ errors."
                      ;; Don't follow symlinks.
                      lstat)))

+(define (delete-all-but directory . preserve)
+  "Delete DIRECTORY recursively except for the files in PRESERVE immediately
+found under it."
+  (with-directory-excursion directory
+    (let* ((pred (negate (cut member <> (cons* "." ".." preserve))))
+           (items (scandir "." pred)))
+      (for-each (cut delete-file-recursively <>) items))))
+
 (define (file-name-predicate regexp)
  "Return a predicate that returns true when passed a file name whose base
 name matches REGEXP."