me/guix
Archived
1
0
Fork 0
Code Activity

Merge remote-tracking branch 'savannah/master' into gnome-team

Browse source 
Change-Id: Iec8e15b79c6fde516294c2bfcaf8ee3575b1f745
This commit is contained in:
Christopher Baines 2024-03-20 14:54:26 +00:00
commit 8fa0761264
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
62 changed files with 1782 additions and 970 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
doc/guix-cookbook.texi
View file

@ -22,7 +22,7 @@ Copyright @copyright{} 2020 André Batista@*
Copyright @copyright{} 2020 Christine Lemmer-Webber@* Copyright @copyright{} 2020 Christine Lemmer-Webber@*
Copyright @copyright{} 2021 Joshua Branson@* Copyright @copyright{} 2021 Joshua Branson@*
Copyright @copyright{} 2022, 2023 Maxim Cournoyer@* Copyright @copyright{} 2022, 2023 Maxim Cournoyer@*
Copyright @copyright{} 2023 Ludovic Courtès@* Copyright @copyright{} 2023-2024 Ludovic Courtès@*
Copyright @copyright{} 2023 Thomas Ieong Copyright @copyright{} 2023 Thomas Ieong
Permission is granted to copy, distribute and/or modify this document Permission is granted to copy, distribute and/or modify this document
@ -5299,14 +5299,17 @@ export LC_ALL
For convenience, @code{guix package} automatically generates For convenience, @code{guix package} automatically generates
@file{~/.guix-profile/etc/profile}, which defines all the environment @file{~/.guix-profile/etc/profile}, which defines all the environment
variables necessary to use the packages---@code{PATH}, variables necessary to use the packages---@code{PATH},
@code{C_INCLUDE_PATH}, @code{PYTHONPATH}, etc. Thus it's a good idea to @code{C_INCLUDE_PATH}, @code{PYTHONPATH}, etc. Likewise, @command{guix
source it from @code{/etc/profile}: pull} does that under @file{~/.config/guix/current}. Thus it's a good
idea to source both from @code{/etc/profile}:
@example @example
GUIX_PROFILE="$HOME/.guix-profile" for GUIX_PROFILE in "$HOME/.config/guix/current" "$HOME/.guix-profile"
if [ -f "$GUIX_PROFILE/etc/profile" ]; then do
. "$GUIX_PROFILE/etc/profile" if [ -f "$GUIX_PROFILE/etc/profile" ]; then
fi . "$GUIX_PROFILE/etc/profile"
fi
done
@end example @end example
Last but not least, Guix provides command-line completion notably for Last but not least, Guix provides command-line completion notably for

19
doc/guix.texi
View file

@ -3445,7 +3445,7 @@ Install the package @var{exp} evaluates to.
@var{exp} must be a Scheme expression that evaluates to a @var{exp} must be a Scheme expression that evaluates to a
@code{<package>} object. This option is notably useful to disambiguate @code{<package>} object. This option is notably useful to disambiguate
between same-named variants of a package, with expressions such as between same-named variants of a package, with expressions such as
@code{(@@ (gnu packages base) guile-final)}. @code{(@@ (gnu packages commencement) guile-final)}.
Note that this option installs the first output of the specified Note that this option installs the first output of the specified
package, which may be insufficient when needing a specific output of a package, which may be insufficient when needing a specific output of a
@ -7632,6 +7632,9 @@ contain OpenPGP public keys in @file{.key} files, either in binary form
or ``ASCII-armored''. By default the keyring is loaded from the branch or ``ASCII-armored''. By default the keyring is loaded from the branch
named @code{keyring}. named @code{keyring}.
@item --end=@var{commit}
Authenticate revisions up to @var{commit}.
@item --stats @item --stats
Display commit signing statistics upon completion. Display commit signing statistics upon completion.
@ -21116,7 +21119,7 @@ the @code{loopback} Shepherd service.
@defvar %qemu-static-networking @defvar %qemu-static-networking
This is the @code{static-networking} record representing network setup This is the @code{static-networking} record representing network setup
when using QEMU's user-mode network stack on @code{eth0} (@pxref{Using when using QEMU's user-mode network stack on @code{eth0} (@pxref{Using
the user mode network stack,,, QEMU, QEMU Documentation}). the user mode network stack,,, qemu, QEMU Documentation}).
@end defvar @end defvar
@cindex DHCP, networking service @cindex DHCP, networking service
@ -28586,6 +28589,12 @@ Set of mechanisms that will never be offered. See
Defaults to @samp{'("DIGEST-MD5")}. Defaults to @samp{'("DIGEST-MD5")}.
@end deftypevr @end deftypevr
@deftypevr {@code{prosody-configuration} parameter} string-list insecure-sasl-mechanisms
Set of mechanisms that will not be offered on unencrypted connections.
See @url{https://prosody.im/doc/modules/mod_saslauth}.
Defaults to @samp{'("PLAIN" "LOGIN")}.
@end deftypevr
@deftypevr {@code{prosody-configuration} parameter} boolean s2s-require-encryption? @deftypevr {@code{prosody-configuration} parameter} boolean s2s-require-encryption?
Whether to force all server-to-server connections to be encrypted or not. Whether to force all server-to-server connections to be encrypted or not.
See @url{https://prosody.im/doc/modules/mod_tls}. See @url{https://prosody.im/doc/modules/mod_tls}.
@ -28665,7 +28674,7 @@ See @url{https://prosody.im/doc/configure#virtual_host_settings}.
Available @code{virtualhost-configuration} fields are: Available @code{virtualhost-configuration} fields are:
all these @code{prosody-configuration} fields: @code{admins}, @code{use-libevent?}, @code{modules-enabled}, @code{modules-disabled}, @code{groups-file}, @code{allow-registration?}, @code{ssl}, @code{c2s-require-encryption?}, @code{disable-sasl-mechanisms}, @code{s2s-require-encryption?}, @code{s2s-secure-auth?}, @code{s2s-insecure-domains}, @code{s2s-secure-domains}, @code{authentication}, @code{log}, @code{http-max-content-size}, @code{http-external-url}, @code{raw-content}, plus: all these @code{prosody-configuration} fields: @code{admins}, @code{use-libevent?}, @code{modules-enabled}, @code{modules-disabled}, @code{groups-file}, @code{allow-registration?}, @code{ssl}, @code{c2s-require-encryption?}, @code{disable-sasl-mechanisms}, @code{insecure-sasl-mechanisms}, @code{s2s-require-encryption?}, @code{s2s-secure-auth?}, @code{s2s-insecure-domains}, @code{s2s-secure-domains}, @code{authentication}, @code{log}, @code{http-max-content-size}, @code{http-external-url}, @code{raw-content}, plus:
@deftypevr {@code{virtualhost-configuration} parameter} string domain @deftypevr {@code{virtualhost-configuration} parameter} string domain
Domain you wish Prosody to serve. Domain you wish Prosody to serve.
@end deftypevr @end deftypevr
@ -28687,7 +28696,7 @@ Defaults to @samp{'()}.
Available @code{int-component-configuration} fields are: Available @code{int-component-configuration} fields are:
all these @code{prosody-configuration} fields: @code{admins}, @code{use-libevent?}, @code{modules-enabled}, @code{modules-disabled}, @code{groups-file}, @code{allow-registration?}, @code{ssl}, @code{c2s-require-encryption?}, @code{disable-sasl-mechanisms}, @code{s2s-require-encryption?}, @code{s2s-secure-auth?}, @code{s2s-insecure-domains}, @code{s2s-secure-domains}, @code{authentication}, @code{log}, @code{http-max-content-size}, @code{http-external-url}, @code{raw-content}, plus: all these @code{prosody-configuration} fields: @code{admins}, @code{use-libevent?}, @code{modules-enabled}, @code{modules-disabled}, @code{groups-file}, @code{allow-registration?}, @code{ssl}, @code{c2s-require-encryption?}, @code{disable-sasl-mechanisms}, @code{insecure-sasl-mechanisms}, @code{s2s-require-encryption?}, @code{s2s-secure-auth?}, @code{s2s-insecure-domains}, @code{s2s-secure-domains}, @code{authentication}, @code{log}, @code{http-max-content-size}, @code{http-external-url}, @code{raw-content}, plus:
@deftypevr {@code{int-component-configuration} parameter} string hostname @deftypevr {@code{int-component-configuration} parameter} string hostname
Hostname of the component. Hostname of the component.
@end deftypevr @end deftypevr
@ -28740,7 +28749,7 @@ Defaults to @samp{'()}.
Available @code{ext-component-configuration} fields are: Available @code{ext-component-configuration} fields are:
all these @code{prosody-configuration} fields: @code{admins}, @code{use-libevent?}, @code{modules-enabled}, @code{modules-disabled}, @code{groups-file}, @code{allow-registration?}, @code{ssl}, @code{c2s-require-encryption?}, @code{disable-sasl-mechanisms}, @code{s2s-require-encryption?}, @code{s2s-secure-auth?}, @code{s2s-insecure-domains}, @code{s2s-secure-domains}, @code{authentication}, @code{log}, @code{http-max-content-size}, @code{http-external-url}, @code{raw-content}, plus: all these @code{prosody-configuration} fields: @code{admins}, @code{use-libevent?}, @code{modules-enabled}, @code{modules-disabled}, @code{groups-file}, @code{allow-registration?}, @code{ssl}, @code{c2s-require-encryption?}, @code{disable-sasl-mechanisms}, @code{insecure-sasl-mechanisms}, @code{s2s-require-encryption?}, @code{s2s-secure-auth?}, @code{s2s-insecure-domains}, @code{s2s-secure-domains}, @code{authentication}, @code{log}, @code{http-max-content-size}, @code{http-external-url}, @code{raw-content}, plus:
@deftypevr {@code{ext-component-configuration} parameter} string component-secret @deftypevr {@code{ext-component-configuration} parameter} string component-secret
Password which the component will use to log in. Password which the component will use to log in.
@end deftypevr @end deftypevr

4
etc/teams/qt/common.scm
View file

@ -16,10 +16,6 @@
;;; You should have received a copy of the GNU General Public License ;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
;;; This file returns a manifest of packages related to linux-libre.
;;; Simplistically, it selects packages whose names begin with "linux-libre".
;;; It is used to assist continuous integration of the kernel packages.
(use-modules (guix packages) (use-modules (guix packages)
(guix profiles) (guix profiles)
(guix utils) (guix utils)

4
etc/teams/qt/qt-manifest.scm
View file

@ -16,10 +16,6 @@
;;; You should have received a copy of the GNU General Public License ;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
;;; This file returns a manifest of packages related to linux-libre.
;;; Simplistically, it selects packages whose names begin with "linux-libre".
;;; It is used to assist continuous integration of the kernel packages.
(load "common.scm") (load "common.scm")
;;; Commentary: ;;; Commentary:

4
etc/teams/qt/qt5-manifest.scm
View file

@ -16,10 +16,6 @@
;;; You should have received a copy of the GNU General Public License ;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
;;; This file returns a manifest of packages related to linux-libre.
;;; Simplistically, it selects packages whose names begin with "linux-libre".
;;; It is used to assist continuous integration of the kernel packages.
(load "common.scm") (load "common.scm")
;;; Commentary: ;;; Commentary:

2
gnu/local.mk
View file

@ -1954,7 +1954,7 @@ dist_patch_DATA = \
%D%/packages/patches/python-werkzeug-tests.patch \ %D%/packages/patches/python-werkzeug-tests.patch \
%D%/packages/patches/python-zeep-Fix-pytest_httpx-test-cases.patch \ %D%/packages/patches/python-zeep-Fix-pytest_httpx-test-cases.patch \
%D%/packages/patches/qemu-build-info-manual.patch \ %D%/packages/patches/qemu-build-info-manual.patch \
%D%/packages/patches/qemu-disable-some-qtests-tests.patch \ %D%/packages/patches/qemu-disable-bios-tables-test.patch \
%D%/packages/patches/qemu-glibc-2.27.patch \ %D%/packages/patches/qemu-glibc-2.27.patch \
%D%/packages/patches/qemu-glibc-2.30.patch \ %D%/packages/patches/qemu-glibc-2.30.patch \
%D%/packages/patches/qemu-fix-agent-paths.patch \ %D%/packages/patches/qemu-fix-agent-paths.patch \

126
gnu/packages/admin.scm
View file

@ -5516,71 +5516,73 @@ This allows greetd-pam-mount to auto-(un)mount @env{XDG_RUNTIME_DIR} without
interfering with any pam-mount configuration."))) interfering with any pam-mount configuration.")))
(define-public wlgreet (define-public wlgreet
(package (let ((commit "7e79d6004fc5e765a5c3ece6d377f8c5999d9dfa")
(name "wlgreet") (revision "1"))
(version "0.4.1") (package
(source (origin (name "wlgreet")
(method git-fetch) (version (git-version "0.4.1" revision commit))
(uri (git-reference (source (origin
(url "https://git.sr.ht/~kennylevinsen/wlgreet") (method git-fetch)
(commit version))) (uri (git-reference
(file-name (git-file-name name version)) (url "https://git.sr.ht/~kennylevinsen/wlgreet")
(sha256 (commit commit)))
(base32 (file-name (git-file-name name version))
"1k0jmgh0rjbnb49gkvs0a4d7z9xb6pad8v5w5f7my4s0rfpk7wd9")))) (sha256
(build-system cargo-build-system) (base32
(arguments "039a05v6c2i3al86k4fncqr3z47dnrz7y8wmhx6wvm08zx8s89ww"))))
(list #:cargo-inputs (build-system cargo-build-system)
`(("rust-chrono" ,rust-chrono-0.4) (arguments
("rust-getopts" ,rust-getopts-0.2) (list #:cargo-inputs
("rust-greetd-ipc" ,rust-greetd-ipc-0.9) `(("rust-chrono" ,rust-chrono-0.4)
("rust-lazy-static" ,rust-lazy-static-1) ("rust-getopts" ,rust-getopts-0.2)
("rust-memmap2" ,rust-memmap2-0.3) ("rust-greetd-ipc" ,rust-greetd-ipc-0.9)
("rust-nix" ,rust-nix-0.25) ("rust-lazy-static" ,rust-lazy-static-1)
("rust-os-pipe" ,rust-os-pipe-1) ("rust-memmap2" ,rust-memmap2-0.3)
("rust-rusttype" ,rust-rusttype-0.9) ("rust-nix" ,rust-nix-0.25)
("rust-serde" ,rust-serde-1) ("rust-os-pipe" ,rust-os-pipe-1)
("rust-smithay-client-toolkit" ("rust-rusttype" ,rust-rusttype-0.9)
,rust-smithay-client-toolkit-0.15) ("rust-serde" ,rust-serde-1)
("rust-toml" ,rust-toml-0.5) ("rust-smithay-client-toolkit"
("rust-wayland-client" ,rust-wayland-client-0.29) ,rust-smithay-client-toolkit-0.15)
("rust-wayland-protocols" ,rust-wayland-protocols-0.29)) ("rust-toml" ,rust-toml-0.5)
#:phases ("rust-wayland-client" ,rust-wayland-client-0.29)
#~(modify-phases %standard-phases ("rust-wayland-protocols" ,rust-wayland-protocols-0.29))
(add-after 'unpack 'remove-bundled-fonts #:phases
(lambda _ #~(modify-phases %standard-phases
(delete-file-recursively "fonts"))) (add-after 'unpack 'remove-bundled-fonts
(add-after 'remove-bundled-fonts 'fix-font-references (lambda _
(lambda* (#:key inputs #:allow-other-keys) (delete-file-recursively "fonts")))
(substitute* "src/draw.rs" (add-after 'remove-bundled-fonts 'fix-font-references
(("\\.\\./fonts/dejavu/DejaVuSansMono\\.ttf" _) (lambda* (#:key inputs #:allow-other-keys)
(search-input-file (substitute* "src/draw.rs"
inputs (("\\.\\./fonts/dejavu/DejaVuSansMono\\.ttf" _)
"share/fonts/truetype/DejaVuSansMono.ttf")) (search-input-file
(("\\.\\./fonts/Roboto-Regular\\.ttf" _) inputs
(search-input-file "share/fonts/truetype/DejaVuSansMono.ttf"))
inputs (("\\.\\./fonts/Roboto-Regular\\.ttf" _)
"share/fonts/truetype/Roboto-Regular.ttf"))))) (search-input-file
(add-after 'configure 'fix-library-references inputs
(lambda* (#:key inputs vendor-dir #:allow-other-keys) "share/fonts/truetype/Roboto-Regular.ttf")))))
(substitute* (find-files vendor-dir "\\.rs$") (add-after 'configure 'fix-library-references
(("lib(wayland-.*|xkbcommon)\\.so" so-file) (lambda* (#:key inputs vendor-dir #:allow-other-keys)
(search-input-file (substitute* (find-files vendor-dir "\\.rs$")
inputs (("lib(wayland-.*|xkbcommon)\\.so" so-file)
(string-append "lib/" so-file))))))))) (search-input-file
(inputs inputs
(list font-dejavu (string-append "lib/" so-file)))))))))
font-google-roboto (inputs
libxkbcommon (list font-dejavu
wayland)) font-google-roboto
(home-page "https://git.sr.ht/~kennylevinsen/wlgreet") libxkbcommon
(synopsis "Bare-bones Wayland-based greeter for @command{greetd}") wayland))
(description (home-page "https://git.sr.ht/~kennylevinsen/wlgreet")
"@command{wlgreet} provides a @command{greetd} greeter (synopsis "Bare-bones Wayland-based greeter for @command{greetd}")
(description
"@command{wlgreet} provides a @command{greetd} greeter
that runs on a Wayland compositor such as @command{sway}. It that runs on a Wayland compositor such as @command{sway}. It
is implemented with pure Wayland APIs, so it does not depend is implemented with pure Wayland APIs, so it does not depend
on a GUI toolkit.") on a GUI toolkit.")
(license license:gpl3))) (license license:gpl3))))
(define-public libseat (define-public libseat
(package (package

6
gnu/packages/algebra.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2022, 2023, 2024 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2022, 2023, 2024 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2013, 2015, 2017, 2018, 2021 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2015, 2017, 2018, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016-2023 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2016-2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2014, 2018 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016, 2018, 2019, 2021, 2023 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016, 2018, 2019, 2021, 2023 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017, 2020-2022 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017, 2020-2022 Efraim Flashner <efraim@flashner.co.il>
@ -357,7 +357,7 @@ precision.")
(define-public giac (define-public giac
(package (package
(name "giac") (name "giac")
(version "1.9.0-45") (version "1.9.0-93")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -369,7 +369,7 @@ precision.")
"~parisse/debian/dists/stable/main/source/" "~parisse/debian/dists/stable/main/source/"
"giac_" version ".tar.gz")) "giac_" version ".tar.gz"))
(sha256 (sha256
(base32 "0yxsl1vvwcbpwcmzp9v9rfm9djmapab0nhb3gs7zmjv5yvzbgj4d")))) (base32 "11acbgd264vi9r3gzx8js8x2piavhybr97iyrh027qvxlbsdsgqm"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list (list

37
gnu/packages/audio.scm
View file

@ -31,7 +31,7 @@
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com> ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2020, 2021 Guillaume Le Vaillant <glv@posteo.net> ;;; Copyright © 2020, 2021 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2020 Jonathan Frederickson <jonathan@terracrypt.net> ;;; Copyright © 2020 Jonathan Frederickson <jonathan@terracrypt.net>
;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org> ;;; Copyright © 2020, 2024 Giacomo Leidi <goodoldpaul@autistici.org>
;;; Copyright © 2020, 2021, 2023 Vinicius Monego <monego@posteo.net> ;;; Copyright © 2020, 2021, 2023 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de> ;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2021 jgart <jgart@dismail.de> ;;; Copyright © 2021 jgart <jgart@dismail.de>
@ -261,6 +261,41 @@ softsynth library that can be used with other applications.")
;; Player. ;; Player.
license:gpl3+)))) license:gpl3+))))
(define-public alsa-midi-latency-test
(let ((version "0.0.5")
(revision "0")
(commit "07e43f8a1e6fd6d3bd97a00f2ee5afb74cb66f95"))
(package
(name "alsa-midi-latency-test")
(version (git-version version revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/koppi/alsa-midi-latency-test")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0b3xd4z7zx6mmh6q2q7wnyd0hzikny2cikwzhaab3q86b551vb9n"))))
(build-system gnu-build-system)
(arguments
(list
#:tests? #f ;there are no tests
#:phases #~(modify-phases %standard-phases
(replace 'bootstrap
(lambda _
(invoke "sh" "./autogen.sh"))))))
(native-inputs (list automake autoconf libtool))
(inputs (list alsa-lib))
(synopsis "Measure the roundtrip time of MIDI messages")
(description
"@code{alsa-midi-latency-test} measures the roundtrip time of a MIDI
message in the alsa subsystem of the Linux kernel using a high precision timer.
It calculates the worst case roundtrip time of all sent MIDI messages and
displays a histogram of the roundtrip time jitter.")
(home-page "https://github.com/koppi/alsa-midi-latency-test")
(license license:gpl2+))))
(define-public webrtc-audio-processing (define-public webrtc-audio-processing
(package (package
(name "webrtc-audio-processing") (name "webrtc-audio-processing")

6
gnu/packages/bioconductor.scm
View file

@ -7882,18 +7882,18 @@ genomic intervals. In addition, it can use BAM or BigWig files as input.")
(define-public r-genomeinfodb (define-public r-genomeinfodb
(package (package
(name "r-genomeinfodb") (name "r-genomeinfodb")
(version "1.38.7") (version "1.38.8")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (bioconductor-uri "GenomeInfoDb" version)) (uri (bioconductor-uri "GenomeInfoDb" version))
(sha256 (sha256
(base32 (base32
"0xx6ybvnbpxj59g1fiij8bicniamhhd7d7fcw8c7py15y3h2mlc1")))) "126qq2549h3dpjiq36709pym5bfwk6jqbz5q2sb5hl8lwm1apv8w"))))
(properties (properties
`((upstream-name . "GenomeInfoDb"))) `((upstream-name . "GenomeInfoDb")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
(list r-biocgenerics r-genomeinfodbdata r-iranges r-s4vectors)) (list r-biocgenerics r-genomeinfodbdata r-iranges r-rcurl r-s4vectors))
(native-inputs (native-inputs
(list r-knitr)) (list r-knitr))
(home-page "https://bioconductor.org/packages/GenomeInfoDb") (home-page "https://bioconductor.org/packages/GenomeInfoDb")

63
gnu/packages/bioinformatics.scm
View file

@ -11675,30 +11675,6 @@ clustering analysis, differential analysis, motif inference and exploration of
single cell ATAC-seq sequencing data.") single cell ATAC-seq sequencing data.")
(license license:gpl3))) (license license:gpl3)))
(define-public r-tictoc
(package
(name "r-tictoc")
(version "1.2")
(source (origin
(method url-fetch)
(uri (cran-uri "tictoc" version))
(sha256
(base32
"037jbwb58mj5asf3kr6hpf3fy9c6fkinnd8hbpfb141a2jsa8pph"))))
(properties `((upstream-name . "tictoc")))
(build-system r-build-system)
(home-page "https://github.com/jabiru/tictoc")
(synopsis
"Time R scripts and implementations of stack and list structures")
(description
"The tictoc package provides the timing functions @code{tic} and
@code{toc} that can be nested. It provides an alternative to
@code{system.time()} with a different syntax similar to that in another
well-known software package. @code{tic} and @code{toc} are easy to use, and
are especially useful when timing several sections in more than a few lines of
code.")
(license license:asl2.0)))
(define-public r-tsis (define-public r-tsis
(let ((commit "24460298fbe1d26e4da390f6e4f3d4d9d62334dc") (let ((commit "24460298fbe1d26e4da390f6e4f3d4d9d62334dc")
(revision "1")) (revision "1"))
@ -16480,45 +16456,6 @@ sequencing data in microbiome studies with the Dirichlet-tree Multinomial
Mixtures.") Mixtures.")
(license license:cc0)))) (license license:cc0))))
(define-public r-dyngen
(package
(name "r-dyngen")
(version "1.0.5")
(source
(origin
(method url-fetch)
(uri (cran-uri "dyngen" version))
(sha256
(base32
"095jqn1rd83qm3ayca9hmv6bhlaa2c338020l46vniq8n38kbnra"))))
(properties `((upstream-name . "dyngen")))
(build-system r-build-system)
(propagated-inputs
(list r-assertthat
r-dplyr
r-dynutils
r-ggplot2
r-ggraph
r-ggrepel
r-gillespiessa2
r-igraph
r-lmds
r-matrix
r-patchwork
r-pbapply
r-purrr
r-rlang
r-tibble
r-tidygraph
r-tidyr
r-viridis))
(home-page "https://github.com/dynverse/dyngen")
(synopsis "Multi-Modal simulator for single-cell omics analyses")
(description
"This package provides a multi-modal simulation engine for studying
dynamic cellular processes at single-cell resolution.")
(license license:expat)))
;; Needed for r-liana ;; Needed for r-liana
(define-public r-omnipathr/devel (define-public r-omnipathr/devel
(let ((commit "679bb79e319af246a16968d27d64d8d6937a331a") (let ((commit "679bb79e319af246a16968d27d64d8d6937a331a")

173
gnu/packages/cran.scm
View file

@ -1344,13 +1344,13 @@ compositional data.")
(define-public r-gwasexacthw (define-public r-gwasexacthw
(package (package
(name "r-gwasexacthw") (name "r-gwasexacthw")
(version "1.01") (version "1.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "GWASExactHW" version)) (uri (cran-uri "GWASExactHW" version))
(sha256 (sha256
(base32 (base32
"19qmk8h7kxmn9kzw0x4xns5p3qqz27xkqq4q6zmh4jzizd0fsl78")))) "1xzcvmbh27ibd7g9zlqyp215q4yfkhdypcvm5gjkvw1qhd3pl4yk"))))
(properties `((upstream-name . "GWASExactHW"))) (properties `((upstream-name . "GWASExactHW")))
(build-system r-build-system) (build-system r-build-system)
(home-page "https://cran.r-project.org/package=GWASExactHW") (home-page "https://cran.r-project.org/package=GWASExactHW")
@ -2318,13 +2318,13 @@ known as Dynamic Linear Models.")
(define-public r-zcompositions (define-public r-zcompositions
(package (package
(name "r-zcompositions") (name "r-zcompositions")
(version "1.5.0-2") (version "1.5.0-3")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "zCompositions" version)) (uri (cran-uri "zCompositions" version))
(sha256 (sha256
(base32 (base32
"08kcl870x7kai7zdhqgm4cbfhbrf673rjxghbwpn08l7pwkhix60")))) "1gbwx3vgx5viqnn5jsszild6ikyc2pmf1hdjc9475caf9xx9l589"))))
(properties `((upstream-name . "zCompositions"))) (properties `((upstream-name . "zCompositions")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
@ -3841,6 +3841,30 @@ algorithm described in MetaCell analysis of single-cell RNA-seq
data using K-nn graph partitions.") data using K-nn graph partitions.")
(license license:gpl2))) (license license:gpl2)))
(define-public r-tictoc
(package
(name "r-tictoc")
(version "1.2.1")
(source (origin
(method url-fetch)
(uri (cran-uri "tictoc" version))
(sha256
(base32
"0cw8r1gn4p2v1l3d80brk9sfr9nyckyyym5nr9xq3d74l74vgkcg"))))
(properties `((upstream-name . "tictoc")))
(build-system r-build-system)
(home-page "https://github.com/jabiru/tictoc")
(synopsis
"Time R scripts and implementations of stack and list structures")
(description
"The tictoc package provides the timing functions @code{tic} and
@code{toc} that can be nested. It provides an alternative to
@code{system.time()} with a different syntax similar to that in another
well-known software package. @code{tic} and @code{toc} are easy to use, and
are especially useful when timing several sections in more than a few lines of
code.")
(license license:asl2.0)))
(define-public r-tidyft (define-public r-tidyft
(package (package
(name "r-tidyft") (name "r-tidyft")
@ -4998,14 +5022,14 @@ weights.")
(define-public r-sass (define-public r-sass
(package (package
(name "r-sass") (name "r-sass")
(version "0.4.8") (version "0.4.9")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "sass" version)) (uri (cran-uri "sass" version))
(sha256 (sha256
(base32 (base32
"0364ndnmlqrga3k4c1hfy1894k5wpm9srf9201g9zb92rlq2kfj2")))) "1lnl2xssz33vg7p6a8ij55hg6j1p1d3y2mq22pvf0r3rmnd08cz1"))))
(properties `((upstream-name . "sass"))) (properties `((upstream-name . "sass")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
@ -6515,13 +6539,13 @@ processes. Most of its code is based on the @code{psutil} Python package.")
(define-public r-pkgbuild (define-public r-pkgbuild
(package (package
(name "r-pkgbuild") (name "r-pkgbuild")
(version "1.4.3") (version "1.4.4")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "pkgbuild" version)) (uri (cran-uri "pkgbuild" version))
(sha256 (sha256
(base32 "0rci20gj2x0bgjy51jp8i4gld6arsigj7lhdkpwvdyhadjsyv0qm")))) (base32 "1a72s2gg7ddjj94naiii44f3vyhky05gaa6xvdf72m1nshy88wjr"))))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
(list r-callr r-cli r-desc r-processx r-r6)) (list r-callr r-cli r-desc r-processx r-r6))
@ -8945,14 +8969,14 @@ problems as well as resampling based estimators of prediction error.")
(define-public r-psych (define-public r-psych
(package (package
(name "r-psych") (name "r-psych")
(version "2.4.1") (version "2.4.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "psych" version)) (uri (cran-uri "psych" version))
(sha256 (sha256
(base32 (base32
"08ip2m91c6hinva18zv575cn6w14pnjc503m1gisrg65c3z3f69b")))) "0ic479y314knn20m1cjlp15lji7f70xrg95ln570pgkhrk5853bi"))))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
(list r-lattice r-mnormt r-nlme)) (list r-lattice r-mnormt r-nlme))
@ -9132,13 +9156,13 @@ from the data points.")
(define-public r-coro (define-public r-coro
(package (package
(name "r-coro") (name "r-coro")
(version "1.0.3") (version "1.0.4")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "coro" version)) (uri (cran-uri "coro" version))
(sha256 (sha256
(base32 "0wvxdpdh3xrskz5s5wfkva856x849knx1jigbf0ff6s6n6qjjxsf")))) (base32 "0r6cb2gr29vxjlbfzqxdgbccp57l6raxncljisl1vyj6xi2by8cg"))))
(properties `((upstream-name . "coro"))) (properties `((upstream-name . "coro")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (list r-rlang)) (propagated-inputs (list r-rlang))
@ -10277,13 +10301,13 @@ constants, and control debugging of packages via environment variables.")
(define-public r-processx (define-public r-processx
(package (package
(name "r-processx") (name "r-processx")
(version "3.8.3") (version "3.8.4")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "processx" version)) (uri (cran-uri "processx" version))
(sha256 (sha256
(base32 "0cfq6pq8rg0vhjfgvf48hfvngbn1g6hv28b6pgxh55xqh8acbn0s")))) (base32 "02z7n59pglz6jw1vyyl0mkc7mz2c7y8yzsnhq5yz62digwnnf9v6"))))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
(list r-ps r-r6)) (list r-ps r-r6))
@ -10712,14 +10736,14 @@ vectors.")
(define-public r-tinytex (define-public r-tinytex
(package (package
(name "r-tinytex") (name "r-tinytex")
(version "0.49") (version "0.50")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "tinytex" version)) (uri (cran-uri "tinytex" version))
(sha256 (sha256
(base32 (base32
"0i9icscy5n6p6w3f4v2z3cznywrrv2l6xyyhb0k1fpa4cpn6j4cl")))) "11k0pl073b4k4wmpxkw4a071jbpvhr1g3cwm9v99rw3gh6p6x15l"))))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
(list r-xfun)) (list r-xfun))
@ -10797,13 +10821,13 @@ implementation of an approximate nearest neighbor search using hierarchical
(define-public r-nestedcv (define-public r-nestedcv
(package (package
(name "r-nestedcv") (name "r-nestedcv")
(version "0.7.4") (version "0.7.8")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "nestedcv" version)) (uri (cran-uri "nestedcv" version))
(sha256 (sha256
(base32 "0ymy1dbkcpiyq44zpvpkz1m5ivnchip07q6agh6ij50imddxb48s")))) (base32 "1pdky7kzqs1rhl0f4hba3sggifplfgbp339imxym4dvvdb81b589"))))
(properties `((upstream-name . "nestedcv"))) (properties `((upstream-name . "nestedcv")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (list r-caret (propagated-inputs (list r-caret
@ -10812,13 +10836,13 @@ implementation of an approximate nearest neighbor search using hierarchical
r-foreach r-foreach
r-ggplot2 r-ggplot2
r-glmnet r-glmnet
r-magrittr
r-matrixstats r-matrixstats
r-matrixtests r-matrixtests
r-proc r-proc
r-rfast r-rfast
r-rhpcblasctl r-rhpcblasctl
r-rlang)) r-rlang
r-rocr))
(native-inputs (list r-knitr)) (native-inputs (list r-knitr))
(home-page "https://github.com/myles-lewis/nestedcv") (home-page "https://github.com/myles-lewis/nestedcv")
(synopsis "Nested cross-validation with glmnet and caret") (synopsis "Nested cross-validation with glmnet and caret")
@ -12593,6 +12617,45 @@ contain lags, diffs and missing values.")
;; Any GPL version. ;; Any GPL version.
(license license:gpl2+))) (license license:gpl2+)))
(define-public r-dyngen
(package
(name "r-dyngen")
(version "1.0.5")
(source
(origin
(method url-fetch)
(uri (cran-uri "dyngen" version))
(sha256
(base32
"095jqn1rd83qm3ayca9hmv6bhlaa2c338020l46vniq8n38kbnra"))))
(properties `((upstream-name . "dyngen")))
(build-system r-build-system)
(propagated-inputs
(list r-assertthat
r-dplyr
r-dynutils
r-ggplot2
r-ggraph
r-ggrepel
r-gillespiessa2
r-igraph
r-lmds
r-matrix
r-patchwork
r-pbapply
r-purrr
r-rlang
r-tibble
r-tidygraph
r-tidyr
r-viridis))
(home-page "https://github.com/dynverse/dyngen")
(synopsis "Multi-Modal simulator for single-cell omics analyses")
(description
"This package provides a multi-modal simulation engine for studying
dynamic cellular processes at single-cell resolution.")
(license license:expat)))
(define-public r-dynutils (define-public r-dynutils
(package (package
(name "r-dynutils") (name "r-dynutils")
@ -13709,14 +13772,14 @@ Sequence logos can easily be combined with other ggplot2 plots.")
(define-public r-ggsci (define-public r-ggsci
(package (package
(name "r-ggsci") (name "r-ggsci")
(version "3.0.1") (version "3.0.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "ggsci" version)) (uri (cran-uri "ggsci" version))
(sha256 (sha256
(base32 (base32
"030rkjx64mlhy19d74p3blsi92nyjq9vbn33323dvm1rihb8avgi")))) "0qasxv3aliqqmfi3nk3140lrbcrw4lbfw5hm65hfkgf5a3bkca67"))))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
(list r-ggplot2 r-scales)) (list r-ggplot2 r-scales))
@ -14486,14 +14549,14 @@ Decomposition in R (Beaton et al 2014) <doi:10.1016/j.csda.2013.11.006>.")
(define-public r-insight (define-public r-insight
(package (package
(name "r-insight") (name "r-insight")
(version "0.19.8") (version "0.19.9")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "insight" version)) (uri (cran-uri "insight" version))
(sha256 (sha256
(base32 (base32
"1f76fqrcv54l01z2nb46ysh3f41j06nqpn4ffn2gmjfggmj4xvwq")))) "0q6wd28bnav9vwzprwvm9fhpmhqvq85iyg4h503lavcvi5g39a9x"))))
(build-system r-build-system) (build-system r-build-system)
(native-inputs (native-inputs
(list r-knitr)) (list r-knitr))
@ -14730,13 +14793,13 @@ contains or can be specified by the user.")
(define-public r-wrs2 (define-public r-wrs2
(package (package
(name "r-wrs2") (name "r-wrs2")
(version "1.1-5") (version "1.1-6")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "WRS2" version)) (uri (cran-uri "WRS2" version))
(sha256 (sha256
(base32 (base32
"028xs424m879siaf3rrhzl1dacp9j7wcl5fpikyx2n0cc7anq4vq")))) "1wsnsl4gy1hbgxfzzhfybak0jqmxq9fsh3scqyxydd7ia9r2n52k"))))
(properties `((upstream-name . "WRS2"))) (properties `((upstream-name . "WRS2")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (list r-mass r-plyr r-reshape)) (propagated-inputs (list r-mass r-plyr r-reshape))
@ -16610,13 +16673,13 @@ handle data from simple random samples as well as complex surveys.")
(define-public r-tarchetypes (define-public r-tarchetypes
(package (package
(name "r-tarchetypes") (name "r-tarchetypes")
(version "0.7.12") (version "0.8.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "tarchetypes" version)) (uri (cran-uri "tarchetypes" version))
(sha256 (sha256
(base32 (base32
"0l5kk7a3p0pbqh9rrjz43aa4dgcfffcb3wwsl60bm9v48lzv7frv")))) "18vn2mx5nqlib0by5v7493g8gsbzcdbg0dn92cpbf713r69v1lbk"))))
(properties `((upstream-name . "tarchetypes"))) (properties `((upstream-name . "tarchetypes")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (list r-digest (propagated-inputs (list r-digest
@ -16644,13 +16707,13 @@ were influenced by the drake R package by Will Landau (2018)
(define-public r-targets (define-public r-targets
(package (package
(name "r-targets") (name "r-targets")
(version "1.5.1") (version "1.6.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "targets" version)) (uri (cran-uri "targets" version))
(sha256 (sha256
(base32 (base32
"1g21cp0p5jdghr61w9q3y73jm2k248z4apn7rlxqm6m18i4x7zsb")))) "1ddpbhvdydxm62k6ay7hpqjh8kh2isjpcdh3gygzcdrghx6d7x65"))))
(properties `((upstream-name . "targets"))) (properties `((upstream-name . "targets")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (list r-base64url (propagated-inputs (list r-base64url
@ -17783,14 +17846,14 @@ more information about packages, and where they were installed from.")
(define-public r-remotes (define-public r-remotes
(package (package
(name "r-remotes") (name "r-remotes")
(version "2.4.2.1") (version "2.5.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "remotes" version)) (uri (cran-uri "remotes" version))
(sha256 (sha256
(base32 (base32
"1790q52z4fy4zb1hnpn066q9fph53syl7gaxlbgbqq1dcndcma3v")))) "0345s9q0fyv0wrxkklcy97h7bi85jfb3vwkh80px926d4qa3yrjd"))))
(build-system r-build-system) (build-system r-build-system)
(native-inputs (native-inputs
(list r-knitr)) (list r-knitr))
@ -19201,14 +19264,14 @@ Processing.")
(define-public r-tm (define-public r-tm
(package (package
(name "r-tm") (name "r-tm")
(version "0.7-11") (version "0.7-12")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "tm" version)) (uri (cran-uri "tm" version))
(sha256 (sha256
(base32 (base32
"0hp7xamjmifd56qwsin5m0xng592wwxsbfxdz37n4k6zjf28paws")))) "1z0zpz6jgzg34cz07cdpya2zwwsvywrd8xgwahhlz15vnaij7j3y"))))
(properties `((upstream-name . "tm"))) (properties `((upstream-name . "tm")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
@ -20432,14 +20495,14 @@ preparing, executing, and processing HTTP requests.")
(define-public r-bigrquery (define-public r-bigrquery
(package (package
(name "r-bigrquery") (name "r-bigrquery")
(version "1.5.0") (version "1.5.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "bigrquery" version)) (uri (cran-uri "bigrquery" version))
(sha256 (sha256
(base32 (base32
"1s2vvygv4d8mdd67r6j2s9d1xg009lpxysfarmrnqh0s2s1rglkz")))) "0wkm9xka83skq1cnv830q4jnqvwm8rlmns2mj8n692h2y5qxlmna"))))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
(list r-bit64 (list r-bit64
@ -23730,13 +23793,13 @@ lspec, polyclass, and polymars.")
(define-public r-rms (define-public r-rms
(package (package
(name "r-rms") (name "r-rms")
(version "6.7-1") (version "6.8-0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "rms" version)) (uri (cran-uri "rms" version))
(sha256 (sha256
(base32 "199xb98zxsbd8wa9g33bgrvbcpq79glnfmq060ic8f9vjw96r0qz")))) (base32 "1cd6m6i2ild2f2x9rkyd2aqb33q3xy0596bs3dnvr2mnh5fcar5d"))))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
(list r-cluster (list r-cluster
@ -25634,14 +25697,14 @@ colored by the number of neighboring points. This is useful to visualize the
(define-public r-arrow (define-public r-arrow
(package (package
(name "r-arrow") (name "r-arrow")
(version "14.0.2.1") (version "15.0.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "arrow" version)) (uri (cran-uri "arrow" version))
(sha256 (sha256
(base32 (base32
"1l1ninmq6mbqm7cckcy0qw4f20fkrixrykcqkh24bszg514r9af5")))) "070pp0p5h1ij7pg34l5grrx4vwfihagnvnk4kj7l3w0gh8y88ibz"))))
(properties `((upstream-name . "arrow"))) (properties `((upstream-name . "arrow")))
(build-system r-build-system) (build-system r-build-system)
(inputs (inputs
@ -27446,14 +27509,14 @@ in pipelines.")
(define-public r-parameters (define-public r-parameters
(package (package
(name "r-parameters") (name "r-parameters")
(version "0.21.5") (version "0.21.6")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "parameters" version)) (uri (cran-uri "parameters" version))
(sha256 (sha256
(base32 (base32
"0yxljycspmljj5s4i5knwyhxp29s616f7kg3xcwn0ip15kfg260v")))) "004ld3m9qdq3bwl8qmp3h700kzqlgbmgz739d7fpiqgrs0s2gv83"))))
(properties `((upstream-name . "parameters"))) (properties `((upstream-name . "parameters")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
@ -28790,14 +28853,14 @@ discussed in Reisen et al. (2017) @url{doi:10.1016/j.jspi.2017.02.008}.")
(define-public r-gamlss-data (define-public r-gamlss-data
(package (package
(name "r-gamlss-data") (name "r-gamlss-data")
(version "6.0-2") (version "6.0-6")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "gamlss.data" version)) (uri (cran-uri "gamlss.data" version))
(sha256 (sha256
(base32 (base32
"07mpdl4h9rwmnpl9jmsn6ig8ji11an6pyjfsvg62h2alapwbdcyv")))) "08mb154mz1kk19zb414i5mg1q1yv7nylwpc5kzsb602mv4cxpq5s"))))
(properties `((upstream-name . "gamlss.data"))) (properties `((upstream-name . "gamlss.data")))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://www.gamlss.org/") (home-page "http://www.gamlss.org/")
@ -32360,14 +32423,14 @@ Latent regression models and plausible value imputation are also supported.")
(define-public r-erm (define-public r-erm
(package (package
(name "r-erm") (name "r-erm")
(version "1.0-5") (version "1.0-6")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "eRm" version)) (uri (cran-uri "eRm" version))
(sha256 (sha256
(base32 (base32
"0bkivhiy02pibdcvb9z0i0yvc3wz3v33n6slhkkik61gcw1idmf0")))) "059xny2jl81is1qyxgpbf4qi5zqpvdc64322kjz1i011kq9apwmw"))))
(properties `((upstream-name . "eRm"))) (properties `((upstream-name . "eRm")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
@ -35664,14 +35727,14 @@ model.")
(define-public r-igraph (define-public r-igraph
(package (package
(name "r-igraph") (name "r-igraph")
(version "2.0.2") (version "2.0.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "igraph" version)) (uri (cran-uri "igraph" version))
(sha256 (sha256
(base32 (base32
"0kfc9blyy54cz0m4mdzzwgvn0rkil49kdk438411mx62g2vxby9l")))) "0xlg5lxzr8dc260fii43chsspqvb962i1yrcars988b78lnig2lf"))))
(properties (properties
`((upstream-name . "igraph") `((upstream-name . "igraph")
(updater-extra-native-inputs . ("which")))) (updater-extra-native-inputs . ("which"))))
@ -35679,7 +35742,7 @@ model.")
(native-inputs (native-inputs
(list gfortran pkg-config r-knitr which)) (list gfortran pkg-config r-knitr which))
(inputs (inputs
(list glpk gmp libxml2 zlib)) (list glpk libxml2 zlib))
(propagated-inputs (propagated-inputs
(list r-cli (list r-cli
r-cpp11 r-cpp11
@ -36893,13 +36956,13 @@ other R users.")
(define-public r-seurat (define-public r-seurat
(package (package
(name "r-seurat") (name "r-seurat")
(version "5.0.2") (version "5.0.3")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "Seurat" version)) (uri (cran-uri "Seurat" version))
(sha256 (sha256
(base32 (base32
"1d49a9mhip81lvnkr8i4dznkmzyskdzrpi485w7yw2sr0qbyzg5c")))) "08r5l6sk8i134izd29ydfm7hva7a9b3lfglmgngc9w73qs9dzwz4"))))
(properties `((upstream-name . "Seurat"))) (properties `((upstream-name . "Seurat")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
@ -37669,13 +37732,13 @@ computational operations, add-on packages provide additional functionality.")
(define-public r-mlr3learners (define-public r-mlr3learners
(package (package
(name "r-mlr3learners") (name "r-mlr3learners")
(version "0.5.8") (version "0.6.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "mlr3learners" version)) (uri (cran-uri "mlr3learners" version))
(sha256 (sha256
(base32 (base32
"0q44qmd9zfc68jl2zz684rx9744g83vd7z40dck8cdvnnrxcff5g")))) "06gz6h19cnb62js1b35nddy453dyj64mr788p8ww56kgfk6yzxr8"))))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
(list r-checkmate (list r-checkmate
@ -38020,14 +38083,14 @@ the font tool-set provided by the @code{systemfonts} package.")
(define-public r-ragg (define-public r-ragg
(package (package
(name "r-ragg") (name "r-ragg")
(version "1.2.7") (version "1.3.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "ragg" version)) (uri (cran-uri "ragg" version))
(sha256 (sha256
(base32 (base32
"17qc53scxf02f8hlpyirsjdav4wjh3mk6q04npf82y0j5mk1hynp")))) "1chlas4i6p8gigx02x1y7nanmz9jbv1h4fa145zk223bbg9j931j"))))
(properties `((upstream-name . "ragg"))) (properties `((upstream-name . "ragg")))
(build-system r-build-system) (build-system r-build-system)
(inputs (inputs

4
gnu/packages/databases.scm
View file

@ -4514,7 +4514,7 @@ the SQL language using a syntax that reflects the resulting query.")
(define-public apache-arrow (define-public apache-arrow
(package (package
(name "apache-arrow") (name "apache-arrow")
(version "14.0.2") (version "15.0.1")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -4524,7 +4524,7 @@ the SQL language using a syntax that reflects the resulting query.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1idw58vs8r6g6xy2qkhccgc79hwx4r5rr4bhd6ilxx56fwq9hkn2")))) "0zrcwsq9c976xncc1kg6lw24s5r3ag8vfzhmcnkvi5z2c9x4lvvc"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
(list (list

8
gnu/packages/dns.scm
View file

@ -1273,7 +1273,7 @@ nameservers other than libc.")
(define-public smartdns (define-public smartdns
(package (package
(name "smartdns") (name "smartdns")
(version "43") (version "45")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -1285,7 +1285,7 @@ nameservers other than libc.")
((".*SYSTEMDSYSTEMUNITDIR.*") ""))) ((".*SYSTEMDSYSTEMUNITDIR.*") "")))
(sha256 (sha256
(base32 (base32
"0s789l6i4yirmarg80mknc1pp65rz01ky9f7gidgclkfcwzz41l3")))) "1f0j6d8vz1x2f4nr2w3q7azkjh8hlkj81v61a8sw1kq5160qhlb9"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list #:test-target "test" (list #:test-target "test"
@ -1293,7 +1293,7 @@ nameservers other than libc.")
#~(list (string-append "CC=" #$(cc-for-target)) #~(list (string-append "CC=" #$(cc-for-target))
(string-append "DESTDIR=" #$output) (string-append "DESTDIR=" #$output)
"PREFIX=''" "PREFIX=''"
(string-append "VER=" #$version)) (string-append "VER=" #$(package-version this-package)))
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) (delete 'configure)
@ -1321,7 +1321,7 @@ nameservers other than libc.")
(lambda _ (lambda _
(chdir "../../source")))))) (chdir "../../source"))))))
(inputs (list openssl)) (inputs (list openssl))
(native-inputs (list googletest `(,isc-bind "utils"))) (native-inputs (list googletest `(,isc-bind "utils") which))
(home-page "https://github.com/pymumu/smartdns") (home-page "https://github.com/pymumu/smartdns")
(synopsis "Local DNS server") (synopsis "Local DNS server")
(description (description

10
gnu/packages/docker.scm
View file

@ -8,7 +8,6 @@
;;; Copyright © 2020 Jesse Dowell <jessedowell@gmail.com> ;;; Copyright © 2020 Jesse Dowell <jessedowell@gmail.com>
;;; Copyright © 2021, 2022 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2021, 2022 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2022 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2022 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2024 Arun Isaac <arunisaac@systemreboot.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -48,7 +47,6 @@
#:use-module (gnu packages networking) #:use-module (gnu packages networking)
#: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 python-build)
#:use-module (gnu packages python-crypto) #:use-module (gnu packages python-crypto)
#:use-module (gnu packages python-web) #:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz) #:use-module (gnu packages python-xyz)
@ -62,24 +60,22 @@
(define-public python-docker (define-public python-docker
(package (package
(name "python-docker") (name "python-docker")
(version "7.0.0") (version "5.0.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "docker" version)) (uri (pypi-uri "docker" version))
(sha256 (sha256
(base32 (base32
"18z5wzqm7dbxaa5q4gs8yh2dma8i7savqcvibvy1i56djbxkcdrj")))) "1yr7w8vmdis01myx26pqx7wcyz2cy1mfs421alppq3lpc9ms45nr"))))
(build-system python-build-system) (build-system python-build-system)
;; TODO: Tests require a running Docker daemon. ;; TODO: Tests require a running Docker daemon.
(arguments '(#:tests? #f)) (arguments '(#:tests? #f))
(inputs (inputs
(list python-requests python-six python-urllib3)) (list python-requests python-six python-urllib3))
(native-inputs
(list python-setuptools-scm))
(propagated-inputs (propagated-inputs
(list python-docker-pycreds python-paramiko ;adds SSH support (list python-docker-pycreds python-paramiko ;adds SSH support
python-packaging python-websocket-client)) python-websocket-client))
(home-page "https://github.com/docker/docker-py/") (home-page "https://github.com/docker/docker-py/")
(synopsis "Python client for Docker") (synopsis "Python client for Docker")
(description "Docker-Py is a Python client for the Docker container (description "Docker-Py is a Python client for the Docker container

45
gnu/packages/documentation.scm
View file

@ -30,7 +30,7 @@
;;; 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 documentation) (define-module (gnu packages documentation)
#:use-module (guix licenses) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix gexp) #:use-module (guix gexp)
@ -104,7 +104,7 @@
(description "LaTeX2HTML is a utility that converts LaTeX documents to web (description "LaTeX2HTML is a utility that converts LaTeX documents to web
pages in HTML.") pages in HTML.")
(home-page "https://www.latex2html.org/") (home-page "https://www.latex2html.org/")
(license gpl2+))) (license license:gpl2+)))
(define-public asciidoc (define-public asciidoc
(package (package
@ -175,7 +175,7 @@ EPUB, man page.
AsciiDoc is highly configurable: both the AsciiDoc source file syntax and AsciiDoc is highly configurable: both the AsciiDoc source file syntax and
the backend output markups (which can be almost any type of SGML/XML the backend output markups (which can be almost any type of SGML/XML
markup) can be customized and extended by the user.") markup) can be customized and extended by the user.")
(license gpl2+))) (license license:gpl2+)))
(define-deprecated asciidoc-py3 asciidoc) (define-deprecated asciidoc-py3 asciidoc)
@ -241,7 +241,34 @@ documentation from annotated C++ sources, but it also supports other popular
programming languages such as C, Objective-C, C#, PHP, Java, Python, programming languages such as C, Objective-C, C#, PHP, Java, Python,
IDL (Corba, Microsoft, and UNO/OpenOffice flavors), Fortran, VHDL, Tcl, IDL (Corba, Microsoft, and UNO/OpenOffice flavors), Fortran, VHDL, Tcl,
and to some extent D.") and to some extent D.")
(license gpl3+))) (license license:gpl3+)))
(define-public halibut
(package
(name "halibut")
(version "1.3")
(source (origin
(method url-fetch)
(uri (string-append
"https://www.chiark.greenend.org.uk/~sgtatham/halibut/halibut-"
version "/halibut-" version ".tar.gz"))
(sha256
(base32
"0ciikn878vivs4ayvwvr63nnhpcg12m8023xv514zxqpdxlzg85a"))))
(build-system cmake-build-system)
(arguments
'(#:tests? #f)) ;No tests.
(native-inputs (list pkg-config perl))
(home-page "https://www.chiark.greenend.org.uk/~sgtatham/halibut/")
(synopsis "Documentation production system for software manuals")
(description
"Halibut is a text formatting system designed primarily for writing software
documentation. It accepts a single source format and outputs any combination of
plain text, HTML, Unix man or info pages, PostScript or PDF. It has extensive
support for indexing and cross-referencing, and generates hyperlinks within output
documents wherever possible. It supports Unicode, with the ability to fall back to
an alternative representation if Unicode output is not available.")
(license license:expat)))
(define-public doc++ (define-public doc++
(package (package
@ -266,7 +293,7 @@ and to some extent D.")
generate both TeX output for high-quality hardcopies or HTML output for online generate both TeX output for high-quality hardcopies or HTML output for online
browsing. The documentation is extracted directly from the C/C++/IDL source browsing. The documentation is extracted directly from the C/C++/IDL source
or Java class files.") or Java class files.")
(license gpl2+))) (license license:gpl2+)))
(define-public pod2pdf (define-public pod2pdf
(package (package
@ -292,7 +319,7 @@ or Java class files.")
Documentation} format to PDF files. It also supports some extensions to the POD Documentation} format to PDF files. It also supports some extensions to the POD
format, and supports the file types JPG, GIF, TIFF, PNG, and PNM for embedded format, and supports the file types JPG, GIF, TIFF, PNG, and PNM for embedded
objects.") objects.")
(license artistic2.0))) (license license:artistic2.0)))
(define-public python-docrepr (define-public python-docrepr
(package (package
@ -344,7 +371,7 @@ objects.")
(description "Docrepr renders Python docstrings to HTML with Sphinx. It (description "Docrepr renders Python docstrings to HTML with Sphinx. It
can generate rich and plain representations of docstrings, alongside can generate rich and plain representations of docstrings, alongside
additional metadata about the object to which the docstring belongs.") additional metadata about the object to which the docstring belongs.")
(license bsd-3))) (license license:bsd-3)))
(define-public scrollkeeper (define-public scrollkeeper
(package (package
@ -377,7 +404,7 @@ documentation metadata as specified by the Open Source Metadata Framework and
provides a simple API to allow help browsers to find, sort, and search the provides a simple API to allow help browsers to find, sort, and search the
document catalog. It will also be able to communicate with catalog servers on document catalog. It will also be able to communicate with catalog servers on
the Net to search for documents which are not on the local system.") the Net to search for documents which are not on the local system.")
(license lgpl2.1+))) (license license:lgpl2.1+)))
(define-public zeal (define-public zeal
(let ((commit "1cfa7c637f745be9d98777f06b4f8dec90892bf2") (let ((commit "1cfa7c637f745be9d98777f06b4f8dec90892bf2")
@ -425,4 +452,4 @@ the Net to search for documents which are not on the local system.")
(synopsis "Offline documentation browser inspired by Dash") (synopsis "Offline documentation browser inspired by Dash")
(description "Zeal is a simple offline documentation browser (description "Zeal is a simple offline documentation browser
inspired by Dash.") inspired by Dash.")
(license gpl3+)))) (license license:gpl3+))))

4
gnu/packages/education.scm
View file

@ -566,7 +566,7 @@ a pen-tablet display and a beamer.")
(define-public fet (define-public fet
(package (package
(name "fet") (name "fet")
(version "6.15.0") (version "6.18.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -575,7 +575,7 @@ a pen-tablet display and a beamer.")
(list (string-append directory base) (list (string-append directory base)
(string-append directory "old/" base)))) (string-append directory "old/" base))))
(sha256 (sha256
(base32 "0mmk9f0b23lmmk40mv25wf9vgb7wdgfn5zsa1qrkvkh7dh1hjpax")))) (base32 "0yf94z4yybaw53jf0hzi1p53rwa91wl3g6pai7gsr4palssyfxw2"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list (list

762
gnu/packages/emacs-xyz.scm
View file

File diff suppressed because it is too large Load diff

17
gnu/packages/emulators.scm
View file

@ -6,7 +6,7 @@
;;; Copyright © 2015, 2018, 2023 David Thompson <dthompson2@worcester.edu> ;;; Copyright © 2015, 2018, 2023 David Thompson <dthompson2@worcester.edu>
;;; Copyright © 2016 Manolis Fragkiskos Ragkousis <manolis837@gmail.com> ;;; Copyright © 2016 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2016, 2017, 2018, 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017, 2018, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017-2023 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2017-2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2017, 2020, 2021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2020, 2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
@ -410,7 +410,7 @@ older games.")
;; This is not a patch staging area for DOSBox, but an unaffiliated fork. ;; This is not a patch staging area for DOSBox, but an unaffiliated fork.
(package (package
(name "dosbox-staging") (name "dosbox-staging")
(version "0.80.1") (version "0.81.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -419,7 +419,7 @@ older games.")
(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 "1iqqrw95lpgjbmi777jdl5z1nizxgfy8xwpmy1fasjlb2yh2kp93")))) (base32 "1fkshxaq12pd72v8m2f3a6d6jk9gh39hn0846gfkfinvw7yykzrl"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
(list #:configure-flags (list #:configure-flags
@ -736,7 +736,7 @@ The following systems are supported:
(define-public mgba (define-public mgba
(package (package
(name "mgba") (name "mgba")
(version "0.10.2") (version "0.10.3")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -746,7 +746,7 @@ The following systems are supported:
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1wwpjcblp2c1svab4z1if5xb7707wsy6zw590lwdz9za35i0h37q")) "1h4wsx76kylsn4f4418swbp6zjp1x94dfn751iks1i6i529pfay1"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
;; Make sure we don't use the bundled software. ;; Make sure we don't use the bundled software.
@ -760,7 +760,8 @@ The following systems are supported:
(arguments (arguments
`(#:tests? #f ;no "test" target `(#:tests? #f ;no "test" target
#:configure-flags #:configure-flags
(list "-DUSE_LZMA=OFF" ;do not use bundled LZMA (list "-DBUILD_LTO=OFF" ;FIXME: <https://github.com/mgba-emu/mgba/issues/3115>
"-DUSE_LZMA=OFF" ;do not use bundled LZMA
"-DUSE_LIBZIP=OFF"))) ;use "zlib" instead "-DUSE_LIBZIP=OFF"))) ;use "zlib" instead
(native-inputs (list pkg-config qttools-5)) (native-inputs (list pkg-config qttools-5))
(inputs (inputs
@ -1574,14 +1575,14 @@ that compiles to WebAssembly.")
(define-public scummvm (define-public scummvm
(package (package
(name "scummvm") (name "scummvm")
(version "2.7.0") (version "2.8.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://downloads.scummvm.org/frs/scummvm/" version (uri (string-append "https://downloads.scummvm.org/frs/scummvm/" version
"/scummvm-" version ".tar.xz")) "/scummvm-" version ".tar.xz"))
(sha256 (sha256
(base32 "14wrrzai25mh8qra3lsfibx8z6f96cqbnmsfh9kyhkvpc7yiyjs4")))) (base32 "1dr70z1dkfw2gp43jq0qp7g73glr36a7qdcv1jvp1m927nhz95vy"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list (list

118
gnu/packages/finance.scm
View file

@ -31,12 +31,14 @@
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Philip McGrath <philip@philipmcgrath.com> ;;; Copyright © 2022 Philip McGrath <philip@philipmcgrath.com>
;;; Copyright © 2022 Collin J. Doering <collin@rekahsoft.ca> ;;; Copyright © 2022 Collin J. Doering <collin@rekahsoft.ca>
;;; Copyright © 2023 dan <i@dan.games>
;;; Copyright © 2022 Justin Veilleux <terramorpha@cock.li> ;;; Copyright © 2022 Justin Veilleux <terramorpha@cock.li>
;;; Copyright © 2023 Frank Pursel <frank.pursel@gmail.com> ;;; Copyright © 2023 Frank Pursel <frank.pursel@gmail.com>
;;; Copyright © 2023 Skylar Hill <stellarskylark@posteo.net> ;;; Copyright © 2023 Skylar Hill <stellarskylark@posteo.net>
;;; Copyright © 2023 Foundation Devices, Inc. <hello@foundationdevices.com> ;;; Copyright © 2023 Foundation Devices, Inc. <hello@foundationdevices.com>
;;; Copyright © 2023 Attila Lendvai <attila@lendvai.name> ;;; Copyright © 2023 Attila Lendvai <attila@lendvai.name>
;;; Copyright © 2024 Saku Laesvuori <saku@laesvuori.fi> ;;; Copyright © 2024 Saku Laesvuori <saku@laesvuori.fi>
;;; Copyright © 2024 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -608,7 +610,7 @@ other machines/servers. Electrum does not download the Bitcoin blockchain.")
(define-public electron-cash (define-public electron-cash
(package (package
(name "electron-cash") (name "electron-cash")
(version "4.3.1") (version "4.4.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -617,7 +619,7 @@ other machines/servers. Electrum does not download the Bitcoin blockchain.")
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "0slx7hmlw2gpcqg951vwvnyl7j52pfzqyaldphghhfxbfzjs7v64")))) (base32 "1hfkp24m1yipadanjf5wm6clmyllkcbh7fbw8whnrvxa2v7sa4l8"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
(list (list
@ -1969,35 +1971,54 @@ that allows you to run services and through them access the Bitcoin Cash network
(version "2.3.6") (version "2.3.6")
(source (source
(origin (origin
(method url-fetch) (method git-fetch) ; no test data files in PyPI archive
(uri (pypi-uri "beancount" version)) (uri (git-reference
(url "https://github.com/beancount/beancount")
(commit version)))
(file-name (git-file-name name version))
(sha256 (sha256
(base32 "0nj7sdh7wxc0hv8wxwqhw9v1zgx1sn4w92368ci2wzdmssz967w0")) (base32 "1slxsjw29cyr2kbirdpijhpqspk55k38rpmk3zc02pr1wll62qsv"))
(patches (search-patches "beancount-disable-googleapis-fonts.patch")))) (patches (search-patches "beancount-disable-googleapis-fonts.patch"))
(build-system python-build-system) (modules '((guix build utils)))
(snippet
#~(begin
;; Remove broken experiments.
(delete-file-recursively "experiments")
;; Remove bundled packages.
(delete-file-recursively "third_party")))))
(build-system pyproject-build-system)
(arguments (arguments
`(#:tests? #f ; Says test is missing, not sure why (list
#:phases #:test-flags
(modify-phases %standard-phases #~(list "-k" (string-append
;; Not importing the googleapis package for now ;; ModuleNotFoundError: No module named 'pytest'
(add-after 'unpack 'ignore-googleapis "not test_parse_stdin"
(lambda _ ;; AssertionError: 5 not greater than 20
(substitute* "setup.py" " and not test_setup"))
(("'google-api-python-client',") "")) #:phases
#t)) #~(modify-phases %standard-phases
;; No module named 'google_auth_oauthlib' (add-after 'unpack 'relax-requirements
(delete 'sanity-check)))) (lambda _
(inputs (substitute* "setup.py"
;; Use compatible fork, and do not fail during sanity check.
(("\"pdfminer2\",") ""))))
(add-before 'check 'build-extensions
(lambda _
(invoke "python" "setup.py" "build_ext" "--inplace"))))))
(propagated-inputs
(list python-beautifulsoup4 (list python-beautifulsoup4
python-bottle python-bottle
python-chardet python-chardet
python-dateutil python-dateutil
python-google-api-client
python-google-auth-oauthlib
python-lxml python-lxml
python-magic python-magic
python-oauth2client
python-ply python-ply
python-requests)) python-requests))
(native-inputs (native-inputs
(list python-pytest)) (list gnupg python-pdfminer-six python-pytest))
(home-page "https://beancount.github.io/") (home-page "https://beancount.github.io/")
(synopsis "Command-line double-entry accounting tool") (synopsis "Command-line double-entry accounting tool")
(description (description
@ -2006,6 +2027,55 @@ define financial transaction records in a text file, read them in memory,
generate a variety of reports from them, and provides a web interface.") generate a variety of reports from them, and provides a web interface.")
(license license:gpl2))) (license license:gpl2)))
(define-public fava
(package
(name "fava")
;; XXX: A newer version requires Flask > 2.2, which is not available in
;; Guix yet.
(version "1.24.4")
(source
(origin
(method url-fetch)
(uri (pypi-uri "fava" version))
(sha256
(base32 "1iwha9vx223iiyjqbixpz1lp8q766ikhi7xcap3pscjhldxlym4j"))))
(build-system pyproject-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'relax-requirements
(lambda _
(substitute* "setup.cfg"
((">=8,<10") ">8"))))
;; Tests write to $HOME.
;; FileNotFoundError: [Errno 2] No such file or directory
(add-before 'check 'set-home
(lambda _
(setenv "HOME" "/tmp"))))))
(propagated-inputs
(list beancount
python-babel
python-cheroot
python-click
python-flask
python-flask-babel
python-jinja2
python-markdown2
python-ply
python-simplejson
python-werkzeug))
(native-inputs
(list python-pytest
python-chardet
python-dateutil
python-setuptools-scm))
(home-page "https://beancount.github.io/fava/")
(synopsis "Web interface for the accounting tool Beancount")
(description "Fava is a web interface for the double-entry bookkeeping
software Beancount with a focus on features and usability.")
(license license:expat)))
(define-public emacs-beancount (define-public emacs-beancount
;; Note that upstream has not made any release since this project moved ;; Note that upstream has not made any release since this project moved
;; into its own repository (it was originally part of beancount itself) ;; into its own repository (it was originally part of beancount itself)
@ -2359,11 +2429,11 @@ pool.")
(define-public opentaxsolver (define-public opentaxsolver
;; The OTS version is formatted like tax-year_version. So, at time of ;; The OTS version is formatted like tax-year_version. So, at time of
;; writing, the version is 2022_20.00. Each part of this is used in ;; writing, the version is 2023_21.03. Each part of this is used in
;; different places in the source uri, so it's convenient to have them ;; different places in the source uri, so it's convenient to have them
;; separately like this. ;; separately like this.
(let ((tax-year "2022") (let ((tax-year "2023")
(ots-version "20.00")) (ots-version "21.03"))
(package (package
(name "opentaxsolver") (name "opentaxsolver")
(version (string-append tax-year "_" ots-version)) (version (string-append tax-year "_" ots-version))
@ -2375,7 +2445,7 @@ pool.")
"_linux/OpenTaxSolver" version "_linux64.tgz")) "_linux/OpenTaxSolver" version "_linux64.tgz"))
(sha256 (sha256
(base32 (base32
"06k0a72bmwdmr71dvrp8b4vl8vilnggsh92hrp7wjdgcjj9m074w")) "1i543bvclnyiwnyjlskhr2bxlsigggvwdhg2519rf12lsghgfszq"))
(patches (search-patches "opentaxsolver-file-browser-fix.patch")))) (patches (search-patches "opentaxsolver-file-browser-fix.patch"))))
(build-system glib-or-gtk-build-system) (build-system glib-or-gtk-build-system)
(arguments (arguments

96
gnu/packages/fonts.scm
View file

@ -1081,7 +1081,7 @@ utilities to ease adding new glyphs to the font.")
(define-public font-google-noto (define-public font-google-noto
(package (package
(name "font-google-noto") (name "font-google-noto")
(version "23.11.1") (version "24.2.1")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -1090,8 +1090,53 @@ utilities to ease adding new glyphs to the font.")
(commit (string-append "noto-monthly-release-" version)))) (commit (string-append "noto-monthly-release-" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "0vvxhky35l4i0ha60yw0gj26f3v33hpf2zax17yyj16mww4cn4d8")))) (base32 "087jg8ahpq35xwyrmvm9ivxl0wjic2j4r28bbrwqmgdva9brms40"))))
(build-system font-build-system) (build-system font-build-system)
(arguments
(list
#:modules
'((guix build font-build-system)
(guix build utils)
(ice-9 ftw))
#:phases
#~(modify-phases %standard-phases
(replace 'install
(lambda _
(define* (install source #:optional (output #$output))
(let ((%install (assoc-ref %standard-phases 'install)))
(with-directory-excursion source
(%install #:outputs `(("out" . ,output))))))
(define (scan-directory name)
(scandir name (lambda (file)
(not (member file '("." ".." "LICENSE"))))))
(define (install-font-variant variant)
"Given font variant VARIANT, install one of its formats,
variable TTF or OTF or TTF."
(with-directory-excursion variant
(let ((formats (scan-directory ".")))
(cond
((member "variable-ttf" formats)
(install "variable-ttf"))
((member "otf" formats)
(install "otf"))
((member "ttf" formats)
(install "ttf"))))))
(define (install-font font)
"Given FONT, install one of its variants, either full or
unhinted, and install its hinted variant into 'ttf' output. According to the
source, unhinted and hinted variants are always available."
(with-directory-excursion font
(if (member "full" (scan-directory "."))
(install-font-variant "full")
(install-font-variant "unhinted"))
(install "hinted" #$output:ttf)))
(with-directory-excursion "fonts"
(for-each install-font (scan-directory "."))))))))
(outputs '("out" "ttf"))
(home-page "https://www.google.com/get/noto/") (home-page "https://www.google.com/get/noto/")
(synopsis "Fonts to cover all languages") (synopsis "Fonts to cover all languages")
(description "Google Noto Fonts is a family of fonts designed to support (description "Google Noto Fonts is a family of fonts designed to support
@ -1102,7 +1147,7 @@ display all Unicode symbols.")
(define-public font-google-noto-emoji (define-public font-google-noto-emoji
(package (package
(name "font-google-noto-emoji") (name "font-google-noto-emoji")
(version "2.038") (version "2.042")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -1112,7 +1157,7 @@ display all Unicode symbols.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1rgmcc6nqq805iqr8kvxxlk5cf50q714xaxk3ld6rjrd69kb8ix9")))) "17i7awyqz9jv0j2blcf0smmpas375c3pdhjv1zqzl861g8qm1lm2"))))
(build-system font-build-system) (build-system font-build-system)
(arguments (arguments
(list (list
@ -1122,11 +1167,10 @@ display all Unicode symbols.")
(lambda _ (lambda _
;; Note this ensures the correct license file is installed. ;; Note this ensures the correct license file is installed.
(chdir "fonts"))) (chdir "fonts")))
(add-after 'enter-font-directory 'remove-unsupported (replace 'install
(lambda* _ (lambda _
(delete-file "NotoColorEmoji_WindowsCompatible.ttf") (let ((dir (string-append #$output "/share/fonts/truetype")))
(delete-file "Noto-COLRv1-noflags.ttf") (install-file "NotoColorEmoji.ttf" dir)))))))
(delete-file "Noto-COLRv1.ttf"))))))
(home-page "https://fonts.google.com/noto/specimen/Noto+Color+Emoji") (home-page "https://fonts.google.com/noto/specimen/Noto+Color+Emoji")
(synopsis "Font for rendering color emoji characters") (synopsis "Font for rendering color emoji characters")
(description (description
@ -1143,11 +1187,23 @@ family.")
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
"https://github.com/googlefonts/noto-cjk/releases/download/Sans" "https://github.com/googlefonts/noto-cjk/releases/download/Sans"
version "/03_NotoSansCJK-OTC.zip")) version "/01_NotoSansCJK-OTF-VF.zip"))
(file-name (string-append name "-" version ".zip")) (file-name (string-append name "-" version ".zip"))
(sha256 (sha256
(base32 "1v9yda7r98g4a3pk0y3cjbgc1i2lv4ax0f0v6aqasfzz4ldlx3sj")))) (base32 "1ka37kqyd0sfqwk485nv6ihrdjl5xycr38m4jq40r2lzmpmkmqym"))))
(build-system font-build-system) (build-system font-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(replace 'install
(lambda _
(chdir "..") ;For license.
(let ((install (assoc-ref %standard-phases 'install)))
(with-directory-excursion "Variable/OTC"
(install #:outputs `(("out" . ,#$output))))
(with-directory-excursion "Variable/OTF"
(install #:outputs `(("out" . ,#$output:otf))))))))))
(outputs '("out" "otf"))
(home-page "https://www.google.com/get/noto/") (home-page "https://www.google.com/get/noto/")
(synopsis "Fonts to cover all languages") (synopsis "Fonts to cover all languages")
(description "Google Noto Fonts is a family of fonts designed to support (description "Google Noto Fonts is a family of fonts designed to support
@ -1159,17 +1215,29 @@ CJK fonts.")
(define-public font-google-noto-serif-cjk (define-public font-google-noto-serif-cjk
(package (package
(name "font-google-noto-serif-cjk") (name "font-google-noto-serif-cjk")
(version "2.001") (version "2.002")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
"https://github.com/googlefonts/noto-cjk/releases/download/Serif" "https://github.com/googlefonts/noto-cjk/releases/download/Serif"
version "/04_NotoSerifCJKOTC.zip")) version "/02_NotoSerifCJK-OTF-VF.zip"))
(file-name (string-append name "-" version ".zip")) (file-name (string-append name "-" version ".zip"))
(sha256 (sha256
(base32 "1l6r3sz2s0vcyfx6ria7wqcq45zp40gxgg97lh8hpmajhzw301ig")))) (base32 "007jk7rmfapq5zq4ji9d1l5gpp34p98l9ylhiw33q42d66v2g717"))))
(build-system font-build-system) (build-system font-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(replace 'install
(lambda _
(chdir "..") ;For license.
(let ((install (assoc-ref %standard-phases 'install)))
(with-directory-excursion "Variable/OTC"
(install #:outputs `(("out" . ,#$output))))
(with-directory-excursion "Variable/OTF"
(install #:outputs `(("out" . ,#$output:otf))))))))))
(outputs '("out" "otf"))
(home-page "https://www.google.com/get/noto/") (home-page "https://www.google.com/get/noto/")
(synopsis "Fonts to cover all languages") (synopsis "Fonts to cover all languages")
(description "Google Noto Fonts is a family of fonts designed to support (description "Google Noto Fonts is a family of fonts designed to support

6
gnu/packages/fontutils.scm
View file

@ -11,7 +11,7 @@
;;; Copyright © 2018, 2019, 2020, 2021, 2023 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018, 2019, 2020, 2021, 2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019, 2020, 2022 Marius Bakke <marius@gnu.org> ;;; Copyright © 2019, 2020, 2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020 Roel Janssen <roel@gnu.org> ;;; Copyright © 2020 Roel Janssen <roel@gnu.org>
;;; Copyright © 2020, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2020, 2021, 2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev> ;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
;;; Copyright © 2022 Felipe Balbi <balbi@kernel.org> ;;; Copyright © 2022 Felipe Balbi <balbi@kernel.org>
@ -2049,7 +2049,7 @@ Unicode Charts. It was developed for use with DejaVu Fonts project.")
(define-public libraqm (define-public libraqm
(package (package
(name "libraqm") (name "libraqm")
(version "0.8.0") (version "0.10.1")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -2058,7 +2058,7 @@ Unicode Charts. It was developed for use with DejaVu Fonts project.")
(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 "0qrdw67n14n0km2f8l0gk8scgj3ybz662s9x8jwj3rrj33nl2d1a")))) (base32 "1bzdrvacgj9629r4mgmag9sm5ay5914fbs8pnxf8xphvrbnbxm8z"))))
(build-system meson-build-system) (build-system meson-build-system)
(native-inputs (native-inputs
(list gtk-doc/stable pkg-config python-wrapper)) (list gtk-doc/stable pkg-config python-wrapper))

6
gnu/packages/freedesktop.scm
View file

@ -34,6 +34,7 @@
;;; Copyright © 2022 muradm <mail@muradm.net> ;;; Copyright © 2022 muradm <mail@muradm.net>
;;; Copyright © 2023 Alex Devaure <ajadevaure@gmail.com> ;;; Copyright © 2023 Alex Devaure <ajadevaure@gmail.com>
;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu> ;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
;;; Copyright © 2024 Zheng Junjie <873216071@qq.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -1571,7 +1572,10 @@ XEv.")
(base32 "0bpix92vzip9vlhzihj3k8h9flrlna231x3y8ah7p4965l177yjd")))) (base32 "0bpix92vzip9vlhzihj3k8h9flrlna231x3y8ah7p4965l177yjd"))))
(build-system meson-build-system) (build-system meson-build-system)
(native-inputs (native-inputs
(list pkg-config wayland libxkbcommon)) (list pkg-config
;; for wayland-scanner
wayland))
(inputs (list wayland libxkbcommon))
(synopsis "Xdotool type for Wayland") (synopsis "Xdotool type for Wayland")
(description "Wtype lets you simulate keyboard input and mouse activity, (description "Wtype lets you simulate keyboard input and mouse activity,
move and resize windows, etc.") move and resize windows, etc.")

48
gnu/packages/games.scm
View file

@ -938,6 +938,41 @@ original rogue game found on 4.2BSD.")
(home-page "https://github.com/Davidslv/rogue") (home-page "https://github.com/Davidslv/rogue")
(license license:bsd-3))) (license license:bsd-3)))
(define-public sgt-puzzles
(let ((commit "80aac3104096aee4057b675c53ece8e60793aa90")
(revision "0"))
(package
(name "sgt-puzzles")
(version (git-version "20240302" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://git.tartarus.org/simon/puzzles.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0z4clv0xi98q28riz323ppn165cm62gj1c6h3xdd2sym4v8gy65z"))))
(build-system cmake-build-system)
(arguments
(list
#:tests? #f ;No tests.
#:configure-flags #~(list "-DNAME_PREFIX=sgt-")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'set-xdg-open-path
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "gtk.c"
(("(#define HELP_BROWSER_PATH).+" all define)
(format #f "~a ~s~%" define
(search-input-file inputs "/bin/xdg-open")))))))))
(inputs (list gtk+ xdg-utils))
(native-inputs (list pkg-config perl imagemagick halibut))
(home-page "https://www.chiark.greenend.org.uk/~sgtatham/puzzles/")
(synopsis "Simon Tatham's portable puzzle collection")
(description "Simon Tatham's Portable Puzzle Collection contains a number of
popular puzzle games for one player.")
(license license:expat))))
(define-public bzflag (define-public bzflag
(package (package
@ -7423,7 +7458,7 @@ at their peak of economic growth and military prowess.
(define-public open-adventure (define-public open-adventure
(package (package
(name "open-adventure") (name "open-adventure")
(version "1.16") (version "1.18")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -7432,7 +7467,7 @@ at their peak of economic growth and military prowess.
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "0spciwqcyldalzdd813zwigbldcnyaxi7kfslq1yp0fg4c4a10aa")))) (base32 "1zl72lsp443aryzmwzh5w4j439jgf5njvh9xig6vjvmzhfcjkk9q"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list (list
@ -7461,10 +7496,13 @@ at their peak of economic growth and military prowess.
(install-file "advent.6" man))))))) (install-file "advent.6" man)))))))
(native-inputs (native-inputs
(list asciidoc (list asciidoc
cppcheck
libedit libedit
pkg-config pkg-config
python-pylint
python-pyyaml python-pyyaml
python-wrapper)) python-wrapper
ruby-asciidoctor))
(home-page "https://gitlab.com/esr/open-adventure") (home-page "https://gitlab.com/esr/open-adventure")
(synopsis "Colossal Cave Adventure") (synopsis "Colossal Cave Adventure")
(description (description
@ -8449,7 +8487,7 @@ ncurses for text display.")
(define-public naev (define-public naev
(package (package
(name "naev") (name "naev")
(version "0.10.4") (version "0.11.4")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -8459,7 +8497,7 @@ ncurses for text display.")
(recursive? #t))) ; for game data (recursive? #t))) ; for game data
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "0lg8cmzdzzpmqgmh9a1v190vv4d15hwa0inyzdwsq5x8lyc13hyr")))) (base32 "1gd7jgb996fgnlrlqkfyx416g1kd458vik3nviazwwj83ksafaqb"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
;; XXX: Do not add debugging symbols, which cause the build to fail. ;; XXX: Do not add debugging symbols, which cause the build to fail.

12
gnu/packages/gnuzilla.scm
View file

@ -523,9 +523,9 @@ variable defined below. It requires guile-json to be installed."
;; XXXX: Workaround 'snippet' limitations. ;; XXXX: Workaround 'snippet' limitations.
(define computed-origin-method (@@ (guix packages) computed-origin-method)) (define computed-origin-method (@@ (guix packages) computed-origin-method))
(define %icecat-base-version "115.8.0") (define %icecat-base-version "115.9.0")
(define %icecat-version (string-append %icecat-base-version "-guix0-preview1")) (define %icecat-version (string-append %icecat-base-version "-guix0-preview1"))
(define %icecat-build-id "20240220000000") ;must be of the form YYYYMMDDhhmmss (define %icecat-build-id "20240319000000") ;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'
@ -545,12 +545,12 @@ variable defined below. It requires guile-json to be installed."
"firefox-" upstream-firefox-version ".source.tar.xz")) "firefox-" upstream-firefox-version ".source.tar.xz"))
(sha256 (sha256
(base32 (base32
"1slmp2v1q3my81z8kiym9rpxw5d9n4sn07v7hv99517w7vr8d05g")))) "00r847l2j2wk20wf1plbnz2ifyqkvwqmaqwq6zknsqz6qmqk6fyv"))))
;; The upstream-icecat-base-version may be older than the ;; The upstream-icecat-base-version may be older than the
;; %icecat-base-version. ;; %icecat-base-version.
(upstream-icecat-base-version "115.8.0") (upstream-icecat-base-version "115.9.0")
(gnuzilla-commit "7e2ff1ad7e03d2bfe0b2daf3f25961b06cab8848") (gnuzilla-commit "d1dab742d12e2ffacae70733b14016287fc46613")
(gnuzilla-source (gnuzilla-source
(origin (origin
(method git-fetch) (method git-fetch)
@ -562,7 +562,7 @@ variable defined below. It requires guile-json to be installed."
(string-take gnuzilla-commit 8))) (string-take gnuzilla-commit 8)))
(sha256 (sha256
(base32 (base32
"1lv3vfqv0zb634gnvzb37fs04rb1jlrd2n1k51yjsvdznpqfpi1y")))) "16z2l0fbbxpl2q80w9mx0x89cq82plkb45jpf172xah0k782akhd"))))
;; '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.

25
gnu/packages/golang-check.scm
View file

@ -404,6 +404,31 @@ signalling failures, it offers ways to express expectations and get nice failure
messages automatically.") messages automatically.")
(license license:asl2.0)))) (license license:asl2.0))))
(define-public go-github-com-jbenet-go-cienv
(package
(name "go-github-com-jbenet-go-cienv")
(version "0.1.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jbenet/go-cienv")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1qyfjvr8n5chpb5zi6r9cf0danrwds3k5lbf7vp7ygcl6wnm0vmv"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/jbenet/go-cienv"))
(home-page "https://github.com/jbenet/go-cienv")
(synopsis "CI system environment variables")
(description
"Package @code{cienv} implements some helper functions to use during tests.
Many times certain facilities are not available, or tests must run
differently.")
(license license:expat)))
(define-public go-github-com-onsi-ginkgo (define-public go-github-com-onsi-ginkgo
(package (package
(name "go-github-com-onsi-ginkgo") (name "go-github-com-onsi-ginkgo")

45
gnu/packages/golang-compression.scm
View file

@ -140,6 +140,33 @@ library included in the stdlib, and supports GIF, TIFF and PDF.")
(description "@code{compress} provides various compression algorithms.") (description "@code{compress} provides various compression algorithms.")
(license license:bsd-3))) (license license:bsd-3)))
(define-public go-github-com-klauspost-pgzip
(package
(name "go-github-com-klauspost-pgzip")
(version "1.2.6")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/klauspost/pgzip")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1j29wr6nd9ncdbkjphyziv0h8p5s2mj222cgcfqxmzjnfn7623d8"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/klauspost/pgzip"))
(propagated-inputs (list go-github-com-klauspost-compress))
(home-page "https://github.com/klauspost/pgzip")
(synopsis "Parallel (de)compression of gzip files in Go")
(description
"This package implements parallel gzip compression and decompression in
Golang and is fully compatible with @code{compress/gzip} from the standard
library. This is beneficial for large amounts of data, say more than 1MB at a
time, as otherwise the internal gzip library will likely be faster.")
(license (list license:bsd-3 license:expat))))
(define-public go-github-com-nwaples-rardecode-v2 (define-public go-github-com-nwaples-rardecode-v2
(package (package
(name "go-github-com-nwaples-rardecode-v2") (name "go-github-com-nwaples-rardecode-v2")
@ -166,23 +193,27 @@ library included in the stdlib, and supports GIF, TIFF and PDF.")
(define-public go-github-com-ulikunitz-xz (define-public go-github-com-ulikunitz-xz
(package (package
(name "go-github-com-ulikunitz-xz") (name "go-github-com-ulikunitz-xz")
(version "0.5.8") (version "0.5.11")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/ulikunitz/xz.git") (url "https://github.com/ulikunitz/xz")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (string-append name "-" version "-checkout")) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1xnsymi5fmmm734bi4c6z57p5cvnyxlpi29yxs4v21w5k763aypd")))) (base32 "1hbs3x7s7d5ch6ipaqi265w0fwpijs0j19xdbhbjjsyr4khxbqd0"))))
(build-system go-build-system) (build-system go-build-system)
(arguments (arguments
`(#:import-path "github.com/ulikunitz/xz")) (list
#:import-path "github.com/ulikunitz/xz"))
(home-page "https://github.com/ulikunitz/xz") (home-page "https://github.com/ulikunitz/xz")
(synopsis "Read and write xz compressed streams in Go") (synopsis "Read and write xz compressed streams in Go")
(description "This package provides a library to read and write xz (description
compressed streams in Go.") "This package provides a support of reading and writing of xz
compressed streams. It includes also a gxz command for compressing and
decompressing data. The package is completely written in Go and doesn't have
any dependency on any C code.")
(license license:bsd-3))) (license license:bsd-3)))
;;; ;;;

39
gnu/packages/golang-web.scm
View file

@ -98,6 +98,45 @@
API service accounts for Go.") API service accounts for Go.")
(license license:asl2.0))) (license license:asl2.0)))
(define-public go-github-com-alexliesenfeld-health
(package
(name "go-github-com-alexliesenfeld-health")
(version "0.8.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/alexliesenfeld/health")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1fchlvxwidsscskwq07vhxfwcn5wbigbizi51619l8gg09mr158q"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/alexliesenfeld/health"
#:phases #~(modify-phases %standard-phases
;; Examples requires additional dependencies and comes with
;; their own go.mod, consider to pack it as separate
;; package if required.
(add-after 'unpack 'remove-examples
(lambda* (#:key import-path #:allow-other-keys)
(delete-file-recursively
(string-append "src/" import-path "/examples")))))))
(native-inputs (list go-github-com-stretchr-testify))
(home-page "https://github.com/alexliesenfeld/health")
(synopsis "Simple and flexible health check library for Go")
(description
"This library provides a @code{http.Handler} that acts as a health
endpoint. It can be used by cloud infrastructure or other services to
determine the availability of an application.
Rather than simply returning a response with HTTP status code 200, this
library allows building health checks that test the availability of all
required dependencies. The HTTP response contains the aggregated health
result and details about the health status of each component.")
(license license:expat)))
(define-public go-github-com-andybalholm-cascadia (define-public go-github-com-andybalholm-cascadia
(package (package
(name "go-github-com-andybalholm-cascadia") (name "go-github-com-andybalholm-cascadia")

130
gnu/packages/golang-xyz.scm
View file

@ -1035,6 +1035,83 @@ increment versions.")
@end itemize") @end itemize")
(license license:bsd-3))) (license license:bsd-3)))
(define-public go-github-com-jbenet-go-random
(package
(name "go-github-com-jbenet-go-random")
(version "0.0.0-20190219211222-123a90aedc0c")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jbenet/go-random")
(commit (go-version->git-ref version))))
(file-name (git-file-name name version))
(sha256
(base32 "0kgx19m8p76rmin8s8y6j1padciv1dx37qzy7jkh9bw49ai3haw3"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/jbenet/go-random"))
(propagated-inputs
(list go-github-com-dustin-go-humanize))
(home-page "https://github.com/jbenet/go-random")
(synopsis "Go library and a program that outputs randomness")
(description
"This is a Unix utility that outputs randomness. It is a thin
wrapper around @code{crypto/rand}.")
(license license:expat)))
(define-public go-github-com-jbenet-go-temp-err-catcher
(package
(name "go-github-com-jbenet-go-temp-err-catcher")
(version "0.1.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jbenet/go-temp-err-catcher")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0n482jhh6jwq43jj21xkq8grqzx78hjh7f44p0q3n01zp1dsh97r"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/jbenet/go-temp-err-catcher"))
(home-page "https://github.com/jbenet/go-temp-err-catcher")
(synopsis "Error handling helper library")
(description "Package @code{temperrcatcher} provides a @code{TempErrCatcher}
object, which implements simple error-retrying functionality.")
(license license:expat)))
(define-public go-github-com-jbenet-goprocess
(package
(name "go-github-com-jbenet-goprocess")
(version "0.1.4")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jbenet/goprocess")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1z4a5skx9kh2c727pc6zz0vhf9v8acd320s7z0f1kwy3y1nbdhjk"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/jbenet/goprocess"))
(native-inputs
(list go-github-com-jbenet-go-cienv))
(home-page "https://github.com/jbenet/goprocess")
(synopsis "Manage process life cycles in Go")
(description
"@code{goprocess} introduces a way to manage process lifecycles in
Go. It is much like @code{go.net/context} (it actually uses a Context), but it is
more like a Context-WaitGroup hybrid. @code{goprocess} is about being able to start
and stop units of work, which may receive @code{Close} signals from many clients.")
(license license:expat)))
(define-public go-github-com-jinzhu-copier (define-public go-github-com-jinzhu-copier
(package (package
(name "go-github-com-jinzhu-copier") (name "go-github-com-jinzhu-copier")
@ -1058,6 +1135,31 @@ increment versions.")
struct to another.") struct to another.")
(license license:expat))) (license license:expat)))
(define-public go-github-com-josharian-intern
(package
(name "go-github-com-josharian-intern")
(version "1.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/josharian/intern")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1za48ppvwd5vg8vv25ldmwz1biwpb3p6qhf8vazhsfdg9m07951c"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/josharian/intern"))
(home-page "https://github.com/josharian/intern")
(synopsis "String interning for Go")
(description
"This library defines functions to perform string interning in Go,
storing only one copy of each unique string in memory. All functions may be
called concurrently with themselves and each other.")
(license license:expat)))
(define-public go-github-com-k0kubun-pp (define-public go-github-com-k0kubun-pp
(package (package
(name "go-github-com-k0kubun-pp") (name "go-github-com-k0kubun-pp")
@ -1733,6 +1835,34 @@ query information regarding the number of CPUs available to the system.")
weighted moving averages}.") weighted moving averages}.")
(license license:expat))) (license license:expat)))
(define-public go-github-com-whyrusleeping-go-sysinfo
(package
(name "go-github-com-whyrusleeping-go-sysinfo")
(version "0.0.0-20190219211824-4a357d4b90b1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/whyrusleeping/go-sysinfo")
(commit (go-version->git-ref version))))
(file-name (git-file-name name version))
(sha256
(base32 "0s6yjp9incc579wbbga33vq0hcanv8j2xh9l90ya0r4fihz39jiq"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/whyrusleeping/go-sysinfo"))
(propagated-inputs
(list go-github-com-dustin-go-humanize))
(home-page "https://github.com/whyrusleeping/go-sysinfo")
(synopsis "Package to extract system information")
;; There is not much information provided by the project, see
;; <https://github.com/whyrusleeping/go-sysinfo/issues>.
(description
"This packages provides a basic system stats like @code{DiskUsage} and
@code{MemoryInfo}.")
(license license:expat)))
(define-public go-go-uber-org-automaxprocs (define-public go-go-uber-org-automaxprocs
(package (package
(name "go-go-uber-org-automaxprocs") (name "go-go-uber-org-automaxprocs")

20
gnu/packages/javascript.scm
View file

@ -7,6 +7,7 @@
;;; Copyright © 2021 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2021 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Frank Pursel <frank.pursel@gmail.com> ;;; Copyright © 2022 Frank Pursel <frank.pursel@gmail.com>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -835,15 +836,16 @@ roots, or wrestle with obscure build systems.")
"06pywwpmfwjz225h59wf90q96a2fd66qfcw5xa6m6y9k9k7glnx4")))) "06pywwpmfwjz225h59wf90q96a2fd66qfcw5xa6m6y9k9k7glnx4"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags (list #:make-flags
(list "prefix=" #~(list "prefix="
(string-append "DESTDIR=" %output)) (string-append "DESTDIR=" #$output)
#:phases #$@(if (target-riscv64?) '("LDFLAGS=-latomic") '()))
(modify-phases %standard-phases #:phases #~(modify-phases %standard-phases
(delete 'configure) (delete 'configure)
(replace 'check (replace 'check
(lambda _ (lambda* (#:key tests? #:allow-other-keys)
(invoke "make" "microbench")))))) (when tests?
(invoke "make" "microbench")))))))
(home-page "https://bellard.org/quickjs/") (home-page "https://bellard.org/quickjs/")
(synopsis "Small embeddable Javascript engine") (synopsis "Small embeddable Javascript engine")
(description "QuickJS supports the ES2020 specification including modules, (description "QuickJS supports the ES2020 specification including modules,

79
gnu/packages/lisp-xyz.scm
View file

@ -3687,48 +3687,47 @@ writing code that contains string literals that contain code themselves.")
(sbcl-package->ecl-package sbcl-pythonic-string-reader)) (sbcl-package->ecl-package sbcl-pythonic-string-reader))
(define-public sbcl-slime-swank (define-public sbcl-slime-swank
(let ((commit "735258a26bb97e85d25f39e4bef83c1f80c12f5d") ;; Update together with emacs-slime.
(revision "1")) (package
(package (name "sbcl-slime-swank")
(name "sbcl-slime-swank") (version "2.29.1")
(version (git-version "2.28" revision commit)) (source
(source (origin
(origin (file-name (git-file-name "cl-slime-swank" version))
(file-name (git-file-name "cl-slime-swank" version)) (method git-fetch)
(method git-fetch) (uri (git-reference
(uri (git-reference (url "https://github.com/slime/slime/")
(url "https://github.com/slime/slime/") (commit (string-append "v" version))))
(commit commit))) (sha256
(sha256 (base32 "1fcasqsdfwsphkfx1vd3r5mr89vgvzb9g2dbw82mc9lijg1mr1ki"))
(base32 "0prskgzfqjmn8sc7p9nklnd0n1plwcvh40slgh23km31raplmzk7")) (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 ;; provided by emacs-slime.
;; provided by emacs-slime. `(begin
`(begin (delete-file-recursively "doc")
(delete-file-recursively "doc") #t))))
#t)))) (build-system asdf-build-system/sbcl)
(build-system asdf-build-system/sbcl) (arguments
(arguments '(#:asd-systems '("swank" "swank/exts")
'(#:asd-systems '("swank" "swank/exts") #:phases
#:phases (modify-phases %standard-phases
(modify-phases %standard-phases (add-after 'unpack 'set-fasl-directory
(add-after 'unpack 'set-fasl-directory (lambda* (#:key outputs #:allow-other-keys)
(lambda* (#:key outputs #:allow-other-keys) (substitute* "swank-loader.lisp"
(substitute* "swank-loader.lisp" (("\\(probe-file fasl\\)" all)
(("\\(probe-file fasl\\)" all) ;; Do not try to delete Guix store files.
;; Do not try to delete Guix store files. (string-append
(string-append all "\n"
all "\n" " (not (equal (subseq (pathname-directory fasl) 1 3)"
" (not (equal (subseq (pathname-directory fasl) 1 3)" " '(\"gnu\" \"store\"))) ; XXX: GUIX PATCH"))))))))
" '(\"gnu\" \"store\"))) ; XXX: GUIX PATCH")))))))) (home-page "https://github.com/slime/slime")
(home-page "https://github.com/slime/slime") (synopsis "Common Lisp Swank server")
(synopsis "Common Lisp Swank server") (description
(description "This is only useful if you want to start a Swank server in a Lisp
"This is only useful if you want to start a Swank server in a Lisp
processes that doesn't run under Emacs. Lisp processes created by processes that doesn't run under Emacs. Lisp processes created by
@command{M-x slime} automatically start the server.") @command{M-x slime} automatically start the server.")
(license (list license:gpl2+ license:public-domain))))) (license (list license:gpl2+ license:public-domain))))
(define-public cl-slime-swank (define-public cl-slime-swank
(sbcl-package->cl-source-package sbcl-slime-swank)) (sbcl-package->cl-source-package sbcl-slime-swank))

4
gnu/packages/lisp.scm
View file

@ -1003,7 +1003,7 @@ the HTML documentation of TXR.")
(define-public txr (define-public txr
(package (package
(name "txr") (name "txr")
(version "293") (version "294")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -1012,7 +1012,7 @@ the HTML documentation of TXR.")
(commit (string-append "txr-" version)))) (commit (string-append "txr-" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1b3vhlnw4ymznnlh9d71qhkcdc1p69a53hilckc3rql9y4jsik57")))) (base32 "0cd0ah6lzwszn4jjxrbwknhscdm6rgsprpiybzlikcckgcylpkdn"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list #:configure-flags (list #:configure-flags

11
gnu/packages/logging.scm
View file

@ -26,6 +26,7 @@
(define-module (gnu packages logging) (define-module (gnu packages logging)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix gexp)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix download) #:use-module (guix download)
@ -227,10 +228,12 @@ output in multiple windows in a terminal.")
;; TODO run benchmark. Currently not possible, as adding ;; TODO run benchmark. Currently not possible, as adding
;; (gnu packages benchmark) forms a dependency cycle ;; (gnu packages benchmark) forms a dependency cycle
(arguments (arguments
'(#:configure-flags (list #:configure-flags
(list "-DSPDLOG_BUILD_BENCH=OFF" #~(list "-DSPDLOG_BUILD_BENCH=OFF"
"-DSPDLOG_BUILD_SHARED=ON" "-DSPDLOG_BUILD_SHARED=ON"
"-DSPDLOG_BUILD_TESTS=ON"))) #$@(if (%current-target-system)
'()
'("-DSPDLOG_BUILD_TESTS=ON")))))
(native-inputs (list catch2-3)) (native-inputs (list catch2-3))
(home-page "https://github.com/gabime/spdlog") (home-page "https://github.com/gabime/spdlog")
(synopsis "Fast C++ logging library") (synopsis "Fast C++ logging library")

6
gnu/packages/maths.scm
View file

@ -8095,6 +8095,12 @@ easily be incorporated into existing simulation codes.")
#:parallel-tests? #f ;tests use 'mpiexec -n4' #:parallel-tests? #f ;tests use 'mpiexec -n4'
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'fix-tests
(lambda _
;; Skip failing tests (SIGFPE and SIGSEGV).
(substitute* "ReleaseTests/CMakeLists.txt"
(("^.*SpAsgnTest.*$") "")
(("^.*IndexingTest.*$") ""))))
(add-before 'check 'mpi-setup (add-before 'check 'mpi-setup
,%openmpi-setup) ,%openmpi-setup)
(add-before 'check 'test-setup (add-before 'check 'test-setup

48
gnu/packages/music.scm
View file

@ -10,7 +10,7 @@
;;; Copyright © 2016 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2017 nikita <nikita@n0.is> ;;; Copyright © 2017 nikita <nikita@n0.is>
;;; Copyright © 2017 Rodger Fox <thylakoid@openmailbox.org> ;;; Copyright © 2017 Rodger Fox <thylakoid@openmailbox.org>
;;; Copyright © 2017–2023 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2017–2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2017, 2018, 2019, 2021 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2017, 2018, 2019, 2021 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2017–2022 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017–2022 Tobias Geerinckx-Rice <me@tobias.gr>
@ -54,6 +54,7 @@
;;; Copyright © 2023 Antero Mejr <antero@mailbox.org> ;;; Copyright © 2023 Antero Mejr <antero@mailbox.org>
;;; Copyright © 2023, 2024 Sharlatan Hellseher <sharlatanus@gmail.com> ;;; Copyright © 2023, 2024 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2023 Yovan Naumovski <yovan@gorski.stream> ;;; Copyright © 2023 Yovan Naumovski <yovan@gorski.stream>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -867,7 +868,7 @@ settings (aliasing, linear interpolation and cubic interpolation).")
(define-public hydrogen (define-public hydrogen
(package (package
(name "hydrogen") (name "hydrogen")
(version "1.2.0") (version "1.2.3")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -876,7 +877,7 @@ settings (aliasing, linear interpolation and cubic interpolation).")
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "0v4ir1my8zndw5rvz6jr42ysprwycgxrlsc53070y3620n699nha")))) (base32 "0qb16yn3igs95silvngwy5mjwlzsyz5axwbd3lz6pjhwbf81rn7d"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:test-target "tests" `(#:test-target "tests"
@ -1508,7 +1509,7 @@ and auto-mapping slices to MIDI note numbers.")
(define-public lilypond (define-public lilypond
(package (package
(name "lilypond") (name "lilypond")
(version "2.24.1") (version "2.24.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -1516,7 +1517,7 @@ and auto-mapping slices to MIDI note numbers.")
"v" (version-major+minor version) "/" "v" (version-major+minor version) "/"
"lilypond-" version ".tar.gz")) "lilypond-" version ".tar.gz"))
(sha256 (sha256
(base32 "028m31fjcfgsq3f8ahz4hp2r36shsvkq1fjjibqdcp2aas3r1ifm")))) (base32 "1gj4xjc9842wnqvqj08lkykpz2r72mqqw3x1fk6s9xbsxxv5y06z"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
(list #:tests? #f ;out-test/collated-files.html fails (list #:tests? #f ;out-test/collated-files.html fails
@ -5047,7 +5048,7 @@ includes LV2 plugins and a JACK standalone client.")
(define-public musescore (define-public musescore
(package (package
(name "musescore") (name "musescore")
(version "4.1.1") (version "4.2.1")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -5056,7 +5057,7 @@ includes LV2 plugins and a JACK standalone client.")
(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 "12h26k9qnsq027gdpch579nchwrqva1ymwm2fj5xmlh0aayrwy4d")) (base32 "0rc5ma1k0cjllfl86apbyj61sh0691lsmqnvqicyn0zi53z8w9v0"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(begin '(begin
@ -5284,7 +5285,7 @@ specification and header.")
(define-public rosegarden (define-public rosegarden
(package (package
(name "rosegarden") (name "rosegarden")
(version "23.06") (version "23.12")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -5292,7 +5293,7 @@ specification and header.")
(version-major+minor version) "/" (version-major+minor version) "/"
"rosegarden-" version ".tar.xz")) "rosegarden-" version ".tar.xz"))
(sha256 (sha256
(base32 "1k3j5p6lx3w6pbsh95xiyfj8g8ysmvd18v0wmx7kdb3vyj5mfd0z")))) (base32 "0clkzrs931dypvqcn5hzx2v3bq9gc439g71phahgwkh4c1jfcmrz"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
(list (list
@ -7246,22 +7247,27 @@ It is provided as an LV2 plugin and as a standalone Jack application.")
(uri (git-reference (uri (git-reference
(url "https://github.com/jackaudio/a2jmidid") (url "https://github.com/jackaudio/a2jmidid")
(commit version))) (commit version)))
(modules '((guix build utils)))
(snippet
;; Fix build for for riscv64-linux, same as:
;; https://github.com/jackaudio/a2jmidid/pull/18
'(substitute* "sigsegv.c"
(("!defined[(]__aarch64__[)]")
"!defined(__arch64__) && !defined(__riscv)")))
(sha256 (sha256
(base32 "1x6rcl3f4nklnx4p5jln9a7fpj9y7agjxs9rw7cccmwnski7pnsq")) (base32 "1x6rcl3f4nklnx4p5jln9a7fpj9y7agjxs9rw7cccmwnski7pnsq"))
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(arguments (arguments
`(#:tests? #f ; No tests. (list #:tests? #f ; No tests.
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'wrap-programs (add-after 'install 'wrap-programs
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let ((bin (string-append #$output "/bin/")))
(bin (string-append out "/bin/"))) (substitute* (string-append bin "a2j")
(substitute* (string-append bin "a2j") (("a2j_control") (string-append bin "a2j_control")))
(("a2j_control") (string-append bin "a2j_control"))) (wrap-program (string-append bin "a2j_control")
(wrap-program (string-append bin "a2j_control") `("PYTHONPATH" prefix (,(getenv "GUIX_PYTHONPATH"))))))))))
`("PYTHONPATH" prefix (,(getenv "GUIX_PYTHONPATH"))))
#t))))))
(build-system meson-build-system) (build-system meson-build-system)
(inputs (inputs
(list alsa-lib (list alsa-lib

6
gnu/packages/ocr.scm
View file

@ -4,7 +4,7 @@
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2019 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2021, 2024 Andy Tai <atai@atai.org> ;;; Copyright © 2021, 2024 Andy Tai <atai@atai.org>
;;; Copyright © 2021, 2022 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2021, 2022, 2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -210,7 +210,7 @@ default. To add support for more languages, the
(define-public gimagereader (define-public gimagereader
(package (package
(name "gimagereader") (name "gimagereader")
(version "3.4.1") (version "3.4.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -219,7 +219,7 @@ default. To add support for more languages, the
"/download/v" version "/" "/download/v" version "/"
"gimagereader-" version ".tar.xz")) "gimagereader-" version ".tar.xz"))
(sha256 (sha256
(base32 "1972bvnk2bkgbh70vy2prcmdzf4wlna862p2vja9yjxi2c0scmwc")))) (base32 "0r52j5q2d0mvzw6qkds6vrapcqhdgyj2jvp7bh8w9zw6gpjsyk0q"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
(list (list

6
gnu/packages/package-management.scm
View file

@ -1530,8 +1530,8 @@ environments.")
"0k9zkdyyzir3fvlbcfcqy17k28b51i20rpbjwlx2i1mwd2pw9cxc"))))))) "0k9zkdyyzir3fvlbcfcqy17k28b51i20rpbjwlx2i1mwd2pw9cxc")))))))
(define-public guix-build-coordinator (define-public guix-build-coordinator
(let ((commit "d802b817d81e2ea8c9f30664acd7b3b37b16f7c5") (let ((commit "14e18eed98d1836662d8787d08f7a37cf8c2f69d")
(revision "99")) (revision "100"))
(package (package
(name "guix-build-coordinator") (name "guix-build-coordinator")
(version (git-version "0" revision commit)) (version (git-version "0" revision commit))
@ -1542,7 +1542,7 @@ environments.")
(commit commit))) (commit commit)))
(sha256 (sha256
(base32 (base32
"1c69sww6mgwh17dd9k00fy6mi05asxb5l1jf2a7q63gv06h3bp0l")) "1vv1l6y80ymqi7qz70bfq4is4y1xh21jm4d4gapn63931ac4fiij"))
(file-name (string-append name "-" version "-checkout")))) (file-name (string-append name "-" version "-checkout"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments

6
gnu/packages/password-utils.scm
View file

@ -12,7 +12,7 @@
;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Jelle Licht <jlicht@fsfe.org> ;;; Copyright © 2017 Jelle Licht <jlicht@fsfe.org>
;;; Copyright © 2017, 2019 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2017, 2019 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2017, 2020-2022 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2017, 2020-2022, 2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com> ;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2018, 2022 Marius Bakke <marius@gnu.org> ;;; Copyright © 2018, 2022 Marius Bakke <marius@gnu.org>
@ -149,7 +149,7 @@ human.")
(define-public keepassxc (define-public keepassxc
(package (package
(name "keepassxc") (name "keepassxc")
(version "2.7.6") (version "2.7.7")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -157,7 +157,7 @@ human.")
"/releases/download/" version "/keepassxc-" "/releases/download/" version "/keepassxc-"
version "-src.tar.xz")) version "-src.tar.xz"))
(sha256 (sha256
(base32 "0w6nh2lnzfqcxasfsppmh4q309p1flzgfiv25hahzsd8kx879055")))) (base32 "0rzfh8xdsd1r0xb7yb0h2zyzwhbsp7si8c0haaqgzcz4k2p4bz2q"))))
(build-system qt-build-system) (build-system qt-build-system)
(arguments (arguments
(list (list

37
gnu/packages/patches/qemu-build-info-manual.patch
View file

@ -13,50 +13,33 @@ readers.
Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com> Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
diff --git a/docs/meson.build b/docs/meson.build diff --git a/docs/meson.build b/docs/meson.build
index 9040f860ae..2ae7886fcb 100644
--- a/docs/meson.build --- a/docs/meson.build
+++ b/docs/meson.build +++ b/docs/meson.build
@@ -92,4 +92,25 @@ if build_docs @@ -98,4 +98,26 @@ if build_docs
alias_target('sphinxdocs', sphinxdocs) alias_target('sphinxdocs', sphinxdocs)
alias_target('html', sphinxdocs) alias_target('html', sphinxdocs)
alias_target('man', sphinxmans) alias_target('man', sphinxmans)
+ +
+ # Generate a Texinfo version of the QEMU manual. + # Add a target to build and install a Texinfo version of the QEMU
+ # manual, if 'makeinfo' is available.
+ makeinfo = find_program(['texi2any', 'makeinfo']) + makeinfo = find_program(['texi2any', 'makeinfo'])
+ if makeinfo.found() + if makeinfo.found()
+ sphinxtexi = custom_target( + sphinxtexi = custom_target(
+ 'QEMU manual generated texinfo source', + 'qemu.texi',
+ output: ['QEMU.texi', 'sphinxtexi.stamp'], + output: ['qemu.texi', 'sphinxtexi.stamp'],
+ depfile: 'sphinxtexi.d', + depfile: 'sphinxtexi.d',
+ command: [SPHINX_ARGS, '-Ddepfile=@DEPFILE@', + command: [SPHINX_ARGS, '-Ddepfile=@DEPFILE@',
+ '-Ddepfile_stamp=@OUTPUT1@', '-b', 'texinfo', + '-Ddepfile_stamp=@OUTPUT1@', '-b', 'texinfo',
+ meson.current_source_dir(), meson.current_build_dir()]) + '-d', private_dir, input_dir, meson.current_build_dir()])
+ sphinxinfo = custom_target( + sphinxinfo = custom_target(
+ 'QEMU info manual', + 'qemu.info',
+ input: sphinxtexi, + input: sphinxtexi,
+ output: 'QEMU.info', + output: 'qemu.info',
+ install: true, + install: true,
+ install_dir: get_option('infodir'), + install_dir: get_option('infodir'),
+ command: [makeinfo, '--no-split', '@INPUT0@', '--output=@OUTPUT@']) + command: [makeinfo, '--no-split', '--output=@OUTPUT@', '@INPUT0@'])
+ alias_target('texi', sphinxtexi) + alias_target('texi', sphinxtexi)
+ alias_target('info', sphinxinfo) + alias_target('info', sphinxinfo)
+ endif + endif
endif endif
diff --git a/meson.build b/meson.build
--- a/meson.build
+++ b/meson.build
@@ -37,6 +37,7 @@ endif
qemu_confdir = get_option('sysconfdir') / get_option('qemu_suffix')
qemu_datadir = get_option('datadir') / get_option('qemu_suffix')
qemu_docdir = get_option('docdir') / get_option('qemu_suffix')
+qemu_infodir = get_option('infodir') / get_option('qemu_suffix')
qemu_moddir = get_option('libdir') / get_option('qemu_suffix')
qemu_desktopdir = get_option('datadir') / 'applications'
@@ -3698,6 +3699,7 @@ else
summary_info += {'local state directory': 'queried at runtime'}
endif
summary_info += {'Doc directory': get_option('prefix') / get_option('docdir')}
+summary_info += {'Info directory': get_option('prefix') / get_option('infodir')}
summary_info += {'Build directory': meson.current_build_dir()}
summary_info += {'Source path': meson.current_source_dir()}
summary_info += {'GIT submodules': config_host['GIT_SUBMODULES']}

36
gnu/packages/patches/qemu-disable-some-qtests-tests.patch → gnu/packages/patches/qemu-disable-bios-tables-test.patch
View file

@ -1,20 +1,18 @@
Disable the qtest-aarch64/migration-test, which sometimes fail The bios-tables-test may fail; disable it (see: https://gitlab.com/qemu-project/qemu/-/issues/1098)
non-deterministically (see:
https://gitlab.com/qemu-project/qemu/-/issues/1230).
Also disable the bios-tables-test, which may fail on older machines (see: diff --git a/tests/qtest/meson.build b/tests/qtest/meson.build
https://gitlab.com/qemu-project/qemu/-/issues/1098). index f096cf3ecd..82f6e1ffeb 100644
--- a/tests/qtest/meson.build
--- qemu-8.1.0/tests/qtest/meson.build.old 2023-08-30 11:48:27.871146249 -0400 +++ b/tests/qtest/meson.build
+++ qemu-8.1.0/tests/qtest/meson.build 2023-08-30 13:53:25.994084948 -0400 @@ -1,7 +1,6 @@
@@ -1,6 +1,5 @@
slow_qtests = { slow_qtests = {
'ahci-test' : 60, 'ahci-test' : 60,
'aspeed_smc-test': 360,
- 'bios-tables-test' : 120, - 'bios-tables-test' : 120,
'boot-serial-test' : 60, 'boot-serial-test' : 60,
'migration-test' : 150, 'migration-test' : 150,
'npcm7xx_pwm-test': 150, 'npcm7xx_pwm-test': 150,
@@ -81,9 +80,6 @@ @@ -82,9 +81,6 @@ qtests_i386 = \
config_all_devices.has_key('CONFIG_Q35') and \ config_all_devices.has_key('CONFIG_Q35') and \
config_all_devices.has_key('CONFIG_VIRTIO_PCI') and \ config_all_devices.has_key('CONFIG_VIRTIO_PCI') and \
slirp.found() ? ['virtio-net-failover'] : []) + \ slirp.found() ? ['virtio-net-failover'] : []) + \
@ -24,27 +22,17 @@ https://gitlab.com/qemu-project/qemu/-/issues/1098).
qtests_pci + \ qtests_pci + \
qtests_cxl + \ qtests_cxl + \
['fdc-test', ['fdc-test',
@@ -212,7 +208,6 @@ @@ -213,7 +209,6 @@ qtests_arm = \
# TODO: once aarch64 TCG is fixed on ARM 32 bit host, make bios-tables-test unconditional # TODO: once aarch64 TCG is fixed on ARM 32 bit host, make bios-tables-test unconditional
qtests_aarch64 = \ qtests_aarch64 = \
- (cpu != 'arm' and unpack_edk2_blobs ? ['bios-tables-test'] : []) + \ - (cpu != 'arm' and unpack_edk2_blobs ? ['bios-tables-test'] : []) + \
(config_all.has_key('CONFIG_TCG') and config_all_devices.has_key('CONFIG_TPM_TIS_SYSBUS') ? \ (config_all.has_key('CONFIG_TCG') and config_all_devices.has_key('CONFIG_TPM_TIS_SYSBUS') ? \
['tpm-tis-device-test', 'tpm-tis-device-swtpm-test'] : []) + \ ['tpm-tis-device-test', 'tpm-tis-device-swtpm-test'] : []) + \
(config_all_devices.has_key('CONFIG_XLNX_ZYNQMP_ARM') ? ['xlnx-can-test', 'fuzz-xlnx-dp-test'] : []) + \ (config_all_devices.has_key('CONFIG_XLNX_ZYNQMP_ARM') ? ['xlnx-can-test', 'fuzz-xlnx-dp-test'] : []) + \
@@ -222,8 +217,7 @@ @@ -304,7 +299,6 @@ if gnutls.found()
config_all_devices.has_key('CONFIG_TPM_TIS_I2C') ? ['tpm-tis-i2c-test'] : []) + \
['arm-cpu-features',
'numa-test',
- 'boot-serial-test',
- 'migration-test']
+ 'boot-serial-test']
qtests_s390x = \
qtests_filter + \
@@ -301,7 +295,6 @@
endif endif
qtests = { qtests = {
- 'bios-tables-test': [io, 'boot-sector.c', 'acpi-utils.c', 'tpm-emu.c'], - 'bios-tables-test': [io, 'boot-sector.c', 'acpi-utils.c', 'tpm-emu.c'],
'cdrom-test': files('boot-sector.c'), 'cdrom-test': files('boot-sector.c'),

4
gnu/packages/pdf.scm
View file

@ -1213,13 +1213,13 @@ the PDF pages.")
(define-public img2pdf (define-public img2pdf
(package (package
(name "img2pdf") (name "img2pdf")
(version "0.4.4") (version "0.5.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "img2pdf" version)) (uri (pypi-uri "img2pdf" version))
(sha256 (sha256
(base32 "0g3rpq68y5phnlgxrqn39k10j9nmgksg6m5ic8wgs8v5cjlrij4f")))) (base32 "158bgnk2jhjnpyld4z3jq8v2j8837vh4j0672g8mnjrg4i3px13k"))))
(build-system python-build-system) (build-system python-build-system)
(propagated-inputs (propagated-inputs
(list python-pikepdf python-pillow (list python-pikepdf python-pillow

4
gnu/packages/plotutils.scm
View file

@ -276,14 +276,14 @@ colors, styles, options and details.")
(define-public asymptote (define-public asymptote
(package (package
(name "asymptote") (name "asymptote")
(version "2.87") (version "2.88")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://sourceforge/asymptote/" (uri (string-append "mirror://sourceforge/asymptote/"
version "/asymptote-" version ".src.tgz")) version "/asymptote-" version ".src.tgz"))
(sha256 (sha256
(base32 "06sr0fpc3zci7ncj9gwp3h8zhbvxs37rwwzqirnxa86zyfar4shf")) (base32 "1fzm58md2kc32sj19bksnd8yzkg47z5pblkxp28r7vm67xs1mrqd"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
;; Remove bundled RapidJSON. ;; Remove bundled RapidJSON.

57
gnu/packages/python-web.scm
View file

@ -58,6 +58,7 @@
;;; Copyright © 2022 msimonin <matthieu.simonin@inria.fr> ;;; Copyright © 2022 msimonin <matthieu.simonin@inria.fr>
;;; Copyright © 2022 Michael Rohleder <mike@rohleder.de> ;;; Copyright © 2022 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2022 Baptiste Strazzulla <bstrazzull@hotmail.fr> ;;; Copyright © 2022 Baptiste Strazzulla <bstrazzull@hotmail.fr>
;;; Copyright © 2023 dan <i@dan.games>
;;; Copyright © 2023 John Kehayias <john.kehayias@protonmail.com> ;;; Copyright © 2023 John Kehayias <john.kehayias@protonmail.com>
;;; Copyright © 2023 Ivan Vilata-i-Balaguer <ivan@selidor.net> ;;; Copyright © 2023 Ivan Vilata-i-Balaguer <ivan@selidor.net>
;;; Copyright © 2024 Troy Figiel <troy@troyfigiel.com> ;;; Copyright © 2024 Troy Figiel <troy@troyfigiel.com>
@ -1279,6 +1280,62 @@ over a different origin than that of the web application.")
other HTTP libraries.") other HTTP libraries.")
(license license:expat))) (license license:expat)))
(define-public python-cheroot
(package
(name "python-cheroot")
(version "10.0.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "cheroot" version))
(sha256
(base32
"1w0ind0dza9j1py56y23344piqkpyfmcm060qfrnk6gggy3s3i2r"))))
(build-system pyproject-build-system)
(arguments
(list
#:test-flags
#~(list "--cov=cheroot"
;; Tests are flaky in parallel invocation.
;; "--numprocesses=auto"
"--doctest-modules"
"--showlocals"
;; Disable test requiring networking.
"-k" "not test_tls_client_auth")
#:phases
#~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? test-flags #:allow-other-keys)
(when tests?
(with-directory-excursion "/tmp"
(apply invoke "pytest" "-v"
(append test-flags (list #$output))))))))))
(propagated-inputs
(list python-jaraco-functools
python-more-itertools
python-six))
(native-inputs
(list python-cryptography
python-jaraco-text
python-portend
python-pyopenssl
python-pypytools
python-pytest
python-pytest-cov
python-pytest-mock
python-pytest-xdist
python-requests
python-requests-toolbelt
python-requests-unixsocket
python-setuptools-scm
python-setuptools-scm-git-archive
python-trustme))
(home-page "https://cheroot.cherrypy.dev")
(synopsis "Highly-optimized, pure-python HTTP server")
(description
"Cheroot is a high-performance, pure-Python HTTP server.")
(license license:bsd-3)))
(define-public httpie (define-public httpie
(package (package
(name "httpie") (name "httpie")

175
gnu/packages/python-xyz.scm
View file

@ -49,7 +49,7 @@
;;; Copyright © 2018 Mathieu Lirzin <mthl@gnu.org> ;;; Copyright © 2018 Mathieu Lirzin <mthl@gnu.org>
;;; Copyright © 2018 Adam Massmann <massmannak@gmail.com> ;;; Copyright © 2018 Adam Massmann <massmannak@gmail.com>
;;; Copyright © 2016, 2018 Tomáš Čech <sleep_walker@gnu.org> ;;; Copyright © 2016, 2018 Tomáš Čech <sleep_walker@gnu.org>
;;; Copyright © 2018-2023 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2018-2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2018, 2019, 2021, 2023 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2018, 2019, 2021, 2023 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2018, 2019, 2020, 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2018, 2019, 2020, 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
@ -136,6 +136,7 @@
;;; Copyright © 2023 Amade Nemes <nemesamade@gmail.com> ;;; Copyright © 2023 Amade Nemes <nemesamade@gmail.com>
;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu> ;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
;;; Copyright © 2023 Kaelyn Takata <kaelyn.alexi@protonmail.com> ;;; Copyright © 2023 Kaelyn Takata <kaelyn.alexi@protonmail.com>
;;; Copyright © 2023 dan <i@dan.games>
;;; Copyright © 2023 Dominik Delgado Steuter <d@delgado.nrw> ;;; Copyright © 2023 Dominik Delgado Steuter <d@delgado.nrw>
;;; Copyright © 2023 Ivan Vilata-i-Balaguer <ivan@selidor.net> ;;; Copyright © 2023 Ivan Vilata-i-Balaguer <ivan@selidor.net>
;;; Copyright © 2023 Ontje Lünsdorf <ontje.luensdorf@dlr.de> ;;; Copyright © 2023 Ontje Lünsdorf <ontje.luensdorf@dlr.de>
@ -6058,6 +6059,54 @@ adds a 'now' tag providing a convenient access to the arrow.now() API from
templates. A format string can be provided to control the output.") templates. A format string can be provided to control the output.")
(license license:expat))) (license license:expat)))
(define-public python-pypugjs
(package
(name "python-pypugjs")
(version "5.9.12")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/kakulukia/pypugjs")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0zj7a560h973cl7brfw1nmyhgm8rp8j80wnih0shvhmw4ql23lpa"))))
(build-system pyproject-build-system)
(arguments
(list
#:phases #~(modify-phases %standard-phases
;; Our pyramid is outdated and pyramid-mako is not packaged.
(add-after 'unpack 'disable-pyramid
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "setup.py"
(("'pyramid")
"#'pyramid"))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "python" "-m" "pytest" "-v"
"pypugjs/testsuite/")))))))
(native-inputs (list python-coverage
python-django
python-jinja2
python-flake8
python-flask
python-mako
python-nose
python-poetry-core
python-pytest
python-tornado-6
python-wheel))
(propagated-inputs (list python-charset-normalizer python-six))
(home-page "https://github.com/kakulukia/pypugjs")
(synopsis "Convert Pug source files into different template languages")
(description
"PyPugJS is a high-performance port of PugJS for Python, that converts
any @file{.pug} source into different template languages: Django, Jinja2,
Mako, and Tornado.")
(license license:expat))) ;; MIT
(define-public python-pysdl2 (define-public python-pysdl2
(package (package
(name "python-pysdl2") (name "python-pysdl2")
@ -6173,26 +6222,20 @@ bookmarks using a declarative input in the form of a markdown file.")
(define-public python-joblib (define-public python-joblib
(package (package
(name "python-joblib") (name "python-joblib")
(version "1.1.1") (version "1.3.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "joblib" version)) (uri (pypi-uri "joblib" version))
(sha256 (sha256
(base32 (base32
"0019p280s2k941mihl67l7y6amwx86639xp3zvpsg1lmyish67rh")))) "1cbjjzsh9hzaqr2cqja95673p7j88b8bd02hjpkq8xz147k6by4j"))))
(build-system python-build-system) (build-system pyproject-build-system)
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:test-flags ; disabled to avoid having to depend on ipython/jupyter
(replace 'check #~(list "-k" "not test_parallel_call_cached_function_defined_in_jupyter")))
(lambda* (#:key tests? #:allow-other-keys) (native-inputs (list python-pytest))
(when tests? (propagated-inputs (list python-psutil))
(setenv "JOBLIB_MULTIPROCESSING" "0")
(invoke "pytest" "-v" "joblib"
;; We disable this test to avoid having to depend on ipython/jupyter
"-k" "not test_parallel_call_cached_function_defined_in_jupyter")))))))
(native-inputs
(list python-pytest))
(home-page "https://joblib.readthedocs.io/") (home-page "https://joblib.readthedocs.io/")
(synopsis "Using Python functions as pipeline jobs") (synopsis "Using Python functions as pipeline jobs")
(description (description
@ -11434,6 +11477,27 @@ removal, line continuation, indentation, comment processing, identifier
processing, values parsing, case insensitive comparison, and more.") processing, values parsing, case insensitive comparison, and more.")
(license license:expat))) (license license:expat)))
(define-public python-pypytools
(package
(name "python-pypytools")
(version "0.6.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "pypytools" version))
(sha256
(base32 "0ag5xyzagprji0m2pkqsfy8539s003mn41pl6plbmh6iwi9w0h51"))))
(build-system python-build-system)
(arguments (list #:tests? #f)) ; no tests
(propagated-inputs (list python-py))
(home-page "https://github.com/antocuni/pypytools/")
(synopsis
"Tools to use PyPy-specific features, with CPython fallbacks")
(description
"This package provides a collection of useful tools to use PyPy-specific
features, with CPython fallbacks.")
(license license:x11)))
(define-public python-simplegeneric (define-public python-simplegeneric
(package (package
(name "python-simplegeneric") (name "python-simplegeneric")
@ -12801,19 +12865,18 @@ approach.")
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
;; TODO: Package missing test dependencies. ;; TODO: Package missing test dependencies.
'(#:tests? #f (list
#:phases #:tests? #f
(modify-phases %standard-phases #:phases
;; For cluster execution Snakemake will call Python. Since there is #~(modify-phases %standard-phases
;; no suitable PYTHONPATH set, cluster execution will fail. We fix ;; For cluster execution Snakemake will call Python. Since there is
;; this by calling the snakemake wrapper instead. ;; no suitable PYTHONPATH set, cluster execution will fail. We fix
(add-after 'unpack 'call-wrapper-not-wrapped-snakemake ;; this by calling the snakemake wrapper instead.
(lambda* (#:key outputs #:allow-other-keys) (add-after 'unpack 'call-wrapper-not-wrapped-snakemake
(substitute* "snakemake/executors/__init__.py" (lambda _
(("\\{sys.executable\\} -m snakemake") (substitute* "snakemake/executors/__init__.py"
(string-append (assoc-ref outputs "out") (("\\{sys.executable\\} -m snakemake")
"/bin/snakemake"))) (string-append #$output "/bin/snakemake"))))))))
#t)))))
(propagated-inputs (propagated-inputs
(list python-appdirs (list python-appdirs
python-configargparse python-configargparse
@ -12944,7 +13007,22 @@ Python style, together with a fast and comfortable execution environment.")
"") "")
(("\"-m snakemake\"") (("\"-m snakemake\"")
(string-append "\"" #$output (string-append "\"" #$output
"/bin/snakemake" "\""))))) "/bin/snakemake" "\""))
;; The snakemake command produced by format_job_exec contains
;; references to /gnu/store. Prior to patching above that's
;; just a reference to Python; after patching it's a reference
;; to the snakemake executable.
;;
;; In Tibanna execution mode Snakemake arranges for a certain
;; Docker image to be deployed to AWS. It then passes its own
;; command line to Tibanna. This is misguided because it only
;; ever works if the local Snakemake command was run inside
;; the same Docker image. In the case of using Guix this is
;; never correct, so we need to replace the store reference.
(("tibanna_args.command = command")
(string-append
"tibanna_args.command = command.replace('"
#$output "/bin/snakemake', 'python3 -m snakemake')")))))
(add-after 'unpack 'patch-version (add-after 'unpack 'patch-version
(lambda _ (lambda _
(substitute* "setup.py" (substitute* "setup.py"
@ -14265,6 +14343,41 @@ extensions, and several HTML output formats. A command line wrapper
markdown_py is also provided to convert Markdown files to HTML.") markdown_py is also provided to convert Markdown files to HTML.")
(license license:bsd-3))) (license license:bsd-3)))
(define-public python-markdown2
(package
(name "python-markdown2")
(version "2.4.13")
(source
(origin
(method git-fetch) ; no tests data in PyPi package
(uri (git-reference
(url "https://github.com/trentm/python-markdown2")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0m1wy8i4xmna5b97dvks8cfjmc1wid8pxmd2h82869d0ajva3r6a"))))
(build-system pyproject-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? test-flags #:allow-other-keys)
(when tests?
(with-directory-excursion "test"
(invoke "python" "testall.py"))))))))
(native-inputs
(list python-pygments))
(home-page "https://github.com/trentm/python-markdown2")
(synopsis "Fast and complete Python implementation of Markdown")
(description
"This package provides a fast and complete Python implementation of
Markdown. It was written to closely match the behaviour of the original
Perl-implemented Markdown.pl. It also comes with a number of
extensions (called @code{extras}) for things like syntax coloring, tables,
header-ids.")
(license license:expat)))
(define-public python-mdx-include (define-public python-mdx-include
(package (package
(name "python-mdx-include") (name "python-mdx-include")
@ -30562,7 +30675,7 @@ accessor layer.")
(define-public pyzo (define-public pyzo
(package (package
(name "pyzo") (name "pyzo")
(version "4.13.3") (version "4.15.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -30572,7 +30685,7 @@ accessor layer.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1m0mrp20wjvy804214f4zzlbaqrakam0g3qr562yn2mjcgfba554")))) "0m2sp65q21hhlfkvyby4sjc8cmwv3l0avw42xsna8za8ax9xadxr"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
`(#:phases `(#:phases

43
gnu/packages/qt.scm
View file

@ -2360,7 +2360,7 @@ control equipment. The module provides both QML and C++ interfaces. The
primary target audience are embedded devices with fullscreen user interfaces, primary target audience are embedded devices with fullscreen user interfaces,
and mobile applications targeting TV-like form factors."))) and mobile applications targeting TV-like form factors.")))
(define-public qtscxml (define-public qtscxml-5
(package (package
(inherit qtsvg-5) (inherit qtsvg-5)
(name "qtscxml") (name "qtscxml")
@ -2388,6 +2388,45 @@ machines (loading the SCXML file and instantiating states and transitions) and
generating a C++ file that has a class implementing the state machine. It generating a C++ file that has a class implementing the state machine. It
also contains functionality to support data models and executable content."))) also contains functionality to support data models and executable content.")))
(define-public qtscxml
(package
(name "qtscxml")
(version "6.5.2")
(source (origin
(method url-fetch)
(uri (qt-url name version))
(sha256
(base32
"1jxx9p7zi40r990ky991xd43mv6i8hdpnj2fhl7sf4q9fpng4c58"))
(modules '((guix build utils)))
(snippet
'(begin
(delete-file-recursively "tests/3rdparty")))))
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(delete 'check) ;move after the install phase
(add-after 'install 'check
(assoc-ref %standard-phases 'check))
(add-before 'check 'check-setup
(lambda _
(setenv "ARGS" "-E tst_scion")
(setenv "QT_QPA_PLATFORM" "offscreen")
(setenv "QML2_IMPORT_PATH"
(string-append #$output "/lib/qt6/qml:"
(getenv "QML2_IMPORT_PATH"))))))))
(build-system cmake-build-system)
(inputs (list qtbase qtdeclarative libxkbcommon))
(synopsis "Qt SCXML module")
(description "The Qt SCXML module provides functionality to create state
machines from SCXML files. This includes both dynamically creating state
machines (loading the SCXML file and instantiating states and transitions) and
generating a C++ file that has a class implementing the state machine. It
also contains functionality to support data models and executable content.")
(home-page (package-home-page qtbase))
(license (package-license qtbase))))
(define-public qtpositioning (define-public qtpositioning
(package (package
(name "qtpositioning") (name "qtpositioning")
@ -4497,7 +4536,7 @@ color-related widgets.")
qtquickcontrols-5 qtquickcontrols-5
qtquickcontrols2-5 qtquickcontrols2-5
qtscript qtscript
qtscxml qtscxml-5
qtsensors qtsensors
qtspeech qtspeech
qtsvg-5 qtsvg-5

49
gnu/packages/security-token.scm
View file

@ -41,6 +41,7 @@
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix deprecation)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix utils) #:use-module (guix utils)
@ -950,43 +951,42 @@ for interaction with Nitrokey Pro, Nitrokey Storage, and Librem Key
devices.") devices.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public ausweisapp2 (define-public ausweisapp
(package (package
(name "ausweisapp2") (name "ausweisapp")
(version "1.22.2") (version "2.1.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/Governikus/AusweisApp2/releases" (uri (string-append "https://github.com/Governikus/AusweisApp/releases"
"/download/" version "/AusweisApp2-" version ".tar.gz")) "/download/" version "/AusweisApp-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1qh1m057va7njs3yk0s31kwsvv44fjlsdac6lhiw5npcwssgjn8l")))) "1jzxfybjrc3byw42bqjvn1nsn7vbgcl8y94sywjy6vaj3a58hy36"))))
(build-system cmake-build-system) (build-system qt-build-system)
(native-inputs (native-inputs
(list pkg-config qttools-5)) (list pkg-config qttools))
(inputs (inputs
(list qtbase-5 (list qtbase
qtsvg-5 qtsvg
qtdeclarative-5 qtscxml
qtwebsockets-5 qtdeclarative
qtshadertools
qtwebsockets
qtgraphicaleffects qtgraphicaleffects
qtquickcontrols2-5
pcsc-lite pcsc-lite
openssl)) openssl))
(arguments (arguments
`(#:modules ((guix build cmake-build-system) `(#:qtbase ,qtbase
(guix build qt-utils)
(guix build utils))
#:imported-modules (,@%cmake-build-system-modules
(guix build qt-utils))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'install 'wrap-qt (replace 'check
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key tests? parallel-tests? #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (when tests? (invoke "ctest" "--output-on-failure" "-j"
(wrap-qt-program "AusweisApp2" #:output out #:inputs inputs))))))) (if parallel-tests?
(home-page "https://github.com/Governikus/AusweisApp2") (number->string (parallel-job-count))
"1"))))))))
(home-page "https://github.com/Governikus/AusweisApp")
(synopsis (synopsis
"Authentication program for German ID cards and residence permits") "Authentication program for German ID cards and residence permits")
(description (description
@ -996,6 +996,9 @@ titles. To use this app, a supported RFID card reader or NFC-enabled smart
phone is required.") phone is required.")
(license license:eupl1.2))) (license license:eupl1.2)))
(define-deprecated/public ausweisapp2 ausweisapp
(deprecated-package "ausweisapp2" ausweisapp))
(define-public libfido2 (define-public libfido2
(package (package
(name "libfido2") (name "libfido2")

12
gnu/packages/statistics.scm
View file

@ -972,13 +972,13 @@ effects of different types of color-blindness.")
(define-public r-digest (define-public r-digest
(package (package
(name "r-digest") (name "r-digest")
(version "0.6.34") (version "0.6.35")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "digest" version)) (uri (cran-uri "digest" version))
(sha256 (sha256
(base32 "1na47pywh059g9ymf56z232h5yxbj0gn755cb10ms5igjd97awqb")))) (base32 "07vqv2mnf8ppan2a3gydh4yr84n8489hypfas1rlk7050nxkycyc"))))
(build-system r-build-system) (build-system r-build-system)
;; Vignettes require r-knitr, which requires r-digest, so we have to ;; Vignettes require r-knitr, which requires r-digest, so we have to
;; disable them and the tests. ;; disable them and the tests.
@ -4533,14 +4533,14 @@ more complete @code{viridis} package.")
(define-public r-tidyselect (define-public r-tidyselect
(package (package
(name "r-tidyselect") (name "r-tidyselect")
(version "1.2.0") (version "1.2.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "tidyselect" version)) (uri (cran-uri "tidyselect" version))
(sha256 (sha256
(base32 (base32
"0fwy4qp3j0ksy15rkrh3588h7wa8c21h0fzx5s762zg34yvjd3ak")))) "0g4h8mfm5ima0izy4h0c65q478473xsj4hskh15dzg5z1fx9g7hn"))))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
(list r-cli r-glue r-lifecycle r-rlang r-vctrs r-withr)) (list r-cli r-glue r-lifecycle r-rlang r-vctrs r-withr))
@ -4952,13 +4952,13 @@ package instead.")
(define-public r-hmisc (define-public r-hmisc
(package (package
(name "r-hmisc") (name "r-hmisc")
(version "5.1-1") (version "5.1-2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "Hmisc" version)) (uri (cran-uri "Hmisc" version))
(sha256 (sha256
(base32 "0laan26ja6m9k3spkk1ymalwb181ramzjq6ii3b0404xv2kfywa9")))) (base32 "088gniwbymzhqg3vp0kpkbazryjzy9iq6wdvf9hg9qf0sjbibpg7"))))
(properties `((upstream-name . "Hmisc"))) (properties `((upstream-name . "Hmisc")))
(build-system r-build-system) (build-system r-build-system)
(native-inputs (native-inputs

10
gnu/packages/text-editors.scm
View file

@ -12,7 +12,7 @@
;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019, 2022 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2019, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2019 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2019, 2020, 2021, 2022, 2023 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2019-2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020-2022 Marius Bakke <marius@gnu.org> ;;; Copyright © 2020-2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020 Tom Zander <tomz@freedommail.ch> ;;; Copyright © 2020 Tom Zander <tomz@freedommail.ch>
;;; Copyright © 2020 Mark Meyer <mark@ofosos.org> ;;; Copyright © 2020 Mark Meyer <mark@ofosos.org>
@ -808,7 +808,7 @@ environment with Markdown markup.")
(define-public manuskript (define-public manuskript
(package (package
(name "manuskript") (name "manuskript")
(version "0.15.0") (version "0.16.1")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -817,7 +817,7 @@ environment with Markdown markup.")
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "0d1r62s1qidspck0b1zf8dibyjn9g72agbkjcica4bvfylnbqz9z")))) (base32 "1w1wscq7w0xx4wkkk9rl3pc067yspbk8qnfaq3i9sxc7k6zsy77x"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
(list (list
@ -967,14 +967,14 @@ editors.")
(define-public texmacs (define-public texmacs
(package (package
(name "texmacs") (name "texmacs")
(version "2.1.1") (version "2.1.4")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://www.texmacs.org/Download/ftp/tmftp/" (uri (string-append "https://www.texmacs.org/Download/ftp/tmftp/"
"source/TeXmacs-" version "-src.tar.gz")) "source/TeXmacs-" version "-src.tar.gz"))
(sha256 (sha256
(base32 "0c780vcwppzhb70d3d96md3hra7338d4fv3aj0sm7jx0mj2a334i")))) (base32 "11l1q5lmsj9g7yil1dn7n1cgsr8iikx59kg9riahpb6xw0p959l7"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(native-inputs (native-inputs
(list pkg-config xdg-utils)) ;for xdg-icon-resource (list pkg-config xdg-utils)) ;for xdg-icon-resource

25
gnu/packages/virtualization.scm
View file

@ -15,7 +15,7 @@
;;; Copyright © 2020, 2021 Brice Waegeneire <brice@waegenei.re> ;;; Copyright © 2020, 2021 Brice Waegeneire <brice@waegenei.re>
;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020, 2021, 2022 Marius Bakke <marius@gnu.org> ;;; Copyright © 2020, 2021, 2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020, 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2020, 2021, 2022, 2023, 2024 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Brett Gilio <brettg@gnu.org> ;;; Copyright © 2020 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2021 Leo Famulari <leo@famulari.name> ;;; Copyright © 2021 Leo Famulari <leo@famulari.name>
;;; Copyright © 2021, 2022 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2021, 2022 Pierre Langlois <pierre.langlois@gmx.com>
@ -169,15 +169,16 @@
(define-public qemu (define-public qemu
(package (package
(name "qemu") (name "qemu")
(version "8.1.3") (version "8.2.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://download.qemu.org/qemu-" (uri (string-append "https://download.qemu.org/qemu-"
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 "1fv5wbxpjxqzv10bdlq0ykgqfmzqx4s8yfch9zvqcm8h0il1gk23")) (base32 "1wy45fbf4816l4ylsz8b8cbypva9apcdnvlgqfr586icp30lcww4"))
(patches (search-patches "qemu-disable-some-qtests-tests.patch" (patches (search-patches "qemu-build-info-manual.patch"
"qemu-disable-bios-tables-test.patch"
"qemu-fix-agent-paths.patch")) "qemu-fix-agent-paths.patch"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
@ -196,7 +197,7 @@
(for-each delete-file (find-files "." "^(efi|pxe)-.*\\.rom$"))) (for-each delete-file (find-files "." "^(efi|pxe)-.*\\.rom$")))
;; Delete bundled code that we provide externally. ;; Delete bundled code that we provide externally.
(for-each delete-file-recursively (for-each delete-file-recursively
'("subprojects/dtc" '("roms/u-boot/scripts/dtc"
"roms/ipxe" "roms/ipxe"
"roms/openbios" "roms/openbios"
"roms/opensbi" "roms/opensbi"
@ -321,10 +322,18 @@
(lambda* (#:key native-inputs inputs #:allow-other-keys) (lambda* (#:key native-inputs inputs #:allow-other-keys)
;; Ensure the executables created by these source files reference ;; Ensure the executables created by these source files reference
;; /bin/sh from the store so they work inside the build container. ;; /bin/sh from the store so they work inside the build container.
(substitute* '("block/cloop.c" "migration/exec.c" (substitute* '("block/cloop.c"
"net/tap.c" "tests/qtest/libqtest.c" "migration/exec.c"
"migration/migration.c"
"net/tap.c"
"util/envlist.c")
(("/bin/sh")
(search-input-file inputs "/bin/sh")))
;; For tests, use the native /bin/sh is available.
(substitute* '("tests/qtest/libqtest.c"
"tests/qtest/vhost-user-blk-test.c") "tests/qtest/vhost-user-blk-test.c")
(("/bin/sh") (search-input-file inputs "/bin/sh"))) (("/bin/sh")
(search-input-file (or native-inputs inputs) "/bin/sh")))
(substitute* "tests/qemu-iotests/testenv.py" (substitute* "tests/qemu-iotests/testenv.py"
(("#!/usr/bin/env python3") (("#!/usr/bin/env python3")
(string-append "#!" (search-input-file (or native-inputs inputs) (string-append "#!" (search-input-file (or native-inputs inputs)

6
gnu/packages/weather.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2022 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2022, 2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -28,7 +28,7 @@
(define-public wego (define-public wego
(package (package
(name "wego") (name "wego")
(version "2.1") (version "2.2")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -37,7 +37,7 @@
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "0bji9fywa0kg29zj1vrwq7l5f18hh0lcz6rl6sppi5id0qbjpiwl")))) (base32 "09zn1z2744izzkkavs3lc1scsv22js8h28b0d86qd5dh2zfwfikf"))))
(build-system go-build-system) (build-system go-build-system)
(arguments '(#:import-path "github.com/schachmat/wego")) (arguments '(#:import-path "github.com/schachmat/wego"))
(propagated-inputs (propagated-inputs

8
gnu/packages/web-browsers.scm
View file

@ -590,7 +590,7 @@ driven and does not detract you from your daily work.")
(define-public nyxt (define-public nyxt
(package (package
(name "nyxt") (name "nyxt")
(version "3.11.4") (version "3.11.5")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -599,7 +599,7 @@ driven and does not detract you from your daily work.")
(commit version))) (commit version)))
(sha256 (sha256
(base32 (base32
"1c1kiwa7chm491gpzihpqv33ysmxfp83gw6wcsbq72hkwir6kf74")) "1f7pvh5bzkasbcfydd82pg7qn987ysbxk3j58dxzq2nzi05s0y4p"))
(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
@ -720,7 +720,7 @@ is fully configurable and extensible in Common Lisp.")
(define-public lagrange (define-public lagrange
(package (package
(name "lagrange") (name "lagrange")
(version "1.16.7") (version "1.17.6")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -728,7 +728,7 @@ is fully configurable and extensible in Common Lisp.")
(string-append "https://git.skyjake.fi/skyjake/lagrange/releases/" (string-append "https://git.skyjake.fi/skyjake/lagrange/releases/"
"download/v" version "/lagrange-" version ".tar.gz")) "download/v" version "/lagrange-" version ".tar.gz"))
(sha256 (sha256
(base32 "0ig7xdsihq7wc8h7n1af275z3kjxq5iiy0x4dwjahgligrdmj7vm")) (base32 "0fsjn74cmrchqgnj88yzdxyj1gm0i2vrzh69b9b9bi7y2wk9il5r"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(begin '(begin

12
gnu/packages/wine.scm
View file

@ -7,7 +7,7 @@
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2022 Liliana Marie Prikler <liliana.prikler@gmail.com> ;;; Copyright © 2022 Liliana Marie Prikler <liliana.prikler@gmail.com>
;;; Copyright © 2023 Kaelyn Takata <kaelyn.alexi@protonmail.com> ;;; Copyright © 2023, 2024 Kaelyn Takata <kaelyn.alexi@protonmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -79,7 +79,7 @@
(define-public wine-minimal (define-public wine-minimal
(package (package
(name "wine-minimal") (name "wine-minimal")
(version "8.18") (version "9.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -91,7 +91,7 @@
(string-append "https://dl.winehq.org/wine/source/" dir (string-append "https://dl.winehq.org/wine/source/" dir
"wine-" version ".tar.xz"))) "wine-" version ".tar.xz")))
(sha256 (sha256
(base32 "1nv06awb3hv26v64nqnks9yiz7w368scxznj77vxa3zpmhafzyih")))) (base32 "1vm61hrkinjqicxidhbhq3j8sb1iianfypdvjmnvgxcmac50kzbw"))))
(properties '((upstream-name . "wine"))) (properties '((upstream-name . "wine")))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (list bison flex)) (native-inputs (list bison flex))
@ -304,7 +304,7 @@ integrate Windows applications into your desktop.")
(define-public wine-staging-patchset-data (define-public wine-staging-patchset-data
(package (package
(name "wine-staging-patchset-data") (name "wine-staging-patchset-data")
(version "8.18") (version "9.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -313,7 +313,7 @@ integrate Windows applications into your desktop.")
(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 "0qabyw5139xdfsvzbwbrn1nnqssgwk8mn88mxnq2cdkk9gbjvq56")))) (base32 "0xdinbj9byihy8snv6h1mcb79rh35zwhhld4g7mjg0k2wvjgskwl"))))
(build-system trivial-build-system) (build-system trivial-build-system)
(native-inputs (native-inputs
(list coreutils)) (list coreutils))
@ -359,7 +359,7 @@ integrate Windows applications into your desktop.")
"wine-" wine-version ".tar.xz")) "wine-" wine-version ".tar.xz"))
(file-name (string-append name "-" wine-version ".tar.xz")) (file-name (string-append name "-" wine-version ".tar.xz"))
(sha256 (sha256
(base32 "1nv06awb3hv26v64nqnks9yiz7w368scxznj77vxa3zpmhafzyih"))))) (base32 "1vm61hrkinjqicxidhbhq3j8sb1iianfypdvjmnvgxcmac50kzbw")))))
(inputs (modify-inputs (package-inputs wine) (inputs (modify-inputs (package-inputs wine)
(prepend autoconf ; for autoreconf (prepend autoconf ; for autoreconf
ffmpeg ffmpeg

86
gnu/packages/wm.scm
View file

@ -187,13 +187,13 @@
xcb-util-keysyms xcb-util-keysyms
xcb-util-wm)) xcb-util-wm))
(arguments (arguments
'(#:phases (list #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure)) ; no configure script (delete 'configure)) ; no configure script
#:tests? #f ; no check target #:tests? #f ; no check target
#:make-flags #:make-flags
(list "CC=gcc" #~(list (string-append "CC=" #$(cc-for-target))
(string-append "PREFIX=" %output)))) (string-append "PREFIX=" #$output))))
(home-page "https://github.com/baskerville/bspwm") (home-page "https://github.com/baskerville/bspwm")
(synopsis "Tiling window manager based on binary space partitioning") (synopsis "Tiling window manager based on binary space partitioning")
(description "bspwm is a tiling window manager that represents windows as (description "bspwm is a tiling window manager that represents windows as
@ -1759,6 +1759,50 @@ modules for building a Wayland compositor.")
(propagated-inputs (modify-inputs (package-propagated-inputs wlroots) (propagated-inputs (modify-inputs (package-propagated-inputs wlroots)
(delete libdisplay-info))))) (delete libdisplay-info)))))
(define-public wlroots-0.15
(package
(inherit wlroots)
(name "wlroots-0.15")
(version "0.15.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.freedesktop.org/wlroots/wlroots")
(commit version)))
(file-name (git-file-name "wlroots" version))
(sha256
(base32 "00s73nhi3sc48l426jdlqwpclg41kx1hv0yk4yxhbzw19gqpfm1h"))))))
(define-public wmenu
(package
(name "wmenu")
(version "0.1.7")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://git.sr.ht/~adnano/wmenu")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0wjn68r5cx4zvw7sby6sk2ip5h4fn0jbgb1nasm9nsgjpv63pnpm"))))
(build-system meson-build-system)
(native-inputs (append (if (%current-target-system)
;; for wayland-scanner
(list pkg-config-for-build
wayland)
'())
(list pkg-config scdoc)))
(inputs (list cairo pango wayland libxkbcommon wayland-protocols))
(home-page "https://git.sr.ht/~adnano/wmenu")
(synopsis "Dynamic menu for Wayland")
(description "@command{wmenu} is a dynamic menu for Wayland, which reads a list
of newline-separated items from stdin. When the user selects an item and presses
Return, their choice is printed to stdout and wmenu terminates. Entering text will
narrow the items to those matching the tokens in the input.")
(license license:expat)))
(define-public sway (define-public sway
(package (package
(name "sway") (name "sway")
@ -1837,7 +1881,7 @@ corners, shadows, inactive window dimming, etc.")
(define-public swayidle (define-public swayidle
(package (package
(name "swayidle") (name "swayidle")
(version "1.7.1") (version "1.8.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -1846,7 +1890,7 @@ corners, shadows, inactive window dimming, etc.")
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "06iq12p4438d6bv3jlqsf01wjaxrzlnj1bnicn41kad563aq41xl")))) (base32 "0y0qdqzx90kvk6l80darldvizr7p5g65bnblhxlq5a2rgvs9hkpx"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
`(#:configure-flags '("-Dlogind-provider=elogind"))) `(#:configure-flags '("-Dlogind-provider=elogind")))
@ -3219,7 +3263,7 @@ session. Nor does it depend on any UI toolkits such as Qt or GTK.")
linux-pam linux-pam
pango pango
wayland wayland
wlroots-0.16)) wlroots-0.15))
(arguments (arguments
`(#:tests? #f ; no tests `(#:tests? #f ; no tests
#:make-flags #:make-flags
@ -3524,20 +3568,24 @@ used for multimedia keys.")
(define-public grimshot (define-public grimshot
(package (package
(inherit sway)
(name "grimshot") (name "grimshot")
(version "1.9-contrib.0")
(source (origin (source (origin
(inherit (package-source sway)) (method git-fetch)
(snippet #~(delete-file "contrib/grimshot.1")))) (uri (git-reference
(url "https://github.com/OctopusET/sway-contrib")
(commit version)))
(file-name (git-file-name name version))
(snippet #~(delete-file "grimshot.1"))
(sha256
(base32
"16fa8l81zjy25nsky1i525hb7zjprqz74mbirm9b76pvksschdv5"))))
(build-system copy-build-system) (build-system copy-build-system)
(arguments (arguments
(list #:install-plan #~`(("grimshot" "bin/") (list #:install-plan #~`(("grimshot" "bin/")
("grimshot.1" "share/man/man1/")) ("grimshot.1" "share/man/man1/"))
#:phases #~(modify-phases %standard-phases #:phases #~(modify-phases %standard-phases
(add-after 'unpack 'chdir (add-after 'unpack 'patch-script-dependencies
(lambda _
(chdir "contrib")))
(add-after 'chdir 'patch-script-dependencies
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "grimshot" (substitute* "grimshot"
(("\\b(date|grim|jq|notify-send|slurp|swaymsg|wl-copy)\\b" (("\\b(date|grim|jq|notify-send|slurp|swaymsg|wl-copy)\\b"
@ -3559,11 +3607,13 @@ used for multimedia keys.")
slurp slurp
sway sway
wl-clipboard)) wl-clipboard))
(home-page "https://github.com/OctopusET/sway-contrib")
(synopsis "Screenshot utility for the Sway window manager") (synopsis "Screenshot utility for the Sway window manager")
(description "Grimshot is a screenshot utility for @code{sway}. It provides (description "Grimshot is a screenshot utility for @code{sway}. It provides
an interface over @code{grim}, @code{slurp} and @code{jq}, and supports storing an interface over @code{grim}, @code{slurp} and @code{jq}, and supports storing
the screenshot either directly to the clipboard using @code{wl-copy} or to a the screenshot either directly to the clipboard using @code{wl-copy} or to a
file."))) file.")
(license license:expat)))
(define-public wld (define-public wld
(let ((commit "6586736176ef50a88025abae835e29a7ca980126") (let ((commit "6586736176ef50a88025abae835e29a7ca980126")

26
gnu/packages/xdisorg.scm
View file

@ -41,9 +41,9 @@
;;; Copyright © 2020 Gabriel Arazas <foo.dogsquared@gmail.com> ;;; Copyright © 2020 Gabriel Arazas <foo.dogsquared@gmail.com>
;;; Copyright © 2020 James Smith <jsubuntuxp@disroot.org> ;;; Copyright © 2020 James Smith <jsubuntuxp@disroot.org>
;;; Copyright © 2020 B. Wilson <elaexuotee@wilsonb.com> ;;; Copyright © 2020 B. Wilson <elaexuotee@wilsonb.com>
;;; Copyright © 2020, 2021, 2023 Zheng Junjie <873216071@qq.com> ;;; Copyright © 2020, 2021, 2023, 2024 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021, 2022 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2021, 2022, 2024 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz> ;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;; Copyright © 2021 Renzo Poddighe <renzo@poddighe.nl> ;;; Copyright © 2021 Renzo Poddighe <renzo@poddighe.nl>
;;; Copyright © 2021 Paul A. Patience <paul@apatience.com> ;;; Copyright © 2021 Paul A. Patience <paul@apatience.com>
@ -1256,14 +1256,14 @@ transparent text on your screen.")
(define-public wob (define-public wob
(package (package
(name "wob") (name "wob")
(version "0.14.2") (version "0.15.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/francma/wob/releases/download/" (uri (string-append "https://github.com/francma/wob/releases/download/"
version "/wob-" version ".tar.gz")) version "/wob-" version ".tar.gz"))
(sha256 (sha256
(base32 "12s9pc0dhqgawq6jiqhamj1zq9753kgpswny1rcsdx1lkpzrgaq1")))) (base32 "1632y0yr1ig5nihs6kqyvfi117815zszhnfvaabm97qkf5blkj5p"))))
(build-system meson-build-system) (build-system meson-build-system)
(native-inputs (native-inputs
(list pkg-config scdoc)) (list pkg-config scdoc))
@ -1341,16 +1341,16 @@ Guile will work for XBindKeys.")
(base32 "1winwzdy9yxvxnrv8gqpigl9y0c2px27mnms62bdilp4x6llrs9r")))) (base32 "1winwzdy9yxvxnrv8gqpigl9y0c2px27mnms62bdilp4x6llrs9r"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
(list asciidoc libxcb xcb-util xcb-util-keysyms xcb-util-wm)) (list libxcb xcb-util xcb-util-keysyms xcb-util-wm))
(arguments (arguments
`(#:phases (modify-phases %standard-phases (delete 'configure)) (list #:phases #~(modify-phases %standard-phases (delete 'configure))
#:tests? #f ; no check target #:tests? #f ; no check target
#:make-flags #:make-flags
(list ,(string-append "CC=" (cc-for-target)) #~(list (string-append "CC=" #$(cc-for-target))
(string-append "PREFIX=" %output) (string-append "PREFIX=" #$output)
;; Keep the documentation where the build system installs LICENSE. ;; Keep the documentation where the build system installs LICENSE.
(string-append "DOCPREFIX=" %output (string-append "DOCPREFIX=" #$output
"/share/doc/" ,name "-" ,version)))) "/share/doc/" #$name "-" #$version))))
(home-page "https://github.com/baskerville/sxhkd") (home-page "https://github.com/baskerville/sxhkd")
(synopsis "Simple X hotkey daemon") (synopsis "Simple X hotkey daemon")
(description "sxhkd is a simple X hotkey daemon with a powerful and (description "sxhkd is a simple X hotkey daemon with a powerful and

69
gnu/packages/xfce.scm
View file

@ -471,7 +471,7 @@ applications menu, workspace switcher and more.")
(define-public xfce4-clipman-plugin (define-public xfce4-clipman-plugin
(package (package
(name "xfce4-clipman-plugin") (name "xfce4-clipman-plugin")
(version "1.6.4") (version "1.6.6")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://archive.xfce.org/src/panel-plugins/" (uri (string-append "https://archive.xfce.org/src/panel-plugins/"
@ -479,7 +479,7 @@ applications menu, workspace switcher and more.")
"xfce4-clipman-plugin-" version ".tar.bz2")) "xfce4-clipman-plugin-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"1v5c1z154a46426198m3pl0fyrlsgfiqy4x9rvzcwzlp6lg5iplz")))) "083i9pbcqjkdzzjx055ld4gd4gn3xnc3rn10vpsqv1vg01dlgb88"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(list intltool pkg-config)) (list intltool pkg-config))
@ -498,7 +498,7 @@ matching them against regular expressions.")
(define-public xfce4-pulseaudio-plugin (define-public xfce4-pulseaudio-plugin
(package (package
(name "xfce4-pulseaudio-plugin") (name "xfce4-pulseaudio-plugin")
(version "0.4.7") (version "0.4.8")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -507,7 +507,7 @@ matching them against regular expressions.")
(version-major+minor version) "/" (version-major+minor version) "/"
"xfce4-pulseaudio-plugin-" version ".tar.bz2")) "xfce4-pulseaudio-plugin-" version ".tar.bz2"))
(sha256 (sha256
(base32 "0b4fjvrrah0b97cbv8ds7r6cwnj392ya2r7703ixf724f43hkpah")))) (base32 "0j037wnx0z22nw11mq0y3cnq1srr52zckjap3klj3hirghh2nx5x"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(list intltool pkg-config dbus-glib dbus)) (list intltool pkg-config dbus-glib dbus))
@ -793,7 +793,7 @@ and import the new pictures from your camera.")
(define-public thunar-archive-plugin (define-public thunar-archive-plugin
(package (package
(name "thunar-archive-plugin") (name "thunar-archive-plugin")
(version "0.5.1") (version "0.5.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -801,7 +801,7 @@ and import the new pictures from your camera.")
name "/" (version-major+minor version) name "/" (version-major+minor version)
"/" name "-" version ".tar.bz2")) "/" name "-" version ".tar.bz2"))
(sha256 (sha256
(base32 "1vcbbmh2vw43231c7vbkwc35pmhj7ixb65fvssrwfxydsfqkl6x8")))) (base32 "1qxdsnwjy8z358yd0avi1h2r6y1izfv26dzlp5fsh3pwpivzhyb3"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (list pkg-config intltool)) (native-inputs (list pkg-config intltool))
(inputs (list exo thunar gtk+)) (inputs (list exo thunar gtk+))
@ -836,7 +836,7 @@ Samba from Thunar (the Xfce file manager) without requiring root access.")
(define-public thunar-media-tags-plugin (define-public thunar-media-tags-plugin
(package (package
(name "thunar-media-tags-plugin") (name "thunar-media-tags-plugin")
(version "0.3.0") (version "0.4.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -844,7 +844,7 @@ Samba from Thunar (the Xfce file manager) without requiring root access.")
name "/" (version-major+minor version) name "/" (version-major+minor version)
"/" name "-" version ".tar.bz2")) "/" name "-" version ".tar.bz2"))
(sha256 (sha256
(base32 "06sr7b4p9f585gian8vpx7j0pkzg0vvwcrjmrhvh7i5sb90w8rg2")))) (base32 "02n99ymqs8msa798r63sy409pwrycg8p4pxx3yf497k924g134lm"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (list pkg-config intltool)) (native-inputs (list pkg-config intltool))
(inputs (list exo gtk+ thunar taglib)) (inputs (list exo gtk+ thunar taglib))
@ -1032,7 +1032,7 @@ devices and folders.")
(define-public gigolo (define-public gigolo
(package (package
(name "gigolo") (name "gigolo")
(version "0.5.2") (version "0.5.3")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://archive.xfce.org/src/apps/" (uri (string-append "https://archive.xfce.org/src/apps/"
@ -1040,7 +1040,7 @@ devices and folders.")
"/" name "-" version ".tar.bz2")) "/" name "-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"1hxv3lla567nnqxxly8xfi8fzmpcdhxb493x9hinr7szfnh1ljp3")))) "1l1g9ljvyzir1jpjf0248nnwwf3sakwljlik6cj5wrj4azv88nfj"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (list pkg-config intltool)) (native-inputs (list pkg-config intltool))
(inputs (list gtk+)) (inputs (list gtk+))
@ -1136,7 +1136,7 @@ on your desktop.")
(define-public xfce4-dict (define-public xfce4-dict
(package (package
(name "xfce4-dict") (name "xfce4-dict")
(version "0.8.5") (version "0.8.6")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://archive.xfce.org/src/apps/" name "/" (uri (string-append "https://archive.xfce.org/src/apps/" name "/"
@ -1144,7 +1144,7 @@ on your desktop.")
name "-" version ".tar.bz2")) name "-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"06xa7987azyx6y4mkmg58qv7gsg66szmr8ly29l9l1v1xl5sp7i9")))) "0h8adjgb7126hafik7r1k9wr3g6d835ggsh8zj9k4k9mf35bfpdf"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(list intltool pkg-config)) (list intltool pkg-config))
@ -1300,7 +1300,7 @@ inhibit interface which allows applications to prevent automatic sleep.")
(define-public ristretto (define-public ristretto
(package (package
(name "ristretto") (name "ristretto")
(version "0.13.1") (version "0.13.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://archive.xfce.org/src/apps/ristretto/" (uri (string-append "https://archive.xfce.org/src/apps/ristretto/"
@ -1308,7 +1308,7 @@ inhibit interface which allows applications to prevent automatic sleep.")
"ristretto-" version ".tar.bz2")) "ristretto-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"07kraf6k18f53vgx98hvrb20hcm5134m7c958w96fl142nzzy6np")))) "1nbxfm6ljcw45vn8hhjxwcv3k387hdah4jnn07n9w08n63g5x7vp"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(list intltool desktop-file-utils (list intltool desktop-file-utils
@ -1328,7 +1328,7 @@ the desktop wallpaper.")
(define-public xfce4-taskmanager (define-public xfce4-taskmanager
(package (package
(name "xfce4-taskmanager") (name "xfce4-taskmanager")
(version "1.5.5") (version "1.5.7")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://archive.xfce.org/src/apps/" (uri (string-append "https://archive.xfce.org/src/apps/"
@ -1336,7 +1336,7 @@ the desktop wallpaper.")
"xfce4-taskmanager-" version ".tar.bz2")) "xfce4-taskmanager-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"1rcaalqv6sdsnc6ick8fifgkqcf2xiflw9yk5szqn2qs4jx02kzn")))) "1fv83xcbnlwabi32z3fsdik1knh7v45ji529dx9kwlv4b8pq6dk7"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(list intltool pkg-config)) (list intltool pkg-config))
@ -1388,7 +1388,7 @@ several different time zones.")
(define-public xfce4-notifyd (define-public xfce4-notifyd
(package (package
(name "xfce4-notifyd") (name "xfce4-notifyd")
(version "0.8.2") (version "0.9.4")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://archive.xfce.org/src/apps/" (uri (string-append "https://archive.xfce.org/src/apps/"
@ -1396,7 +1396,7 @@ several different time zones.")
name "-" version ".tar.bz2")) name "-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"115fy87lcn9scwx52kjs0g250q2d3r10sahl6l8l38fs13dqm8p3")))) "063qxbcy8djijsb0clzkai3mwg43mmlswwrg403vsi2w0n614v5f"))))
(build-system glib-or-gtk-build-system) (build-system glib-or-gtk-build-system)
(arguments (arguments
(list #:phases (list #:phases
@ -1409,7 +1409,9 @@ several different time zones.")
(("\\$PKG_CONFIG --variable=glib_compile_resources gio-2.0") (("\\$PKG_CONFIG --variable=glib_compile_resources gio-2.0")
"which glib-compile-resources") "which glib-compile-resources")
(("\\$PKG_CONFIG --variable=glib_genmarshal glib-2.0") (("\\$PKG_CONFIG --variable=glib_genmarshal glib-2.0")
"which glib-genmarshal"))))))) "which glib-genmarshal")
(("\\$PKG_CONFIG --variable=glib_mkenums glib-2.0")
"which glib-mkenums")))))))
(native-inputs (native-inputs
(list intltool pkg-config (list glib "bin") which)) (list intltool pkg-config (list glib "bin") which))
(inputs (inputs
@ -1463,7 +1465,7 @@ of data to either CD/DVD/BD.")
(define-public mousepad (define-public mousepad
(package (package
(name "mousepad") (name "mousepad")
(version "0.6.1") (version "0.6.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://archive.xfce.org/src/apps/mousepad/" (uri (string-append "https://archive.xfce.org/src/apps/mousepad/"
@ -1471,7 +1473,7 @@ of data to either CD/DVD/BD.")
version ".tar.bz2")) version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"0dpzzy03hlw6gljp7ywdi6np41r88p2nr7rypwzy6zdwqwv5832n")))) "17fi33mkdz1nfmsgqlfa20l06wwy0s8lcj21cfg6ikdiihxwpjp7"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:configure-flags '(;; Use the GSettings keyfile backend rather than '(#:configure-flags '(;; Use the GSettings keyfile backend rather than
@ -1502,7 +1504,7 @@ of data to either CD/DVD/BD.")
(define-public xfce4-screenshooter (define-public xfce4-screenshooter
(package (package
(name "xfce4-screenshooter") (name "xfce4-screenshooter")
(version "1.10.4") (version "1.10.5")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://archive.xfce.org/src/apps/" (uri (string-append "https://archive.xfce.org/src/apps/"
@ -1512,7 +1514,7 @@ of data to either CD/DVD/BD.")
version ".tar.bz2")) version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"1534h1a3a8b9pl20zpccaifrlsrbsihdcdjndn9nmqalgrl9kwd2")))) "0732f1v6s1zkflq47rgdsimq73k7q94gwag1y9sza5smd8m1ywgs"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(list pkg-config intltool (list pkg-config intltool
@ -1531,7 +1533,7 @@ A plugin for the Xfce panel is also available.")
(define-public xfce4-screensaver (define-public xfce4-screensaver
(package (package
(name "xfce4-screensaver") (name "xfce4-screensaver")
(version "4.18.2") (version "4.18.3")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://archive.xfce.org/src/apps/" (uri (string-append "https://archive.xfce.org/src/apps/"
@ -1541,7 +1543,7 @@ A plugin for the Xfce panel is also available.")
version ".tar.bz2")) version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"161bdsvkbknaf9fpz4b1r4amnm72hzfmx9c6krg2396k2k2d5z74")))) "0f9sw703pcgz47689qgc550h2hpqlzvsfgggd7z9s6516rhk2wfi"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases
@ -1602,7 +1604,7 @@ A plugin for the Xfce panel is also available.")
(define-public xfce4-cpugraph-plugin (define-public xfce4-cpugraph-plugin
(package (package
(name "xfce4-cpugraph-plugin") (name "xfce4-cpugraph-plugin")
(version "1.2.8") (version "1.2.10")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://archive.xfce.org/src/panel-plugins/" (uri (string-append "https://archive.xfce.org/src/panel-plugins/"
@ -1611,7 +1613,7 @@ A plugin for the Xfce panel is also available.")
"/xfce4-cpugraph-plugin-" version ".tar.bz2")) "/xfce4-cpugraph-plugin-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"1gylfmpn36cm1b1kz0x8smy5hixzlhmdg5i53cj5fzgk4773id5z")))) "05frfn3y009xndks9rsw90jgk0v5zfarn5jqaqci45v9ab82sy9p"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(list intltool pkg-config)) (list intltool pkg-config))
@ -1787,7 +1789,7 @@ be clicked to open the chosen mount point.")
(define-public xfce4-genmon-plugin (define-public xfce4-genmon-plugin
(package (package
(name "xfce4-genmon-plugin") (name "xfce4-genmon-plugin")
(version "4.1.1") (version "4.2.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://archive.xfce.org/src/panel-plugins/" (uri (string-append "https://archive.xfce.org/src/panel-plugins/"
@ -1796,7 +1798,7 @@ be clicked to open the chosen mount point.")
"/xfce4-genmon-plugin-" version ".tar.bz2")) "/xfce4-genmon-plugin-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"0d81npcqnmkw2qaqa8c6igh9j5r4ivgb15zcjwxjkyhrzz89y4dj")))) "0qh3b818kbf5sc07dshkd54nhqncsk0inlwv21zq8h11bzp0i3cl"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(list intltool pkg-config)) (list intltool pkg-config))
@ -2195,7 +2197,7 @@ lan interface (signal state, signal quality, network name (SSID)).")
(define-public xfce4-weather-plugin (define-public xfce4-weather-plugin
(package (package
(name "xfce4-weather-plugin") (name "xfce4-weather-plugin")
(version "0.11.1") (version "0.11.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://archive.xfce.org/src/panel-plugins/" (uri (string-append "https://archive.xfce.org/src/panel-plugins/"
@ -2204,12 +2206,12 @@ lan interface (signal state, signal quality, network name (SSID)).")
"/xfce4-weather-plugin-" version ".tar.bz2")) "/xfce4-weather-plugin-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"0fajhibacccfw0rl8741iz7qkqls4ynn9760j78rbp6wl3wlcld4")))) "0sw7p8xsgyc7b5w92abigqz9mii79w2vdlprm5c0hmb3g3zhmm35"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(list intltool pkg-config)) (list intltool pkg-config))
(inputs (inputs
(list gtk+ libsoup-minimal-2 libxfce4ui libxml2 xfce4-panel)) (list gtk+ json-c libsoup-minimal-2 libxfce4ui libxml2 xfce4-panel))
(home-page (home-page
"https://goodies.xfce.org/projects/panel-plugins/xfce4-weather-plugin") "https://goodies.xfce.org/projects/panel-plugins/xfce4-weather-plugin")
(synopsis "Show information about local weather in the Xfce panel") (synopsis "Show information about local weather in the Xfce panel")
@ -2232,7 +2234,8 @@ local weather in the panel, using forecast data provided by the
"10bnb8q7sj60ahzfwrb3av4ngr17wk1p6jsnfv0yn8l90kksnb41")))) "10bnb8q7sj60ahzfwrb3av4ngr17wk1p6jsnfv0yn8l90kksnb41"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
(list pkg-config)) (list pkg-config
libxslt))
(inputs (inputs
(list glib)) (list glib))
(home-page "https://docs.xfce.org/xfce/xfce4-dev-tools/") (home-page "https://docs.xfce.org/xfce/xfce4-dev-tools/")

6
gnu/services/messaging.scm
View file

@ -427,6 +427,12 @@ See @url{https://prosody.im/doc/modules/mod_tls}."
@url{https://prosody.im/doc/modules/mod_saslauth}." @url{https://prosody.im/doc/modules/mod_saslauth}."
common) common)
(insecure-sasl-mechanisms
(string-list '("PLAIN" "LOGIN"))
"Set of mechanisms that will not be offered on unencrypted connections.
See @url{https://prosody.im/doc/modules/mod_saslauth}."
common)
(s2s-require-encryption? (s2s-require-encryption?
(boolean #f) (boolean #f)
"Whether to force all server-to-server connections to be encrypted or not. "Whether to force all server-to-server connections to be encrypted or not.

7
gnu/services/sddm.scm
View file

@ -3,6 +3,7 @@
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019 Jesse Gildersleve <jessejohngildersleve@protonmail.com> ;;; Copyright © 2019 Jesse Gildersleve <jessejohngildersleve@protonmail.com>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net> ;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2023, 2024 Zheng Junjie <873216071@qq.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -328,7 +329,11 @@ Relogin=" (if (sddm-configuration-relogin? config)
(service-extension account-service-type (service-extension account-service-type
(const %sddm-accounts)) (const %sddm-accounts))
(service-extension profile-service-type (service-extension profile-service-type
sddm-profile-service))) sddm-profile-service)
(service-extension localed-service-type
(compose
xorg-configuration-keyboard-layout
sddm-configuration-xorg))))
(default-value (sddm-configuration)) (default-value (sddm-configuration))
(description (description
"Run SDDM, a display and log-in manager for X11 and "Run SDDM, a display and log-in manager for X11 and

2
gnu/services/xorg.scm
View file

@ -14,6 +14,7 @@
;;; Copyright © 2022 Chris Marusich <cmmarusich@gmail.com> ;;; Copyright © 2022 Chris Marusich <cmmarusich@gmail.com>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2023 muradm <mail@muradm.net> ;;; Copyright © 2023 muradm <mail@muradm.net>
;;; Copyright © 2024 Zheng Junjie <873216071@qq.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -77,6 +78,7 @@
xorg-configuration-extra-config xorg-configuration-extra-config
xorg-configuration-server xorg-configuration-server
xorg-configuration-server-arguments xorg-configuration-server-arguments
xorg-configuration-keyboard-layout
%default-xorg-modules %default-xorg-modules
%default-xorg-fonts %default-xorg-fonts

2
gnu/tests/messaging.scm
View file

@ -145,7 +145,7 @@
(define %test-prosody (define %test-prosody
(let* ((config (prosody-configuration (let* ((config (prosody-configuration
(disable-sasl-mechanisms '()) (insecure-sasl-mechanisms '())
(virtualhosts (virtualhosts
(list (list
(virtualhost-configuration (virtualhost-configuration

48
guix/describe.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018-2021, 2024 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -27,6 +27,7 @@
sexp->channel sexp->channel
manifest-entry-channel) manifest-entry-channel)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-34)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:export (current-profile #:export (current-profile
current-profile-date current-profile-date
@ -55,20 +56,49 @@
;; later on. ;; later on.
(program-arguments)) (program-arguments))
(define (find-profile program)
"Return the profile created by 'guix pull' or 'guix time-machine' that
PROGRAM lives in; PROGRAM is expected to end in \"/bin/guix\". Return #f if
such a profile could not be found."
(and (string-suffix? "/bin/guix" program)
;; Note: We want to do _lexical dot-dot resolution_. Using ".." for
;; real would instead take us into the /gnu/store directory that
;; ~/.config/guix/current/bin points to, whereas we want to obtain
;; ~/.config/guix/current.
(let ((candidate (dirname (dirname program))))
(and (file-exists? (string-append candidate "/manifest"))
(let ((manifest (guard (c ((profile-error? c) #f))
(profile-manifest candidate))))
(define (fallback)
(or (and=> (false-if-exception (readlink program))
find-profile)
(and=> (false-if-exception (readlink (dirname program)))
(lambda (target)
(find-profile (in-vicinity target "guix"))))))
;; Is CANDIDATE the "right" profile--the one created by 'guix
;; pull'? It might be that CANDIDATE itself contains a
;; symlink to the "right" profile; this happens for instance
;; when using 'guix shell -CW'. Thus, if CANDIDATE doesn't
;; fit the bill, dereference PROGRAM or its parent directory
;; and try again.
(match (and manifest
(manifest-lookup manifest
(manifest-pattern (name "guix"))))
(#f
(fallback))
(entry
(if (assq 'source (manifest-entry-properties entry))
candidate
(fallback)))))))))
(define current-profile (define current-profile
(mlambda () (mlambda ()
"Return the profile (created by 'guix pull') the calling process lives in, "Return the profile (created by 'guix pull') the calling process lives in,
or #f if this is not applicable." or #f if this is not applicable."
(match initial-program-arguments (match initial-program-arguments
((program . _) ((program . _)
(and (string-suffix? "/bin/guix" program) (find-profile program)))))
;; Note: We want to do _lexical dot-dot resolution_. Using ".."
;; for real would instead take us into the /gnu/store directory
;; that ~/.config/guix/current/bin points to, whereas we want to
;; obtain ~/.config/guix/current.
(let ((candidate (dirname (dirname program))))
(and (file-exists? (string-append candidate "/manifest"))
candidate)))))))
(define (current-profile-date) (define (current-profile-date)
"Return the creation date of the current profile (produced by 'guix pull'), "Return the creation date of the current profile (produced by 'guix pull'),

4
guix/profiles.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013-2023 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013-2024 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org> ;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
;;; Copyright © 2014, 2016 Alex Kost <alezost@gmail.com> ;;; Copyright © 2014, 2016 Alex Kost <alezost@gmail.com>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
@ -652,6 +652,8 @@ denoting a specific output of a package."
vlist-null))) vlist-null)))
(_ (_
(raise (condition (raise (condition
(&profile-error
(profile (and=> (source-property sexp 'filename) dirname)))
(&message (message "unsupported manifest format"))))))) (&message (message "unsupported manifest format")))))))
(define (read-manifest port) (define (read-manifest port)

2
guix/scripts/git/authenticate.scm
View file

@ -100,6 +100,8 @@ Authenticate the given Git checkout using COMMIT/SIGNER as its introduction.\n")
(display (G_ " (display (G_ "
-k, --keyring=REFERENCE -k, --keyring=REFERENCE
load keyring from REFERENCE, a Git branch")) load keyring from REFERENCE, a Git branch"))
(display (G_ "
--end=COMMIT authenticate revisions up to COMMIT"))
(display (G_ " (display (G_ "
--stats display commit signing statistics upon completion")) --stats display commit signing statistics upon completion"))
(display (G_ " (display (G_ "