me/guix
Archived
1
0
Fork 0
Code Activity

Merge branch 'master' into gnome-team

Browse source
This commit is contained in:
Liliana Marie Prikler 2023-07-14 07:46:15 +02:00
commit d67507cacf
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
221 changed files with 184623 additions and 134269 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

258
doc/guix.texi
View file

@ -5771,18 +5771,99 @@ machines with limited resources.
Let's say you have a bunch of custom package variants or personal packages
that you think would make little sense to contribute to the Guix project, but
would like to have these packages transparently available to you at the
command line. You would first write modules containing those package
definitions (@pxref{Package Modules}), maintain them in a Git repository, and
then you and anyone else can use it as an additional channel to get packages
from. Neat, no?
command line. By creating a @dfn{channel}, you can use and publish such
a package collection. This involves the following steps:
@enumerate
@item
Channels live in a Git repository so the first step, when creating a
channel, is to create its repository:
@example
mkdir my-channel
cd my-channel
git init
@end example
@item
The next step is to create files containing package modules
(@pxref{Package Modules}), each of which will contain one or more
package definitions (@pxref{Defining Packages}). A channel can provide
things other than packages, such as build systems or services; we're
using packages as most common use case.
For example, Alice might want to provide a module called @code{(alice
packages greetings)} that will provide her favorite ``hello world''
implementations. To do that Alice will create a directory corresponding
to that module name.
@example
mkdir -p alice/packages
$EDITOR alice/packages/greetings.scm
git add alice/packages/greetings.scm
@end example
You can name your package modules however you like; the main constraint
to keep in mind is to avoid name clashes with other package collections,
which is why our hypothetical Alice wisely chose the @code{(alice
packages @dots{})} name space.
Note that you can also place modules in a sub-directory of the
repository; @pxref{Package Modules in a Sub-directory}, for more info on
that.
@item
With this first module in place, the next step is to test the packages
it provides. This can be done with @command{guix build}, which needs to
be fold to look for modules in the Git checkout. For example, assuming
@code{(alice packages greetings)} provides a package called
@code{hi-from-alice}, Alice will run this command from the Git checkout:
@example
guix build -L. hi-from-alice
@end example
@noindent
... where @code{-L.} adds the current directory to Guile's load path
(@pxref{Load Paths,,, guile, GNU Guile Reference Manual}).
@item
It might take Alice a few iterations to obtain satisfying package
definitions. Eventually Alice will commit this file:
@example
git commit
@end example
As a channel author, consider bundling authentication material with your
channel so that users can authenticate it. @xref{Channel
Authentication}, and @ref{Specifying Channel Authorizations}, for info
on how to do it.
@item
To use Alice's channel, anyone can now add it to their channel file
(@pxref{Specifying Additional Channels}) and run @command{guix pull}
(@pxref{Invoking guix pull}):
@example
$EDITOR ~/.config/guix/channels.scm
guix pull
@end example
Guix will now behave as if the root directory of that channel's Git
repository had been permanently added to the Guile load path. In this
example, @code{(alice packages greetings)} will automatically be found
by the @command{guix} command.
@end enumerate
Voilà!
@c What follows stems from discussions at
@c <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=22629#134> as well as
@c earlier discussions on guix-devel@gnu.org.
@quotation Warning
Before you, dear user, shout---``woow this is @emph{soooo coool}!''---and
publish your personal channel to the world, we would like to share a few words
of caution:
Before you publish your channel, we would like to share a few words of
caution:
@itemize
@item
@ -5793,13 +5874,11 @@ available to all Guix users and benefit from the project's quality assurance
process.
@item
When you maintain package definitions outside Guix, we, Guix developers,
consider that @emph{the compatibility burden is on you}. Remember that
package modules and package definitions are just Scheme code that uses various
programming interfaces (APIs). We want to remain free to change these APIs to
keep improving Guix, possibly in ways that break your channel. We never
change APIs gratuitously, but we will @emph{not} commit to freezing APIs
either.
Package modules and package definitions are Scheme code that uses
various programming interfaces (APIs). We, Guix developers, never
change APIs gratuitously, but we do @emph{not} commit to freezing APIs
either. When you maintain package definitions outside Guix, we consider
that @emph{the compatibility burden is on you}.
@item
Corollary: if you're using an external channel and that channel breaks, please
@ -5813,21 +5892,6 @@ share your improvements, which are basic tenets of
email us at @email{guix-devel@@gnu.org} if you'd like to discuss this.
@end quotation
To create a channel, create a Git repository containing your own package
modules and make it available. The repository can contain anything, but a
useful channel will contain Guile modules that export packages. Once you
start using a channel, Guix will behave as if the root directory of that
channel's Git repository has been added to the Guile load path (@pxref{Load
Paths,,, guile, GNU Guile Reference Manual}). For example, if your channel
contains a file at @file{my-packages/my-tools.scm} that defines a Guile
module, then the module will be available under the name @code{(my-packages
my-tools)}, and you will be able to use it like any other module
(@pxref{Modules,,, guile, GNU Guile Reference Manual}).
As a channel author, consider bundling authentication material with your
channel so that users can authenticate it. @xref{Channel
Authentication}, and @ref{Specifying Channel Authorizations}, for info
on how to do it.
@node Package Modules in a Sub-directory
@ -22708,7 +22772,7 @@ and setuid enabled. One can thus disable setuid:
(service screen-locker-service-type
(screen-locker-configuration
(name "swaylock")
(program (file-append xlockmore "/bin/xlock"))
(program (file-append swaylock "/bin/swaylock"))
(using-pam? #t)
(using-setuid? #f)))
@end lisp
@ -36840,7 +36904,8 @@ Defaults to @samp{'()}.
@end deftypevr
@deftypevr {@code{cgit-configuration} parameter} file-object readme
Text which will be used as default value for @code{cgit-repo-readme}.
Text which will be used as default @code{repository-cgit-configuration}
@code{readme}.
Defaults to @samp{""}.
@ -37005,7 +37070,7 @@ Defaults to @samp{"/"}.
@end deftypevr
@deftypevr {@code{cgit-configuration} parameter} repository-cgit-configuration-list repositories
A list of @dfn{cgit-repo} records to use with config.
A list of @code{repository-cgit-configuration} records.
Defaults to @samp{'()}.
@ -42927,6 +42992,135 @@ for example).
@end deftp
@subsubheading Inputrc Profile Service
@cindex inputrc
@cindex readline
The @uref{https://tiswww.cwru.edu/php/chet/readline/rltop.html, GNU
Readline package} includes Emacs and vi editing modes, with the ability
to customize the configuration with settings in the @file{~/.inputrc}
file. With the @code{gnu home services shells} module, you can setup
your readline configuration in a predictable manner, as shown below.
For more information about configuring an @file{~/.inputrc} file,
@pxref{Readline Init File,,, readline, GNU Readline}.
@defvar home-inputrc-service-type
This is the service to setup various @file{.inputrc} configurations. The
settings in @file{.inputrc} are read by all programs which are linked
with GNU Readline.
Here is an example of a service and its configuration that you could add
to the @code{services} field of your @code{home-environment}:
@lisp
(service home-inputrc-service-type
(home-inputrc-configuration
(key-bindings
`(("Control-l" . "clear-screen")))
(variables
`(("bell-style" . "visible")
("colored-completion-prefix" . #t)
("editing-mode" . "vi")
("show-mode-in-prompt" . #t)))
(conditional-constructs
`(("$if mode=vi" .
,(home-inputrc-configuration
(variables
`(("colored-stats" . #t)
("enable-bracketed-paste" . #t)))))
("$else" .
,(home-inputrc-configuration
(variables
`(("show-all-if-ambiguous" . #t)))))
("endif" . #t)
("$include" . "/etc/inputrc")
("$include" . ,(file-append
(specification->package "readline")
"/etc/inputrc"))))))
@end lisp
The example above starts with a combination of @code{key-bindings} and
@code{variables}. The @code{conditional-constructs} show how it is
possible to add conditionals and includes. In the example above
@code{colored-stats} is only enabled if the editing mode is @code{vi}
style, and it also reads any additional configuration located in
@file{/etc/inputrc} or in @file{/gnu/store/@dots{}-readline/etc/inputrc}.
The value associated with a @code{home-inputrc-service-type} instance
must be a @code{home-inputrc-configuration} record, as described below.
@end defvar
@anchor{home-inputrc-configuration}
@deftp {Data Type} home-inputrc-configuration
Available @code{home-inputrc-configuration} fields are:
@table @asis
@item @code{key-bindings} (default: @code{'()}) (type: alist)
Association list of readline key bindings to be added to the
@file{~/.inputrc} file.
@lisp
'((\"Control-l\" . \"clear-screen\"))
@end lisp
turns into
@example
Control-l: clear-screen
@end example
@item @code{variables} (default: @code{'()}) (type: alist)
Association list of readline variables to set.
@lisp
'((\"bell-style\" . \"visible\")
(\"colored-completion-prefix\" . #t))
@end lisp
turns into
@example
set bell-style visible
set colored-completion-prefix on
@end example
@item @code{conditional-constructs} (default: @code{'()}) (type: alist)
Association list of conditionals to add to the initialization file. This
includes @command{$if}, @command{else}, @command{endif} and @command{include}
and they receive a value of another @command{home-inputrc-configuration}.
@lisp
(conditional-constructs
`((\"$if mode=vi\" .
,(home-inputrc-configuration
(variables
`((\"show-mode-in-prompt\" . #t)))))
(\"$else\" .
,(home-inputrc-configuration
(key-bindings
`((\"Control-l\" . \"clear-screen\")))))
(\"$endif\" . #t)))
@end lisp
turns into
@example
$if mode=vi
set show-mode-in-prompt on
$else
Control-l: clear-screen
$endif
@end example
@item @code{extra-content} (default: @code{""}) (type: text-config)
Extra content appended as-is to the configuration file. Run @command{man
readline} for more information about all the configuration options.
@end table
@end deftp
@node Mcron Home Service
@subsection Scheduled User's Job Execution

3
etc/guix-install.sh
View file

@ -363,7 +363,8 @@ sys_create_store()
cd "$tmp_path"
_msg "${INF}Installing /var/guix and /gnu..."
tar --extract --file "$pkg" -C /
# Strip (skip) the leading ‘.’ component, which fails on read-only ‘/’.
tar --extract --strip-components=1 --file "$pkg" -C /
_msg "${INF}Linking the root user's profile"
mkdir -p ~root/.config/guix

53
gnu/home/services.scm
View file

@ -53,6 +53,7 @@
literal-string?
literal-string-value
with-shell-quotation-bindings
environment-variable-shell-definitions
home-files-directory
xdg-configuration-files-directory
@ -183,11 +184,10 @@ configuration files that the user has declared in their
literal-string?
(str literal-string-value))
(define (environment-variable-shell-definitions variables)
"Return a gexp that evaluates to a list of POSIX shell statements defining
VARIABLES, a list of environment variable name/value pairs. The returned code
ensures variable values are properly quoted."
#~(let* ((quote-string
(define (with-shell-quotation-bindings exp)
"Insert EXP, a gexp, in a lexical environment providing the
'shell-single-quote' and 'shell-double-quote' bindings."
#~(let* ((quote-string
(lambda (value quoted-chars)
(list->string (string-fold-right
(lambda (chr lst)
@ -206,24 +206,31 @@ ensures variable values are properly quoted."
;; Single-quote VALUE to enter a literal string.
(string-append "'" (quote-string value '(#\'))
"'"))))
(string-append
#$@(map (match-lambda
((key . #f)
"")
((key . #t)
#~(string-append "export " #$key "\n"))
((key . (or (? string? value)
(? file-like? value)
(? gexp? value)))
#~(string-append "export " #$key "="
(shell-double-quote #$value)
"\n"))
((key . (? literal-string? value))
#~(string-append "export " #$key "="
(shell-single-quote
#$(literal-string-value value))
"\n")))
variables))))
#$exp))
(define (environment-variable-shell-definitions variables)
"Return a gexp that evaluates to a list of POSIX shell statements defining
VARIABLES, a list of environment variable name/value pairs. The returned code
ensures variable values are properly quoted."
(with-shell-quotation-bindings
#~(string-append
#$@(map (match-lambda
((key . #f)
"")
((key . #t)
#~(string-append "export " #$key "\n"))
((key . (or (? string? value)
(? file-like? value)
(? gexp? value)))
#~(string-append "export " #$key "="
(shell-double-quote #$value)
"\n"))
((key . (? literal-string? value))
#~(string-append "export " #$key "="
(shell-single-quote
#$(literal-string-value value))
"\n")))
variables))))
(define (environment-variables->setup-environment-script vars)
"Return a file that can be sourced by a POSIX compliant shell which

162
gnu/home/services/shells.scm
View file

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2021 Andrew Tropin <andrew@trop.in>
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;; Copyright © 2023 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; This file is part of GNU Guix.
;;;
@ -44,7 +45,10 @@
home-fish-service-type
home-fish-configuration
home-fish-extension))
home-fish-extension
home-inputrc-service-type
home-inputrc-configuration))
;;; Commentary:
;;;
@ -309,16 +313,24 @@ source ~/.profile
;;;
(define (bash-serialize-aliases field-name val)
#~(string-append
#$@(map
(match-lambda
((key . #f)
"")
((key . #t)
#~(string-append "alias " #$key "\n"))
((key . value)
#~(string-append "alias " #$key "=\"" #$value "\"\n")))
val)))
(with-shell-quotation-bindings
#~(string-append
#$@(map
(match-lambda
((key . #f)
"")
((key . #t)
#~(string-append "alias " #$key "\n"))
((key . (? literal-string? value))
#~(string-append "alias " #$key "="
(shell-single-quote
#$(literal-string-value value))
"\n"))
((key . value)
#~(string-append "alias " #$key "="
(shell-double-quote #$value)
"\n")))
val))))
(define-configuration home-bash-configuration
(package
@ -626,6 +638,134 @@ end\n\n")
(description "\
Install and configure Fish, the friendly interactive shell.")))
;;;
;;; Readline.
;;;
(define (serialize-inputrc-key-bindings field-name val)
#~(string-append
#$@(map
(match-lambda
((key . value)
#~(string-append #$key ": " #$value "\n")))
val)))
(define (serialize-inputrc-variables field-name val)
#~(string-append
#$@(map
(match-lambda
((key . #f)
#~(string-append "set " #$key " off\n"))
((key . #t)
#~(string-append "set " #$key " on\n"))
((key . value)
#~(string-append "set " #$key " " #$value "\n")))
val)))
(define (serialize-inputrc-conditional-constructs field-name val)
#~(string-append
#$@(map
(match-lambda
(("$endif" . _)
"$endif\n")
(("$include" . value)
#~(string-append "$include " #$value "\n"))
;; TODO: key can only be "$if" or "$else".
((key . value)
#~(string-append #$key "\n"
#$(serialize-configuration
value
home-inputrc-configuration-fields))))
val)))
(define (serialize-inputrc-extra-content field-name value)
#~(if (string=? #$value "") "" (string-append #$value "\n")))
(define-configuration home-inputrc-configuration
(key-bindings
(alist '())
"Association list of readline key bindings to be added to the
@code{~/.inputrc} file. This is where code like this:
@lisp
'((\"Control-l\" . \"clear-screen\"))
@end lisp
turns into
@example
Control-l: clear-screen
@end example"
(serializer serialize-inputrc-key-bindings))
(variables
(alist '())
"Association list of readline variables to set. This is where configuration
options like this:
@lisp
'((\"bell-style\" . \"visible\")
(\"colored-completion-prefix\" . #t))
@end lisp
turns into
@example
set bell-style visible
set colored-completion-prefix on
@end example"
(serializer serialize-inputrc-variables))
(conditional-constructs
(alist '())
"Association list of conditionals to add to the initialization file. This
includes @command{$if}, @command{else}, @command{endif} and @command{include}
and they receive a value of another @command{home-inputrc-configuration}.
@lisp
(conditional-constructs
`((\"$if mode=vi\" .
,(home-inputrc-configuration
(variables
`((\"show-mode-in-prompt\" . #t)))))
(\"$else\" .
,(home-inputrc-configuration
(key-bindings
`((\"Control-l\" . \"clear-screen\")))))
(\"$endif\" . #t)))
@end lisp
turns into
@example
$if mode=vi
set show-mode-in-prompt on
$else
Control-l: clear-screen
$endif
@end example"
(serializer serialize-inputrc-conditional-constructs))
(extra-content
(string "")
"Extra content appended as-is to the configuration file. Run @command{man
readline} for more information about all the configuration options."
(serializer serialize-inputrc-extra-content)))
(define (home-inputrc-files config)
(list
`(".inputrc"
,(mixed-text-file "inputrc"
(serialize-configuration
config
home-inputrc-configuration-fields)))))
(define home-inputrc-service-type
(service-type (name 'inputrc)
(extensions
(list (service-extension home-files-service-type
home-inputrc-files)))
(default-value (home-inputrc-configuration))
(description "Configure readline in @code{.inputrc}.")))
(define (generate-home-shell-profile-documentation)
(generate-documentation

19
gnu/installer/services.scm
View file

@ -4,6 +4,7 @@
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2021 Leo Famulari <leo@famulari.name>
;;; Copyright © 2023 Denys Nykula <vegan@libre.net.ua>
;;;
;;; This file is part of GNU Guix.
;;;
@ -23,6 +24,7 @@
(define-module (gnu installer services)
#:use-module (guix records)
#:use-module (guix read-print)
#:use-module (ice-9 match)
#:use-module (srfi srfi-1)
#:export (system-service?
system-service-name
@ -159,6 +161,19 @@
(base (if desktop?
'%desktop-services
'%base-services))
(native-console-font (match (getenv "LANGUAGE")
((or "be" "bg" "el" "eo" "kk" "ky"
"mk" "mn" "ru" "sr" "tg" "uk")
"LatGrkCyr-8x16")
(_ #f)))
(services (if native-console-font
`(modify-services ,base
(console-font-service-type
config => (map (lambda (tty)
(cons (car tty)
,native-console-font))
config)))
base))
(service-heading (list (vertical-space 1)
(comment (G_ "\
;; Below is the list of system services. To search for available
@ -177,7 +192,7 @@
%base-packages))))
,@service-heading
(services ,base))
(services ,services))
`(,@(if (null? packages)
'()
`(,@package-heading
@ -199,4 +214,4 @@
,(comment (G_ "\
;; This is the default list of services we
;; are appending to.\n"))
,base))))))
,services))))))

21
gnu/local.mk
View file

@ -50,7 +50,7 @@
# Copyright © 2022 Daniel Meißner <daniel.meissner-i4k@ruhr-uni-bochum.de>
# Copyright © 2022 Remco van 't Veer <remco@remworks.net>
# Copyright © 2022 Artyom V. Poptsov <poptsov.artyom@gmail.com>
# Copyright © 2022 John Kehayias <john.kehayias@protonmail.com>
# Copyright © 2022, 2023 John Kehayias <john.kehayias@protonmail.com>
# Copyright © 2022 muradm <mail@muradm.net>
# Copyright © 2022 Hilton Chain <hako@ultrarare.space>
# Copyright © 2022 Alex Griffin <a@ajgrf.com>
@ -1056,7 +1056,6 @@ dist_patch_DATA = \
%D%/packages/patches/dee-vapi.patch \
%D%/packages/patches/desmume-gcc6-fixes.patch \
%D%/packages/patches/desmume-gcc7-fixes.patch \
%D%/packages/patches/dezyne-add-missing-shebangs.patch \
%D%/packages/patches/dfu-programmer-fix-libusb.patch \
%D%/packages/patches/diffutils-fix-signal-processing.patch \
%D%/packages/patches/directfb-davinci-glibc-228-compat.patch \
@ -1074,6 +1073,7 @@ dist_patch_DATA = \
%D%/packages/patches/dune-istl-fix-solver-playground.patch \
%D%/packages/patches/dvd+rw-tools-add-include.patch \
%D%/packages/patches/dynaconf-unvendor-deps.patch \
%D%/packages/patches/dyninst-fix-glibc-compatibility.patch \
%D%/packages/patches/efivar-211.patch \
%D%/packages/patches/eigen-fix-strict-aliasing-bug.patch \
%D%/packages/patches/einstein-build.patch \
@ -1158,6 +1158,9 @@ dist_patch_DATA = \
%D%/packages/patches/freeimage-unbundle.patch \
%D%/packages/patches/fuse-glibc-2.34.patch \
%D%/packages/patches/fuse-overlapping-headers.patch \
%D%/packages/patches/fuzzylite-relative-path-in-tests.patch \
%D%/packages/patches/fuzzylite-use-catch2.patch \
%D%/packages/patches/fuzzylite-soften-float-equality.patch \
%D%/packages/patches/fxdiv-system-libraries.patch \
%D%/packages/patches/gajim-honour-GAJIM_PLUGIN_PATH.patch \
%D%/packages/patches/ganeti-disable-version-symlinks.patch \
@ -1226,7 +1229,6 @@ dist_patch_DATA = \
%D%/packages/patches/genimage-mke2fs-test.patch \
%D%/packages/patches/geoclue-config.patch \
%D%/packages/patches/gettext-libunicode-update.patch \
%D%/packages/patches/git-header-cmd.patch \
%D%/packages/patches/ghc-8.0-fall-back-to-madv_dontneed.patch \
%D%/packages/patches/ghc-9.2-glibc-2.33-link-order.patch \
%D%/packages/patches/ghc-9.2-grep-warnings.patch \
@ -1376,6 +1378,7 @@ dist_patch_DATA = \
%D%/packages/patches/id3lib-CVE-2007-4460.patch \
%D%/packages/patches/id3lib-UTF16-writing-bug.patch \
%D%/packages/patches/idris-test-ffi008.patch \
%D%/packages/patches/igt-gpu-tools-Use-libproc2.patch \
%D%/packages/patches/ilmbase-fix-tests.patch \
%D%/packages/patches/imagemagick-CVE-2020-27829.patch \
%D%/packages/patches/imagemagick-ReadDCMImage-fix.patch \
@ -1411,6 +1414,7 @@ dist_patch_DATA = \
%D%/packages/patches/java-xerces-bootclasspath.patch \
%D%/packages/patches/java-xerces-build_dont_unzip.patch \
%D%/packages/patches/java-xerces-xjavac_taskdef.patch \
%D%/packages/patches/jbr-17-xcursor-no-dynamic.patch \
%D%/packages/patches/jfsutils-add-sysmacros.patch \
%D%/packages/patches/jfsutils-gcc-compat.patch \
%D%/packages/patches/jfsutils-include-systypes.patch \
@ -1424,8 +1428,9 @@ dist_patch_DATA = \
%D%/packages/patches/libvirt-add-install-prefix.patch \
%D%/packages/patches/libziparchive-add-includes.patch \
%D%/packages/patches/lightdm-arguments-ordering.patch \
%D%/packages/patches/lightdm-vncserver-check.patch \
%D%/packages/patches/lightdm-vnc-ipv6.patch \
%D%/packages/patches/lightdm-vnc-color-depth.patch \
%D%/packages/patches/lightdm-vncserver-check.patch \
%D%/packages/patches/localed-xorg-keyboard.patch \
%D%/packages/patches/kcontacts-incorrect-country-name.patch \
%D%/packages/patches/kde-cli-tools-delay-mime-db.patch \
@ -1544,8 +1549,6 @@ dist_patch_DATA = \
%D%/packages/patches/llvm-9-fix-bitcast-miscompilation.patch \
%D%/packages/patches/llvm-9-fix-lpad-miscompilation.patch \
%D%/packages/patches/llvm-9-fix-scev-miscompilation.patch \
%D%/packages/patches/llvm-roc-4.0.0-remove-isystem-usr-include.patch \
%D%/packages/patches/llvm-roc-5.0.0-linkdl.patch \
%D%/packages/patches/lm-sensors-hwmon-attrs.patch \
%D%/packages/patches/lsh-fix-x11-forwarding.patch \
%D%/packages/patches/lsof-fatal-test-failures.patch \
@ -1834,6 +1837,7 @@ dist_patch_DATA = \
%D%/packages/patches/python-typing-inspect-fix.patch \
%D%/packages/patches/python-unittest2-python3-compat.patch \
%D%/packages/patches/python-unittest2-remove-argparse.patch \
%D%/packages/patches/python-vega-datasets-remove-la-riots-code.patch \
%D%/packages/patches/python-versioneer-guix-support.patch \
%D%/packages/patches/python-waitress-fix-tests.patch \
%D%/packages/patches/python-werkzeug-tests.patch \
@ -1876,9 +1880,10 @@ dist_patch_DATA = \
%D%/packages/patches/remake-impure-dirs.patch \
%D%/packages/patches/restic-0.9.6-fix-tests-for-go1.15.patch \
%D%/packages/patches/rng-tools-revert-build-randstat.patch \
%D%/packages/patches/rocclr-5.6.0-enable-gfx800.patch \
%D%/packages/patches/rocm-bandwidth-test-5.5.0-fix-includes.patch \
%D%/packages/patches/rocm-comgr-3.1.0-dependencies.patch \
%D%/packages/patches/rocm-opencl-runtime-4.3-noclinfo.patch \
%D%/packages/patches/rocm-opencl-runtime-4.3-noopencl.patch \
%D%/packages/patches/rottlog-direntry.patch \
%D%/packages/patches/ruby-hiredis-use-system-hiredis.patch \
%D%/packages/patches/ruby-hydra-minimal-no-byebug.patch \
@ -2051,6 +2056,7 @@ dist_patch_DATA = \
%D%/packages/patches/vboot-utils-fix-format-load-address.patch \
%D%/packages/patches/vboot-utils-fix-tests-show-contents.patch \
%D%/packages/patches/vboot-utils-skip-test-workbuf.patch \
%D%/packages/patches/vcmi-disable-privacy-breach.patch \
%D%/packages/patches/vinagre-newer-freerdp.patch \
%D%/packages/patches/vinagre-newer-rdp-parameters.patch \
%D%/packages/patches/virtuoso-ose-remove-pre-built-jar-files.patch \
@ -2072,6 +2078,7 @@ dist_patch_DATA = \
%D%/packages/patches/wordnet-CVE-2008-2149.patch \
%D%/packages/patches/wordnet-CVE-2008-3908-pt1.patch \
%D%/packages/patches/wordnet-CVE-2008-3908-pt2.patch \
%D%/packages/patches/wpa-supplicant-dbus-group-policy.patch \
%D%/packages/patches/x265-arm-flags.patch \
%D%/packages/patches/xdg-desktop-portal-wlr-harcoded-length.patch\
%D%/packages/patches/xf86-video-ark-remove-mibstore.patch \

133
gnu/packages/admin.scm
View file

@ -592,7 +592,7 @@ graphs and can export its output to different formats.")
(define-public facter
(package
(name "facter")
(version "4.0.52")
(version "4.4.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -601,63 +601,61 @@ graphs and can export its output to different formats.")
(file-name (git-file-name name version))
(sha256
(base32
"05j4q87sak1f1isj7ngzr59h3j3xskfwjjwfv0xd7lhwcaxg3a3c"))))
"080v0ml2svw2vbzfa659v8718pmhh2kav0l0q1jjvc6mm8sgnmmn"))))
(build-system ruby-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'delete-facter-ng-gemspec
(lambda _
;; XXX: ruby-build-system incorrectly finds
;; facter-ng.gemspec from this directory and tries to
;; build that instead of the proper facter.gemspec.
;; Just delete it as a workaround, as it appears to
;; only exist for backwards-compatibility after the
;; facter-ng->facter rename.
(delete-file "agent/facter-ng.gemspec")
#t))
(add-after 'unpack 'embed-absolute-references
;; Refer to absolute executable file names to avoid propagation.
(lambda* (#:key inputs #:allow-other-keys)
(substitute* (find-files "lib/facter/resolvers" "\\.rb$")
(("execute\\('(which |)([^ ']+)" _ _ name)
(string-append "execute('" (or (which name)
name))))
#t))
(delete 'check)
(add-after 'wrap 'check
(lambda* (#:key tests? outputs #:allow-other-keys)
;; XXX: The test suite wants to run Bundler and
;; complains that the gemspec is invalid. For now
;; just make sure that we can run the wrapped
;; executable directly.
(if tests?
(invoke (string-append (assoc-ref outputs "out")
"/bin/facter")
;; Many facts depend on /sys, /etc/os-release,
;; etc, so we only run a small sample.
"facterversion" "architecture"
"kernel" "kernelversion")
(format #t "tests disabled~%"))
#t)))))
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'delete-facter-ng-gemspec
(lambda _
;; XXX: ruby-build-system incorrectly finds
;; facter-ng.gemspec from this directory and tries to
;; build that instead of the proper facter.gemspec.
;; Just delete it as a workaround, as it appears to
;; only exist for backwards-compatibility after the
;; facter-ng->facter rename.
(delete-file "agent/facter-ng.gemspec")))
(add-after 'unpack 'embed-absolute-references
;; Refer to absolute executable file names to avoid propagation.
(lambda* (#:key inputs #:allow-other-keys)
(substitute* (find-files "lib/facter/resolvers" "\\.rb$")
(("execute\\('(which |)([^ ']+)" _ _ name)
(string-append "execute('" (or (which name)
name))))))
(delete 'check)
(add-after 'wrap 'check
(lambda* (#:key tests? outputs #:allow-other-keys)
;; XXX: The test suite wants to run Bundler and
;; complains that the gemspec is invalid. For now
;; just make sure that we can run the wrapped
;; executable directly.
(if tests?
(invoke (string-append (assoc-ref outputs "out")
"/bin/facter")
;; Many facts depend on /sys, /etc/os-release,
;; etc, so we only run a small sample.
"facterversion" "architecture"
"kernel" "kernelversion")
(format #t "tests disabled~%")))))))
(inputs
`(("ruby-hocon" ,ruby-hocon)
("ruby-sys-filesystem" ,ruby-sys-filesystem)
("ruby-thor" ,ruby-thor)
(list ruby-hocon
ruby-sys-filesystem
ruby-thor
;; For ‘embed-absolute-references’.
("dmidecode" ,dmidecode)
("inetutils" ,inetutils) ; for ‘hostname’
("iproute" ,iproute)
("pciutils" ,pciutils)
("util-linux" ,util-linux)))
;; For ‘embed-absolute-references’.
dmidecode
inetutils ; for ‘hostname’
iproute
pciutils
util-linux))
(synopsis "Collect and display system facts")
(description
"Facter is a tool that gathers basic facts about nodes (systems) such
as hardware details, network settings, OS type and version, and more. These
facts can be collected on the command line with the @command{facter} command
or via the @code{facter} Ruby library.")
(home-page "https://github.com/puppetlabs/facter-ng")
(home-page "https://github.com/puppetlabs/facter")
(license license:expat)))
(define-public ttyload
@ -1661,14 +1659,14 @@ network statistics collection, security monitoring, network debugging, etc.")
(define-public tcpdump
(package
(name "tcpdump")
(version "4.99.1")
(version "4.99.4")
(source (origin
(method url-fetch)
(uri (string-append "https://www.tcpdump.org/release/tcpdump-"
version ".tar.gz"))
(sha256
(base32
"1ghfs5gifzrk3813zf9zalfbjs70wg6llz6q31k180r7zf2nkcvr"))))
"1slzwjk5f8sygwxqci4vkbas0qqcgs5a0w3f8br6p7gjn8dj6ch2"))))
(build-system gnu-build-system)
(inputs (list libpcap openssl))
(native-inputs (list perl)) ; for tests
@ -2733,7 +2731,7 @@ various ways that may be running with too much privilege.")
(define-public smartmontools
(package
(name "smartmontools")
(version "7.2")
(version "7.3")
(source (origin
(method url-fetch)
(uri (string-append
@ -2741,7 +2739,7 @@ various ways that may be running with too much privilege.")
version "/smartmontools-" version ".tar.gz"))
(sha256
(base32
"1mlc25sd5rgj5xmzcllci47inmfdw7cp185fday6hc9rwqkqmnaw"))))
"0ax2wf5j8k2fbm85s0rbj9sajn5q3j2a2k22wyqcyn0cin0ghi55"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags
@ -3543,24 +3541,27 @@ a new command using the matched rule, and runs it.")
(define-public di
(package
(name "di")
(version "4.51")
(version "4.52")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/diskinfo-di/di-" version ".tar.gz"))
(uri (string-append "mirror://sourceforge/diskinfo-di/"
"di-" version ".tar.gz"))
(sha256
(base32 "1fv12j9b9sw6p38lcbzcw87zl5qp1aa7a4a4jn3449zz9af15ckr"))))
(base32 "07vsnn1gxm3r7dchbrq63iazd64gza2ac7b2m1039708rf5flxdp"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; obscure test failures
#:phases
(modify-phases %standard-phases
(delete 'configure) ; no configure script
(add-before 'build 'setup-environment
(lambda* (#:key outputs #:allow-other-keys)
(setenv "CC" ,(cc-for-target))
(setenv "prefix" (assoc-ref outputs "out")))))
#:make-flags (list "--environment-overrides")))
(list
#:tests? #f ; obscure test failures
#:phases
#~(modify-phases %standard-phases
(delete 'configure) ; no configure script
(add-before 'build 'override-environment
(lambda _
(setenv "CC" #$(cc-for-target))
(setenv "prefix" #$output))))
#:make-flags
#~(list "--environment-overrides")))
(home-page "https://gentoo.com/di/")
(synopsis "Advanced df like disk information utility")
(description
@ -3903,7 +3904,9 @@ buffers.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0d6jsj77qddccv0vfmqmbw3k2prvxzvmgc8zdi83gdi3wpp5i7zd"))))
(base32 "0d6jsj77qddccv0vfmqmbw3k2prvxzvmgc8zdi83gdi3wpp5i7zd"))
(patches
(search-patches "igt-gpu-tools-Use-libproc2.patch"))))
(build-system meson-build-system)
(arguments
`(#:tests? #f ; many of the tests try to load kernel modules

4
gnu/packages/algebra.scm
View file

@ -226,7 +226,7 @@ the real span of the lattice.")
(define-public pari-gp
(package
(name "pari-gp")
(version "2.15.3")
(version "2.15.4")
(source (origin
(method url-fetch)
(uri (string-append
@ -234,7 +234,7 @@ the real span of the lattice.")
version ".tar.gz"))
(sha256
(base32
"0s4jasvb3ghvxp9s2ifmr0lk7ckj9529zg28icmdgbyd723abxdd"))))
"03swii601kxnphl6v7wv0rh2xn4rz6xbljzvfw5v9py6w3z5nm63"))))
(build-system gnu-build-system)
(native-inputs (list (texlive-updmap.cfg
(list texlive-amsfonts))))

31
gnu/packages/assembly.scm
View file

@ -553,3 +553,34 @@ family of command line utility wrappers in the default output. Each of the cli
tools is named like @code{xed*}. Documentation for the cli tools is sparse, so
this is a case where ``the code is the documentation.''")
(license license:asl2.0)))
(define-public neon2sse
(let ((commit "097a5ecacd527d5b5c3006e360fb9cb1c1c48a1f")
(version "0")
(revision "1"))
(package
(name "neon2sse")
(version (git-version version revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/intel/ARM_NEON_2_x86_SSE")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"17mf788b8asrvjl6dnyzrm5xrz20wx9j5f8n6drgc6qgwqxpx4hv"))))
(build-system cmake-build-system)
(arguments
(list #:tests? #f)) ;no tests
(home-page "https://github.com/intel/ARM_NEON_2_x86_SSE")
(synopsis "Header file to simplify ARM->IA32 porting")
(description
"The @file{NEON_2_SSE.h} file is intended to simplify ARM-to-IA32
porting. It makes the correspondence (or a real porting) of ARM NEON
intrinsics as defined in the @file{arm_neon.h} header and x86 SSE (up to
SSE4.2) intrinsic functions as defined in corresponding x86 compilers headers
files.")
(license license:bsd-2))))

403
gnu/packages/astronomy.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 John Darrington <jmd@gnu.org>
;;; Copyright © 2018–2022 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018–2023 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020, 2021, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 by Amar Singh <nly@disroot.org>
;;; Copyright © 2020 R Veera Kumar <vkor@vkten.in>
@ -55,6 +55,7 @@
#:use-module (gnu packages libevent)
#:use-module (gnu packages libusb)
#:use-module (gnu packages lua)
#:use-module (gnu packages machine-learning)
#:use-module (gnu packages maths)
#:use-module (gnu packages multiprecision)
#:use-module (gnu packages ncurses)
@ -463,6 +464,45 @@ in FITS files.")
(license (license:non-copyleft "file://License.txt"
"See License.txt in the distribution."))))
(define-public python-astroml
(package
(name "python-astroml")
(version "1.0.2.post1")
(source (origin
(method url-fetch)
(uri (pypi-uri "astroML" version))
(sha256
(base32
"14g2mcd5qdr3nn7icvjs84bjvx17l9glx81sbbna6v53i1x8l625"))))
(build-system pyproject-build-system)
(arguments
(list
#:test-flags
'(list "--ignore-glob=examples/*")
#:phases
'(modify-phases %standard-phases
(add-after 'unpack 'patch-build-system
(lambda _
(substitute* "setup.cfg"
;; Do not error out on deprecations
((" error::DeprecationWarning.*") "")
;; Do not test examples
(("testspaths = astroML doc examples")
"testspaths = astroML"))))
(add-before 'check 'pre-check
;; Some tests need this
(lambda _
(setenv "HOME" "/tmp"))))))
(propagated-inputs (list python-astropy python-matplotlib python-numpy
python-scikit-learn python-scipy))
(native-inputs (list python-pytest-astropy-header python-pytest-cov
python-pytest-doctestplus python-pytest-remotedata))
(home-page "https://astroml.org")
(synopsis "Tools for machine learning and data mining in astronomy")
(description "This package provides tools for machine learning and data
mining in astronomy.")
(license license:bsd-2)))
(define-public python-fitsio
(package
(name "python-fitsio")
@ -522,6 +562,39 @@ CFITSIO library. Among other things, it can
@end itemize")
(license license:gpl2+)))
(define-public python-gatspy
(package
(name "python-gatspy")
(version "0.3")
(source (origin
(method url-fetch)
(uri (pypi-uri "gatspy" version))
(sha256
(base32
"1gw2z6x8nikvnw2gkdl70gr81cwczd1pd7v8ry2kjn6k4kssrfav"))))
(build-system pyproject-build-system)
(arguments
(list
#:phases
'(modify-phases %standard-phases
;; Tests need this
(add-before 'check 'set-HOME
(lambda _ (setenv "HOME" "/tmp"))))
#:test-flags
'(list "-k"
(string-append
;; These tests require internet access
"not test_download_data.py"
;; XXX: we don't have supersmoother
" and not test_supersmoother.py"))))
(propagated-inputs (list python-astroml python-numpy python-scipy))
(native-inputs (list python-pytest python-nose python-setuptools-scm))
(home-page "https://github.com/astroml/gatspy")
(synopsis "General tools for astronomical time series in Python")
(description "This package provides general tools for astronomical time
series in Python.")
(license license:bsd-2)))
(define-public qfits
(package
(name "qfits")
@ -572,35 +645,41 @@ International Astronomical Union}.")
(version "1.4.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.astromatic.net/download/eye/"
"eye-" version ".tar.gz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/astromatic/eye")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "092qhzcbrkcfidbx4bv9wz42w297n80jk7a6kwyi9a3fjfz81d7k"))))
(base32 "1j8rpgz3fjp6fw0qmxgfqycf3n01fzxds4w12vgyrhbnk658ia41"))))
(build-system gnu-build-system)
(arguments
(list
#:configure-flags
#~(list "CPPFLAGS=-fcommon"))) ; fix build with GCC 10
(home-page "https://www.astromatic.net/software/eye")
(synopsis "Small image feature detector using machine learning")
(description
"In EyE (Enhance Your Extraction) an artificial neural network connected to
pixels of a moving window (retina) is trained to associate these input stimuli
to the corresponding response in one or several output image(s). The resulting
filter can be loaded in SExtractor to operate complex, wildly non-linear filters
on astronomical images. Typical applications of EyE include adaptive filtering,
feature detection and cosmetic corrections.")
"In @acronym{EyE, Enhance Your Extraction} an artificial neural network
connected to pixels of a moving window (@dfn{retina}) is trained to associate
these input stimuli to the corresponding response in one or several output
image(s). The resulting filter can be loaded in SExtractor to operate
complex, wildly non-linear filters on astronomical images. Typical
applications of EyE include adaptive filtering, feature detection and cosmetic
corrections.")
(license license:cecill)))
(define-public wcslib
(package
(name "wcslib")
(version "7.12")
(version "8.1")
(source
(origin
(method url-fetch)
(uri (string-append
"ftp://ftp.atnf.csiro.au/pub/software/wcslib/wcslib-" version
".tar.bz2"))
(uri (string-append "https://www.atnf.csiro.au/people/mcalabre/WCS/"
"wcslib-" version ".tar.bz2"))
(sha256
(base32 "1m3bx6gh5w3c7vvsqcki0x20mg8lilg13m0i8nh7za89w58dxy4w"))))
(base32 "17hjnkwn2rd5d9krw2n637q4y8ma4nzk2i55zzn8l2yimdpkxwib"))))
(inputs
(list cfitsio))
(build-system gnu-build-system)
@ -634,12 +713,18 @@ header.")
(version "1.12")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.astromatic.net/download/weightwatcher/"
"weightwatcher-" version ".tar.gz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/astromatic/weightwatcher")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1zaqd8d9rpgcwjsp92q3lkfaa22i20gppb91dz34ym54swisjc2p"))))
(base32 "0701z6bdqq32jv7ga3n6jh27q684ni0hbfjm1mak7rh0qqx089gi"))))
(build-system gnu-build-system)
(arguments
(list
#:configure-flags
#~(list "CFLAGS=-fcommon"))) ; fix build with GCC 10
(home-page "https://www.astromatic.net/software/weightwatcher")
(synopsis "Weight-map/flag-map multiplexer and rasteriser")
(description
@ -870,34 +955,43 @@ interactively in the plotting window.")
(license license:gpl2+)))
(define-public skymaker
(package
(name "skymaker")
(version "3.10.5")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.astromatic.net/download/skymaker/"
"skymaker-" version ".tar.gz"))
(sha256
(base32 "03zvx7c89plp9559niqv5532r233kza3ir992rg3nxjksqmrqvx1"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
;; XXX: No version tag available in GitHub.
;; See: https://github.com/astromatic/skymaker/issues/3
(let ((commit "1a69c4716bdc9b5c6d4a917b0bc2dbd47635c459")
(revision "0"))
(package
(name "skymaker")
(version (git-version "4.2.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/astromatic/skymaker")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1vin4vgvcmqmwjdchsxnap374559rksz55xmaliawnl3qpzxn1nk"))))
(build-system gnu-build-system)
(arguments
(list
(string-append
"--with-fftw-libdir=" (assoc-ref %build-inputs "fftw") "/lib")
(string-append
"--with-fftw-incdir=" (assoc-ref %build-inputs "fftw") "/include"))))
(inputs
`(("fftw" ,fftwf)))
(home-page "https://www.astromatic.net/software/skymaker")
(synopsis "Astronomical image simulator")
(description
"SkyMaker is a program that simulates astronomical images. It accepts
#:configure-flags
#~(list
(string-append
"--with-fftw-libdir=" #$(this-package-input "fftwf") "/lib")
(string-append
"--with-fftw-incdir=" #$(this-package-input "fftwf") "/include"))))
(native-inputs
(list autoconf automake libtool pkg-config))
(inputs
(list fftwf))
(home-page "https://www.astromatic.net/software/skymaker")
(synopsis "Astronomical image simulator")
(description
"SkyMaker is a program that simulates astronomical images. It accepts
object lists in ASCII generated by the Stuff program to produce realistic
astronomical fields. SkyMaker is part of the EFIGI
(@url{https://www.astromatic.net/projects/efigi}) development project.")
(license license:gpl3+)))
astronomical fields. SkyMaker is part of the
@uref{https://www.astromatic.net/projects/efigi, EFIGI} development project.")
(license license:gpl3+))))
(define-public stackistry
(package
@ -1031,36 +1125,48 @@ objects.")
(define-public stuff
(package
(name "stuff")
(version "1.26.0")
(version "2.0.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.astromatic.net/download/stuff/"
"stuff-" version ".tar.gz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/astromatic/stuff")
;; XXX: No version tag available in GitHub.
;; See: https://github.com/astromatic/stuff/issues/6
(commit "9008dc022ef53331092da248cf0a794abd6783bf")))
(file-name (git-file-name name version))
(sha256
(base32 "1syibi3b86z9pikhicvkkmgxm916j732fdiw0agw0lq6z13fdcjm"))))
(base32 "004sry5lqqm7s9x4l3agysp3n63y3ga35x1rwwda4m6dc6zvla6b"))))
(build-system gnu-build-system)
(native-inputs
(list autoconf automake libtool pkg-config))
(home-page "https://www.astromatic.net/software/stuff")
(synopsis "Astronomical catalogue simulation")
(description
"Stuff is a program that simulates \"perfect\" astronomical catalogues.
It generates object lists in ASCII which can read by the SkyMaker program to
produce realistic astronomical fields. Stuff is part of the EFIGI development
project.")
produce realistic astronomical fields. Stuff is part of the
@uref{https://www.astromatic.net/projects/efigi, EFIGI} development project.")
(license license:gpl3+)))
(define-public swarp
(package
(name "swarp")
(version "2.38.0")
(version "2.41.5")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.astromatic.net/download/swarp/"
"swarp-" version ".tar.gz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/astromatic/swarp")
(commit (string-append version))))
(file-name (git-file-name name version))
(sha256
(base32 "1i670waqp54vin1cn08mqckcggm9zqd69nk7yya2vvqpdizn6jpm"))))
(base32 "00463r5rd4xl74xs4h1n4gl2qk7v9p5nw9x05pbzgh8jm77q90qq"))))
(build-system gnu-build-system)
(native-inputs
(list automake autoconf libtool pkg-config))
(inputs
(list cfitsio))
(home-page "https://www.astromatic.net/software/swarp")
(synopsis "FITS image resampling and co-addition")
(description
@ -1069,66 +1175,85 @@ any arbitrary astrometric projection defined in the WCS standard.")
(license license:gpl3+)))
(define-public celestia
(let ((commit "9dbdf29c4ac3d20afb2d9a80d3dff241ecf81dce"))
(package
(name "celestia")
(version (git-version "1.6.1" "815" commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/celestiaproject/celestia")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"00xibg87l1arzifakgj7s828x9pszcgx7x7ij88a561ig49ryh78"))))
(build-system cmake-build-system)
(native-inputs
`(("perl" ,perl)
("libgit2" ,libgit2)
("pkg-config" ,pkg-config)
("libtool" ,libtool)
("gettext" ,gettext-minimal)))
(inputs
`(("glu" ,glu)
("glew" ,glew)
("libtheora" ,libtheora)
("libjpeg" ,libjpeg-turbo)
("libpng" ,libpng)
;; maybe required?
("mesa" ,mesa)
;; optional: fmtlib, Eigen3;
("fmt" ,fmt-7)
("eigen" ,eigen)
;; glut: for glut interface
("freeglut" ,freeglut)))
(propagated-inputs
(list lua))
(arguments
`(#:configure-flags '("-DENABLE_GLUT=ON" "-DENABLE_QT=OFF")
#:tests? #f)) ;no tests
(home-page "https://celestia.space/")
(synopsis "Real-time 3D visualization of space")
(description
"This simulation program lets you explore our universe in three
(package
(name "celestia")
(version "1.6.3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/celestiaproject/celestia")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0dzci5n7gcnm1vq916gsn9zddkhbzhbsakqxrpnmvzibsqznn6c8"))))
(build-system gnu-build-system)
(arguments
(list
#:modules
`((guix build gnu-build-system)
(guix build utils)
(srfi srfi-1)
(srfi srfi-71))
#:configure-flags
#~(list "--with-glut"
(string-append "--with-lua=" #$(this-package-input "lua")))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-lua-version
(lambda _
(let* ((_ version (package-name->name+version
#$(this-package-input "lua")))
(components (string-split version #\.))
(major+minor (string-join (take components 2) ".")))
(substitute* "configure.ac"
(("lua5.3")
(string-append "lua-" major+minor)))))))))
(native-inputs
(list autoconf
automake
gettext-minimal
libgit2
libtool
perl
pkg-config))
(inputs
(list freeglut
glu
libjpeg-turbo
libpng
libtheora
mesa))
(propagated-inputs
(list lua))
(home-page "https://celestia.space/")
(synopsis "Real-time 3D visualization of space")
(description
"This simulation program lets you explore our universe in three
dimensions. Celestia simulates many different types of celestial objects.
From planets and moons to star clusters and galaxies, you can visit every
object in the expandable database and view it from any point in space and
time. The position and movement of solar system objects is calculated
accurately in real time at any rate desired.")
(license license:gpl2+))))
(license license:gpl2+)))
(define-public celestia-gtk
(package
(inherit celestia)
(package/inherit celestia
(name "celestia-gtk")
(inputs
(append (alist-delete "freeglut" (package-inputs celestia))
`(("gtk2" ,gtk+-2)
("gtkglext" ,gtkglext))))
(modify-inputs (package-inputs celestia)
(replace "freeglut" gtk+-2)
(prepend cairo gtkglext libxmu libtheora pango-1.42)))
(arguments
`(#:configure-flags '("-DENABLE_GTK=ON" "-DENABLE_QT=OFF")
#:tests? #f))))
(substitute-keyword-arguments (package-arguments celestia)
((#:configure-flags flags '())
#~(append #$flags
(list "--enable-cairo"
"--enable-theora"
"--without-glut"
"--with-gtk")))))
(synopsis "Real-time 3D visualization of space (using GTK+)")))
(define-public python-astropy
(package
@ -2581,12 +2706,21 @@ PixInsight. It implements XISF 1.0 specification.")
(version "2.8.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.astromatic.net/download/missfits/"
"missfits-" version ".tar.gz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/astromatic/missfits")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "04jrd7fsvzr14vdmwgj2f6v97gdcfyjyz6jppml3ghr9xh12jxv5"))))
(base32 "12ndvrr3l5j7ph2i5f3qf0wqmv5ymsyjzxnnypqajsvliw72iprh"))))
(build-system gnu-build-system)
(arguments
(list
#:configure-flags
#~(list
;; Address this link error:
;; ld: ... multiple definition of ... first defined here
"CPPFLAGS=-fcommon")))
(home-page "https://www.astromatic.net/software/missfits")
(synopsis "FITS files Maintenance program")
(description
@ -2595,10 +2729,11 @@ on FITS files:
@itemize
@item add/edit FITS header keywords
@item split/join Multi-Extension-FITS (MEF) files
@item split/join @acronym{MEF, Multi-Extension-FITS} files
@item unpack/pack FITS data-cubes
@item create/check/update FITS checksums, using R. Seaman's protocol
(see http://www.adass.org/adass/proceedings/adass94/seamanr.html)
@item create/check/update FITS checksums, using
@uref{http://www.adass.org/adass/proceedings/adass94/seamanr.html,
R. Seaman's protocol}
@end itemize\n")
(license license:gpl3+)))
@ -2622,28 +2757,28 @@ on FITS files:
"xplanet-1.3.1-libimage_gif.c.patch"
"xplanet-1.3.1-xpUtil-Add2017LeapSecond.cpp.patch"))))
(build-system gnu-build-system)
(arguments
(list
#:configure-flags
#~(list
;; No NASA JPL cspice support.
"--without-cspice"
(string-append "CPPFLAGS=-I" #$(this-package-input "netpbm")
"/include/netpbm"))))
(native-inputs
(list pkg-config))
(inputs
`(("libx11" ,libx11)
("libxscrnsaver" ,libxscrnsaver)
("libice" ,libice)
("freetype" ,freetype)
("pango" ,pango)
("giflib" ,giflib)
("libjpeg" ,libjpeg-turbo)
("libpng" ,libpng)
("libtiff" ,libtiff)
("netpbm" ,netpbm)
("zlib" ,zlib)))
(arguments
`(#:configure-flags
(let ((netpbm (assoc-ref %build-inputs "netpbm")))
(append (list
;; Give correct path for pnm.h header to configure script
(string-append "CPPFLAGS=-I" netpbm "/include/netpbm")
;; no nasa jpl cspice support
"--without-cspice" )))))
(list freetype
giflib
libice
libjpeg-turbo
libpng
libtiff
libx11
libxscrnsaver
netpbm
pango
zlib))
(home-page "https://xplanet.sourceforge.net/")
(synopsis "Planetary body renderer")
(description

61
gnu/packages/audio.scm
View file

@ -44,6 +44,7 @@
;;; Copyright © 2023 David Thompson <dthompson2@worcester.edu>
;;; Copyright © 2023 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2023 Gabriel Wicki <gabriel@erlikon.ch>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -4447,38 +4448,40 @@ provide high-quality sample rate conversion.")
(version "0.3.2")
(source (origin
(method url-fetch)
(uri (string-append
"http://kokkinizita.linuxaudio.org"
"/linuxaudio/downloads/zita-alsa-pcmi-"
version ".tar.bz2"))
(uri (string-append "http://kokkinizita.linuxaudio.org"
"/linuxaudio/downloads/zita-alsa-pcmi-"
version ".tar.bz2"))
(sha256
(base32
"12d7vdg74yh21w69qi0wg57iz4876j94qbiq09bvscih6xz9y78s"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no "check" target
#:make-flags
(list (string-append "PREFIX=" (assoc-ref %outputs "out"))
(string-append "SUFFIX="))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-makefile-and-enter-directory
(lambda _
(substitute* "source/Makefile"
(("ldconfig") "true")
(("^LIBDIR =.*") "LIBDIR = lib\n"))
(chdir "source")
#t))
(add-after 'install 'install-symlink
(lambda _
(symlink "libzita-alsa-pcmi.so"
(string-append (assoc-ref %outputs "out")
"/lib/libzita-alsa-pcmi.so.0"))
#t))
;; no configure script
(delete 'configure))))
(inputs
(list alsa-lib fftw))
(list #:tests? #f ;no "check" target
#:make-flags #~(list (string-append "PREFIX="
(assoc-ref %outputs "out"))
(string-append "SUFFIX=")
(string-append "CXX="
#$(cxx-for-target)))
#:phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-makefile-and-enter-directory
(lambda _
(substitute* "source/Makefile"
(("ldconfig")
"true")
(("^LIBDIR =.*")
"LIBDIR = lib\n")
(("CXXFLAGS \\+= -march=native")
""))
(chdir "source")))
(add-after 'install 'install-symlink
(lambda _
(symlink "libzita-alsa-pcmi.so"
(string-append (assoc-ref %outputs "out")
"/lib/libzita-alsa-pcmi.so.0"))))
;; no configure script
(delete 'configure))))
(inputs (list alsa-lib fftw))
(properties `((tunable? . #t)))
(home-page "https://kokkinizita.linuxaudio.org")
(synopsis "C++ wrapper around the ALSA API")
(description
@ -6233,7 +6236,7 @@ and DSD streams.")
(define-public qpwgraph
(package
(name "qpwgraph")
(version "0.4.2")
(version "0.4.4")
(source (origin
(method git-fetch)
(uri (git-reference
@ -6242,7 +6245,7 @@ and DSD streams.")
(file-name (git-file-name name version))
(sha256
(base32
"0h5y8n9xm9ay1w53hb5mw6k5i1sm8spz1izmw6yya49gv2pwyhrj"))))
"05j98y8j3f0dybaal6qawq9nsrvr1hylsnig4yk6si16mhb32y7l"))))
(build-system cmake-build-system)
(arguments (list #:tests? #f)) ;; no tests
(inputs (list alsa-lib

6
gnu/packages/backup.scm
View file

@ -1136,14 +1136,14 @@ interactive mode.")
(define-public btrbk
(package
(name "btrbk")
(version "0.32.5")
(version "0.32.6")
(source (origin
(method url-fetch)
(uri (string-append "https://digint.ch/download/btrbk/releases/"
"btrbk-" version ".tar.xz"))
(sha256
(base32
"1d4zqf5klad55gdzzldipsjrhpprixzjmn03g66df5h2d28l1zpi"))))
"0sxppfraakf56d1i4sbh4gyzg92panwpnq5y5hh6714igijarqh2"))))
(build-system gnu-build-system)
(arguments
(list
@ -1153,7 +1153,7 @@ interactive mode.")
(lambda _
(substitute* "Makefile"
(("= /etc")
(string-append "= " #$output "/etc")))))
(string-append "= $(PREFIX)/etc")))))
(delete 'check)
(add-after 'install 'wrap-scripts
(lambda* (#:key inputs outputs #:allow-other-keys)

19
gnu/packages/bash.scm
View file

@ -445,28 +445,27 @@ you to call routines in shared libraries from within Bash.")
(define-public blesh
(package
(name "blesh")
(version "0.4.0-devel2")
(version "0.4.0-devel3")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/akinomyoga/ble.sh")
(commit (string-append "v" version))))
(commit (string-append "v" version))
(recursive? #t)))
(file-name (git-file-name name version))
(sha256
(base32
"02fdjyh4x6wr5hg3i86nsxhz8ysgjrvvxdmk6pqr0lm8ngw9p3sh"))))
"19y9rmj9srl7akx33gl34l5qgz2ww0vlmi4j2r11029p8sn4s418"))))
(arguments
(list #:make-flags #~(list (string-append "PREFIX="
#$output))
#:phases #~(modify-phases %standard-phases
(add-after 'unpack 'pretend-contrib-.git-exists
(lambda _
(mkdir-p "contrib/.git")))
(add-after 'unpack 'make-readlink-work
(add-after 'unpack 'pretend-.git-exists
(lambda _
(substitute* "ble.pp"
(("PATH=/bin:/usr/bin readlink")
"readlink"))))
(("#%\\[commit_hash =.*")
(string-append "#%[commit_hash = " #$version "]\n")))
(mkdir-p ".git")))
(delete 'configure) ;no configure
(add-before 'check 'use-LANG-for-tests
(lambda _
@ -474,7 +473,7 @@ you to call routines in shared libraries from within Bash.")
(getenv "LC_ALL"))
(unsetenv "LC_ALL"))))))
(build-system gnu-build-system)
(native-inputs (list less))
(native-inputs (list git less))
(home-page "https://github.com/akinomyoga/ble.sh")
(synopsis "Bash Line Editor")
(description

309
gnu/packages/bioconductor.scm
View file

@ -1436,6 +1436,51 @@ curated cell type labels, for use in procedures like automated annotation of
single-cell data or deconvolution of bulk RNA-seq.")
(license license:gpl3)))
(define-public r-cellid
(package
(name "r-cellid")
(version "1.8.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "CelliD" version))
(sha256
(base32
"0vigvqjrlqbi5kviaj8qvyq3v8afgbc5pjrz7zmx2ckf4hdp0g03"))))
(properties `((upstream-name . "CelliD")))
(build-system r-build-system)
(propagated-inputs
(list r-data-table
r-biocparallel
r-fastmatch
r-fgsea
r-ggplot2
r-glue
r-irlba
r-matrix
r-matrixstats
r-pbapply
r-rcpp
r-rcpparmadillo
r-reticulate
r-rtsne
r-seurat
r-stringr
r-tictoc
r-singlecellexperiment
r-summarizedexperiment
r-umap))
(native-inputs (list r-knitr r-scater))
(home-page "https://bioconductor.org/packages/CelliD")
(synopsis
"Single cell gene signature extraction using multiple correspondence analysis")
(description
"CelliD is a clustering-free method for extracting per-cell gene
signatures from scRNA-seq. CelliD allows unbiased cell identity recognition
across different donors, tissues-of-origin, model organisms and single-cell
omics protocols. The package can also be used to explore functional pathways
enrichment in single cell data.")
(license license:gpl3)))
(define-public r-champdata
(package
(name "r-champdata")
@ -2814,13 +2859,13 @@ analysis, modelling, and visualization of spike-in controls.")
(define-public r-ancombc
(package
(name "r-ancombc")
(version "2.2.0")
(version "2.2.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "ANCOMBC" version))
(sha256
(base32
"1wfbi8xyh2pxpjdv2zhml2l1h8c7fyfl5wyici3nm3rcs00n7m9w"))))
"05gngz6cqihxg4zlf7ymw93qj61a1i19hgp4fkc0cxnkq0pambrd"))))
(properties `((upstream-name . "ANCOMBC")))
(build-system r-build-system)
(propagated-inputs
@ -2828,25 +2873,21 @@ analysis, modelling, and visualization of spike-in controls.")
r-desctools
r-doparallel
r-dorng
r-dplyr
r-emmeans
r-energy
r-foreach
r-gtools
r-hmisc
r-lme4
r-lmertest
r-magrittr
r-mass
r-matrix
r-mia
r-multcomp
r-nloptr
r-rdpack
r-rlang
r-rngtools
r-s4vectors
r-singlecellexperiment
r-summarizedexperiment
r-tibble
r-tidyr
r-treesummarizedexperiment))
(native-inputs (list r-knitr))
(home-page "https://github.com/FrederickHuangLin/ANCOMBC")
@ -3059,13 +3100,13 @@ paired or unpaired study designs.")
(define-public r-alevinqc
(package
(name "r-alevinqc")
(version "1.16.0")
(version "1.16.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "alevinQC" version))
(sha256
(base32
"014jxp2ymxiywp2qa1b9f7iszgf95v03h9kgk8ljabnbia1zsl67"))))
"137bvqyh1cqmhf9x3xl6n1dv0380lpcr2nxhd60b7zqiw4p14i5a"))))
(properties `((upstream-name . "alevinQC")))
(build-system r-build-system)
(propagated-inputs
@ -3919,13 +3960,13 @@ Various visual and textual types of output are available.")
(define-public r-bambu
(package
(name "r-bambu")
(version "3.2.3")
(version "3.2.5")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "bambu" version))
(sha256
(base32
"1b5zmyj75fjhyn4mb70gdqvxg76fg2z45vns9l0rl66s3p5mhm6d"))))
"1vqxmz2lknnx1g61y7skvznsnxv3clajngz9mnggg1z3p5mr6cnh"))))
(properties `((upstream-name . "bambu")))
(build-system r-build-system)
(propagated-inputs
@ -4735,13 +4776,13 @@ bases such as COSMIC.")
(define-public r-delayedarray
(package
(name "r-delayedarray")
(version "0.26.3")
(version "0.26.6")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "DelayedArray" version))
(sha256
(base32
"0m603v0l74nawid61hvqbyb2662c1djqp436p87pk4f04fvws67j"))))
"0jy2spqysa5x1s84kbr1jbbdmlh3q44lrw1qck2fln3b6q5vgz0k"))))
(properties
`((upstream-name . "DelayedArray")))
(build-system r-build-system)
@ -5084,13 +5125,13 @@ over-abundant or less-abundant as compared to that of normal cells.")
(define-public r-iranges
(package
(name "r-iranges")
(version "2.34.0")
(version "2.34.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "IRanges" version))
(sha256
(base32
"13kmh5zik3gw4jzh666zd3vmv915fcac5lx76s9q38x01m4gd7ld"))))
"013a3vcw1v5vn0sg2d9cwrdksch48kilvxp8cr79y0nr4vk58q9z"))))
(properties
`((upstream-name . "IRanges")))
(build-system r-build-system)
@ -5112,24 +5153,24 @@ possible.")
(define-public r-isoformswitchanalyzer
(package
(name "r-isoformswitchanalyzer")
(version "1.21.0")
(version "2.0.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "IsoformSwitchAnalyzeR" version))
(sha256
(base32 "1vzzsqjnkaffyxgvw6bsbxhgg1102cap2hsmzkhwzh6bvh02bwkx"))))
(base32 "1zjwhxlayz2sb77vspw280didhawj282i5gvxnydcdparg165zwf"))))
(properties `((upstream-name . "IsoformSwitchAnalyzeR")))
(build-system r-build-system)
(propagated-inputs
(list r-biobase
r-biocgenerics
r-biocparallel
r-biostrings
r-bsgenome
r-dbi
r-dexseq
r-dplyr
r-drimseq
r-edger
r-futile-logger
r-genomeinfodb
@ -5139,14 +5180,20 @@ possible.")
r-iranges
r-limma
r-magrittr
r-pfamanalyzer
r-plyr
r-rcolorbrewer
r-rcurl
r-readr
r-reshape2
r-rtracklayer
r-s4vectors
r-saturn
r-stringr
r-summarizedexperiment
r-sva
r-tibble
r-tidyr
r-tximeta
r-tximport
r-venndiagram
@ -5367,14 +5414,14 @@ performing parallel computations on multicore machines.")
(define-public r-affy
(package
(name "r-affy")
(version "1.78.0")
(version "1.78.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "affy" version))
(sha256
(base32
"15hpxflygpy1sid0c4hlzmsc13nqyzs6j74md0ri478qysiqjnpf"))))
"1xj8pnaa782k1hxaiba6mcsqr21bk8xz31916836jz5l9848zjsw"))))
(build-system r-build-system)
(propagated-inputs
(list r-affyio
@ -5605,13 +5652,13 @@ microarrays.")
(define-public r-annotationdbi
(package
(name "r-annotationdbi")
(version "1.62.1")
(version "1.62.2")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "AnnotationDbi" version))
(sha256
(base32
"0a5brfd010p0ks8b7kvrynirmzv3p74r9vqwv5wyz4kbnasfd1v1"))))
"0vprm84k79pfnkkg9vf3gyb1nhzmin5lp5375rsaj6fnzbd46dw9"))))
(properties
`((upstream-name . "AnnotationDbi")))
(build-system r-build-system)
@ -5619,8 +5666,8 @@ microarrays.")
(list r-biobase
r-biocgenerics
r-dbi
r-keggrest
r-iranges
r-keggrest
r-rsqlite
r-s4vectors))
(native-inputs
@ -5660,14 +5707,14 @@ used by @code{ensembldb}, @code{Organism.dplyr}, and other packages.")
(define-public r-annotationforge
(package
(name "r-annotationforge")
(version "1.42.0")
(version "1.42.2")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "AnnotationForge" version))
(sha256
(base32
"0s1k32li3nygg01nv9hbs7n6pabaassxmm4z5jggp6apdzkjpsc7"))))
"0b4dmjv7y50c1rn76wlhnlz93kidvg1byj72vq2s11kdzyq3pmss"))))
(properties
`((upstream-name . "AnnotationForge")))
(build-system r-build-system)
@ -5810,13 +5857,13 @@ on Bioconductor or which replace R functions.")
(define-public r-biomart
(package
(name "r-biomart")
(version "2.56.0")
(version "2.56.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "biomaRt" version))
(sha256
(base32
"10cjysqnc1wr0ld3wjl79zv0irrmxb8hf03y63fbwcc43rjcgv07"))))
"0jqv2mv4ridi5lffva20a5s479bzpxhblyymricb17fd400rag8f"))))
(properties
`((upstream-name . "biomaRt")))
(build-system r-build-system)
@ -5850,13 +5897,13 @@ powerful online queries from gene annotation to database mining.")
(define-public r-biomartr
(package
(name "r-biomartr")
(version "1.0.3")
(version "1.0.4")
(source (origin
(method url-fetch)
(uri (cran-uri "biomartr" version))
(sha256
(base32
"093v32r6s9sn7yisa4fdwgjif313ap19nvq0sbsgj2482k646d55"))))
"0hv4z6ycmn58ha7j7zfmyhvs2i37cm48gcalg19dli2kaw1c4210"))))
(properties `((upstream-name . "biomartr")))
(build-system r-build-system)
(propagated-inputs
@ -6377,14 +6424,14 @@ distribution.")
(define-public r-deseq2
(package
(name "r-deseq2")
(version "1.40.1")
(version "1.40.2")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "DESeq2" version))
(sha256
(base32
"1910nvcm1lj5mcg8jdvfql6a6h1wnrgfl616gz942g4ngl18ya3p"))))
"0rb6b2aqn3an5ria4yjasjr7aldr5606rkc4yw275x9ddii22djg"))))
(properties `((upstream-name . "DESeq2")))
(build-system r-build-system)
(propagated-inputs
@ -6865,19 +6912,18 @@ genomic intervals. In addition, it can use BAM or BigWig files as input.")
(define-public r-genomeinfodb
(package
(name "r-genomeinfodb")
(version "1.36.0")
(version "1.36.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "GenomeInfoDb" version))
(sha256
(base32
"072dawysgcfyhnwva38y5vf95y3b9dhpad66mwma07hrh27a6wqh"))))
"1c3fgni846vjw152m4aklb8kwrwjw3rww116a2cbii70nr86p5qg"))))
(properties
`((upstream-name . "GenomeInfoDb")))
(build-system r-build-system)
(propagated-inputs
(list r-biocgenerics r-genomeinfodbdata r-iranges r-rcurl
r-s4vectors))
(list r-biocgenerics r-genomeinfodbdata r-iranges r-rcurl r-s4vectors))
(native-inputs
(list r-knitr))
(home-page "https://bioconductor.org/packages/GenomeInfoDb")
@ -6925,13 +6971,13 @@ alignments.")
(define-public r-genomicfeatures
(package
(name "r-genomicfeatures")
(version "1.52.0")
(version "1.52.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "GenomicFeatures" version))
(sha256
(base32
"0sccj6py15g5ihdrpzwn7j71wkqwljay8p2yn2wkd8142cfsr7x3"))))
"166l0pzg00kaagg3adnx1xy5bgmv42lm06a47i30lh14dc0k79wq"))))
(properties
`((upstream-name . "GenomicFeatures")))
(build-system r-build-system)
@ -7300,16 +7346,16 @@ Shiny-based display methods for Bioconductor objects.")
(define-public r-lfa
(package
(name "r-lfa")
(version "1.28.2")
(version "2.0.11")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "lfa" version))
(sha256
(base32 "0z8aa2435f7v2l6zwv47v2a6p9hal156dsh8v1iri233d1qx7fax"))))
(base32 "0x169fxwlccsqwj1bpviaky3hfr0zdwsdrlgfvrb4j6j95qfgnns"))))
(properties `((upstream-name . "lfa")))
(build-system r-build-system)
(propagated-inputs (list r-corpcor))
(propagated-inputs (list r-corpcor r-rspectra))
(native-inputs (list r-knitr))
(home-page "https://github.com/StoreyLab/lfa")
(synopsis "Logistic Factor Analysis for categorical data")
@ -7321,13 +7367,13 @@ Binomial data via estimation of latent structure in the natural parameter.")
(define-public r-limma
(package
(name "r-limma")
(version "3.56.1")
(version "3.56.2")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "limma" version))
(sha256
(base32
"02c559an6hzk00bbvlrq1qljsnby4a53ng9jj6ff570mc6pabjn6"))))
"0miyba9frn1p4pkclzpr0bfazsk0br2jgpwpwwh773d3103hkn0r"))))
(build-system r-build-system)
(home-page "https://bioinf.wehi.edu.au/limma")
(synopsis "Package for linear models for microarray and RNA-seq data")
@ -7340,13 +7386,13 @@ different technologies, including microarrays, RNA-seq, and quantitative PCR.")
(define-public r-maaslin2
(package
(name "r-maaslin2")
(version "1.13.0")
(version "1.14.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "Maaslin2" version))
(sha256
(base32 "05xha6y6ssf80l4xb7skbjafpqww2d85l4b6wn72r5djidyxxw6y"))))
(base32 "06mb72hbzihdficv73yqbb2m86bkw78w3vbw1rm98n0npxq2fch6"))))
(properties `((upstream-name . "Maaslin2")))
(build-system r-build-system)
(propagated-inputs
@ -7363,7 +7409,6 @@ different technologies, including microarrays, RNA-seq, and quantitative PCR.")
r-lme4
r-lmertest
r-logging
r-lpsymphony
r-mass
r-metagenomeseq
r-optparse
@ -7372,6 +7417,7 @@ different technologies, including microarrays, RNA-seq, and quantitative PCR.")
r-pheatmap
r-pscl
r-robustbase
r-tibble
r-vegan))
(native-inputs (list r-knitr))
(home-page "http://huttenhower.sph.harvard.edu/maaslin2")
@ -7971,18 +8017,20 @@ specific parser.")
(define-public r-mzr
(package
(name "r-mzr")
(version "2.34.0")
(version "2.34.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "mzR" version))
(sha256
(base32
"0dz9wqaawhkvswv4035xknlicia0m79r8n666s1yf59cfpmdqgs3"))
"1jsna4xwyph1gg72wwqlpavb65g5nc3db1vmcs1qcw1mdgasdjhk"))
(modules '((guix build utils)))
(snippet
'(delete-file-recursively "src/boost"))))
(properties `((upstream-name . "mzR")))
(properties
`((upstream-name . "mzR")
(updater-extra-inputs . ("boost"))))
(build-system r-build-system)
(arguments
`(#:phases
@ -8023,13 +8071,13 @@ previously been used in XCMS.")
(define-public r-numbat
(package
(name "r-numbat")
(version "1.3.0")
(version "1.3.2-1")
(source (origin
(method url-fetch)
(uri (cran-uri "numbat" version))
(sha256
(base32
"0499i20kkpr58b59xmw7d4q4dgp6ryfb9jj55idvhaa2k1kv28n6"))))
"1b9bykgw3z7a8bky5yv2g402gdapv8kcla2kbbyqvs77x4wba4q4"))))
(properties `((upstream-name . "numbat")))
(build-system r-build-system)
(propagated-inputs (list r-ape
@ -8266,6 +8314,29 @@ the results is also provided. All PCA methods make use of the same data
structure (pcaRes) to provide a common interface to the PCA results.")
(license license:gpl3+)))
(define-public r-pfamanalyzer
(package
(name "r-pfamanalyzer")
(version "1.0.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "pfamAnalyzeR" version))
(sha256
(base32
"0zff887lc4bjrv683kqsw47vjwmf6886wybklsf2wd6hpy23mxfy"))))
(properties `((upstream-name . "pfamAnalyzeR")))
(build-system r-build-system)
(propagated-inputs (list r-dplyr r-magrittr r-readr r-stringr r-tibble))
(native-inputs (list r-knitr))
(home-page "https://bioconductor.org/packages/pfamAnalyzeR")
(synopsis "Identification of domain isotypes in pfam data")
(description
"This R package enables the user to read pfam predictions into R. Most
human protein domains exist as multiple distinct variants termed domain
isotypes. This R package enables the identification and classification of such
domain isotypes from pfam data.")
(license license:expat)))
;; This is a CRAN package, but it depends on a Bioconductor package:
;; r-aroma-light, r-dnacopy..
(define-public r-pscbs
@ -8733,6 +8804,40 @@ differential expression analysis, RNAseq data and related problems.")
;; Any version of the LGPL
(license license:lgpl3+)))
(define-public r-saturn
(package
(name "r-saturn")
(version "1.8.0")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "satuRn" version))
(sha256
(base32
"0frm7iblxkc8ajcdqrfgsvf4krn6x8cr3mx7fnzq06xij0mqm3sj"))))
(properties `((upstream-name . "satuRn")))
(build-system r-build-system)
(propagated-inputs (list r-biocparallel
r-boot
r-ggplot2
r-limma
r-locfdr
r-matrix
r-pbapply
r-summarizedexperiment))
(native-inputs (list r-knitr))
(home-page "https://github.com/statOmics/satuRn")
(synopsis
"Analysis of differential transcript usage for scRNA-seq applications")
(description
"satuRn provides a framework for performing differential transcript usage
analyses. The package consists of three main functions. The first function,
@code{fitDTU}, fits quasi-binomial generalized linear models that model
transcript usage in different groups of interest. The second function,
@code{testDTU}, tests for differential usage of transcripts between groups of
interest. Finally, @code{plotDTU} visualizes the usage profiles of
transcripts in groups of interest.")
(license license:artistic2.0)))
(define-public r-scannotatr
(package
(name "r-scannotatr")
@ -8819,13 +8924,13 @@ comprehensive scDblFinder method.")
(define-public r-scistreer
(package
(name "r-scistreer")
(version "1.1.0")
(version "1.2.0")
(source (origin
(method url-fetch)
(uri (cran-uri "scistreer" version))
(sha256
(base32
"0cdp26ngfp5rxa21nqnj6j2098f6996368g4msb3shh7n75np4s9"))))
"03nd4p7ik66v09yv18c0z1bvdnkr5m0axk78yapd2ri80ihmyi3c"))))
(properties `((upstream-name . "scistreer")))
(build-system r-build-system)
(propagated-inputs (list r-ape
@ -9356,13 +9461,13 @@ involving two separate genomic loci encoded as GRanges objects.")
(define-public r-summarizedexperiment
(package
(name "r-summarizedexperiment")
(version "1.30.1")
(version "1.30.2")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "SummarizedExperiment" version))
(sha256
(base32
"0wj82nmqg9g8663pg5f4h7hqhr1q4ghhiif2p7x1pxmh425sn554"))))
"05dy57fi43rpq9bhbsc4apa62xki99r84098pbvi3rjmac811425"))))
(properties
`((upstream-name . "SummarizedExperiment")))
(build-system r-build-system)
@ -9422,14 +9527,14 @@ unmodeled, or latent sources of noise.")
(define-public r-systempiper
(package
(name "r-systempiper")
(version "2.6.0")
(version "2.6.3")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "systemPipeR" version))
(sha256
(base32
"1yg650xkhmp6gcikiiv63g47k1xycg2mj8wxfnihgmlmlw4433yk"))))
"068rikfq32awhvj0abl30bghv5k2z4zlfkbxpmsdapxhmdzhgnba"))))
(properties `((upstream-name . "systemPipeR")))
(build-system r-build-system)
(propagated-inputs
@ -10313,13 +10418,13 @@ fitting of some classes of graphical Markov models.")
(define-public r-ggpicrust2
(package
(name "r-ggpicrust2")
(version "1.7.0")
(version "1.7.1")
(source (origin
(method url-fetch)
(uri (cran-uri "ggpicrust2" version))
(sha256
(base32
"0rw2nrmnniff5hb56r21rk0mphba74fppxsa5ps2xamg1a63qfyw"))))
"0a4ykfybwx1qhgn7ic29dzigiazj248iihdr1597jxj505q21gay"))))
(properties `((upstream-name . "ggpicrust2")))
(build-system r-build-system)
(propagated-inputs (list r-aldex2
@ -10329,6 +10434,7 @@ fitting of some classes of graphical Markov models.")
r-dplyr
r-edger
r-ggally
r-ggh4x
r-ggplot2
r-ggprism
r-lefser
@ -10337,7 +10443,6 @@ fitting of some classes of graphical Markov models.")
r-metagenomeseq
r-microbiomestat
r-patchwork
r-phyloseq
r-readr
r-summarizedexperiment
r-tibble
@ -10492,13 +10597,13 @@ enrichedGO (addGeneIDs).")
(define-public r-matrixgenerics
(package
(name "r-matrixgenerics")
(version "1.12.0")
(version "1.12.2")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "MatrixGenerics" version))
(sha256
(base32
"17a4gvc1bgiym6z5dy0cigvary4knc4bpmq9bymjlwsg9337b4wg"))))
"1bzdhm2dj93xffla00hphxn45mpyn3cr8nv8d5xjqgx8j136biyy"))))
(properties
`((upstream-name . "MatrixGenerics")))
(build-system r-build-system)
@ -10735,14 +10840,14 @@ parsing of genetic sequencing data from ribosome profiling experiments.")
(define-public r-interactionset
(package
(name "r-interactionset")
(version "1.28.0")
(version "1.28.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "InteractionSet" version))
(sha256
(base32
"15bvjhwh7v4ldg5q52h1y5ks75qw85zynnybcaccypws3zlwvacn"))))
"1vs3mqf3x8zk7p83jkv41kag1bmn5zxrr3j1ldqk6wxsl77h55c5"))))
(properties
`((upstream-name . "InteractionSet")))
(build-system r-build-system)
@ -10941,13 +11046,13 @@ information.")
(define-public r-glmgampoi
(package
(name "r-glmgampoi")
(version "1.12.1")
(version "1.12.2")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "glmGamPoi" version))
(sha256
(base32
"05v9lrjbipz9av1gb0x8kd9mkivxy13wjbs5g6rdw3y72gqqv91d"))))
"0d6q8vn8z90k8ffskcn9jmgg5x5pfb3wjv67bqskasy38inn1zg7"))))
(properties `((upstream-name . "glmGamPoi")))
(build-system r-build-system)
(propagated-inputs
@ -11627,14 +11732,14 @@ coordinates.")
(define-public r-lpsymphony
(package
(name "r-lpsymphony")
(version "1.28.0")
(version "1.28.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "lpsymphony" version))
(sha256
(base32
"096d0dql1cg85mmxba3dy2a7ba3sxqphsviqqvx1n35xiidsnpyp"))))
"08b4d7k5qx19bpg12pw89ckk8x6r2n28qjdxbmy1cxn6dcgzhijd"))))
(build-system r-build-system)
(arguments
(list
@ -11649,7 +11754,7 @@ coordinates.")
(inputs
(list zlib))
(native-inputs
(list pkg-config r-knitr))
(list gfortran pkg-config r-knitr))
(home-page "https://r-forge.r-project.org/projects/rsymphony")
(synopsis "Symphony integer linear programming solver in R")
(description
@ -13574,12 +13679,12 @@ frequency matrices from nine public sources, for multiple organisms.")
(define-public r-motifbreakr
(package
(name "r-motifbreakr")
(version "2.13.7")
(version "2.14.2")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "motifbreakR" version))
(sha256
(base32 "0j4i3059n0g9n73nyxaca7pd4hncvgp0ww63i3kyp5pnvwycsax2"))))
(base32 "13fv0rkyb32grswlgzd3zr35p9xpibj2iq62sr23if4w6z5nbml2"))))
(properties `((upstream-name . "motifbreakR")))
(build-system r-build-system)
(propagated-inputs
@ -14929,14 +15034,14 @@ index.")
(define-public r-quasr
(package
(name "r-quasr")
(version "1.40.0")
(version "1.40.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "QuasR" version))
(sha256
(base32
"09k4r5a735022rc33k6a7pr98qxwy8ijsn451hcw18dimqzm78bx"))))
"08vns1wbgpxw1x6djp84f9hl3gqaybbw9917ghfzk0x3ijpvggbg"))))
(properties `((upstream-name . "QuasR")))
(build-system r-build-system)
(propagated-inputs
@ -16290,14 +16395,14 @@ metrics, with methods for objects produced by the @code{methylumi} and
(define-public r-gdsfmt
(package
(name "r-gdsfmt")
(version "1.36.0")
(version "1.36.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "gdsfmt" version))
(sha256
(base32
"10k445cwb5jhgcr0zf85x24mvldwk26zpwh0wq4himr44aha3bwx"))
"11qib2znznzvyb0x9qm1nfg9lhyqy63yrdjicy7n3n6l8dfd2lx7"))
(modules '((guix build utils)))
;; Remove bundled sources of zlib, lz4, and xz. Don't attempt to build
;; them and link with system libraries instead.
@ -16320,7 +16425,9 @@ metrics, with methods for objects produced by the @code{methylumi} and
(substitute* "src/CoreArray/dStream.h"
(("include \"../(ZLIB|LZ4|XZ/api)/(.*)\"" _ _ header)
(string-append "include <" header ">")))))))
(properties `((upstream-name . "gdsfmt")))
(properties
`((upstream-name . "gdsfmt")
(updater-extra-inputs . ("lz4" "xz" "zlib"))))
(build-system r-build-system)
(inputs
(list lz4 xz zlib))
@ -16552,14 +16659,14 @@ provides methods for retrieving enriched pathways.")
(define-public r-variantfiltering
(package
(name "r-variantfiltering")
(version "1.36.0")
(version "1.36.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "VariantFiltering" version))
(sha256
(base32
"1j9fkqsxq7z3w2m435lqnrm8d17cd7l4873h26slmxhdazc9n94i"))))
"0v0shsv0s9fzakdb4p84jfc4z57ryan27r1dkbvb3v25kjrhd8fi"))))
(properties
`((upstream-name . "VariantFiltering")))
(build-system r-build-system)
@ -16658,14 +16765,14 @@ arrays based on fast wavelet-based functional models.")
(define-public r-variancepartition
(package
(name "r-variancepartition")
(version "1.30.0")
(version "1.30.2")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "variancePartition" version))
(sha256
(base32
"052xay39bzxyn0li631zy2nl08vp7q85q4phigwswpavfhl4w71g"))))
"17jssd327l0miw52iadag2dbk8w4mhv2vwjpzdw89p8gww47bmbv"))))
(properties
`((upstream-name . "variancePartition")))
(build-system r-build-system)
@ -16761,14 +16868,14 @@ data.")
(define-public r-universalmotif
(package
(name "r-universalmotif")
(version "1.18.0")
(version "1.18.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "universalmotif" version))
(sha256
(base32
"0v7c624y2sbqs6mc6kd6dynx24zakcilaswssxmplrcx15im87cn"))))
"0v1085dl16a3494f1fxc9rk1ffz3si89mdwbmnnczyhj5p13pfx8"))))
(properties
`((upstream-name . "universalmotif")))
(build-system r-build-system)
@ -17565,13 +17672,13 @@ monograph.")
(define-public r-bioccheck
(package
(name "r-bioccheck")
(version "1.36.0")
(version "1.36.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "BiocCheck" version))
(sha256
(base32
"15f4jx4rkhi6aakdmy23dh3nlb2psaxkvwvrbya9vlsf5lmhajf9"))))
"0a0fnmqln13iglnw8smbbr4k7hdvacipxa04zhqylygpsq1246bc"))))
(properties
`((upstream-name . "BiocCheck")))
(build-system r-build-system)
@ -18454,13 +18561,13 @@ objects from the @code{graph} package.")
(define-public r-fishpond
(package
(name "r-fishpond")
(version "2.6.0")
(version "2.6.2")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "fishpond" version))
(sha256
(base32
"0lpafc1770kh4j151509d9lrpfj9jgla14km4vsfrqjmyhf2prss"))))
"0zsw4j6gk25303xpdwnkda2sq3mb4zb4p1mzwiyf7hdyf87zis05"))))
(properties `((upstream-name . "fishpond")))
(build-system r-build-system)
(propagated-inputs
@ -19088,14 +19195,14 @@ variable and significantly correlated genes.")
(define-public r-sparsematrixstats
(package
(name "r-sparsematrixstats")
(version "1.12.0")
(version "1.12.2")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "sparseMatrixStats" version))
(sha256
(base32
"0yng347pnsrkbjgfw9xi20ms57kkbdgzh3sz3sj24dp6k0p5s3da"))))
"00jalzg6yphi8ci4iid7x38jlsrvvdswrq7cqa7jybs26ayjldw1"))))
(properties
`((upstream-name . "sparseMatrixStats")))
(build-system r-build-system)
@ -19113,14 +19220,14 @@ data in the column sparse format.")
(define-public r-delayedmatrixstats
(package
(name "r-delayedmatrixstats")
(version "1.22.0")
(version "1.22.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "DelayedMatrixStats" version))
(sha256
(base32
"1mjdk76vmjzmmll0r73kfdi3x77hpdbk3jgzdqryxg4gna597q7j"))))
"13iqlw74zh65y2ckwg0b3xbqc6jgj34xjgsg9axfv7j7znwk9igg"))))
(properties
`((upstream-name . "DelayedMatrixStats")))
(build-system r-build-system)
@ -20258,14 +20365,14 @@ package, primarily for creation of the underlying Conda instance.")
(define-public r-basilisk
(package
(name "r-basilisk")
(version "1.12.0")
(version "1.12.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "basilisk" version))
(sha256
(base32
"02ai6ybxhj9q9mshkf17ivvqwsh9lhz7fig5wvr3m7a48hmqqg55"))))
"0bg6jfl12jsmhgby7x7g2vfmi61rx0jdksi97hb0zajgh1nvhirh"))))
(properties `((upstream-name . "basilisk")))
(build-system r-build-system)
(propagated-inputs
@ -20284,14 +20391,14 @@ Python environments in a single R session.")
(define-public r-biocthis
(package
(name "r-biocthis")
(version "1.10.1")
(version "1.10.3")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "biocthis" version))
(sha256
(base32
"1kmgahjyyrvs475as24yk0jniswjaa507q6zs8zq8jjqa26gy6zj"))))
"1v0qrypdzl1bg85k8i7qamb6709cgk4ypmisjh6bn5r36nqd5qx4"))))
(properties `((upstream-name . "biocthis")))
(build-system r-build-system)
(arguments
@ -20489,14 +20596,14 @@ using aCGH or sequencing.")
(define-public r-bionero
(package
(name "r-bionero")
(version "1.8.0")
(version "1.8.5")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "BioNERO" version))
(sha256
(base32
"0733v4mijf94gn0sbkhiinb3hxlsfqw2l89gx94k88sp3qy2qzvc"))))
"0nrvq6cn55qzp66pqssyfxl2wh5dfqndchcv8qgfqajsnz8i35xm"))))
(properties `((upstream-name . "BioNERO")))
(build-system r-build-system)
(propagated-inputs
@ -20504,8 +20611,8 @@ using aCGH or sequencing.")
r-complexheatmap
r-dynamictreecut
r-genie3
r-ggdendro
r-ggnetwork
r-ggnewscale
r-ggplot2
r-ggrepel
r-igraph
@ -20513,10 +20620,10 @@ using aCGH or sequencing.")
r-matrixstats
r-minet
r-netrep
r-networkd3
r-patchwork
r-rcolorbrewer
r-reshape2
r-rlang
r-summarizedexperiment
r-sva
r-wgcna))
@ -20982,13 +21089,13 @@ estimates, etc.")
(define-public r-tcgabiolinks
(package
(name "r-tcgabiolinks")
(version "2.28.2")
(version "2.28.3")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "TCGAbiolinks" version))
(sha256
(base32 "16hpljnqskgv7mycj0ipfxhvkyy0hcqvnrn5m416plwcx5cj2fjm"))))
(base32 "1hh09ya4jg062k1ibp1cpvdrgv6gwr95ch57iycgd3cjc5g0xhii"))))
(properties `((upstream-name . "TCGAbiolinks")))
(build-system r-build-system)
(propagated-inputs

370
gnu/packages/bioinformatics.scm
View file

@ -687,6 +687,59 @@ and utilities for PacBio C++ applications.")
suite native in R.")
(license license:expat))))
(define-public r-bpcells
(let ((commit "32ce67312185d3ed1046b4218dd3aaf1b35dcfda")
(revision "1"))
(package
(name "r-bpcells")
(version (git-version "0.1.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/bnprks/BPCells/")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0im4sqvbii326acmd1hnimyzsllnbvnh9al3dp1nla6isgi7s6cg"))))
(properties `((upstream-name . "BPCells")))
(build-system r-build-system)
(arguments
(list
#:phases
'(modify-phases %standard-phases
(add-after 'unpack 'do-not-tune
(lambda _
(substitute* "configure"
(("\"-march=native\"") "\"\"")))))))
(inputs (list hdf5 zlib))
(propagated-inputs (list r-dplyr
r-ggplot2
r-ggrepel
r-hexbin
r-magrittr
r-matrix
r-patchwork
r-rcolorbrewer
r-rcpp
r-rcppeigen
r-rlang
r-scales
r-scattermore
r-stringr
r-tibble
r-tidyr
r-vctrs))
(native-inputs (list pkg-config))
(home-page "https://github.com/bnprks/BPCells/")
(synopsis "Single cell counts matrices to PCA")
(description
"This is a package providing efficient operations for single cell
ATAC-seq fragments and RNA counts matrices. It is interoperable with standard
file formats, and introduces efficient bit-packed formats that allow large
storage savings and increased read speeds.")
(license license:gpl3))))
(define-public r-btools
(let ((commit "fa21d4ca01d37ea4d98b45582453f3bf95cbc2b5")
(revision "1"))
@ -822,6 +875,78 @@ attributes of microbiome data - zero-inflation and over-dispersion, are
simultaneously considered.")
(license license:gpl3))))
(define-public r-numbat
(let ((commit "4ab7752e7d267a3f443756675728521a9b0a7295")
(revision "1"))
(package
(name "r-numbat")
(version (git-version "1.3.2-1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/kharchenkolab/numbat")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0wa2cz5iy570r2a57bd74jramxayvfhmxznb0vq4vyk1ia8l5jd1"))))
(properties `((upstream-name . "numbat")))
(build-system r-build-system)
(propagated-inputs
(list r-ape
r-catools
r-data-table
r-dendextend
r-dplyr
r-genomicranges
r-ggplot2
r-ggraph
r-ggtree
r-glue
r-igraph
r-iranges
r-logger
r-magrittr
r-matrix
r-optparse
r-paralleldist
r-patchwork
r-pryr
r-purrr
r-r-utils
r-rcpp
r-rcpparmadillo
r-rhpcblasctl
r-roptim
r-scales
r-scistreer
r-stringr
r-tibble
r-tidygraph
r-tidyr
r-vcfr
r-zoo))
(home-page "https://github.com/kharchenkolab/numbat")
(synopsis "Haplotype-Aware CNV Analysis from scRNA-Seq")
(description
"This package provides a computational method that infers copy number
variations (CNVs) in cancer scRNA-seq data and reconstructs the tumor
phylogeny. numbat integrates signals from gene expression, allelic ratio, and
population haplotype structures to accurately infer allele-specific CNVs in
single cells and reconstruct their lineage relationship. numbat can be used
to:
@enumerate
@item detect allele-specific copy number variations from single-cells;
@item differentiate tumor versus normal cells in the tumor microenvironment;
@item infer the clonal architecture and evolutionary history of profiled
tumors.
@end enumerate
numbat does not require tumor/normal-paired DNA or genotype data, but operates
solely on the donor scRNA-data data (for example, 10x Cell Ranger output).")
(license license:expat))))
(define-public r-p2data
(let ((commit "7d4c0e17d7899f9d9b08ab2bf455abe150912f4c")
(revision "1"))
@ -3859,17 +3984,21 @@ file formats including SAM/BAM, Wiggle/BigWig, BED, GFF/GTF, VCF.")
(define-public python-dnaio
(package
(name "python-dnaio")
(version "0.6.0")
(version "0.10.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "dnaio" version))
(sha256
(base32
"14v5yyasq2bz34j38wi3xfcp06jj7l35ppibjcn95l2n73hz3zwi"))))
(build-system python-build-system)
"064xc4j8plb4fpkm8mw55715mvpvi2sxsknpjx18c2zh904salfy"))))
(build-system pyproject-build-system)
(arguments
(list #:tests? #false)) ;there are none
(native-inputs
(list python-cython python-pytest python-xopen))
(list python-cython python-pytest python-setuptools-scm))
(propagated-inputs
(list python-xopen))
(home-page "https://github.com/marcelm/dnaio/")
(synopsis "Read FASTA and FASTQ files efficiently")
(description
@ -3941,28 +4070,40 @@ annotations of the genome.")
(define-public cutadapt
(package
(name "cutadapt")
(version "2.1")
(version "4.0")
(source (origin
(method url-fetch)
(uri (pypi-uri "cutadapt" version))
(sha256
(base32
"1vqmsfkm6llxzmsz9wcfcvzx9a9f8iabvwik2rbyn7nc4wm25z89"))))
(build-system python-build-system)
"0xgsv88mrlw2b1radmd1104y7bg8hvv54ay7xfdpnjiw2jgkrha9"))))
(build-system pyproject-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'always-cythonize
(lambda _
(delete-file "src/cutadapt/_align.c")
;; If PKG-INFO exists, setup.py decides not to run Cython.
(substitute* "setup.py"
(("os.path.exists\\('PKG-INFO'\\):")
"os.path.exists('totally-does-not-exist'):")))))))
(list
#:test-flags
'(list "-k" "not test_no_read_only_comment_fasta_input")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-test
(lambda _
(let ((site (string-append
#$output "/lib/python"
#$(version-major+minor
(package-version python))
"/site-packages")))
(substitute* "tests/test_command.py"
(("env=\\{\"LC_CTYPE\": \"C\"\\},")
(string-append "env={\"LC_CTYPE\": \"C\", \"GUIX_PYTHONPATH\": \""
(getenv "GUIX_PYTHONPATH") ":" site
"\"},")))))))))
(inputs
(list python-dnaio python-xopen))
(native-inputs
(list python-cython python-pytest python-setuptools-scm))
(list python-cython
python-pytest
python-pytest-mock
python-pytest-timeout
python-setuptools-scm))
(home-page "https://cutadapt.readthedocs.io/en/stable/")
(synopsis "Remove adapter sequences from nucleotide sequencing reads")
(description
@ -9673,7 +9814,7 @@ differently labelled data.")
(define-public r-pando
(package
(name "r-pando")
(version "1.0.1")
(version "1.0.5")
(source
(origin
(method git-fetch)
@ -9682,21 +9823,22 @@ differently labelled data.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0c83anzdrbvg47p9xns2bxpjlx5z328can3jmzilw6rygwp7hyii"))))
(base32 "04kr1b28p5j7h48g32cldkg87xcmxnmd4kspygkfs7a4amihpi66"))))
(properties `((upstream-name . "Pando")))
(build-system r-build-system)
(propagated-inputs
(list r-bayestestr
r-brms
r-foreach
r-genomicranges
r-ggplot2
r-ggpointdensity
r-ggraph
r-glmnetutils
r-grr
r-iranges
r-irlba
r-matrix
r-matrixgenerics
r-motifmatchr
r-pals
r-patchwork
@ -9706,8 +9848,7 @@ differently labelled data.")
r-tfbstools
r-tidygraph
r-tidyverse
r-uwot
r-xgboost))
r-uwot))
(native-inputs (list r-knitr))
(home-page "https://github.com/quadbiolab/Pando")
(synopsis "Infer regulomes from multi-modal single-cell genomics data")
@ -12284,7 +12425,7 @@ Browser.")
(define-public bismark
(package
(name "bismark")
(version "0.20.1")
(version "0.24.1")
(source
(origin
(method git-fetch)
@ -12294,69 +12435,90 @@ Browser.")
(file-name (git-file-name name version))
(sha256
(base32
"0xchm3rgilj6vfjnyzfzzymfd7djr64sbrmrvs3njbwi66jqbzw9"))))
"0j4dy33769f0jr2w1brb710zxwpg3zwjlnvlcpi5pr6mqc8dkg8n"))
(snippet '(delete-file "plotly/plot.ly"))))
(build-system perl-build-system)
(arguments
`(#:tests? #f ; there are no tests
#:modules ((guix build utils)
(list
#:tests? #f ; there are no tests
#:modules '((guix build utils)
(ice-9 popen)
(srfi srfi-26)
(guix build perl-build-system))
#:phases
(modify-phases %standard-phases
;; The bundled plotly.js is minified.
(add-after 'unpack 'replace-plotly.js
(lambda* (#:key inputs #:allow-other-keys)
(let* ((file (assoc-ref inputs "plotly.js"))
(installed "plotly/plotly.js"))
(let ((minified (open-pipe* OPEN_READ "uglifyjs" file)))
(call-with-output-file installed
(cut dump-port minified <>))))
#t))
(delete 'configure)
(delete 'build)
(replace 'install
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(share (string-append out "/share/bismark"))
(docdir (string-append out "/share/doc/bismark"))
(docs '("Docs/Bismark_User_Guide.html"))
(scripts '("bismark"
"bismark_genome_preparation"
"bismark_methylation_extractor"
"bismark2bedGraph"
"bismark2report"
"coverage2cytosine"
"deduplicate_bismark"
"filter_non_conversion"
"bam2nuc"
"bismark2summary"
"NOMe_filtering")))
(substitute* "bismark2report"
(("\\$RealBin/plotly")
(string-append share "/plotly")))
(mkdir-p share)
(mkdir-p docdir)
(mkdir-p bin)
(for-each (lambda (file) (install-file file bin))
scripts)
(for-each (lambda (file) (install-file file docdir))
docs)
(copy-recursively "Docs/Images" (string-append docdir "/Images"))
(copy-recursively "plotly"
(string-append share "/plotly"))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'replace-plotly.js
(lambda* (#:key inputs #:allow-other-keys)
(let* ((share (string-append #$output "/share/bismark"))
(file (assoc-ref inputs "plotly.js"))
(installed "plotly/plotly.js"))
;; The bundled plotly.js is minified.
(let ((minified (open-pipe* OPEN_READ "uglifyjs" file)))
(call-with-output-file installed
(cut dump-port minified <>)))
(substitute* "bismark2report"
(("plotly_template.tpl")
(string-append share "/plotly/plotly_template.tpl"))
(("my \\$plotly_code = read_report_template\\('plot.ly'\\);")
(string-append "\
my $plotly_code = read_report_template('" share "/plotly/plotly.js');
$plotly_code = \"<script>\" . $plotly_code . \"</script>\";"))))))
(replace 'configure
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "bismark"
(("\\(\\!system \"which samtools >/dev/null 2>&1\"\\)")
"(\"true\")")
(("\\$samtools_path = `which samtools`;")
(string-append "$samtools_path = '"
(search-input-file inputs "/bin/samtools")
"';"))
(("\\$path_to_bowtie2 = 'bowtie2'")
(string-append "$path_to_bowtie2 = '"
(search-input-file inputs "/bin/bowtie2")
"'"))
(("\\$path_to_hisat2 = 'hisat2'")
(string-append "$path_to_hisat2 = '"
(search-input-file inputs "/bin/hisat2")
"'"))
(("\\$path_to_minimap2 = 'minimap2'")
(string-append "$path_to_minimap2 = '"
(search-input-file inputs "/bin/minimap2")
"'")))))
(delete 'build)
(replace 'install
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((bin (string-append #$output "/bin"))
(share (string-append #$output "/share/bismark"))
(docdir (string-append #$output "/share/doc/bismark"))
(scripts '("bismark"
"bismark_genome_preparation"
"bismark_methylation_extractor"
"bismark2bedGraph"
"bismark2report"
"coverage2cytosine"
"deduplicate_bismark"
"filter_non_conversion"
"bam2nuc"
"bismark2summary"
"NOMe_filtering")))
(mkdir-p share)
(mkdir-p docdir)
(mkdir-p bin)
(for-each (lambda (file) (install-file file bin))
scripts)
(copy-recursively "docs" docdir)
(copy-recursively "plotly"
(string-append share "/plotly"))
;; Fix references to gunzip
(substitute* (map (lambda (file)
(string-append bin "/" file))
scripts)
(("\"gunzip -c")
(string-append "\"" (assoc-ref inputs "gzip")
"/bin/gunzip -c")))
#t))))))
;; Fix references to gunzip
(substitute* (map (lambda (file)
(string-append bin "/" file))
scripts)
(("\"gunzip -c")
(string-append "\"" (assoc-ref inputs "gzip")
"/bin/gunzip -c")))))))))
(inputs
(list gzip perl-carp perl-getopt-long))
(list bowtie gzip hisat2 minimap2 perl-carp perl-getopt-long samtools))
(native-inputs
`(("plotly.js"
,(origin
@ -14644,6 +14806,32 @@ visualize the results within R framework. The disgenet2r package is designed
to retrieve data from DisGeNET v6.0 (Jan, 2019).")
(license license:expat))))
(define-public r-dtmm
(let ((commit "3a553b1e17d27d90a496d2e23e98e5dfe4abc266")
(revision "1"))
(package
(name "r-dtmm")
(version (git-version "0.1.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/MaStatLab/DTMM")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"19279wafqfs9gk9489f8zsp52qcdb0mkxgvqszq4i733ckr2mmkk"))))
(properties `((upstream-name . "DTMM")))
(build-system r-build-system)
(propagated-inputs (list r-ape r-rcpp r-rcpparmadillo))
(home-page "https://github.com/MaStatLab/DTMM")
(synopsis "Dirichlet-tree multinomial mixtures")
(description
"This package lets you perform unsupervised clustering of amplicon
sequencing data in microbiome studies with the Dirichlet-tree Multinomial
Mixtures.")
(license license:cc0))))
(define-public r-dyngen
(package
(name "r-dyngen")
@ -17253,6 +17441,30 @@ information... The package can also be used to extract data from @code{.loom}
files.")
(license license:expat))))
(define-public rscape
(package
(name "rscape")
(version "2.0.0.q")
(source (origin
(method url-fetch)
(uri (string-append "http://eddylab.org/software/rscape/"
"rscape_v" version ".tar.gz"))
(sha256
(base32
"1jabvm3fzh8iy4803ns12v1fsy28x6wdy8wx4ik8y0mfac4h787q"))))
(build-system gnu-build-system)
(propagated-inputs (list gsl openmpi))
(native-inputs (list automake autoconf))
(home-page "https://github.com/EddyRivasLab/R-scape")
(synopsis "RNA structural covariation above phylogenetic expectation")
(description
"R-scape discovers RNA secondary structure consensus elements.
These elements include riboswitches and ribozymes. It utilizes probabilistic
modeling of sequence alignments, explicitly considering folding dependencies.
The tool enables the de novo search for new structural elements and
facilitates comparative analysis of known RNA families.")
(license license:bsd-3)))
(define-public r-seurat-utils
(let ((commit "0b6f5b548a49148cfbeaa654e8a618c0a020afa5")
(revision "1"))

83
gnu/packages/bittorrent.scm
View file

@ -40,6 +40,7 @@
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
#:use-module (guix build-system qt)
#:use-module (guix build-system glib-or-gtk)
#:use-module ((guix licenses) #:prefix l:)
#:use-module (guix gexp)
@ -451,7 +452,7 @@ desktops.")
(define-public qbittorrent
(package
(name "qbittorrent")
(version "4.5.2")
(version "4.5.4")
(source
(origin
(method git-fetch)
@ -460,37 +461,20 @@ desktops.")
(commit (string-append "release-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "07s0ypkd1zzkw9qhfwxxx7s6zizjz0448al17xmc1b48phn46hjk"))))
(build-system gnu-build-system)
(base32 "1r4vqlwmvg7b0ibq53m7ascyykv3v66qxlwfi0zmmi1ig7rlkxkk"))))
(build-system qt-build-system)
(arguments
`(#:configure-flags
(list (string-append "--with-boost-libdir="
(assoc-ref %build-inputs "boost")
"/lib")
"--enable-debug"
"QMAKE_LRELEASE=lrelease")
#:modules ((guix build gnu-build-system)
(guix build qt-utils)
(guix build utils))
#:imported-modules (,@%gnu-build-system-modules
(guix build qt-utils))
#:phases
(modify-phases %standard-phases
(add-after 'install 'wrap-qt
(lambda* (#:key outputs inputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(wrap-qt-program "qbittorrent" #:output out #:inputs inputs))
#t)))))
(list #:configure-flags #~(list "-DTESTING=ON")
#:test-target "check"))
(native-inputs
(list pkg-config qttools-5))
(list qttools-5))
(inputs
`(("boost" ,boost)
("libtorrent-rasterbar" ,libtorrent-rasterbar)
("openssl" ,openssl)
("python" ,python-wrapper)
("qtbase" ,qtbase-5)
("qtsvg-5" ,qtsvg-5)
("zlib" ,zlib)))
(list boost
libtorrent-rasterbar
openssl
python-wrapper
qtsvg-5
zlib))
(home-page "https://www.qbittorrent.org/")
(synopsis "Graphical BitTorrent client")
(description
@ -510,15 +494,46 @@ features.")
(arguments
(substitute-keyword-arguments (package-arguments base)
((#:configure-flags configure-flags)
#~(append #$configure-flags
(list "--disable-gui")))
((#:phases phases)
#~(modify-phases #$phases
(delete 'wrap-qt)))))
#~(cons "-DGUI=OFF" #$configure-flags))))
(inputs
(modify-inputs (package-inputs base)
(delete "qtsvg-5"))))))
(define-public qbittorrent-enhanced
(package
(inherit qbittorrent)
(name "qbittorrent-enhanced")
(version "4.5.2.10")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/c0re100/qBittorrent-Enhanced-Edition")
(commit (string-append "release-" version))))
(file-name (git-file-name name version))
(sha256
(base32
"18z4panaqbmhbw5i1yn17wpqzslhy6w08zcc5bx2hhlg8slp1r9j"))))
(home-page "https://github.com/c0re100/qBittorrent-Enhanced-Edition")
(description
"qBittorrent Enhanced is a bittorrent client based on qBittorrent with
the following features:
@itemize
@item Auto Ban Xunlei, QQ, Baidu, Xfplay, DLBT and Offline downloader
@item Auto Ban Unknown Peer from China Option (Default: OFF)
@item Auto Update Public Trackers List (Default: OFF)
@item Auto Ban BitTorrent Media Player Peer Option (Default: OFF)
@item Peer whitelist/blacklist
@end itemize")))
(define-public qbittorrent-enhanced-nox
(package
(inherit qbittorrent-enhanced)
(name "qbittorrent-enhanced-nox")
(arguments (package-arguments qbittorrent-nox))
(inputs (package-inputs qbittorrent-nox))))
(define-public deluge
(package
(name "deluge")

13
gnu/packages/bootloaders.scm
View file

@ -17,7 +17,7 @@
;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
;;; Copyright © 2021 Stefan <stefan-guix@vodafonemail.de>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -665,7 +665,7 @@ tree binary files. These are board description files used by Linux and BSD.")
(sha256
(base32
"1y5x8vxdgsqdqlsvq01mn8lmw53fqairkhvhhjx83hjva0m4id2h"))))
(build-system gnu-build-system)
(build-system gnu-build-system)
(native-inputs
(list bison
dtc
@ -1484,10 +1484,13 @@ grub-efi-netboot-removable-bootloader.")
"U_BOOT_DATE \"Jan 01 1969\"")
(("U_BOOT_TIME \"%T\"")
"U_BOOT_TIME \"00:00:00\""))))
(add-before 'build 'adjust-for-gcc10
(add-before 'build 'adjust-for-current-gcc
(lambda _
(copy-file "include/linux/compiler-gcc6.h"
"include/linux/compiler-gcc10.h")
(let ((gcc-major-version #$(version-major
(package-version gcc))))
(copy-file "include/linux/compiler-gcc6.h"
(string-append "include/linux/compiler-gcc"
gcc-major-version ".h")))
(substitute* "arch/arm/Makefile"
(("march=armv5")
"march=armv5te"))))

1
gnu/packages/bootstrap.scm
View file

@ -328,6 +328,7 @@ or false to signal an error."
((string=? system "arm-eabi") "no-ld.so")
((string=? system "avr") "no-ld.so")
((string=? system "i686-mingw") "no-ld.so")
((string=? system "or1k-elf") "no-ld.so")
((string=? system "x86_64-mingw") "no-ld.so")
((string-suffix? "-elf" system) "no-ld.so")

6
gnu/packages/build-tools.scm
View file

@ -171,14 +171,14 @@ generate such a compilation database.")
(define-public bmake
(package
(name "bmake")
(version "20230321")
(version "20230622")
(source
(origin
(method url-fetch)
(uri (string-append
"http://www.crufty.net/ftp/pub/sjg/bmake-" version ".tar.gz"))
(sha256
(base32 "0ml2z9ij674bd4227566n0547pcpxpmimp4xw4hj52kl1265czgd"))))
(base32 "007ckj2381bmwpxy5zmy2m19p2hxaj7ld80b5lv7i798c2fwj15l"))))
(build-system gnu-build-system)
(inputs
(list bash-minimal))
@ -211,7 +211,7 @@ generate such a compilation database.")
(string-append
"--with-default-sys-path=" #$output "/share/mk"))
#:make-flags
#~(list "INSTALL=install"))) ;; use coreutils install
#~(list "INSTALL=install"))) ; use coreutils' install
(home-page "http://www.crufty.net/help/sjg/bmake.htm")
(synopsis "BSD's make")
(description

4
gnu/packages/cdrom.scm
View file

@ -162,7 +162,7 @@ libcdio.")
(define-public xorriso
(package
(name "xorriso")
(version "1.5.4")
(version "1.5.6.pl02")
(outputs '("out" "gui"))
(source (origin
(method url-fetch)
@ -170,7 +170,7 @@ libcdio.")
version ".tar.gz"))
(sha256
(base32
"14p3r6jahfqqw2gf739l5myz5x4qb8h34zyczbpdps2krbq5bh9s"))))
"1qfs9ybd9k67r78rp1csijmlrq7mq39f7kpyq6qcap46z5fryvvq"))))
(build-system gnu-build-system)
(arguments
`(#:phases

150
gnu/packages/check.scm
View file

@ -38,11 +38,12 @@
;;; Copyright © 2020, 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Hugo Lecomte <hugo.lecomte@inria.fr>
;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2022 David Elsing <david.elsing@posteo.net>
;;; Copyright © 2022, 2023 David Elsing <david.elsing@posteo.net>
;;; Copyright © 2022 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;; Copyright © 2023 Luis Felipe López Acevedo <luis.felipe.la@protonmail.com>
;;; Copyright © 2023 Timo Wilken <guix@twilken.net>
;;; Copyright © 2023 Zhu Zihao <all_but_last@163.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -596,10 +597,10 @@ It allows the specification of behaviour scenarios using a given-when-then
pattern.")
(license license:apsl2))))
(define-public catch2-3.1
(define-public catch2-3.3
(package
(name "catch2")
(version "3.1.1")
(version "3.3.2")
(home-page "https://github.com/catchorg/Catch2")
(source (origin
(method git-fetch)
@ -609,66 +610,14 @@ pattern.")
(file-name (git-file-name name version))
(sha256
(base32
"1qnr5b3zq8brh43f924rgnw5gmmjf9ax7kbq2crz1mlwgmdymxlp"))))
(outputs (list "out" "static"))
(build-system meson-build-system)
"0m6i3lr0qk303ashjpz5vpwmxf76n5d6s8jq6r6kcy6gph525zmp"))))
(build-system cmake-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-meson
(lambda _
(substitute* "src/catch2/meson.build"
(("static_library") "both_libraries"))))
(add-after 'install 'install-cmake-config
(lambda* (#:key outputs #:allow-other-keys)
(define prefix (string-append (assoc-ref outputs "out")
"/lib/cmake/Catch2/"))
(mkdir-p prefix)
(call-with-output-file (string-append
prefix
"catch2-config-version.cmake")
(lambda (port)
(format
port
"set(PACKAGE_VERSION ~s)~@
if(PACKAGE_FIND_VERSION STREQUAL PACKAGE_VERSION)~@
set(PACKAGE_VERSION_EXACT TRUE)~@
set(PACKAGE_VERSION_COMPATIBLE TRUE)~@
elseif(PACKAGE_FIND_VERSION VERSION_LESS_EQUAL ~
PACKAGE_VERSION)~@
set(PACKAGE_VERSION_COMPATIBLE TRUE)~@
else()~@
set(PACKAGE_VERSION_COMPATIBLE FALSE)~@
endif()"
#$version)))
(call-with-output-file (string-append prefix
"catch2-config.cmake")
(lambda (port)
(format
port
"include(FindPkgConfig)~@
pkg_check_modules(CATCH2 IMPORTED_TARGET GLOBAL catch2)~@
pkg_check_modules(CATCH2MAIN ~
IMPORTED_TARGET GLOBAL ~
catch2 catch2-with-main)~@
if(CATCH2_FOUND)~@
add_library(Catch2::Catch2 ALIAS PkgConfig::CATCH2)~@
endif()~@
if(CATCH2MAIN_FOUND)~@
add_library(Catch2::Catch2WithMain ~
ALIAS PkgConfig::CATCH2MAIN)~@
endif()")))))
(add-after 'install 'move-static-libraries
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(static (assoc-ref outputs "static")))
(for-each
(lambda (file)
(install-file file (string-append static "/lib"))
(delete-file file))
(find-files (string-append out "/lib")
"\\.a$"))))))))
#:configure-flags
#~(list "-DCATCH_DEVELOPMENT_BUILD=ON"
"-DCATCH_ENABLE_WERROR=OFF"
"-DBUILD_SHARED_LIBS=ON")))
(inputs (list python-wrapper))
(synopsis "Automated test framework for C++ and Objective-C")
(description "Catch2 stands for C++ Automated Test Cases in Headers and is
@ -2386,9 +2335,9 @@ failures.")
(package/inherit python-pytest-enabler-bootstrap
(arguments
(substitute-keyword-arguments
(package-arguments python-pytest-enabler-bootstrap)
((#:tests? _ #f)
#t)
(strip-keyword-arguments
'(#:tests?)
(package-arguments python-pytest-enabler-bootstrap))
((#:phases phases #~%standard-phases)
#~(modify-phases #$phases
(replace 'check
@ -3198,6 +3147,46 @@ application \"sees\". It is meant to be loaded using the dynamic linker's
provides a simple way to achieve this.")
(license license:gpl2)))
(define-public rapidcheck
(let ((commit "a5724ea5b0b00147109b0605c377f1e54c353ba2")
(revision "0"))
(package
(name "rapidcheck")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri
(git-reference
(url "https://github.com/emil-e/rapidcheck")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0f2dmsym8ibnwkaidxmgp73mg0sdniwsyn6ppskh74246h29bbcy"))))
(arguments
(list
#:tests? #f ;require fetching submodules
#:configure-flags #~(list "-DCMAKE_POSITION_INDEPENDENT_CODE=ON")
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'install-extra-headers
(lambda _
(with-directory-excursion "../source/extras"
(for-each
(lambda (dir)
(let ((dir (string-append dir "/include/rapidcheck/"))
(dest (string-append #$output
"/include/rapidcheck")))
(copy-recursively dir dest)))
'("boost" "boost_test" "catch" "gmock" "gtest"))))))))
(build-system cmake-build-system)
(home-page "https://github.com/emil-e/rapidcheck")
(synopsis "Property based testing framework for C++")
(description "Rapidcheck is a property based testing framework for C++.
It works by generating random data to try and find a case breaks your given
pre-condition.")
(license license:bsd-2))))
(define-public umockdev
(package
(name "umockdev")
@ -3554,3 +3543,36 @@ with SRFI 64-based test suites. It comes with a command-line interface
to run test collections, and a library that includes a test runner and
helpers for writing tests.")
(license license:public-domain)))
(define-public subunit
(package
(name "subunit")
(version "1.4.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/testing-cabal/subunit")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"16n1zxwnmhb7vzixngvmm5zzk4q5jaqqjwyr6pr6w0ys60b7xja3"))))
(build-system gnu-build-system)
(native-inputs (list autoconf
automake
check
cppunit
libtool
pkg-config
python-fixtures
python-hypothesis
python-testscenarios))
(inputs (list perl python))
(propagated-inputs (list python-testtools))
(home-page "https://github.com/testing-cabal/subunit")
(synopsis "Test reporting and control protocol")
(description
"Subunit is a streaming protocol for test results. Subunit comes with
command line filters to process a subunit stream and language bindings for
Python, C, C++ and shell. Bindings are easy to write for other languages.")
(license (list license:asl2.0 license:bsd-3)))) ;user can pick

1
gnu/packages/cinnamon.scm
View file

@ -54,6 +54,7 @@
(uri (git-reference
(url "https://github.com/linuxmint/xapp/")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0n443lwmxzmfnw03n98cqnm2ah1iij6pwsnwbly8sncmzg5jyklg"))))

8
gnu/packages/compression.scm
View file

@ -809,13 +809,13 @@ sfArk file format to the uncompressed sf2 format.")
(package
(name "libmspack")
(home-page "https://cabextract.org.uk/libmspack/")
(version "0.10.1")
(version "0.11")
(source
(origin
(method url-fetch)
(uri (string-append home-page name "-" version "alpha.tar.gz"))
(sha256
(base32 "13janaqsvm7aqc4agjgd4819pbgqv50j88bh5kci1z70wvg65j5s"))))
(base32 "06x2xq73lchw5lcq386sx9wk05v21s2f38bi3dwkdk5fy2r1zpbh"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags '("--disable-static")))
@ -1063,13 +1063,13 @@ tarballs.")
(package
(name "cabextract")
(home-page "https://cabextract.org.uk/")
(version "1.9.1")
(version "1.11")
(source (origin
(method url-fetch)
(uri (string-append home-page "cabextract-" version ".tar.gz"))
(sha256
(base32
"19qwhl2r8ip95q4vxzxg2kp4p125hjmc9762sns1dwwf7ikm7hmg"))
"1iis7a19n26dax3gsnrw9kb0vwq46rbpicnlyf7p2k2y2nqnsm5m"))
(modules '((guix build utils)))
(snippet
'(begin

2
gnu/packages/containers.scm
View file

@ -360,6 +360,8 @@ configure network interfaces in Linux containers.")
(string-append "CATATONIT_PATH=" (which "true"))))
(substitute* "vendor/github.com/containers/common/pkg/config/config_linux.go"
(("/usr/local/libexec/podman")
(string-append #$output "/libexec/podman"))
(("/usr/local/lib/podman")
(string-append #$output "/bin")))
(substitute* "vendor/github.com/containers/common/pkg/config/default.go"
(("/usr/libexec/podman/conmon") (which "conmon"))

182
gnu/packages/cpp.scm
View file

@ -29,7 +29,7 @@
;;; Copyright © 2022 muradm <mail@muradm.net>
;;; Copyright © 2022 Attila Lendvai <attila@lendvai.name>
;;; Copyright © 2022 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2022 David Elsing <david.elsing@posteo.net>
;;; Copyright © 2022, 2023 David Elsing <david.elsing@posteo.net>
;;; Copyright © 2022, 2023 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2023 Sughosha <Sughosha@proton.me>
@ -1344,7 +1344,7 @@ aws-c-http, aws-c-io, aws-c-mqtt, aws-checksums, and s2n.")
(name "aws-sdk-cpp")
; When updating also check for a tagged update to aws-crt-cpp from
; https://github.com/aws/aws-sdk-cpp/tree/main/crt
(version "1.9.236")
(version "1.9.306")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1353,7 +1353,7 @@ aws-c-http, aws-c-io, aws-c-mqtt, aws-checksums, and s2n.")
(file-name (git-file-name name version))
(sha256
(base32
"13qhxsbfn81r7lg382wb4d3xfc4a287ikww5i7whddk5yz0j8384"))))
"0k3f4xq4vvlwrwgpp0vka4pwzbnkylvrkbbkjksx6wq6g1a2gc2g"))))
(build-system cmake-build-system)
(arguments
'(;; Tests are run during the build phase.
@ -2553,3 +2553,179 @@ Main features:
@item No dependencies.
@end itemize")
(license license:expat)))
(define-public mpark-variant
(package
(name "mpark-variant")
(version "1.4.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mpark/variant")
(commit (string-append "v" version))))
(sha256
(base32
"0gz8d5qprlfqb42cfyyc4nbwhgarhw027a9nr52h3gbdn560j0j4"))
(file-name (git-file-name name version))))
(build-system cmake-build-system)
(arguments
(list
#:configure-flags #~(list "-DMPARK_VARIANT_INCLUDE_TESTS=mpark")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'find-googletest
(lambda _
(substitute* "test/CMakeLists.txt"
(("add_subdirectory.*3rdparty/googletest.*\n")
"find_package(GTest REQUIRED)\n")
((".*3rdparty/googletest.*\n") "")
((".*config_compiler_and_linker.*\n") "")
(("gtest_main") "gtest gtest_main")))))))
(native-inputs (list googletest))
(home-page "https://github.com/mpark/variant")
(synopsis "Implementation of std::variant for C++11/14/17")
(description
"MPark.Variant provides the C++17 std::variant for C++11/14/17. It is
based on the implementation of std::variant in libc++.")
(license license:boost1.0)))
(define-public tsl-hopscotch-map
(package
(name "tsl-hopscotch-map")
(version "2.3.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Tessil/hopscotch-map")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"012pw37w000pdxdvps0wsqrw6597cm6i6kr5rpl303qmiwqicb2p"))))
(build-system cmake-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-cmake-test
(lambda _
(let ((file (open-file "CMakeLists.txt" "a")))
(display "\nenable_testing()\nadd_subdirectory(tests)" file)
(close-port file))
(substitute* "tests/CMakeLists.txt"
(("set\\(Boost_USE_STATIC_LIBS.*") "")
(("add_subdirectory\\(\\.\\..*")
"add_test(tsl_hopscotch_map_tests tsl_hopscotch_map_tests)\n")))))))
(native-inputs (list boost))
(home-page "https://github.com/Tessil/hopscotch-map")
(synopsis "Hash maps and hash sets using hopscotch hashing")
(description "This package provides a C++ implementation of several hash
map and a hash set variants using open addressing and hopscotch hashing to
resolve collisions. It is intended to be fast and provides additional
features, such as heterogeneous lookups and different growth policies.")
(license license:expat)))
(define-public tsl-sparse-map
(package
(name "tsl-sparse-map")
(version "0.6.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Tessil/sparse-map")
(commit (string-append "v" version))))
(sha256
(base32
"0rb7w0hzsj4qbm0dff1niaf75aag9lj0xqhgb3vg5h9hfic62ic2"))
(file-name (git-file-name name version))))
(build-system cmake-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-cmake-test
(lambda _
(let ((file (open-file "CMakeLists.txt" "a")))
(display "\nenable_testing()\nadd_subdirectory(tests)" file)
(close-port file))
(substitute* "tests/CMakeLists.txt"
(("set\\(Boost_USE_STATIC_LIBS.*") "")
(("add_subdirectory\\(\\.\\..*")
"add_test(tsl_sparse_map_tests tsl_sparse_map_tests)\n")))))))
(native-inputs (list boost))
(home-page "https://github.com/Tessil/sparse-map")
(synopsis "Sparse hash map")
(description "This package provides a C++ implementation of a hash map and
a hash set with open addressing and sparse quadratic probing. It is intended
to be memory efficient and provides additional features, such as heterogeneous
lookups and different growth policies.")
(license license:expat)))
(define-public tsl-ordered-map
(package
(name "tsl-ordered-map")
(version "1.1.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Tessil/ordered-map")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0bz5zgabalb7z0j9scng4zmi95hy7iasry5gz15x6y6dsdz0qf3j"))))
(build-system cmake-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-cmake-test
(lambda _
(let ((file (open-file "CMakeLists.txt" "a")))
(display "\nenable_testing()\nadd_subdirectory(tests)" file)
(close-port file))
(substitute* "tests/CMakeLists.txt"
(("set\\(Boost_USE_STATIC_LIBS.*") "")
(("add_subdirectory\\(\\.\\..*")
"add_test(tsl_ordered_map_tests tsl_ordered_map_tests)\n")))))))
(native-inputs (list boost))
(home-page "https://github.com/Tessil/ordered-map")
(synopsis "Order-preserving hash map and hash set")
(description "This package provides a C++ implementation of a hash map and
a hash set which preserve the order of insertion. It is intended for
efficient ordered insertions and lookup, while sacrifing performance for
ordered erase operations.")
(license license:expat)))
(define-public tl-optional
(package
(name "tl-optional")
(version "1.1.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/TartanLlama/optional")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0qkjplmhilbi1iqxx3pz0grcx5355ymk6wwd4h4309mk156xgx2q"))))
(build-system cmake-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-cmake-test
(lambda _
(substitute* "CMakeLists.txt"
(("FetchContent_Declare.*") "")
((".*http.*catchorg/Catch2.*") "")
(("FetchContent_MakeAvailable\\(Catch2\\)")
"find_package(Catch2 REQUIRED)")))))))
(native-inputs (list catch2))
(home-page "https://github.com/TartanLlama/optional")
(synopsis "Implementation of std::optional with extensions for C++11/14/17")
(description "@code{tl::optional} provides a single-header implementation of
the std::optional for C++11/14/17, with support for monadic operations added in
C++23.")
(license license:cc0)))

964
gnu/packages/cran.scm
View file

File diff suppressed because it is too large Load diff

6
gnu/packages/crates-io.scm
View file

@ -2559,17 +2559,17 @@ Alacritty terminal emulator.")
"This package provides a failure resistant deserialization derive.")
(license (list license:expat license:asl2.0))))
(define-public rust-alacritty-terminal-0.18
(define-public rust-alacritty-terminal-0.19
(package
(name "rust-alacritty-terminal")
(version "0.18.0")
(version "0.19.1")
(source (origin
(method url-fetch)
(uri (crate-uri "alacritty-terminal" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"1dk6zp5646ss0l9ka48jf6ajdzaq0zxl2pndblfl7a0f9lmwkwfx"))))
"19gypy8xhkm3icmc4js2jhh0nnw0ciag3qkxb55bw2mg3j61l01m"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs

1
gnu/packages/crypto.scm
View file

@ -1107,6 +1107,7 @@ trivial to build for local use. Portability is emphasized over performance.")
(uri (git-reference
(url "https://github.com/bitcoin-core/secp256k1")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"12wksk7bi3yfzmk1zwh5b6846zcaycqz1w4w4p23apjc8da4jwpn"))))

39
gnu/packages/cups.scm
View file

@ -63,8 +63,8 @@
#:use-module (ice-9 match))
(define-public brlaser
(let ((commit "9d7ddda8383bfc4d205b5e1b49de2b8bcd9137f1")
(revision "1"))
(let ((commit "2a49e3287c70c254e7e3ac9dabe9d6a07218c3fa")
(revision "2"))
(package
(name "brlaser")
(version (git-version "6" revision commit))
@ -76,16 +76,13 @@
(file-name (git-file-name name version))
(sha256
(base32
"1drh0nk7amn9a8wykki4l9maqa4vy7vwminypfy1712alwj31nd4"))))
"033g461qzwrzi6x24pfasyx9g7fkn5iy5f8c3h8bczg2bvscxyym"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags
(list (string-append "-DCUPS_DATA_DIR="
(assoc-ref %outputs "out")
"/share/cups")
(string-append "-DCUPS_SERVER_BIN="
(assoc-ref %outputs "out")
"/lib/cups"))))
(list
#:configure-flags
#~(list (string-append "-DCUPS_DATA_DIR=" #$output "/share/cups")
(string-append "-DCUPS_SERVER_BIN=" #$output "/lib/cups"))))
(inputs
(list ghostscript cups zlib))
(home-page "https://github.com/pdewacht/brlaser")
@ -249,6 +246,7 @@ filters for the PDF-centric printing workflow introduced by OpenPrinting.")
(package
(name "cups-minimal")
(version "2.4.2")
(replacement cups-minimal/fixed)
(source
(origin
(method git-fetch)
@ -335,13 +333,28 @@ applications''. These must be installed separately.")
;; CUPS is Apache 2.0 with exceptions, see the NOTICE file.
(license license:asl2.0)))
(define cups-minimal/fixed
(package
(inherit cups-minimal)
(version "2.4.6")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/OpenPrinting/cups")
(commit (string-append "v" version))))
(file-name (git-file-name "cups" version))
(sha256
(base32 "0z70rhfd96qmdx82gdhh2nqjiia0lnvfdwpngjkag2sidw4cm3c1"))))))
(define-public cups
(package/inherit cups-minimal
(name "cups")
(arguments
(substitute-keyword-arguments (package-arguments cups-minimal)
((#:tests? _ #t)
#t)
(substitute-keyword-arguments
(strip-keyword-arguments
'(#:tests?)
(package-arguments cups-minimal))
((#:configure-flags flags #~'())
#~(append #$flags
(list "--with-languages=all"))) ; no ‘=all’ means none(!)

21
gnu/packages/databases.scm
View file

@ -1559,7 +1559,22 @@ organized in a hash table or B+ tree.")
#~(list "--disable-static"
(string-append "--with-bash-headers="
(search-input-directory %build-inputs
"include/bash")))))
"include/bash")))
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'symlink-bash-loadables
(lambda* (#:key outputs #:allow-other-keys)
(with-directory-excursion (string-append
(assoc-ref outputs "out")
"/lib")
(mkdir "bash")
(for-each
(compose symlink
(lambda (loadable)
(values
(string-append (getcwd) "/" loadable ".so")
(string-append "bash/" loadable))))
'("readrec" "testrec"))))))))
(native-inputs
(list bc check-0.14 pkg-config))
(inputs
@ -4286,7 +4301,7 @@ the SQL language using a syntax that reflects the resulting query.")
(define-public apache-arrow
(package
(name "apache-arrow")
(version "12.0.0")
(version "12.0.1")
(source
(origin
(method git-fetch)
@ -4296,7 +4311,7 @@ the SQL language using a syntax that reflects the resulting query.")
(file-name (git-file-name name version))
(sha256
(base32
"057n3l9bpnfn8fqlqblkdz4w4rkmkr7zrh3adlgfw4nipwmm38zj"))))
"03flvb4xj6a7mfphx68ndrqr6g5jphmzb75m16fx7rnbzira2zpz"))))
(build-system cmake-build-system)
(arguments
(list

103
gnu/packages/debian.scm
View file

@ -337,7 +337,7 @@ distributions such as Debian and Trisquel.")
(define-public dpkg
(package
(name "dpkg")
(version "1.21.21")
(version "1.21.22")
(source
(origin
(method git-fetch)
@ -346,57 +346,60 @@ distributions such as Debian and Trisquel.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0vgc5irrjyyb5y5hza2hbq3dgfylrxvfdzysw8zzlhgf4bhm69zq"))))
(base32 "0b5czgif5g6pdjzcw60hzzj0i1llxvajf3nlx115axmpa3y4iynd"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'bootstrap 'patch-version
(lambda _
(patch-shebang "build-aux/get-version")
(with-output-to-file ".dist-version"
(lambda () (display ,version)))))
(add-after 'unpack 'set-perl-libdir
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(perl (assoc-ref inputs "perl")))
(setenv "PERL_LIBDIR"
(string-append out
"/lib/perl5/site_perl/"
,(package-version perl))))))
(add-after 'install 'wrap-scripts
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(with-directory-excursion (string-append out "/bin")
(for-each
(lambda (file)
(wrap-script file
;; Make sure all perl scripts in "bin" find the
;; required Perl modules at runtime.
`("PERL5LIB" ":" prefix
(,(string-append out
"/lib/perl5/site_perl")
,(getenv "PERL5LIB")))
;; DPKG perl modules always expect dpkg to be installed.
;; Work around this by adding dpkg to the path of the scripts.
`("PATH" ":" prefix (,(string-append out "/bin")))))
(list "dpkg-architecture"
"dpkg-buildflags"
"dpkg-buildpackage"
"dpkg-checkbuilddeps"
"dpkg-distaddfile"
"dpkg-genbuildinfo"
"dpkg-genchanges"
"dpkg-gencontrol"
"dpkg-gensymbols"
"dpkg-mergechangelogs"
"dpkg-name"
"dpkg-parsechangelog"
"dpkg-scanpackages"
"dpkg-scansources"
"dpkg-shlibdeps"
"dpkg-source"
"dpkg-vendor")))))))))
(list #:modules
`((srfi srfi-71)
,@%gnu-build-system-modules)
#:phases
#~(modify-phases %standard-phases
(add-before 'bootstrap 'patch-version
(lambda _
(patch-shebang "build-aux/get-version")
(with-output-to-file ".dist-version"
(lambda () (display #$version)))))
(add-after 'unpack 'set-perl-libdir
(lambda _
(let* ((perl #$(this-package-input "perl"))
(_ perl-version (package-name->name+version perl)))
(setenv "PERL_LIBDIR"
(string-append #$output
"/lib/perl5/site_perl/"
perl-version)))))
(add-after 'install 'wrap-scripts
(lambda _
(with-directory-excursion (string-append #$output "/bin")
(for-each
(lambda (file)
(wrap-script file
;; Make sure all perl scripts in "bin" find the
;; required Perl modules at runtime.
`("PERL5LIB" ":" prefix
(,(string-append #$output
"/lib/perl5/site_perl")
,(getenv "PERL5LIB")))
;; DPKG perl modules expect dpkg to be installed.
;; Work around it by adding dpkg to the script's path.
`("PATH" ":" prefix (,(string-append #$output
"/bin")))))
(list "dpkg-architecture"
"dpkg-buildflags"
"dpkg-buildpackage"
"dpkg-checkbuilddeps"
"dpkg-distaddfile"
"dpkg-genbuildinfo"
"dpkg-genchanges"
"dpkg-gencontrol"
"dpkg-gensymbols"
"dpkg-mergechangelogs"
"dpkg-name"
"dpkg-parsechangelog"
"dpkg-scanpackages"
"dpkg-scansources"
"dpkg-shlibdeps"
"dpkg-source"
"dpkg-vendor"))))))))
(native-inputs
(list autoconf
automake

6
gnu/packages/debug.scm
View file

@ -678,7 +678,7 @@ error reporting, better tracing, profiling, and a debugger.")
(inputs
(list gdb capnproto python python-pexpect zlib))
(home-page "https://rr-project.org/")
(synopsis "Record and reply debugging framework")
(synopsis "Record and replay debugging framework")
(description
"rr is a lightweight tool for recording, replaying and debugging
execution of applications (trees of processes and threads). Debugging extends
@ -716,7 +716,7 @@ program to produce symbolic backtraces.")
(define-public libleak
(package
(name "libleak")
(version "0.3.5")
(version "0.3.6")
(source (origin
(method git-fetch)
(uri (git-reference
@ -725,7 +725,7 @@ program to produce symbolic backtraces.")
(file-name (git-file-name name version))
(sha256
(base32
"1p8mb0hcfp8hdv1klv6rrpkn2zlhjxgkxbbjsk8kszxv7ijln87d"))))
"1p6x20mm0dym2qn10d6cvwmh71m93xwcd319g94zkv88hj5q17n6"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ;no test suite

5
gnu/packages/dezyne.scm
View file

@ -32,15 +32,14 @@
(define-public dezyne
(package
(name "dezyne")
(version "2.17.2")
(version "2.17.3")
(source
(origin
(method url-fetch)
(uri (string-append "https://dezyne.org/download/dezyne/"
name "-" version ".tar.gz"))
(patches (search-patches "dezyne-add-missing-shebangs.patch"))
(sha256
(base32 "1v0anwr0iic26ck796b29dfyj1dxkjf935g134z98s95hvzzrhm3"))))
(base32 "0x2aqfvbxhiwxj6vm17g7dkxwj8skcs9pg3a3l1x9pxy7v22wxd7"))))
(inputs (list bash-minimal
guile-3.0-latest
guile-json-4

39
gnu/packages/disk.scm
View file

@ -78,6 +78,9 @@
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages popt)
#:use-module (gnu packages python)
#:use-module (gnu packages python-build)
#:use-module (gnu packages python-crypto)
#:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt)
#:use-module (gnu packages readline)
@ -574,6 +577,42 @@ the default timer setting is not well suited to Linux or other *nix systems,
and can dramatically shorten the lifespan of the drive if left unchecked.")
(license license:gpl3+)))
(define-public greaseweazle-host-tools
(package
(name "greaseweazle-host-tools")
(version "1.12")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/keirf/greaseweazle")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1lpvjlf2xg4ccwik8npiihi0lgw9dx5h12pp4ry343gkz4pwgk9x"))))
(build-system python-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-before 'build 'setuptools-version
(lambda _
(setenv "SETUPTOOLS_SCM_PRETEND_VERSION" "1.8")))
(add-after 'install 'install-udev-rules
(lambda _
(install-file "scripts/49-greaseweazle.rules"
(string-append #$output "/lib/udev/rules.d/")))))))
(native-inputs (list python-setuptools-scm))
(propagated-inputs
(list python-bitarray python-crcmod python-pyserial python-requests))
(synopsis "Tools for accessing a floppy drive at the raw flux level")
(description
"This package provides the host tools for controlling a Greaseweazle: an
Open Source USB device capable of reading and writing raw data on nearly any
type of floppy disk")
(home-page "https://github.com/keirf/greaseweazle")
(license license:public-domain)))
(define-public gparted
(package
(name "gparted")

5
gnu/packages/display-managers.scm
View file

@ -12,7 +12,7 @@
;;; Copyright © 2021 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2021, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2021 Petr Hodina <phodina@protonmail.com>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -280,7 +280,8 @@ experience for your users, your family and yourself")
"1wr60c946p8jz9kb8zi4cd8d4mkcy7infbvlfzwajiglc22nblxn"))
(patches (search-patches "lightdm-arguments-ordering.patch"
"lightdm-vncserver-check.patch"
"lightdm-vnc-color-depth.patch"))))
"lightdm-vnc-color-depth.patch"
"lightdm-vnc-ipv6.patch"))))
(build-system gnu-build-system)
(arguments
'(#:parallel-tests? #f ; fails when run in parallel

26
gnu/packages/distributed.scm
View file

@ -20,6 +20,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages distributed)
#:use-module (guix gexp)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (guix download)
@ -45,7 +46,7 @@
(define-public boinc-client
(package
(name "boinc-client")
(version "7.22.0")
(version "7.22.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -56,9 +57,12 @@
(file-name (git-file-name "boinc" version))
(sha256
(base32
"0af7j6zg3saa5x7lfsg41p7j9r1d1dsdsz5b241p1f2yrhba0m81"))))
"06qlfrn9bxcdgs9b4j7l4mwikrkvfizccprip18rlzl3i34jys7l"))))
(build-system gnu-build-system)
(arguments '(#:configure-flags '("--disable-server")))
(arguments
(list
#:configure-flags
#~(list "--disable-server")))
(inputs (list openssl
curl
wxwidgets
@ -84,11 +88,11 @@ resources). It supports virtualized, parallel, and GPU-based applications.")
;; TODO: consolidate them?
(package (inherit boinc-client)
(name "boinc-server")
(arguments '(#:configure-flags '("--disable-client" "--disable-manager")
#:parallel-build? #f))
(inputs `(("openssl" ,openssl)
("curl" ,curl)
("mariadb:dev" ,mariadb "dev")
("zlib" ,zlib)))
(propagated-inputs `(("python" ,python-wrapper)
("perl" ,perl)))))
(arguments
(list
#:configure-flags
#~(list "--disable-client"
"--disable-manager")
#:parallel-build? #f))
(inputs (list curl `(,mariadb "dev") openssl zlib))
(propagated-inputs (list perl python-wrapper))))

72
gnu/packages/dns.scm
View file

@ -510,41 +510,6 @@ the two.")
license:gpl2
license:gpl3))))
(define-public libasr
(package
(name "libasr")
(version "1.0.4")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.opensmtpd.org/archives/"
"libasr-" version ".tar.gz"))
(sha256
(base32 "1d6s8njqhvayx2gp47409sp1fn8m608ws26hr1srfp6i23nnpyqr"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'install-documentation
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(install-file "src/asr_run.3"
(string-append out "/share/man/man3"))
#t))))))
(native-inputs
(list autoconf automake libtool pkg-config))
(home-page "https://www.opensmtpd.org")
(synopsis "Asynchronous resolver library by the OpenBSD project")
(description
"libasr is a free, simple and portable asynchronous resolver library.
It runs DNS queries and performs hostname resolution in a fully
asynchronous fashion.")
(license (list license:isc
license:bsd-2 ; last part of getrrsetbyname_async.c
license:bsd-3
(license:non-copyleft "file://LICENSE") ; includes.h
license:openssl))))
(define-public nsd
(package
(name "nsd")
@ -875,7 +840,7 @@ Extensions} (DNSSEC).")
(define-public knot
(package
(name "knot")
(version "3.2.5")
(version "3.2.7")
(source
(origin
(method git-fetch)
@ -884,7 +849,7 @@ Extensions} (DNSSEC).")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0xhr6i5qq0yhxqj50hsm51lb1v5lj4vfkzdcsvh7lw8wg6j1d03b"))
(base32 "1zrx5ih8wy0l9dka7ql9v32z6z8bxcdsfs1zmjn052xrzb01qjkw"))
(modules '((guix build utils)))
(snippet
'(begin
@ -1242,10 +1207,10 @@ local networks.")
;; so its contents will change over time. If you update this commit, please
;; make sure that the new commit refers to a list which is identical to the
;; officially published list available from the URL above.
(let ((commit "9375b697baddb0827a5995c81bd3c75877a0b35d"))
(let ((commit "d2d3e2e36a8f2b68c4f09e8c87f4f1d685cbf5e7"))
(package
(name "public-suffix-list")
(version (git-version "0" "1" commit))
(version (git-version "0" "2" commit))
(source (origin
(method git-fetch)
(uri (git-reference
@ -1254,26 +1219,17 @@ local networks.")
(file-name (git-file-name name version))
(sha256
(base32
"1sm7pni01rnl4ldzi8z8nc4cbgq8nxda9gwc68v0s3ij7jd1jmik"))))
(build-system trivial-build-system)
"1f6rydx4hdd6lja376f4sdp7iv64vqlmhmnlkg0rb17279dc9483"))))
(build-system copy-build-system)
(arguments
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let* ((out (assoc-ref %outputs "out"))
;; Install to /share because that is where "read-only
;; architecture-independent data files" should go (see:
;; (standards) Directory Variables). Include the version in
;; the directory name so that if multiple versions are ever
;; installed in the same profile, they will not conflict.
(destination (string-append
out "/share/public-suffix-list-" ,version))
(source (assoc-ref %build-inputs "source")))
(with-directory-excursion source
(install-file "public_suffix_list.dat" destination)
(install-file "LICENSE" destination))
#t))))
(list #:install-plan
;; Install to /share because that is where "read-only
;; architecture-independent data files" should go (see: (standards)
;; Directory Variables). Include the version in the directory name
;; so that if multiple versions are ever installed in the same
;; profile, they will not conflict.
#~'(("public_suffix_list.dat"
#$(string-append "/share/public-suffix-list-" version "/")))))
(home-page "https://publicsuffix.org/")
(synopsis "Database of current and historical DNS suffixes")
(description "This is the Public Suffix List maintained by Mozilla. A

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

File diff suppressed because it is too large Load diff

4
gnu/packages/emacs.scm
View file

@ -394,7 +394,7 @@ languages.")
(package
(inherit emacs)
(name "emacs-next")
(version "29.0.91")
(version "29.0.92")
(source
(origin
(inherit (package-source emacs))
@ -409,7 +409,7 @@ languages.")
"emacs-native-comp-driver-options.patch"))
(sha256
(base32
"09jm1q5pvd1dc0xq5rhn66v1j235zlr72kwv5i27xigvi9nfqkv1"))))
"1h3p325859svcy43iv7wr27dp68049j9d44jq5akcynqdkxz4jjn"))))
(inputs
(modify-inputs (package-inputs emacs)
(prepend sqlite)))

12
gnu/packages/engineering.scm
View file

@ -1048,7 +1048,7 @@ Emacs).")
(define-public kicad
(package
(name "kicad")
(version "7.0.5")
(version "7.0.6")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1056,7 +1056,7 @@ Emacs).")
(commit version)))
(sha256
(base32
"04mkvz4l6i8bb6mw4y0vmlkg2kvdhkj980w6y6sphb9xq8vzmcxs"))
"1bifg73id0grn37a4n5wpq440z9xz14q0fvkva5vajx0xfd34llv"))
(file-name (git-file-name name version))))
(build-system cmake-build-system)
(arguments
@ -1156,7 +1156,7 @@ electrical diagrams), gerbview (viewing Gerber files) and others.")
(file-name (git-file-name name version))
(sha256
(base32
"1xq00wi97ck2019d9brsqg8l7xvjq01g2bwv4nvmh6zh4bwcgr3g"))))
"0byvm25jw108h808g5zdjq14gx4xxd87pvlbczd07c3rx6nmzl08"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags (list "-DBUILD_FORMATS=html")
@ -1190,7 +1190,7 @@ electrical diagrams), gerbview (viewing Gerber files) and others.")
(file-name (git-file-name name version))
(sha256
(base32
"15100z8g4x28sxz8097ay1vxfxz2c4a1nvvzyx5vjfmhydwqwk49"))))
"0p60dvig7xx8svzsgp871r0aix2m95bmzg3snz372nmgnza2nnvf"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f)) ; no tests exist
@ -1219,7 +1219,7 @@ libraries.")
(file-name (git-file-name name version))
(sha256
(base32
"11d3mwmivi6rc778a2x118a5mk11d9mr8miadxmy1mbc41jbx2dh"))))
"0fqnviaxsai0xwyq8xq5ks26j4vd390ns6h6lr0fx2ikv1ghaml5"))))
(synopsis "Official KiCad footprint libraries")
(description "This package contains the official KiCad footprint libraries.")))
@ -1236,7 +1236,7 @@ libraries.")
(file-name (git-file-name name version))
(sha256
(base32
"1bzb6b7llzwabjkdd0xsyan0x8kihccap4gwvipzydfg7gm5fjxm"))))
"0dmssyhqd94d9wj8w7g7xjan560b2rwcs540sgl0rc77cw2jify8"))))
(synopsis "Official KiCad 3D model libraries")
(description "This package contains the official KiCad 3D model libraries.")))

4
gnu/packages/erlang.scm
View file

@ -8,6 +8,7 @@
;;; Copyright © 2021 Oskar Köök <oskar@maatriks.ee>
;;; Copyright © 2021 Cees de Groot <cg@evrl.com>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;; Copyright © 2023 wrobell <wrobell@riseup.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -168,7 +169,8 @@
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(substitute* (string-append out "/bin/erl")
(("sed") (which "sed"))))))
(("basename") (which "basename"))
(("dirname") (which "dirname"))))))
(add-after 'install 'install-doc
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))

4
gnu/packages/file-systems.scm
View file

@ -1951,7 +1951,7 @@ in FUSE for rootless containers.")
(define-public bees
(package
(name "bees")
(version "0.9.2")
(version "0.10")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1970,7 +1970,7 @@ in FUSE for rootless containers.")
(("#include .crucible/city.h.") "#include <city.h>"))))
(sha256
(base32
"0xik1xg6ma5yglhvs60ny27242iapqwzikmqbgij1avjffs6776a"))))
"1j1v9bxijs8gvrb7rg0q1158xjvmfc8dlzwx768fxf3w8w2gfwvz"))))
(build-system gnu-build-system)
(arguments
(list #:test-target "test"

20
gnu/packages/finance.scm
View file

@ -288,14 +288,14 @@ Accounting.")
(define-public homebank
(package
(name "homebank")
(version "5.6.3")
(version "5.6.5")
(source (origin
(method url-fetch)
(uri (string-append "http://homebank.free.fr/public/sources/"
"homebank-" version ".tar.gz"))
(sha256
(base32
"0a1qhbnifqs0j59m1w5wfj1ix8iywmy1kc8185zvxndvckspb521"))))
"1a1cdldvs0xc30xkxkap72gafss90hmglakad5r8aykxz3y4sjdm"))))
(build-system glib-or-gtk-build-system)
(native-inputs
(list pkg-config intltool))
@ -312,7 +312,7 @@ and dynamically with report tools based on filtering and graphical charts.")
(define-public ledger
(package
(name "ledger")
(version "3.3.1")
(version "3.3.2")
(source
(origin
(method git-fetch)
@ -321,7 +321,7 @@ and dynamically with report tools based on filtering and graphical charts.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "13bbnfb08ymm54wg12dapqhalh7iialfs66qdbk2adl1aaq36wqa"))))
(base32 "0vchc97952w3fkkdn3v0nzjlgzg83cblwsi647jp3k9jq6rvhaak"))))
(build-system cmake-build-system)
(arguments
`(#:modules (,@%cmake-build-system-modules
@ -547,7 +547,7 @@ do so.")
(define-public electrum
(package
(name "electrum")
(version "4.4.4")
(version "4.4.5")
(source
(origin
(method url-fetch)
@ -555,7 +555,7 @@ do so.")
version "/Electrum-"
version ".tar.gz"))
(sha256
(base32 "05xzafv8ry5k5mzn3i4l71d42q42kjl81q154i97qmqiy3s2fhkb"))
(base32 "1gifnb927b51947psbj58c7kdsgncn3d9j7rpk5mls678yf1qd5d"))
(modules '((guix build utils)))
(snippet
'(begin
@ -2180,7 +2180,7 @@ and manipulation.")
(define-public xmrig
(package
(name "xmrig")
(version "6.19.2")
(version "6.20.0")
(source
(origin
(method git-fetch)
@ -2188,7 +2188,7 @@ and manipulation.")
(url "https://github.com/xmrig/xmrig")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256 (base32 "1hgcfq79d5060iryr34bpwf1dvgqmbmn9mm4ccfvp896r10j482h"))
(sha256 (base32 "02clipcixn0g4sm3b5r1cxx56ddhjkm8sqnq40jy1zm66ad5zhkj"))
(modules '((guix build utils)))
(snippet
;; TODO: Try to use system libraries instead of bundled ones in
@ -2237,7 +2237,7 @@ mining.")
(define-public p2pool
(package
(name "p2pool")
(version "3.4")
(version "3.5")
(source
(origin
(method git-fetch)
@ -2246,7 +2246,7 @@ mining.")
(commit (string-append "v" version))
(recursive? #t)))
(file-name (git-file-name name version))
(sha256 (base32 "190dyyscmb71jnz0yb4l2ahsmz9wp7mcnn81yajv01bajgwnbl16"))
(sha256 (base32 "1brv3lksajnmpf7g01jbx76nax6vlx8231sxb0s33yf76yc481xb"))
(modules '((guix build utils)))
(snippet
#~(for-each delete-file-recursively

94
gnu/packages/firmware.scm
View file

@ -489,7 +489,7 @@ provide OpenFirmware functionality on top of an already running system.")
(define* (make-opensbi-package platform name #:optional (arch "riscv64"))
(package
(name name)
(version "1.2")
(version "1.3")
(source
(origin
(method git-fetch)
@ -498,7 +498,7 @@ provide OpenFirmware functionality on top of an already running system.")
(commit (string-append "v" version))))
(file-name (git-file-name "opensbi" version))
(sha256
(base32 "13k76ngmbs6xk8wm0vhc3fjs5w82g34wxs2zf4r27jd79m47xjb5"))))
(base32 "0shri9jlhi2g464l05vrkzr6v754m868rr4136kq2b86amypmg8f"))))
(build-system gnu-build-system)
(native-inputs
(append
@ -1109,3 +1109,93 @@ such as:
((#:make-flags flags ''())
;; Adding debug symbols causes the size to exceed limits.
#~(delete "DEBUG=1" #$flags)))))))
(define (make-crust-package platform)
(package
(name (string-append "crust-"
(string-replace-substring platform "_" "-")))
(version "0.5")
(source
(origin
(method git-fetch)
(uri (git-reference
;; There are only GitHub generated release snapshots.
(url "https://github.com/crust-firmware/crust")
(commit (string-append "v" version))))
(file-name (git-file-name "crust" version))
(sha256
(base32
"0xgbbhifg3miwd3yp6jq9kp7nqgz5gzy00w95vba45j8jk5vjvvz"))))
(build-system gnu-build-system)
(arguments
(list
#:tests? #f ;no test suite
#:make-flags
(let ((triplet-without-vendor
(and (%current-target-system)
(match (string-split (nix-system->gnu-triplet
(%current-target-system)) #\-)
((arch vendor os ..1)
(string-join `(,arch ,@os) "-"))))))
#~(list "CROSS_COMPILE=or1k-elf-"
"V=1"
#$@(if triplet-without-vendor
;; We are cross-compiling the tools, intended to be
;; executable for the target system.
(list (string-append "HOSTAR=" triplet-without-vendor
"-ar")
(string-append "HOSTCC=" triplet-without-vendor
"-gcc"))
;; Not cross-compiling.
(list "HOSTAR=ar"
"HOSTCC=gcc"))
"LEX=flex"))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'do-not-build-tests
(lambda _
;; Attempting to build the tools test binary on a non-aarch64
;; architecture fails with: "No cache cleaning implementation
;; available for this architecture". Avoid building it (see:
;; https://github.com/crust-firmware/crust/issues/182).
(substitute* "tools/Makefile"
(("tools-y \\+= test") ""))))
(delete 'configure)
(add-before 'build 'defconfig
(lambda* (#:key make-flags #:allow-other-keys)
(let ((config-name (string-append #$platform "_defconfig")))
(apply invoke "make" (cons config-name make-flags)))))
(replace 'install
(lambda _
(for-each (lambda (file)
(install-file file (string-append #$output
"/libexec")))
(find-files "." "(scp\\.bin|\\.config)$"))
(install-file "build/tools/load"
(string-append #$output "/bin")))))))
;; The firmware is cross-compiled using a "bare bones" compiler (no libc).
;; Use our own tool chain for that.
(native-inputs
(list bison
(cross-gcc "or1k-elf")
(cross-binutils "or1k-elf")
flex))
(home-page "https://github.com/crust-firmware/crust")
(synopsis "System control processor firmware for Allwinner sunxi boards")
(description "Crust improves battery life and thermal performance by
implementing a deep sleep state. During deep sleep, the CPU cores, the DRAM
controller, and most onboard peripherals are powered down, reducing power
consumption by 80% or more compared to an idle device. On boards without a
PMIC, Crust is also responsible for orderly power-off and power-on of the
device. For this to work, Crust runs outside the main CPU and DRAM, on a
dedicated always-on microprocessor called a System Control Processor (SCP).
Crust is designed to run on a specific SCP implementation, Allwinner's
AR100.")
;; Most files are dual-licensed "BSD-3 OR GPL2", a few are GPL2 only.
(license (list license:bsd-3 license:gpl2))))
(define-public crust-pinebook
(make-crust-package "pinebook"))
(define-public crust-pine64-plus
(make-crust-package "pine64_plus"))

94
gnu/packages/fonts.scm
View file

@ -55,6 +55,8 @@
;;; Copyright © 2023 Nicolas Graves <ngraves@ngraves.fr>
;;; Copyright © 2023 Ahmad Draidi <a.r.draidi@redscript.org>
;;; Copyright © 2023 Arnaud Lechevallier <arnaud.lechevallier@free.fr>
;;; Copyright © 2023 gemmaro <gemmaro.dev@gmail.com>
;;; Copyright © 2023 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -185,6 +187,28 @@ well as other mediums.")
in print. With attention to detail for high resolution rendering.")
(license license:silofl1.1)))
(define-public font-intel-one-mono
(package
(name "font-intel-one-mono")
(version "1.2.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/intel/intel-one-mono")
(commit (string-append "V" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1md57997nzkz75ambsahawzy1x71qvkp6f87zcqibksm66yvcjdc"))))
(build-system font-build-system)
(home-page "https://github.com/intel/intel-one-mono")
(synopsis "Expressive monospaced font family")
(description
"This package provides Intel One Mono, an expressive monospaced font
family that's built with clarity, legibility, and the needs of developers in
mind.")
(license license:silofl1.1)))
(define-public font-dejavu
(package
(name "font-dejavu")
@ -2515,6 +2539,47 @@ orthography of Roman glyphs of Meera Inimai are also based on this
characteristic so that they sit smoothly with the Tamil glyphs.")
(license license:silofl1.1)))
(define-public font-ipa
(package
(name "font-ipa")
(version "003.03")
(source (origin
(method url-fetch/zipbomb)
(uri (string-append
"https://moji.or.jp/wp-content/ipafont/IPAfont/IPAfont"
(string-join (string-split version #\.) "") ".zip"))
(sha256
(base32
"1rbgfq14ld0cwas6bx5h7pwyv2hkfa8ihnphsaz1brxqliwysmgp"))))
(build-system font-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'make-read-only
(lambda _
;; Otherwise the files have the executable bit set.
(for-each (lambda (file) (chmod file #o444))
(find-files "." #:directories? #f))))
(add-after 'install 'install-doc
(lambda _
(let ((font+version
#$(string-append "IPAfont"
(string-join (string-split version #\.)
"")))
(doc-dir (string-append #$output "/share/doc/" #$name)))
(with-directory-excursion font+version
(mkdir-p doc-dir)
(copy-file (string-append "Readme_" font+version ".txt")
(string-append doc-dir "/README"))
(copy-file "IPA_Font_License_Agreement_v1.0.txt"
(string-append doc-dir "/LICENSE")))))))))
(home-page "https://moji.or.jp/ipafont/")
(synopsis "Japanese font from the Information-technology Promotion Agency")
(description "This package provides Japanese outline fonts by
Information-technology Promotion Agency, Japan (IPA)")
(license license:ipa)))
(define-public font-ipa-ex
(package
(name "font-ipa-ex")
@ -3195,6 +3260,35 @@ minor tweaks to improve readability (a matter of taste of course).
Most characters are just 4px wide, which is brilliant for low dpi(90-120) displays.")
(license license:silofl1.1)))
(define-public font-velvetyne-jgs
;; There are no releases nor tags.
(let ((revision "1")
(commit "b1fe344c6ab4cb97aa9ceb09ba3b6056f826b040"))
(package
(name "font-velvetyne-jgs")
(version (git-version "1.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/velvetyne/jgs")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1hwaylgih66cqwcf68i2xdccrn0p0rbvmlz5f3mlzvm51s5pzqb8"))))
(build-system font-build-system)
(home-page "http://www.velvetyne.org/fonts/jgs-font")
(synopsis "Font designed especially for ASCII art")
(description
"The jgs font family can be used to combine several
characters to form contiguous lines. It contains several fonts:
@enumerate
@item jgs5 for sizes multiple of 1o (10px, 20px, 30px)
@item jgs7 for sizes multiple of 14 (14px, 28px, 42px)
@item jgs9 for sizes multiples of 18 (18px, 36px, 54px)
@end enumerate")
(license license:silofl1.1))))
(define-public font-recursive
(package
(name "font-recursive")

4
gnu/packages/fpga.scm
View file

@ -425,7 +425,7 @@ a hardware description and verification language.")
(define-public nvc
(package
(name "nvc")
(version "1.8.1")
(version "1.9.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -434,7 +434,7 @@ a hardware description and verification language.")
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
"03dnn77n50b5n06gd81hh36gh0h2nc266yzwl70qjlb00qs8cf7p"))))
"0zifyn7fr4k73ga6iwvsbsl6gi5106vlv5mkmqs0svi0sqx847f4"))))
(build-system gnu-build-system)
(arguments
`(#:out-of-source? #t

18
gnu/packages/freedesktop.scm
View file

@ -2322,15 +2322,19 @@ to applications simultaneously competing for fingerprint readers.")
(description
"This package contains a few command line utilities for working with
desktop entries:
@table @command
@item desktop-file-validate
Validates a desktop file and prints warnings/errors about desktop entry
specification violations.
desktop-file-validate: validates a desktop file and prints warnings/errors
about desktop entry specification violations.
@item desktop-file-install
Installs a desktop file to the applications directory, optionally munging it
a bit in transit.
desktop-file-install: installs a desktop file to the applications directory,
optionally munging it a bit in transit.
update-desktop-database: updates the database containing a cache of MIME types
handled by desktop files.")
@item update-desktop-database
Updates the database containing a cache of MIME types handled by desktop
files.
@end table")
(license license:gpl2+)))
(define-public xdg-user-dirs

7
gnu/packages/game-development.scm
View file

@ -4,7 +4,7 @@
;;; Copyright © 2015, 2018, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2018 Alex Kost <alezost@gmail.com>
;;; Copyright © 2015, 2016, 2017 David Thompson <davet@gnu.org>
;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016-2021, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017, 2020 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2016, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017, 2018 Julian Graham <joolean@gmail.com>
@ -2111,7 +2111,7 @@ that parenthetically inclined game developers need to make 2D (and eventually
@item keyboard, mouse, controller input
@item REPL-driven development model
@end enumerate\n")
(license license:gpl3+)))
(license license:asl2.0)))
(define-public bennu-game-development
(package
@ -2427,7 +2427,8 @@ a.k.a. XenoCollide) as described in Game Programming Gems 7.")
(arguments
(list
;; XXX: The sole test is failing on i686 due to a rounding error.
#:tests? (not (target-x86-32?))
#:tests? (not (or (target-x86-32?)
(%current-target-system)))
#:configure-flags #~(list "-DODE_WITH_LIBCCD_SYSTEM=ON")
#:phases
#~(modify-phases %standard-phases

170
gnu/packages/games.scm
View file

@ -42,7 +42,7 @@
;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2019, 2020 Jesse Gibbons <jgibbons2357+guix@gmail.com>
;;; Copyright © 2019 Dan Frumin <dfrumin@cs.ru.nl>
;;; Copyright © 2019, 2020, 2021, 2022 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019-2023 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019, 2020 Timotej Lazar <timotej.lazar@araneo.si>
;;; Copyright © 2019 Josh Holland <josh@inv.alid.pw>
;;; Copyright © 2019 Pkill -9 <pkill9@runbox.com>
@ -70,7 +70,7 @@
;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com>
;;; Copyright © 2022, 2023 Yovan Naumovski <yovan@gorski.stream>
;;; Copyright © 2022 Roman Riabenko <roman@riabenko.com>
;;; Copyright © 2022 zamfofex <zamfofex@twdb.moe>
;;; Copyright © 2022, 2023 zamfofex <zamfofex@twdb.moe>
;;; Copyright © 2022 Gabriel Arazas <foo.dogsquared@gmail.com>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Hendursaga <hendursaga@aol.com>
@ -155,6 +155,7 @@
#:use-module (gnu packages gtk)
#:use-module (gnu packages guile)
#:use-module (gnu packages haskell)
#:use-module (gnu packages haskell-check)
#:use-module (gnu packages haskell-crypto)
#:use-module (gnu packages haskell-xyz)
#:use-module (gnu packages icu4c)
@ -202,6 +203,7 @@
#:use-module (gnu packages sqlite)
#:use-module (gnu packages squirrel)
#:use-module (gnu packages swig)
#:use-module (gnu packages tbb)
#:use-module (gnu packages tcl)
#:use-module (gnu packages terminals)
#:use-module (gnu packages texinfo)
@ -223,6 +225,7 @@
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system gnu)
#:use-module (guix build-system go)
#:use-module (guix build-system haskell)
#:use-module (guix build-system meson)
#:use-module (guix build-system perl)
#:use-module (guix build-system python)
@ -3643,6 +3646,37 @@ exec ~a/bin/freedink -refdir ~a/share/dink\n"
("bash" ,bash)))
(native-inputs '())))
(define-public fuzzylite
(package
(name "fuzzylite")
(version "6.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/fuzzylite/fuzzylite")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0yay0qc81x0irlvxqpy7jywjxpkmpjabdhq2hdh28r9z85wp2nwb"))
(patches (search-patches "fuzzylite-use-catch2.patch"
"fuzzylite-soften-float-equality.patch"
"fuzzylite-relative-path-in-tests.patch"))))
(build-system cmake-build-system)
(arguments
`(#:phases (modify-phases %standard-phases
(add-before 'configure 'switch-to-fuzzylite-dir
(lambda _
(chdir "fuzzylite"))))))
(native-inputs (list catch2))
(home-page "https://www.fuzzylite.com/")
(synopsis "Fuzzy logic control binary")
(description
"This package provides fuzzylite, a fuzzy logic control library which
allows one to easily create fuzzy logic controllers in a few steps utilizing
object-oriented programming.")
(license license:gpl3)))
(define-public xboard
(package
(name "xboard")
@ -10294,7 +10328,7 @@ can be downloaded from @url{https://zero.sjeng.org/best-network}.")
(define-public q5go
(package
(name "q5go")
(version "1.0")
(version "2.1.3")
(source (origin
(method git-fetch)
(uri (git-reference
@ -10303,10 +10337,10 @@ can be downloaded from @url{https://zero.sjeng.org/best-network}.")
(file-name (git-file-name name version))
(sha256
(base32
"1gdlfqcqkqv7vph3qwq78d0qz6dhmdsranxq9bmixiisbzkqby31"))))
"0x8x7mp61g3lwabx9z4vsyd743kfqibnqhym7xd0b7811flca3ri"))))
(build-system gnu-build-system)
(native-inputs
(list pkg-config))
(list autoconf automake pkg-config))
(inputs
(list qtbase-5 qtmultimedia-5 qtsvg-5))
(arguments
@ -10315,32 +10349,34 @@ can be downloaded from @url{https://zero.sjeng.org/best-network}.")
(add-after 'unpack 'fix-configure-script
(lambda _
;; Bypass the unavailable qtchooser program.
(substitute* "configure"
(for-each delete-file
'("configure"
"Makefile.in"
"src/Makefile.in"
"src/translations/Makefile.in"))
(substitute* "configure.ac"
(("AC_PATH_PROG\\(qtchooser, .*\\)")
"")
(("test -z \"QTCHOOSER\"")
"false")
(("qtchooser -run-tool=(.*) -qt=qt5" _ command)
command))
#t))
(add-after 'unpack 'fix-header
(lambda _
(substitute* "src/bitarray.h"
(("#include <cstring>" all)
(string-append all "\n#include <stdexcept>")))))
(("\\$\\(qtchooser -list-versions\\)")
"qt5")
(("qtchooser -run-tool=(.*) -qt=\\$QT5_NAME" _ command)
command))))
(add-after 'unpack 'fix-paths
(lambda _
(substitute* '("src/pics/Makefile.in"
"src/translations/Makefile.in")
(("\\$\\(datadir\\)/qGo/")
"$(datadir)/q5go/"))
#t))
(lambda* (#:key outputs #:allow-other-keys)
(substitute* '("src/setting.cpp")
(("/usr/share/\" PACKAGE \"/translations")
(string-append (assoc-ref outputs "out")
"/share/qGo/translations")))))
(add-after 'install 'install-desktop-file
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(apps (string-append out "/share/applications"))
(pics (string-append out "/share/q5go/pics")))
(images (string-append out "/share/qGo/images")))
(delete-file-recursively (string-append out "/share/applnk"))
(delete-file-recursively (string-append out "/share/mimelnk"))
(install-file "../source/src/pics/Bowl.ico" pics)
(install-file "../source/src/images/Bowl.ico" images)
(mkdir-p apps)
(with-output-to-file (string-append apps "/q5go.desktop")
(lambda _
@ -10360,8 +10396,7 @@ can be downloaded from @url{https://zero.sjeng.org/best-network}.")
Comment[zh]=围棋~@
Terminal=false~@
Type=Application~%"
out pics))))
#t)))))
out images)))))))))
(synopsis "Qt GUI to play the game of Go")
(description
"This a tool for Go players which performs the following functions:
@ -11273,6 +11308,54 @@ Magic II (aka HOMM2) game engine. It requires assets and game resources to
play; it will look for them at @file{~/.local/share/fheroes2} folder.")
(license license:gpl2)))
(define-public vcmi
(package
(name "vcmi")
(version "1.2.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/vcmi/vcmi")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0f3fk1fc2wb7f2j4pxz89dzr8zjnrdh435mijia483a3bq59w7pk"))
(patches (search-patches "vcmi-disable-privacy-breach.patch"))))
(build-system cmake-build-system)
(arguments
(list #:configure-flags #~(list "-DFORCE_BUNDLED_FL=OFF")
;; Test suites do not seem well supported upstream and are disabled by default.
;; Pass -DENABLE_TEST to configure to enable.
#:tests? #f))
(native-inputs
(list boost
ffmpeg
fuzzylite
;; googletest ; needed for tests, but tests are disabled
libxkbcommon
luajit
minizip
pkg-config
python
;; XXX: Build currently fails with qtbase-6 and qttools-6
qtbase-5
qttools-5
sdl2
sdl2-mixer
sdl2-image
sdl2-ttf
tbb
vulkan-headers
zlib))
(home-page "https://vcmi.eu/")
(synopsis "Turn-based strategy game engine")
(description
"@code{vcmi} is an implementation of the Heroes of Might and
Magic III game engine. It requires assets and game resources to
play; it will look for them at @file{~/.local/share/vcmi} folder.")
(license license:gpl2)))
(define-public apricots
(package
(name "apricots")
@ -11339,6 +11422,45 @@ original, they have been invented by Thomas Colcombet.")
(home-page "https://www.gnu.org/software/liquidwar6/")
(license license:gpl3+)))
(define-public plunder
(let ((commit "026ded7083df5134bdf05b1ec7e5a0099ac9b9d2")
(revision "1"))
(package
(name "plunder")
(version (git-version "1.0.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jappeace/plunder")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0m0v8x6q9iq4zihwmysbxjwkq18nar6xhq4g18p2g8c6azj2mgd6"))))
(build-system haskell-build-system)
(inputs (list ghc-monadrandom
ghc-quickcheck
ghc-file-embed
ghc-generic-lens
ghc-lens
ghc-random
ghc-reflex
ghc-reflex-sdl2
ghc-sdl2
ghc-sdl2-gfx
ghc-sdl2-image
ghc-sdl2-ttf
ghc-vector
ghc-witherable))
(native-inputs (list ghc-hspec ghc-hspec-core hspec-discover))
(home-page "https://github.com/jappeace/plunder")
(synopsis "Game about looting a hexagonal-tile world")
(description
"This package provides a work-in-progress game where you control a
Viking and your objective is to loot all of the occupied hexagonal tiles in
the map.")
(license license:expat))))
(define-public freerct
(package
(name "freerct")

5
gnu/packages/gcc.scm
View file

@ -614,7 +614,10 @@ Go. It also includes runtime support libraries for these languages.")
(append %gcc-10-x86_64-micro-architectures
'("sapphirerapids" "alterlake" "rocketlake" ;Intel
"btver1" "btver2"))) ;AMD
"btver1" "btver2" ;AMD
;; psABI micro-architecture levels
"x86_64-v1" "x86_64-v2" "x86_64-v3" "x86_64-v4")))
;; Suitable '-march' values for GCC 12.
(define %gcc-12-aarch64-micro-architectures

113
gnu/packages/geo.scm
View file

@ -3,7 +3,7 @@
;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2017, 2018 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018, 2023 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2018 Joshua Sierles, Nextjournal <joshua@nextjournal.com>
;;; Copyright © 2018, 2019, 2020, 2021 Julien Lepiller <julien@lepiller.eu>
@ -48,6 +48,7 @@
#:use-module (guix build-system pyproject)
#:use-module (guix build-system python)
#:use-module (guix build-system qt)
#:use-module (guix build-system r)
#:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download)
@ -71,6 +72,7 @@
#:use-module (gnu packages cpp)
#:use-module (gnu packages cups)
#:use-module (gnu packages curl)
#:use-module (gnu packages cran)
#:use-module (gnu packages databases)
#:use-module (gnu packages datastructures)
#:use-module (gnu packages docbook)
@ -81,6 +83,7 @@
#:use-module (gnu packages fontutils)
#:use-module (gnu packages gcc)
#:use-module (gnu packages gettext)
#:use-module (gnu packages ghostscript)
#:use-module (gnu packages gl)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnome)
@ -92,6 +95,7 @@
#:use-module (gnu packages icu4c)
#:use-module (gnu packages image)
#:use-module (gnu packages image-processing)
#:use-module (gnu packages imagemagick)
#:use-module (gnu packages java)
#:use-module (gnu packages kde)
#:use-module (gnu packages libusb)
@ -119,16 +123,49 @@
#:use-module (gnu packages sdl)
#:use-module (gnu packages speech)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages statistics)
#:use-module (gnu packages swig)
#:use-module (gnu packages textutils)
#:use-module (gnu packages time)
#:use-module (gnu packages tls)
#:use-module (gnu packages video)
#:use-module (gnu packages web)
#:use-module (gnu packages webkit)
#:use-module (gnu packages wxwidgets)
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg))
(define-public gmt
(package
(name "gmt")
(version "6.4.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/GenericMappingTools/gmt/"
"releases/download/"
version "/gmt-" version "-src.tar.xz"))
(sha256
(base32 "0wh694cwcw2dz5rsh6pdn9irx08d65iih0vbxz350vzrkkjzyvml"))))
(build-system cmake-build-system)
(arguments (list #:tests? #false)) ;tests need costline data and caches
(inputs
(list curl ffmpeg fftw gdal geos ghostscript netcdf openblas pcre2))
(native-inputs
(list graphicsmagick pkg-config))
(home-page "https://www.generic-mapping-tools.org/")
(synopsis "Generic mapping tools")
(description "GMT is a collection of about 100 command-line tools for
manipulating geographic and Cartesian data sets (including filtering, trend
fitting, gridding, projecting, etc.) and producing high-quality illustrations
ranging from simple x-y plots via contour maps to artificially illuminated
surfaces, 3D perspective views and animations. The GMT supplements add
another 50 more specialized and discipline-specific tools. GMT supports over
30 map projections and transformations and requires support data such as GSHHG
coastlines, rivers, and political boundaries and optionally DCW country
polygons.")
(license license:lgpl3+)))
(define-public libaec
(package
(name "libaec")
@ -840,14 +877,14 @@ projections and coordinate transformations library.")
(define-public python-fiona
(package
(name "python-fiona")
(version "1.8.20")
(version "1.9.4.post1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "Fiona" version))
(sha256
(base32
"0fql7i7dg1xpbadmk8d26dwp91v7faixxc4wq14zg0kvhp9041d7"))))
"083120rqc4rrqzgmams0yjd8b1h4p5xm4n9fnxg064ymw3vx6yan"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -876,16 +913,13 @@ projections and coordinate transformations library.")
python-click
python-click-plugins
python-cligj
python-munch
python-setuptools
python-six
python-pytz))
python-importlib-metadata
python-six))
(native-inputs
(list gdal ; for gdal-config
python-boto3
python-cython
python-pytest
python-pytest-cov))
python-pytest python-pytest-cov python-pytz))
(home-page "https://github.com/Toblerity/Fiona")
(synopsis
"Fiona reads and writes spatial data files")
@ -903,34 +937,27 @@ pyproj, Rtree, and Shapely.")
(define-public python-geopandas
(package
(name "python-geopandas")
(version "0.10.2")
(version "0.13.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "geopandas" version))
(sha256
(base32
"1nvim2i47ap1zdwy6kxydskf1cir5g4ij8124wvmrqij0zklggzg"))))
(build-system python-build-system)
"0s59jjk02l1zajz95n1c7fr3fyj44wzxn569q2y7f34042f6vdg5"))))
(build-system pyproject-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "pytest"
; Disable tests that fail due to incompatibilities
; with our pandas version.
"-k"
(string-append
"not test_getitem_invalid"
" and not test_value_counts"
" and not test_setitem_invalid"
" and not test_insert_invalid")
; Disable tests that require internet access.
"-m" "not web")))))))
(list
#:test-flags
'(list
;; Test files are missing
"--ignore=geopandas/tests/test_overlay.py"
"--ignore=geopandas/io/tests/test_file.py"
;; Disable tests that require internet access.
"-m" "not web")))
(propagated-inputs
(list python-fiona python-pandas python-pyproj python-shapely))
(list python-fiona python-packaging python-pandas python-pyproj
python-shapely))
(native-inputs
(list python-pytest))
(home-page "https://geopandas.org")
@ -2120,6 +2147,34 @@ using the dataset of topographical information collected by
(home-page "https://www.routino.org/")
(license license:agpl3+)))
(define-public r-rnaturalearthhires
(let ((commit "c3785a8c44738de6ae8f797080c0a337ebed929d")
(revision "1"))
(package
(name "r-rnaturalearthhires")
(version (git-version "0.2.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ropensci/rnaturalearthhires")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1fr0yb2fbr9zbk7gqr3rnzz2w4ijjpl6hlzdrh4n27lf0ip3h0cx"))))
(properties `((upstream-name . "rnaturalearthhires")))
(build-system r-build-system)
(propagated-inputs (list r-sp))
(native-inputs (list r-knitr))
(home-page "https://github.com/ropensci/rnaturalearthhires")
(synopsis
"High Resolution World Vector Map Data from Natural Earth used in rnaturalearth")
(description
"Facilitates mapping by making natural earth map data from http://
www.naturalearthdata.com/ more easily available to R users. Focuses on vector
data.")
(license license:cc0))))
(define-public qmapshack
(package
(name "qmapshack")

56
gnu/packages/gnome-xyz.scm
View file

@ -19,6 +19,7 @@
;;; Copyright © 2022 Eric Bavier <bavier@posteo.net>
;;; Copyright © 2022 Sughosha <sughosha@proton.me>
;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
;;; Copyright © 2023 Eidvilas Markevičius <markeviciuseidvilas@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1328,6 +1329,61 @@ Speakers etc. of the same device are also displayed for selection.")
of windows.")
(license license:expat))))
(define-public gnome-shell-extension-vitals
(package
(name "gnome-shell-extension-vitals")
(version "62.0.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/corecoding/Vitals")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0wmw5yd38vyv13x6frbafp21bdhlyjd5ggimdf2696irfhnm828h"))
(modules '((guix build utils)))
(snippet '(begin
(delete-file "schemas/gschemas.compiled")
(for-each delete-file
(find-files "locale" "\\.mo$"))))))
(build-system copy-build-system)
(native-inputs (list `(,glib "bin") gettext-minimal))
(inputs (list libgtop))
(arguments
(list #:modules '((guix build copy-build-system)
(guix build utils)
(ice-9 string-fun))
#:phases #~(modify-phases %standard-phases
(add-before 'install 'compile-schemas
(lambda _
(invoke "glib-compile-schemas" "--strict"
"schemas")))
(add-before 'install 'compile-locales
(lambda _
(for-each (lambda (file)
(let ((destfile (string-replace-substring
file ".po" ".mo")))
(invoke "msgfmt" "-c" file "-o"
destfile)))
(find-files "locale" "\\.po$")))))
#:install-plan #~'(("."
"share/gnome-shell/extensions/Vitals@CoreCoding.com"
#:include-regexp ("\\.js(on)?$" "\\.css$"
"\\.ui$"
"\\.svg$"
"\\.xml$"
"\\.mo$"
"\\.compiled$")))))
(home-page "https://github.com/corecoding/Vitals")
(synopsis
"GNOME Shell extension displaying computer resource/sensor stats")
(description
"Vitals is a GNOME Shell extension that can display the computer
temperature, voltage, fan speed, memory usage and CPU load from the top menu
bar of the GNOME Shell.")
(license license:gpl2+)))
(define-public arc-theme
(package
(name "arc-theme")

48
gnu/packages/gnome.scm
View file

@ -3270,7 +3270,7 @@ compiles to GTKBuilder XML.")
(define-public cambalache
(package
(name "cambalache")
(version "0.10.3")
(version "0.12.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -3278,7 +3278,7 @@ compiles to GTKBuilder XML.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1nq9bvly4dm1xnh90z3b4c5455qpdgm3jgz2155vg2ai23f22vsy"))))
(base32 "1da8d5msk4ivmk5inaq8w0m78dsp7crarr9jmybag1c8qmqsjq4h"))))
(build-system meson-build-system)
(arguments
(list
@ -3288,6 +3288,7 @@ compiles to GTKBuilder XML.")
#:modules '((guix build meson-build-system)
((guix build python-build-system) #:prefix python:)
(guix build utils))
#:tests? #f ; XXX: tests spawn a socket...
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-source
@ -3298,8 +3299,16 @@ compiles to GTKBuilder XML.")
inputs (string-append "bin/" cmd)))))))
(add-after 'unpack 'patch-build
(lambda _
(substitute* "meson.build"
(("find_program\\('gtk-update-icon-cache'.*\\)") "")
(("find_program\\('update-desktop-database'.*\\)") ""))
(substitute* "postinstall.py"
(("gtk-update-icon-cache") "true")
(("update-desktop-database") "true"))))
(add-after 'unpack 'fake-cc
(lambda _
(substitute* "tools/cmb_init_dev.py"
(("\"cc") (string-append "\"" #$(cc-for-target))))))
(add-after 'wrap 'python-wrap (assoc-ref python:%standard-phases 'wrap))
(delete 'check)
(add-after 'install 'add-install-to-pythonpath
@ -3339,23 +3348,31 @@ compiles to GTKBuilder XML.")
adwaita-icon-theme hicolor-icon-theme
gsettings-desktop-schemas
gtk
gtksourceview-4
`(,gtk+ "bin") ; broadwayd
`(,gtk "bin")
libadwaita
libhandy
(librsvg-for-system)
python
python-pycairo
python-pygobject
python-lxml
webkitgtk-with-libsoup2))
(native-inputs (list `(,glib "bin") gobject-introspection
gettext-minimal pkg-config
python-pytest xorg-server-for-tests))
webkitgtk
webkitgtk-next))
(native-inputs
(list `(,glib "bin")
gobject-introspection
gettext-minimal
pkg-config
python-pytest
weston
xorg-server-for-tests))
(home-page "https://gitlab.gnome.org/jpu/cambalache")
(synopsis "Rapid application development tool")
(description "Cambalache is a rapid application development (RAD) tool for
Gtk 4 and 3 with a clear model-view-controller (MVC) design and
data model first philosophy.")
(description "Cambalache is a @acronym{RAD, rapid application development}
tool for Gtk 4 and 3 with a clear @acronym{MVC, model-view-controller} design
and data model first philosophy.")
(license (list license:lgpl2.1
license:gpl2)))) ; tools
@ -4905,8 +4922,10 @@ libxml to ease remote use of the RESTful API.")
(base32
"1qy2291d2vprdbbxmf0sa98izk09nl3znzzv7lckwf6f1v0sarlj"))))
(build-system meson-build-system)
(arguments (substitute-keyword-arguments (package-arguments rest)
((#:tests? _ #f) #t)
(arguments (substitute-keyword-arguments
(strip-keyword-arguments
'(#:tests?)
(package-arguments rest))
((#:configure-flags _)
;; Do not build the optional 'librest-demo' program as it
;; depends on gtksourceview and libadwaita and thus,
@ -9574,6 +9593,12 @@ endpoint and it understands SPARQL.")
tracker
upower
zlib))
(native-search-paths
(list (search-path-specification
(variable "TRACKER_CLI_SUBCOMMANDS_DIR")
(separator #f) ; single entry
(files `(,(string-append "libexec/tracker"
(version-major version)))))))
(synopsis "Metadata database, indexer and search tool")
(home-page "https://wiki.gnome.org/Projects/Tracker")
(description
@ -10002,7 +10027,6 @@ world.")
epiphany
evince
file-roller
gnome-boxes
gnome-calculator
gnome-calendar
gnome-characters

20
gnu/packages/gnuzilla.scm
View file

@ -519,9 +519,9 @@ variable defined below. It requires guile-json to be installed."
;; XXXX: Workaround 'snippet' limitations.
(define computed-origin-method (@@ (guix packages) computed-origin-method))
(define %icecat-base-version "102.12.0")
(define %icecat-base-version "102.13.0")
(define %icecat-version (string-append %icecat-base-version "-guix0-preview1"))
(define %icecat-build-id "20230606000000") ;must be of the form YYYYMMDDhhmmss
(define %icecat-build-id "20230704000000") ;must be of the form YYYYMMDDhhmmss
;; 'icecat-source' is a "computed" origin that generates an IceCat tarball
;; from the corresponding upstream Firefox ESR tarball, using the 'makeicecat'
@ -541,12 +541,12 @@ variable defined below. It requires guile-json to be installed."
"firefox-" upstream-firefox-version ".source.tar.xz"))
(sha256
(base32
"189irpd8xkwh3qixbbcmn5jblx7jz80rilcq8ihaawpmdh76safp"))))
"0b1sq4cadzqi7rk3cz6k6l5bg5s02ivff2n3gznd2rdzwhysngzw"))))
;; The upstream-icecat-base-version may be older than the
;; %icecat-base-version.
(upstream-icecat-base-version "102.12.0")
(gnuzilla-commit "b2d463b0e331795eebe3ee62f2c58c1bd05b9899")
(upstream-icecat-base-version "102.13.0")
(gnuzilla-commit "8c8a8ecc9322b0954e3d51f661866dbde1e6b1c3")
(gnuzilla-source
(origin
(method git-fetch)
@ -558,7 +558,7 @@ variable defined below. It requires guile-json to be installed."
(string-take gnuzilla-commit 8)))
(sha256
(base32
"0db03i3xmapdr0xyb9yg6cl66kyxavnl22hhhnf85ffnlfrcdx2r"))))
"1x382a2v1djbf7dv5gs05kj48jj7inw9czi9r3cl57frn4ilfzmq"))))
;; 'search-patch' returns either a valid file name or #f, so wrap it
;; in 'assume-valid-file-name' to avoid 'local-file' warnings.
@ -1139,8 +1139,8 @@ standards of the IceCat project.")
"ru" "sco" "si" "sk" "sl" "son" "sq" "sr" "sv-SE" "szl" "ta" "te" "th" "tl"
"tr" "trs" "uk" "ur" "uz" "vi" "xh" "zh-CN" "zh-TW"))
(define %icedove-build-id "20230607000000") ;must be of the form YYYYMMDDhhmmss
(define %icedove-version "102.12.0")
(define %icedove-build-id "20230705000000") ;must be of the form YYYYMMDDhhmmss
(define %icedove-version "102.13.0")
;; Provides the "comm" folder which is inserted into the icecat source.
;; Avoids the duplication of Icecat's source tarball.
@ -1149,11 +1149,11 @@ standards of the IceCat project.")
(method hg-fetch)
(uri (hg-reference
(url "https://hg.mozilla.org/releases/comm-esr102")
(changeset "9d42734e12597ccdb59fee178bf369d8c328dcad")))
(changeset "2bf94c4d195694485df5d632f2453888cf4f6657")))
(file-name (string-append "thunderbird-" %icedove-version "-checkout"))
(sha256
(base32
"159jdxcg62fq24hgpp5pd8yb0xmqzjhcmd706yzs8lnydm9kjpcg"))))
"1nzbvw1n6wdjbsq0cvyq8av2xf775cp4gkvsjc7i5qzvhl84wg4l"))))
(define (comm-source->locales+changeset source)
"Given SOURCE, a checkout of the Thunderbird 'comm' component, return the

278
gnu/packages/golang.scm
View file

@ -628,6 +628,13 @@ in the style of communicating sequential processes (@dfn{CSP}).")
`(("go-fix-script-tests.patch" ,(search-patch "go-fix-script-tests.patch"))
,@(package-native-inputs go-1.14)))))
;; https://github.com/golang/go/wiki/MinimumRequirements#microarchitecture-support
(define %go-1.17-arm-micro-architectures
(list "armv5" "armv6" "armv7"))
(define %go-1.17-powerpc64le-micro-architectures
(list "power8" "power9"))
(define-public go-1.17
(package
(inherit go-1.16)
@ -844,7 +851,14 @@ in the style of communicating sequential processes (@dfn{CSP}).")
"README.md" "SECURITY.md"))))))))
(inputs (if (not (or (target-arm?) (target-ppc64le?)))
(alist-delete "gcc:lib" (package-inputs go-1.16))
(package-inputs go-1.16)))))
(package-inputs go-1.16)))
(properties
`((compiler-cpu-architectures
("armhf" ,@%go-1.17-arm-micro-architectures)
("powerpc64le" ,@%go-1.17-powerpc64le-micro-architectures))))))
(define %go-1.18-x86_64-micro-architectures
(list "x86_64-v1" "x86_64-v2" "x86_64-v3" "x86_64-v4"))
(define-public go-1.18
(package
@ -887,7 +901,12 @@ in the style of communicating sequential processes (@dfn{CSP}).")
"ldflags, err := setextld(ldflags, compiler)\n"
"ldflags = append(ldflags, \"-r\")\n"
"ldflags = append(ldflags, \"" gcclib "\")\n")))))))
'())))))))
'())))))
(properties
`((compiler-cpu-architectures
("armhf" ,@%go-1.17-arm-micro-architectures)
("powerpc64le" ,@%go-1.17-powerpc64le-micro-architectures)
("x86_64" ,@%go-1.18-x86_64-micro-architectures))))))
(define-public go-1.19
(package
@ -3213,6 +3232,35 @@ and anniversaries.")
"This is the official AWS SDK for the Go programming language.")
(license license:asl2.0)))
(define-public go-gopkg-in-square-go-jose-v2
(package
(name "go-gopkg-in-square-go-jose-v2")
(version "2.6.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/square/go-jose")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1b1nhqxfmhzwrfk7pkvp2w3z3d0pf5ir00vizmy2d4xdbnldn70r"))))
(build-system go-build-system)
(arguments
(list #:import-path "gopkg.in/square/go-jose.v2"))
(propagated-inputs
(list go-golang-org-x-crypto))
(native-inputs
(list go-github-com-google-go-cmp-cmp
go-github-com-stretchr-testify))
(home-page "https://gopkg.in/square/go-jose.v2")
(synopsis "Implementation of JOSE standards (JWE, JWS, JWT) in Go")
(description
"This package aims to provide an implementation of the Javascript Object
Signing and Encryption set of standards. This includes support for JSON Web
Encryption, JSON Web Signature, and JSON Web Token standards.")
(license license:asl2.0)))
(define-public go-gopkg.in-tomb.v2
(let ((commit "d5d1b5820637886def9eef33e03a27a9f166942c")
(revision "0"))
@ -3355,6 +3403,80 @@ per-goroutine.")
(description "The @code{walker} function is a faster, parallel version, of
@code{filepath.Walk}")))
(define-public go-github-com-tdewolff-minify-v2
(package
(name "go-github-com-tdewolff-minify-v2")
(version "2.12.6")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/tdewolff/minify")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0h006wpfkl0ls0skqxblwcanrhmphgq5q0ii26l2ayh7s99cgmy3"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/tdewolff/minify/v2"))
(propagated-inputs
(list go-github-com-tdewolff-parse-v2))
(native-inputs
(list go-github-com-tdewolff-test))
(home-page "https://go.tacodewolff.nl/minify")
(synopsis "Go minifiers for web formats")
(description
"This package provides HTML5, CSS3, JS, JSON, SVG and XML minifiers and
an interface to implement any other minifier.")
(license license:expat)))
(define-public go-github-com-tdewolff-parse-v2
(package
(name "go-github-com-tdewolff-parse-v2")
(version "2.6.6")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/tdewolff/parse")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1dqki9ima079k9a3l72igmx5dml8qsl9z8rzw8a433f4gjhlv320"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/tdewolff/parse/v2"))
(native-inputs
(list go-github-com-tdewolff-test))
(home-page "https://github.com/tdewolff/parse")
(synopsis "Go parsers for web formats")
(description
"This package contains several lexers and parsers written in Go.")
(license license:expat)))
(define-public go-github-com-tdewolff-test
(package
(name "go-github-com-tdewolff-test")
(version "1.0.9")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/tdewolff/test")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"10myz3zdkqmx37cvj507h7l2ncb0rq9shqvz9ggq1swijbsvazff"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/tdewolff/test"))
(home-page "https://github.com/tdewolff/test")
(synopsis "Go test helper functions")
(description
"This package implements a few functions that are useful for io testing,
such as readers and writers that fail after N consecutive reads/writes.")
(license license:expat)))
(define-public go-github-com-tj-docopt
(package
(name "go-github-com-tj-docopt")
@ -3646,6 +3768,31 @@ developed by the Go team. It provides IDE features to any LSP-compatible
editor.")
(license license:bsd-3)))
(define-public go-github-com-pquerna-cachecontrol
(package
(name "go-github-com-pquerna-cachecontrol")
(version "0.2.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/pquerna/cachecontrol")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0d5zgv2w0sinh9m41pw3n015zzyabk7awgwwga7nmhjz452c9r5n"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/pquerna/cachecontrol"))
(native-inputs
(list go-github-com-stretchr-testify))
(home-page "https://github.com/pquerna/cachecontrol")
(synopsis "Golang HTTP Cache-Control Parser and Interpretation")
(description
"This package implements RFC 7234 Hypertext Transfer Protocol (HTTP/1.1):
Caching.")
(license license:asl2.0)))
(define-public go-github-com-protonmail-go-crypto
(package
(name "go-github-com-protonmail-go-crypto")
@ -4195,6 +4342,30 @@ Features include:
(propagated-inputs
(list go-gopkg-in-yaml-v3))))
(define-public go-github-com-technoweenie-multipartstreamer
(package
(name "go-github-com-technoweenie-multipartstreamer")
(version "1.0.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/technoweenie/multipartstreamer")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"159jhcabdkds8m5777zfs8p5z3snpjhzz7q9aq9wjpcvh6xlljqa"))))
(build-system go-build-system)
(arguments
(list #:tests? #f ; Upstream tests are broken.
#:import-path "github.com/technoweenie/multipartstreamer"))
(home-page "https://github.com/technoweenie/multipartstreamer")
(synopsis "MIME multipart format streamer")
(description
"This package helps you encode large files in MIME multipart format
without reading the entire content into memory.")
(license license:expat)))
(define-public go-github-com-tevino-abool
(let ((commit
"3c25f2fe7cd0ef3eabefce1d90efd69a65d35b12")
@ -5332,6 +5503,27 @@ The yaml package supports most of YAML 1.2, but preserves some behavior from
1.1 for backwards compatibility.")
(license license:asl2.0)))
(define-public go-github-com-matrix-org-gomatrix
(package
(name "go-github-com-matrix-org-gomatrix")
(version "0.0.0-20220926102614-ceba4d9f7530")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/matrix-org/gomatrix")
(commit (go-version->git-ref version))))
(file-name (git-file-name name version))
(sha256
(base32
"0vq29bdswvffxsmwvi20wnk73xk92dva0fdr2k3zshr4z10ypm2x"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/matrix-org/gomatrix"))
(home-page "https://github.com/matrix-org/gomatrix")
(synopsis "Golang Matrix client")
(description "This package provides a Golang Matrix client.")
(license license:asl2.0)))
(define-public go-github-com-mattn-go-isatty
(package
(name "go-github-com-mattn-go-isatty")
@ -7163,7 +7355,7 @@ systems.")
(define-public go-git-sr-ht-rockorager-tcell-term
(package
(name "go-git-sr-ht-rockorager-tcell-term")
(version "0.3.0")
(version "0.9.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -7172,7 +7364,7 @@ systems.")
(file-name (git-file-name name version))
(sha256
(base32
"13nfb2mq59846j531j7p2nm8mi0kjw5p90pa89l3fwc0sljkn5p8"))))
"177ladvpiiw7sb0hsjjv9p2yv5wpqpw6nqardkm8mqqlj0swa9xx"))))
(build-system go-build-system)
(arguments
(list #:import-path "git.sr.ht/~rockorager/tcell-term"))
@ -9353,6 +9545,33 @@ templates on ANSI compatible terminals. You can create your own stylesheet or
use one of our glamorous default themes.")
(license license:expat)))
(define-public go-github-com-coreos-go-oidc
(package
(name "go-github-com-coreos-go-oidc")
(version "2.2.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/coreos/go-oidc")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"11m6slbpi33ynffml7812piq4anhjlf1qszjlsf26f5y7x3qh8n5"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/coreos/go-oidc"))
(propagated-inputs
(list go-github-com-pquerna-cachecontrol
go-golang-org-x-oauth2
go-gopkg-in-square-go-jose-v2))
(home-page "https://github.com/coreos/go-oidc")
(synopsis "OpenID Connect support for Go")
(description
"This package enables OpenID Connect support for the
@code{go-golang-org-x-oauth2} package.")
(license license:asl2.0)))
(define-public go-github-com-coreos-go-semver
(package
(name "go-github-com-coreos-go-semver")
@ -10578,6 +10797,31 @@ modifying them.")
parsers, and related tools.")
(license license:expat))))
(define-public go-github-com-go-telegram-bot-api-telegram-bot-api
(package
(name "go-github-com-go-telegram-bot-api-telegram-bot-api")
(version "4.6.4")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/go-telegram-bot-api/telegram-bot-api")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1x6j0k3aiicsr8l53na99ci10zm3qpn2syz4f60fzh164w5k1l7w"))))
(build-system go-build-system)
(home-page "https://go-telegram-bot-api.dev/")
(arguments
(list #:tests? #f ; Upstream tests are broken.
#:import-path "github.com/go-telegram-bot-api/telegram-bot-api"))
(propagated-inputs
(list go-github-com-technoweenie-multipartstreamer))
(synopsis "Golang bindings for the Telegram Bot API")
(description
"This package provides Golang bindings for the Telegram Bot API.")
(license license:expat)))
(define-public go-github.com-ulikunitz-xz
(package
(name "go-github.com-ulikunitz-xz")
@ -12813,6 +13057,32 @@ algorithm originally designed for use in Netscape Mail 2.0 for Go.")
of the current user.")
(license license:expat)))
(define-public go-github-com-rylans-getlang
(package
(name "go-github-com-rylans-getlang")
(version "0.0.0-20201227074721-9e7f44ff8aa0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/rylans/getlang")
(commit (go-version->git-ref version))))
(file-name (git-file-name name version))
(sha256
(base32
"1yf698h21j88d7d9wkzq69cfd7vs1mfp96nhb83lx6hhh7rfvb92"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/rylans/getlang"))
(propagated-inputs
(list go-golang-org-x-text))
(native-inputs
(list go-github-com-stretchr-testify))
(home-page "https://github.com/rylans/getlang")
(synopsis "Natural language detection package in pure Go")
(description
"This package provides fast natural language detection in Go.")
(license license:expat)))
(define-public go-github-com-kyoh86-xdg
(package
(name "go-github-com-kyoh86-xdg")

3
gnu/packages/gps.scm
View file

@ -214,8 +214,7 @@ such as elevation, speed, heart rate, power, temperature, and gear shifts.")
(source
(origin
(method url-fetch)
(uri (string-append "https://download-mirror.savannah.gnu.org"
"/releases/gpsd/gpsd-" version ".tar.xz"))
(uri (string-append "mirror://savannah/gpsd/gpsd-" version ".tar.xz"))
(sha256
(base32 "1hd8b09is4gd73lpsdywxxdx11iijikmqgxd0y57pic3yxnlcb6a"))))
(build-system scons-build-system)

15
gnu/packages/graph.scm
View file

@ -6,7 +6,7 @@
;;; Copyright © 2019 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2020 Alexander Krotov <krotov@iitp.ru>
;;; Copyright © 2020 Pierre Langlois <pierre.langlos@gmx.com>
;;; Copyright © 2021 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2021, 2023 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2021 Alexandre Hannud Abdo <abdo@member.fsf.org>
;;; Copyright © 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Marius Bakke <marius@gnu.org>
@ -218,7 +218,7 @@ lines.")
(define-public python-plotly
(package
(name "python-plotly")
(version "5.6.0")
(version "5.14.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -227,7 +227,7 @@ lines.")
(file-name (git-file-name name version))
(sha256
(base32
"0kc9v5ampq2paw6sls6zdchvqvis7b1z8xhdvlhz5xxdr1vj5xnn"))))
"12iy5cswn5c0590fvl87nr6vfyhvbxymrldh4c7dfm2gn6h8z8w0"))))
(build-system python-build-system)
(arguments
(list
@ -238,11 +238,16 @@ lines.")
(lambda _
(setenv "SKIP_NPM" "T")))
(add-after 'unpack 'fix-version
;; Versioneer is useless when there is no git metadata.
;; TODO: Versioneer in Guix gets its release version from the
;; parent directory, but the plotly package is located inside a
;; depth 3 subdirectory. Try to use versioneer if possible.
(lambda _
(substitute* "packages/python/plotly/setup.py"
(("version=versioneer.get_version\\(),")
(format #f "version=~s," #$version)))))
(format #f "version=~s," #$version)))
(substitute* "packages/python/plotly/plotly/version.py"
(("__version__ = get_versions\\(\\)\\[\"version\"\\]")
(format #f "__version__ = ~s" #$version)))))
(add-after 'fix-version 'chdir
(lambda _
(chdir "packages/python/plotly")))

42
gnu/packages/graphics.scm
View file

@ -21,7 +21,7 @@
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2020, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Raghav Gururajan <raghavgururajan@disroot.org>
;;; Copyright © 2020, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020, 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Gabriel Arazas <foo.dogsquared@gmail.com>
;;; Copyright © 2021 Antoine Côté <antoine.cote@posteo.net>
;;; Copyright © 2021 Andy Tai <atai@atai.org>
@ -824,7 +824,8 @@ many more.")
;; precision), as was discussed and patched long ago:
;; <https://issues.guix.gnu.org/22049>. It seems the relevant fixes
;; didn't make it upstream, so skip tests.
(list #:tests? (not (target-x86-32?))))
(list #:tests? (not (or (target-x86-32?)
(%current-target-system)))))
(home-page "https://github.com/AcademySoftwareFoundation/Imath")
(synopsis "Library of math operations for computer graphics")
(description
@ -2395,7 +2396,7 @@ generated discrete signed distance field using the cubic spline kernel.
(define-public mmg
(package
(name "mmg")
(version "5.6.0")
(version "5.7.1")
(source
(origin
(method git-fetch)
@ -2404,7 +2405,7 @@ generated discrete signed distance field using the cubic spline kernel.
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "173biz5skbwg27i5w6layg7mydjzv3rmi1ywhra4rx9rjf5c0cc5"))))
(base32 "0skb7yzsw6y44zp9gb729i5xks7qd97nvn3z6jhz4jksqksx7lz0"))))
(build-system cmake-build-system)
(outputs '("out" "lib" "doc"))
(arguments
@ -2414,11 +2415,14 @@ generated discrete signed distance field using the cubic spline kernel.
;; The build doesn't honor -DCMAKE_INSTALL_BINDIR, hence
;; the adjust-bindir phase.
;;(string-append "-DCMAKE_INSTALL_BINDIR=" #$output "/bin")
(string-append "-DCMAKE_INSTALL_MANDIR=" #$output "/share/man")
"-DBUILD_SHARED_LIBS=ON"
"-DBUILD_DOC=ON"
"-DBUILD_TESTING=ON"
;; The longer tests are for continuous integration and
;; depend on input data which must be downloaded.
"-DONLY_VERY_SHORT_TESTS=ON"
"-DUSE_SCOTCH=ON"
;; TODO: Add Elas (from
;; https://github.com/ISCDtoolbox/LinearElasticity).
"-DUSE_ELAS=OFF"
@ -2443,9 +2447,6 @@ generated discrete signed distance field using the cubic spline kernel.
(invoke "make" "doc")))
(add-after 'install 'install-doc
(lambda _
(copy-recursively
"../source/doc/man" (string-append #$output
"/share/man/man1"))
(copy-recursively
"doc" (string-append #$output:doc "/share/doc/"
#$name "-" #$version))))
@ -2496,6 +2497,33 @@ a tetrahedral mesh, isovalue discretization and Lagrangian movement;
@end itemize")
(license license:lgpl3+)))
(define-public nanosvg
;; There are no proper versions or releases; use the latest commit.
(let ((commit "9da543e8329fdd81b64eb48742d8ccb09377aed1")
(revision "0"))
(package
(name "nanosvg")
(version (git-version "0.0.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/memononen/nanosvg")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1pkzv75kavkhrbdd2kvq755jyr0vamgrfr7lc33dq3ipkzmqvs2l"))))
(build-system cmake-build-system)
(arguments (list #:tests? #f ;no test suite
#:configure-flags #~(list "-DBUILD_SHARED_LIBS=ON")))
(home-page "https://github.com/memononen/nanosvg")
(synopsis "Simple SVG parser")
(description "NanoSVG is a simple single-header SVG parser. The output
of the parser is a list of cubic bezier shapes. The library suits well for
anything from rendering scalable icons in an editor application to prototyping
a game.")
(license license:zlib))))
(define-public f3d
(package
(name "f3d")

49
gnu/packages/groff.scm
View file

@ -32,6 +32,7 @@
#:use-module (guix git-download)
#:use-module (guix build-system gnu)
#:use-module (guix build-system ruby)
#:use-module (guix gexp)
#:use-module (gnu packages)
#:use-module (gnu packages ruby)
#:use-module (gnu packages bison)
@ -229,27 +230,33 @@ It is typically used to display man pages on a web site.")
"1slxfg57cabmh98fw507z4ka6lwq1pvbrqwppflxw6700pi8ykfh"))))
(build-system ruby-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'extract-gemspec 'fix-gemspec-mustache
(lambda _
(substitute* "ronn-ng.gemspec"
(("(<mustache>.freeze.*~>).*(\".*$)" all start end)
(string-append start " 1.0" end)))
#t))
(add-after 'wrap 'wrap-program
(lambda* (#:key outputs #:allow-other-keys)
(let ((prog (string-append (assoc-ref %outputs "out") "/bin/ronn")))
(wrap-program prog
`("PATH" ":" suffix ,(map
(lambda (exp_inpt)
(string-append
(assoc-ref %build-inputs exp_inpt)
"/bin"))
'("ruby-kramdown"
"ruby-mustache"
"ruby-nokogiri")))))
#t)))))
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-test
(lambda _
;; TODO This should be removed once the upstream fix is released
;; https://github.com/apjanke/ronn-ng/commit/e194bf62b1d0c0828cc83405e60dc5ece829e62f
(substitute* "test/test_ronn_document.rb"
(("YAML\\.load\\(@doc\\.to_yaml\\)")
"YAML.load(@doc.to_yaml, permitted_classes: [Time])"))))
(add-after 'extract-gemspec 'fix-gemspec-mustache
(lambda _
(substitute* "ronn-ng.gemspec"
(("(<mustache>.freeze.*~>).*(\".*$)" all start end)
(string-append start " 1.0" end)))))
(add-after 'wrap 'wrap-program
(lambda* (#:key outputs #:allow-other-keys)
(let ((prog (string-append (assoc-ref %outputs "out") "/bin/ronn")))
(wrap-program prog
`("PATH" ":" suffix ,(map
(lambda (exp_inpt)
(string-append
(assoc-ref %build-inputs exp_inpt)
"/bin"))
'("ruby-kramdown"
"ruby-mustache"
"ruby-nokogiri"))))))))))
(inputs
(list ruby-kramdown ruby-mustache ruby-nokogiri))
(synopsis

65
gnu/packages/guile-xyz.scm
View file

@ -43,7 +43,7 @@
;;; Copyright © 2022 Zhu Zihao <all_but_last@163.com>
;;; Copyright © 2022 Antero Mejr <antero@mailbox.org>
;;; Copyright © 2022 Taiju HIGASHI <higashi@taiju.info>
;;; Copyright © 2022 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2022, 2023 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2022 Evgeny Pisemsky <evgeny@pisemsky.com>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;;
@ -1086,8 +1086,8 @@ for calling methods on remote servers by exchanging JSON objects.")
(license license:expat))))
(define-public guile-squee
(let ((commit "fab9d9590792f3ededd4abd8cfa6be5e56659678")
(revision "4"))
(let ((commit "9f2609563fc53466e46d37c8d8d2fbcfce67b2ba")
(revision "5"))
(package
(name "guile-squee")
(version (string-append "0-" revision "." (string-take commit 7)))
@ -1099,19 +1099,20 @@ for calling methods on remote servers by exchanging JSON objects.")
(file-name (git-file-name name version))
(sha256
(base32
"03wdawx14sqs6xkw1vl06s58xyjicg2js2k4syn0z64bjbxxjvps"))))
"0r322mfxx08siw656h7bm31rgzkchmp3yrgjpkc2d3qw286ilqi7"))))
(build-system guile-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "squee.scm"
(("dynamic-link \"libpq\"")
(string-append
"dynamic-link \""
(search-input-file inputs "/lib/libpq.so")
"\""))))))))
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "squee.scm"
(("dynamic-link \"libpq\"")
(string-append
"dynamic-link \""
(search-input-file inputs "/lib/libpq.so")
"\""))))))))
(inputs
(list postgresql))
(native-inputs
@ -4251,7 +4252,7 @@ the style of the Node Package Manager (NPM).")
#t)))))
(native-inputs
(list guile-3.0))
(synopsis "Cryprographic hash functions implemented in Scheme")
(synopsis "Cryptographic hash functions implemented in Scheme")
(description
"The @code{(hashing @dots{})} modules implement cryptographic hash
functions in pure R6RS Scheme: CRC, HMAC, MD5, SHA-1, and SHA-2 (SHA-256,
@ -4670,33 +4671,31 @@ manipulating graphs and datasets.")
(package
(name "guile-jsonld")
(version "1.0.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://framagit.org/tyreunom/guile-jsonld")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1ryyvh71899z2inivqglb8d78zzp1sd0wv9a56kvcmrxf1966z6r"))))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://framagit.org/tyreunom/guile-jsonld")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1ryyvh71899z2inivqglb8d78zzp1sd0wv9a56kvcmrxf1966z6r"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f)); require network
(list #:tests? #f)) ; require network
(propagated-inputs
`(("guile-gnutls" ,gnutls)
("guile-json" ,guile-json-4)
("guile-rdf" ,guile-rdf)))
(list guile-gnutls guile-json-4 guile-rdf))
(inputs
(list guile-3.0))
(native-inputs
(list automake autoconf pkg-config texinfo))
(home-page "https://framagit.org/tyreunom/guile-jsonld")
(synopsis "Guile implementation of the JsonLD API specification")
(description "Guile JsonLD is an implementation of the JsonLD (Json for
Linked Data) API defined by the W3C for GNU Guile. It allows you to express links
between data, in a way that is very similar to WikiData or RDF for instance.
An object can have relations (in the form of an IRI) that relates it to one or
(description
"Guile JsonLD is an implementation of the JsonLD (Json for Linked Data)
API defined by the W3C for GNU Guile. It allows you to express links between
data, in a way that is very similar to WikiData or RDF for instance. An
object can have relations (in the form of an IRI) that relates it to one or
more objects or strings, represented by a Json object or an IRI.")
(license license:gpl3+)))

40
gnu/packages/hardware.scm
View file

@ -61,6 +61,7 @@
#:use-module (gnu packages gnome)
#:use-module (gnu packages gtk)
#:use-module (gnu packages guile)
#:use-module (gnu packages haskell-xyz)
#:use-module (gnu packages high-availability)
#:use-module (gnu packages libusb)
#:use-module (gnu packages linux)
@ -813,7 +814,7 @@ specific SMBIOS tables.")
(define-public memtest86+
(package
(name "memtest86+")
(version "6.10")
(version "6.20")
(source
(origin
(method git-fetch)
@ -822,7 +823,7 @@ specific SMBIOS tables.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1igb648rsmbp0s95790qib6mhdsvbsrpigl91gk7yfkz32bip3bz"))
(base32 "1wsrdgpxi2nrcazihi1ghkn681iqkpwd8wnp533avcfg16n0jd17"))
(patches
(search-patches "memtest86+-build-reproducibly.patch"))))
(build-system gnu-build-system)
@ -1016,7 +1017,7 @@ technology, such as head mounted displays with built in head tracking.")
(define-public openrgb
(package
(name "openrgb")
(version "0.8")
(version "0.9")
(source
(origin
(method git-fetch)
@ -1025,7 +1026,7 @@ technology, such as head mounted displays with built in head tracking.")
(commit (string-append "release_" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1yz7sdrjcxajm1zpa5djinmych5dvck0r1fvk0x5qmk87va4p9z3"))
(base32 "0rdh87w4j47dr0vakva94fhcbdc67d9aad0p3najg9zf8zhf64jw"))
(patches
(search-patches "openrgb-unbundle-hueplusplus.patch"))
(modules '((guix build utils)))
@ -1313,6 +1314,37 @@ libtss2-esys, libtss2-sys, libtss2-mu, libtss2-tcti-device, libtss2-tcti-swtpm
and libtss2-tcti-mssim.")
(license license:bsd-2)))
(define-public tpm2-tools
(package
(name "tpm2-tools")
(version "5.5")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/tpm2-software/tpm2-tools/"
"releases/download/" version "/"
"tpm2-tools-" version ".tar.gz"))
(sha256
(base32 "08y16q92dh7frsyw0zlm3q9gsfqyls0li248s2pgsysk633lknqz"))))
(build-system gnu-build-system)
(native-inputs
(list autoconf
automake
curl
libtool
gnu-gettext
openssl
pandoc
pkg-config
tpm2-tss))
(home-page "https://github.com/tpm2-software/tpm2-tools")
(synopsis "Tools for the Trusted Platform Module (TPM 2.0)")
(description
"This package provides user tools for the Trusted Computing Group's (TCG)
TPM2 Software Stack (TSS). These programs help with common tasks such as key
management, attestation, encryption, and signing.")
(license license:bsd-3)))
(define-public libcpuid
;; We need to remove blobs from the source, first we have to isolate the blob
;; source in build system.

4
gnu/packages/haskell-apps.scm
View file

@ -294,13 +294,13 @@ to @code{cabal repl}).")
(define-public git-annex
(package
(name "git-annex")
(version "10.20230407")
(version "10.20230626")
(source
(origin
(method url-fetch)
(uri (hackage-uri "git-annex" version))
(sha256
(base32 "19500i3xcmxbh990kmdqimknlpk55z5iz9lnm3w35g8hmrpfh0d0"))))
(base32 "1z16alb5193y4m70rq0bcxx1rn6lnlgswigdnv5lqybjq1fw1z99"))))
(build-system haskell-build-system)
(properties '((upstream-name . "git-annex")))
(arguments

24
gnu/packages/haskell-check.scm
View file

@ -14,6 +14,7 @@
;;; Copyright © 2020 John Soo <jsoo1@asu.edu>
;;; Copyright © 2020 Carlo Holl <carloholl@gmail.com>
;;; Copyright © 2021 John Kehayias <john.kehayias@protonmail.com>
;;; Copyright © 2023 zamfofex <zamfofex@twdb.moe>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1180,3 +1181,26 @@ result of golden tests.")
"Integrate @@inspection-testing@@ into @@tasty@@ test suites.")
(license license:expat)))
(define-public ghc-proctest
(package
(name "ghc-proctest")
(version "0.1.3.0")
(source (origin
(method url-fetch)
(uri (hackage-uri "proctest" version))
(sha256
(base32
"02iz323arx9zwclvspgaaqz81bp6jdnj89pjm08n2gamg39zsbdn"))))
(build-system haskell-build-system)
(properties '((upstream-name . "proctest")))
(inputs (list ghc-hunit ghc-hspec ghc-quickcheck))
(home-page "https://github.com/nh2/proctest")
(synopsis "IO library for testing interactive command line programs")
(description
"This package provides an IO library for testing interactive command line
programs. Proctest aims to simplify interacting with and testing terminal
programs, providing convenience functions for starting programs and reading
their output. All blocking operations support timeouts so that misbehaving
programs cannot block your test pipeline. Find more examples and contribute
at @url{https://github.com/nh2/proctest}.")
(license license:expat)))

451
gnu/packages/haskell-xyz.scm
View file

@ -32,6 +32,7 @@
;;; Copyright © 2021 John Kehayias <john.kehayias@protonmail.com>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;; Copyright © 2023 Josselin Poiret <dev@jpoiret.xyz>
;;; Copyright © 2023 zamfofex <zamfofex@twdb.moe>
;;;
;;; This file is part of GNU Guix.
;;;
@ -2047,6 +2048,27 @@ Colours can be blended and composed. Various colour spaces are
supported. A module of colour names (\"Data.Colour.Names\") is provided.")
(license license:expat)))
(define-public ghc-hscolour
(package
(name "ghc-hscolour")
(version "1.24.4")
(source (origin
(method url-fetch)
(uri (hackage-uri "hscolour" version))
(sha256
(base32
"079jwph4bwllfp03yfr26s5zc6m6kw3nhb1cggrifh99haq34cr4"))))
(build-system haskell-build-system)
(properties '((upstream-name . "hscolour")))
(home-page "http://code.haskell.org/~malcolm/hscolour/")
(synopsis "Colourise Haskell code")
(description
"hscolour is a small Haskell script to colourise Haskell code. It currently has
six output formats: ANSI terminal codes (optionally XTerm-256colour codes), HTML
3.2 with <font> tags, HTML 4.01 with CSS, HTML 4.01 with CSS and mouseover
annotations, XHTML 1.0 with inline CSS styling, LaTeX, and mIRC chat codes.")
(license license:lgpl2.1)))
(define-public ghc-comonad
(package
(name "ghc-comonad")
@ -2446,6 +2468,29 @@ They stopped crashing the compiler in GHC 7.6. This package provides
a vocabulary for working with them.")
(license license:bsd-2)))
(define-public ghc-constraints-extras
(package
(name "ghc-constraints-extras")
(version "0.4.0.0")
(source (origin
(method url-fetch)
(uri (hackage-uri "constraints-extras" version))
(sha256
(base32
"1irf4kd7a5h1glczbc73c3590m58azn4s68nfrjfg1h96i7mjfgn"))))
(build-system haskell-build-system)
(properties '((upstream-name . "constraints-extras")))
(inputs (list ghc-constraints ghc-aeson))
(arguments
`(#:cabal-revision ("1"
"1fdabah3ilq9yf94916ml3c3rxgcgab1jhzl4mk1zgzsw78j53qf")))
(home-page "https://github.com/obsidiansystems/constraints-extras")
(synopsis "Utility package for constraints")
(description
"Convenience functions and TH for working with constraints. See
@file{README.md} for example usage.")
(license license:bsd-3)))
(define-public ghc-contravariant
(package
(name "ghc-contravariant")
@ -6315,6 +6360,77 @@ polymorphism. @code{Lens.Family.Clone} allows for first-class support of
lenses and traversals for those who require Haskell 98.")
(license license:bsd-3)))
(define-public ghc-generic-lens-core
(package
(name "ghc-generic-lens-core")
(version "2.2.1.0")
(source (origin
(method url-fetch)
(uri (hackage-uri "generic-lens-core" version))
(sha256
(base32
"08i4c9yb6z84iknrnl9f3f343121j7ilp0a679v81nsjm9xz3rlf"))))
(build-system haskell-build-system)
(properties '((upstream-name . "generic-lens-core")))
(inputs (list ghc-indexed-profunctors))
(arguments
`(#:cabal-revision ("1"
"1dbjhd6k7ypqa9f4h9v2xndgb4mjhfli3n1vjm8r8ga0kfndbqfn")))
(home-page "https://github.com/kcsongor/generic-lens")
(synopsis "Generically derive traversals, lenses and prisms.")
(description
"This library uses GHC.Generics to derive efficient optics (traversals,
lenses and prisms) for algebraic data types in a type-directed way, with a
focus on good type inference and error messages when possible. This package
is the shared internal logic of the @code{generic-lens} and
@code{generic-optics} libraries.")
(license license:bsd-3)))
(define-public ghc-generic-lens
(package
(name "ghc-generic-lens")
(version "2.2.2.0")
(source (origin
(method url-fetch)
(uri (hackage-uri "generic-lens" version))
(sha256
(base32
"0s4b51s11ssmndmx9m9zbwgv9rb27ajwihsrk10hn582rp4ck3c6"))))
(build-system haskell-build-system)
(properties '((upstream-name . "generic-lens")))
(inputs (list ghc-generic-lens-core ghc-profunctors))
(native-inputs (list ghc-lens ghc-inspection-testing ghc-hunit ghc-doctest))
(home-page "https://github.com/kcsongor/generic-lens")
(synopsis "Generically derive traversals, lenses and prisms.")
(description
"This library uses @code{GHC.Generics} to derive efficient
optics (traversals, lenses and prisms) for algebraic data types in a
type-directed way, with a focus on good type inference and error messages when
possible. The library exposes a van Laarhoven interface. For an alternative
interface, supporting an opaque optic type, see @code{generic-optics}.")
(license license:bsd-3)))
(define-public ghc-these-lens
(package
(name "ghc-these-lens")
(version "1.0.1.2")
(source (origin
(method url-fetch)
(uri (hackage-uri "these-lens" version))
(sha256
(base32
"1v3kj7j4bkywbmdbblwqs5gsj5s23d59sb3s27jf3bwdzf9d21p6"))))
(build-system haskell-build-system)
(properties '((upstream-name . "these-lens")))
(inputs (list ghc-these ghc-lens))
(arguments
`(#:cabal-revision ("2"
"1mncy6mcwqxy4fwibrsfc3jcx183wfjfvfvbj030y86pfihvbwg3")))
(home-page "https://github.com/haskellari/these")
(synopsis "Lenses for These")
(description "This package provides Prism and Traversals for @code{These}.")
(license license:bsd-3)))
(define-public ghc-libffi
(package
(name "ghc-libffi")
@ -9187,6 +9303,26 @@ API.")
(description "This library provides profunctors for Haskell.")
(license license:bsd-3)))
(define-public ghc-indexed-profunctors
(package
(name "ghc-indexed-profunctors")
(version "0.1.1")
(source (origin
(method url-fetch)
(uri (hackage-uri "indexed-profunctors" version))
(sha256
(base32
"1cbccbvrx73drr1jf3yyw0rp1mcfv3jc1rvdcby5xxx4ja543fjs"))))
(build-system haskell-build-system)
(properties '((upstream-name . "indexed-profunctors")))
(home-page "http://hackage.haskell.org/package/indexed-profunctors")
(synopsis "Utilities for indexed profunctors")
(description
"This package contains basic definitions related to indexed profunctors. These
are primarily intended as internal utilities to support the @code{optics} and
@code{generic-lens} package families.")
(license license:bsd-3)))
(define-public ghc-project-template
(package
(name "ghc-project-template")
@ -9574,6 +9710,110 @@ configurations to coexist without resorting to mutable global variables or
@code{System.IO.Unsafe.unsafePerformIO}.")
(license license:bsd-3)))
(define-public ghc-reflex
(package
(name "ghc-reflex")
(version "0.8.2.2")
(source (origin
(method url-fetch)
(uri (hackage-uri "reflex" version))
(sha256
(base32
"1add5bcsyq2k02w2q0ifbyfcvcic1hmjdbgxg8ajd5riam0lhb16"))))
(build-system haskell-build-system)
(properties '((upstream-name . "reflex")))
(inputs (list ghc-memotrie
ghc-bifunctors
ghc-comonad
ghc-commutative-semigroups
ghc-constraints
ghc-constraints-extras
ghc-data-default
ghc-dependent-map
ghc-exception-transformers
ghc-lens
ghc-mmorph
ghc-monad-control
ghc-patch
ghc-prim-uniq
ghc-primitive
ghc-profunctors
ghc-random
ghc-ref-tf
ghc-reflection
ghc-semigroupoids
ghc-syb
ghc-unbounded-delays
ghc-witherable
ghc-these
ghc-semialign
ghc-monoidal-containers
ghc-dependent-sum
ghc-haskell-src-exts
ghc-haskell-src-meta))
(native-inputs (list hlint
ghc-split
ghc-filemanip
ghc-these-lens
ghc-hspec
ghc-proctest))
(arguments
'(#:phases
(modify-phases %standard-phases
(add-before 'configure 'update-constraints
(lambda _
(substitute* "reflex.cabal"
(("\\bmmorph >= 1\\.0 && < 1\\.2,") "mmorph,")))))))
(home-page "https://reflex-frp.org")
(synopsis "Higher-order functional reactive programming")
(description
"This library lets you write interactive programs without callbacks or
side-effects. Functional Reactive Programming (FRP) uses composable events
and time-varying values to describe interactive systems as pure functions.
Just like other pure functional code, functional reactive code is easier to
get right on the first try, maintain, and reuse. Reflex is a
fully-deterministic, higher-order FRP interface and an engine that efficiently
implements that interface.")
(license license:bsd-3)))
(define-public ghc-reflex-sdl2
(let ((commit "6dadf2c4f383b8a58fcd73616996b219c4f93972")
(revision "1"))
(package
(name "ghc-reflex-sdl2")
(version (git-version "0.3.0.2" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/schell/reflex-sdl2")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "06lxfgp18l1car6wd07mbjn4yblnp89acf1i67nd815p2hx0ihbz"))))
(build-system haskell-build-system)
(properties '((upstream-name . "reflex-sdl2")))
(inputs (list ghc-async
ghc-dependent-sum
ghc-exception-transformers
ghc-ref-tf
ghc-primitive
ghc-reflex
ghc-sdl2))
(arguments
'(#:phases
(modify-phases %standard-phases
(add-before 'configure 'update-constraints
(lambda _
(substitute* "reflex-sdl2.cabal"
(("\\bref-tf +>= 0\\.4 +&& < 0\\.5\\b") "ref-tf")))))))
(home-page "https://github.com/schell/reflex-sdl2")
(synopsis "SDL2 and Reflex functional reactive programming")
(description
"This package provides a minimal host for SDL2-based Reflex
applications.")
(license license:expat))))
(define-public ghc-regex
(package
(name "ghc-regex")
@ -10288,6 +10528,47 @@ programming.")
@code{SDL2_mixer}.")
(license license:bsd-3)))
(define-public ghc-sdl2-ttf
(package
(name "ghc-sdl2-ttf")
(version "2.1.3")
(source (origin
(method url-fetch)
(uri (hackage-uri "sdl2-ttf" version))
(sha256
(base32
"0sm5lrdif5wmz3iah1658zlr7yr45d1hfihb2hdxdia4h7z1j0mn"))))
(build-system haskell-build-system)
(properties '((upstream-name . "sdl2-ttf")))
(inputs (list ghc-sdl2 ghc-th-abstraction sdl2-ttf))
(native-inputs (list pkg-config))
(home-page "http://hackage.haskell.org/package/sdl2-ttf")
(synopsis "Bindings to SDL2_ttf")
(description "This package provides Haskell bindings to SDL2_ttf C++
library.")
(license license:bsd-3)))
(define-public ghc-sdl2-gfx
(package
(name "ghc-sdl2-gfx")
(version "0.3.0.0")
(source (origin
(method url-fetch)
(uri (hackage-uri "sdl2-gfx" version))
(sha256
(base32
"0r9m54ffkp1dv2ffz9i9318qhvpinc76iih7vg1dwq3siwgpxaxw"))))
(build-system haskell-build-system)
(properties '((upstream-name . "sdl2-gfx")))
(inputs (list ghc-lifted-base ghc-monad-control ghc-sdl2 ghc-vector sdl2-gfx))
(native-inputs (list pkg-config))
(home-page "http://hackage.haskell.org/package/sdl2-gfx")
(synopsis "Haskell bindings to SDL2_gfx")
(description
"This package provides Haskell bindings to the SDL2_gfx graphics
library.")
(license license:expat)))
(define-public ghc-sdl-image
(package
(name "ghc-sdl-image")
@ -12457,6 +12738,28 @@ transformers 0.2 or 0.3 compatibility to run on old versions of the platform,
but also need those types.")
(license license:bsd-3)))
(define-public ghc-exception-transformers
(package
(name "ghc-exception-transformers")
(version "0.4.0.11")
(source (origin
(method url-fetch)
(uri (hackage-uri "exception-transformers" version))
(sha256
(base32
"1zmd2s40m86c9mhv32l5bvvf5r52cgpxvb4v5phyc3pjwlr7m8g5"))))
(build-system haskell-build-system)
(properties '((upstream-name . "exception-transformers")))
(inputs (list ghc-fail ghc-transformers-compat))
(native-inputs (list ghc-hunit ghc-test-framework ghc-test-framework-hunit))
(home-page "http://hackage.haskell.org/package/exception-transformers")
(synopsis "Type classes and monads for unchecked extensible exceptions")
(description
"This package provides type classes, a monad and a monad transformer that support
unchecked extensible exceptions as well as asynchronous exceptions. It is
compatible with the transformers package.")
(license license:bsd-3)))
(define-public ghc-tree-diff
(package
(name "ghc-tree-diff")
@ -12947,6 +13250,80 @@ and high speed.")
(native-inputs '())
(properties '((hidden? #t)))))
(define-public ghc-commutative-semigroups
(package
(name "ghc-commutative-semigroups")
(version "0.1.0.1")
(source (origin
(method url-fetch)
(uri (hackage-uri "commutative-semigroups" version))
(sha256
(base32
"1bmafx363gfsd9wwrf3xyrw9mnw6anmc1zdfv0p8597y4lxxach7"))))
(build-system haskell-build-system)
(properties '((upstream-name . "commutative-semigroups")))
(home-page "http://hackage.haskell.org/package/commutative-semigroups")
(synopsis "Commutative semigroups")
(description
"This package provides a commutative semigroup is a semigroup where the order of
arguments to mappend does not matter.")
(license license:bsd-3)))
(define-public ghc-dependent-sum
(package
(name "ghc-dependent-sum")
(version "0.7.2.0")
(source (origin
(method url-fetch)
(uri (hackage-uri "dependent-sum" version))
(sha256
(base32
"1frw5965v8i6xqdgs95gg8asgdqcqnmfahz0pmbwiaw5ybn62rc2"))))
(build-system haskell-build-system)
(properties '((upstream-name . "dependent-sum")))
(inputs (list ghc-constraints-extras ghc-some))
(arguments
`(#:cabal-revision ("1"
"0qybk8x6gyvg8pgf84mywlfajlcvg9pp4rs1wfn9fa7ns6sms88n")))
(home-page "https://github.com/obsidiansystems/dependent-sum")
(synopsis "Dependent sum type")
(description
"This package provides a dependent sum is a generalization of a
particular way of thinking about the @code{Either} type. @code{Either a b}
can be thought of as a 2-tuple @code{(tag, value)}, where the value of the tag
determines the type of the value. In particular, either @code{tag = Left} and
@code{value :: a} or @code{tag = Right} and @code{value :: b}. This package
allows you to define your own dependent sum types by using your own \"tag\"
types.")
(license license:public-domain)))
(define-public ghc-dependent-map
(package
(name "ghc-dependent-map")
(version "0.4.0.0")
(source (origin
(method url-fetch)
(uri (hackage-uri "dependent-map" version))
(sha256
(base32
"0b0zhyl3wkl4kkrxvq7vwjz3gn0ndxjjgyw9cky8a6xyv190pkjk"))))
(build-system haskell-build-system)
(properties '((upstream-name . "dependent-map")))
(inputs (list ghc-dependent-sum ghc-constraints-extras))
(arguments
`(#:cabal-revision ("1"
"160p9crvlx1sn60inkwxa6mv1h2d4fgqnpsb2km67zrkpdfyd2s2")))
(home-page "https://github.com/obsidiansystems/dependent-map")
(synopsis "Dependent finite maps (partial dependent products)")
(description
"This package provides a type called @@DMap@@ which generalizes @@Data.Map.Map@@,
allowing keys to specify the type of value that can be associated with them.")
;; XXX: The 'LICENSE' file lists several licenses, stating "I have no idea
;; which, if any, of the following licenses apply […]. Any modifications
;; by myself I release into the public domain […]"."
(license license:public-domain)))
(define-public ghc-unsafe
(package
(name "ghc-unsafe")
@ -16291,6 +16668,80 @@ same-and-increasingly-sized values.")
to incorporate LeanCheck tests into test-framework test suites.")
(license license:bsd-3)))
(define-public ghc-prim-uniq
(package
(name "ghc-prim-uniq")
(version "0.2")
(source (origin
(method url-fetch)
(uri (hackage-uri "prim-uniq" version))
(sha256
(base32
"1l7jlv3pfasn89n2wpgff972npy423vqsidkkn5crxfyqjyzxbdv"))))
(build-system haskell-build-system)
(properties '((upstream-name . "prim-uniq")))
(inputs (list ghc-dependent-sum ghc-primitive))
(home-page "https://github.com/obsidiansystems/prim-uniq")
(synopsis "Opaque unique identifiers in primitive state monads")
(description
"This library provides opaque unique identifiers in primitive state
monads and a GADT-like type using them as witnesses of type equality.")
(license license:public-domain)))
(define-public ghc-patch
(package
(name "ghc-patch")
(version "0.0.8.2")
(source (origin
(method url-fetch)
(uri (hackage-uri "patch" version))
(sha256
(base32
"15r2sjlpvp22iwd7qa1lqdq7n8nvqv2klvzrlm3phqq3j5n5x5y5"))))
(build-system haskell-build-system)
(properties '((upstream-name . "patch")))
(inputs (list ghc-constraints-extras
ghc-commutative-semigroups
ghc-dependent-map
ghc-dependent-sum
ghc-lens
ghc-indexed-traversable
ghc-semigroupoids
ghc-witherable
ghc-these
ghc-semialign
ghc-monoidal-containers))
(native-inputs (list ghc-hedgehog ghc-hunit ghc-filemanip hlint))
(home-page "https://obsidian.systems")
(synopsis
"Data structures for describing changes to other data structures")
(description
"This library provides data structures for describing changes to other
data structures. In this library, a patch is something that can be applied,
analogous to a function, and which distinguishes returning the argument it was
provided from returning something else.")
(license license:bsd-3)))
(define-public ghc-ref-tf
(package
(name "ghc-ref-tf")
(version "0.5.0.1")
(source (origin
(method url-fetch)
(uri (hackage-uri "ref-tf" version))
(sha256
(base32
"0isilgcbw12zyh8s2liaj5r9r5m3yg1xskyhag6f36qi60y29hx5"))))
(build-system haskell-build-system)
(properties '((upstream-name . "ref-tf")))
(home-page "http://hackage.haskell.org/package/ref-tf")
(synopsis "Type class for monads with references using type families")
(description
"This package contains a @code{MonadRef} type class that abstracts over
the details of manipulating references, allowing one to write code that can
operate in either the @code{ST} monad or the @code{IO} monad.")
(license license:bsd-3)))
;;;
;;; Avoid adding new packages to the end of this file. To reduce the chances
;;; of a merge conflict, place them above by existing packages with similar

2
gnu/packages/hunspell.scm
View file

@ -276,7 +276,7 @@ spell-checking library.")
(#\_ #\-)
(chr chr))
(string-downcase dict-name))))
(version "7.5.1.2")
(version "7.5.4.2")
(source
(origin
(method git-fetch)

53
gnu/packages/image-processing.scm
View file

@ -22,6 +22,7 @@
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Tomasz Jeneralczyk <tj@schwi.pl>
;;; Copyright © 2022 Paul A. Patience <paul@apatience.com>
;;; Copyright © 2023 Cairn <cairn@pm.me>
;;;
;;; This file is part of GNU Guix.
;;;
@ -63,6 +64,7 @@
#:use-module (gnu packages fontutils)
#:use-module (gnu packages game-development)
#:use-module (gnu packages gcc)
#:use-module (gnu packages gd)
#:use-module (gnu packages geo)
#:use-module (gnu packages ghostscript)
#:use-module (gnu packages gimp)
@ -1735,3 +1737,54 @@ can call the CharLS codec and pass it images (sometimes called raster bitmaps),
to have them encoded to JPEG-LS, or JPEG-LS streams, which CharLS will decode
to images.")
(license license:bsd-3)))
(define-public libansilove
(package
(name "libansilove")
(version "1.4.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ansilove/libansilove")
(commit (string-append version))))
(file-name (git-file-name name version))
(sha256
(base32
"169njlck4a2bmf1kmjas1w594hyda543ykdnwg7fwkviij39l9z6"))))
(build-system cmake-build-system)
(arguments
(list #:tests? #f)) ; No tests included
(native-inputs
(list gd))
(home-page "https://www.ansilove.org/")
(synopsis "Library for converting ANSI, ASCII, and other formats to PNG")
(description
"libansilove is a library for converting artscene file types to PNG images,
including ANSI (.ANS) and many others. The library primarily serves to support
the ansilove tool.")
(license license:bsd-2)))
(define-public ansilove
(package
(name "ansilove")
(version "4.2.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ansilove/ansilove")
(commit (string-append version))))
(file-name (git-file-name name version))
(sha256
(base32
"1h9r759krjl8wi68yxs1d46qfrx6v89a8vmmv3aqym8vn9x430kh"))))
(build-system cmake-build-system)
(native-inputs
(list libansilove))
(home-page "https://www.ansilove.org/")
(synopsis "ANSI and ASCII art to PNG converter")
(description
"AnsiLove is an ANSI and ASCII art to PNG converter, allowing to convert
ANSI and artscene-related file formats into PNG images, supporting ANSI (.ANS),
PCBoard (.PCB), Binary (.BIN), Artworx (.ADF), iCE Draw (.IDF), Tundra (.TND)
and XBin (.XB) formats.")
(license license:bsd-2)))

4
gnu/packages/image-viewers.scm
View file

@ -742,14 +742,14 @@ preloading.")
(define-public chafa
(package
(name "chafa")
(version "1.12.4")
(version "1.12.5")
(source (origin
(method url-fetch)
(uri (string-append "https://hpjansson.org/chafa/releases/chafa-"
version ".tar.xz"))
(sha256
(base32
"0gsp39xnra331lk0db5pfqpdmqfhf7ii3a7yywj33sknf0dbsx4p"))))
"1wjp75l0qbikbdbvj8nlhl1gsakhx3309k0mdww6n2jh5bar0m0g"))))
(build-system gnu-build-system)
(native-inputs
(list pkg-config))

65
gnu/packages/instrumentation.scm
View file

@ -18,6 +18,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages instrumentation)
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
@ -69,16 +70,14 @@
(define-public babeltrace
(package
(name "babeltrace")
(version "2.0.4")
(version "2.0.5")
(source (origin
(method url-fetch)
(uri (string-append "https://www.efficios.com/files/babeltrace/babeltrace2-"
version ".tar.bz2"))
(sha256
(base32 "1jlv925pr7hykc48mdvbmqm4ipy1r11xwzapa6fdpdfshmk12kvp"))))
(base32 "1d7jxljbfb4y8jmxm7744ndhh9k9rw8qhmnljb19wz7flzr9x3vv"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; FIXME - When Python's bindings are enabled, tests do not
; pass.
@ -178,7 +177,9 @@ standard library headers.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1m04pg824rqx647wvk9xl33ri8i6mm0vmrz9924li25dxbr4zqd5"))))
(base32 "1m04pg824rqx647wvk9xl33ri8i6mm0vmrz9924li25dxbr4zqd5"))
(patches
(search-patches "dyninst-fix-glibc-compatibility.patch"))))
(build-system cmake-build-system)
(arguments
@ -548,31 +549,35 @@ whole-system symbolic access, and can also handle simple tracing jobs.")
(base32 "0gk0hv3rnf5czvazz1prg21rf9qlniz42g5b389n8a29hqj4q6xr"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags
(list
(string-append "CC=" ,(cc-for-target)))
;; runtest hang at some point -- probably dues to
;; failed socket connection -- but we want to keep the
;; unit tests. Change the target to "test" when fixed.
#:test-target "unittest"
#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs target #:allow-other-keys)
(let ((arch ,(platform-linux-architecture
(lookup-platform-by-target-or-system
(or (%current-target-system)
(%current-system))))))
(setenv "ARCH"
(cond
((string=? arch "arm64") "aarch64")
(else arch)))
(when target
(setenv "CROSS_COMPILE" (string-append target "-"))))
(setenv "SHELL" (which "sh"))
(invoke "./configure"
(string-append "--prefix="
(assoc-ref outputs "out"))))))))
(list
#:modules
`((ice-9 match)
,@%gnu-build-system-modules)
#:make-flags
#~(list
(string-append "CC=" #$(cc-for-target)))
;; runtest hangs at some point -- probably due to
;; failed socket connection -- but we want to keep the
;; unit tests. Change the target to "test" when fixed.
#:test-target "unittest"
#:phases
#~(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs target #:allow-other-keys)
(let ((arch #$(platform-linux-architecture
(lookup-platform-by-target-or-system
(or (%current-target-system)
(%current-system))))))
(setenv "ARCH"
(match arch
("arm64" "aarch64")
(_ arch)))
(when target
(setenv "CROSS_COMPILE" (string-append target "-"))))
(setenv "SHELL" (which "sh"))
(invoke "./configure"
(string-append "--prefix="
#$output)))))))
(inputs
(list capstone
elfutils

7
gnu/packages/irc.scm
View file

@ -198,14 +198,14 @@ Conferencing} and @acronym{ICB, Internet Citizen's Band}.")
(define-public weechat
(package
(name "weechat")
(version "3.8")
(version "4.0.0")
(source (origin
(method url-fetch)
(uri (string-append "https://weechat.org/files/src/weechat-"
version ".tar.xz"))
(sha256
(base32
"0a5zfkqqdkya111rl2gpwlbfala0305qry9cdz2r1h7q0316bjzp"))))
"1ya0hacbyvhdy43hqrvphj3y7v6s312wbrsf2yns14ikbzhmxmsv"))))
(build-system cmake-build-system)
(outputs '("out" "doc"))
(native-inputs
@ -234,7 +234,8 @@ Conferencing} and @acronym{ICB, Internet Citizen's Band}.")
(list "-DENABLE_PHP=OFF"
,@(if (target-x86?)
'("-DENABLE_MAN=ON"
"-DENABLE_DOC=ON")
"-DENABLE_DOC=ON"
"-DENABLE_DOC_INCOMPLETE=ON")
'()))
#:phases
(modify-phases %standard-phases

31
gnu/packages/java.scm
View file

@ -1518,8 +1518,8 @@ blacklisted.certs.pem"
"1yimfdkwpinhg5cf1mcrzk9xvjwnray3cx762kypb9jcwbranjwx"))
(define-public openjdk19
(make-openjdk openjdk18 "19.0.1"
"0kyalb391znw6idmfn3dsx6c2mal1hl63f0bwa4mlnsxfl380bi1"
(make-openjdk openjdk18 "19.0.2"
"08kvx7n8qhhfl25pig966881j5h4x7y0pf4brq16x0283fc0f4d4"
(arguments
(substitute-keyword-arguments (package-arguments openjdk18)
((#:phases phases)
@ -1537,6 +1537,33 @@ blacklisted.certs.pem"
;;; Convenience alias to point to the latest version of OpenJDK.
(define-public openjdk openjdk19)
(define-public jbr17
(package
(inherit openjdk17)
(name "jbr")
(version "17.0.7-b1020")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/JetBrains/JetBrainsRuntime.git")
(commit (string-append "jb" version))))
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
"0wh9xhqgcjk0jgvpvlvf78dy3r8m0vgqd0f54whpx0qqbmyavgdw"))
(patches (search-patches "jbr-17-xcursor-no-dynamic.patch"))))
(synopsis "JetBrains Java Runtime")
(description "This package provides a Java runtime environment for
and Java development kit. It supports enhanced class redefinition (DCEVM),
features optional JCEF, a framework for embedding Chromium-based browsers,
includes a number of improvements in font rendering, keyboards support,
windowing/focus subsystems, HiDPI, accessibility, and performance,
provides better desktop integration and bugfixes not yet present in
OpenJDK.")
(home-page "https://www.jetbrains.com/")
(license license:gpl2+)))
(define-public ant/java8
(package

4
gnu/packages/javascript.scm
View file

@ -48,7 +48,7 @@
(define-public cjson
(package
(name "cjson")
(version "1.7.15")
(version "1.7.16")
(source (origin
(method git-fetch)
(uri (git-reference
@ -56,7 +56,7 @@
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0lmq7sx09rmsirimbyvaaia44i134ppkp10cw1d2rygr76k9qwq2"))))
(base32 "00599lzzb0vszk317n0gln7wizdpchy4warxgpj3khrir73pphbb"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags '("-DENABLE_CJSON_UTILS=On")))

4
gnu/packages/kde-frameworks.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2023 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2016, 2019, 2020, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2019, 2020, 2022, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016-2019 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2016 David Craven <david@craven.ch>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
@ -2691,6 +2691,7 @@ consumption.")
(setenv "QT_QPA_PLATFORM" "offscreen")
(setenv "DBUS_FATAL_WARNINGS" "0")
(invoke "dbus-launch" "ctest"
"--rerun-failed" "--output-on-failure"
"-E"
;; The following tests fail or are flaky (see:
;; https://bugs.kde.org/show_bug.cgi?id=440721).
@ -2703,6 +2704,7 @@ consumption.")
"|kiocore-krecentdocumenttest"
"|kiocore-http_jobtest"
"|kiogui-openurljobtest"
"|kioslave-httpheaderdispositiontest"
"|applicationlauncherjob_forkingtest"
"|applicationlauncherjob_scopetest"
"|applicationlauncherjob_servicetest"

4
gnu/packages/kde-plasma.scm
View file

@ -1847,7 +1847,7 @@ integration of Qt applications when running on a KDE Plasma workspace.")
(version "5.24.3")
(source (origin
(method url-fetch)
(uri (string-append "https://download.kde.org/stable/plasma/"
(uri (string-append "mirror://kde/stable/plasma/"
version "/plasma-nano-" version ".tar.xz"))
(sha256
(base32
@ -1920,7 +1920,7 @@ connections.")
(version "5.24.3")
(source (origin
(method url-fetch)
(uri (string-append "https://download.kde.org/stable/plasma/"
(uri (string-append "mirror://kde/stable/plasma/"
version "/plasma-mobile-" version ".tar.xz"))
(sha256
(base32

4
gnu/packages/kde.scm
View file

@ -221,7 +221,7 @@ browser for easy news reading.")
(define-public kdenlive
(package
(name "kdenlive")
(version "22.12.3")
(version "23.04.2")
(source
(origin
(method git-fetch)
@ -230,7 +230,7 @@ browser for easy news reading.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0n7ca6c4nqr9z8ix70qjxw0rivh3hgqd187k4k8vp812yb49qrin"))))
(base32 "0dgrgnnq38nphfzbapr7dkb21lv4idqynxqmzv9x3maijmp1jjfr"))))
(build-system qt-build-system)
(arguments
;; XXX: there is a single test that spawns other tests and

4
gnu/packages/libreoffice.scm
View file

@ -901,7 +901,7 @@ commonly called @code{ftoa} or @code{dtoa}.")
(define-public libreoffice
(package
(name "libreoffice")
(version "7.5.1.2")
(version "7.5.4.2")
(source
(origin
(method url-fetch)
@ -910,7 +910,7 @@ commonly called @code{ftoa} or @code{dtoa}.")
"https://download.documentfoundation.org/libreoffice/src/"
(version-prefix version 3) "/libreoffice-" version ".tar.xz"))
(sha256
(base32 "1dy0lvrvgkr7mbmiag26a38pivcddav8piph7jin1kw4phaxs3cj"))))
(base32 "1s3592ick745kl60yjlv7ki3p7nnwswj0mgjh3nk6k7skyvx3fv8"))))
(build-system glib-or-gtk-build-system)
(arguments
(list

189
gnu/packages/linux.scm
View file

@ -486,7 +486,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
;; The current "stable" kernels. That is, the most recently released major
;; versions that are still supported upstream.
(define-public linux-libre-6.3-version "6.3.8")
(define-public linux-libre-6.3-version "6.3.12")
(define-public linux-libre-6.3-gnu-revision "gnu")
(define deblob-scripts-6.3
(linux-libre-deblob-scripts
@ -496,7 +496,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1i6vyakvqgmr3lcmr0aj8n7lbcksrp4d0rm1sz7cz64hwbsr67pq")))
(define-public linux-libre-6.3-pristine-source
(let ((version linux-libre-6.3-version)
(hash (base32 "0m89safyzi0rklsqvii5vkg92rdmvnl4lvyk6m648bhf4lhx88s3")))
(hash (base32 "1mvcirkhqnf03cci3jiq077fs9b42a3xdk3zjkpyim3x43ydwzyb")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-6.3)))
@ -504,7 +504,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
;; The "longterm" kernels — the older releases with long-term upstream support.
;; Here are the support timelines:
;; <https://www.kernel.org/category/releases.html>
(define-public linux-libre-6.1-version "6.1.34")
(define-public linux-libre-6.1-version "6.1.38")
(define-public linux-libre-6.1-gnu-revision "gnu")
(define deblob-scripts-6.1
(linux-libre-deblob-scripts
@ -514,12 +514,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1qq3nsznblz5fkwahxwq26csmrmjbxh8xknm2z4zw6b6k9svzb1b")))
(define-public linux-libre-6.1-pristine-source
(let ((version linux-libre-6.1-version)
(hash (base32 "00yniq1smlckp18k3bf6bzys8d7wfbrkdwhikz2fycc0pyy7qvxj")))
(hash (base32 "0hrdh1w9z8bgy4cxqsxfkwa01yincfw1mq1bbwm36zczc0dzk97r")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-6.1)))
(define-public linux-libre-5.15-version "5.15.117")
(define-public linux-libre-5.15-version "5.15.120")
(define-public linux-libre-5.15-gnu-revision "gnu")
(define deblob-scripts-5.15
(linux-libre-deblob-scripts
@ -529,12 +529,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1zljgvzr8irs3acq436i2iyana9vgx4k1pm3id4rz0fbaqfma602")))
(define-public linux-libre-5.15-pristine-source
(let ((version linux-libre-5.15-version)
(hash (base32 "17r3yyy4yzxyi4n1ri3sb42m9y1vnn4dcc0zli04n00f7hgk7a59")))
(hash (base32 "1xl3nrykbxdwv5a9rk0xnb7l61dsyjvkm1ryrdii09vbmsg0i6b4")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.15)))
(define-public linux-libre-5.10-version "5.10.184")
(define-public linux-libre-5.10-version "5.10.186")
(define-public linux-libre-5.10-gnu-revision "gnu1")
(define deblob-scripts-5.10
(linux-libre-deblob-scripts
@ -544,12 +544,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1739xvyzi3i7d12mvsvnqa7208pvwfss43kzin71l9svw0405vp5")))
(define-public linux-libre-5.10-pristine-source
(let ((version linux-libre-5.10-version)
(hash (base32 "0219qv9rxg4fi7w2s0s9y7ggral40wm2riis58hmg80z3nybxabp")))
(hash (base32 "1qqv91r13akgik1q4jybf8czskxxizk6lpv4rsvjn9sx2dm2jq0y")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.10)))
(define-public linux-libre-5.4-version "5.4.247")
(define-public linux-libre-5.4-version "5.4.249")
(define-public linux-libre-5.4-gnu-revision "gnu1")
(define deblob-scripts-5.4
(linux-libre-deblob-scripts
@ -559,12 +559,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "0ll19zlgx5sbr7gvi93lgavrnzlgv6dpj2yp2x63fj6vdba5iwgc")))
(define-public linux-libre-5.4-pristine-source
(let ((version linux-libre-5.4-version)
(hash (base32 "1mzyzxfsqp085qx17wp9xz7z4w79kks0jpdba7mx8k9i097hs09k")))
(hash (base32 "079mylc5j7hk5xn59q3z2xydyh88pq7yipn67x3y7nvf5i35hm6w")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.4)))
(define-public linux-libre-4.19-version "4.19.286")
(define-public linux-libre-4.19-version "4.19.288")
(define-public linux-libre-4.19-gnu-revision "gnu1")
(define deblob-scripts-4.19
(linux-libre-deblob-scripts
@ -574,12 +574,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "05yqb59gj7mq5ha9xg045bz517sdg6janfa2yjq70qa6ahpc5fac")))
(define-public linux-libre-4.19-pristine-source
(let ((version linux-libre-4.19-version)
(hash (base32 "1788a68fbga03nkgbvai2bi89v826915829727j4zcilyc21b127")))
(hash (base32 "1sz3jp6kx0axdwp0wsq903q1090rbav9d12m5128335m8p2d1srk")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.19)))
(define-public linux-libre-4.14-version "4.14.318")
(define-public linux-libre-4.14-version "4.14.320")
(define-public linux-libre-4.14-gnu-revision "gnu1")
(define deblob-scripts-4.14
(linux-libre-deblob-scripts
@ -589,7 +589,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1ccggm19nl7pdcxmsm08fkqy8phz8rqfmww5ypizibdmnrmpn2v9")))
(define-public linux-libre-4.14-pristine-source
(let ((version linux-libre-4.14-version)
(hash (base32 "1g0i68q7xjcjqigwza60i8rqhxsd1l86czqnjv5312lvg5z34fn6")))
(hash (base32 "09bn18jvazkc55bqdjbxy8fbca7vjhi9xl2h02w0sq3f1jf6g0pd")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.14)))
@ -1397,7 +1397,7 @@ and should be used with caution, especially on untested models.")
(define-public corefreq
(package
(name "corefreq")
(version "1.95.2")
(version "1.96.5")
(source
(origin
(method git-fetch)
@ -1406,7 +1406,7 @@ and should be used with caution, especially on untested models.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "108fr056zmbipiv1nsrjccn3ky0jbcwan43big34nyq1c9dqjq1x"))))
(base32 "15wi9v7zcd62ab03zji43l33f1mc70lsdvqylv33kfpaf3k72lm4"))))
(build-system linux-module-build-system)
(outputs (list "out" "linux-module"))
(arguments
@ -2622,7 +2622,7 @@ Zerofree requires the file system to be unmounted or mounted read-only.")
(define-public strace
(package
(name "strace")
(version "6.2")
(version "6.4")
(home-page "https://strace.io")
(source (origin
(method url-fetch)
@ -2630,7 +2630,7 @@ Zerofree requires the file system to be unmounted or mounted read-only.")
"/strace-" version ".tar.xz"))
(sha256
(base32
"1s3pj6a6xx1p1w98ik03d8hc4xssl4ha4aa0039nhqj196j3hz8c"))
"0f4jxgsdr76mf51kv2kwhv39ap7kilrchkfvqrhd5pvzqnx7v617"))
(patches (search-patches "strace-readlink-tests.patch"))))
(build-system gnu-build-system)
(arguments
@ -4556,100 +4556,95 @@ interface.")
(define-public crda
(package
(name "crda")
(version "3.18")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kernel.org/software/network/crda/"
"crda-" version ".tar.xz"))
(sha256
(base32
"1gydiqgb08d9gbx4l6gv98zg3pljc984m50hmn3ysxcbkxkvkz23"))
(patches (search-patches "crda-optional-gcrypt.patch"))))
(version "4.15")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://git.kernel.org/pub/scm/linux/kernel/git/mcgrof/crda.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1ajh8zx84p15y9wawh764zawniwn059iw9m32v56ajvkz9xbnkp2"))
(patches (search-patches "crda-optional-gcrypt.patch"))))
(build-system gnu-build-system)
(arguments
`(#:phases (modify-phases %standard-phases
(delete 'configure)
(add-after 'unpack 'gzip-determinism
(lambda _
(substitute* "Makefile"
(("gzip") "gzip --no-name"))
#t))
,@(if (%current-target-system)
'((add-after
'unpack 'fix-pkg-config
(lambda* (#:key target #:allow-other-keys)
(substitute*
"Makefile"
(("pkg-config")
(string-append target "-pkg-config")))
#t)))
'())
(add-before
'build 'no-werror-no-ldconfig
(lambda _
(substitute* "Makefile"
(("-Werror") "")
(("ldconfig") "true"))
#t))
(add-before
'build 'set-regulator-db-file-name
(lambda* (#:key native-inputs inputs #:allow-other-keys)
;; Tell CRDA where to find our database.
(let ((regdb (assoc-ref (or native-inputs inputs)
"wireless-regdb")))
(substitute* "crda.c"
(("\"/lib/crda/regulatory.bin\"")
(string-append "\"" regdb
"/lib/crda/regulatory.bin\"")))
#t))))
(list #:phases
#~(modify-phases %standard-phases
(delete 'configure)
(add-after 'unpack 'gzip-deterministically
(lambda _
(substitute* "Makefile"
(("gzip" command)
(string-append command " --no-name")))))
#$@(if (%current-target-system)
#~((add-after 'unpack 'fix-pkg-config
(lambda* (#:key target #:allow-other-keys)
(substitute* "Makefile"
(("pkg-config" command)
(string-append target "-" command))))))
#~())
(add-before 'build 'patch-Makefile
(lambda _
(substitute* "Makefile"
(("ldconfig") "true"))))
(add-before 'build 'set-regulatory-db-file-name
(lambda* (#:key native-inputs inputs #:allow-other-keys)
;; Tell CRDA where to find our database.
(let ((regdb (assoc-ref (or native-inputs inputs)
"wireless-regdb")))
(substitute* "crda.c"
(("\"/lib/crda/regulatory.bin\"")
(string-append "\"" regdb
"/lib/crda/regulatory.bin\"")))))))
#:test-target "verify"
#:make-flags (let ((out (assoc-ref %outputs "out"))
(regdb (assoc-ref %build-inputs "wireless-regdb")))
(list
(string-append "CC=" ,(cc-for-target))
"V=1"
#:make-flags
#~(list
(string-append "CC=" #$(cc-for-target))
"V=1"
;; Disable signature-checking on 'regulatory.bin'.
;; The reason is that this simplifies maintenance
;; on our side (no need to manage a distro key
;; pair), and we can guarantee integrity of
;; 'regulatory.bin' by other means anyway, such as
;; 'guix gc --verify'. See
;; <https://wireless.wiki.kernel.org/en/developers/regulatory/wireless-regdb>
;; for a discssion.
"USE_OPENSSL=0"
;; Disable signature-checking on 'regulatory.bin'.
;; The reason is that this simplifies maintenance
;; on our side (no need to manage a distro key
;; pair), and we can guarantee integrity of
;; 'regulatory.bin' by other means anyway, such as
;; 'guix gc --verify'. See
;; <https://wireless.wiki.kernel.org/en/developers/regulatory/wireless-regdb>
;; for a discssion.
"USE_OPENSSL=0"
(string-append "PREFIX=" out)
(string-append "SBINDIR=" out "/sbin/")
(string-append "UDEV_RULE_DIR="
out "/lib/udev/rules.d")
(string-append "LDFLAGS=-Wl,-rpath="
out "/lib -L.")
(string-append "REG_BIN=" regdb
"/lib/crda/regulatory.bin")
"all_noverify"))))
(string-append "PREFIX=" #$output)
(string-append "SBINDIR=" #$output "/sbin/")
(string-append "UDEV_RULE_DIR="
#$output "/lib/udev/rules.d")
(string-append "LDFLAGS=-Wl,-rpath="
#$output "/lib -L.")
(string-append "REG_BIN="
#$(this-package-native-input "wireless-regdb")
"/lib/crda/regulatory.bin")
"all_noverify")))
(native-inputs (list pkg-config wireless-regdb))
(inputs (list libnl))
(home-page
"https://wireless.wiki.kernel.org/en/developers/Regulatory/CRDA")
(synopsis "Central regulatory domain agent (CRDA) for WiFi")
(synopsis "@acronym{CRDA, Central Regulatory Domain Agent} for WiFi")
(description
"The Central Regulatory Domain Agent (CRDA) acts as the udev helper for
communication between the kernel Linux and user space for regulatory
"The @acronym{CRDA, Central Regulatory Domain Agent} acts as the udev
helper for communication between the kernel Linux and user space for regulatory
compliance.")
(license license:copyleft-next)))
(define-public wireless-regdb
(package
(name "wireless-regdb")
(version "2023.02.13")
(version "2023.05.03")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://kernel.org/software/network/wireless-regdb/"
"wireless-regdb-" version ".tar.xz"))
(sha256
(base32 "0wrf1c7mbsklwdn7jpwzlpjxwj0vgr61qyh88lx7bi2dd6lfi0gy"))
(base32 "04lc9jp8zxhyqxvkhrm637sswi2xm48jw8jnp3iflnknnf5d0m7j"))
;; We're building 'regulatory.bin' by ourselves.
(snippet '(begin
@ -4700,9 +4695,9 @@ compliance.")
"https://wireless.wiki.kernel.org/en/developers/regulatory/wireless-regdb")
(synopsis "Wireless regulatory database")
(description
"This package contains the wireless regulatory database for the Central
Regulatory Database Agent (CRDA). The database contains information on
country-specific regulations for the wireless spectrum.")
"This package contains the wireless regulatory database for the
@acronym{CRDA, Central Regulatory Database Agent}. The database contains
information on country-specific regulations for the wireless spectrum.")
(license license:isc)))
(define-public lm-sensors
@ -5880,7 +5875,7 @@ and copy/paste text in the console and in xterm.")
(define-public btrfs-progs
(package
(name "btrfs-progs")
(version "6.3")
(version "6.3.2")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kernel.org/linux/kernel/"
@ -5888,7 +5883,7 @@ and copy/paste text in the console and in xterm.")
version ".tar.xz"))
(sha256
(base32
"0zbampc47nq3h8as3rda2apns5sj93ywxnrkal74kjvyg3zvv820"))))
"093wy9dsvp22nwlsk203l91h3yzkccvzdw58n3sicy41sncn3wm9"))))
(build-system gnu-build-system)
(outputs '("out" "static")) ;static versions of the binaries in "out"
(arguments
@ -9520,7 +9515,7 @@ modification of BPF objects on the system.")
(define-public bpftrace
(package
(name "bpftrace")
(version "0.16.0")
(version "0.18.0")
(source
(origin
(method git-fetch)
@ -9529,7 +9524,7 @@ modification of BPF objects on the system.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0v1376wfk4gy5rrjdsck6r3347nb0bgbj70998z1bkx9z95wm3ab"))
(base32 "0n0mm5vlaildilq5nmjymmq8ijif1lcyfin76wcmhzwfriq4n87r"))
(patches (search-patches "bpftrace-disable-bfd-disasm.patch"))))
(build-system cmake-build-system)
(native-inputs

45
gnu/packages/lisp-check.scm
View file

@ -868,29 +868,30 @@ tester module.")
(sbcl-package->ecl-package sbcl-ptester))
(define-public sbcl-rove
(package
(name "sbcl-rove")
(version "0.9.6")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/fukamachi/rove")
(commit "f3695db08203bf26f3b861dc22ac0f4257d3ec21")))
(file-name (git-file-name name version))
(sha256
(base32
"07ala4l2fncxf540fzxj3h5mhi9i4wqllhj0rqk8m2ljl5zbz89q"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-bordeaux-threads sbcl-dissect sbcl-trivial-gray-streams))
(home-page "https://github.com/fukamachi/rove")
(synopsis
"Yet another common lisp testing library")
(description
"Rove is a unit testing framework for Common Lisp applications.
(let ((commit "6a5dfcdced42879a4eff2a529e7e8ce492fadf41")
(revision "1"))
(package
(name "sbcl-rove")
(version (git-version "0.10.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/fukamachi/rove")
(commit commit)))
(file-name (git-file-name "cl-rove" version))
(sha256
(base32
"1w99c0795ykhn14pfhyhvfzxzz0k1z1bb846xgz3iv19s0j2vykr"))))
(build-system asdf-build-system/sbcl)
(inputs (list sbcl-bordeaux-threads
sbcl-dissect
sbcl-trivial-gray-streams))
(home-page "https://github.com/fukamachi/rove")
(synopsis "Yet another common lisp testing library")
(description
"Rove is a unit testing framework for Common Lisp applications.
This is intended to be a successor of Prove.")
(license license:bsd-3)))
(license license:bsd-3))))
(define-public cl-rove
(sbcl-package->cl-source-package sbcl-rove))

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

@ -37,6 +37,7 @@
;;; Copyright © 2022 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2022 Trevor Richards <trev@trevdev.ca>
;;; Copyright © 2022, 2023 Artyom Bologov <mail@aartaka.me>
;;; Copyright © 2023 Roman Scherer <roman@burningswell.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -6875,7 +6876,7 @@ generators: Indirection, Shift, Accumulate, Add, and Count.")
(define-public sbcl-local-time
(let ((commit "40169fe26d9639f3d9560ec0255789bf00b30036")
(revision "3"))
(revision "4"))
(package
(name "sbcl-local-time")
(version (git-version "1.0.6" revision commit))
@ -6889,6 +6890,14 @@ generators: Indirection, Shift, Accumulate, Add, and Count.")
(sha256
(base32 "1dbp33zmkqzzshmf5k76pxqgli285wvy0p0dhcz816fdikpwn2jg"))))
(build-system asdf-build-system/sbcl)
(arguments
`(#:phases
(modify-phases %standard-phases
;; Delete the extension provided by sbcl-cl-postgres+local-time
(add-after 'unpack 'delete-local-time
(lambda _
(delete-file "cl-postgres+local-time.asd")
(delete-file "src/integration/cl-postgres.lisp"))))))
(native-inputs
(list sbcl-hu.dwim.stefil))
(home-page "https://common-lisp.net/project/local-time/")
@ -6905,6 +6914,35 @@ Long Painful History of Time\".")
(define-public ecl-local-time
(sbcl-package->ecl-package sbcl-local-time))
(define-public sbcl-cl-postgres+local-time
(package
(inherit sbcl-local-time)
(name "sbcl-cl-postgres+local-time")
(inputs (list sbcl-local-time sbcl-postmodern))
(arguments
`(#:asd-systems '("cl-postgres+local-time")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'delete-local-time
(lambda _
(delete-file "local-time.asd")
(delete-file "src/package.lisp")
(delete-file "src/local-time.lisp")
(delete-file-recursively "doc")
(delete-file-recursively "test")
(delete-file-recursively "zoneinfo"))))))
(synopsis "Integration between cl-postgres and local-time")
(description
"This package provides the LOCAL-TIME extensions for the cl-postgres
ASDF system of postmodern.")
(license license:expat)))
(define-public cl-postgres+local-time
(sbcl-package->cl-source-package sbcl-cl-postgres+local-time))
(define-public ecl-cl-postgres+local-time
(sbcl-package->ecl-package sbcl-cl-postgres+local-time))
(define-public sbcl-chronicity
(package
(name "sbcl-chronicity")
@ -22720,10 +22758,10 @@ bound to whatever value was in the same place in the URL (as a string).")
(define-public sbcl-spinneret
;; No release since 2019, no tags.
(let ((commit "52709ab953c46b24cbc2f0e3a50ae362916e730c"))
(let ((commit "d4398b5a344b5c59e497c9ee78fdbae7cc434f74"))
(package
(name "sbcl-spinneret")
(version (git-version "3.0" "5" commit))
(version (git-version "3.0" "6" commit))
(source
(origin
(method git-fetch)
@ -22732,7 +22770,7 @@ bound to whatever value was in the same place in the URL (as a string).")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1wzs0hzlwf0vzk4gb66psqz6gqcf3x7yfpi9gghbil97iz6fyc7z"))))
(base32 "1mdd92gfxfdsd81fcd8fgz8z7dwsb0kcv7zyzdgnw8lavkib5zly"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-alexandria
@ -27833,7 +27871,7 @@ implementation by Kent M. Pitman.")
(define-public sbcl-ospm
(package
(name "sbcl-ospm")
(version "0.0.1")
(version "0.0.2")
(source
(origin
(method git-fetch)
@ -27842,7 +27880,7 @@ implementation by Kent M. Pitman.")
(commit version)))
(file-name (git-file-name "cl-ospm" version))
(sha256
(base32 "1b64ar6x08bcig4brlsim445favjf1zhyj6qz018cildp3xs4miz"))))
(base32 "1z2wz2xg7rn7p1lladdhj789iz2f3wfjgpi2hjr08vkf1pkp15xf"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-alexandria

14
gnu/packages/lisp.scm
View file

@ -6,7 +6,7 @@
;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
;;; Copyright © 2016, 2017 Andy Patterson <ajpatter@uwaterloo.ca>
;;; Copyright © 2017, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017-2019, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017-2019, 2022, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2019–2022 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net>
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
@ -993,7 +993,7 @@ the HTML documentation of TXR.")
(define-public txr
(package
(name "txr")
(version "288")
(version "289")
(source
(origin
(method git-fetch)
@ -1002,7 +1002,7 @@ the HTML documentation of TXR.")
(commit (string-append "txr-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0an26zffdaw9m673i077r2bw061mhzv4lz4z127sgda5gvg999mf"))))
(base32 "1jcz5iggp4mz5bzgnifr4xdpvz0sxa8cminynhdcs2jqr073xy8b"))))
(build-system gnu-build-system)
(arguments
(list #:configure-flags
@ -1315,7 +1315,7 @@ assembler, PEG) is less than 1MB.")
(dirname
(search-input-file
inputs "include/stdlib.h"))))))
(for-each wrap-carp-program
(list "carp"
"carp-header-parse")))))))
@ -1587,8 +1587,10 @@ be built as a stand-alone REPL interpreter.")
(inherit s7-bootstrap)
(name "s7")
(arguments
(substitute-keyword-arguments (package-arguments s7-bootstrap)
((#:tests? _) #t)
(substitute-keyword-arguments
(strip-keyword-arguments
'(#:tests?)
(package-arguments s7-bootstrap))
((#:phases phases)
#~(modify-phases #$phases
(add-after 'unpack 'patch

9
gnu/packages/llvm.scm
View file

@ -502,7 +502,7 @@ code analysis tools.")
"znver3")
'())))))
(define (make-clang-toolchain clang libomp)
(define-public (make-clang-toolchain clang libomp)
(package
(name (string-append (package-name clang) "-toolchain"))
(version (package-version clang))
@ -1462,7 +1462,7 @@ Library.")
;; Based on LLVM 14 as of v5.0.0
(inherit llvm-14)
(name "llvm-for-rocm")
(version "5.1.3") ;this must match '%rocm-version'
(version "5.6.0") ;this must match '%rocm-version'
(source (origin
(method git-fetch)
(uri (git-reference
@ -1471,10 +1471,7 @@ Library.")
(file-name (git-file-name name version))
(sha256
(base32
"0j6ydfkwrxwskgnhxc3cmry42n5faqbnwf2747qgf7lz5id8h8g5"))
(patches
(search-patches "llvm-roc-5.0.0-linkdl.patch"
"llvm-roc-4.0.0-remove-isystem-usr-include.patch"))))
"1kg6q6aqijjrwaznj0gr3nd01gykrnqqnk8vz8wyfifr18l9jrgx"))))
(arguments
(substitute-keyword-arguments (package-arguments llvm-14)
((#:configure-flags flags)

133
gnu/packages/machine-learning.scm
View file

@ -20,6 +20,7 @@
;;; Copyright © 2022, 2023 Nicolas Graves <ngraves@ngraves.fr>
;;; Copyright © 2023 zamfofex <zamfofex@twdb.moe>
;;; Copyright © 2023 Navid Afkhami <navid.afkhami@mdc-berlin.de>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1470,26 +1471,17 @@ with your favorite libraries.")
(define-public python-threadpoolctl
(package
(name "python-threadpoolctl")
(version "2.1.0")
(version "3.1.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "threadpoolctl" version))
(sha256
(base32
"0szsxcm2fbxrn83iynn42bnvrdh7mfsmkhfn8pdn7swblfb7rifx"))))
(build-system python-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? inputs outputs #:allow-other-keys)
(when tests?
(add-installed-pythonpath inputs outputs)
(invoke "pytest"))
#t)))))
"100k76nmajf408lbn5ipis1gilklcs6sbqyqy3hhlh54zanbldd3"))))
(build-system pyproject-build-system)
(native-inputs
(list python-pytest))
(list python-flit-core python-pytest))
(home-page "https://github.com/joblib/threadpoolctl")
(synopsis "Python helpers for common threading libraries")
(description "Thread-pool Controls provides Python helpers to limit the
@ -1497,6 +1489,73 @@ number of threads used in the threadpool-backed of common native libraries used
for scientific computing and data science (e.g. BLAS and OpenMP).")
(license license:bsd-3)))
(define-public python-tslearn
(package
(name "python-tslearn")
(version "0.6.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/tslearn-team/tslearn")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1fhs8c28hdqsyj8kdhzrmrxrh4w92x6nf3gm026xapp9divvljd6"))))
(build-system pyproject-build-system)
(arguments
(list
#:test-flags
'(list "-k"
(string-append
;; This one fails because of a difference in accuracy.
"not test_all_estimators[LearningShapelets-LearningShapelets]"
;; XXX: It's embarrassing to disable these two, but the truth is
;; that there's only so much we can do to force this package to
;; work with Tensorflow 1.9. It's still worth having this
;; package, because it can be used without the Tensorflow
;; backend.
;; TypeError: cannot pickle '_thread.RLock' object
" and not test_shapelets"
;; TypeError: Expected binary or unicode string, got 2
" and not test_serialize_shapelets"))
#:phases
'(modify-phases %standard-phases
(add-after 'unpack 'compatibility
(lambda _
(substitute* "tslearn/tests/sklearn_patches.py"
(("_pairwise_estimator_convert_X")
"_enforce_estimator_tags_X")
(("pairwise_estimator_convert_X\\(([^,]+), ([^,\\)]+)" _ a b)
(string-append "pairwise_estimator_convert_X(" b ", " a)))
(substitute* "tslearn/tests/test_shapelets.py"
(("tf.optimizers.Adam")
"tf.keras.optimizers.Adam"))
(substitute* "tslearn/shapelets/shapelets.py"
(("tf.keras.utils.set_random_seed")
"tf.set_random_seed")
(("def __call__\\(self, shape, dtype=None\\):")
"def __call__(self, shape, dtype=None, partition_info=None):")
(("tf.math.is_finite")
"tf.is_finite")))))))
(propagated-inputs (list python-cesium
python-h5py
python-joblib
python-numba
python-numpy
python-pandas
python-scipy
python-scikit-learn
tensorflow
python-wheel))
(native-inputs (list python-pytest))
(home-page "https://github.com/tslearn-team/tslearn")
(synopsis "Machine learning toolkit for time series data")
(description "This is a Python library for time series data mining.
It provides tools for time series classification, clustering
and forecasting.")
(license license:bsd-2)))
(define-public python-imbalanced-learn
(package
(name "python-imbalanced-learn")
@ -3809,6 +3868,51 @@ AI services.")
Actions for the Lightning suite of libraries.")
(license license:asl2.0)))
(define-public python-captum
(package
(name "python-captum")
(version "0.6.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/pytorch/captum")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1h4n91ivhjxm6wj0vgqpfss2dmq4sjcp0appd08cd5naisabjyb5"))))
(build-system pyproject-build-system)
(arguments
(list
#:test-flags
'(list "-k"
;; These two tests (out of more than 1000 tests) fail because of
;; accuracy problems.
"not test_softmax_classification_batch_multi_target\
and not test_softmax_classification_batch_zero_baseline")))
(propagated-inputs (list python-matplotlib python-numpy python-pytorch))
(native-inputs (list jupyter
python-annoy
python-black
python-flake8
python-flask
python-flask-compress
python-ipython
python-ipywidgets
python-mypy
python-parameterized
python-pytest
python-pytest-cov
python-scikit-learn))
(home-page "https://captum.ai")
(synopsis "Model interpretability for PyTorch")
(description "Captum is a model interpretability and understanding library
for PyTorch. Captum contains general purpose implementations of integrated
gradients, saliency maps, smoothgrad, vargrad and others for PyTorch models.
It has quick integration for models built with domain-specific libraries such
as torchvision, torchtext, and others.")
(license license:bsd-3)))
(define-public python-readchar
(package
(name "python-readchar")
@ -4660,6 +4764,9 @@ Brian 2 simulator.")
(sha256
(base32 "1jgmb5kl0bf4a2zfn94zlb117672r9lvvkkmwl86ihlyr1mpr3d0"))))
(build-system cmake-build-system)
(arguments (if (target-riscv64?)
(list #:configure-flags #~'("-DDNNL_CPU_RUNTIME=SEQ"))
'()))
(home-page "https://github.com/oneapi-src/oneDNN")
(synopsis "Deep Neural Network Library")
(description

213
gnu/packages/mail.scm
View file

@ -501,49 +501,47 @@ messages) using IDLE. Implemented in Go.")
(base32 "0md8cf90fl2yf3zh9njjy42a673v4j4ygyq95xg7fzkygdigm1lq"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list "--enable-tls"
"--localstatedir=/var"
"--sysconfdir=/etc")
#:phases
(modify-phases %standard-phases
(add-before 'check 'patch-test-FHS-file-names
(lambda _
(with-directory-excursion "test"
(substitute* (list "functions.in"
"tests/send")
;; Fix some shebangs later generated on the fly.
(("/bin/sh") (which "bash"))))
#t))
(add-before 'check 'pass-PATH-to-tests
;; ‘runtest’ launches each test through ‘env -’, clearing $PATH. The
;; tests then source ‘functions’, which first demands a working $PATH
;; only to clobber it later. Pass our $PATH to the test environment
;; and don't touch it after that.
(lambda _
(with-directory-excursion "test"
(substitute* "runtests"
(("env - bash")
(string-append "env - PATH=\"" (getenv "PATH") "\" bash")))
(substitute* "functions.in"
(("export PATH=.*") "")))
#t))
(add-before 'check 'delete-failing-tests
(lambda _
(with-directory-excursion "test/tests"
(for-each delete-file
(list
;; XXX ‘nullmailer-inject: nullmailer-queue failed: 15’
"inject/queue"
;; XXX These require the not-yet-packaged tcpserver.
"protocols" "smtp-auth")))
#t))
(add-before 'install 'skip-install-data-local
;; Don't attempt to install run-time files outside of the store.
(lambda _
(substitute* "Makefile"
((" install-data-local") ""))
#t)))))
(list #:configure-flags
#~(list "--enable-tls"
"--localstatedir=/var"
"--sysconfdir=/etc")
#:phases
#~(modify-phases %standard-phases
(add-before 'check 'patch-test-FHS-file-names
(lambda _
(with-directory-excursion "test"
(substitute* (list "functions.in"
"tests/send")
;; Fix some shebangs later generated on the fly.
(("/bin/sh") (which "bash"))))))
(add-before 'check 'pass-PATH-to-tests
;; ‘runtest’ launches each test through ‘env -’, clearing
;; $PATH. The tests then source ‘functions’, which first
;; demands a working $PATH only to clobber it later. Pass
;; our $PATH to the test environment and don't touch it after
;; that.
(lambda _
(with-directory-excursion "test"
(substitute* "runtests"
(("env - bash")
(string-append "env - PATH=\"" (getenv "PATH") "\" bash")))
(substitute* "functions.in"
(("export PATH=.*") "")))))
(add-before 'check 'delete-failing-tests
(lambda _
(with-directory-excursion "test/tests"
(for-each
delete-file
(list
;; XXX ‘nullmailer-inject: nullmailer-queue failed: 15’
"inject/queue"
;; XXX These require the not-yet-packaged tcpserver.
"protocols" "smtp-auth")))))
(add-before 'install 'skip-install-data-local
;; Don't try to install run-time files outside of the store.
(lambda _
(substitute* "Makefile"
((" install-data-local") "")))))))
(native-inputs
;; For tests.
(list daemontools)) ; for svc
@ -568,7 +566,7 @@ to run without any changes.")
(define-public fetchmail
(package
(name "fetchmail")
(version "6.4.23")
(version "6.4.37")
(source
(origin
(method url-fetch)
@ -576,14 +574,14 @@ to run without any changes.")
(version-major+minor version) "/"
"fetchmail-" version ".tar.xz"))
(sha256
(base32 "001394gxji89hfh6jcdrmv9ndimdsz7bndd55i516c8lfc9mwyjz"))))
(base32 "1sk9grjiibmaq8swfkr30vbfdz2i4ra1xrvsqdmbx6iyi5fjw62a"))))
(build-system gnu-build-system)
(arguments
(list #:configure-flags
#~(list (string-append "--with-ssl="
#$(this-package-input "openssl")))))
(inputs
(list openssl))
(arguments
`(#:configure-flags
(list (string-append "--with-ssl="
(assoc-ref %build-inputs "openssl")))))
(home-page "https://www.fetchmail.info/")
(synopsis "Remote-mail retrieval and forwarding utility")
(description
@ -763,39 +761,47 @@ It adds a large amount of new and improved features to mutt.")
(package
(name "gmime")
(version "3.2.7")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/gmime/"
(version-major+minor version)
"/gmime-" version ".tar.xz"))
(sha256
(base32
"0i3xfc84qn1z99i70q68kbnp9rmgqrnprqb418ba52s6g9j9dsia"))))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jstedfast/gmime")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0yiylbw9iy49hgj29czinv246hh5c18qv6qkvbdrmq9z5m00sp01"))))
(build-system gnu-build-system)
(native-inputs
(list pkg-config gnupg ; for tests only
gobject-introspection vala))
(inputs (list glib gpgme zlib))
(arguments
`(#:configure-flags
(list "--enable-introspection=yes" "--enable-vapigen=yes")
#:phases
(modify-phases %standard-phases
(add-after
'unpack 'patch-paths-in-tests
(lambda _
;; The test programs run several programs using 'system' with
;; hard-coded paths. Here we patch them all.
;; We use ISO-8859-1 here because test-iconv.c contains
;; raw byte sequences in several different encodings.
(with-fluids ((%default-port-encoding #f))
(substitute* (find-files "tests" "\\.c$")
(("(system *\\(\")(/[^ ]*)" all pre prog-path)
(let* ((base (basename prog-path))
(prog (which base)))
(string-append pre
(or prog (error "not found: " base)))))))
#t)))))
(list #:configure-flags
#~(list "--enable-gtk-doc=yes"
"--enable-introspection=yes")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-paths-in-tests
(lambda _
;; The test programs run several programs using 'system' with
;; hard-coded paths. Here we patch them all.
;; We use ISO-8859-1 here because test-iconv.c contains
;; raw byte sequences in several different encodings.
(with-fluids ((%default-port-encoding #f))
(substitute* (find-files "tests" "\\.c$")
(("(system *\\(\")(/[^ ]*)" all pre prog-path)
(let* ((base (basename prog-path))
(prog (which base)))
(string-append pre
(or prog (error "not found: "
base))))))))))))
(native-inputs
(list autoconf
automake
pkg-config
gnupg ; for tests only
gobject-introspection
gtk-doc
libtool
vala
which)) ; to find libtool, &c.
(inputs (list glib gpgme zlib))
(home-page "http://spruce.sourceforge.net/gmime/")
(synopsis "MIME message parser and creator library")
(description
@ -1208,15 +1214,14 @@ security functionality including PGP, S/MIME, SSH, and SSL.")
(define-public mu
(package
(name "mu")
(version "1.10.3")
(version "1.10.5")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/djcb/mu/releases/download/v"
version "/mu-" version ".tar.xz"))
(sha256
(base32
"0pr4w2afhansi151lx3145rsaf3gxfjx21y26p8jfg0nnvy70ff8"))))
(base32 "0bfclmffcqpb7hsgzvg7ailnnrcpvfv4ljcq7ds0z66n37f97xhs"))))
(build-system meson-build-system)
(native-inputs
(list pkg-config
@ -1234,14 +1239,6 @@ security functionality including PGP, S/MIME, SSH, and SSL.")
(guix build emacs-utils))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-build-system
(lambda _
(substitute* "lib/meson.build"
(("dependencies: \\[ lib_mu_message_dep" m)
(string-append m ", thread_dep")))
(substitute* "lib/utils/meson.build"
(("dependencies: \\[glib_dep" m)
(string-append m ", thread_dep")))))
(add-after 'unpack 'patch-bin-references
(lambda _
(substitute* '("guile/tests/test-mu-guile.cc"
@ -1846,14 +1843,14 @@ addons which can add many functionalities to the base client.")
(define-public msmtp
(package
(name "msmtp")
(version "1.8.23")
(version "1.8.24")
(source
(origin
(method url-fetch)
(uri (string-append "https://marlam.de/msmtp/releases"
"/msmtp-" version ".tar.xz"))
(sha256
(base32 "1f2nqdj3k8q7l4m3a6n8ckaslilxxp2kzfdmni6l2gcv15mw216g"))))
(base32 "0nda218iz72pvh6v10s2qlihp1mdxzir6yb4hqdxc5xbmaql8rmx"))))
(build-system gnu-build-system)
(inputs
(list libsecret gnutls zlib gsasl))
@ -3175,20 +3172,19 @@ from the Cyrus IMAP project.")
(define-public opensmtpd
(package
(name "opensmtpd")
(version "7.3.0p0")
(version "7.3.0p1")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.opensmtpd.org/archives/"
"opensmtpd-" version ".tar.gz"))
(sha256
(base32 "1rnaa022pkdc15vkvlisv42dvcxchib40h0m97myfyqjralabmrd"))))
(base32 "01ss6j1jadnd3ckgf9zpvrbdpipkf7m4l3isribqfwy2l50wsihv"))))
(build-system gnu-build-system)
(inputs
(list bdb
libasr
libevent
libressl ; recommended, and supports e.g. ECDSA
libressl
linux-pam
zlib))
(native-inputs
@ -3388,14 +3384,14 @@ messages with @acronym{DKIM, DomainKeys Identified Mail} (RFC 4871).")
(define-public opensmtpd-filter-rspamd
(package
(name "opensmtpd-filter-rspamd")
(version "0.1.7")
(version "0.1.8")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/poolpOrg/filter-rspamd")
(commit (string-append "v" version))))
(sha256
(base32 "1qhrw20q9y44ffgx5k14nvqc9dh47ihywgzza84g0zv9xgif7hd5"))
(base32 "1zjmxfr22gvrxy3nfngl66h1fsd1sv4kxdn91r8byqijy6p65pai"))
(file-name (git-file-name name version))))
(build-system go-build-system)
(arguments
@ -4855,7 +4851,7 @@ remote SMTP server.")
(define-public aerc
(package
(name "aerc")
(version "0.14.0")
(version "0.15.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -4864,17 +4860,20 @@ remote SMTP server.")
(file-name (git-file-name name version))
(sha256
(base32
"067j7kja78hv7dafw8gy3m2g5cslq6xlnzja8lm3b5p0m0vfabm8"))))
"1gbprx0i8d13q974n5hsys6lllav5cpll3cwrr1hfw6307hc001r"))))
(build-system go-build-system)
(arguments
(list #:import-path "git.sr.ht/~rjarry/aerc"
;; Installing the source is only necessary for Go libraries.
#:install-source? #f
#:build-flags
#~(list "-tags=notmuch" "-ldflags"
(string-append "-X main.Version=" #$version
" -X git.sr.ht/~rjarry/aerc/config.shareDir="
#$output "/share/aerc"))
#~(list "-tags=notmuch"
(string-append
"-ldflags=-X main.Version=" #$version
" -X git.sr.ht/~rjarry/aerc/config.libexecDir="
#$output "/libexec/aerc"
" -X git.sr.ht/~rjarry/aerc/config.shareDir="
#$output "/share/aerc"))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-paths
@ -4912,7 +4911,7 @@ remote SMTP server.")
(string-append "src/" import-path))))
(replace 'install
(lambda* (#:key import-path build-flags #:allow-other-keys)
(invoke "make" "install" "-C"
(invoke "make" "CC=gcc" "install" "-C"
(string-append "src/" import-path)
(string-append "PREFIX=" #$output)))))))
(inputs (list gnupg
@ -4951,6 +4950,8 @@ remote SMTP server.")
go-github-com-syndtr-goleveldb-leveldb
go-git-sr-ht-sircmpwn-getopt
go-git-sr-ht-rockorager-tcell-term
python
python-vobject
zoxide))
(native-inputs (list scdoc))
(home-page "https://git.sr.ht/~rjarry/aerc")

51
gnu/packages/mastodon.scm
View file

@ -21,16 +21,19 @@
(define-module (gnu packages mastodon)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module (guix build-system meson)
#:use-module (guix build-system python)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages)
#:use-module (gnu packages check)
#:use-module (gnu packages databases)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gettext)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk)
#:use-module (gnu packages image)
#:use-module (gnu packages pkg-config)
@ -44,29 +47,24 @@
(define-public toot
(package
(name "toot")
(version "0.36.0")
(version "0.37.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "toot" version))
(sha256
(base32 "1n79jwr3kpnc2xsr9isbgrj5as5i6zbkhxrdpdjfg87qbbjz7xca"))))
(base32 "0qx8hyb74r85dxf97k23w0f5rzkrs16mq7h3y37nwp6hl6gia0ci"))))
(build-system python-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-before 'check 'adjust-test-suite
(lambda _
;; This test contains integration tests meant to run against a test
;; Mastodon instance.
(delete-file "tests/test_integration.py")))
(replace 'check
(lambda* (#:key tests? inputs outputs #:allow-other-keys)
(when tests?
(add-installed-pythonpath inputs outputs)
(invoke "py.test")))))))
(native-inputs
(list python-pytest))
(list python-psycopg2 python-pytest))
(inputs
(list python-beautifulsoup4 python-requests python-urwid
python-wcwidth))
@ -98,21 +96,33 @@ Features include:
(base32 "1xhyz6wi17g4m76lr6qc75q4xnnw7c3dh3d04dg8m5gzk6j0y89x"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t
#:configure-flags (list "-Ddistro=true")
#:phases
(modify-phases %standard-phases
(add-after 'glib-or-gtk-wrap 'symlink-package
(lambda* (#:key outputs #:allow-other-keys)
(with-directory-excursion
(string-append (assoc-ref outputs "out") "/bin")
(symlink "dev.geopjr.Tuba" "tuba")))))))
(list
#:glib-or-gtk? #t
#:configure-flags #~(list "-Ddistro=true")
#:phases
#~(modify-phases %standard-phases
(add-after 'glib-or-gtk-wrap 'lib-vars-wrap
(lambda _
(let ((gstvar "GST_PLUGIN_SYSTEM_PATH")
(pixvar "GDK_PIXBUF_MODULE_FILE"))
(wrap-program (string-append #$output "/bin/dev.geopjr.Tuba")
`(,gstvar ":" suffix (,(getenv gstvar)))
`(,pixvar ":" = (,(getenv pixvar)))))))
(add-after 'lib-vars-wrap 'symlink-package
(lambda _
(with-directory-excursion (string-append #$output "/bin")
(symlink "dev.geopjr.Tuba" "tuba")))))))
(native-inputs
(list gettext-minimal
(list gdk-pixbuf ; so pixbuf loader cache (for webp) is generated
gettext-minimal
`(,glib "bin") ; for glib-compile-resources
pkg-config))
(inputs
(list gtk
(list gst-plugins-bad
gst-plugins-base
gst-plugins-good
gstreamer
gtk
gtksourceview
json-glib
libadwaita
@ -121,7 +131,8 @@ Features include:
libsecret
libwebp
libxml2
vala))
vala
webp-pixbuf-loader))
(home-page "https://tuba.geopjr.dev/")
(synopsis "GTK client for Mastodon")
(description "Tuba is a GTK client for Mastodon. It provides a clean,

23
gnu/packages/maths.scm
View file

@ -211,14 +211,14 @@ beginners.")
(define-public bitwise
(package
(name "bitwise")
(version "0.42")
(version "0.43")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/mellowcandle/bitwise"
"/releases/download/v" version
"/bitwise-v" version ".tar.gz"))
(sha256
(base32 "1lniw4bsb5qs5ybf018qllf95pzixb1q3lvybzl4k3xz8zpkrm6k"))))
(base32 "1yrgrbfgp6cavc6gyfp9b0zgjf9p1g7xhwzn9pydw44a32agf97m"))))
(build-system gnu-build-system)
(inputs
(list ncurses readline))
@ -1227,14 +1227,14 @@ in the terminal or with an external viewer.")
(define-public gnuplot
(package
(name "gnuplot")
(version "5.4.6")
(version "5.4.8")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/gnuplot/gnuplot/"
version "/gnuplot-"
version ".tar.gz"))
(sha256
(base32 "06bly8cpqjdf744jg7yrgba9rdcm3gl4zf63y3c69v80ha8jgz02"))))
(base32 "1kzmj4yyxvlxqzqbrw6sx6dnvhj1zzqnciyb8ryzy6mdrb3pj4lk"))))
(build-system gnu-build-system)
(native-inputs
(list pkg-config texlive-tiny))
@ -2389,16 +2389,7 @@ interfaces.")
(string-append builddir "/src/nomad ")))
(for-each
(lambda (f) (fix-exe-path dir f))
'("param1.txt" "param2.txt" "param3.txt" "param10.txt")))))))
;; The information in the .egg-info file is not kept up to date.
(add-after 'install 'delete-superfluous-egg-info
(lambda* (#:key inputs outputs #:allow-other-keys)
(delete-file (string-append
(site-packages inputs outputs)
"/PyNomad-0.0.0-py"
(python-version (assoc-ref inputs "python"))
".egg-info")))))))
'("param1.txt" "param2.txt" "param3.txt" "param10.txt"))))))))))
(home-page "https://www.gerad.ca/nomad/")
(synopsis "Nonlinear optimization by mesh-adaptive direct search")
(description
@ -3000,7 +2991,7 @@ This is the certified version of the Open Cascade Technology (OCCT) library.")
(define-public gmsh
(package
(name "gmsh")
(version "4.10.5")
(version "4.11.1")
(source
(origin
(method git-fetch)
@ -3011,7 +3002,7 @@ This is the certified version of the Open Cascade Technology (OCCT) library.")
(string-replace-substring version "." "_")))))
(file-name (git-file-name name version))
(sha256
(base32 "08p39yjgf3lbnjg90skpmsq9n1a9pmwppdmy5s94dc6sq2nfr7xl"))
(base32 "1d6n7qqj9xpfgh7v5jif565waiqjhahkh21pi5s1vr84y61wxyx8"))
(modules '((guix build utils)))
(snippet
'(delete-file-recursively "contrib/metis"))))

16
gnu/packages/matrix.scm
View file

@ -34,6 +34,7 @@
#:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages xml)
#:use-module (guix build-system pyproject)
#:use-module (guix build-system python)
#:use-module (guix download)
#:use-module (guix gexp)
@ -159,14 +160,14 @@ homeserver and generally help bootstrap the ecosystem.")
(define-public python-matrix-nio
(package
(name "python-matrix-nio")
(version "0.20.0")
(version "0.20.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "matrix-nio" version))
(uri (pypi-uri "matrix_nio" version))
(sha256
(base32 "1ycrp48b15nm2d3w3qpzps21czl3gbikadl10sncbzr9wdwn44g4"))))
(build-system python-build-system)
(base32 "110wg1grhqqgwvlgr98r2k8wxcggpj7lbdwmgkgmi2l7qj1vw3dm"))))
(build-system pyproject-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
@ -187,15 +188,13 @@ homeserver and generally help bootstrap the ecosystem.")
"and not test_connect_wrapper"))))))))
(native-inputs
`(("python-pytest" ,python-pytest)
("python-hyperframe" ,python-hyperframe)
("python-poetry-core" ,python-poetry-core)
("python-hypothesis" ,python-hypothesis)
("python-hpack" ,python-hpack)
("python-faker" ,python-faker)
("python-pytest-aiohttp" ,python-pytest-aiohttp)
("python-pytest-asyncio" ,python-pytest-asyncio)
("python-aioresponses" ,python-aioresponses)
("python-pytest-benchmark" ,python-pytest-benchmark)
("python-toml" ,python-toml)
("tests"
;; The release on pypi comes without tests. We can't build from this
;; checkout, though, because installation requires an invocation of
@ -208,13 +207,14 @@ homeserver and generally help bootstrap the ecosystem.")
(file-name (git-file-name name version))
(sha256
(base32
"10j8g3ns3v1ghdn262dxg50ayaczdp1hj97pj4ydw02bncqhddpd"))))))
"1rd90sk5yygxzvcs4qhzr80bch7d3xszyfjf99pn10xsj10mi752"))))))
(propagated-inputs
(list python-aiofiles
python-aiohttp
python-aiohttp-socks
python-atomicwrites
python-cachetools
python-dataclasses
python-future
python-h11
python-h2

25
gnu/packages/maven.scm
View file

@ -4,7 +4,6 @@
;;; Copyright © 2019 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2022 Artyom V. Poptsov <poptsov.artyom@gmail.com>
;;; Copyright © 2023 Aleksandr Vityazev <avityazew@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1366,10 +1365,6 @@ simply plain java objects.")))
#:test-dir "maven-settings-builder/src/test"
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'add-sisu-shebang
(lambda _
(substitute* "sisu.sh"
(("^## T") "#!/bin/sh\n## T"))))
(add-before 'build 'generate-sisu-named
(lambda _
(mkdir-p "build/classes/META-INF/sisu")
@ -1411,10 +1406,6 @@ inheritance, interpolation, @dots{}")))
(copy-recursively "src/main/resources"
"build/classes")
#t))
(add-after 'unpack 'add-sisu-shebang
(lambda _
(substitute* "sisu.sh"
(("^## T") "#!/bin/sh\n## T"))))
(add-before 'build 'generate-sisu-named
(lambda _
(mkdir-p "build/classes/META-INF/sisu")
@ -1510,10 +1501,6 @@ so really just plain objects.")))
#:tests? #f; dependency loop on maven-core (@Component RepositorySystem)
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'add-sisu-shebang
(lambda _
(substitute* "sisu.sh"
(("^## T") "#!/bin/sh\n## T"))))
(add-before 'build 'generate-sisu-named
(lambda _
(mkdir-p "build/classes/META-INF/sisu")
@ -1604,10 +1591,6 @@ generally generated from plugin sources using maven-plugin-plugin.")))
#:tests? #f
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'add-sisu-shebang
(lambda _
(substitute* "sisu.sh"
(("^## T") "#!/bin/sh\n## T"))))
(add-before 'configure 'chdir
(lambda _
;; Required for generating components.xml in maven-core
@ -1839,10 +1822,6 @@ artifactId=maven-core" ,(package-version maven-core-bootstrap))))
#:jdk ,icedtea-8
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'add-sisu-shebang
(lambda _
(substitute* "sisu.sh"
(("^## T") "#!/bin/sh\n## T"))))
(add-before 'build 'generate-sisu-named
(lambda _
(mkdir-p "build/classes/META-INF/sisu")
@ -2424,10 +2403,6 @@ reporting or the build process.")))
(substitute-keyword-arguments (package-arguments maven-model-builder)
((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'add-components-shebang
(lambda _
(substitute* "components.sh"
(("^## T") "#!/bin/sh\n## T"))))
(add-before 'build 'generate-components.xml
(lambda _
(mkdir-p "build/classes/META-INF/plexus")

1
gnu/packages/messaging.scm
View file

@ -2808,6 +2808,7 @@ validating international phone numbers.")
(native-inputs
(list gettext-minimal
`(,glib "bin")
itstool
pkg-config
protobuf
xorg-server-for-tests))

4
gnu/packages/monitoring.scm
View file

@ -591,7 +591,7 @@ devices.")
(define-public fswatch
(package
(name "fswatch")
(version "1.16.0")
(version "1.17.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -600,7 +600,7 @@ devices.")
(file-name (git-file-name name version))
(sha256
(base32
"1zsvc8arza2ypnnmv4m0qfpnldmy1zh10q6wss05ibmanslfj2ql"))))
"15bk2adv1ycqn3rxvpvapwrlzsxw8fvcahqiglfkibwb9ss7s8dh"))))
(build-system gnu-build-system)
(native-inputs
(list autoconf automake gettext-minimal libtool))

15
gnu/packages/mpd.scm
View file

@ -615,7 +615,7 @@ mpdevil loads all tags and covers on demand.")
(define-public mympd
(package
(name "mympd")
(version "10.3.2")
(version "10.3.3")
(source (origin
(method git-fetch)
(uri (git-reference
@ -624,14 +624,17 @@ mpdevil loads all tags and covers on demand.")
(file-name (git-file-name name version))
(sha256
(base32
"04mpj0qikdg7nqp8rvwr83bx3544qy2ha0sjj4cnpjknka6p8xan"))))
"1n8z3rscrw7k097q5z1d59mrryy7b8m0zdfhi767a1qpa121m8if"))))
(build-system cmake-build-system)
(arguments
(list #:tests? #f)) ; no test target
(native-inputs (list jq perl))
(list
#:configure-flags
#~(list "-DMYMPD_STRIP_BINARY=OFF") ; handled by 'strip phase
#:tests? #f)) ; no test target
(native-inputs (list jq perl pkg-config))
(inputs (list flac libid3tag lua openssl pcre2))
(home-page "https://jcorporation.github.io/")
(synopsis "Web-based MPD client")
(description "MyMPD is a mobile-friendly web client for the MPD music
player daemon.")
(description "MyMPD is a mobile-friendly web client for the Music Player
Daemon (MPD).")
(license license:gpl3+)))

4
gnu/packages/mpi.scm
View file

@ -141,7 +141,7 @@ bind processes, and much more.")
(define-public hwloc-2
(package
(inherit hwloc-1)
(version "2.9.1")
(version "2.9.2")
(source (origin
(method url-fetch)
(uri (string-append "https://download.open-mpi.org/release/hwloc/v"
@ -149,7 +149,7 @@ bind processes, and much more.")
"/hwloc-" version ".tar.bz2"))
(sha256
(base32
"17jr14a5ns5rpwvy28fy7xqagbvfprsz7wrsjgh5gx7y40d97i3w"))))
"1kv0n3b9knb8aawf0hxaxn9wc9bbpwh676r2gmb0pc7qfzvgv1qa"))))
;; libnuma is no longer needed.
(inputs (modify-inputs (package-inputs hwloc-1)

162
gnu/packages/music.scm
View file

@ -207,50 +207,50 @@
(define-public audacious
(package
(name "audacious")
(version "4.3")
(version "4.3.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://distfiles.audacious-media-player.org/"
"audacious-" version ".tar.bz2"))
(sha256
(base32 "14chrsh1dacw5r2qpzw0rhg2lchpbya90y96r6w0vry78p44sn17"))))
(base32 "0hi0njnw3q7kngmjk837ynagighrbz8a4wpf8bim2nsh85lf5sc5"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib")
"--disable-gtk")
#:tests? #f ; no check target
#:phases
(modify-phases %standard-phases
(add-after 'install 'unpack-plugins
(lambda* (#:key inputs #:allow-other-keys)
(let ((plugins (assoc-ref inputs "audacious-plugins")))
(invoke "tar" "xvf" plugins))))
(add-after 'unpack-plugins 'configure-plugins
(lambda* (#:key configure-flags outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(with-directory-excursion
(string-append "audacious-plugins-" ,version)
(substitute* "configure"
(("/bin/sh") (which "sh")))
(apply invoke "./configure"
(append configure-flags
;; audacious-plugins requires audacious to build.
(list (string-append "PKG_CONFIG_PATH="
out "/lib/pkgconfig:"
(getenv "PKG_CONFIG_PATH"))
(string-append "--prefix=" out))))))))
(add-after 'configure-plugins 'build-plugins
(lambda _
(with-directory-excursion
(string-append "audacious-plugins-" ,version)
(invoke "make" "-j" (number->string (parallel-job-count))))))
(add-after 'build-plugins 'install-plugins
(lambda _
(with-directory-excursion
(string-append "audacious-plugins-" ,version)
(invoke "make" "install")))))))
(list
#:configure-flags
#~(list (string-append "LDFLAGS=-Wl,-rpath=" #$output "/lib")
"--disable-gtk")
#:tests? #f ; no check target
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'unpack-plugins
(lambda* (#:key inputs #:allow-other-keys)
(invoke "tar" "xvf"
#$(this-package-native-input "audacious-plugins"))))
(add-after 'unpack-plugins 'configure-plugins
(lambda* (#:key configure-flags outputs #:allow-other-keys)
(with-directory-excursion
(string-append "audacious-plugins-" #$version)
(substitute* "configure"
(("/bin/sh") (which "sh")))
(apply invoke "./configure"
(append configure-flags
;; audacious-plugins requires audacious to build.
(list (string-append "PKG_CONFIG_PATH="
#$output "/lib/pkgconfig:"
(getenv "PKG_CONFIG_PATH"))
(string-append "--prefix=" #$output)))))))
(add-after 'configure-plugins 'build-plugins
(lambda _
(with-directory-excursion
(string-append "audacious-plugins-" #$version)
(invoke "make" "-j" (number->string (parallel-job-count))))))
(add-after 'build-plugins 'install-plugins
(lambda _
(with-directory-excursion
(string-append "audacious-plugins-" #$version)
(invoke "make" "install")))))))
(native-inputs
`(("audacious-plugins"
,(origin
@ -258,7 +258,7 @@
(uri (string-append "https://distfiles.audacious-media-player.org/"
"audacious-plugins-" version ".tar.bz2"))
(sha256
(base32 "1ilzz2fv0mirlfhzhrcbccv996slj65z1ifibzrx0w5xqk4gcbk6"))))
(base32 "19n8zpayakszm00bakfzagbbqci95dxv4h7j9ml2sfjqmzijdsid"))))
("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin") ; for gdbus-codegen
("pkg-config" ,pkg-config)))
@ -7048,14 +7048,14 @@ midi devices to JACK midi devices.")
(define-public opustags
(package
(name "opustags")
(version "1.6.0")
(version "1.9.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/fmang/opustags")
(commit version)))
(sha256
(base32 "1wsfw713rhi2gg5xc04cx5i31hlw0l3wdflj3r1y8w45bdk6ag1z"))
(base32 "1f1bj0ng89plivdwpjc8qkfy8nn1kw5gqnbc74scigz7mw9z443i"))
(file-name (git-file-name name version))))
(arguments
(list
@ -7072,10 +7072,15 @@ midi devices to JACK midi devices.")
#$(package-version perl)))
(perl-exporter-tiny-lib
(string-append #$(this-package-native-input "perl-exporter-tiny")
"/lib/perl5/site_perl/"
#$(package-version perl)))
(perl-test-deep-lib
(string-append #$(this-package-native-input "perl-test-deep")
"/lib/perl5/site_perl/"
#$(package-version perl))))
(setenv "PERL5LIB" (string-append perl-list-moreutils-lib ":"
perl-exporter-tiny-lib))))))))
perl-exporter-tiny-lib ":"
perl-test-deep-lib))))))))
(build-system cmake-build-system)
(inputs
(list libogg))
@ -7084,6 +7089,7 @@ midi devices to JACK midi devices.")
ffmpeg
perl-exporter-tiny
perl-list-moreutils
perl-test-deep
perl-test-harness))
(synopsis "Ogg Opus tags editor")
(description "@code{opustags} is an Ogg Opus tag editor. It reads and edits
@ -7325,6 +7331,82 @@ the same way, and tries to match each block with one in its brain to play in
realtime.")
(license license:gpl2+)))
(define-public le-biniou-data
(package
(name "le-biniou-data")
(version "3.66.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/lebiniou/lebiniou-data")
(commit (string-append "version-" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1s8dax6ryfqz7aqq8rj5ipxddshp5mjdvj0mn9kk1zzr55hvkfb7"))))
(build-system gnu-build-system)
(native-inputs (list autoconf automake libtool))
(home-page "https://biniou.net/")
(synopsis "Data files for use with Le Biniou")
(description
"This package contains data files for use with Le Biniou.")
(license license:gpl2+)))
(define-public le-biniou
(package
(name "le-biniou")
(version "3.66.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/lebiniou/lebiniou")
(commit (string-append "version-" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1fvf944i703yd17kkxgja2xyyznb30p006piclz1rmgkhijp0lcp"))))
(build-system gnu-build-system)
(arguments
(list #:configure-flags #~(list (string-append "LDFLAGS=-Wl,-rpath="
#$output "/lib")
(string-append
"LEBINIOU_DATADIR="
#$(this-package-input "le-biniou-data")))
#:phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch
(lambda _
(substitute* "src/bulfius_vui.c"
(("xdg-open")
(string-append
#$(this-package-input "xdg-utils")
"/bin/xdg-open"))))))))
(native-inputs (list autoconf
automake
libtool
perl ;for pod2man
pkg-config))
(inputs (list alsa-lib
curl
ffmpeg
fftw
glib
imagemagick
jack-1
jansson
le-biniou-data
libcaca
libsndfile
pulseaudio
sdl2
ulfius
xdg-utils))
(home-page "https://biniou.net/")
(synopsis "Audio visualization and VJing tool")
(description
"Le Biniou is a music visualization & VJing tool. It creates live
visuals based on audio performances or existing tracks.")
(license license:gpl2+)))
;;;
;;; Avoid adding new packages to the end of this file. To reduce the chances
;;; of a merge conflict, place them above by existing packages with similar

37
gnu/packages/networking.scm
View file

@ -1085,14 +1085,14 @@ residing in IPv4-only networks, even when they are behind a NAT device.")
(define-public ndisc6
(package
(name "ndisc6")
(version "1.0.6")
(version "1.0.7")
(source (origin
(method url-fetch)
(uri (string-append "https://www.remlab.net/files/ndisc6/ndisc6-"
version ".tar.bz2"))
(sha256
(base32
"1yrw8maj1646d498ax8xi0jmzk80idrc5x0913x5rwg1kc7224x7"))))
"02b6r4mwqj3kkia3nnqlr5nq8qqg1pg47lirb8d35mqh0pbk3i7d"))))
(build-system gnu-build-system)
(home-page "https://www.remlab.net/ndisc6/")
(synopsis "IPv6 diagnostic tools")
@ -1667,34 +1667,32 @@ and min/max network usage.")
(define-public iodine
(package
(name "iodine")
(version "0.7.0")
(source (origin
(method url-fetch)
(uri (string-append "http://code.kryo.se/" name "/"
name "-" version ".tar.gz"))
(sha256
(base32
"0gh17kcxxi37k65zm4gqsvbk3aw7yphcs3c02pn1c4s2y6n40axd"))))
(version "0.8.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://code.kryo.se/iodine/"
"iodine-" version ".tar.gz"))
(sha256
(base32 "1ihlwxr5xi82gskcdl06qil9q67bcc80p18wm079gxqphv7r4vjl"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(delete 'configure)
(delete 'configure) ; no configure script
(add-before 'build 'fix-ifconfig-path
;; This package works only with the net-tools version of ifconfig.
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/tun.c"
(("PATH=[^ ]* ")
(string-append (assoc-ref inputs "net-tools") "/bin/")))
#t))
(string-append (assoc-ref inputs "net-tools") "/bin/")))))
(add-before 'check 'delete-failing-tests
;; Avoid https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=802105.
(lambda _
(substitute* "tests/common.c"
(("tcase_add_test\\(tc, \
test_parse_format_ipv(4(|_listen_all|_mapped_ipv6)|6)\\);")
""))
#t)))
"")))))
#:make-flags (list ,(string-append "CC=" (cc-for-target))
(string-append "prefix=" (assoc-ref %outputs "out")))
#:test-target "test"))
@ -4369,14 +4367,15 @@ stamps.")
(define-public nbd
(package
(name "nbd")
(version "3.24")
(version "3.25")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/nbd/nbd/" version
"/nbd-" version ".tar.xz"))
(uri (string-append
"https://github.com/NetworkBlockDevice/nbd/releases/download/nbd-"
version "/nbd-" version ".tar.xz"))
(sha256
(base32 "036ib2d5722sx9nn7jydqfpl5ici5if2z7g8xrskzcx74dniaxv8"))))
(base32 "02nxrgq3024g106x9wdyg23f0bj3avrmf3jdb4kckcaprc7zvj7m"))))
(build-system gnu-build-system)
(inputs
(list glib))

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

@ -20,7 +20,8 @@
;;; Copyright © 2021 Ivan Gankevich <i.gankevich@spbu.ru>
;;; Copyright © 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 John Kehayias <john.kehayias@protonmail.com>
;;; Copyright © 2022 Zhu Zihao <all_but_last@163.com>
;;; Copyright © 2022, 2023 Zhu Zihao <all_but_last@163.com>
;;; Copyright © 2023 jgart <jgart@dismail.de>
;;;
;;; This file is part of GNU Guix.
;;;
@ -56,6 +57,7 @@
#:use-module (gnu packages compression)
#:use-module (gnu packages cmake)
#:use-module (gnu packages cpio)
#:use-module (gnu packages cpp)
#:use-module (gnu packages crypto)
#:use-module (gnu packages curl)
#:use-module (gnu packages databases)
@ -731,16 +733,16 @@ high-performance computing} clusters.")
(define-public nix
(package
(name "nix")
(version "2.5.1")
(version "2.16.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "http://github.com/NixOS/nix")
(url "https://github.com/NixOS/nix")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1m8rmv8i6lg83pmalvjlq1fn8mcghn3ngjv3kw1kqsa45ymj5sqq"))
(base32 "1rca8ljd33dmvh9bqk6sy1zxk97aawcr6k1f7hlm4d1cd9mrcw7x"))
(patches
(search-patches "nix-dont-build-html-doc.diff"))))
(build-system gnu-build-system)
@ -757,7 +759,19 @@ high-performance computing} clusters.")
(apply invoke "make" "install"
(string-append "sysconfdir=" etc)
(string-append "profiledir=" etc "/profile.d")
make-flags)))))))
make-flags))))
(replace 'check
(lambda args
;; A few tests expect the environment variable NIX_STORE to be
;; "/nix/store"
(let ((original-NIX_STORE (getenv "NIX_STORE")))
(dynamic-wind
(lambda ()
(setenv "NIX_STORE" "/nix/store"))
(lambda ()
(apply (assoc-ref %standard-phases 'check) args))
(lambda ()
(setenv "NIX_STORE" original-NIX_STORE)))))))))
(native-inputs
(list autoconf
autoconf-archive
@ -767,7 +781,8 @@ high-performance computing} clusters.")
googletest
jq
libtool
pkg-config))
pkg-config
rapidcheck))
(inputs
(append (list boost
brotli
@ -779,6 +794,7 @@ high-performance computing} clusters.")
libseccomp
libsodium
lowdown
nlohmann-json
openssl
sqlite
xz

25
gnu/packages/pantheon.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Ryan Prior <rprior@protonmail.com>
;;; Copyright © 2023 Wamm K. D. <jaft.r@outlook.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -25,6 +26,7 @@
#:use-module (gnu packages gnupg)
#:use-module (gnu packages gtk)
#:use-module (gnu packages package-management)
#:use-module (gnu packages photo)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages xml)
@ -160,3 +162,26 @@ desktop.")
on Flathub or another third-party website providing a Flatpak app for
download.")
(license license:gpl3+)))
(define-public pantheon-wallpapers
(package
(name "pantheon-wallpapers")
(version "7.0.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/elementary/wallpapers/")
(commit version)))
(file-name (git-file-name name version))
(sha256 (base32
"0km3h52kapbm8ymwxdxasz80qbgzkfni7981pdyf740wjp7linwb"))))
(build-system meson-build-system)
(native-inputs (list gettext-minimal)) ; for msgfmt
(inputs (list libexif))
(synopsis "Wallpapers for the Pantheon desktop")
(description "This package provides wallpapers for the Pantheon desktop.")
(home-page "https://github.com/elementary/wallpapers")
(license (list license:cc-by-sa4.0
license:cc0
(license:non-copyleft "https://unsplash.com/license")
(license:non-copyleft "https://www.pexels.com/license/")))))

4
gnu/packages/parallel.scm
View file

@ -64,14 +64,14 @@
(define-public parallel
(package
(name "parallel")
(version "20230522")
(version "20230622")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://gnu/parallel/parallel-"
version ".tar.bz2"))
(sha256
(base32 "00j2nqy808wd43hgalgry15v4ga1wrfq8s5r1cv18fq20mv6px0s"))
(base32 "13i3himpq1gzhn3b0hl8vp34kz950ql9pssw251ad611f2nj8fny"))
(snippet
'(begin
(use-modules (guix build utils))

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

@ -209,7 +209,7 @@ human.")
readline
yubikey-personalization ; XC_YUBIKEY
zlib))
(home-page "https://www.keepassxc.org")
(home-page "https://keepassxc.org")
(synopsis "Password manager")
(description "KeePassXC is a password manager or safe which helps you to
manage your passwords in a secure way. You can put all your passwords in one
@ -531,6 +531,45 @@ them out, at the source.")
random passwords that pass the checks.")
(license license:gpl2+)))
(define-public passwdqc
(package
(name "passwdqc")
(version "2.0.2")
(source (origin
(method url-fetch)
(uri (string-append "https://www.openwall.com/passwdqc/passwdqc"
"-" version ".tar.gz"))
(sha256
(base32
"1aq40v5094bhnj86v4i2nmqkybmzzp20q7jb92jgc860cibm07zz"))))
(build-system gnu-build-system)
(arguments
(list
#:tests? #f ;no tests provided
#:make-flags
#~(list (string-append "CC=" #$(cc-for-target))
(string-append "DESTDIR=" #$output)
"BINDIR=/bin"
"DEVEL_LIBDIR=/lib"
"SHARED_LIBDIR_REL=."
"INCLUDEDIR=/include"
"MANDIR=/share/man"
(string-append "LDFLAGS=-Wl,-rpath=" #$output "/lib"))
#:phases
#~(modify-phases %standard-phases
(delete 'configure)))) ;no configure script
(inputs (list linux-pam))
(home-page "https://www.openwall.com/passwdqc/")
(synopsis
"Password/passphrase strength checking and policy enforcement toolset")
(description
"Passwdqc is a password/passphrase strength checking and policy
enforcement toolset, including an optional PAM module, @code{pam_passwdqc},
command-line programs (@command{pwqcheck}, @command{pwqfilter}, and
@command{pwqgen}), and a library, @code{libpasswdqc}.")
(license (list license:bsd-3 ;manual pages
license:bsd-1)))) ;code
(define-public assword
(package
(name "assword")
@ -618,6 +657,12 @@ any X11 window.")
"${PASSWORD_STORE_SYSTEM_EXTENSION_DIR:-"
extension-dir
"}\"\n"))))))
(add-before 'install 'patch-program-name
;; Use pass not .pass-real in tmpdir and cmd_usage
(lambda _
(substitute* "src/password-store.sh"
(("^PROGRAM=.*$")
"PROGRAM=\"pass\"\n"))))
(add-before 'install 'patch-passmenu-path
;; FIXME Wayland support requires ydotool and dmenu-wl packages
;; We are ignoring part of the script that gets executed if

61
gnu/packages/patches/dezyne-add-missing-shebangs.patch
View file

@ -1,61 +0,0 @@
Upstream status: Taken from upstream development.
From aace425e41247c1dd6b16eb7eabce50be7310d15 Mon Sep 17 00:00:00 2001
From: Janneke Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 24 Apr 2023 16:58:32 +0200
Subject: [PATCH] DRAFT test: Add missing shebangs to run scripts.
This fixes `make check' on current ci.guix.gnu.org.
* test/all/parse_import_order/run,
test/all/parse_locations/run,
test/all/parse_peg_locations/run: Add #! /bin/sh.
---
test/all/parse_import_order/run | 3 ++-
test/all/parse_locations/run | 3 ++-
test/all/parse_peg_locations/run | 3 ++-
3 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/test/all/parse_import_order/run b/test/all/parse_import_order/run
index 6e231de4f9..c383e4f223 100755
--- a/test/all/parse_import_order/run
+++ b/test/all/parse_import_order/run
@@ -1,6 +1,7 @@
+#! /bin/sh
# Dezyne --- Dezyne command line tools
#
-# Copyright © 2022 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+# Copyright © 2022, 2023 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
#
# This file is part of Dezyne.
#
diff --git a/test/all/parse_locations/run b/test/all/parse_locations/run
index 0b092b26dd..6c48ee1392 100755
--- a/test/all/parse_locations/run
+++ b/test/all/parse_locations/run
@@ -1,7 +1,8 @@
+#! /bin/sh
# Dezyne --- Dezyne command line tools
#
# Copyright © 2021 Paul Hoogendijk <paul@dezyne.org>
-# Copyright © 2020, 2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+# Copyright © 2020, 2021, 2023 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
#
# This file is part of Dezyne.
#
diff --git a/test/all/parse_peg_locations/run b/test/all/parse_peg_locations/run
index 5b5ced0bb4..5206a23db6 100755
--- a/test/all/parse_peg_locations/run
+++ b/test/all/parse_peg_locations/run
@@ -1,6 +1,7 @@
+#! /bin/sh
# Dezyne --- Dezyne command line tools
#
-# Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+# Copyright © 2020, 2023 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
#
# This file is part of Dezyne.
#
--
2.39.2

33
gnu/packages/patches/dyninst-fix-glibc-compatibility.patch Normal file
View file

@ -0,0 +1,33 @@
From f233c46ac7b415104d04e4bb74bd7a0fcf24a333 Mon Sep 17 00:00:00 2001
From: Olivier Dion <odion@efficios.com>
Date: Thu, 15 Jun 2023 12:02:08 -0400
Subject: [PATCH] Fix compatibility with glibc 2.35
Something has change with the visibility of the _r_debug structure in
glibc 2.35. See this issue
<https://github.com/dyninst/dyninst/issues/1282>.
This patch is essentially the upstream fix
<https://github.com/dyninst/dyninst/commit/273803a4c643ed3506f9a69c6ec71d5ab337489c>
backported.
Signed-off-by: Olivier Dion <odion@efficios.com>
---
dyninstAPI_RT/src/RTlinux.c | 1 -
1 file changed, 1 deletion(-)
diff --git a/dyninstAPI_RT/src/RTlinux.c b/dyninstAPI_RT/src/RTlinux.c
index fc231d0a4..2f17ff677 100644
--- a/dyninstAPI_RT/src/RTlinux.c
+++ b/dyninstAPI_RT/src/RTlinux.c
@@ -406,7 +406,6 @@ void dyninstTrapHandler(int sig, siginfo_t *sg, ucontext_t *context)
#if defined(cap_binary_rewriter)
extern struct r_debug _r_debug;
-DLLEXPORT struct r_debug _r_debug __attribute__ ((weak));
/* Verify that the r_debug variable is visible */
void r_debugCheck() { assert(_r_debug.r_map); }
--
2.40.1

15
gnu/packages/patches/fuzzylite-relative-path-in-tests.patch Normal file
View file

@ -0,0 +1,15 @@
Workaround https://github.com/fuzzylite/fuzzylite/issues/85
diff --git a/fuzzylite/test/BenchmarkTest.cpp b/fuzzylite/test/BenchmarkTest.cpp
index f868ec29..464d394d 100644
--- a/fuzzylite/test/BenchmarkTest.cpp
+++ b/fuzzylite/test/BenchmarkTest.cpp
@@ -30,7 +30,7 @@ namespace fl {
}
TEST_CASE("Benchmarks from FLD files", "[benchmark][fld]") {
- std::string path = "../../examples/";
+ std::string path = "../examples/";
typedef std::pair<std::string, int > Example;
std::vector<Example> examples;
examples.push_back(Example("mamdani/AllTerms", int(1e4)));

30
gnu/packages/patches/fuzzylite-soften-float-equality.patch Normal file
View file

@ -0,0 +1,30 @@
Origin: https://salsa.debian.org/debian/fuzzylite/-/blob/debian/6.0+dfsg-6/debian/patches/when-testing-large-float-numbers-for-equ.patch
From: Johannes 'josch' Schauer <josch@debian.org>
Date: Sun, 3 Feb 2019 10:33:22 +0100
X-Dgit-Generated: 6.0+dfsg-2 80960ae38da9db032dfbfec6405398653e8205ff
Subject: when testing large float numbers for equality, use a larger epsilon
---
--- fuzzylite-6.0+dfsg.orig/fuzzylite/test/BenchmarkTest.cpp
+++ fuzzylite-6.0+dfsg/fuzzylite/test/BenchmarkTest.cpp
@@ -96,7 +96,17 @@ namespace fl {
CHECK(Op::isEq(1.0, Benchmark::convert(1000.0, Benchmark::MilliSeconds, Benchmark::Seconds)));
FL_LOG(Benchmark::convert(1000.0, Benchmark::MilliSeconds, Benchmark::Seconds));
- CHECK(Op::isEq(35e9, Benchmark::convert(35, Benchmark::Seconds, Benchmark::NanoSeconds)));
+ scalar eps =
+#ifndef __i386__
+ fuzzylite::macheps();
+#else
+ // on i386, due to the 80bit x87 register, double floating point
+ // numbers are handled differently and thus the difference between
+ // 35e9 and the result of Benchmark::convert() will be 2.179e-6,
+ // which is greater than the default epsilon of 1e-6.
+ 1e-5;
+#endif
+ CHECK(Op::isEq(35e9, Benchmark::convert(35, Benchmark::Seconds, Benchmark::NanoSeconds), eps));
CHECK(Op::isEq(35, Benchmark::convert(35e9, Benchmark::NanoSeconds, Benchmark::Seconds)));
}

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