gnu: Remove emacs-xwidgets and its variants.

* gnu/packages/emacs.scm (emacs-xwidgets, emacs-pgtk-xwidgets)
(emacs-next-pgtk-xwidgets): Remove variable.

Fixes: guix/guix#6731 (emacs-xwidgets fails to build)

.forgejo/pull_request_template.md

@@ -28,6 +28,7 @@ Tick a box by changing it from [ ] to [x].
   - [ ] i586-gnu
 
 - Package **update**
+  - Closure size increase after update (`./pre-inst-env guix size PACKAGE`).
   - Build status of direct dependents (`./pre-inst-env guix build -k -P1 PACKAGE ...`):
 ```text
 
@@ -38,6 +39,7 @@ Tick a box by changing it from [ ] to [x].
 ```
 - Package **addition**
   - [ ] The packages includes tests when available.
+  - [ ] Closure size given by `guix size`.
   - [ ] Fixed errors reported by `guix lint` (`./pre-inst-env guix lint PACKAGE ...`).
   - [ ] Verified cryptographic signature provided by upstream.
   - [ ] The packages don't use bundled copies of software.

CODEOWNERS

@@ -308,7 +308,6 @@ gnu/packages/lxqt\.scm                             @guix/lxqt
 
 gnu/packages/mate\.scm                             @guix/mate
 
-
 gnu/build/icecat-extension\.scm                    @guix/mozilla
 gnu/packages/browser-extensions\.scm               @guix/mozilla
 gnu/packages/gnuzilla\.scm                         @guix/mozilla

Makefile.am

@@ -1,5 +1,5 @@
 # GNU Guix --- Functional package management for GNU
-# Copyright © 2012-2025 Ludovic Courtès <ludo@gnu.org>
+# Copyright © 2012-2026 Ludovic Courtès <ludo@gnu.org>
 # Copyright © 2013 Andreas Enge <andreas@enge.fr>
 # Copyright © 2015, 2017 Alex Kost <alezost@gmail.com>
 # Copyright © 2016, 2018 Mathieu Lirzin <mthl@gnu.org>
@@ -87,6 +87,7 @@ MODULES =					\
   guix/base64.scm				\
   guix/ci.scm					\
   guix/cpio.scm					\
+  guix/amd-gpu.scm				\
   guix/cpu.scm					\
   guix/deprecation.scm				\
   guix/docker.scm	   			\

build-aux/cuirass/evaluate.scm

@@ -30,6 +30,7 @@
              (guix ui)
              ((guix ui) #:select (build-notifier))
              (ice-9 match)
+             (ice-9 pretty-print)
              (ice-9 threads))
 
 (define %top-srcdir
@@ -42,11 +43,6 @@
   ((command directory)
    (let ((real-build-things build-things))
      (with-store store
-       ;; Make sure we don't resort to substitutes.
-       (set-build-options store
-                          #:use-substitutes? #f
-                          #:substitute-urls '())
-
        ;; The evaluation of Guix itself requires building a "trampoline"
        ;; program, and possibly everything it depends on.  Thus, allow builds
        ;; but print a notification.
@@ -104,7 +100,7 @@
                       (close-inferior inferior)
                       (call-with-output-file file
                         (lambda (port)
-                          (write jobs port)))))))
+                          (pretty-print jobs port)))))))
               %cuirass-supported-systems
               inferiors)))))))
   (x

build-aux/test-driver.scm

@@ -3,10 +3,11 @@ exec guile --no-auto-compile -e main -s "$0" "$@"
 !#
 ;;;; test-driver.scm - Guile test driver for Automake testsuite harness
 
-(define script-version "2026-01-23.07") ;UTC
+(define script-version "2026-03-21.02") ;UTC
 
 ;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org>
 ;;; Copyright © 2021 Maxim Cournoyer <maxim@guixotic.coop>
+;;; Copyright © 2024 Tomas Volf <~@wolfsden.cz>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify it
 ;;; under the terms of the GNU General Public License as published by
@@ -35,7 +36,8 @@ exec guile --no-auto-compile -e main -s "$0" "$@"
              (srfi srfi-1)
              (srfi srfi-19)
              (srfi srfi-26)
-             (srfi srfi-64))
+             (srfi srfi-64)
+             (srfi srfi-71))
 
 (define (show-help)
   (display "Usage:
@@ -95,6 +97,21 @@ case is shown.\n"))
                        "")          ;no color
         result)))
 
+(define* (test-result-kind* #:optional (runner (test-runner-current)))
+  ;; TODO: Since Guile 3.0.11, the test-result-kind value of tests not
+  ;; selected by specifiers is #f instead of 'skip, which seems like a bug.
+  ;; Revert to use 'test-result-kind' after
+  ;; <https://codeberg.org/guile/guile/issues/133> is resolved and made and
+  ;; available in Guix.
+  (or (test-result-ref runner 'result-kind)
+      'skip))
+
+(define (current-test-full-name runner)
+  "Get full name (test group path + name) of current test."
+  (format #f "~{~a~^/~}: ~a"
+          (test-runner-group-path runner)
+          (test-runner-test-name runner)))
+
 
 ;;;
 ;;; SRFI 64 custom test runner.
@@ -105,27 +122,30 @@ case is shown.\n"))
                           (out-port (current-output-port))
                           (trs-port (%make-void-port "w"))
                           select exclude)
-  "Return an custom SRFI-64 test runner.  TEST-NAME is a string specifying the
-file name of the current the test.  COLOR? specifies whether to use colors.
-When BRIEF? is true, the individual test cases results are masked and only the
-summary is shown.  ERRORS-ONLY? reduces the amount of test case metadata
-logged to only that of the failed test cases.  OUT-PORT and TRS-PORT must be
-output ports.  OUT-PORT defaults to the current output port, while TRS-PORT
-defaults to a void port, which means no TRS output is logged.  SELECT and
-EXCLUDE may take a regular expression to select or exclude individual test
-cases based on their names."
+  "Return a custom SRFI-64 test runner and a `finalize' procedure as multiple
+values.  TEST-NAME is a string specifying the file name of the current the
+test.  COLOR?  specifies whether to use colors.  When BRIEF? is true, the
+individual test cases results are masked and only the summary is shown.
+ERRORS-ONLY?  reduces the amount of test case metadata logged to only that of
+the failed test cases.  OUT-PORT and TRS-PORT must be output ports.  OUT-PORT
+defaults to the current output port, while TRS-PORT defaults to a void port,
+which means no TRS output is logged.  SELECT and EXCLUDE may take a regular
+expression to select or exclude individual test cases based on their names.
+
+After the tests are finished running, the `finalize' procedure should be
+called to do the final reporting."
 
   (define test-cases-start-time (make-hash-table))
 
   (define (test-on-test-begin-gnu runner)
     ;; Procedure called at the start of an individual test case, before the
     ;; test expression (and expected value) are evaluated.
-    (let ((test-case-name (test-runner-test-name runner))
+    (let ((test-case-name (current-test-full-name runner))
           (start-time     (current-time time-monotonic)))
       (hash-set! test-cases-start-time test-case-name start-time)))
 
   (define (test-skipped? runner)
-    (eq? 'skip (test-result-kind runner)))
+    (eq? 'skip (test-result-kind* runner)))
 
   (define (test-failed? runner)
     (not (or (test-passed? runner)
@@ -137,7 +157,7 @@ cases based on their names."
     (let* ((results (test-result-alist runner))
            (result? (cut assq <> results))
            (result  (cut assq-ref results <>))
-           (test-case-name (test-runner-test-name runner))
+           (test-case-name (current-test-full-name runner))
            (start (hash-ref test-cases-start-time test-case-name))
            (end (current-time time-monotonic))
            (time-elapsed (time-difference end start))
@@ -146,12 +166,12 @@ cases based on their names."
       (unless (or brief? (and errors-only? (test-skipped? runner)))
         ;; Display the result of each test case on the console.
         (format out-port "~a: ~a - ~a ~@[[~,3fs]~]~%"
-                (result->string (test-result-kind runner) #:colorize? color?)
+                (result->string (test-result-kind* runner) #:colorize? color?)
                 test-name test-case-name
                 (and show-duration? time-elapsed-seconds)))
 
       (unless (and errors-only? (not (test-failed? runner)))
-        (format #t "test-name: ~A~%" (test-runner-test-name runner))
+        (format #t "test-name: ~A~%" test-case-name)
         (format #t "location: ~A~%"
                 (string-append (result 'source-file) ":"
                                (number->string (result 'source-line))))
@@ -168,18 +188,29 @@ cases based on their names."
         (newline))
 
       (format trs-port ":test-result: ~A ~A [~,3fs]~%"
-              (result->string (test-result-kind runner))
-              (test-runner-test-name runner) time-elapsed-seconds)))
+              (result->string (test-result-kind* runner))
+              test-case-name time-elapsed-seconds)))
 
-  (define (test-on-group-end-gnu runner)
-    ;; Procedure called by a 'test-end', including at the end of a test-group.
+  (define (finalize runner)
+    "Procedure to call after all tests finish to do the final reporting."
     (let ((fail (or (positive? (test-runner-fail-count runner))
                     (positive? (test-runner-xpass-count runner))))
           (skip (or (positive? (test-runner-skip-count runner))
                     (positive? (test-runner-xfail-count runner)))))
-      ;; XXX: The global results need some refinements for XPASS.
-      (format trs-port ":global-test-result: ~A~%"
-              (if fail "FAIL" (if skip "SKIP" "PASS")))
+      (format trs-port ":global-test-result: ~{~A~^,~}~%"
+              (filter-map (λ (proc str)
+                            (let ((n (proc runner)))
+                              (if (positive? n) str #f)))
+                          (list test-runner-pass-count
+                                test-runner-fail-count
+                                test-runner-xpass-count
+                                test-runner-xfail-count
+                                test-runner-skip-count)
+                          (list "PASS"
+                                "FAIL"
+                                "XPASS"
+                                "XFAIL"
+                                "SKIP")))
       (format trs-port ":recheck: ~A~%"
               (if fail "yes" "no"))
       (format trs-port ":copy-in-global-log: ~A~%"
@@ -189,15 +220,14 @@ cases based on their names."
         (format out-port "~A: ~A~%"
                 (result->string (if fail 'fail (if skip 'skip 'pass))
                                 #:colorize? color?)
-                test-name))
-      #f))
+                test-name))))
 
   (let ((runner (test-runner-null)))
     (test-runner-on-test-begin! runner test-on-test-begin-gnu)
     (test-runner-on-test-end! runner test-on-test-end-gnu)
-    (test-runner-on-group-end! runner test-on-group-end-gnu)
     (test-runner-on-bad-end-name! runner test-on-bad-end-name-simple)
-    runner))
+    (values runner
+            (λ () (finalize runner)))))
 
 
 ;;;
@@ -205,27 +235,11 @@ cases based on their names."
 ;;;
 (define (test-match-name* regexp)
   "Return a test specifier that matches a test name against REGEXP."
-  (lambda (runner)
-    (string-match regexp (test-runner-test-name runner))))
+  (compose (cut string-match regexp <>) current-test-full-name))
 
 (define (test-match-name*/negated regexp)
   "Return a negated test specifier version of test-match-name*."
-  (lambda (runner)
-    (not (string-match regexp (test-runner-test-name runner)))))
-
-;;; XXX: test-match-all is a syntax, which isn't convenient to use with a list
-;;; of test specifiers computed at run time.  Copy this SRFI 64 internal
-;;; definition here, which is the procedural equivalent of 'test-match-all'.
-(define (%test-match-all . pred-list)
-  (lambda (runner)
-    (let ((result #t))
-      (let loop ((l pred-list))
-	(if (null? l)
-	    result
-	    (begin
-	      (if (not ((car l) runner))
-		  (set! result #f))
-	      (loop (cdr l))))))))
+  (compose not (test-match-name* regexp)))
 
 
 ;;;
@@ -249,7 +263,7 @@ cases based on their names."
                                identity
                                (list (and=> select test-match-name*)
                                      (and=> exclude test-match-name*/negated))))
-             (test-specifier (apply %test-match-all test-specifiers))
+             (test-specifier (apply test-match-all test-specifiers))
              (color-tests (if (assoc 'color-tests opts)
                               (option->boolean opts 'color-tests)
                               #t)))
@@ -257,17 +271,19 @@ cases based on their names."
           (redirect-port log (current-output-port))
           (redirect-port log (current-warning-port))
           (redirect-port log (current-error-port)))
-        (test-with-runner
-            (test-runner-gnu test-name
-                             #:color? color-tests
-                             #:brief? (option->boolean opts 'brief)
-                             #:errors-only? (option->boolean opts 'errors-only)
-                             #:show-duration? (option->boolean
-                                               opts 'show-duration)
-                             #:out-port out #:trs-port trs)
-          (test-apply test-specifier
+        (let ((runner
+               finalize (test-runner-gnu
+                         test-name
+                         #:color? color-tests
+                         #:brief? (option->boolean opts 'brief)
+                         #:errors-only? (option->boolean opts 'errors-only)
+                         #:show-duration? (option->boolean
+                                           opts 'show-duration)
+                         #:out-port out #:trs-port trs)))
+          (test-apply runner test-specifier
                       (lambda _
-                        (load-from-path test-name))))
+                        (load-from-path test-name)))
+          (finalize))
         (and=> log close-port)
         (and=> trs close-port)
         (close-port out))))

doc/guix-cookbook.texi

@@ -5297,7 +5297,7 @@ did above with transformation options. We can add them like so:
   "Return P with FLAGS as additional 'configure' flags."
   (package/inherit p
     (arguments
-     (substitute-keyword-arguments (package-arguments p)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags original-flags #~(list))
         #~(append #$original-flags #$flags))))))
 

doc/guix.texi

@@ -150,6 +150,7 @@ Copyright @copyright{} 2025 dan@*
 Copyright @copyright{} 2025 Noé Lopez@*
 Copyright @copyright{} 2026 David Elsing@*
 Copyright @copyright{} 2026 Nguyễn Gia Phong@*
+Copyright @copyright{} 2026 Yarl Baudig@*
 
 Permission is granted to copy, distribute and/or modify this document
 under the terms of the GNU Free Documentation License, Version 1.3 or
@@ -8800,14 +8801,15 @@ dependency like so:
 (define gdb-sans-guile
   (package
     (inherit gdb)
-    (inputs (modify-inputs (package-inputs gdb)
+    (inputs (modify-inputs inputs
               (delete "guile")))))
 @end lisp
 
-The @code{modify-inputs} form above removes the @code{"guile"} package
-from the @code{inputs} field of @code{gdb}.  The @code{modify-inputs}
-macro is a helper that can prove useful anytime you want to remove, add,
-or replace package inputs.
+In the body of the @code{inputs} field above, @code{inputs} is bound to
+the inherited value.  Thus, the @code{modify-inputs} form above removes
+the @code{"guile"} package from the @code{inputs} field of @code{gdb}.
+The @code{modify-inputs} macro is a helper that can prove useful anytime
+you want to remove, add, or replace package inputs.
 
 @defmac modify-inputs inputs clauses
 Modify the given package inputs, as returned by @code{package-inputs} & co.,
@@ -9131,7 +9133,7 @@ these lines:
 (define gdb-sans-guile
   (package
     (inherit gdb)
-    (inputs (modify-inputs (package-inputs gdb)
+    (inputs (modify-inputs inputs
               (delete "guile")))))
 
 ;; Return a manifest containing that one package plus Git.
@@ -12526,6 +12528,13 @@ package available on the build side, here's how you would do it:
                         @dots{})))
 @end lisp
 
+@quotation Going Further
+To learn more about the design of g-expressions, read
+@c https://dx.doi.org/10.1145/3136040.3136045 goes to ACM
+@uref{https://arxiv.org/abs/1709.00833, @i{Code Staging in
+GNU@tie{}Guix}} (2017).
+@end quotation
+
 The syntactic form to construct gexps is summarized below.
 
 @defmac #~@var{exp}
@@ -12612,6 +12621,30 @@ path, and the last one is created from the given file-like object.
 This form has @emph{lexical} scope: it has an effect on the gexps
 directly defined in @var{body}@dots{}, but not on those defined, say, in
 procedures called from @var{body}@dots{}.
+
+@quotation Caveat
+It is important to distinguish between modules available in the build
+environment and modules in scope.  The @code{with-imported-modules} form
+pulls modules in the build environment of the gexp but it does
+@emph{not} import them.  To do so, you still need to use
+@code{use-modules} in the gexp:
+
+@lisp
+(with-imported-modules '((guix build utils))
+  #~(begin
+      (use-modules (guix build utils))
+      @dots{}))
+@end lisp
+
+@xref{Using Guile Modules,,, guile, GNU Guile Reference Manual}, for
+more information on @code{use-modules}.
+
+Likewise, to import a module provided by Guile---e.g., @code{(srfi
+srfi-1)}---add a @code{use-modules} form in your gexp.  Do @emph{not}
+add Guile-provided modules such as @code{(srfi srfi-1)} to a
+@code{with-imported-modules}; doing so would force a potentially
+incompatible version into your environment.
+@end quotation
 @end defmac
 
 @defmac with-extensions extensions body@dots{}
@@ -27860,6 +27893,23 @@ Log level to output logs. Possible values: @samp{"silent"}, @samp{"error"},
 @end table
 @end deftp
 
+@defvar rtkit-service-type
+Type for the service that allows D-Bus to start the RealtimeKit D-Bus
+service. The RTKit service provides a system D-Bus interface for user
+processes, such as PipeWire, to securely use realtime scheduling.
+
+The value for this service is a @code{<rtkit-configuration>} object.
+@end defvar
+
+@deftp {Data Type} rtkit-configuration
+Data type representing the configuration for @code{rtkit-service-type}.
+
+@table @asis
+@item @code{rtkit} (default: @code{rtkit}) (type: file-like)
+Package object for RTKit.
+
+@end table
+@end deftp
 
 @node Sound Services
 @subsection Sound Services
@@ -41497,7 +41547,7 @@ system as the @code{os} field of @code{hurd-vm-configuration}, as in
 this example:
 
 @lisp
-(define childhurd-os
+(define %childhurd-os
   ;; Definition of my GNU/Hurd system, derived from the default one.
   (operating-system
     (inherit %hurd-vm-operating-system)
@@ -41588,7 +41638,7 @@ example below.
 @item @code{disk-size} (default: @code{'guess})
 The size of the disk image.
 
-@item @code{memory-size} (default: @code{512})
+@item @code{memory-size} (default: @code{2048})
 The memory size of the Virtual Machine in mebibytes.
 
 @item @code{options} (default: @code{'("--snapshot")})
@@ -55035,6 +55085,45 @@ You may specify a custom configuration by providing a
                        '(("grafana:/var/lib/grafana"))))))))
 @end lisp
 
+@subsubheading git-annex assistant Service
+
+@cindex git-annex assistant service
+The @code{(gnu home services git-annex-assistant)} module provides a
+service to run the @uref{https://git-annex.branchable.com/assistant/,
+git-annex assistant}.
+
+@defvar home-git-annex-assistant-service-type
+This is the type of the service that runs the assistant.  You must
+supply a @code{<home-git-annex-assistant-configuration>}.
+
+The service runs one assistant for each directory provided.  For
+example:
+
+@lisp
+(service home-git-annex-assistant-service-type
+         (home-git-annex-assistant-configuration
+           (directories '("/path/to/foo" "/path/to/bar"))))
+@end lisp
+@end defvar
+
+@c %start of fragment
+
+@deftp {Data Type} home-git-annex-assistant-configuration
+Available @code{home-git-annex-assistant-configuration} fields are:
+
+@table @asis
+@item @code{package} (default: @code{git-annex}) (type: package)
+Package that provides @code{git-annex}.
+
+@item @code{directories} (default: @code{()}) (type: list-of-strings)
+List of directories.
+
+@end table
+
+@end deftp
+
+@c %end of fragment
+
 @node Invoking guix home
 @section Invoking @command{guix home}
 

etc/git/post-merge

@@ -1,3 +1,9 @@
 #!/bin/sh
 # Authenticate the repo upon 'git pull' and similar.
-exec guix git authenticate
+if ! git config guix.authentication.introduction-commit; then
+    exec guix git authenticate 9edb3f66fd807b096b48283debdcddccfea34bad \
+         "BBB0 2DDF 2CEA F6A8 0D1D  E643 A2A0 6DF2 A33A 54FA" \
+         -k origin/keyring
+else
+    exec guix git authenticate
+fi

etc/news.scm

@@ -1,6 +1,6 @@
 ;; GNU Guix news, for use by 'guix pull'.
 ;;
-;; Copyright © 2019-2025 Ludovic Courtès <ludo@gnu.org>
+;; Copyright © 2019-2026 Ludovic Courtès <ludo@gnu.org>
 ;; Copyright © 2019–2021, 2024 Tobias Geerinckx-Rice <me@tobias.gr>
 ;; Copyright © 2019, 2020 Miguel Ángel Arruga Vivas <rosen644835@gmail.com>
 ;; Copyright © 2019, 2020 Konrad Hinsen <konrad.hinsen@fastmail.net>
@@ -43,6 +43,79 @@
 (channel-news
  (version 0)
 
+ (entry (commit "a7c8e68dc51144a6d3981b770aca9c4897fc7c0c")
+        (title
+         (en "Records can refer to inherited values of thunked fields")
+         (de "Vererbung in Verbundsobjekten erlaubt Verweise auf geerbte Werte verzögert ausgewerteter Felder"))
+        (body
+         (en "A new feature has been added to records—the facility used when
+defining packages, services, operating systems, and many other things—that,
+when inheriting from another record, allows you to refer to inherited field
+values.  When defining package variants, you may have seen this pattern:
+
+@lisp
+(package
+  (inherit gdb)
+  (inputs (modify-inputs (package-inputs gdb)
+            (delete \"guile\"))))
+@end lisp
+
+This can now be written like this:
+
+@lisp
+(package
+  (inherit gdb)
+  (inputs (modify-inputs inputs ;<- notice the change
+            (delete \"guile\"))))
+@end lisp
+
+Within the @code{inputs} body, the @code{inputs} identifier is now bound to
+the @dfn{inherited value}—i.e., the value this field inherits from @code{gdb}.
+The same mechanism can be used when changing other input fields or the
+@code{arguments} field.  It is less verbose but also
+@uref{https://issues.guix.gnu.org/50335, more accurate}.
+
+This change applies to \"thunked\" fields of all record types produced by
+@code{define-record-type*}: @code{package}, @code{origin},
+@code{operating-system}, @code{home-environment}, and so on.
+
+Note that this is an incompatible change: the newly introduced
+bindings—@code{inputs} in the example above—could shadow same-named bindings.")
+         (de "Als neue Funktionalität kann man in Verbundsobjekten – also beim
+Definieren von Paketen, Diensten, Betriebssystemen und vielem anderen – beim
+Erben von einem anderen Verbundsobjekt auf die geerbten Werte verweisen. Zum
+Definieren von Paketvarianten wurde früher etwas geschrieben wie:
+
+@lisp
+(package
+  (inherit gdb)
+  (inputs (modify-inputs (package-inputs gdb)
+            (delete \"guile\"))))
+@end lisp
+
+Das lässt sich jetzt schreiben als:
+
+@lisp
+(package
+  (inherit gdb)
+  (inputs (modify-inputs inputs ;<- hier ändert sich was
+            (delete \"guile\"))))
+@end lisp
+
+Innerhalb des @code{inputs}-Rumpfes ist der Bezeichner @code{inputs} jetzt
+an den @dfn{geerbten Wert} gebunden, d.h. an den Wert, den das Feld von
+@code{gdb} erbt. Derselbe Mechanismus kann beim Ändern anderer Felder mit
+Eingaben oder im Feld @code{arguments} benutzt werden. Das spart Platz und
+@uref{https://issues.guix.gnu.org/50335, verhält sich richtiger}.
+
+Die Änderung wirkt sich auf verzögert ausgewertete \"thunked\"-Felder aller
+Verbundstypen aus, die mit @code{define-record-type*} erstellt wurden:
+@code{package}, @code{origin}, @code{operating-system}, @code{home-environment}
+und so weiter.
+
+Hinweis: das ist eine inkompatible Änderung. Die neu eingeführte Bindung –
+@code{inputs} im obigen Beispiel – kann gleichnamige Bindungen überschatten.")))
+
  (entry (commit "b52ce9041ad58aeababd2d50d3e72bc23dffff60")
         (title
          (en "GNOME 48 is now available")

etc/teams.scm

@@ -530,6 +530,13 @@ of Rebar and Mix build systems and Hex.pm importer."
                       "gnu/packages/ninja.scm"
                       "gnu/packages/valgrind.scm")))
 
+(define-team community
+  (team 'community
+        #:name "Community"
+        #:description
+        "We focus on collaboration, project growth and future (social)
+challenges"))
+
 (define-team core
   (team 'core
         #:name "Core / Tools / Internals"
@@ -1376,7 +1383,7 @@ the \"texlive\" importer."
 (define-member (person "Gabriel Wicki"
                        "gabriel@erlikon.ch"
                        "gabber")
-  audio documentation electronics embedded)
+  audio community documentation electronics embedded)
 
 (define-member (person "Ekaitz Zarraga"
                        "ekaitz@elenq.tech"
@@ -1595,7 +1602,7 @@ the \"texlive\" importer."
 (define-member (person "Untrusem"
                        "mysticmoksh@riseup.net"
                        "untrusem")
-  mozilla)
+  community mozilla)
 
 (define-member (person "David Thompson"
                        "dthompson2@worcester.edu"
@@ -1627,6 +1634,16 @@ the \"texlive\" importer."
                        "group")
   vcs)
 
+(define-member (person "Spencer King"
+                       "spencer.king@wustl.edu"
+                       "spencerking")
+  julia)
+
+(define-member (person "Peter Polidoro"
+                       "peter@polidoro.io"
+                       "peterpolidoro")
+  electronics)
+
 
 (define (find-team name)
   (or (hash-ref %teams (string->symbol name))
@@ -1816,8 +1833,12 @@ and REV-END, two git revision strings."
 # usually suited as a reviewer.\n\n"
              port)
     (for-each (lambda (team)
-                (display (team->codeowners-snippet team) port)
-                (newline port))
+                (let ((scope (team->codeowners-snippet team)))
+                  ;; Some teams, like Mentors and Community have no scope,
+                  ;; which would result in seemingly arbitrary newlines.
+                  (unless (string-null? scope)
+                    (display scope port)
+                    (newline port))))
               teams)))
 
 

etc/teams/gnome/gnome-core-refresh

@@ -48,8 +48,7 @@
 (define %gnome-releng-versions-uri
   (make-parameter
    (or (getenv "GNOME_RELENG_VERSIONS_URI")
-       "https://gitlab.gnome.org/GNOME/releng/-/raw/master/\
-tools/versions-stable")))
+       "https://gitlab.gnome.org/GNOME/releng/-/raw/master/tools/versions-49")))
 
 (define (fetch-releng-content)
   "Return a string corresponding to the content of the %GNOME-RELENG-VERSIONS-URI
@@ -74,6 +73,7 @@ NL < '\n'")
 
 (define %names
   '(("adwaita-fonts" . "font-adwaita")
+    ("glycin" . "glycin-loaders")
     ("pygobject" . "python-pygobject")
     ("pyatspi" . "python-pyatspi")))
 

gnu/ci.scm

@@ -37,7 +37,7 @@
   #:use-module (guix ui)
   #:use-module ((guix licenses)
                 #:select (gpl3+ license? license-name))
-  #:use-module ((guix utils) #:select (%current-system))
+  #:use-module (guix utils)
   #:use-module ((guix scripts system) #:select (read-operating-system))
   #:use-module ((guix scripts pack)
                 #:select (self-contained-tarball))
@@ -48,9 +48,13 @@
   #:use-module (gnu packages)
   #:use-module (gnu packages gcc)
   #:use-module (gnu packages gdb)
+  #:use-module (gnu packages man)
   #:use-module (gnu packages base)
   #:use-module (gnu packages gawk)
+  #:use-module (gnu packages hurd)
+  #:use-module (gnu packages admin)
   #:use-module (gnu packages guile)
+  #:use-module (gnu packages linux)
   #:use-module (gnu packages gettext)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages multiprecision)
@@ -136,19 +140,43 @@ SYSTEM."
                  #:cross? #t
                  #:target target)))
 
+(define %core-packages-for-mingw
+  ;; Core packages that can be built for any target, including MinGW.  This
+  ;; excludes the bootstrap tarballs, which do not support MinGW.
+  (list gcc-10 gcc-11 gcc-12 glibc binutils gdb-minimal
+        gmp mpfr mpc coreutils findutils diffutils patch sed grep
+        gawk gnu-gettext hello guile-2.2 guile-3.0 zlib gzip bzip2 xz zstd))
+
 (define %core-packages
+  ;; General set of core packages.
   ;; Note: Don't put the '-final' package variants because (1) that's
   ;; implicit, and (2) they cannot be cross-built (due to the explicit input
   ;; chain.)
-  (list gcc-10 gcc-11 gcc-12 glibc binutils gdb-minimal
-        gmp mpfr mpc coreutils findutils diffutils patch sed grep
-        gawk gnu-gettext hello guile-2.2 guile-3.0 zlib gzip xz guix
-        %bootstrap-binaries-tarball
-        %binutils-bootstrap-tarball
-        (%glibc-bootstrap-tarball)
-        %gcc-bootstrap-tarball
-        %guile-bootstrap-tarball
-        %bootstrap-tarballs))
+  (append %core-packages-for-mingw
+          (list util-linux procps psmisc which e2fsprogs man-db inetutils
+                guix shepherd
+                %bootstrap-binaries-tarball
+                %binutils-bootstrap-tarball
+                (%glibc-bootstrap-tarball)
+                %gcc-bootstrap-tarball
+                %guile-bootstrap-tarball
+                %bootstrap-tarballs)))
+
+(define %linux-packages
+  ;; Extra Linux-specific packages.
+  (list linux-libre))
+
+(define %hurd-packages
+  ;; Extra Hurd-specific packages
+  (list gnumach mig hurd-minimal hurd netdde rumpkernel))
+
+(define (core-packages system)
+  "Return the 'core' package set suitable for SYSTEM, which might be a system
+type or a GNU triplet."
+  (cond ((target-linux? system) (append %core-packages %linux-packages))
+        ((target-hurd? system) (append %core-packages %hurd-packages))
+        ((target-mingw? system) %core-packages-for-mingw)
+        (else '())))
 
 (define (commencement-packages system)
   "Return the list of bootstrap packages from the commencement module for
@@ -165,10 +193,7 @@ SYSTEM."
 
 (define (packages-to-cross-build target)
   "Return the list of packages to cross-build for TARGET."
-  ;; Don't cross-build the bootstrap tarballs for MinGW.
-  (if (string-contains target "mingw")
-      (drop-right %core-packages 6)
-      %core-packages))
+  (core-packages target))
 
 (define %bare-platform-triplets
   ;; Cross-compilation triplets of platforms that lack a proper user-space and
@@ -546,7 +571,8 @@ names, for each one of SYSTEMS."
            (map (lambda (package)
                   (package-job store (job-name package)
                                package system))
-                (append (commencement-packages system) %core-packages))
+                (append (commencement-packages system)
+                        (core-packages system)))
            (cross-jobs store system)))
          ('guix
           ;; Build Guix modules only.

gnu/home/services/git-annex-assistant.scm

@@ -0,0 +1,83 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2026 Yarl Baudig <yarl-baudig@mailoo.org>
+
+;;;
+;;; This file is part of GNU Guix.
+;;;
+;;; GNU Guix is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or (at
+;;; your option) any later version.
+;;;
+;;; GNU Guix is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;; GNU General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
+
+(define-module (gnu home services git-annex-assistant)
+  #:use-module (guix gexp)
+  #:use-module ((guix packages) #:select (package?))
+  #:use-module (guix records)
+  #:use-module (gnu services configuration)
+  #:use-module (gnu home services)
+  #:use-module (gnu home services shepherd)
+  #:use-module (gnu packages haskell-apps)
+  #:use-module (srfi srfi-1)
+  #:export (home-git-annex-assistant-configuration
+            home-git-annex-assistant-service-type))
+
+(define-configuration/no-serialization home-git-annex-assistant-configuration
+  (package
+    (package git-annex)
+    "Package that provides @code{git-annex}.")
+  (directories
+   (list-of-strings '())
+   "List of directories."))
+
+(define (home-git-annex-assistant-shepherd-services config)
+  (match-record config
+      <home-git-annex-assistant-configuration> (package directories)
+    (let ((gaa-command
+           #~(list (string-append #$package "/bin/git-annex") "assistant")))
+      (map
+       (lambda (dir)
+         (let ((pid-file (in-vicinity dir ".git/annex/daemon.pid")))
+           (shepherd-service
+	     (documentation
+              (string-append "Run git-annex assistant against " dir "."))
+	     (provision
+	      (list
+	       (symbol-append 'home-git-annex-assistant-
+                              (string->symbol dir))))
+	     (start #~(lambda _
+		        (and (zero? (spawn-command #$gaa-command
+					           #:directory #$dir))
+			     (read-pid-file #$pid-file))))
+	     (stop #~(lambda _
+		       (unless (zero? (spawn-command
+				       (append #$gaa-command '("--stop"))
+				       #:directory #$dir))
+		         (error "failed to stop git-annex assistant"))
+		       #f)))))
+       directories))))
+
+(define home-git-annex-assistant-service-type
+  (service-type
+    (name 'git-annex-assistant)
+    (extensions
+     (list (service-extension home-shepherd-service-type
+			      home-git-annex-assistant-shepherd-services)))
+    (compose concatenate)
+    (extend (lambda (config directories)
+              (home-git-annex-assistant-configuration
+               (inherit config)
+               (directories
+                (append
+                 (home-git-annex-assistant-configuration-directories config)
+                 directories)))))
+    (description
+     "Run the git-annex assistant daemon on a list of directories.")))
+

gnu/local.mk

@@ -42,7 +42,7 @@
 # Copyright © 2021 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
 # Copyright © 2021 Greg Hogan <code@greghogan.com>
 # Copyright © 2021-2024 Philip McGrath <philip@philipmcgrath.com>
-# Copyright © 2021 Arun Isaac <arunisaac@systemreboot.net>
+# Copyright © 2021, 2026 Arun Isaac <arunisaac@systemreboot.net>
 # Copyright © 2021 Sharlatan Hellseher <sharlatanus@gmail.com>
 # Copyright © 2021 Dmitry Polyakov <polyakov@liltechdude.xyz>
 # Copyright © 2021 Andrew Tropin <andrew@trop.in>
@@ -113,6 +113,7 @@ GNU_SYSTEM_MODULES =				\
   %D%/home/services/dotfiles.scm		\
   %D%/home/services/symlink-manager.scm		\
   %D%/home/services/fontutils.scm		\
+  %D%/home/services/git-annex-assistant.scm	\
   %D%/home/services/gnome.scm			\
   %D%/home/services/gnupg.scm			\
   %D%/home/services/guix.scm			\
@@ -479,7 +480,6 @@ GNU_SYSTEM_MODULES =				\
   %D%/packages/mc.scm				\
   %D%/packages/mcrypt.scm			\
   %D%/packages/medical.scm			\
-  %D%/packages/mercury.scm			\
   %D%/packages/mes.scm				\
   %D%/packages/messaging.scm			\
   %D%/packages/minetest.scm			\
@@ -604,6 +604,7 @@ GNU_SYSTEM_MODULES =				\
   %D%/packages/regex.scm				\
   %D%/packages/robotics.scm			\
   %D%/packages/rocm.scm				\
+  %D%/packages/rocm-apps.scm			\
   %D%/packages/rocm-libs.scm			\
   %D%/packages/rocm-tools.scm			\
   %D%/packages/rpc.scm				\
@@ -1179,8 +1180,6 @@ dist_patch_DATA =						\
   %D%/packages/patches/dbacl-icheck-multiple-definitions.patch	\
   %D%/packages/patches/dblatex-inkscape-1.0.patch		\
   %D%/packages/patches/dbus-helper-search-path.patch		\
-  %D%/packages/patches/dbus-c++-gcc-compat.patch		\
-  %D%/packages/patches/dbus-c++-threading-mutex.patch		\
   %D%/packages/patches/ddd-build.patch				\
   %D%/packages/patches/debops-setup-py-avoid-git.patch	\
   %D%/packages/patches/dee-vapi.patch			\
@@ -1218,14 +1217,17 @@ dist_patch_DATA =						\
   %D%/packages/patches/dvdbackup-with-libdvdread-6.1.0+.patch	\
   %D%/packages/patches/dvd+rw-tools-add-include.patch 		\
   %D%/packages/patches/dwarves-threading-reproducibility.patch	\
+  %D%/packages/patches/e9patch-zydis-4.1-compat.patch		\
   %D%/packages/patches/efitools-riscv64-support.patch		\
   %D%/packages/patches/efivar-fix-fprint-format.patch		\
+  %D%/packages/patches/elastix-1404.patch			\
   %D%/packages/patches/eigen-fix-strict-aliasing-bug.patch	\
   %D%/packages/patches/einstein-build.patch			\
   %D%/packages/patches/elfutils-tests-ptrace.patch		\
   %D%/packages/patches/elixir-httpoison-tag-network-dependent-test-cases.patch			\
   %D%/packages/patches/elixir-path-length.patch			\
   %D%/packages/patches/elm-ghc9.2.patch	\
+  %D%/packages/patches/exaile-gstreamer-1.28.patch	\
   %D%/packages/patches/python-treelib-remove-python2-compat.patch	\
   %D%/packages/patches/elm-offline-package-registry.patch	\
   %D%/packages/patches/elm-reactor-static-files.patch		\
@@ -1507,6 +1509,7 @@ dist_patch_DATA =						\
   %D%/packages/patches/gmp-arm-asm-nothumb.patch		\
   %D%/packages/patches/gmp-faulty-test.patch			\
   %D%/packages/patches/gnome-2048-fix-positional-argument.patch	\
+  %D%/packages/patches/gnome-contacts-evolution-compat.patch	\
   %D%/packages/patches/gnome-control-center-firmware-security.patch	\
   %D%/packages/patches/gnome-control-center-libexecdir.patch	\
   %D%/packages/patches/gnome-dictionary-meson-i18n.patch	\
@@ -1699,10 +1702,12 @@ dist_patch_DATA =						\
   %D%/packages/patches/libguestfs-syms.patch            	\
   %D%/packages/patches/libinfinity-renew-test-certificate.patch \
   %D%/packages/patches/libmaus2-fix-gcc-13-require-include-cstdint.patch	\
+  %D%/packages/patches/libportal-qt-6.9.patch                   \
   %D%/packages/patches/libretro-dolphin-emu-data.patch		\
   %D%/packages/patches/libretro-dolphin-emu-gc-font-tool.patch  \
   %D%/packages/patches/libretro-dolphin-emu-libusb-assert.patch \
   %D%/packages/patches/libretro-dolphin-emu-vulkan-headers.patch        \
+  %D%/packages/patches/libretranslate-use-flasgger.patch	\
   %D%/packages/patches/librewolf-add-store-to-rdd-allowlist.patch       \
   %D%/packages/patches/librewolf-compare-paths.patch		\
   %D%/packages/patches/librewolf-neuter-locale-download.patch	\
@@ -1719,6 +1724,7 @@ dist_patch_DATA =						\
   %D%/packages/patches/linphone-desktop-cmake-belcard.patch	\
   %D%/packages/patches/linphone-desktop-cmake-find-modules.patch	\
   %D%/packages/patches/localed-xorg-keyboard.patch		\
+  %D%/packages/patches/lufa-fix-incompatible-cast.patch		\
   %D%/packages/patches/kaldi-ignore-failing-test.patch		\
   %D%/packages/patches/kaldi-openblas-0.3.29-compatibility.patch	\
   %D%/packages/patches/kcontacts-incorrect-country-name.patch	\
@@ -2086,8 +2092,6 @@ dist_patch_DATA =						\
   %D%/packages/patches/pthreadpool-system-libraries.patch	\
   %D%/packages/patches/python-3.11-fix-tests.patch		\
   %D%/packages/patches/python-3.12-fix-tests.patch		\
-  %D%/packages/patches/python-accupy-use-matplotx.patch		\
-  %D%/packages/patches/python-accupy-fix-use-of-perfplot.patch	\
   %D%/packages/patches/python-anyio-unuse-exceptiongroup-in-test.patch	\
   %D%/packages/patches/python-bed-reader-use-store-samples.patch	\
   %D%/packages/patches/python-chai-drop-python2.patch		\
@@ -2322,6 +2326,7 @@ dist_patch_DATA =						\
   %D%/packages/patches/qtwayland-5.15.18-0053-client-remove-some-surface-commits.patch	\
   %D%/packages/patches/qtwayland-5.15.18-0054-client-avoid-locking-resizing-in-qwaylandshmbackings.patch	\
   %D%/packages/patches/qtwayland-5.15.18-0055-bradient-use-qwaylandwindow-actual-window-title.patch	\
+  %D%/packages/patches/qtwayland-5.15.18-0056-redraw-hidpi.patch	\
   %D%/packages/patches/qtwebsockets-6.9-fix-tst_QWebSocket.patch\
   %D%/packages/patches/rabbitmq-defaults.patch		\
   %D%/packages/patches/radare2-fix-meson-build-to-use-sys-qjs.patch	\
@@ -2356,6 +2361,7 @@ dist_patch_DATA =						\
   %D%/packages/patches/rlwrap-no-rbgen.patch	\
   %D%/packages/patches/rng-tools-revert-build-randstat.patch	\
   %D%/packages/patches/rocclr-5.6.0-enable-gfx800.patch		\
+  %D%/packages/patches/rochpl-supported-distros.patch		\
   %D%/packages/patches/rocm-opencl-runtime-4.3-noclinfo.patch 	\
   %D%/packages/patches/rocm-bandwidth-test-fix-external-packages-search.patch	\
   %D%/packages/patches/rocm-bandwidth-test-fix-hsa-include-file-lookup.patch	\
@@ -2436,7 +2442,6 @@ dist_patch_DATA =						\
   %D%/packages/patches/snappy-add-inline-for-GCC.patch		\
   %D%/packages/patches/source-highlight-gcc-compat.patch	\
   %D%/packages/patches/sourcetrail-fix-cmakelists-and-paths.patch		\
-  %D%/packages/patches/softhsm-fix-openssl3-tests.patch		\
   %D%/packages/patches/spectre-meltdown-checker-externalize-fwdb.patch \
   %D%/packages/patches/sphinxbase-fix-doxygen.patch		\
   %D%/packages/patches/spice-vdagent-monitor-size-calculation.patch     \

gnu/machine/hetzner.scm

@@ -152,7 +152,7 @@
       (operating-system
         (inherit os)
         (services
-         (modify-services (operating-system-user-services os)
+         (modify-services services
            (guix-service-type
             config => (guix-configuration
                        (inherit config)

gnu/packages/admin.scm

@@ -2711,14 +2711,14 @@ command.")
 (define-public wpa-supplicant
   (package (inherit wpa-supplicant-minimal)
     (name "wpa-supplicant")
-    (inputs (modify-inputs (package-inputs wpa-supplicant-minimal)
+    (inputs (modify-inputs inputs
               (prepend dbus)))
     (source (origin
               (inherit (package-source wpa-supplicant-minimal))
               (patches (search-patches
                         "wpa-supplicant-dbus-group-policy.patch"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments wpa-supplicant-minimal)
+     (substitute-keyword-arguments arguments
        ((#:phases phases)
         `(modify-phases ,phases
            (add-after 'configure 'set-config-options
@@ -2750,11 +2750,11 @@ command.")
   (package
     (inherit wpa-supplicant)
     (name "wpa-supplicant-gui")
-    (inputs (modify-inputs (package-inputs wpa-supplicant)
+    (inputs (modify-inputs inputs
               (prepend qtbase-5 qtsvg-5 qtwayland-5)))
     (native-inputs
      ;; For icons.
-     (modify-inputs (package-native-inputs wpa-supplicant)
+     (modify-inputs native-inputs
        (prepend imagemagick/stable
                 inkscape/pinned)))
     (build-system qt-build-system)
@@ -4166,39 +4166,6 @@ the status of your battery in the system tray.")
     (home-page "https://github.com/valr/cbatticon")
     (license license:gpl2+)))
 
-(define-public interrobang
-  (let ((revision "1")
-        (commit "896543735e1c99144765fdbd7b6e6b5afbd8b881"))
-    (package
-      (name "interrobang")
-      (version (git-version "0.0.0" revision commit))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url "https://github.com/TrilbyWhite/interrobang")
-               (commit commit)))
-         (file-name (git-file-name name version))
-         (sha256
-          (base32 "1n13m70p1hfba5dy3i8hfclbr6k9q3d9dai3dg4jvhdhmxcpjzdf"))))
-      (build-system gnu-build-system)
-      (arguments
-       `(#:tests? #f                    ; no tests
-         #:phases
-         (modify-phases %standard-phases
-           (delete 'configure))         ; no configure script
-         #:make-flags (list (string-append "PREFIX="
-                                           (assoc-ref %outputs "out")))))
-      (inputs
-       (list libx11))
-      (native-inputs
-       (list pkg-config))
-      (synopsis "Scriptable launcher menu")
-      (description "Interrobang is a scriptable launcher menu with a customizable
-shortcut syntax and completion options.")
-      (home-page "https://github.com/TrilbyWhite/interrobang")
-      (license license:gpl3+))))
-
 (define-public pam-hooks
   (package
     (name "pam-hooks")
@@ -4779,7 +4746,7 @@ system distribution, akin to many similar tools.")
     (inherit fastfetch-minimal)
     (name "fastfetch")
     (arguments
-     (substitute-keyword-arguments (package-arguments fastfetch-minimal)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags #~'())
         #~(append #$flags
                   (list  "-DBINARY_LINK_TYPE=dynamic"
@@ -4791,7 +4758,7 @@ system distribution, akin to many similar tools.")
                                         #$(this-package-input "libdrm")
                                         "/share/libdrm/amdgpu.ids"))))))
     (inputs
-     (modify-inputs (package-inputs fastfetch-minimal)
+     (modify-inputs inputs
        (append dbus
                glib
                hwdata
@@ -6199,7 +6166,7 @@ then it can be a greeter.")
     (inherit pam-mount)
     (name "greetd-pam-mount")
     (arguments
-     (substitute-keyword-arguments (package-arguments pam-mount)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags ''())
         #~(cons* "--with-rundir=/run/greetd" #$flags))
        ((#:phases phases)

gnu/packages/aidc.scm

@@ -169,14 +169,14 @@ integration of this capability into your own programs.")
   (package/inherit zint
     (name "zint-with-qt")
     (build-system qt-build-system)
-    (arguments (substitute-keyword-arguments (package-arguments zint)
+    (arguments (substitute-keyword-arguments arguments
                  ((#:disallowed-references references)
                   (delete qtbase references))
                  ((#:qtbase _ #f)
                   qtbase)
                  ((#:configure-flags flags ''())
                   #~(cons "-DZINT_QT6=ON" #$flags))))
-    (inputs (modify-inputs (package-inputs zint)
+    (inputs (modify-inputs inputs
               ;; The UI library of qttools is linked to; hence it must be used
               ;; as an input rather than a native input.
               (append qtsvg qttools)))
@@ -391,13 +391,13 @@ Python as well as GUI widgets for GTK and Qt.")
     (name "zbar-minimal")
     (build-system gnu-build-system)
     (arguments
-     (substitute-keyword-arguments (package-arguments zbar)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         #~(cons* "--with-gtk=no" (delete "--with-gtk=auto" #$flags)))
        ((#:disallowed-references _ '())
         (list qtbase gtk+))))
     (propagated-inputs
-     (modify-inputs (package-propagated-inputs zbar)
+     (modify-inputs propagated-inputs
        (delete "gtk+")))))
 
 (define-public qrcodegen-cpp

gnu/packages/algebra.scm

@@ -94,6 +94,7 @@
   #:use-module (guix gexp)
   #:use-module (guix git-download)
   #:use-module (guix hg-download)
+  #:use-module (guix svn-download)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
   #:use-module (guix utils)
@@ -953,7 +954,7 @@ gnu build version."))))
   (package/inherit fftw
     (name "fftwf")
     (arguments
-     (substitute-keyword-arguments (package-arguments fftw)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags fftw-configure-flags)
         `(cons* "--enable-single"
                 ,@(if (string-prefix? "arm" (or (%current-target-system)
@@ -974,7 +975,7 @@ gnu build version."))))
      `(("openmpi" ,openmpi)
        ,@(package-inputs fftw)))
     (arguments
-     (substitute-keyword-arguments (package-arguments fftw)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags cf)
         `(cons "--enable-mpi" ,cf))
        ((#:phases phases '%standard-phases)
@@ -1433,7 +1434,7 @@ features, and more.")
         ;; XXX: Some tests fail, but onnxruntime will move on to the next
         ;; release soon enough.
         (arguments
-         (substitute-keyword-arguments (package-arguments eigen)
+         (substitute-keyword-arguments arguments
            ((#:tests? tests? #t)
             #f)))))))
 
@@ -1461,7 +1462,7 @@ features, and more.")
        ;; XXX: Tests stable_norm_5 and stable_norm_6 are failing due to
        ;; EIGEN_STATIC_ASSERT_VECTOR_SPECIFIC_SIZE.
        (arguments
-        (substitute-keyword-arguments (package-arguments eigen)
+        (substitute-keyword-arguments arguments
           ((#:tests? flag #f) #false)))))))
 
 (define-public xtensor
@@ -2191,7 +2192,7 @@ and not by the available RAM.")
     (inherit form)
     (name "parform")
     (arguments
-     (substitute-keyword-arguments (package-arguments form)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         #~(cons* "--enable-parform=yes" #$flags))
        ((#:phases phases)
@@ -2204,94 +2205,120 @@ and not by the available RAM.")
 @code{parform}, a version of FORM parallelized using OpenMPI."))))
 
 (define-public reduce
-  (package
-    (name "reduce")
-    (version "2024-08-12")
-    (source (origin
-              (method url-fetch)
-              (uri (string-append
-                    "mirror://sourceforge/reduce-algebra/snapshot_"
-                    version "/Reduce-svn6860-src.tar.gz"))
-              (sha256
-               (base32
-                "13bij9d4dj96vd5di59skz77s2fihj7awmkx403fvh9rd04ly25z"))
-              (modules '((guix build utils)))
-              (patches (search-patches "reduce-unbundle-libffi.patch"))
-              ;; remove binaries and unnecessary parts
-              ;; to ensure we build from source files only
-              (snippet '(map delete-file-recursively
-                         (append (find-files "csl/generated-c" "\\.img$")
-                          '("psl" "vsl"
-                            "jlisp"
-                            "jslisp"
-                            "libedit"
-                            "macbuild"
-                            "MacPorts"
-                            "mac-universal"
-                            "reduce2"
-                            "winbuild64"
-                            "common-lisp"
-                            "contrib"
-                            "generic/qreduce"
-                            "web/htdocs/images/Thumbs.db")
-                          (find-files "csl"
-                           "^(embedded|new-embedded|winbuild|support-packages)$"
-                           #:directories? #t)
-                          (find-files "libraries"
-                           "^(original|wineditline|libffi|libffi-for-mac)$"
-                           #:directories? #t))))))
-    (build-system gnu-build-system)
-    (arguments
-     (list #:parallel-build? #f
-           #:configure-flags
-           #~(list "--without-autogen"
-                   ;; fix conflict with internal build name determination
-                   "--build="
-                   "--with-csl"
-                   (string-append "CPPFLAGS=-I"
-                                  #$freetype
-                                  "/include/freetype2"))
-           #:make-flags #~(list "csl")
-           #:phases
-           #~(modify-phases %standard-phases
-               (replace 'check
-                 (lambda* (#:key tests? #:allow-other-keys)
-                   (when tests?
-                     (invoke "scripts/testall.sh" "--csl" "--noregressions"))))
-               (add-before 'patch-source-shebangs 'autogen
-                 (lambda _
-                   (invoke "sh" "autogen.sh")))
-               (add-after 'install 'fix-install
-                 (lambda _
-                   (copy-file "bin/rfcsl"
-                              (string-append #$output "/bin/rfcsl"))
-                   (copy-file "generic/newfront/redfront.1"
-                              (string-append #$output
-                                             "/share/man/man1/rfcsl.1"))
-                   (let ((.desktop-file
-                          "debianbuild/reduce/debian/redcsl.desktop")
-                         (icon "debianbuild/reduce/debian/reduce.png"))
-                     (install-file .desktop-file
-                                   (string-append #$output
-                                                  "/share/applications"))
-                     (install-file icon
-                                   (string-append
-                                    #$output
-                                    "/share/icons/hicolor/32x32/apps")))
-                   (with-directory-excursion #$output
-                     (map (lambda (dir)
-                            (map (lambda (file)
-                                   (chmod file #o444))
-                                 (find-files dir)))
-                          '("share/man/man1" "share/reduce/fonts"))))))))
-    (native-inputs (list autoconf automake libtool which))
-    (inputs
-     ;; bundled libraries: fox (adjusted) editline (adjusted)
-     ;; crlibm softfloat
-     (list freetype libffi libx11 libxext libxft ncurses))
-    (synopsis "Portable general-purpose computer algebra system")
-    (description
-     "REDUCE is a portable general-purpose computer algebra system.  It is a
+  (let ((revision 7333))
+    (package
+      (name "reduce")
+      (version "2026-03-11")
+      (source (origin
+                (method svn-fetch)
+                (uri (svn-reference
+                       (url "https://svn.code.sf.net/p/reduce-algebra/code/trunk")
+                       (revision revision)))
+                (file-name (string-append name "-" version "-checkout"))
+                (sha256
+                 (base32
+                  "04n7z6abfpqxgmdc1vpv2yy4qccvyxdp6klld94wr740dv8r49l2"))
+                (modules '((guix build utils)))
+                (patches (search-patches "reduce-unbundle-libffi.patch"))
+                (snippet '(map delete-file-recursively
+                               (append (find-files "csl/generated-c" "\\.img$")
+                                       '("common-lisp"
+                                         "contrib"
+                                         "csl/embedded"
+                                         "csl/new-embedded"
+                                         "csl/support-packages"
+                                         "csl/winbuild"
+                                         "generic/breduce"
+                                         "generic/casefold"
+                                         "generic/emacs"
+                                         "generic/qreduce"
+                                         "generic/rbench"
+                                         "generic/rlsmt"
+                                         "generic/texmacs"
+                                         "jlisp"
+                                         "jslisp"
+                                         "libedit"
+                                         "libraries/asmjit"
+                                         "libraries/C-Quadratic-Sieve"
+                                         "libraries/core-math"
+                                         ;; "libraries/crlibm"
+                                         ;; "libraries/libedit-20140620-3.1"
+                                         "libraries/libedit-20210216-3.1"
+                                         "libraries/libffi"
+                                         "libraries/original"
+                                         ;; "libraries/SoftFloat-3a"
+                                         "libraries/SoftFloat-3e"
+                                         "libraries/webview"
+                                         "libraries/wineditline"
+                                         "macbuild"
+                                         "MacPorts"
+                                         "mac-universal"
+                                         "psl"
+                                         "reduce2"
+                                         "reduce2-2025"
+                                         "vsl"
+                                         "web"
+                                         "winbuild64"
+                                         "windows-config-cache"))))))
+      (build-system gnu-build-system)
+      (arguments
+       (list #:parallel-build? #f
+             #:configure-flags
+             #~(list "--without-autogen"
+                     ;; fix conflict with internal build name determination
+                     "--build="
+                     "--with-csl"
+                     (string-append "CPPFLAGS=-I"
+                                    #$freetype
+                                    "/include/freetype2"))
+             #:make-flags #~(list "csl")
+             #:phases
+             #~(modify-phases %standard-phases
+                 (replace 'check
+                   (lambda* (#:key tests? #:allow-other-keys)
+                     (when tests?
+                       (invoke "scripts/testall.sh" "--csl" "--noregressions"))))
+                 (add-before 'patch-source-shebangs 'autogen
+                   (lambda _
+                     (invoke "sh" "autogen.sh")))
+                 (add-after 'autogen 'fix-version
+                   (lambda _
+                     (substitute* "csl/cslbase/version.h"
+                       (("(#define VERSION_ID )\"\\$Id\\$\"" all def)
+                        (format #f
+                                "~a \"$Id: version.h ~a ~a 00:00:00Z somebody $\""
+                                def #$revision #$version)))))
+                 (add-after 'install 'fix-install
+                   (lambda _
+                     (copy-file "bin/rfcsl"
+                                (string-append #$output "/bin/rfcsl"))
+                     (copy-file "generic/newfront/redfront.1"
+                                (string-append #$output
+                                               "/share/man/man1/rfcsl.1"))
+                     (let ((.desktop-file
+                            "debianbuild/reduce/debian/redcsl.desktop")
+                           (icon "debianbuild/reduce/debian/reduce.png"))
+                       (install-file .desktop-file
+                                     (string-append #$output
+                                                    "/share/applications"))
+                       (install-file icon
+                                     (string-append
+                                      #$output
+                                      "/share/icons/hicolor/32x32/apps")))
+                     (with-directory-excursion #$output
+                       (map (lambda (dir)
+                              (map (lambda (file)
+                                     (chmod file #o444))
+                                   (find-files dir)))
+                            '("share/man/man1" "share/reduce/fonts"))))))))
+      (native-inputs (list autoconf automake libtool which))
+      (inputs
+       ;; bundled libraries: fox (adjusted) editline (adjusted)
+       ;; crlibm softfloat
+       (list freetype libffi libx11 libxext libxft ncurses))
+      (synopsis "Portable general-purpose computer algebra system")
+      (description
+       "REDUCE is a portable general-purpose computer algebra system.  It is a
 system for doing scalar, vector and matrix algebra by computer, which also
 supports arbitrary precision numerical approximation and interfaces to
 gnuplot to provide graphics.  It can be used interactively for simple
@@ -2300,9 +2327,9 @@ similar to other modern programming languages.  REDUCE supports alternative
 user interfaces including Run-REDUCE, TeXmacs and GNU Emacs.  This package
 provides the Codemist Standard Lisp (CSL) version of REDUCE.  It uses the
 gnuplot program, if installed, to draw figures.")
-    (home-page "https://reduce-algebra.sourceforge.io/")
-    (license (license:non-copyleft "file://README"
-                                   "See README in the distribution."))))
+      (home-page "https://reduce-algebra.sourceforge.io/")
+      (license (license:non-copyleft "file://README"
+                                     "See README in the distribution.")))))
 
 (define-public msolve
   (package

gnu/packages/apparmor.scm

@@ -128,7 +128,7 @@ supported by Canonical since 2009.")
                       "USE_SYSTEM=1"
                       ;; No need to run the linter
                       "PYFLAKES=true"))
-        (substitute-keyword-arguments (package-arguments base)
+        (substitute-keyword-arguments arguments
           ((#:phases phases)
            #~(modify-phases #$phases
                (delete 'configure)
@@ -189,7 +189,7 @@ supported by Canonical since 2009.")
       (arguments
        (append
         (list #:tests? #f)              ;no tests
-        (substitute-keyword-arguments (package-arguments base)
+        (substitute-keyword-arguments arguments
           ((#:phases phases)
            #~(modify-phases #$phases
                (delete 'chdir-parser)

gnu/packages/arcan.scm

@@ -172,7 +172,7 @@ engine with a Lua scripting interface.")
     (inherit arcan)
     (name "arcan-sdl")
     (inputs
-     (modify-inputs (package-inputs arcan)
+     (modify-inputs inputs
        (delete "libdrm")
        (prepend glu libglvnd mesa sdl2)))
     (arguments

gnu/packages/aspell.scm

@@ -464,7 +464,7 @@ European languages.")
                 (patches (search-patches "ispell-for-linphone-cmake.patch"))))
       (build-system cmake-build-system)
       (arguments
-       (substitute-keyword-arguments (package-arguments ispell)
+       (substitute-keyword-arguments arguments
          ((#:modules _ ''())
           '((guix build cmake-build-system)
             (guix build utils)

gnu/packages/astronomy.scm

@@ -1360,7 +1360,7 @@ dynamic library for the C language implementation of HEALPix.")
                (invoke "aclocal")
                (invoke "automake" "--add-missing")
                (invoke "autoconf"))))))
-    (inputs (modify-inputs (package-inputs healpix)
+    (inputs (modify-inputs inputs
               (prepend libsharp zlib)))
     (description
      (string-replace-substring (package-description healpix)
@@ -2191,17 +2191,6 @@ implementation of the ASDF Standard.")
        (sha256
         (base32 "0scnw5y4x5k3vyfylq0w612b662xlccx3gsscaw082zlv2yxfyh4"))))))
 
-(define-public python-asdf-4
-  (package
-    (inherit python-asdf)
-    (version "4.5.0")
-    (source
-     (origin
-       (method url-fetch)
-       (uri (pypi-uri "asdf" version))
-       (sha256
-        (base32 "1h9dvnxdcd7cmjddpfnjsn6a1acav8gm5307gf7kpifacf99fdqz"))))))
-
 (define-public python-asdf-astropy
   (package
     (name "python-asdf-astropy")
@@ -2328,42 +2317,6 @@ Users should not need to install this directly; instead, install an
 implementation package such as asdf-astropy.")
     (license license:bsd-3)))
 
-(define-public python-asdf-fits-schemas
-  (hidden-package
-   ;; This package was never released and has been archived. The schemas in
-   ;; this package were never removed from and will continue to be maintained
-   ;; in <https://github.com/asdf-format/asdf-standard>.
-   (let ((commit "6321c0ae4e44c9a59ccf81a446f9d9e22fd42b55")
-         (revision "2"))
-     (package
-       (name "python-asdf-fits-schemas")
-       (version (git-version "0.0.1" revision commit))
-       (source
-        (origin
-          (method git-fetch)
-          (uri (git-reference
-                (url "https://github.com/asdf-format/asdf-fits-schemas")
-                (commit commit)))
-          (file-name (git-file-name name version))
-          (sha256
-           (base32 "0p0m1sgnv9yqk0l0w15skvfshl47x0gc7lg6p2x83158hjyix5q6"))))
-       (build-system pyproject-build-system)
-       (arguments
-        (list
-         #:tests? #f)) ; cycle with python-asdf
-       (native-inputs
-        (list python-setuptools
-              python-setuptools-scm
-              python-wheel))
-       (propagated-inputs
-        (list python-asdf-standard
-              python-importlib-resources))
-       (home-page "https://github.com/asdf-format/asdf-fits-schemas")
-       (synopsis "ASDF schemas to support the FITS format")
-       (description
-        "This package provides ASDF schemas for validating FITS tags.")
-       (license license:bsd-3)))))
-
 (define-public python-asdf-standard
   (package
     (name "python-asdf-standard")
@@ -3204,43 +3157,6 @@ much of the core functionality and some common tools needed for performing
 astronomy and astrophysics.")
     (license license:bsd-3)))
 
-(define-public python-astropy-6
-  (package
-    (inherit python-astropy)
-    (name "python-astropy")
-    (version "6.1.7")
-    (source
-     (origin
-       (method url-fetch)
-       (uri (pypi-uri "astropy" version))
-       (sha256
-        (base32 "1vspagb4vbmkl6fm3mr78577dgdq992ggwkd5qawpdh6cccaq1d4"))
-       (modules '((guix build utils)))
-       (snippet
-        #~(begin
-            (with-directory-excursion "astropy/extern"
-              (for-each delete-file-recursively '("ply" "configobj")))
-            (with-directory-excursion "cextern"
-              (for-each delete-file-recursively '("expat" "wcslib")))))))
-    ;; tests: 28419 passed, 316 skipped, 233 xfailed, 25 warnings
-    (arguments
-     (substitute-keyword-arguments
-         (package-arguments python-astropy)
-       ((#:test-flags test-flags #~(list))
-        #~(list "--pyargs" "astropy"
-                "--numprocesses" (number->string (min 8 (parallel-job-count)))
-                "-k" (string-join
-                      (list "not test_skip_meta"
-                            "test_all_included"
-                            "test_basic_testing_completeness"
-                            "test_ephemeris_local_file_not_ephemeris"
-                            "test_non_linear_lsq_fitter_with_weights[LMLSQFitter]"
-                            "test_testing_completeness")
-                      " and not ")))))
-    (propagated-inputs
-     (modify-inputs (package-propagated-inputs python-astropy)
-       (replace "python-jplephem" python-jplephem-2.22)))))
-
 (define-public python-astropy-healpix
   (package
     (name "python-astropy-healpix")
@@ -3312,14 +3228,15 @@ celestial-to-terrestrial coordinate transformations.")
   (package/inherit python-astropy
     (name "python-astropy-minimal")
     (arguments
-     (substitute-keyword-arguments (package-arguments python-astropy)
+     (substitute-keyword-arguments arguments
        ((#:tests? _ #t) #f)))
     (native-inputs
      (list nss-certs-for-test
            pkg-config
            python-cython
            python-extension-helpers
-           python-setuptools-scm))
+           python-setuptools-scm
+           specification-astropy-data))
     (propagated-inputs
      (list python-astropy-iers-data
            python-configobj      ;to replace custom module
@@ -6107,33 +6024,6 @@ Astronomical Almanac to within 0.0005 arcseconds (half a @emph{mas} or
 milliarcsecond).")
     (license license:expat)))
 
-;; The last compatible version for python-astropy-6.
-(define-public python-jplephem-2.22
-  (hidden-package
-   (package
-     (inherit python-jplephem)
-     (version "2.22")
-     (source
-      (origin
-        (method url-fetch)
-        (uri (pypi-uri "jplephem" version))
-        (sha256
-         (base32 "0b2rgb7pvwnl72pqjryf9c812mmdxr69fwiym7mnz05l2xrcr6hd"))))
-    (arguments
-     (list
-      ;; FIXME: OSError: [Errno 30] Read-only file system:
-      ;; '/gnu/store/<hash>-python-3.11.11/lib/python3.11/@test_43_tmpæ.pyc'
-      #:tests? #f
-      #:phases
-      #~(modify-phases %standard-phases
-          (replace 'check
-            (lambda* (#:key tests? #:allow-other-keys)
-              (when tests?
-                (invoke "python" "-m" "unittest" "discover" "-s" "test")))))))
-    (native-inputs
-     (list python-setuptools
-           python-wheel)))))
-
 (define-public python-jwst
   (package
     (name "python-jwst")
@@ -7265,96 +7155,6 @@ binned galaxy positions or shear) in cylindrical projection, but its core
 functionality is more general.")
     (license license:bsd-3)))
 
-;; XXX: The project is archived, maintained fork is available see
-;; <https://github.com/poliastro/poliastro/issues/1640>.
-;; Maintained fork <https://github.com/pleiszenburg/hapsira>.
-(define-public python-poliastro
-  (package
-    (name "python-poliastro")
-    (version "0.17.0")
-    (source
-     (origin
-       ;; PyPi tarball lacks tests.
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://github.com/poliastro/poliastro")
-             (commit (string-append "v" version))))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "1iclyjp0cvm6hp5qf4fzklszxvhj3idkxgb6a9h7xzg9bf5j5gi2"))))
-    (build-system pyproject-build-system)
-    (arguments
-     (list
-      #:test-flags
-      #~(list "-m" "not remote_data"
-              ;; TODO: Review failing tests later when any upstream
-              ;; suggestions are provided:
-              ;; https://github.com/poliastro/poliastro/issues/1618
-              "--ignore=tests/test_czml.py"
-              "-k" (string-append
-                    ;; This fails with "ufunc 'isfinite' not
-                    ;; supported for the input types"
-                    "not test_porkchop_plotting"
-                    " and not test_maneuver_constructor_raises_error_if_invalid_delta_v"))
-      #:phases
-      #~(modify-phases %standard-phases
-         (add-after 'unpack 'relax-requirements
-           (lambda _
-             (substitute* "pyproject.toml"
-               (("5.0,<6") "5.0,<7"))))
-          (add-after 'unpack 'matplotlib-compatibility
-            (lambda _
-              (substitute* "src/poliastro/plotting/static.py"
-                (("import numpy as np.*" m)
-                 (string-append m "\
-import itertools\n"))
-                (("( +)self._ax = ax.*" m indent)
-                 (string-append m indent
-                                "\
-self.colors = itertools.cycle(plt.rcParams[\"axes.prop_cycle\"].by_key()[\"color\"])\n"))
-                (("color = next\\(self._ax._get_lines.prop_cycler\\)\\[\"color\"\\]")
-                 "color = next(self.colors)"))))
-          ;; NOTE: Tests take about 7-10 minutes to pass.
-          (add-before 'check 'prepare-test-environment
-            (lambda _
-              (setenv "HOME" "/tmp"))))))
-    (native-inputs
-     (list python-coverage
-           python-hypothesis
-           python-mypy
-           python-flit-core
-           python-pytest
-           python-pytest-cov
-           python-pytest-doctestplus
-           python-pytest-mpl
-           python-pytest-mypy))
-    (propagated-inputs
-     (list python-astropy-6
-           python-astroquery
-           python-czml3
-           python-jplephem
-           python-matplotlib
-           python-numba
-           python-numpy
-           python-pandas
-           python-plotly
-           python-pyerfa
-           python-scipy))
-    (home-page "https://www.poliastro.space/")
-    (synopsis "Astrodynamics in Python")
-    (description
-     "POLIASTRO is a Python library for interactive Astrodynamics and Orbital
-Mechanics, with a focus on ease of use, speed, and quick visualization.  It
-provides a simple and intuitive API, and handles physical quantities with
-units.
-
-Some features include orbit propagation, solution of the Lambert's problem,
-conversion between position and velocity vectors and classical orbital
-elements and orbit plotting, among others.  It focuses on interplanetary
-applications, but can also be used to analyze artificial satellites in
-Low-Earth Orbit (LEO).")
-  (license license:expat)))
-
 (define-public python-poppy
   (package
     (name "python-poppy")
@@ -8057,6 +7857,7 @@ Features:
       #~(list "--durations=10" ; report 10 slowest tests
               "--numprocesses" (number->string (min 8 (parallel-job-count)))
               ;; Tests require pysatSpaceWeather which is not packed yet.
+              "-o" "addopts=''"               ; Avoid -p pytest_cov.
               "--ignore=pysat/tests/test_utils_files.py"
               ;; TODO: Report upstream, probably comparability issue with
               ;; Pandas v2.3.3. Tests fail with error:
@@ -8083,9 +7884,6 @@ Features:
               (setenv "HOME" "/tmp")))
           (add-before 'check 'pre-check
             (lambda _
-              ;; Do not run test coverage.
-              (substitute* "pyproject.toml"
-                ((".*addopts.*cov.*") ""))
               (mkdir "pysatData")
               (invoke "python" "-c"
                       "import pysat; pysat.params['data_dirs'] = 'pysatData'"))))))
@@ -10647,7 +10445,7 @@ functionality needed for solar data analysis.")
   (package/inherit python-sunpy
     (name "python-sunpy-minimal")
     (arguments
-     (substitute-keyword-arguments (package-arguments python-sunpy)
+     (substitute-keyword-arguments arguments
        ((#:tests? _ #t) #f)))
     (native-inputs
      (list python-setuptools
@@ -11847,75 +11645,6 @@ program to produce realistic astronomical fields.  Stuff is part of the
 @uref{https://www.astromatic.net/projects/efigi, EFIGI} development project.")
       (license license:gpl3+))))
 
-;; TODO: This is not an original source, and currently fails to build:
-;; <https://directory.fsf.org/wiki/Sunclock>
-;;  -> <https://github.com/mdoege/Sunclock> dead link
-;;   -> <http://www.arvernes.com/wiki/index.php/Sunclock> dead link
-;; <https://github.com/nongiach/Sunclock> is unmaintained.
-;;
-;; Maybe use Debian's fork instead
-;; <https://salsa.debian.org/debian/sunclock>, it would need to apply 12
-;; patches from <debian/patches>?
-;; Mark as not public for now.
-(define sunclock
-  (let ((commit "f4106eb0a81f7594726d6b2859efd8fc64cc1225")
-        (revision "1"))
-    (package
-      (name "sunclock")
-      (version (git-version "3.57" revision commit))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url "https://github.com/nongiach/Sunclock")
-               (commit commit)))
-         (file-name (git-file-name name version))
-         (sha256
-          (base32 "1rczdpmhvfw57b9r793vq8vqlbdhlkgj52fxwrdfl6cwj95a9kv2"))))
-      (build-system gnu-build-system)
-      (arguments
-       `(#:make-flags
-         (list (string-append "DESTDIR=" %output)
-               ;; Fix incorrect argument given to gcc. Error message:
-               ;; "gcc: error: DefaultGcc2AMD64Opt: No such file or directory"
-               "CDEBUGFLAGS=")
-         #:phases
-         (modify-phases %standard-phases
-           (replace 'configure
-             (lambda _
-               (chdir "sunclock-3.57")
-               (substitute* "Imakefile"
-                 (("^MANDIR=/X11R6/man/man1")
-                  "MANDIR=/share/man/man1")
-                 (("^BINDIR=/X11R6/bin")
-                  "BINDIR=/bin")
-                 ;; Disable ZLIB support for vmf files because zlib implements
-                 ;; `gzgetc` as a macro instead of a function, which results in
-                 ;; a compilation error.
-                 ((" -DZLIB") "")
-                 ((" -lz") "")
-                 (("cd \\$\\(DESTDIR\\)\\$\\(SHAREDIR\\)/earthmaps/vmf ; \
-gzip -f \\*.vmf")
-                  ""))
-               ;; Generate Makefile.
-               (invoke "xmkmf"))))
-         #:tests? #f))  ; No check target.
-      (inputs
-       (list libjpeg-turbo libpng libx11 libxpm))
-      (native-inputs
-       (list imake))
-      (home-page "https://github.com/nongiach/Sunclock")
-      (synopsis
-       "Map of the Earth that shows which portion is illuminated by the Sun")
-      (description
-       "Sunclock displays a map of the Earth and shows which portion is
-illuminated by the Sun.  It can commute between two states, the \"clock window\"
-and the \"map window\".  The clock window displays a small map of the Earth and
-therefore occupies little space on the screen, while the \"map window\" displays
-a large map and offers more advanced functions: local time of cities, Sun and
-Moon position, etc.")
-      (license license:gpl2+))))
-
 (define-public sunwait
   (package
     (name "sunwait")
@@ -12175,9 +11904,10 @@ See related paper
        (file-name (git-file-name name version))
        (sha256
         (base32 "07hiqr6jxmbw2dasbmyvcjmfxw4hjsn7xp269irjgfijsf8ga68n"))))
-    (build-system cmake-build-system)
+    (build-system qt-build-system)
     (arguments
      (list
+      #:qtbase qtbase
       #:tests? #f ;no test target
       #:phases
       #~(modify-phases %standard-phases
@@ -12201,6 +11931,7 @@ See related paper
            qtbase
            qtcharts
            qtdeclarative
+           qtwayland
            wcslib
            zstd
            (list zstd "lib")))

gnu/packages/audio.scm

@@ -3083,7 +3083,7 @@ auto-wah.")
   (package (inherit guitarix)
     (name "guitarix-lv2")
     (arguments
-     (substitute-keyword-arguments (package-arguments guitarix)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         `(cons "--no-standalone" ,flags))))))
 
@@ -4467,6 +4467,7 @@ the current volume level of PulseAudio or PipeWire using libnotify.")
     (inputs
      (list alsa-lib
            jack-2
+           fmt-9
            ganv
            glibmm
            gtkmm-2
@@ -5257,7 +5258,7 @@ stretching and pitch scaling of audio.  This package contains the library.")
           (base32
            "11srnzgpavcj6n70zjdm7488jzrprk71mg9dgr1sa6vwp575hf2m"))))
       (arguments
-       (substitute-keyword-arguments (package-arguments libsbsms)
+       (substitute-keyword-arguments arguments
          ((#:phases phases)
           #~(modify-phases #$phases
               (delete 'fix-ar-lib-path)
@@ -7560,7 +7561,7 @@ minimum.")
     (arguments
      (list #:configure-flags '(list "-Denable_rsvg=true")))
     (propagated-inputs
-     (modify-inputs (package-propagated-inputs ztoolkit)
+     (modify-inputs propagated-inputs
        (prepend (librsvg-for-system))))
     (synopsis "ZToolkit with SVG support")))
 
@@ -8208,33 +8209,6 @@ but it also helps for other programs.  It offers a patchbay for visualizing
 and editing connections.")
     (license license:gpl2+)))
 
-(define-public streamripper
-  (package
-    (name "streamripper")
-    (version "1.64.6")
-    (source
-     (origin
-       (method url-fetch)
-       (uri (string-append "https://sourceforge.net/projects/streamripper"
-                           "/files/streamripper%20(current)/"
-                           version "/streamripper-" version ".tar.gz"))
-       (sha256
-        (base32 "0hnyv3206r0rfprn3k7k6a0j959kagsfyrmyjm3gsf3vkhp5zmy1"))
-       (modules '((guix build utils)))
-       (snippet
-        ;; Delete bundled copy of libmad.
-        '(delete-file-recursively "libmad-0.15.1b"))))
-    (build-system gnu-build-system)
-    (native-inputs (list pkg-config))
-    (inputs (list faad2 glib libmad libvorbis))
-    (home-page "https://streamripper.sourceforge.net")
-    (synopsis "Record audio streams to your hard drive")
-    (description "Streamripper records shoutcast-compatible
-streams.  For shoutcast style streams it finds the “meta data” or track
-separation data, and uses that as a marker for where the track should
-be separated.")
-    (license license:gpl2+)))
-
 (define-public cubeb
   (let ((commit "9e29d728b0025c674904f83f5a13a88d1a6a5edc")
         (revision "1"))

gnu/packages/aux-files/emacs/comp-integrity.el

@@ -1,3 +1,4 @@
+;; -*- lexical-binding: t; -*-
 (require 'ert)
 
 (eval-when-compile

gnu/packages/aux-files/linux-libre/6.18-arm64.conf

@@ -2238,7 +2238,7 @@ CONFIG_PCI_PWRCTRL_SLOT=y
 CONFIG_CXL_BUS=y
 CONFIG_CXL_PCI=m
 # CONFIG_CXL_MEM_RAW_COMMANDS is not set
-CONFIG_CXL_ACPI=y
+CONFIG_CXL_ACPI=m
 CONFIG_CXL_PMEM=m
 CONFIG_CXL_MEM=m
 CONFIG_CXL_FEATURES=y

gnu/packages/aux-files/linux-libre/6.19-arm64.conf

@@ -2269,7 +2269,7 @@ CONFIG_PCI_PWRCTRL_TC9563=m
 CONFIG_CXL_BUS=y
 CONFIG_CXL_PCI=m
 # CONFIG_CXL_MEM_RAW_COMMANDS is not set
-CONFIG_CXL_ACPI=y
+CONFIG_CXL_ACPI=m
 CONFIG_CXL_PMEM=m
 CONFIG_CXL_MEM=m
 CONFIG_CXL_FEATURES=y

gnu/packages/avr-xyz.scm

@@ -4,6 +4,7 @@
 ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
 ;;; Copyright © 2022, 2025 Artyom V. Poptsov <poptsov.artyom@gmail.com>
 ;;; Copyright © 2023 Maxim Cournoyer <maxim@guixotic.coop>
+;;; Copyright © 2026 Arun Isaac <arunisaac@systemreboot.net>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -40,6 +41,7 @@
   #:use-module (gnu packages elf)
   #:use-module (gnu packages gl)
   #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages libusb)
   #:use-module (gnu packages llvm)
   #:use-module (gnu packages ncurses)
   #:use-module (gnu packages version-control)
@@ -123,7 +125,8 @@ multipart HEX files.")
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "0ylr7qsiikcy827k18zj1vdzf0kb8hb0gjmifd75y8krkhhar49g"))))
+                "0ylr7qsiikcy827k18zj1vdzf0kb8hb0gjmifd75y8krkhhar49g"))
+              (patches (search-patches "lufa-fix-incompatible-cast.patch"))))
     (outputs '("bootloaders" "demos" "projects" "doc"))
     (build-system gnu-build-system)
     (arguments
@@ -193,6 +196,31 @@ compatible microcontroller models, as well as the demos and the
 documentation.")
     (license license:expat)))           ;see LUFA/License.txt
 
+(define-public lufa-hid-bootloader-cli
+  (package
+    (inherit lufa)
+    (name "lufa-hid-bootloader-cli")
+    (build-system gnu-build-system)
+    (outputs '("out"))
+    (arguments
+     (list #:tests? #f ;; no tests
+           #:make-flags #~(list (string-append "CC=" #$(cc-for-target))
+                                "-C" "Bootloaders/HID/HostLoaderApp")
+           #:phases
+           #~(modify-phases %standard-phases
+               (delete 'configure)
+               (replace 'install
+                 (lambda _
+                   (install-file "Bootloaders/HID/HostLoaderApp/hid_bootloader_cli"
+                                 (string-append #$output "/bin")))))))
+    (inputs
+     (list libusb-compat))
+    (synopsis "Firmware uploader for the LUFA HID bootloader")
+    (description
+     "The LUFA HID loader program communicates with the LUFA HID bootloader to
+upload new firmware.")
+    (license license:gpl3)))
+
 (define-public microscheme
   (package
     (name "microscheme")

gnu/packages/avr.scm

@@ -60,7 +60,7 @@
       (inherit xgcc)
       (name "avr-gcc")
       (arguments
-       (substitute-keyword-arguments (package-arguments xgcc)
+       (substitute-keyword-arguments arguments
          ((#:phases phases)
           #~(modify-phases #$phases
               (add-after 'set-paths 'augment-CPLUS_INCLUDE_PATH

gnu/packages/backup.scm

@@ -375,7 +375,7 @@ random access nor for in-place modification.  This package provides the
         (base32
          "0wxdr7qws1z1b1gp5jsm7n2ccnjlmrnds52d5wc5xkzagyslgf67"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments libarchive)
+     (substitute-keyword-arguments arguments
        ((#:phases phases)
         #~(modify-phases #$phases
             (delete 'patch-pwd)

gnu/packages/base.scm

@@ -99,14 +99,14 @@
 (define-public hello
   (package
     (name "hello")
-    (version "2.12.2")
+    (version "2.12.3")
     (source (origin
               (method url-fetch)
               (uri (string-append "mirror://gnu/hello/hello-" version
                                   ".tar.gz"))
               (sha256
                (base32
-                "1aqq1379syjckf0wdn9vs6wfbapnj9zfikhiykf29k4jq9nrk6js"))))
+                "183a6rxnhixiyykd7qis0y9g9cfqhpkk872a245y3zl28can0pqd"))))
     (build-system gnu-build-system)
     (synopsis "Example GNU package")
     (description
@@ -602,7 +602,7 @@ standard.")
                 (base32
                  "0mxhw43d4wpqmvg0l4znk1vm10fy92biyh90lzdnqjcic2lb6cg8"))))
      (arguments
-      (substitute-keyword-arguments (package-arguments coreutils-minimal)
+      (substitute-keyword-arguments arguments
         ((#:phases phases '%standard-phases)
          `(modify-phases ,phases
             (add-before 'check 'disable-broken-test
@@ -756,7 +756,7 @@ included.")
                "1cmd0riv37bqy9mwbg6n3523qgr8b3bbm5kwj19sjrasl4yq9d0c"))
              (patches '())))
    (arguments
-    (substitute-keyword-arguments (package-arguments binutils)
+    (substitute-keyword-arguments arguments
       ((#:make-flags _ #~'()) #~'())))
    (native-inputs '())
    (properties '())))
@@ -774,7 +774,7 @@ included.")
        (sha256
         (base32 "1j64m2czn9ygd5g1cjjcw7q43b18xh6qkrdl1pkm03ncjnj3wwrl"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments binutils)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         #~(cons* "--enable-gold=default"
                  (delete "LDFLAGS=-static-libgcc" #$flags)))
@@ -792,7 +792,7 @@ included.")
                          (substitute* "gold/Makefile.in"
                            ((" testsuite") " ")))))
                   #~())))))
-    (native-inputs (modify-inputs (package-native-inputs binutils)
+    (native-inputs (modify-inputs native-inputs
                      (append bc)))))
 
 (define-public libbfd
@@ -802,7 +802,7 @@ included.")
      (modify-inputs (package-native-inputs binutils)
        (append texinfo))) ; because makeinfo is needed when building bfd alone
     (arguments
-     (substitute-keyword-arguments (package-arguments binutils)
+     (substitute-keyword-arguments arguments
        ;; Only build as a shared library
        ((#:configure-flags flags)
         #~(append #$flags '("--enable-shared" "--disable-static")))
@@ -1295,7 +1295,7 @@ with the Linux kernel.")
                                        "glibc-hurd-mach-print.patch"
                                        "glibc-hurd-gettyent.patch"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments glibc)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags #~'())
         #~(cons* "CFLAGS=-g -O2 -Wno-error=builtin-declaration-mismatch"
                  "--enable-crypt"
@@ -1315,7 +1315,7 @@ with the Linux kernel.")
 
 (define-public glibc-2.33
   (package
-    (inherit glibc-2.35)
+    (inherit glibc)
     (name "glibc")
     (version "2.33")
     (source (origin
@@ -1335,7 +1335,7 @@ with the Linux kernel.")
                                   "glibc-hurd-clock_gettime_monotonic.patch")))
                              (origin-patches (package-source glibc-2.35)))))))
     (arguments
-     (substitute-keyword-arguments (package-arguments glibc)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags #~'())
         #~(cons* #$(string-append
                     "CFLAGS=-g -O2"
@@ -1747,7 +1747,7 @@ and daylight-saving rules.")
   (hidden-package
     (package/inherit tzdata
       (arguments
-        (substitute-keyword-arguments (package-arguments tzdata)
+        (substitute-keyword-arguments arguments
           ((#:phases phases)
            #~(modify-phases #$phases
                (add-after 'post-install 'install-leap-seconds

gnu/packages/bash.scm

@@ -287,7 +287,7 @@ without modification.")
     (outputs (delete "include" (package-outputs bash)))
 
     (arguments
-     (substitute-keyword-arguments (package-arguments bash)
+     (substitute-keyword-arguments arguments
        ((#:modules _ '())
         '((guix build gnu-build-system)
           (guix build utils)
@@ -351,7 +351,7 @@ without modification.")
   (package/inherit bash
     (name "bash-with-syslog")
     (arguments
-     (substitute-keyword-arguments (package-arguments bash)
+     (substitute-keyword-arguments arguments
        ((#:phases phases '%standard-phases)
         `(modify-phases ,phases
            (add-after 'unpack 'enable-syslogging

gnu/packages/bdw-gc.scm

@@ -117,7 +117,7 @@ C or C++ programs, though that is not its primary goal.")
   (package/inherit
    libgc
    (arguments
-    (substitute-keyword-arguments (package-arguments libgc)
+    (substitute-keyword-arguments arguments
       ((#:configure-flags flags #~'())
        #~(cons "--enable-static" #$flags))))
 
@@ -141,7 +141,7 @@ C or C++ programs, though that is not its primary goal.")
     libgc
     (name "libgc-back-pointers")
     (arguments
-     (substitute-keyword-arguments (package-arguments libgc)
+     (substitute-keyword-arguments arguments
        ((#:make-flags _ #~'())
         #~(list "CPPFLAGS=-DKEEP_BACK_PTRS=1"))))
     (synopsis "The BDW garbage collector, with back-pointer tracking")))

gnu/packages/benchmark.scm

@@ -5,7 +5,7 @@
 ;;; Copyright © 2018, 2019, 2025 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2019 Eric Bavier <bavier@member.fsf.org>
 ;;; Copyright © 2019 Gábor Boskovits <boskovits@gmail.com>
-;;; Copyright © 2019, 2021 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2019, 2021, 2026 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
 ;;; Copyright © 2020 malte Frank Gerdes <malte.f.gerdes@gmail.com>
 ;;; Copyright © 2020, 2021, 2022, 2023 Maxim Cournoyer <maxim@guixotic.coop>
@@ -14,6 +14,7 @@
 ;;; Copyright © 2022 Tomasz Jeneralczyk <tj@schwi.pl>
 ;;; Copyright © 2024 Nicolas Graves <ngraves@ngraves.fr>
 ;;; Copyright © 2025 Artyom V. Poptsov <poptsov.artyom@gmail.com>
+;;; Copyright © 2023 Advanced Micro Devices, Inc.
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -37,6 +38,7 @@
   #:use-module (guix gexp)
   #:use-module (guix utils)
   #:use-module (guix git-download)
+  #:use-module (guix amd-gpu)
   #:use-module (guix search-paths)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu)
@@ -62,6 +64,7 @@
   #:use-module (gnu packages kde-frameworks)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages lua)
+  #:use-module (gnu packages llvm)
   #:use-module (gnu packages maths)
   #:use-module (gnu packages mpi)
   #:use-module (gnu packages opencl)
@@ -76,6 +79,7 @@
   #:use-module (gnu packages python-web)
   #:use-module (gnu packages python-xyz)
   #:use-module (gnu packages qt)
+  #:use-module (gnu packages rocm)
   #:use-module (gnu packages vulkan)
   #:use-module (gnu packages xdisorg)
   #:use-module (gnu packages xorg)
@@ -278,8 +282,22 @@ tests.")
                 "03lg8rz2a9wgwn9axd6gkjiswgxmp62fbxjvrrcvazmwh6ykplx8"))))
     (build-system gnu-build-system)
     (native-inputs
-     (list gcc-10 perl))
-    (arguments '(#:tests? #f)) ; there are no tests
+     (list perl))
+    (arguments
+     (list
+       #:make-flags #~(list "MORECFLAGS=-std=c++11")
+       #:phases
+       #~(modify-phases %standard-phases
+           (replace 'check
+             (lambda* (#:key tests? #:allow-other-keys)
+               (when tests?
+                 (begin
+                   ;; As seen in ./debian/tests/smoke
+                   (mkdir "test-dir")
+                   (invoke "./bonnie++" "-q"
+                           "-d" "test-dir"
+                           "-s" "-0"
+                           "-n" "1"))))))))
     (home-page "https://doc.coker.com.au/projects/bonnie/")
     (synopsis "Hard drive and file system benchmark suite")
     (description
@@ -933,3 +951,52 @@ configurable through a set of options.")
      "Microbenchmarks suite to evaluate MPI and PGAS (OpenSHMEM, UPC, and
 UPC++) libraries for CPUs and GPUs.")
     (license license:bsd-3)))
+
+(define-public babelstream-hip
+  (package
+    (name "babelstream-hip")
+    (version "5.0")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/UoB-HPC/BabelStream.git")
+              (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32
+         "0xkkxkmyi99qly427gkdijm9vwvmhwkgfm283ay6f83r66f712g4"))))
+    (build-system cmake-build-system)
+    (arguments
+     (list
+      #:build-type "Release"                ;"RelWithDebInfo" is not supported
+      #:tests? #f                           ;no tests
+      #:configure-flags
+      #~(list (string-append "-DMODEL=hip")
+              (string-append "-DCMAKE_CXX_COMPILER="
+                             #$(this-package-input "rocm-hip-runtime")
+                             "/bin/hipcc")
+              (string-append "-DCXX_EXTRA_FLAGS=--offload-arch="
+                             #$(string-join (current-amd-gpu-targets) ",")))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'avoid-native-optimizations
+            (lambda _
+              (substitute* "CMakeLists.txt"
+                (("-march=native")
+                 "-g")))))))
+    (inputs (list rocm-hip-runtime lld-rocm llvm-rocm))
+    (properties
+     `((amd-gpu-targets . ,%default-amd-gpu-targets)
+       (tunable? . #t)))
+    (synopsis "Memory bandwidth benchmark for AMD GPUs")
+    (description
+     "The BabelStream benchmark measures memory transfer rates between main
+memory and GPUs.  This benchmark is similar in spirit, and based on, John
+D. McCalpin's STREAM benchmark for CPUs.  The version of BabelStream is built
+targeting AMD GPUs using HIP.")
+    (home-page "https://github.com/UoB-HPC/BabelStream.git")
+    (license (license:fsf-free
+              "https://github.com/UoB-HPC/BabelStream/blob/main/LICENSE"
+              "Custom permissive license based on John D. McCalpin's \
+original STREAM benchmark."))))

gnu/packages/bioconductor.scm

@@ -22959,7 +22959,7 @@ accessibility data.")
                  ((".*find_overlapping_ccans works.*" m)
                   (string-append m "skip('guix')"))))))))
       (propagated-inputs
-       (modify-inputs (package-propagated-inputs r-cicero)
+       (modify-inputs propagated-inputs
          (delete "r-monocle")
          (prepend r-monocle3))))))
 

gnu/packages/bioinformatics.scm

@@ -89,6 +89,7 @@
   #:use-module (gnu packages cpp)
   #:use-module (gnu packages cpio)
   #:use-module (gnu packages cran)
+  #:use-module (gnu packages crypto)
   #:use-module (gnu packages curl)
   #:use-module (gnu packages docbook)
   #:use-module (gnu packages documentation)
@@ -2128,7 +2129,7 @@ Format (GFF) with Biopython integration.")
         (sha256
          (base32 "131hiir94jkm9jj2wfpybwndgzn8k0zc1ji1qjn5cz7w48x3ri13"))))
      (propagated-inputs
-      (modify-inputs (package-propagated-inputs python-bcbio-gff)
+      (modify-inputs propagated-inputs
         (replace "python-biopython" python-biopython-1.73))))))
 
 (define bed-sample-files
@@ -3241,7 +3242,11 @@ and gene expression visualization.")
             (lambda _
               ;; Numba needs a writable dir to cache functions.
               (setenv "NUMBA_CACHE_DIR" "/tmp")
-              (delete-file-recursively "metacells"))))))
+              (delete-file-recursively "metacells")))
+          (add-before 'sanity-check 'pre-sanity-check
+            (lambda _
+              ;; Numba needs a writable dir to cache functions.
+              (setenv "NUMBA_CACHE_DIR" "/tmp"))))))
     (propagated-inputs (list python-anndata
                              python-cvxpy
                              python-fastcluster
@@ -3255,7 +3260,7 @@ and gene expression visualization.")
                              python-threadpoolctl
                              python-umap-learn))
     (native-inputs (list pybind11-2 python-pytest python-setuptools))
-    (home-page "https://github.com/tanaylab/metacells.git")
+    (home-page "https://github.com/tanaylab/metacells")
     (synopsis "Single-cell RNA Sequencing Analysis")
     (description "The metacells package implements the improved metacell
 algorithm for single-cell RNA sequencing (scRNA-seq) data analysis within the
@@ -5198,9 +5203,14 @@ easy-to-perform steps.")
        (sha256
         (base32 "0ma2cl677l7s0n5sffh66cy9lxp5wycm50f121g8rx85p95vkgwv"))))
     (build-system cmake-build-system)
-    ;; XXX: does not build with later GCC:
-    ;; error: ‘numeric_limits’ was not declared in this scope
-    (native-inputs (list gcc-10))
+    (arguments
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'unpack 'add-missing-header
+                 (lambda _
+                   (substitute* "src/Bpp/Graph/GlobalGraph.cpp"
+                     (("include <vector>" all)
+                      (string-append all "\n#include <limits>"))))))))
     (home-page "https://pbil.univ-lyon1.fr/bpp-doc/bpp-core/html/index.html")
     (synopsis "C++ libraries for Bioinformatics")
     (description
@@ -5788,7 +5798,7 @@ and more accurate.  BWA-MEM also has better performance than BWA-backtrack for
                 "076c4q0cdqz8jgylb067y9zmvxglppnzi3qiscn0xiypgc6lgb5r"))))
     (build-system gnu-build-system)
     (arguments
-     (substitute-keyword-arguments (package-arguments bwa)
+     (substitute-keyword-arguments arguments
        ((#:phases phases #~%standard-phases)
         #~(modify-phases #$phases
             (add-after 'unpack 'patch-C-error
@@ -6669,7 +6679,7 @@ meso, or continuum scale.")
     (inherit lammps)
     (name "lammps-serial")
     (arguments
-     (substitute-keyword-arguments (package-arguments lammps)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         #~(list
         ;; activate all possible lammps packages.
@@ -6698,7 +6708,7 @@ meso, or continuum scale.")
         "-D MLIAP_ENABLE_PYTHON=yes"
         (string-append "-DN2P2_DIR=" #$(this-package-input "n2p2"))))))
     (inputs
-     (modify-inputs (package-inputs lammps)
+     (modify-inputs inputs
        (delete "pnetcdf")
        (replace "hdf5-parallel-openmpi" hdf5)
        (delete "openmpi")))))
@@ -6836,7 +6846,7 @@ accessing bigWig files.")
 (define-public python-schema-salad
   (package
     (name "python-schema-salad")
-    (version "8.9.20250723145140")
+    (version "8.9.20251102115403")
     (source
       (origin
         (method git-fetch)
@@ -6845,16 +6855,17 @@ accessing bigWig files.")
                (commit version)))
         (file-name (git-file-name name version))
         (sha256
-         (base32
-          "1bqsbxx1275129j08aqz7qpzk1nlk4h9psvkm7hzb4liag8nyiql"))))
+         (base32 "0jcq6yam58q9xic9mzv09075s2mbng5bs0pxsh335i6jfwrp1b6x"))))
     (build-system pyproject-build-system)
     (arguments
      (list
       #:test-flags
       #~(list
-         ;; Skip failing test, probably innocent.
-         ;; TODO: Remove when upgrading because updated upstream.
-         "--deselect=schema_salad/tests/test_makedoc.py::test_detect_changes_in_html")
+         ;; These tests require network access.
+         "--deselect=schema_salad/tests/test_examples.py::test_bad_schemas"
+         "--deselect=schema_salad/tests/test_cg.py::test_load_by_yaml_metaschema"
+         ;; This test requires the cwl-runner binary.
+         "--ignore=schema_salad/tests/test_cwl11.py")
       #:phases
       #~(modify-phases %standard-phases
           (add-after 'unpack 'relax-requirements
@@ -6864,23 +6875,7 @@ accessing bigWig files.")
               (substitute* "requirements.txt"
                 (("mistune.*") "mistune"))
               (substitute* "setup.py"
-                (("mistune[^\"]*") "mistune"))))
-          (add-before 'check 'skip-failing-tests
-            (lambda _
-              (let ((skip-test
-                     (lambda (test-pattern)
-                       (string-append "@pytest.mark.skip(reason="
-                                      "\"test requires network access\")\n"
-                                      test-pattern))))
-                (substitute* "schema_salad/tests/test_cg.py"
-                  (("^def test_load_by_yaml_metaschema\\(" all)
-                   (skip-test all)))
-                (substitute* "schema_salad/tests/test_cwl11.py"
-                  (("^def test_(secondaryFiles|outputBinding|yaml_tab_error)\\(" all)
-                   (skip-test all)))
-                (substitute* "schema_salad/tests/test_examples.py"
-                  (("^def test_bad_schemas\\(" all)
-                   (skip-test all)))))))))
+                (("mistune[^\"]*") "mistune")))))))
     (propagated-inputs
      (list python-cachecontrol
            python-mistune
@@ -7088,7 +7083,7 @@ documents.")
 (define-public cwltool
   (package
     (name "cwltool")
-    (version "3.1.20250925164626")
+    (version "3.1.20260315121657")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -7097,7 +7092,7 @@ documents.")
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "13mv7qcl64gng8bq0y9garp0vvn9851n98vzi75ppl16pjkkziks"))))
+                "07glkzm9af9n1jsmqk6vgrjkxhgjask9jy56g7zca20sz7hpmiyi"))))
     (build-system pyproject-build-system)
     (arguments
      (list
@@ -7115,7 +7110,9 @@ documents.")
                ;; Tries to write to /tmp/guix-build-cwltool-3.fastq
                " and not test_iwdr_writable_secondaryfiles"
                ;; Tries to use cwl-runners.
-               " and not test_v1_0_arg_empty_prefix_separate_false"))
+               " and not test_v1_0_arg_empty_prefix_separate_false"
+               ;; Tries to connect to the internet.
+               " and not test_issue_1765_print_deps_with_workflows_having_namespace_location_steps"))
       #:phases
       #~(modify-phases %standard-phases
           (add-after 'unpack 'loosen-version-restrictions
@@ -7297,14 +7294,14 @@ with Python.")
 (define-public deacon
   (package
     (name "deacon")
-    (version "0.14.0")
+    (version "0.15.0")
     (source
      (origin
        (method url-fetch)
        (uri (crate-uri "deacon" version))
        (file-name (string-append name "-" version ".tar.gz"))
        (sha256
-        (base32 "1p7q48ql67mxqi7fv0jaxbfn0js85sb2ai0h3vfvizwd1lfyldxl"))))
+        (base32 "0wmw8zyr03swbygwifj59samz9srfzxqw1gnm22msa0ng75282z0"))))
     (build-system cargo-build-system)
     (arguments
      (list
@@ -8461,39 +8458,6 @@ reasonable amount of time and memory.  For large alignments, FastTree is
 100-1,000 times faster than PhyML 3.0 or RAxML 7.")
    (license license:gpl2+)))
 
-(define-public fastx-toolkit
-  (package
-    (name "fastx-toolkit")
-    (version "0.0.14")
-    (source (origin
-              (method url-fetch)
-              (uri
-               (string-append
-                "https://github.com/agordon/fastx_toolkit/releases/download/"
-                version "/fastx_toolkit-" version ".tar.bz2"))
-              (sha256
-               (base32
-                "01jqzw386873sr0pjp1wr4rn8fsga2vxs1qfmicvx1pjr72007wy"))))
-    (build-system gnu-build-system)
-    (inputs
-     (list libgtextutils))
-    (native-inputs
-     (list gcc-6 ;; doesn't build with later versions
-           pkg-config))
-    (home-page "http://hannonlab.cshl.edu/fastx_toolkit/")
-    (synopsis "Tools for FASTA/FASTQ file preprocessing")
-    (description
-     "The FASTX-Toolkit is a collection of command line tools for Short-Reads
-FASTA/FASTQ files preprocessing.
-
-Next-Generation sequencing machines usually produce FASTA or FASTQ files,
-containing multiple short-reads sequences.  The main processing of such
-FASTA/FASTQ files is mapping the sequences to reference genomes.  However, it
-is sometimes more productive to preprocess the files before mapping the
-sequences to the genome---manipulating the sequences to produce better mapping
-results.  The FASTX-Toolkit tools perform some of these preprocessing tasks.")
-    (license license:agpl3+)))
-
 (define-public flash
   (package
     (name "flash")
@@ -9810,6 +9774,7 @@ generally slower than modern maximum likelihood approaches.")
      (list bc
            time
            python-wrapper
+           python-setuptools
            pkg-config))
     (inputs
      (list htslib))
@@ -11078,7 +11043,7 @@ viewer.")
      `(#:tests? #f ;no "check" target
        #:make-flags
        (list "LIBCURSES=-lncurses")
-       ,@(substitute-keyword-arguments (package-arguments samtools)
+       ,@(substitute-keyword-arguments arguments
            ((#:modules _ #f)
             '((ice-9 ftw)
               (ice-9 regex)
@@ -11514,9 +11479,9 @@ accessed/downloaded on demand across HTTP.")
                                        "/bin/")))
                (install-file "plink" bin)))))))
     (inputs
-     (list zlib openblas))
+     (list zlib libxcrypt openblas))
     (native-inputs
-     (list unzip gcc-8))
+     (list unzip gcc-7))
     (home-page "http://pngu.mgh.harvard.edu/~purcell/plink/")
     (synopsis "Whole genome association analysis toolset")
     (description
@@ -12364,7 +12329,7 @@ sequences.")
   (package (inherit star)
     (name "starlong")
     (arguments
-     (substitute-keyword-arguments (package-arguments star)
+     (substitute-keyword-arguments arguments
        ((#:make-flags flags)
         `(list "STARlong"))
        ((#:phases phases)
@@ -16419,40 +16384,38 @@ browser.")
               "The contents of this package are free for all uses."))))
 
 (define-public skewer
-  (let ((commit "978e8e46cba44595ece623e5387749284a86b74b")
-        (revision "1"))
-    (package
-      (name "skewer")
-      (version (git-version "0" revision commit))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url "https://github.com/relipmoc/skewer")
-               (commit commit)))
-         (file-name (git-file-name name version))
-         (sha256
-          (base32
-           "1b3skfnj3zmd2065fiyxjrg4k6xsxfy6nxz80vmajd830mk6vr69"))))
-      (build-system gnu-build-system)
-      (arguments
-       (list
-        #:tests? #f
-        #:phases
-        #~(modify-phases %standard-phases
-            (delete 'configure)
-            (replace 'install
-              (lambda _
-                (install-file "skewer" (string-append #$output "/bin")))))))
-      ;; XXX Fails to build with GCC 11.
-      (native-inputs (list gcc-10))
-      (home-page "https://github.com/relipmoc/skewer")
-      (synopsis "Bit-masked k-difference matching")
-      (description "Skewer implements the bit-masked k-difference matching
+  (package
+    (name "skewer")
+    (version "0.2.2")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/relipmoc/skewer")
+             (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32
+         "1b3skfnj3zmd2065fiyxjrg4k6xsxfy6nxz80vmajd830mk6vr69"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list
+      #:tests? #f
+      #:make-flags
+      #~(list "CXXFLAGS=-std=c++11 -c -O2")
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure)
+          (replace 'install
+            (lambda _
+              (install-file "skewer" (string-append #$output "/bin")))))))
+    (home-page "https://github.com/relipmoc/skewer")
+    (synopsis "Bit-masked k-difference matching")
+    (description "Skewer implements the bit-masked k-difference matching
 algorithm dedicated to the task of adapter trimming and it is specially
 designed for processing next-generation sequencing (NGS) paired-end
 sequences.")
-      (license license:expat))))
+    (license license:expat)))
 
 (define-public f-seq
   (let ((commit "6ccded34cff38cf432deed8503648b4a66953f9b")
@@ -21224,21 +21187,16 @@ polymorphisms) and indels with respect to a reference genome and more.")
 (define-public cnvkit
   (package
     (name "cnvkit")
-    ;; XXX: Compatability with NumPy 2 and Pomegranate 1.
-    (properties '((commit . "52f367bd0edbf55cabaaa2fbcf68c8742dc97b4c")
-                  (revision . "0")))
-    (version (git-version "0.9.12"
-                          (assoc-ref properties 'revision)
-                          (assoc-ref properties 'commit)))
+    (version "0.9.13")
     (source
      (origin
        (method git-fetch)
        (uri (git-reference
               (url "https://github.com/etal/cnvkit")
-              (commit (assoc-ref properties 'commit))))
+              (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "0kr5r2nvvlip6mylwczck7ddn31l2xh9aal1xjzx036h71agrv27"))))
+        (base32 "0w81yl5v37r63d035mxdsycma8fgssyr0857rnvvjfw78wjjnvg9"))))
     (build-system pyproject-build-system)
     (arguments
      (list
@@ -22768,10 +22726,46 @@ transcriptional derivatives and visualization of the resulting velocity
 patterns.")
       (license license:gpl3))))
 
+(define-public r-voltronstore
+  (let ((commit "781a75ae73571a3a20387cdbf647f23184324a84")
+        (revision "1"))
+    (package
+      (name "r-voltronstore")
+      (version (git-version "0.1.1" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+                (url "https://github.com/BIMSBbioinfo/VoltRonStore")
+                (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "19mi9bbvym6jzlqnyqmzy83fv3wpj1jxq2np71j77l7sf1788cwj"))))
+      (properties `((upstream-name . "VoltRonStore")))
+      (build-system r-build-system)
+      (propagated-inputs (list r-basilisk
+                               r-biocparallel
+                               r-bpcells
+                               r-delayedarray
+                               r-delayedmatrixstats
+                               r-hdf5array
+                               r-hdf5dataframe
+                               r-imagearray
+                               r-rarr
+                               r-reticulate
+                               r-rhdf5
+                               r-zarrdataframe))
+      (home-page "https://github.com/BIMSBbioinfo/VoltRonStore")
+      (synopsis "On-Disk support and dependancies for VoltRon")
+      (description
+       "@code{VoltRonStore} provides utilities and a resource for installing
+dependencies of @code{VoltRon} package.")
+      (license license:expat))))
+
 (define-public r-voltron
   (package
     (name "r-voltron")
-    (version "0.2.3")
+    (version "0.2.5")
     (source
      (origin
        (method git-fetch)
@@ -22780,7 +22774,7 @@ patterns.")
               (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "15cfszipvsq2c1gqkvvg5xkwndhjvn8hqjg5ymliwfcz9y9cv9xg"))))
+        (base32 "057n4yipkq3gnlyrb63l2ryi78nlmaas02avargm352g5ra1xl9s"))))
     (properties `((upstream-name . "VoltRon")))
     (build-system r-build-system)
     (arguments
@@ -22892,8 +22886,10 @@ guix_python <- \"~a\";"
                              r-summarizedexperiment
                              r-viridislite
                              r-vitesscer
+                             r-voltronstore
                              r-xml
-                             r-zarrdataframe))
+                             r-zarrdataframe
+                             simpleitk))
     (native-inputs (list pkg-config r-testthat))
     (home-page "https://github.com/BIMSBbioinfo/VoltRon")
     (synopsis "VoltRon for spatial data integration and analysis")

gnu/packages/bittorrent.scm

@@ -593,11 +593,11 @@ features.")
       (inherit base)
       (name "qbittorrent-no-x")
       (arguments
-       (substitute-keyword-arguments (package-arguments base)
+       (substitute-keyword-arguments arguments
          ((#:configure-flags configure-flags)
           #~(cons "-DGUI=OFF" #$configure-flags))))
       (inputs
-       (modify-inputs (package-inputs base)
+       (modify-inputs inputs
          (delete "qtsvg"))))))
 
 (define-deprecated-package qbittorrent-nox

gnu/packages/books.scm

@@ -315,7 +315,7 @@ software, with support for multiple texts and languages.")
                          sword
                          util-linux ;for 'uuidgen'
                          (list util-linux "lib") ;for 'libuuid'
-                         webkitgtk-with-libsoup2
+                         webkitgtk-for-gtk3
                          yelp-tools
                          zip))
     (inputs (list dbus dbus-glib libxml2 python python-lxml))

gnu/packages/boost.scm

@@ -272,7 +272,7 @@ across a broad spectrum of applications.")
                (base32
                 "13iviiwk1srpw9dmiwabkxv56v0pl0zggjp8zxy1419k5zzfsy34"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments boost)
+     (substitute-keyword-arguments arguments
       ((#:make-flags _ #f)
        #~(list "threading=multi" "link=shared"
               ;; Set the RUNPATH to $libdir so that the libs find each other.
@@ -306,7 +306,7 @@ across a broad spectrum of applications.")
     (inherit boost)
     (name "boost-static")
     (arguments
-     (substitute-keyword-arguments (package-arguments boost)
+     (substitute-keyword-arguments arguments
        ((#:make-flags flags)
         #~(cons "link=static" (delete "link=shared" #$flags)))))))
 
@@ -324,7 +324,7 @@ across a broad spectrum of applications.")
                (base32
                 "1jj1aai5rdmd72g90a3pd8sw9vi32zad46xv5av8fhnr48ir6ykj"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments boost)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags _ #~'())
         #~(let ((icu (dirname (dirname (search-input-file
                                         %build-inputs "bin/uconv")))))
@@ -358,7 +358,7 @@ across a broad spectrum of applications.")
        ((#:make-flags make-flags)
         #~(cons* "--without-python" #$make-flags))))
     (inputs
-     (modify-inputs (package-inputs boost)
+     (modify-inputs inputs
        (delete "python-minimal-wrapper")))
     (properties '((hidden? . #t)))))
 
@@ -367,7 +367,7 @@ across a broad spectrum of applications.")
     (inherit boost-1.83)
     (name "boost-numpy")
     (native-inputs
-     (modify-inputs (package-native-inputs boost)
+     (modify-inputs native-inputs
        (append python-numpy-1)))))
 
 (define-public boost-with-numpy
@@ -375,7 +375,7 @@ across a broad spectrum of applications.")
     (inherit boost)
     (name "boost-with-numpy")
     (native-inputs
-     (modify-inputs (package-native-inputs boost)
+     (modify-inputs native-inputs
        (append python-numpy)))
     (synopsis "Boost C++ libraries with inclusion of Boost.NumPy")))
 
@@ -449,10 +449,10 @@ signals and slots system.")
     (inherit boost)
     (name "boost-mpi")
     (inputs
-     (modify-inputs (package-inputs boost)
+     (modify-inputs inputs
        (append openmpi)))
     (arguments
-     (substitute-keyword-arguments (package-arguments boost)
+     (substitute-keyword-arguments arguments
        ((#:phases phases)
         #~(modify-phases #$phases
             (add-after 'configure 'update-jam
@@ -469,7 +469,7 @@ signals and slots system.")
     (inherit boost-mpi)
     (name "boost-mpi-numpy")
     (inputs
-     (modify-inputs (package-inputs boost-mpi)
+     (modify-inputs inputs
        (append python-numpy)))
     (synopsis "Boost C++ libraries with inclusion of Boost.MPI and Boost.NumPy")))
 

gnu/packages/bootloaders.scm

@@ -312,13 +312,13 @@ menu to select one of the installed operating systems.")
     (inherit grub-pc)
     (name "grub-minimal")
     (inputs
-     (modify-inputs (package-inputs grub-pc)
+     (modify-inputs inputs
        (delete "lvm2" "mdadm" "fuse" "console-setup")))
     (native-inputs
-     (modify-inputs (package-native-inputs grub)
+     (modify-inputs native-inputs
        (delete "help2man" "texinfo" "parted" "qemu" "qemu-minimal" "xorriso")))
     (arguments
-     (substitute-keyword-arguments (package-arguments grub-pc)
+     (substitute-keyword-arguments arguments
        ((#:tests? _ #t) #f)
        ((#:phases phases #~%standard-phases)
         #~(modify-phases #$phases
@@ -338,7 +338,7 @@ menu to select one of the installed operating systems.")
     (inherit base)
     (synopsis "GRand Unified Boot loader (Coreboot payload version)")
     (arguments
-     (substitute-keyword-arguments (package-arguments base)
+     (substitute-keyword-arguments arguments
        ((#:phases phases #~%standard-phases)
         #~(modify-phases #$phases
             (add-before 'check 'disable-broken-tests
@@ -401,7 +401,7 @@ menu to select one of the installed operating systems.")
     (inherit base)
     (synopsis "GRand Unified Boot loader (UEFI version)")
     (inputs
-     (modify-inputs (package-inputs base)
+     (modify-inputs inputs
        (prepend efibootmgr mtools)))
     (native-inputs
      (cond ((or (target-x86-64?)
@@ -409,7 +409,7 @@ menu to select one of the installed operating systems.")
                 (target-aarch64?)
                 (target-arm32?))
             ;; We add the firmware needed to run the tests.
-            (modify-inputs (package-native-inputs base)
+            (modify-inputs native-inputs
               (prepend
                 (cond ((target-x86-64?) ovmf-x86-64)
                       ((target-x86-32?) ovmf-i686)
@@ -419,10 +419,10 @@ menu to select one of the installed operating systems.")
            (else
             ;; The tests are skipped in this package so we remove some
             ;; test dependencies.
-            (modify-inputs (package-native-inputs base)
+            (modify-inputs native-inputs
               (delete "parted" "qemu-minimal" "xorriso")))))
     (arguments
-     (substitute-keyword-arguments (package-arguments base)
+     (substitute-keyword-arguments arguments
        ((#:tests? _ #f) (and (not (%current-target-system))
                              (this-package-native-input "qemu-minimal")))
        ((#:configure-flags flags #~'())
@@ -497,7 +497,7 @@ menu to select one of the installed operating systems.")
     (name "grub-efi32")
     (synopsis "GRand Unified Boot loader (UEFI 32bit version)")
     (arguments
-     (substitute-keyword-arguments (package-arguments grub-efi)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags #~'())
         #~(cons* #$@(cond ((target-x86?)
                            #~("--target=i386"))
@@ -554,10 +554,10 @@ menu to select one of the installed operating systems.")
     (native-inputs
      (cond
        ((target-x86-64?)
-        (modify-inputs (package-native-inputs grub-efi)
+        (modify-inputs native-inputs
           (replace "ovmf-x86-64" ovmf-i686)))
         ((target-aarch64?)
-         (modify-inputs (package-native-inputs grub-efi)
+         (modify-inputs native-inputs
            (prepend
             (cross-gcc "arm-linux-gnueabihf")
             (cross-binutils "arm-linux-gnueabihf"))
@@ -587,7 +587,7 @@ menu to select one of the installed operating systems.")
     (package
       (inherit base)
       (arguments
-       (substitute-keyword-arguments (package-arguments base)
+       (substitute-keyword-arguments arguments
          ;; Running the tests isn't supported for this grub platform.
          ((#:tests? _ #t) #f)))
       (synopsis "GRand Unified Boot loader (u-boot version)")
@@ -604,10 +604,10 @@ menu to select one of the installed operating systems.")
     (name "grub-hybrid")
     (synopsis "GRand Unified Boot loader (hybrid version)")
     (inputs
-     (modify-inputs (package-inputs grub-efi)
+     (modify-inputs inputs
        (prepend grub)))
     (arguments
-     (substitute-keyword-arguments (package-arguments grub-efi)
+     (substitute-keyword-arguments arguments
        ((#:modules modules `((guix build utils)
                              (guix build gnu-build-system)))
         `((ice-9 ftw) ,@modules))
@@ -930,7 +930,7 @@ also initializes the boards (RAM etc).")
                                   (string-append "infodir=" info-dir)
                                   make-flags))))))))
     (native-inputs
-     (modify-inputs (package-native-inputs u-boot)
+     (modify-inputs native-inputs
        (append fontconfig
                python-sphinx
                python-sphinx-prompt
@@ -948,12 +948,12 @@ Info manual.")))
     (name "u-boot-tools")
     (native-inputs
      (if (string-match "^x86_64-linux" (%current-system))
-         (modify-inputs (package-native-inputs u-boot)
+         (modify-inputs native-inputs
                           (prepend python-filelock
                                    python-pycryptodomex
                                    python-pytest
                                    python-pytest-xdist))
-           (modify-inputs (package-native-inputs u-boot)
+           (modify-inputs native-inputs
                           (prepend python-filelock
                                    python-pycryptodomex))))
     (inputs (list gnutls ncurses/tinfo))
@@ -1176,7 +1176,7 @@ U-Boot must be used."
                        (package-description u-boot)))
       (build-system gnu-build-system)
       (arguments
-       (substitute-keyword-arguments (package-arguments u-boot)
+       (substitute-keyword-arguments arguments
          ((#:target _ #f)
           (and (not (native-build?)) triplet))
          ((#:modules modules '())
@@ -1277,13 +1277,13 @@ CONFIG_TOOLS_KWBIMAGE=n"))))
     (package
       (inherit base)
       (arguments
-       (substitute-keyword-arguments (package-arguments base)
+       (substitute-keyword-arguments arguments
          ((#:phases phases)
           #~(modify-phases #$phases
               (add-after 'unpack 'set-environment
                 (lambda* (#:key inputs #:allow-other-keys)
                   (setenv "BL31" (search-input-file inputs "/bl31.elf"))))))))
-      (inputs (modify-inputs (package-inputs base)
+      (inputs (modify-inputs inputs
                 (append (match soc
                           ('rk3588 arm-trusted-firmware-rk3588)
                           ('rk3399 arm-trusted-firmware-rk3399)
@@ -1317,7 +1317,7 @@ removed so that it fits within common partitioning schemes.")))
     (package
       (inherit base)
       (arguments
-       (substitute-keyword-arguments (package-arguments base)
+       (substitute-keyword-arguments arguments
          ((#:phases phases)
           #~(modify-phases #$phases
               (add-after 'unpack 'set-environment
@@ -1326,10 +1326,10 @@ removed so that it fits within common partitioning schemes.")))
                                  (or native-inputs inputs) "libexec/scp.bin"))
                   (setenv "BL31" (search-input-file inputs "bl31.bin"))))))))
       (native-inputs
-       (modify-inputs (package-native-inputs base)
+       (modify-inputs native-inputs
          (append (force scp-firmware))))
       (inputs
-       (modify-inputs (package-inputs base)
+       (modify-inputs inputs
          (append arm-trusted-firmware-sun50i-a64))))))
 
 (define-public u-boot-orangepi-zero2w
@@ -1338,7 +1338,7 @@ removed so that it fits within common partitioning schemes.")))
     (package
       (inherit base)
       (arguments
-       (substitute-keyword-arguments (package-arguments base)
+       (substitute-keyword-arguments arguments
          ((#:phases phases)
           #~(modify-phases #$phases
               (add-after 'unpack 'set-environment
@@ -1346,7 +1346,7 @@ removed so that it fits within common partitioning schemes.")))
                   (setenv "SCP" "/dev/null")
                   (setenv "BL31" (search-input-file inputs "bl31.bin"))))))))
       (inputs
-       (modify-inputs (package-inputs base)
+       (modify-inputs inputs
          ;; The Zero 2W uses the slightly revised Allwinner H618.
          (append arm-trusted-firmware-sun50i-h616))))))
 
@@ -1445,7 +1445,7 @@ Documentation} for more information (for example by running @samp{info
   (package
     (inherit base)
     (arguments
-     (substitute-keyword-arguments (package-arguments base)
+     (substitute-keyword-arguments arguments
        ((#:phases phases '%standard-phases)
         #~(modify-phases #$phases
             (add-after 'install 'symlink-u-boot-command
@@ -1455,7 +1455,7 @@ Documentation} for more information (for example by running @samp{info
                 (symlink (search-input-file outputs "libexec/u-boot")
                          (string-append #$output "/bin/u-boot"))))))))
     ;; cert-to-efi-sig-list from efitools creates the EFI capsule ESL.
-    (inputs (modify-inputs (package-inputs base)
+    (inputs (modify-inputs inputs
               (append efitools sdl2)))))
 
 (define-public u-boot-sifive-unleashed
@@ -1463,7 +1463,7 @@ Documentation} for more information (for example by running @samp{info
     (package
       (inherit base)
       (arguments
-       (substitute-keyword-arguments (package-arguments base)
+       (substitute-keyword-arguments arguments
          ((#:phases phases)
           #~(modify-phases #$phases
               (add-after 'unpack 'set-environment
@@ -1471,7 +1471,7 @@ Documentation} for more information (for example by running @samp{info
                   (setenv "OPENSBI" (search-input-file inputs
                                                        "fw_dynamic.bin"))))))))
       (inputs
-       (modify-inputs (package-inputs base)
+       (modify-inputs inputs
          (append opensbi-generic))))))
 
 (define-public u-boot-sifive-unmatched
@@ -1479,7 +1479,7 @@ Documentation} for more information (for example by running @samp{info
     (package
       (inherit base)
       (arguments
-       (substitute-keyword-arguments (package-arguments base)
+       (substitute-keyword-arguments arguments
          ((#:phases phases)
           #~(modify-phases #$phases
               (add-after 'unpack 'set-environment
@@ -1487,7 +1487,7 @@ Documentation} for more information (for example by running @samp{info
                   (setenv "OPENSBI" (search-input-file inputs
                                                        "fw_dynamic.bin"))))))))
       (inputs
-       (modify-inputs (package-inputs base)
+       (modify-inputs inputs
          (append opensbi-generic))))))
 
 (define-public u-boot-starfive-visionfive2
@@ -1498,7 +1498,7 @@ Documentation} for more information (for example by running @samp{info
     (package
       (inherit base)
       (arguments
-       (substitute-keyword-arguments (package-arguments base)
+       (substitute-keyword-arguments arguments
          ((#:phases phases)
           #~(modify-phases #$phases
               (add-after 'unpack 'set-environment
@@ -1511,7 +1511,7 @@ Documentation} for more information (for example by running @samp{info
                                 (string-append #$output
                                                "/libexec/spl"))))))))
       (inputs
-       (modify-inputs (package-inputs base)
+       (modify-inputs inputs
          (append opensbi-for-visionfive2))))))
 
 (define-public u-boot-rock64-rk3328
@@ -1676,7 +1676,7 @@ grub-efi-netboot-removable-bootloader.")
                  (base32
                   "01mja33351hkcs59rmfvppqlxqw4rh9gng7a7hx2cfspqwh2y6kr"))))
       (arguments
-       (substitute-keyword-arguments (package-arguments u-boot)
+       (substitute-keyword-arguments arguments
          ((#:phases phases '%standard-phases)
           #~(modify-phases #$phases
               (add-after 'unpack 'patch-u-boot
@@ -1762,7 +1762,7 @@ grub-efi-netboot-removable-bootloader.")
                   (symlink (string-append #$output "/bin/fw_printenv")
                            (string-append #$output "/bin/fw_setenv"))))))))
       (native-inputs
-       (modify-inputs (package-native-inputs u-boot)
+       (modify-inputs native-inputs
          (delete "dtc"))))))            ;otherwise the build fails
 
 ;;; Note: the default cross-build of this package is currently broken on
@@ -1803,7 +1803,7 @@ For more information, refer to
     (package
       (inherit base)
       (arguments
-       (substitute-keyword-arguments (package-arguments base)
+       (substitute-keyword-arguments arguments
          ((#:phases phases '%standard-phases)
           #~(modify-phases #$phases
               (add-after 'patch-u-boot 'set-default-fdt-file
@@ -2031,10 +2031,10 @@ the features of iPXE without the hassle of reflashing.")
     (native-inputs
      ;; QEMU uses a 64-bit UEFI firmware.
      (if (target-x86-64?)
-         (modify-inputs (package-native-inputs ipxe)
+         (modify-inputs native-inputs
            (prepend edk2-tools))
          (if (target-64bit?)
-           (modify-inputs (package-native-inputs ipxe)
+           (modify-inputs native-inputs
              (prepend edk2-tools
                       (cross-gcc "x86_64-linux-gnu")
                       (cross-binutils "x86_64-linux-gnu")))
@@ -2044,10 +2044,10 @@ the features of iPXE without the hassle of reflashing.")
                      binutils
                      (name "binutils-64-bit-bfd")
                      (arguments
-                       (substitute-keyword-arguments (package-arguments binutils)
+                       (substitute-keyword-arguments arguments
                         ((#:configure-flags flags ''())
                          #~(cons* "--enable-64-bit-bfd" #$flags)))))))
-             (modify-inputs (package-native-inputs ipxe)
+             (modify-inputs native-inputs
                (prepend edk2-tools
                         (make-ld-wrapper "ld-wrapper-64-bit-bfd"
                                          #:binutils binutils)
@@ -2066,7 +2066,7 @@ the features of iPXE without the hassle of reflashing.")
               ("rtl8139"     . ("10ec" . "8139"))
               ("virtio"      . ("1af4" . "1000"))
               ("vmxnet3"     . ("15ad" . "07b0")))))
-       (substitute-keyword-arguments (package-arguments ipxe)
+       (substitute-keyword-arguments arguments
          ((#:modules modules)
           `((ice-9 match) ,@modules))
          ((#:make-flags flags)

gnu/packages/bqn.scm

@@ -295,7 +295,7 @@ by APL.")
                   (install-file "libcbqn.so" lib)
                   (install-file "include/bqnffi.h" include))))))))
     (native-inputs (list cbqn-bootstrap libffi))
-    (inputs (modify-inputs (package-inputs cbqn-bootstrap)
+    (inputs (modify-inputs inputs
               (prepend bqn-sources)))
     (license (append (package-license cbqn-bootstrap)
                      (list license:isc   ;Singeli module

gnu/packages/build-tools.scm

@@ -537,7 +537,7 @@ other lower-level build files.")
                (base32
                 "0q287af75d6w3c7dbfq7rmbh9isqzs9v30fjpm37lcafs2p7966k"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments premake4)
+     (substitute-keyword-arguments arguments
       ((#:phases phases)
        `(modify-phases ,phases
            (replace 'enter-source

gnu/packages/check.scm

@@ -3283,7 +3283,7 @@ tests.  The output format is JSON.")
 (define-public tidyall
   (package
     (name "tidyall")
-    (version "0.84")
+    (version "0.85")
     (source
      (origin
        (method url-fetch)
@@ -3291,7 +3291,7 @@ tests.  The output format is JSON.")
              "mirror://cpan/authors/id/D/DR/DROLSKY/Code-TidyAll-" version
              ".tar.gz"))
        (sha256
-        (base32 "1xxil8yfbd4nizwaaris07sp441nhx3ixr4qj13l1x6pxphi9h5k"))))
+        (base32 "1hb3xf07my3szlj5z8my95wcbzv0g17q9dsv7kajc1537g6xc0mr"))))
     (build-system perl-build-system)
     (arguments
      (list
@@ -3310,7 +3310,7 @@ tests.  The output format is JSON.")
                          perl-test-fatal
                          perl-test-warnings
                          perl-lib-relative
-                         php))
+                         php-8.4))
     (inputs (list bash-minimal))
     (propagated-inputs (list perl-capture-tiny
                              perl-config-ini
@@ -3689,31 +3689,6 @@ under test to interact with a fake file system instead of the real file
 system.  The code under test requires no modification to work with pyfakefs.")
     (license license:asl2.0)))
 
-(define-public python-aiounittest
-  (package
-    (name "python-aiounittest")
-    (version "1.5.0")
-    (source
-     (origin
-       (method git-fetch) ;no tets in PyPI archive
-       (uri (git-reference
-              (url "https://github.com/kwarunek/aiounittest.git")
-              (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "0266i5z589jh75hjzakvwcqx5shgv5zis8mr70qa209v7jjclzfd"))))
-    (build-system pyproject-build-system)
-    (native-inputs
-     (list python-pytest
-           python-setuptools))
-    (propagated-inputs
-     (list python-wrapt))
-    (home-page "https://github.com/kwarunek/aiounittest")
-    (synopsis "Test asyncio code more easily")
-    (description "Aiounittest is a library that helps write tests using
-asynchronous code in Python (asyncio).")
-    (license license:expat)))
-
 (define-public python-pytest-datadir
   (package
     (name "python-pytest-datadir")

gnu/packages/chemistry.scm

@@ -1005,7 +1005,7 @@ electromagnetic properties for molecules and crystals.")
               ;; Autogenerated code
               (delete-file-recursively "src/autocode")))))
        (arguments
-        (substitute-keyword-arguments (package-arguments base)
+        (substitute-keyword-arguments arguments
           ((#:configure-flags flags '())
            #~(cons "-DBUILD_MARCH_NATIVE=OFF"
                    #$flags))
@@ -1015,7 +1015,7 @@ electromagnetic properties for molecules and crystals.")
           ;; Tests require python-pyscf.
           ((#:tests? _ #f) #f)))
        (native-inputs
-        (modify-inputs (package-native-inputs base)
+        (modify-inputs native-inputs
           (prepend (package-source base))))
        (supported-systems '("x86_64-linux"))
        (home-page "https://github.com/sunqm/qcint")

gnu/packages/chez.scm

@@ -534,7 +534,7 @@ version of Chez Scheme.")
                                        "zuo"))))))
     (build-system gnu-build-system)
     (inputs
-     (modify-inputs (package-inputs chez-scheme-for-racket)
+     (modify-inputs inputs
        (replace "chez-scheme-for-racket-bootstrap-bootfiles"
          chez-scheme-bootstrap-bootfiles)
        ;; for X11 clipboard support in expeditor:
@@ -832,7 +832,7 @@ User's Guix}, among other documents.")
 
 (define-public stex
   (package/inherit stex-bootstrap
-    (inputs (modify-inputs (package-inputs stex-bootstrap)
+    (inputs (modify-inputs inputs
               (prepend chez-scheme)))
     (outputs '("out" "doc"))
     (properties '())))

gnu/packages/chromium.scm

@@ -179,6 +179,10 @@
     "third_party/farmhash" ;Expat
     "third_party/fast_float" ;ASL2.0, Boost1.0, Expat
     "third_party/fdlibm" ;non-copyleft
+    "third_party/federated_compute/src/fcp/base" ;ASL2.0
+    "third_party/federated_compute/src/fcp/confidentialcompute" ;ASL2.0
+    "third_party/federated_compute/src/fcp/protos/confidentialcompute" ;ASL2.0
+    "third_party/federated_compute/src/fcp/protos/federatedcompute" ;ASL2.0
     "third_party/ffmpeg" ; LGPL2.1+, GPL2.0+, Expat and BSD
     "third_party/fft2d" ;non-copyleft
     "third_party/flatbuffers" ;ASL2.0
@@ -241,6 +245,8 @@
     "third_party/nasm" ;BSD-2
     "third_party/nearby" ;ASL2.0
     "third_party/node" ;Expat
+    "third_party/oak/chromium/proto" ;ASL2.0
+    "third_party/oak/chromium/proto/attestation" ;ASL2.0
     "third_party/omnibox_proto" ;BSD-3
     "third_party/one_euro_filter" ;BSD-3
     "third_party/openscreen" ;BSD-3
@@ -366,7 +372,7 @@
   ;; run the Blink performance tests, just remove everything to save ~70MiB.
   '("third_party/blink/perf_tests"))
 
-(define %chromium-version "140.0.7339.207")
+(define %chromium-version "141.0.7390.65")
 (define %ungoogled-revision (string-append %chromium-version "-1"))
 (define %debian-revision (string-append "debian/" %ungoogled-revision))
 
@@ -378,7 +384,7 @@
     (file-name (git-file-name "ungoogled-chromium" %ungoogled-revision))
     (sha256
      (base32
-      "1kmfsb57cqks84i523ryw2l089gl0iq9hgv3sy8r8441b5nv3yn0"))))
+      "1hk4rww2gccly1qv0xnswd77haj02rlza82403dxdjm8fkdfndy6"))))
 
 (define %debian-origin
   (origin
@@ -391,7 +397,7 @@
                                 ((_ version) version))))
     (sha256
      (base32
-      "1hwzxlxs3c0x87rbq3b8p1m2pcjy3b10vyhbia5p3aiqdqgbm97j"))))
+      "06s3kvwb3490xb28n6r3q5n1c0ylsvchiw6s4h1rrp8jqzwjbmc6"))))
 
 (define (origin-file origin file)
   (computed-file
@@ -405,31 +411,31 @@
 (define %debian-patches
   (map debian-patch
        '("bookworm/clang19.patch"
-	 "bookworm/foreach.patch"
-	 "disable/node-version-ck.patch"
-	 "fixes/rust-clanglib.patch"
-	 "system/openjpeg.patch"
-	 ;; adler2 is not part of our rust toolchain, check on next version.
-	 "trixie/adler1.patch"
+         "bookworm/foreach.patch"
+         "disable/node-version-ck.patch"
+         "fixes/gentoo-stylesheet.patch"
+         "fixes/libcpp-headers.patch"
+         "fixes/rust-clanglib.patch"
+         "system/openjpeg.patch"
          ;; Remove after rust is past
          ;; <https://github.com/rust-lang/rust/pull/141061>.
          "trixie/rust-no-alloc-shim.patch")))
 
 (define %guix-patches
   (list (local-file
-	 (assume-valid-file-name
+         (assume-valid-file-name
           (search-patch
            "ungoogled-chromium-extension-search-path.patch")))
-	(local-file
-	 (assume-valid-file-name
-          (search-patch
-	   "ungoogled-chromium-unbundle-icu-target.patch")))
         (local-file
-	 (assume-valid-file-name
+         (assume-valid-file-name
+          (search-patch
+           "ungoogled-chromium-unbundle-icu-target.patch")))
+        (local-file
+         (assume-valid-file-name
           (search-patch
            "ungoogled-chromium-RUNPATH.patch")))
         (local-file
-	 (assume-valid-file-name
+         (assume-valid-file-name
           (search-patch
            "ungoogled-chromium-system-nspr.patch")))))
 
@@ -502,7 +508,7 @@
   (package/inherit opus
     (name "opus+custom")
     (arguments
-     (substitute-keyword-arguments (package-arguments opus)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags ''())
         ;; Opus Custom is an optional extension of the Opus
         ;; specification that allows for unsupported frame
@@ -510,8 +516,8 @@
         `(cons "--enable-custom-modes"
                ,flags))))))
 
-(define lld-as-ld-wrapper-19
-  (make-lld-wrapper lld-19 #:lld-as-ld? #t))
+(define lld-as-ld-wrapper-21
+  (make-lld-wrapper lld-21 #:lld-as-ld? #t))
 
 (define-public ungoogled-chromium
   (package
@@ -525,7 +531,7 @@
                                   %chromium-version "-lite.tar.xz"))
               (sha256
                (base32
-                "0cbfvdlz8wkzyljf9ri9viivf02dikhd286ahzrcv9752y9hj563"))
+                "09iwglswnr6d45zz3zsjw7jpm1xlwwkxlz9h5nlhqxyd933a04fq"))
               (modules '((guix build utils)))
               (snippet (force ungoogled-chromium-snippet))))
     (build-system gnu-build-system)
@@ -546,6 +552,7 @@
               ;; a developer build.
               "is_official_build=true"
               "clang_use_chrome_plugins=false"
+              "use_clang_modules=false"
               "use_custom_libcxx=false" ; support for this is deprecated and to be removed.
               "optimize_webui=false"
               "safe_browsing_use_unrar=false"
@@ -603,7 +610,7 @@
                              "\"")
 
               (string-append "clang_version="
-			     #$(version-major (package-version clang-19)))
+                             #$(version-major (package-version clang-21)))
 
               (string-append "rust_sysroot_absolute=\""
                              (dirname (dirname (search-input-file %build-inputs
@@ -615,11 +622,27 @@
                              "\"")
 
               (string-append "rustc_version=\"rustc "
-			     #$(package-version rust)
-			     ;; These are 'don't care', but chromium's build parses
-			     ;; the whole string as if returned from 'rustc --version'
-			     ;; invokation and fails if it's just the version number.
-			     " (f6e511eec 2024-10-15) (built from a source tarball)\"")
+                             #$(package-version rust)
+                             ;; These are 'don't care', but chromium's build parses
+                             ;; the whole string as if returned from 'rustc --version'
+                             ;; invokation and fails if it's just the version number.
+                             " (f6e511eec 2024-10-15) (built from a source tarball)\"")
+
+              ;; Chromium's build/rust/std/BUILD.gn has a hardcoded
+              ;; list of stdlib rlibs (stdlib_files) that GN uses to
+              ;; declare build outputs.  GN requires static output
+              ;; declarations, so the list must exactly match what
+              ;; rlibs exist in the Rust sysroot.  Chromium's list
+              ;; includes unicode_width because their bundled
+              ;; toolchain (Rust 1.89) ships it as a dependency of
+              ;; getopts 0.2.23.  Our Rust 1.93 has getopts 0.2.24
+              ;; which dropped that dependency, so unicode_width is
+              ;; not in our sysroot.  This GN arg removes it from
+              ;; the list.  (Chromium's own use of unicode_width via
+              ;; codespan-reporting is a separate vendored copy under
+              ;; third_party/rust/chromium_crates_io/ and is
+              ;; unaffected.)
+              "removed_rust_stdlib_libs=[\"unicode_width\"]"
 
               ;; Prefer system libraries.
               "use_system_freetype=true"
@@ -655,13 +678,13 @@
               (let* ((libopenjp2 (search-input-file inputs "lib/libopenjp2.so"))
                      (openjpeg (dirname (dirname libopenjp2)))
                      (compiler-rt-path (dirname
-					(dirname
-					 (search-input-file (or native-inputs inputs)
-							    "/bin/hwasan_symbolize")))))
-		;; This works on top of debian's 'rust-clanglib.patch'.
-		(substitute* "build/config/clang/BUILD.gn"
-		  (("\\$clang_base_path/lib/clang/\\$clang_version")
-		   compiler-rt-path))
+                                        (dirname
+                                         (search-input-file (or native-inputs inputs)
+                                                            "/bin/hwasan_symbolize")))))
+                ;; This works on top of debian's 'rust-clanglib.patch'.
+                (substitute* "build/config/clang/BUILD.gn"
+                  (("\\$clang_base_path/lib/clang/\\$clang_version")
+                   compiler-rt-path))
 
                 (substitute* "third_party/pdfium/BUILD.gn"
                   ;; This include path is added by Debians openjpeg patch.
@@ -710,7 +733,7 @@
                    "include \"curl"))
 
                 ;; Unknown flags as of clang-19, can be removed when building with
-		;; newer clang.
+                ;; newer clang.
                 (substitute* "build/config/compiler/BUILD.gn"
                   (("-gsimple-template-names") ""))
 
@@ -768,7 +791,7 @@
                         (string-append " -stdlib=libc++"
                                        " -Wl,--stats"))
                 (setenv "CLANG_MVERS" #$(version-major
-					 (package-version clang-19)))
+                                         (package-version clang-21)))
                 (setenv "RUSTC_BOOTSTRAP" "1")
 
                 ;; TODO: pre-compile instead. Avoids a race condition.
@@ -875,10 +898,6 @@
                   (symlink "../lib/chromium" exe)
                   (install-file "chromedriver" bin)
 
-                  (for-each (lambda (so)
-                              (install-file so (string-append lib "/swiftshader")))
-                            (find-files "swiftshader" "\\.so$"))
-
                   (wrap-program exe
                     ;; Avoid file manager crash.  See <https://bugs.gnu.org/26593>.
                     `("XDG_DATA_DIRS" ":" prefix (,(string-append gtk "/share")))
@@ -900,13 +919,13 @@
                    '("24" "48" "64" "128" "256")))))))))
     (native-inputs
      (list bison
-           clang-19
-           clang-runtime-19
-           clang-toolchain-19
+           clang-21
+           clang-runtime-21
+           clang-toolchain-21
            gn
            gperf
-           lld-as-ld-wrapper-19
-           llvm-19
+           lld-as-ld-wrapper-21
+           llvm-21
            ninja
            node-lts
            pkg-config

gnu/packages/cinnamon.scm

@@ -159,7 +159,7 @@ cross-DE solutions.")
            python-setproctitle
            python-setuptools
            python-unidecode
-           python-xdg
+           python-xdg-base-dirs
            python-xlib))
     (home-page "https://github.com/linuxmint/python3-xapp")
     (synopsis "Python 3 XApp library")

gnu/packages/cmake.scm

@@ -386,7 +386,7 @@ and workspaces that can be used in the compiler environment of your choice.")
                 "125yhgkmh5ap14w9yyh442manbb7k96dws4pa3hz32qp7njpjn3n"))))
     (outputs '("out" "doc"))
     (arguments
-     (substitute-keyword-arguments (package-arguments cmake-minimal)
+     (substitute-keyword-arguments arguments
        ;; Use cmake-minimal this time.
        ((#:cmake _ #f)
         (if (%current-target-system)
@@ -419,14 +419,14 @@ and workspaces that can be used in the compiler environment of your choice.")
                                     (string-append #$output:doc html))
                   (delete-file-recursively (string-append #$output html)))))))))
     (inputs
-     (modify-inputs (package-inputs cmake-minimal)
+     (modify-inputs inputs
        (prepend ncurses)                ;required for ccmake
        ;; Avoid circular dependency with (gnu packages debug).
        (prepend (module-ref (resolve-interface '(gnu packages debug))
                             'cppdap))))
     ;; Extra inputs required to build the documentation.
     (native-inputs
-     (modify-inputs (package-native-inputs cmake-minimal)
+     (modify-inputs native-inputs
        (append python-sphinx
                texinfo)))))
 

gnu/packages/commencement.scm

@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2012-2025 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2012-2026 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2014 Andreas Enge <andreas@enge.fr>
 ;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
 ;;; Copyright © 2014, 2015, 2017 Mark H Weaver <mhw@netris.org>
@@ -1185,7 +1185,7 @@ ac_cv_c_float_format='IEEE (little-endian)'
                      ("kernel-headers" ,%bootstrap-linux-libre-headers)
                      ,@(%boot-mesboot-core-inputs)))
     (arguments
-     (substitute-keyword-arguments (package-arguments gcc-core-mesboot0)
+     (substitute-keyword-arguments arguments
        ((#:phases phases)
         #~(modify-phases #$phases
             (replace 'setenv
@@ -1231,7 +1231,7 @@ ac_cv_c_float_format='IEEE (little-endian)'
     (name "binutils-mesboot1")
     (native-inputs (%boot-mesboot0-inputs))
     (arguments
-     (substitute-keyword-arguments (package-arguments binutils-mesboot0)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags configure-flags)
         #~(let ((out (assoc-ref %outputs "out")))
             `("--disable-nls" "--disable-shared"
@@ -1441,7 +1441,7 @@ ac_cv_c_float_format='IEEE (little-endian)'
              "1fqqk5zkmdg4vmqzdmip9i42q6b82i3f6yc0n86n9021cr7ms2k9"))))
        ,@(package-native-inputs gcc-core-mesboot1)))
     (arguments
-     (substitute-keyword-arguments (package-arguments gcc-core-mesboot1)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags configure-flags)
         #~(let ((out (assoc-ref %outputs "out")))
             `("--enable-languages=c,c++"
@@ -1572,7 +1572,7 @@ ac_cv_c_float_format='IEEE (little-endian)'
     (native-inputs `(("headers" ,mesboot-headers)
                      ,@(%boot-mesboot3-inputs)))
     (arguments
-     (substitute-keyword-arguments (package-arguments glibc-mesboot0)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags configure-flags)
         #~(let ((out (assoc-ref %outputs "out"))
                 (headers (assoc-ref %build-inputs "headers")))
@@ -1671,7 +1671,7 @@ SHELL := " shell "
                      ,@(%boot-mesboot3-inputs)))
     (arguments
      `(#:validate-runpath? #f ; fails when using --enable-shared
-       ,@(substitute-keyword-arguments (package-arguments glibc-headers-mesboot)
+       ,@(substitute-keyword-arguments arguments
            ((#:make-flags make-flags)
             #~(let ((bash (assoc-ref %build-inputs "bash")))
                 (list (string-append "SHELL=" bash "/bin/sh"))))
@@ -1768,7 +1768,7 @@ exec " gcc "/bin/" program
                      ,@(%boot-mesboot4-inputs)))
     (arguments
      `(#:validate-runpath? #f
-       ,@(substitute-keyword-arguments (package-arguments gcc-mesboot1)
+       ,@(substitute-keyword-arguments arguments
            ((#:configure-flags configure-flags)
             #~(let ((out (assoc-ref %outputs "out"))
                     (glibc (assoc-ref %build-inputs "libc")))
@@ -1954,7 +1954,7 @@ exec " gcc "/bin/" program
        `(("xz" ,xz-mesboot)
          ("sed" ,sed-mesboot)
          ,@(package-native-inputs pkg)))
-      (arguments (substitute-keyword-arguments (package-arguments pkg)
+      (arguments (substitute-keyword-arguments arguments
                    ((#:configure-flags flags ''())
                     `(cons "--disable-year2038" ,flags)))))))
 
@@ -1987,7 +1987,7 @@ exec " gcc "/bin/" program
      `(#:guile ,%bootstrap-guile
        #:implicit-inputs? #f
        #:tests? #f                                ; cannot run "make check"
-       ,@(substitute-keyword-arguments (package-arguments gnu-make)
+       ,@(substitute-keyword-arguments arguments
            ((#:configure-flags flags ''())
             ;; The generated config.status has some problems due to the
             ;; bootstrap environment.  Disable dependency tracking to work
@@ -2090,7 +2090,7 @@ exec " gcc "/bin/" program
        #:guile ,%bootstrap-guile
        ;; The build system assumes we have done a mistake when time_t is 32-bit
        ;; on a 64-bit system.  Ignore that for our bootstrap toolchain.
-       ,@(substitute-keyword-arguments (package-arguments findutils)
+       ,@(substitute-keyword-arguments arguments
            ((#:configure-flags flags ''())
             `(append
                ;; TODO: Figure out exactly with architectures need this.
@@ -2275,7 +2275,7 @@ exec " gcc "/bin/" program
                                                     (remove-triplet-prefix name)))
                                          (scandir "."
                                                   has-triplet-prefix?))))))))
-             (substitute-keyword-arguments (package-arguments binutils)
+             (substitute-keyword-arguments arguments
                ((#:configure-flags cf)
                 #~(append (list #$(string-append "--target="
                                                  (boot-triplet))
@@ -2303,7 +2303,7 @@ exec " gcc "/bin/" program
 
          ,@(match (%current-system)
              ((or "i686-linux" "x86_64-linux")
-              (substitute-keyword-arguments (package-arguments lib)
+              (substitute-keyword-arguments arguments
                 ((#:phases phases)
                  #~(modify-phases #$phases
                      (add-after 'unpack 'workaround-wrapper-bug
@@ -2336,7 +2336,7 @@ exec " gcc "/bin/" program
          ;; XXX: libstdc++.so NEEDs ld.so for some reason.
          #:validate-runpath? #f
 
-         ,@(substitute-keyword-arguments (package-arguments lib)
+         ,@(substitute-keyword-arguments arguments
              ((#:configure-flags flags)
               (if (target-hurd64?)
                   #~(cons* "--disable-shared"
@@ -2405,7 +2405,7 @@ exec " gcc "/bin/" program
                   (ice-9 regex)
                   (srfi srfi-1)
                   (srfi srfi-26))
-      (substitute-keyword-arguments (package-arguments gcc)
+      (substitute-keyword-arguments arguments
         ((#:configure-flags flags)
          #~(append (list #$(string-append "--target=" (boot-triplet))
 
@@ -2557,7 +2557,7 @@ exec " gcc "/bin/" program
 
                    ;; At the very least, this must not depend on GCC & co.
                    #:disallowed-references (list %bootstrap-binutils))
-             (substitute-keyword-arguments (package-arguments perl)
+             (substitute-keyword-arguments arguments
                ((#:phases phases)
                 #~(modify-phases #$phases
                     ;; Pthread support is missing in the bootstrap compiler
@@ -2672,7 +2672,7 @@ memoized as a function of '%current-system'."
     (arguments
      `(#:guile ,%bootstrap-guile
        #:implicit-inputs? #f
-       ,@(substitute-keyword-arguments (package-arguments linux-libre-headers)
+       ,@(substitute-keyword-arguments arguments
            ((#:phases phases)
             `(modify-phases ,phases
                (add-after 'unpack 'lower-version-requirements
@@ -2762,7 +2762,7 @@ memoized as a function of '%current-system'."
                             gnumach-headers-boot0))
        (inputs (list flex-boot0 gnumach-headers-boot0))
        (arguments
-        (substitute-keyword-arguments (package-arguments mig)
+        (substitute-keyword-arguments arguments
           ((#:configure-flags flags '())
            #~(list (string-append "LDFLAGS=-Wl,-rpath="
                                   #$(this-package-native-input "flex")
@@ -2852,7 +2852,7 @@ memoized as a function of '%current-system'."
      `(#:implicit-inputs? #f
        #:guile ,%bootstrap-guile
 
-       ,@(substitute-keyword-arguments (package-arguments expat)
+       ,@(substitute-keyword-arguments arguments
            ((#:configure-flags flags ''())
             ;; Since we're not passing the right -Wl,-rpath flags, build the
             ;; static library to avoid RUNPATH validation failure.
@@ -2986,7 +2986,7 @@ memoized as a function of '%current-system'."
        `(#:guile ,%bootstrap-guile
          #:implicit-inputs? #f
 
-         ,@(substitute-keyword-arguments (package-arguments libc)
+         ,@(substitute-keyword-arguments arguments
              ((#:configure-flags flags)
               `(append (list ,(string-append "--host=" (boot-triplet))
                              ,(string-append "--build="
@@ -3104,7 +3104,7 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%"
      `(#:implicit-inputs? #f
        #:guile ,%bootstrap-guile
 
-       ,@(substitute-keyword-arguments (package-arguments static-bash)
+       ,@(substitute-keyword-arguments arguments
            ((#:configure-flags flags #~'())
             ;; Add a '-L' flag so that the pseudo-cross-ld of
             ;; BINUTILS-BOOT0 can find libc.a.
@@ -3236,7 +3236,7 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%"
                                           ,@(if (target-powerpc? (%current-system))
                                                 (list static-bash-for-glibc)
                                                 '())))
-             (substitute-keyword-arguments (package-arguments binutils)
+             (substitute-keyword-arguments arguments
                ((#:configure-flags flags #~'())
                 ;; For gprofng, tell the build system where to look for libstdc++.
                 #~(append #$flags
@@ -3301,6 +3301,7 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%"
                   (srfi srfi-26)
                   ,@%default-gnu-modules)
 
+      ;; TODO: Consider writing 'arguments' instead of (package-arguments gcc).
       (substitute-keyword-arguments (package-arguments gcc)
         ((#:make-flags flags)
          ;; Since $LIBRARY_PATH is not honored, add the relevant flags.
@@ -3427,10 +3428,10 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%"
     (package
       (inherit parent)
       (inputs
-       (modify-inputs (package-inputs parent)
+       (modify-inputs inputs
          (delete "libxcrypt")))
       (arguments
-       (substitute-keyword-arguments (package-arguments parent)
+       (substitute-keyword-arguments arguments
          ((#:phases phases #~%standard-phases)
           #~(modify-phases #$phases
               (delete 'add-libxcrypt-reference-pkgconfig))))))))

gnu/packages/compression.scm

@@ -923,7 +923,7 @@ C, forked from the zip manipulation library found in the zlib distribution.")
   (package/inherit minizip-ng
     (name "minizip-ng-compat")
     (arguments
-     (substitute-keyword-arguments (package-arguments minizip-ng)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         #~(delete "-DMZ_COMPAT=OFF" #$flags))))))
 
@@ -3148,7 +3148,7 @@ exported by the zlib library.")
                 "0672q35vjrpakmsr1gwj9k5fwv5ihzhahm19bq4y74wqpn91p7fw"))
               (patches (search-patches "miniz-for-pytorch.patch"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments miniz)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags '())
         ;; The changes break the examples.
         `(cons "-DBUILD_EXAMPLES=OFF" ,flags))))

gnu/packages/cpp.scm

@@ -307,7 +307,7 @@ navigation, and handling of incoming packets.")
 (define-public castxml
 (package
   (name "castxml")
-  (version "0.6.4")
+  (version "0.7.0")
   (source (origin
             (method git-fetch)
             (uri
@@ -316,7 +316,7 @@ navigation, and handling of incoming packets.")
               (commit (string-append "v" version))))
             (file-name (git-file-name name version))
             (sha256
-             (base32 "0l5ys9zmllfgwhjrm897akbsf38iswfcarhxg27xfhiy0bmzcwsg"))))
+             (base32 "03l9nyd871c5gk5cdp8fbgyszps5989rhw12wap8dgmr6s6jv3rj"))))
   (build-system cmake-build-system)
   (arguments
    (list
@@ -327,7 +327,7 @@ navigation, and handling of incoming packets.")
                       #$(version-major
                          (package-version (this-package-native-input "clang")))))))
   (inputs (list libffi))
-  (native-inputs (list clang-17 llvm-17))
+  (native-inputs (list clang-21 llvm-21))
   (home-page "https://github.com/CastXML/CastXML")
   (synopsis "C-family abstract syntax tree XML output")
   (description "CastXML is a C-family abstract syntax tree XML output tool.
@@ -2290,7 +2290,7 @@ Google's C++ code base.")
                 (patches
                  (search-patches "abseil-cpp-20220623.1-no-kepsilon-i686.patch"))))
       (arguments
-       (substitute-keyword-arguments (package-arguments base)
+       (substitute-keyword-arguments arguments
          ((#:configure-flags flags #~'())
           (if (target-riscv64?)
               #~(cons* "-DCMAKE_SHARED_LINKER_FLAGS=-latomic"
@@ -2312,7 +2312,7 @@ Google's C++ code base.")
                                       "absl_symbolize_test|absl_log_format_test")))))
                      #~())))))
       (native-inputs
-       (modify-inputs (package-native-inputs base)
+       (modify-inputs native-inputs
          (replace "googletest" googletest))))))
 
 (define-public abseil-cpp-20250127
@@ -2337,7 +2337,7 @@ Google's C++ code base.")
   (hidden-package
    (package/inherit base
      (arguments
-      (substitute-keyword-arguments (package-arguments base)
+      (substitute-keyword-arguments arguments
         ((#:configure-flags flags)
          #~(cons* #$(string-append "-DCMAKE_CXX_STANDARD="
                                    (number->string version))
@@ -2348,7 +2348,7 @@ Google's C++ code base.")
     (hidden-package
      (package/inherit base
        (arguments
-        (substitute-keyword-arguments (package-arguments base)
+        (substitute-keyword-arguments arguments
           ((#:configure-flags flags)
            #~(cons* "-DCMAKE_POSITION_INDEPENDENT_CODE=ON"
                     (delete "-DBUILD_SHARED_LIBS=ON" #$flags)))))))))
@@ -3172,12 +3172,11 @@ from C++.")
     (arguments
      `(#:configure-flags (list "--disable-static"
                                ;;"--with-external-boost"
-                               "--with-external-expat")))
+                               "--with-external-expat")
+       #:make-flags (list "CXXFLAGS=-std=c++11 -O2 -g")))
     (inputs
      (list ;;("boost ,boost)
            expat))
-    (native-inputs
-     (list gcc-10)) ;does not build with gcc-12
     (home-page "https://www.codesynthesis.com/projects/libcutl/")
     (synopsis "C++ utility library with generic and independent components")
     (description "libcutl is a C++ utility library.  It contains a collection
@@ -3208,7 +3207,8 @@ pointers, containers, compiler building blocks, etc.")
                   (guix build utils))
        #:make-flags (list (string-append "--include-dir="
                                          (assoc-ref %build-inputs "build")
-                                         "/include/"))
+                                         "/include/")
+                          "cxx_options=-std=c++11 -O2 -g")
        #:phases
        (modify-phases %standard-phases
          (delete 'configure)
@@ -3222,7 +3222,7 @@ pointers, containers, compiler building blocks, etc.")
                        #:include-regexp ("\\.so$")))
                     args))))))
     (native-inputs
-     (list build gcc-10))
+     (list build))
     (inputs
      `(("libcutl" ,libcutl)
        ("libxerces-c" ,xerces-c)))
@@ -3252,7 +3252,8 @@ and a traversal mechanism.")
                                          (assoc-ref %build-inputs "build")
                                          "/include")
                           (string-append "install_prefix="
-                                         (assoc-ref %outputs "out")))
+                                         (assoc-ref %outputs "out"))
+                          "cxx_options=-std=c++11 -O2 -g")
        #:phases
        (modify-phases %standard-phases
          (add-after 'unpack 'patch
@@ -3270,7 +3271,7 @@ and a traversal mechanism.")
                 (string-append "edge_dispatcher::" all)))))
          (delete 'configure))))
     (native-inputs
-     (list build gcc-10))
+     (list build))
     (inputs
      (list libcutl))
     (synopsis "C++ Command Line Interface (CLI) definition language")
@@ -3302,7 +3303,8 @@ documentation.")
                                          (assoc-ref %build-inputs "build")
                                          "/include/")
                           (string-append "install_prefix="
-                                         (assoc-ref %outputs "out")))
+                                         (assoc-ref %outputs "out"))
+                          "cxx_options=-std=c++11 -O2 -g")
        #:phases (modify-phases %standard-phases
                   (add-after 'install 'move-doc
                     (lambda* (#:key outputs #:allow-other-keys)
@@ -3314,7 +3316,7 @@ documentation.")
                                                     ,version)))))
                   (delete 'configure))))
     (native-inputs
-     (list build cli gcc-10))
+     (list build cli))
     (inputs
      (list libcutl libnsl libxsd-frontend))
     (propagated-inputs
@@ -3381,7 +3383,7 @@ syntax with variables, conditions, functions and more.")
     (build-system pyproject-build-system)
     (arguments
      (list #:test-flags #~(list "--ignore=case_studies/")))
-    (native-inputs (modify-inputs (package-native-inputs jsonnet)
+    (native-inputs (modify-inputs native-inputs
                      (append python-pyyaml python-pytest python-setuptools)))
     (synopsis "Python bindings for Jsonnet, the data templating language")
     (description "This package provides a Python library named @code{_jsonnet}
@@ -3810,7 +3812,7 @@ parsing with only a single memory allocation.")
                          "sajson-for-gemmi-numbers-as-strings.patch")
                         (origin-patches (package-source sajson))))))
     (arguments
-     (substitute-keyword-arguments (package-arguments sajson)
+     (substitute-keyword-arguments arguments
        ;; This is a modified version used in gemmi, in which numbers are kept
        ;; as strings. Building the tests fails with the modification.
        ((#:tests? _ #f) #f)))
@@ -4059,7 +4061,7 @@ common controls and win32-style extensions.")
     (inherit swell)
     (name "swell-colortheme")
     (arguments
-     (substitute-keyword-arguments (package-arguments swell)
+     (substitute-keyword-arguments arguments
        ((#:make-flags flags)
         #~(append #$flags '("libSwell.colortheme")))
        ((#:phases phases)
@@ -4083,7 +4085,7 @@ programs that use @code{swell}.")))
     (inherit swell)
     (name "jnetlib")
     (arguments
-     (substitute-keyword-arguments (package-arguments swell)
+     (substitute-keyword-arguments arguments
        ((#:tests? _ #t) #t)
        ((#:phases phases)
         #~(modify-phases #$phases
@@ -4116,7 +4118,7 @@ features:
     (inherit swell)
     (name "eel2")
     (arguments
-     (substitute-keyword-arguments (package-arguments swell)
+     (substitute-keyword-arguments arguments
        ((#:tests? _ #t) #f) ;no tests
        ;; FIXME: Remove this flag when this issue will be fixed:
        ;; https://github.com/justinfrankel/WDL/issues/32.
@@ -4185,7 +4187,7 @@ features:
            ladspa
            libx11
            pkg-config
-           webkitgtk-with-libsoup2))
+           webkitgtk-for-gtk3))
     (inputs (list fontconfig freetype libjpeg-turbo libpng))
     (home-page "https://juce.com")
     (synopsis "C++ application framework for audio plugins and plugin hosts")
@@ -4675,7 +4677,7 @@ on @code{.po} files and doesn't need @code{.mo} files pre-generated.")
 (define-public tinygettext-with-sdl2
   (package/inherit tinygettext
     (arguments
-     (substitute-keyword-arguments (package-arguments tinygettext)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         #~(list "-DTINYGETTEXT_WITH_SDL=ON" "-DBUILD_TESTS=ON"))))
     (native-inputs (list pkg-config tinycmmc))

gnu/packages/cross-base.scm

@@ -79,7 +79,7 @@
   (package (inherit p)
     (name (string-append (package-name p) "-cross-" target))
     (arguments
-     (substitute-keyword-arguments (package-arguments p)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags #~'())
         #~(cons #$(string-append "--target=" target)
                 #$flags))))))
@@ -438,7 +438,7 @@ target that libc."
     (name (string-append (package-name gnumach-headers)
                          "-cross-" target))
     (arguments
-     (substitute-keyword-arguments (package-arguments gnumach-headers)
+     (substitute-keyword-arguments arguments
        ((#:phases phases #~%standard-phases)
         #~(modify-phases #$phases
             ;; Cheat by setting the host_cpu variable manually, since using
@@ -457,7 +457,7 @@ target that libc."
                          "x86_64")))))))))))
     (supported-systems %supported-systems)
     (native-inputs
-     (modify-inputs (package-native-inputs gnumach-headers)
+     (modify-inputs native-inputs
        (prepend xgcc xbinutils)))))
 
 (define* (cross-mig target
@@ -474,7 +474,7 @@ the base compiler.  Use XBINUTILS as the associated cross-Binutils."
     (inherit mig)
     (name (string-append "mig-cross"))
     (arguments
-     (substitute-keyword-arguments (package-arguments mig)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags #~'())
         #~(list #$(string-append "--target=" target)))
        ((#:tests? _ #f)
@@ -490,10 +490,10 @@ the base compiler.  Use XBINUTILS as the associated cross-Binutils."
                             '#$%gcc-cross-include-paths))))))))
     (propagated-inputs
      (list xgnumach-headers))
-    (inputs (modify-inputs (package-inputs mig)
+    (inputs (modify-inputs inputs
               (delete "gnumach-headers")))
     (native-inputs
-     (modify-inputs (package-native-inputs mig)
+     (modify-inputs native-inputs
        (prepend xgcc xbinutils)))))
 
 (define* (cross-kernel-headers* target
@@ -543,7 +543,7 @@ the base compiler.  Use XBINUTILS as the associated cross-Binutils."
                            "-cross-" target))
 
       (arguments
-       (substitute-keyword-arguments (package-arguments hurd-headers)
+       (substitute-keyword-arguments arguments
          ((#:configure-flags flags)
           `(cons* ,(string-append "--build=" (%current-system))
                   ,(string-append "--host=" target)

gnu/packages/crypto.scm

@@ -843,7 +843,7 @@ data on your platform, so the seed itself will be as random as possible.
 (define-public qatlib
   (package
     (name "qatlib")
-    (version "25.08.0")
+    (version "26.02.0")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -852,17 +852,10 @@ data on your platform, so the seed itself will be as random as possible.
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "1hbhrj0wlr68by7gdvsw4nh35rwg4yngn3m7awkx799pbqsw4iyc"))))
+                "1ly4wjw7mpvgn0270z3242bng7ailvx99mhisymf4qdhq0cvz8n2"))))
     (build-system gnu-build-system)
     (arguments
-     (list #:configure-flags #~(list "--disable-static") ;avoid large .a
-           #:phases
-           #~(modify-phases %standard-phases
-               (replace 'bootstrap
-                 (lambda _
-                   ;; The script has a broken shebang (see:
-                   ;; <https://github.com/intel/qatlib/issues/128>).
-                   (invoke "sh" "autogen.sh"))))))
+     (list #:configure-flags #~(list "--disable-static"))) ;avoid large .a
     (native-inputs (list autoconf autoconf-archive automake libtool nasm))
     (inputs (list numactl openssl zlib))
     (propagated-inputs (list openssl))  ;in 'Requires' of libqat.pc
@@ -884,7 +877,7 @@ QuickAssist APIs and sample codes.")
 (define-public crypto++
   (package
     (name "crypto++")
-    (version "8.8.0")
+    (version "8.9.0")
     (source (origin
               (method git-fetch)
               (uri
@@ -896,7 +889,7 @@ QuickAssist APIs and sample codes.")
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "11gfnsqbb531zwgzpm0x9hsgshzcj1j049vg0zqsaqf8lvky03l6"))))
+                "153jl84s26nw85vw7hlc84plpja7adq6q2cdydr7g2b445yrlpqx"))))
     (build-system gnu-build-system)
     (arguments
      (list #:make-flags
@@ -1297,7 +1290,7 @@ Features:
 (define-public libsecp256k1-bitcoin-cash
   (package
     (name "libsecp256k1-bitcoin-cash")
-    (version "0.22.1")
+    (version "0.27.1")
     (source
      (origin
        (method git-fetch)
@@ -1306,7 +1299,7 @@ Features:
              (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "1rnif3iny6pz1r3g69bagzr342mm3x0v66b60csnmm1rg44bd5v1"))))
+        (base32 "00g7zdwdk6ij1wv2l3wf389njq3svg0zz09i1kq77sk7p9larnfs"))))
     (build-system gnu-build-system)
     (native-inputs
      (list autoconf automake libtool))
@@ -1776,7 +1769,7 @@ SunMD5, sha1crypt, NT, bsdicrypt, bigcrypt, and descrypt.")
    (package/inherit libxcrypt
      (name "libxcrypt-without-failure-tokens")
      (arguments
-      (substitute-keyword-arguments (package-arguments libxcrypt)
+      (substitute-keyword-arguments arguments
         ((#:configure-flags flags #~'())
          #~(cons* "--disable-failure-tokens" #$flags)))))))
 

gnu/packages/cryptsetup.scm

@@ -122,7 +122,7 @@ files).  This assumes LIBRARY uses Libtool."
     (inherit library)
     (name (string-append (package-name library) "-static"))
     (arguments
-     (substitute-keyword-arguments (package-arguments library)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags #~'())
         (let* ((build-system (package-build-system library))
                (static-flags (cond ((eq? build-system cmake-build-system)
@@ -138,7 +138,7 @@ files).  This assumes LIBRARY uses Libtool."
     (inherit cryptsetup-minimal)
     (name "cryptsetup-static")
     (arguments
-     (substitute-keyword-arguments (package-arguments cryptsetup-minimal)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags ''())
         `(cons* "--disable-shared"
                 "--enable-static-cryptsetup"

gnu/packages/cups.scm

@@ -777,7 +777,7 @@ should only be used as part of the Guix cups-pk-helper service.")
   (package/inherit hplip
     (name "hplip-minimal")
     (arguments
-     (substitute-keyword-arguments (package-arguments hplip)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags cf)
         ;; Produce a "light build", meaning that only the printer (CUPS) and
         ;; scanner (SANE) support gets built, without all the 'hp-*'

gnu/packages/curl.scm

@@ -185,11 +185,11 @@ tunneling, and so on.")
 (define-public curl-ssh
   (package/inherit curl
     (arguments
-     (substitute-keyword-arguments (package-arguments curl)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         #~(cons "--with-libssh2" #$flags))))
     (inputs
-     (modify-inputs (package-inputs curl)
+     (modify-inputs inputs
        (prepend libssh2)))
     (properties `((hidden? . #t)))))
 

gnu/packages/databases.scm

@@ -539,7 +539,7 @@ table-level bloom filters, and updates to the MANIFEST format.")
        ((#:tests? _ #t) #f) ; TODO: Find out why some tests fails to build
        ((#:import-path _) "github.com/cockroachdb/pebble/v2")))
     (propagated-inputs
-     (modify-inputs (package-propagated-inputs go-github-com-cockroachdb-pebble)
+     (modify-inputs propagated-inputs
        (append go-github-com-cockroachdb-crlib
                go-github-com-cockroachdb-swiss
                go-github-com-minio-minlz
@@ -1491,7 +1491,7 @@ as a drop-in replacement of MySQL.")
   (package/inherit mariadb
     (name "mariadb-embedded")
     (arguments
-     (substitute-keyword-arguments (package-arguments mariadb)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         #~(append '("-DWITH_EMBEDDED_SERVER=ON") #$flags))))))
 
@@ -1624,9 +1624,9 @@ pictures, sounds, or video.")
                 "0snbxmlygf7m4cxjpscmz3yjn4lnqsw313y9xgpv7vk9k9gm20s4"))
               (patches (search-patches
                         "postgresql-disable-resolve_symlinks.patch"))))
-    (native-inputs (modify-inputs (package-native-inputs postgresql-16)
+    (native-inputs (modify-inputs native-inputs
                      (delete "pkg-config")))
-    (inputs (modify-inputs (package-inputs postgresql-16)
+    (inputs (modify-inputs inputs
               (delete "icu4c")))))
 
 (define-public postgresql-14
@@ -2228,7 +2228,7 @@ data in a single database.  RocksDB is partially based on @code{LevelDB}.")
                 (sha256
                  (base32
                   "0pdy461m9a48x4i829sirpypdlzf3q79p8iw3dng9wd4r4vyv594"))))
-      (arguments (substitute-keyword-arguments (package-arguments rocksdb)
+      (arguments (substitute-keyword-arguments arguments
                    ((#:configure-flags flags ''())
                     #~(cons "-DCMAKE_CXX_FLAGS=-Wno-error=maybe-uninitialized"
                             #$flags)))))))
@@ -3256,7 +3256,7 @@ database.")
        (sha256
         (base32 "1p7jr5048syd9ln0bsh2n5ba6fd7x9wfa1x67b7wychv7a46dfx1"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments valkey-7)
+     (substitute-keyword-arguments arguments
        ((#:phases phases '%standard-phases)
         #~(modify-phases #$phases
             (replace 'adjust-tests
@@ -4306,13 +4306,13 @@ on localhost.")
 (define-public python-sqlalchemy
   (package
     (name "python-sqlalchemy")
-    (version "1.4.42")
+    (version "1.4.54")
     (source
      (origin
       (method url-fetch)
       (uri (pypi-uri "SQLAlchemy" version))
       (sha256
-       (base32 "0qzkxy47y06fqh1m7a0p7q2r9h48x9k5kl3znzhx2vj79j8l2zhp"))))
+       (base32 "06n36zs280iahxj34fvq1iwq3zjlmvsalfcanwhdqdcc13nznw24"))))
     (build-system pyproject-build-system)
     (native-inputs
      (list python-cython ; for C extensions
@@ -4339,13 +4339,13 @@ simple and Pythonic domain language.")
 (define-public python-sqlalchemy-2
   (package
     (name "python-sqlalchemy")
-    (version "2.0.36")
+    (version "2.0.45")
     (source
      (origin
        (method url-fetch)
        (uri (pypi-uri "sqlalchemy" version))
        (sha256
-        (base32 "1i99kgm8hc38iffgp3wdbixpdc5jfjklabh8lyp9h8vd1dl6f9vz"))))
+        (base32 "126fxwlk5kd0vwymw3pfmayl29c8il2n6qxdzl1mglnjm2ys8chn"))))
     (build-system pyproject-build-system)
     (arguments
      (list
@@ -4359,8 +4359,7 @@ simple and Pythonic domain language.")
     (native-inputs
      (list python-cython
            python-pytest
-           python-setuptools
-           python-wheel))
+           python-setuptools))
     (propagated-inputs
      (list python-greenlet
            python-typing-extensions))
@@ -4483,38 +4482,30 @@ this library provides functions to facilitate such comparisons.")
 (define-public python-alembic
   (package
     (name "python-alembic")
-    (version "1.14.0")
+    (version "1.18.1")
     (source
      (origin
        (method url-fetch)
        (uri (pypi-uri "alembic" version))
        (sha256
-        (base32 "0jrh9q4h2jv2bafpd6isx2dvc90rpx6j7fpdvfwd0hin7fsr425h"))))
+        (base32 "0rmq5z30vmv5x5c355mj2whjz1m086c0k4xqndpq35lm6n0npb43"))))
     (build-system pyproject-build-system)
     (arguments
      (list
       #:test-flags
-      #~(list "--ignore=tests/integration"
-              "-k" (string-join
-                    ;; XXX: Tests require fresh python-pytz timezones, remove
-                    ;; when updated.
-                    (list "not test_custom_tz"
-                          "test_custom_tz_lowercase"
-                          "test_custom_tz_utc"
-                          "test_custom_tzdata_tz")
-                    " and not "))))
+      #~(list "--ignore=tests/integration")))
     (native-inputs
-     (list python-mock
+     (list python-black  ; runs a hook in tests.
+           python-mock
            python-pytest
            python-setuptools
-           python-wheel))
+           python-tzdata))
     (propagated-inputs
-     (list python-dateutil
-           python-editor
-           python-mako
+     (list python-mako
            python-sqlalchemy-2
+           python-tomli
            python-typing-extensions))
-    (home-page "https://bitbucket.org/zzzeek/alembic")
+    (home-page "https://github.com/sqlalchemy/alembic")
     (synopsis "Database migration tool for SQLAlchemy")
     (description
      "Alembic is a lightweight database migration tool for usage with the
@@ -5726,7 +5717,9 @@ simultaneous database connections by using this framework.")
     (build-system gnu-build-system)
     (native-inputs
      (list ;; For tests.
-           inetutils glibc-locales mariadb))
+           inetutils
+           (libc-utf8-locales-for-target (%current-system))
+           mariadb))
     (inputs
      `(("libdbi" ,libdbi)
        ("mariadb:dev" ,mariadb "dev")

gnu/packages/datastructures.scm

@@ -302,12 +302,7 @@ allows multiple concurrent reader and writer threads.")
                 "0ks1mj5r11ir9ssbxgm13pj9wix7gny9g3qfqzrfn4gbjqh1j2w5"))))
     (build-system gnu-build-system)
     (native-inputs
-     ;; riscv64 needs >= gcc-13.3.0
-     (append
-       (if (target-riscv64?)
-           (list gcc-14)
-           '())
-       (list perl)))            ; for tests
+     (list perl))               ; for tests
     (home-page "https://liburcu.org/")
     (synopsis "User-space RCU data synchronisation library")
     (description "liburcu is a user-space @dfn{Read-Copy-Update} (RCU) data

gnu/packages/debug.scm

@@ -14,7 +14,7 @@
 ;;; Copyright © 2023 Andy Tai <atai@atai.org>
 ;;; Copyright © 2023 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2024 Raven Hallsby <karl@hallsby.com>
-;;; Copyright © 2025 Nguyễn Gia Phong <cnx@loang.net>
+;;; Copyright © 2025-2026 Nguyễn Gia Phong <cnx@loang.net>
 ;;; Copyright © 2025 Robin Templeton <robin@guixotic.coop>
 ;;;
 ;;; This file is part of GNU Guix.
@@ -54,8 +54,10 @@
   #:use-module (gnu packages c)
   #:use-module (gnu packages cpp)
   #:use-module (gnu packages check)
+  #:use-module (gnu packages cmake)
   #:use-module (gnu packages code)
   #:use-module (gnu packages compression)
+  #:use-module (gnu packages digest)
   #:use-module (gnu packages flex)
   #:use-module (gnu packages fontutils)
   #:use-module (gnu packages gcc)
@@ -67,10 +69,12 @@
   #:use-module (gnu packages golang-web)
   #:use-module (gnu packages golang-xyz)
   #:use-module (gnu packages image)
+  #:use-module (gnu packages java)
   #:use-module (gnu packages lesstif)
   #:use-module (gnu packages libusb)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages llvm)
+  #:use-module (gnu packages mail)
   #:use-module (gnu packages multiprecision)
   #:use-module (gnu packages ncurses)
   #:use-module (gnu packages ninja)
@@ -80,13 +84,16 @@
   #:use-module (gnu packages python)
   #:use-module (gnu packages python-build)
   #:use-module (gnu packages python-check)
+  #:use-module (gnu packages python-science)
   #:use-module (gnu packages python-xyz)
   #:use-module (gnu packages qt)
   #:use-module (gnu packages readline)
   #:use-module (gnu packages serialization)
   #:use-module (gnu packages texinfo)
+  #:use-module (gnu packages time)
   #:use-module (gnu packages virtualization)
   #:use-module (gnu packages xdisorg)
+  #:use-module (gnu packages xml)
   #:use-module (gnu packages xorg)
   #:use-module (ice-9 match)
   #:use-module (srfi srfi-1))
@@ -305,8 +312,8 @@ tool.")
 
 (define-public qemu-for-aflplusplus
   (let ((base qemu-minimal)
-        (commit "60ebd5624c60589e276cf287516b925a9ee35b87")
-        (revision "1"))
+        (commit "7c3bab75c4a9adaed78cefbe1468a6b49c363f58")
+        (revision "2"))
     (hidden-package
      (package
        (inherit base)
@@ -320,9 +327,9 @@ tool.")
                               (recursive? #t)))
           (file-name (git-file-name name version))
           (sha256
-           (base32 "1vz7k1ssfnlimkpc01fqin27r2k4a23cwpxj2bbmsp7d3175bjbz"))))
+           (base32 "03352zbp73wgwyk25f26rw7h5yqyjp6fysl2n7nj32wp16vxmlza"))))
        (arguments
-        (substitute-keyword-arguments (package-arguments base)
+        (substitute-keyword-arguments arguments
           ((#:configure-flags _ #~'())
            #~(list (string-append
                     "--target-list="
@@ -375,7 +382,7 @@ tool.")
                             (delete-file "tests/qemu-iotests/127")
                             (delete-file "tests/qemu-iotests/267"))))
                       '())))))
-       (inputs (modify-inputs (package-inputs base)
+       (inputs (modify-inputs inputs
                  (delete "dtc")))
        (home-page "https://github.com/AFLplusplus/qemuafl")
        (synopsis "QEMU for AFL++")))))
@@ -428,7 +435,7 @@ tool.")
                        (delete 'check))))) ; tests are run during 'install phase
     (package
       (name "aflplusplus")
-      (version "4.35c")
+      (version "4.40c")
       (source (origin
                 (method git-fetch)
                 (uri (git-reference
@@ -437,7 +444,7 @@ tool.")
                 (file-name (git-file-name name version))
                 (sha256
                  (base32
-                  "0mwamvyv2ckfxrrns4cnhx9gf2dn9jjgi9dc1qp3cwjasbghg5lg"))))
+                  "00v174pxkj74pa2rcgkcbvxdq3sax9la33g3ikpjd3x1ck69mla2"))))
       (build-system gnu-build-system)
       (arguments
        (substitute-keyword-arguments arguments-american-fuzzy-lop
@@ -717,7 +724,7 @@ the position of the variable and allows you to modify its value.")
                 "11vvch8bi0yhjfz7gn92b3xmmm0cgi3qfiyhbnnj89frkhbwd87n"))
               (patches (search-patches "remake-impure-dirs.patch"))))
     (inputs
-     (modify-inputs (package-inputs gnu-make)
+     (modify-inputs inputs
        (prepend readline)))
     (home-page "https://bashdb.sourceforge.net/remake/")
     (description "Remake is an enhanced version of GNU Make that adds improved
@@ -1077,6 +1084,112 @@ to aid in debugging.")
     (description "Delve is a debugger for the Go programming language.")
     (license license:expat)))
 
+(define-public fandango
+  (package
+    (name "fandango")
+    (version "1.1.1")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/fandango-fuzzer/fandango")
+             (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)))
+       (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.*") "")
+              ;; TODO: update antlr4.
+              (("antlr4-python3-runtime>=4.13") "antlr4-python3-runtime")
+              ;; PYTHONHASHSEED is set by the build system.
+              ((" --pythonhashseed=1") ""))
+            (delete-all-but "src/fandango/language/cpp_parser"
+              "FandangoLexerBase.cpp"
+              "FandangoLexerBase.h")
+            (delete-all-but "src/fandango/language/parser"
+              "FandangoLexerBase.py")))))
+    (build-system pyproject-build-system)
+    (arguments
+     (list
+      #:test-flags
+      #~(list "--numprocesses" (number->string (parallel-job-count))
+              ;; Skip expensive tests.
+              "-k" "not test_cli_max_2 and not test_soft_value")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'generate-parser
+            (lambda* (#:key inputs #:allow-other-keys)
+              (substitute* "CMakeLists.txt"
+                (("(target_link_libraries\\(.*)(\\))" all left right)
+                 (simple-format #f "~a ~a ~a"
+                   left
+                   (search-input-file inputs "lib/libantlr4-runtime.so")
+                   right))
+                (("\\$\\{CPP_PARSER_DIR\\}/antlr4-cpp-runtime")
+                 (search-input-directory inputs "include/antlr4-runtime")))
+              (substitute* "Makefile"
+                ;; Avoid running black.
+                ((".*\\$\\(BLACK\\).*") ""))
+              (invoke "make" "parser")))
+          (add-before 'check 'set-paths
+            (lambda* (#:key inputs #:allow-other-keys)
+              (substitute* "evaluation/scriptsizec/scriptsizec_evaluation.py"
+                (("from tccbox import .*")
+                 "")
+                (("tcc_bin_path\\(\\)")
+                 (simple-format #f "~s"
+                   (search-input-file inputs "bin/tcc")))))))))
+    (native-inputs (list antlr4
+                         cmake-minimal
+                         clang           ;for tests
+                         python-aiosmtpd ;for tests
+                         python-dateutil ;for tests
+                         python-docutils ;for tests
+                         python-faker    ;for tests
+                         python-pytest
+                         python-pytest-benchmark
+                         python-pytest-timeout
+                         python-pytest-xdist
+                         python-scikit-build-core
+                         python-speedy-antlr-tool
+                         python-setuptools
+                         tcc))           ;for tests
+    (inputs (list cpp-antlr4-runtime
+                  python-antlr4-runtime
+                  python-astar
+                  python-ansi-styles
+                  python-beartype
+                  python-cachedir-tag
+                  python-dill
+                  python-exrex
+                  python-lxml
+                  python-py010parser
+                  python-regex
+                  python-tdigest
+                  python-thefuzz
+                  python-xdg-base-dirs))
+    (home-page "https://fandango-fuzzer.github.io")
+    (synopsis "Language-based fuzzer")
+    (description
+     "Fandango is a generator of inputs and interactions for software testing.
+Given the specification of a program's input or interaction language,
+Fandango generates myriads of valid sample inputs for testing.
+The specification language combines a grammar with constraints
+written in Python.  Minimization or maximization soft constraints
+and input distributions can also be expressed in Fandango.")
+    (license license:eupl1.2)))
+
 (define-public fiu
   (package
     (name "fiu")

gnu/packages/diffoscope.scm

@@ -79,7 +79,7 @@
 (define-public diffoscope
   (package
     (name "diffoscope")
-    (version "313")
+    (version "315")
     (source
      (origin
        (method git-fetch)
@@ -88,7 +88,7 @@
              (commit version)))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "13ib3glsj4xf2bcrlhfhn0411970ih8zn4y56vm2mqbjirqc0qj4"))))
+        (base32 "1q2q60hw36d1capqdrg6gp2220dg87bmxgmk52m7yml4xw13zi2p"))))
     (build-system pyproject-build-system)
     (arguments
      (list

gnu/packages/digest.scm

@@ -2,6 +2,7 @@
 ;;; Copyright © 2017, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
 ;;; Copyright © 2021 Ryan Prior <rprior@protonmail.com>
 ;;; Copyright © 2021, 2022 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2026 Nguyễn Gia Phong <cnx@loang.net>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -29,9 +30,41 @@
   #:use-module (guix build-system python)
   #:use-module (guix build-system trivial)
   #:use-module (guix utils)
+  #:use-module (gnu packages check)
   #:use-module (gnu packages python-build)
+  #:use-module (gnu packages python-xyz)
   #:use-module (ice-9 match))
 
+(define-public python-tdigest
+  (package
+    (name "python-tdigest")
+    (version "0.6.0.1")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/CamDavidsonPilon/tdigest")
+             (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1fqpjw27fc1xfx72c2rjbnmi290f4c262rwm0c2fifsxpwyy54w7"))))
+    (build-system pyproject-build-system)
+    (propagated-inputs (list python-accumulation-tree python-pyudorandom))
+    (native-inputs (list python-numpy
+                         python-pytest
+                         python-pytest-timeout
+                         python-setuptools))
+    (home-page "https://github.com/CamDavidsonPilon/tdigest")
+    (synopsis "Python implementation of the t-digest data structure")
+    (description
+     "This Python package implements @url{https://github.com/tdunning/t-digest,
+Ted Dunning's t-digest data structure}, which is designed around computing
+accurate estimates such as percentiles, quantiles and trimmed means
+from streaming or distributed data.  Two t-digests can be added,
+making the data structure ideal for map-reduce settings, and can be serialized
+into much less than 10 kB, instead of storing the entire list of data.")
+    (license license:expat)))
+
 (define-public wyhash
   (package
     (name "wyhash")

gnu/packages/display-managers.scm

@@ -161,9 +161,9 @@ to create smooth, animated user interfaces.")
   (package
     (inherit sddm)
     (name "sddm-qt5")
-    (native-inputs (modify-inputs (package-native-inputs sddm)
+    (native-inputs (modify-inputs native-inputs
                      (replace "qttools" qttools-5)))
-    (inputs (modify-inputs (package-inputs sddm)
+    (inputs (modify-inputs inputs
               (replace "qtbase" qtbase-5)
               (replace "qtsvg" qtsvg-5)
               (replace "qtdeclarative" qtdeclarative-5)

gnu/packages/django.scm

@@ -13,6 +13,7 @@
 ;;; Copyright © 2025 Sharlatan Hellseher <sharlatanus@gmail.com>
 ;;; Copyright © 2025 Vinicius Monego <monego@posteo.net>
 ;;; Copyright © 2025 jgart <jgart@dismail.de>
+;;; Copyright © 2026 Evgeny Pisemsky <mail@pisemsky.site>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -309,7 +310,7 @@ to the @dfn{don't repeat yourself} (DRY) principle.")
         (sha256
          (base32 "1znc2q1m9p2kxz1rkfkh2hg2sx6i3aqv72zsraad7bci364cvfd4"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments python-django)
+     (substitute-keyword-arguments arguments
        ((#:phases phases)
         #~(modify-phases #$phases (delete 'delete-sitecustomize)))))))
 
@@ -1055,6 +1056,39 @@ applications with a @var{SEARCH_URL} variable.")
 for Django sites.")
     (license license:bsd-3)))
 
+(define-public python-django-mailer
+  (package
+    (name "python-django-mailer")
+    ;; Include switching from lockfile to filelock and other fixes.
+    (properties '((commit . "e350fb04eec052a7ad27aee310e6d4073012ca2f")
+                  (revision . "0")))
+    (version (git-version "2.3.2"
+                          (assoc-ref properties 'revision)
+                          (assoc-ref properties 'commit)))
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/pinax/django-mailer")
+              (commit (assoc-ref properties 'commit))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "19d8asqai0sxn0y0bzqz03hgm8rzl95rmp787y3ps2lsm4c1an3y"))))
+    (build-system pyproject-build-system)
+    (native-inputs
+     (list python-pytest
+           python-pytest-django
+           python-setuptools))
+    (propagated-inputs
+     (list python-django
+           python-filelock-next))
+    (home-page "https://github.com/pinax/django-mailer")
+    (synopsis "Mail queuing and management for Django")
+    (description
+     "This is a reusable Django application for queuing the sending of email.
+It works by storing email in the database for later sending.")
+    (license license:expat)))
+
 (define-public python-django-contrib-comments
   (package
     (name "python-django-contrib-comments")
@@ -1681,7 +1715,7 @@ a single block.")
                  #~(modify-phases %standard-phases
                      (delete 'sanity-check))))
                (propagated-inputs
-                (modify-inputs (package-propagated-inputs pkg)
+                (modify-inputs propagated-inputs
                   (delete "python-django-crispy-forms")))))
            (list python-crispy-bootstrap3 python-crispy-bootstrap4))
       (list python-pytest python-pytest-django python-setuptools)))

gnu/packages/dlang.scm

@@ -582,7 +582,7 @@ compiler for the D programming language.")
                           (format #f "s,~a,~a,g" in-dmd-bootstrap out)
                           out-bin-dmd))))))))
     (native-inputs
-     (modify-inputs (package-native-inputs dmd-bootstrap)
+     (modify-inputs native-inputs
        (delete "gdmd")
        (append dmd-bootstrap)))
     (properties

gnu/packages/docbook.scm

@@ -127,7 +127,7 @@ by no means limited to these applications.)  This package provides XML DTDs.")
       (inherit template)
       (arguments
        (let ((dest-dir (format #f "xml/docbook/~a/" version)))
-         (substitute-keyword-arguments (package-arguments template)
+         (substitute-keyword-arguments arguments
            ;; XXX: A default value must be provided otherwise this
            ;; substitution has no effect.
            ((#:install-plan _ #f)
@@ -147,7 +147,7 @@ by no means limited to these applications.)  This package provides XML DTDs.")
       (inherit template)
       (arguments
        (let ((dest-dir (format #f "xml/docbook/~a/" version)))
-         (substitute-keyword-arguments (package-arguments template)
+         (substitute-keyword-arguments arguments
            ((#:install-plan _ #f)
             #~`(("catalog.xml" #$dest-dir)
                 ("docbook.nvdl" #$dest-dir)
@@ -167,7 +167,7 @@ downloading from @var{source}, where @var{version} is a string and
       (inherit base-template)
       (arguments
        (let* ((dest-dir (format #f "xml/docbook/~a/" version)))
-         (substitute-keyword-arguments (package-arguments base-template)
+         (substitute-keyword-arguments arguments
            ((#:phases phases)
             ;; Some programs, such as kdoctools, instead of using
             ;; XML_CATALOG_FILES, prefer to use cmake to locate
@@ -247,7 +247,7 @@ downloading from @var{source}, where @var{version} is a string and
     (package
       (inherit template)
       (arguments
-       (substitute-keyword-arguments (package-arguments template)
+       (substitute-keyword-arguments arguments
          ((#:phases phases)
           #~(modify-phases #$phases
               (add-after 'unpack 'copy-catalog-file
@@ -279,7 +279,7 @@ downloading from @var{source}, where @var{version} is a string and
                                "catalog.xml"))
                      (list "rewriteSystem" "rewriteURI")))))))))
       (native-inputs
-       (modify-inputs (package-native-inputs template)
+       (modify-inputs native-inputs
          (prepend libxml2))))))
 
 (define-public docbook-mathml-1.0
@@ -800,7 +800,7 @@ DB2LaTeX.")
 (define-public dblatex/stable
   (hidden-package
    (package/inherit dblatex
-     (inputs (modify-inputs (package-inputs dblatex)
+     (inputs (modify-inputs inputs
                (replace "imagemagick" imagemagick/stable)
                (replace "inkscape" inkscape/pinned))))))
 

gnu/packages/docker.scm

@@ -248,11 +248,11 @@ management tool.")
     ;; Integration tests need a running Docker daemon.
     (arguments (list #:tests? #f))
     (native-inputs (list python-setuptools))
-    (inputs (modify-inputs (package-inputs python-docker)
+    (inputs (modify-inputs inputs
               (prepend python-six)
               (delete "python-urllib3")))
     (propagated-inputs
-     (modify-inputs (package-propagated-inputs python-docker)
+     (modify-inputs propagated-inputs
        (prepend python-docker-pycreds python-urllib3-1.26)))))
 
 ;; Needed for old v1 of docker-compose; remove once Docker is updated to a

gnu/packages/documentation.scm

@@ -59,10 +59,12 @@
   #:use-module (gnu packages kde-frameworks)
   #:use-module (gnu packages docbook)
   #:use-module (gnu packages flex)
+  #:use-module (gnu packages ghostscript)
   #:use-module (gnu packages graphviz)
   #:use-module (gnu packages gettext)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages javascript)
+  #:use-module (gnu packages netpbm)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages qt)
@@ -104,7 +106,7 @@
                        (substitute* "cfgcache.pm"
                          (("/usr/local")
                           #$output)))))))
-    (inputs (list perl))
+    (inputs (list perl netpbm ghostscript))
     (synopsis "LaTeX documents to HTML")
     (description "LaTeX2HTML is a utility that converts LaTeX documents to web
 pages in HTML.")

gnu/packages/electronics.scm

@@ -206,10 +206,6 @@
                   `("GI_TYPELIB_PATH" ":" prefix
                     (,(getenv "GI_TYPELIB_PATH")))))))))
       (native-inputs
-       ;; XXX: Test runner may be migrated to Pytest
-       ;; <https://docs.pytest.org/en/7.1.x/how-to/nose.html> after report to
-       ;; the upstream to modify them, use deprecated Nose test runner for
-       ;; now.
        (list python-pynose
              python-setuptools
              xvfb-run))
@@ -220,7 +216,7 @@
              python-platformdirs
              python-pycairo
              python-pyclip
-             python-pygobject
+             python-pygobject-3.50
              python-pypubsub))
       (home-page "https://github.com/Blokkendoos/AACircuit")
       (synopsis "Draw electronic circuits with ASCII characters")
@@ -1766,19 +1762,19 @@ which allows one to install the M8 firmware on any Teensy.")
     (inherit m8c)
     (name "m8c-serial")
     (arguments
-     (substitute-keyword-arguments (package-arguments m8c)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         #~(cons* "-DUSE_LIBSERIAL=ON"
                  (delete "-DUSE_LIBUSB=ON" #$flags)))))
     (inputs
-     (modify-inputs (package-inputs m8c)
+     (modify-inputs inputs
        (replace "libusb" libserialport)))
     (synopsis "Cross-platform M8 tracker headless client - serial backend")))
 
 (define-public magic
   (package
     (name "magic")
-    (version "8.3.613")
+    (version "8.3.625")
     (source
      (origin
        (method git-fetch)
@@ -1787,7 +1783,7 @@ which allows one to install the M8 firmware on any Teensy.")
              (commit version)))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "0mipxrwkcphm67zchr705ab14kv85p0lfb083yicz6myf2fxp2bf"))))
+        (base32 "0ld238cdq8mzzcx7vgk67aqim0ypbfyks486z59q19yzxpr6c42s"))))
     (build-system gnu-build-system)
     (arguments
      (list
@@ -2058,7 +2054,7 @@ Automation}, portable and vendor neutral FPGA place and route tool.")
     (arguments
      (delkw
       #:qtbase
-      (substitute-keyword-arguments (package-arguments nextpnr)
+      (substitute-keyword-arguments arguments
         ((#:configure-flags flags '())
          #~(delete! "-DBUILD_GUI=ON" #$flags)))))
     (synopsis
@@ -2073,7 +2069,7 @@ Automation}, portable and vendor neutral FPGA place and route tool.")
     (inherit libngspice)
     (name "ngspice")
     (arguments
-     (substitute-keyword-arguments (package-arguments libngspice)
+     (substitute-keyword-arguments arguments
        ;; Tests require a X server running, so we keep them disabled
        ((#:configure-flags flags)
         #~(cons*  "--enable-rpath" "--with-x" "--with-readline=yes"
@@ -2082,7 +2078,7 @@ Automation}, portable and vendor neutral FPGA place and route tool.")
         #~(modify-phases #$phases
             (delete 'delete-scripts)))))
     (native-inputs
-     (modify-inputs (package-native-inputs libngspice)
+     (modify-inputs native-inputs
        (append perl)))
     (inputs (list libngspice readline libxaw libx11))))
 
@@ -2469,6 +2465,7 @@ formats.")
      (list
       #:configure-flags
       #~(list "-DBUILD_GUI=ON"
+              (string-append "-DOPENROAD_VERSION=" #$version)
               "-DBUILD_PYTHON=ON"
               "-DUSE_SYSTEM_ABC=OFF"     ;uses a custom fork
               "-DUSE_SYSTEM_OPENSTA=OFF" ;uses a custom fork
@@ -2510,6 +2507,10 @@ formats.")
            or-tools
            protobuf-6
            python
+           qtcharts-5
+           qtimageformats-5
+           qtsvg-5
+           qtwayland-5
            re2-next
            scip
            spdlog
@@ -2535,10 +2536,13 @@ clock tree synthesis, routing, parasitic extraction, and timing analysis.")
     (arguments
      (delkw
       #:qtbase
-      (substitute-keyword-arguments (package-arguments openroad)
+      (substitute-keyword-arguments arguments
         ((#:configure-flags flags '())
          #~(cons* "-DBUILD_GUI=OFF"
                   (delete! "-DBUILD_GUI=ON" #$flags))))))
+    (inputs
+     (modify-inputs (package-inputs openroad)
+       (delete "qtcharts-5" "qtimageformats-5" "qtsvg-5" "qtwayland-5")))
     (synopsis
      "Collection of tools for semiconductor digital design, cli version.")))
 
@@ -2557,7 +2561,7 @@ clock tree synthesis, routing, parasitic extraction, and timing analysis.")
          "1jxbpz1h3m1mgrxw74rnihj8vawgqdpf6c33cqqbyd8v7rxgfhph"))
        (patches (search-patches "pulseview-qt515-compat.patch"
                                 "pulseview-glib-2.68.patch"))))
-    (build-system cmake-build-system)
+    (build-system qt-build-system)
     (arguments
      (list
       #:tests? #f ;format_time_minutes_test is failing
@@ -2578,7 +2582,8 @@ clock tree synthesis, routing, parasitic extraction, and timing analysis.")
            libsigrok
            libsigrokdecode
            qtbase-5
-           qtsvg-5))
+           qtsvg-5
+           qtwayland-5))
     (home-page "https://www.sigrok.org/wiki/PulseView")
     (synopsis "Qt based logic analyzer, oscilloscope and MSO GUI for sigrok")
     (description "PulseView is a Qt based logic analyzer, oscilloscope and MSO
@@ -2686,7 +2691,7 @@ verification.")
        (sha256
         (base32 "1kn18ibvm7bzdyw2d914284wriravyh5qwfarj06pb052x1yblyx"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments osvvm)
+     (substitute-keyword-arguments arguments
        ((#:tests? _ #t)
         #f)
        ((#:phases phases #~%standard-phases)
@@ -2784,7 +2789,7 @@ Chip toolkit.")
     (arguments (list #:test-flags #~(list ".")))
     (native-inputs (list cmake-minimal python-pytest python-minimal-wrapper
                          python-scikit-build-core))
-    (inputs (modify-inputs (package-inputs gdstk)
+    (inputs (modify-inputs inputs
               (prepend python-numpy)))
     (synopsis "Python module for creation and manipulation of GDSII files")
     (description
@@ -4257,7 +4262,7 @@ unique design feature of Trilinos is its focus on packages.")
                          (delete
                           "-DCMAKE_CXX_FLAGS=-O3 -fPIC" #$flags))))))
     (inputs
-     (modify-inputs (package-inputs trilinos-serial-xyce)
+     (modify-inputs inputs
        (prepend openmpi)))))
 
 (define-public verilator
@@ -4405,7 +4410,7 @@ parallel computing platforms.  It also supports serial execution.")
                          (delete
                           "-DCMAKE_CXX_FLAGS=-O3 -fPIC" #$flags))))))
     (inputs
-     (modify-inputs (package-inputs xyce-serial)
+     (modify-inputs inputs
        (prepend openmpi)
        (replace "trilinos-serial-xyce" trilinos-parallel-xyce)))))
 

gnu/packages/elf.scm

@@ -319,7 +319,7 @@ static analysis of the ELF binaries at hand.")
   (package
     (inherit libelf)
     (arguments
-      (substitute-keyword-arguments (package-arguments libelf)
+      (substitute-keyword-arguments arguments
         ((#:make-flags flags #~'())
          #~(append #$flags '("CFLAGS=-fPIC")))))
     (properties `((hidden? . #t) ,@(package-properties libelf)))))
@@ -389,7 +389,7 @@ changed.")
                (base32
                 "0zdby3gpmm8q4735pviaq92zj41i2rdnhwhyrsb3sinc9hzmz4db"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments patchelf)
+     (substitute-keyword-arguments arguments
        ((#:phases phases '%standard-phases)
         #~(modify-phases #$phases
             (add-after 'fix-tests 'skip-empty-rpath-test

gnu/packages/emacs-xyz.scm

@@ -896,7 +896,7 @@ e.g. emacs-geiser-guile for Guile.")
 (define-public emacs-gptel
   (package
     (name "emacs-gptel")
-    (version "0.9.9.3")
+    (version "0.9.9.4")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -905,7 +905,7 @@ e.g. emacs-geiser-guile for Guile.")
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "080dk0101imvfkxcqlqhy8wf1wc8p2vqyp3cwdi48wn44y1csqy9"))))
+                "1ffh2mwy9znjd0v9mh065lv122xg4nlnkbxwjfrsaqn1j1q2xc0c"))))
     (build-system emacs-build-system)
     (arguments
      (list
@@ -944,11 +944,11 @@ e.g. emacs-geiser-guile for Guile.")
         (method git-fetch)
         (uri (git-reference
                (url "https://github.com/karthink/gptel-test")
-               (commit "5f5275c32ed240a03f38d9edef26d920d4535a41")))
+               (commit "318c9dda9e6dbb3e61311cf4de23f124c4d2960a")))
         (file-name "emacs-gptel-test-files")
         (sha256
          (base32
-          "0sd1y1m5abfqcm5v9x86xmnnx8ab82bfd0m3cgq9ycszxdf7gf3v")))))
+          "1368qrxxrw5zd2i0gx55r7yvi5xjma1khs8p5f2w76m7c6ms83yg")))))
     (home-page "https://github.com/karthink/gptel")
     (synopsis "GPTel is a simple ChatGPT client for Emacs")
     (description
@@ -959,6 +959,36 @@ just one-off queries and multiple independent sessions.  It requires an OpenAI
 API key.")
     (license license:gpl3+)))
 
+(define-public emacs-gptel-agent
+  ;; No releases.
+  (let ((commit "79686c56a1a07a8897301ae043d06c6e87084f7e")
+        (revision "1"))
+    (package
+      (name "emacs-gptel-agent")
+      (version (git-version "0.0.1" revision commit))
+      (source
+       (origin
+         (uri (git-reference
+                (url "https://github.com/karthink/gptel-agent")
+                (commit commit)))
+         (method git-fetch)
+         (sha256
+          (base32 "1yrhmr8yivqzx7gc7598l33ngd55c2r1x7hp8a96aczgj8i8k39n"))
+         (file-name (git-file-name name version))))
+      (build-system emacs-build-system)
+      (arguments
+       (list
+        #:tests? #f ; no tests
+        #:include #~(cons "agents" %default-include)))
+      (propagated-inputs
+       (list emacs-compat emacs-gptel emacs-orderless emacs-yaml))
+      (home-page "https://github.com/karthink/gptel-agent")
+      (synopsis "Collection of agents for gptel")
+      (description
+       "This package provides a collection of tools and prompts to use Gptel
+agentically, with any LLM.")
+      (license license:gpl3+))))
+
 (define-public emacs-gptel-prompts
   ;; No releases.
   (let ((commit "f1c29208c1f0b62918ac6682038da5db4184fc51")
@@ -9173,7 +9203,7 @@ something with a bit more flair than the Modus themes.")
 (define-public emacs-doric-themes
   (package
     (name "emacs-doric-themes")
-    (version "1.0.0")
+    (version "1.1.0")
     (source
      (origin
        (method git-fetch)
@@ -9182,9 +9212,20 @@ something with a bit more flair than the Modus themes.")
               (commit version)))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "1aqmi59lh804rqi0w5n35panqv8jxar5dx3mw25f1n8ip43lp5jc"))))
+        (base32 "15mmpab2nh7imdza8p4wy27x4ckfi9dnqjm5a1k9ix02d0i3b3yz"))
+       (modules '((guix build utils)))
+       (snippet #~(begin
+                  ;; This variable is only mentioned in the tests. See
+                  ;; https://github.com/protesilaos/doric-themes/issues/25
+                  (substitute* "tests/doric-themes-test.el"
+                    (("doric-themes-success-background-faces") ""))))))
     (build-system emacs-build-system)
-    (arguments (list #:tests? #f))      ;no tests
+    (arguments
+     (list #:test-command
+           #~(list "emacs" "--batch" "-Q"
+                   "-l" "tests/doric-themes-test.el"
+                   "-f" "ert-run-tests-batch-and-exit")))
+    (native-inputs (list emacs-ert-runner))
     (home-page "https://github.com/protesilaos/doric-themes")
     (synopsis "Highly readable minimalist Emacs themes")
     (description
@@ -13393,6 +13434,36 @@ adds support for interacting with a running Common Lisp process
 for compilation, debugging, documentation lookup, and so on.")
     (license (list license:gpl2+ license:public-domain))))
 
+(define-public emacs-sliver
+  (let ((commit "d08d41947bb943f25ee2de9573459a6c720e027f")
+        (revision "0"))
+    (package
+      (name "emacs-sliver")
+      ;; No tagged releases. Version comes from source code.
+      (version (git-version "0.0.0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+                (url "https://github.com/CSJ7701/Sliver")
+                (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "08qycim0mxyiqbik9hjlmzpdggl506bcsv1q1icxzd05bm73sh6n"))))
+      (build-system emacs-build-system)
+      (arguments
+       (list
+        #:tests? #f))                   ; No tests.
+      (home-page "https://github.com/CSJ7701/Sliver")
+      (synopsis "Modular configuration management for Emacs")
+      (description
+       "Sliver is a small Emacs package for structuring Emacs configurations into
+explicit, modular load units called slivers.  It provides declarative module
+loading, explicit dependency and conflict management, conditional loading and
+a light visualization user interface.  At its core, sliver is a wrapper around
+@code{load-file} with added quality-of-life functionalities.")
+      (license license:gpl3+))))
+
 (define-public emacs-popup
   (package
     (name "emacs-popup")
@@ -24457,7 +24528,7 @@ of XELB.")
     (inherit emacs-xelb)
     (name "emacs-xelb-no-x-toolkit")
     (arguments
-     (substitute-keyword-arguments (package-arguments emacs-xelb)
+     (substitute-keyword-arguments arguments
        ((#:emacs emacs) `,emacs-no-x-toolkit)))))
 
 (define-public emacs-exwm-no-x-toolkit
@@ -24468,7 +24539,7 @@ of XELB.")
     (propagated-inputs
      (list emacs-xelb-no-x-toolkit))
     (arguments
-     (substitute-keyword-arguments (package-arguments emacs-exwm)
+     (substitute-keyword-arguments arguments
        ((#:emacs emacs) `,emacs-no-x-toolkit)))))
 
 (define-public emacs-switch-window
@@ -26746,23 +26817,26 @@ in a generalized CSV (character-separated values) format.")
     (license license:gpl3+)))
 
 (define-public emacs-transmission
-  (package
-    (name "emacs-transmission")
-    (version "0.12.2")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://github.com/holomorph/transmission")
-             (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "16bn8y2sd7kzihp8bxh4vyay16y91q3yc0gcd0bzywcx3hijqlfc"))))
-    (build-system emacs-build-system)
-    (arguments (list #:tests? #f))      ; no tests
-    (home-page "https://github.com/holomorph/transmission")
-    (synopsis "Emacs interface to a Transmission session")
-    (description "This package provides an Emacs interface to interact with a
+  ;; No release since 2020-12-08.
+  (let ((commit "ae36637fe63e530c7b8baa59bf566a99e40fbfe4")
+        (revision "0"))
+    (package
+      (name "emacs-transmission")
+      (version (git-version "0.12.2" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+                (url "https://github.com/holomorph/transmission")
+                (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "0ilg549gsza7adfwmivw52z5533zirrv17h41xk3ij6igwg1fk8c"))))
+      (build-system emacs-build-system)
+      (arguments (list #:tests? #f))    ; no tests
+      (home-page "https://github.com/holomorph/transmission")
+      (synopsis "Emacs interface to a Transmission session")
+      (description "This package provides an Emacs interface to interact with a
 running session of the Transmission Bittorrent client.
 
 Features:
@@ -26774,7 +26848,7 @@ Features:
 contexts.
 @item Toggle downloading and set priorities for individual files.
 @end itemize\n")
-    (license license:gpl3+)))
+      (license license:gpl3+))))
 
 (define-public emacs-polymode
   (package
@@ -37424,7 +37498,7 @@ utilities.")
       #:tests? #f                       ;no test suite
       #:lisp-directory "src/extra"))
     (propagated-inputs
-     (modify-inputs (package-propagated-inputs emacs-treemacs)
+     (modify-inputs propagated-inputs
        (append emacs-all-the-icons
                emacs-evil
                emacs-magit
@@ -43932,7 +44006,7 @@ conversion program}, a Japanese input method on Emacs.")
                        (string-append "LISPDIR=" #$output "/share/emacs/site-lisp")))
             ;; no tests in this subtree
             #:tests? #f)
-      (substitute-keyword-arguments (package-arguments emacs-ddskk)
+      (substitute-keyword-arguments arguments
         ((#:phases phases)
          #~(modify-phases #$phases
              (add-after 'fix-test 'chdir
@@ -47313,28 +47387,31 @@ Emacs.")
       (license license:gpl2+))))
 
 (define-public emacs-fpga
-  (package
-    (name "emacs-fpga")
-    (version "0.3.0")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-              (url "https://github.com/gmlarumbe/fpga")
-              (commit (string-append "v" version))))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "107vmjwk74iwp2xlpkx3f2q8a9bbygl15p09sfj0h4k9jzl4ia9m"))))
-    (build-system emacs-build-system)
-    ;;there are no tests
-    (arguments
-     (list #:tests? #f))
-    (home-page "https://github.com/gmlarumbe/fpga")
-    (synopsis "Emacs fpga & asic utilities")
-    (description
-     "Emacs-fpga provides emacs facilities to interface with fpga & asic
+  ;; Includes support for cadence genus.
+  (let ((commit "48ec1572ab3c96cbc20d0c542cfe56124e05d48b")
+        (revision "0"))
+    (package
+      (name "emacs-fpga")
+      (version (git-version "0.3.0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+                (url "https://github.com/gmlarumbe/fpga")
+                (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "0j1573m59iadip4qpg457jdl22gdgx1w41irdd0s300yqsrjxyms"))))
+      (build-system emacs-build-system)
+      ;;there are no tests
+      (arguments
+       (list #:tests? #f))
+      (home-page "https://github.com/gmlarumbe/fpga")
+      (synopsis "Emacs fpga & asic utilities")
+      (description
+       "Emacs-fpga provides emacs facilities to interface with fpga & asic
 tools from major vendors.")
-    (license license:gpl3+)))
+      (license license:gpl3+))))
 
 (define-public emacs-semi-epg
   ;; No release since Dec 24, 2003.

gnu/packages/emacs.scm

@@ -386,6 +386,7 @@
                   (lambda ()
                     (display
                      (string-append
+                      ";; -*- lexical-binding: t; -*-\n"
                       "(setq find-function-C-source-directory \"" dest "\")\n\n"
                       "(provide 'guix-emacs-c-source)")))))))
           (add-after 'install 'install-site-start
@@ -412,6 +413,7 @@
                   (lambda ()
                     (display
                      (string-append
+                      ";; -*- lexical-binding: t; -*-\n"
                       "(when (require 'guix-emacs nil t)\n"
                       "  (guix-emacs-autoload-packages 'no-reload)\n"
                       "  (advice-add 'package-load-all-descriptors"
@@ -496,7 +498,7 @@ languages.")
     (synopsis "The extensible, customizable, self-documenting text
 editor (console only)")
     (arguments
-     (substitute-keyword-arguments (package-arguments emacs-minimal)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags #~'())
         #~(cons* "--with-modules" "--with-native-compilation=aot"
                  (delete "--with-gnutls=no" #$flags)))
@@ -560,7 +562,7 @@ editor (console only)")
                           (search-auxiliary-file "emacs/comp-integrity.el"))
                        "-f" "ert-run-tests-batch-and-exit")))))))))
     (inputs
-     (modify-inputs (package-inputs emacs-minimal)
+     (modify-inputs inputs
        (prepend gnutls
                 ;; For native compilation
                 libgccjit
@@ -592,7 +594,7 @@ editor (console only)")
     (synopsis "The extensible, customizable, self-documenting text editor")
     (build-system glib-or-gtk-build-system)
     (arguments
-     (substitute-keyword-arguments (package-arguments emacs-no-x)
+     (substitute-keyword-arguments arguments
        ((#:modules _) (%emacs-modules build-system))
        ((#:configure-flags flags #~'())
         #~(cons* "--with-cairo" #$flags))
@@ -614,7 +616,7 @@ editor (console only)")
                        (pdmp (find-files libexec "\\.pdmp$"))
                        (pdmp-real (find-files libexec "\\.pdmp-real$")))
                   (for-each rename-file pdmp-real pdmp))))))))
-    (inputs (modify-inputs (package-inputs emacs-no-x)
+    (inputs (modify-inputs inputs
               (prepend
                cairo
                dbus
@@ -629,6 +631,8 @@ editor (console only)")
                libx11
                libxft
                libxpm
+               libxrender
+               libxt
                libwebp
                pango
                poppler)))))
@@ -637,39 +641,13 @@ editor (console only)")
   (package/inherit emacs
     (name "emacs-pgtk")
     (arguments
-     (substitute-keyword-arguments (package-arguments emacs)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags #~'())
         #~(cons* "--with-pgtk" #$flags))))
     (synopsis "Emacs text editor with @code{pgtk} frames")
     (description "This Emacs build implements graphical UI purely in terms
 of GTK.")))
 
-(define-public emacs-xwidgets
-  (package/inherit emacs
-    (name "emacs-xwidgets")
-    (synopsis "The extensible, customizable, self-documenting text
-editor (with xwidgets support)")
-    (arguments
-     (substitute-keyword-arguments (package-arguments emacs)
-       ((#:configure-flags flags #~'())
-        #~(cons "--with-xwidgets" #$flags))))
-    (inputs
-     (modify-inputs (package-inputs emacs)
-       (prepend webkitgtk-with-libsoup2 libxcomposite)))))
-
-(define-public emacs-pgtk-xwidgets
-  (package
-    (inherit emacs-pgtk)
-    (name "emacs-pgtk-xwidgets")
-    (synopsis "Emacs text editor with @code{xwidgets} and @code{pgtk} support")
-    (arguments
-     (substitute-keyword-arguments (package-arguments emacs-pgtk)
-       ((#:configure-flags flags #~'())
-        #~(cons "--with-xwidgets" #$flags))))
-    (inputs
-     (modify-inputs (package-inputs emacs-pgtk)
-       (prepend gsettings-desktop-schemas webkitgtk-with-libsoup2)))))
-
 (define-public emacs-lucid
   (package/inherit emacs-no-x
     (name "emacs-lucid")
@@ -712,7 +690,7 @@ editor (without X toolkit)" )
               (delete "gtk+")
               (prepend inotify-tools)))
     (arguments
-     (substitute-keyword-arguments (package-arguments emacs-no-x)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags #~'())
         #~(cons "--with-x-toolkit=no" #$flags))))))
 
@@ -722,13 +700,13 @@ editor (without X toolkit)" )
     (synopsis "The extensible, customizable, self-documenting text
 editor (with wide ints)" )
     (arguments
-     (substitute-keyword-arguments (package-arguments emacs)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         #~(cons "--with-wide-int" #$flags))))))
 
 (define-public emacs-next-minimal
-  (let ((commit "509228fc6c026921c67459f21164e0325efc583b")
-        (revision "2"))
+  (let ((commit "55c752d631bcadd53e78b0798b813f50f90aefa9")
+        (revision "3"))
   (package
     (inherit emacs-minimal)
     (name "emacs-next-minimal")
@@ -742,7 +720,7 @@ editor (with wide ints)" )
              (commit commit)))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "04aalyrx5jysk5fhlka98fhfx23sy99zp8j16i0ils20sflyig6n"))
+        (base32 "06z8hrz3490ja50vh073hi0ff69plhmn1g1p51gsiic3fvyc4dkz"))
        (patches
         (search-patches "emacs-next-disable-jit-compilation.patch"
                         "emacs-next-exec-path.patch"
@@ -751,7 +729,7 @@ editor (with wide ints)" )
                         "emacs-next-native-comp-fix-filenames.patch"
                         "emacs-native-comp-pin-packages.patch"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments emacs-minimal)
+     (substitute-keyword-arguments arguments
        ((#:make-flags flags #~'())
         #~(append #$flags (list (string-append "SELECTOR=" #$%emacs-next-selector)))))))))
 
@@ -768,13 +746,12 @@ editor (with wide ints)" )
     (version version)
     (source source)
     (arguments
-     (substitute-keyword-arguments (package-arguments emacs)
+     (substitute-keyword-arguments arguments
        ((#:make-flags flags #~'())
         #~(append #$flags (list (string-append "SELECTOR=" #$%emacs-next-selector))))))))
 
 (define-public emacs-next (emacs->emacs-next emacs))
 (define-public emacs-next-pgtk (emacs->emacs-next emacs-pgtk))
-(define-public emacs-next-pgtk-xwidgets (emacs->emacs-next emacs-pgtk-xwidgets))
 (define-deprecated-package emacs-next-tree-sitter
   emacs-next)
 
@@ -796,10 +773,10 @@ editor (with wide ints)" )
                  (base32
                   "0ry0dn9xrndpz54hs92dnnsw4xa4qn4lz898ldlh2rs47ah1f4wl"))))
       (native-inputs
-       (modify-inputs (package-native-inputs emacs)
+       (modify-inputs native-inputs
          (prepend autoconf automake guile-for-guile-emacs)))
       (inputs
-       (modify-inputs (package-inputs emacs)
+       (modify-inputs inputs
          (prepend imagemagick)))
       (home-page "https://guile-emacs.org")
       (synopsis "Emacs text editor powered by Guile('s elisp implementation)")

gnu/packages/embedded.scm

@@ -168,7 +168,7 @@ embedded-4_9-branch/")
            ("gcc@5" ,gcc-5)
            ,@(package-native-inputs xgcc)))
         (arguments
-         (substitute-keyword-arguments (package-arguments xgcc)
+         (substitute-keyword-arguments arguments
            ((#:phases phases)
             #~(modify-phases #$phases
                 (add-after 'set-paths 'augment-CPLUS_INCLUDE_PATH
@@ -285,7 +285,7 @@ usable on embedded products.")
         (inherit base)
         (name "newlib-nano")
         (arguments
-         (substitute-keyword-arguments (package-arguments base)
+         (substitute-keyword-arguments arguments
            ;; The configure flags are identical to the flags used by the "GCC
            ;; ARM embedded" project.  They optimize newlib for use on small
            ;; embedded systems with limited memory.
@@ -374,11 +374,11 @@ embedded-7-branch/")
                     (search-patches
                      "gcc-7-cross-environment-variables.patch")))))
                (native-inputs
-                (modify-inputs (package-native-inputs xgcc)
+                (modify-inputs native-inputs
                   (delete "isl")
                   (prepend flex isl-0.18)))
                (arguments
-                (substitute-keyword-arguments (package-arguments xgcc)
+                (substitute-keyword-arguments arguments
                   ((#:phases phases)
                    #~(modify-phases #$phases
                        (add-after 'unpack 'expand-version-string
@@ -463,7 +463,7 @@ embedded-7-branch/")
             (base32
              "1dq23fqrk75g1a4v7569fvnnw5q440zawbxi3w0g05n8jlqsmvcy"))))
         (arguments
-         (substitute-keyword-arguments (package-arguments base)
+         (substitute-keyword-arguments arguments
            ;; The configure flags are identical to the flags used by the "GCC
            ;; ARM embedded" project.
            ((#:configure-flags flags)
@@ -513,11 +513,11 @@ embedded-7-branch/")
                     (search-patches
                      "gcc-10-cross-environment-variables.patch")))))
                (native-inputs
-                (modify-inputs (package-native-inputs xgcc)
+                (modify-inputs native-inputs
                   (delete "isl")
                   (prepend flex isl-0.18)))
                (arguments
-                (substitute-keyword-arguments (package-arguments xgcc)
+                (substitute-keyword-arguments arguments
                   ((#:phases phases)
                    #~(modify-phases #$phases
                        (add-after 'unpack 'expand-version-string
@@ -602,7 +602,7 @@ embedded-7-branch/")
             (base32
              "095j23mg928rmf4yqmj39wc0nsd207liqrdw4ygh58nygsm4gpmh"))))
         (arguments
-         (substitute-keyword-arguments (package-arguments base)
+         (substitute-keyword-arguments arguments
            ;; The configure flags are identical to the flags used by the "GCC
            ;; ARM embedded" project.
            ((#:configure-flags flags)
@@ -645,7 +645,7 @@ embedded-7-branch/")
            (sha256
             (base32 "0r6q0m3d8g3k3rkmnqjw8aw5fcnsrmywf4ispdkxmk1al3whk1vk"))))
         (arguments
-         (substitute-keyword-arguments (package-arguments base)
+         (substitute-keyword-arguments arguments
            ((#:phases phases)
             #~(modify-phases #$phases
                 (replace 'expand-version-string
@@ -685,7 +685,7 @@ embedded-7-branch/")
            (sha256
             (base32
              "0drs9v8avh4y2h5bs0ixjn9x662jzkkikx8z034wgl41dxmn6786"))))
-        (arguments (substitute-keyword-arguments (package-arguments base)
+        (arguments (substitute-keyword-arguments arguments
                      ((#:configure-flags flags)
                       #~(cons* "--enable-newlib-mb"
                                "--enable-newlib-reent-check-verify"
@@ -761,7 +761,7 @@ embedded-7-branch/")
       (package
         (inherit base)
         (name "libstdc++-nano-arm-none-eabi")
-        (arguments (substitute-keyword-arguments (package-arguments base)
+        (arguments (substitute-keyword-arguments arguments
                      ((#:make-flags flags)
                       #~(map (lambda (flag)
                                (if (or (string-prefix? "CFLAGS=" flag)
@@ -902,7 +902,7 @@ languages are C and C++.")
       (inherit gdb)
       (name "gdb-arm-none-eabi")
       (arguments
-       (substitute-keyword-arguments (package-arguments gdb)
+       (substitute-keyword-arguments arguments
          ((#:configure-flags flags '())
           #~(cons* "--target=arm-none-eabi"
                    "--enable-multilib"
@@ -1069,7 +1069,7 @@ with a layered architecture of JTAG interface and TAP support.")
                     "0w0dff3s7wv2d9m78a4jhckiik58q38wx6wpbba5hzbs4yxz35ck"))
                   (patches '())))
         (arguments
-         (substitute-keyword-arguments (package-arguments xbinutils)
+         (substitute-keyword-arguments arguments
            ((#:configure-flags flags)
             #~(cons "--disable-werror" #$flags))
            ;; FIXME: For some reason there are many test failures.  It's not
@@ -1110,7 +1110,7 @@ with a layered architecture of JTAG interface and TAP support.")
                     (origin-patches (package-source gcc-6))
                     (search-patches "gcc-cross-environment-variables.patch")))))
         (native-inputs
-         (modify-inputs (package-native-inputs xgcc)
+         (modify-inputs native-inputs
            (prepend flex)))
         ;; All headers and cross libraries of the propeller toolchain are
         ;; installed under the "propeller-elf" prefix.
@@ -1149,14 +1149,14 @@ with a layered architecture of JTAG interface and TAP support.")
                     (search-patches
                      "gcc-cross-environment-variables.patch")))))
         (arguments
-         (substitute-keyword-arguments (package-arguments xgcc)
+         (substitute-keyword-arguments arguments
            ((#:phases phases)
             #~(modify-phases #$phases
                 (delete 'pre-x86-configure)
                 (add-after 'unpack 'chdir
                   (lambda _ (chdir "gcc")))))))
         (native-inputs
-         (modify-inputs (package-native-inputs xgcc)
+         (modify-inputs native-inputs
            (prepend gcc-5)))
         (home-page "https://github.com/parallaxinc/propgcc")
         (supported-systems (delete "aarch64-linux" %supported-systems))))))
@@ -1626,139 +1626,6 @@ SPI, I2C, JTAG.")
     (home-page "https://hyvatti.iki.fi/~jaakko/pic/picprog.html")
     (license license:gpl3+)))
 
-(define-public fc-host-tools
-  (package
-    (name "fc-host-tools")
-    (version "15")
-    (source (origin
-              (method url-fetch)
-              (uri (string-append "ftp://ftp.freecalypso.org/pub/GSM/"
-                                  "FreeCalypso/fc-host-tools-r" version ".tar.bz2"))
-              (sha256
-               (base32
-                "17v3xc44mmlvp0irwm1p55zdgzd31ic3nsjxnv8y28a1i85103cv"))))
-    (build-system gnu-build-system)
-    (arguments
-     `(#:tests? #f                      ; No tests exist.
-       #:make-flags
-       (list (string-append "INSTALL_PREFIX=" %output)
-             (string-append "INCLUDE_INSTALL_DIR=" %output "include/rvinterf"))
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'patch-installation-paths
-           (lambda* (#:key outputs #:allow-other-keys)
-             (substitute* (cons* "miscutil/c139explore"
-                                 "miscutil/pirexplore"
-                                 (find-files "." "^(.*\\.[ch]|Makefile)$"))
-               (("/opt/freecalypso/bin/fc-simtool")
-                "fc-simtool")
-               (("/opt/freecalypso/bin/fc-uicc-tool")
-                "fc-uicc-tool")
-               (("/opt/freecalypso/loadtools")
-                (string-append (assoc-ref outputs "out") "/lib/freecalypso/loadtools"))
-               (("\\$\\{INSTALL_PREFIX\\}/loadtools")
-                (string-append (assoc-ref outputs "out") "/lib/freecalypso/loadtools"))
-               (("\\$\\{INSTALL_PREFIX\\}/target-bin")
-                (string-append (assoc-ref outputs "out") "/lib/freecalypso/target-bin"))
-               (("/opt/freecalypso")
-                (assoc-ref outputs "out")))
-             #t))
-         (delete 'configure))))
-    (inputs
-     (list libx11))
-    (synopsis "Freecalypso host tools")
-    (description "This package provides some tools for debugging FreeCalypso phones and the FreeCalypso FCDEV3B dev board.
-
-@enumerate
-@item fc-e1decode: Decodes a binary Melody E1 file into an ASCII source file.
-@item fc-e1gen: Encodes an ASCII Melody E1 file into a binary Melody E1 file.
-@item fc-fr2tch: Converts a GSM 06.10 speech recording from libgsm to hex
-strings of TCH bits to be fed to the GSM 05.03 channel encoder of a TI
-Calypso GSM device.
-@item fc-tch2fr: Converts hex strings of TCH bits to libgsm.
-@item fc-gsm2vm: utility converts a GSM 06.10 speech sample from the libgsm
-source format into a voice memo file that can be uploaded into the FFS of a
-FreeCalypso device and played with the audio_vm_play_start() API or the
-AT@@VMP command that invokes the latter.
-@item fc-rgbconv: Convers RGB 5:6:5 to RGB 8:8:8 and vice versa.
-@item rvinterf: Communicates with a TI Calypso GSM device via RVTMUX.
-@item rvtdump: produces a human-readable dump of all output emitted by a
-TI-based GSM fw on the RVTMUX binary packet interface.
-@item fc-shell: FreeCalypso firmwares have a feature of our own invention
-(not present in any pre-existing ones) to accept AT commands over the RVTMUX
-interface.  It is useful when no second UART is available for a dedicated
-standard AT command interface.  fc-shell is the tool that allows you to send
-AT commands to the firmware in this manner.
-@item fc-memdump: Captures a memory dump from a GSM device.
-@item fc-serterm: Trivial serial terminal.  Escapes binary chars.
-@item fc-fsio: Going through rvinterf, this tool connects to GSM devices and
-allows you to manipulate the device's flash file system.
-@item tiaud-compile: Compiles an audio mode configuration table for TI's
-Audio Service from our own ASCII source format into the binary format for
-uploading into FreeCalypso GSM device FFS with fc-fsio.
-@item tiaud-decomp: Decodes TI's audio mode configuration files read out of
-FFS into our own ASCII format.
-@item tiaud-mkvol: Generates the *.vol binary files which need to accompany
-the main *.cfg ones.
-@item fc-compalram: Allows running programs on the device without writing
-them to flash storage.
-@item fc-xram: Allows running programs on the device without writing them
-to flash storage.
-@item fc-iram: Allows running programs on the device without writing them
-to flash storage.
-@item fc-loadtool: Writes programs to the device's flash storage.
-@item fc-simint: Loads and runs simagent on the phone, then calls fc-simtool
-(see @url{https://www.freecalypso.org/hg/fc-sim-tools,fc-sim-tools
-repository}) on the host to connect to it.
-@item pirffs: Allows listing and extracting FFS content captured as a raw
-flash image from Pirelli phones.
-@item mokoffs: Allows listing and extracting FFS content captured as a raw
-flash image from OpenMoko phones.
-@item tiffs: Allows listing and extracting FFS content captured as a raw
-flash image from TI phones.
-@item c139explore: Run-from-RAM program for C139 phones that
-exercises their peripheral hardware: LCD, keypad backlight, buzzer, vibrator.
-@item pirexplore: Run-from-RAM program for Pirelli DP-L10 phones that
-exercises their peripheral hardware, primarily their LCD.
-@item tfc139: Breaks into Mot C1xx phones via shellcode injection, allowing
-you to reflash locked phones with new firmware with fc-loadtool.
-@item ctracedec: GSM firmwares built in TI's Windows environment have a
-compressed trace misfeature whereby many of the ASCII strings
-in debug trace messages get replaced with numeric indices at
-build time, and these numeric indices are all that gets emitted
-on the RVTMUX serial channel.  This tools decodes these numeric indices
-back to strings in trace output.
-@item fc-cal2text: This utility takes a dump of TI's /gsm/rf flash file system
-directory subtree as input (either extracted in vitro with tiffs
-or read out in vivo with fc-fsio) and converts all RF tables
-found therein into a readable ASCII format.
-@item imei-luhn: Computes or verifies the Luhn check digit of an IMEI number.
-@item fc-dspapidump: Reads and dumps the contents of the DSP API RAM in a
-target Calypso GSM device.
-@item fc-vm2hex: Converts the old-fashioned (non-AMR) voice memo files read
-out of FFS into hex strings.
-@item fc-buzplay: Plays piezoelectic buzzer melodies on an actual
-Calypso device equipped with such a buzzer (Mot C1xx, TI's D-Sample board,
-our planned future HSMBP) by loading a buzplayer agent onto the target and
-feeding melodies to be played to it.
-@item fc-tmsh: TI-based GSM firmwares provide a rich set of Test Mode commands
-that can be issued through the RVTMUX (debug trace) serial channel.
-This program is our test mode shell for sending Test Mode commands to targets
-and displaying decoded target responses.
-@item fcup-smsend: Send a short message via SMS
-@item fcup-smsendmult: Send multiple short messages via SMS in one go
-@item fcup-smsendpdu: Send multiple short messages given in PDU format via SMS
-@item sms-pdu-decode: Decode PDU format messages
-@item fc-dspromdump: Dump DSP ROM.
-@item pcm-sms-decode: Decode /pcm/SMS binary files read out of FFS maintained
-by Pirelli DP-L10.  Display the SMS in human-readable form.
-@item srec-regions: Parse S-record (TI's *.m0), identify the set of
-discontiguous regions into which this SREC image deposits bits, and list
-these identified regions.
-@end enumerate")
-    (home-page "https://www.freecalypso.org/")
-    (license license:public-domain)))
-
 (define-public stcgal
   (package
     (name "stcgal")

gnu/packages/emulators.scm

@@ -692,7 +692,7 @@ turbo speed, networked multiplayer, and graphical enhancements.")
                           "libretro-dolphin-emu-libusb-assert.patch"
                           "libretro-dolphin-emu-vulkan-headers.patch"))))
       (arguments
-       (substitute-keyword-arguments (package-arguments dolphin-emu)
+       (substitute-keyword-arguments arguments
          ((#:configure-flags flags ''())
           #~(cons* (string-append "-DCMAKE_CXX_FLAGS="
                                   "-I" (search-input-directory
@@ -1154,13 +1154,13 @@ The following systems are supported:
            (base32
             "1bbcsikgcycf3cp9ciicg4yckjyamdfvgk4fgw079la59q8aw13q"))))
        (arguments
-        (substitute-keyword-arguments (package-arguments mgba)
+        (substitute-keyword-arguments arguments
           ((#:configure-flags flags ''())
            ;; Relax error checks to avoid a build failure with GCC 14.
            #~(cons "-DCMAKE_C_FLAGS=-Wno-error=incompatible-pointer-types"
                    #$flags))))
       (inputs
-        (modify-inputs (package-inputs mgba)
+        (modify-inputs inputs
                        (replace "ffmpeg" ffmpeg-6)))))))
 
 (define-public sameboy
@@ -4249,7 +4249,7 @@ performance, features, and ease of use.")
                  (base32
                   "0z9wqmx351f9160jsmprznqw5sx5lslyisbr41b9igzsr5j94db3"))))
       (build-system gnu-build-system)
-      (arguments (substitute-keyword-arguments (package-arguments bsnes)
+      (arguments (substitute-keyword-arguments arguments
                    ((#:make-flags flags ''())
                     ;; This is needed because the modified bsnes code that
                     ;; bsnes-hd uses is based on an older copy that still
@@ -4280,7 +4280,7 @@ turn into actual gradients (without influencing the sharpness of the artwork).
   (package/inherit bsnes-hd
     (name "libretro-bsnes-hd")
     (arguments
-     (substitute-keyword-arguments (package-arguments bsnes-hd)
+     (substitute-keyword-arguments arguments
        ((#:make-flags flags ''())
         #~(cons "target=libretro" #$flags))
        ((#:phases phases '%standard-phases)
@@ -4508,7 +4508,7 @@ Advance.")
                  (base32
                   "1sbhq614rvcm01ln7883ivdhni1mg1v4lyyvcwsy92i9wbh8qd9i"))))
       (arguments
-       (substitute-keyword-arguments (package-arguments jg-bsnes)
+       (substitute-keyword-arguments arguments
          ((#:make-flags flags)
           #~(cons* #$(string-append "GIT_VERSION=" version)
                    (string-append "prefix=" #$output)
@@ -4853,7 +4853,7 @@ and Atomiswave emulator derived from reicast.")
 (define-public libretro-flycast
   (package/inherit flycast
     (name "libretro-flycast")
-    (arguments (substitute-keyword-arguments (package-arguments flycast)
+    (arguments (substitute-keyword-arguments arguments
                  ((#:configure-flags flags)
                   #~(cons "-DLIBRETRO=ON" #$flags))))))
 

gnu/packages/engineering.scm

@@ -209,12 +209,13 @@
               (sha256
                (base32
                 "1k67x4l27ac6sb944b42zscm0ffq2fxbghapspgj75g4dr8ip38a"))))
-    (build-system cmake-build-system)
+    (build-system qt-build-system)
     (arguments
      (list
+      #:qtbase qtbase
       #:tests? #f))                       ;no tests
     (inputs
-     (list qtbase qttools qtserialport))
+     (list qtbase qttools qtserialport qtwayland))
     (home-page "https://gitlab.com/cutecom/cutecom")
     (synopsis "Graphical serial terminal")
     (description
@@ -226,7 +227,7 @@ their devices.")
 (define-public librecad
   (package
     (name "librecad")
-    (version "2.2.1.2")
+    (version "2.2.1.4")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -235,7 +236,7 @@ their devices.")
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "1km7n85arh818ka1bgdz0nx7ib48djipgwkml0rm4s5vv2p2kzbb"))))
+                "0da17lc3h0j466mwazss9iriy1hf5kfnnz5zyp2pp4r23l3gi93v"))))
     (build-system qt-build-system)
     (arguments
      (list
@@ -536,7 +537,7 @@ multipole-accelerated algorithm.")
                                        "fasthenry-spUtils.patch"
                                        "fasthenry-spSolve.patch"
                                        "fasthenry-spFactor.patch"))))
-    (native-inputs (list gcc-9))
+    (native-inputs (list gcc-7))
     (build-system gnu-build-system)
     (arguments
      (list #:make-flags #~(list "CC=gcc" "RM=rm" "SHELL=sh" "all")
@@ -1000,7 +1001,7 @@ Emacs).")
 (define-public kicad
   (package
     (name "kicad")
-    (version "9.0.7")
+    (version "9.0.8")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -1008,7 +1009,7 @@ Emacs).")
                     (commit version)))
               (sha256
                (base32
-                "0glsdq5c54d2sif0jmpym79i6vham5w3kzcvcr0yq5nimqig7h0q"))
+                "1b995p0qb9cjpj0n3x3szbqr6d7fxwmrp2nbx37y7ym2bc1lpxd8"))
               (file-name (git-file-name name version))))
     (build-system cmake-build-system)
     (arguments
@@ -1125,7 +1126,7 @@ electrical diagrams), gerbview (viewing Gerber files) and others.")
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "1b03mc5ad0w3lhgig131jkfa243mlkzk9myjyr78lhqw07k7sxk2"))))
+                "07g80p1igp8j3kh3qpmqd150i9950w1143yhncwik2ypccwjdfjy"))))
     (build-system cmake-build-system)
     (arguments
      `(#:configure-flags (list "-DBUILD_FORMATS=html")
@@ -1202,7 +1203,7 @@ libraries.")
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "1bv1k8i01x7gyayrlkzl3d2nsf7mcdmzx8gjwx1i2va9557rgli9"))))
+                "1j26dmgz7xfixlqrzclb1wpc6zkd10n1fq7rmdrgwwx083p3c7a8"))))
     (synopsis "Official KiCad 3D model libraries")
     (description "This package contains the official KiCad 3D model libraries.")))
 
@@ -1304,13 +1305,15 @@ the 'showing the effect of'-style of operation.")
                                    "tests/test_main.cpp")
                       (("catch\\.hpp")
                        "catch2/catch.hpp"))))))
-    (build-system cmake-build-system)
+    (build-system qt-build-system)
     (arguments
-     `(#:phases (modify-phases %standard-phases
-                  (replace 'check
-                    (lambda* (#:key tests? #:allow-other-keys)
-                      (when tests?
-                        (invoke "./valeronoi-tests")))))))
+     (list #:qtbase qtbase
+           #:phases
+           #~(modify-phases %standard-phases
+               (replace 'check
+                 (lambda* (#:key tests? #:allow-other-keys)
+                   (when tests?
+                     (invoke "./valeronoi-tests")))))))
     (inputs (list boost
                   cgal
                   gmp
@@ -1318,7 +1321,8 @@ the 'showing the effect of'-style of operation.")
                   mpfr
                   openssl
                   qtbase
-                  qtsvg))
+                  qtsvg
+                  qtwayland))
     (native-inputs (list catch2))
     (home-page "https://github.com/ccoors/Valeronoi")
     (synopsis "WiFi mapping companion application for Valetudo")
@@ -2594,30 +2598,35 @@ Microwave engineering.")
 (define-public python-lcapy
   (package
     (name "python-lcapy")
-    (version "1.24")
+    (version "1.26")
     (source
      (origin
        (method url-fetch)
        (uri (pypi-uri "lcapy" version))
        (sha256
-        (base32 "0lmprghkr274l3ykiq80a31njrzj7qqgm02wifkkwh2935shbk76"))))
+        (base32 "084jbrjzii1n5v91jnqiah0n4m9g3sq4iz4f0d8j7ihsrhsrdz7d"))))
     (build-system pyproject-build-system)
     (arguments
      (list
       ;; This test fails by FileNotFoundError (a schematic file), possibly
       ;; because it's not included in PyPI.
-      #:test-flags #~(list "-k" "not test_circuitgraph")))
+      #:test-flags #~(list "-k" "not test_circuitgraph")
+      #:phases #~(modify-phases %standard-phases
+                   (add-after 'unpack 'remove-importlib
+                     (lambda _
+                       (substitute* "setup.py"
+                         ;; Archived project that exists to maintain Python2
+                         ;; compatibility.
+                         (("'importlib',") "")))))))
     (propagated-inputs (list python-ipython
                              python-matplotlib
                              python-networkx
                              python-numpy
                              python-property-cached
                              python-scipy
-                             python-sympy
-                             python-wheel))
+                             python-sympy))
     (native-inputs (list python-pytest
-                         python-setuptools
-                         python-wheel))
+                         python-setuptools))
     (home-page "https://github.com/mph-/lcapy")
     (synopsis "Symbolic linear circuit analysis")
     (description "Lcapy is a Python package for linear circuit analysis.  It
@@ -2806,7 +2815,7 @@ models in the STL and OFF file formats.")
                        ""))))
        (file-name (git-file-name name version))))
     (arguments
-     (substitute-keyword-arguments (package-arguments openscad)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         #~(begin
             (use-modules (srfi srfi-1))
@@ -2836,7 +2845,7 @@ models in the STL and OFF file formats.")
                   (("\\$\\{CMAKE_SOURCE_DIR\\}/submodules/sanitizers-cmake/cmake")
                    (string-append (assoc-ref inputs "sanitizers-cmake")
                                   "/share/sanitizers-cmake/cmake")))))))))
-    (inputs (modify-inputs (package-inputs openscad)
+    (inputs (modify-inputs inputs
               (append curl libfive)))
     (synopsis "Script-based 3D modeling app with Python support")
     (description

gnu/packages/fcitx5.scm

@@ -310,7 +310,7 @@ IM module for GTK+3 applications.
             (lambda _
               (chdir ".."))))))
     (inputs
-     (modify-inputs (package-inputs fcitx5-gtk)
+     (modify-inputs inputs
        (delete "gtk+")
        (prepend fcitx5-gtk gtk)))
     (native-search-paths

gnu/packages/file-systems.scm

@@ -894,7 +894,7 @@ performance and other characteristics.")
     (inherit bcachefs-tools-minimal)
     (name "bcachefs-tools-minimal-static")
     (arguments
-     (substitute-keyword-arguments (package-arguments bcachefs-tools-minimal)
+     (substitute-keyword-arguments arguments
        ((#:phases phases #~%standard-phases)
         #~(modify-phases #$phases
             (add-after 'unpack 'patch-makefile
@@ -931,7 +931,7 @@ performance and other characteristics.")
                 (apply invoke "make" "install"
                        (string-append "PREFIX=" #$output)
                        #$(bcachefs-tools-make-install-flags))))))))
-    (inputs (modify-inputs (package-inputs bcachefs-tools-minimal)
+    (inputs (modify-inputs inputs
               (prepend `(,eudev "static")
                        `(,keyutils "static")
                        `(,libscrypt "static")
@@ -1497,7 +1497,9 @@ APFS.")
                                  "@libdir@"))))))))
     (home-page "https://snapper.io")
     (native-inputs
-     (list glibc-locales autoconf automake libtool pkg-config))
+     (list
+      (libc-locales-for-target (%current-system))
+      autoconf automake libtool pkg-config))
     (inputs
      (list btrfs-progs
            e2fsprogs
@@ -2180,7 +2182,7 @@ memory-efficient.")
       #:configure-flags
       #~'("CFLAGS=-ffunction-sections -fdata-sections -Os -no-pie"
           "LDFLAGS=-static")
-      (substitute-keyword-arguments (package-arguments squashfuse)
+      (substitute-keyword-arguments arguments
         ((#:phases phases)
          #~(modify-phases #$phases
              (add-after 'install 'install-private-headers
@@ -2197,58 +2199,68 @@ memory-efficient.")
 (define-public tmsu
   (package
     (name "tmsu")
-    (version "0.7.5")
+    ;; XXX: 0.7.5 was released in 2019, since that time master branch
+    ;; accumulated a lot of fixes and support for a fresh Go version, use the
+    ;; latest (2022), commit from master's HEAD. Project closed Issues and
+    ;; Pull Requests, potentially it's abandoned one.
+    (properties '((commit . "0bf4b8031cbeffc0347007d85647062953e90571")
+                  (revision . "0")))
+    (version (git-version "0.7.5"
+                          (assoc-ref properties 'revision)
+                          (assoc-ref properties 'commit)))
     (source
      (origin
        (method git-fetch)
        (uri (git-reference
-             (url "https://github.com/oniony/TMSU")
-             (commit (string-append "v" version))))
+              (url "https://github.com/oniony/TMSU")
+              (commit (assoc-ref properties 'commit))))
        (file-name (git-file-name name version))
        (sha256
         (base32
-         "0834hah7p6ad81w60ifnxyh9zn09ddfgrll04kwjxwp7ypbv38wq"))))
+         "1kyncrmbaxhhqys2mhnvbz95zh72arv3an9hfhjbdcxa12b9w6g5"))))
     (build-system go-build-system)
     (arguments
      (list
-      #:go go-1.23
-      #:import-path "github.com/oniony/TMSU"
       #:install-source? #f
+      #:import-path "github.com/oniony/TMSU"
+      #:build-flags
+      #~(list "-tags=libsqlite3")
+      #:test-flags
+      #~(list "-vet=off" "-tags=libsqlite3")
       #:phases
       #~(modify-phases %standard-phases
-          (add-after 'unpack 'adjust-makefile
+          (add-after 'install 'fix-bin-name
+            (lambda _
+              (rename-file (string-append #$output "/bin/TMSU")
+                           (string-append #$output "/bin/tmsu"))))
+          (add-after 'install 'install-misc
             (lambda* (#:key import-path #:allow-other-keys)
               (with-directory-excursion (string-append "src/" import-path)
-                (substitute* "Makefile"
-                  (("SHELL=.*") (string-append "SHELL=" (which "sh") "\n"))
-                  ;; Make sure we do not compile 2 more times during the check
-                  ;; phase.
-                  (("unit-test: compile") "unit-test:")
-                  (("integration-test: compile") "integration-test:")
-                  ;; Simplify install path.
-                  (("usr/") "")))))
-          (replace 'build
+                (let ((bin (string-append #$output "/bin"))
+                      (sbin (string-append #$output "/sbin")))
+                  (for-each (lambda (f) (install-file f bin))
+                            (list "misc/bin/tmsu-fs-merge"
+                                  "misc/bin/tmsu-fs-mv"
+                                  "misc/bin/tmsu-fs-rm"))
+                  (install-file "misc/bin/mount.tmsu" sbin)))))
+          (add-after 'install 'install-shell-completions
             (lambda* (#:key import-path #:allow-other-keys)
               (with-directory-excursion (string-append "src/" import-path)
-                (invoke "make" "compile"))))
-          (replace 'check
-            (lambda* (#:key import-path tests? #:allow-other-keys)
-              (when tests?
-                (with-directory-excursion (string-append "src/" import-path)
-                  ;; Remove shaky test file, see
-                  ;; <https://github.com/oniony/TMSU/issues/281>.
-                  (for-each
-                   (lambda (test-file)
-                     (delete-file test-file))
-                   (find-files "." "^fingerprinter_test.go$"))
-                  (invoke "make" "test")))))
-          (replace 'install
+                (let ((bash (string-append #$output "/etc/bash_completion.d"))
+                      (zsh  (string-append #$output "/share/zsh/site-functions")))
+                  (for-each mkdir-p (list bash zsh))
+                  (copy-file "misc/bash/tmsu" (string-append bash "/tmsu"))
+                  (copy-file "misc/zsh/_tmsu" (string-append zsh "/_tmsu"))))))
+          (add-after 'install 'install-man-pages
             (lambda* (#:key import-path #:allow-other-keys)
               (with-directory-excursion (string-append "src/" import-path)
-                (setenv "DESTDIR" #$output)
-                (invoke "make" "install")))))))
+                (install-file "misc/man/tmsu.1"
+                              (string-append #$output "/share/man/man1"))))))))
     (inputs
-     (list go-github-com-mattn-go-sqlite3 go-github-com-hanwen-go-fuse))
+     (list go-github-com-mattn-go-sqlite3
+           go-github-com-hanwen-go-fuse
+           go-golang-org-x-crypto
+           sqlite))
     (home-page "https://github.com/oniony/TMSU")
     (synopsis "Tag files and access them through a virtual file system")
     (description

gnu/packages/finance.scm

@@ -236,11 +236,11 @@ line client and a client based on Qt.")
                (base32
                 "04kh88xklyq5w2x0zykfas6ssxajp1z33c2899fq342jnfr510b6"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments bitcoin-core)
+     (substitute-keyword-arguments arguments
        ((#:qtbase original-flags #f)
         qtbase-5)))
     (native-inputs
-     (modify-inputs (package-native-inputs bitcoin-core)
+     (modify-inputs native-inputs
        (delete qttools)
        (append imagemagick
                librsvg
@@ -393,14 +393,14 @@ Accounting.")
 (define-public homebank
   (package
     (name "homebank")
-    (version "5.9.6")
+    (version "5.10")
     (source (origin
               (method url-fetch)
               (uri (string-append "https://www.gethomebank.org/public/sources"
                                   "/homebank-" version ".tar.gz"))
               (sha256
                (base32
-                "0ymp7qj6im1cl66lbf9q2r8dgav3dagbhbipskg8zcgj0kz0ncph"))))
+                "11j3qnmsyj4bfqzpdxcah8z3k97laka87hfpwl9rg85v5sxxhgvq"))))
     (build-system glib-or-gtk-build-system)
     (native-inputs
      (list pkg-config intltool))

gnu/packages/firmware.scm

@@ -584,8 +584,8 @@ utilities used to process FCODE, OpenFirmware's byte code, consisting of:
                                            "\\.elf$"))))))))
     (native-inputs
      (append (if (string-prefix? (%current-system) target)
-                 (list gcc-10)
-                 (list (cross-gcc target #:xgcc gcc-10) (cross-binutils target)))
+                 '()
+                 (list (cross-gcc target) (cross-binutils target)))
              (list fcode-utils libxslt which)))
     (home-page "https://openfirmware.info/Welcome_to_OpenBIOS")
     (synopsis "Open Firmware implementation")
@@ -601,7 +601,7 @@ provide OpenFirmware functionality on top of an already running system.")
     (package
       (inherit base)
       (arguments
-       (substitute-keyword-arguments (package-arguments base)
+       (substitute-keyword-arguments arguments
          ;; No need to cross-compile, package produces reproducible firmware.
          ((#:target _ #f) #f)
          ((#:phases phases)
@@ -787,12 +787,12 @@ source."
     (native-inputs
      (if (member (%current-system) '("i686-linux" "x86_64-linux"))
          (package-native-inputs seabios)
-         (modify-inputs (package-native-inputs seabios)
+         (modify-inputs native-inputs
            (prepend (cross-gcc "i686-linux-gnu")
                     (cross-binutils "i686-linux-gnu")))))
     (supported-systems %supported-systems)
     (arguments
-     (substitute-keyword-arguments (package-arguments seabios)
+     (substitute-keyword-arguments arguments
        ((#:modules modules %default-gnu-modules)
         `((ice-9 match)
           (ice-9 threads)
@@ -1186,7 +1186,7 @@ Virtual Machines.  OVMF contains a sample UEFI firmware for QEMU and KVM.")
       (inherit base)
       (name "ovmf-x86-64")
       (arguments
-       (substitute-keyword-arguments (package-arguments base)
+       (substitute-keyword-arguments arguments
          ((#:phases phases)
           #~(modify-phases #$phases
               (replace 'install
@@ -1226,7 +1226,7 @@ Virtual Machines.  OVMF contains a sample UEFI firmware for QEMU and KVM.")
     (package
       (inherit base)
       (arguments
-        (substitute-keyword-arguments (package-arguments base)
+        (substitute-keyword-arguments arguments
           ((#:phases phases)
            #~(modify-phases #$phases
                (replace 'install
@@ -1248,7 +1248,7 @@ Virtual Machines.  OVMF contains a sample UEFI firmware for QEMU and KVM.")
     (package
       (inherit base)
       (arguments
-        (substitute-keyword-arguments (package-arguments base)
+        (substitute-keyword-arguments arguments
           ((#:phases phases)
            #~(modify-phases #$phases
                (replace 'install
@@ -1269,7 +1269,7 @@ Virtual Machines.  OVMF contains a sample UEFI firmware for QEMU and KVM.")
       (inherit base)
       (name "ovmf-arm")
       (arguments
-        (substitute-keyword-arguments (package-arguments base)
+        (substitute-keyword-arguments arguments
           ((#:phases phases)
            #~(modify-phases #$phases
                (replace 'install
@@ -1285,7 +1285,7 @@ Virtual Machines.  OVMF contains a sample UEFI firmware for QEMU and KVM.")
     (package
       (inherit base)
       (arguments
-        (substitute-keyword-arguments (package-arguments base)
+        (substitute-keyword-arguments arguments
           ((#:phases phases)
            #~(modify-phases #$phases
                (replace 'install
@@ -1384,7 +1384,7 @@ interface standards, such as:
   (let ((base (make-arm-trusted-firmware "rk3399")))
     (package
       (inherit base)
-      (native-inputs (modify-inputs (package-native-inputs base)
+      (native-inputs (modify-inputs native-inputs
                        (prepend (cross-gcc "arm-none-eabi")
                                 (cross-binutils "arm-none-eabi")))))))
 
@@ -1964,7 +1964,7 @@ or passthrough board.")
     (package
       (inherit base)
       (native-inputs
-       (modify-inputs (package-native-inputs base)
+       (modify-inputs native-inputs
          (replace "xgcc" (make-gcc-arm-none-eabi-12.3.rel1)))))))
 
 (define* (make-qmk-firmware-keychron keyboard keymap
@@ -1997,7 +1997,7 @@ or passthrough board.")
                  (base32
                   "1skj7iq6dad48xhy2ljjmwpbhhdv3gk7cmi28lh3xfsnxphm4v8r"))))
       (arguments
-       (substitute-keyword-arguments (package-arguments base)
+       (substitute-keyword-arguments arguments
          ((#:phases phases)
           #~(modify-phases #$phases
               (replace 'copy-lufa-source
@@ -2050,7 +2050,7 @@ or passthrough board.")
                          "0r501hkk0idwfm6qs09g1wb808ga452gz39dw32x13rmg3a901s6")))
                    "lib/printf")))))))
       (native-inputs
-       (modify-inputs (package-native-inputs base)
+       (modify-inputs native-inputs
          (prepend
           (package
             (inherit (make-qmk-newlib-nano-arm-none-eabi))

gnu/packages/flashing-tools.scm

@@ -23,6 +23,7 @@
 ;;; Copyright © 2021 Vincent Legoll <vincent.legoll@gmail.com>
 ;;; Copyright © 2025 Ashish SHUKLA <ashish.is@lostca.se>
 ;;; Copyright © 2026 Cayetano Santos <csantosb@inventati.org>
+;;; Copyright © 2026 Clément Lassieur <clement@lassieur.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -257,116 +258,104 @@ firmware from it.")
     (license license:gpl2+)))
 
 (define-public genimage
-  (let ((commit "00009af6e29cfd46909bc8b4180147dda9f82ba8")
-        (revision "0"))
-    (package
-      (name "genimage")
-      (version (git-version "18" revision commit))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-                (url "https://github.com/pengutronix/genimage")
-                (commit commit)))
-         (file-name (git-file-name name version))
-         (sha256
-          (base32
-           "1mijyq79cb0yj4jm9ln9smpddq1f6r8cnsa568qca0krcv0p3zag"))))
-      (build-system gnu-build-system)
-      (arguments
-       `(#:modules
-         ((ice-9 match)
-          ,@%default-gnu-imported-modules)
-         #:phases
-         (modify-phases %standard-phases
-           (add-after 'unpack 'guixify
-             (lambda* (#:key inputs #:allow-other-keys)
-               (map (match-lambda
-                      ((input directory regexp)
-                       (substitute* "config.c"
-                         (((format #f "\\.def = \"(~a)\"" regexp) _ command)
-                          (string-append ".def = \"" (assoc-ref inputs input)
-                                         "/" directory "/" command "\"")))))
-                    '(("cpio"           "bin"  "cpio")
-                      ("coreutils"      "bin"  "dd")
-                      ("e2fsprogs"      "sbin" "debugfs|e2fsck|mke2fs|tune2fs")
-                      ("genext2fs"      "bin"  "genext2fs")
-                      ("cdrkit-libre"   "bin"  "genisoimage")
-                      ("mtools"         "bin"  "mcopy|mmd")
-                      ;; mkcramfs is obsolete.
-                      ("dosfstools"     "sbin" "mkdosfs")
-                      ("mtd-utils"      "sbin" "mkfs.(jffs2|ubifs)|ubinize")
-                      ("f2fs-tools"     "sbin" "(mkfs|sload).f2fs")
-                      ("squashfs-tools" "bin"  "mksquashfs")
-                      ("qemu"           "bin"  "qemu-img")
-                      ;; rauc and fiptool are unsupported.
-                      ("tar"            "bin"  "tar")
-                      ("u-boot-tools"   "bin"  "mkimage")))
-               (substitute* "util.c"
-                 (("\"/bin/sh\"")
-                  (string-append "\"" (assoc-ref inputs "bash") "/bin/sh\"")))))
-           (add-before 'check 'disable-failing-tests
-             (lambda _
-               ;; We don't have /etc/passwd so uid 0 is not known as "root".
-               ;; Thus patch it out.
-               (substitute* '("test/flash.test")
-                 (("test_expect_success \"flash\"")
-                  "test_expect_fail \"flash\""))
-               (substitute* '("test/hdimage.test")
-                 (("test_expect_success fdisk,sfdisk \"hdimage\"")
-                  "test_expect_fail fdisk,sfdisk \"hdimage\"")
-                 (("test_expect_success hexdump \"hdimage no-partition\"")
-                  "test_expect_fail hexdump \"hdimage no-partition\""))))
-           (add-before 'check 'fix-failing-tests
-             (lambda _
-               ;; We don't have /etc/passwd so uid 0 is not known as "root".
-               ;; Thus patch it out.
-               (substitute* '("test/ext2test.2.dump"
-                              "test/ext3test.2.dump"
-                              "test/ext4test.2.dump"
-                              "test/ext2test-percent.2.dump"
-                              "test/mke2fs.2.dump"
-                              "test/mke2fs.3.dump")
-                 (("root") "unknown"))))
-           (add-before 'check 'setenv-check
-             (lambda _
-               ;; Our container doesn't provide access to /etc/mtab
-               (setenv "EXT2FS_NO_MTAB_OK" "1")
-               ;; Make test reproducible
-               (setenv "GENIMAGE_MKFJFFS2" "mkfs.jffs2 -U")
-               (setenv "GENIMAGE_MKE2FS" "mke2fs -E no_copy_xattrs")))
-           (replace 'check
-             (lambda _
-               (invoke "make" "TEST_LOG_COMPILER=" "check"))))))
-      (native-inputs
-       (list autoconf
-             automake
-             ;;; Note: cramfs is obsolete.
-             dtc ; for the tests
-             pkg-config
-             util-linux)) ; for the tests
-      (inputs
-       `(("bash" ,bash)
-         ("cdrkit-libre" ,cdrkit-libre)
-         ("cpio" ,cpio)
-         ;; Note: invoked by final executable.
-         ("coreutils" ,coreutils) ; chmod, dd
-         ("dosfstools" ,dosfstools)
-         ("e2fsprogs" ,e2fsprogs)
-         ("f2fs-tools" ,f2fs-tools)
-         ("genext2fs" ,genext2fs)
-         ("libconfuse" ,libconfuse)
-         ("mtd-utils" ,mtd-utils)
-         ("mtools" ,mtools)
-         ("qemu" ,qemu-minimal)
-         ("squashfs-tools" ,squashfs-tools)
-         ("tar" ,tar)
-         ("u-boot-tools" ,u-boot-tools)))
-      (synopsis "Create Flash images according to specification")
-      (description "@command{genimage} creates Flash images according to a
+  (package
+    (name "genimage")
+    (version "19")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/pengutronix/genimage")
+              (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32
+         "1n2d4sziq190saa71ms15h0fbk171kqig1jc6kw35pqs4288pnc5"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:modules
+       ((ice-9 match)
+        ,@%default-gnu-imported-modules)
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'guixify
+           (lambda* (#:key inputs #:allow-other-keys)
+             (map (match-lambda
+                    ((input directory regexp)
+                     (substitute* "config.c"
+                       (((format #f "\\.def = \"(~a)\"" regexp) _ command)
+                        (string-append ".def = \"" (assoc-ref inputs input)
+                                       "/" directory "/" command "\"")))))
+                  '(("btrfs-progs"    "bin"  "mkfs.btrfs")
+                    ("cpio"           "bin"  "cpio")
+                    ("coreutils"      "bin"  "dd")
+                    ("e2fsprogs"      "sbin" "debugfs|e2fsck|mke2fs|tune2fs")
+                    ("genext2fs"      "bin"  "genext2fs")
+                    ("cdrkit-libre"   "bin"  "genisoimage")
+                    ("mtools"         "bin"  "mcopy|mmd")
+                    ;; mkcramfs is obsolete.
+                    ("dosfstools"     "sbin" "mkdosfs")
+                    ("mtd-utils"      "sbin" "mkfs.(jffs2|ubifs)|ubinize")
+                    ("f2fs-tools"     "sbin" "(mkfs|sload).f2fs")
+                    ("squashfs-tools" "bin"  "mksquashfs")
+                    ("qemu-minimal"   "bin"  "qemu-img")
+                    ;; rauc and fiptool are unsupported.
+                    ("tar"            "bin"  "tar")
+                    ("u-boot-tools"   "bin"  "mkimage")))
+             (substitute* "util.c"
+               (("\"/bin/sh\"")
+                (string-append "\"" (assoc-ref inputs "bash") "/bin/sh\"")))))
+         (add-before 'check 'fix-failing-tests
+           (lambda _
+             ;; We don't have /etc/passwd so uid 0 is not known as "root".
+             ;; Thus patch it out.
+             (substitute* '("test/ext2test.2.dump"
+                            "test/ext3test.2.dump"
+                            "test/ext4test.2.dump"
+                            "test/ext2test-percent.2.dump"
+                            "test/mke2fs.2.dump"
+                            "test/mke2fs.3.dump")
+               (("root") "unknown"))))
+         (add-before 'check 'setenv-check
+           (lambda _
+             ;; Our container doesn't provide access to /etc/mtab
+             (setenv "EXT2FS_NO_MTAB_OK" "1")
+             ;; Make test reproducible
+             (setenv "GENIMAGE_MKFJFFS2" "mkfs.jffs2 -U")
+             (setenv "GENIMAGE_MKE2FS" "mke2fs -E no_copy_xattrs")))
+         (replace 'check
+           (lambda _
+             (invoke "make" "TEST_LOG_COMPILER=" "check"))))))
+    (native-inputs
+     (list autoconf
+           automake
+           ;;; Note: cramfs is obsolete.
+           dtc ; for the tests
+           pkg-config
+           util-linux)) ; for the tests
+    (inputs
+     (list bash
+           btrfs-progs
+           cdrkit-libre
+           cpio
+           ;; Note: invoked by final executable.
+           coreutils
+           dosfstools
+           e2fsprogs
+           f2fs-tools
+           genext2fs
+           libconfuse
+           mtd-utils
+           mtools
+           qemu-minimal
+           squashfs-tools
+           tar
+           u-boot-tools))
+    (synopsis "Create Flash images according to specification")
+    (description "@command{genimage} creates Flash images according to a
 specification file.")
-      (home-page "https://github.com/pengutronix/genimage")
-      (license license:gpl2))))
+    (home-page "https://github.com/pengutronix/genimage")
+    (license license:gpl2)))
 
 (define-public teensy-loader-cli
   (package

gnu/packages/flex.scm

@@ -51,7 +51,7 @@
               (inherit bison)
               (arguments
                ;; Disable tests, since they require flex.
-               (substitute-keyword-arguments (package-arguments bison)
+               (substitute-keyword-arguments arguments
                  ((#:tests? _ #f) #f)))
               (inputs (alist-delete "flex" (package-inputs bison))))))
        `(("bison" ,bison-for-tests))))

gnu/packages/fluidplug.scm

@@ -357,7 +357,7 @@
     (inherit fluidplug-lv2)
     (name (fluidplug-plugin->package-name record))
     (arguments
-     (substitute-keyword-arguments (package-arguments fluidplug-lv2)
+     (substitute-keyword-arguments arguments
        ((#:make-flags make-flags)
         #~(list (string-append "CC=" #$(cc-for-target))
                 (string-append "DESTDIR=" #$output)

gnu/packages/fonts.scm

@@ -1283,6 +1283,31 @@ ko (Korean) locales for @code{fontconfig}.")
     ;; GPLv2 with font embedding exception.
     (license license:gpl2)))
 
+(define-public font-raleway
+  (package
+    (name "font-raleway")
+    (version "4.101")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "https://github.com/theleagueof/raleway"
+                                  "/releases/download/"
+                                  version "/Raleway-" version ".tar.xz"))
+              (sha256
+               (base32
+                "1sykwr7s7rhny1m2wv8mdn826mwkigr9nqplg4z25d0q4k9p0c2j"))))
+    (build-system font-build-system)
+    (outputs '("out" "ttf" "woff"))
+    (arguments
+     '(#:license-file-regexp "^(OFL.*|README)\\.md$"))
+    (home-page "https://github.com/theleagueof/raleway")
+    (synopsis "Sans-Serif typeface family")
+    (description
+     "Raleway is a display face that features both old style and lining
+numerals, standard and discretionary ligatures, a pretty complete set of
+diacritics, as well as a stylistic alternate inspired by more geometric
+sans-serif typefaces than its neo-grotesque inspired default character set.")
+    (license license:silofl1.1)))
+
 (define-public font-wqy-microhei
   (package
     (name "font-wqy-microhei")

gnu/packages/fontutils.scm

@@ -77,6 +77,7 @@
   #:use-module (gnu packages python-xyz)
   #:use-module (gnu packages qt)
   #:use-module (gnu packages sqlite)
+  #:use-module (gnu packages unicode)
   #:use-module (gnu packages webkit)
   #:use-module (gnu packages xdisorg)
   #:use-module (gnu packages xml)
@@ -157,7 +158,7 @@ anti-aliased glyph bitmap generation with 256 gray levels.")
     (inherit freetype)
     (name "freetype-with-brotli")
     (propagated-inputs
-     (modify-inputs (package-propagated-inputs freetype)
+     (modify-inputs propagated-inputs
        (prepend brotli)))))
 
 (define-public opentype-sanitizer
@@ -682,7 +683,7 @@ implementing the pen protocol for manipulating glyphs.")
    (package/inherit python-fontpens-bootstrap
      (name "python-fontpens")
      (arguments
-      (substitute-keyword-arguments (package-arguments python-fontpens-bootstrap)
+      (substitute-keyword-arguments arguments
         ((#:tests? _ #f)
          #t)
         ((#:phases phases #~%standard-phases)
@@ -697,7 +698,7 @@ implementing the pen protocol for manipulating glyphs.")
                    ((".*\\(\\(0, 0), \\(50, 20), \\(100, 40)).*") "")
                    ((".*107\\.70329614269009.*") ""))))))))
      (native-inputs
-      (modify-inputs (package-native-inputs python-fontpens-bootstrap)
+      (modify-inputs native-inputs
         (append python-fontparts-bootstrap
                 python-fontpens-bootstrap
                 python-pytest
@@ -738,7 +739,7 @@ process.  FontParts is the successor of RoboFab.")
   (package/inherit python-fontparts-bootstrap
     (name "python-fontparts")
     (propagated-inputs
-     (modify-inputs (package-propagated-inputs python-fontparts-bootstrap)
+     (modify-inputs propagated-inputs
        (replace "python-defcon-bootstrap" python-defcon)))
     (properties
      (alist-delete 'hidden?
@@ -1463,7 +1464,7 @@ high quality, anti-aliased and subpixel rendered text on a display.")
     (name "fontconfig")
     (outputs (cons "doc" (package-outputs fontconfig)))
     (arguments
-     (substitute-keyword-arguments (package-arguments fontconfig)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags configure-flags)
         #~(delete "--disable-docs" #$configure-flags))
        ((#:phases phases '%standard-phases)
@@ -1488,7 +1489,7 @@ high quality, anti-aliased and subpixel rendered text on a display.")
                      (delete-file-recursively source)))
                  '("man3" "man5"))))))))
     (native-inputs
-     (modify-inputs (package-native-inputs fontconfig)
+     (modify-inputs native-inputs
        (append docbook-utils)))
     (properties (alist-delete 'hidden? (package-properties fontconfig)))))
 
@@ -1803,7 +1804,8 @@ definitions.")
                (base32 "1y30bk9rdya8bkw4q77y6nq5xfg7nm0qliz5miqdlk8c0r6fr0na"))))
     (build-system cmake-build-system)
     (native-inputs
-     (list pkg-config))
+     (list pkg-config
+           python-setuptools))
     (inputs
      (list cairo
            bash-minimal
@@ -1988,7 +1990,7 @@ UFO3 as described by the UFO font format.")
   (package/inherit python-defcon-bootstrap
     (name "python-defcon")
     (propagated-inputs
-     (modify-inputs (package-propagated-inputs python-defcon-bootstrap)
+     (modify-inputs propagated-inputs
        (replace "python-fontpens-bootstrap" python-fontpens)))
     (properties
      (alist-delete 'hidden?
@@ -2150,7 +2152,8 @@ work well with other GTK desktop environments.")
      `(#:tests? #f ; There are no tests.
        #:configure-flags
        (list (string-append
-              "-DUNICODE_BLOCKS=" (assoc-ref %build-inputs "unicode-blocks")))
+              "-DUNICODE_BLOCKS=" (assoc-ref %build-inputs "ucd")
+              "/share/ucd/Blocks.txt"))
        #:phases
        (modify-phases %standard-phases
          (add-after 'install 'set-library-path
@@ -2179,16 +2182,7 @@ work well with other GTK desktop environments.")
        ("perl" ,perl)                   ;needed for pdfoutline
        ("perl-pdf-api2" ,perl-pdf-api2)
        ("perl-libintl-perl" ,perl-libintl-perl)
-       ("unicode-blocks"
-        ,(let ((version "14.0.0"))
-           (origin
-             (method url-fetch)
-             (uri (string-append "https://unicode.org/Public/"
-                                 version "/ucd/Blocks.txt"))
-             (file-name (string-append "unicode-blocks-" version ".txt"))
-             (sha256
-              (base32
-               "05vzgrvfp35mgxjgkm4wnxjjgzva8n6545i9jxd4pczpvvfp122r")))))))
+       ("ucd" ,ucd)))
     (home-page "https://github.com/eugmes/fntsample")
     (synopsis "PDF and PostScript font samples generator")
     (description "This package provides a tool that can be used to make font

gnu/packages/freedesktop.scm

@@ -147,6 +147,7 @@
   #:use-module (gnu packages tls)
   #:use-module (gnu packages valgrind)
   #:use-module (gnu packages video)
+  #:use-module (gnu packages vim)
   #:use-module (gnu packages virtualization)
   #:use-module (gnu packages vulkan)
   #:use-module (gnu packages w3m)
@@ -221,13 +222,13 @@ application-centers for distributions.")
   (package/inherit appstream
     (name "appstream-qt")
     (native-inputs
-     (modify-inputs (package-native-inputs appstream)
+     (modify-inputs native-inputs
        (prepend qttools-5)))
     (inputs
-     (modify-inputs (package-inputs appstream)
+     (modify-inputs inputs
        (prepend qtbase-5)))
     (arguments
-     (substitute-keyword-arguments (package-arguments appstream)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags #~'())
         #~(append '("-Dqt=true" "-Dqt-versions=5") #$flags))))))
 
@@ -235,13 +236,13 @@ application-centers for distributions.")
   (package/inherit appstream
     (name "appstream-qt6")
     (native-inputs
-     (modify-inputs (package-native-inputs appstream)
+     (modify-inputs native-inputs
        (prepend qttools)))
     (inputs
-     (modify-inputs (package-inputs appstream)
+     (modify-inputs inputs
        (prepend qtbase)))
     (arguments
-     (substitute-keyword-arguments (package-arguments appstream)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags #~'())
         #~(append '("-Dqt=true" "-Dqt-versions=6") #$flags))))))
 
@@ -695,7 +696,7 @@ other applications that need to directly deal with input devices.")
      (fold alist-delete (package-inputs libinput)
            '("cairo" "glib" "gtk+" "libwacom")))
     (arguments
-     (substitute-keyword-arguments (package-arguments libinput)
+     (substitute-keyword-arguments arguments
       ((#:configure-flags flags ''())
        `(cons* "-Dlibwacom=false"
                "-Ddebug-gui=false"    ;requires gtk+@3
@@ -1951,7 +1952,7 @@ message bus.")
            docbook-xsl
            gettext-minimal
            `(,glib "bin")               ; for gdbus-codegen, etc.
-           glibc-locales                    ;for tests
+           (libc-locales-for-target (%current-system)) ;for tests
            gobject-introspection
            gtk-doc/stable
            libxslt
@@ -3173,7 +3174,8 @@ compatible with the well-known scripts of the same name.")
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "1rbqkmvvfig98ig8gsf93waiizrminj7gywxbza15hzx3an3hwh9"))))
+                "1rbqkmvvfig98ig8gsf93waiizrminj7gywxbza15hzx3an3hwh9"))
+              (patches (search-patches "libportal-qt-6.9.patch"))))
     (build-system meson-build-system)
     (arguments
      (list
@@ -3196,8 +3198,7 @@ compatible with the well-known scripts of the same name.")
     (inputs
      (list gtk
            gtk+
-           qtbase-5
-           qtx11extras))
+           qtbase))
     (propagated-inputs
      (list glib))
     (home-page "https://github.com/flatpak/libportal")
@@ -3604,3 +3605,37 @@ implements the decoration drawing.")
     (description
      "@code{iio-sensor-proxy} is a daemon which passes IIO sensor data to D-Bus.")
     (license license:gpl3+)))
+
+(define-public rtkit
+  (package
+    (name "rtkit")
+    (version "0.14")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://gitlab.freedesktop.org/pipewire/rtkit.git")
+             (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "07swd78aglawfddc1zjx5v8scm85q1qpmahjskh8hn6lfr47dpnb"))))
+    (build-system meson-build-system)
+    (inputs (list dbus libcap polkit xxd))
+    (native-inputs (list pkg-config))
+    (arguments
+     (list
+      #:configure-flags
+      #~(list (string-append "-Ddbus_interfacedir="
+                             #$output "/share/dbus-1/interfaces")
+              (string-append "-Ddbus_systemservicedir="
+                             #$output "/share/dbus-1/system-services")
+              (string-append "-Dpolkit_actiondir="
+                             #$output "/share/polkit-1/actions"))))
+    (home-page "https://gitlab.freedesktop.org/pipewire/rtkit")
+    (synopsis "Realtime Policy and Watchdog Daemon")
+    (description
+     "RealtimeKit is a D-Bus system service that changes the scheduling policy
+of user processes and threads to SCHED_RR (i.e. realtime scheduling mode) on
+request.  It is intended to be used as a secure mechanism to allow real-time
+scheduling to be used by normal user processes.")
+    (license license:gpl3)))

gnu/packages/game-development.scm

@@ -2285,9 +2285,9 @@ It can convert worlds from Minecraft 1.9 and later.")
       (home-page "https://github.com/listia/mc2mt")
       (license license:expat))))
 
-(define-public mygui
+(define-public mygui-gl
   (package
-    (name "mygui")
+    (name "mygui-gl")
     (version "3.4.3")
     (source
      (origin
@@ -2303,11 +2303,13 @@ It can convert worlds from Minecraft 1.9 and later.")
      (list
       #:tests? #f                       ;no test target
       #:configure-flags
-      #~(list "-DMYGUI_INSTALL_DOCS=TRUE"
+      #~(list "-DMYGUI_RENDERSYSTEM=4" ; 3 is Ogre, 4 is OpenGL.
+              "-DMYGUI_INSTALL_DOCS=TRUE"
               ;; Demos and tools are Windows-specific:
               ;; https://github.com/MyGUI/mygui/issues/24.
               "-DMYGUI_BUILD_DEMOS=FALSE"
-              "-DMYGUI_BUILD_TOOLS=FALSE")))
+              "-DMYGUI_BUILD_TOOLS=FALSE"
+              "-DMYGUI_DONT_USE_OBSOLETE=TRUE")))
     (native-inputs
      (list boost
            doxygen
@@ -2315,11 +2317,14 @@ It can convert worlds from Minecraft 1.9 and later.")
     (inputs
      (list font-dejavu
            freetype
+           glu
            graphviz
+           libglvnd
            libx11
-           ogre
-           ois))
-    (synopsis "Fast, flexible and simple GUI")
+           mesa
+           ois
+           (sdl-union (list sdl2 sdl2-image))))
+    (synopsis "Fast, flexible and simple GUI (OpenGL backend)")
     (description
      "MyGUI is a library for creating Graphical User Interfaces (GUIs) for games
 and 3D applications.  The main goals of MyGUI are: speed, flexibility and ease
@@ -2327,30 +2332,6 @@ of use.")
     (home-page "http://mygui.info/")
     (license license:expat)))
 
-(define-public mygui-gl
-  ;; Closure size is reduced by some 800 MiB.
-  (package/inherit mygui
-    (name "mygui-gl")
-    (arguments
-     (substitute-keyword-arguments (package-arguments mygui)
-       ((#:configure-flags _)
-        `(cons* "-DMYGUI_RENDERSYSTEM=4" ; 3 is Ogre, 4 is OpenGL.
-                ;; We can't reuse the flags because of the mention to Ogre.
-                (list "-DMYGUI_INSTALL_DOCS=TRUE"
-                      ;; Demos and tools are Windows-specific:
-                      ;; https://github.com/MyGUI/mygui/issues/24.
-                      "-DMYGUI_BUILD_DEMOS=FALSE"
-                      "-DMYGUI_BUILD_TOOLS=FALSE"
-                      "-DMYGUI_DONT_USE_OBSOLETE=TRUE")))))
-    (inputs
-     (modify-inputs (package-inputs mygui)
-       (delete "ogre")
-       (prepend glu
-                libglvnd                ; for find_package(… GLX)
-                mesa                    ; for find_package(… OpenGL …)
-                (sdl-union (list sdl2 sdl2-image)))))
-    (synopsis "Fast, flexible and simple GUI (OpenGL backend)")))
-
 (define-public openmw
   (package
     (name "openmw")

gnu/packages/games.scm

@@ -834,7 +834,7 @@ fight or flee@dots{}
     (inherit boohu)
     (name "boohu-tk")
     (arguments
-     (substitute-keyword-arguments (package-arguments boohu)
+     (substitute-keyword-arguments arguments
        ((#:tests? _ #t) #f)
        ((#:build-flags _ #~())
         #~(list "--tags=tk"))
@@ -2126,7 +2126,7 @@ does not include game data.")
     (arguments
      ;; No tests.  See https://github.com/Keriew/augustus/issues/82.
      `(#:tests? #f))
-    (inputs (modify-inputs (package-inputs julius)
+    (inputs (modify-inputs inputs
               (prepend expat)))
     (home-page "https://github.com/Keriew/augustus")
     (synopsis "Re-implementation of Caesar III game engine with gameplay changes")
@@ -3433,7 +3433,7 @@ To run, you must put your official game data, @code{Levels} and @code{Help} in
        (modules '((guix build utils)))
        (patches (search-patches
                  "serious-sam-classic-engine-patch-paths.patch"))))
-    (inputs (modify-inputs (package-inputs serious-sam-classic)
+    (inputs (modify-inputs inputs
               (prepend vulkan-loader vulkan-headers)))
     (synopsis
      "SeriousSam engine and Serious Sam: TFE and TSE with Vulkan renderer")
@@ -3488,7 +3488,7 @@ corruption… You hope luck will be on your side!
   (package/inherit shamogu
     (name "shamogu-sdl")
     (arguments
-     (substitute-keyword-arguments (package-arguments shamogu)
+     (substitute-keyword-arguments arguments
        ((#:tests? _ #t) #f)
        ((#:build-flags _ #'()) #~(list "--tags=sdl"))
        ((#:phases _ #~%standard-phases)
@@ -3498,7 +3498,7 @@ corruption… You hope luck will be on your side!
                 (rename-file (string-append #$output "/bin/shamogu")
                              (string-append #$output "/bin/shamogu-sdl"))))))))
     (native-inputs
-     (modify-inputs (package-native-inputs shamogu)
+     (modify-inputs native-inputs
        (prepend pkg-config)))))
 
 (define-public solarus
@@ -3576,9 +3576,9 @@ in mind.")
           (add-before 'configure 'chdir
             (lambda _
               (chdir "editor"))))))
-    (native-inputs (modify-inputs (package-inputs solarus)
+    (native-inputs (modify-inputs native-inputs
                      (prepend qttools qlementine)))
-    (inputs (modify-inputs (package-inputs solarus)
+    (inputs (modify-inputs inputs
               (prepend solarus)
               (append qtbase qtsvg qtwayland)))
     (synopsis "Create and modify quests for the Solarus engine")
@@ -3608,7 +3608,7 @@ quests for the Solarus engine.")))
     (native-inputs (modify-inputs (package-inputs solarus)
                      (prepend qlementine qlementine-icons qtappinstancemanager
                               qttools)))
-    (inputs (modify-inputs (package-inputs solarus)
+    (inputs (modify-inputs inputs
               (prepend solarus)
               (append qtbase qtsvg qtwayland)))
     (synopsis "Game launcher and browser for Solarus")
@@ -5439,7 +5439,7 @@ next campaign.")
     (native-inputs
      (list pkg-config))
     (arguments
-     (substitute-keyword-arguments (package-arguments wesnoth)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags _)
         #~'("-DENABLE_SYSTEM_LUA=ON" "-DENABLE_GAME=OFF"))))
     (synopsis "Dedicated @emph{Battle for Wesnoth} server")
@@ -5811,10 +5811,10 @@ Transport Tycoon Deluxe.")
                     (assoc-ref outputs "out")))
                  (search-path-as-list (list base) (map cdr inputs)))))))))
     (inputs
-     (modify-inputs (package-inputs openttd-engine)
+     (modify-inputs inputs
        (prepend fluidsynth freepats-gm)))
     (native-inputs
-     (modify-inputs (package-native-inputs openttd-engine)
+     (modify-inputs native-inputs
        (prepend openttd-opengfx openttd-openmsx openttd-opensfx)))))
 
 (define-public openttd-jgrpp
@@ -5831,10 +5831,10 @@ Transport Tycoon Deluxe.")
        (file-name (git-file-name name version))
        (sha256
         (base32 "1jzzvribf2cqvjl9cympyx9qpplljvmhqrrlw7aq4ckzl92d87z3"))))
-    (inputs (modify-inputs (package-inputs openttd)
+    (inputs (modify-inputs inputs
               (append zstd harfbuzz)))
     (arguments
-     (substitute-keyword-arguments (package-arguments openttd)
+     (substitute-keyword-arguments arguments
        ((#:phases phases '%standard-phases)
           #~(modify-phases #$phases
               (add-before 'check 'build-tests
@@ -7559,7 +7559,7 @@ into the Space Age.")
 (define-public no-more-secrets
   (package
     (name "no-more-secrets")
-    (version "0.3.3")
+    (version "1.0.1")
     (source
      (origin
        (method git-fetch)
@@ -7568,7 +7568,7 @@ into the Space Age.")
              (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "1zfv4qabikf8w9winsr4brxrdvs3f0d7xvydksyx8bydadsm2v2h"))))
+        (base32 "14h34zpgjldw9bf65chb72gnzw5q88djrdasz2828r3ck6k88l21"))))
     (build-system gnu-build-system)
     (arguments
      `(#:tests? #f
@@ -8247,10 +8247,10 @@ monsters in a quest to find the mystifyingly fabulous Orb of Zot.")
            "GAME=crawl-tiles"
            #$flags))))
     (inputs
-     (modify-inputs (package-inputs crawl)
+     (modify-inputs inputs
        (prepend font-dejavu freetype glu libpng sdl2 sdl2-image sdl2-mixer)))
     (native-inputs
-     (modify-inputs (package-native-inputs crawl)
+     (modify-inputs native-inputs
        (prepend pngcrush which)))
     (synopsis "Graphical roguelike dungeon crawler game")))
 
@@ -8940,7 +8940,7 @@ some graphical niceities, and numerous bug-fixes and other improvements.")
                         #t))))
        ,@(strip-keyword-arguments '(#:make-flags #:phases)
                                   (package-arguments quakespasm))))
-    (inputs (modify-inputs (package-inputs quakespasm)
+    (inputs (modify-inputs inputs
               (prepend
                glslang
                spirv-tools
@@ -11470,7 +11470,7 @@ player adaptability for character progression.")
   (package/inherit harmonist
     (name "harmonist-sdl")
     (arguments
-     (substitute-keyword-arguments (package-arguments harmonist)
+     (substitute-keyword-arguments arguments
        ((#:tests? _ #t) #f)
        ((#:build-flags _ #'()) #~(list "--tags=sdl"))
        ((#:phases _ #~%standard-phases)
@@ -11481,7 +11481,7 @@ player adaptability for character progression.")
                  (string-append #$output "/bin/harmonist")
                  (string-append #$output "/bin/harmonist-sdl"))))))))
     (native-inputs
-     (modify-inputs (package-native-inputs harmonist)
+     (modify-inputs native-inputs
        (prepend pkg-config)))))
 
 (define-public li-ri
@@ -13433,7 +13433,9 @@ virtual reality devices.")
      (list
       #:configure-flags
       #~(list "-DUSE_TESTS=ON" "-DOPENGL_BACKEND=OpenGL")))
-    (native-inputs (list python glibc-locales googletest))
+    (native-inputs (list python
+                         (libc-utf8-locales-for-target (%current-system))
+                         googletest))
     (inputs (list freetype
                   libiconv
                   libpng

gnu/packages/gawk.scm

@@ -110,7 +110,7 @@ including network access, sorting, and large libraries.")
   (package/inherit gawk
     (name "gawk-mpfr")
     (inputs
-     (modify-inputs (package-inputs gawk)
+     (modify-inputs inputs
        (prepend mpfr)))))
 
 ;; Suffixed with -next because, similarly to Emacs, development versions are
@@ -249,7 +249,7 @@ programs can be captured and transferred to systems that have Awk but not
   (package/inherit cppawk
     (name "cppawk-egawk")
     (arguments
-     (substitute-keyword-arguments (package-arguments cppawk)
+     (substitute-keyword-arguments arguments
        ((#:phases phases)
         `(modify-phases ,phases
            (replace 'fix-awk-paths
@@ -258,7 +258,7 @@ programs can be captured and transferred to systems that have Awk but not
                  (("awk=gawk") (string-append "awk=" (which "egawk")))
                  (("awk '") (string-append (which "egawk") " '")))))))))
     (inputs
-     (modify-inputs (package-inputs cppawk)
+     (modify-inputs inputs
        (delete "gawk-mpfr")
        (prepend egawk-next)))
     (synopsis "Wrapper script that adds C preprocessing to Enhanced GNU Awk")))

gnu/packages/gcc.scm

@@ -431,36 +431,30 @@ Go.  It also includes runtime support libraries for these languages.")
                  '("alpha" "bfin" "i386" "m68k"
                    "pa" "sh" "tilepro" "xtensa")))))
     (arguments
-     ;; Since 'arguments' is a function of the package's version, define
-     ;; 'parent' such that the 'arguments' thunk gets to see the right
-     ;; version.
-     (let ((parent (package
-                     (inherit gcc-base)
-                     (version (package-version this-package)))))
-       (if (%current-target-system)
-           (package-arguments parent)
-           ;; For native builds of some GCC versions the C++ include path needs to
-           ;; be adjusted so it does not interfere with GCC's own build processes.
-           (substitute-keyword-arguments (package-arguments parent)
-             ((#:modules modules %default-gnu-modules)
-              `((srfi srfi-1)
-                ,@modules))
-             ((#:phases phases)
-              `(modify-phases ,phases
-                 (add-after 'set-paths 'adjust-CPLUS_INCLUDE_PATH
-                   (lambda* (#:key inputs #:allow-other-keys)
-                     (let ((libc (assoc-ref inputs "libc"))
-                           (gcc (assoc-ref inputs  "gcc")))
-                       (setenv "CPLUS_INCLUDE_PATH"
-                               (string-join (fold delete
-                                                  (string-split (getenv "CPLUS_INCLUDE_PATH")
-                                                                #\:)
-                                                  (list (string-append libc "/include")
-                                                        (string-append gcc "/include/c++")))
-                                            ":"))
-                       (format #t
-                               "environment variable `CPLUS_INCLUDE_PATH' changed to ~a~%"
-                               (getenv "CPLUS_INCLUDE_PATH")))))))))))
+     (if (%current-target-system)
+         arguments
+         ;; For native builds of some GCC versions the C++ include path needs to
+         ;; be adjusted so it does not interfere with GCC's own build processes.
+         (substitute-keyword-arguments arguments
+           ((#:modules modules %default-gnu-modules)
+            `((srfi srfi-1)
+              ,@modules))
+           ((#:phases phases)
+            `(modify-phases ,phases
+               (add-after 'set-paths 'adjust-CPLUS_INCLUDE_PATH
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (let ((libc (assoc-ref inputs "libc"))
+                         (gcc (assoc-ref inputs  "gcc")))
+                     (setenv "CPLUS_INCLUDE_PATH"
+                             (string-join (fold delete
+                                                (string-split (getenv "CPLUS_INCLUDE_PATH")
+                                                              #\:)
+                                                (list (string-append libc "/include")
+                                                      (string-append gcc "/include/c++")))
+                                          ":"))
+                     (format #t
+                             "environment variable `CPLUS_INCLUDE_PATH' changed to ~a~%"
+                             (getenv "CPLUS_INCLUDE_PATH"))))))))))
     (supported-systems (fold delete %supported-systems
                              '("aarch64-linux" "riscv64-linux"
                                "powerpc64le-linux" "x86_64-gnu")))))
@@ -491,44 +485,38 @@ Go.  It also includes runtime support libraries for these languages.")
                  '("aarch64" "alpha" "bfin" "i386" "m68k"
                    "pa" "sh" "tilepro" "xtensa")))))
     (arguments
-     ;; Since 'arguments' is a function of the package's version, define
-     ;; 'parent' such that the 'arguments' thunk gets to see the right
-     ;; version.
-     (let ((parent (package
-                     (inherit gcc-base)
-                     (version (package-version this-package)))))
-       (if (%current-target-system)
-           (substitute-keyword-arguments (package-arguments parent)
-            ((#:configure-flags flags '())
-             `(cons "CXX=g++ -std=c++03" ,flags)))
-           (substitute-keyword-arguments (package-arguments parent)
-             ((#:modules modules %default-gnu-modules)
-              `((srfi srfi-1)
-                ,@modules))
-             ((#:configure-flags flags '())
-              `(cons "CXX=g++ -std=c++03" ,flags))
-             ;; For native builds of some GCC versions the C++ include path needs to
-             ;; be adjusted so it does not interfere with GCC's own build processes.
-             ((#:phases phases)
-              `(modify-phases ,phases
-                 (add-after 'set-paths 'adjust-CPLUS_INCLUDE_PATH
-                   (lambda* (#:key inputs #:allow-other-keys)
-                     (let ((libc (assoc-ref inputs "libc"))
-                           (gcc (assoc-ref inputs  "gcc")))
-                       (setenv "CPLUS_INCLUDE_PATH"
-                               (string-join (fold delete
-                                                  (string-split (getenv "CPLUS_INCLUDE_PATH")
-                                                                #\:)
-                                                  (list (string-append libc "/include")
-                                                        (string-append gcc "/include/c++")))
-                                            ":"))
-                       (format #t
-                               "environment variable `CPLUS_INCLUDE_PATH' changed to ~a~%"
-                               (getenv "CPLUS_INCLUDE_PATH")))))))))))
+     (if (%current-target-system)
+         (substitute-keyword-arguments arguments
+           ((#:configure-flags flags '())
+            `(cons "CXX=g++ -std=c++03" ,flags)))
+         (substitute-keyword-arguments arguments
+           ((#:modules modules %default-gnu-modules)
+            `((srfi srfi-1)
+              ,@modules))
+           ((#:configure-flags flags '())
+            `(cons "CXX=g++ -std=c++03" ,flags))
+           ;; For native builds of some GCC versions the C++ include path needs to
+           ;; be adjusted so it does not interfere with GCC's own build processes.
+           ((#:phases phases)
+            `(modify-phases ,phases
+               (add-after 'set-paths 'adjust-CPLUS_INCLUDE_PATH
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (let ((libc (assoc-ref inputs "libc"))
+                         (gcc (assoc-ref inputs  "gcc")))
+                     (setenv "CPLUS_INCLUDE_PATH"
+                             (string-join (fold delete
+                                                (string-split (getenv "CPLUS_INCLUDE_PATH")
+                                                              #\:)
+                                                (list (string-append libc "/include")
+                                                      (string-append gcc "/include/c++")))
+                                          ":"))
+                     (format #t
+                             "environment variable `CPLUS_INCLUDE_PATH' changed to ~a~%"
+                             (getenv "CPLUS_INCLUDE_PATH"))))))))))
     (supported-systems (fold delete %supported-systems
                              '("riscv64-linux" "x86_64-gnu")))
     (inputs
-     (modify-inputs (package-inputs gcc-base)
+     (modify-inputs inputs
        (prepend isl-0.11 cloog)))))
 
 (define-public gcc-4.9
@@ -560,45 +548,39 @@ Go.  It also includes runtime support libraries for these languages.")
                  '("aarch64" "alpha" "bfin" "i386" "m68k" "nios2"
                    "pa" "sh" "tilepro" "xtensa")))))
     (arguments
-     ;; Since 'arguments' is a function of the package's version, define
-     ;; 'parent' such that the 'arguments' thunk gets to see the right
-     ;; version.
-     (let ((parent (package
-                     (inherit gcc-base)
-                     (version (package-version this-package)))))
-       (if (%current-target-system)
-           (substitute-keyword-arguments (package-arguments parent)
-            ((#:configure-flags flags '())
-             `(cons "CXX=g++ -std=c++11" ,flags)))
-           (substitute-keyword-arguments (package-arguments parent)
-             ((#:modules modules %default-gnu-modules)
-              `((srfi srfi-1)
-                ,@modules))
-             ((#:configure-flags flags '())
-              `(cons "CXX=g++ -std=c++11" ,flags))
-             ;; For native builds of some GCC versions the C++ include path needs to
-             ;; be adjusted so it does not interfere with GCC's own build processes.
-             ((#:phases phases)
-              `(modify-phases ,phases
-                 (add-after 'set-paths 'adjust-CPLUS_INCLUDE_PATH
-                   (lambda* (#:key inputs #:allow-other-keys)
-                     (let ((libc (assoc-ref inputs "libc"))
-                           (gcc (assoc-ref inputs  "gcc")))
-                       (setenv "CPLUS_INCLUDE_PATH"
-                               (string-join (fold delete
-                                                  (string-split (getenv "CPLUS_INCLUDE_PATH")
-                                                                #\:)
-                                                  (list (string-append libc "/include")
-                                                        (string-append gcc "/include/c++")))
-                                            ":"))
-                       (format #t
-                               "environment variable `CPLUS_INCLUDE_PATH' changed to ~a~%"
-                               (getenv "CPLUS_INCLUDE_PATH")))))))))))
+     (if (%current-target-system)
+         (substitute-keyword-arguments arguments
+           ((#:configure-flags flags '())
+            `(cons "CXX=g++ -std=c++11" ,flags)))
+         (substitute-keyword-arguments arguments
+           ((#:modules modules %default-gnu-modules)
+            `((srfi srfi-1)
+              ,@modules))
+           ((#:configure-flags flags '())
+            `(cons "CXX=g++ -std=c++11" ,flags))
+           ;; For native builds of some GCC versions the C++ include path needs to
+           ;; be adjusted so it does not interfere with GCC's own build processes.
+           ((#:phases phases)
+            `(modify-phases ,phases
+               (add-after 'set-paths 'adjust-CPLUS_INCLUDE_PATH
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (let ((libc (assoc-ref inputs "libc"))
+                         (gcc (assoc-ref inputs  "gcc")))
+                     (setenv "CPLUS_INCLUDE_PATH"
+                             (string-join (fold delete
+                                                (string-split (getenv "CPLUS_INCLUDE_PATH")
+                                                              #\:)
+                                                (list (string-append libc "/include")
+                                                      (string-append gcc "/include/c++")))
+                                          ":"))
+                     (format #t
+                             "environment variable `CPLUS_INCLUDE_PATH' changed to ~a~%"
+                             (getenv "CPLUS_INCLUDE_PATH"))))))))))
     ;; Override inherited texinfo-5 with latest version.
     (native-inputs (list perl ;for manpages
                          texinfo))
     (inputs
-     (modify-inputs (package-inputs gcc-base)
+     (modify-inputs inputs
        (prepend isl-0.11 cloog)))
     (supported-systems (fold delete %supported-systems
                              '("riscv64-linux" "x86_64-gnu")))))
@@ -644,42 +626,36 @@ Go.  It also includes runtime support libraries for these languages.")
               (modules '((guix build utils)))
               (snippet gcc-canadian-cross-objdump-snippet)))
     (arguments
-     ;; Since 'arguments' is a function of the package's version, define
-     ;; 'parent' such that the 'arguments' thunk gets to see the right
-     ;; version.
-     (let ((parent (package
-                     (inherit gcc-base)
-                     (version (package-version this-package)))))
-       (substitute-keyword-arguments (package-arguments parent)
-         ((#:modules modules %default-gnu-modules)
-          `((srfi srfi-1)
-            ,@modules))
-         ((#:configure-flags flags '())
-          `(cons "CXX=g++ -std=c++11" ,flags))
-         ;; For native builds of some GCC versions the C++ include path needs to
-         ;; be adjusted so it does not interfere with GCC's own build processes.
-         ((#:phases phases)
-          (if (%current-target-system)
-              phases
-              `(modify-phases ,phases
-                 (add-after 'set-paths 'adjust-CPLUS_INCLUDE_PATH
-                   (lambda* (#:key inputs #:allow-other-keys)
-                     (let ((libc (assoc-ref inputs "libc"))
-                           (gcc (assoc-ref inputs  "gcc")))
-                       (setenv "CPLUS_INCLUDE_PATH"
-                               (string-join (fold delete
-                                                  (string-split (getenv "CPLUS_INCLUDE_PATH")
-                                                                #\:)
-                                                  (list (string-append libc "/include")
-                                                        (string-append gcc "/include/c++")))
-                                            ":"))
-                       (format #t
-                               "environment variable `CPLUS_INCLUDE_PATH' changed to ~a~%"
-                               (getenv "CPLUS_INCLUDE_PATH")))))))))))
+     (substitute-keyword-arguments arguments
+       ((#:modules modules %default-gnu-modules)
+        `((srfi srfi-1)
+          ,@modules))
+       ((#:configure-flags flags '())
+        `(cons "CXX=g++ -std=c++11" ,flags))
+       ;; For native builds of some GCC versions the C++ include path needs to
+       ;; be adjusted so it does not interfere with GCC's own build processes.
+       ((#:phases phases)
+        (if (%current-target-system)
+            phases
+            `(modify-phases ,phases
+               (add-after 'set-paths 'adjust-CPLUS_INCLUDE_PATH
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (let ((libc (assoc-ref inputs "libc"))
+                         (gcc (assoc-ref inputs  "gcc")))
+                     (setenv "CPLUS_INCLUDE_PATH"
+                             (string-join (fold delete
+                                                (string-split (getenv "CPLUS_INCLUDE_PATH")
+                                                              #\:)
+                                                (list (string-append libc "/include")
+                                                      (string-append gcc "/include/c++")))
+                                          ":"))
+                     (format #t
+                             "environment variable `CPLUS_INCLUDE_PATH' changed to ~a~%"
+                             (getenv "CPLUS_INCLUDE_PATH"))))))))))
     (native-inputs (list perl ;for manpages
                          texinfo))
     (inputs
-     (modify-inputs (package-inputs gcc-base)
+     (modify-inputs inputs
        (prepend ;; GCC5 needs <isl/band.h> which is removed in later versions.
                 isl-0.18)))
     (supported-systems (fold delete %supported-systems
@@ -1009,7 +985,7 @@ It also includes runtime support libraries for these languages.")
               (modules '((guix build utils)))
               (snippet gcc-canadian-cross-objdump-snippet)))
     (arguments
-     (substitute-keyword-arguments (package-arguments gcc-11)
+     (substitute-keyword-arguments arguments
        ((#:phases phases #~%standard-phases)
        (if (target-hurd?)
            #~(modify-phases #$phases
@@ -1039,7 +1015,7 @@ It also includes runtime support libraries for these languages.")
                                        "gcc-5.0-libvtv-runpath.patch"))
               (modules '((guix build utils)))
               (snippet gcc-canadian-cross-objdump-snippet)))
-    (arguments (substitute-keyword-arguments (package-arguments gcc-13)
+    (arguments (substitute-keyword-arguments arguments
                  ((#:phases phases #~%standard-phases)
                   #~(modify-phases #$phases
                       (add-before 'configure 'pre-x86-configure
@@ -1073,7 +1049,7 @@ It also includes runtime support libraries for these languages.")
               (modules '((guix build utils)))
               (snippet gcc-canadian-cross-objdump-snippet)))
     (arguments
-     (substitute-keyword-arguments (package-arguments gcc-14)
+     (substitute-keyword-arguments arguments
        ((#:phases phases #~%standard-phases)
         #~(modify-phases #$phases
             (add-after 'install 'adjust-modules-file
@@ -1369,7 +1345,7 @@ as the 'native-search-paths' field."
                  (delete "lib" (package-outputs gcc))))
     (native-search-paths search-paths)
     (arguments
-     (substitute-keyword-arguments (package-arguments gcc)
+     (substitute-keyword-arguments arguments
        ((#:modules modules %default-gnu-modules)
         `(,@modules
           (srfi srfi-1)
@@ -1435,7 +1411,7 @@ as the 'native-search-paths' field."
   (package
     (inherit gdc)
     (arguments
-     (substitute-keyword-arguments (package-arguments gdc)
+     (substitute-keyword-arguments arguments
        ((#:modules modules)
         `(,@modules
           (ice-9 ftw)))
@@ -1508,14 +1484,14 @@ as the 'native-search-paths' field."
                        "^/lib/debug/.*/lib/libgdruntime"
                        "^/lib/debug/.*/lib/libgphobos"))))))))
     (inputs
-     (modify-inputs (package-inputs gdc)
+     (modify-inputs inputs
        ;; This makes flags like -static-libstdc++ work. Required for using this
        ;; compiler as a bootstrap compiler for GDC 12+.
        ;; Additionally, this allows us to support linking with GCC libraries,
        ;; without building or storing them ourselves.
        (append (list gcc "lib"))))
     (native-inputs
-     (let ((orig (package-native-inputs gdc)))
+     (let ((orig native-inputs))
        (if bootstrap-gdc
            (modify-inputs orig
              ;; Since GCC 12, GDC is self-hosted, requiring a version of itself
@@ -1625,7 +1601,7 @@ also includes the druntime and phobos libraries."
      (package
        (inherit base)
        (native-inputs
-        (modify-inputs (package-native-inputs base)
+        (modify-inputs native-inputs
           (prepend flex)))))))
 
 (define-public (make-libgccjit gcc)
@@ -1635,7 +1611,7 @@ also includes the druntime and phobos libraries."
     (outputs (delete "lib" (package-outputs gcc)))
     (properties (alist-delete 'hidden? (package-properties gcc)))
     (arguments
-     (substitute-keyword-arguments (package-arguments gcc)
+     (substitute-keyword-arguments arguments
        ((#:modules _ '())
         '((guix build gnu-build-system)
           (guix build utils)
@@ -1661,9 +1637,9 @@ also includes the druntime and phobos libraries."
                           (find-files
                            (string-append (assoc-ref outputs "out") "/bin")
                            ".*(c\\+\\+|cpp|g\\+\\+|gcov|gcc|gcc-.*)"))))))))
-    (inputs (modify-inputs (package-inputs gcc)
+    (inputs (modify-inputs inputs
               (delete "libstdc++")))
-    (native-inputs (modify-inputs (package-native-inputs gcc)
+    (native-inputs (modify-inputs native-inputs
                      (prepend gcc)))
     (synopsis "GCC library generating machine code on-the-fly at runtime")
     (description
@@ -1696,7 +1672,7 @@ misnomer.")))
         "This package is part of the GNU Compiler Collection and
 provides the GNU compiler for the Go programming language.")
       (arguments
-       (substitute-keyword-arguments (package-arguments gccgo)
+       (substitute-keyword-arguments arguments
          ((#:phases phases)
           #~(modify-phases #$phases
               #$@(if (and (version>=? (package-version gccgo) "12.0")

gnu/packages/gdb.scm

@@ -266,7 +266,7 @@ written in C, C++, Ada, Objective-C, Pascal and more.")
   (package/inherit gdb
     (name "gdb-multiarch")
     (arguments
-     (substitute-keyword-arguments (package-arguments gdb)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags '())
         #~(cons* "--enable-targets=all"
                  "--enable-multilib"
@@ -292,7 +292,7 @@ written in C, C++, Ada, Objective-C, Pascal and more.")
   (package/inherit gdb-14
     (name "avr-gdb")
     (arguments
-     (substitute-keyword-arguments (package-arguments gdb-14)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags '())
         #~(cons* "--target=avr"
                  "--disable-nls"
@@ -374,13 +374,13 @@ AMD's commercially available GPU architectures.")
         (base32
          "1msxz5xnm6fl2p9hzjnkaayd8x3dc0dp34ff60asr8mgxwxlcd9c"))))
     (inputs
-     (modify-inputs (package-inputs gdb)
+     (modify-inputs inputs
        (prepend rocdbgapi)))
     (native-inputs
-     (modify-inputs (package-native-inputs gdb)
+     (modify-inputs native-inputs
        (prepend bison flex perl)))
     (arguments
-     (substitute-keyword-arguments (package-arguments gdb)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags _ '())
         ''("--program-prefix=roc"
            "--disable-binutils"

gnu/packages/geo.scm

@@ -24,7 +24,7 @@
 ;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
 ;;; Copyright © 2024 Wilko Meyer <w@wmeyer.eu>
 ;;; Copyright © 2024 Jonathan Brielmaier <jonathan.brielmaier@web.de>
-;;; Copyright © 2025 Mattia Bunel <mattia.bunel@ehess.fr>
+;;; Copyright © 2025, 2026 Mattia Bunel <mattia.bunel@ehess.fr>
 ;;; Copyright © 2025 Andreas Enge <andreas@enge.fr>
 ;;; Copyright © 2025 Lars Bilke <lars.bilke@ufz.de>
 ;;; Copyright © 2025 Nicolas Graves <ngraves@ngraves.fr>
@@ -409,58 +409,9 @@ hierarchical hexagonal geospatial indexing system")
        (sha256
         (base32 "16gxa1sivghxw179rik87r918mjasars2qkzidlwq83qfa4axn20"))))
     (inputs
-     (modify-inputs (package-inputs python-h3)
+     (modify-inputs inputs
        (replace "h3" h3-3)))))
 
-(define-public memphis
-  (package
-    (name "memphis")
-    (version "0.2.3")
-    (source
-     (origin
-       (method git-fetch)
-       (uri
-        (git-reference
-         (url "https://github.com/jiuka/memphis")
-         (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "068c3943pgbpfjq44pmvn5fmkh005ak5aa67vvrq3fn487c6w54q"))))
-    (build-system glib-or-gtk-build-system)
-    (outputs '("out" "doc"))
-    (arguments
-     `(#:configure-flags
-       (list "--disable-static"
-             "--enable-gtk-doc"
-             "--enable-vala"
-             (string-append "--with-html-dir=" #$output "/share/gtk-doc/html"))
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'patch-autogen
-           (lambda _
-             (substitute* "autogen.sh"
-               (("\\./configure \"\\$@\"")
-                "")))))))
-    (native-inputs
-     (list autoconf
-           automake
-           docbook-xml-4.3
-           gobject-introspection
-           gtk-doc/stable
-           libtool
-           libxml2                      ;for XML_CATALOG_FILES
-           pkg-config
-           python-wrapper
-           seed
-           vala))
-    (inputs (list expat glib))
-    (propagated-inputs (list cairo))
-    (synopsis "Map-rendering for OpenSteetMap")
-    (description "Memphis is a map-rendering application and a library for
-OpenStreetMap written in C using eXpat, Cairo and GLib.")
-    (home-page "http://trac.openstreetmap.ch/trac/memphis/")
-    (license license:lgpl2.1+)))
-
 (define-public geos
   (package
     (name "geos")
@@ -976,14 +927,14 @@ hydrology and waste deposition.")
   (package
     (inherit ogs-serial)
     (name "ogs-petsc")
-    (inputs (modify-inputs (package-inputs ogs-serial)
+    (inputs (modify-inputs inputs
               (prepend openmpi petsc-openmpi)
               (replace "hdf5" hdf5-parallel-openmpi)
               (replace "netcdf-cxx4" netcdf-cxx4-parallel-openmpi)))
-    (native-inputs (modify-inputs (package-native-inputs ogs-serial)
+    (native-inputs (modify-inputs native-inputs
                      (prepend pkg-config)))
     (arguments
-     (substitute-keyword-arguments (package-arguments ogs-serial)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         #~(cons* "-DOGS_USE_PETSC=ON" "-DCMAKE_C_COMPILER=mpicc"
                  "-DCMAKE_CXX_COMPILER=mpic++"
@@ -1037,13 +988,13 @@ lets developers use the functionality of Proj in their own software.")
 (define-public python-obspy
   (package
     (name "python-obspy")
-    (version "1.4.2")
+    (version "1.5.0")
     (source
      (origin
        (method url-fetch)
        (uri (pypi-uri "obspy" version))
        (sha256
-        (base32 "0z1rf1m8dlcwrrc6bwncc6mgdph7vybg0ldm6xwhbgijv9ya34yx"))))
+        (base32 "0vk6mw06vmx9fhhykk80ndw1pp8821nzifrmdjd7igkdc652s848"))))
     (build-system pyproject-build-system)
     (arguments
      (list
@@ -1056,8 +1007,7 @@ lets developers use the functionality of Proj in their own software.")
     (native-inputs
      (list python-packaging
            python-pyproj
-           python-pytest
-           python-wheel))
+           python-pytest))
     (propagated-inputs
      (list python-decorator
            python-lxml
@@ -1665,7 +1615,7 @@ development.")
 (define-public pdal
   (package
     (name "pdal")
-    (version "2.9.0")
+    (version "2.10.0")
     (source
      (origin
        (method git-fetch)
@@ -1674,13 +1624,17 @@ development.")
              (commit version)))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "0gckixcykp9di4j7w6zkbhpj2ji1hvk8z3rw58dlqcvi81xcyjfa"))))
+        (base32 "0kbr084qmfkhc6wm76d1vgn2rvl3brzl588r2rd9441pvb19m9ds"))))
     (build-system cmake-build-system)
     (arguments
      (list
       #:configure-flags #~(list "-DUSE_EXTERNAL_GTEST=ON")
       #:parallel-tests? #f
-      #:test-exclude "pdal_io_(stac|copc)_reader_test"))
+      ;; Skip the tests using network to get remote data :
+      ;;     - pdal_io_stac_reader_test
+      ;;     - pdal_io_stac_remote_reader_test
+      ;;     - pdal_io_copc_remote_reader_test
+      #:test-exclude "pdal_io_(stac(_remote)?|copc_remote)_reader_test"))
     (native-inputs (list python googletest))
     (inputs (list gdal
                   h3
@@ -2981,7 +2935,7 @@ to the OSM opening hours specification.")
 (define-public josm
   (package
     (name "josm")
-    (version "19412")
+    (version "19539")
     (source (origin
               (method svn-fetch)
               (uri (svn-reference
@@ -2990,7 +2944,7 @@ to the OSM opening hours specification.")
                      (recursive? #f)))
               (sha256
                (base32
-                "152pf0ww16jj5cv94ywlv5nb8pvnyqmvmnwsy3w0lf094faqkv5d"))
+                "05kslpvdwl4fldjzl6m2kmqvbmjv5yvipfavg01l30ywhw2c7v7v"))
               (file-name (string-append name "-" version "-checkout"))
               (modules '((guix build utils)))
             (snippet
@@ -3009,7 +2963,6 @@ to the OSM opening hours specification.")
            java-jsr305
            java-metadata-extractor
            java-opening-hours-parser
-           java-openjfx-media
            java-parsson ; runtime dependency
            java-signpost-core
            java-svg-salamander
@@ -3116,6 +3069,7 @@ to the OSM opening hours specification.")
                  (lambda _
                    (display
                      (string-append "#!/bin/sh\n"
+                                    "_JAVA_AWT_WM_NONREPARENTING=1 "
                                     (assoc-ref inputs "openjdk") "/bin/java"
                                     " -cp " out "/share/java/josm.jar:"
                                     ;; CLASSPATH, but remove native inputs

gnu/packages/gettext.scm

@@ -163,7 +163,7 @@ translated messages from the catalogs.  Nearly all GNU packages use Gettext.")
                 "04kbg1sx0ncfrsbr85ggjslqkzzb243fcw9nyh3rrv1a22ihszf7"))
               (patches (search-patches "gettext-libunicode-update.patch"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments gettext-minimal)
+     (substitute-keyword-arguments arguments
        ((#:phases phases)
         #~(modify-phases #$phases
             (add-after 'unpack 'touch-test
@@ -187,7 +187,7 @@ translated messages from the catalogs.  Nearly all GNU packages use Gettext.")
   (package/inherit gettext-minimal
     (name "gettext")
     (arguments
-     (substitute-keyword-arguments (package-arguments gettext-minimal)
+     (substitute-keyword-arguments arguments
        ((#:phases phases)
         #~(modify-phases #$phases
             (add-after 'install 'add-emacs-autoloads
@@ -349,9 +349,9 @@ areas where they were not expected like documentation.")
     (native-inputs
      ;; Remove test dependencies, primarily to reduce the size of the
      ;; dependency graph of the ‘guix’ package.
-     (modify-inputs (package-native-inputs po4a)
+     (modify-inputs native-inputs
        (delete "docbook-xml" "perl-test-pod" "texlive-local-tree")))
     (arguments
-     (substitute-keyword-arguments (package-arguments po4a)
+     (substitute-keyword-arguments arguments
        ((#:tests? _ #t) #f)))
     (properties '((hidden? . #t)))))

gnu/packages/ghostscript.scm

@@ -311,13 +311,13 @@ output file formats and printers.")
 (define-public ghostscript/x
   (package/inherit ghostscript
     (name (string-append (package-name ghostscript) "-with-x"))
-    (inputs (modify-inputs (package-inputs ghostscript)
+    (inputs (modify-inputs inputs
               (prepend libxext libxt)))))
 
 (define-public ghostscript/cups
   (package/inherit ghostscript
     (name "ghostscript-with-cups")
-    (inputs (modify-inputs (package-inputs ghostscript)
+    (inputs (modify-inputs inputs
               (prepend cups-minimal)))))
 
 (define-public ijs

gnu/packages/gimp.scm

@@ -143,43 +143,10 @@
     (home-page "https://code.google.com/archive/p/poly2tri-c/")
     (license license:bsd-3)))
 
-(define-public mrg
-  (package
-    (name "mrg")
-    (version "0.1.4")
-    (source
-     (origin
-       (method git-fetch)
-       (uri
-        (git-reference
-         (url "https://github.com/hodefoting/mrg")
-         (commit version)))
-       (file-name
-        (git-file-name name version))
-       (sha256
-        (base32 "106qhh0c11576cc5kh90ds0ram72d3r6n9sadw0y4krnhap6dvwk"))))
-    (build-system meson-build-system)
-    (arguments
-     `(#:glib-or-gtk? #t))   ; To wrap binaries and/or compile schemas
-    (native-inputs
-     (list pkg-config))
-    (propagated-inputs
-     `(("alsa" ,alsa-lib)
-       ("cairo" ,cairo)
-       ("gtk+" ,gtk+)
-       ("mmm" ,mmm)
-       ("x11" ,libx11)))
-    (synopsis "Microraptor GUI")
-    (description "MrG is is a C API for creating user interfaces.  It can be
-used as an application writing environment or as an interactive canvas for part
-of a larger interface.")
-    (home-page "https://github.com/hodefoting/mrg")
-    (license license:lgpl2.0+)))
-
 (define-public babl
   (package
     (name "babl")
-    (version "0.1.114")
+    (version "0.1.124")
     (source (origin
               (method url-fetch)
               (uri (list (string-append "https://download.gimp.org/pub/babl/"
@@ -193,7 +160,7 @@ of a larger interface.")
                                         "/babl-" version ".tar.xz")))
               (sha256
                (base32
-                "11v48pnmsbbv9j1xh11gn8bx3lnhc96s6zxwncyp0iz4q637gfxw"))))
+                "1cgisifpxz0bhzp57x7jfg9wds6if9i24xznnnqz42glnr55838v"))))
     (build-system meson-build-system)
     (arguments
      (list
@@ -227,7 +194,7 @@ provided, as well as a framework to add new color models and data types.")
 (define-public gegl
   (package
     (name "gegl")
-    (version "0.4.62")
+    (version "0.4.68")
     (source
      (origin
        (method url-fetch)
@@ -241,7 +208,7 @@ provided, as well as a framework to add new color models and data types.")
                                  (version-major+minor version)
                                  "/gegl-" version ".tar.xz")))
        (sha256
-        (base32 "0v2wa2a3vnz1g4z5h9s8ili5h5kzk95hxlcp0zlxkwgbf5img1sq"))))
+        (base32 "1qrsn8rllllj3673767rrs3khrym1xa62flbirjn04khkadk00jh"))))
     (build-system meson-build-system)
     (arguments
      `(#:configure-flags
@@ -390,7 +357,7 @@ that is extensible via a plugin system.")
   (package
     (inherit gimp-2)
     (name "gimp")
-    (version "3.0.4")
+    (version "3.2.0")
     (source
      (origin
        (method url-fetch)
@@ -398,13 +365,15 @@ that is extensible via a plugin system.")
                            (version-major+minor version)
                            "/gimp-" version ".tar.xz"))
        (sha256
-        (base32 "09dbxim6k7pjkk8lbjkw3r4zi0y0mxvc4jk5fmjk42dzfp12xalc"))))
+        (base32 "10z0n9shpqwny6hkwdin7nmp5vb0707gk7nzjg3f66z52qa3j616"))))
     (build-system meson-build-system)
     (arguments
      (list #:modules `((ice-9 popen)
                        (ice-9 rdelim)
                        (guix build meson-build-system)
                        (guix build utils))
+           ;; Test tries to connect to the internet and fails.
+           #:test-options #~(list "--no-suite=desktop")
            #:phases
            #~(modify-phases %standard-phases
                (add-after 'unpack 'remove-gcc-reference
@@ -443,9 +412,11 @@ that is extensible via a plugin system.")
                     (find-files (string-append #$output "/bin")
                                 (lambda (_ stat)
                                   (eq? 'regular (stat:type stat))))))))))
-    (inputs (modify-inputs (package-inputs gimp-2)
+    (inputs (modify-inputs inputs
               (replace "gtk+" gtk+)
-              (prepend bash-minimal
+              (replace "mypaint-brushes" mypaint-brushes)
+              (prepend appstream
+                       bash-minimal
                        libjxl
                        libxmu
                        libxt
@@ -454,7 +425,7 @@ that is extensible via a plugin system.")
                        gjs
                        libxslt
                        xdg-utils)))
-    (native-inputs (modify-inputs (package-native-inputs gimp-2)
+    (native-inputs (modify-inputs native-inputs
                      (prepend appstream-glib
                               gi-docgen
                               libarchive

gnu/packages/gl.scm

@@ -309,7 +309,7 @@ also known as DXTn or DXTC) for Mesa.")
       (arguments
        (strip-keyword-arguments
         '(#:make-flags)
-        (substitute-keyword-arguments (package-arguments libva)
+        (substitute-keyword-arguments arguments
           ((#:configure-flags flags)
            '(list "--disable-glx"))))))))
 
@@ -657,7 +657,7 @@ from software emulation to complete hardware acceleration for modern GPUs.")
     (source (origin
               (inherit (package-source mesa))))
     (arguments
-     (substitute-keyword-arguments (package-arguments mesa)
+     (substitute-keyword-arguments arguments
        ((#:modules modules)
         (cons '(ice-9 textual-ports) modules))
        ((#:configure-flags flags)
@@ -1088,12 +1088,12 @@ and surfaces, receiving input and events.")
               (sha256
                (base32
                 "1sd396kkn53myp61kxrd18h7b1q4ix173hhxhvl0iz8j4x5h1v5m"))))
-    (native-inputs (modify-inputs (package-native-inputs glfw)
+    (native-inputs (modify-inputs native-inputs
                      (prepend pkg-config)))
     ;; When building out of source, the install phase fails with:
     ;;  file INSTALL cannot find "/tmp/guix-build-glfw-3.4.drv-0/build/docs/html":
     ;;  No such file or directory
-    (arguments (substitute-keyword-arguments (package-arguments glfw)
+    (arguments (substitute-keyword-arguments arguments
                  ((#:out-of-source? _ #f) #f)))))
 
 (define-public nanovg

gnu/packages/glib.scm

@@ -204,7 +204,7 @@ shared NFS home directories.")
    (package/inherit dbus
      (name "dbus-for-jami")
      (arguments
-      (substitute-keyword-arguments (package-arguments dbus)
+      (substitute-keyword-arguments arguments
         ((#:phases phases)
          #~(modify-phases #$phases
              (add-after 'unpack 'customize-config
@@ -234,7 +234,7 @@ shared NFS home directories.")
 (define-public dbus-verbose
   (package/inherit dbus
     (name "dbus-verbose")
-    (arguments (substitute-keyword-arguments (package-arguments dbus)
+    (arguments (substitute-keyword-arguments arguments
                  ((#:configure-flags flags '())
                   #~(cons "-Dverbose_mode=true" #$flags))))
     (synopsis "D-Bus with verbose mode enabled for debugging")
@@ -447,10 +447,10 @@ functions for strings and common data structures.")
   (let ((base glib-minimal))
     (package/inherit base
       (native-inputs
-       (modify-inputs (package-native-inputs base)
+       (modify-inputs native-inputs
          (prepend gobject-introspection-minimal)))
       (arguments
-       (substitute-keyword-arguments (package-arguments base)
+       (substitute-keyword-arguments arguments
          ((#:phases phases)
           #~(modify-phases #$phases
               ;; GI tests require installed libraries
@@ -466,10 +466,10 @@ functions for strings and common data structures.")
       (properties (alist-delete 'hidden? (package-properties base)))
       (outputs (cons "doc" (package-outputs base)))
       (native-inputs
-       (modify-inputs (package-native-inputs base)
+       (modify-inputs native-inputs
          (append gi-docgen python-docutils)))
       (arguments
-       (substitute-keyword-arguments (package-arguments base)
+       (substitute-keyword-arguments arguments
          ((#:configure-flags flags ''())
           #~(cons "-Ddocumentation=true"
                   (delete "-Dman-pages=disabled" #$flags)))
@@ -646,10 +646,10 @@ provide bindings to call into the C library.")
   (let ((base gobject-introspection-minimal))
     (package/inherit base
       (native-inputs
-       (modify-inputs (package-native-inputs base)
+       (modify-inputs native-inputs
          (replace "glib" glib)))
       (propagated-inputs
-       (modify-inputs (package-propagated-inputs base)
+       (modify-inputs propagated-inputs
          (replace "glib" glib)
          ;; Note: The label stays the same despite the name change.
          (replace "python-setuptools-bootstrap" python-setuptools))))))
@@ -988,7 +988,7 @@ useful for C++.")
        (sha256
         (base32 "0bqm9vqwhas69q6n89wd2xgxvrlkpxra13dzsx8m67hqk0jp8n2k"))))
      (propagated-inputs
-      (modify-inputs (package-propagated-inputs glibmm)
+      (modify-inputs propagated-inputs
         (replace "libsigc++" libsigc++-2)))))
 
 (define-public python-pygobject
@@ -1148,47 +1148,6 @@ many applications simultaneously.
 This package provides the library for GLib applications.")
     (license license:lgpl2.1+)))
 
-(define-public dbus-c++
-  (package
-    (name "dbus-c++")
-    (version "0.9.0")
-    (source (origin
-              (method url-fetch)
-              (uri
-               (string-append
-                "mirror://sourceforge/dbus-cplusplus/dbus-c%2B%2B/"
-                version "/libdbus-c%2B%2B-" version ".tar.gz"))
-              (file-name (string-append name "-" version ".tar.gz"))
-              (patches (search-patches "dbus-c++-gcc-compat.patch"
-                                       "dbus-c++-threading-mutex.patch"))
-              (sha256
-               (base32
-                "0qafmy2i6dzx4n1dqp6pygyy6gjljnb7hwjcj2z11c1wgclsq4dw"))))
-    (build-system gnu-build-system)
-    (propagated-inputs
-     (list dbus))                      ;mentioned in the pkg-config file
-    (inputs
-     (list efl expat glib libunwind))
-    (native-inputs
-     (list pkg-config))
-    (arguments
-     `(;; The 'configure' machinery fails to detect that it needs -lpthread.
-       #:configure-flags (list "LDFLAGS=-lpthread")
-       #:phases
-       (modify-phases %standard-phases
-         (add-before 'configure 'add-missing-header
-           (lambda _
-             (substitute* "include/dbus-c++/eventloop-integration.h"
-               (("#include <errno.h>")
-                "#include <errno.h>\n#include <unistd.h>"))
-             #t)))))
-    (synopsis "D-Bus API for C++")
-    (description "This package provides D-Bus client API bindings for the C++
-programming language.  It also provides the @command{dbusxx-xml2cpp} and
-@command{dbusxx-introspect} commands.")
-    (home-page "https://sourceforge.net/projects/dbus-cplusplus/")
-    (license license:lgpl2.1+)))
-
 (define-public dbus-cxx
   (package
     (name "dbus-cxx")

gnu/packages/gnome-circle.scm

@@ -37,6 +37,7 @@
   #:use-module (gnu packages aidc)
   #:use-module (gnu packages backup)
   #:use-module (gnu packages bash)
+  #:use-module (gnu packages check)
   #:use-module (gnu packages cmake)
   #:use-module (gnu packages enchant)
   #:use-module (gnu packages fonts)
@@ -59,6 +60,7 @@
   #:use-module (gnu packages python-web)
   #:use-module (gnu packages python-xyz)
   #:use-module (gnu packages rust)
+  #:use-module (gnu packages security-token)
   #:use-module (gnu packages sqlite)
   #:use-module (gnu packages tls)
   #:use-module (gnu packages web)
@@ -79,7 +81,7 @@
 (define-public apostrophe
   (package
     (name "apostrophe")
-    (version "2.6.3")
+    (version "3.4")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -88,7 +90,7 @@
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "0wsvq2434p650cf3vq5w7a6czbk8in0ra7nji45mvwyfahdyn6j4"))))
+                "1qndv40vvlzgyybhg30130v8b8zazddqjgmmbpfsnqfc0ghmhgja"))))
     (build-system meson-build-system)
     (arguments
      (list
@@ -104,6 +106,12 @@
             (lambda _
               (substitute* "build-aux/meson_post_install.py"
                 (("gtk-update-icon-cache") "true"))))
+          (replace 'check
+            (lambda* (#:key tests? #:allow-other-keys)
+              (when tests?
+                (with-directory-excursion "../source"
+                  (setenv "PYTHONPATH" (getcwd))
+                  (invoke "pytest" "tests/")))))
           (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
             (lambda* (#:key inputs outputs #:allow-other-keys)
               (wrap-program (search-input-file outputs "bin/apostrophe")
@@ -114,27 +122,29 @@
                                    (search-input-file inputs
                                                       "/bin/pandoc"))))))))))
     (inputs
-     (list bash-minimal
-           glib
-           gobject-introspection
-           gspell
-           gtk+
-           libhandy
+     (list adwaita-icon-theme
+           bash-minimal
+           gtk
+           gtksourceview
+           libadwaita
+           libspelling
            pandoc
            python
            python-chardet
-           python-levenshtein
-           python-regex
            python-pycairo
-           python-pygobject
            python-pyenchant
+           python-pygobject
            python-pypandoc
-           webkitgtk-with-libsoup2))
+           python-regex
+           webkitgtk))
     (native-inputs
      (list gettext-minimal
            `(,glib "bin")
+           gobject-introspection
            pkg-config
-           sassc))
+           python
+           python-pytest
+           python-pylint))
     (home-page "https://gitlab.gnome.org/World/apostrophe")
     (synopsis "Markdown editor written in Python with GTK+")
     (description "Apostrophe is a GTK+ based distraction-free Markdown editor.
@@ -1002,16 +1012,16 @@ graphical applications and processes.")
 (define-public secrets
   (package
     (name "secrets")
-    (version "6.5")
+    (version "11.1.1")
     (source
      (origin
        (method git-fetch)
        (uri (git-reference
-             (url "https://gitlab.gnome.org/World/secrets")
-             (commit version)))
+              (url "https://gitlab.gnome.org/World/secrets")
+              (commit version)))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "11jd9f0d3fyrs29p8cyzb6i2ib6mzhwwvjnznl55gkggrgnrcb8z"))))
+        (base32 "1lhj19zqwb12grrbh5xhgiilmr394s86vl1cqn4ix70zfd40wsy3"))))
     (build-system meson-build-system)
     (arguments
      (list
@@ -1029,30 +1039,49 @@ graphical applications and processes.")
                 (("gtk_update_icon_cache: true")
                  "gtk_update_icon_cache: false"))
               (setenv "DESTDIR" "/")))
-          (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
+          (add-after 'glib-or-gtk-wrap 'wrap-binaries
             (lambda* (#:key inputs outputs #:allow-other-keys)
               (wrap-program (search-input-file outputs "bin/secrets")
                 `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH")
                                        ,(py:site-packages inputs outputs)))
-                `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))))))))
+                `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH")))
+                `("GSETTINGS_SCHEMA_DIR" =
+                  (,(string-append #$output "/share/glib-2.0/schemas"))))))
+          (add-after 'install 'add-install-to-pythonpath
+            (assoc-ref py:%standard-phases 'add-install-to-pythonpath))
+          (delete 'check)
+          (add-after 'glib-or-gtk-compile-schemas 'check
+            (assoc-ref %standard-phases 'check))
+          (add-before 'check 'set-search-path
+            (lambda _
+              (setenv "GSETTINGS_SCHEMA_DIR" (string-append #$output "/share/glib-2.0/schemas/")))))))
     (native-inputs
      (list desktop-file-utils
            gettext-minimal
            `(,glib "bin")
            gobject-introspection
-           pkg-config))
+           pkg-config
+           python
+           python-pytest))
     (inputs
-     (list bash-minimal
+     (list adwaita-icon-theme
+           bash-minimal
            glib
            gsettings-desktop-schemas
            gtk
+           gtksourceview
            libadwaita
            libhandy
            libpwquality
            python
+           python-pycairo
            python-pygobject
+           python-pykcs11
            python-pykeepass
-           python-pyotp))
+           python-pyotp
+           python-validators
+           python-yubico
+           python-zxcvbn-rs-py))
     (home-page "https://gitlab.gnome.org/World/secrets")
     (synopsis "Password manager for the GNOME desktop")
     (description

gnu/packages/gnome-xyz.scm

@@ -1,7 +1,7 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2019, 2020, 2021 Liliana Marie Prikler <liliana.prikler@gmail.com>
 ;;; Copyright © 2019, 2021 Alexandros Theodotou <alex@zrythm.org>
-;;; Copyright © 2019 Giacomo Leidi <therewasa@fishinthecalculator.me>
+;;; Copyright © 2019, 2026 Giacomo Leidi <therewasa@fishinthecalculator.me>
 ;;; Copyright © 2020 Alex Griffin <a@ajgrf.com>
 ;;; Copyright © 2020 Jack Hill <jackhill@jackhill.us>
 ;;; Copyright © 2020 Kei Kebreau <kkebreau@posteo.net>
@@ -778,7 +778,7 @@ behavior, system tray and input source indicator for IBus.")
 (define-public gnome-shell-extension-dash-to-dock
   (package
     (name "gnome-shell-extension-dash-to-dock")
-    (version "102")
+    (version "103")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -787,7 +787,7 @@ behavior, system tray and input source indicator for IBus.")
                                            version))))
               (sha256
                (base32
-                "0gzqmbalybyivhnlhhwvqd33x47f73368gnd85qiql7x4x0lfl98"))
+                "0z4ayd9lagqyg2sc83qvyfx4wc3mcp8af5a34qpvxf3nyipq9pp9"))
               (file-name (git-file-name name version))))
     (build-system gnu-build-system)
     (arguments
@@ -815,6 +815,39 @@ faster window switching.")
     (home-page "https://micheleg.github.io/dash-to-dock/")
     (license license:gpl2+)))
 
+(define-public gnome-shell-extension-dock-ng
+  (package
+    (name "gnome-shell-extension-dock-ng")
+    (version "1.1.2")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                     (url "https://github.com/ochi12/dock-ng")
+                     (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "0q0v86n832kgqz0x3m0k75m09yy7r8qk3rf3niq06cs00ypm3xl6"))))
+    (build-system copy-build-system)
+    (arguments
+     (list
+      #:install-plan
+      #~'(("dock-ng@ochi12.github.com"
+           "share/gnome-shell/extensions/dock-ng@ochi12.github.com"))))
+    (native-inputs
+     (list `(,glib "bin")
+           intltool
+           pkg-config))
+    (propagated-inputs
+     (list glib))
+    (synopsis "Lightweight dock for GNOME Shell")
+    (description "This package provides a lightweight, non-fixed, dock for GNOME
+Shell, built on the dash.  It implements a batteries included approach, with
+little configuration involved and a small feature set including adaptive
+intellihide and multimonitor support.")
+    (home-page "https://github.com/ochi12/dock-ng")
+    (license license:gpl3+)))
+
 (define-public gnome-shell-extension-gsconnect
   (package
     (name "gnome-shell-extension-gsconnect")

gnu/packages/gnome.scm

@@ -409,7 +409,7 @@ services.")
     (name "libcloudproviders")
     (outputs (cons "doc" (package-outputs libcloudproviders-minimal)))
     (arguments
-     (substitute-keyword-arguments (package-arguments libcloudproviders-minimal)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags _)
         '(list "-Denable-gtk-doc=true")) ;false by default
        ((#:phases phases '%standard-phases)
@@ -505,79 +505,6 @@ bindings.")
     (home-page "https://wiki.gnome.org/Projects/Seed")
     (license license:gpl3+)))
 
-(define-public seed
-  (package
-    (name "seed")
-    (version "3.8.1")
-    (source
-     (origin
-       (method url-fetch)
-       (uri
-        (string-append "mirror://gnome/sources/" name "/"
-                       (version-major+minor version) "/"
-                       name "-" version ".tar.xz"))
-       (sha256
-        (base32 "0cmcxaggcdcy13j27gy8id2qsf2p2sl4bz2mwb9zhv3gzavlvjw0"))
-       (patches
-        (search-patches "seed-webkit.patch"))))
-    (build-system glib-or-gtk-build-system)
-    (outputs '("out" "doc"))
-    (arguments
-     (list #:configure-flags
-           #~(list "--disable-static"
-                   "--enable-xorg-module"
-                   (string-append "--with-html-dir=" #$output:doc
-                                  "/share/gtk-doc/html")
-                   "--with-webkit=4.0")
-           #:phases
-           #~(modify-phases %standard-phases
-               ;; The seed-webkit.patch patches configure.ac.
-               ;; So the source files need to be re-bootstrapped.
-               (add-after 'unpack 'trigger-bootstrap
-                 (lambda _
-                   (for-each delete-file
-                             (list "configure"
-                                   "Makefile.in"))))
-               (add-after 'unpack 'patch-tests
-                 (lambda* (#:key outputs #:allow-other-keys)
-                   (substitute* (find-files "." "\\.js$")
-                     (("#!/usr/bin/env seed")
-                      (string-append "#!" (getcwd) "/src/seed"))))))))
-    (native-inputs
-     (list autoconf
-           automake
-           docbook-xml-4.1.2
-           gettext-minimal
-           gobject-introspection
-           gtk-doc/stable
-           intltool
-           libtool
-           pkg-config))
-    (inputs
-     (list cairo
-           dbus
-           dbus-glib
-           gnome-js-common
-           gtk+
-           gtk+-2
-           libffi
-           libxml2
-           mpfr
-           readline
-           sqlite
-           libxscrnsaver))
-    (propagated-inputs
-     (list glib
-           webkitgtk-with-libsoup2))
-    (synopsis "GObject JavaScriptCore bridge")
-    (description "Seed is a library and interpreter, dynamically bridging
-(through GObjectIntrospection) the WebKit JavaScriptCore engine, with the
-GNOME platform.  It serves as something which enables you to write standalone
-applications in JavaScript, or easily enable your application to be extensible
-in JavaScript.")
-    (home-page "https://wiki.gnome.org/Projects/Seed")
-    (license license:lgpl2.0+)))
-
 (define-public libdmapsharing
   (package
     (name "libdmapsharing")
@@ -1355,7 +1282,7 @@ a debugging tool, @command{gssdp-device-sniffer}.")
     (arguments
      (list #:configure-flags
            #~(list "-Dgtk_doc=true")))
-    (propagated-inputs (modify-inputs (package-propagated-inputs gssdp)
+    (propagated-inputs (modify-inputs propagated-inputs
               (replace "libsoup" libsoup-minimal-2)))))
 
 (define-public gupnp
@@ -2094,7 +2021,7 @@ commonly used macros.")
 (define-public gnome-contacts
   (package
     (name "gnome-contacts")
-    (version "48.0")
+    (version "49.0")
     (source (origin
               (method url-fetch)
               (uri (string-append "mirror://gnome/sources/gnome-contacts/"
@@ -2102,7 +2029,10 @@ commonly used macros.")
                                   name "-" version ".tar.xz"))
               (sha256
                (base32
-                "1df1xhvlcqzd2y9c3mqclxr7n1rp9rcvaa2z30zyq9wlnnajjxm2"))))
+                "1bz4hns4vd9ifw0s4j7jgys143a650ny5lww5pppvmr9pikirwi5"))
+              (patches
+               ;; TODO: Remove when bumping to version 50.alpha or newer.
+               (search-patches "gnome-contacts-evolution-compat.patch"))))
     (build-system meson-build-system)
     (arguments
      (list
@@ -2118,7 +2048,8 @@ commonly used macros.")
                 (("gtk_update_icon_cache: true")
                  "gtk_update_icon_cache: false")))))))
     (native-inputs
-     (list desktop-file-utils
+     (list blueprint-compiler
+           desktop-file-utils
            docbook-xml
            docbook-xml-4.2
            docbook-xsl
@@ -2196,7 +2127,7 @@ offline sources, providing a centralized place for managing your contacts.")
                                              "lib/locale")))))))
     (native-inputs
      (list `(,glib "bin")                   ;for gdbus-codegen
-           glibc-locales                    ;for tests
+           (libc-utf8-locales-for-target (%current-system)) ;for tests
            gobject-introspection
            itstool
            intltool
@@ -2422,7 +2353,7 @@ GNOME Desktop.")
                (base32
                 "1dqsgrb62fgmy4w63bjl3b525nil4idrrdcscia1h3isaly0zlds"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments gcr)
+     (substitute-keyword-arguments arguments
        ((#:phases phases)
         #~(modify-phases #$phases
             (replace 'skip-gtk-update-icon-cache
@@ -2478,7 +2409,7 @@ GNOME Desktop.")
   (package/inherit gdl
     (name "gdl-minimal")
     (arguments
-     (substitute-keyword-arguments (package-arguments gdl)
+     (substitute-keyword-arguments arguments
        ((#:phases phases #~%standard-phases)
         #~(modify-phases #$phases
             (add-after 'unpack 'disable-doc-generation
@@ -3142,7 +3073,7 @@ API.")
         (base32
          "1jcyfs912h29xpnj3fd2mk7pr1mljs61vhdpypphj88xfrlrv6hy"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments libpeas)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags #~(list))
         #~(cons* "-Dlua51=false" #$flags))))
     (inputs
@@ -3329,7 +3260,7 @@ compiles to GTKBuilder XML.")
                (base32
                 "0hj7f4xhwjc4x32r3lswwclbw37fw3spy806g4plkmym25hz4ydy"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments blueprint-compiler)
+     (substitute-keyword-arguments arguments
        ((#:phases phases)
         #~(modify-phases #$phases
             (delete 'fix-tests)))))))
@@ -4511,7 +4442,7 @@ targeting the GNOME stack simple.")
                 "0xvhg32sxnfyvxn86hh9mn65mh1g189vhsjcahccj0zbwnrkqz3w"))
               (patches (search-patches "vala-0.52-fix-valagirparser.patch"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments vala)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags #~'())
         #~(cons*
            (string-append "CFLAGS=-g -O2"
@@ -4562,10 +4493,10 @@ editors, IDEs, etc.")
 (define-public vte/gtk+-3
   (package/inherit vte
     (name "vte-with-gtk+3")
-    (arguments (substitute-keyword-arguments (package-arguments vte)
+    (arguments (substitute-keyword-arguments arguments
                  ((#:configure-flags flags #~'())
                   #~(cons "-Dgtk4=false" (delete "-Dgtk3=false" #$flags)))))
-    (propagated-inputs (modify-inputs (package-propagated-inputs vte)
+    (propagated-inputs (modify-inputs propagated-inputs
                          (replace "gtk" gtk+)))
     (properties
      `((upstream-name . "vte")))))
@@ -4583,10 +4514,10 @@ editors, IDEs, etc.")
               (file-name (git-file-name name version))
               (sha256 (base32
                        "0fv6lx7kk1xrfsvc95jm23vxkmyfypriz4nvj0kjy4nshgccwlch"))))
-    (arguments (substitute-keyword-arguments (package-arguments vte)
+    (arguments (substitute-keyword-arguments arguments
                  ((#:configure-flags flags)
                   #~(append (list "-Dsixel=true") #$flags))))
-    (inputs (modify-inputs (package-inputs vte)
+    (inputs (modify-inputs inputs
               (append libsixel)
               (append lz4)))))
 
@@ -4737,7 +4668,7 @@ GLib and GObject, and integrates JSON with GLib data types.")
     (name "json-glib")
     (outputs (cons "doc" (package-outputs json-glib-minimal)))
     (arguments
-     (substitute-keyword-arguments (package-arguments json-glib-minimal)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags _)
         #~(list "-Dman=true"
                 #$@(if (%current-target-system)
@@ -4767,9 +4698,9 @@ GLib and GObject, and integrates JSON with GLib data types.")
     (native-inputs
      (if (%current-target-system)
          ;; No docs, but rst2man is used for man pages.
-         (modify-inputs (package-native-inputs json-glib-minimal)
+         (modify-inputs native-inputs
            (prepend python-docutils))
-         (modify-inputs (package-native-inputs json-glib-minimal)
+         (modify-inputs native-inputs
            (prepend gi-docgen gobject-introspection
                     python-docutils))))))
 
@@ -5045,7 +4976,7 @@ and the GLib main loop, to integrate well with GNOME applications.")
                (base32
                 "04rgv6hkyhgi7lak9865yxgbgky6gc635p7w6nhcbj64rx0prdz4"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments libsoup-minimal)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags configure-flags)
         ;; The option name changed between libsoup 2 and libsoup 3.
         #~(cons "-Dgtk_doc=false"
@@ -5059,7 +4990,7 @@ and the GLib main loop, to integrate well with GNOME applications.")
                 (substitute* "tests/meson.build"
                   (("[ \t]*\\['ssl', true, \\[\\]\\],") ""))))))))
     (native-inputs
-     (modify-inputs (package-native-inputs libsoup-minimal)
+     (modify-inputs native-inputs
        (replace "vala" vala-0.52)))))
 
 (define-public libsoup
@@ -5067,7 +4998,7 @@ and the GLib main loop, to integrate well with GNOME applications.")
     (name "libsoup")
     (outputs (cons "doc" (package-outputs libsoup-minimal)))
     (arguments
-     (substitute-keyword-arguments (package-arguments libsoup-minimal)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags configure-flags)
         #~(cons "-Ddocs=enabled"
                 ;; The default value is 'auto', meaning it could be skipped.
@@ -5095,7 +5026,7 @@ and the GLib main loop, to integrate well with GNOME applications.")
                 (mkdir-p (string-append #$output:doc "/share"))
                 (rename-file (string-append #$output "/share/doc")
                              (string-append #$output:doc "/share/doc"))))))))
-    (native-inputs (modify-inputs (package-native-inputs libsoup-minimal)
+    (native-inputs (modify-inputs native-inputs
                      (prepend gettext-minimal gi-docgen)))))
 
 (define-public libsecret
@@ -5592,7 +5523,7 @@ output devices.")
        (sha256
         (base32 "0vwfx06k1in8hci3kdxpc3c0bh81f1vl5bp7favd3rdz4wd661vl"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments colord-minimal)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         #~(begin
             (use-modules (srfi srfi-1))
@@ -5614,7 +5545,7 @@ output devices.")
                    (string-append "'" #$output
                                   "/etc/bash_completion.d'")))))))))
     (native-inputs
-     (modify-inputs (package-native-inputs colord-minimal)
+     (modify-inputs native-inputs
        (append bash-completion
                docbook-xsl
                gtk-doc/stable
@@ -5676,17 +5607,10 @@ permission from user.")
     (build-system meson-build-system)
     (arguments
      (list
-      #:configure-flags #~(list "-Dsoup2=false")
-      #:phases
-      #~(modify-phases %standard-phases
-          ;; The tests require a bunch of locales.
-          (add-before 'check 'set-locales
-            (lambda* (#:key inputs #:allow-other-keys)
-              (setenv "GUIX_LOCPATH"
-                      (search-input-directory inputs "lib/locale")))))))
+      #:configure-flags #~(list "-Dsoup2=false")))
     (native-inputs
      (list `(,glib "bin")               ;for glib-mkenums
-           glibc-locales                ;for tests
+           (libc-locales-for-target (%current-system))  ;for tests
            gettext-minimal
            gobject-introspection
            gtk-doc/stable
@@ -6095,12 +6019,6 @@ natively with GTK-Doc (the API reference system developed for GTK+ and used
 throughout GNOME for API documentation).")
     (license license:gpl2+)))
 
-(define-public devhelp-with-libsoup2
-  (hidden-package
-   (package/inherit devhelp
-     (inputs (modify-inputs (package-inputs devhelp)
-               (replace "webkitgtk-for-gtk3" webkitgtk-with-libsoup2))))))
-
 (define-public cogl
   (package
     (name "cogl")
@@ -7257,7 +7175,7 @@ USB transfers with your high-level application or system daemon.")
   (package/inherit gusb-minimal
     (name "gusb")
     (arguments
-     (substitute-keyword-arguments (package-arguments gusb-minimal)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         `(cons "-Ddocs=true"
                (delete "-Ddocs=false" ,flags)))))
@@ -7678,7 +7596,7 @@ metadata in photo and video files of various formats.")
 (define-public shotwell
   (package
     (name "shotwell")
-    (version "0.32.6")
+    (version "0.32.15")
     (source (origin
               (method url-fetch)
               (uri (string-append "mirror://gnome/sources/shotwell/"
@@ -7686,7 +7604,7 @@ metadata in photo and video files of various formats.")
                                   "shotwell-" version ".tar.xz"))
               (sha256
                (base32
-                "1dkh5bczf9k86akl70inpc2z98qkhg8g44jb2kc8rqcimkzs95vm"))))
+                "0figfjpr1qs2slrn39vgahswmwb364acinmhpf9k26if707jc45c"))))
     (build-system meson-build-system)
     (arguments
      (list
@@ -7725,7 +7643,7 @@ metadata in photo and video files of various formats.")
            libwebp
            libxml2
            sqlite
-           webkitgtk-for-gtk3))
+           webkitgtk))
     (home-page "https://wiki.gnome.org/Apps/Shotwell")
     (synopsis "Photo manager for GNOME 3")
     (description
@@ -8280,7 +8198,7 @@ Microsoft Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
 (define-public evolution-data-server
   (package
     (name "evolution-data-server")
-    (version "3.56.2")
+    (version "3.60.0")
     (source
      (origin
        (method url-fetch)
@@ -8288,7 +8206,7 @@ Microsoft Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
                            (version-major+minor version) "/"
                            name "-" version ".tar.xz"))
        (sha256
-        (base32 "0g793ivdv0x8lh15146v7xyyyb4dqhagiq7vqvm7d6pja2cw4knz"))))
+        (base32 "063cvwx83irc86f9kis572x4cpbsp3zzcwyknf8lvci81qz3hkp0"))))
     (build-system cmake-build-system)
     (arguments
      (list
@@ -8306,7 +8224,6 @@ Microsoft Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
                                (string-append lib "/evolution-data-server;")
                                (string-join runpaths ";"))
                 "-DENABLE_INTROSPECTION=ON"      ;required for Vala bindings
-                "-DENABLE_OAUTH2_WEBKITGTK4=OFF" ;requires webkitgtk-next
                 "-DWITH_PHONENUMBER=ON"))
       #:phases
       #~(modify-phases %standard-phases
@@ -8371,9 +8288,10 @@ Microsoft Exchange, Last.fm, IMAP/SMTP, Jabber, SIP and Kerberos.")
            json-glib
            libcanberra
            libgweather
-           libphonenumber-8.11
+           libphonenumber
            mit-krb5
            openldap
+           webkitgtk
            webkitgtk-for-gtk3))
     (synopsis "Store address books and calendars")
     (home-page "https://wiki.gnome.org/Apps/Evolution")
@@ -8758,7 +8676,7 @@ Compatible with Cisco VPN concentrators configured to use IPsec.")
            lz4
            network-manager
            openconnect
-           webkitgtk-with-libsoup2))
+           webkitgtk-for-gtk3))
     (home-page "https://wiki.gnome.org/Projects/NetworkManager/VPN")
     (synopsis "OpenConnect plug-in for NetworkManager")
     (description
@@ -10353,7 +10271,7 @@ associations for GNOME.")
 (define-public gnome-weather
   (package
     (name "gnome-weather")
-    (version "48.0")
+    (version "50.0")
     (source (origin
               (method url-fetch)
               (uri (string-append "mirror://gnome/sources/" name "/"
@@ -10361,7 +10279,7 @@ associations for GNOME.")
                                   name "-" version ".tar.xz"))
               (sha256
                (base32
-                "1dfv9cxq2rf8jhdd71pi1xj40qq5sg5k8wfl2sa2zbhmv2rnj1ac"))))
+                "04xmzmkh39z71k3k6apli2y0axfv71vwwl8582mzk4azc1w7bpjp"))))
     (build-system meson-build-system)
     (arguments
      (list
@@ -10399,6 +10317,7 @@ associations for GNOME.")
            gettext-minimal
            `(,glib "bin")
            gobject-introspection
+           node-typescript
            pkg-config))
     (inputs
      (list appstream-glib
@@ -10663,7 +10582,7 @@ Microsoft SkyDrive and Hotmail, using their REST protocols.")
 (define-public gnome-clocks
   (package
     (name "gnome-clocks")
-    (version "48.0")
+    (version "50.0")
     (source (origin
               (method url-fetch)
               (uri (string-append "mirror://gnome/sources/" name "/"
@@ -10671,7 +10590,7 @@ Microsoft SkyDrive and Hotmail, using their REST protocols.")
                                   name "-" version ".tar.xz"))
               (sha256
                (base32
-                "0qkw10wbz0yg3cqr3x501z5604vmaklijqknp4k1y2rhfpxy2vk1"))))
+                "1illwzfghcxq3dmf4wchwhb9xwm1kcn6a5j79m1gpwpl8izpy5mz"))))
     (build-system meson-build-system)
     (arguments
      '(#:glib-or-gtk? #t
@@ -10689,7 +10608,8 @@ Microsoft SkyDrive and Hotmail, using their REST protocols.")
            `(,glib "bin")               ; for glib-compile-resources
            itstool
            pkg-config
-           vala))
+           vala
+           vorbis-tools))
     (inputs
      (list geoclue
            geocode-glib
@@ -10983,7 +10903,7 @@ functionality and behavior.")
 (define-public folks
   (package
     (name "folks")
-    (version "0.15.9")
+    (version "0.15.12")
     (source (origin
               (method url-fetch)
               (uri (string-append
@@ -10992,7 +10912,7 @@ functionality and behavior.")
                     "folks-" version ".tar.xz"))
               (sha256
                (base32
-                "0ps1243l4vladlylj6f3h830lam2fi43kp1z2qzz6lf3amrv6493"))))
+                "05594055h3y0n1yig664g1fg7nn71b8rdf8vwkwff7mvv8mlxx11"))))
     (build-system meson-build-system)
     (arguments
      '(;; Tests are broken since GLib 2.80
@@ -12021,7 +11941,7 @@ generic enough to work for everyone.")
 (define-public evolution
   (package
     (name "evolution")
-    (version "3.56.1")
+    (version "3.60.0")
     (source (origin
               (method url-fetch)
               (uri (string-append "mirror://gnome/sources/evolution/"
@@ -12029,7 +11949,7 @@ generic enough to work for everyone.")
                                   "evolution-" version ".tar.xz"))
               (sha256
                (base32
-                "05mxfjpdm8v30qszz3mf05x0cmqr5idn5sd8dp2rn8wx22cybpyz"))))
+                "1rdm75a8w6xn1vil2npb69n6qdmwdab2fq7y708plflk8j579v8g"))))
     (build-system cmake-build-system)
     (arguments
      (list
@@ -12283,7 +12203,7 @@ for usage on small and big screens.")
        (sha256
         (base32 "1y23k623sjkldfrdiwfarpchg5mg58smcy1pkgnwfwca15wm1ra5"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments libhandy)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         '(list "-Dglade_catalog=disabled" "-Dgtk_doc=true"))))))
 
@@ -12809,7 +12729,7 @@ and toolbars.")
 (define-public setzer
   (package
     (name "setzer")
-    (version "0.4.8")
+    (version "66")
     (source
      (origin
        (method git-fetch)
@@ -12818,7 +12738,7 @@ and toolbars.")
              (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "12w58v7qsd3xfmrxhij8dby9xnvd82hxqb4wc6di7lqz1ayg5lzc"))))
+        (base32 "061zqim3ldhpvl1rc9mqkamf7gb7bsjaaanplsbls2k33w6k1b46"))))
     (build-system meson-build-system)
     (arguments
      (list
@@ -12841,24 +12761,30 @@ and toolbars.")
            python))
     (inputs
      (list bash-minimal
+           gobject-introspection
            gsettings-desktop-schemas
            gspell
-           gtk+
-           gtksourceview-4
+           gtk
+           gtksourceview
+           libadwaita
+           libportal
            pango
            poppler
+           python-bibtexparser
+           python-numpy
            python-pdfminer-six
            python-pexpect
+           python-pillow
            python-pycairo
            python-pygobject
            python-pyxdg
-           webkitgtk-with-libsoup2
+           webkitgtk
            xdg-utils))
     (home-page "https://www.cvfosammmm.org/setzer/")
-    (synopsis "LaTeX editor written in Python with GTK+")
+    (synopsis "LaTeX editor written in Python with GTK")
     (description
      "Setzer is a simple yet full-featured LaTeX editor written in Python with
-GTK+.  It integrates well with the GNOME desktop environment.")
+GTK.  It integrates well with the GNOME desktop environment.")
     (license license:gpl3+)))
 
 (define-deprecated/public-alias apostrophe
@@ -13370,7 +13296,7 @@ GtkTextView widgets.")
      (list bash-minimal                 ;for wrap-program
            cmark
            clang
-           devhelp-with-libsoup2
+           devhelp
            d-spy
            ;; Cyclic modular dependency
            (module-ref
@@ -13405,10 +13331,6 @@ GtkTextView widgets.")
      (list desktop-file-utils           ;for desktop-file-validate
            `(,glib "bin")
            gettext-minimal
-           ;; GCC 14 seems to be required to not end up in a compilation
-           ;; failure.
-           ;; See <https://gitlab.gnome.org/GNOME/gnome-builder/-/issues/2176>.
-           gcc-14
            gi-docgen
            pkg-config
            python                       ;for meson scripts

gnu/packages/gnucash.scm

@@ -4,7 +4,7 @@
 ;;; Copyright © 2016, 2024 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2017 Chris Marusich <cmmarusich@gmail.com>
 ;;; Copyright © 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
-;;; Copyright © 2019, 2022, 2023 Maxim Cournoyer <maxim@guixotic.coop>
+;;; Copyright © 2019, 2022, 2023, 2026 Maxim Cournoyer <maxim@guixotic.coop>
 ;;; Copyright © 2019, 2021 Guillaume Le Vaillant <glv@posteo.net>
 ;;; Copyright © 2020 Prafulla Giri <pratheblackdiamond@gmail.com>
 ;;; Copyright © 2020 Christopher Lam <christopher.lck@gmail.com>
@@ -68,14 +68,19 @@
   ;; directory.
   (package
     (name "gnucash")
-    (version "5.13")
+    (version "5.14")
     (source
      (origin
-       (method url-fetch)
-       (uri (string-append "mirror://sourceforge/gnucash/gnucash%20%28stable%29/"
-                           version "/gnucash-" version ".tar.bz2"))
+       ;; Install from git, as the some test files contained in the release
+       ;; appear to corrupted, causing test failures.
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/Gnucash/gnucash")
+              (commit version)))
+       (file-name (git-file-name name version))
        (sha256
-        (base32 "1xdfci26av2jhyg40p5g9bwn7vz5xck2clgjsciz48mp6b1yqbh8"))))
+        (base32
+         "066l5p25ywbv89ygrpd04xwzjqrfjvap9fmkjr0gaf3z8c4qxhc0"))))
     (outputs '("out" "doc" "debug" "python"))
     (build-system cmake-build-system)
     (arguments
@@ -91,11 +96,19 @@
                   (guix build utils))
       #:phases
       #~(modify-phases %standard-phases
+          (add-after 'unpack 'remove-changelog-from-install-target
+            (lambda _
+              ;; We are building from git, but without the metadata, so the
+              ;; build system assumes we build from a tarball containing a
+              ;; pre-generated ChangeLog file.
+              (substitute* "CMakeLists.txt"
+                ((".*install.*CMAKE_SOURCE_DIR.*") ""))))
           (add-after 'unpack 'disable-online-test
             (lambda _
               (call-with-output-file "libgnucash/app-utils/test/CMakeLists.txt"
                 (lambda (port)
-                  (display "set(CTEST_CUSTOM_TESTS_IGNORE online_wiggle test-lots)" port)))))
+                  (display "set(CTEST_CUSTOM_TESTS_IGNORE \
+online_wiggle test-lots)" port)))))
           (add-after 'unpack 'set-env-vars
             (lambda* (#:key inputs #:allow-other-keys)
               ;; At least one test is time-related and requires this
@@ -116,6 +129,11 @@
               (invoke "localedef" "-i" "en_US" "-f" "UTF-8" "./en_US.UTF-8")
               (invoke "localedef" "-i" "en_GB" "-f" "UTF-8" "./en_GB.UTF-8")
               (invoke "localedef" "-i" "fr_FR" "-f" "UTF-8" "./fr_FR.UTF-8")))
+          (add-before 'check 'set-GNC_DBD_DIR
+            (lambda* (#:key inputs #:allow-other-keys)
+              ;; Otherwise, some tests fail with SIGTRAP errors.
+              (setenv "GNC_DBD_DIR"
+                      (search-input-directory inputs "lib/dbd"))))
           (replace 'check (assoc-ref gnu:%standard-phases 'check))
           ;; There is about 100 MiB of documentation.
           (add-after 'install 'install-docs
@@ -159,7 +177,8 @@
                '("gnucash"
                  "gnucash-cli"))))
           (add-after 'install 'glib-or-gtk-compile-schemas
-            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
+            (assoc-ref glib-or-gtk:%standard-phases
+                       'glib-or-gtk-compile-schemas))
           (add-after 'install 'glib-or-gtk-wrap
             (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))
           (add-before 'glib-or-gtk-wrap 'delete-gnc-fq-update
@@ -186,7 +205,8 @@
            intltool
            (libc-utf8-locales-for-target)
            pkg-config
-           swig-4.0))
+           swig-4.0
+           tzdata-for-tests))
     (inputs
      (list aqbanking
            bash-minimal
@@ -204,8 +224,7 @@
            perl-json
            perl-json-parse
            python
-           tzdata-for-tests
-           webkitgtk-with-libsoup2))
+           webkitgtk-for-gtk3))
     (propagated-inputs
      ;; dconf is required at runtime according to README.dependencies.
      (list dconf))
@@ -232,11 +251,12 @@ installed as well as Yelp, the Gnome help browser.")
       (source
        (origin
          (method url-fetch)
+         ;; Fetch the releases from Github as Sourceforge is unreliable.
          (uri (string-append
-               "mirror://sourceforge/gnucash/gnucash%20%28stable%29/"
-               version "/gnucash-docs-" version revision ".tar.gz"))
+               "https://github.com/Gnucash/gnucash/releases/download/"
+               version "/gnucash-docs-" version ".tar.gz"))
          (sha256
-          (base32 "0lv3gh47crjyjfv84xrfgz833hv9hhcyi4qkkpj097qn0l0dg5k7"))))
+          (base32 "0nhvg11zkp7v6cd8j0g1gg00pmrn0jvf7n9qjl5b6m2hw6sfw34i"))))
       (build-system cmake-build-system)
       ;; These are native-inputs because they are only required for building the
       ;; documentation.

gnu/packages/gnupg.scm

@@ -485,10 +485,10 @@ and every application benefits from this.")
              (chdir "lang/qt"))))))
     (propagated-inputs (list gpgme))    ;required by QGpgmeConfig.cmake
     (native-inputs
-     (modify-inputs (package-native-inputs gpgme)
+     (modify-inputs native-inputs
        (prepend pkg-config)))
     (inputs
-     (modify-inputs (package-inputs gpgme)
+     (modify-inputs inputs
        (prepend qtbase-5)))
     (synopsis "Qt API bindings for gpgme")
     (description "QGpgme provides a very high level Qt API around GpgMEpp.
@@ -514,10 +514,10 @@ gpgpme starting with version 1.7.")
              (chdir "lang/qt"))))))
     (propagated-inputs (list gpgme))    ;required by QGpgmeConfig.cmake
     (native-inputs
-     (modify-inputs (package-native-inputs gpgme)
+     (modify-inputs native-inputs
        (prepend pkg-config)))
     (inputs
-     (modify-inputs (package-inputs gpgme)
+     (modify-inputs inputs
        (prepend qtbase)))
     (synopsis "Qt API bindings for gpgme")
     (description "QGpgme provides a very high level Qt API around GpgMEpp.")
@@ -573,10 +573,10 @@ interface (FFI) of Guile.")
     (inherit guile-gcrypt)
     (name "guile2.2-gcrypt")
     (native-inputs
-     (modify-inputs (package-native-inputs guile-gcrypt)
+     (modify-inputs native-inputs
        (replace "guile" guile-2.2)))
     (inputs
-     (modify-inputs (package-inputs guile-gcrypt)
+     (modify-inputs inputs
        (replace "guile" guile-2.2)))))
 
 (define-public python-gpg
@@ -908,7 +908,7 @@ enter a passphrase when required by @code{gpg} or other software.")))
     (arguments
      `(#:configure-flags '("--enable-fallback-curses")))
     (inputs
-     (modify-inputs (package-inputs pinentry-tty)
+     (modify-inputs inputs
        (prepend gtk+-2 glib)))
     (description
      "Pinentry provides a console and a GTK+ GUI that allows users to enter a
@@ -919,7 +919,7 @@ passphrase when @code{gpg} is run and needs it.")))
     (inherit pinentry-tty)
     (name "pinentry-gnome3")
     (inputs
-     (modify-inputs (package-inputs pinentry-tty)
+     (modify-inputs inputs
        (prepend gtk+-2 gcr-3 glib)))
     (arguments
      `(#:configure-flags '("--enable-pinentry-gnome3"
@@ -936,7 +936,7 @@ software.")))
     (arguments
      `(#:configure-flags '("--enable-fallback-curses")))
     (inputs
-     (modify-inputs (package-inputs pinentry-tty)
+     (modify-inputs inputs
        (prepend qtbase qtwayland)))
   (description
    "Pinentry provides a console and a Qt GUI that allows users to enter a
@@ -960,7 +960,7 @@ passphrase when @code{gpg} is run and needs it.")))
        ("gettext" ,gettext-minimal)
        ,@(package-native-inputs pinentry-tty)))
     (inputs
-     (modify-inputs (package-inputs pinentry-tty)
+     (modify-inputs inputs
        (prepend efl)))
     (description
    "Pinentry provides a console and a graphical interface for @acronym{EFL,

gnu/packages/gnuzilla.scm

@@ -309,7 +309,7 @@ in C/C++.")
                (base32
                 "1a3h7p7126pxzpidb1lqckvhfh1had805mai4l96mnc878phbx61"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments mozjs)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         #~(delete "--enable-rust-simd" #$flags))
        ((#:phases phases)
@@ -387,7 +387,7 @@ fractional-second-digits-append-item.js")
                (base32
                 "0xvwk3vkbxnybpi3gwk48nxffg44lbv58mbk2xq6cz50ffq0k5k2"))))
     (arguments
-     (substitute-keyword-arguments (package-arguments mozjs)
+     (substitute-keyword-arguments arguments
        ((#:configure-flags flags)
         #~(delete "--enable-rust-simd" #$flags))
        ((#:phases phases)
@@ -604,9 +604,9 @@ in the case of Firefox, it is browser/locales/all-locales."
     "zh-CN"
     "zh-TW"))
 
-(define %icecat-base-version "140.8.0")
+(define %icecat-base-version "140.9.0")
 (define %icecat-version (string-append %icecat-base-version "-gnu1"))
-(define %icecat-build-id "20260224000000") ;must be of the form YYYYMMDDhhmmss
+(define %icecat-build-id "20260324000000") ;must be of the form YYYYMMDDhhmmss
 
 ;; 'icecat-source' is a "computed" origin that generates an IceCat tarball
 ;; from the corresponding upstream Firefox ESR tarball, using the 'makeicecat'
@@ -626,9 +626,9 @@ in the case of Firefox, it is browser/locales/all-locales."
                   "firefox-" upstream-firefox-version ".source.tar.xz"))
             (sha256
              (base32
-              "1rl26836r8kl02mhkxni44xgclx03y24l1yqjxjky9v8xwwz79sp"))))
+              "0b79x61w51fjf12p5sr9pipg4b3fjdnbsg0j20fdai3jq6jb4wmr"))))
 
-         (gnuzilla-commit "e2809896cda6560800040c638982dba7945fe43a")
+         (gnuzilla-commit "10a8be3fcf725ed01ffb7279ec27c2fba55dd2d2")
          (gnuzilla-source
           (origin
             (method git-fetch)
@@ -639,7 +639,7 @@ in the case of Firefox, it is browser/locales/all-locales."
                                       (string-take gnuzilla-commit 8)))
             (sha256
              (base32
-              "0x0762cy54imkc6qkzp6y7xi7slm9q1lnrkf5n7p8jd7m9fg5qq5"))))
+              "076s3zpq0cj24a2pjarb57k1xv9z45xazps8rgypzw8yc4pxi9rj"))))
 
          ;; 'search-patch' returns either a valid file name or #f, so wrap it
          ;; in 'assume-valid-file-name' to avoid 'local-file' warnings.