1
0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-07-11 04:14:04 +02:00

Compare commits

..

7 Commits

Author SHA1 Message Date
Oleg Pykhalov 9350cb2ce1 gnu: webrtc-audio-processing: Build with abseil-cpp.
The webrtc was silently disabled in 'pipewire' package.

* gnu/packages/linux.scm (webrtc-audio-processing)
[inputs]: Move abseil-cpp from here...
[propagated-inputs]: ...to here.

Merges: guix/guix!8723

Co-authored-by: Sughosha <sughosha@disroot.org>
Change-Id: Ieaf93939db4913116d45a16099ccfcb3f4318493
2026-05-29 16:32:57 +05:30
Sughosha 1553617278 gnu: libgme: Update to 0.6.5.
* gnu/packages/audio.scm (libgme): Update to 0.6.5.
[source]: Switch to git-fetch.
[home-page]: Update URL.

Change-Id: I7f934fef07b200fea18be2f3d5d6c0525907b1e6
2026-05-11 17:50:57 +05:30
coopi 896eee9c71 gnu: Update alsa-plugins.
* gnu/packages/linux.scm (alsa-plugins) [version]: Update to 1.2.12.
[source]: Switch to 'git-fetch'.
[description]: Reword.

Signed-off-by: Gabriel Wicki <gabriel@erlikon.ch>
2026-04-20 00:42:55 +02:00
coopi 92955cac60 gnu: Update alsa-utils.
* gnu/packages/linux.scm (alsa-utils) [version]: Update to 1.2.15.2.
[source]: Switch to 'git-fetch'.
[description]: Reword.

Signed-off-by: Gabriel Wicki <gabriel@erlikon.ch>
2026-04-20 00:42:55 +02:00
coopi eb1eb07475 gnu: Update alsa-lib.
* gnu/packages/linux.scm (alsa-lib) [version]: Update to 1.2.15.3.
[source]: Switch to 'git-fetch'.
[description]: Reword.

Signed-off-by: Gabriel Wicki <gabriel@erlikon.ch>
2026-04-20 00:42:55 +02:00
coopi 78c535cf11 gnu: Update alsa-topology-conf.
* gnu/packages/linux.scm (alsa-topology-conf) [version]: Update to 1.2.5.1.
[source]: Switch to 'git-fetch'.
[description]: Reword.

Signed-off-by: Gabriel Wicki <gabriel@erlikon.ch>
2026-04-20 00:42:55 +02:00
coopi 15c535c78e gnu: Update alsa-ucm-conf.
* gnu/packages/linux.scm (alsa-ucm-conf) [version]: Update to 1.2.15.3.
[source]: Switch to 'git-fetch'.
[description]: Reword.

Signed-off-by: Gabriel Wicki <gabriel@erlikon.ch>
2026-04-20 00:42:52 +02:00
241 changed files with 20542 additions and 82990 deletions
-2
View File
@@ -16,8 +16,6 @@
( ;; primary: "D0C2 EAC1 3310 822D 98DE B57C E9C5 A2D9 0898 A02F" ( ;; primary: "D0C2 EAC1 3310 822D 98DE B57C E9C5 A2D9 0898 A02F"
"01FD 85F4 1A7B 7F82 0583 06A5 935E BE07 36DC 857E" "01FD 85F4 1A7B 7F82 0583 06A5 935E BE07 36DC 857E"
(name "avp")) (name "avp"))
("5D54 CF25 57B2 38E8 8DC1 80A2 2D22 3241 0AB7 4043"
(name "baleine"))
( ;; primary: "34FF 38BC D151 25A6 E340 A0B5 3453 2F9F AFCA 8B8E" ( ;; primary: "34FF 38BC D151 25A6 E340 A0B5 3453 2F9F AFCA 8B8E"
"A3A4 B419 0074 087C A7DE 5698 BC45 CA67 E2F8 D007" "A3A4 B419 0074 087C A7DE 5698 BC45 CA67 E2F8 D007"
(name "bavier")) (name "bavier"))
-4
View File
@@ -179,7 +179,6 @@ guix/scripts/import/elpa\.scm @guix/emacs
tests/import/elpa\.scm @guix/emacs tests/import/elpa\.scm @guix/emacs
gnu/packages/bootloaders\.scm @guix/embedded gnu/packages/bootloaders\.scm @guix/embedded
gnu/packages/coreboot\.scm @guix/embedded
gnu/packages/firmware\.scm @guix/embedded gnu/packages/firmware\.scm @guix/embedded
gnu/packages/emulators\.scm @guix/games gnu/packages/emulators\.scm @guix/games
@@ -264,7 +263,6 @@ gnu/installer(\.scm$|/) @guix/installer
gnu/packages/clojure\.scm @guix/java gnu/packages/clojure\.scm @guix/java
gnu/packages/java(-.+|)\.scm$ @guix/java gnu/packages/java(-.+|)\.scm$ @guix/java
gnu/packages/maven(-.+|)\.scm$ @guix/java gnu/packages/maven(-.+|)\.scm$ @guix/java
gnu/packages/netbeans\.scm @guix/java
guix/build/ant-build-system\.scm @guix/java guix/build/ant-build-system\.scm @guix/java
guix/build/clojure-build-system\.scm @guix/java guix/build/clojure-build-system\.scm @guix/java
guix/build/clojure-utils\.scm @guix/java guix/build/clojure-utils\.scm @guix/java
@@ -275,7 +273,6 @@ guix/build-system/ant\.scm @guix/java
guix/build-system/clojure\.scm @guix/java guix/build-system/clojure\.scm @guix/java
guix/build-system/maven\.scm @guix/java guix/build-system/maven\.scm @guix/java
gnu/packages/javascript\.scm @guix/javascript
gnu/packages/node-xyz\.scm @guix/javascript gnu/packages/node-xyz\.scm @guix/javascript
gnu/packages/node\.scm @guix/javascript gnu/packages/node\.scm @guix/javascript
guix/build-system/node\.scm @guix/javascript guix/build-system/node\.scm @guix/javascript
@@ -321,7 +318,6 @@ gnu/packages/tor-browsers\.scm @guix/mozilla
gnu/packages/ocaml\.scm @guix/ocaml gnu/packages/ocaml\.scm @guix/ocaml
gnu/packages/coq\.scm @guix/ocaml gnu/packages/coq\.scm @guix/ocaml
gnu/packages/rocq\.scm @guix/ocaml
guix/build/ocaml-build-system\.scm @guix/ocaml guix/build/ocaml-build-system\.scm @guix/ocaml
guix/build/dune-build-system\.scm @guix/ocaml guix/build/dune-build-system\.scm @guix/ocaml
guix/build-system/ocaml\.scm @guix/ocaml guix/build-system/ocaml\.scm @guix/ocaml
-2
View File
@@ -457,8 +457,6 @@ AUX_FILES = \
gnu/packages/aux-files/findclass.php \ gnu/packages/aux-files/findclass.php \
gnu/packages/aux-files/guix.vim \ gnu/packages/aux-files/guix.vim \
gnu/packages/aux-files/guix-nvim.vim \ gnu/packages/aux-files/guix-nvim.vim \
gnu/packages/aux-files/linux-libre/7.0-arm64.conf \
gnu/packages/aux-files/linux-libre/7.0-x86_64.conf \
gnu/packages/aux-files/linux-libre/6.19-arm64.conf \ gnu/packages/aux-files/linux-libre/6.19-arm64.conf \
gnu/packages/aux-files/linux-libre/6.19-i686.conf \ gnu/packages/aux-files/linux-libre/6.19-i686.conf \
gnu/packages/aux-files/linux-libre/6.19-x86_64.conf \ gnu/packages/aux-files/linux-libre/6.19-x86_64.conf \
-86
View File
@@ -1667,9 +1667,6 @@ can be turned into a version string via @code{git-version}, for example
@code{rust-pipewire-0.8.0.fd3d8f7} and @code{rust-pubgrub-0.3.0.b70cf70}. @code{rust-pipewire-0.8.0.fd3d8f7} and @code{rust-pubgrub-0.3.0.b70cf70}.
@end table @end table
When contributing Rust packages, we should have all modifications to these
two modules, in the same commit as the package we are contributing.
To avoid merge conflicts with changes from multiple branches, these two modules To avoid merge conflicts with changes from multiple branches, these two modules
are maintained by the Rust team (@pxref{Teams}). are maintained by the Rust team (@pxref{Teams}).
@@ -1699,68 +1696,6 @@ tree.
@xref{Packaging Rust Crates,,, guix-cookbook, GNU Guix Cookbook}, for @xref{Packaging Rust Crates,,, guix-cookbook, GNU Guix Cookbook}, for
packaging workflow. packaging workflow.
@subsubsection Commit messages
The commit message must have a general brief mention to entry changes
in @code{(gnu packages rust-crates)}. For changes in @code{(gnu packages
rust-sources)}, the commit message must explicitly mention all changes to the
packages.
Here are some examples for different situations:
@itemize
@item
Adding a new Rust package:
@example
gnu: Add catppuccin-whiskers.
* gnu/packages/rust-apps.scm (catppuccin-whiskers): New variable.
* gnu/packages/rust-crates.scm (lookup-cargo-inputs)
[catppuccin-whiskers]: New entry.
@end example
@item
Updating a simple package:
@example
gnu: watchexec: Update to 2.3.2.
* gnu/packages/rust-apps.scm (watchexec): Update to 2.3.2.
* gnu/packages/rust-crates.scm (lookup-cargo-inputs)[watchexec]:
Update entry.
@end example
@item
Updating a package with sources:
@example
gnu: typst: Update to 0.14.0.
* gnu/packages/rust-apps.scm (typst): Update to 0.14.0.
[arguments]<#:rust>: Use rust-1.88.
* gnu/packages/rust-crates.scm (lookup-cargo-inputs)[typst]: Update
entry.
[rust-syntect-5]: Rename to rust-syntect-5.2.
[rust-syntect-5.3]: New entry.
* gnu/packages/rust-sources.scm (rust-hypher-0.1): Update to 0.1.6.
(rust-syntect-5): Rename to rust-syntect-5.2.
[inputs]: Rename cargo-inputs rust-syntect-5 to rust-syntect-5.2.
(rust-syntect-5.3): New variable.
@end example
@end itemize
@subsubsection Resolving merge conflicts in Pull Requests
For Rust crates, the recommended way to solve merge conflicts is to drop all
changes to @code{gnu/packages/rust-crates.scm}, rebase onto the desired branch
and run the lockfile importer again, manually adding back all relevant snippets
(if any).
@xref{Common Workflow for Resolving Merge Conflicts on Existing Pull Requests,,, guix-cookbook, GNU Guix Cookbook} for
a suggested workflow on resolving merge conflicts.
@node Elm Packages @node Elm Packages
@subsection Elm Packages @subsection Elm Packages
@@ -2715,7 +2650,6 @@ applications settings page}, granting read/write access to the
@cindex decision making @cindex decision making
@cindex consensus seeking @cindex consensus seeking
Every contribution to the project involves a form of decision making.
It is expected from all contributors, and even more so from committers, It is expected from all contributors, and even more so from committers,
to help build consensus and make decisions based on consensus. By using to help build consensus and make decisions based on consensus. By using
consensus, we are committed to finding solutions that everyone can live consensus, we are committed to finding solutions that everyone can live
@@ -2730,26 +2664,6 @@ resolve the deadlock. To learn what consensus decision making means and
understand its finer details, you are encouraged to read understand its finer details, you are encouraged to read
@url{https://www.seedsforchange.org.uk/consensus}. @url{https://www.seedsforchange.org.uk/consensus}.
Day-to-day decision making, for instance discussions about pull requests
(@pxref{Reviewing the Work of Others}), happens informally among
interested parties such as contributors and members of the relevant
teams (@pxref{Teams}).
@cindex GCD, Guix Consensus Documents
@cindex Guix Consensus Documents (GCD)
Decisions that are expected to have an impact on most contributors
and/or on the broader user community---e.g., changes to project-wide
policies, to core functionality, and so on---are made following the
@acronym{GCD, Guix Consensus Document} process. The process provides a
framework to formalize proposals and draw attention to them, to leave
time for interested parties to discuss them, and to collectively accept
or withdraw them based on input from participating team members. It is
defined in
@uref{https://consensus.guix.gnu.org/gcd/001-gcd-process.html,
GCD@tie{}001}. Past GCDs can be seen at
@uref{https://consensus.guix.gnu.org}, and discussions take place at
@uref{https://codeberg.org/guix/guix-consensus-documents}.
@node Commit Access @node Commit Access
@section Commit Access @section Commit Access
+7 -330
View File
@@ -146,8 +146,6 @@ Packaging Rust Crates
* Common Workflow for Rust Packaging:: * Common Workflow for Rust Packaging::
* Cargo Workspaces and Development Snapshots:: * Cargo Workspaces and Development Snapshots::
* Using Rust Libraries in Other Build Systems:: * Using Rust Libraries in Other Build Systems::
* Common Workflow for Updating Existing Rust Packages::
* Common Workflow for Resolving Merge Conflicts on Existing Pull Requests::
System Configuration System Configuration
@@ -1649,8 +1647,6 @@ $ guix shell rust rust:cargo cargo-audit cargo-license
* Common Workflow for Rust Packaging:: * Common Workflow for Rust Packaging::
* Cargo Workspaces and Development Snapshots:: * Cargo Workspaces and Development Snapshots::
* Using Rust Libraries in Other Build Systems:: * Using Rust Libraries in Other Build Systems::
* Common Workflow for Updating Existing Rust Packages::
* Common Workflow for Resolving Merge Conflicts on Existing Pull Requests::
@end menu @end menu
@node Common Workflow for Rust Packaging @node Common Workflow for Rust Packaging
@@ -1709,15 +1705,6 @@ $ cargo audit
$ cargo license $ cargo license
@end example @end example
@quotation Note
Before running @command{cargo generate-lockfile}, make sure you have checked
out the correct tag for the version you are packaging. This ensures that
@code{Cargo.toml} matches the file used in the packages's @code{source} field.
To make sure, you can obtain the exact source with @command{./pre-inst-env guix
build --source <package>} and only then run @command{cargo generate-lockfile} on
that source tree.
@end quotation
@command{cargo generate-lockfile} updates dependencies to compatible versions. @command{cargo generate-lockfile} updates dependencies to compatible versions.
Applying it to all Rust applications helps reduce a great number of Rust Applying it to all Rust applications helps reduce a great number of Rust
libraries we need to check later. Although sometimes libraries may fail to libraries we need to check later. Although sometimes libraries may fail to
@@ -2000,316 +1987,6 @@ method, one of the most popular choices for Traditional Chinese users.")
(license license:lgpl2.1+))) (license license:lgpl2.1+)))
@end lisp @end lisp
@node Common Workflow for Updating Existing Rust Packages
@subsubsection Common Workflow for Updating Existing Rust Packages
For this example, we'll update @code{niri}. The package definition looks like
this initially:
@lisp
(define-public niri
(package
(name "niri")
(version "25.08")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/YaLTeR/niri")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"09nsxd211mly8r1ys2lq6ia4jxgb980h1axrbgw748r0knfbbj7n"))))
(build-system cargo-build-system)
...
@end lisp
We start by running the usual @command{guix refresh -u niri}.
The @command{-u} flag will update in place the version and hash for the
@code{niri} package.
The package definition will then look like this:
@lisp
(define-public niri
(package
(name "niri")
(version "25.11")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/YaLTeR/niri")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0752qm245wc2gak0jhp0fnr0rdj3z54m2h97k3cxbjym9pcn658n"))))
(build-system cargo-build-system)
...
@end lisp
This means the source field was updated successfully, thus we can now proceed to
get the updated source with @command{guix build --source niri} as follows:
@example shell
$ cp -r $(./pre-inst-env guix build --source niri) /tmp
$ cd /tmp/<hash>-niri-25.11-checkout/
@end example
@quotation Note
In this specific example, the source is a git checkout, thus a directory. If the
package source is a compressed archive, you would at this point extract it to a
directory to proceed.
@end quotation
Now, given that we have access to the @code{Cargo.toml} file, we can now run
the following inside the checkout:
@example shell
$ guix shell rust rust:cargo -- cargo generate-lockfile
$ guix shell rust rust:cargo -- cargo audit
$ guix shell rust rust:cargo -- cargo license
@end example
@quotation Note
Sometimes the package will require a more up-to-date version of rust, that is
not yet the default rust on guix. For these cases you can use:
@example shell
$ guix shell -e "(@ (gnu packages rust) rust-1.90)" \
-e '`(,(@ (gnu packages rust) rust-1.90) "cargo")'
@end example
@end quotation
The first command will ensure that all cargo dependencies are up to date
and semver compatible, while also providing some other benefits, as further
explained in @ref{Common Workflow for Rust Packaging}.
The following command will warn if there are any known vulnerabilities in the
crates being imported. The last one will output the license information of all
the dependent crates.
If everything looks good, we can now replace the contents of the @code{niri}
indentifier, located inside the @code{lookup-cargo-inputs} variable on the
bottom of the @file{gnu/packages/rust-crates.scm} module, with the newer updated
crates by running the importer on the lockfile as follows:
@example shell
$ guix import -i /path/to/gnu/packages/rust-crates.scm \
crate -f Cargo.lock niri
@end example
@quotation Note
For the purpose of contributing a package to Guix (@pxref{Contributing,,,
guix, GNU Guix Reference Manual}), there is no need to cleanup the leftover
crates as a result of the package update. This is tasked to the rust-team
(@pxref{Teams,,, guix, GNU Guix Reference Manual}) to periodically run a
convenient script in @code{etc/teams/rust} to cleanup unused crates from
@file{gnu/packages/rust-crates.scm}.
@end quotation
We then need to check whether the importer has placed some TODOs for us,
inside @file{gnu/packages/rust-crates.scm} (you can use @command{git diff --
gnu/packages/rust-crates.scm} for this purpose).
There are a few types of TODO messages that you might encounter during this
step, each type requiring you to perform a different action.
The first one we encounter in our example is:
@lisp
(define rust-libdisplay-info-sys-0.3.0
;; TODO REVIEW: Check bundled sources.
(crate-source "libdisplay-info-sys" "0.3.0"
"07xmkc2aqcdn6d58321y87rd3gzdr4nx3ncm1mmrr7w1p1ahsn96"))
@end lisp
This specific TODO message tells us that there is a high probability of
encountering bundled sources within a crate definition generated by the
importer.
We then check if there are any bundled sources within the
@code{rust-libdisplay-info-sys-0.3.0} crate. Since there are none (in our
example), we can simply remove the TODO line, and continue to the next TODO.
If there were any bundled sources inside the crate, we would have to patch
it with a snippet, in order to unbundle it. You can see some examples on
how to unbundle inside @file{gnu/packages/rust-crates.scm} (search for the
@code{#:snippet} keyword).
@quotation Note
If the unbundle is considered too difficult to be executed (e.g. the effort
needed to unbundle is unreasonable), the @code{TODO REVIEW} line should be
converted to a regular TODO comment explicitly stating the unbundle was not done
(e.g. @code{TODO: Unbundle rust-libdisplay-info-sys.}).
@end quotation
Continuing, another TODO message we encounter in this example is the following:
@lisp
(define rust-smithay-0.7.0.d743e1a
;; TODO REVIEW: Define standalone package if this is a workspace.
(origin
(method git-fetch)
(uri (git-reference (url "https://github.com/Smithay/smithay.git")
(commit "d743e1a317fa0f01d1c4cadd96d277a1ec7b59d9")))
(file-name (git-file-name "rust-smithay" "0.7.0.d743e1a"))
(sha256 (base32 "11327mhxxf844bs0v5bw1g9bzjssnzhidsissywy6kwng16x727v"))))
@end lisp
This specific TODO message tells us that there is a high probability of the
@code{rust-smithay-0.7.0.d743e1a} crate being a workspace.
After verifying that it is indeed a workspace, we now need to make it an
actual package in @file{gnu/packages/rust-sources.scm}, referencing it in the
crate-source definition (see @ref{Common Workflow for Rust Packaging} for more
details).
@quotation Note
You can verify if a crate is a workspace by cloning the crate repository (in
this case @code{https://github.com/Smithay/smithay.git}), checking out the
specific revision (in this case @command{git checkout d743e1a}), and looking
for @code{[workspace]} in its main @file{Cargo.toml} file. If it does not have a
TOML @code{[workspace]} section, then it is not a workspace.
@end quotation
After defining the separate source package for the workspace in
@file{gnu/packages/rust-sources.scm} (see @ref{Common Workflow for Rust
Packaging} for more details on how to do this), the crate definition for
@code{rust-smithay-0.7.0.d743e1a} would then become the following (notice we
also remove the TODO line):
@lisp
(define rust-smithay-0.7.0.d743e1a package:rust-smithay-0.7.0.d743e1a)
@end lisp
If @code{rust-smithay-0.7.0.d743e1a} was not a workspace, we would simply remove
the TODO line and move on.
We then try to build the package with @command{guix build niri}, and make sure
whether it builds successfully, which it does.
As a good practice, we can further check the output of the
@code{check-for-pregenerated-files} phase to ensure there are no extraneous
pregenerated files inside the crates. If there are any, it is important to
snippet them out, like these:
@lisp
(define rust-winapi-x86-64-pc-windows-gnu-0.4.0
(crate-source "winapi-x86_64-pc-windows-gnu" "0.4.0"
"0gqq64czqb64kskjryj8isp62m2sgvx25yyj3kpc2myh85w24bki"
#:snippet '(delete-file-recursively "lib")))
(define rust-flate2-1.1.4
(crate-source "flate2" "1.1.4"
"1a8a3pk2r2dxays4ikc47ygydhpd1dcxlgqdi3r9kiiq9rb4wnnw"
#:snippet '(for-each delete-file-recursively '("examples" "tests"))))
(define rust-flo-curves-0.3.1
(crate-source "flo_curves" "0.3.1"
"16x293dp8825jh465kgms4yyvl4960j26gh37h3skflq9zxpy8hw"
#:snippet '(for-each delete-file '("logo-small.png" "logo.png"))))
(define rust-interception-sys-0.1.3
(crate-source "interception-sys" "0.1.3"
"1lgwbml7gzq5a5rriy708w68gx6yiw9cdg7xy2c5vsrrck7pbs5b"
#:snippet '(for-each delete-file (find-files "." "\\.(dll|lib)$"))))
@end lisp
@node Common Workflow for Resolving Merge Conflicts on Existing Pull Requests
@subsubsection Common Workflow for Resolving Merge Conflicts on Existing Pull Requests
Whenever a Rust package change is merged into our target branch from a different
Pull Request, we often encounter many merge conflicts in @code{(gnu packages
rust-crates)} when rebasing the Pull Request on top of the target branch. Since
we should avoid modifying the rust-crates file manually (e.g. using the git
interface to solve merge conflicts), it is recommended (and often much faster)
to drop all changes to @code{(gnu packages rust-crates)} and run the lockfile
importer once again, manually adding back all the manual changes.
This workflow describes one of many ways to do the described procedure.
In this example we'll update the @code{codeberg-cli} package, which has produced
some merge conflicts in @file{gnu/packages/rust-crates.scm} when we tried a git
pull rebase.
Before starting, make sure we're not in a rebase environment, by aborting the
rebase we tried previously (the one which created the merge conflicts by git
pulling):
@example
$ git rebase --abort
@end example
@cindex git rebase --interactive
@cindex interactive rebase
To begin, we interactively rebase our PR branch by marking as
@code{edit} the commit we want to edit, which is the one containing the
@file{gnu/packages/rust-crates.scm} changes:
@example
# Change 1 to the number of relevant commits
$ git rebase -i HEAD~1
@end example
In our example, we would mark the @code{codeberg-cli} commit like so:
@example
edit 6ef4f1ad043 # gnu: codeberg-cli: Update to 0.5.4.
@end example
After that, we'll be in rebase mode, where we can restore the changes made to
@file{gnu/packages/rust-crates.scm}:
@quotation Note
Notice that we will lose all manual changes we have previously made to
@file{gnu/packages/rust-crates.scm} (e.g. snippets, deleting TODO comments,
if there were any). We'll need to manually add them back after we run the guix
lockfile importer once again, so make sure you have them saved somewhere, for
example in your PR link under the @code{Files changed} tab.
@end quotation
@example
$ git restore --source=HEAD~ gnu/packages/rust-crates.scm
@end example
Having restored the file, we can stage the changes, commit, finish the rebase
and pull rebase from the target branch:
@example
$ git add gnu/packages/rust-crates.scm
$ git commit --amend --no-edit
$ git rebase --continue
$ git pull <remote> <target branch>
@end example
We then proceed to run the guix lockfile importer:
@quotation Note
Remember to checkout the correct tag you're packaging in the package repository
checkout. Don't forget to run @code{cargo generate-lockfile} before running
the lockfile importer, see @ref{Common Workflow for Rust Packaging} for more
detailed steps on what to do before running the guix lockfile importer.
@end quotation
@example
$ guix import --insert=gnu/packages/rust-crates.scm \
crate --lockfile=/path/to/Cargo.lock codeberg-cli
@end example
Now is the time we manually add back the snippets and remove the relevant TODOs
we have already checked (if there are any).
After running the lockfile importer and checking if there are any changes to
manually add back, we can finally:
@example
$ git add gnu/packages/rust-crates.scm
# Our target commit is the last one:
$ git commit --amend --no-edit
@end example
We now have a non-conflicting tree, from which we can now update our PR with.
@c ********************************************************************* @c *********************************************************************
@node System Configuration @node System Configuration
@@ -3256,8 +2933,8 @@ your Linode Summary section.) Now you can run the "install guix from
@example @example
sudo apt-get install gpg sudo apt-get install gpg
wget https://codeberg.org/efraim.gpg -qO - | gpg --import - wget https://sv.gnu.org/people/viewgpg.php?user_id=15145 -qO - | gpg --import -
wget https://guix.gnu.org/guix-install.sh wget https://git.savannah.gnu.org/cgit/guix.git/plain/etc/guix-install.sh
chmod +x guix-install.sh chmod +x guix-install.sh
./guix-install.sh ./guix-install.sh
guix pull guix pull
@@ -3436,7 +3113,7 @@ Now you can run the "install guix from @pxref{Binary Installation,,,
guix, GNU Guix}" steps: guix, GNU Guix}" steps:
@example @example
wget https://guix.gnu.org/guix-install.sh wget https://git.savannah.gnu.org/cgit/guix.git/plain/etc/guix-install.sh
chmod +x guix-install.sh chmod +x guix-install.sh
./guix-install.sh ./guix-install.sh
guix pull guix pull
@@ -4491,7 +4168,7 @@ network. Assuming your interface is named @samp{enp2s0}, the following
command can be used to do so: command can be used to do so:
@example sh @example sh
# nmcli con add type bridge-slave autoconnect yes ifname enp2s0 master br0 # nmcli con add type bridge-slave ifname enp2s0 master br0
@end example @end example
@quotation Important @quotation Important
@@ -4527,8 +4204,8 @@ bridge interface, as the default is to deny all. Add the following to
your list of services to do so: your list of services to do so:
@example lisp @example lisp
(extra-special-file "/etc/qemu/bridge.conf" (extra-special-file "/etc/qemu/host.conf"
(plain-file "bridge.conf" "allow br0\n")) (plain-file "host.conf" "allow br0\n"))
@end example @end example
@subsection Invoking QEMU with the right command line options @subsection Invoking QEMU with the right command line options
@@ -4546,7 +4223,7 @@ machine making use of the bridge would cause networking issues.
@example sh @example sh
$ qemu-system-x86_64 [...] \ $ qemu-system-x86_64 [...] \
-device virtio-net-pci,netdev=user0,mac=XX:XX:XX:XX:XX:XX \ -device virtio-net-pci,netdev=user0,mac=XX:XX:XX:XX:XX:XX \
-netdev bridge,helper=/run/privileged/bin/qemu-bridge-helper,id=user0,br=br0 \ -netdev bridge,id=user0,br=br0 \
[...] [...]
@end example @end example
+41 -124
View File
@@ -10,8 +10,8 @@
@include version.texi @include version.texi
@c Identifier of the OpenPGP key used to sign tarballs and such. @c Identifier of the OpenPGP key used to sign tarballs and such.
@set OPENPGP-SIGNING-KEY-ID A28BF40C3E551372662D14F741AAE7DCCA3D8351 @set OPENPGP-SIGNING-KEY-ID 3CE464558A84FDC69DB40CFB090B11993D9AEBB5
@set OPENPGP-SIGNING-KEY-URL https://codeberg.org/efraim.gpg @set OPENPGP-SIGNING-KEY-URL https://sv.gnu.org/people/viewgpg.php?user_id=15145
@c Base URL for downloads. @c Base URL for downloads.
@set BASE-URL https://ftpmirror.gnu.org/gnu/guix @set BASE-URL https://ftpmirror.gnu.org/gnu/guix
@@ -2658,13 +2658,12 @@ bootloaders.
Once you are done partitioning the target hard disk drive, you have to Once you are done partitioning the target hard disk drive, you have to
create a file system on the relevant partition(s)@footnote{Currently create a file system on the relevant partition(s)@footnote{Currently
Guix System can mount only ext4, btrfs, JFS, F2FS, and XFS file systems Guix System supports only ext4, btrfs, bcachefs, JFS, F2FS, and XFS
at boot time. In particular, code that reads file system UUIDs and file systems. In particular, code that reads file system UUIDs and
labels works only for these file system types. The code for bcachefs is labels works only for these file system types. For bcachefs, also add
in place, but support for loading out-of-tree kernel modules in the the @code{bcachefs-linux-module} to your @code{operating-system}'s
initrd is not.}. @code{initrd-modules}.}. For the ESP, if you have one and assuming it is
@file{/dev/sda1}, run:
For the ESP, if you have one and assuming it is @file{/dev/sda1}, run:
@example @example
mkfs.fat -F32 /dev/sda1 mkfs.fat -F32 /dev/sda1
@@ -6591,21 +6590,6 @@ directory within the container. If this is undesirable,
be automatically shared and will change to the user's home directory be automatically shared and will change to the user's home directory
within the container instead. See also @option{--user}. within the container instead. See also @option{--user}.
@item --cwd=@var{directory}
For containers, change to @var{directory} inside the container instead
of the default location. The default location is the current working
directory when @option{--no-cwd} is not used, or the user's home
directory when @option{--no-cwd} is used. When @var{directory} is a
relative file name, it is interpreted relative to the current working
directory on the host. Note that @option{--cwd} does not automatically
share @var{directory}---you must ensure it is accessible via the default
current directory sharing or explicit @option{--share}/@option{--expose}
options. For example:
@example
guix shell --container --cwd=/tmp --share=/tmp coreutils
@end example
@item --writable-root @item --writable-root
When using @option{--container}, this option makes the root file system When using @option{--container}, this option makes the root file system
writable (it is read-only by default). writable (it is read-only by default).
@@ -7107,17 +7091,6 @@ directory within the container. If this is undesirable,
be automatically shared and will change to the user's home directory be automatically shared and will change to the user's home directory
within the container instead. See also @option{--user}. within the container instead. See also @option{--user}.
@item --cwd=@var{directory}
For containers, change to @var{directory} inside the container instead
of the default location. The default location is the current working
directory when @option{--no-cwd} is not used, or the user's home
directory when @option{--no-cwd} is used. When @var{directory} is a
relative file name, it is interpreted relative to the current working
directory on the host. Note that @option{--cwd} does not automatically
share @var{directory}---you must ensure it is accessible via the default
current directory sharing or explicit @option{--share}/@option{--expose}
options.
@item --expose=@var{source}[=@var{target}] @item --expose=@var{source}[=@var{target}]
@itemx --share=@var{source}[=@var{target}] @itemx --share=@var{source}[=@var{target}]
For containers, @option{--expose} (resp. @option{--share}) exposes the For containers, @option{--expose} (resp. @option{--share}) exposes the
@@ -8870,12 +8843,12 @@ dependencies than the original package. For example, the default
optional dependency, you can define a variant that removes that optional dependency, you can define a variant that removes that
dependency like so: dependency like so:
@findex package/inherit
@lisp @lisp
(use-modules (gnu packages gdb)) ;for 'gdb' (use-modules (gnu packages gdb)) ;for 'gdb'
(define gdb-sans-guile (define gdb-sans-guile
(package/inherit gdb (package
(inherit gdb)
(inputs (modify-inputs inputs (inputs (modify-inputs inputs
(delete "guile"))))) (delete "guile")))))
@end lisp @end lisp
@@ -8883,23 +8856,6 @@ dependency like so:
In the body of the @code{inputs} field above, @code{inputs} is bound to 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 inherited value. Thus, the @code{modify-inputs} form above removes
the @code{"guile"} package from the @code{inputs} field of @code{gdb}. the @code{"guile"} package from the @code{inputs} field of @code{gdb}.
@quotation Note
The example above uses @code{(package/inherit gdb @dots{})} instead of
the usual @code{(package (inherit gdb) @dots{})}. While the latter
would work, @code{package/inherit} does extra work: if @code{gdb} has a
@code{replacement} field (@pxref{Security Updates}),
@code{package/inherit} propagates the @code{inputs} changes of this
variant to the replacement.
In other words, @code{package/inherit} ensures the variant gets a
consistent @code{replacement} when the original package has one. Thus,
one should generally use @code{package/inherit} when creating a variant
for the same version, but not when targeting a different version, as in
the @code{hello} example we saw earlier, where the replacement may be
incorrect.
@end quotation
The @code{modify-inputs} macro is a helper that can prove useful anytime The @code{modify-inputs} macro is a helper that can prove useful anytime
you want to remove, add, or replace package inputs. you want to remove, add, or replace package inputs.
@@ -14884,7 +14840,7 @@ provided through NuGet's v3 API at @code{api.nuget.org} and includes
most relevant information, including package dependencies. most relevant information, including package dependencies.
There are some caveats, however. The metadata does not always include There are some caveats, however. The metadata does not always include
repository information, in which case the importer attempts to extract repository information, in which case the importer attempts to extract
it from the symbol package (@file{.snupkg}) if available. it from the symbol package (@file{.snupkg}) if available.
Additionally, dependencies are grouped by target framework in NuGet, Additionally, dependencies are grouped by target framework in NuGet,
but the importer flattens all dependency groups into a single list. but the importer flattens all dependency groups into a single list.
@@ -15578,7 +15534,7 @@ gnu/packages/qt.scm:452:13: qtbase would be upgraded from 5.15.8 to 5.15.10
@end example @end example
@cindex partial version specification, guix refresh @cindex partial version specification, guix refresh
A per-package equivalent to @option{--target-version} is made available by A per-package equivalent to --target-version is made available by
prefixing the version specification with the @samp{~} (tilde) character. prefixing the version specification with the @samp{~} (tilde) character.
For example: For example:
@@ -16139,7 +16095,7 @@ it unchanged.
@item git-source @item git-source
If the @code{home-page} is a Git repository (as per If the @code{home-page} is a Git repository (as per
@code{git-repository-url?}), and the actual Git repository is tagged @code{git-repository-url?}), and the actual Git repository is tagged
with a version string, possibly prefixed by ``v'', change the with @code{version} or @code{(string-append ``v'' version)}, change the
package origin to the @code{git-fetch} method package origin to the @code{git-fetch} method
(@pxref{origin Reference}). Consider this example: (@pxref{origin Reference}). Consider this example:
@@ -16168,16 +16124,14 @@ its @code{source} field like to:
(inherit guile-json-3) (inherit guile-json-3)
(name "guile-json") (name "guile-json")
(version "4.7.3") (version "4.7.3")
(source (source (origin
(origin (method git-fetch)
(method git-fetch) (uri (git-reference (url
(uri (git-reference "https://github.com/aconchillo/guile-json")
(url "https://github.com/aconchillo/guile-json") (commit version)))
(commit version))) (file-name (git-file-name name version))
(file-name (git-file-name name version)) (sha256 (base32
(sha256 "0akhm8xjv8fl55fyq0w6c9c6hi5j7mifjx01w07np7qg1cjl9f06"))))))
(base32
"0akhm8xjv8fl55fyq0w6c9c6hi5j7mifjx01w07np7qg1cjl9f06"))))))
@end lisp @end lisp
@end table @end table
@@ -19242,7 +19196,7 @@ Partitioning}, for an example.
When using GRUB as the bootloader, the LUKS password is only requested When using GRUB as the bootloader, the LUKS password is only requested
once: GRUB passes the master key to the initial RAM disk automatically. once: GRUB passes the master key to the initial RAM disk automatically.
@xref{grub-luks-root-device-key, Automatic LUKS Master Key Passing}, for @xref{Bootloader Configuration, Automatic LUKS Master Key Passing}, for
details. details.
@end defvar @end defvar
@@ -27294,28 +27248,6 @@ Package object for GVfs.
@end table @end table
@end deftp @end deftp
@defvar kmonad-service-type
This is the type of the service that runs
@uref{https://github.com/kmonad/kmonad, KMonad}. Its value is a
@code{kmonad-configuration} object. This service allows spawning
@command{kmonad} configurations to manage keyboards.
@deftp {Data Type} kmonad-configuration
Configuration record for the KMonad service.
@table @asis
@item @code{kmonad} (default: @code{kmonad})
The KMonad package to use.
@item @code{keymaps}
A list of files with KMonad configurations. One shepherd service will be
created to control each configuration. Each configuration should target
a distinct input device as KMonad operates on a per-input basis.
@end table
@end deftp
@end defvar
@defvar colord-service-type @defvar colord-service-type
This is the type of the service that runs @command{colord}, a system This is the type of the service that runs @command{colord}, a system
service with a D-Bus service with a D-Bus
@@ -45277,12 +45209,6 @@ Extra command line options for @code{guix-data-service}.
@item @code{extra-process-jobs-options} (default: @var{'()}) @item @code{extra-process-jobs-options} (default: @var{'()})
Extra command line options for @code{guix-data-service-process-jobs}. Extra command line options for @code{guix-data-service-process-jobs}.
@item @code{extra-environment-variables} (default: @var{'()})
Extra environment variables for @code{guix-data-service}.
@item @code{extra-process-jobs-environment-variables} (default: @var{'()})
Extra environment variables for @code{guix-data-service-process-jobs}.
@item @code{git-repositories} (default: @var{#f}) @item @code{git-repositories} (default: @var{#f})
List of git-repository information to insert into the database. List of git-repository information to insert into the database.
@@ -48992,28 +48918,8 @@ This option in enabled by default. In some cases involving the
in RAM, it can be handy to disable the option by setting it to in RAM, it can be handy to disable the option by setting it to
@code{#f}. @code{#f}.
@item @code{extra-initrd} (default: @code{#f}) @subsubheading Automatic LUKS Master Key Passing
File name of an additional initrd to load during the boot. It may or
may not point to a file in the store, but the main use case is for
out-of-store files containing secrets.
For any use case not involving secrets, you should use regular initrd
(@pxref{operating-system Reference, @code{initrd}}) instead.
Be careful when using this option, since pointing to a file that is not
readable by the grub while booting will cause the boot to fail and
require a manual edit of the initrd line in the grub menu.
Currently only supported by GRUB.
@end table
@end deftp
@anchor{grub-luks-root-device-key}
@unnumberedsubsec Automatic LUKS Master Key Passing
@cindex LUKS, root file system encryption
@cindex passphrase, for LUKS-encrypted root
When booting from a LUKS-encrypted device using GRUB, the password is When booting from a LUKS-encrypted device using GRUB, the password is
normally requested twice: once by GRUB to access @file{/boot}, and a normally requested twice: once by GRUB to access @file{/boot}, and a
second time by the initial RAM disk to mount the root file system. second time by the initial RAM disk to mount the root file system.
@@ -49054,7 +48960,22 @@ No configuration is required: GRUB's @code{procfs} and @code{luks}
modules are loaded automatically when encrypted devices are declared modules are loaded automatically when encrypted devices are declared
via @code{luks-device-mapping} (@pxref{Mapped Devices}). via @code{luks-device-mapping} (@pxref{Mapped Devices}).
@unnumberedsubsec Additional Boot Entries @item @code{extra-initrd} (default: @code{#f})
File name of an additional initrd to load during the boot. It may or
may not point to a file in the store, but the main use case is for
out-of-store files containing secrets.
For any use case not involving secrets, you should use regular initrd
(@pxref{operating-system Reference, @code{initrd}}) instead.
Be careful when using this option, since pointing to a file that is not
readable by the grub while booting will cause the boot to fail and
require a manual edit of the initrd line in the grub menu.
Currently only supported by GRUB.
@end table
@end deftp
@cindex dual boot @cindex dual boot
@cindex boot menu @cindex boot menu
@@ -49183,13 +49104,9 @@ example of chainloading a different GNU/Linux system.
@end table @end table
@end deftp @end deftp
@unnumberedsubsec Themes
@cindex HDPI @cindex HDPI
@cindex HiDPI @cindex HiDPI
@cindex resolution @cindex resolution
@cindex themes, for GRUB
@cindex bootloader themes
@c FIXME: Write documentation once it's stable. @c FIXME: Write documentation once it's stable.
For now only GRUB has theme support. GRUB themes are created using For now only GRUB has theme support. GRUB themes are created using
the @code{grub-theme} form, which is not fully documented yet. the @code{grub-theme} form, which is not fully documented yet.
@@ -49209,7 +49126,7 @@ Return the default GRUB theme used by the operating system if no
@code{theme} field is specified in @code{bootloader-configuration} @code{theme} field is specified in @code{bootloader-configuration}
record. record.
It comes with a fancy background image displaying the Guix It comes with a fancy background image displaying the GNU and Guix
logos. logos.
@end deffn @end deffn
@@ -49584,7 +49501,7 @@ how to generate an image that uses the @code{grub-efi-bootloader}
bootloader and boot it with QEMU: bootloader and boot it with QEMU:
@example @example
image=$(guix system image --image-type=qcow2-gpt \ image=$(guix system image --image-type=qcow2 \
gnu/system/examples/lightweight-desktop.tmpl) gnu/system/examples/lightweight-desktop.tmpl)
cp $image /tmp/my-image.qcow2 cp $image /tmp/my-image.qcow2
chmod +w /tmp/my-image.qcow2 chmod +w /tmp/my-image.qcow2
+398 -1961
View File
File diff suppressed because it is too large Load Diff
+2 -17
View File
@@ -16,7 +16,6 @@ exec $pre_inst_env_maybe guix repl -- "$0" "$@"
;;; Copyright © 2025 Cayetano Santos <csantosb@inventati.org> ;;; Copyright © 2025 Cayetano Santos <csantosb@inventati.org>
;;; Copyright © 2025-2026 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2025-2026 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2025 jgart <jgart@dismail.de> ;;; Copyright © 2025 jgart <jgart@dismail.de>
;;; Copyright © 2026 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@@ -691,7 +690,6 @@ ecosystem."
(team 'embedded (team 'embedded
#:name "Embedded" #:name "Embedded"
#:scope (list "gnu/packages/bootloaders.scm" #:scope (list "gnu/packages/bootloaders.scm"
"gnu/packages/coreboot.scm"
"gnu/packages/firmware.scm"))) "gnu/packages/firmware.scm")))
(define-team games (define-team games
@@ -828,7 +826,6 @@ and the maven-build-system."
(make-regexp* "^gnu/packages/java(-.+|)\\.scm$") (make-regexp* "^gnu/packages/java(-.+|)\\.scm$")
;; Match maven.scm and maven-*.scm ;; Match maven.scm and maven-*.scm
(make-regexp* "^gnu/packages/maven(-.+|)\\.scm$") (make-regexp* "^gnu/packages/maven(-.+|)\\.scm$")
"gnu/packages/netbeans.scm"
"guix/build/ant-build-system.scm" "guix/build/ant-build-system.scm"
"guix/build/clojure-build-system.scm" "guix/build/clojure-build-system.scm"
"guix/build/clojure-utils.scm" "guix/build/clojure-utils.scm"
@@ -845,8 +842,7 @@ and the maven-build-system."
#:name "JavaScript team" #:name "JavaScript team"
#:description #:description
"JavaScript/Node.js packages, the node build system." "JavaScript/Node.js packages, the node build system."
#:scope (list "gnu/packages/javascript.scm" #:scope (list "gnu/packages/node-xyz.scm"
"gnu/packages/node-xyz.scm"
"gnu/packages/node.scm" "gnu/packages/node.scm"
"guix/build-system/node.scm" "guix/build-system/node.scm"
"guix/build/node-build-system.scm" "guix/build/node-build-system.scm"
@@ -947,7 +943,6 @@ importer, and the ocaml-build-system."
#:scope #:scope
(list "gnu/packages/ocaml.scm" (list "gnu/packages/ocaml.scm"
"gnu/packages/coq.scm" "gnu/packages/coq.scm"
"gnu/packages/rocq.scm"
"guix/build/ocaml-build-system.scm" "guix/build/ocaml-build-system.scm"
"guix/build/dune-build-system.scm" "guix/build/dune-build-system.scm"
"guix/build-system/ocaml.scm" "guix/build-system/ocaml.scm"
@@ -1251,11 +1246,6 @@ the \"texlive\" importer."
"jonsger") "jonsger")
mozilla) mozilla)
(define-member (person "Denis Carikli"
"GNUtoo@cyberdimension.org"
"GNUtoo")
embedded)
(define-member (person "Ludovic Courtès" (define-member (person "Ludovic Courtès"
"ludo@gnu.org" "ludo@gnu.org"
"civodul") "civodul")
@@ -1639,7 +1629,7 @@ the \"texlive\" importer."
(define-member (person "Thanos Apollo" (define-member (person "Thanos Apollo"
"public@thanosapollo.org" "public@thanosapollo.org"
"thanosapollo") "thanosapollo")
vcs emacs) vcs)
(define-member (person "Ashish SHUKLA" (define-member (person "Ashish SHUKLA"
"ashish.is@lostca.se" "ashish.is@lostca.se"
@@ -1661,11 +1651,6 @@ the \"texlive\" importer."
"tok") "tok")
electronics) electronics)
(define-member (person "gemmaro"
"gemmaro.dev@gmail.com"
"gemmaro")
ruby)
(define (find-team name) (define (find-team name)
(or (hash-ref %teams (string->symbol name)) (or (hash-ref %teams (string->symbol name))
+24 -63
View File
@@ -1,6 +1,6 @@
#!/usr/bin/env -S gawk -f #!/usr/bin/env -S gawk -f
# GNU Guix --- Functional package management for GNU # GNU Guix --- Functional package management for GNU
# Copyright © 2025, 2026 Efraim Flashner <efraim@flashner.co.il> # Copyright © 2025 Efraim Flashner <efraim@flashner.co.il>
# #
# This file is part of GNU Guix. # This file is part of GNU Guix.
# #
@@ -21,22 +21,20 @@
# ./etc/teams/rust/audit-rust-crates ./path/to/file.scm # ./etc/teams/rust/audit-rust-crates ./path/to/file.scm
# Prints the output of cargo-audit to the shell. # Prints the output of cargo-audit to the shell.
# Make sure we have cargo-audit in our PATH
BEGIN { BEGIN {
"which cargo-audit" | getline cargoAudit if (system("which cargo-audit 1> /dev/null"))
close("which cargo-audit") exit 1;
cargoAudit = cargoAudit " audit --file -"
# Parse a record at a time. # Parse a record at a time.
RS = "\n\n" RS = "\n\n"
cargoAudit = "cargo-audit audit --file -"
} }
# Check the crate-source origin-only inputs, like in rust-crates.scm # Check the crate-source origin-only inputs
/crate-source/ { /crate-source/ {
for(i=3; i <= NF-2; i++) { for(i=3; i <= NF-2; i++) {
if($i == "(crate-source") { if($i == "(crate-source") {
crateName = $(i+1) cargoLock = cargoLock "[[package]]\nname = " $(i+1) "\nversion = " $(i+2) "\n"
crateVersion = $(i+2)
cargoLock = cargoLock "[[package]]\nname = " crateName "\nversion = " crateVersion "\n"
next next
} }
} }
@@ -46,64 +44,27 @@ BEGIN {
/crate-uri/ { /crate-uri/ {
for(i=3; i <= NF; i++) { for(i=3; i <= NF; i++) {
if($i == "(version") if($i == "(version")
crateVersion = $(i+1) crateVersion = $(i+1)
if($i == "(crate-uri") if($i == "(crate-uri")
crateName = $(i+1) crateName = $(i+1)
} }
gsub(/)/, "", crateVersion) gsub(/)/, "", crateVersion)
cargoLock = cargoLock "[[package]]\nname = " crateName "\nversion = " crateVersion "\n" cargoLock = cargoLock "[[package]]\nname = " crateName "\nversion = " crateVersion "\n"
next
} }
# Parse the crates created from packages using 'cargo package' # The xxxx-cargo-input variables have a set style
/package:rust/ { # TODO: Replace the last dash between the name and the version with a space!
pkg = $2 # This doesn't take into account swapping between "-" and "_" so we skip it.
split(pkg, name_version, "-") #( $2 ~ /-cargo-inputs/ ) {
crateVersion = name_version[length(name_version)] # sub(/-cargo-inputs/, "", $2)
crateName = substr(pkg, 6, (length(pkg) - length(crateVersion) - 6)) # gsub(/)/, "", $0)
split(crateVersion, versionDots, ".") # gsub(/rust-/, "", $0)
if(crateVersion && (crateVersion != "(git-version") && (length(versionDots) == 3) && crateName) { # #gensub(/([[:alpha:]])-([[:digit:]]+)/, "\\1 \\2", "g", $i)
cargoLock = cargoLock "[[package]]\nname = \"" crateName "\"\nversion = \"" crateVersion "\"\n" # print "[[package]]\nname = \"" $2 "\"\nversion = \"1.0.0\"\ndependencies = ["
} else { # for (i = 4; i <= NF; i++) {
untested++ # print "\"" $i "\","
#print("Unable to test " $0) # }
} # print "]"
next #}
}
# We make an attempt to create the crate name from the package name otherwise END { print cargoLock | cargoAudit }
/git-reference/ {
for(i=3; i <= NF; i++) {
if($i == "(version")
crateVersion = $(i+1)
if($i == "(name")
crateName = $(i+1)
if($i == "(git-file-name") {
crateName = $(i+1)
crateVersion = $(i+2)
}
}
gsub(/)/, "", crateVersion)
gsub(/)/, "", crateName)
sub(/rust-/, "", crateName)
# The crate version MUST be major.minor.patch
split(crateVersion, versionParts, ".")
if(crateVersion && (crateVersion != "(git-version") && (length(versionParts) == 3) && crateName) {
cargoLock = cargoLock "[[package]]\nname = " crateName "\nversion = " crateVersion "\n"
} else {
untested++
#print("Unable to test " $0)
}
next
}
# Note those which we were unable to parse
/define rust/ {
if($3 == "#f)")
next
print("Unable to parse " $0)
}
{ untested++ }
END { print("Number of crates untested: " untested); print cargoLock | cargoAudit }
+2 -4
View File
@@ -1226,12 +1226,10 @@ file name or an nfs-root containing ':/')."
(match spec (match spec
((? string?) ((? string?)
(if (string-match "^/dev/[a-zA-Z0-9]+$" spec) (if (string-prefix? "/dev/" spec)
;; Nothing to do, but wait until SPEC shows up. ;; Nothing to do, but wait until SPEC shows up.
(resolve device-exists? spec identity) (resolve device-exists? spec identity)
;; Do not resolve NFS / CIFS / tmpfs devices spec)) ; do not resolve NFS / CIFS / tmpfs devices
;; or bcachefs multi-device specifications.
spec))
((? file-system-label?) ((? file-system-label?)
;; Resolve the label. ;; Resolve the label.
(resolve find-partition-by-label (resolve find-partition-by-label
+3 -7
View File
@@ -445,14 +445,10 @@ load path must be adjusted as needed."
;; Behave like an init process: create a sub-process that calls ;; Behave like an init process: create a sub-process that calls
;; THUNK, and wait for child processes. Furthermore, forward ;; THUNK, and wait for child processes. Furthermore, forward
;; RELAYED-SIGNALS to the child process. ;; RELAYED-SIGNALS to the child process.
;; We presently use `safe-clone` here due to a bug in the interaction (match (primitive-fork)
;; between Guix and `primitive-fork` in Guile 3.0.11: (0
;; https://codeberg.org/guix/guix/issues/7690#issuecomment-12744123
(safe-clone
SIGCHLD
(lambda ()
(call-with-clean-exit thunk)) (call-with-clean-exit thunk))
(lambda (pid) (pid
(install-signal-handlers pid) (install-signal-handlers pid)
(let loop () (let loop ()
(match (wait-child-process) (match (wait-child-process)
+7 -37
View File
@@ -57,7 +57,7 @@
# Copyright © 2022 ( <paren@disroot.org> # Copyright © 2022 ( <paren@disroot.org>
# Copyright © 2022, 2026 jgart <jgart@dismail.de> # Copyright © 2022, 2026 jgart <jgart@dismail.de>
# Copyright © 2022-2023, 2025-2026 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org> # Copyright © 2022-2023, 2025-2026 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
# Copyright © 2023-2026 Zheng Junjie <z572@z572.online> # Copyright © 2023-2025 Zheng Junjie <z572@z572.online>
# Copyright © 2023 Ivana Drazovic <iv.dra@hotmail.com> # Copyright © 2023 Ivana Drazovic <iv.dra@hotmail.com>
# Copyright © 2023 Andy Tai <atai@atai.org> # Copyright © 2023 Andy Tai <atai@atai.org>
# Copyright © 2023 B. Wilson <elaexuotee@wilsonb.com> # Copyright © 2023 B. Wilson <elaexuotee@wilsonb.com>
@@ -502,7 +502,6 @@ GNU_SYSTEM_MODULES = \
%D%/packages/myrddin.scm \ %D%/packages/myrddin.scm \
%D%/packages/ncdu.scm \ %D%/packages/ncdu.scm \
%D%/packages/ncurses.scm \ %D%/packages/ncurses.scm \
%D%/packages/netbeans.scm \
%D%/packages/netpbm.scm \ %D%/packages/netpbm.scm \
%D%/packages/nettle.scm \ %D%/packages/nettle.scm \
%D%/packages/networking.scm \ %D%/packages/networking.scm \
@@ -611,7 +610,6 @@ GNU_SYSTEM_MODULES = \
%D%/packages/rocm-apps.scm \ %D%/packages/rocm-apps.scm \
%D%/packages/rocm-libs.scm \ %D%/packages/rocm-libs.scm \
%D%/packages/rocm-tools.scm \ %D%/packages/rocm-tools.scm \
%D%/packages/rocq.scm \
%D%/packages/rpc.scm \ %D%/packages/rpc.scm \
%D%/packages/rpm.scm \ %D%/packages/rpm.scm \
%D%/packages/rrdtool.scm \ %D%/packages/rrdtool.scm \
@@ -1094,7 +1092,6 @@ dist_patch_DATA = \
%D%/packages/patches/catdoc-CVE-2017-11110.patch \ %D%/packages/patches/catdoc-CVE-2017-11110.patch \
%D%/packages/patches/chez-irregex-import-cond-expand.patch \ %D%/packages/patches/chez-irregex-import-cond-expand.patch \
%D%/packages/patches/chez-scheme-bin-sh.patch \ %D%/packages/patches/chez-scheme-bin-sh.patch \
%D%/packages/patches/cianna-remove-error-for-missing-cuda.patch \
%D%/packages/patches/circos-remove-findbin.patch \ %D%/packages/patches/circos-remove-findbin.patch \
%D%/packages/patches/cdparanoia-fpic.patch \ %D%/packages/patches/cdparanoia-fpic.patch \
%D%/packages/patches/cdrkit-libre-cross-compile.patch \ %D%/packages/patches/cdrkit-libre-cross-compile.patch \
@@ -1133,10 +1130,9 @@ dist_patch_DATA = \
%D%/packages/patches/clucene-gcc-14.patch \ %D%/packages/patches/clucene-gcc-14.patch \
%D%/packages/patches/clucene-pkgconfig.patch \ %D%/packages/patches/clucene-pkgconfig.patch \
%D%/packages/patches/coda-use-system-libs.patch \ %D%/packages/patches/coda-use-system-libs.patch \
%D%/packages/patches/codex-acp-0.11.1-disable-code-mode.patch \ %D%/packages/patches/codex-acp-0.9.2-remove-patch-sections.patch \
%D%/packages/patches/codex-acp-0.11.1-remove-patch-sections.patch \ %D%/packages/patches/codex-acp-0.9.2-replace-result-flatten.patch \
%D%/packages/patches/codex-0.98.0-remove-patch-sections.patch \ %D%/packages/patches/codex-0.98.0-remove-patch-sections.patch \
%D%/packages/patches/rust-codex-0.117.0-remove-patch-sections.patch \
%D%/packages/patches/cogl-fix-double-free.patch \ %D%/packages/patches/cogl-fix-double-free.patch \
%D%/packages/patches/collada-dom-boost.patch \ %D%/packages/patches/collada-dom-boost.patch \
%D%/packages/patches/collectd-5.11.0-noinstallvar.patch \ %D%/packages/patches/collectd-5.11.0-noinstallvar.patch \
@@ -1180,7 +1176,6 @@ dist_patch_DATA = \
%D%/packages/patches/curlftpfs-fix-no_verify_hostname.patch \ %D%/packages/patches/curlftpfs-fix-no_verify_hostname.patch \
%D%/packages/patches/cursynth-wave-rand.patch \ %D%/packages/patches/cursynth-wave-rand.patch \
%D%/packages/patches/cvc5-reproducible-build.patch \ %D%/packages/patches/cvc5-reproducible-build.patch \
%D%/packages/patches/cvc5-symfpu-compatibility.patch \
%D%/packages/patches/cvs-CVE-2017-12836.patch \ %D%/packages/patches/cvs-CVE-2017-12836.patch \
%D%/packages/patches/cyrus-sasl-fix-time-h.patch \ %D%/packages/patches/cyrus-sasl-fix-time-h.patch \
%D%/packages/patches/d-feet-drop-unused-meson-argument.patch \ %D%/packages/patches/d-feet-drop-unused-meson-argument.patch \
@@ -1243,7 +1238,7 @@ dist_patch_DATA = \
%D%/packages/patches/python-treelib-remove-python2-compat.patch \ %D%/packages/patches/python-treelib-remove-python2-compat.patch \
%D%/packages/patches/elm-offline-package-registry.patch \ %D%/packages/patches/elm-offline-package-registry.patch \
%D%/packages/patches/elm-reactor-static-files.patch \ %D%/packages/patches/elm-reactor-static-files.patch \
%D%/packages/patches/emacs-agent-shell-fix-tests.patch \ %D%/packages/patches/emacs-buttercup-1.38-native-comp-spy-on-trampoline-scope.patch \
%D%/packages/patches/emacs-deferred-fix-number-of-arguments.patch \ %D%/packages/patches/emacs-deferred-fix-number-of-arguments.patch \
%D%/packages/patches/emacs-disable-jit-compilation.patch \ %D%/packages/patches/emacs-disable-jit-compilation.patch \
%D%/packages/patches/emacs-doc-toc-shell-commands.patch \ %D%/packages/patches/emacs-doc-toc-shell-commands.patch \
@@ -1471,6 +1466,7 @@ dist_patch_DATA = \
%D%/packages/patches/ghostscript-no-header-creationdate.patch \ %D%/packages/patches/ghostscript-no-header-creationdate.patch \
%D%/packages/patches/gimp-fix-metadata-editor.patch \ %D%/packages/patches/gimp-fix-metadata-editor.patch \
%D%/packages/patches/gimp-fix-tiff-load.patch \ %D%/packages/patches/gimp-fix-tiff-load.patch \
%D%/packages/patches/git-clar-path-max.patch \
%D%/packages/patches/git-filter-repo-generate-doc.patch \ %D%/packages/patches/git-filter-repo-generate-doc.patch \
%D%/packages/patches/gklib-suitesparse.patch \ %D%/packages/patches/gklib-suitesparse.patch \
%D%/packages/patches/glib-appinfo-watch.patch \ %D%/packages/patches/glib-appinfo-watch.patch \
@@ -1620,6 +1616,7 @@ dist_patch_DATA = \
%D%/packages/patches/hurd-refcounts-assert.patch \ %D%/packages/patches/hurd-refcounts-assert.patch \
%D%/packages/patches/hurd-rumpdisk-no-hd.patch \ %D%/packages/patches/hurd-rumpdisk-no-hd.patch \
%D%/packages/patches/hurd-startup.patch \ %D%/packages/patches/hurd-startup.patch \
%D%/packages/patches/hwloc-1-test-btrfs.patch \
%D%/packages/patches/hwloc-add-with-opencl.patch \ %D%/packages/patches/hwloc-add-with-opencl.patch \
%D%/packages/patches/i3lock-blur-fix-build-on-gcc-10.patch \ %D%/packages/patches/i3lock-blur-fix-build-on-gcc-10.patch \
%D%/packages/patches/i7z-gcc-10.patch \ %D%/packages/patches/i7z-gcc-10.patch \
@@ -1655,7 +1652,6 @@ dist_patch_DATA = \
%D%/packages/patches/id3lib-CVE-2007-4460.patch \ %D%/packages/patches/id3lib-CVE-2007-4460.patch \
%D%/packages/patches/id3lib-UTF16-writing-bug.patch \ %D%/packages/patches/id3lib-UTF16-writing-bug.patch \
%D%/packages/patches/ilmbase-fix-tests.patch \ %D%/packages/patches/ilmbase-fix-tests.patch \
%D%/packages/patches/inetutils-drop-test.patch \
%D%/packages/patches/inferno-fix-crash.patch \ %D%/packages/patches/inferno-fix-crash.patch \
%D%/packages/patches/iniparser-remove-fetchcontent-usage.patch \ %D%/packages/patches/iniparser-remove-fetchcontent-usage.patch \
%D%/packages/patches/inkscape-libxml2.patch \ %D%/packages/patches/inkscape-libxml2.patch \
@@ -1678,7 +1674,6 @@ dist_patch_DATA = \
%D%/packages/patches/java-commons-collections-fix-java8.patch \ %D%/packages/patches/java-commons-collections-fix-java8.patch \
%D%/packages/patches/java-guava-remove-annotation-deps.patch \ %D%/packages/patches/java-guava-remove-annotation-deps.patch \
%D%/packages/patches/java-jeromq-fix-tests.patch \ %D%/packages/patches/java-jeromq-fix-tests.patch \
%D%/packages/patches/java-jtidy-remove-xerces-dependency.patch \
%D%/packages/patches/java-openjfx-build-jdk_version.patch \ %D%/packages/patches/java-openjfx-build-jdk_version.patch \
%D%/packages/patches/java-powermock-fix-java-files.patch \ %D%/packages/patches/java-powermock-fix-java-files.patch \
%D%/packages/patches/java-simple-xml-fix-tests.patch \ %D%/packages/patches/java-simple-xml-fix-tests.patch \
@@ -1687,8 +1682,6 @@ dist_patch_DATA = \
%D%/packages/patches/java-xerces-build_dont_unzip.patch \ %D%/packages/patches/java-xerces-build_dont_unzip.patch \
%D%/packages/patches/java-xerces-xjavac_taskdef.patch \ %D%/packages/patches/java-xerces-xjavac_taskdef.patch \
%D%/packages/patches/jbr-17-xcursor-no-dynamic.patch \ %D%/packages/patches/jbr-17-xcursor-no-dynamic.patch \
%D%/packages/patches/jbr-25-wayland-drag-icon.patch \
%D%/packages/patches/jbr-25-wayland-intra-jvm-dnd.patch \
%D%/packages/patches/jdk-currency-time-bomb.patch \ %D%/packages/patches/jdk-currency-time-bomb.patch \
%D%/packages/patches/jdk-currency-time-bomb2.patch \ %D%/packages/patches/jdk-currency-time-bomb2.patch \
%D%/packages/patches/jfsutils-add-sysmacros.patch \ %D%/packages/patches/jfsutils-add-sysmacros.patch \
@@ -1705,6 +1698,7 @@ dist_patch_DATA = \
%D%/packages/patches/libcss-check-format.patch \ %D%/packages/patches/libcss-check-format.patch \
%D%/packages/patches/libeb-gcc-14.patch \ %D%/packages/patches/libeb-gcc-14.patch \
%D%/packages/patches/libextractor-tidy-support.patch \ %D%/packages/patches/libextractor-tidy-support.patch \
%D%/packages/patches/libfossil-skip-amalgamation.patch \
%D%/packages/patches/libftdi-fix-paths-when-FTDIPP-set.patch \ %D%/packages/patches/libftdi-fix-paths-when-FTDIPP-set.patch \
%D%/packages/patches/libgeotiff-fix-tests-with-proj-9.1.1.patch \ %D%/packages/patches/libgeotiff-fix-tests-with-proj-9.1.1.patch \
%D%/packages/patches/libgeotiff-fix-tests-with-proj-9.3.0.patch \ %D%/packages/patches/libgeotiff-fix-tests-with-proj-9.3.0.patch \
@@ -1980,11 +1974,6 @@ dist_patch_DATA = \
%D%/packages/patches/netcdf-date-time.patch \ %D%/packages/patches/netcdf-date-time.patch \
%D%/packages/patches/netdde-build-fix.patch \ %D%/packages/patches/netdde-build-fix.patch \
%D%/packages/patches/netdde-csum.patch \ %D%/packages/patches/netdde-csum.patch \
%D%/packages/patches/java-apache-xml-commons-resolver-1.2-netbeans.patch \
%D%/packages/patches/java-simplevalidation-1.14.1.patch \
%D%/packages/patches/netbeans-25-nativeexecution-paths.patch \
%D%/packages/patches/netbeans-25-terminal-no-login-shell.patch \
%D%/packages/patches/netbeans-25-source-only-build.patch \
%D%/packages/patches/netpbm-CVE-2017-2586.patch \ %D%/packages/patches/netpbm-CVE-2017-2586.patch \
%D%/packages/patches/netpbm-CVE-2017-2587.patch \ %D%/packages/patches/netpbm-CVE-2017-2587.patch \
%D%/packages/patches/netsurf-message-timestamp.patch \ %D%/packages/patches/netsurf-message-timestamp.patch \
@@ -2079,7 +2068,6 @@ dist_patch_DATA = \
%D%/packages/patches/open-zwave-hidapi.patch \ %D%/packages/patches/open-zwave-hidapi.patch \
%D%/packages/patches/opusfile-CVE-2022-47021.patch \ %D%/packages/patches/opusfile-CVE-2022-47021.patch \
%D%/packages/patches/orbit2-fix-array-allocation-32bit.patch \ %D%/packages/patches/orbit2-fix-array-allocation-32bit.patch \
%D%/packages/patches/orca-fix-gst-init-check-call.patch \
%D%/packages/patches/orpheus-cast-errors-and-includes.patch \ %D%/packages/patches/orpheus-cast-errors-and-includes.patch \
%D%/packages/patches/ots-no-include-missing-file.patch \ %D%/packages/patches/ots-no-include-missing-file.patch \
%D%/packages/patches/owncloud-disable-updatecheck.patch \ %D%/packages/patches/owncloud-disable-updatecheck.patch \
@@ -2182,8 +2170,6 @@ dist_patch_DATA = \
%D%/packages/patches/perl-www-curl-remove-symbol.patch \ %D%/packages/patches/perl-www-curl-remove-symbol.patch \
%D%/packages/patches/perl-xml-libxml-fix-function-prototypes.patch \ %D%/packages/patches/perl-xml-libxml-fix-function-prototypes.patch \
%D%/packages/patches/phoronix-test-suite-fsdg.patch \ %D%/packages/patches/phoronix-test-suite-fsdg.patch \
%D%/packages/patches/php-01-fix-expired-certificate.patch \
%D%/packages/patches/php-02-fix-sni-tests.patch \
%D%/packages/patches/picprog-non-intel-support.patch \ %D%/packages/patches/picprog-non-intel-support.patch \
%D%/packages/patches/pidgin-add-search-path.patch \ %D%/packages/patches/pidgin-add-search-path.patch \
%D%/packages/patches/pinball-system-ltdl.patch \ %D%/packages/patches/pinball-system-ltdl.patch \
@@ -2362,16 +2348,8 @@ dist_patch_DATA = \
%D%/packages/patches/renpy-fix-integer-slots.patch \ %D%/packages/patches/renpy-fix-integer-slots.patch \
%D%/packages/patches/reposurgeon-add-missing-docbook-files.patch \ %D%/packages/patches/reposurgeon-add-missing-docbook-files.patch \
%D%/packages/patches/rdkit-unbundle-external-dependencies.patch \ %D%/packages/patches/rdkit-unbundle-external-dependencies.patch \
%D%/packages/patches/r-biostrings-r4.6.0-compat.patch \
%D%/packages/patches/r-h5mread-0001-h5mread-1.3.2-Get-rid-of-non-API-calls-to-R.patch \
%D%/packages/patches/r-httpuv-1.6.6-unvendor-libuv.patch \ %D%/packages/patches/r-httpuv-1.6.6-unvendor-libuv.patch \
%D%/packages/patches/r-mscoreutils-0001-fix-non-API-call-to-R-SETLENGTH-by-using-lengthgets.patch \
%D%/packages/patches/r-rsamtools-r-4.6.0-compat.patch \
%D%/packages/patches/r-snpstats-0001-fixed-non-API-except-for-IS_S4_OBJECT.patch \
%D%/packages/patches/r-snpstats-0002-fixed-IS_S4_OBJECT.patch \
%D%/packages/patches/r-sapa-lapack.patch \ %D%/packages/patches/r-sapa-lapack.patch \
%D%/packages/patches/r-shortread-0001-ShortRead-1.69.3-Get-rid-of-non-API-calls-to-R.patch \
%D%/packages/patches/r-sparsearray-r-4.6.0-compat.patch \
%D%/packages/patches/ripperx-missing-file.patch \ %D%/packages/patches/ripperx-missing-file.patch \
%D%/packages/patches/rpcbind-CVE-2017-8779.patch \ %D%/packages/patches/rpcbind-CVE-2017-8779.patch \
%D%/packages/patches/rtosc-0.3.1-fix-invalid-comparison-operator.patch \ %D%/packages/patches/rtosc-0.3.1-fix-invalid-comparison-operator.patch \
@@ -2416,14 +2394,6 @@ dist_patch_DATA = \
%D%/packages/patches/rust-codex-0.98.0-test-shebangs.patch \ %D%/packages/patches/rust-codex-0.98.0-test-shebangs.patch \
%D%/packages/patches/rust-codex-0.98.0-test-timeout.patch \ %D%/packages/patches/rust-codex-0.98.0-test-timeout.patch \
%D%/packages/patches/rust-codex-0.98.0-windows-sandbox-protocol-version.patch \ %D%/packages/patches/rust-codex-0.98.0-windows-sandbox-protocol-version.patch \
%D%/packages/patches/rust-codex-0.117.0-core-remove-self-dep.patch \
%D%/packages/patches/rust-codex-0.120.0-core-remove-self-dep.patch \
%D%/packages/patches/rust-codex-0.120.0-connectors-cache-test-race.patch \
%D%/packages/patches/rust-codex-0.120.0-remove-libwebrtc.patch \
%D%/packages/patches/rust-codex-0.120.0-test-timeout.patch \
%D%/packages/patches/rust-codex-0.124.0-code-mode-stub-toolname.patch \
%D%/packages/patches/rust-codex-0.124.0-remove-patch-sections.patch \
%D%/packages/patches/rust-librocksdb-sys-unbundled-sources.patch \
%D%/packages/patches/rust-ring-0.17-ring-core.patch \ %D%/packages/patches/rust-ring-0.17-ring-core.patch \
%D%/packages/patches/rw-igraph-0.10.patch \ %D%/packages/patches/rw-igraph-0.10.patch \
%D%/packages/patches/rxvt-unicode-fix-cursor-position.patch \ %D%/packages/patches/rxvt-unicode-fix-cursor-position.patch \
+1 -1
View File
@@ -185,7 +185,7 @@ terminals.")
(native-inputs (native-inputs
(append (append
(list clisp (list clisp
python-cython-0 ;; See https://bugzilla.redhat.com/show_bug.cgi?id=2231865 python-cython
doxygen doxygen
gettext-minimal) gettext-minimal)
;; icedtea doesn't build reliably on all architectures. ;; icedtea doesn't build reliably on all architectures.
+51 -90
View File
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012-2026 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012-2025 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com> ;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2014, 2015, 2016, 2018, 2019, 2020 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014, 2015, 2016, 2018, 2019, 2020 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2014, 2015-2018, 2020-2023 Eric Bavier <bavier@posteo.net> ;;; Copyright © 2014, 2015-2018, 2020-2023 Eric Bavier <bavier@posteo.net>
@@ -1158,7 +1158,7 @@ on memory usage on GNU/Linux systems.")
(define-public htop (define-public htop
(package (package
(name "htop") (name "htop")
(version "3.5.1") (version "3.4.1")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -1166,7 +1166,7 @@ on memory usage on GNU/Linux systems.")
(url "https://github.com/htop-dev/htop") (url "https://github.com/htop-dev/htop")
(commit version))) (commit version)))
(sha256 (sha256
(base32 "187gyj081n6qsidll5wdri3jkr4m2i4m461z3xv03y342f5yj3lv")) (base32 "058y4a4mvx9m179dyr4wi8mlm6i4ybywshadaj4cvfn9fv0r0nkx"))
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
@@ -1309,8 +1309,7 @@ re-executing them as necessary.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"11n01vsd51r7qraaaylhhx04hq4s6vcq0896zkz0yp1wvqfbwmm1")) "11n01vsd51r7qraaaylhhx04hq4s6vcq0896zkz0yp1wvqfbwmm1"))))
(patches (search-patches "inetutils-drop-test.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list (list
@@ -3442,7 +3441,7 @@ modules and plugins that extend Ansible.")
(list ansible (list ansible
bash-minimal bash-minimal
encfs encfs
fuse fuse-2
util-linux ;; for umount util-linux ;; for umount
findutils findutils
git git
@@ -3751,68 +3750,59 @@ summarizes network bandwidth by process and remote host.")
(define-public munge (define-public munge
(package (package
(name "munge") (name "munge")
(version "0.5.18") (version "0.5.14")
(source (origin (source (origin
(method git-fetch) (method url-fetch)
(uri (git-reference (uri (string-append "https://github.com/dun/munge/releases/"
(url "https://github.com/dun/munge") "download/munge-" version "/munge-"
(commit (string-append "munge-" version)))) version ".tar.xz"))
(file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1b7gm680dlvmgvj9vxy7n0cqmnv1rl9n4563vasxdxx54f78j30s")) "0h06sghb4rqvv1ywyd6mzsmbcgh712v6ygrff0gzm440y4ca41k6"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
;; Don't insist on write access to /var. '(begin
#~(substitute* "src/etc/Makefile.am" ;; Don't insist on write access to /var.
(("\\$\\(MKDIR_P\\) .*(local|run)statedir.*" all) (substitute* "src/etc/Makefile.in"
(string-append ": " all)))))) (("\\$\\(INSTALL\\)(.*)localstatedir" _ middle)
(string-append "-$(INSTALL)" middle "localstatedir"))
(("\\$\\(MKDIR_P\\) .*(local|run)statedir.*")
""))
#t))))
(inputs (inputs
(list openssl libgcrypt)) (list openssl libgcrypt))
(native-inputs
(list autoconf
automake
libtool
procps)) ;for tests
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list #:configure-flags `(#:configure-flags
#~(list "--localstatedir=/var" (list "--localstatedir=/var"
"--disable-static" (string-append "--with-pkgconfigdir="
#$@(if (%current-target-system) (assoc-ref %outputs "out") "/lib/pkgconfig")
;; Assume yes on pipes when cross compiling. (string-append "--with-libgcrypt-prefix="
`("ac_cv_file__dev_spx=yes" (assoc-ref %build-inputs "libgcrypt"))
"x_ac_cv_check_fifo_recvfd=yes") ,@(if (%current-target-system)
'()) ;; Assume yes on pipes when cross compiling.
`("ac_cv_file__dev_spx=yes"
;; The '.pc' file is not installed when omitting this flag. "x_ac_cv_check_fifo_recvfd=yes")
(string-append "--with-pkgconfigdir=" '()))
#$output "/lib/pkgconfig")) #:phases
#:phases (modify-phases %standard-phases
#~(modify-phases %standard-phases ;; XXX Many test series fail. Some might be fixable, others do no-no
(add-before 'bootstrap 'pre-bootstrap ;; things like invoking sudo.
(lambda _ (add-after 'unpack 'skip-failing-tests
(for-each patch-shebang (find-files "build-aux")))) (lambda _
(add-after 'unpack 'skip-failing-tests (for-each (lambda (test)
(lambda _ (substitute* "t/Makefile.in"
;; Pass '--force' to 'munged'; without it, it fails with "Socket (((string-append test "\\.t ")) "")))
;; is inaccessible" due to the build directory not being (list "0100-munged-lock"
;; world-readable. "0010-basic"
(substitute* "tests/sharness.d/03-munged.sh" "0011-munged-cmdline"
(("--group-update-time=-1" all) "0012-munge-cmdline"
(string-append all " --force"))) "0013-unmunge-cmdline"
"0101-munged-security-socket"
;; The tests below invoke 'sudo' or have special expectations "0102-munged-security-keyfile"
;; about network interfaces. "0103-munged-security-logfile"
(for-each (lambda (test) "0110-munged-origin-addr"))
(substitute* "tests/Makefile.am" #t)))))
(((string-append test "\\.t "))
"")))
(list "0100-munged-lock"
"0101-munged-security-socket"
"0102-munged-security-keyfile"
"0103-munged-security-logfile"
"0110-munged-origin-addr")))))))
(home-page "https://dun.github.io/munge/") (home-page "https://dun.github.io/munge/")
(synopsis "Cluster computing authentication service") (synopsis "Cluster computing authentication service")
(description (description
@@ -7052,7 +7042,7 @@ network, which causes enabled computers to power on.")
(define-public witr (define-public witr
(package (package
(name "witr") (name "witr")
(version "0.3.1") (version "0.1.7")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -7061,7 +7051,7 @@ network, which causes enabled computers to power on.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "03v9n4mdvqm0knqjl4s64321i5clqpmlrlkkdb87glzb9p28sg00")))) (base32 "18xx01lxd5j019gy9jmpms3awv4snlr028w01bfkyfid6hlwxbq2"))))
(build-system go-build-system) (build-system go-build-system)
(arguments (arguments
(list (list
@@ -7179,35 +7169,6 @@ stored in an SQL database.")
(connects via USB OTG).") (connects via USB OTG).")
(license license:expat))) (license license:expat)))
(define-public yoctofetch
(package
(name "yoctofetch")
(version "2.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://codeberg.org/Phosphenius/yoctofetch.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0smkaydv74p2231gafibvqbwsy469w56hya8gz8wq0gw7m2l7zh3"))))
; Support for other platforms not available per upstream:
; https://codeberg.org/Phosphenius/yoctofetch#supported-platforms
(supported-systems '("x86_64-linux" "aarch64-linux"))
(build-system gnu-build-system)
(arguments
(list
#:tests? #f)) ; No tests available.
(home-page "https://codeberg.org/Phosphenius/yoctofetch")
(synopsis "Fast and low footprint system fetch tool for the Linux UAPI")
(description
"This package provides a system fetch tool, similar to
@command{neofetch}, @command{fastfetch}, etc. It is lightweight and
has a focus on performance. It can be used as a greeter by starting
it from @file{~/.bashrc} for example.")
(license license:agpl3+)))
(define-public zzz (define-public zzz
(package (package
(name "zzz") (name "zzz")
+1 -1
View File
@@ -458,7 +458,7 @@ precision.")
(inputs (inputs
;; TODO: Unbundle "libmicropython.a". ;; TODO: Unbundle "libmicropython.a".
(list ao (list ao
fltk fltk-1.3
glpk glpk
gmp gmp
gsl gsl
+6 -6
View File
@@ -238,12 +238,12 @@ contains the graphical user interface for synfig.")
(when tests? (when tests?
(invoke "./tests"))))))) (invoke "./tests")))))))
(native-inputs (native-inputs
(cons* gettext-minimal (list gettext-minimal
`(,glib "bin") `(,glib "bin")
perl nasm
pkg-config perl
python-wrapper pkg-config
(maybe-nasm))) python-wrapper))
(inputs (inputs
(list cairo (list cairo
curl curl
+1 -12
View File
@@ -2,7 +2,7 @@
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2013, 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2016, 2020, 2021, 2025, 2026 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2020, 2021, 2025 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 20172022 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 20172022 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Guy Fleury Iteriteka <hoonandon@gmail.com> ;;; Copyright © 2019 Guy Fleury Iteriteka <hoonandon@gmail.com>
;;; Copyright © 2019, 2022, 2024 Andy Tai <atai@atai.org> ;;; Copyright © 2019, 2022, 2024 Andy Tai <atai@atai.org>
@@ -43,7 +43,6 @@
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix utils)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages admin) #:use-module (gnu packages admin)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
@@ -249,16 +248,6 @@ complex. It supports all currently known x86 architectural extensions, and
has strong support for macros.") has strong support for macros.")
(license license:bsd-2))) (license license:bsd-2)))
(define* (maybe-nasm #:optional
(system (or (%current-target-system)
(%current-system))))
;; For some packages nasm is only needed when compiling to/for x86/x86_64.
(if (target-x86? system)
(list nasm)
'()))
(export maybe-nasm)
(define-public yasm (define-public yasm
(package (package
(name "yasm") (name "yasm")
+305 -1048
View File
File diff suppressed because it is too large Load Diff
+35 -38
View File
@@ -396,6 +396,7 @@ displays a histogram of the roundtrip time jitter.")
"webrtc-audio-processing-x86-no-sse.patch")))))) "webrtc-audio-processing-x86-no-sse.patch"))))))
#~%standard-phases))) #~%standard-phases)))
(native-inputs (list pkg-config)) (native-inputs (list pkg-config))
(propagated-inputs (list abseil-cpp))
(inputs (list abseil-cpp)) (inputs (list abseil-cpp))
(synopsis "WebRTC's Audio Processing Library") (synopsis "WebRTC's Audio Processing Library")
(description "WebRTC-Audio-Processing library based on Google's (description "WebRTC-Audio-Processing library based on Google's
@@ -546,15 +547,17 @@ synth (like DX7) or FM chip.")
(define-public libgme (define-public libgme
(package (package
(name "libgme") (name "libgme")
(version "0.6.3") (version "0.6.5")
(source (origin (source
(method url-fetch) (origin
(uri (string-append "https://bitbucket.org/mpyne/game-music-emu/" (method git-fetch)
"downloads/game-music-emu-" version (uri
".tar.xz")) (git-reference
(sha256 (url "https://github.com/libgme/game-music-emu")
(base32 (commit version)))
"07857vdkak306d9s5g6fhmjyxk7vijzjhkmqb15s7ihfxx9lx8xb")))) (file-name (git-file-name name version))
(sha256
(base32 "093pz3avnj6a230bqbwwzqlzcjxnxidfxipnn7zirwp3h396szff"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
'(#:tests? #f ;no check target '(#:tests? #f ;no check target
@@ -563,7 +566,7 @@ synth (like DX7) or FM chip.")
;; header file names in libgme.so, meaning that libgme retains a ;; header file names in libgme.so, meaning that libgme retains a
;; reference to GCC. Disable UBSAN to avoid that. ;; reference to GCC. Disable UBSAN to avoid that.
#:configure-flags '("-DENABLE_UBSAN=OFF"))) #:configure-flags '("-DENABLE_UBSAN=OFF")))
(home-page "https://bitbucket.org/mpyne/game-music-emu") (home-page "https://github.com/libgme/game-music-emu/wiki")
(synopsis "Video game music file playback library") (synopsis "Video game music file playback library")
(description (description
"Game-music-emu is a collection of video game music file emulators that "Game-music-emu is a collection of video game music file emulators that
@@ -1210,7 +1213,7 @@ PulseAudio clients, featuring:
(define-public ardour (define-public ardour
(package (package
(name "ardour") (name "ardour")
(version "9.2") (version "9.1")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@@ -1227,7 +1230,7 @@ PulseAudio clients, featuring:
namespace ARDOUR { const char* revision = \"" version "\" ; const char* date = \"\"; }"))))) namespace ARDOUR { const char* revision = \"" version "\" ; const char* date = \"\"; }")))))
(sha256 (sha256
(base32 (base32
"14s6cq3x7l7b682ah9k8cdr6plfirlgm882dc2nm51lxwl91zcfd")) "00bramm8dq0ihr376n7l9rg0mjzxmzw6lxvsbsdlrdsimfwsy16p"))
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(build-system waf-build-system) (build-system waf-build-system)
(arguments (arguments
@@ -6529,23 +6532,22 @@ on the ALSA software PCM plugin.")
(define-public snd (define-public snd
(package (package
(name "snd") (name "snd")
(version "26.3") (version "25.2")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append "ftp://ccrma-ftp.stanford.edu/pub/Lisp/"
(uri (string-append "https://ccrma.stanford.edu/software/snd/snd-" "snd-" version ".tar.gz"))
version ".tar.gz")) (sha256
(sha256 (base32
(base32 "0fgxqk0byxdj6059mb9d5qic2dqjabz49j0szsrn2y3c9nz6iyq4"))))
"1d573mjlrn9rhl9g0a3d1rkar34q60ln8mwlbibfalpn8lsz59a0"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list (list
#:tests? #f ; No tests. #:tests? #f ; no tests
#:out-of-source? #f ; Required by 'install-doc'. #:out-of-source? #f ; for the 'install-doc' phase
#:configure-flags #:configure-flags
#~(let #~(let ((docdir (string-append #$output "/share/doc/"
((docdir (string-append #$output "/share/doc/snd-" #$version))) #$name "-" #$version)))
(list "--with-alsa" (list "--with-alsa"
"--with-jack" "--with-jack"
"--with-gmp" "--with-gmp"
@@ -6553,20 +6555,18 @@ on the ALSA software PCM plugin.")
(string-append "--with-doc-dir=" docdir))) (string-append "--with-doc-dir=" docdir)))
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'install-s7-h (add-after 'install 'install-s7
(lambda _ (lambda _
(install-file "s7.h" (string-append #$output (install-file "s7.h" (string-append #$output "/include"))))
"/include"))))
(add-after 'install 'install-doc (add-after 'install 'install-doc
(lambda _ (lambda _
(let (let ((doc (string-append #$output "/share/doc/"
((docdir (string-append #$output "/share/doc/snd-" #$name "-" #$version)))
#$version)))
(for-each (for-each
(lambda (f) (lambda (f)
(install-file f docdir)) (install-file f doc))
(find-files "." "\\.html$")) (find-files "." "\\.html$"))
(copy-recursively "pix" (string-append docdir "/pix")))))))) (copy-recursively "pix" (string-append doc "/pix"))))))))
(native-inputs (native-inputs
(list pkg-config)) (list pkg-config))
(inputs (inputs
@@ -6585,16 +6585,13 @@ on the ALSA software PCM plugin.")
timidity++ timidity++
vorbis-tools vorbis-tools
wavpack)) wavpack))
(home-page "https://ccrma.stanford.edu/software/snd/snd/snd.html")
(synopsis "Sound editor") (synopsis "Sound editor")
(home-page "https://ccrma.stanford.edu/software/snd/")
(description (description
"Snd is a sound editor modelled loosely after Emacs. It can be "Snd is a sound editor modelled loosely after Emacs. It can be
customized and extended using either the s7 Scheme implementation (included in customized and extended using either the s7 Scheme implementation (included in
the Snd sources), Ruby, or Forth.") the Snd sources), Ruby, or Forth.")
(license (license (license:non-copyleft "file://COPYING"))))
;; INFO: pkgsrc classifies this as `esdl-license', a license not included
;; in OSI or FSF lists, despite being similar to ISC.
(license:non-copyleft "file://COPYING"))))
(define-public libspecbleach (define-public libspecbleach
(package (package
File diff suppressed because it is too large Load Diff
File diff suppressed because it is too large Load Diff
+9 -10
View File
@@ -14,7 +14,6 @@
;;; Copyright © 2022 Tomasz Jeneralczyk <tj@schwi.pl> ;;; Copyright © 2022 Tomasz Jeneralczyk <tj@schwi.pl>
;;; Copyright © 2024 Nicolas Graves <ngraves@ngraves.fr> ;;; Copyright © 2024 Nicolas Graves <ngraves@ngraves.fr>
;;; Copyright © 2025 Artyom V. Poptsov <poptsov.artyom@gmail.com> ;;; Copyright © 2025 Artyom V. Poptsov <poptsov.artyom@gmail.com>
;;; Copyright © 2026 Sughosha <sughosha@disroot.org>
;;; Copyright © 2023 Advanced Micro Devices, Inc. ;;; Copyright © 2023 Advanced Micro Devices, Inc.
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@@ -42,7 +41,6 @@
#:use-module (guix amd-gpu) #:use-module (guix amd-gpu)
#:use-module (guix search-paths) #:use-module (guix search-paths)
#:use-module (guix build-system cmake) #:use-module (guix build-system cmake)
#:use-module (guix build-system qt)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system python) #:use-module (guix build-system python)
#:use-module (guix build-system pyproject) #:use-module (guix build-system pyproject)
@@ -732,7 +730,7 @@ and options. With careful benchmarking, different hardware can be compared.")
(define-public kdiskmark (define-public kdiskmark
(package (package
(name "kdiskmark") (name "kdiskmark")
(version "3.2.0") (version "3.1.4")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@@ -741,13 +739,14 @@ and options. With careful benchmarking, different hardware can be compared.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"161yyy4fcy5bnzhbcd7p90nlcslcsfp7n3m3bz9bygch7bdjw46g")))) "1x8vd6swmf0i7f6m6wl2154n6plx8jkmcqfq6zxbdy255f1da74c"))))
(build-system qt-build-system) (build-system cmake-build-system)
(arguments (arguments
(list (list
#:qtbase qtbase
#:configure-flags #:configure-flags
#~(list (string-append "-DPOLKITQT-1_INSTALL_DIR=" #$output)) ;; Drop runtime dependency on KDE's KFAuth.
#~(list "-DPERFORM_PAGECACHE_CLEARING_USING_KF5AUTH=no"
(string-append "-DPOLKITQT-1_INSTALL_DIR=" #$output))
#:tests? #f ;no test suite #:tests? #f ;no test suite
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
@@ -760,10 +759,10 @@ and options. With careful benchmarking, different hardware can be compared.")
(lambda _ (lambda _
(rmdir "src/singleapplication") (rmdir "src/singleapplication")
(symlink #$(package-source (symlink #$(package-source
(this-package-input "single-application")) (this-package-input "single-application-qt5"))
"src/singleapplication")))))) "src/singleapplication"))))))
(native-inputs (list extra-cmake-modules qttools)) (native-inputs (list extra-cmake-modules qttools-5))
(inputs (list fio polkit-qt6 single-application qtwayland)) (inputs (list fio polkit-qt qtbase-5 single-application-qt5))
(home-page "https://github.com/JonMagon/KDiskMark") (home-page "https://github.com/JonMagon/KDiskMark")
(synopsis "Simple disk benchmark tool") (synopsis "Simple disk benchmark tool")
(description "KDiskMark is an HDD and SSD benchmark tool. KDiskMark (description "KDiskMark is an HDD and SSD benchmark tool. KDiskMark
File diff suppressed because it is too large Load Diff
+39 -10
View File
@@ -913,7 +913,7 @@ suite native in R.")
(define-public r-bpcells (define-public r-bpcells
(package (package
(name "r-bpcells") (name "r-bpcells")
(version "0.3.1") (version "0.3.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -922,7 +922,7 @@ suite native in R.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "0yqgcajq83g25mznwcngaw7pi6vcqxqdnynpgb95yci57k3wrp6j")) (base32 "12h1di45fg06nhsliii7v0h1z567pkpis1xm4ar1qr8ns1n8iljw"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(delete-file-recursively "r/src/vendor/highway")))) '(delete-file-recursively "r/src/vendor/highway"))))
@@ -931,15 +931,13 @@ suite native in R.")
(arguments (arguments
(list (list
#:phases #:phases
`(modify-phases %standard-phases '(modify-phases %standard-phases
(add-after 'unpack 'chdir (add-after 'unpack 'chdir
(lambda _ (chdir "r"))) (lambda _
,@(if (target-x86-32?) (substitute* "r/configure"
'((add-after 'chdir 'require-sse2 (("tools/hwy-test.cpp" m)
;; This avoids falling back to the scalar backend in (string-append m " $HWY_LIBS $HWY_CFLAGS")))
;; highway, which fails to build. (chdir "r"))))))
(lambda _ (setenv "CFLAGS" "-msse2"))))
'()))))
(propagated-inputs (propagated-inputs
(list r-dplyr (list r-dplyr
r-ggplot2 r-ggplot2
@@ -22351,6 +22349,37 @@ combinatorial configurations.\", G. Ehrlich - Journal of the ACM (JACM),
1973. (Algorithm 7.)") 1973. (Algorithm 7.)")
(license license:expat))) (license license:expat)))
(define-public fsom
(let ((commit "a6ef318fbd347c53189384aef7f670c0e6ce89a3"))
(package
(name "fsom")
(version (git-version "0.0.0" "1" commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ekg/fsom/")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0gw1lpvr812pywg9y546x0h1hhj261xwls41r6kqhddjlrcjc0pi"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; There are no tests to run.
#:phases
(modify-phases %standard-phases
(delete 'configure) ; There is no configure phase.
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out") "/bin")))
(install-file "fsom" bin)))))))
(native-inputs
(list gcc-6))
(home-page "https://github.com/ekg/fsom")
(synopsis "Manage SOM (Self-Organizing Maps) neural networks")
(description "A tiny C library for managing SOM (Self-Organizing Maps)
neural networks.")
(license license:gpl3))))
(define-public fastahack (define-public fastahack
(package (package
(name "fastahack") (name "fastahack")
+4 -4
View File
@@ -328,15 +328,15 @@ with the @uref{https://keepassxc.org, KeePassXC} password manager.")
(define noscript (define noscript
(package (package
(name "noscript") (name "noscript")
(version "13.6.18.1984") (version "13.2.2")
(source (origin (source (origin
(method url-fetch/zipbomb) (method url-fetch/zipbomb)
(uri (string-append (uri (string-append
"https://archive.torproject.org/tor-package-archive/torbrowser/noscript/noscript-" "https://noscript.net/download/releases/noscript-" version
version ".xpi")) ".xpi"))
(sha256 (sha256
(base32 (base32
"0assv8v89hhg302q81vvv7ln3q8k9m6rzjkbprv2j05ghb23kkvm")))) "0w2w0a76dk01bkh83mqwgs9ky02rjqk15z5sxg4a6mw0hpr81bpm"))))
(build-system copy-build-system) (build-system copy-build-system)
(properties '((addon-id . "{73a6fe31-595d-460b-a920-fcc0f8843232}"))) (properties '((addon-id . "{73a6fe31-595d-460b-a920-fcc0f8843232}")))
(arguments (arguments
+2 -2
View File
@@ -275,14 +275,14 @@ generate such a compilation database.")
(define-public bmake (define-public bmake
(package (package
(name "bmake") (name "bmake")
(version "20260406") (version "20260313")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
"http://www.crufty.net/ftp/pub/sjg/bmake-" version ".tar.gz")) "http://www.crufty.net/ftp/pub/sjg/bmake-" version ".tar.gz"))
(sha256 (sha256
(base32 "09nzd9v12n2pwxmf67056kzjnvxcpk5q2x1fs5qkrsk1ssh5yvpd")) (base32 "0xgryknmv625idw37rq89mpl5rymwdb15j5w8zxwy1gf8b6z7j3n"))
(patches (search-patches "bmake-run-check-separately.patch")))) (patches (search-patches "bmake-run-check-separately.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
+3 -3
View File
@@ -23,7 +23,7 @@
;;; Copyright © 2023, 2024 David Elsing <david.elsing@posteo.net> ;;; Copyright © 2023, 2024 David Elsing <david.elsing@posteo.net>
;;; Copyright @ 2022, Kitzman <kitzman@disroot.org> ;;; Copyright @ 2022, Kitzman <kitzman@disroot.org>
;;; Copyright @ 2025 Dariqq <dariqq@posteo.net> ;;; Copyright @ 2025 Dariqq <dariqq@posteo.net>
;;; Copyright © 2025, 2026 Ashish SHUKLA <ashish.is@lostca.se> ;;; Copyright © 2025 Ashish SHUKLA <ashish.is@lostca.se>
;;; Copyright © 2026 Cayetano Santos <csantosb@inventati.org> ;;; Copyright © 2026 Cayetano Santos <csantosb@inventati.org>
;;; Copyright © 2026 Sharlatan Hellseher <sharlatanus@gmail.com> ;;; Copyright © 2026 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; ;;;
@@ -1762,7 +1762,7 @@ string.h, but with a utf8* prefix instead of the str* prefix.")
(define-public simdutf (define-public simdutf
(package (package
(name "simdutf") (name "simdutf")
(version "9.0.0") (version "7.7.1")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -1771,7 +1771,7 @@ string.h, but with a utf8* prefix instead of the str* prefix.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "0f5ccvqj7pfa69m9y1kxp2v1lybx6x8i9pykdqfkr7dydqbhrhx6")))) (base32 "0kw4j4qqcfjaii667xa745pklj50m70nqq8cj5agj714acczbk7y"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (list #:configure-flags #~(list "-DBUILD_SHARED_LIBS=ON"))) (arguments (list #:configure-flags #~(list "-DBUILD_SHARED_LIBS=ON")))
(synopsis "SIMD Unicode validation and transcoding") (synopsis "SIMD Unicode validation and transcoding")
+25 -1
View File
@@ -3131,7 +3131,7 @@ time by mocking the datetime module.")
(define-public python-flaky (define-public python-flaky
(package (package
(name "python-flaky") (name "python-flaky")
(version "3.8.1") ; On bump, remove some skipped tests in python-cherrypy. (version "3.8.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "flaky" version)) (uri (pypi-uri "flaky" version))
@@ -3719,6 +3719,30 @@ system. The code under test requires no modification to work with pyfakefs.")
directories and files.") directories and files.")
(license license:expat))) (license license:expat)))
(define-public python-pytest-tornado5
(package
(name "python-pytest-tornado5")
(version "2.0.0")
(source (origin
(method url-fetch)
(uri (pypi-uri "pytest-tornado5" version))
(sha256
(base32
"0qb62jw2w0xr6y942yp0qxiy755bismjfpnxaxjjm05gy2pymr8d"))))
(build-system pyproject-build-system)
(arguments
;; Tests require pytest < 6
(list #:tests? #f))
(propagated-inputs (list python-pytest python-tornado))
(native-inputs (list python-setuptools python-wheel))
(home-page "https://github.com/vidartf/pytest-tornado")
(synopsis
"Fixtures and markers to simplify testing of Tornado applications")
(description
"This package provides a @code{py.test} plugin supplying fixtures and
markers to simplify testing of asynchronous tornado applications.")
(license license:asl2.0)))
(define-public guile-proba (define-public guile-proba
(package (package
(name "guile-proba") (name "guile-proba")
+1 -1
View File
@@ -580,7 +580,7 @@ stored with user-specified precision.")
python-sphinx)) python-sphinx))
(inputs (inputs
(list fftwf (list fftwf
`(,hwloc "lib") `(,hwloc-2 "lib")
libtirpc libtirpc
lmfit lmfit
muparser muparser
+14 -20
View File
@@ -400,7 +400,7 @@
;; run the Blink performance tests, just remove everything to save ~70MiB. ;; run the Blink performance tests, just remove everything to save ~70MiB.
'("third_party/blink/perf_tests")) '("third_party/blink/perf_tests"))
(define %chromium-version "147.0.7727.137") (define %chromium-version "147.0.7727.55")
(define %ungoogled-revision (string-append %chromium-version "-1")) (define %ungoogled-revision (string-append %chromium-version "-1"))
(define %debian-revision (string-append "debian/" %ungoogled-revision)) (define %debian-revision (string-append "debian/" %ungoogled-revision))
@@ -412,7 +412,7 @@
(file-name (git-file-name "ungoogled-chromium" %ungoogled-revision)) (file-name (git-file-name "ungoogled-chromium" %ungoogled-revision))
(sha256 (sha256
(base32 (base32
"1ha84j3zckdv2l8dpicqhmr6a8mq3bqwalw0bmgamvlmns9i7nrj")))) "0l6v4wf16067igawjlh90f3d287mkw0cq4j5lvrxxy17y1skynzc"))))
(define %debian-origin (define %debian-origin
(origin (origin
@@ -425,7 +425,7 @@
((_ version) version)))) ((_ version) version))))
(sha256 (sha256
(base32 (base32
"04lqbclkvn9nsksgjpjilh78a8y17mwwq4pmhr6h8gvpp2y3bhhc")))) "0gqarll08i7rcs1amapciv263xvzglc8p44ikavq3xd12yyvcd98"))))
(define (origin-file origin file) (define (origin-file origin file)
(computed-file (computed-file
@@ -570,7 +570,7 @@
%chromium-version "-lite.tar.xz")) %chromium-version "-lite.tar.xz"))
(sha256 (sha256
(base32 (base32
"1m22whg5n9lw9gqhalm95jwfm45lqp4a7cs3mn3f4n8w0rvr0r5j")) "1salvlw5sykx3zmsbp7cgmf7y8yy6jlgb4b4zswzsbjrprk4jnap"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (force ungoogled-chromium-snippet)))) (snippet (force ungoogled-chromium-snippet))))
(build-system gnu-build-system) (build-system gnu-build-system)
@@ -596,7 +596,6 @@
"use_custom_libcxx=false" ; support for this is deprecated and to be removed. "use_custom_libcxx=false" ; support for this is deprecated and to be removed.
"optimize_webui=false" "optimize_webui=false"
"webnn_use_tflite=false" "webnn_use_tflite=false"
"build_tflite_with_xnnpack=false"
"safe_browsing_use_unrar=false" "safe_browsing_use_unrar=false"
"chrome_pgo_phase=0" "chrome_pgo_phase=0"
"use_sysroot=false" "use_sysroot=false"
@@ -689,7 +688,7 @@
"use_gnome_keyring=false" ;deprecated by libsecret "use_gnome_keyring=false" ;deprecated by libsecret
"use_pulseaudio=true" "use_pulseaudio=true"
"link_pulseaudio=true" "link_pulseaudio=true"
"icu_use_data_file=true" "icu_use_data_file=false"
;; VA-API acceleration is currently only supported on x86_64-linux. ;; VA-API acceleration is currently only supported on x86_64-linux.
#$@(if (string-prefix? "x86_64" (or (%current-target-system) #$@(if (string-prefix? "x86_64" (or (%current-target-system)
@@ -697,13 +696,6 @@
'("use_vaapi=true") '("use_vaapi=true")
'()) '())
#$@(if (string-prefix? "aarch64" (or (%current-target-system)
(%current-system)))
'("use_v4l2_codec=true"
"use_vaapi=false"
"use_av1_hw_decoder=true")
'())
;; Do not artificially restrict formats supported by system ffmpeg. ;; Do not artificially restrict formats supported by system ffmpeg.
"proprietary_codecs=true" "proprietary_codecs=true"
"ffmpeg_branding=\"Chrome\"" "ffmpeg_branding=\"Chrome\""
@@ -777,7 +769,12 @@
(string-append libclang "clang_base_path")) (string-append libclang "clang_base_path"))
(("(_rustfmt_path = \")\\$\\{rust_bindgen_root\\}" _ rustfmt) (("(_rustfmt_path = \")\\$\\{rust_bindgen_root\\}" _ rustfmt)
(string-append rustfmt "${rust_sysroot_absolute}")))))) (string-append rustfmt "${rust_sysroot_absolute}"))))))
(add-after 'patch-stuff 'add-absolute-references (add-after 'patch-stuff 'include-pthreadpool
;; FIXME: Somehow the build system cannot locate this header.
(lambda _
(copy-file "third_party/pthreadpool/src/include/pthreadpool.h"
"pthreadpool.h")))
(add-after 'include-pthreadpool 'add-absolute-references
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((cups-config (search-input-file inputs "/bin/cups-config")) (let ((cups-config (search-input-file inputs "/bin/cups-config"))
(libnssckbi.so (search-input-file inputs (libnssckbi.so (search-input-file inputs
@@ -895,7 +892,6 @@
"resources.pak" "resources.pak"
"v8_context_snapshot.bin" "v8_context_snapshot.bin"
"chrome_crashpad_handler" "chrome_crashpad_handler"
"icudtl.dat"
;; Swiftshader ICD. ;; Swiftshader ICD.
"libvk_swiftshader.so" "libvk_swiftshader.so"
@@ -918,11 +914,9 @@
(substitute* '("chrome/app/resources/manpage.1.in" (substitute* '("chrome/app/resources/manpage.1.in"
"chrome/installer/linux/common/desktop.template") "chrome/installer/linux/common/desktop.template")
(("@@MENUNAME") "Chromium") (("@@MENUNAME@@") "Chromium")
(("@@PACKAGE") "chromium") (("@@PACKAGE@@") "chromium")
(("/usr/bin/@@usr_bin_symlink_name") exe) (("/usr/bin/@@USR_BIN_SYMLINK_NAME@@") exe))
(("@@uri_scheme") "x-scheme-handler/chromium")
(("@@extra_desktop_entries") ""))
(mkdir-p man) (mkdir-p man)
(copy-file "chrome/app/resources/manpage.1.in" (copy-file "chrome/app/resources/manpage.1.in"
+128 -633
View File
@@ -18,10 +18,10 @@
;;; This module is separate from (gnu packages rust-apps) to avoid a ;;; This module is separate from (gnu packages rust-apps) to avoid a
;;; circular module dependency: (gnu packages rust-sources), which ;;; circular module dependency: (gnu packages rust-sources), which
;;; defines rust-codex-0.124.0, transitively loads (gnu packages ;;; defines rust-codex-0.98.0, transitively loads (gnu packages
;;; rust-apps) through its #:use-module chain. If the codex package ;;; rust-apps) through its #:use-module chain. If the codex package
;;; lived in rust-apps.scm, loading rust-sources would trigger loading ;;; lived in rust-apps.scm, loading rust-sources would trigger loading
;;; rust-apps before rust-codex-0.124.0 is defined, causing an unbound ;;; rust-apps before rust-codex-0.98.0 is defined, causing an unbound
;;; variable error. ;;; variable error.
(define-module (gnu packages codex) (define-module (gnu packages codex)
@@ -36,46 +36,33 @@
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages cmake) #:use-module (gnu packages cmake)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages linux)
#:use-module (gnu packages libunwind) #:use-module (gnu packages libunwind)
#:use-module (gnu packages llvm) #:use-module (gnu packages llvm)
#:use-module (gnu packages lsof)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
#:use-module (gnu packages python) #:use-module (gnu packages python)
#:use-module (gnu packages rust-sources) #:use-module (gnu packages rust-sources)
#:use-module (gnu packages sqlite) #:use-module (gnu packages sqlite)
#:use-module (gnu packages textutils)
#:use-module (gnu packages nss)
#:use-module (gnu packages tls) #:use-module (gnu packages tls)
#:use-module (gnu packages version-control) #:use-module (gnu packages version-control))
#:use-module (gnu packages virtualization))
(define-public codex (define-public codex
(package (package
(name "codex") (name "codex")
(version (package-version rust-codex-0.124.0)) (version (package-version rust-codex-0.98.0))
(source (source
(origin (origin
(inherit (package-source rust-codex-0.124.0)) (inherit (package-source rust-codex-0.98.0))
(patches (search-patches (patches (search-patches
"codex-acp-0.11.1-disable-code-mode.patch" "codex-0.98.0-remove-patch-sections.patch"
"rust-codex-0.124.0-code-mode-stub-toolname.patch"
"rust-codex-0.124.0-remove-patch-sections.patch"
"rust-codex-0.120.0-remove-libwebrtc.patch"
"rust-codex-0.98.0-test-shebangs.patch" "rust-codex-0.98.0-test-shebangs.patch"
"rust-codex-0.120.0-test-timeout.patch")))) "rust-codex-0.98.0-test-timeout.patch"))))
(build-system cargo-build-system) (build-system cargo-build-system)
(arguments (arguments
(list (list
#:install-source? #f #:install-source? #f
;; exec-server is library-only in 0.124 (no [[bin]] in #:cargo-install-paths '(list "cli" "exec" "exec-server"
;; exec-server/Cargo.toml); cargo install --path exec-server fails "linux-sandbox" "mcp-server" "network-proxy"
;; with "no packages found with binaries or examples". Drop it
;; from the install paths -- the library is consumed via the
;; workspace by other binaries here, not installed standalone.
#:cargo-install-paths '(list "cli" "exec"
"linux-sandbox" "mcp-server"
"app-server" "tui") "app-server" "tui")
;; schema_fixtures_match_generated (upstream fixture is stale: ;; schema_fixtures_match_generated (upstream fixture is stale:
;; FileChange::Update in codex-protocol gained old_content, ;; FileChange::Update in codex-protocol gained old_content,
@@ -84,55 +71,72 @@
#:cargo-test-flags '(list "--workspace" #:cargo-test-flags '(list "--workspace"
"--exclude" "codex-app-server-protocol" "--exclude" "codex-app-server-protocol"
"--" "--"
;;; BEGIN Landlock returns NotEnforced ;; These tests exercise sandbox denial and
;;; in the build container; the sandbox ;; escalation, which requires Landlock to
;;; binary panics instead of cleanly ;; cleanly deny filesystem access. Inside the
;;; denying filesystem access. ;; build container Landlock returns NotEnforced
;; Sandbox denial and escalation tests. ;; and the sandbox binary panics instead.
;; Disabling Landlock would not help either,
;; since these tests need a working sandbox to
;; have anything to deny and escalate.
"--skip" "sandbox_denied_shell_returns_original_output" "--skip" "sandbox_denied_shell_returns_original_output"
;; Sandbox denial and escalation tests.
"--skip" "shell_escalated_permissions_rejected_then_ok" "--skip" "shell_escalated_permissions_rejected_then_ok"
;; Sandbox denial and escalation tests.
"--skip" "unified_exec_runs_under_sandbox" "--skip" "unified_exec_runs_under_sandbox"
;; codex-exec: spawn_command_under_linux_sandbox ;; These tests (in codex-exec) directly call
;; panics with LandlockRestrict (exit 101). ;; spawn_command_under_linux_sandbox to verify
;; that python and bash work correctly inside
;; the Landlock sandbox. The sandbox binary
;; (codex-exec) panics with LandlockRestrict
;; (exit code 101) before the inner command
;; even starts.
"--skip" "python_getpwuid_works_under_sandbox" "--skip" "python_getpwuid_works_under_sandbox"
;; Same as above.
"--skip" "python_multiprocessing_lock_works_under_sandbox" "--skip" "python_multiprocessing_lock_works_under_sandbox"
;; Same as above.
"--skip" "sandbox_distinguishes_command_and_policy_cwds" "--skip" "sandbox_distinguishes_command_and_policy_cwds"
;; linux-sandbox: process_exec_tool_call ;; These linux-sandbox tests directly invoke
;; invokes Landlock; same panic. ;; the Landlock sandbox via
;; process_exec_tool_call; same root cause.
"--skip" "test_writable_root" "--skip" "test_writable_root"
;; Same as above.
"--skip" "test_timeout" "--skip" "test_timeout"
;; Same as above.
"--skip" "test_root_read" "--skip" "test_root_read"
;; Same as above.
"--skip" "test_dev_null_write" "--skip" "test_dev_null_write"
;; Same as above.
"--skip" "test_no_new_privs_is_enabled" "--skip" "test_no_new_privs_is_enabled"
;; One scenario runs through Landlock ;; This test iterates many approval scenarios;
;; which panics; cargo --skip cannot ;; one of them
;; target individual scenarios. ;; (danger_full_access_on_request_allows_network)
;; runs a command through the Landlock sandbox
;; binary, which panics with LandlockRestrict
;; inside the build container. Cargo --skip
;; cannot target individual scenarios, so we
;; skip the entire matrix.
"--skip" "approval_matrix_covers_all_modes" "--skip" "approval_matrix_covers_all_modes"
;; Landlock panic triggers escalation-retry ;; This test verifies session-level patch
;; which interferes with the approval cache. ;; approval caching: approve once, skip
;; future prompts for the same file. When
;; Landlock is unavailable (as in the Guix
;; build container) the sandbox binary panics,
;; triggering the escalation-retry path, which
;; interferes with the approval cache and
;; causes a spurious re-prompt on the second
;; patch.
"--skip" "approving_apply_patch_for_session_skips_future_prompts_for_same_file" "--skip" "approving_apply_patch_for_session_skips_future_prompts_for_same_file"
;; These tests expect to interrupt a ;; These tests expect to interrupt a
;; long-running 'sleep 60' and receive ;; long-running 'sleep 60' and receive
;; TurnAborted. What happens: ;; TurnAborted. Default test config is
;; OnRequest + ReadOnly. What happens:
;; ;;
;; 1. ReadOnly wraps the command with ;; 1. ReadOnly wraps the command with
;; codex-linux-sandbox (Landlock-based). ;; codex-linux-sandbox (Landlock-based).
;; 2. Landlock is unavailable, so the ;; 2. Landlock is unavailable in the Guix
;; sandbox binary exits instantly. ;; build container, so the sandbox
;; binary exits instantly (~1 ms).
;; 3. Orchestrator gets SandboxErr::Denied. ;; 3. Orchestrator gets SandboxErr::Denied.
;; wants_no_sandbox_approval(OnRequest) ;; wants_no_sandbox_approval(OnRequest)
;; returns false, so no escalation -- ;; returns false (sandboxing.rs:222),
;; denial returned directly. ;; so no escalation -- denial returned
;; directly.
;; 4. ToolEmitter::finish sends the error ;; 4. ToolEmitter::finish sends the error
;; to the mock model. ;; to the mock model as
;; function_call_output.
;; 5. Second mock SSE response fires, ;; 5. Second mock SSE response fires,
;; turn finishes with TurnComplete. ;; turn finishes with TurnComplete.
;; 6. Op::Interrupt arrives 100 ms later, ;; 6. Op::Interrupt arrives 100 ms later,
@@ -146,370 +150,74 @@
;; has only one mock response (so the turn ;; has only one mock response (so the turn
;; cannot complete first). ;; cannot complete first).
"--skip" "interrupt_persists_turn_aborted_marker_in_next_request" "--skip" "interrupt_persists_turn_aborted_marker_in_next_request"
;; Same causal chain as above.
"--skip" "interrupt_tool_records_history_entries" "--skip" "interrupt_tool_records_history_entries"
;; WorkspaceWrite sandbox policy wraps ;; Upstream bug: test hardcodes "0.0.0" in the
;; commands with codex-linux-sandbox; ;; expected user-agent string but the workspace
;; Landlock panics, command never runs, ;; version is "0.98.0".
;; exit_code is None instead of Some(0). "--skip" "get_user_agent_returns_current_codex_user_agent"
"--skip" "request_permissions_grants_apply_to_later_exec_command_calls" ;; Same upstream bug: mcp-server tests
;; Same root cause. ;; check the initialize response which
"--skip" "request_permissions_grants_apply_to_later_shell_command_calls" ;; includes "version": "0.0.0" but the
;; Same root cause. ;; server returns "0.98.0".
"--skip" "partial_request_permissions_grants_do_not_preapprove_new_permissions"
;;; END Landlock
;;; BEGIN mcp_process.rs initialize
;;; assertion expects "version":"0.0.0"
;;; but the server returns "0.120.0".
"--skip" "test_codex_tool_passes_base_instructions" "--skip" "test_codex_tool_passes_base_instructions"
"--skip" "test_shell_command_approval_triggers_elicitation" "--skip" "test_shell_command_approval_triggers_elicitation"
"--skip" "test_patch_approval_triggers_elicitation" "--skip" "test_patch_approval_triggers_elicitation"
;;; END version mismatch ;; These codex-exec-server tests need
;;; BEGIN Test isolation bug: ;; "dotslash", a Meta tool that lazily
;;; unique_temp_dir() in ;; downloads pre-built binaries from a
;;; state/src/runtime.rs names dirs ;; JSON manifest. The test helper
;;; using nanosecond timestamps, so ;; create_transport runs
;;; parallel tests can collide. The ;; `dotslash -- fetch <path>` to obtain a
;;; SQLite migration runs CREATE TABLE ;; custom bash binary described in
;;; threads (without IF NOT EXISTS), ;; exec-server/tests/suite/bash.
;;; so the second init panics with ;; dotslash is not available in the build
;;; "table threads already exists". ;; container.
"--skip" "list_tools"
"--skip" "accept_elicitation_for_prompt_rule"
;;; Test isolation bug: each test in
;;; state/src/runtime.rs calls
;;; unique_temp_dir() to get its own
;;; temporary directory (and thus its
;;; own SQLite database). That function
;;; names directories using the current
;;; nanosecond timestamp, so when tests
;;; run in parallel several can receive
;;; the same name and open the same
;;; database. The initial SQLite
;;; migration runs CREATE TABLE threads
;;; (without IF NOT EXISTS), so any init
;;; after the first panics with "table
;;; threads already exists". Any of
;;; these tests
;;; can be the victim.
"--skip" "init_removes_legacy_state_db_files" "--skip" "init_removes_legacy_state_db_files"
"--skip" "upsert_and_get_thread_memory" "--skip" "upsert_and_get_thread_memory"
"--skip" "get_last_n_thread_memories_for_cwd_matches_exactly" "--skip" "get_last_n_thread_memories_for_cwd_matches_exactly"
"--skip" "upsert_thread_memory_errors_for_unknown_thread" "--skip" "upsert_thread_memory_errors_for_unknown_thread"
"--skip" "get_last_n_thread_memories_for_cwd_zero_returns_empty" "--skip" "get_last_n_thread_memories_for_cwd_zero_returns_empty"
"--skip" "get_last_n_thread_memories_for_cwd_does_not_prefix_match" "--skip" "get_last_n_thread_memories_for_cwd_does_not_prefix_match"
"--skip" "deleting_thread_cascades_thread_memory" "--skip" "deleting_thread_cascades_thread_memory")
;;; END SQLite test isolation
;; The test spawns 'sh' after
;; env_clear() with an empty env map;
;; glibc execvp uses confstr(_CS_PATH)
;; ("/bin:/usr/bin") when PATH is
;; unset, but /bin/sh does not exist
;; in the build container.
"--skip" "cancellation_expiration_keeps_process_alive_until_terminated"
;; Proxy baseline_policy returns 403
;; "not_allowed_local" for example.com;
;; test expects 200.
"--skip" "managed_network_proxy_decider_survives_full_access_start"
;;; BEGIN bash_snapshot_script() uses
;;; "compgen -e" to list exports but
;;; bash-minimal lacks programmable
;;; completion; export section is empty.
;; stdout.contains("VALID_NAME") fails.
"--skip" "bash_snapshot_filters_invalid_exports"
;; stdout.contains("MULTILINE_CERT") fails.
"--skip" "bash_snapshot_preserves_multiline_exports"
;; snapshot.contains("PATH") fails.
"--skip" "linux_bash_snapshot_includes_sections"
;;; END compgen
;; substitute* patches PAGER to store
;; path of cat; test expects bare "cat".
"--skip" "unified_exec_env_injects_defaults"
;;; BEGIN V8 disabled (codex-code-mode
;;; default-features = false).
"--skip" "suite::code_mode::"
"--skip" "suite::js_repl::"
"--skip" "suite::view_image::js_repl_"
;;; END V8 disabled
;;; BEGIN same compgen root cause:
;;; assert_posix_snapshot_sections
;;; asserts snapshot.contains("PATH").
"--skip" "linux_shell_command_uses_shell_snapshot"
"--skip" "linux_unified_exec_uses_shell_snapshot"
"--skip" "shell_command_snapshot_still_intercepts_apply_patch"
;;; END compgen / shell snapshot
;;; BEGIN These sandbox tests set
;;; exclude_slash_tmp: true which makes
;;; bwrap exclude /tmp from its mount
;;; namespace. Since Guix builds under
;;; /tmp, the codex-linux-sandbox binary
;;; becomes invisible to bwrap even though
;;; the test adds the helper dir as a
;;; filesystem carve-out -- the parent /tmp
;;; bind-mount is absent so the carve-out
;;; has nothing to carve out of.
"--skip" "sandbox_reenables_writable_subpaths_under_unreadable_parents"
"--skip" "managed_proxy_mode_routes_through_bridge_and_blocks_direct_egress"
;;; END exclude_slash_tmp
;; Expects 3 TerminalInteraction events
;; across timed poll windows; under CPU
;; contention events merge into 2.
"--skip" "unified_exec_terminal_interaction_captures_delayed_output"
;;; BEGIN assert_parallel_duration
;;; requires < 1600 ms for parallel ops.
;; Two 300 ms test_sync_tool calls.
"--skip" "read_file_tools_run_in_parallel"
;; Two "sleep 0.25" shell commands.
"--skip" "shell_tools_run_in_parallel"
;; One test_sync_tool + one shell sleep.
"--skip" "mixed_parallel_tools_run_in_parallel"
;;; END assert_parallel_duration
;; Asserts elapsed >= 4500 ms and
;; < 5800 ms for a 5 s timeout; under
;; contention elapsed drifts past 5800.
"--skip" "remote_models_request_times_out_after_5s"
;; Queued inter-agent mail must be
;; injected between the reasoning/
;; commentary item and the gate release;
;; under contention the gate fires before
;; the mail is processed, so the snapshot
;; shows the stale function_call instead
;; of the expected mail message.
"--skip" "queued_inter_agent_mail_triggers_follow_up_after_commentary_message_item"
;; Same root cause: snapshot mismatch at
;; pending_input.rs assert_two_responses_
;; input_snapshot; expects mail at position
;; 04 but gets function_call/shell instead.
"--skip" "queued_inter_agent_mail_triggers_follow_up_after_reasoning_item"
;;; BEGIN DNS for hostnames like
;;; example.com fails in the build
;;; sandbox. host_resolves_to_non_
;;; public_ip() in runtime.rs treats
;;; failed DNS as non-public and
;;; returns NotAllowedLocal, so tests
;;; expecting Allowed or Decider get
;;; Deny/BaselinePolicy instead.
"--skip" "host_blocked_requires_allowlist_match"
"--skip" "add_allowed_domain_removes_matching_deny_entry"
"--skip" "host_blocked_subdomain_wildcards_exclude_apex"
"--skip" "host_blocked_global_wildcard_allowlist_allows_public_hosts_except_denylist"
"--skip" "evaluate_host_policy_emits_domain_event_for_decider_ask"
"--skip" "evaluate_host_policy_emits_domain_event_for_decider_allow_override"
"--skip" "http_connect_accept_blocks_in_limited_mode"
"--skip" "http_connect_accept_allows_allowlisted_host_in_full_mode"
"--skip" "mitm_policy_blocks_disallowed_method_and_records_telemetry"
;;; END DNS failure / NotAllowedLocal
;;; BEGIN Flaky: wiremock mock expects
;;; 1 POST to /codex/safety/arc but
;;; receives 0. Passes in some builds,
;;; fails in others with identical code
;;; and env. The identical custom_
;;; variant always passes; only the
;;; CODEX_APPS_MCP_SERVER_NAME variant
;;; flakes, suggesting a timing race
;;; in the async POST under contention.
"--skip" "approve_mode_blocks_when_arc_returns_interrupt_for_model"
"--skip" "approve_mode_blocks_when_arc_returns_interrupt_without_annotations"
;;; END ARC monitor flake
;;; BEGIN nss-certs sets SSL_CERT_FILE
;;; which makes build_reqwest_client load
;;; 171 CA certs via add_root_certificate.
;;; This changes the reqwest TLS backend
;;; configuration; the ARC safety POST to
;;; the localhost mock server never arrives
;;; (wiremock expects 1 request, gets 0).
"--skip" "approve_mode_blocks_when_arc_returns_interrupt_for_model"
"--skip" "approve_mode_blocks_when_arc_returns_interrupt_without_annotations"
;;; END nss-certs / ARC monitor
;; Upstream bug: JsonRpcConnection has
;; no websocket keepalive or read timeout.
;; When the exec-server is killed, the
;; client's reader task blocks on
;; websocket_reader.next() forever because
;; TCP doesn't detect the dead peer without
;; a write or keepalive probe. Previously
;; masked because empty env made "sleep 10"
;; fail instantly; with PATH the process
;; lives long enough to hit the deadlock.
"--skip" "remote_exec_process_reports_transport_disconnect"
;; 500 ms timeout on MCP list response
;; (mcp_server_status.rs timeout at
;; Duration::from_millis(500)). With
;; nss-certs TLS now works, so the
;; startup plugin sync HTTP requests
;; (chatgpt.com, api.github.com) wait
;; for TCP timeout instead of failing
;; instantly at TLS, eating the budget.
"--skip" "mcp_server_status_list_tools_and_auth_only_skips_slow_inventory_calls"
;;; BEGIN Stack overflow in 'current_thread'
;;; tokio runtime. The sibling tests in
;;; tracing_tests.rs use the local helper
;;; run_current_thread_test_with_stack
;;; (4 MiB) but this one uses bare
;;; #[tokio::test] on the 2 MiB default
;;; test-thread stack, and TurnStart's
;;; future graph exceeds it. With
;;; RUST_MIN_STACK raised the overflow is
;;; gone but the test then deterministically
;;; times out waiting for a span tagged
;;; codex.op = "user_input" on the remote
;;; trace that upstream never emits on that
;;; trace in our environment.
"--skip" "turn_start_jsonrpc_span_parents_core_turn_spans"
;;; END tracing test stack/timeout
;;; BEGIN The upstream loader resolves the
;;; MCP OAuth credentials store mode by
;;; calling
;;; resolve_mcp_oauth_credentials_store_mode
;;; with env!("CARGO_PKG_VERSION") -- which
;;; in the released 0.124.0 tarball is
;;; "0.124.0". These fixture tests
;;; construct the expected Config by
;;; passing the LOCAL_DEV_BUILD_VERSION
;;; constant ("0.0.0") to the same
;;; resolver, and the resolver only returns
;;; File for "0.0.0" -- Auto otherwise.
;;; Upstream CI builds from a checkout
;;; still carrying version = "0.0.0" so the
;;; tests pass there; they cannot pass
;;; against a released tag.
"--skip" "test_precedence_fixture_with_gpt3_profile"
"--skip" "test_precedence_fixture_with_gpt5_profile"
"--skip" "test_precedence_fixture_with_o3_profile"
"--skip" "test_precedence_fixture_with_zdr_profile"
;;; END LOCAL_DEV_BUILD_VERSION fixture mismatch
;;; BEGIN Verifies that Codex's user-shell
;;; spawn produces a child where
;;; CODEX_SANDBOX_NETWORK_DISABLED is unset
;;; (asserts stdout == "not-set"). We
;;; deliberately set that env var at the
;;; check phase to trigger upstream's
;;; skip_if_no_network! guards; the var then
;;; leaks into the spawned shell and the
;;; assertion fails. The guix skip is a
;;; direct cost of the network-gate fix --
;;; trading one broken test for two that
;;; now skip cleanly.
"--skip" "user_shell_command_does_not_set_network_sandbox_env_var"
;;; END CODEX_SANDBOX_NETWORK_DISABLED leak
;;; BEGIN The exec-server/tests/file_system
;;; integration tests invoke the real
;;; system bwrap, which tries to execvp the
;;; test binary at the cargo target path
;;; under the build dir. Same root cause
;;; as the existing
;;; sandbox_reenables_writable_subpaths_under_unreadable_parents
;;; skip: guix builds live under /tmp but
;;; bwrap's mount namespace excludes /tmp,
;;; making the binary invisible inside the
;;; namespace.
"--skip" "file_system_copy_preserves_symlink_source"
"--skip" "file_system_copy_rejects_symlink_escape_destination"
"--skip" "file_system_copy_rejects_symlink_escape_source"
"--skip" "file_system_create_directory_rejects_symlink_escape"
"--skip" "file_system_read_directory_rejects_symlink_escape"
"--skip" "file_system_remove_rejects_symlink_escape"
"--skip" "file_system_remove_removes_symlink_not_target"
"--skip" "file_system_sandboxed_read_allows_readable_root"
"--skip" "file_system_sandboxed_read_rejects_symlink_escape"
"--skip" "file_system_sandboxed_read_rejects_symlink_parent_dotdot_escape"
"--skip" "file_system_sandboxed_write_allows_additional_write_root"
"--skip" "file_system_sandboxed_write_rejects_symlink_escape"
"--skip" "file_system_sandboxed_write_rejects_unwritable_path"
;;; END bwrap-cant-see-/tmp file_system tests
;;; BEGIN Landlock is unavailable on Guix,
;;; so the sandbox cannot deny network
;;; syscalls. These tests expect
;;; SandboxErr::Denied for the nc, ping,
;;; ssh, getent, and dev_tcp_redirection
;;; commands but those commands instead
;;; block on connect() until the test's 2s
;;; timeout fires (Timeout, exit 124).
;;; Same root cause as the Landlock skips
;;; at the top of this list; new test names
;;; in 0.124.
"--skip" "sandbox_blocks_nc"
"--skip" "sandbox_blocks_ping"
"--skip" "sandbox_blocks_dev_tcp_redirection"
"--skip" "sandbox_blocks_getent"
"--skip" "sandbox_blocks_ssh"
;;; END Landlock network block
;;; BEGIN Requires github.com network access.
;;; With no "extraKnownMarketplaces" entry
;;; in settings.json,
;;; collect_marketplace_import_sources
;;; inserts a fallback entry for the
;;; "claude-plugins-official" marketplace
;;; pointing at the github shorthand
;;; "anthropics/claude-plugins-official".
;;; add_marketplace -> parse_marketplace_source
;;; expands that to a github.com/.git URL
;;; and clone_git_source runs 'git clone'.
;;; The Guix build sandbox has no network,
;;; so the clone fails and the marketplace
;;; lands in failed_marketplaces. No mock
;;; cloner is injected via
;;; ExternalAgentConfigService::new_for_test,
;;; so there is no in-tree way to satisfy
;;; the test offline.
"--skip" "import_plugins_infers_claude_official_marketplace_when_missing_from_settings"
;;; END github.com network access
;;; BEGIN Async race between the rollout
;;; writer task and a direct SQLite read.
;;; The test calls
;;; update_memory_settings_with_app_server,
;;; which routes through the in-memory
;;; thread path on the app-server's
;;; ThreadMemoryModeSet handler ->
;;; Session::set_thread_memory_mode ->
;;; persist_thread_memory_mode_update,
;;; which writes a RolloutItem::SessionMeta
;;; with the new mode to the rollout file
;;; via recorder.record_items + flush. The
;;; rollout writer task then asynchronously
;;; calls sync_thread_state_after_write,
;;; which calls state_db::apply_rollout_items
;;; to mirror the SessionMeta into SQLite.
;;; flush() only awaits the rollout-file
;;; write, not the subsequent SQLite sync.
;;; The test opens a fresh StateRuntime and
;;; reads get_thread_memory_mode
;;; immediately, so it observes the creation
;;; default of "enabled" written by
;;; upsert_thread_with_creation_memory_mode
;;; instead of the new "disabled". Upstream
;;; CI wins this race; we lose.
"--skip" "update_memory_settings_updates_current_thread_memory_mode"
;;; END memory-mode rollout/sqlite race
;;; BEGIN The Stopwatch::new constructor in
;;; codex_shell_escalation anchors
;;; T0 = Instant::now() at construction;
;;; the spawned cancellation task fires at
;;; T0 + limit. The test captures
;;; start = Instant::now() at T1 > T0 (after
;;; cancellation_token() returns) and
;;; asserts start.elapsed() >= limit,
;;; i.e. (T0 + limit) - T1 >= limit, which
;;; is always false by the offset T1 - T0.
;;; The test only passes when scheduler
;;; jitter on the sleep wakeup happens to
;;; exceed that offset. Upstream wins the
;;; race; we don't always.
"--skip" "cancellation_receiver_fires_after_limit"
;;; END Stopwatch construction/start offset race
)
#:cargo-package-crates #:cargo-package-crates
''(;;; Tier 0: No internal deps. ''(;;; Tier 0: No internal deps.
"codex-ansi-escape"
"codex-async-utils" "codex-async-utils"
"codex-backend-openapi-models"
"codex-client" "codex-client"
"codex-execpolicy" "codex-execpolicy"
"codex-file-search" "codex-file-search"
"codex-git-utils" "codex-git"
"codex-keyring-store" "codex-keyring-store"
"codex-process-hardening"
"codex-utils-absolute-path" "codex-utils-absolute-path"
"codex-utils-cache" "codex-utils-cache"
"codex-utils-cargo-bin" "codex-utils-cargo-bin"
"codex-utils-elapsed"
"codex-utils-fuzzy-match"
"codex-utils-home-dir" "codex-utils-home-dir"
"codex-utils-json-to-toml" "codex-utils-json-to-toml"
"codex-utils-path"
"codex-utils-plugins"
"codex-utils-pty" "codex-utils-pty"
"codex-utils-readiness" "codex-utils-readiness"
"codex-utils-rustls-provider"
"codex-utils-sleep-inhibitor"
"codex-utils-stream-parser"
"codex-utils-string" "codex-utils-string"
"codex-utils-template" "codex-backend-openapi-models"
;;; Tier 1. "codex-process-hardening"
"codex-ansi-escape"
;;; Tier 1: Depends on tier 0.
"codex-utils-image" "codex-utils-image"
"codex-utils-output-truncation"
"codex-apply-patch" "codex-apply-patch"
"codex-protocol" "codex-protocol"
"codex-windows-sandbox" "codex-windows-sandbox"
@@ -518,69 +226,35 @@
"codex-secrets" "codex-secrets"
"codex-execpolicy-legacy" "codex-execpolicy-legacy"
"codex-debug-client" "codex-debug-client"
"codex-analytics"
"codex-rollout"
"codex-rollout-trace"
"codex-terminal-detection"
"codex-utils-approval-presets"
"codex-utils-cli"
"codex-uds"
"codex-install-context"
"codex-device-key"
;;; Tier 2. ;;; Tier 2.
"codex-app-server-protocol" "codex-app-server-protocol"
"codex-rmcp-client" "codex-rmcp-client"
"codex-otel" "codex-otel"
"codex-thread-store"
"codex-state" "codex-state"
"codex-features"
"codex-model-provider"
"codex-config"
"codex-agent-identity"
"codex-aws-auth"
"codex-hooks"
"codex-code-mode"
"codex-feedback"
"codex-skills"
"codex-test-binary-support"
"codex-core" "codex-core"
"codex-core-plugins"
"codex-utils-sandbox-summary"
"codex-linux-sandbox" "codex-linux-sandbox"
"codex-sandboxing" "codex-feedback"
"codex-connectors"
"codex-core-skills"
;;; Tier 3. ;;; Tier 3.
"codex-arg0" "codex-arg0"
"codex-lmstudio" "codex-lmstudio"
"codex-login" "codex-login"
"codex-ollama" "codex-ollama"
"codex-utils-oss" "codex-common"
"codex-mcp-server" "codex-mcp-server"
"codex-backend-client" "codex-backend-client"
"codex-responses-api-proxy" "codex-responses-api-proxy"
"codex-shell-command"
"codex-shell-escalation"
"codex-plugin"
"codex-model-provider-info"
"codex-models-manager"
;;; Tier 4. ;;; Tier 4.
"codex-cloud-requirements" "codex-cloud-requirements"
"codex-exec" "codex-exec"
"codex-exec-server" "codex-exec-server"
"codex-network-proxy"
"codex-stdio-to-uds" "codex-stdio-to-uds"
"codex-network-proxy"
"codex-chatgpt" "codex-chatgpt"
"codex-cloud-tasks-client" "codex-cloud-tasks-client"
"codex-cloud-tasks-mock-client"
"codex-tools"
"codex-mcp"
"codex-collaboration-mode-templates"
;;; Tier 5. ;;; Tier 5.
"codex-app-server" "codex-app-server"
"codex-app-server-test-client" "codex-app-server-test-client"
"codex-tui" "codex-tui"
"codex-response-debug-context"
;;; Tier 6. ;;; Tier 6.
"codex-cloud-tasks" "codex-cloud-tasks"
;; The main executable. ;; The main executable.
@@ -596,7 +270,7 @@
;; Update them to match the actual package version. ;; Update them to match the actual package version.
(let ((snap-files (find-files "." "\\.snap$"))) (let ((snap-files (find-files "." "\\.snap$")))
(substitute* snap-files (substitute* snap-files
(("\\(v0\\.0\\.0\\) ") "(v0.124.0) "))))) (("\\(v0\\.0\\.0\\) ") "(v0.98.0)")))))
(add-after 'chdir-to-workspace 'patch-git-deps-to-vendor (add-after 'chdir-to-workspace 'patch-git-deps-to-vendor
(lambda _ (lambda _
;; Replace git dependencies with version references so cargo ;; Replace git dependencies with version references so cargo
@@ -605,57 +279,23 @@
(("nucleo = \\{ git = [^}]+\\}") (("nucleo = \\{ git = [^}]+\\}")
"nucleo = \"0.5.0\"") "nucleo = \"0.5.0\"")
(("runfiles = \\{ git = [^}]+\\}") (("runfiles = \\{ git = [^}]+\\}")
"runfiles = \"0.1.0\"")) "runfiles = \"0.1.0\""))))
;; Remove workspace members that have unbuildable deps (add-after 'chdir-to-workspace 'add-version-to-workspace-deps
;; (v8-poc requires V8). code-mode stays a workspace member
;; so its codex-protocol resolves to the same local copy as
;; the rest of the build; disabling its default features
;; (below) avoids pulling in V8.
(substitute* "Cargo.toml"
(("\"v8-poc\",") ""))
;; Disable V8 runtime in codex-code-mode by turning off
;; default features. Keep path= so code-mode is resolved
;; from the local source tree and shares codex-protocol
;; (and other workspace crates) with the rest of the build;
;; resolving it from the vendor instead introduces a
;; duplicate codex-protocol and causes E0308 type
;; mismatches in codex-tools.
(substitute* "Cargo.toml"
(("codex-code-mode = \\{ path = \"code-mode\" \\}")
"codex-code-mode = { path = \"code-mode\", default-features = false }"))
;; cargo build at workspace root ignores per-dep
;; default-features=false and builds code-mode with its
;; own default features, which include v8-runtime and
;; would pull in V8. Make the default feature empty.
(substitute* "code-mode/Cargo.toml"
(("^default = \\[\"v8-runtime\"\\]") "default = []"))))
(add-after 'patch-git-deps-to-vendor 'add-version-to-workspace-deps
(lambda _ (lambda _
;; cargo package requires all dependencies to have versions. ;; cargo package requires all dependencies to have versions.
;; Add version = "0.124.0" to internal path dependencies. ;; cargo package requires all dependencies to have versions.
;; Add version = "0.98.0" to internal path dependencies.
(let ((cargo-files (find-files "." "^Cargo\\.toml$"))) (let ((cargo-files (find-files "." "^Cargo\\.toml$")))
(substitute* cargo-files (substitute* cargo-files
;; Handle inline deps: name = { path = "..." } ;; Handle inline deps: name = { path = "..." }
(("(codex-[a-z0-9-]+) = \\{ path = " all name) (("(codex-[a-z0-9-]+) = \\{ path = " all name)
(string-append name " = { version = \"0.124.0\", path = ")) (string-append name " = { version = \"0.98.0\", path = "))
;; Handle inline deps with package: name = { package = "...", path = "..." } ;; Handle inline deps with package: name = { package = "...", path = "..." }
(("(codex-[a-z0-9-]+) = \\{ package = " all name) (("(codex-[a-z0-9-]+) = \\{ package = " all name)
(string-append name " = { version = \"0.124.0\", package = ")) (string-append name " = { version = \"0.98.0\", package = "))
;; Handle section deps: [dependencies.X] with path = "..." ;; Handle section deps: [dependencies.X] with path = "..."
(("^(path = \"\\.\\./[^\"]*\")" all path-line) (("^(path = \"\\.\\./[^\"]*\")" all path-line)
(string-append path-line "\nversion = \"0.124.0\"")))))) (string-append path-line "\nversion = \"0.98.0\""))))))
(add-after 'chdir-to-workspace 'use-gnu-store-in-sandbox
(lambda _
;; LINUX_PLATFORM_DEFAULT_READ_ROOTS in linux-sandbox/src/
;; bwrap.rs is the read-only baseline that codex's bwrap
;; sandbox bind-mounts so commands can read /usr/bin/ls,
;; libc, etc. Upstream lists "/nix/store" for NixOS;
;; Guix's equivalent is "/gnu/store". Without this swap,
;; the codex sandbox cannot locate any binaries on a Guix
;; system because every "system" path resolves into
;; /gnu/store/<hash>-pkg/bin/...
(substitute* "linux-sandbox/src/bwrap.rs"
(("\"/nix/store\"") "\"/gnu/store\""))))
(add-after 'chdir-to-workspace 'patch-hardcoded-paths (add-after 'chdir-to-workspace 'patch-hardcoded-paths
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((bash-bin (string-append (let ((bash-bin (string-append
@@ -685,14 +325,6 @@
(string-append "\"" bash-bin "/bash ")) (string-append "\"" bash-bin "/bash "))
(("\"/bin/sh ") (("\"/bin/sh ")
(string-append "\"" bash-bin "/sh ")) (string-append "\"" bash-bin "/sh "))
;; Single-quoted paths in test assertion strings,
;; e.g. "exec '/bin/bash' -c ...". Must match the
;; double-quoted substitutions above so both sides
;; of assert_eq!/contains use the store path.
(("'/bin/bash'")
(string-append "'" bash-bin "/bash'"))
(("'/bin/sh'")
(string-append "'" bash-bin "/sh'"))
;; coreutils. ;; coreutils.
(("\"/bin/(cat|cp|date|echo|head|ls|rm|sleep|true|touch)\"" all cmd) (("\"/bin/(cat|cp|date|echo|head|ls|rm|sleep|true|touch)\"" all cmd)
(string-append "\"" coreutils-bin "/" cmd "\"")) (string-append "\"" coreutils-bin "/" cmd "\""))
@@ -707,150 +339,42 @@
(string-append "\"" git-bin "/git\"")) (string-append "\"" git-bin "/git\""))
(("\"/usr/bin/sed\"") (("\"/usr/bin/sed\"")
(string-append "\"" sed-bin "/sed\""))) (string-append "\"" sed-bin "/sed\"")))
;; Bare Command::new("git") and Command::new("ls")
;; in codex source files that exec internally.
(substitute* (find-files "git-utils" "\\.rs$")
(("Command::new\\(\"git\"\\)")
(string-append "Command::new(\"" git-bin "/git\")")))
(substitute* "tui/src/get_git_diff.rs"
(("Command::new\\(\"git\"\\)")
(string-append "Command::new(\"" git-bin "/git\")")))
(substitute* "core/src/turn_diff_tracker.rs"
(("Command::new\\(\"git\"\\)")
(string-append "Command::new(\"" git-bin "/git\")")))
(substitute* "cloud-tasks/src/env_detect.rs"
(("Command::new\\(\"git\"\\)")
(string-append "Command::new(\"" git-bin "/git\")")))
(substitute* "core/src/plugins/startup_sync.rs"
(("\"git\",")
(string-append "\"" git-bin "/git\",")))
(substitute* "file-search/src/lib.rs"
(("Command::new\\(\"ls\"\\)")
(string-append "Command::new(\"" coreutils-bin "/ls\")")))
;; Neutralize pager with absolute path to cat.
(substitute* "core/src/unified_exec/process_manager.rs"
(("\"PAGER\", \"cat\"")
(string-append "\"PAGER\", \"" coreutils-bin "/cat\""))
(("\"GIT_PAGER\", \"cat\"")
(string-append "\"GIT_PAGER\", \"" coreutils-bin "/cat\""))
(("\"GH_PAGER\", \"cat\"")
(string-append "\"GH_PAGER\", \"" coreutils-bin "/cat\"")))
;; Bare /bin/sleep inside a format! string
;; (no surrounding double quotes, so the main
;; pattern does not match).
(substitute*
"shell-escalation/src/unix/escalate_server.rs"
(("/bin/sleep")
(string-append coreutils-bin "/sleep")))
;; @SHELL@ placeholder from test-shebangs patch ;; @SHELL@ placeholder from test-shebangs patch
(substitute* (substitute*
(list "rmcp-client/src/program_resolver.rs" (list "rmcp-client/src/program_resolver.rs"
"tui/src/external_editor.rs") "tui/src/external_editor.rs")
(("@SHELL@") (("@SHELL@")
(string-append bash-bin "/sh"))) (string-append bash-bin "/sh")))
;; Shebangs inside raw string literals (r#"..."#) ;; shebang in test-only file
;; that are written to scripts at runtime. The
;; main "/bin/sh" patterns only match double-quoted
;; occurrences; these shebangs have no surrounding
;; double quotes.
(substitute* (substitute*
(list "core/src/plugins/startup_sync_tests.rs" "core/tests/suite/user_notification.rs"
"core/src/tools/runtimes/shell/unix_escalation_tests.rs"
"core/tests/suite/client.rs"
"core/tests/suite/js_repl.rs"
"core/tests/suite/skill_approval.rs"
"core/tests/suite/user_notification.rs"
"exec-server/tests/file_system.rs"
"login/src/auth/auth_tests.rs"
"models-manager/src/manager_tests.rs"
"sandboxing/src/bwrap_tests.rs")
(("#!/bin/bash") (("#!/bin/bash")
(string-append "#!" bash-bin "/bash")) (string-append "#!" bash-bin "/bash"))))))
(("#!/bin/sh")
(string-append "#!" bash-bin "/sh")))
;; Test helpers pass env: Default::default() to the
;; spawn code which calls env_clear(), leaving
;; processes with no PATH. Inject the build-time
;; PATH so tests find coreutils, bash, etc.
(substitute* (find-files "." "\\.rs$")
(("env: Default::default\\(\\)")
(string-append
"env: std::env::var(\"PATH\")"
".into_iter()"
".map(|p| (\"PATH\".to_string(), p))"
".collect()")))
;; Test-only absolute path; bare name works via PATH.
(substitute* "exec-server/tests/exec_process.rs"
(("\"/usr/bin/python3\"")
"\"python3\""))
;; Same empty-env issue but in JSON literals
;; (serde_json::json! macro).
(substitute* "exec-server/tests/process.rs"
(("\"env\": \\{\\}")
(string-append
"\"env\": {\"PATH\": \""
(getenv "PATH")
"\"}"))))))
(add-before 'build 'set-bubblewrap-source
(lambda* (#:key inputs #:allow-other-keys)
(setenv "CODEX_BWRAP_SOURCE_DIR"
(string-append
(assoc-ref inputs "bubblewrap-source")
"/"))))
(add-before 'build 'create-node-version-file
(lambda _
(call-with-output-file "guix-vendor/node-version.txt"
(lambda (port)
(display "22.22.0" port)))))
(add-before 'check 'set-home (add-before 'check 'set-home
(lambda _ (lambda _
;; HOME must not be a prefix of /tmp, otherwise (setenv "HOME" "/tmp")
;; the TUI's path shortener replaces /tmp/... with (setenv "USER" "nixbld"))))))
;; ~/... and 30 snapshot tests fail. (native-inputs (list clang ;bindgen uses libclang to parse BoringSSL's C headers
(setenv "HOME" "/tmp/guix-home") cmake-minimal ;BoringSSL is compiled from C source
(mkdir-p "/tmp/guix-home") libunwind ;BoringSSL tests verify stack unwinding in assembly
(setenv "USER" "nixbld") perl python-minimal ;for tests
;; Default libtest thread stack is 2 MiB, which is not pkg-config))
;; enough for tokio current_thread tests that drive
;; codex-core's full turn pipeline. Upstream gates such
;; tests through run_current_thread_test_with_stack (4 MiB)
;; in app-server/src/message_processor/tracing_tests.rs;
;; raise the global default so future additions that
;; forget the wrapper still pass.
(setenv "RUST_MIN_STACK" "8388608")
;; Disable network access.
(setenv "CODEX_SANDBOX_NETWORK_DISABLED" "1"))))))
(native-inputs `(("bubblewrap" ,bubblewrap) ;tests need bwrap on PATH
("clang" ,clang)
("cmake-minimal" ,cmake-minimal)
("libunwind" ,libunwind)
("lsof" ,lsof) ;app-server tests
("nss-certs-for-test" ,nss-certs-for-test) ;OTLP gRPC TLS
("perl" ,perl)
("procps" ,procps) ;tests use ps
("python-minimal" ,python-minimal)
("pkg-config" ,pkg-config)
("bubblewrap-source" ,(package-source bubblewrap))))
(inputs (cons* bash-minimal coreutils git-minimal sed (inputs (cons* bash-minimal coreutils git-minimal sed
libcap oniguruma openssl sqlite zlib `(,zstd "lib") openssl sqlite `(,zstd "lib")
(cargo-inputs 'codex))) (cargo-inputs 'codex)))
(properties '((timeout . 108000) ; 30 hours
(max-silent-time . 54000))) ; 15 hours
(home-page "https://github.com/openai/codex") (home-page "https://github.com/openai/codex")
(synopsis "AI-assisted coding CLI and TUI") (synopsis "AI-assisted coding CLI and TUI")
(description (description
"Codex is an AI-powered coding assistant that runs in the terminal. "Codex is an AI-powered coding assistant that runs in the terminal.
It provides an interactive TUI for conversations with AI models, with It provides an interactive TUI for conversations with AI models, with
support for shell command execution, file editing, and code generation. support for shell command execution, file editing, and code generation.
Configure providers via @file{~/.codex/config.toml}. Configure providers via @file{~/.codex/config.toml}.")
codex-code-mode's V8 Javascript executor is disabled.")
(license license:asl2.0))) (license license:asl2.0)))
(define-public codex-acp (define-public codex-acp
(package (package
(name "codex-acp") (name "codex-acp")
(version "0.11.1") (version "0.9.2")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -859,8 +383,9 @@ codex-code-mode's V8 Javascript executor is disabled.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1rlgkbvrbdl5jhf49sjn2mifn2rq6z0vwf0gard23y1bz6sr3wmr")) (base32 "190sq6s6jfz8dkj1y8305r7x6ln86qqr2j1bnfjci7f1x2wyzmsj"))
(patches (search-patches "codex-acp-0.11.1-remove-patch-sections.patch")))) (patches (search-patches "codex-acp-0.9.2-remove-patch-sections.patch"
"codex-acp-0.9.2-replace-result-flatten.patch"))))
(build-system cargo-build-system) (build-system cargo-build-system)
(arguments (arguments
(list (list
@@ -868,43 +393,13 @@ codex-code-mode's V8 Javascript executor is disabled.")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-codex-deps (add-after 'unpack 'patch-codex-deps
(lambda* (#:key inputs #:allow-other-keys) (lambda _
;; Rewrite git dependencies to use vendored sources from rust-codex ;; Rewrite git dependencies to use vendored sources from rust-codex
(substitute* "Cargo.toml" (substitute* "Cargo.toml"
(("git = \"https://github.com/openai/codex\", tag = \"rust-v0.117.0\"") (("git = \"https://github.com/zed-industries/codex\", branch = \"acp\"")
"version = \"0.117.0\"")) "version = \"0.0.0\"")))))))
;; Disable V8 runtime in codex-code-mode (transitive dep). (native-inputs (list pkg-config))
(let ((port (open-file "Cargo.toml" "a"))) (inputs (cons* openssl sqlite `(,zstd "lib") (cargo-inputs 'codex-acp)))
(display "
[dependencies.codex-code-mode]
version = \"0.117.0\"
default-features = false
" port)
(close-port port))
;; Point codex-linux-sandbox at system bubblewrap source.
(setenv "CODEX_BWRAP_SOURCE_DIR"
(string-append
(assoc-ref inputs "bubblewrap-source")
"/"))))
(add-before 'check 'set-home
(lambda _
(setenv "HOME" "/tmp")
(setenv "USER" "nixbld")))
(add-before 'build 'create-node-version-file
(lambda _
;; codex-core's js_repl uses include_str! to read
;; node-version.txt four directories up from its source;
;; create it where the vendored crate expects it.
(call-with-output-file "guix-vendor/node-version.txt"
(lambda (port)
(display "22.22.0" port))))))))
(native-inputs
`(("cmake-minimal" ,cmake-minimal)
("clang" ,clang)
("pkg-config" ,pkg-config)
("bubblewrap-source" ,(package-source bubblewrap))))
(inputs (cons* libcap openssl sqlite zlib `(,zstd "lib")
(cargo-inputs 'codex-acp)))
(home-page "https://github.com/zed-industries/codex-acp") (home-page "https://github.com/zed-industries/codex-acp")
(synopsis "ACP-compatible agent bridging Zed Codex with ACP clients") (synopsis "ACP-compatible agent bridging Zed Codex with ACP clients")
(description (description
+1 -3
View File
@@ -2375,9 +2375,7 @@ non-Windows systems without running the actual installer using wine.")
(sha256 (sha256
(base32 "17k679glx05v23n8kxbg9vmbf89i2252g5xj6w3dkz19asmh1zd6")))) (base32 "17k679glx05v23n8kxbg9vmbf89i2252g5xj6w3dkz19asmh1zd6"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs (list autoconf automake libtool nasm))
(cons* autoconf automake libtool
(maybe-nasm)))
(home-page "https://github.com/intel/isa-l") (home-page "https://github.com/intel/isa-l")
(synopsis "Intelligent storage acceleration library") (synopsis "Intelligent storage acceleration library")
(description "ISA-L is a collection of optimized low-level functions (description "ISA-L is a collection of optimized low-level functions
+2 -2
View File
@@ -150,7 +150,7 @@ as created by Podman, CRI-O and containerd.")))
(define-public crun (define-public crun
(package (package
(name "crun") (name "crun")
(version "1.26") (version "1.25.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@@ -160,7 +160,7 @@ as created by Podman, CRI-O and containerd.")))
"/crun-" version ".tar.gz")) "/crun-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1hdwk5dpsz9danxiyfli07b7sqid6hr34qmhs5qjl2dcc00is89j")))) "02kksvnja234k8mpq5j7yms8npbpvh8iz3k03h21lwcqzqsb88rx"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list (list
+11 -9
View File
@@ -44,7 +44,7 @@
;;; Copyright © 2024 Jakob Kirsch <jakob.kirsch@web.de> ;;; Copyright © 2024 Jakob Kirsch <jakob.kirsch@web.de>
;;; Copyright © 2025 Sharlatan Hellseher <sharlatanus@gmail.com> ;;; Copyright © 2025 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2025 Sergio Pastor Pérez <sergio.pastorperez@gmail.com> ;;; Copyright © 2025 Sergio Pastor Pérez <sergio.pastorperez@gmail.com>
;;; Copyright © 2025, 2026 Ashish SHUKLA <ashish.is@lostca.se> ;;; Copyright © 2025 Ashish SHUKLA <ashish.is@lostca.se>
;;; Copyright © 2025 Nicolas Graves <ngraves@ngraves.fr> ;;; Copyright © 2025 Nicolas Graves <ngraves@ngraves.fr>
;;; Copyright © 2025 Romain Garbage <romain.garbage@inria.fr> ;;; Copyright © 2025 Romain Garbage <romain.garbage@inria.fr>
;;; Copyright © 2024, 2025 Janneke Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2024, 2025 Janneke Nieuwenhuizen <janneke@gnu.org>
@@ -52,7 +52,6 @@
;;; Copyright © 2025 Philippe Swartvagher <phil.swart@gmx.fr> ;;; Copyright © 2025 Philippe Swartvagher <phil.swart@gmx.fr>
;;; Copyright © 2025 Murilo <murilo@disroot.org> ;;; Copyright © 2025 Murilo <murilo@disroot.org>
;;; Copyright © 2026 Justin Veilleux <terramorpha@cock.li> ;;; Copyright © 2026 Justin Veilleux <terramorpha@cock.li>
;;; Copyright © 2026 Daniel Littlewood <dan@danielittlewood.xyz>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@@ -3193,7 +3192,8 @@ pointers, containers, compiler building blocks, etc.")
(native-inputs (native-inputs
(list build)) (list build))
(inputs (inputs
(list libcutl xerces-c)) `(("libcutl" ,libcutl)
("libxerces-c" ,xerces-c)))
(synopsis "XSD Front-end") (synopsis "XSD Front-end")
(description "@code{libxsd-frontend} is a compiler frontend for the W3C (description "@code{libxsd-frontend} is a compiler frontend for the W3C
XML Schema definition language. It includes a parser, semantic graph types XML Schema definition language. It includes a parser, semantic graph types
@@ -3360,7 +3360,7 @@ which can evaluate Jsonnet files and expressions.")))
(define-public simdjson (define-public simdjson
(package (package
(name "simdjson") (name "simdjson")
(version "4.6.3") (version "3.13.0")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@@ -3369,7 +3369,7 @@ which can evaluate Jsonnet files and expressions.")))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0729mxnc2wjb94gr4znwlzfmgw5w2v9kd8glvn3vnjhkdnd87zry")))) "005yli56nrkvlyx9g9cq8dczk42r9a18l162i2s5k81lj3y7mcrp"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
'(#:tests? #f ; tests require downloading dependencies '(#:tests? #f ; tests require downloading dependencies
@@ -3608,7 +3608,7 @@ std::wstring, etc).")
(define-public fast-float (define-public fast-float
(package (package
(name "fast-float") (name "fast-float")
(version "8.2.5") (version "8.0.2")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@@ -3617,7 +3617,7 @@ std::wstring, etc).")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1l13nsl4sgq71m7aifrmmmfyl14vp48vqdh7pb50hxqq6f8bq2b5")))) "19x1yklf641yrpad6lk4cq3jmird10d5ig8hicm3p9lxh92k78cl"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
(list (list
@@ -3628,10 +3628,12 @@ std::wstring, etc).")
(add-after 'unpack 'patch-cmake-tests (add-after 'unpack 'patch-cmake-tests
(lambda* (#:key inputs native-inputs #:allow-other-keys) (lambda* (#:key inputs native-inputs #:allow-other-keys)
(substitute* "tests/CMakeLists.txt" (substitute* "tests/CMakeLists.txt"
(("FetchContent_MakeAvailable\\(supplemental_test_files.*") (("FetchContent_GetProperties\\(supplemental_test_files.*")
"")
(("if\\(NOT supplemental_test_files_POPULATED.*")
(string-append (string-append
"set(supplemental_test_files_BINARY_DIR " "set(supplemental_test_files_BINARY_DIR "
#$fast-float-test-files ")\n")))))))) #$fast-float-test-files ")\nif(0)\n"))))))))
(native-inputs (list doctest fast-float-test-files)) (native-inputs (list doctest fast-float-test-files))
(home-page "https://github.com/fastfloat/fast_float") (home-page "https://github.com/fastfloat/fast_float")
(synopsis "Floating point number parser for C++") (synopsis "Floating point number parser for C++")
+342 -1174
View File
File diff suppressed because it is too large Load Diff
+12 -11
View File
@@ -276,17 +276,18 @@ Ed448-Goldilocks and Curve448, using the Decaf encoding.")
(define-public libsodium (define-public libsodium
(package (package
(name "libsodium") (name "libsodium")
(version "1.0.22") (version "1.0.18")
(source (source (origin
(origin (method url-fetch)
(method git-fetch) (uri (list (string-append
(uri (git-reference "https://download.libsodium.org/libsodium/"
(url "https://github.com/jedisct1/libsodium") "releases/libsodium-" version ".tar.gz")
(commit (string-append version "-RELEASE")))) (string-append
(file-name (git-file-name name version)) "https://download.libsodium.org/libsodium/"
(sha256 "releases/old/libsodium-" version ".tar.gz")))
(base32 (sha256
"05lqdn6nzldsia5mv5a9xfvc5k0kybh9snwv7qsb135gva4bpjwk")))) (base32
"1h9ncvj23qbbni958knzsli8dvybcswcjbx0qjjgi922nf848l3g"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(synopsis "Portable NaCl-based crypto library") (synopsis "Portable NaCl-based crypto library")
(description (description
+2 -54
View File
@@ -70,8 +70,6 @@
;;; Copyright © 2025 bdunahu <bdunahu@operationnull.com> ;;; Copyright © 2025 bdunahu <bdunahu@operationnull.com>
;;; Copyright © 2026 Spencer King <spencer.king@wustl.edu> ;;; Copyright © 2026 Spencer King <spencer.king@wustl.edu>
;;; Copyright © 2026 Peter Polidoro <peter@polidoro.io> ;;; Copyright © 2026 Peter Polidoro <peter@polidoro.io>
;;; Copyright © 2026 Josep Bigorra <jjbigorra@gmail.com>
;;; Copyright © 2026 Daniel Littlewood <dan@danielittlewood.xyz>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@@ -128,7 +126,6 @@
#:use-module (gnu packages gperf) #:use-module (gnu packages gperf)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages guile) #:use-module (gnu packages guile)
#:use-module (gnu packages guile-xyz)
#:use-module (gnu packages icu4c) #:use-module (gnu packages icu4c)
#:use-module (gnu packages jemalloc) #:use-module (gnu packages jemalloc)
#:use-module (gnu packages language) #:use-module (gnu packages language)
@@ -201,7 +198,6 @@
#:use-module (guix build-system emacs) #:use-module (guix build-system emacs)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system go) #:use-module (guix build-system go)
#:use-module (guix build-system guile)
#:use-module (guix build-system meson) #:use-module (guix build-system meson)
#:use-module (guix build-system perl) #:use-module (guix build-system perl)
#:use-module (guix build-system pyproject) #:use-module (guix build-system pyproject)
@@ -4160,8 +4156,8 @@ programmatically or as a standalone CLI application.")
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
(list openssl `(("libcrypto" ,openssl)
tcl)) ;for tests ("libtcl8.6" ,tcl))) ; required for running the tests
(native-inputs (native-inputs
(list tcl)) (list tcl))
(arguments (arguments
@@ -5050,54 +5046,6 @@ postgresql = postgresql://nixbld@/yoyo_test~%")))
files or Python scripts that define a list of migration steps.") files or Python scripts that define a list of migration steps.")
(license license:asl2.0))) (license license:asl2.0)))
(define-public mutastructura
(package
(name "mutastructura")
(version "0.6.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://codeberg.org/jjba23/mutastructura")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "08vzlc5imavqf3bdzgbh70c7z44xjhf05gr7i2g5ksl49lv39gzh"))))
(build-system guile-build-system)
(arguments
(list
#:source-directory "src"
#:phases
#~(modify-phases %standard-phases
(add-before 'build 'install-program-files
(lambda _
(let* ((bin (string-append #$output "/bin"))
(share (string-append #$output "/share")))
(copy-recursively "resources"
(string-append share "/resources"))
(install-file "scripts/mutastructura" bin)
(install-file "scripts/log.bash"
(string-append share "/scripts/"))
(chmod (string-append bin "/mutastructura") #o755)))))))
(native-inputs (list guile-3.0))
(propagated-inputs (list guile-dbi
guile-dbd-mysql
guile-dbd-sqlite3
guile-dbd-postgresql
guile-gcrypt))
(inputs (list guile-3.0 bash-minimal))
(home-page "https://codeberg.org/jjba23/mutastructura")
(synopsis "Relational database schema migrations powered by Guile Scheme")
(description
"Mutastructura provides a familiar, declarative and transactional
approach to managing database states. It exposes a user-friendly
@acronym{CLI, command-line interface} and has support for PostgreSQL, MySQL, and SQLite.
It also exposes library functions and can be imported and used directly from other Guile code.
Features include executing migrations transactionally and computing SHA256
checksums to track schema evolution in a @code{migrations_history} table.")
(license license:agpl3+)))
(define-public python-mysqlclient (define-public python-mysqlclient
(package (package
(name "python-mysqlclient") (name "python-mysqlclient")
+1 -46
View File
@@ -31,7 +31,7 @@
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com> ;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2024-2025 Sharlatan Hellseher <sharlatanus@gmail.com> ;;; Copyright © 2024-2025 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2025 Ashish SHUKLA <ashish.is@lostca.se> ;;; Copyright © 2025 Ashish SHUKLA <ashish.is@lostca.se>
;;; Copyright © 2025, 2026 Vinicius Monego <monego@posteo.net> ;;; Copyright © 2025 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2025 Grigory Shepelev <shegeley@gmail.com> ;;; Copyright © 2025 Grigory Shepelev <shegeley@gmail.com>
;;; Copyright © 2026 Luis Guilherme Coelho <lgcoelho@disroot.org> ;;; Copyright © 2026 Luis Guilherme Coelho <lgcoelho@disroot.org>
@@ -94,8 +94,6 @@
#:use-module (gnu packages gnome) #:use-module (gnu packages gnome)
#:use-module (gnu packages gnupg) #:use-module (gnu packages gnupg)
#:use-module (gnu packages golang-build) #:use-module (gnu packages golang-build)
#:use-module (gnu packages golang-check)
#:use-module (gnu packages golang-compression)
#:use-module (gnu packages golang-xyz) #:use-module (gnu packages golang-xyz)
#:use-module (gnu packages graphics) #:use-module (gnu packages graphics)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
@@ -422,49 +420,6 @@ tables, and it understands a variety of different formats.")
similarity.") similarity.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public gdu
(package
(name "gdu")
(version "5.35.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/dundee/gdu")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "051xf3wncdiavjwyl9djmni5vd2dqjgn6drkw2nm21c9l0rjfv6d"))))
(build-system go-build-system)
(arguments
(list
#:install-source? #f
#:import-path "github.com/dundee/gdu/v5/cmd/gdu"
#:unpack-path "github.com/dundee/gdu/v5"))
(native-inputs
(list go-github-com-dgraph-io-badger-v4
go-github-com-fatih-color
go-github-com-gdamore-tcell-v2
go-github-com-h2non-filetype
go-github-com-maruel-natural
go-github-com-mattn-go-isatty
go-github-com-pkg-errors
go-github-com-rivo-tview
go-github-com-sirupsen-logrus
go-github-com-spf13-cobra
go-github-com-stretchr-testify
go-github-com-ulikunitz-xz
go-golang-org-x-sys
go-golang-org-x-text
go-gopkg-in-yaml-v3
go-modernc-org-sqlite))
(home-page "https://github.com/dundee/gdu")
(synopsis "Disk usage analyzer")
(description "Gdu is a disk usage analyzer written in Go. It is intended
primarily for SSD disks where it can fully utilize parallel processing, but it
also works on HDDs.")
(license license:expat)))
(define-public gpart (define-public gpart
;; The latest (0.3) release is from 2015 and is missing a crash fix. ;; The latest (0.3) release is from 2015 and is missing a crash fix.
(let ((commit "ec03350a01ad69708b5a3e2d47b8e002b0eba6c9") (let ((commit "ec03350a01ad69708b5a3e2d47b8e002b0eba6c9")
+2 -2
View File
@@ -51,7 +51,7 @@
(define-public boinc-client (define-public boinc-client
(package (package
(name "boinc-client") (name "boinc-client")
(version "8.2.12") (version "8.2.9")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@@ -62,7 +62,7 @@
(file-name (git-file-name "boinc" version)) (file-name (git-file-name "boinc" version))
(sha256 (sha256
(base32 (base32
"0531n0yij1gh06xy6plwivbpmhqfq15jizg3rdgri40nz41rzbgr")))) "0ik9423ii6kal29jdn907pxy8w86zpi8n158qx1gcsh8lsaif1v5"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list (list
+18 -2
View File
@@ -201,13 +201,13 @@ your project into different processes.")
(define-public python-django (define-public python-django
(package (package
(name "python-django") (name "python-django")
(version "5.2.13") (version "5.2.11")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "django" version)) (uri (pypi-uri "django" version))
(sha256 (sha256
(base32 "1i1vlffzhwbzp6r6y8ycvwklc45diy4c6i897z379l48a7dqj5d3")))) (base32 "1lq2dynfw6jmvzrzgfrlij2qnxcksaxgnrfr0pj3bvmrv0m2jbbz"))))
(build-system pyproject-build-system) (build-system pyproject-build-system)
(arguments (arguments
'(#:test-flags '(#:test-flags
@@ -298,6 +298,22 @@ to the @dfn{don't repeat yourself} (DRY) principle.")
;; This CVE is fixed in 4.1.9. ;; This CVE is fixed in 4.1.9.
"CVE-2023-31047")))))) "CVE-2023-31047"))))))
(define-public python-django-4
(package
(inherit python-django)
(name "python-django-4")
(version "4.2.28")
(source
(origin
(method url-fetch)
(uri (pypi-uri "django" version))
(sha256
(base32 "1znc2q1m9p2kxz1rkfkh2hg2sx6i3aqv72zsraad7bci364cvfd4"))))
(arguments
(substitute-keyword-arguments arguments
((#:phases phases)
#~(modify-phases #$phases (delete 'delete-sitecustomize)))))))
(define-public python-django-cache-url (define-public python-django-cache-url
(package (package
(name "python-django-cache-url") (name "python-django-cache-url")
+5 -6
View File
@@ -10,7 +10,6 @@
;;; Copyright © 2022 ( <paren@disroot.org> ;;; Copyright © 2022 ( <paren@disroot.org>
;;; Copyright © 2022 Esther Flashner <esther@flashner.co.il> ;;; Copyright © 2022 Esther Flashner <esther@flashner.co.il>
;;; Copyright © 2025-2026 Jonas Meeuws <jonas.meeuws@gmail.com> ;;; Copyright © 2025-2026 Jonas Meeuws <jonas.meeuws@gmail.com>
;;; Copyright © 2026 Daniel Littlewood <dan@danielittlewood.xyz>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@@ -321,11 +320,11 @@ integration tests...\n")
"|core.thread.osthread-debug-shared"))) "|core.thread.osthread-debug-shared")))
(#t `(""))))))))))))) (#t `("")))))))))))))
(native-inputs (native-inputs
(modify-inputs native-inputs (append (delete "llvm"
(delete "llvm") (alist-replace "ldc" (list ldc-bootstrap)
(replace "ldc" ldc-bootstrap) (package-native-inputs ldc-bootstrap)))
(append clang-17 ;propagates llvm and clang-runtime `(("clang" ,clang-17) ;propagates llvm and clang-runtime
python-lit))) ("python-lit" ,python-lit))))
(properties (properties
(alist-delete 'hidden? (package-properties ldc-bootstrap))))) (alist-delete 'hidden? (package-properties ldc-bootstrap)))))
-1
View File
@@ -115,7 +115,6 @@
(uri (git-reference (uri (git-reference
(url "git://git.chiark.greenend.org.uk/~ianmdlvl/adns.git") (url "git://git.chiark.greenend.org.uk/~ianmdlvl/adns.git")
(commit (string-append "adns-" version)))) (commit (string-append "adns-" version))))
(file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0ln3l5j7wb1xazrzl76p9xar52p6l2k1cwy7jazxw1acl71k9h5n")))) "0ln3l5j7wb1xazrzl76p9xar52p6l2k1cwy7jazxw1acl71k9h5n"))))
+2 -2
View File
@@ -148,13 +148,13 @@ system.")
(define-public r-duckdb (define-public r-duckdb
(package (package
(name "r-duckdb") (name "r-duckdb")
(version "1.5.2") (version "1.5.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "duckdb" version)) (uri (cran-uri "duckdb" version))
(sha256 (sha256
(base32 "1dldlfwvc33czvlxfmwaj4p9y6sjjj5iqy98yda47a8kclrqmyam")) (base32 "177621m08whqqk4yhj3zrr08l3d9hhlqh3gm9jzhi5cplg47cksq"))
;; This package bundles the duckdb sources and builds a custom variant ;; This package bundles the duckdb sources and builds a custom variant
;; of duckdb. I'd be happy to link it with our duckdb library instead, ;; of duckdb. I'd be happy to link it with our duckdb library instead,
;; but it does not seem possible to do that. ;; but it does not seem possible to do that.
+6 -6
View File
@@ -2331,7 +2331,7 @@ Automation}, portable and vendor neutral FPGA place and route tool.")
(define-public nvc (define-public nvc
(package (package
(name "nvc") (name "nvc")
(version "1.20.1") (version "1.19.3")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@@ -2340,7 +2340,7 @@ Automation}, portable and vendor neutral FPGA place and route tool.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1b38x2ch468s4p6mrq6c8s0d95vb84p6w4v8in79l4w7sfy8jnr0")))) "1zizz2dafm53lzpjayy6vig5pz5ri9cszdivg0jzzh8s3ggkpy1i"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list #:out-of-source? #t (list #:out-of-source? #t
@@ -3461,7 +3461,7 @@ form of AXI, AXI lite, and AXI stream modules.")
(define-public python-edalize (define-public python-edalize
(package (package
(name "python-edalize") (name "python-edalize")
(version "0.6.8") (version "0.6.6")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -3470,7 +3470,7 @@ form of AXI, AXI lite, and AXI stream modules.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "04m2lhkclw9fj92k43c06j003qnq9i1yhy2131fvcnkkr0d9438m")))) (base32 "115nc15n2cx4x9irjim07zkg0287418djqd6ja7rm8jrnyldvln9"))))
(build-system pyproject-build-system) (build-system pyproject-build-system)
(arguments (arguments
(list (list
@@ -4516,7 +4516,7 @@ unique design feature of Trilinos is its focus on packages.")
(define-public verilator (define-public verilator
(package (package
(name "verilator") (name "verilator")
(version "5.048") (version "5.046")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -4525,7 +4525,7 @@ unique design feature of Trilinos is its focus on packages.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "16c1x66kqmc5ldqjij81kypj471fibfihcqn6kz4wbxvnn0smyn6")))) (base32 "1gr1qhxvl4856hnmnx46dqd2qp0jhdh959zm2qfmxzzh19np7xkm"))))
(native-inputs (native-inputs
(list autoconf (list autoconf
automake automake
+2 -2
View File
@@ -290,7 +290,7 @@ based upon the Common Locale Data Repository (CLDR).")
(package (package
(inherit elixir-ex-cldr-minimal) (inherit elixir-ex-cldr-minimal)
(name "elixir-ex-cldr") (name "elixir-ex-cldr")
(version "2.47.2") (version "2.43.2")
(source (source
(origin (origin
;; The hex.pm package ships only the en locale. ;; The hex.pm package ships only the en locale.
@@ -300,7 +300,7 @@ based upon the Common Locale Data Repository (CLDR).")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1rivy61aq0c9zfklm4bpvvkj7lzjgy316rwxl8qz92xqp6xa292y")))) (base32 "1wgwp74ya0gkvd5pk4qv9s38p85r5yw370y4wv7jywy3hrbrj9f5"))))
(arguments (arguments
(list (list
#:phases #:phases
+1 -11
View File
@@ -303,17 +303,7 @@ purposes. Its goal is to be as close as possible to
(list (list
#:test-flags #:test-flags
;; These tests require network access to badssl.com. ;; These tests require network access to badssl.com.
#~(list "--exclude" "network") #~(list "--exclude" "network")))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'make-reproducible
(lambda _
;; Buffer size has been increased in OTP 28+. For more info see:
;; https://github.com/erlang/otp/issues/9722#issuecomment-2808683303
(substitute* "test/httpoison_test.exs"
(("stream/20") "stream/100")
(("<= expected_length") "<= expected_length * 1.1")
((">= max_length") ">= max_length * 0.9")))))))
(native-inputs (native-inputs
(list erlang-cowboy (list erlang-cowboy
elixir-earmark elixir-earmark
+4 -2
View File
@@ -62,7 +62,7 @@ as bold, underscore or italic.")
(define-public emacs-buttercup (define-public emacs-buttercup
(package (package
(name "emacs-buttercup") (name "emacs-buttercup")
(version "1.40") (version "1.38")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -72,7 +72,9 @@ as bold, underscore or italic.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1b55cfh4wr40max2c42crvaa6wid7a83g28yximsin98i32q5f5r")))) "09n8skr5wi8bs7x81d5bi6z89dd8s1zi9a5f4r2qadaz69slncxq"))
(patches
(search-patches "emacs-buttercup-1.38-native-comp-spy-on-trampoline-scope.patch"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
(list (list
+382 -771
View File
File diff suppressed because it is too large Load Diff
+1 -2
View File
@@ -28,7 +28,6 @@
;;; Copyright © 2025 Nicolas Graves <ngraves@ngraves.fr> ;;; Copyright © 2025 Nicolas Graves <ngraves@ngraves.fr>
;;; Copyright © 2025 Jake Forster <jakecameron.forster@gmail.com> ;;; Copyright © 2025 Jake Forster <jakecameron.forster@gmail.com>
;;; Copyright © 2025 John Kehayias <john@guixotic.coop> ;;; Copyright © 2025 John Kehayias <john@guixotic.coop>
;;; Copyright © 2026 Daniel Littlewood <dan@danielittlewood.xyz>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@@ -870,7 +869,7 @@ Started in 2014 as a GSOC project, Guile-Emacs was resurrected in 2024.")
"0vfw7z9i2s9np6nmx1d4dlsywm044rkaqarn7akffmb6bf1j6zv5")))) "0vfw7z9i2s9np6nmx1d4dlsywm044rkaqarn7akffmb6bf1j6zv5"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(list gettext-minimal)) `(("gettext" ,gettext-minimal)))
(arguments (arguments
`(#:configure-flags `(#:configure-flags
(list (string-append "--with-charmaps=" (list (string-append "--with-charmaps="
+10 -13
View File
@@ -1264,8 +1264,7 @@ Enjoy all of your favorite Atari 2600 games on your PC thanks to Stella!")
(base32 "1xf15b6c3i0vv92b420a92pfvfaxhji56ivin8pn5r7fajkqyfb7")))) (base32 "1xf15b6c3i0vv92b420a92pfvfaxhji56ivin8pn5r7fajkqyfb7"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(cons* pkg-config which (list pkg-config nasm which))
(maybe-nasm)))
(inputs (inputs
(list freetype (list freetype
glu glu
@@ -1290,6 +1289,8 @@ Enjoy all of your favorite Atari 2600 games on your PC thanks to Stella!")
(list "all" (string-append "PREFIX=" out))) (list "all" (string-append "PREFIX=" out)))
;; There are no tests. ;; There are no tests.
#:tests? #f)) #:tests? #f))
;; As per the Makefile (in projects/unix/Makefile):
(supported-systems '("i686-linux" "x86_64-linux"))
(home-page "https://www.mupen64plus.org/") (home-page "https://www.mupen64plus.org/")
(synopsis "Nintendo 64 emulator core library") (synopsis "Nintendo 64 emulator core library")
(description (description
@@ -2163,9 +2164,7 @@ as RetroArch.")
(lambda _ (lambda _
(install-file "mupen64plus_next_libretro.so" (install-file "mupen64plus_next_libretro.so"
(string-append #$output "/lib/libretro/"))))))) (string-append #$output "/lib/libretro/")))))))
(native-inputs (native-inputs (list nasm pkg-config))
(cons* pkg-config
(maybe-nasm)))
(inputs (list mesa libpng minizip unzip xxhash zlib)) (inputs (list mesa libpng minizip unzip xxhash zlib))
(home-page "https://github.com/libretro/mupen64plus-libretro-nx") (home-page "https://github.com/libretro/mupen64plus-libretro-nx")
(synopsis "Improved Mupen64Plus libretro core") (synopsis "Improved Mupen64Plus libretro core")
@@ -3453,7 +3452,7 @@ This is a part of the TiLP project.")
(define-public mame (define-public mame
(package (package
(name "mame") (name "mame")
(version "0.287") (version "0.252")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -3462,16 +3461,16 @@ This is a part of the TiLP project.")
(commit (apply string-append "mame" (string-split version #\.))))) (commit (apply string-append "mame" (string-split version #\.)))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1p9v71gvaqiyj6sa1b0wkdksa9wnr6yr2a43ckycljjfas5s36kq")) (base32 "07qhcm1v47sy2wj30nx3cbhvcbgki0cl83gabr0miiw60fhgyn6j"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
;; Remove bundled libraries. ;; Remove bundled libraries.
'(begin '(begin
(with-directory-excursion "3rdparty" (with-directory-excursion "3rdparty"
(for-each delete-file-recursively (for-each delete-file-recursively
'("asio" "expat" "glm" "flac" "libjpeg" "lua" '("asio" "expat" "glm" "libflac" "libjpeg" "lua"
"portaudio" "portmidi" "pugixml" "rapidjson" "portaudio" "portmidi" "pugixml" "rapidjson" "SDL2"
"sqlite3" "utf8proc" "zlib"))))))) "SDL2-override" "sqlite3" "utf8proc" "zlib")))))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list (list
@@ -3605,9 +3604,7 @@ This is a part of the TiLP project.")
libjpeg-turbo libjpeg-turbo
libxi libxi
libxinerama libxinerama
;; MAME requires Lua compiled as C++ to work correctly. lua
;; See https://www.mamedev.org/?p=523
lua-5.4-for-c++
portaudio portaudio
portmidi portmidi
pugixml pugixml
+3 -3
View File
@@ -50,7 +50,7 @@
(define-public erlang (define-public erlang
(package (package
(name "erlang") (name "erlang")
(version "28.4.3") (version "27.3.4.6")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
;; The tarball from http://erlang.org/download contains many ;; The tarball from http://erlang.org/download contains many
@@ -62,7 +62,7 @@
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1dsdmp2rccc0rhzy2w8r4amxmc6nr9hbi053j2s0bg9db30b48rc")) "0dhz2c7w28ss0ypj7jh88pfs3kc8hbwiiq91in1j2miy5sn4cp3x"))
(patches (search-patches "erlang-man-path.patch")))) (patches (search-patches "erlang-man-path.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
@@ -75,7 +75,7 @@
"/OTP-" version "/otp_doc_man_" version ".tar.gz")) "/OTP-" version "/otp_doc_man_" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1g17wzv8j12g9272yvv55nj4wqs09hxkv3i0vnp7d6gcs24bmphi")))))) "1j1fcli7ma9vi4qyv67lq7yiznhpnfvcmh57bn8qxvha6ky2pngm"))))))
(inputs (inputs
(list ncurses openssl wxwidgets)) (list ncurses openssl wxwidgets))
(propagated-inputs (propagated-inputs
-1
View File
@@ -220,7 +220,6 @@ testing InfiniBand networks.")
"--disable-assertions" "--disable-assertions"
"--disable-params-check" "--disable-params-check"
"--enable-mt"
(string-append "--with-verbs=" (string-append "--with-verbs="
#$(this-package-input "rdma-core")) #$(this-package-input "rdma-core"))
+2 -2
View File
@@ -1128,8 +1128,8 @@ transaction log.
(inherit jfsutils) (inherit jfsutils)
(name "jfsutils-static") (name "jfsutils-static")
(inputs (inputs
(modify-inputs inputs `(("util-linux:static" ,util-linux "static")
(prepend (list util-linux "static"))))))) ,@(package-inputs jfsutils))))))
(define-public jfs_fsck/static (define-public jfs_fsck/static
(package (package
+5 -3
View File
@@ -165,7 +165,7 @@
;; <https://bitcoincore.org/en/lifecycle/#schedule>. ;; <https://bitcoincore.org/en/lifecycle/#schedule>.
(package (package
(name "bitcoin-core") (name "bitcoin-core")
(version "31.0") (version "30.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (uri
@@ -173,7 +173,7 @@
version "/bitcoin-" version ".tar.gz")) version "/bitcoin-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1qxkcyq8nwq6sw4qi660z8n8356mqdsf4jvpq5ndkvrsx9gfz80b")))) "1jw4djh22v0nih0n7irdbknfbqavlc4l3b8176b5qgc88a60pl3g"))))
(build-system qt-build-system) (build-system qt-build-system)
(arguments (arguments
(list #:qtbase qtbase (list #:qtbase qtbase
@@ -197,7 +197,9 @@
"python3" "./test/functional/test_runner.py" "--timeout-factor=2" "python3" "./test/functional/test_runner.py" "--timeout-factor=2"
(string-append "--jobs=" (number->string (parallel-job-count))))))))) (string-append "--jobs=" (number->string (parallel-job-count)))))))))
(native-inputs (native-inputs
(list pkg-config (list bash ; provides the sh command for system_tests
coreutils ; provides the cat, echo and false commands for system_tests
pkg-config
python ; for the tests python ; for the tests
python-pyzmq ; for the tests python-pyzmq ; for the tests
qttools)) qttools))
+1 -1
View File
@@ -1159,10 +1159,10 @@ Executables included are:
(native-inputs (native-inputs
(append (append
(list acpica (list acpica
nasm
perl perl
python-3 python-3
(list util-linux "lib")) (list util-linux "lib"))
(maybe-nasm (string-append arch "-" arch))
(if (not (string-prefix? arch (%current-system))) (if (not (string-prefix? arch (%current-system)))
(if (string=? arch "armhf") (if (string=? arch "armhf")
(list (cross-gcc "arm-linux-gnueabihf") (list (cross-gcc "arm-linux-gnueabihf")
+40
View File
@@ -4658,6 +4658,46 @@ is a stylish type with a polished yet relaxed feel. Its versatility makes it
suitable for a wide range of uses.") suitable for a wide range of uses.")
(license license:silofl1.1)))) (license license:silofl1.1))))
(define-public font-cozette
(package
(name "font-cozette")
(version "1.13.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/slavfox/Cozette")
(commit (string-append "v." version))))
(file-name (git-file-name name version))
(sha256
(base32
"178i812n4sfsvid7jhnm683jlxqmrv4ck6qbb4nwyllhwg3gyq60"))))
(build-system font-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'dont-depend-on-git
(lambda _
(substitute* "build.py"
;; Merely importing this module requires a git repository.
;; We don't use get_changelog, so just disable the import.
(("from cozette_builder\\.changeloggen import get_changelog")
""))))
(add-before 'install 'build
(lambda _
(invoke "python3" "build.py" "fonts"))))))
(native-inputs
(list fontforge
python
python-crayons
python-fonttools
python-numpy
python-pillow))
(home-page "https://github.com/slavfox/Cozette")
(synopsis "Bitmap programming font")
(description "Cozette is a 6x13px (bounding box) bitmap font based on Dina
and heavily inspired by Creep.")
(license license:expat)))
(define-public font-montserrat (define-public font-montserrat
(package (package
(name "font-montserrat") (name "font-montserrat")
+43 -44
View File
@@ -43,7 +43,6 @@
;;; Copyright © 2024 Janneke Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2025 wvlab <me@wvlab.xyz> ;;; Copyright © 2025 wvlab <me@wvlab.xyz>
;;; Copyright © 2025 jgart <jgart@dismail.de> ;;; Copyright © 2025 jgart <jgart@dismail.de>
;;; Copyright © 2026 Daniel Littlewood <dan@danielittlewood.xyz>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@@ -3054,10 +3053,10 @@ useful with system integration.")
"0zs4z7l9b57jldwz0ban77f3c2zq43ambd0dssf5qg9i216f9lmj")))) "0zs4z7l9b57jldwz0ban77f3c2zq43ambd0dssf5qg9i216f9lmj"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(list dbus-test-runner `(("dbus-test-runner" ,dbus-test-runner)
(list glib "bin") ("glib:bin" ,glib "bin")
pkg-config ("pkg-config" ,pkg-config)
xorg-server-for-tests)) ("xvfb" ,xorg-server-for-tests)))
(inputs (inputs
(list gtk+ glib)) (list gtk+ glib))
(arguments (arguments
@@ -3418,50 +3417,50 @@ interfaces.")
(define-public xdg-desktop-portal-wlr (define-public xdg-desktop-portal-wlr
(package (package
(name "xdg-desktop-portal-wlr") (name "xdg-desktop-portal-wlr")
(version "0.8.2") (version "0.7.1")
(source (source (origin
(origin (method git-fetch)
(method git-fetch) (uri (git-reference
(uri (git-reference (url "https://github.com/emersion/xdg-desktop-portal-wlr")
(url "https://github.com/emersion/xdg-desktop-portal-wlr") (commit (string-append "v" version))))
(commit (string-append "v" version)))) (file-name (git-file-name name version))
(file-name (git-file-name name version)) (sha256
(sha256 (base32
(base32 "1jj0a9s3h3i04qsxkhcpxjzbb17hs9ngdy7wkypja09233zdz10w")) "1mbq3czka9swwmfaasnaj89y2m254p3qa522ayclh688jdwh70hq"))
(patches (search-patches "xdg-desktop-portal-wlr-harcoded-length.patch")))) (patches (search-patches "xdg-desktop-portal-wlr-harcoded-length.patch"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
(list `(#:configure-flags
#:configure-flags '("-Dsystemd=disabled"
#~(list "-Dsystemd=disabled" "-Dsd-bus-provider=libelogind")
"-Dsd-bus-provider=libelogind") #:phases
#:phases (modify-phases %standard-phases
#~(modify-phases %standard-phases (add-after 'unpack 'hardcode-binaries
(add-after 'unpack 'hardcode-binaries (lambda* (#:key inputs #:allow-other-keys)
(lambda* (#:key inputs #:allow-other-keys) (let ((sh (search-input-file inputs "/bin/sh"))
(let ((sh (search-input-file inputs "/bin/sh")) (grim (search-input-file inputs "/bin/grim"))
(grim (search-input-file inputs "/bin/grim")) (slurp (search-input-file inputs "/bin/slurp")))
(slurp (search-input-file inputs "/bin/slurp"))) (substitute* "src/screenshot/screenshot.c"
(substitute* '("src/screencast/chooser.c" (("grim") grim)
"src/screenshot/screenshot.c") (("slurp") slurp)
(("grim") grim) (("execl\\(\"/bin/sh\", \"/bin/sh\"")
(("slurp") slurp) (string-append "execl(\"" sh "\", \"" sh "\"")))
(("/bin/sh") sh)) (substitute* "src/screencast/screencast.c"
(substitute* "src/screencast/screencast.c" (("execvp\\(\"sh")
(("execvp\\(\"sh") (string-append "execvp(\"" sh))))))
(format #f "execvp(\"~a" sh)))))) (add-after 'install 'install-documentation
(add-after 'install 'install-documentation (lambda* (#:key outputs #:allow-other-keys)
(lambda _ (install-file "../source/README.md"
(install-file "../source/README.md" (string-append (assoc-ref outputs "out")
(string-append #$output "/share/doc/" "/share/doc/" ,name)))))))
#$name))))))) (native-inputs
(native-inputs (list cmake-minimal pkg-config scdoc)) (list cmake-minimal pkg-config))
(inputs (list bash-minimal (inputs (list elogind
elogind bash-minimal
grim grim
iniparser iniparser
libinih
mesa mesa
libinih
pipewire pipewire
slurp slurp
wayland wayland
+35 -55
View File
@@ -552,14 +552,14 @@ use with @code{udev-service-type}.")
(define-public armagetronad (define-public armagetronad
(package (package
(name "armagetronad") (name "armagetronad")
(version "0.2.9.3.0") (version "0.2.9.2.3")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://sourceforge/armagetronad/stable/" (uri (string-append "mirror://sourceforge/armagetronad/stable/"
version "/armagetronad-" version ".tbz")) version "/armagetronad-" version ".tbz"))
(sha256 (sha256
(base32 (base32
"1q1zlbhbcimr6bw0ms1pr8hz4q850ivi3hvxn3467jfgiq22f3cy")))) "0a6rlp2lj5bp7pg1yf8brjyb3mw7nqp3amj19wvz3xni21bbc31k"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list #:configure-flags (list #:configure-flags
@@ -576,7 +576,6 @@ use with @code{udev-service-type}.")
(("^install_link .*BINDIR.*") ""))))))) (("^install_link .*BINDIR.*") "")))))))
(native-inputs (list pkg-config)) (native-inputs (list pkg-config))
(inputs (list libxml2 (inputs (list libxml2
curl
(sdl-union (list sdl sdl-image sdl-mixer)) (sdl-union (list sdl sdl-image sdl-mixer))
freeglut freeglut
libpng libpng
@@ -3408,8 +3407,7 @@ and defeat them with your bubbles!")
"SamTSE/Sources/Engine/Engine.cpp") "SamTSE/Sources/Engine/Engine.cpp")
(("@OUTPUT_DIR@") #$output))))))) (("@OUTPUT_DIR@") #$output)))))))
(inputs (list sdl2 libvorbis)) (inputs (list sdl2 libvorbis))
(native-inputs (cons* flex bison imagemagick (native-inputs (list flex bison nasm imagemagick))
(maybe-nasm)))
(home-page "https://github.com/tx00100xt/SeriousSamClassic") (home-page "https://github.com/tx00100xt/SeriousSamClassic")
(synopsis "SeriousSam engine and Serious Sam: TFE and TSE") (synopsis "SeriousSam engine and Serious Sam: TFE and TSE")
(description (description
@@ -4130,7 +4128,7 @@ a C library, so they can easily be integrated into other programs.")
(define-public taisei (define-public taisei
(package (package
(name "taisei") (name "taisei")
(version "1.4.4") (version "1.4.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@@ -4138,7 +4136,7 @@ a C library, so they can easily be integrated into other programs.")
"taisei/releases/download/v" version "taisei/releases/download/v" version
"/taisei-" version ".tar.xz")) "/taisei-" version ".tar.xz"))
(sha256 (sha256
(base32 "13b2ha8nsdzbydirvc7hw1q46jzhn6cx9b9spgk777swjlgx2vph")))) (base32 "19sgm175clkvpcv0b9p4jkjpfxqw0kyl2i5p8w63kwzqcjp9m1jx"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
(list (list
@@ -4147,8 +4145,7 @@ a C library, so they can easily be integrated into other programs.")
"-Dr_gles30=enabled" "-Dr_gles30=enabled"
"-Dshader_transpiler=enabled"))) "-Dshader_transpiler=enabled")))
(native-inputs (native-inputs
(list cmake-minimal (list pkg-config
pkg-config
python python
python-docutils python-docutils
python-pygments python-pygments
@@ -4156,29 +4153,24 @@ a C library, so they can easily be integrated into other programs.")
(inputs (inputs
(list cglm (list cglm
freetype freetype
glslang
libdecor ; XXX: for sdl3
libpng libpng
libwebp libwebp
libzip libzip
mesa mesa
openssl openssl
opusfile opusfile
sdl3 sdl2
sdl2-mixer
shaderc shaderc
spirv-cross spirv-cross
spirv-tools ; for glslang
vulkan-loader ; XXX: for sdl3?
zlib zlib
(list zstd "lib"))) (list zstd "lib")))
(home-page "https://taisei-project.org/") (home-page "https://taisei-project.org/")
(synopsis "Shoot'em up fangame and libre clone of Touhou Project") (synopsis "Shoot'em up fangame and libre clone of Touhou Project")
(description (description
"Taisei is a vertical shoot'em up game, in which the player controls "The player controls a character (one of three: Good, Bad, and Dead),
one of three characters. While moving through stages, a large number of dodges the missiles (lots of it cover the screen, but the character's hitbox
enemies and even larger amounts of bullets appear that require careful is very small), and shoot at the adversaries that keep appear on the screen.")
maneuvers to dodge. By shooting the enemies, players receive powerups
for their characters, allowing them to shoot even more.")
(license (list (license (list
;; game ;; game
license:expat license:expat
@@ -4731,10 +4723,6 @@ for common mesh file formats, and collision detection.")
(url "https://github.com/thelaui/M.A.R.S.") (url "https://github.com/thelaui/M.A.R.S.")
(commit commit))) (commit commit)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(modules '((guix build utils)))
(snippet
#~(begin
(delete-file-recursively "ext_libs_for_windows")))
(sha256 (sha256
(base32 (base32
"0bdi4ja39rark742qvqixm8khai5k8qd84z5kzim9jcjdvvwyqj9")))) "0bdi4ja39rark742qvqixm8khai5k8qd84z5kzim9jcjdvvwyqj9"))))
@@ -4761,8 +4749,7 @@ for common mesh file formats, and collision detection.")
attractive physics. Players can battle each other or computer controlled attractive physics. Players can battle each other or computer controlled
enemies in different game modes such as space ball, death match, team death enemies in different game modes such as space ball, death match, team death
match, cannon keep, and grave-itation pit.") match, cannon keep, and grave-itation pit.")
(license (list license:gpl3+ (license license:gpl3+))))
license:cc-by-sa3.0))))) ;/data/audio/music
(define-public alienblaster (define-public alienblaster
(package (package
@@ -5357,9 +5344,7 @@ also available.")
(with-directory-excursion "src" (with-directory-excursion "src"
(substitute* "CMakeLists.txt" (substitute* "CMakeLists.txt"
(("glm::glm") (("glm::glm")
"glm"))) "glm")))))))
;; Rename the icon to match with the executable file.
(rename-file "srb2.png" "ringracers.png")))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
(list (list
@@ -5369,30 +5354,15 @@ also available.")
"-DCMAKE_CXX_FLAGS_RELWITHDEBINFO='-O3 -g -DNDEBUG'") "-DCMAKE_CXX_FLAGS_RELWITHDEBINFO='-O3 -g -DNDEBUG'")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(replace 'install (add-after 'install 'move-and-wrap-binary
(lambda _
(install-file "bin/ringracers" (string-append #$output "/bin"))
(install-file "../source/ringracers.png"
(string-append #$output "/share/pixmaps"))))
(add-after 'install 'wrap-program
;; Install executable to $out/bin. ;; Install executable to $out/bin.
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(wrap-program "bin/ringracers" (with-directory-excursion #$output
`("RINGRACERSWADDIR" = (mkdir "bin")
(,(assoc-ref inputs "ring-racers-data")))))) (rename-file "ringracers" "bin/ringracers")
(add-after 'wrap-program 'create-desktop-entry (wrap-program "bin/ringracers"
(lambda _ `("RINGRACERSWADDIR" =
(let* ((datadir (string-append #$output "/share")) (,(assoc-ref inputs "ring-racers-data"))))))))))
(appdir (string-append datadir "/applications")))
(mkdir-p appdir)
(make-desktop-entry-file (string-append appdir
"/ringracers.desktop")
#:name "Dr. Robotnik's Ring Racers"
#:comment "Technical kart racing game"
#:icon "ringracers"
#:exec (string-append #$output "/bin/ringracers")
#:startup-notify #f
#:categories '("Application" "Game"))))))))
(native-inputs (list pkg-config)) (native-inputs (list pkg-config))
(inputs (list glm (inputs (list glm
libogg libogg
@@ -5564,13 +5534,23 @@ falling, themeable graphics and sounds, and replays.")
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
(list #:tests? #f ;no test target (list #:tests? #f ;no test target
#:configure-flags #~'("-DENABLE_SYSTEM_LUA=ON"))) #:configure-flags #~'("-DENABLE_SYSTEM_LUA=ON")
#:phases
#~(modify-phases %standard-phases
(add-before 'configure 'pre-configure
(lambda _
;; XXX: Our Lua doesn't have a C++ library, force C linkage.
(substitute* '("src/lua/wrapper_lua.h"
"src/lua/wrapper_lualib.h"
"src/lua/wrapper_lauxlib.h")
(("#include \"(lua|lualib|lauxlib)\\.h\"")
"#include \"lua.hpp\"")))))))
(inputs (inputs
(list boost-1.83 (list boost-1.83
curl curl
dbus dbus
libvorbis libvorbis
lua-5.4-for-c++ lua-5.4
openssl openssl
pango pango
sdl2 sdl2
@@ -5957,7 +5937,7 @@ Transport Tycoon Deluxe.")
(add-after 'unpack 'patch-sources (add-after 'unpack 'patch-sources
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/music/fluidsynth.cpp" (substitute* "src/music/fluidsynth.cpp"
(("_default_soundfonts\\[\\] = \\{" all) (("default_sf\\[\\] = \\{" all)
(string-append all " (string-append all "
\t/* Guix hardcoded :P */ \t/* Guix hardcoded :P */
\t\"" (search-input-file inputs "/share/soundfonts/FreePatsGM.sf2") "\", \t\"" (search-input-file inputs "/share/soundfonts/FreePatsGM.sf2") "\",
@@ -5984,7 +5964,7 @@ Transport Tycoon Deluxe.")
(package (package
(inherit openttd) (inherit openttd)
(name "openttd-jgrpp") (name "openttd-jgrpp")
(version "0.71.2") (version "0.70.2")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -5993,7 +5973,7 @@ Transport Tycoon Deluxe.")
(commit (string-append "jgrpp-" version)))) (commit (string-append "jgrpp-" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1gb5gickmf1d1wkzqny5ryapvw32a2g94f77iq0102xhyyw8g8s0")))) (base32 "1jzzvribf2cqvjl9cympyx9qpplljvmhqrrlw7aq4ckzl92d87z3"))))
(inputs (modify-inputs inputs (inputs (modify-inputs inputs
(append zstd harfbuzz))) (append zstd harfbuzz)))
(arguments (arguments
+14 -82
View File
@@ -425,29 +425,14 @@ hierarchical hexagonal geospatial indexing system")
(base32 (base32
"00qdk9a4048pzfj2rhzkfw3lvm642znf6kr4x29i3d94494pxsnn")))) "00qdk9a4048pzfj2rhzkfw3lvm642znf6kr4x29i3d94494pxsnn"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments `(#:phases
`(#:phases (modify-phases %standard-phases
(modify-phases %standard-phases (add-after
,@(if (or (target-x86-32?) (target-arm32?)) 'unpack 'patch-test-shebangs
'((add-after 'unpack 'disable-broken-tests (lambda _
(lambda _ (substitute* '("tests/xmltester/testrunner.sh"
;; This test fails due to limited accuracy. "tests/xmltester/safe_to_xml.sh")
(delete-file "tests/xmltester/tests/general/TestCentroid.xml") (("/bin/sh") (which "sh"))))))))
(with-directory-excursion "tests/unit"
;; These also fail due to limited accuracy.
(delete-file "algorithm/MinimumAreaRectangleTest.cpp")
(delete-file "capi/GEOSMinimumRotatedRectangleTest.cpp")
;; It is unclear why these fail, but I'm guessing:
;; limited accuracy.
(delete-file "linearref/LengthIndexedLineTest.cpp")
(delete-file "math/DDTest.cpp")))))
'())
(add-after
'unpack 'patch-test-shebangs
(lambda _
(substitute* '("tests/xmltester/testrunner.sh"
"tests/xmltester/safe_to_xml.sh")
(("/bin/sh") (which "sh"))))))))
(inputs (inputs
(list glib)) (list glib))
(home-page "https://libgeos.org/") (home-page "https://libgeos.org/")
@@ -970,29 +955,6 @@ hydrology and waste deposition.")
(base32 (base32
"03r6mspfv22fs4x4jcgv25v9gsj5k6zy8incvyf94qf50g47s2bc")))) "03r6mspfv22fs4x4jcgv25v9gsj5k6zy8incvyf94qf50g47s2bc"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments
(if (target-32bit?)
(list
#:phases
'(modify-phases %standard-phases
(add-after 'unpack 'patch-tests
(lambda _
;; These regression tests fail due to accuracy problems.
(substitute* "test/unit/test_factory.cpp"
(("^TEST\\(factory, AuthorityFactory_createUnitOfMeasure_linear_us_survey_foot\\) \\{" m)
(string-append m "\nGTEST_SKIP();\n")))
(substitute* "test/unit/test_grids.cpp"
(("^TEST_F\\(GridTest, VerticalShiftGridSet_gtx\\) \\{" m)
(string-append m "\nGTEST_SKIP();\n")))
(substitute* "test/unit/test_defmodel.cpp"
(("^TEST\\(defmodel, evaluator_horizontal_unit_metre\\) \\{" m)
(string-append m "\nGTEST_SKIP();\n")))
;; These regression tests fail due to accuracy problems.
(substitute* "test/CMakeLists.txt"
(("proj_add_gie_test\\(\"4D-API-cs2cs-style\".+") "")
(("proj_add_gie_test\\(\"Builtins\".+") "")
(("proj_add_gie_test\\(\"peirce_q\".+") ""))))))
'()))
(native-inputs (list googletest pkg-config)) (native-inputs (list googletest pkg-config))
(propagated-inputs (list curl libtiff sqlite)) ;required by proj.pc (propagated-inputs (list curl libtiff sqlite)) ;required by proj.pc
(home-page "https://proj.org/") (home-page "https://proj.org/")
@@ -1022,34 +984,7 @@ lets developers use the functionality of Proj in their own software.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1g0hkpiablvhsmw0kn5frwgdir3q7avc45p6lc1zhhhzkv5ikydh")))) "1g0hkpiablvhsmw0kn5frwgdir3q7avc45p6lc1zhhhzkv5ikydh"))))))
(arguments
(if (target-32bit?)
(list
#:phases
'(modify-phases %standard-phases
(add-after 'unpack 'patch-tests
(lambda _
;; These regression tests fail due to accuracy problems.
(substitute* "test/unit/test_factory.cpp"
(("^TEST\\(factory, AuthorityFactory_createUnitOfMeasure_linear_us_survey_foot\\) \\{" m)
(string-append m "\nGTEST_SKIP();\n")))
(substitute* "test/unit/test_grids.cpp"
(("^TEST_F\\(GridTest, VerticalShiftGridSet_gtx\\) \\{" m)
(string-append m "\nGTEST_SKIP();\n")))
(substitute* "test/unit/test_defmodel.cpp"
(("^TEST\\(defmodel, evaluator_horizontal_unit_metre\\) \\{" m)
(string-append m "\nGTEST_SKIP();\n")))
;; These regression tests fail due to accuracy problems.
(substitute* "test/CMakeLists.txt"
(("proj_add_gie_test\\(\"4D-API-cs2cs-style\".+") "")
(("proj_add_gie_test\\(\"Builtins\".+") "")
(("proj_add_gie_test\\(\"peirce_q\".+") "")
(("proj_add_gie_test\\(\"adams_ws2\".+") ""))
(substitute* "test/cli/CMakeLists.txt"
(("proj_add_test_script_sh\\(\"testvarious\" CS2CS_BIN\\)") ""))))))
'()))))
(define-public python-obspy (define-public python-obspy
(package (package
@@ -1284,23 +1219,20 @@ readily with other Python GIS packages such as pyproj, Rtree, and Shapely.")
(define-public python-geopack (define-public python-geopack
(package (package
(name "python-geopack") (name "python-geopack")
(version "1.0.12") (version "1.0.10")
(source (source
(origin (origin
(method git-fetch) (method url-fetch)
(uri (git-reference (uri (pypi-uri "geopack" version))
(url "https://github.com/tsssss/geopack")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256 (sha256
(base32 "0ap5j4359xxjkbz06y097yq5d37sxcwlnlsfwrv6dvza7ydmgcgg")))) (base32 "0mryjp7m4h99qlpvnn40s81sygr73qcv8rkmjp9pcli1gz829kjf"))))
(build-system pyproject-build-system) (build-system pyproject-build-system)
(arguments (arguments
(list (list
;; XXX Reported upstream <https://github.com/tsssss/geopack/issues/21>. ;; XXX Reported upstream <https://github.com/tsssss/geopack/issues/21>.
#:tests? #f)) #:tests? #f))
(native-inputs (native-inputs
(list python-setuptools)) (list python-pytest python-setuptools python-wheel))
(propagated-inputs (propagated-inputs
(list python-numpy python-scipy)) (list python-numpy python-scipy))
(home-page "https://github.com/tsssss/geopack") (home-page "https://github.com/tsssss/geopack")
+43 -4
View File
@@ -1,4 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@@ -16,8 +19,44 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages gkrellm) (define-module (gnu packages gkrellm)
#:use-module (gnu packages monitoring) #:use-module (guix build-system gnu)
#:use-module (guix deprecation)) #:use-module (guix download)
#:use-module (guix gexp)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (gnu packages gettext)
#:use-module (gnu packages gtk)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages xorg))
(define-deprecated/public-alias gkrellm (define-public gkrellm
(@ (guix packages monitoring) gkrellm)) (package
(name "gkrellm")
(version "2.5.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://gkrellm.srcbox.net/releases/gkrellm-"
version ".tar.bz2"))
(sha256
(base32 "0qvy2xmwmfy5f0g09yn9lr262shnx82ba04r5il2wj4qscg3r7h8"))))
(build-system gnu-build-system)
(inputs (list gtk+-2 libsm))
(native-inputs (list gettext-minimal pkg-config))
(arguments
(list
#:tests? #f ;there is no check target
#:phases
#~(modify-phases %standard-phases
(delete 'configure)) ;no configure script
#:make-flags
#~(list (string-append "INSTALLROOT=" #$output)
(string-append "CC=" #$(cc-for-target)))))
(home-page "https://gkrellm.srcbox.net/")
(synopsis "System monitors")
(description
"GKrellM is a single process stack of system monitors which supports
applying themes to match its appearance to your window manager, Gtk, or any
other theme.")
(license license:gpl3+)))
+5 -5
View File
@@ -10674,7 +10674,6 @@ playing media, scanning, and much more.")
system-config-printer system-config-printer
xdg-desktop-portal xdg-desktop-portal
xdg-user-dirs xdg-user-dirs
xdg-user-dirs-gtk
yelp yelp
zenity)) zenity))
(description "This package provides a list of packages required for (description "This package provides a list of packages required for
@@ -11576,8 +11575,7 @@ accessibility infrastructure.")
name "-" version ".tar.xz")) name "-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"0sfs06f66dsibvnp87jshhs7n3f8shkn9x7j3ygpk8409za2n2xy")) "0sfs06f66dsibvnp87jshhs7n3f8shkn9x7j3ygpk8409za2n2xy"))))
(patches (search-patches "orca-fix-gst-init-check-call.patch"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
'(#:glib-or-gtk? #t '(#:glib-or-gtk? #t
@@ -11595,7 +11593,10 @@ accessibility infrastructure.")
(pgrep (string-append (pgrep (string-append
(assoc-ref inputs "procps") "/bin/pgrep"))) (assoc-ref inputs "procps") "/bin/pgrep")))
(substitute* "src/orca/orca_modifier_manager.py" (substitute* "src/orca/orca_modifier_manager.py"
(("\"xkbcomp\"") (format #f "'~a'" xkbcomp))) (("'xkbcomp'") (format #f "'~a'" xkbcomp)))
(substitute* "src/orca/debug.py"
(("'pgrep %s'")
(format #f "'~a %s'" pgrep)))
(substitute* "src/orca/orca_bin.py.in" (substitute* "src/orca/orca_bin.py.in"
(("'pgrep -u %s -x orca'") (("'pgrep -u %s -x orca'")
(format #f "'~a -u %s -x orca'" pgrep)))))) (format #f "'~a -u %s -x orca'" pgrep))))))
@@ -11626,7 +11627,6 @@ accessibility infrastructure.")
`(,liblouis "python") `(,liblouis "python")
procps ; for pgrep procps ; for pgrep
python python
python-dbus
python-pygobject-3.50 python-pygobject-3.50
python-pyatspi python-pyatspi
speech-dispatcher speech-dispatcher
+4 -3
View File
@@ -26,7 +26,6 @@
;;; Copyright © 2024 Zheng Junjie <873216071@qq.com> ;;; Copyright © 2024 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2025 Antoine Côté <antoine.cote@posteo.net> ;;; Copyright © 2025 Antoine Côté <antoine.cote@posteo.net>
;;; Copyright © 2026 Luis Guilherme Coelho <lgcoelho@disroot.org> ;;; Copyright © 2026 Luis Guilherme Coelho <lgcoelho@disroot.org>
;;; Copyright © 2026 Daniel Littlewood <dan@danielittlewood.xyz>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@@ -972,8 +971,10 @@ passphrase when @code{gpg} is run and needs it.")))
(lambda _ (lambda _
(invoke "sh" "autogen.sh")))))) (invoke "sh" "autogen.sh"))))))
(native-inputs (native-inputs
(modify-inputs native-inputs `(("autoconf" ,autoconf)
(prepend autoconf automake gettext-minimal))) ("automake" ,automake)
("gettext" ,gettext-minimal)
,@(package-native-inputs pinentry-tty)))
(inputs (inputs
(modify-inputs inputs (modify-inputs inputs
(prepend efl))) (prepend efl)))
+6 -166
View File
@@ -605,9 +605,9 @@ in the case of Firefox, it is browser/locales/all-locales."
"zh-TW")) "zh-TW"))
;;; Please keep these versions in sync with icedove. ;;; Please keep these versions in sync with icedove.
(define %icecat-base-version "140.10.1") (define %icecat-base-version "140.9.1")
(define %icecat-version (string-append %icecat-base-version "-gnu1")) (define %icecat-version (string-append %icecat-base-version "-gnu1"))
(define %icecat-build-id "20260428000000") ;must be of the form YYYYMMDDhhmmss (define %icecat-build-id "20260414000000") ;must be of the form YYYYMMDDhhmmss
;; 'icecat-source' is a "computed" origin that generates an IceCat tarball ;; 'icecat-source' is a "computed" origin that generates an IceCat tarball
;; from the corresponding upstream Firefox ESR tarball, using the 'makeicecat' ;; from the corresponding upstream Firefox ESR tarball, using the 'makeicecat'
@@ -627,9 +627,9 @@ in the case of Firefox, it is browser/locales/all-locales."
"firefox-" upstream-firefox-version ".source.tar.xz")) "firefox-" upstream-firefox-version ".source.tar.xz"))
(sha256 (sha256
(base32 (base32
"1fx52y52c3dmgr5gm64x40r2n6zq5ckqiqsd6vlhsly5wb1w0xaf")))) "1hld2kbzvrmr7pqq0r5hw639xl8kw29lm2hsbn0m4kxang1fdlj5"))))
(gnuzilla-commit "5162cbc74c483c361ad5709c767c5cb2395ff4f9") (gnuzilla-commit "f3595923458a5255f61a3853bd83bb5f004dc3bc")
(gnuzilla-source (gnuzilla-source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -640,7 +640,7 @@ in the case of Firefox, it is browser/locales/all-locales."
(string-take gnuzilla-commit 8))) (string-take gnuzilla-commit 8)))
(sha256 (sha256
(base32 (base32
"06qyirgjjgy7fwn7mbrz23wsdv9a88w70pz8qm1yszln74xxdsp0")))) "03kc08cvmdv3sxihf5hfhw2k91mg1y6f46b3x47p7q98phgk03cv"))))
;; 'search-patch' returns either a valid file name or #f, so wrap it ;; 'search-patch' returns either a valid file name or #f, so wrap it
;; in 'assume-valid-file-name' to avoid 'local-file' warnings. ;; in 'assume-valid-file-name' to avoid 'local-file' warnings.
@@ -1249,166 +1249,6 @@ testing.")
(cpe-name . "firefox_esr") (cpe-name . "firefox_esr")
(cpe-version . ,(first (string-split version #\-))))))) (cpe-version . ,(first (string-split version #\-)))))))
;;; TEMPORARY old version of icecat-source for use by icedove until it is updated.
(define %icecat-140.9.1-base-version "140.9.1")
(define %icecat-140.9.1-version (string-append %icecat-140.9.1-base-version "-gnu1"))
(define icecat-140.9.1-source
(let* ((major-version (first (string-split %icecat-140.9.1-base-version #\.)))
(minor-version (second (string-split %icecat-140.9.1-base-version #\.)))
(sub-version (third (string-split %icecat-140.9.1-base-version #\.)))
(upstream-firefox-version (string-append %icecat-140.9.1-base-version "esr"))
(upstream-firefox-source
(origin
(method url-fetch)
(uri (string-append
"https://ftp.mozilla.org/pub/firefox/releases/"
upstream-firefox-version "/source/"
"firefox-" upstream-firefox-version ".source.tar.xz"))
(sha256
(base32
"1hld2kbzvrmr7pqq0r5hw639xl8kw29lm2hsbn0m4kxang1fdlj5"))))
(gnuzilla-commit "f3595923458a5255f61a3853bd83bb5f004dc3bc")
(gnuzilla-source
(origin
(method git-fetch)
(uri (git-reference
(url "git://git.savannah.gnu.org/gnuzilla.git")
(commit gnuzilla-commit)))
(file-name (git-file-name "gnuzilla"
(string-take gnuzilla-commit 8)))
(sha256
(base32
"03kc08cvmdv3sxihf5hfhw2k91mg1y6f46b3x47p7q98phgk03cv"))))
;; 'search-patch' returns either a valid file name or #f, so wrap it
;; in 'assume-valid-file-name' to avoid 'local-file' warnings.
(makeicecat-patch
(local-file (assume-valid-file-name
(search-patch "icecat-makeicecat.patch")))))
(origin
(method computed-origin-method)
(file-name (string-append "icecat-" %icecat-140.9.1-version ".tar.zst"))
(sha256 #f)
(uri
(delay
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils))
(let ((firefox-dir
(string-append "firefox-" #$%icecat-140.9.1-base-version))
(icecat-dir
(string-append "icecat-" #$%icecat-140.9.1-version)))
(set-path-environment-variable
"PATH" '("bin")
(list #+python
#+(canonical-package bash)
#+(canonical-package coreutils)
#+(canonical-package findutils)
#+(canonical-package patch)
#+(canonical-package xz)
#+(canonical-package zstd)
#+(canonical-package sed)
#+(canonical-package grep)
#+(canonical-package bzip2)
#+(canonical-package gzip)
#+(canonical-package tar)))
(set-path-environment-variable
"PYTHONPATH"
(list #+(format #f "lib/python~a/site-packages"
(version-major+minor
(package-version python))))
'#+(cons python-jsonschema
(map second
(package-transitive-propagated-inputs
python-jsonschema))))
;; We copy the gnuzilla source directory because it is
;; read-only in 'gnuzilla-source', and the makeicecat script
;; uses "cp -a" to copy parts of it and assumes that the
;; copies will be writable.
(copy-recursively #+gnuzilla-source "/tmp/gnuzilla"
#:log (%make-void-port "w"))
(with-directory-excursion "/tmp/gnuzilla"
(make-file-writable "makeicecat")
(invoke "patch" "--force" "--no-backup-if-mismatch"
"-p1" "--input" #+makeicecat-patch)
(patch-shebang "makeicecat")
(substitute* "makeicecat"
(("^readonly FFMAJOR=(.*)" all ffmajor)
(unless (string=? #$major-version
(string-trim-both ffmajor))
;; The makeicecat script cannot be expected to work
;; properly on a different version of Firefox, even if
;; no errors occur during execution.
(error "makeicecat major version mismatch"))
(string-append "readonly FFMAJOR=" #$major-version "\n"))
(("^readonly FFMINOR=.*")
(string-append "readonly FFMINOR=" #$minor-version "\n"))
(("^readonly FFSUB=.*")
(string-append "readonly FFSUB=" #$sub-version "\n"))
(("^readonly DATADIR=.*")
"readonly DATADIR=/tmp/gnuzilla/data\n")
(("^readonly SOURCEDIR=.*")
(string-append "readonly SOURCEDIR=" icecat-dir "\n"))
(("/bin/sed")
#+(file-append (canonical-package sed) "/bin/sed"))))
(format #t "Unpacking upstream firefox tarball...~%")
(force-output)
(invoke "tar" "xf" #+upstream-firefox-source)
(rename-file firefox-dir icecat-dir)
(with-directory-excursion icecat-dir
(format #t "Populating l10n directory...~%")
(force-output)
(mkdir "l10n")
(with-directory-excursion "l10n"
(for-each
(lambda (locale)
(let ((locale-dir (string-append #+mozilla-l10n "/"
locale)))
(format #t " ~a~%" locale)
(force-output)
(copy-recursively locale-dir locale
#:log (%make-void-port "w"))
(for-each make-file-writable (find-files locale))
(with-directory-excursion locale
(mkdir-p "browser/chrome/browser/preferences")
(call-with-output-file "browser/chrome/browser/\
preferences/advanced-scripts.dtd"
(lambda (port) #f)))))
'#+%icecat-locales)
(copy-recursively #+mozilla-compare-locales
"compare-locales"
#:log (%make-void-port "w"))
(delete-file "compare-locales/.gitignore")))
(format #t "Running makeicecat script...~%")
(force-output)
(invoke "bash" "/tmp/gnuzilla/makeicecat")
(format #t "Packing IceCat source tarball...~%")
(force-output)
(setenv "ZSTD_NBTHREADS" (number->string (parallel-job-count)))
(invoke "tar" "cfa" #$output
;; Avoid non-determinism in the archive. We set the
;; mtime of files in the archive to early 1980 because
;; the build process fails if the mtime of source
;; files is pre-1980, due to the creation of zip
;; archives.
"--mtime=@315619200" ; 1980-01-02 UTC
"--owner=root:0"
"--group=root:0"
"--sort=name"
icecat-dir)))))))))
(define %icedove-build-id "20260403000000") ;must be of the form YYYYMMDDhhmmss (define %icedove-build-id "20260403000000") ;must be of the form YYYYMMDDhhmmss
;;; See <https://product-details.mozilla.org/1.0/thunderbird_versions.json> ;;; See <https://product-details.mozilla.org/1.0/thunderbird_versions.json>
;;; for the source of truth regarding Thunderbird releases. ;;; for the source of truth regarding Thunderbird releases.
@@ -1543,7 +1383,7 @@ preferences/advanced-scripts.dtd"
;; Extract the base Icecat tarball, renaming its top-level ;; Extract the base Icecat tarball, renaming its top-level
;; directory. ;; directory.
(invoke "tar" "--transform" (string-append "s,[^/]*," #$name ",") (invoke "tar" "--transform" (string-append "s,[^/]*," #$name ",")
"-xf" #$icecat-140.9.1-source) "-xf" #$icecat-source)
(chdir #$name) (chdir #$name)
;; Merge the Thunderdbird localization data. ;; Merge the Thunderdbird localization data.
-253
View File
@@ -245,55 +245,6 @@ go-fuzz-headers.")
@end itemize") @end itemize")
(license license:expat))) (license license:expat)))
(define-public go-github-com-alexkohler-prealloc
(package
(name "go-github-com-alexkohler-prealloc")
(version "1.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/alexkohler/prealloc")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "011i8yqzyjgwj17k44xvvg4bxfv8z20s0416r2d3yf4s3wqqygpq"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/alexkohler/prealloc"))
(home-page "https://github.com/alexkohler/prealloc")
(synopsis "Find slice declarations that could be preallocated")
(description
"This package is a Go static analysis tool to find slice declarations
that could potentially be preallocated.")
(license license:expat)))
(define-public go-github-com-alingse-asasalint
(package
(name "go-github-com-alingse-asasalint")
(version "0.0.11")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/alingse/asasalint")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1avz33cx3gcpps26rxijv7ic0njfmsdkbcp2mqg5yxhdcpq57s0q"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/alingse/asasalint"))
(propagated-inputs
(list go-golang-org-x-tools))
(home-page "https://github.com/alingse/asasalint")
(synopsis "Lint pass any slice as any in variadic function")
(description
"Golang linter, lint that pass any slice as any in variadic function.")
(license license:expat)))
(define-public go-github-com-andreyvit-diff (define-public go-github-com-andreyvit-diff
(package (package
(name "go-github-com-andreyvit-diff") (name "go-github-com-andreyvit-diff")
@@ -652,42 +603,6 @@ time functions.")
strings which may be used in mock tests.") strings which may be used in mock tests.")
(license license:unlicense))) (license license:unlicense)))
(define-public go-github-com-daixiang0-gci
(package
(name "go-github-com-daixiang0-gci")
(version "0.13.7")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/daixiang0/gci")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1vhnqisf6d706qvswccb0d7bkbl53lyi84f5sl3zyaf6yk8ml9dx"))))
(build-system go-build-system)
(arguments
(list
#:skip-build? #t
#:import-path "github.com/daixiang0/gci"))
(native-inputs
(list go-github-com-stretchr-testify
go-github-com-spf13-cobra))
(propagated-inputs
(list go-gopkg-in-yaml-v3
go-golang-org-x-tools
go-golang-org-x-sync
go-golang-org-x-mod
go-go-uber-org-zap
go-github-com-pmezard-go-difflib
go-github-com-hexops-gotextdiff))
(home-page "https://github.com/daixiang0/gci")
(synopsis "Tool to make Go import order deterministic")
(description
"This package provides a tool that controls Go package import order and
makes it always deterministic.")
(license license:bsd-3)))
(define-public go-github-com-data-dog-go-sqlmock (define-public go-github-com-data-dog-go-sqlmock
(package (package
(name "go-github-com-data-dog-go-sqlmock") (name "go-github-com-data-dog-go-sqlmock")
@@ -761,34 +676,6 @@ style).
@end itemize") @end itemize")
(license license:isc))) (license license:isc)))
(define-public go-github-com-denis-tingaikin-go-header
(package
(name "go-github-com-denis-tingaikin-go-header")
(version "1.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/denis-tingaikin/go-header")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0qzy2ps59dzsdn4ny8x48k9d1kscpddjilkxra1w16npsvix6mcm"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/denis-tingaikin/go-header"))
(native-inputs
(list go-github-com-stretchr-testify))
(propagated-inputs
(list go-golang-org-x-tools
go-gopkg-in-yaml-v3))
(home-page "https://github.com/denis-tingaikin/go-header")
(synopsis "Go linter for copyright headers")
(description
"Simple Go source code linter providing checks for copyright headers.")
(license license:gpl3)))
(define-public go-github-com-dgryski-go-ddmin (define-public go-github-com-dgryski-go-ddmin
(package (package
(name "go-github-com-dgryski-go-ddmin") (name "go-github-com-dgryski-go-ddmin")
@@ -998,31 +885,6 @@ can use the mock clock. This is a maintained fork of benbjohnson's
@url{https://github.com/benbjohnson/clock, clock} package.") @url{https://github.com/benbjohnson/clock, clock} package.")
(license license:expat))) (license license:expat)))
(define-public go-github-com-firefart-nonamedreturns
(package
(name "go-github-com-firefart-nonamedreturns")
(version "1.0.6")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/firefart/nonamedreturns")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1y9dz8rkd55p1rkib4y3b0czs44c2bb1pmlr4k53ms1k8d9bjgwk"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/firefart/nonamedreturns"))
(propagated-inputs
(list go-golang-org-x-tools))
(home-page "https://github.com/firefart/nonamedreturns")
(synopsis "Go linter to catch named returns")
(description
"This package provides a linter to find named returns in Go code.")
(license license:gpl3)))
;; XXX: The project looks like abandoned, see ;; XXX: The project looks like abandoned, see
;; <https://github.com/frankban/quicktest/issues/172>, remove when nothing ;; <https://github.com/frankban/quicktest/issues/172>, remove when nothing
;; depends on it. ;; depends on it.
@@ -1061,30 +923,6 @@ can use the mock clock. This is a maintained fork of benbjohnson's
tests.") tests.")
(license license:expat))) (license license:expat)))
(define-public go-github-com-fzipp-gocyclo
(package
(name "go-github-com-fzipp-gocyclo")
(version "0.6.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/fzipp/gocyclo")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1w2h8qlifrskn8g8zcwb6banr9si0vck9y8irg1r51mc98cjv36l"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/fzipp/gocyclo"))
(home-page "https://github.com/fzipp/gocyclo")
(synopsis "Calculate cyclomatic complexity in Go")
(description
"This package calculates the cyclomatic complexities of functions and
methods in Go source code.")
(license license:bsd-3)))
(define-public go-github-com-gdey-tbltest (define-public go-github-com-gdey-tbltest
(package (package
(name "go-github-com-gdey-tbltest") (name "go-github-com-gdey-tbltest")
@@ -1109,45 +947,6 @@ methods in Go source code.")
tests.") tests.")
(license license:expat))) (license license:expat)))
(define-public go-github-com-ghostiam-protogetter
(package
(name "go-github-com-ghostiam-protogetter")
(version "0.3.20")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ghostiam/protogetter")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1hap2ykmlnan5vz8sczdpiv93iidbgl13mlcdx468nhfprg2hbbm"))))
(build-system go-build-system)
(arguments
(list
#:tests? #f ;"module lookup disabled by GOPROXY=off"
#:import-path "github.com/ghostiam/protogetter"))
(propagated-inputs
(list go-golang-org-x-tools
go-github-com-gobwas-glob))
(home-page "https://github.com/ghostiam/protogetter")
(synopsis "Protobuf Golang linter")
(description
"This package is a linter developed specifically for Go programmers
working with nested @code{protobuf} types. It's designed to aid developers in
preventing invalid memory address or nil pointer dereference errors arising
from direct access of nested protobuf fields.
When working with protobuf, it's quite common to have complex structures where
a message field is contained within another message, which itself can be part
of another message, and so on. If these fields are accessed directly and some
field in the call chain will not be initialized, it can result in application
panic.
Protogetter addresses this issue by suggesting use of getter methods for field
access.")
(license license:expat)))
(define-public go-github-com-gkampitakis-ciinfo (define-public go-github-com-gkampitakis-ciinfo
(package (package
(name "go-github-com-gkampitakis-ciinfo") (name "go-github-com-gkampitakis-ciinfo")
@@ -1403,29 +1202,6 @@ kept in fixtures files. Before the execution of every test, the test database
is cleaned and the fixture data is loaded into the database.") is cleaned and the fixture data is loaded into the database.")
(license license:expat))) (license license:expat)))
(define-public go-github-com-go-xmlfmt-xmlfmt
(package
(name "go-github-com-go-xmlfmt-xmlfmt")
(version "1.1.3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/go-xmlfmt/xmlfmt")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1cglrwmpg0lb7cnyvdz8js52h07rcvka7y9abksk9p5ajxj5rp1s"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/go-xmlfmt/xmlfmt"))
(home-page "https://github.com/go-xmlfmt/xmlfmt")
(synopsis "Go XML Formatter")
(description
"The Go XML Formatter, xmlfmt, will format the XML string in a readable way.")
(license license:expat)))
;; XXX: This repository has been archived by the owner ;; XXX: This repository has been archived by the owner
;; on May 9, 2021. It is now read-only. It's only used ;; on May 9, 2021. It is now read-only. It's only used
;; by go-github-com-golang-gddo. Consider to remove when nothing ;; by go-github-com-golang-gddo. Consider to remove when nothing
@@ -4191,20 +3967,6 @@ thoroughly
" This package provides an command line interface (CLI) " This package provides an command line interface (CLI)
tool.")))) tool."))))
(define-public go-gci
(package/inherit go-github-com-daixiang0-gci
(name "go-gci")
(arguments
(substitute-keyword-arguments arguments
((#:tests? _ #t) #f)
((#:install-source? _ #t) #f)
((#:skip-build? _ #t) #f)))
(native-inputs
(append (package-native-inputs go-github-com-daixiang0-gci)
(package-propagated-inputs go-github-com-daixiang0-gci)))
(propagated-inputs '())
(inputs '())))
(define-public go-pgmockproxy (define-public go-pgmockproxy
(package/inherit go-github-com-jackc-pgmock (package/inherit go-github-com-jackc-pgmock
(name "go-pgmockproxy") (name "go-pgmockproxy")
@@ -4328,21 +4090,6 @@ prints an ASCII fraphic representing the memory layout.")))
" This package provides an command line interface (CLI) " This package provides an command line interface (CLI)
tool.")))) tool."))))
(define-public protogetter
(package/inherit go-github-com-ghostiam-protogetter
(name "protogetter")
(arguments
(substitute-keyword-arguments arguments
((#:tests? _ #f) #f)
((#:skip-build? _ #t) #f)
((#:install-source? _ #t) #f)
((#:import-path _) "github.com/ghostiam/protogetter/cmd/protogetter")
((#:unpack-path _ "") "github.com/ghostiam/protogetter")))
(native-inputs
(package-propagated-inputs go-github-com-ghostiam-protogetter))
(propagated-inputs '())
(inputs '())))
(define-public unparam (define-public unparam
(package (package
(inherit go-mvdan-cc-unparam) (inherit go-mvdan-cc-unparam)
+4 -69
View File
@@ -31,7 +31,6 @@
;;; Copyright © 2025 Arthur Rodrigues <arthurhdrodrigues@proton.me> ;;; Copyright © 2025 Arthur Rodrigues <arthurhdrodrigues@proton.me>
;;; Copyright © 2025 Patrick Norton <patrick.147.norton@gmail.com> ;;; Copyright © 2025 Patrick Norton <patrick.147.norton@gmail.com>
;;; Copyright © 2025 Giacomo Leidi <therewasa@fishinthecalculator.me> ;;; Copyright © 2025 Giacomo Leidi <therewasa@fishinthecalculator.me>
;;; Copyright © 2026 Evgeny Pisemsky <mail@pisemsky.site>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@@ -1600,7 +1599,7 @@ RSA, RSA-PSS, and ECDSA, though hooks are present for adding your own.")
(define-public go-github-com-google-go-tpm (define-public go-github-com-google-go-tpm
(package (package
(name "go-github-com-google-go-tpm") (name "go-github-com-google-go-tpm")
(version "0.9.4") (version "0.9.1")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -1609,7 +1608,7 @@ RSA, RSA-PSS, and ECDSA, though hooks are present for adding your own.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1sp1mbr6vz36zy9w36iksirbsj5p2jslsl8zs1cdj8s4ig4lkd9d")))) (base32 "1c5j5cvwl45ka93nknmv454ivd7kp9n8yql19gr6z01z0s1ph7sg"))))
(build-system go-build-system) (build-system go-build-system)
(arguments (arguments
(list (list
@@ -2874,7 +2873,7 @@ package.")
(define-public go-github-com-refraction-networking-utls (define-public go-github-com-refraction-networking-utls
(package (package
(name "go-github-com-refraction-networking-utls") (name "go-github-com-refraction-networking-utls")
(version "1.8.2") (version "1.6.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -2883,7 +2882,7 @@ package.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "03kgwxdm2lg28fn2w5q7ql2szsiwj2xjdf477h1g3a4a9y9j6zk0")))) (base32 "1iywar5vqsml4b177k2nkcxmjm8mw92g3p112yjsrpmikiwpwpyw"))))
(build-system go-build-system) (build-system go-build-system)
(arguments (arguments
`(#:import-path "github.com/refraction-networking/utls" `(#:import-path "github.com/refraction-networking/utls"
@@ -3286,37 +3285,6 @@ to support the streaming mode required by Go's standard Hash interface.")
@url{https://www.rfc-editor.org/errata/rfc7512, errata} specifications.") @url{https://www.rfc-editor.org/errata/rfc7512, errata} specifications.")
(license license:asl2.0))) (license license:asl2.0)))
(define-public go-github-com-tailscale-golang-x-crypto
(package
(name "go-github-com-tailscale-golang-x-crypto")
(version "0.91.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/tailscale/golang-x-crypto")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0m9qkk48mihrkmfh1fzfhc39l8957qkpfx8qbw4xdjws7dy4vzbz"))))
(build-system go-build-system)
(arguments
(list
#:skip-build? #t
#:tests? #f ;Tests have broken package imports (expected as per readme)
#:import-path "github.com/tailscale/golang-x-crypto"))
(propagated-inputs
(list go-golang-org-x-crypto
go-golang-org-x-term
go-golang-org-x-sys
go-golang-org-x-net))
(home-page "https://github.com/tailscale/golang-x-crypto")
(synopsis "Supplementary Go crypto libraries")
(description
"This package holds supplementary Go cryptography libraries, it's a fork
of @code{golang.org/x/crypto} maintained by Tailscale.")
(license license:bsd-3)))
(define-public go-github-com-tink-crypto-tink-go-v2 (define-public go-github-com-tink-crypto-tink-go-v2
(package (package
(name "go-github-com-tink-crypto-tink-go-v2") (name "go-github-com-tink-crypto-tink-go-v2")
@@ -3672,39 +3640,6 @@ algorithm described in @url{https://rfc-editor.org/rfc/rfc2898.html,RFC 2898}
and @url{https://rfc-editor.org/rfc/rfc8018.html,RFC 8018}.") and @url{https://rfc-editor.org/rfc/rfc8018.html,RFC 8018}.")
(license license:asl2.0))) (license license:asl2.0)))
(define-public go-github-com-xtls-reality
(package
(name "go-github-com-xtls-reality")
(version "0.0.0-20260322125925-9234c772ba8f")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/xtls/reality")
(commit (go-version->git-ref version))))
(file-name (git-file-name name version))
(sha256
(base32 "1wncy5aph6nmq4814xjhj6b5p1wm2fyrqn83dw0xlyxvq2z6iqfs"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/xtls/reality"))
(propagated-inputs
(list go-github-com-cloudflare-circl
go-github-com-juju-ratelimit
go-github-com-pires-go-proxyproto
go-github-com-refraction-networking-utls
go-golang-org-x-crypto
go-golang-org-x-sys))
(home-page "https://github.com/xtls/reality")
(synopsis "Implementation of REALITY protocol")
(description
"This package provides an implementation of REALITY protocol, which is
intented to eliminate the detectable TLS fingerprint on the server side, while
still maintain the secrecy. It achieves full real TLS that is
undistingwishable with the specified SNI to the middleman.")
(license (list license:bsd-3 license:mpl2.0))))
(define-public go-github-com-youmark-pkcs8 (define-public go-github-com-youmark-pkcs8
(package (package
(name "go-github-com-youmark-pkcs8") (name "go-github-com-youmark-pkcs8")
-23
View File
@@ -456,29 +456,6 @@ penalization.")
FFT (Schonhage-Strassen method for multiplying integers).") FFT (Schonhage-Strassen method for multiplying integers).")
(license license:bsd-3))) (license license:bsd-3)))
(define-public go-github-com-robinus2-golang-moving-average
(package
(name "go-github-com-robinus2-golang-moving-average")
(version "1.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/RobinUS2/golang-moving-average")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "02z3ad29653fz7whxkjjpq820ig9j8m68xj4kay14jyazkr5in1f"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/RobinUS2/golang-moving-average"))
(home-page "https://github.com/RobinUS2/golang-moving-average")
(synopsis "Moving average implementation for Go")
(description
"This package provides a moving average implementation for Go.")
(license license:asl2.0)))
(define-public go-github-com-shopspring-decimal (define-public go-github-com-shopspring-decimal
(package (package
(name "go-github-com-shopspring-decimal") (name "go-github-com-shopspring-decimal")
File diff suppressed because it is too large Load Diff
File diff suppressed because it is too large Load Diff
-37
View File
@@ -2763,43 +2763,6 @@ entire output. It supports all Layer Shell features including popups and
popovers.") popovers.")
(license license:expat))) (license license:expat)))
(define-public xdg-user-dirs-gtk
(package
(name "xdg-user-dirs-gtk")
(version "0.16")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.gnome.org/GNOME/xdg-user-dirs-gtk.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"11h1164mkajpfrp6mkky2gvx3xd7dw0c9f2785jf4lys4jmmj4c3"))))
(build-system meson-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-exec-path
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "update.c"
(("xdg-user-dirs-update")
(search-input-file inputs "/bin/xdg-user-dirs-update"))))))))
(native-inputs
(list gettext-minimal
pkg-config))
(inputs
(list gtk+
xdg-user-dirs))
(home-page "https://gitlab.gnome.org/GNOME/xdg-user-dirs-gtk")
(synopsis "Integration of xdg-user-dirs with GTK")
(description "This package is a companion to @code{xdg-user-dirs} to
integrate it with the GNOME desktop and GTK applications. It gets run during
login to create default GTK bookmarks files containing the user directories, and
to rename these directories if the locale changes.")
(license license:gpl2+)))
(define-public goocanvas (define-public goocanvas
(package (package
(name "goocanvas") (name "goocanvas")
+77 -150
View File
@@ -60,7 +60,6 @@
;;; Copyright © 2025 Andy Tai <atai@atai.org> ;;; Copyright © 2025 Andy Tai <atai@atai.org>
;;; Copyright © 2025 Ekaitz Zarraga <ekaitz@elenq.tech> ;;; Copyright © 2025 Ekaitz Zarraga <ekaitz@elenq.tech>
;;; Copyright © 2026 Matt Wette <matt.wette@gmail.com> ;;; Copyright © 2026 Matt Wette <matt.wette@gmail.com>
;;; Copyright © 2026 Dzianis Jackievič <mail@miesta.by>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@@ -1168,7 +1167,7 @@ is not available for Guile 2.0.")
(package (package
(inherit guile-fibers-1.3) (inherit guile-fibers-1.3)
(name "guile-fibers") (name "guile-fibers")
(version "1.4.3") (version "1.4.2")
(source (source
(origin (inherit (package-source guile-fibers-1.3)) (origin (inherit (package-source guile-fibers-1.3))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
@@ -1177,7 +1176,7 @@ is not available for Guile 2.0.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(sha256 (sha256
(base32 (base32
"1q0a9y0cc8rld1z7mcj61fkldhd0kn9n4yq25izxslbgg4g5h9j6")) "0qh0czz5qvk5mmrc8x2gmvl5psdfd22q2rhzj4jrpan6k3d55bl8"))
(patches '()))) (patches '())))
(arguments (arguments
(if (target-aarch64?) (if (target-aarch64?)
@@ -1257,8 +1256,30 @@ is not available for Guile 2.0.")
(modify-inputs native-inputs (modify-inputs native-inputs
(replace "guile" guile-2.2))))) (replace "guile" guile-2.2)))))
;; Deprecated on 2026-04-23 (define-public guile-fibers-next
(define-deprecated-package guile-fibers-next guile-fibers) (let ((commit "297359f0ad655378bcc3ff0d4e96101965ef39b4")
(revision "0"))
(package
(inherit guile-fibers)
(name "guile-fibers-next")
(version (git-version "1.4.2"
revision
commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://codeberg.org/guile/fibers.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0qh0czz5qvk5mmrc8x2gmvl5psdfd22q2rhzj4jrpan6k3d55bl8"))))
(inputs
(modify-inputs inputs
(replace "guile" guile-next)))
(native-inputs
(modify-inputs native-inputs
(replace "guile" guile-next))))))
(define-public guile-kracht (define-public guile-kracht
(package (package
@@ -1516,7 +1537,7 @@ order to provide IDE functionality for Guile Scheme.")
(define-public guile-ares-rs (define-public guile-ares-rs
(package (package
(name "guile-ares-rs") (name "guile-ares-rs")
(version "0.9.7") (version "0.9.6")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -1526,42 +1547,35 @@ order to provide IDE functionality for Guile Scheme.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1xbznh5zjswfydgqg53g50ya7zm0hidin74g2glk849l9j45szw3")))) "1vkww3vc0lsh5f8yh6fnh402rx3rsm0ss69rdkmplhzp4c7c4z1d"))))
(build-system guile-build-system) (build-system guile-build-system)
(arguments (arguments
(list (list
#:source-directory "src/guile" #:source-directory "src/guile"
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'build 'install-scripts (add-after 'build 'install-script
(lambda _ (lambda _
(define bin (string-append #$output "/bin")) (let* ((bin (string-append #$output "/bin"))
(define site (string-append #$output "/share/guile/site/3.0")) (oldpath (string-append
(define ccache #$output
(string-append #$output "/lib/guile/3.0/site-ccache")) ;; This file will be named ares-nrepl.scm for
;; the next version.
(define (install-script name) "/share/guile/site/3.0/ares/scripts/ares.scm"))
(let ((oldpath (newpath (string-append bin "/ares-nrepl")))
(string-append site "/ares/scripts/" name ".scm")) (mkdir bin)
(newpath (symlink oldpath newpath)
(string-append bin "/" name))) (wrap-program newpath
(symlink oldpath newpath) `("GUILE_LOAD_PATH" ":" =
(wrap-program newpath ,(list (string-append #$output "/share/guile/site/3.0")
`("GUILE_LOAD_PATH" ":" = (getenv "GUILE_LOAD_PATH")))
,(list "$GUILE_LOAD_PATH" `("GUILE_LOAD_COMPILED_PATH" ":" =
site ,(list (string-append #$output "/lib/guile/3.0/site-ccache")
(getenv "GUILE_LOAD_PATH"))) (getenv "GUILE_LOAD_COMPILED_PATH"))))
`("GUILE_LOAD_COMPILED_PATH" ":" = ;; Not needed since the wrapper followed the symlink.
,(list "$GUILE_LOAD_COMPILED_PATH" (delete-file (string-append bin "/.ares-nrepl-real"))))))))
ccache (inputs (list bash-minimal guile-3.0))
(getenv "GUILE_LOAD_COMPILED_PATH")))) (propagated-inputs (list guile-fibers guile-custom-ports))
;; Not needed since the wrapper followed the symlink.
(delete-file (string-append bin "/." name "-real"))))
(mkdir bin)
(for-each install-script '("ares-nrepl" "ares-suitbl")))))))
(inputs (list bash-minimal guile-3.0-latest))
(propagated-inputs (list guile-fibers))
(home-page "https://git.sr.ht/~abcdw/guile-ares-rs") (home-page "https://git.sr.ht/~abcdw/guile-ares-rs")
(synopsis "Asynchronous Reliable Extensible Sleek RPC Server for Guile") (synopsis "Asynchronous Reliable Extensible Sleek RPC Server for Guile")
(description "Asynchronous Reliable Extensible Sleek RPC Server for (description "Asynchronous Reliable Extensible Sleek RPC Server for
@@ -5693,32 +5707,27 @@ perform geometrical transforms on JPEG images.")
(license license:gpl3+)))) (license license:gpl3+))))
(define-public guile-jtd (define-public guile-jtd
;; There are a few unreleased commits that include niceties such as warning (package
;; that the debug VM must be used; use the latest commit until the next (name "guile-jtd")
;; release comes. (version "220323a")
(let ((commit "425f86ae954d6445aaedacfd4ecd50aa0022e59d") (source (origin
(revision "0")) (method git-fetch)
(package (uri (git-reference
(name "guile-jtd") (url "https://github.com/mwette/guile-jtd")
(version (git-version "220323a" revision commit)) (commit (string-append "v" version))))
(source (origin (file-name (git-file-name name version))
(method git-fetch) (sha256
(uri (git-reference (base32
(url "https://github.com/mwette/guile-jtd") "1l8fyqhvksarvpbr903i3ss3432jzvyvhgcqa15j922ngqh4ds6f"))))
(commit commit))) (build-system guile-build-system)
(file-name (git-file-name name version)) (native-inputs (list guile-3.0))
(sha256 (home-page "https://github.com/mwette/guile-jtd")
(base32 (synopsis "Python's @code{pdb.set_trace()} but for Guile")
"1l8fyqhvksarvpbr903i3ss3432jzvyvhgcqa15j922ngqh4ds6f")))) (description
(build-system guile-build-system) "The @code{(jtd)} module for Guile provides a procedure
(native-inputs (list guile-3.0))
(home-page "https://github.com/mwette/guile-jtd")
(synopsis "Python's @code{pdb.set_trace()} but for Guile")
(description
"The @code{(jtd)} module for Guile provides a procedure
@code{jump-to-debugger} for escaping to the Guile REPL for the purpose of @code{jump-to-debugger} for escaping to the Guile REPL for the purpose of
debugging code.") debugging code.")
(license license:lgpl2.1+)))) (license license:lgpl2.1+)))
(define-public guile-png (define-public guile-png
(package (package
@@ -6390,88 +6399,6 @@ as signed sessions, multipart message support, etc.")
(propagated-inputs (propagated-inputs
(list guile2.2-irregex guile2.2-gcrypt)))) (list guile2.2-irregex guile2.2-gcrypt))))
(define-public guile-compose
(package
(name "guile-compose")
(version "0.1.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://codeberg.org/jadzi/guile-compose.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1g68gczs96nrb0vf1hv4n07zsp2516gpiwq1wwlhcq4rzynhf12h"))))
(build-system gnu-build-system)
(arguments
(list
#:make-flags
#~'("GUILE_AUTO_COMPILE=0")))
(inputs (list guile-3.0))
(native-inputs (list autoconf-2.72 automake pkg-config guile-3.0 texinfo))
(synopsis "Procedure composition utilities for Guile Scheme")
(description
"This tiny package provides some procedures and macros to extend
Guile Scheme procedure composition facilities. For example, there is
a @code{compose-top}, a reverse-order analog to native @code{compose}
procedure. The @code{compose-cont} is a macro, utilizing some power of
continuations to build really flexible flows.
This library is intended to stay basic and small, so it has no any
external dependencies and can be a good base for other packages, like e.g.
@code{guile-web-middleware}.")
(license (list license:lgpl3+))
(home-page "https://jadzi.codeberg.page/guile-compose")))
(define-public guile-web-middleware
(package
(name "guile-web-middleware")
(version "0.11.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://codeberg.org/jadzi/guile-web-middleware.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "01wb8v0lszphdv08ly4aqv59qm5h8yw2fgm025vkn61djspsq4j9"))))
(build-system gnu-build-system)
(arguments
(list
#:make-flags
#~'("GUILE_AUTO_COMPILE=0")))
(inputs (list guile-3.0))
(propagated-inputs (list guile-compose))
(native-inputs (list autoconf-2.72 automake pkg-config guile-3.0 texinfo))
(synopsis "Web application middleware composition for Guile Scheme")
(description
"This package provides means to compose a web application by
chaining procedures, a.k.a. middlewares. By those means, composed
procedures form a standard request handler for any Guile's web server
implementation.
Each middleware has its own limited responsibility in request
processing. Also, middlewares are simple Scheme procedures, so they
can be easily tested and shared among web applications.
Out of the box, this package provides several procedures for commonly
required tasks. Among them:
@itemize
@item Error handling with customizable page contents.
@item Request filtering.
@item Request logging.
@item Serving static files, file URL generation.
@item Request routing, handling parameters, route URL generation.
@item Middleware nesting, composing whole apps.
@end itemize
This package relies on @code{guile-compose} package as its only dependency.")
(license (list license:lgpl3+))
(home-page "https://jadzi.codeberg.page/guile-web-middleware")))
(define-public guile-web-driver-ng (define-public guile-web-driver-ng
(package (package
(name "guile-web-driver-ng") (name "guile-web-driver-ng")
@@ -7764,8 +7691,8 @@ is an attempt to combine both into something useful.")
(license license:asl2.0)))) (license license:asl2.0))))
(define-public guile-knots (define-public guile-knots
(let ((commit "49996c432a4616e03ecaf01cb42afc5fd78eafd5") (let ((commit "f767eca066495e6582e89ba1b91907c0c5657878")
(revision "35")) (revision "34"))
(package (package
(name "guile-knots") (name "guile-knots")
(version (git-version "0.1" revision commit)) (version (git-version "0.1" revision commit))
@@ -7776,7 +7703,7 @@ is an attempt to combine both into something useful.")
(commit commit))) (commit commit)))
(sha256 (sha256
(base32 (base32
"0i6vk432shy7qmsq1hli71a9kmgf8yy9hx3bck0r9qzsldv1m3m9")) "18fqmpyrrxy8phxxm5b7d1qhhvc3rsrs243xiinkj2hn2ca1cqi8"))
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
@@ -7789,13 +7716,13 @@ is an attempt to combine both into something useful.")
(list pkg-config (list pkg-config
autoconf autoconf
automake automake
guile-3.0-latest guile-next
guile-lib guile-lib
guile-fibers)) guile-fibers-next))
(inputs (inputs
(list guile-3.0-latest)) (list guile-next))
(propagated-inputs (propagated-inputs
(list guile-fibers)) (list guile-fibers-next))
(home-page "https://cbaines.codeberg.page/guile-knots/") (home-page "https://cbaines.codeberg.page/guile-knots/")
(synopsis "Patterns and functionality to use with Guile Fibers") (synopsis "Patterns and functionality to use with Guile Fibers")
(description (description
@@ -8091,14 +8018,14 @@ application to open a given file or URL based on given configurations.")
(define-public guile-goblins (define-public guile-goblins
(package (package
(name "guile-goblins") (name "guile-goblins")
(version "0.18.0") (version "0.17.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://files.spritely.institute/releases" (uri (string-append "https://files.spritely.institute/releases"
"/guile-goblins/guile-goblins-" version ".tar.gz")) "/guile-goblins/guile-goblins-" version ".tar.gz"))
(sha256 (sha256
(base32 "0gj5018wmq97ln1z7x03a13z3p35xc8762id9bl9fgkxwm01df1a")))) (base32 "16jkmfspsnza2fdk5jr05a5pfh7x856gpg031i21s1yvy43l8mi0"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list (list
+20 -10
View File
@@ -653,10 +653,7 @@ GNU@tie{}Guile. Use the @code{(ice-9 readline)} module and call its
(define (guile-variant-package-name prefix) (define (guile-variant-package-name prefix)
(lambda (name) (lambda (name)
"Return NAME with PREFIX instead of \"guile-\", when applicable." "Return NAME with PREFIX instead of \"guile-\", when applicable."
(if (and (string-prefix? "guile-" name) (if (string-prefix? "guile-" name)
;; Don't rename guile-bootstrap@2.0.
(not (string=? "guile-bootstrap" name)))
(string-append prefix "-" (string-append prefix "-"
(string-drop name (string-drop name
(string-length "guile-"))) (string-length "guile-")))
@@ -903,8 +900,8 @@ type system, elevating types to first-class status.")
(define-public guile-git (define-public guile-git
(package (package
(name "guile-git") (name "guile-git")
(version "0.11.1") (version "0.11.0")
(home-page "https://codeberg.org/guile-git/guile-git.git") (home-page "https://gitlab.com/guile-git/guile-git.git")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@@ -913,11 +910,11 @@ type system, elevating types to first-class status.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0xpzchnglddphi3chv53xqaz2x6rpq3l4s023w7r4mmndb6lgz0b")))) "1yjyil6z4k80pjdps8v6h6lxikwxmjxvrslf2jrmq2rrfnajschz"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags '("GUILE_AUTO_COMPILE=0") ; to prevent guild warnings `(#:make-flags '("GUILE_AUTO_COMPILE=0") ; to prevent guild warnings
;; https://codeberg.org/guile-git/guile-git/issues/20 ;; https://gitlab.com/guile-git/guile-git/-/issues/20
,@(if (target-ppc32?) ,@(if (target-ppc32?)
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
@@ -925,7 +922,20 @@ type system, elevating types to first-class status.")
(lambda _ (lambda _
(substitute* "Makefile.am" (substitute* "Makefile.am"
((".*tests/blob\\.scm.*") "")))))) ((".*tests/blob\\.scm.*") ""))))))
'()))) '())
,@(if (system-hurd?)
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'skip-tests/hurd
(lambda _
(substitute* "tests/proxy.scm"
(("\\(test-begin.*" all)
(string-append
all
"(when (string-ci= \"GNU\" (vector-ref (uname) 0))\n"
" (test-skip 1))\n")))))))
'())))
(native-inputs (native-inputs
(list pkg-config autoconf automake texinfo guile-3.0 guile-bytestructures)) (list pkg-config autoconf automake texinfo guile-3.0 guile-bytestructures))
(inputs (inputs
@@ -994,7 +1004,7 @@ Guile's foreign function interface.")
(file-name (string-append "guile-lzlib-" version ".tar.gz")) (file-name (string-append "guile-lzlib-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1v1pfqp6hwl0rivs7swhqnfgznxlfnws9ldmn6avnhd10filfa3a")) "1whgmwkr1v8m63p4aaqn8blwl9vcrswwhbfv4bm0aghl5a6rryd7"))
(patches (search-patches "guile-lzlib-gcc-14.patch" (patches (search-patches "guile-lzlib-gcc-14.patch"
"guile-lzlib-hurd64.patch")))) "guile-lzlib-hurd64.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
+11 -11
View File
@@ -23,7 +23,6 @@
;;; Copyright © 2025 Eric Bavier <bavier@posteo.net> ;;; Copyright © 2025 Eric Bavier <bavier@posteo.net>
;;; Copyright © 2025 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2025 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2025 James Smith <jsubuntuxp@disroot.org> ;;; Copyright © 2025 James Smith <jsubuntuxp@disroot.org>
;;; Copyright © 2026 Daniel Littlewood <dan@danielittlewood.xyz>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@@ -1001,21 +1000,22 @@ information can be viewed in real time and/or logged to a file.")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri
(url "https://github.com/dell/libsmbios") (git-reference
(commit (string-append "v" version)))) (url (string-append "https://github.com/dell/" name))
(commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "0krwwydyvb9224r884y1mlmzyxhlfrcqw73vi1j8787rl0gl5a2i")))) (base32 "0krwwydyvb9224r884y1mlmzyxhlfrcqw73vi1j8787rl0gl5a2i"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(list autoconf `(("autoconf" ,autoconf)
automake ("automake" ,automake)
gettext-minimal ("gettext" ,gettext-minimal)
libtool ("libtool" ,libtool)
pkg-config ("pkg-config" ,pkg-config)
perl ("perl" ,perl)
python)) ("python" ,python)))
(inputs (inputs
(list libxml2)) (list libxml2))
(arguments (arguments
+1 -1
View File
@@ -914,7 +914,7 @@ regular) Diffie Hellman key exchanges, and many extensions.")
(list #:extra-directories (list "openssl") (list #:extra-directories (list "openssl")
#:configure-flags #:configure-flags
#~(list "--ghc-options=-optc=-Wno-incompatible-pointer-types"))) #~(list "--ghc-options=-optc=-Wno-incompatible-pointer-types")))
(inputs (list ghc-network openssl-3.0)) (inputs (list ghc-network openssl))
(home-page "https://github.com/haskell-cryptography/HsOpenSSL") (home-page "https://github.com/haskell-cryptography/HsOpenSSL")
(synopsis "Partial OpenSSL binding for Haskell") (synopsis "Partial OpenSSL binding for Haskell")
(description (description
+2 -13
View File
@@ -489,22 +489,11 @@ lost.
"0b9d2i22ghyjarwi1c596q5mf7gj1k04k784hnmrd2d4x9hgv9ax")))) "0b9d2i22ghyjarwi1c596q5mf7gj1k04k784hnmrd2d4x9hgv9ax"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list #:configure-flags #~(list "--with-corosync" (list #:configure-flags #~(list "--with-corosync" "--disable-static"
"--disable-static"
"--localstatedir=/var"
(string-append "--with-initdir=" (string-append "--with-initdir="
#$output "/etc/init.d") #$output "/etc/init.d")
(string-append "--with-ocfdir=" (string-append "--with-ocfdir="
#$output "/lib")) #$output "/lib"))))
#:phases
#~(modify-phases %standard-phases
(add-before 'configure 'pre-configure
(lambda _
;; Do not attempt to install /var.
(substitute* '("Makefile.am"
"daemons/schedulerd/Makefile.am")
(("install-exec-local:")
"install-exec-local-disabled:")))))))
(native-inputs (list autoconf (native-inputs (list autoconf
automake automake
cmocka cmocka
+11 -14
View File
@@ -38,7 +38,6 @@
;;; Copyright © 2025 Zhu Zihao <all_but_last@163.com> ;;; Copyright © 2025 Zhu Zihao <all_but_last@163.com>
;;; Copyright © 2025 Vinicius Monego <monego@posteo.net> ;;; Copyright © 2025 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2025 Igorj Gorjaĉev <igor@goryachev.org> ;;; Copyright © 2025 Igorj Gorjaĉev <igor@goryachev.org>
;;; Copyright © 2026 Daniel Littlewood <dan@danielittlewood.xyz>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@@ -306,7 +305,7 @@ actions.")
(define-public geeqie (define-public geeqie
(package (package
(name "geeqie") (name "geeqie")
(version "2.7") (version "2.6.1")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@@ -314,12 +313,11 @@ actions.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(sha256 (sha256
(base32 (base32
"139ffzqqq79d3k5q99r8i1jr9v9vfwv89dkh6vvw1mdnv6b3s9n8")) "08yr8jqli33rn1zvj9mjvinyzjp2myakxgf8wqqq8yidmm0vvn1p"))
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
(list (list
#:glib-or-gtk? #t
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
;; Disable test which requires binaries not present ;; Disable test which requires binaries not present
@@ -348,7 +346,6 @@ actions.")
libwebp)) libwebp))
(native-inputs (native-inputs
(list `(,glib "bin") ; glib-gettextize (list `(,glib "bin") ; glib-gettextize
gsettings-desktop-schemas
intltool intltool
pkg-config pkg-config
python ; for tests python ; for tests
@@ -927,15 +924,15 @@ with tiling window managers. Features include:
;; That is required for testing. ;; That is required for testing.
xorg-server-for-tests)) xorg-server-for-tests))
(inputs (inputs
(list imlib2 `(("imlib2" ,imlib2)
glib ("glib" ,glib)
gtk+-2 ("gtk+" ,gtk+-2)
lcms ("lcms" ,lcms)
libjpeg-turbo ("libjpeg" ,libjpeg-turbo)
libtiff ("libtiff" ,libtiff)
libexif ("libexif" ,libexif)
libx11 ("libx11" ,libx11)
libxext)) ("libxext" ,libxext)))
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
+24
View File
@@ -339,6 +339,30 @@ coverage.")
;; that list in further version. ;; that list in further version.
(supported-systems (list "x86_64-linux")))) (supported-systems (list "x86_64-linux"))))
(define-public lttng-modules
(package
(name "lttng-modules")
(version "2.13.14")
(source (origin
(method url-fetch)
(uri (string-append "https://lttng.org/files/lttng-modules/"
"lttng-modules-" version ".tar.bz2"))
(sha256
(base32
"19jx1yz1hsbr4vwfp2nr6z52a5g50iimaak962k49diay5zryi66"))))
(build-system linux-module-build-system)
(arguments
`(#:tests? #f ; no tests
#:make-flags (list "CONFIG_LTTNG=m"
"CONFIG_LTTNG_CLOCK_PLUGIN_TEST=m")))
(home-page "https://lttng.org/")
(synopsis "LTTng kernel modules for the LTTng tracer toolset")
(description
"LTTng kernel modules are Linux kernel modules which make
LTTng kernel tracing possible. They include essential control modules and
many probes which instrument numerous interesting parts of Linux.")
(license (list license:lgpl2.1 license:gpl2 license:expat))))
(define-public lttng-ust (define-public lttng-ust
(package (package
(name "lttng-ust") (name "lttng-ust")
+7 -8
View File
@@ -18,7 +18,6 @@
;;; Copyright © 2024 Christian Miller <christian.miller@dadoes.de> ;;; Copyright © 2024 Christian Miller <christian.miller@dadoes.de>
;;; Copyright © 2024 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2024 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2025 Zheng Junjie <z572@z572.online> ;;; Copyright © 2025 Zheng Junjie <z572@z572.online>
;;; Copyright © 2026 Daniel Littlewood <dan@danielittlewood.xyz>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@@ -422,8 +421,8 @@ using a mouse. It is customizable and extensible with plugins and scripts.")
(origin (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/SrainApp/srain") (url "https://github.com/SrainApp/srain")
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "105z2kbj9ar6zk6i1qrbysrp9vbz692kbl2dwdxcwly0yh4cbd0p")))) (base32 "105z2kbj9ar6zk6i1qrbysrp9vbz692kbl2dwdxcwly0yh4cbd0p"))))
@@ -434,11 +433,11 @@ using a mouse. It is customizable and extensible with plugins and scripts.")
#:tests? #f ;there are no tests #:tests? #f ;there are no tests
#:glib-or-gtk? #t)) #:glib-or-gtk? #t))
(native-inputs (native-inputs
(list gettext-minimal `(("gettext" ,gettext-minimal)
`(,glib "bin") ("glib:bin" ,glib "bin")
pkg-config ("pkg-config" ,pkg-config)
python-wrapper ("python" ,python-wrapper)
python-sphinx)) ("python-sphinx" ,python-sphinx)))
(inputs (inputs
(list glib-networking (list glib-networking
gsettings-desktop-schemas gsettings-desktop-schemas
+1 -13
View File
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014-2019, 2021, 2026 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2021, 2026 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2021, 2026 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Leo Famulari <leo@famulari.name> ;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2017, 2022 Marius Bakke <marius@gnu.org> ;;; Copyright © 2017, 2022 Marius Bakke <marius@gnu.org>
@@ -226,18 +226,6 @@ JNI.")
(setenv "JAVACMD" (search-input-file inputs "/bin/jamvm")) (setenv "JAVACMD" (search-input-file inputs "/bin/jamvm"))
(setenv "JAVAC" (search-input-file inputs "/bin/jikes")) (setenv "JAVAC" (search-input-file inputs "/bin/jikes"))
(setenv "CLASSPATH" (search-input-file inputs "/lib/rt.jar")))) (setenv "CLASSPATH" (search-input-file inputs "/lib/rt.jar"))))
,@(if (target-x86-32?)
;; XXX: On i686 isFile() always seems to return true. Patching
;; this here is very ugly, but the effects are limited. None
;; of these changes remain by the time we've built Icedtea and
;; the other JDKs.
'((add-after 'unpack 'disable-isFile-checks
(lambda _
(substitute* "src/main/org/apache/tools/ant/util/ResourceUtils.java"
(("destFile = \\(\\(FileProvider\\).*") ""))
(substitute* "src/main/org/apache/tools/ant/taskdefs/Mkdir.java"
(("dir.isFile\\(\\)") "false")))))
'())
(replace 'build (replace 'build
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
;; Ant complains if this file doesn't exist. ;; Ant complains if this file doesn't exist.
+29 -23
View File
@@ -55,12 +55,13 @@
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'make-git-checkout-writable (add-after 'unpack 'make-git-checkout-writable
(lambda _ (lambda _
(for-each make-file-writable (find-files ".")))) (for-each make-file-writable (find-files "."))
#t))
(add-before 'build 'remove-binaries (add-before 'build 'remove-binaries
(lambda _ (lambda _
(delete-file "lib/org/xerial/snappy/OSInfo.class") (delete-file "lib/org/xerial/snappy/OSInfo.class")
(delete-file-recursively (delete-file-recursively "src/main/resources/org/xerial/snappy/native")
"src/main/resources/org/xerial/snappy/native"))) #t))
(add-before 'build 'build-jni (add-before 'build 'build-jni
(lambda _ (lambda _
;; Rebuild one of the binaries we removed earlier ;; Rebuild one of the binaries we removed earlier
@@ -97,33 +98,36 @@
(add-after 'build-jni 'copy-jni (add-after 'build-jni 'copy-jni
(lambda _ (lambda _
(copy-recursively "src/main/resources/org/xerial/snappy/native" (copy-recursively "src/main/resources/org/xerial/snappy/native"
"build/classes/org/xerial/snappy/native"))) "build/classes/org/xerial/snappy/native")
#t))
(add-before 'build 'set-test-memory-size (add-before 'build 'set-test-memory-size
(lambda _ (lambda _
(substitute* "build.xml" (substitute* "build.xml"
(("<junit printsummary=") (("<junit printsummary=") "<junit maxmemory=\"2G\" printsummary="))
"<junit maxmemory=\"2G\" printsummary=")))) #t))
(add-before 'check 'fix-failing (add-before 'check 'fix-failing
(lambda _ (lambda _
(with-directory-excursion "src/test/java/org/xerial/snappy" (with-directory-excursion "src/test/java/org/xerial/snappy"
;; This package assumes maven build, which puts results in ;; This package assumes maven build, which puts results in "target".
;; "target". We put them in "build" instead, so fix that. ;; We put them in "build" instead, so fix that.
(substitute* "SnappyLoaderTest.java" (substitute* "SnappyLoaderTest.java"
(("target/classes") "build/classes")) (("target/classes") "build/classes"))
;; This requires Hadoop, which is not in Guix yet. ;; This requires Hadoop, which is not in Guix yet.
(delete-file "SnappyHadoopCompatibleOutputStreamTest.java"))))))) (delete-file "SnappyHadoopCompatibleOutputStreamTest.java"))
#t)))))
(inputs (inputs
(list java-osgi-framework)) `(("osgi-framework" ,java-osgi-framework)))
(propagated-inputs (propagated-inputs
(list bitshuffle-for-snappy snappy)) `(("bitshuffle" ,bitshuffle-for-snappy)
("snappy" ,snappy)))
(native-inputs (native-inputs
(list java-junit `(("junit" ,java-junit)
java-hamcrest-core ("hamcrest" ,java-hamcrest-core)
java-xerial-core ("xerial-core" ,java-xerial-core)
java-plexus-classworlds ("classworlds" ,java-plexus-classworlds)
java-commons-lang ("commons-lang" ,java-commons-lang)
java-commons-io ("commons-io" ,java-commons-io)
perl)) ("perl" ,perl)))
(home-page "https://github.com/xerial/snappy-java") (home-page "https://github.com/xerial/snappy-java")
(synopsis "Compression/decompression algorithm in Java") (synopsis "Compression/decompression algorithm in Java")
(description "Snappy-java is a Java port of snappy, a fast C++ (description "Snappy-java is a Java port of snappy, a fast C++
@@ -152,13 +156,13 @@ compressor/decompressor.")
(add-before 'build 'remove-binaries (add-before 'build 'remove-binaries
(lambda _ (lambda _
(delete-file "lib/org/xerial/snappy/OSInfo.class") (delete-file "lib/org/xerial/snappy/OSInfo.class")
(delete-file-recursively (delete-file-recursively "src/main/resources/org/xerial/snappy/native")
"src/main/resources/org/xerial/snappy/native"))) #t))
(add-before 'build 'build-jni (add-before 'build 'build-jni
(lambda _ (lambda _
;; Rebuild one of the binaries we removed earlier ;; Rebuild one of the binaries we removed earlier
(invoke "javac" "src/main/java/org/xerial/snappy/OSInfo.java" (invoke "javac" "src/main/java/org/xerial/snappy/OSInfo.java"
"-d" "lib") "-d" "lib")
;; Link to the dynamic snappy, not the static ones ;; Link to the dynamic snappy, not the static ones
(substitute* "Makefile.common" (substitute* "Makefile.common"
(("-shared") "-shared -lsnappy")) (("-shared") "-shared -lsnappy"))
@@ -180,14 +184,16 @@ compressor/decompressor.")
(add-after 'build-jni 'copy-jni (add-after 'build-jni 'copy-jni
(lambda _ (lambda _
(copy-recursively "src/main/resources/org/xerial/snappy/native" (copy-recursively "src/main/resources/org/xerial/snappy/native"
"build/classes/org/xerial/snappy/native"))) "build/classes/org/xerial/snappy/native")
#t))
(add-before 'check 'fix-tests (add-before 'check 'fix-tests
(lambda _ (lambda _
(mkdir-p "src/test/resources/org/xerial/snappy/") (mkdir-p "src/test/resources/org/xerial/snappy/")
(copy-recursively "src/test/java/org/xerial/snappy/testdata" (copy-recursively "src/test/java/org/xerial/snappy/testdata"
"src/test/resources/org/xerial/snappy/testdata") "src/test/resources/org/xerial/snappy/testdata")
(install-file "src/test/java/org/xerial/snappy/alice29.txt" (install-file "src/test/java/org/xerial/snappy/alice29.txt"
"src/test/resources/org/xerial/snappy/")))))))) "src/test/resources/org/xerial/snappy/")
#t)))))))
(define-public java-iq80-snappy (define-public java-iq80-snappy
(package (package
+9 -60
View File
@@ -165,18 +165,17 @@ ascii art drawings that contain characters that resemble lines like @samp{|}
"017n1w6hds4wrz597jk7v8r6pz0kz5j9xwd240nq7s8hc58d4c2q")) "017n1w6hds4wrz597jk7v8r6pz0kz5j9xwd240nq7s8hc58d4c2q"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
;; Remove pre-built native libraries. '(for-each
'(for-each delete-file delete-file
(find-files "." "\\.(dll|dylib|so)$"))))) (find-files "flatlaf-core/src/main/resources/com/formdev/flatlaf/natives/"
".*")))))
(build-system ant-build-system) (build-system ant-build-system)
(arguments (arguments
(list (list
#:jdk openjdk17
#:tests? #false ;XXX requires junit5 #:tests? #false ;XXX requires junit5
#:modules '((guix build ant-build-system) #:jar-name "flatlaf.jar"
(guix build java-utils) #:source-dir '(list "flatlaf-core/src/main/java")
(guix build utils) #:test-dir '(list "flatlaf-core/src/test")
(sxml simple))
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'configure 'build-native-code (add-before 'configure 'build-native-code
@@ -225,58 +224,8 @@ ascii art drawings that contain characters that resemble lines like @samp{|}
(add-before 'build 'copy-resources (add-before 'build 'copy-resources
(lambda _ (lambda _
(copy-recursively "flatlaf-core/src/main/resources" (copy-recursively "flatlaf-core/src/main/resources"
"build/classes"))) "build/classes"))))))
(add-before 'build 'generate-pom (inputs (list libx11 libxt))
(lambda _
(call-with-output-file "pom.xml"
(lambda (port)
(sxml->xml
`(*TOP*
(*PI* xml "version=\"1.0\" encoding=\"UTF-8\"")
(project
(modelVersion "4.0.0")
(groupId "com.formdev")
(artifactId "flatlaf")
(version ,#$version)))
port)))))
(replace 'build
(lambda* (#:key inputs #:allow-other-keys)
(let* ((jdk (assoc-ref inputs "jdk"))
(src-dir "flatlaf-core/src/main/java")
(java9-dir "flatlaf-core/src/main/java9")
(classes-dir "build/classes")
(classes9-dir "build/classes9")
(jar-file
(string-append "build/flatlaf-" #$version ".jar")))
;; Compile main sources (Java 8 target).
(apply invoke "javac"
"--release" "8"
"-d" classes-dir
(find-files src-dir "\\.java$"))
;; Compile Java 9 multi-release sources.
(mkdir-p classes9-dir)
(apply invoke "javac"
"--release" "9"
"-cp" classes-dir
"-d" classes9-dir
(find-files java9-dir "\\.java$"))
;; Create multi-release JAR.
(let ((meta-versions
(string-append classes-dir
"/META-INF/versions/9")))
(mkdir-p meta-versions)
(copy-recursively classes9-dir meta-versions))
(call-with-output-file "build/manifest.mf"
(lambda (port)
(display "Multi-Release: true\n" port)))
(invoke "jar" "--create"
"--file" jar-file
"--manifest" "build/manifest.mf"
"-C" classes-dir "."))))
(replace 'install
(install-from-pom "pom.xml")))))
(inputs
(list libx11 libxt))
(home-page "https://www.formdev.com/flatlaf/") (home-page "https://www.formdev.com/flatlaf/")
(synopsis "Flat Look and Feel for Java Swing applications") (synopsis "Flat Look and Feel for Java Swing applications")
(description "FlatLaf is a cross-platform Look and Feel for Java Swing (description "FlatLaf is a cross-platform Look and Feel for Java Swing
+8 -1957
View File
File diff suppressed because it is too large Load Diff
+2 -66
View File
@@ -22,7 +22,6 @@
;;; Copyright © 2024, 2025 Nicolas Graves <ngraves@ngraves.fr> ;;; Copyright © 2024, 2025 Nicolas Graves <ngraves@ngraves.fr>
;;; Copyright © 2024-2025 Sharlatan Hellseher <sharlatanus@gmail.com> ;;; Copyright © 2024-2025 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2025 Ghislain Vaillant <ghislain.vaillant@inria.fr> ;;; Copyright © 2025 Ghislain Vaillant <ghislain.vaillant@inria.fr>
;;; Copyright © 2026 Vinicius Monego <monego@posteo.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@@ -53,9 +52,7 @@
#:use-module (gnu packages bash) #:use-module (gnu packages bash)
#:use-module (gnu packages check) #:use-module (gnu packages check)
#:use-module (gnu packages cpp) #:use-module (gnu packages cpp)
#:use-module (gnu packages databases)
#:use-module (gnu packages docker) #:use-module (gnu packages docker)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages monitoring) #:use-module (gnu packages monitoring)
#:use-module (gnu packages networking) #:use-module (gnu packages networking)
@@ -1713,13 +1710,13 @@ analyzing Jupyter Notebooks.")
(define-public python-qtconsole (define-public python-qtconsole
(package (package
(name "python-qtconsole") (name "python-qtconsole")
(version "5.7.2") (version "5.7.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "qtconsole" version)) (uri (pypi-uri "qtconsole" version))
(sha256 (sha256
(base32 "088m56fav6xlcw55srxz96yf7rj2ndmycy4f3m69498r2swqbd17")))) (base32 "0w9i0s70dm39cxgn3vh4wcaxdywzp9j0ac7f49q4qmggx4f3fcqd"))))
(build-system pyproject-build-system) (build-system pyproject-build-system)
(arguments (arguments
(list (list
@@ -1767,67 +1764,6 @@ analyzing Jupyter Notebooks.")
rich media output.") rich media output.")
(license license:bsd-3))) (license license:bsd-3)))
(define-public python-spyder-kernels
(package
(name "python-spyder-kernels")
(version "3.1.4")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/spyder-ide/spyder-kernels")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0yhrifh148g93qkwx9ggsh2kr9789apzlw91ais4dyas5yf1xj8w"))))
(build-system pyproject-build-system)
(arguments
(list
#:test-flags
#~(list "-k" (string-append
;; Avoid pulling Django for a single test.
"not test_django_settings"
;; AssertionError.
" and not test_umr_reload_modules"))
#:phases
#~(modify-phases %standard-phases
(add-before 'check 'redirect-HOME
(lambda _
(setenv "HOME" "/tmp"))))))
(propagated-inputs (list python-cloudpickle
python-ipykernel
python-ipython
python-jupyter-client
python-packaging
python-pyxdg
python-pyzmq
python-traitlets
python-wurlitzer))
(native-inputs (list python-anyio
python-cython
python-dask
python-h5py
python-matplotlib
python-numpy
python-pandas
python-pillow
python-polars
python-pyarrow
python-pydicom
python-pytest
python-scipy
python-setuptools
python-xarray))
(home-page "https://github.com/spyder-ide/spyder-kernels")
(synopsis "Jupyter kernels for Spyder's console")
(description "This package provides Jupyter kernels for use with the
consoles of Spyder, the Scientific Python Development Environment.
These kernels can be launched either through Spyder itself or in an
independent Python session, and allow for interactive or file-based execution
of Python code inside Spyder.")
(license license:expat)))
(define-public python-voila (define-public python-voila
(package (package
(name "python-voila") (name "python-voila")
+13 -18
View File
@@ -1191,42 +1191,37 @@ CDs.")
(define-public plasmatube (define-public plasmatube
(package (package
(name "plasmatube") (name "plasmatube")
(version "26.04.0") (version "25.12.2")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append "mirror://kde/stable/release-service/" version
(uri (string-append "mirror://kde/stable/release-service/" version "/src/plasmatube-" version ".tar.xz"))
"/src/plasmatube-" version ".tar.xz")) (sha256
(sha256 (base32
(base32 "0dby9wypbrhg6g03kvl8fc40zpnri03hf3kk3vi1z16pwc7sn093")))) "1jc6iqcxz0zyai26vx80nyfr818r4cj8lpw0b1pbvb1vya12v8zy"))))
(build-system qt-build-system) (build-system qt-build-system)
(native-inputs (list extra-cmake-modules pkg-config python-minimal)) (native-inputs (list extra-cmake-modules pkg-config python-minimal))
(inputs (inputs
(list kconfig (list kconfig
kcoreaddons kcoreaddons
kdbusaddons kdbusaddons
kdeclarative ; for org.kde.kquickcontrolsaddons
ki18n
kirigami kirigami
kirigami-addons kirigami-addons
kitemmodels ki18n
kwindowsystem kwindowsystem
mpvqt mpvqt
purpose purpose
qqc2-desktop-style ; for org.kde.desktop
qtdeclarative qtdeclarative
qtkeychain-qt6
qtmultimedia qtmultimedia
qtsvg qtsvg
qtkeychain-qt6
qtwayland qtwayland
sonnet
yt-dlp)) yt-dlp))
(arguments (list #:qtbase qtbase)) (arguments (list #:qtbase qtbase))
(home-page "https://apps.kde.org/plasmatube/") (home-page "https://apps.kde.org/plasmatube/")
(synopsis "YouTube and PeerTube video player") (synopsis "Kirigami YouTube video player")
(description (description "This package provides YouTube video player based
"Plasmatube is a YouTube video player that uses Invidious and Piped on QtMultimedia and @command{yt-dlp}.")
APIs. It can also play videos from PeerTube sources.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public rattlesnake (define-public rattlesnake
+3 -24
View File
@@ -485,23 +485,11 @@ to camera devices supported by @code{libgphoto2} using
(uri (string-append "mirror://kde/stable/release-service/" version (uri (string-append "mirror://kde/stable/release-service/" version
"/src/kate-" version ".tar.xz")) "/src/kate-" version ".tar.xz"))
(sha256 (sha256
(base32 "0ah6cy92yir68z25460ccl48i5nrfqswpzil9a7l69h3qxspsk88")) (base32 "0ah6cy92yir68z25460ccl48i5nrfqswpzil9a7l69h3qxspsk88"))))
(modules '((guix build utils)))
;; Unbundle SingleApplication.
(snippet
'(begin
(delete-file-recursively "3rdparty/SingleApplication")
(with-directory-excursion "apps/kate"
(substitute* "CMakeLists.txt"
((".*3rdparty.*") "")
((" -DQAPPLICATION_CLASS=FreeStandingSingleApplication") ""))
(substitute* "main.cpp"
(("(#include )\"SingleApplication\\/SingleApplication\"" _ keep)
(string-append keep "<SingleApplication>"))))))))
(build-system qt-build-system) (build-system qt-build-system)
(native-inputs (native-inputs
(list extra-cmake-modules kdoctools xorg-server-for-tests)) (list extra-cmake-modules kdoctools xorg-server-for-tests))
;; TODO: Unbundle rapidjson. ;; TODO: Unbundle rapidjson and SingleApplication.
(inputs (inputs
(list breeze-icons ;; default icon set (list breeze-icons ;; default icon set
karchive karchive
@@ -527,20 +515,11 @@ to camera devices supported by @code{libgphoto2} using
libxkbcommon libxkbcommon
plasma-activities plasma-activities
qtsvg qtsvg
qtwayland qtwayland))
single-application))
(arguments (arguments
(list #:qtbase qtbase (list #:qtbase qtbase
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'link-single-application
(lambda _
(substitute* "apps/kate/CMakeLists.txt"
(("target_link_libraries\\(kate-bin PRIVATE kateprivate"
all)
(string-append all " "
#$(this-package-input "single-application")
"/lib/libSingleApplication.a")))))
(add-after 'unpack 'patch-tests (add-after 'unpack 'patch-tests
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; This test requires a 'bin' diretory under '/usr'. ;; This test requires a 'bin' diretory under '/usr'.
-341
View File
@@ -24,7 +24,6 @@
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (gnu packages golang-build) #:use-module (gnu packages golang-build)
#:use-module (gnu packages golang-check) #:use-module (gnu packages golang-check)
#:use-module (gnu packages golang-crypto)
#:use-module (gnu packages golang-web) #:use-module (gnu packages golang-web)
#:use-module (gnu packages golang-xyz) #:use-module (gnu packages golang-xyz)
#:use-module (gnu packages prometheus)) #:use-module (gnu packages prometheus))
@@ -34,313 +33,6 @@
;;; Libraries: ;;; Libraries:
;;; ;;;
(define-public go-go-etcd-io-etcd-client-v3
(package
(name "go-go-etcd-io-etcd-client-v3")
(version "3.6.7")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/etcd-io/etcd")
(commit (go-version->git-ref version #:subdir "client"))))
(file-name (git-file-name name version))
(sha256
(base32 "0d9rjyl5h0xm9isgr8b2fz8528wk3pds71rjl8g08fgsmsa5kicb"))
(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))))
;; Replace symlinks to tests with file contents
(for-each
(lambda (f)
(delete-file (string-append "client/v3/" f))
(copy-file (string-append
"tests/integration/clientv3/examples/" f)
(string-append "client/v3/" f)))
(list "example_auth_test.go"
"example_cluster_test.go"
"example_kv_test.go"
"example_lease_test.go"
"example_maintenance_test.go"
"example_metrics_test.go"
"example_test.go"
"example_watch_test.go"))
(for-each
(lambda (f)
(delete-file
(string-append "client/v3/concurrency/" f))
(copy-file
(string-append "tests/integration/clientv3/concurrency/" f)
(string-append "client/v3/concurrency/" f)))
(list "example_election_test.go"
"example_mutex_test.go"
"example_stm_test.go"))
;; Copy sertificates for tests.
(mkdir-p "client/v3/tests/fixtures")
(substitute* "client/v3/yaml/config_test.go"
(("\\.\\./\\.\\./\\.\\./") "../"))
(for-each
(lambda (f)
(copy-file
(string-append "tests/fixtures/" f)
(string-append "client/v3/tests/fixtures/" f)))
(list "server.crt"
"server.key.insecure"
"ca.crt"))
;; Keep source related to expected import-path.
(delete-all-but "." "client")
(delete-file-recursively "client/pkg")))))
(build-system go-build-system)
(arguments
(list
;; TODO: Tests a shaky and fail a lot, check how run unittests.
#:tests? #f
#:import-path "go.etcd.io/etcd/client/v3"
#:unpack-path "go.etcd.io/etcd"))
(native-inputs
(list go-github-com-grpc-ecosystem-go-grpc-middleware-providers-prometheus
go-github-com-prometheus-client-golang
go-github-com-stretchr-testify
go-go-etcd-io-etcd-client-pkg-v3
go-go-uber-org-zap
go-google-golang-org-grpc))
(propagated-inputs
(list go-github-com-coreos-go-semver
go-github-com-dustin-go-humanize
go-github-com-grpc-ecosystem-go-grpc-middleware-v2
go-go-etcd-io-etcd-api-v3
go-sigs-k8s-io-yaml))
(home-page "https://github.com/etcd-io/etcd")
(synopsis "Golang client for ETCD")
(description
"This package implements the official Go client for etcd.")
(license license:asl2.0)))
(define-public go-go-etcd-io-etcd-server-v3
(package
(name "go-go-etcd-io-etcd-server-v3")
(version "3.6.7")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/etcd-io/etcd")
(commit (go-version->git-ref version
#:subdir "server"))))
(file-name (git-file-name name version))
(sha256
(base32 "0d9rjyl5h0xm9isgr8b2fz8528wk3pds71rjl8g08fgsmsa5kicb"))
(modules '((guix build utils)
(ice-9 ftw)
(srfi srfi-26)))
(snippet #~(begin
(define (delete-all-but directory . preserve)
(with-directory-excursion directory
(let* ((pred (negate (cut member <>
(cons* "." ".." preserve))))
(items (scandir "." pred)))
(for-each (cut delete-file-recursively <>) items))))
(delete-all-but "." "server")
(rename-file "server" "server.tmp")
(mkdir-p "server/v3")
(rename-file "server.tmp" "server/v3")))))
(build-system go-build-system)
(arguments
(list
#:skip-build? #t
#:tests? #f ;Setup fails
#:import-path "go.etcd.io/etcd/server/v3"
#:unpack-path "go.etcd.io/etcd"))
(propagated-inputs
(list go-github-com-coreos-go-semver
go-github-com-coreos-go-systemd-v22
go-github-com-dustin-go-humanize
go-github-com-gogo-protobuf
go-github-com-golang-groupcache
go-github-com-golang-jwt-jwt-v5
go-github-com-golang-protobuf
go-github-com-google-btree
go-github-com-google-go-cmp
go-github-com-grpc-ecosystem-go-grpc-middleware
go-github-com-grpc-ecosystem-go-grpc-middleware-providers-prometheus
go-github-com-grpc-ecosystem-grpc-gateway-v2
go-github-com-jonboulle-clockwork
go-github-com-prometheus-client-golang
go-github-com-prometheus-client-model
go-github-com-soheilhy-cmux
go-github-com-spf13-cobra
go-github-com-stretchr-testify
go-github-com-tmc-grpc-websocket-proxy
go-github-com-xiang90-probing
go-go-etcd-io-bbolt
go-go-etcd-io-etcd-client-v3
go-go-etcd-io-etcd-pkg-v3
go-go-etcd-io-raft-v3
go-go-opentelemetry-io-contrib-instrumentation-google-golang-org-grpc-otelgrpc
go-go-opentelemetry-io-otel
go-go-opentelemetry-io-otel-exporters-otlp-otlptrace
go-go-opentelemetry-io-otel-exporters-otlp-otlptrace-otlptracegrpc
go-go-opentelemetry-io-otel-sdk
go-go-uber-org-zap
go-golang-org-x-crypto
go-golang-org-x-net
go-golang-org-x-time
go-google-golang-org-genproto-googleapis-api
go-google-golang-org-grpc
go-google-golang-org-protobuf
go-gopkg-in-natefinch-lumberjack-v2
go-sigs-k8s-io-json
go-sigs-k8s-io-yaml))
(home-page "https://go.etcd.io/etcd")
(synopsis "Server package for ETCD")
(description
"This package provides a server for the ETCD distributed key-value storage
system.")
(license license:asl2.0)))
(define-public go-go-etcd-io-etcd-pkg-v3
(package
(name "go-go-etcd-io-etcd-pkg-v3")
(version "3.6.7")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/etcd-io/etcd")
(commit (go-version->git-ref version
#:subdir "pkg"))))
(file-name (git-file-name name version))
(sha256
(base32 "0d9rjyl5h0xm9isgr8b2fz8528wk3pds71rjl8g08fgsmsa5kicb"))
(modules '((guix build utils)
(ice-9 ftw)
(srfi srfi-26)))
(snippet #~(begin
(define (delete-all-but directory . preserve)
(with-directory-excursion directory
(let* ((pred (negate (cut member <>
(cons* "." ".." preserve))))
(items (scandir "." pred)))
(for-each (cut delete-file-recursively <>) items))))
(delete-all-but "." "pkg")
(rename-file "pkg" "pkg.tmp")
(mkdir-p "pkg/v3")
(rename-file "pkg.tmp" "pkg/v3")))))
(build-system go-build-system)
(arguments
(list
#:skip-build? #t
#:tests? #f ;TODO: Tests hang, select some subset
#:import-path "go.etcd.io/etcd/pkg/v3"
#:unpack-path "go.etcd.io/etcd"))
(native-inputs
(list go-github-com-spf13-cobra
go-github-com-spf13-pflag
go-github-com-stretchr-testify))
(propagated-inputs
(list go-github-com-creack-pty
go-github-com-dustin-go-humanize
go-go-etcd-io-etcd-client-pkg-v3
go-go-uber-org-zap
go-google-golang-org-grpc))
(home-page "https://github.com/etcd-io/etcd")
(synopsis "Utility packages for etcd")
(description
"This package is a collection of utility packages used by etcd without
being specific to etcd itself.")
(license license:asl2.0)))
(define-public go-k8s-io-apiserver
(package
(name "go-k8s-io-apiserver")
(version "0.34.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/kubernetes/apiserver")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "06bcbdnlhg1mwky6i1519n1nhlh8rxc9qv7jwqjhc03m2ql3bb8q"))))
(build-system go-build-system)
(arguments
(list
#:tests? #f ;TODO: Tests require unpackaged dependencies
#:embed-files
#~(list "authoring\\.tmpl" "api__v1_openapi\\.json")
#:import-path "k8s.io/apiserver"))
(native-inputs
(list go-github-com-stretchr-testify))
(propagated-inputs
(list go-github-com-blang-semver-v4
go-github-com-coreos-go-oidc
go-github-com-coreos-go-systemd-v22
go-github-com-emicklei-go-restful-v3
go-github-com-fsnotify-fsnotify
go-github-com-go-logr-logr
go-github-com-gogo-protobuf
go-github-com-google-btree
go-github-com-google-cel-go
go-github-com-google-gnostic-models
go-github-com-google-go-cmp
go-github-com-google-uuid
go-github-com-gorilla-websocket
go-github-com-grpc-ecosystem-go-grpc-prometheus
go-github-com-munnerz-goautoneg
go-github-com-mxk-go-flowrate
go-github-com-spf13-pflag
go-go-etcd-io-etcd-api-v3
go-go-etcd-io-etcd-client-pkg-v3
go-go-etcd-io-etcd-client-v3
go-go-etcd-io-etcd-server-v3
go-go-opentelemetry-io-contrib-instrumentation-google-golang-org-grpc-otelgrpc
go-go-opentelemetry-io-contrib-instrumentation-net-http-otelhttp
go-go-opentelemetry-io-otel
go-go-opentelemetry-io-otel-exporters-otlp-otlptrace-otlptracegrpc
go-go-opentelemetry-io-otel-metric
go-go-opentelemetry-io-otel-sdk
go-go-opentelemetry-io-otel-trace
go-go-uber-org-zap
go-golang-org-x-crypto
go-golang-org-x-net
go-golang-org-x-sync
go-golang-org-x-sys
go-golang-org-x-time
go-google-golang-org-genproto-googleapis-api
go-google-golang-org-grpc
go-google-golang-org-protobuf
go-gopkg-in-evanphx-json-patch-v4
go-gopkg-in-go-jose-go-jose-v2
go-gopkg-in-natefinch-lumberjack-v2
go-k8s-io-api
go-k8s-io-apimachinery
go-k8s-io-client-go
go-k8s-io-component-base
go-k8s-io-klog-v2
go-k8s-io-kms
go-k8s-io-kube-openapi
go-k8s-io-utils
go-sigs-k8s-io-apiserver-network-proxy-konnectivity-client
go-sigs-k8s-io-json
go-sigs-k8s-io-randfill
go-sigs-k8s-io-structured-merge-diff-v6
go-sigs-k8s-io-yaml))
(home-page "https://github.com/kubernetes/apiserver")
(synopsis "Library for building a Kubernetes aggregated API server")
(description
"This package provides a generic library for building a Kubernetes
aggregated API server.")
(license license:asl2.0)))
(define-public go-k8s-io-component-base (define-public go-k8s-io-component-base
(package (package
(name "go-k8s-io-component-base") (name "go-k8s-io-component-base")
@@ -395,39 +87,6 @@ aggregated API server.")
"This package contains shared code for Kubernetes core components.") "This package contains shared code for Kubernetes core components.")
(license license:asl2.0))) (license license:asl2.0)))
(define-public go-sigs-k8s-io-apiserver-network-proxy-konnectivity-client
(package
(name "go-sigs-k8s-io-apiserver-network-proxy-konnectivity-client")
(version "0.34.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/kubernetes-sigs/apiserver-network-proxy")
(commit (go-version->git-ref version
#:subdir "konnectivity-client"))))
(file-name (git-file-name name version))
(sha256
(base32 "1kh92blfpmrmklxqg5j0p07yz534gjzhm44xj8bh5pad3y5zw5m0"))))
(build-system go-build-system)
(arguments
(list
#:skip-build? #t
#:import-path "sigs.k8s.io/apiserver-network-proxy/konnectivity-client"
#:unpack-path "sigs.k8s.io/apiserver-network-proxy"))
(native-inputs
(list go-go-uber-org-goleak))
(propagated-inputs
(list go-github-com-prometheus-client-golang
go-google-golang-org-grpc
go-google-golang-org-protobuf
go-k8s-io-klog-v2))
(home-page "https://sigs.k8s.io/apiserver-network-proxy")
(synopsis "Network proxy for Kubernetes API server")
(description
"This package provides a network proxy for the Kubernetes API server.")
(license license:asl2.0)))
;;; ;;;
;;; Executables: ;;; Executables:
+2 -2
View File
@@ -164,14 +164,14 @@ resolution, asynchronous file system operations, and threading primitives.")
(package (package
(inherit libuv) (inherit libuv)
(name "libuv") (name "libuv")
(version "1.51.0") (version "1.49.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://dist.libuv.org/dist/v" version (uri (string-append "https://dist.libuv.org/dist/v" version
"/libuv-v" version ".tar.gz")) "/libuv-v" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1szqivvs7izbhw1a3nd1ipbk012yvqqkjg0sjmqxw1hi1fwmf1az")))) "1a75p8wp4l43y2ffj1szs1ssm6nzjad7k51bqi2r04ngs9mp044c"))))
(properties '((hidden? . #t))))) (properties '((hidden? . #t)))))
(define-public libuv-for-r-httpuv (define-public libuv-for-r-httpuv
+13 -13
View File
@@ -125,14 +125,14 @@
;; ex: ;; ex:
;; tar xf /gnu/store/...-firefox-123.4.source.tar.xz -O \ ;; tar xf /gnu/store/...-firefox-123.4.source.tar.xz -O \
;; firefox-123.4/browser/locales/l10n-changesets.json | grep revision ;; firefox-123.4/browser/locales/l10n-changesets.json | grep revision
(let ((commit "fefe280d909d0eee8d60edd2a6db7d969df56c5b")) (let ((commit "0245ffb160688061f0e0c67ea488bcdfdacbeca4"))
(origin (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/mozilla-l10n/firefox-l10n.git") (url "https://github.com/mozilla-l10n/firefox-l10n.git")
(commit commit))) (commit commit)))
(file-name (git-file-name "firefox-l10n" commit)) (file-name (git-file-name "firefox-l10n" commit))
(sha256 (base32 "0z1ksvspbn4bbzxdl2w4x7bg36j4rwhaby8g37apg4393frh558i"))))) (sha256 (base32 "0y8xdxql04yys0wj685v4yp3kmx1ivnndg6z11vam8vszh0j7ak6")))))
(define* (make-librewolf-source #:key version firefox-hash librewolf-hash l10n) (define* (make-librewolf-source #:key version firefox-hash librewolf-hash l10n)
(let* ((ff-src (firefox-source-origin (let* ((ff-src (firefox-source-origin
@@ -238,23 +238,23 @@
;;; but since in Guix only the latest packaged Rust is officially supported, ;;; but since in Guix only the latest packaged Rust is officially supported,
;;; it is a tradeoff worth making. ;;; it is a tradeoff worth making.
;;; 0: https://firefox-source-docs.mozilla.org/writing-rust-code/update-policy.html ;;; 0: https://firefox-source-docs.mozilla.org/writing-rust-code/update-policy.html
(define rust-librewolf rust-1.94) (define rust-librewolf rust-1.93)
;; Update this id with every update to its release date. ;; Update this id with every update to its release date.
;; It's used for cache validation and therefore can lead to strange bugs. ;; It's used for cache validation and therefore can lead to strange bugs.
;; ex: date '+%Y%m%d%H%M%S' ;; ex: date '+%Y%m%d%H%M%S'
;; or: (format-time-string "%Y%m%d%H%M%S") ;; or: (format-time-string "%Y%m%d%H%M%S")
(define %librewolf-build-id "20260428201413") (define %librewolf-build-id "20260409162101")
(define-public librewolf (define-public librewolf
(package (package
(name "librewolf") (name "librewolf")
(version "150.0.1-1") (version "149.0.2-2")
(source (source
(make-librewolf-source (make-librewolf-source
#:version version #:version version
#:firefox-hash "1v3fbwvd0khm3xwsgwcp6wpwmkz0v6fyk37hxj0mqkwjimqgmkra" #:firefox-hash "1kkhg3lgyakinn5ankxrlxbf39wi61mqbhwrj1l4q5l7y0n1m4va"
#:librewolf-hash "0294lsiyvfh93id04xki4bhs8d84vmysqviivxiif0xfzqv65qzp" #:librewolf-hash "1bai8g2kc9snck2f724al29q6r57vkj3d7v58rf0mgzpqzvwnw5f"
#:l10n firefox-l10n)) #:l10n firefox-l10n))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
@@ -352,18 +352,18 @@
(cdr pref))) (cdr pref)))
`(("extensions.getAddons.search.browseURL" `(("extensions.getAddons.search.browseURL"
,(string-append ,(string-append
"https://gnuzilla.gnu.org/" "https://gnuzilla.gnu.org/mozzarella/"
"search.php?q=%TERMS%")) "search.php?q=%TERMS%"))
("extensions.getAddons.get.url" . ("extensions.getAddons.get.url" .
"https://gnuzilla.gnu.org") "https://gnuzilla.gnu.org/mozzarella")
("extensions.getAddons.link.url" . ("extensions.getAddons.link.url" .
"https://gnuzilla.gnu.org") "https://gnuzilla.gnu.org/mozzarella")
("extensions.getAddons.discovery.api_url" . ("extensions.getAddons.discovery.api_url" .
"https://gnuzilla.gnu.org") "https://gnuzilla.gnu.org/mozzarella")
("extensions.getAddons.langpacks.url" . ("extensions.getAddons.langpacks.url" .
"https://gnuzilla.gnu.org") "https://gnuzilla.gnu.org/mozzarella")
("lightweightThemes.getMoreURL" . ("lightweightThemes.getMoreURL" .
"https://gnuzilla.gnu.org"))))))) "https://gnuzilla.gnu.org/mozzarella")))))))
(add-after 'patch-source-shebangs 'patch-cargo-checksums (add-after 'patch-source-shebangs 'patch-cargo-checksums
(lambda _ (lambda _
(use-modules (guix build cargo-utils)) (use-modules (guix build cargo-utils))
+198 -162
View File
@@ -87,7 +87,6 @@
;;; Copyright © 2025 John Kehayias <john.kehayias@protonmail.com> ;;; Copyright © 2025 John Kehayias <john.kehayias@protonmail.com>
;;; Copyright © 2025 Arjan Adriaanse <arjan@adriaan.se> ;;; Copyright © 2025 Arjan Adriaanse <arjan@adriaan.se>
;;; Copyright © 2026 Justin Veilleux <terramorpha@cock.li> ;;; Copyright © 2026 Justin Veilleux <terramorpha@cock.li>
;;; Copyright © 2026 Simen Endsjø <contact@simendsjo.me>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@@ -529,27 +528,10 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
"linux-" version ".tar.xz")) "linux-" version ".tar.xz"))
(sha256 hash))) (sha256 hash)))
;; The current "mainline" kernel.
(define-public linux-libre-7.0-version "7.0.3")
(define-public linux-libre-7.0-gnu-revision "gnu")
(define deblob-scripts-7.0
(linux-libre-deblob-scripts
linux-libre-7.0-version
linux-libre-7.0-gnu-revision
(base32 "0pqhhkpq61rvdiyas28x7kclsz1iribzwsyf81gbic56ci4z2ldv")
(base32 "0a7572zw5y3k4gs4p3h5w0s9bhd63pdjxz6vxbr96sq6r8b6k02n")))
(define-public linux-libre-7.0-pristine-source
(let ((version linux-libre-7.0-version)
(hash (base32 "074zjl0v901a9hafgpcxyyd395qs7y4kr4fcpgg3ssc8ayzsvv8b")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-7.0)))
;; The current "stable" kernels. That is, the most recently released major ;; The current "stable" kernels. That is, the most recently released major
;; versions that are still supported upstream. ;; versions that are still supported upstream.
(define-public linux-libre-6.19-version "6.19.14") (define-public linux-libre-6.19-version "6.19.12")
(define-public linux-libre-6.19-gnu-revision "gnu") (define-public linux-libre-6.19-gnu-revision "gnu")
(define deblob-scripts-6.19 (define deblob-scripts-6.19
(linux-libre-deblob-scripts (linux-libre-deblob-scripts
@@ -559,12 +541,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "05jpciyypvmy6byaxjl49b1fvzxcnlhknf0xabrdj5152iznrzkh"))) (base32 "05jpciyypvmy6byaxjl49b1fvzxcnlhknf0xabrdj5152iznrzkh")))
(define-public linux-libre-6.19-pristine-source (define-public linux-libre-6.19-pristine-source
(let ((version linux-libre-6.19-version) (let ((version linux-libre-6.19-version)
(hash (base32 "11giqsz9qa7s9lm94nn4h1bcb2411crsbfyvzrvhfjmy75kvzs6d"))) (hash (base32 "1md8b270pdyk9d8cq0qyr8qmymcijmj3gc39nn394wpr0l94yp6f")))
(make-linux-libre-source version (make-linux-libre-source version
(%upstream-linux-source version hash) (%upstream-linux-source version hash)
deblob-scripts-6.19))) deblob-scripts-6.19)))
(define-public linux-libre-6.18-version "6.18.26") (define-public linux-libre-6.18-version "6.18.22")
(define-public linux-libre-6.18-gnu-revision "gnu") (define-public linux-libre-6.18-gnu-revision "gnu")
(define deblob-scripts-6.18 (define deblob-scripts-6.18
(linux-libre-deblob-scripts (linux-libre-deblob-scripts
@@ -574,7 +556,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "0qlih8w8wg4v5cwbmd34rbhb6mjgbx69i9rx3s2vxw7h42q9l0ai"))) (base32 "0qlih8w8wg4v5cwbmd34rbhb6mjgbx69i9rx3s2vxw7h42q9l0ai")))
(define-public linux-libre-6.18-pristine-source (define-public linux-libre-6.18-pristine-source
(let ((version linux-libre-6.18-version) (let ((version linux-libre-6.18-version)
(hash (base32 "1v5h0w3s8p5m22jxg992x1jfpwyi80ia70cdgiv47q3n6xfjyxsk"))) (hash (base32 "0nazlm6j5blyd4qgl0z6xc3qk00vz3cfvx5mqv18awv5ygx94g52")))
(make-linux-libre-source version (make-linux-libre-source version
(%upstream-linux-source version hash) (%upstream-linux-source version hash)
deblob-scripts-6.18))) deblob-scripts-6.18)))
@@ -583,7 +565,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
;; Here are the support timelines: ;; Here are the support timelines:
;; <https://www.kernel.org/category/releases.html> ;; <https://www.kernel.org/category/releases.html>
(define-public linux-libre-6.12-version "6.12.85") (define-public linux-libre-6.12-version "6.12.81")
(define-public linux-libre-6.12-gnu-revision "gnu") (define-public linux-libre-6.12-gnu-revision "gnu")
(define deblob-scripts-6.12 (define deblob-scripts-6.12
(linux-libre-deblob-scripts (linux-libre-deblob-scripts
@@ -593,12 +575,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1x48hpmvajz7v5wn1vdd7l5r14mq4ngzh5npz3pj81z4f1g61i0a"))) (base32 "1x48hpmvajz7v5wn1vdd7l5r14mq4ngzh5npz3pj81z4f1g61i0a")))
(define-public linux-libre-6.12-pristine-source (define-public linux-libre-6.12-pristine-source
(let ((version linux-libre-6.12-version) (let ((version linux-libre-6.12-version)
(hash (base32 "1v8a0z6znmr2m26l4744wndaimsh24zz6q4d7m4p8s0ayjcwjnp3"))) (hash (base32 "0iw84bqdbh9dlaqd1bqgldg50riw2b5is7ipqnbp0sll8cv9rc62")))
(make-linux-libre-source version (make-linux-libre-source version
(%upstream-linux-source version hash) (%upstream-linux-source version hash)
deblob-scripts-6.12))) deblob-scripts-6.12)))
(define-public linux-libre-6.6-version "6.6.137") (define-public linux-libre-6.6-version "6.6.134")
(define-public linux-libre-6.6-gnu-revision "gnu") (define-public linux-libre-6.6-gnu-revision "gnu")
(define deblob-scripts-6.6 (define deblob-scripts-6.6
(linux-libre-deblob-scripts (linux-libre-deblob-scripts
@@ -608,12 +590,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "0xp9b2vkrb0g0rn4i33b59rhp4sgh1dbwzk28vwz7kwac6l5rcpi"))) (base32 "0xp9b2vkrb0g0rn4i33b59rhp4sgh1dbwzk28vwz7kwac6l5rcpi")))
(define-public linux-libre-6.6-pristine-source (define-public linux-libre-6.6-pristine-source
(let ((version linux-libre-6.6-version) (let ((version linux-libre-6.6-version)
(hash (base32 "1i2npnsnhk41a88vimr521rxg77kljbkqmlyk1zrv7z4ic6ykwcj"))) (hash (base32 "1grp1wqgzjsk6xyl0nvd2hxlxjj0wgz04x544zkz8srp6rxnjy33")))
(make-linux-libre-source version (make-linux-libre-source version
(%upstream-linux-source version hash) (%upstream-linux-source version hash)
deblob-scripts-6.6))) deblob-scripts-6.6)))
(define-public linux-libre-6.1-version "6.1.170") (define-public linux-libre-6.1-version "6.1.168")
(define-public linux-libre-6.1-gnu-revision "gnu") (define-public linux-libre-6.1-gnu-revision "gnu")
(define deblob-scripts-6.1 (define deblob-scripts-6.1
(linux-libre-deblob-scripts (linux-libre-deblob-scripts
@@ -623,12 +605,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1w5pfws6l39dpc3lzazs1n6r4m96f6rdf6vb2scy5fhmrd933ldc"))) (base32 "1w5pfws6l39dpc3lzazs1n6r4m96f6rdf6vb2scy5fhmrd933ldc")))
(define-public linux-libre-6.1-pristine-source (define-public linux-libre-6.1-pristine-source
(let ((version linux-libre-6.1-version) (let ((version linux-libre-6.1-version)
(hash (base32 "0i29gilsvl7vx7p6vqg0bc0d40ir1b968hyfjhdfms55g4pr2y5m"))) (hash (base32 "0vkp75sfnjvfqxjh6gqcx24h2m6qj6xkwlw6b118cja43vjnz1g0")))
(make-linux-libre-source version (make-linux-libre-source version
(%upstream-linux-source version hash) (%upstream-linux-source version hash)
deblob-scripts-6.1))) deblob-scripts-6.1)))
(define-public linux-libre-5.15-version "5.15.204") (define-public linux-libre-5.15-version "5.15.202")
(define-public linux-libre-5.15-gnu-revision "gnu") (define-public linux-libre-5.15-gnu-revision "gnu")
(define deblob-scripts-5.15 (define deblob-scripts-5.15
(linux-libre-deblob-scripts (linux-libre-deblob-scripts
@@ -638,7 +620,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1s6km2r2mad0wpf7nqn4rqsykw1lm386l1yskmil24239fbva1f1"))) (base32 "1s6km2r2mad0wpf7nqn4rqsykw1lm386l1yskmil24239fbva1f1")))
(define-public linux-libre-5.15-pristine-source (define-public linux-libre-5.15-pristine-source
(let ((version linux-libre-5.15-version) (let ((version linux-libre-5.15-version)
(hash (base32 "1kfvfvzhdgjcj1pa2aqks3iah00ilfpp1i9bmbwjr3na0crlrzcv"))) (hash (base32 "1m6d53qx1ah4jwpa8hwjdmq0jn2hf7xmz1li6rwpdqjp97vvvh8b")))
(make-linux-libre-source version (make-linux-libre-source version
(%upstream-linux-source version hash) (%upstream-linux-source version hash)
deblob-scripts-5.15))) deblob-scripts-5.15)))
@@ -686,10 +668,6 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(patches (append (origin-patches source) (patches (append (origin-patches source)
patches)))) patches))))
(define-public linux-libre-7.0-source
(source-with-patches linux-libre-7.0-pristine-source
(list %linux-libre-arm-export-__sync_icache_dcache-patch)))
(define-public linux-libre-6.19-source (define-public linux-libre-6.19-source
(source-with-patches linux-libre-6.19-pristine-source (source-with-patches linux-libre-6.19-pristine-source
(list %boot-logo-patch (list %boot-logo-patch
@@ -812,11 +790,6 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(description "Headers of the Linux-Libre kernel.") (description "Headers of the Linux-Libre kernel.")
(license license:gpl2))) (license license:gpl2)))
(define-public linux-libre-headers-7.0
(make-linux-libre-headers* linux-libre-7.0-version
linux-libre-7.0-gnu-revision
linux-libre-7.0-source))
(define-public linux-libre-headers-6.19 (define-public linux-libre-headers-6.19
(make-linux-libre-headers* linux-libre-6.19-version (make-linux-libre-headers* linux-libre-6.19-version
linux-libre-6.19-gnu-revision linux-libre-6.19-gnu-revision
@@ -1203,14 +1176,6 @@ Linux kernel. It has been modified to remove all non-free binary blobs.")
;;; Generic kernel packages. ;;; Generic kernel packages.
;;; ;;;
(define-public linux-libre-7.0
(make-linux-libre* linux-libre-7.0-version
linux-libre-7.0-gnu-revision
linux-libre-7.0-source
'("x86_64-linux" "i686-linux" "armhf-linux"
"aarch64-linux" "powerpc64le-linux" "riscv64-linux")
#:configuration-file kernel-config))
(define-public linux-libre-6.19 (define-public linux-libre-6.19
(make-linux-libre* linux-libre-6.19-version (make-linux-libre* linux-libre-6.19-version
linux-libre-6.19-gnu-revision linux-libre-6.19-gnu-revision
@@ -2802,6 +2767,32 @@ This package provides the @command{corefreqd} data collection daemon, the
(supported-systems (list "x86_64-linux")) (supported-systems (list "x86_64-linux"))
(license license:gpl2))) (license license:gpl2)))
(define-public librem-ec-acpi-linux-module
(package
(name "librem-ec-acpi-linux-module")
(version "0.9.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://source.puri.sm/nicole.faerber/librem-ec-acpi-dkms")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0m8hamf0550083jnk5q4hv20l8lfiardnkxbib4hhvqghpzzbxl0"))))
(build-system linux-module-build-system)
(arguments
(list #:tests? #f)) ; no test suite
(home-page "https://source.puri.sm/nicole.faerber/librem-ec-acpi-dkms")
(synopsis "Linux kernel module to control the Librem Embedded Controller")
(description
"This is the Linux kernel @acronym{ACPI, Advanced Configuration and Power
Interface} platform driver for the @acronym{EC, Embedded Controller} firmware
on Purism Librem laptop computers. It allows user-space control over the
battery charging thresholds, keyboard backlight, fans and thermal monitors,
and the notification, WiFi, and Bluetooth LED.")
(license license:gpl2)))
(define-public tuxedo-keyboard (define-public tuxedo-keyboard
(package (package
(name "tuxedo-keyboard") (name "tuxedo-keyboard")
@@ -2835,7 +2826,7 @@ module is also needed for the @code{tuxedo-control-center} (short tcc) package."
(define-public evdi (define-public evdi
(package (package
(name "evdi") (name "evdi")
(version "1.14.15") ;inherited by libevdi (version "1.14.8") ;inherited by libevdi
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -2844,20 +2835,14 @@ module is also needed for the @code{tuxedo-control-center} (short tcc) package."
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "065mfwmb4nw71s0f0ax9si8xpbr1sah1bhxvq1k81yicvi83wsxn")))) (base32 "18n8kk4gbbj252a2dqb7mbpscfb437x42flh1fsl4g5c8brczc77"))))
(build-system linux-module-build-system) (build-system linux-module-build-system)
(arguments (arguments
(list #:tests? #f ;no test suite (list #:tests? #f ;no test suite
#:phases #~(modify-phases %standard-phases #:phases #~(modify-phases %standard-phases
(add-after 'unpack 'chdir (add-after 'unpack 'chdir
(lambda _ (lambda _
(chdir "module"))) (chdir "module"))))))
;; Looks like the value is only there to detect RHEL
;; derivatives, so we can safely delete the include.
(add-after 'unpack 'embed-/etc/os-release
(lambda _
(substitute* "module/Makefile"
(("include /etc/os-release") "")))))))
(home-page "https://github.com/DisplayLink/evdi") (home-page "https://github.com/DisplayLink/evdi")
(synopsis (synopsis
"@acronym{EVDI, Extensible Virtual Display Interface} Linux kernel module") "@acronym{EVDI, Extensible Virtual Display Interface} Linux kernel module")
@@ -2870,7 +2855,7 @@ and receive screen updates.
The EVDI driver uses the standard Linux @acronym{DRM, Direct Rendering Manager}. The EVDI driver uses the standard Linux @acronym{DRM, Direct Rendering Manager}.
Its displays can be controlled by standard tools such as @command{xrandr} and Its displays can be controlled by standard tools such as @command{xrandr} and
display settings applets in graphical environments.") display settings applets in graphical environments")
(license license:gpl2))) (license license:gpl2)))
(define-public libevdi (define-public libevdi
@@ -2927,6 +2912,62 @@ registers of the @acronym{EC, Embedded Controller} supported by the
@code{ec_sys} Linux driver.") @code{ec_sys} Linux driver.")
(license license:gpl2))) (license license:gpl2)))
(define-public lkrg
(package
(name "lkrg")
(version "0.9.7")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/lkrg-org/lkrg")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0k0z9caj48nqjwk3bapgfcdzi1lkizxcjj4r1dvkvwsk38mbk1c4"))))
(build-system linux-module-build-system)
(arguments
(list #:linux linux-libre
#:tests? #f
#:make-flags #~(list (string-append "CC="
#$(cc-for-target))
(string-append "SYSSRC="
(assoc-ref %build-inputs
"linux-module-builder")
"/lib/modules/build"))))
(inputs (list bash-minimal))
(home-page "https://lkrg.org/")
(synopsis "Linux Kernel Runtime Guard")
(description
"This package performs runtime integrity checking of the Linux kernel and
detection of security vulnerability exploits against the kernel.")
(license license:gpl2)))
(define-public vhba-module
(package
(name "vhba-module")
(version "20211218")
(source
(origin
(method url-fetch)
(uri (string-append
"http://downloads.sourceforge.net/cdemu/vhba-module/vhba-module-"
version ".tar.xz"))
(sha256
(base32 "1dkprnnya0i8121p7ip4g8cww99drk7fzbwcxx65x02jqk0siibj"))))
(build-system linux-module-build-system)
(arguments
(list #:tests? #f)) ; no test suite
(home-page "https://cdemu.sourceforge.io/")
(synopsis "Linux kernel module that emulates SCSI devices")
(description
"The @acronym{VHBA, Virtual SCSI Host Bus Adapter} module is the link
between the CDemu user-space daemon and the kernel Linux. It acts as a
low-level SCSI driver that emulates a virtual SCSI adapter which can have
multiple virtual devices attached to it. Its typical use with CDEmu is to
emulate optical devices such as DVD and CD-ROM drives.")
(license license:gpl2+)))
(define-public bbswitch-module (define-public bbswitch-module
;; Use "develop" branch since stable release does not build on Linux >= 5.6. ;; Use "develop" branch since stable release does not build on Linux >= 5.6.
;; See https://github.com/Bumblebee-Project/bbswitch/issues/205. ;; See https://github.com/Bumblebee-Project/bbswitch/issues/205.
@@ -3123,6 +3164,36 @@ Linux kernel module, it also contains a modprobe configuration and udev rules,
which need to be installed separately.") which need to be installed separately.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public vendor-reset-linux-module
(let ((commit "4b466e92a2d9f76ce1082cde982c7be0be91e248")
(revision "0"))
(package
(name "vendor-reset-linux-module")
(version (git-version "0.1.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/gnif/vendor-reset")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1gaf4j20grng689c9fylcqri3j9ycnhr2bsva2z6qcdqvzl6yxbi"))))
(build-system linux-module-build-system)
(arguments
(list #:tests? #f)) ;no test suite
(home-page "https://github.com/gnif/vendor-reset")
(synopsis
"Kernel module that resets GPUs that are affected by the reset bug")
(description
"This package provides a kernel module that is capable of
resetting hardware devices into a state where they can be
re-initialized or passed through into a virtual machine (VFIO).
While it would be great to have these in the kernel as PCI quirks,
some of the reset procedures are very complex and would never be
accepted as a quirk (ie AMD Vega 10).")
(license license:gpl2))))
;;; ;;;
;;; Pluggable authentication modules (PAM). ;;; Pluggable authentication modules (PAM).
@@ -4195,15 +4266,16 @@ intercept and print the system calls executed by the program.")
(define-public alsa-ucm-conf (define-public alsa-ucm-conf
(package (package
(name "alsa-ucm-conf") (name "alsa-ucm-conf")
(version "1.2.11") (version "1.2.15.3")
(source (origin (source
(method url-fetch) (origin
(uri (string-append (method git-fetch)
"ftp://ftp.alsa-project.org/pub/lib/" name "-" (uri (git-reference
version ".tar.bz2")) (url "https://github.com/alsa-project/alsa-ucm-conf")
(sha256 (commit (string-append "v" version))))
(base32 (file-name (git-file-name name version))
"10dfzvrmpp9swflw47nxf35an6gj3ilb4wlggdnng8g2637h2z1q")))) (sha256
(base32 "1mlvzvz7npdvprlq1ff9pg3awsdvv3czv7wchfm96jflhks3pnsm"))))
(build-system copy-build-system) (build-system copy-build-system)
(arguments (arguments
'(#:install-plan '(#:install-plan
@@ -4212,23 +4284,24 @@ intercept and print the system calls executed by the program.")
(home-page "https://www.alsa-project.org/wiki/Main_Page") (home-page "https://www.alsa-project.org/wiki/Main_Page")
(synopsis "The Advanced Linux Sound Architecture Use Case Manager") (synopsis "The Advanced Linux Sound Architecture Use Case Manager")
(description (description
"This package contains Advanced Linux Sound Architecture Use Case Manager "This package contains @acronym{ALSA, Advanced Linux Sound Architecture}
configuration of audio input/output names and routing for specific audio @acronym{UCM, Use Case Manager} configuration of audio input/output names and
hardware.") routing for specific audio hardware.")
(license license:bsd-3))) (license license:bsd-3)))
(define-public alsa-topology-conf (define-public alsa-topology-conf
(package (package
(name "alsa-topology-conf") (name "alsa-topology-conf")
(version "1.2.4") (version "1.2.5.1")
(source (origin (source
(method url-fetch) (origin
(uri (string-append (method git-fetch)
"ftp://ftp.alsa-project.org/pub/lib/" name "-" (uri (git-reference
version ".tar.bz2")) (url "https://github.com/alsa-project/alsa-topology-conf")
(sha256 (commit (string-append "v" version))))
(base32 (file-name (git-file-name name version))
"01zdg6q4s6d01k39z96wi4vbhrfw1i2g4yi5dijwfk6a5vjfdq2m")))) (sha256
(base32 "150065nc5ksrxcay0ia0f8ad2s0gpp3xgn7gc5xsyf0k5dwdby49"))))
(build-system copy-build-system) (build-system copy-build-system)
(arguments (arguments
'(#:install-plan '(#:install-plan
@@ -4236,22 +4309,23 @@ hardware.")
(home-page "https://www.alsa-project.org/wiki/Main_Page") (home-page "https://www.alsa-project.org/wiki/Main_Page")
(synopsis "The Advanced Linux Sound Architecture libraries") (synopsis "The Advanced Linux Sound Architecture libraries")
(description (description
"This package contains Advanced Linux Sound Architecture topology "This package contains @acronym{ALSA, Advanced Linux Sound Architecture}
configuration files that can be used for specific audio hardware.") topology configuration files that can be used for specific audio hardware.")
(license license:bsd-3))) (license license:bsd-3)))
(define-public alsa-lib (define-public alsa-lib
(package (package
(name "alsa-lib") (name "alsa-lib")
(version "1.2.11") (version "1.2.15.3")
(source (origin (source
(method url-fetch) (origin
(uri (string-append (method git-fetch)
"https://www.alsa-project.org/files/pub/lib/" (uri (git-reference
name "-" version ".tar.bz2")) (url "https://github.com/alsa-project/alsa-lib")
(sha256 (commit (string-append "v" version))))
(base32 (file-name (git-file-name name version))
"0kdvjlknc50fwfdkxj0z12xbz21skb3gnwlh6lvsvycmp5ljygwz")))) (sha256
(base32 "03h35rhyzks0m96zy94vipwbjbpp323bj7hhhh28qfs8jpbl3c7i"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:configure-flags (list (string-append "LDFLAGS=-Wl,-rpath=" '(#:configure-flags (list (string-append "LDFLAGS=-Wl,-rpath="
@@ -4283,22 +4357,24 @@ configuration files that can be used for specific audio hardware.")
(home-page "https://www.alsa-project.org/wiki/Main_Page") (home-page "https://www.alsa-project.org/wiki/Main_Page")
(synopsis "The Advanced Linux Sound Architecture libraries") (synopsis "The Advanced Linux Sound Architecture libraries")
(description (description
"The Advanced Linux Sound Architecture (ALSA) provides audio and "@acronym{ALSA, Advanced Linux Sound Architecture} provides audio and
MIDI functionality to the Linux-based operating system.") @acronym{MIDI, Musical Instrument Digital Interface} functionality to the
Linux-based operating system.")
(license license:lgpl2.1+))) (license license:lgpl2.1+)))
(define-public alsa-utils (define-public alsa-utils
(package (package
(name "alsa-utils") (name "alsa-utils")
(version "1.2.11") (version "1.2.15.2")
(source (origin (source
(method url-fetch) (origin
(uri (string-append (method git-fetch)
"https://www.alsa-project.org/files/pub/utils/" (uri (git-reference
name "-" version ".tar.bz2")) (url "https://github.com/alsa-project/alsa-utils")
(sha256 (commit (string-append "v" version))))
(base32 (file-name (git-file-name name version))
"19r8qi6b7sd2p1mhxfqrp18wrgjw5s6rp5ygimb1w59zi0xcmils")))) (sha256
(base32 "1mlvzvz7npdvprlq1ff9pg3awsdvv3czv7wchfm96jflhks3pnsm"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list (list
@@ -4322,8 +4398,9 @@ MIDI functionality to the Linux-based operating system.")
(home-page "http://www.alsa-project.org/") (home-page "http://www.alsa-project.org/")
(synopsis "Utilities for the Advanced Linux Sound Architecture (ALSA)") (synopsis "Utilities for the Advanced Linux Sound Architecture (ALSA)")
(description (description
"The Advanced Linux Sound Architecture (ALSA) provides audio and "@acronym{ALSA, Advanced Linux Sound Architecture} provides audio and
MIDI functionality to the Linux-based operating system.") @acronym{MIDI, Musical Instrument Digital Interface} functionality to the
Linux-based operating system.")
;; This is mostly GPLv2+ but a few files such as 'alsactl.c' are ;; This is mostly GPLv2+ but a few files such as 'alsactl.c' are
;; GPLv2-only. ;; GPLv2-only.
@@ -4332,14 +4409,16 @@ MIDI functionality to the Linux-based operating system.")
(define-public alsa-plugins (define-public alsa-plugins
(package (package
(name "alsa-plugins") (name "alsa-plugins")
(version "1.2.2") (version "1.2.12")
(source (origin (source
(method url-fetch) (origin
(uri (string-append "ftp://ftp.alsa-project.org/pub/plugins/" (method git-fetch)
name "-" version ".tar.bz2")) (uri (git-reference
(sha256 (url "https://github.com/alsa-project/alsa-plugins")
(base32 (commit (string-append "v" version))))
"0z9k3ssbfk2ky2w13avgyf202j1drsz9sv3834bp33cj1i2hc3qw")))) (file-name (git-file-name name version))
(sha256
(base32 "0izvzdvw3nj69l4a968p9d9xjxfxs7i3bdpj1r4cvm6b8w7j33z8"))))
(build-system gnu-build-system) (build-system gnu-build-system)
;; TODO: Split libavcodec and speex if possible. It looks like they can not ;; TODO: Split libavcodec and speex if possible. It looks like they can not
;; be split, there are references to both in files. ;; be split, there are references to both in files.
@@ -4391,51 +4470,16 @@ MIDI functionality to the Linux-based operating system.")
(home-page "http://www.alsa-project.org/") (home-page "http://www.alsa-project.org/")
(synopsis "Plugins for the Advanced Linux Sound Architecture (ALSA)") (synopsis "Plugins for the Advanced Linux Sound Architecture (ALSA)")
(description (description
"The Advanced Linux Sound Architecture (ALSA) provides audio and "@acronym{ALSA, Advanced Linux Sound Architecture} provides audio and
MIDI functionality to the Linux-based operating system. This package enhances ALSA @acronym{MIDI, Musical Instrument Digital Interface} functionality to the
by providing additional plugins which include: upmixing, downmixing, jackd and Linux-based operating system. This package enhances @acronym{ALSA} by
pulseaudio support for native alsa applications, format conversion (s16 to a52), and providing additional plugins which include: upmixing, downmixing, jackd and
external rate conversion.") pulseaudio support for native alsa applications, format conversion (s16 to
a52), and external rate conversion.")
(license (list license:gpl2+ (license (list license:gpl2+
;; `rate/rate_samplerate.c': LGPL v2.1 or later. ;; `rate/rate_samplerate.c': LGPL v2.1 or later.
license:lgpl2.1+)))) license:lgpl2.1+))))
(define-public snd-rane-sl3
(let ((commit "01099892261b55ec5ee814292d840eeb664c1904")
(revision "0"))
(package
(name "snd-rane-sl3")
(version (git-version "0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/nvgeele/snd-rane-sl3")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1j2aan5xmbi8hgkzzwjb7rarqh4g65rg3s1qd1c8x5m6fpqdnvli"))))
(build-system linux-module-build-system)
(arguments
(list
#:tests? #f ;No tests.
#:phases
#~(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'change-directory
(lambda _
(chdir "snd-rane-sl3"))))))
(inputs (list linux-libre-headers))
(home-page "https://github.com/nvgeele/snd-rane-sl3")
(synopsis
"Linux ALSA kernel driver for the Rane SL3 USB Audio interface")
(description
"snd-rane-sl3 provides a native Linux kernel module that
enables the Rane SL3 to work as a standard ALSA audio device, supporting 6
channels (3 stereo pairs) of 24-bit PCM audio at 44.1kHz and 48kHz sample
rates.")
(license license:gpl3))))
(define-public iptables (define-public iptables
(package (package
(name "iptables") (name "iptables")
@@ -12059,7 +12103,7 @@ provides user-space tools for creating EROFS file systems.")
(define-public rasdaemon (define-public rasdaemon
(package (package
(name "rasdaemon") (name "rasdaemon")
(version "0.8.4") (version "0.8.3")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -12068,17 +12112,9 @@ provides user-space tools for creating EROFS file systems.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1930g35igfdw5bzcd6diy59rm1q4yirpjgqznfqfsichnmk04kmf")))) (base32 "0vfw4vf75fnpbxnfsmpdwdzhplnccz24j23bg6nsb3b4wa8hv4sa"))))
(native-inputs (list autoconf automake libtool pkg-config)) (native-inputs (list autoconf automake libtool pkg-config))
(inputs (inputs (list bash-minimal libtraceevent perl perl-dbd-sqlite sqlite dmidecode kmod))
(list bash-minimal
dmidecode
kmod
libtraceevent
pciutils
perl
perl-dbd-sqlite
sqlite))
(arguments (arguments
(list (list
#:configure-flags #:configure-flags
+19 -13
View File
@@ -12982,8 +12982,8 @@ score. When evaluated, the musical score is rendered to an image.")
(sbcl-package->ecl-package sbcl-cmn)) (sbcl-package->ecl-package sbcl-cmn))
(define-public sbcl-coalton (define-public sbcl-coalton
(let ((commit "14ed6dc733f8c23c1a345ceb11d3f75ee47f7525") (let ((commit "bf475c8c53e02a2e0cb29deab4d101d25743bfca")
(revision "6")) (revision "5"))
(package (package
(name "sbcl-coalton") (name "sbcl-coalton")
(version (git-version "0.0.1" revision commit)) (version (git-version "0.0.1" revision commit))
@@ -12995,16 +12995,12 @@ score. When evaluated, the musical score is rendered to an image.")
(commit commit))) (commit commit)))
(file-name (git-file-name "cl-coalton" version)) (file-name (git-file-name "cl-coalton" version))
(sha256 (sha256
(base32 "024n72lxi8nycy012lqy6zx19lv7jh2ngs1mf559rw8kgwh3k54c")))) (base32 "0zrp2s82n2mxx7knbnbsdj64zar21nnnf8iwzrqzs4g3v6xpyz9z"))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(native-inputs (native-inputs
(list sbcl-fiasco (list sbcl-fiasco))
sbcl-html-entities
sbcl-spinneret
sbcl-yason))
(inputs (inputs
(list sbcl-alexandria (list sbcl-alexandria
sbcl-computable-reals
sbcl-concrete-syntax-tree sbcl-concrete-syntax-tree
sbcl-eclector sbcl-eclector
sbcl-float-features sbcl-float-features
@@ -13560,10 +13556,10 @@ place outside with-notes.
(sbcl-package->ecl-package sbcl-compiler-macro-notes)) (sbcl-package->ecl-package sbcl-compiler-macro-notes))
(define-public sbcl-computable-reals (define-public sbcl-computable-reals
(let ((commit "607a5d5b95387c06f92a661aa5562a7be0f5cad8")) (let ((commit "fdc73d75e79d0a4ce6d01c822c950ae2eb137d39"))
(package (package
(name "sbcl-computable-reals") (name "sbcl-computable-reals")
(version (git-version "1.1.0" "2" commit)) (version (git-version "1.1.0" "1" commit))
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -13572,7 +13568,7 @@ place outside with-notes.
(commit commit))) (commit commit)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1x8kkdyjil0zzg8fq9b76z12kmfrqwhsxnr6qqnlrg0c8c5bzz9c")))) (base32 "0f12axi53x14l12dgf4a1lfq3p1fx7fh7sjfc0db3lk88ph9qfwl"))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(home-page "https://github.com/stylewarning/computable-reals") (home-page "https://github.com/stylewarning/computable-reals")
(synopsis "Arbitrary-precision, re-computing real-numbers in Common Lisp") (synopsis "Arbitrary-precision, re-computing real-numbers in Common Lisp")
@@ -22851,6 +22847,16 @@ specification}, a toolkit for writing GUIs in Common Lisp.")
(define-public cl-mcclim (define-public cl-mcclim
(sbcl-package->cl-source-package sbcl-mcclim)) (sbcl-package->cl-source-package sbcl-mcclim))
(define-public ecl-mcclim
(let ((pkg (sbcl-package->ecl-package sbcl-mcclim)))
(package
(inherit pkg)
(arguments
(substitute-keyword-arguments arguments
;; Tests fail with "FUNCTION: Not a valid argument (R1
;; (GENERATE-REGION))." on ECL.
((#:tests? _ #f) #f))))))
(define-public sbcl-md5 (define-public sbcl-md5
(package (package
(name "sbcl-md5") (name "sbcl-md5")
@@ -29761,7 +29767,7 @@ the Processing language and shares some of the API.")
;; Update together with emacs-slime. ;; Update together with emacs-slime.
(package (package
(name "sbcl-slime-swank") (name "sbcl-slime-swank")
(version "2.32") (version "2.31")
(source (source
(origin (origin
(file-name (git-file-name "cl-slime-swank" version)) (file-name (git-file-name "cl-slime-swank" version))
@@ -29770,7 +29776,7 @@ the Processing language and shares some of the API.")
(url "https://github.com/slime/slime/") (url "https://github.com/slime/slime/")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(sha256 (sha256
(base32 "0s7m7j7y1p8fb6ncpxcxdrrrxp5aw67xl7wrqy8zjjvwzljbs548")) (base32 "0nv99wq2vz053p0rn9953rhmyz4g40zdl01mz7z9xbklxzbsx6x7"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
;; The doc folder drags `gawk' into the closure. Doc is already ;; The doc folder drags `gawk' into the closure. Doc is already
-17
View File
@@ -89,7 +89,6 @@
#:use-module (gnu packages wget) #:use-module (gnu packages wget)
#:use-module (gnu packages xml) #:use-module (gnu packages xml)
#:use-module (gnu packages xorg) #:use-module (gnu packages xorg)
#:use-module (ice-9 match)
#:use-module ((srfi srfi-1) #:hide (zip))) #:use-module ((srfi srfi-1) #:hide (zip)))
(define (lua-search-paths version) (define (lua-search-paths version)
@@ -171,22 +170,6 @@ for configuration, scripting, and rapid prototyping.")
"lua-5.4-search-paths.patch")))) "lua-5.4-search-paths.patch"))))
(native-search-paths (lua-search-paths "5.4")))) (native-search-paths (lua-search-paths "5.4"))))
(define-public lua-5.4-for-c++
(let ((lua-pkg lua-5.4))
(hidden-package
(package/inherit lua-pkg
(name (string-append (package-name lua-pkg) "-for-c++"))
(arguments
(substitute-keyword-arguments (package-arguments lua-pkg)
((#:make-flags old-flags)
(map
(match-lambda
((string-append "CC=" _)
`(string-append "CC=" ,(cxx-for-target)))
(else else))
old-flags))))))))
(define-public lua-5.2 (define-public lua-5.2
(package (inherit lua) (package (inherit lua)
(version "5.2.4") (version "5.2.4")
+2 -2
View File
@@ -488,7 +488,7 @@ with different rules and mechanics.")
(define-public luanti-mineclonia (define-public luanti-mineclonia
(package (package
(name "luanti-mineclonia") (name "luanti-mineclonia")
(version "0.121.1") (version "0.120.1")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@@ -497,7 +497,7 @@ with different rules and mechanics.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1c3x59iq04vfc0fa09z6g8davrr2vhdywppdbgyw64n7vk4f6br9")))) "135xllkvdravry25y1f94wqn7nxb0pnrpn7xiagh2b5vjbajhdg4"))))
(build-system copy-build-system) (build-system copy-build-system)
(arguments (arguments
`(#:install-plan `(#:install-plan
+3 -113
View File
@@ -57,7 +57,7 @@
;;; Copyright © 2023 Wilko Meyer <w@wmeyer.eu> ;;; Copyright © 2023 Wilko Meyer <w@wmeyer.eu>
;;; Copyright © 2024 Benjamin Slade <slade@lambda-y.net> ;;; Copyright © 2024 Benjamin Slade <slade@lambda-y.net>
;;; Copyright © 2024 Jean Simard <woshilapin@tuziwo.info> ;;; Copyright © 2024 Jean Simard <woshilapin@tuziwo.info>
;;; Copyright © 2024-2026 Zheng Junjie <z572@z572.online> ;;; Copyright © 2024, 2025 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2024, 2025 Ashish SHUKLA <ashish.is@lostca.se> ;;; Copyright © 2024, 2025 Ashish SHUKLA <ashish.is@lostca.se>
;;; Copyright © 2025 Tanguy Le Carrour <tanguy@bioneland.org> ;;; Copyright © 2025 Tanguy Le Carrour <tanguy@bioneland.org>
;;; Copyright © 2025-2026 Sharlatan Hellseher <sharlatanus@gmail.com> ;;; Copyright © 2025-2026 Sharlatan Hellseher <sharlatanus@gmail.com>
@@ -138,7 +138,6 @@
#:use-module (gnu packages guile-xyz) #:use-module (gnu packages guile-xyz)
#:use-module (gnu packages haskell-xyz) #:use-module (gnu packages haskell-xyz)
#:use-module (gnu packages icu4c) #:use-module (gnu packages icu4c)
#:use-module (gnu packages jemalloc)
#:use-module (gnu packages kerberos) #:use-module (gnu packages kerberos)
#:use-module (gnu packages language) #:use-module (gnu packages language)
#:use-module (gnu packages libbsd) #:use-module (gnu packages libbsd)
@@ -149,7 +148,6 @@
#:use-module (gnu packages libunistring) #:use-module (gnu packages libunistring)
#:use-module (gnu packages libunwind) #:use-module (gnu packages libunwind)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages llvm)
#:use-module (gnu packages lsof) #:use-module (gnu packages lsof)
#:use-module (gnu packages lua) #:use-module (gnu packages lua)
#:use-module (gnu packages m4) #:use-module (gnu packages m4)
@@ -160,7 +158,6 @@
#:use-module (gnu packages networking) #:use-module (gnu packages networking)
#:use-module (gnu packages onc-rpc) #:use-module (gnu packages onc-rpc)
#:use-module (gnu packages openldap) #:use-module (gnu packages openldap)
#:use-module (gnu packages nss)
#:use-module (gnu packages pcre) #:use-module (gnu packages pcre)
#:use-module (gnu packages pdf) #:use-module (gnu packages pdf)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
@@ -201,7 +198,6 @@
#:use-module (gnu packages xml) #:use-module (gnu packages xml)
#:use-module (gnu packages xorg) #:use-module (gnu packages xorg)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (guix build-system cargo)
#:use-module (guix build-system cmake) #:use-module (guix build-system cmake)
#:use-module (guix build-system emacs) #:use-module (guix build-system emacs)
#:use-module (guix build-system glib-or-gtk) #:use-module (guix build-system glib-or-gtk)
@@ -1359,7 +1355,7 @@ security functionality including PGP, S/MIME, SSH, and SSL.")
(define-public mu (define-public mu
(package (package
(name "mu") (name "mu")
(version "1.14.1") (version "1.14.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -1368,7 +1364,7 @@ security functionality including PGP, S/MIME, SSH, and SSL.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "0dv27pq2jmgqlzsy2gcmh7vddiwiwd55j299blb9k8g0xhkg8riz")))) (base32 "1fhnnm58ndfd6hzdagrsgcdcm2qlcjlda13vyx5d9lclhxgdn0vf"))))
(build-system meson-build-system) (build-system meson-build-system)
(native-inputs (native-inputs
(list pkg-config (list pkg-config
@@ -3914,112 +3910,6 @@ are supported). @code{bit} is a CGI/SSI program that generates web pages
on the fly. Both programs are written in C and are very fast.") on the fly. Both programs are written in C and are very fast.")
(license license:expat))) (license license:expat)))
(define computed-origin-method (@@ (guix packages) computed-origin-method))
(define-public stalwart
(package
(name "stalwart")
(version "0.16.3")
(source
(let ((upstream-source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/stalwartlabs/stalwart")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1wcs9inwv8iv4qrayp9730wzmmpp4bna6jnpdz29ygb5c0lf2b29")))))
(origin
(method computed-origin-method)
(file-name (git-file-name name version))
(sha256 #f)
(uri
(delay
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils))
(set-path-environment-variable
"PATH" '("bin")
(list #+python-minimal))
(copy-recursively #+upstream-source "upstream-source")
(with-directory-excursion "upstream-source"
(for-each make-file-writable (find-files "crates" "\\.rs"))
(invoke "python3" "resources/scripts/ossify.py" "crates")
(substitute* "crates/main/Cargo.toml"
((", \"enterprise\"")
""))
(substitute* "crates/common/Cargo.toml"
(("git =.*/opentelemetry-rust\"")
"version = \"0.31.0\"")))
(copy-recursively "upstream-source" #$output))))))))
(build-system cargo-build-system)
(arguments
(list
#:install-source? #f
;; TODO: Currently, if the test is enabled, it will attempt to link
;; the foundationdb library. However, we haven't packaged it yet,
;; so for now, skip tests.
#:tests? #f
#:features ''("s3" "postgres" "rocks" "sqlite")
#:cargo-install-paths ''("crates/main")
#:phases
#~(modify-phases %standard-phases
(add-before 'build 'setenv
(lambda* (#:key inputs #:allow-other-keys)
(setenv "LIBZ_SYS_STATIC" "0")
;; jemalloc needs unbundling for tikv-jemallocator-sys
;; This flag is needed when not using the bundled jemalloc.
;; https://github.com/tikv/jemallocator/issues/19
(setenv
"CARGO_FEATURE_UNPREFIXED_MALLOC_ON_SUPPORTED_PLATFORMS" "1")
(setenv "JEMALLOC_OVERRIDE"
(search-input-file inputs "/lib/libjemalloc.so")))))))
(native-inputs (list clang pkg-config))
(inputs (cons* bzip2
jemalloc
librdkafka
lz4
rocksdb
snappy
sqlite
zlib
openssl
`(,zstd "lib")
(cargo-inputs 'stalwart)))
(home-page "https://stalw.art")
(synopsis "All in one Mail and Collaboration server")
(description
"Stalwart is an mail and collaboration server with JMAP, IMAP4, POP3, SMTP,
CalDAV, CardDAV and WebDAV support and a wide range of modern features.")
(license license:agpl3)))
(define-public stalwart-cli
(package
(name "stalwart-cli")
(version "1.0.4")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/stalwartlabs/cli")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0rbhzd8m48fm5q8vlzkla5zxrypkbvsi8i1bplkm1ndp0bwiqdvz"))))
(build-system cargo-build-system)
(arguments
(list #:install-source? #f))
(native-inputs (list nss-certs-for-test))
(inputs (cargo-inputs 'stalwart-cli))
(home-page "https://stalw.art")
(synopsis "Stalwart Command Line Interface")
(description
"A schema-driven command line tool for administering Stalwart Mail and
Collaboration Server over its JMAP API.")
(license license:agpl3)))
(define-public swaks (define-public swaks
(package (package
(name "swaks") (name "swaks")
+24 -145
View File
@@ -22,7 +22,7 @@
;;; Copyright © 2017, 2019, 2022 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2017, 2019, 2022 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 20172021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 20172021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Dave Love <me@fx@gnu.org> ;;; Copyright © 2017 Dave Love <me@fx@gnu.org>
;;; Copyright © 2018-2022, 2024-2026 Janneke Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2018, 2019, 2020, 2021, 2022, 2024, 2025 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2018 Joshua Sierles, Nextjournal <joshua@nextjournal.com> ;;; Copyright © 2018 Joshua Sierles, Nextjournal <joshua@nextjournal.com>
;;; Copyright © 2018 Nadya Voronova <voronovank@gmail.com> ;;; Copyright © 2018 Nadya Voronova <voronovank@gmail.com>
;;; Copyright © 2018 Adam Massmann <massmannak@gmail.com> ;;; Copyright © 2018 Adam Massmann <massmannak@gmail.com>
@@ -458,8 +458,7 @@ programming languages.")
(url "https://github.com/cvc5/cvc5/") (url "https://github.com/cvc5/cvc5/")
(commit (string-append "cvc5-" version)))) (commit (string-append "cvc5-" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(patches (search-patches "cvc5-reproducible-build.patch" (patches (search-patches "cvc5-reproducible-build.patch"))
"cvc5-symfpu-compatibility.patch"))
(sha256 (sha256
(base32 "0ynz7di4dyyiiydgmf0z9dc2jl7nm44xi0amch29rcgznwr4wy5m")))) (base32 "0ynz7di4dyyiiydgmf0z9dc2jl7nm44xi0amch29rcgznwr4wy5m"))))
(build-system cmake-build-system) (build-system cmake-build-system)
@@ -746,54 +745,6 @@ complete with events and to-dos.")
(home-page "https://codeberg.org/dgoodmaniii/dozenal") (home-page "https://codeberg.org/dgoodmaniii/dozenal")
(license license:gpl3+)))) (license license:gpl3+))))
(define-public drat-trim
(package
(name "drat-trim")
(version "05.22.2023")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/marijnheule/drat-trim")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "084miqj57xr7c74y649acm5xjkddpjn4ybfh469jcbakzp8w0pdi"))))
(build-system gnu-build-system)
(arguments
(list
#:tests? #f ;no tests
#:make-flags
#~(list (string-join
(list "FLAGS=-DLONGTYPE"
;; _POSIX_C_SOURCE required for getc_unlocked(3).
"-D_POSIX_C_SOURCE=200809")
" "))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'always-pass-flags
(lambda _
(substitute* "Makefile"
;; Ensure that drat-trim and gapless target also respect FLAGS.
(("-std=c99 -O2")
"-std=c99 $(FLAGS) -O2"))))
(delete 'configure) ;no configure script
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((bin (string-append #$output "/bin")))
(for-each (lambda (exec)
(install-file exec bin))
'("drat-trim"
"lrat-check"))))))))
(synopsis "Proof checker for unsatisfiability of propositional formulas")
(description
"The proof checker DRAT-trim can be used to check whether a propositional
formula in the DIMACS format is unsatisfiable. Given a propositional formula and
a clausal proof, DRAT-trim validates that the proof is a certificate of
unsatisfiability of the formula.")
(home-page "https://www.cs.utexas.edu/~marijn/drat-trim/")
(license license:expat)))
(define-public dsfmt (define-public dsfmt
(package (package
(name "dsfmt") (name "dsfmt")
@@ -2524,9 +2475,6 @@ similar to MATLAB, GNU Octave or SciPy.")
;; "--enable-doxygen" ;; "--enable-doxygen"
"--enable-dot" "--enable-dot"
"--enable-netcdf-4" "--enable-netcdf-4"
#$@(if (or (target-x86-32?) (target-arm32?))
'("CFLAGS=-Wno-error=incompatible-pointer-types")
'())
(string-append "--with-plugin-dir=" #$output "/lib/hdf5-plugins")) (string-append "--with-plugin-dir=" #$output "/lib/hdf5-plugins"))
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
@@ -2538,15 +2486,7 @@ similar to MATLAB, GNU Octave or SciPy.")
(("testurl.sh") "")) (("testurl.sh") ""))
(substitute* "nczarr_test/Makefile.in" (substitute* "nczarr_test/Makefile.in"
(("/bin/bash") (("/bin/bash")
(search-input-file inputs "bin/bash"))) (search-input-file inputs "bin/bash")))))
;; This test fails on 32 bit platforms.
#$@(if (or (target-x86-32?) (target-arm32?))
'((substitute* '("ncdump/tst_netcdf4_4.sh"
"ncdump/tst_nccopy4.sh")
(("#!/bin/sh" m) (string-append m "\nexit 0\n")))
(substitute* "ncdump/Makefile.in"
(("tst_netcdf4_4.log") "")))
'())))
(add-before 'configure 'fix-source-date (add-before 'configure 'fix-source-date
(lambda _ (lambda _
;; As we ${SOURCE_DATE_EPOCH} evaluates to "1" in the build ;; As we ${SOURCE_DATE_EPOCH} evaluates to "1" in the build
@@ -4055,64 +3995,6 @@ addition it can be used as a module in Python for plotting. It supports
vector and bitmap output, including PDF, Postscript, SVG and EMF.") vector and bitmap output, including PDF, Postscript, SVG and EMF.")
(license license:gpl2+))) (license license:gpl2+)))
(define-public voro++
(package
(name "voro++")
(version "0.4.6")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/chr1shr/voro")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0rxyb662w9y3xadyxz2x7gvc7mafbhl13szdc55fsk5sygpdlkv5"))))
(build-system gnu-build-system)
(arguments
(list
#:make-flags #~(list (string-append "PREFIX=" #$output))
#:phases
#~(modify-phases %standard-phases
(delete 'configure) ;no configure
(replace 'check
;; There is no test suite but the project provides a verity of
;; examples to check performance, target "all" build each example
;; (basic, walls, custom, extra, degenerate, and interface), see
;; detailed description in "examples/README".
;;
;; Running timing example only:
;; These codes and scripts can be used to test the code's
;; performance. The program timing_test.cc creates a container
;; with 100000 particles, and then times the computation of all
;; the cells in the container, using the dummy function
;; compute_all_cells().
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(with-directory-excursion "examples/timing"
(invoke "perl" "timing_test.pl"))))))))
(native-inputs
(list perl))
(home-page "https://math.lbl.gov/voro++/")
(synopsis "C++ library for the computation of the Voronoi diagram")
(description
"Voro++ is a software library for carrying out three-dimensional
computations of the Voronoi tessellation. A distinguishing feature of the
Voro++ library is that it carries out cell-based calculations, computing the
Voronoi cell for each particle individually. It is particularly well-suited
for applications that rely on cell-based statistics, where features of Voronoi
cells (eg. volume, centroid, number of faces) can be used to analyze a system
of particles.
Voro++ comprises of several C++ classes that can be built as a static library.
A command-line utility is also provided that can use most features of the
code. The direct cell-by-cell construction makes the library particularly
well-suited to handling special boundary conditions and walls. It employs
algorithms that are tolerant for numerical precision errors, it exhibits high
performance, and it has been successfully employed on very large particle
systems.")
(license license:bsd-3)))
(define-public maxflow (define-public maxflow
(package (package
(name "maxflow") (name "maxflow")
@@ -8432,11 +8314,8 @@ s-expression-based format.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public symfpu (define-public symfpu
;; Currently, we use the "experimental" branch of the symfpu repository. The (let ((commit "22d993d880f66b2e470c3928e0e61bdf61419702")
;; default "master" branch hasn't been updated in ~7 years and both bitwuzla (revision "0"))
;; and cvc5 require fixes from the "experimental" branch.
(let ((commit "aeaa3fa62730148c855f5a9e0a9b7040d48e0b7e")
(revision "1"))
(package (package
(name "symfpu") (name "symfpu")
(version (git-version "0" revision commit)) (version (git-version "0" revision commit))
@@ -8448,7 +8327,7 @@ s-expression-based format.")
(commit commit))) (commit commit)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "0wj9pwr2jiliy4rw4nvy51427dwhwj86azi14qc5vzsdb44c6fdx")))) (base32 "1h20zzkyi225290kc6mzg8i4dwkj0p1vlwfgc9ycs61snlyd8gr8"))))
(build-system copy-build-system) (build-system copy-build-system)
(arguments (arguments
(list (list
@@ -8490,7 +8369,7 @@ operations.")
(define-public bitwuzla (define-public bitwuzla
(package (package
(name "bitwuzla") (name "bitwuzla")
(version "0.9.0") (version "0.8.2")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -8499,16 +8378,21 @@ operations.")
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "012h3fj25f5zk9qy353vqn5jpp26db45xjbxi7ns02pkhlm46f6x")))) (base32 "0nakqz29cfkn91yvx1xzsk50rlqbiihslflbjanv4lflcl2zx6mz"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
`(#:configure-flags '("-Dtesting=enabled" "-Ddefault_library=shared" `(#:configure-flags '("-Dtesting=enabled" "-Ddefault_library=shared"
"-Dkissat=true"))) "-Dkissat=true")
#:phases (modify-phases %standard-phases
(add-after 'unpack 'make-git-optional
(lambda _
(substitute* "src/meson.build"
(("run_command\\('git',")
"run_command('sh', '-c', 'git',")))))))
(native-inputs (list googletest pkg-config)) (native-inputs (list googletest pkg-config))
(inputs (list cadical-2.1 (inputs (list cadical
gmp gmp
kissat kissat
mpfr
symfpu)) symfpu))
(synopsis "SMT solver optimized for the theory of bit-vectors") (synopsis "SMT solver optimized for the theory of bit-vectors")
(description (description
@@ -8795,7 +8679,7 @@ reduction.")
(define-public mcrl2 (define-public mcrl2
(package (package
(name "mcrl2") (name "mcrl2")
(version "202507.0") (version "202307.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@@ -8803,9 +8687,9 @@ reduction.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"08w7v2dx1s164q3vc5lzf864nlxrf8s0kgsa26mmkgfqfqcwdgjj")))) "147002dl3gq2jsk5gcmvw7hj3mfxrpgxwcfda5mfrj26rcxw48fc"))))
(inputs (inputs
(list boost glu mesa qtbase)) (list boost glu mesa qtbase-5))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (list #:tests? #f)) (arguments (list #:tests? #f))
(synopsis "Toolset for the mCRL2 formal specification language") (synopsis "Toolset for the mCRL2 formal specification language")
@@ -9763,7 +9647,7 @@ researchers and developers alike to get started on SAT.")
(define-public kissat (define-public kissat
(package (package
(name "kissat") (name "kissat")
(version "4.0.4") (version "4.0.1")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -9773,10 +9657,9 @@ researchers and developers alike to get started on SAT.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1snimig4cp97p570nin2i38my72zvwypldyhr125i1z6cd9pa046")))) "0acg61cfcjg13if2i375cyl4xvwmabhfhi9z8pnw971046am6bzv"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (list xz gzip lzip bzip2 p7zip)) (inputs (list xz gzip lzip bzip2 p7zip))
(native-inputs (list drat-trim))
(arguments (arguments
(list (list
#:test-target "test" #:test-target "test"
@@ -9785,10 +9668,6 @@ researchers and developers alike to get started on SAT.")
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-source (add-after 'unpack 'patch-source
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "test/testfile.c"
;; Don't check if /etc/passwd isn't writable.
;; When building in a container/chroot, this fails spuriously.
((".*/etc/passwd.*") ""))
(substitute* "scripts/generate-build-header.sh" (substitute* "scripts/generate-build-header.sh"
;; by default BUILD includes the build date which ;; by default BUILD includes the build date which
;; makes the build not reproducible. ;; makes the build not reproducible.
@@ -11575,7 +11454,7 @@ expression parsing and evaluation.")
(define-public highs (define-public highs
(package (package
(name "highs") (name "highs")
(version "1.14.0") (version "1.10.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -11584,14 +11463,14 @@ expression parsing and evaluation.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "16y664rzvxd8785195k0srz0842zvl0zdkf6qi103p503pj81afh")))) (base32 "19q99nkk6r6k91gxp8a5rjil1399qyfgfc6jqlg2gd82vpcw8c8b"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(home-page "https://highs.dev") (home-page "https://highs.dev")
(synopsis "High performance software for linear optimization") (synopsis "High performance software for linear optimization")
(description (description
"HiGHS provides serial and parallel solvers for large-scale sparse "HiGHS provides serial and parallel solvers for large-scale sparse
linear programming (LP), mixed-integer programming (MIP), and quadratic linear programming (LP), mixed-integer programming (MIP), and quadratic
programming (QP) models.") programming (QP) models")
(license license:expat))) (license license:expat)))
(define-public trilinos-zoltan (define-public trilinos-zoltan
-29
View File
@@ -686,35 +686,6 @@ components.")
(base32 (base32
"0cqa072fz55j5xyvixqv8vbd7jsbhb1cd14bzjvm0hbv2wpd9npf")))))) "0cqa072fz55j5xyvixqv8vbd7jsbhb1cd14bzjvm0hbv2wpd9npf"))))))
(define-public java-jvnet-parent-pom-1
(hidden-package
(package
(name "java-jvnet-parent-pom-1")
(version "1")
(source (origin
(method url-fetch)
(uri (string-append "https://repo1.maven.org/maven2/net/java/"
"jvnet-parent/" version "/jvnet-parent-"
version ".pom"))
(sha256
(base32
"1gv37n9aid7fdhwd0h4py024w8by56cchg3b4sg5vrk82a0l0518"))))
(build-system ant-build-system)
(arguments
(list
#:tests? #f
#:phases
#~(modify-phases %standard-phases
(delete 'unpack)
(delete 'configure)
(delete 'build)
(replace 'install
(install-pom-file #$(package-source this-package))))))
(home-page "https://mvnrepository.com/artifact/net.java/jvnet-parent")
(synopsis "java.net parent pom")
(description "This package contains the java.net parent pom file.")
(license license:asl2.0))))
(define-public java-jvnet-parent-pom-3 (define-public java-jvnet-parent-pom-3
(hidden-package (hidden-package
(package (package
+21 -16
View File
@@ -1151,7 +1151,7 @@ simultaneously and therefore appear under the same nickname on IRC.")
(define-public python-nbxmpp (define-public python-nbxmpp
(package (package
(name "python-nbxmpp") (name "python-nbxmpp")
(version "7.2.0") (version "7.1.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -1160,7 +1160,7 @@ simultaneously and therefore appear under the same nickname on IRC.")
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1dyf4jh76ffbl45x4cpk6rsn1r4wck54b3d8wfd2swxaqq4p7lis")))) (base32 "1n7b6yv2k89hsmhmx9pi7m8l3aq97xppaz3hm7mvqgvxnlw0c1kr"))))
(build-system pyproject-build-system) (build-system pyproject-build-system)
(arguments (list #:test-backend #~'unittest)) (arguments (list #:test-backend #~'unittest))
(propagated-inputs (propagated-inputs
@@ -1184,7 +1184,7 @@ of xmpppy.")
(define-public gajim (define-public gajim
(package (package
(name "gajim") (name "gajim")
(version "2.4.6") (version "2.4.5")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@@ -1192,7 +1192,7 @@ of xmpppy.")
(version-major+minor version) (version-major+minor version)
"/gajim-" version ".tar.gz")) "/gajim-" version ".tar.gz"))
(sha256 (sha256
(base32 "0ilpgkzw45scjlnag94p8v6np629v7w0ihci5a2w5d742gpqvq6c")) (base32 "1rkxzf1pfd29rip5bw4730fl7b2xk12zpiwnfkyzxlkmbh4j3kp2"))
(patches (patches
(search-patches "gajim-honour-GAJIM_PLUGIN_PATH.patch")))) (search-patches "gajim-honour-GAJIM_PLUGIN_PATH.patch"))))
(build-system pyproject-build-system) (build-system pyproject-build-system)
@@ -1278,6 +1278,7 @@ of xmpppy.")
glib glib
glib-networking glib-networking
gsettings-desktop-schemas gsettings-desktop-schemas
gsound
libspelling libspelling
libadwaita libadwaita
gstreamer gstreamer
@@ -1292,7 +1293,6 @@ of xmpppy.")
libsoup libsoup
libxscrnsaver libxscrnsaver
network-manager network-manager
python-cryptography
python-css-parser python-css-parser
python-dbus-1.2 python-dbus-1.2
python-emoji python-emoji
@@ -2839,7 +2839,7 @@ implementation of an MQTT version client class.")
(define-public psi-plus (define-public psi-plus
(package (package
(name "psi-plus") (name "psi-plus")
(version "1.5.2115") (version "1.5.1484")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -2853,7 +2853,7 @@ implementation of an MQTT version client class.")
`(begin `(begin
(delete-file-recursively "3rdparty"))) (delete-file-recursively "3rdparty")))
(sha256 (sha256
(base32 "14za9rh7nszv5px5a2w43ysi9977zws8a5mxsh7wc8ksr693faz2")))) (base32 "1jsm39nzzbqkp3zc0xqx7jid6p4q1ra28xad38wjr2l1jb8qjn24"))))
(build-system qt-build-system) (build-system qt-build-system)
(arguments (arguments
`(#:tests? #f ; No target `(#:tests? #f ; No target
@@ -2910,13 +2910,19 @@ implementation of an MQTT version client class.")
"qite/qiteaudio.h") "qite/qiteaudio.h")
(("qiteaudiorecorder.h") (("qiteaudiorecorder.h")
"qite/qiteaudiorecorder.h")))) "qite/qiteaudiorecorder.h"))))
(add-after 'install 'wrap-executable (add-after 'install 'wrap-env
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(wrap-program (string-append out "/bin/psi-plus") (for-each
`("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,(getenv "GST_PLUGIN_SYSTEM_PATH"))) (lambda (name)
`("GI_TYPELIB_PATH" ":" prefix (,(getenv "GI_TYPELIB_PATH"))))))) (let ((file (string-append out "/bin/" name))
(add-after 'wrap-executable 'glib-or-gtk-compile-schemas (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
(gi-typelib-path (getenv "GI_TYPELIB_PATH")))
(wrap-program file
`("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))))
'("psi-plus")))))
(add-after 'wrap-env '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 'glib-or-gtk-compile-schemas 'glib-or-gtk-wrap (add-after 'glib-or-gtk-compile-schemas 'glib-or-gtk-wrap
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))))) (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
@@ -2939,7 +2945,6 @@ implementation of an MQTT version client class.")
libgcrypt libgcrypt
libgpg-error libgpg-error
libidn libidn
libomemo-c
libotr libotr
libsignal-protocol-c libsignal-protocol-c
tidy-html tidy-html
@@ -2959,11 +2964,11 @@ implementation of an MQTT version client class.")
libxcb libxcb
libxscrnsaver libxscrnsaver
zlib)) zlib))
(home-page "https://psi-im.com/") (home-page "https://psi-plus.com/")
(synopsis "Qt-based XMPP Client") (synopsis "Qt-based XMPP Client")
(description (description
"Psi+ is a powerful XMPP client designed for experienced users. "Psi+ is a spin-off of Psi XMPP client. It is a powerful XMPP client
It's a spin-off of the Psi XMPP client.") designed for experienced users.")
(license license:gpl2+))) (license license:gpl2+)))
(define-deprecated-package psi (define-deprecated-package psi
+4 -38
View File
@@ -1,16 +1,11 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2015 Siniša Biđin <sinisa@bidin.eu>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2021, 2021 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016, 2021, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2021 Stefan Reichör <stefan@xsteve.at> ;;; Copyright © 2016, 2021 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018 Sou Bunnbu <iyzsong@member.fsf.org> ;;; Copyright © 2018 Sou Bunnbu <iyzsong@member.fsf.org>
;;; Copyright © 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018-2021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018-2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Gábor Boskovits <boskovits@gmail.com> ;;; Copyright © 2018 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2018, 2019, 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2018, 2019, 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019, 2023 Vasile Dumitrascu <va511e@yahoo.com>
;;; Copyright © 2020 Alex ter Weele <alex.ter.weele@gmail.com> ;;; Copyright © 2020 Alex ter Weele <alex.ter.weele@gmail.com>
;;; Copyright © 2020 Lars-Dominik Braun <ldb@leibniz-psychology.org> ;;; Copyright © 2020 Lars-Dominik Braun <ldb@leibniz-psychology.org>
;;; Copyright © 2021, 2022 Marius Bakke <marius@gnu.org> ;;; Copyright © 2021, 2022 Marius Bakke <marius@gnu.org>
@@ -24,6 +19,9 @@
;;; Copyright © 2025 Nicolas Graves <ngraves@ngraves.fr> ;;; Copyright © 2025 Nicolas Graves <ngraves@ngraves.fr>
;;; Copyright © 2025 Giacomo Leidi <therewasa@fishinthecalculator.me> ;;; Copyright © 2025 Giacomo Leidi <therewasa@fishinthecalculator.me>
;;; Copyright © 2025 Christian Birk Sørensen <chrbirks@gmail.com> ;;; Copyright © 2025 Christian Birk Sørensen <chrbirks@gmail.com>
;;; Copyright © 2015 Siniša Biđin <sinisa@bidin.eu>
;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019, 2023 Vasile Dumitrascu <va511e@yahoo.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@@ -72,7 +70,6 @@
#:use-module (gnu packages golang-check) #:use-module (gnu packages golang-check)
#:use-module (gnu packages golang-web) #:use-module (gnu packages golang-web)
#:use-module (gnu packages golang-xyz) #:use-module (gnu packages golang-xyz)
#:use-module (gnu packages gtk)
#:use-module (gnu packages image) #:use-module (gnu packages image)
#:use-module (gnu packages lua) #:use-module (gnu packages lua)
#:use-module (gnu packages mail) #:use-module (gnu packages mail)
@@ -414,37 +411,6 @@ system statistics (CPU, disk, and memory usage, etc.) and more on the
desktop.") desktop.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public gkrellm
(package
(name "gkrellm")
(version "2.5.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://gkrellm.srcbox.net/releases/gkrellm-"
version ".tar.bz2"))
(sha256
(base32 "0qvy2xmwmfy5f0g09yn9lr262shnx82ba04r5il2wj4qscg3r7h8"))))
(build-system gnu-build-system)
(inputs (list gtk+-2 libsm))
(native-inputs (list gettext-minimal pkg-config))
(arguments
(list
#:tests? #f ;there is no check target
#:phases
#~(modify-phases %standard-phases
(delete 'configure)) ;no configure script
#:make-flags
#~(list (string-append "INSTALLROOT=" #$output)
(string-append "CC=" #$(cc-for-target)))))
(home-page "https://gkrellm.srcbox.net/")
(synopsis "System monitors")
(description
"GKrellM is a single process stack of system monitors which supports
applying themes to match its appearance to your window manager, Gtk, or any
other theme.")
(license license:gpl3+)))
(define-public glances (define-public glances
(package (package
(name "glances") (name "glances")
+95 -3
View File
@@ -76,7 +76,95 @@
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (ice-9 match)) #:use-module (ice-9 match))
(define-public hwloc (define-public hwloc-1
(package
(name "hwloc")
(version "1.11.13")
(source (origin
(method url-fetch)
(uri (string-append "https://www.open-mpi.org/software/hwloc/v"
(version-major+minor version)
"/downloads/hwloc-" version ".tar.bz2"))
(sha256
(base32
"1j69p8a1pjpbpwn4w7l4dfxmaxxqikchjzqw1ncw05zmcmvlnjd4"))
(patches (search-patches "hwloc-1-test-btrfs.patch"))))
(properties
;; Tell the 'generic-html' updater to monitor this URL for updates.
`((release-monitoring-url
. "https://www-lb.open-mpi.org/software/hwloc/current")))
(build-system gnu-build-system)
(outputs '("out" ;'lstopo' & co., depends on Cairo, libx11, etc.
"lib" ;small closure
"doc" ;400+ section 3 man pages
"debug"))
(inputs
(append (if (%current-target-system)
'() ;fewer dependencies when cross-compiling
(list libx11 cairo ncurses expat))
(if (target-arm32?) '() (list numactl))))
(propagated-inputs
;; hwloc.pc lists it in 'Requires.private'.
(list libpciaccess))
(native-inputs
(list pkg-config))
(arguments
(list #:configure-flags
#~(list "--localstatedir=/var")
#:phases
#~(modify-phases %standard-phases
(add-before 'check 'skip-linux-libnuma-test
(lambda _
;; Arrange to skip 'tests/linux-libnuma', which fails on some
;; machines: <https://github.com/open-mpi/hwloc/issues/213>.
(substitute* "tests/linux-libnuma.c"
(("numa_available\\(\\)")
"-1"))))
(add-after 'install 'refine-libnuma
;; Give -L arguments for libraries to avoid propagation
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "lib"))
(numa (assoc-ref inputs "numactl")))
(substitute* (map (lambda (f) (string-append out "/" f))
'("lib/pkgconfig/hwloc.pc" "lib/libhwloc.la"))
(("-lnuma" lib)
(string-append "-L" numa "/lib " lib))))))
(add-after 'install 'avoid-circular-references
(lambda* (#:key outputs #:allow-other-keys)
(let ((lib (assoc-ref outputs "lib")))
;; Suppress the 'prefix=' and 'exec_prefix=' lines so that the
;; "lib" output doesn't refer to "out".
(substitute* (string-append lib "/lib/pkgconfig/hwloc.pc")
(("^.*prefix=.*$")
"")))))
(add-after 'install 'move-man3-pages
(lambda* (#:key outputs #:allow-other-keys)
;; Move section 3 man pages to the "doc" output.
(let ((out (assoc-ref outputs "out"))
(doc (assoc-ref outputs "doc")))
(copy-recursively (string-append out "/share/man/man3")
(string-append doc "/share/man/man3"))
(delete-file-recursively
(string-append out "/share/man/man3"))))))))
(home-page "https://www.open-mpi.org/projects/hwloc/")
(synopsis "Abstraction of hardware architectures")
(description
"hwloc provides a portable abstraction (across OS,
versions, architectures, ...) of the hierarchical topology of modern
architectures, including NUMA memory nodes, sockets, shared caches, cores and
simultaneous multithreading. It also gathers various attributes such as cache
and memory information. It primarily aims at helping high-performance
computing applications with gathering information about the hardware so as to
exploit it accordingly and efficiently.
hwloc may display the topology in multiple convenient formats. It also offers
a powerful programming interface to gather information about the hardware,
bind processes, and much more.")
(license license:bsd-3)))
(define-public hwloc-2
(package (package
(name "hwloc") (name "hwloc")
(version "2.13.0") (version "2.13.0")
@@ -186,6 +274,10 @@ a powerful programming interface to gather information about the hardware,
bind processes, and much more.") bind processes, and much more.")
(license license:bsd-3))) (license license:bsd-3)))
(define-public hwloc
;; The latest stable series of hwloc.
hwloc-2)
(define-public openmpi-4 (define-public openmpi-4
(package (package
(name "openmpi") (name "openmpi")
@@ -214,7 +306,7 @@ bind processes, and much more.")
(package-supported-systems package))) (package-supported-systems package)))
(list package) (list package)
'())))) '()))))
(append (list `(,hwloc "lib") (append (list `(,hwloc-2 "lib")
gfortran gfortran
libfabric-1 ;fails to build with 2.3 libfabric-1 ;fails to build with 2.3
libevent libevent
@@ -607,7 +699,7 @@ arrays) that expose a buffer interface.")
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(,zlib `(,zlib
(,hwloc "lib") (,hwloc-2 "lib")
,slurm ,slurm
,@(if (and (not (%current-target-system)) ,@(if (and (not (%current-target-system))
(member (%current-system) (package-supported-systems ucx))) (member (%current-system) (package-supported-systems ucx)))
+25
View File
@@ -7465,6 +7465,31 @@ standalone JACK application.")
;; Expat or CC0 ;; Expat or CC0
(license (list license:expat license:cc0)))) (license (list license:expat license:cc0))))
(define-public regrader
(package
(inherit vl1-emulator)
(name "regrader")
(version "1.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/linuxmao-org/regrader")
(commit (string-append "v" version))
;; bundles a specific commit of the DISTRHO plugin framework
(recursive? #t)))
(file-name (git-file-name name version))
(sha256
(base32
"0gl4d5lf2afqknz22jz7hh7029sc9v1xrz6nbz9dlv42bwc0cvl0"))))
(home-page "https://github.com/linuxmao-org/regrader")
(synopsis "Delay effect plugin")
(description
"Regrader is a delay effect where the repeats degrade in resolution.
This is an unofficial port of the Regrader plugin created by Igorski. It
is available as an LV2 plugin and a standalone JACK application.")
(license license:expat)))
(define-public fogpad (define-public fogpad
(package (package
(inherit vl1-emulator) (inherit vl1-emulator)
File diff suppressed because it is too large Load Diff
+60 -5
View File
@@ -2041,7 +2041,7 @@ of the same name.")
(define-public wireshark (define-public wireshark
(package (package
(name "wireshark") (name "wireshark")
(version "4.6.5") (version "4.6.4")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -2050,7 +2050,7 @@ of the same name.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "0cws5gaxkbdwqjawkwfr3iz39vdd0m0m0q7h2z4fzdv6lrp8ys31")))) (base32 "05jivnnlmbbhc6b3r7zdahiw22fvb9r6pg4pc83ascnja49xlyq6"))))
(build-system qt-build-system) (build-system qt-build-system)
(arguments (arguments
(list (list
@@ -2139,6 +2139,62 @@ replies, fping will send out a ping packet and move on to the next target in a
round-robin fashion.") round-robin fashion.")
(license license:expat))) (license license:expat)))
(define-public gandi-cli
(package
(name "gandi-cli")
(version "1.6")
(source
(origin
(method url-fetch)
(uri (pypi-uri name version))
(sha256
(base32 "1h36jahbp7273wn3yd747kbiwjc0bm3sja67bcxdsd54ln0vyndg"))))
(build-system pyproject-build-system)
(arguments
(list
#:test-flags
#~(list "--pyargs" "gandi.cli")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'embed-store-file-names
(lambda _
(substitute* (list "gandi/cli/modules/cert.py"
"gandi/cli/tests/commands/test_certificate.py")
(("openssl") (which "openssl")))))
(add-after 'install 'install-documentation
;; The included man page may be outdated but we install it anyway,
;; since it's mentioned in 'gandi --help' and better than nothing.
(lambda _
(let* ((man1 (string-append #$output "/share/man/man1")))
(mkdir-p man1)
(with-output-to-file (string-append man1 "/gandi.1")
(lambda _
(invoke "rst2man.py" "gandicli.man.rst")))))))))
(native-inputs
(list python-docutils-0.19
python-pytest
python-pytest-cov
python-setuptools
python-wheel))
(inputs
(list openssl
python-click-7
python-ipy
python-pyyaml
python-requests))
(propagated-inputs
(list openssh))
(home-page "https://cli.gandi.net")
(synopsis "Command-line interface to the Gandi.net Web API")
(description
"This package provides a command-line client (@command{gandi}) to buy,
manage, and delete Internet resources from Gandi.net such as domain names,
virtual machines, and certificates.")
(license license:gpl3+)))
(define-deprecated-package gandi.cli
gandi-cli)
(define-public go-sctp (define-public go-sctp
;; docker-libnetwork-cmd-proxy requires this exact commit. ;; docker-libnetwork-cmd-proxy requires this exact commit.
;; This commit is mentioned in docker-libnetwork-cmd-proxy's vendor.conf. ;; This commit is mentioned in docker-libnetwork-cmd-proxy's vendor.conf.
@@ -3348,7 +3404,7 @@ speedtest.net.")
(define-public librespeed-cli (define-public librespeed-cli
(package (package
(name "librespeed-cli") (name "librespeed-cli")
(version "1.0.13") (version "1.0.12")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@@ -3357,7 +3413,7 @@ speedtest.net.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "0zgwdz955vlyy1yricgcbdlbxxh1z08xpbhxa8zs64bsg68mv8j3")))) (base32 "08x09b3j2qvhnwy8lrbfxqh1lbs64wyqlr4jj6m31b5r2zy90dly"))))
(build-system go-build-system) (build-system go-build-system)
(arguments (arguments
(list (list
@@ -3381,7 +3437,6 @@ speedtest.net.")
(list go-github-com-briandowns-spinner (list go-github-com-briandowns-spinner
go-github-com-go-ping-ping go-github-com-go-ping-ping
go-github-com-gocarina-gocsv go-github-com-gocarina-gocsv
go-github-com-prometheus-community-pro-bing
go-github-com-sirupsen-logrus go-github-com-sirupsen-logrus
go-github-com-urfave-cli-v2 go-github-com-urfave-cli-v2
go-golang-org-x-sys)) go-golang-org-x-sys))

Some files were not shown because too many files have changed in this diff Show More