me
/
guix
Archived
1
0
Fork 0
Code

Merge branch 'master' into core-updates. 

Conflicts:
	gnu/local.mk
	gnu/packages/build-tools.scm
	gnu/packages/certs.scm
	gnu/packages/check.scm
	gnu/packages/compression.scm
	gnu/packages/cups.scm
	gnu/packages/fontutils.scm
	gnu/packages/gnuzilla.scm
	gnu/packages/guile.scm
	gnu/packages/ibus.scm
	gnu/packages/image-processing.scm
	gnu/packages/linux.scm
	gnu/packages/music.scm
	gnu/packages/nss.scm
	gnu/packages/pdf.scm
	gnu/packages/python-xyz.scm
	gnu/packages/qt.scm
	gnu/packages/ruby.scm
	gnu/packages/shells.scm
	gnu/packages/tex.scm
	gnu/packages/video.scm
	gnu/packages/vulkan.scm
	gnu/packages/web.scm
	gnu/packages/webkit.scm
	gnu/packages/wm.scm
master
Maxim Cournoyer 2023-04-14 16:57:37 -04:00
parent df3391c030 97ed675718
commit 3bacd3c76a
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
231 changed files with 20528 additions and 7891 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
.guix-authorizations
View File

@ -7,8 +7,6 @@
(;; primary: "D963 A5A3 8A80 3D52 4461 F914 7483 0A27 6C32 8EC2"
("2841 9AC6 5038 7440 C7E9 2FFA 2208 D209 58C1 DEB0"
(name "abcdw"))
("4FB9 9F49 2B12 A365 7997 E664 8246 0C08 2A0E E98F"
(name "alezost"))
("50F3 3E2E 5B0C 3D90 0424 ABE8 9BDC F497 A4BB CC7F"
(name "ambrevar"))
("AD17 A21E F8AE D8F1 CC02 DBD9 F7D5 C9BF 765C 61E3"
@ -20,9 +18,6 @@
(;; primary: "34FF 38BC D151 25A6 E340 A0B5 3453 2F9F AFCA 8B8E"
"A3A4 B419 0074 087C A7DE 5698 BC45 CA67 E2F8 D007"
(name "bavier"))
(;; primary: "8929 BBC5 73CD 9206 3DDD 979D 3D36 CAA0 116F 0F99"
"1C9B F005 1A1A 6A44 5257 599A A949 03A1 66A1 8FAE"
(name "bricewge"))
(;; primary: "0401 7A2A 6D9A 0CCD C81D 8EC2 96AB 007F 1A7E D999"
"09CD D25B 5244 A376 78F6 EEA8 0CC5 2153 1979 91A5"
(name "carl"))
@ -65,8 +60,6 @@
(;; primary: "4F71 6F9A 8FA2 C80E F1B5 E1BA 5E35 F231 DE1A C5E0"
"B051 5948 F1E7 D3C1 B980 38A0 2646 FA30 BACA 7F08"
(name "lfam"))
("CBF5 9755 CBE7 E7EF EF18 3FB1 DD40 9A15 D822 469D"
(name "marusich"))
("BBB0 2DDF 2CEA F6A8 0D1D E643 A2A0 6DF2 A33A 54FA"
(name "mbakke"))
("D919 0965 CE03 199E AF28 B3BE 7CEF 2984 7562 C516"
@ -78,8 +71,6 @@
(;; primary: "F5BC 5534 C36F 0087 B39D 36EF 1C9D C4FE B9DB 7C4B"
"F5DA 2032 4B87 3D0B 7A38 7672 0DB0 FF88 4F55 6D79"
(name "nckx"))
("E576 BFB2 CF6E B13D F571 33B9 E315 A758 4613 1564"
(name "niedzejkob"))
("ED0E F1C8 E126 BA83 1B48 5FE9 DA00 B4F0 48E9 2F2D"
(name "ngz"))
("CEF4 CB91 4856 BA38 0A20 A7E2 3008 88CB 39C6 3817"
@ -87,9 +78,6 @@
(;; primary: "41CA 12EA DE0C F33F 6885 A58F 5719 6E37 E00B 77FD"
"72D5 3D81 8CB6 F4A1 7258 374C A8FC 9E44 7F4F 7D54"
(name "planglois"))
(;; primary: "B68B DF22 73F9 DA0E 63C1 8A32 515B F416 9242 D600"
"C699 ED09 E51B CE89 FD1D A078 AAC7 E891 896B 568A"
(name "pgarlick"))
(;; primary: "7E9F 5BF6 1680 4367 127B 7A87 F9E6 9FB8 5A75 54F1"
"A420 7B56 C255 109F 2CB3 157E 4990 97AE 5EA8 15D9"
(name "podiki"))

3
NEWS
View File

@ -13,6 +13,9 @@ Copyright © 2022 Mathieu Othacehe <othacehe@gnu.org>
Please send Guix bug reports to bug-guix@gnu.org.
* Changes in 1.5.0 (since 1.4.0)
** Package management
*** New ‘rpm’ format for the ‘guix pack’ command
* Changes in 1.4.0 (since 1.3.0)
** Package management
*** New ‘guix home’ command, for home environment management

12
doc/contributing.texi
View File

@ -776,9 +776,8 @@ the word @code{python}.
Some modules are compatible with only one version of Python, others with
both. If the package Foo is compiled with Python 3, we name it
@code{python-foo}. If it is compiled with Python 2, we name it
@code{python2-foo}. Packages should be added when they are necessary;
we don't add Python 2 variants of the package unless we are going to use
them.
@code{python2-foo}. Python 2 packages are being removed from the
distribution; please do no not submit any new Python 2 packages.
If a project already contains the word @code{python}, we drop this;
for instance, the module python-dateutil is packaged under the names
@ -1728,7 +1727,12 @@ project for at least 6 months. This ensures enough interactions with
the contributor, which is essential for mentoring and assessing whether
they are ready to become a committer. Commit access should not be
thought of as a ``badge of honor'' but rather as a responsibility a
contributor is willing to take to help the project.
contributor is willing to take to help the project. It is expected from
all contributors, and even more so from committers, to help build
consensus and make decisions based on consensus. To learn what
consensus decision making means and understand its finer details, you
are encouraged to read
@url{https://www.seedsforchange.org.uk/consensus}.
The following sections explain how to get commit access, how to be ready
to push commits, and the policies and community expectations for commits

373
doc/guix.texi
View File

@ -60,7 +60,7 @@ Copyright @copyright{} 2018, 2021 Oleg Pykhalov@*
Copyright @copyright{} 2018 Mike Gerwitz@*
Copyright @copyright{} 2018 Pierre-Antoine Rouby@*
Copyright @copyright{} 2018, 2019 Gábor Boskovits@*
Copyright @copyright{} 2018, 2019, 2020, 2022 Florian Pelz@*
Copyright @copyright{} 2018, 2019, 2020, 2022, 2023 Florian Pelz@*
Copyright @copyright{} 2018 Laura Lazzati@*
Copyright @copyright{} 2018 Alex Vong@*
Copyright @copyright{} 2019 Josh Holland@*
@ -113,6 +113,7 @@ Copyright @copyright{} 2022⁠–⁠2023 Bruno Victal@*
Copyright @copyright{} 2022 Ivan Vilata-i-Balaguer@*
Copyright @copyright{} 2023 Giacomo Leidi@*
Copyright @copyright{} 2022 Antero Mejr@*
Copyright @copyright{} 2023 Karl Hallsby
Permission is granted to copy, distribute and/or modify this document
under the terms of the GNU Free Documentation License, Version 1.3 or
@ -4317,6 +4318,25 @@ The command to install its documentation is:
guix install glib:doc
@end example
While the colon syntax works for command-line specification of package
outputs, it will not work when using a package @emph{variable} in Scheme
code. For example, to add the documentation of @code{glib} to the
globally installed packages of an @code{operating-system} (see
@ref{operating-system Reference}), a list of two items, the first one
being the package @emph{variable} and the second one the name of the
output to select (a string), must be used instead:
@lisp
(use-modules (gnu packages glib))
;; glib-with-documentation is the Guile symbol for the glib package
(operating-system
...
(packages
(append
(list (list glib-with-documentation "doc"))
%base-packages)))
@end lisp
Some packages install programs with different ``dependency footprints''.
For instance, the WordNet package installs both command-line tools and
graphical user interfaces (GUIs). The former depend solely on the C
@ -6337,6 +6357,57 @@ cache (contrary to glibc in regular Guix usage) and set up the
expected FHS directories: @file{/bin}, @file{/etc}, @file{/lib}, and
@file{/usr} from the container's profile.
@cindex nested containers, for @command{guix shell}
@cindex container nesting, for @command{guix shell}
@item --nesting
@itemx -W
When used with @option{--container}, provide Guix @emph{inside} the
container and arrange so that it can interact with the build daemon that
runs outside the container. This is useful if you want, within your
isolated container, to create other containers, as in this sample
session:
@example
$ guix shell -CW coreutils
[env]$ guix shell -C guile -- guile -c '(display "hello!\n")'
hello!
[env]$ exit
@end example
The session above starts a container with @code{coreutils} programs
available in @env{PATH}. From there, we spawn @command{guix shell} to
create a @emph{nested} container that provides nothing but Guile.
Another example is evaluating a @file{guix.scm} file that is untrusted,
as shown here:
@example
guix shell -CW -- guix build -f guix.scm
@end example
The @command{guix build} command as executed above can only access the
current directory.
Under the hood, the @option{-W} option does several things:
@itemize
@item
map the daemon's socket (by default
@file{/var/guix/daemon-socket/socket}) inside the container;
@item
map the whole store (by default @file{/gnu/store}) inside the container
such that store items made available by nested @command{guix}
invocations are visible;
@item
add the currently-used @command{guix} command to the profile in the
container, such that @command{guix describe} returns the same state
inside and outside the container;
@item
share the cache (by default @file{~/.cache/guix}) with the host, to
speed up operations such as @command{guix time-machine} and
@command{guix shell}.
@end itemize
@item --rebuild-cache
@cindex caching, of profiles
@cindex caching, in @command{guix shell}
@ -8190,6 +8261,9 @@ Add @var{package}s to the front of the input list.
@item (append @var{package}@dots{})
Add @var{package}s to the end of the input list.
@item (replace @var{name} @var{replacement})
Replace the package called @var{name} with @var{replacement}.
@end table
The example below removes the GMP and ACL inputs of Coreutils and adds
@ -14333,6 +14407,7 @@ for compatibility with an upgraded @code{flex} package.
@table @code
@item --list-transitive
@itemx -T
List all the packages which one or more packages depend upon.
@example
@ -17984,7 +18059,7 @@ This is the service that sets up ``special files'' such as
@file{/bin/sh}; an instance of it is part of @code{%base-services}.
The value associated with @code{special-files-service-type} services
must be a list of tuples where the first element is the ``special file''
must be a list of two-element lists where the first element is the ``special file''
and the second element is its target. By default it is:
@cindex @file{/bin/sh}
@ -18398,7 +18473,7 @@ The Kmscon package to use.
@cindex @abbr{nscd, name service cache daemon}
@defvar nscd-service-type
Type of the service that runs the libc @abbr{nscd, name service cache
daemon}, whose value is a @code{<nscd-configuration>} object.
daemon}, whose value is an @code{<nscd-configuration>} object.
For convenience, the Shepherd service for nscd provides the following actions:
@ -18926,7 +19001,7 @@ seconds for the negative lookups. @xref{Invoking guix publish,
@end deftp
@defvar rngd-service-type
Type of the service that runs rng-tools rngd, whose value is a
Type of the service that runs rng-tools rngd, whose value is an
@code{<rngd-configuration>} object.
@end defvar
@ -18944,7 +19019,6 @@ will fail if @var{device} does not exist.
@end table
@end deftp
@anchor{pam-limits-service}
@cindex session limits
@cindex ulimit
@cindex priority
@ -18952,22 +19026,23 @@ will fail if @var{device} does not exist.
@cindex jackd
@cindex nofile
@cindex open file descriptors
@deffn {Scheme Procedure} pam-limits-service [#:limits @code{'()}]
Return a service that installs a configuration file for the
@anchor{pam-limits-service-type}
@defvar pam-limits-service-type
Type of the service that installs a configuration file for the
@uref{http://linux-pam.org/Linux-PAM-html/sag-pam_limits.html,
@code{pam_limits} module}. The procedure optionally takes a list of
@code{pam-limits-entry} values, which can be used to specify
@code{pam_limits} module}. The value for this service type is
a list of @code{pam-limits-entry} values, which can be used to specify
@code{ulimit} limits and @code{nice} priority limits to user sessions.
By default, the value is the empty list.
The following limits definition sets two hard and soft limits for all
login sessions of users in the @code{realtime} group:
@lisp
(pam-limits-service
(list
(pam-limits-entry "@@realtime" 'both 'rtprio 99)
(pam-limits-entry "@@realtime" 'both 'memlock 'unlimited)))
(service pam-limits-service-type
(list
(pam-limits-entry "@@realtime" 'both 'rtprio 99)
(pam-limits-entry "@@realtime" 'both 'memlock 'unlimited)))
@end lisp
The first entry increases the maximum realtime priority for
@ -18979,9 +19054,9 @@ Another useful example is raising the maximum number of open file
descriptors that can be used:
@lisp
(pam-limits-service
(list
(pam-limits-entry "*" 'both 'nofile 100000)))
(service pam-limits-service-type
(list
(pam-limits-entry "*" 'both 'nofile 100000)))
@end lisp
In the above example, the asterisk means the limit should apply to any
@ -18990,7 +19065,7 @@ maximum system value visible in the @file{/proc/sys/fs/file-max} file,
else the users would be prevented from login in. For more information
about the Pluggable Authentication Module (PAM) limits, refer to the
@samp{pam_limits} man page from the @code{linux-pam} package.
@end deffn
@end defvar
@defvar greetd-service-type
@uref{https://git.sr.ht/~kennylevinsen/greetd, @code{greetd}} is a minimal and
@ -19372,12 +19447,18 @@ specifications,, mcron,GNU@tie{}mcron}).
@item @code{log?} (default: @code{#t}) (type: boolean)
Log messages to standard output.
@item @code{log-file} (default: @code{"/var/log/mcron.log"}) (type: string)
Log file location.
@item @code{log-format} (default: @code{"~1@@*~a ~a: ~a~%"}) (type: string)
@code{(ice-9 format)} format string for log messages. The default value
produces messages like "@samp{@var{pid} @var{name}: @var{message}"}
produces messages like @samp{@var{pid} @var{name}: @var{message}}
(@pxref{Invoking mcron, Invoking,, mcron,GNU@tie{}mcron}). Each message
is also prefixed by a timestamp by GNU Shepherd.
@item @code{date-format} (type: maybe-string)
@code{(srfi srfi-19)} format string for date.
@end table
@end deftp
@c %end of fragment
@ -26210,7 +26291,7 @@ variables.
@defvar getmail-service-type
This is the type of the @uref{http://pyropus.ca/software/getmail/, Getmail}
mail retriever, whose value should be an @code{getmail-configuration}.
mail retriever, whose value should be a @code{getmail-configuration}.
@end defvar
Available @code{getmail-configuration} fields are:
@ -29784,6 +29865,11 @@ started.
@item @code{log-directory} (default: @code{"/var/log/nginx"})
The directory to which NGinx will write log files.
@item @code{log-level} (default: @code{'error}) (type: symbol)
Logging level, which can be any of the following values: @code{'debug},
@code{'info}, @code{'notice}, @code{'warn}, @code{'error}, @code{'crit},
@code{'alert}, or @code{'emerg}.
@item @code{run-directory} (default: @code{"/var/run/nginx"})
The directory in which NGinx will create a pid file, and write temporary
files.
@ -31410,7 +31496,7 @@ The list of knot-zone-configuration used by this configuration.
@defvar knot-resolver-service-type
This is the type of the knot resolver service, whose value should be
an @code{knot-resolver-configuration} object as in this example:
a @code{knot-resolver-configuration} object as in this example:
@lisp
(service knot-resolver-service-type
@ -31447,7 +31533,7 @@ Number of milliseconds for @code{kres-cache-gc} to periodically trim the cache.
@subsubheading Dnsmasq Service
@defvar dnsmasq-service-type
This is the type of the dnsmasq service, whose value should be an
This is the type of the dnsmasq service, whose value should be a
@code{dnsmasq-configuration} object as in this example:
@lisp
@ -33440,17 +33526,20 @@ Data type representing the configuration of @command{mpd}.
@item @code{package} (default: @code{mpd}) (type: file-like)
The MPD package.
@item @code{user} (default: @code{"mpd"}) (type: string)
@item @code{user} (default: @code{%mpd-user}) (type: user-account)
The user to run mpd as.
@item @code{group} (default: @code{"mpd"}) (type: string)
The default @code{%mpd-user} is a system user with the name ``mpd'',
who is a part of the group @var{group} (see below).
@item @code{group} (default: @code{%mpd-group}) (type: user-group)
The group to run mpd as.
The default @code{%mpd-group} is a system group with name ``mpd''.
@item @code{shepherd-requirement} (default: @code{()}) (type: list-of-symbol)
This is a list of symbols naming Shepherd services that this service
A list of symbols naming Shepherd services that this service
will depend on.
@item @code{environment-variables} (default: @code{()}) (type: list-of-string)
@item @code{environment-variables} (default: @code{("PULSE_CLIENTCONFIG=/etc/pulse/client.conf" "PULSE_CONFIG=/etc/pulse/daemon.conf")}) (type: list-of-strings)
A list of strings specifying environment variables.
@item @code{log-file} (default: @code{"/var/log/mpd/log"}) (type: maybe-string)
@ -33481,7 +33570,7 @@ The location of the sticker database.
@item @code{default-port} (default: @code{6600}) (type: maybe-integer)
The default port to run mpd on.
@item @code{endpoints} (type: maybe-list-of-string)
@item @code{endpoints} (type: maybe-list-of-strings)
The addresses that mpd will bind to. A port different from @var{default-port}
may be specified, e.g. @code{localhost:6602} and IPv6 addresses must be
enclosed in square brackets when a different port is used.
@ -33681,12 +33770,15 @@ The package object of the myMPD server.
This is a list of symbols naming Shepherd services that this service
will depend on.
@item @code{user} (default: @code{"mympd"}) (type: string)
@item @code{user} (default: @code{%mympd-user}) (type: user-account)
Owner of the @command{mympd} process.
@item @code{group} (default: @code{"nogroup"}) (type: string)
The default @code{%mympd-user} is a system user with the name ``mympd'',
who is a part of the group @var{group} (see below).
@item @code{group} (default: @code{%mympd-group}) (type: user-group)
Owner group of the @command{mympd} process.
The default @code{%mympd-group} is a system group with name ``mympd''.
@item @code{work-directory} (default: @code{"/var/lib/mympd"}) (type: string)
Where myMPD will store its data.
@ -33757,10 +33849,10 @@ Whether to preserve caches between service restarts.
Available @code{mympd-ip-acl} fields are:
@table @asis
@item @code{allow} (default: @code{()}) (type: list-of-string)
@item @code{allow} (default: @code{()}) (type: list-of-strings)
Allowed IP addresses.
@item @code{deny} (default: @code{()}) (type: list-of-string)
@item @code{deny} (default: @code{()}) (type: list-of-strings)
Disallowed IP addresses.
@end table
@ -37434,6 +37526,68 @@ notifications.
@end table
@end deftp
@subsubheading fstrim Service
@cindex fstrim service
@cindex solid state drives, periodic trim
@cindex solid state drives, trim
The command @command{fstrim} can be used to discard (or @dfn{trim})
unused blocks on a mounted file system.
@c This was copied from the fstrim manpage, with some Texinfo touch-ups.
@quotation Warning
Running @command{fstrim} frequently, or even using
@command{mount -o discard}, might negatively affect the lifetime of
poor-quality SSD devices. For most desktop and server systems a
sufficient trimming frequency is once a week. Note that not all devices
support a queued trim, so each trim command incurs a performance penalty
on whatever else might be trying to use the disk at the time.
@end quotation
@defvar fstrim-service-type
Type for a service that periodically runs @command{fstrim}, whose value must
be an @code{<fstrim-configuration>} object. The service can be instantiated
in its default configuration with:
@lisp
(service fstrim-service-type)
@end lisp
@end defvar
@c %start of fragment
@deftp {Data Type} fstrim-configuration
Available @code{fstrim-configuration} fields are:
@table @asis
@item @code{package} (default: @code{util-linux}) (type: file-like)
The package providing the @command{fstrim} command.
@item @code{schedule} (default: @code{"0 0 * * 0"}) (type: mcron-time)
Schedule for launching @command{fstrim}. This can be a procedure, a
list or a string. For additional information, see @ref{Guile
Syntax,,Job specification,mcron,the mcron manual}. By default this is
set to run weekly on Sunday at 00:00.
@item @code{listed-in} (default: @code{("/etc/fstab" "/proc/self/mountinfo")}) (type: maybe-list-of-strings)
List of files in fstab or kernel mountinfo format. All missing or empty
files are silently ignored. The evaluation of the list @emph{stops}
after the first non-empty file. File systems with
@code{X-fstrim.notrim} mount option in fstab are skipped.
@item @code{verbose?} (default: @code{#t}) (type: boolean)
Verbose execution.
@item @code{quiet-unsupported?} (default: @code{#t}) (type: boolean)
Suppress error messages if trim operation (ioctl) is unsupported.
@item @code{extra-arguments} (type: maybe-list-of-strings)
Extra options to append to @command{fstrim} (run @samp{man fstrim} for
more information).
@end table
@end deftp
@c %end of fragment
@cindex modprobe
@cindex kernel module loader
@subsubheading Kernel Module Loader Service
@ -38523,11 +38677,12 @@ However, most other programs that can talk HTTPS---@command{wget},
certificates can be found.
@cindex @code{nss-certs}
In Guix, this is done by adding a package that provides certificates
to the @code{packages} field of the @code{operating-system} declaration
(@pxref{operating-system Reference}). Guix includes one such package,
@code{nss-certs}, which is a set of CA certificates provided as part of
Mozilla's Network Security Services.
For users of Guix System, this is done by adding a package that
provides certificates to the @code{packages} field of the
@code{operating-system} declaration (@pxref{operating-system
Reference}). Guix includes one such package, @code{nss-certs}, which
is a set of CA certificates provided as part of Mozilla's Network
Security Services.
Note that it is @emph{not} part of @code{%base-packages}, so you need to
explicitly add it. The @file{/etc/ssl/certs} directory, which is where
@ -41103,7 +41258,7 @@ A clause can have one of the following forms:
(@var{field-name}
(@var{type} @var{default-value})
@var{documentation}
@var{serializer})
(serializer @var{serializer}))
(@var{field-name}
(@var{type})
@ -41112,7 +41267,18 @@ A clause can have one of the following forms:
(@var{field-name}
(@var{type})
@var{documentation}
@var{serializer})
(serializer @var{serializer}))
(@var{field-name}
(@var{type})
@var{documentation}
(sanitizer @var{sanitizer})
(@var{field-name}
(@var{type})
@var{documentation}
(sanitizer @var{sanitizer})
(serializer @var{serializer}))
@end example
@var{field-name} is an identifier that denotes the name of the field in
@ -41135,6 +41301,20 @@ an object of the record type.
@var{documentation} is a string formatted with Texinfo syntax which
should provide a description of what setting this field does.
@var{sanitizer} is a procedure which takes one argument,
a user-supplied value, and returns a ``sanitized'' value for the field.
If no sanitizer is specified, a default sanitizer is used, which raises
an error if the value is not of type @var{type}.
An example of a sanitizer for a field that accepts both strings and
symbols looks like this:
@lisp
(define (sanitize-foo value)
(cond ((string? value) value)
((symbol? value) (symbol->string value))
(else (error "bad value"))))
@end lisp
@var{serializer} is the name of a procedure which takes two arguments,
the first is the name of the field, and the second is the value
corresponding to the field. The procedure should return a string or
@ -41671,11 +41851,12 @@ services)}.
* Power Management: Power Management Home Services. Services for battery power.
* Shepherd: Shepherd Home Service. Managing User's Daemons.
* SSH: Secure Shell. Setting up the secure shell client.
* GPG: GNU Privacy Guard. Setting up GPG and related tools.
* Desktop: Desktop Home Services. Services for graphical environments.
* Guix: Guix Home Services. Services for Guix.
* Fonts: Fonts Home Services. Services for managing User's fonts.
* Sound: Sound Home Services. Dealing with audio.
* Messaging: Messaging Home Services. Services for managing messaging.
* Messaging: Messaging Home Services. Services for managing messaging.
* Media: Media Home Services. Services for managing media.
@end menu
@c In addition to that Home Services can provide
@ -42108,7 +42289,7 @@ for home services is that they have to be declared in a
record.
@defvar home-mcron-service-type
This is the type of the @code{mcron} home service, whose value is an
This is the type of the @code{mcron} home service, whose value is a
@code{home-mcron-configuration} object. It allows to manage scheduled
tasks.
@ -42441,19 +42622,22 @@ The @uref{https://www.openssh.com, OpenSSH package} includes a daemon,
the @command{ssh-agent} command, that manages keys to connect to remote
machines using the @acronym{SSH, secure shell} protocol. With the
@code{(gnu home services ssh-agent)} service, you can configure the
OpenSSH ssh-agent to run upon login.
OpenSSH ssh-agent to run upon login. @xref{GNU Privacy Guard,
@code{home-gpg-agent-service-type}}, for an alternative to OpenSSH's
@command{ssh-agent}.
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-ssh-agent-service-type
(home-ssh-agent-configuration
(extra-options '("-t" "1h30m"))))
(home-ssh-agent-configuration
(extra-options '("-t" "1h30m"))))
@end lisp
@defvar home-ssh-agent-service-type
This is the type of the @code{git daemon} home service, whose value is an
This is the type of the @code{ssh-agent} home service, whose value is a
@code{home-ssh-agent-configuration} object.
@end defvar
@ -42461,8 +42645,8 @@ This is the type of the @code{git daemon} home service, whose value is an
Available @code{home-ssh-agent-configuration} fields are:
@table @asis
@item @code{git} (default: @code{git}) (type: file-like)
The git package to use.
@item @code{openssh} (default: @code{openssh}) (type: file-like)
The OpenSSH package to use.
@item @code{socket-directory} (default: @code{@env{XDG_RUNTIME_DIR}/ssh-agent"}) (type: gexp)
The directory to write the ssh-agent's @file{socket} file.
@ -42474,6 +42658,87 @@ Extra options will be passed to @command{ssh-agent}, please run
@end table
@end deftp
@node GNU Privacy Guard
@subsection GNU Privacy Guard
@cindex GNU Privacy Guard, Home service
@cindex GPG, Home service
The @code{(gnu home services gnupg)} modules provides services that help
you set up the GNU Privacy Guard, also known as GnuPG or GPG, in your
home environment.
@cindex gpg-agent, Home service
@cindex SSH agent, with gpg-agent
The @code{gpg-agent} service configures and sets up GPG's agent, the
program that is responsible for managing OpenPGP private keys and,
optionally, OpenSSH (secure shell) private keys (@pxref{Invoking
GPG-AGENT,,, gnupg, Using the GNU Privacy Guard}).
As an example, here is how you would configure @code{gpg-agent} with SSH
support such that it uses the Emacs-based Pinentry interface when
prompting for a passphrase:
@lisp
(service home-gpg-agent-service-type
(home-gpg-agent-configuration
(pinentry-program
(file-append pinentry-emacs "/bin/pinentry-emacs"))
(ssh-support? #t)))
@end lisp
The service reference is given below.
@defvar home-gpg-agent-service-type
This is the service type for @command{gpg-agent} (@pxref{Invoking
GPG-AGENT,,, gnupg, Using the GNU Privacy Guard}). Its value must be a
@code{home-gpg-agent-configuration}, as shown below.
@end defvar
@c %start of fragment
@deftp {Data Type} home-gpg-agent-configuration
Available @code{home-gpg-agent-configuration} fields are:
@table @asis
@item @code{gnupg} (default: @code{gnupg}) (type: file-like)
The GnuPG package to use.
@item @code{pinentry-program} (type: file-like)
Pinentry program to use. Pinentry is a small user interface that
@command{gpg-agent} delegates to anytime it needs user input for a
passphrase or @acronym{PIN,personal identification number}
(@pxref{Top,,, pinentry,Using the PIN-Entry}).
@item @code{ssh-support?} (default: @code{#f}) (type: boolean)
Whether to enable @acronym{SSH,secure shell} support. When true,
@command{gpg-agent} acts as a drop-in replacement for OpenSSH's
@command{ssh-agent} program, taking care of OpenSSH secret keys and
directing passphrase requests to the chosen Pinentry program.
@item @code{default-cache-ttl} (default: @code{600}) (type: integer)
Time a cache entry is valid, in seconds.
@item @code{max-cache-ttl} (default: @code{7200}) (type: integer)
Maximum time a cache entry is valid, in seconds. After this time a
cache entry will be expired even if it has been accessed recently.
@item @code{default-cache-ttl-ssh} (default: @code{1800}) (type: integer)
Time a cache entry for SSH keys is valid, in seconds.
@item @code{max-cache-ttl-ssh} (default: @code{7200}) (type: integer)
Maximum time a cache entry for SSH keys is valid, in seconds.
@item @code{extra-content} (default: @code{""}) (type: raw-configuration-string)
Raw content to add to the end of @file{~/.gnupg/gpg-agent.conf}.
@end table
@end deftp
@c %end of fragment
@node Desktop Home Services
@subsection Desktop Home Services
@ -42811,7 +43076,7 @@ to the @code{services} field of your @code{home-environment}:
@end lisp
@defvar home-znc-service-type
This is the type of the @code{git daemon} home service, whose value is an
This is the type of the ZNC home service, whose value is a
@code{home-znc-configuration} object.
@end defvar
@ -42819,8 +43084,8 @@ This is the type of the @code{git daemon} home service, whose value is an
Available @code{home-znc-configuration} fields are:
@table @asis
@item @code{git} (default: @code{git}) (type: file-like)
The git package to use.
@item @code{znc} (default: @code{znc}) (type: file-like)
The ZNC package to use.
@item @code{extra-options} (default: @code{'()})
Extra options will be passed to @command{znc}, please run @command{man
@ -42833,9 +43098,9 @@ znc} for more information.
@subsection Media Home Services
@cindex kodi
The @uref{https://kodi.tv, KODI media center} can be run as a daemon on
The @uref{https://kodi.tv, Kodi media center} can be run as a daemon on
a media server. With the @code{(gnu home services kodi)} service, you
can configure KODI to run upon login.
can configure Kodi to run upon login.
Here is an example of a service and its configuration that you could add
to the @code{services} field of your @code{home-environment}:
@ -42847,7 +43112,7 @@ to the @code{services} field of your @code{home-environment}:
@end lisp
@defvar home-kodi-service-type
This is the type of the @code{git daemon} home service, whose value is an
This is the type of the Kodi home service, whose value is a
@code{home-kodi-configuration} object.
@end defvar
@ -42855,8 +43120,8 @@ This is the type of the @code{git daemon} home service, whose value is an
Available @code{home-kodi-configuration} fields are:
@table @asis
@item @code{git} (default: @code{git}) (type: file-like)
The git package to use.
@item @code{kodi} (default: @code{kodi}) (type: file-like)
The Kodi package to use.
@item @code{extra-options} (default: @code{'()})
Extra options will be passed to @command{kodi}, please run @command{man

17
etc/guix-install.sh
View File

@ -11,6 +11,7 @@
# Copyright © 2021 Chris Marusich <cmmarusich@gmail.com>
# Copyright © 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
# Copyright © 2022 Prafulla Giri <prafulla.giri@protonmail.com>
# Copyright © 2023 Andrew Tropin <andrew@trop.in>
#
# This file is part of GNU Guix.
#
@ -549,15 +550,19 @@ export PATH="$_GUIX_PROFILE/bin${PATH:+:}$PATH"
# searches 'Info-default-directory-list'.
export INFOPATH="$_GUIX_PROFILE/share/info:$INFOPATH"
# GUIX_PROFILE: User's default profile
# Prefer the one from 'guix home' if it exists.
# GUIX_PROFILE: User's default profile and home profile
GUIX_PROFILE="$HOME/.guix-profile"
[ -f "$GUIX_PROFILE/etc/profile" ] && . "$GUIX_PROFILE/etc/profile"
[ -L "$GUIX_PROFILE" ] || \
GUIX_LOCPATH="$GUIX_PROFILE/lib/locale:${GUIX_LOCPATH:+:}$GUIX_LOCPATH"
GUIX_PROFILE="$HOME/.guix-home/profile"
[ -L $GUIX_PROFILE ] || GUIX_PROFILE="$HOME/.guix-profile"
[ -L $GUIX_PROFILE ] || return
GUIX_LOCPATH="$GUIX_PROFILE/lib/locale"
[ -f "$GUIX_PROFILE/etc/profile" ] && . "$GUIX_PROFILE/etc/profile"
[ -L "$GUIX_PROFILE" ] || \
GUIX_LOCPATH="$GUIX_PROFILE/lib/locale:${GUIX_LOCPATH:+:}$GUIX_LOCPATH"
export GUIX_LOCPATH
[ -f "$GUIX_PROFILE/etc/profile" ] && . "$GUIX_PROFILE/etc/profile"
EOF
}

76
etc/news.scm
View File

@ -16,7 +16,7 @@
;; Copyright © 2021, 2022 Maxime Devos <maximedevos@telenet.be>
;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;; Copyright © 2021 Andrew Tropin <andrew@trop.in>
;; Copyright © 2021 Jonathan Brielmaier <jonathan.brielmaier@web.de>
;; Copyright © 2021, 2023 Jonathan Brielmaier <jonathan.brielmaier@web.de>
;; Copyright © 2022 Thiago Jung Bauermann <bauermann@kolabnow.com>
;;
;; Copying and distribution of this file, with or without modification, are
@ -26,6 +26,80 @@
(channel-news
(version 0)
(entry (commit "21564fada141bfba25d471518b293b6004244c3a")
(title
(en "Linux-libre LTS kernel updated to 6.1")
(de "Linux-libre LTS Kernel wird auf 6.1 aktualisiert"))
(body
(en "The default version of the @code{linux-libre-lts} kernel has been
updated to the 6.1 longterm release series.")
(de "Der standardmäßig verwendete @code{linux-libre-lts}-Kernel basiert
jetzt auf der 6.1-Versionsreihe (Langzeitunterstützung).")))
(entry (commit "57db09aae73e3713a10c5253758d84e1046f80dc")
(title
(en "Using Guix within @command{guix shell --container}")
(de "Guix innerhalb @command{guix shell --container} nutzen")
(fr "Utilisation de Guix dans @command{guix shell --container}"))
(body
(en "The @option{--container} (or @option{-C}) option lets you spawn
a container---an isolated software environment. In some cases, it is useful
to use Guix from within the container, something that is normally not
possible.
The new @option{--nesting} (or @option{-W}) option lets you do exactly that: a
container created with that option will let you use @command{guix} commands,
including @command{guix shell -C}, @emph{inside} of it.
The example below shows how to evaluate a @file{guix.scm} file to build a
package from within an isolated container, which is useful if @file{guix.scm}
is untrusted:
@example
guix shell -CW -- guix build -f guix.scm
@end example
Run @command{info \"(guix) Invoking guix shell\"} for more information.")
(de "Mit der Befehlszeilenoption @option{--container} (oder
@option{-C}) können Sie Container anlegen, also isolierte
Software-Umgebungen. Allerdings will man manchmal Guix innerhalb eines
Containers nutzen, was unmöglich ist, wenn Sie es normal aufrufen.
Die neue Befehlszeilenoption @option{--nesting} (oder @option{-W}) ergänzt
genau das: In einem damit angelegten Container lassen sich
@command{guix}-Befehle, einschließlich @command{guix shell -C}, @emph{im
Container} benutzen.
Folgendes Beispiel zeigt, wie Sie eine Datei @file{guix.scm} auswerten lassen,
um ein Paket aus dem isolierten Container heraus erstellen zu lassen. Das
können Sie gebrauchen, wenn Sie @file{guix.scm} @emph{nicht} vertrauen:
@example
guix shell -CW -- guix build -f guix.scm
@end example
Führen Sie @command{info \"(guix.de) Aufruf von guix shell\"} aus, um mehr
zu erfahren.")
(fr "L'option @option{--container} (ou @option{-C}) permet de
démarrer un conteneur---un environnement logiciel isolé. Dans certains cas,
il peut être utile d'utiliser Guix à l'intérieur du conteneur, ce qui n'est
normalement pas possible.
La nouvelle option @option{--nesting} (ou @option{-W}) résoud ce problème : un
conteneur créé avec cette option permet d'utiliser des commandes
@command{guix} à l'intérieur, y compris @command{guix shell -C}.
L'exemple ci-dessous montre comment évaluer un fichier @file{guix.scm} pour
construire un paquet depuis un conteneur isolé, ce qui est utile si
@file{guix.scm} n'est pas de confiance :
@example
guix shell -CW -- guix build -f guix.scm
@end example
Lancer @command{info \"(guix.fr) Invoquer guix shell\"} pour plus
d'informations.")))
(entry (commit "0e18c5e5bcb9204c278cfc75493d3b02b746d5c3")
(title
(en "Linux-libre kernel updated to 6.2")

1
etc/release-manifest.scm
View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020-2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2023 Andreas Enge <andreas@enge.fr>
;;;
;;; This file is part of GNU Guix.
;;;

32
etc/teams.scm.in
View File

@ -436,6 +436,21 @@ importer."
"Reproducible Builds tooling and issues that affect any guix packages."
#:scope (list "gnu/packages/diffoscope.scm")))
(define-team gnome
(team 'gnome
#:name "Gnome team"
#:description
"The Gnome desktop environment, along with core technologies such as
GLib/GIO, GTK, GStreamer and Webkit."
#:scope (list "gnu/packages/glib.scm"
"gnu/packages/gstreamer.scm"
"gnu/packages/gtk.scm"
"gnu/packages/gnome.scm"
"gnu/packages/gnome-xyz.scm"
"gnu/packages/webkit.scm"
"guix/build/glib-or-gtk-build-system.scm"
"guix/build/meson-build-system.scm")))
(define-team xfce
(team 'xfce
#:name "Xfce team"
@ -446,7 +461,8 @@ importer."
(team 'lxqt
#:name "LXQt team"
#:description "LXQt desktop environment."
#:scope (list "gnu/packages/lxqt.scm")))
#:scope (list "gnu/packages/lxqt.scm"
"gnu/packages/qt.scm")))
(define-member (person "Eric Bavier"
@ -467,7 +483,7 @@ importer."
(define-member (person "Andreas Enge"
"andreas@enge.fr")
science)
lxqt science)
(define-member (person "Tobias Geerinckx-Rice"
"me@tobias.gr")
@ -511,7 +527,7 @@ importer."
(define-member (person "Liliana Marie Prikler"
"liliana.prikler@gmail.com")
emacs games)
emacs games gnome)
(define-member (person "Ricardo Wurmus"
"rekado@elephly.net")
@ -543,7 +559,7 @@ importer."
(define-member (person "Raghav Gururajan"
"rg@raghavgururajan.name")
mentors)
gnome mentors)
(define-member (person "宋文武"
"iyzsong@envs.net")
@ -553,6 +569,14 @@ importer."
"vagrant@reproducible-builds.org")
reproduciblebuilds)
(define-member (person "Zhu Zihao"
"all_but_last@163.com")
localization xfce)
(define-member (person "Maxim Cournoyer"
"maxim.cournoyer@gmail.com")
gnome)
(define (find-team name)
(or (hash-ref %teams (string->symbol name))

6
gnu/home/services/desktop.scm
View File

@ -2,6 +2,7 @@
;;; Copyright © 2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2022 ( <paren@disroot.org>
;;; Copyright © 2023 conses <contact@conses.eu>
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -37,7 +38,10 @@
home-dbus-service-type
home-unclutter-configuration
home-unclutter-service-type))
home-unclutter-service-type
home-xmodmap-configuration
home-xmodmap-service-type))
;;;

150
gnu/home/services/gnupg.scm 100644
View File

@ -0,0 +1,150 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2023 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu home services gnupg)
#:use-module (guix gexp)
#:use-module ((guix records) #:select (match-record))
#:use-module (gnu services)
#:use-module (gnu services configuration)
#:use-module (gnu home services)
#:use-module (gnu home services shepherd)
#:autoload (gnu packages gnupg) (gnupg pinentry)
#:export (home-gpg-agent-configuration
home-gpg-agent-configuration?
home-gpg-agent-configuration-gnupg
home-gpg-agent-configuration-pinentry-program
home-gpg-agent-configuration-ssh-support?
home-gpg-agent-configuration-default-cache-ttl
home-gpg-agent-configuration-max-cache-ttl
home-gpg-agent-configuration-max-cache-ttl-ssh
home-gpg-agent-configuration-extra-content
home-gpg-agent-service-type))
(define raw-configuration-string? string?)
;; Configuration of 'gpg-agent'.
(define-configuration/no-serialization home-gpg-agent-configuration
(gnupg
(file-like gnupg)
"The GnuPG package to use.")
(pinentry-program
(file-like (file-append pinentry "/bin/pinentry-curses"))
"Pinentry program to use. Pinentry is a small user interface that
@command{gpg-agent} delegates to anytime it needs user input for a passphrase
or @acronym{PIN, personal identification number} (@pxref{Top,,, pinentry,
Using the PIN-Entry}).")
(ssh-support?
(boolean #f)
"Whether to enable @acronym{SSH, secure shell} support. When true,
@command{gpg-agent} acts as a drop-in replacement for OpenSSH's
@command{ssh-agent} program, taking care of OpenSSH secret keys and directing
passphrase requests to the chosen Pinentry program.")
(default-cache-ttl
(integer 600)
"Time a cache entry is valid, in seconds.")
(max-cache-ttl
(integer 7200)
"Maximum time a cache entry is valid, in seconds. After this time a cache
entry will be expired even if it has been accessed recently.")
(default-cache-ttl-ssh
(integer 1800)
"Time a cache entry for SSH keys is valid, in seconds.")
(max-cache-ttl-ssh
(integer 7200)
"Maximum time a cache entry for SSH keys is valid, in seconds.")
(extra-content
(raw-configuration-string "")
"Raw content to add to the end of @file{~/.gnupg/gpg-agent.conf}."))
(define (home-gpg-agent-configuration-file config)
"Return the @file{gpg-agent.conf} file for @var{config}."
(match-record config <home-gpg-agent-configuration>
(pinentry-program default-cache-ttl max-cache-ttl
default-cache-ttl-ssh max-cache-ttl-ssh
extra-content)
(mixed-text-file "gpg-agent.conf"
"pinentry-program " pinentry-program "\n"
"default-cache-ttl "
(number->string default-cache-ttl) "\n"
"max-cache-ttl "
(number->string max-cache-ttl) "\n"
"default-cache-ttl-ssh "
(number->string default-cache-ttl-ssh) "\n"
"max-cache-ttl-ssh "
(number->string max-cache-ttl-ssh) "\n"
extra-content)))
(define (home-gpg-agent-shepherd-services config)
"Return the possibly-empty list of Shepherd services for @var{config}."
(match-record config <home-gpg-agent-configuration>
(gnupg ssh-support?)
;; 'gpg-agent' is started on demand by GnuPG's programs, but it has to be
;; started explicitly when OpenSSH support is enabled (info "(gnupg) Agent
;; Options").
(if ssh-support?
(let ((endpoint (lambda (name socket)
#~(endpoint
(make-socket-address
AF_UNIX
(string-append %user-runtime-dir
"/gnupg/" #$socket))
#:name #$name
#:socket-directory-permissions #o700))))
(list (shepherd-service
(provision '(gpg-agent ssh-agent))
(modules '((shepherd support))) ;for '%user-runtime-dir'
(start #~(make-systemd-constructor
(list #$(file-append gnupg "/bin/gpg-agent")
"--supervised" "--enable-ssh-support")
(list #$(endpoint "ssh" "S.gpg-agent.ssh")
#$(endpoint "browser" "S.gpg-agent.browser")
#$(endpoint "extra" "S.gpg-agent.extra")
;; #$(endpoint "scdaemon" "S.scdaemon")
#$(endpoint "std" "S.gpg-agent"))))
(stop #~(make-systemd-destructor))
(documentation "Start 'gpg-agent', the GnuPG passphrase
agent, with support for handling OpenSSH material."))))
'())))
(define (home-gpg-agent-files config)
`((".gnupg/gpg-agent.conf" ,(home-gpg-agent-configuration-file config))))
(define (home-gpg-agent-environment-variables config)
"Return GnuPG environment variables needed for @var{config}."
(if (home-gpg-agent-configuration-ssh-support? config)
`(("SSH_AUTH_SOCK"
. "$XDG_RUNTIME_DIR/gnupg/S.gpg-agent.ssh"))
'()))
(define home-gpg-agent-service-type
(service-type
(name 'home-gpg-agent)
(extensions
(list (service-extension home-files-service-type
home-gpg-agent-files)
(service-extension home-shepherd-service-type
home-gpg-agent-shepherd-services)
(service-extension home-environment-variables-service-type
home-gpg-agent-environment-variables)))
(default-value (home-gpg-agent-configuration))
(description
"Configure GnuPG's agent, @command{gpg-agent}, which is responsible for
managing OpenPGP and optionally SSH private keys. When SSH support is
enabled, @command{gpg-agent} acts as a drop-in replacement for OpenSSH's
@command{ssh-agent}.")))

12
gnu/home/services/shells.scm
View File

@ -133,7 +133,7 @@ Shell startup process will continue with
(environment-variables
(alist '())
"Association list of environment variables to set for the Zsh session."
serialize-posix-env-vars)
(serializer serialize-posix-env-vars))
(zshenv
(text-config '())
"List of file-like objects, which will be added to @file{.zshenv}.
@ -334,7 +334,7 @@ source ~/.profile
rules for the @code{home-environment-variables-service-type} apply
here (@pxref{Essential Home Services}). The contents of this field will be
added after the contents of the @code{bash-profile} field."
serialize-posix-env-vars)
(serializer serialize-posix-env-vars))
(aliases
(alist '())
"Association list of aliases to set for the Bash session. The aliases will be
@ -351,7 +351,7 @@ turns into
@example
alias ls=\"ls -alF\"
@end example"
bash-serialize-aliases)
(serializer bash-serialize-aliases))
(bash-profile
(text-config '())
"List of file-like objects, which will be added to @file{.bash_profile}.
@ -536,19 +536,19 @@ with text blocks from other extensions and the base service."))
(environment-variables
(alist '())
"Association list of environment variables to set in Fish."
serialize-fish-env-vars)
(serializer serialize-fish-env-vars))
(aliases
(alist '())
"Association list of aliases for Fish, both the key and the value
should be a string. An alias is just a simple function that wraps a
command, If you want something more akin to @dfn{aliases} in POSIX
shells, see the @code{abbreviations} field."
serialize-fish-aliases)
(serializer serialize-fish-aliases))
(abbreviations
(alist '())
"Association list of abbreviations for Fish. These are words that,
when typed in the shell, will automatically expand to the full text."
serialize-fish-abbreviations))
(serializer serialize-fish-abbreviations)))
(define (fish-files-service config)
`(("fish/config.fish"

22
gnu/home/services/xdg.scm
View File

@ -104,11 +104,11 @@ like sockets.")
Specification, but helps to make implementation of home services more
consistent.")
(state-home
(path "$HOME/.local/var/lib")
"Base directory for programs to store state files, like databases,
analogus to @file{/var/lib}, but for user. It is not a part of XDG
Base Directory Specification, but helps to make implementation of home
services more consistent."))
(path "$HOME/.local/state")
"Base directory for programs to store state data that should persist
between (application) restarts, such as logs, but are not important or
portable enough to the user to warrant storing them in
@env{XDG_DATA_HOME}."))
(define (home-xdg-base-directories-environment-variables-service config)
(map
@ -158,12 +158,12 @@ are no extensions use configuration instead."
(compose identity)
(extend last-extension-or-cfg)
(description "Configure XDG base directories. This
service introduces two additional variables @env{XDG_STATE_HOME},
@env{XDG_LOG_HOME}. They are not a part of XDG specification, at
least yet, but are convenient to have, it improves the consistency
between different home services. The services of this service-type is
instantiated by default, to provide non-default value, extend the
service-type (using @code{simple-service} for example).")))
service introduces an additional @env{XDG_LOG_HOME} variable. It's not
a part of XDG specification, at least yet, but are convenient to have,
it improves the consistency between different home services. The
services of this service-type is instantiated by default, to provide
non-default value, extend the service-type (using @code{simple-service}
for example).")))
(define (generate-home-xdg-base-directories-documentation)
(generate-documentation

22
gnu/local.mk
View File

@ -91,6 +91,7 @@ GNU_SYSTEM_MODULES = \
%D%/home/services/desktop.scm \
%D%/home/services/symlink-manager.scm \
%D%/home/services/fontutils.scm \
%D%/home/services/gnupg.scm \
%D%/home/services/guix.scm \
%D%/home/services/media.scm \
%D%/home/services/messaging.scm \
@ -501,6 +502,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/poedit.scm \
%D%/packages/polkit.scm \
%D%/packages/popt.scm \
%D%/packages/potassco.scm \
%D%/packages/printers.scm \
%D%/packages/profiling.scm \
%D%/packages/prolog.scm \
@ -781,6 +783,7 @@ GNU_SYSTEM_MODULES = \
%D%/tests/messaging.scm \
%D%/tests/networking.scm \
%D%/tests/package-management.scm \
%D%/tests/pam.scm \
%D%/tests/reconfigure.scm \
%D%/tests/rsync.scm \
%D%/tests/samba.scm \
@ -862,9 +865,6 @@ MODULES_NOT_COMPILED += \
patchdir = $(guilemoduledir)/%D%/packages/patches
dist_patch_DATA = \
%D%/packages/patches/a2ps-CVE-2001-1593.patch \
%D%/packages/patches/a2ps-CVE-2014-0466.patch \
%D%/packages/patches/a2ps-CVE-2015-8107.patch \
%D%/packages/patches/abcl-fix-build-xml.patch \
%D%/packages/patches/ableton-link-system-libraries-debian.patch \
%D%/packages/patches/abiword-explictly-cast-bools.patch \
@ -1027,6 +1027,7 @@ dist_patch_DATA = \
%D%/packages/patches/date-output-pkg-config-files.patch \
%D%/packages/patches/datefudge-gettimeofday.patch \
%D%/packages/patches/dbacl-include-locale.h.patch \
%D%/packages/patches/dbacl-icheck-multiple-definitions.patch \
%D%/packages/patches/dbus-helper-search-path.patch \
%D%/packages/patches/dbus-c++-gcc-compat.patch \
%D%/packages/patches/dbus-c++-threading-mutex.patch \
@ -1127,6 +1128,7 @@ dist_patch_DATA = \
%D%/packages/patches/fp16-implicit-double.patch \
%D%/packages/patches/fp16-system-libraries.patch \
%D%/packages/patches/fpc-reproducibility.patch \
%D%/packages/patches/fpm-newer-clamp-fix.patch \
%D%/packages/patches/freedink-engine-fix-sdl-hints.patch \
%D%/packages/patches/freeimage-libtiff-compat.patch \
%D%/packages/patches/freeimage-unbundle.patch \
@ -1195,7 +1197,6 @@ dist_patch_DATA = \
%D%/packages/patches/gdm-remove-hardcoded-xwayland-path.patch \
%D%/packages/patches/gdm-wayland-session-wrapper-from-env.patch \
%D%/packages/patches/gdm-pass-gdk-pixbuf-loader-env.patch \
%D%/packages/patches/geeqie-clutter.patch \
%D%/packages/patches/gemmi-fix-pegtl-usage.patch \
%D%/packages/patches/gemmi-fix-sajson-types.patch \
%D%/packages/patches/genimage-mke2fs-test.patch \
@ -1244,6 +1245,7 @@ dist_patch_DATA = \
%D%/packages/patches/glibc-2.29-git-updates.patch \
%D%/packages/patches/glibc-2.29-supported-locales.patch \
%D%/packages/patches/glibc-supported-locales.patch \
%D%/packages/patches/glslang-install-static-libs.patch \
%D%/packages/patches/gmp-arm-asm-nothumb.patch \
%D%/packages/patches/gmp-faulty-test.patch \
%D%/packages/patches/gnash-fix-giflib-version.patch \
@ -1292,6 +1294,7 @@ dist_patch_DATA = \
%D%/packages/patches/guile-fibers-epoll-instance-is-dead.patch \
%D%/packages/patches/guile-fibers-fd-finalizer-leak.patch \
%D%/packages/patches/guile-fibers-wait-for-io-readiness.patch \
%D%/packages/patches/guile-fix-invalid-unicode-handling.patch \
%D%/packages/patches/guile-gdbm-ffi-support-gdbm-1.14.patch \
%D%/packages/patches/guile-git-adjust-for-libgit2-1.2.0.patch \
%D%/packages/patches/guile-hurd-posix-spawn.patch \
@ -1322,6 +1325,7 @@ dist_patch_DATA = \
%D%/packages/patches/hdf-eos5-remove-gctp.patch \
%D%/packages/patches/hdf-eos5-fix-szip.patch \
%D%/packages/patches/hdf-eos5-fortrantests.patch \
%D%/packages/patches/heimdal-CVE-2022-45142.patch \
%D%/packages/patches/helm-fix-gcc-9-build.patch \
%D%/packages/patches/http-parser-CVE-2020-8287.patch \
%D%/packages/patches/htslib-for-stringtie.patch \
@ -1485,6 +1489,7 @@ dist_patch_DATA = \
%D%/packages/patches/lierolibre-newer-libconfig.patch \
%D%/packages/patches/lierolibre-remove-arch-warning.patch \
%D%/packages/patches/lierolibre-try-building-other-arch.patch \
%D%/packages/patches/libcdio-glibc-compat.patch \
%D%/packages/patches/linbox-fix-pkgconfig.patch \
%D%/packages/patches/linphone-desktop-without-sdk.patch \
%D%/packages/patches/linux-libre-infodocs-target.patch \
@ -1519,7 +1524,6 @@ dist_patch_DATA = \
%D%/packages/patches/lvm2-static-link.patch \
%D%/packages/patches/mailutils-variable-lookup.patch \
%D%/packages/patches/make-impure-dirs.patch \
%D%/packages/patches/mariadb-link-libatomic.patch \
%D%/packages/patches/mars-install.patch \
%D%/packages/patches/mars-sfml-2.3.patch \
%D%/packages/patches/mathjax-disable-webpack.patch \
@ -1536,6 +1540,7 @@ dist_patch_DATA = \
%D%/packages/patches/libmemcached-build-with-gcc7.patch \
%D%/packages/patches/libmhash-hmac-fix-uaf.patch \
%D%/packages/patches/libsigrokdecode-python3.9-fix.patch \
%D%/packages/patches/mecab-variable-param.patch \
%D%/packages/patches/memtest86+-build-reproducibly.patch \
%D%/packages/patches/mercurial-hg-extension-path.patch \
%D%/packages/patches/mercurial-openssl-compat.patch \
@ -1614,7 +1619,7 @@ dist_patch_DATA = \
%D%/packages/patches/onnx-skip-model-downloads.patch \
%D%/packages/patches/openbios-aarch64-riscv64-support.patch \
%D%/packages/patches/openboardview-use-system-imgui.patch \
%D%/packages/patches/openboardview-use-system-utf8.patch \
%D%/packages/patches/openboardview-use-system-mpc.patch \
%D%/packages/patches/openbox-python3.patch \
%D%/packages/patches/openfoam-4.1-cleanup.patch \
%D%/packages/patches/openjdk-9-pointer-comparison.patch \
@ -1633,6 +1638,7 @@ dist_patch_DATA = \
%D%/packages/patches/openssl-3.0-c-rehash-in.patch \
%D%/packages/patches/opentaxsolver-file-browser-fix.patch \
%D%/packages/patches/open-zwave-hidapi.patch \
%D%/packages/patches/orangeduck-mpc-fix-pkg-config.patch \
%D%/packages/patches/orpheus-cast-errors-and-includes.patch \
%D%/packages/patches/osip-CVE-2017-7853.patch \
%D%/packages/patches/ots-no-include-missing-file.patch \
@ -1737,7 +1743,6 @@ dist_patch_DATA = \
%D%/packages/patches/python-3-search-paths.patch \
%D%/packages/patches/python-3-fix-tests.patch \
%D%/packages/patches/python-3-hurd-configure.patch \
%D%/packages/patches/python-afdko-suppress-copyright-test.patch \
%D%/packages/patches/python-aionotify-0.2.0-py3.8.patch \
%D%/packages/patches/python-argcomplete-1.11.1-fish31.patch \
%D%/packages/patches/python-cross-compile.patch \
@ -1759,7 +1764,6 @@ dist_patch_DATA = \
%D%/packages/patches/python-pillow-CVE-2022-45199.patch \
%D%/packages/patches/python-pyfakefs-remove-bad-test.patch \
%D%/packages/patches/python-pyflakes-test-location.patch \
%D%/packages/patches/python2-pyopenssl-openssl-compat.patch \
%D%/packages/patches/python-flint-includes.patch \
%D%/packages/patches/python-libxml2-utf8.patch \
%D%/packages/patches/python-magic-python-bytecode.patch \
@ -1829,6 +1833,7 @@ dist_patch_DATA = \
%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 \
%D%/packages/patches/ruby-anystyle-data-immutable-install.patch \
%D%/packages/patches/ruby-anystyle-fix-dictionary-populate.patch \
@ -2012,6 +2017,7 @@ dist_patch_DATA = \
%D%/packages/patches/warsow-qfusion-fix-bool-return-type.patch \
%D%/packages/patches/wdl-link-libs-and-fix-jnetlib.patch \
%D%/packages/patches/webkitgtk-adjust-bubblewrap-paths.patch \
%D%/packages/patches/webkitgtk-libelogind.patch \
%D%/packages/patches/webrtc-audio-processing-big-endian.patch \
%D%/packages/patches/webrtc-for-telegram-desktop-fix-gcc12-cstdint.patch \
%D%/packages/patches/websocketpp-fix-for-cmake-3.15.patch \

58
gnu/packages/admin.scm
View File

@ -3438,6 +3438,52 @@ throughput (in the same interval).")
(home-page "http://dag.wiee.rs/home-made/dstat/")
(license license:gpl2+)))
(define-public dool
(package
(name "dool")
(version "1.1.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/scottchiefbaker/dool")
(commit (string-append "v" version))))
(file-name (git-file-name "dool" version))
(sha256
(base32 "13qq52lq7z3pl2mgrhwqh8c69p9x5rkyjqjswszd6vdbzm7zk7yq"))))
(build-system python-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'remove-symlinks-and-snap-packaging
;; Remove symlinks that make 'ensure-no-mtimes-pre-1980 fail.
(lambda _
(delete-file "examples/dstat.py")
(delete-file-recursively "packaging/snap")))
(delete 'build)
(replace 'install
(lambda _
(substitute* "install.py"
(("(bin_dir *= ?).*" _ prefix)
(string-append prefix "\"" #$output "/bin/\"\n"))
(("(plugin_dir *= ?).*" _ prefix)
(string-append prefix "\"" #$output "/share/dool/\"\n"))
(("(manpage_dir *= ?).*" _ prefix)
(string-append prefix "\"" #$output "/share/man/man1/\"\n")))
(invoke "python" "install.py" "--root")))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "./dool" "--version")
(invoke "./dool" "-taf" "1" "5")))))))
(synopsis "Command line system resource monitoring tool")
(description "Dool is a command line tool to monitor many aspects of your
system: CPU, Memory, Network, Load Average, etc. It also includes a robust
plug-in architecture to allow monitoring other system metrics.")
(home-page "https://github.com/scottchiefbaker/dool")
(license license:gpl2+)))
(define-public thefuck
(package
(name "thefuck")
@ -3512,7 +3558,7 @@ produce uniform output across heterogeneous networks.")
(define-public cbatticon
(package
(name "cbatticon")
(version "1.6.10")
(version "1.6.13")
(source
(origin
(method git-fetch)
@ -3520,7 +3566,7 @@ produce uniform output across heterogeneous networks.")
(url "https://github.com/valr/cbatticon")
(commit version)))
(sha256
(base32 "0ivm2dzhsa9ir25ry418r2qg2llby9j7a6m3arbvq5c3kaj8m9jr"))
(base32 "1xs37xrycvk0021r5l3xs4ijgf3lm25d2zhm8dppb5kx66xcj22m"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(arguments
@ -3935,7 +3981,7 @@ you are running, what theme or icon set you are using, etc.")
(define-public uwufetch
(package
(name "uwufetch")
(version "2.0")
(version "2.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -3944,7 +3990,7 @@ you are running, what theme or icon set you are using, etc.")
(file-name (git-file-name name version))
(sha256
(base32
"0s4pzaqmlq6rn54kgmlpcrc0sy3q5zn6lxh4448k9iimshljsjfs"))))
"182jwkm4vacz2bhyn7v4jl9bxs7md51az958r0qfp9ky71m2q3vh"))))
(build-system gnu-build-system)
(arguments
(list
@ -4152,7 +4198,7 @@ hard-coded.")
(define-public thermald
(package
(name "thermald")
(version "2.5.1")
(version "2.5.2")
(source
(origin
(method git-fetch)
@ -4161,7 +4207,7 @@ hard-coded.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "06p1154w3n4lm0nq8fdsr6ksxl8shrc9z8yz0sbviss9afpawxcg"))))
(base32 "08w0lanhk2rncvshrvxrpm84y9f9x7aa63vxi7fg6329c94cf78k"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags

90
gnu/packages/algebra.scm
View File

@ -12,7 +12,7 @@
;;; Copyright © 2020 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2020, 2021 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2020, 2021, 2023 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2021 Lars-Dominik Braun <ldb@leibniz-psychology.org>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
@ -34,6 +34,7 @@
(define-module (gnu packages algebra)
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
#:use-module (gnu packages bash)
#:use-module (gnu packages bison)
#:use-module (gnu packages boost)
#:use-module (gnu packages check)
@ -58,6 +59,7 @@
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages readline)
#:use-module (gnu packages ruby)
#:use-module (gnu packages shells)
#:use-module (gnu packages tex)
#:use-module (gnu packages texinfo)
@ -224,7 +226,7 @@ the real span of the lattice.")
(define-public pari-gp
(package
(name "pari-gp")
(version "2.15.2")
(version "2.15.3")
(source (origin
(method url-fetch)
(uri (string-append
@ -232,7 +234,7 @@ the real span of the lattice.")
version ".tar.gz"))
(sha256
(base32
"1pg0przhb3cgyn0rwkx2mx7a7fpy6bxxl72bk98pca723q8jhimh"))))
"0s4jasvb3ghvxp9s2ifmr0lk7ckj9529zg28icmdgbyd723abxdd"))))
(build-system gnu-build-system)
(native-inputs (list (texlive-updmap.cfg
(list texlive-amsfonts))))
@ -935,7 +937,7 @@ algorithms from the FORTRAN library MINPACK.")
(define-public symengine
(package
(name "symengine")
(version "0.9.0")
(version "0.10.1")
(source
(origin
(method git-fetch)
@ -944,7 +946,7 @@ algorithms from the FORTRAN library MINPACK.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "17b6byrhk0bgvarqmg92nrrqhzll9as6x1smghmyq2h9xc373ap4"))))
(base32 "0qy5w5msq0zy7drbhdy0vx451zglha8jm5s4zzmvmsja5yyv8fx9"))))
(build-system cmake-build-system)
(arguments
'(#:configure-flags
@ -1821,3 +1823,81 @@ mathematical floating-point libraries (libm). Amongst other features,
it offers a certified infinity norm, an automatic polynomial
implementer, and a fast Remez algorithm.")
(license license:cecill-c)))
(define-public form
;; using this commit as it removes some invalid/ambiguous license info
(let ((commit "e7c52d3b07abe21f21718f5e70ee138e856f15ac")
(revision "0"))
(package
(name "form")
(version (git-version "4.3.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/vermaseren/form")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"15pjpn5s8d3sva18syhyymh5v1dijchk0xkf6d0m7cl2sj3qxxxq"))))
(build-system gnu-build-system)
(arguments
(list #:configure-flags #~'("--enable-native=no")
#:phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-src
(lambda _
(substitute* "check/examples.frm"
;; skip test that causes memory leak and fails
(("#pend_if valgrind\\?")
"#pend_if 0"))
(substitute* "sources/extcmd.c"
(("/bin/sh")
(string-append
#$(this-package-input "bash-minimal")
"/bin/sh")))))
(add-after 'build 'build-doxygen
(lambda _
(with-directory-excursion "doc/doxygen"
(invoke "make" "html"))))
(add-after 'install 'install-docs
(lambda _
(let ((doc (string-append
#$output "/share/doc/" #$name "-"
#$version "/html")))
(mkdir-p doc)
(copy-recursively "doc/doxygen/html" doc)))))))
(native-inputs (list autoconf automake doxygen ruby))
(inputs (list bash-minimal))
(home-page "https://www.nikhef.nl/~form/")
(synopsis "Symbolic manipulation system for very big expressions")
(description
"FORM is a symbolic manipulation system. It reads symbolic expressions
from files and executes symbolic/algebraic transformations upon them. The
answers are returned in a textual mathematical representation. The size of
the considered expressions in FORM is only limited by the available disk space
and not by the available RAM.")
;; XXX: Ignore this CVE to work around a name clash with the unrelated
;; "neos/forms" package.
(properties '((lint-hidden-cve . ("CVE-2021-32697"))))
;; x86_64 only due to test failures on other platforms.
;; Developers say other platforms are not "tier 1" supported:
;; https://github.com/vermaseren/form/issues/426
(supported-systems '("x86_64-linux"))
(license license:gpl3+))))
(define-public parform
(package
(inherit form)
(name "parform")
(arguments
(substitute-keyword-arguments (package-arguments form)
((#:configure-flags flags)
#~(cons* "--enable-parform=yes" #$flags))
((#:phases phases)
#~(modify-phases #$phases
(add-before 'check 'mpi-setup
#$%openmpi-setup)))))
(inputs (list bash-minimal openmpi))
(description (string-append (package-description form)
" This package also includes
@code{parform}, a version of FORM parallelized using OpenMPI."))))

17
gnu/packages/android.scm
View File

@ -1169,25 +1169,22 @@ main repository.")
(define-public fdroidcl
(package
(name "fdroidcl")
(version "0.5.0")
(version "0.7.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mvdan/fdroidcl")
(commit (string-append "v" version))))
(url "https://github.com/mvdan/fdroidcl")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1rxcdyy2j34z0ql9d62w7ivsch9xihjnpb1z9kgy9q46vl8zhhy0"))))
(base32
"1s3fszlyyab9gbdrg52zcbafsb1mgb770skg7b3gj7f3pzfnra5n"))))
(build-system go-build-system)
(arguments
`(#:import-path "mvdan.cc/fdroidcl"
#:tests? #f ; TODO: Inputs missing.
#:tests? #f ;requires internet access
#:install-source? #f))
(inputs
(list go-github-com-kr-pretty))
;(native-inputs
; `(("go-github-com-rogpeppe-go-internal-testscript"
; ,go-github-com-rogpeppe-go-internal-testscript)))
(inputs (list go-github-com-kr-pretty go-github-com-schollz-progressbar-v3))
(synopsis "F-Droid desktop client")
(description
"While the Android client integrates with the system with regular update

99
gnu/packages/astronomy.scm
View File

@ -5,7 +5,7 @@
;;; Copyright © 2019 by Amar Singh <nly@disroot.org>
;;; Copyright © 2020 R Veera Kumar <vkor@vkten.in>
;;; Copyright © 2020, 2021 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2021, 2022 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2021, 2022, 2023 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2021, 2022 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2021 Greg Hogan <code@greghogan.com>
;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com>
@ -496,7 +496,7 @@ in FITS files.")
(("self.use_system_fitsio") "True")
(("self.system_fitsio_includedir") includedir)
(("self.system_fitsio_libdir") libdir))))))))
(inputs (list curl-minimal))
(inputs (list curl))
(propagated-inputs
(list python-numpy cfitsio))
(home-page "https://github.com/esheldon/fitsio")
@ -663,7 +663,7 @@ astronomical image-processing packages like Drizzle, Swarp or SExtractor.")
'(#:configure-flags '("--disable-static")))
(inputs
(list cfitsio
curl-minimal
curl
gsl
libgit2
libjpeg-turbo
@ -678,6 +678,70 @@ astronomical image-processing packages like Drizzle, Swarp or SExtractor.")
programs for the manipulation and analysis of astronomical data.")
(license license:gpl3+)))
(define-public phd2
(package
(name "phd2")
(version "2.6.11")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/OpenPHDGuiding/phd2")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0n87xsv9gzrwk1ygws4vw397ffq40xybp5b3c3bd5kcmff0avaw9"))
(modules '((guix build utils)
(ice-9 ftw)
(srfi srfi-26)))
(snippet
#~(begin
;; XXX: 'delete-all-but' is copied from the turbovnc package.
(define (delete-all-but directory . preserve)
(define (directory? x)
(and=> (stat x #f)
(compose (cut eq? 'directory <>) stat:type)))
(with-directory-excursion directory
(let* ((pred
(negate (cut member <> (append '("." "..") preserve))))
(items (scandir "." pred)))
(for-each (lambda (item)
(if (directory? item)
(delete-file-recursively item)
(delete-file item)))
items))))
(delete-all-but "thirdparty" "thirdparty.cmake")))))
(build-system cmake-build-system)
(arguments
(list #:configure-flags #~(list "-DOPENSOURCE_ONLY=yes"
"-DUSE_SYSTEM_CFITSIO=yes"
"-DUSE_SYSTEM_EIGEN3=yes"
"-DUSE_SYSTEM_GTEST=yes"
"-DUSE_SYSTEM_LIBINDI=yes"
"-DUSE_SYSTEM_LIBUSB=yes")))
(native-inputs
(list gettext-minimal
googletest
perl
pkg-config
python))
(inputs
(list cfitsio
curl
eigen
gtk+
indi
libnova
libusb
wxwidgets
zlib))
(home-page "https://openphdguiding.org")
(synopsis "Teleskope guiding software")
(description
"PHD2 is the enhanced, second generation version of the PHD guiding software
from Stark Labs.")
(license license:bsd-3)))
(define-public sextractor
(package
(name "sextractor")
@ -2057,6 +2121,35 @@ standard astronomy libraries:
@end itemize\n")
(license license:gpl2+))))
(define-public libxisf
(package
(name "libxisf")
;; TODO: v0.2.2 (current latest) failed to build on configure phase, issue
;; was open directly with author as he hosts source on seflhosted gitea.
(version "0.2.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitea.nouspiro.space/nou/libXISF")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0fz9mmj1nz5v7hlr53q8na7khadfn1hm0d1gfpzzw3167bqpy2xv"))))
(build-system cmake-build-system)
(arguments
(list #:configure-flags #~(list "-DUSE_BUNDLED_LIBS=OFF")))
(native-inputs
(list pkg-config))
(inputs
(list lz4 pugixml zlib))
(home-page "https://nouspiro.space/?page_id=306")
(synopsis "Astronomical library to load and write XISF file format")
(description
"LibXISF is C++ library that can read and write XISF files produced by
PixInsight. It implements XISF 1.0 specification.")
(license license:gpl3+)))
(define-public missfits
(package
(name "missfits")

154
gnu/packages/audio.scm
View File

@ -11,7 +11,7 @@
;;; Copyright © 2016–2023 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2018 okapi <okapi@firemail.cc>
;;; Copyright © 2018, 2020, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2018, 2020, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2018 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2018, 2019, 2022 Marius Bakke <marius@gnu.org>
@ -37,11 +37,12 @@
;;; Copyright © 2021 jgart <jgart@dismail.de>
;;; Copyright © 2021 Aleksandr Vityazev <avityazev@posteo.org>
;;; Copyright © 2022 Arjan Adriaanse <arjan@adriaan.se>
;;; Copyright © 2022 Juliana Sims <jtsims@protonmail.com>
;;; Copyright © 2022, 2023 Juliana Sims <jtsims@protonmail.com>
;;; Copyright © 2022 Simon Streit <simon@netpanic.org>
;;; Copyright © 2022 Andy Tai <atai@atai.org>
;;; Copyright © 2023 Sergiu Ivanov <sivanov@colimite.fr>
;;; Copyright © 2023 David Thompson <dthompson2@worcester.edu>
;;; Copyright © 2023 Sharlatan Hellseher <sharlatanus@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -66,8 +67,8 @@
#:use-module (gnu packages backup)
#:use-module (gnu packages base)
#:use-module (gnu packages bison)
#:use-module (gnu packages build-tools)
#:use-module (gnu packages boost)
#:use-module (gnu packages build-tools)
#:use-module (gnu packages check)
#:use-module (gnu packages compression)
#:use-module (gnu packages curl)
@ -86,6 +87,7 @@
#:use-module (gnu packages gnome)
#:use-module (gnu packages gnunet) ; libmicrohttpd
#:use-module (gnu packages gperf)
#:use-module (gnu packages graphviz)
#:use-module (gnu packages groff)
#:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk)
@ -95,6 +97,7 @@
#:use-module (gnu packages libbsd)
#:use-module (gnu packages libffi)
#:use-module (gnu packages libusb)
#:use-module (gnu packages linphone)
#:use-module (gnu packages linux)
#:use-module (gnu packages llvm)
#:use-module (gnu packages machine-learning)
@ -120,8 +123,6 @@
#:use-module (gnu packages serialization)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages telephony)
#:use-module (gnu packages linphone)
#:use-module (gnu packages linux)
#:use-module (gnu packages tls)
#:use-module (gnu packages valgrind)
#:use-module (gnu packages video)
@ -734,7 +735,7 @@ purposes developed at Queen Mary, University of London.")
(define-public ardour
(package
(name "ardour")
(version "7.2")
(version "7.3")
(source (origin
(method git-fetch)
(uri (git-reference
@ -751,7 +752,7 @@ purposes developed at Queen Mary, University of London.")
namespace ARDOUR { const char* revision = \"" version "\" ; const char* date = \"\"; }")))))
(sha256
(base32
"1gv0wkzyx59lbnaf5iz9yva4akrd2zkhsmdk8wda3wz06zmk4w1r"))
"0bkhrgswhc9y1ly8nfg8hpwad77cgbr663dgj86h3aisljc4cdkw"))
(file-name (string-append name "-" version))))
(build-system waf-build-system)
(arguments
@ -2061,7 +2062,7 @@ follower.")
(define-public fluidsynth
(package
(name "fluidsynth")
(version "2.2.4")
(version "2.3.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -2070,7 +2071,7 @@ follower.")
(file-name (git-file-name name version))
(sha256
(base32
"1061rdj69503spkd8vmfl3fqvyg4l41k5xcc4gw7niy31hnpnjmn"))))
"05lr9f0q4x1kvgfa3xrfmagpwvijv9m1s316aa9figqlkcc5vv4k"))))
(build-system cmake-build-system)
(arguments
'(#:tests? #f ; no check target
@ -2091,7 +2092,6 @@ follower.")
(list alsa-lib
glib
jack-1
lash
libsndfile
readline))
(home-page "https://www.fluidsynth.org/")
@ -2746,60 +2746,6 @@ plugin function as a JACK application.")
to be plugged into a wide range of audio synthesis and recording packages.")
(license license:lgpl2.1+)))
(define-public lash
(package
(name "lash")
(version "0.6.0-rc2")
(source (origin
(method url-fetch)
;; The tilde is not permitted in the builder name, but is used
;; in the tarball.
(uri (string-append
"mirror://savannah/lash/lash-"
(string-join (string-split version #\-) "~")
".tar.bz2"))
(file-name (string-append name "-" version ".tar.bz2"))
(sha256
(base32
"12z1vx3krrzsfccpah9xjs68900xvr7bw92wx8np5871i2yv47iw"))))
(build-system gnu-build-system)
(arguments
'(;; Glibc no longer includes Sun RPC support, so tell the build system
;; to use libtirpc instead.
#:make-flags (list (string-append "CFLAGS=-I"
(assoc-ref %build-inputs "libtirpc")
"/include/tirpc -ltirpc"))
#:phases
(modify-phases %standard-phases
;; lashd embeds an ancient version of sigsegv so we just skip it
(add-after 'unpack 'skip-lashd
(lambda _
(substitute* '("Makefile.am" "Makefile.in")
(("lashd ") ""))
#t)))
#:configure-flags '("--disable-static")))
(inputs
`(("bdb" ,bdb)
("gtk" ,gtk+-2)
("jack" ,jack-1)
("libtirpc" ,libtirpc)
("readline" ,readline)
("python" ,python-2)))
;; According to pkg-config, packages depending on lash also need to have
;; at least the following packages declared as inputs.
(propagated-inputs
(list alsa-lib dbus libxml2))
(native-inputs
(list pkg-config))
(home-page "https://www.nongnu.org/lash/")
(synopsis "Audio application session manager")
(description
"LASH is a session management system for audio applications. It allows
you to save and restore audio sessions consisting of multiple interconneced
applications, restoring program state (i.e. loaded patches) and the
connections between them.")
(license license:gpl2+)))
(define-public libbs2b
(package
(name "libbs2b")
@ -3312,7 +3258,7 @@ lv2-c++-tools.")
(define-public openal
(package
(name "openal")
(version "1.20.1")
(version "1.22.2")
(source (origin
(method url-fetch)
(uri (string-append
@ -3320,7 +3266,7 @@ lv2-c++-tools.")
version ".tar.bz2"))
(sha256
(base32
"0vax0b1lgd4212bpxa1rciz52d4mv3dkfvcbbhzw4cjp698v1kmn"))))
"081xgkma2a19dscwx21xdpklh8gq399w4f1fx737qsx7rnawr55f"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ; no check target
@ -4019,6 +3965,55 @@ compression modes. This package contains command-line programs and library to
encode and decode wavpack files.")
(license license:bsd-3)))
(define-public libmixed
;; Release is much outdated.
(let ((commit "91e6b9f2438bca41205fade02c9d8f4f938838b6")
(revision "0"))
(package
(name "libmixed")
(version (git-version "2.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Shirakumo/libmixed")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "01vwgv8ivpg7a4y95krkgh656mmklsn1k3fmhwp474aj82grd3m4"))))
(build-system cmake-build-system)
(arguments
(list
;; FIXME: (Sharlatan-20230326T121542+0100): Tests failed 1/34, 1 failed,
;; 33 passed. There is not simple way to disable just one test.
;; https://github.com/Shirakumo/libmixed/issues/13
#:tests? #f
#:configure-flags
#~(list "-DBUILD_STATIC=OFF"
"-DCMAKE_CXX_FLAGS=-O3 -fPIC"
"-DCMAKE_C_FLAGS=-O3 -fPIC")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda _
(substitute* "CMakeLists.txt"
(("/usr/local") #$output))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "./tester")))))))
(native-inputs (list doxygen graphviz))
(inputs (list mpg123 ncurses))
(home-page "https://github.com/Shirakumo/libmixed")
(synopsis "Low-level audio mixer pipeline library")
(description
"Libmixed is a library for real-time audio processing pipelines for use
in audio/video/games. It can serve as a base architecture for complex DSP
systems.")
(license (list license:bsd-2 ; libsamplerate
license:gpl2 ; spiralfft
license:zlib)))))
(define-public libmodplug
(package
(name "libmodplug")
@ -5512,6 +5507,25 @@ and VST3 plugin formats, plus SF2 and SFZ file support. It uses JACK as the
default and preferred audio driver but also supports native drivers like ALSA.")
(license license:gpl2+)))
;;; This package variant tracks the latest in-development 2.6 release.
(define-public carla-2.6
(let ((commit "aa400535b31c67f4b6c1b28e6e20e4d4f82111a3")
(revision "0"))
(package
(inherit carla)
(name "carla")
(version (git-version "2.6.0" revision commit))
(source
(origin
(method git-fetch)
(uri
(git-reference
(url "https://github.com/falkTX/Carla")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0cnj2sgr60f5h6wdfmihc214wf3n74686sipl3iyzmylqrcyhbjn")))))))
(define-public ecasound
(package
(name "ecasound")
@ -5558,7 +5572,7 @@ in the package.")
(define-public libaudec
(package
(name "libaudec")
(version "0.2.4")
(version "0.3.4")
(source
(origin
(method git-fetch)
@ -5568,7 +5582,7 @@ in the package.")
(file-name (git-file-name name version))
(sha256
(base32
"1570m2dfia17dbkhd2qhx8jjihrpm7g8nnyg6n4wif4vv229s7dz"))))
"02hhhpcfkycicygh6g9hzps255zkbbi33vks6yv6zk5wp9p2nspj"))))
(build-system meson-build-system)
(arguments
`(#:configure-flags
@ -6228,7 +6242,7 @@ and DSD streams.")
(define-public qpwgraph
(package
(name "qpwgraph")
(version "0.3.9")
(version "0.4.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -6237,7 +6251,7 @@ and DSD streams.")
(file-name (git-file-name name version))
(sha256
(base32
"1zdqgn2a139bazazbccpb65zn7qdynndwm9mafq54nkpa7n7lri8"))))
"0h5y8n9xm9ay1w53hb5mw6k5i1sm8spz1izmw6yya49gv2pwyhrj"))))
(build-system cmake-build-system)
(arguments (list #:tests? #f)) ;; no tests
(inputs (list alsa-lib

15
gnu/packages/backup.scm
View File

@ -1245,13 +1245,13 @@ compression parameters used by Gzip.")
(define-public borgmatic
(package
(name "borgmatic")
(version "1.5.22")
(version "1.7.9")
(source
(origin
(method url-fetch)
(uri (pypi-uri "borgmatic" version))
(sha256
(base32 "0pvqlj17vp81i7saxqh5hsaxqz29ldrjd7bcssh4g1h0ikmnaf2r"))))
(base32 "1scfh90qgv8xhafnnpl3pa9d8m4rg9xgvf21yybvmsnm5v1k2x5z"))))
(build-system python-build-system)
(arguments
(list #:phases
@ -1260,10 +1260,15 @@ compression parameters used by Gzip.")
(lambda* (#:key inputs #:allow-other-keys)
;; Set absolute store path to borg.
(substitute* "borgmatic/commands/borgmatic.py"
(("location\\.get\\('local_path', 'borg'\\)")
(string-append "location.get('local_path', '"
(("\\.get\\('local_path', 'borg'\\)")
(string-append ".get('local_path', '"
(search-input-file inputs "bin/borg")
"')")))))
"')")))
(substitute* "tests/unit/commands/test_borgmatic.py"
(("(module.get_local_path.+ == )'borg'" all start)
(string-append start "'"
(search-input-file inputs "bin/borg")
"'")))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?

43
gnu/packages/benchmark.scm
View File

@ -8,7 +8,7 @@
;;; Copyright © 2019, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2020 malte Frank Gerdes <malte.f.gerdes@gmail.com>
;;; Copyright © 2020, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020, 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Greg Hogan <code@greghogan.com>
;;; Copyright © 2021 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2022 Tomasz Jeneralczyk <tj@schwi.pl>
@ -382,39 +382,55 @@ setup against another one.")
(define-public python-locust
(package
(name "python-locust")
(version "2.8.6")
(version "2.15.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "locust" version))
(sha256
(base32
"1gn13j758j36knlcdyyyggn60rpw98iqdkvl3kjsz34brysic6q1"))))
"05cznfqda0yq2j351jjdssayvj5qc11xkbkwdvv81hcmz4xpyc56"))))
(build-system python-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'relax-requirements
(add-before 'check 'increase-resource-limits
(lambda _
(substitute* "setup.py"
(("setuptools_scm<=6.0.1")
"setuptools_scm")
(("Jinja2<3.1.0")
"Jinja2"))))
;; XXX: Copied from ungoogled-chromium.
;; Try increasing the soft resource limit of max open files to 2048,
;; or equal to the hard limit, whichever is lower.
(call-with-values (lambda () (getrlimit 'nofile))
(lambda (soft hard)
(when (and soft (< soft 2048))
(if hard
(setrlimit 'nofile (min hard 2048) hard)
(setrlimit 'nofile 2048 #f))
(format #t
"increased maximum number of open files from ~d to ~d~%"
soft (if hard (min hard 2048) 2048)))))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "python" "-m" "pytest" "locust"
"-k" (string-join
'(;; These tests return "non-zero exit status 1".
'( ;; These tests return "non-zero exit status 1".
"not test_default_headless_spawn_options"
"not test_default_headless_spawn_options_with_shape"
"not test_headless_spawn_options_wo_run_time"
;; These tests fail with a HTTP return code of
;; 500 instead of 200, for unknown reasons.
"not test_autostart_mutliple_locustfiles_with_shape"
"not test_autostart_w_load_shape"
"not test_autostart_wo_run_time"
"not test_percentile_parameter"
;; These tests depend on networking.
"not test_html_report_option"
"not test_json_schema"
"not test_web_options"
;; This test fails because of the warning "System open
;; file limit '1024' is below minimum setting '10000'".
;; These tests fail because of the warning
;; "System open file limit '1024' is below
;; minimum setting '10000'".
"not test_autostart_w_run_time"
"not test_skip_logging"
;; On some (slow?) machines, the following tests
;; fail, with the processes returning exit code
@ -433,7 +449,6 @@ setup against another one.")
python-flask-cors
python-gevent
python-geventhttpclient
python-jinja2
python-msgpack
python-psutil
python-pyzmq
@ -458,7 +473,7 @@ test any system or protocol.
Note: Locust will complain if the available open file descriptors limit for
the user is too low. To raise such limit on a Guix System, refer to
@samp{info guix --index-search=pam-limits-service}.")
@samp{info guix --index-search=pam-limits-service-type}.")
(license license:expat)))
(define-public interbench

547
gnu/packages/bioconductor.scm
View File

@ -640,6 +640,50 @@ from several related annotation packages.")
data.")
(license license:artistic2.0)))
(define-public r-illuminahumanmethylation450kmanifest
(package
(name "r-illuminahumanmethylation450kmanifest")
(version "0.4.0")
(source (origin
(method url-fetch)
(uri (bioconductor-uri
"IlluminaHumanMethylation450kmanifest"
version 'annotation))
(sha256
(base32
"0qx75xwifrbkqmbkd8dhf44c34ibmbivqh7y8rvgrsizmi5ybcj1"))))
(properties `((upstream-name . "IlluminaHumanMethylation450kmanifest")))
(build-system r-build-system)
(propagated-inputs (list r-minfi))
(home-page
"https://bioconductor.org/packages/IlluminaHumanMethylation450kmanifest")
(synopsis "Annotation for Illumina's 450k methylation arrays")
(description "This package provides a manifest for Illumina's 450k array
data.")
(license license:artistic2.0)))
(define-public r-illuminahumanmethylationepicanno-ilm10b4-hg19
(package
(name "r-illuminahumanmethylationepicanno-ilm10b4-hg19")
(version "0.6.0")
(source (origin
(method url-fetch)
(uri (bioconductor-uri
"IlluminaHumanMethylationEPICanno.ilm10b4.hg19"
version 'annotation))
(sha256
(base32
"0687b4k8hwfc18qgdd9ypv1skp37jd204fszba0gmrv3dc92i09c"))))
(properties `((upstream-name . "IlluminaHumanMethylationEPICanno.ilm10b4.hg19")))
(build-system r-build-system)
(propagated-inputs (list r-minfi))
(home-page
"https://doi.org/doi:10.18129/B9.bioc.IlluminaHumanMethylationEPICanno.ilm10b4.hg19")
(synopsis "Annotation for Illumina's EPIC methylation arrays")
(description
"This is an annotation package for Illumina's EPIC methylation arrays.")
(license license:artistic2.0)))
(define-public r-org-ce-eg-db
(package
(name "r-org-ce-eg-db")
@ -1392,6 +1436,26 @@ 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-champdata
(package
(name "r-champdata")
(version "2.30.0")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "ChAMPdata" version 'experiment))
(sha256
(base32
"0rz762szfl02h4d3dj7ckd41ji9mdsja8nxqw6fl086z337041zw"))))
(properties `((upstream-name . "ChAMPdata")))
(build-system r-build-system)
(propagated-inputs (list r-biocgenerics r-genomicranges))
(home-page "https://bioconductor.org/packages/ChAMPdata")
(synopsis "Data packages for ChAMP package")
(description
"This package provides datasets needed for ChAMP including a test dataset
and blood controls for CNA analysis.")
(license license:gpl3)))
(define-public r-chromstardata
(package
(name "r-chromstardata")
@ -1434,6 +1498,63 @@ display copy number variation. Files are stored as GRanges objects from the
GenomicRanges Bioconductor package.")
(license license:gpl2)))
(define-public r-flowsorted-blood-450k
(package
(name "r-flowsorted-blood-450k")
(version "1.36.0")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "FlowSorted.Blood.450k"
version 'experiment))
(sha256
(base32
"1ha9qsp5g3g2yhnk574x6xhg95bb29ywvmg3ns1c50z69v6wbraq"))))
(properties `((upstream-name . "FlowSorted.Blood.450k")))
(build-system r-build-system)
(propagated-inputs (list r-minfi))
(home-page "https://bioconductor.org/packages/FlowSorted.Blood.450k")
(synopsis
"Illumina HumanMethylation data on sorted blood cell populations")
(description
"This package provides raw data objects for the Illumina 450k DNA
methylation microarrays, and an object depicting which CpGs on the array are
associated with cell type.")
(license license:artistic2.0)))
(define-public r-flowsorted-blood-epic
(package
(name "r-flowsorted-blood-epic")
(version "2.2.0")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "FlowSorted.Blood.EPIC" version
'experiment))
(sha256
(base32
"1vybj69jxnirqg6ik03q3pb1vv23z8mir7wpi2ys7iljf5ixzgl1"))))
(properties `((upstream-name . "FlowSorted.Blood.EPIC")))
(build-system r-build-system)
(propagated-inputs
(list r-annotationhub
r-experimenthub
r-genefilter
r-minfi
r-nlme
r-quadprog
r-s4vectors
r-summarizedexperiment))
(native-inputs (list r-knitr))
(home-page "https://github.com/immunomethylomics/FlowSorted.Blood.EPIC")
(synopsis
"Illumina EPIC data on immunomagnetic sorted peripheral adult blood cells")
(description
"This package provides raw data objects to be used for blood cell
proportion estimation in minfi and similar packages. The
@code{FlowSorted.Blood.EPIC} object is based in samples assayed by Brock
Christensen and colleagues; for details see Salas et al. 2018.
https://www.ncbi.nlm.nih.gov/geo/query/acc.cgi?acc=GSE110554.")
(license license:gpl3)))
(define-public r-genelendatabase
(package
(name "r-genelendatabase")
@ -1523,6 +1644,28 @@ cluster labels and labels identifying spiked in cells. Column metadata
includes channel names, protein marker names, and protein marker classes.")
(license license:expat)))
(define-public r-illumina450probevariants-db
(package
(name "r-illumina450probevariants-db")
(version "1.34.0")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "Illumina450ProbeVariants.db"
version 'experiment))
(sha256
(base32
"1c1iqxi17s1a1sa1vab2ma7pjq1dxal7ibsiahj66ys0pa4sm42p"))))
(properties `((upstream-name . "Illumina450ProbeVariants.db")))
(build-system r-build-system)
(home-page "https://bioconductor.org/packages/Illumina450ProbeVariants.db")
(synopsis
"Variant data from 1000 Genomes Project for Illumina HumanMethylation450 Bead Chip probes")
(description
"This package includes details on variants for each probe on the 450k
bead chip for each of the four populations (Asian, American, African and
European).")
(license license:gpl3)))
(define-public r-italicsdata
(package
(name "r-italicsdata")
@ -1565,6 +1708,79 @@ gene expression indicate a role for enhancer priming in immune response\", publi
in Nature Genetics, January 2018.")
(license license:gpl2+)))
(define-public r-minfidata
(package
(name "r-minfidata")
(version "0.44.0")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "minfiData" version 'experiment))
(sha256
(base32
"15s3kc629m2c78vkidmp6kcc28sn1wzjzrxazmd8z7x8cdad3q4g"))))
(properties `((upstream-name . "minfiData")))
(build-system r-build-system)
(propagated-inputs
(list r-illuminahumanmethylation450kanno-ilmn12-hg19
r-illuminahumanmethylation450kmanifest
r-minfi))
(home-page "https://bioconductor.org/packages/minfiData")
(synopsis "Example data for the Illumina Methylation 450k array")
(description
"This package provides data from 6 samples across 2 groups from 450k
methylation arrays.")
(license license:artistic2.0)))
(define-public r-missmethyl
(package
(name "r-missmethyl")
(version "1.32.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "missMethyl" version))
(sha256
(base32
"1rrm8m68kgjkrw1wdli5lrwqlavhbm490zgnj5vafzpvx7xajfma"))))
(properties `((upstream-name . "missMethyl")))
(build-system r-build-system)
(propagated-inputs
(list r-annotationdbi
r-biasedurn
r-biobase
r-biocgenerics
r-genomicranges
r-go-db
r-illuminahumanmethylation450kanno-ilmn12-hg19
r-illuminahumanmethylation450kmanifest
r-illuminahumanmethylationepicanno-ilm10b4-hg19
r-illuminahumanmethylationepicmanifest
r-iranges
r-limma
r-methylumi
r-minfi
r-org-hs-eg-db
r-ruv
r-s4vectors
r-statmod
r-stringr
r-summarizedexperiment))
(native-inputs (list r-knitr))
(home-page "https://bioconductor.org/packages/missMethyl")
(synopsis "Analyzing Illumina HumanMethylation BeadChip data")
(description
"This is a package for normalization, testing for differential
variability and differential methylation and gene set testing for data from
Illumina's Infinium HumanMethylation arrays. The normalization procedure is
subset-quantile within-array normalization (SWAN), which allows Infinium I and
II type probes on a single array to be normalized together. The test for
differential variability is based on an empirical Bayes version of Levene's
test. Differential methylation testing is performed using RUV, which can
adjust for systematic errors of unknown origin in high-dimensional data by
using negative control probes. Gene ontology analysis is performed by taking
into account the number of probes per gene on the array, as well as taking
into account multi-gene associated probes.")
(license license:gpl2)))
(define-public r-msdata
(package
(name "r-msdata")
@ -2516,13 +2732,13 @@ problems.")
(define-public r-amaretto
(package
(name "r-amaretto")
(version "1.13.0")
(version "1.14.0")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "AMARETTO" version))
(sha256
(base32
"18w65sf3h4yzw9v5xgkalxnkmgzgsx100v7qc7z4ifx10lgpji5n"))))
"06j75c4j71fkkw5s52nbzb3k084y2f4v4h3js9dgsxxrd6jkzfz9"))))
(properties `((upstream-name . "AMARETTO")))
(build-system r-build-system)
(propagated-inputs
@ -2761,13 +2977,13 @@ for use in Bioconductor’s AnnotationHub.")
(define-public r-anvil
(package
(name "r-anvil")
(version "1.10.1")
(version "1.10.2")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "AnVIL" version))
(sha256
(base32
"0iqsffkrxv28g9cddx2w05f2dbscwxhh6bpizwa8xaxhvn5bcpsv"))))
"1j7n8c47j3njd5rnlrj8bkn4q5z7jpm0c9rdq1mlwd2i1yy9fz9b"))))
(properties `((upstream-name . "AnVIL")))
(build-system r-build-system)
(propagated-inputs
@ -4533,6 +4749,46 @@ spent loading the full derfinder package when running the F-statistics
calculation in parallel.")
(license license:artistic2.0)))
(define-public r-dmrcate
(package
(name "r-dmrcate")
(version "2.12.0")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "DMRcate" version))
(sha256
(base32
"0iphlsbam5fcxbj5j0cmqk3wz5ykwz0mvk3qbrhzxbpf2h4w2qib"))))
(properties `((upstream-name . "DMRcate")))
(build-system r-build-system)
(propagated-inputs
(list r-bsseq
r-dss
r-edger
r-experimenthub
r-genomeinfodb
r-genomicranges
r-gviz
r-iranges
r-limma
r-minfi
r-missmethyl
r-plyr
r-s4vectors
r-summarizedexperiment))
(native-inputs (list r-knitr))
(home-page "https://bioconductor.org/packages/DMRcate")
(synopsis "Methylation array and sequencing spatial analysis methods")
(description
"This is a package for de novo identification and extraction of
@dfn{differentially methylated regions} (DMRs) from the human genome using
@dfn{Whole Genome Bisulfite Sequencing} (WGBS) and Illumina Infinium
Array (450K and EPIC) data. It provides functionality for filtering probes
possibly confounded by SNPs and cross-hybridisation. It includes
@code{GRanges} generation and plotting functions.")
;; GPLv3 with additional liability disclaimer.
(license license:gpl3)))
(define-public r-drimseq
(package
(name "r-drimseq")
@ -4568,6 +4824,32 @@ makes available functions for visualization and exploration of the data and
results.")
(license license:gpl3+)))
(define-public r-dss
(package
(name "r-dss")
(version "2.46.0")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "DSS" version))
(sha256
(base32
"1qm0pq6495fn2zrbddaadb1w01ry76rg8mmbmxf3zws9pww48jgf"))))
(properties `((upstream-name . "DSS")))
(build-system r-build-system)
(propagated-inputs (list r-biobase r-biocparallel r-bsseq))
(native-inputs (list r-knitr))
(home-page "https://bioconductor.org/packages/DSS")
(synopsis "Dispersion shrinkage for sequencing data")
(description
"DSS is an R library performing differential analysis for count-based
sequencing data. It detects @dfn{differentially expressed genes} (DEGs) from
RNA-seq, and differentially methylated loci or regions (DML/DMRs) from
@dfn{bisulfite sequencing} (BS-seq). The core of DSS is a dispersion
shrinkage method for estimating the dispersion parameter from Gamma-Poisson or
Beta-Binomial distributions.")
;; Any version of the GPL
(license (list license:gpl2+ license:gpl3+))))
(define-public r-bluster
(package
(name "r-bluster")
@ -4763,6 +5045,28 @@ domains etc.) from quantification of all types of RNASeq by tools such as
Kallisto, Salmon, StringTie, Cufflinks/Cuffdiff etc.")
(license license:gpl2+)))
;; This is a CRAN package, but it depends on qvalue from Bioconductor.
(define-public r-isva
(package
(name "r-isva")
(version "1.9")
(source (origin
(method url-fetch)
(uri (cran-uri "isva" version))
(sha256
(base32
"05qx9q0kg4ma23v4abhihw0vz017nq6hv2jzsiqx4d20ngh1dl4z"))))
(properties `((upstream-name . "isva")))
(build-system r-build-system)
(propagated-inputs (list r-fastica r-jade r-qvalue))
(home-page "https://cran.r-project.org/package=isva")
(synopsis "Independent surrogate variable analysis")
(description
"Independent Surrogate Variable Analysis is an algorithm for feature
selection in the presence of potential confounding factors (see Teschendorff
AE et al 2011, <doi: 10.1093/bioinformatics/btr171>).")
(license license:gpl2)))
(define-public r-italics
(package
(name "r-italics")
@ -4902,14 +5206,14 @@ mapping.")
(define-public r-nmf
(package
(name "r-nmf")
(version "0.25")
(version "0.26")
(source
(origin
(method url-fetch)
(uri (cran-uri "NMF" version))
(sha256
(base32
"0kdl7yz4v7pms6y2lff4x5w7pwkx54488qx0v539qmvcbxv1if98"))))
"1h1fpjnj6vjvi9ygxpfxs8k5bhly0aflr54zj88khgzkylp5ci4d"))))
(properties `((upstream-name . "NMF")))
(build-system r-build-system)
(propagated-inputs
@ -5239,14 +5543,14 @@ used by @code{ensembldb}, @code{Organism.dplyr}, and other packages.")
(define-public r-annotationforge
(package
(name "r-annotationforge")
(version "1.40.1")
(version "1.40.2")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "AnnotationForge" version))
(sha256
(base32
"16wdcl56d5i8wrmin610kzs9ldy7h9w5fbnysjb1crkcgbikq1yy"))))
"1ab7nl9zrlhlkwjrjr69zqq5hy9a8rp457hcr075n8qm5r5lf6wd"))))
(properties
`((upstream-name . "AnnotationForge")))
(build-system r-build-system)
@ -5388,13 +5692,13 @@ on Bioconductor or which replace R functions.")
(define-public r-biomart
(package
(name "r-biomart")
(version "2.54.0")
(version "2.54.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "biomaRt" version))
(sha256
(base32
"0c6agi652kbffqwd1r3c22ncisqaiy3gqbc9fz13767rr71im6lq"))))
"13nhp97cklaimc3cd931hz584nc58szk2gyxrkfhp7knfli6jbpi"))))
(properties
`((upstream-name . "biomaRt")))
(build-system r-build-system)
@ -5473,13 +5777,13 @@ only one command.")
(define-public r-biocparallel
(package
(name "r-biocparallel")
(version "1.32.5")
(version "1.32.6")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "BiocParallel" version))
(sha256
(base32
"1yd6ln9cl3dcvfziar52fkvqi2lzm31l7j21r1rwl1mpkz0xapir"))))
"1aq3b5fjs8j0d6nf3992a6gnzvmmaxbbkrj1im0k6ppsqac6dlj0"))))
(properties
`((upstream-name . "BiocParallel")))
(build-system r-build-system)
@ -5653,6 +5957,68 @@ genome data packages and support for efficient SNP representation.")
analysis.")
(license license:artistic2.0)))
(define-public r-champ
(package
(name "r-champ")
(version "2.28.0")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "ChAMP" version))
(sha256
(base32
"10ss0a3miqrx92vy1r1h5rv3mnjn4iyl32q86s0x59d3fvqp2cx1"))))
(properties `((upstream-name . "ChAMP")))
(build-system r-build-system)
(propagated-inputs
(list r-bumphunter
r-champdata
r-combinat
r-dendextend
r-dmrcate
r-dnacopy
r-doparallel
r-dt
r-genomicranges
r-ggplot2
r-globaltest
r-goseq
r-hmisc
r-illumina450probevariants-db
r-illuminahumanmethylation450kmanifest
r-illuminahumanmethylationepicanno-ilm10b4-hg19
r-illuminahumanmethylationepicmanifest
r-illuminaio
r-impute
r-isva
r-kpmt
r-limma
r-marray
r-matrixstats
r-minfi
r-missmethyl
r-plotly
r-plyr
r-preprocesscore
r-prettydoc
r-quadprog
r-qvalue
r-rcolorbrewer
r-rmarkdown
r-rpmm
r-shiny
r-shinythemes
r-sva
r-watermelon))
(native-inputs (list r-knitr))
(home-page "https://bioconductor.org/packages/ChAMP")
(synopsis
"Chip analysis methylation pipeline for Illumina HumanMethylation450 and EPIC")
(description
"The package includes quality control metrics, a selection of
normalization methods and novel methods to identify differentially methylated
regions and to highlight copy number alterations.")
(license license:gpl3)))
(define-public r-chipseeker
(package
(name "r-chipseeker")
@ -6145,6 +6511,48 @@ other types of genomic data that produce counts, including ChIP-seq, SAGE and
CAGE.")
(license license:gpl2+)))
(define-public r-enmix
(package
(name "r-enmix")
(version "1.34.02")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "ENmix" version))
(sha256
(base32
"0rn541xfsxfdyzy3dn727bwrfpkgp12282lax7xg1j8584mk4pcf"))))
(properties `((upstream-name . "ENmix")))
(build-system r-build-system)
(propagated-inputs
(list r-annotationhub
r-biobase
r-doparallel
r-dynamictreecut
r-experimenthub
r-foreach
r-genefilter
r-geneplotter
r-gplots
r-gtools
r-illuminaio
r-impute
r-iranges
r-matrixstats
r-minfi
r-preprocesscore
r-quadprog
r-rpmm
r-s4vectors
r-summarizedexperiment))
(native-inputs (list r-knitr))
(home-page "https://bioconductor.org/packages/release/bioc/html/ENmix.html")
(synopsis
"Quality control and analysis tools for Illumina DNA methylation BeadChip")
(description
"This package provides tools for quality control, analysis and
visualization of Illumina DNA methylation array data.")
(license license:artistic2.0)))
(define-public r-ensembldb
(package
(name "r-ensembldb")
@ -6524,6 +6932,30 @@ profiles and assignment of a status (gain, normal or loss) to each chromosomal
regions identified.")
(license license:gpl2)))
(define-public r-globaltest
(package
(name "r-globaltest")
(version "5.52.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "globaltest" version))
(sha256
(base32
"1g5dv3bw0fj8sq0hsr8c7nh6n1rzvx1bisqlyqjqq3f8lsyb51kb"))))
(properties `((upstream-name . "globaltest")))
(build-system r-build-system)
(propagated-inputs
(list r-annotate r-annotationdbi r-biobase r-survival))
(home-page "https://bioconductor.org/packages/globaltest")
(synopsis
"Test groups of covariates for association with a response variable")
(description
"The global test tests groups of covariates (or features) for association
with a response variable. This package implements the test with diagnostic
plots and multiple testing utilities, along with several functions to
facilitate the use of this test for gene set testing of GO and KEGG terms.")
(license license:gpl2+)))
(define-public r-gostats
(package
(name "r-gostats")
@ -7475,13 +7907,13 @@ previously been used in XCMS.")
(define-public r-numbat
(package
(name "r-numbat")
(version "1.2.2")
(version "1.3.0")
(source (origin
(method url-fetch)
(uri (cran-uri "numbat" version))
(sha256
(base32
"06qq7i8k1mi7yg1irfbk3d2fmk7awvzj7h7r54hnr6pzywk7nmhc"))))
"0499i20kkpr58b59xmw7d4q4dgp6ryfb9jj55idvhaa2k1kv28n6"))))
(properties `((upstream-name . "numbat")))
(build-system r-build-system)
(propagated-inputs (list r-ape
@ -7962,14 +8394,14 @@ the available RAM.")
(define-public r-rhdf5filters
(package
(name "r-rhdf5filters")
(version "1.10.0")
(version "1.10.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "rhdf5filters" version))
(sha256
(base32
"17x2a3122mm3z9qnalw25am2x08cfpm17nwhigabid3ha3d2mgz1"))))
"14rkr0fisy7qrvjikpnwxwag79205hdxy6nkpwz501li4fr1rbnp"))))
(properties `((upstream-name . "rhdf5filters")))
(build-system r-build-system)
(propagated-inputs
@ -8368,6 +8800,33 @@ sequence motif occurrences across a large set of sequences centred at a common
reference point and sorted by a user defined feature.")
(license license:gpl3+)))
(define-public r-shinymethyl
(package
(name "r-shinymethyl")
(version "1.34.0")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "shinyMethyl" version))
(sha256
(base32
"1xbadc4xszcqh211r8z0wp417f17aczz834icli17mcsl996ln3a"))))
(properties `((upstream-name . "shinyMethyl")))
(build-system r-build-system)
(propagated-inputs
(list r-biocgenerics
r-illuminahumanmethylation450kmanifest
r-matrixstats
r-minfi
r-rcolorbrewer
r-shiny))
(native-inputs (list r-knitr))
(home-page "https://bioconductor.org/packages/shinyMethyl")
(synopsis "Interactive visualization for Illumina methylation arrays")
(description
"This package provides an interactive tool for visualizing Illumina
methylation array data. Both the 450k and EPIC array are supported.")
(license license:artistic2.0)))
(define-public r-shortread
(package
(name "r-shortread")
@ -14341,6 +14800,46 @@ gene fusion discovery. It can be applied to all major sequencing techologies
and to both short and long sequence reads.")
(license license:gpl3)))
(define-public r-flowai
(package
(name "r-flowai")
(version "1.28.0")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "flowAI" version))
(sha256
(base32
"18zrlnjw89iglxhw65ys8x4r44pdzp5chrgwx7w44sh7yd8576g9"))))
(properties `((upstream-name . "flowAI")))
(build-system r-build-system)
(propagated-inputs
(list r-changepoint
r-flowcore
r-ggplot2
r-knitr
r-plyr
r-rcolorbrewer
r-reshape2
r-rmarkdown
r-scales))
(native-inputs (list r-knitr))
(home-page "https://bioconductor.org/packages/flowAI")
(synopsis
"Automatic and interactive quality control for flow cytometry data")
(description
"This package is able to perform an automatic or interactive quality
control on FCS data acquired using flow cytometry instruments. By evaluating
three different properties:
@enumerate
@item flow rate
@item signal acquisition, and
@item dynamic range,
@end enumerate
the quality control enables the detection and removal of anomalies.")
(license license:gpl2+)))
(define-public r-flowutils
(package
(name "r-flowutils")
@ -14616,14 +15115,14 @@ statistics to the plot.")
(define-public r-flowclust
(package
(name "r-flowclust")
(version "3.36.0")
(version "3.36.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "flowClust" version))
(sha256
(base32
"1l1lfgm6x06gyzda36m6gvqmb91zbrz8m83b1fnfzpxkhqha20yq"))))
"1r27nm5dxlhl5rk96dkjfx8326bvdgx55xg4w2zji3m49x9db2gs"))))
(properties `((upstream-name . "flowClust")))
(build-system r-build-system)
(arguments
@ -15730,14 +16229,14 @@ arrays based on fast wavelet-based functional models.")
(define-public r-variancepartition
(package
(name "r-variancepartition")
(version "1.28.7")
(version "1.28.9")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "variancePartition" version))
(sha256
(base32
"0iv5c5p0g4axhanc62mmk0c43qcwdsxzslxh5qdck0v1kb7bd1d9"))))
"1al7wkbv26gldba61gq80c3mznsxwr7z5njv2s0lb7hnll9bscar"))))
(properties
`((upstream-name . "variancePartition")))
(build-system r-build-system)
@ -17930,14 +18429,14 @@ sequence (@code{DNAse-seq}) experiments.")
(define-public r-singlecellexperiment
(package
(name "r-singlecellexperiment")
(version "1.20.0")
(version "1.20.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "SingleCellExperiment" version))
(sha256
(base32
"1y9c9wf3009w4qh03zpsmc0ff0nkzal673a4nql5c11cn55sza2g"))))
"1xwa6ncmqp21a4zx1dbs9p9b9rqbxhdgq2279mj4yl0gnpyqr9d7"))))
(properties
`((upstream-name . "SingleCellExperiment")))
(build-system r-build-system)
@ -19518,14 +20017,14 @@ using aCGH or sequencing.")
(define-public r-bionero
(package
(name "r-bionero")
(version "1.6.0")
(version "1.6.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "BioNERO" version))
(sha256
(base32
"10nwgp8a9chn33p5k7cdp920rraiw187xfrylyd9bq010c7vp7xh"))))
"0ijdnl43cgzywgsz80jd6q0irixh6367qm1ll5ww1rcr4xas2nsl"))))
(properties `((upstream-name . "BioNERO")))
(build-system r-build-system)
(propagated-inputs

135
gnu/packages/bioinformatics.scm
View File

@ -3521,8 +3521,6 @@ annotations of the genome.")
;; remainder of the code is licensed under the MIT license.
(license (list license:bsd-3 license:expat))))
(define-deprecated deeptools python-deeptools)
(define-public cutadapt
(package
(name "cutadapt")
@ -13991,6 +13989,85 @@ cells with similar identification cards in the different cytometric profiles
is then merged.")
(license license:gpl2))))
(define-public r-cytoexplorer
(let ((commit "0efb1cc19fc701ae03905cf1b8484c1dfeb387df")
(revision "1"))
(package
(name "r-cytoexplorer")
(version (git-version "1.1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/DillonHammill/CytoExploreR")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1y7dadsy15i47rjmdq6ns80jzm6p0zmixll37q68ba2c7xn5pq3v"))
(snippet
'(delete-file
"docs/articles/CytoExploreR_files/vis-4.20.1/vis.min.js"))))
(properties `((upstream-name . "CytoExploreR")))
(build-system r-build-system)
(arguments
(list
#:phases
'(modify-phases %standard-phases
(add-after 'unpack 'process-javascript
(lambda* (#:key inputs #:allow-other-keys)
(with-directory-excursion "docs/articles/CytoExploreR_files/"
(let ((source (search-input-file inputs "/dist/vis.js"))
(target "vis-4.20.1/vis.min.js"))
(invoke "esbuild" source "--minify"
(string-append "--outfile=" target)))))))))
(propagated-inputs
(list r-biocgenerics
r-bslib
r-data-table
r-dplyr
r-embedsom
r-flowai
r-flowcore
r-flowworkspace
r-gtools
r-magrittr
r-mass
r-opencyto
r-purrr
r-rhandsontable
r-robustbase
r-rsvd
r-rtsne
r-shiny
r-superheat
r-tibble
r-tidyr
r-umap
r-visnetwork))
(native-inputs
`(("esbuild" ,esbuild)
("r-knitr" ,r-knitr)
("js-vis"
,(let ((version "4.20.1"))
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/almende/vis")
(commit (string-append "v" version))))
(file-name (git-file-name "js-vis" version))
(sha256
(base32
"09ldcqzzki5c0jlwas5992qjffqxnx6j5sl703qccfw7rg1hn469")))))))
(home-page "https://github.com/DillonHammill/CytoExploreR")
(synopsis "Interactive analysis of cytometry data")
(description
"This package has been developed under ROpenSci gudelines to integrate
conventional and cutting edge cytometry analysis tools under a unified
framework. It aims to represent an intuitive and interactive approach to
analysing cytometry data in R.")
(license license:gpl2))))
(define-public r-giotto
(let ((commit "3c8067cedbf6e3112edcac2ae796de05fd9d6fe4")
(revision "1"))
@ -14049,6 +14126,60 @@ is then merged.")
spatial single-cell expression data.")
(license license:expat))))
(define-public r-illuminahumanmethylationepicanno-ilm10b5-hg38
(let ((commit "3db06910e27f626e0cc8b335ff45cf9a4050a36a")
(revision "1"))
(package
(name "r-illuminahumanmethylationepicanno-ilm10b5-hg38")
(version (git-version "0.0.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url
"https://github.com/achilleasNP/IlluminaHumanMethylationEPICanno.ilm10b5.hg38")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0y8fhiwmkldi57f8nq64njfgljw68cm6pb1vh44hjwcc12k48sqr"))))
(properties `((upstream-name . "IlluminaHumanMethylationEPICanno.ilm10b5.hg38")))
(build-system r-build-system)
(propagated-inputs (list r-minfi))
(home-page
"https://github.com/achilleasNP/IlluminaHumanMethylationEPICanno.ilm10b5.hg38")
(synopsis "Illumina Human Methylation EPIC Annotation version 1.0B5")
(description
"This package provides a companion annotation file to the
@code{IlluminaHumanMethylationEPICmanifest} package based on the same
annotation 1.0B5.")
(license license:artistic2.0))))
(define-public r-maxprobes
(let ((commit "c2120dba972e12115280ef274ff80550cee5b264")
(revision "1"))
(package
(name "r-maxprobes")
(version (git-version "0.0.2" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/markgene/maxprobes")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1kij9bds2l9mwm519bzyd2608563qjlmbrayhva1s0vgml5iq9wh"))))
(properties `((upstream-name . "maxprobes")))
(build-system r-build-system)
(propagated-inputs (list r-minfi r-minfidata))
(native-inputs (list r-knitr))
(home-page "https://github.com/markgene/maxprobes")
(synopsis "Methylation array cross-reactive probes")
(description
"The Maxprobes package collects cross-reactive probes of Illumina
methylation array 450K and EPIC/850K.")
(license license:gpl2+))))
(define-public gffread
;; We cannot use the tagged release because it is not in sync with gclib.
;; See https://github.com/gpertea/gffread/issues/26

45
gnu/packages/build-tools.scm
View File

@ -14,7 +14,7 @@
;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2021 qblade <qblade@protonmail.com>
;;; Copyright © 2021, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Juliana Sims <jtsims@protonmail.com>
;;; Copyright © 2022, 2023 Juliana Sims <jtsims@protonmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -712,11 +712,11 @@ Build has features such as:
(license license:gpl2+)))
(define-public genie
(let ((commit "b139103697bbb62db895e4cc7bfe202bcff4ff25")
(let ((commit "22cc907a4351db46c55f73e6aa901f1b2f0c52ad")
(revision "0"))
(package
(name "genie")
(version (git-version "1167" revision commit))
(version (git-version "1170" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
@ -725,7 +725,7 @@ Build has features such as:
(file-name (git-file-name name version))
(sha256
(base32
"16plshzkyjjzpfcxnwjskrs7i4gg0qn92h2k0rbfl4a79fgmwvwv"))))
"1wxhbdnr52qa2xr1i83577mwr25fxr5vby4r7m5brp9z5a08fwry"))))
(build-system gnu-build-system)
(arguments
(list #:phases #~(modify-phases %standard-phases
@ -922,7 +922,7 @@ Makefiles, JSON Compilation Database, and experimentally Ninja.")
(list
bash-minimal python perl clisp
;; Unicode data:
ucd-next
ucd
;; Programs for the tests:
cppi indent git-minimal/pinned autoconf))
(home-page "https://www.gnu.org/software/gnulib/")
@ -948,3 +948,38 @@ maintenance-related files, for convenience.")
#:version "2022-12-31"
#:commit "875461ffdf58ac04677957b4ae4160465b83b940"
#:hash (base32 "0bf7a6wdns9c5wwv60qfcn9llg0j6jz5ryd2qgsqqx2i6xkmp77c")))
(define-public pdpmake
(package
(name "pdpmake")
(version "1.4.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/rmyorston/pdpmake")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0fjx5imd7s0h0yy8h2qc4vkdq7kxqcljnrw6h8n88720xha5z3cb"))))
(build-system gnu-build-system)
(arguments
(list
#:test-target "test"
#:parallel-tests? #f
#:make-flags
#~(list "DESTDIR=\"\""
(string-append "CC=" #$(cc-for-target))
(string-append "PREFIX=" #$output))
#:phases
#~(modify-phases %standard-phases
(delete 'configure))))
(home-page "https://frippery.org/make/")
(synopsis "POSIX make")
(description
"This package contains an implementation of POSIX make. The default
configuration enables extensions. Generally these extensions are compatible
with GNU make.")
;; pdpmake is distributed under the public domain, but the sources include
;; tests under the GPL license version 2.
(license (list license:gpl2 license:public-domain))))

79
gnu/packages/c.scm
View File

@ -9,7 +9,7 @@
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020, 2021 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020 Katherine Cox-Buday <cox.katherine.e@gmail.com>
;;; Copyright © 2020, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020, 2021 Greg Hogan <code@greghogan.com>
;;; Copyright © 2021 David Dashyan <mail@davie.li>
;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com>
@ -1145,6 +1145,54 @@ Telemetry Transport (MQTT) publish-subscribe messaging protocol.")
(home-page "https://microsoft.github.io/mimalloc/")
(license license:expat)))
;;; The package is named orangeduck-mpc to differentiate it from GNU mpc.
(define-public orangeduck-mpc
;; The last release lacks an 'install' target.
(let ((commit "7c910e9303833c349f7432188ff77f2745254df2")
(revision "0"))
(package
(name "orangeduck-mpc")
(version (git-version "0.9.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/orangeduck/mpc")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"01a4vcxdnz0fbn90c9zc3jzklyqqvp9sfjpjwpq0f5r0l2pp37ad"))
(patches
(search-patches "orangeduck-mpc-fix-pkg-config.patch"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags #~(list (string-append "CC=" #$(cc-for-target))
(string-append "PREFIX=" #$output))
#:phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-Makefile
(lambda _
(substitute* "Makefile"
;; Do not attempt to alter the permissions,
;; otherwise 'install' would error with
;; "cannot stat [...] Permission denied"
;; errors.
(("\\s\\-m[0-9]{3}\\s")
" "))))
(delete 'configure))))
(home-page "https://github.com/orangeduck/mpc")
(synopsis "Parser Combinator library for C ")
(description "@code{mpc} is a lightweight Parser Combinator library for C.
@code{mpc} can help with tasks such as:
@itemize
@item Building a new programming language
@item Building a new data format
@item Parsing an existing programming language
@item Parsing an existing data format
@item Embedding a Domain Specific Language
@item Implementing Greenspun's Tenth Rule.
@end itemize")
(license license:bsd-2))))
;;; Factored out of the ck package so that it can be adjusted and called on
;;; the host side easily, without impacting the package definition.
(define (gnu-triplet->ck-machine target)
@ -1317,20 +1365,21 @@ will take care of dispatching tasks to available cores.")
"0x9f7ivww8c7cigf4ck0hfx2bm79qgx6q4ccwzqbzkrmcrl9shfb"))))
(build-system cmake-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(delete 'build)
(delete 'configure)
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(with-directory-excursion "test"
(invoke "cmake" ".")
(invoke "make")))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(install-file "utf8.h" (string-append out "/include"))))))))
(list
#:phases
#~(modify-phases %standard-phases
(delete 'build)
(delete 'configure)
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(with-directory-excursion "test"
(invoke "cmake" ".")
(invoke "make")))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(install-file "utf8.h"
(string-append #$output "/include/utf8")))))))
(home-page "https://github.com/sheredom/utf8.h")
(synopsis "Single header UTF-8 string functions for C and C++")
(description "A simple one header solution to supporting UTF-8 strings in

4
gnu/packages/calendar.scm
View File

@ -123,7 +123,7 @@ the <tz.h> library for handling time zones and leap seconds.")
(define-public libical
(package
(name "libical")
(version "3.0.14")
(version "3.0.16")
(source (origin
(method url-fetch)
(uri (string-append
@ -131,7 +131,7 @@ the <tz.h> library for handling time zones and leap seconds.")
version "/libical-" version ".tar.gz"))
(sha256
(base32
"13ycghsi4iv8mnm0xv97bs0x6qvfhdxkw20n3yhcc7bg6n0bg122"))))
"0cqc1wpalxmxjx8dmcaga9w8kd5l7944hqmidz43hifaf7fhaixl"))))
(build-system cmake-build-system)
(arguments
(list

1
gnu/packages/cdrom.scm
View File

@ -113,6 +113,7 @@ caching facility provided by the library.")
(method url-fetch)
(uri (string-append "mirror://gnu/libcdio/libcdio-"
version ".tar.bz2"))
(patches (search-patches "libcdio-glibc-compat.patch"))
(sha256
(base32
"0avi6apv5ydjy6b9c3z9a46rvp5i57qyr09vr7x4nndxkmcfjl45"))))

35
gnu/packages/check.scm
View File

@ -1321,11 +1321,15 @@ and many external plugins.")
"0f8c31v5r2kgjixvy267n0nhc4xsy65g3n9lz1i1377z5pn5ydjg"))))
(arguments
(substitute-keyword-arguments (package-arguments python-pytest)
((#:phases phases #~%standard-phases)
((#:phases phases #~%standard-phases)
#~(modify-phases #$phases
(add-before 'build 'pretend-version
(lambda _
(setenv "SETUPTOOLS_SCM_PRETEND_VERSION" #$version)))))))))
(setenv "SETUPTOOLS_SCM_PRETEND_VERSION" #$version)))))))
(propagated-inputs
(modify-inputs (package-propagated-inputs python-pytest)
(replace "python-pluggy" python-pluggy-next)
(replace "python-toml" python-tomli)))))
(define-public python-pytest-bootstrap
(package
@ -1592,13 +1596,13 @@ Python's @code{random.seed}.")
(define-public python-pytest-mock
(package
(name "python-pytest-mock")
(version "3.8.2")
(version "3.10.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "pytest-mock" version))
(sha256
(base32 "18pwr0qhr2z5rpfz7930986s55hh1gnmmq4m09q5h99rai2kzw3p"))
(base32 "0kzdwwdjw001qzf1n4qzh7c364rvmb0cmkfqdwr2l9bwxy2v1ggv"))
(modules '((guix build utils)))
(snippet
;; Some tests do a string match on Pytest output, and fails when
@ -1702,7 +1706,7 @@ timeout has been exceeded.")
(define-public python-pytest-forked
(package
(name "python-pytest-forked")
(version "1.4.0")
(version "1.6.0")
(source
(origin
(method git-fetch) ;for tests
@ -1712,18 +1716,17 @@ timeout has been exceeded.")
(file-name (git-file-name name version))
(sha256
(base32
"0j9bbjny7h3b4fig6l26f26c697r67mm62fzdd9m9rqyy2bmnqjs"))))
(build-system python-build-system)
"1y93q914gwf0nshql1qix6sj826q163b04vw17zmwhsnbv00c2d3"))))
(build-system pyproject-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'build 'pretend-version
(lambda _
(setenv "SETUPTOOLS_SCM_PRETEND_VERSION" ,version)))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "pytest" "-vv")))))))
(list #:phases
#~(modify-phases %standard-phases
(add-before 'build 'pretend-version
;; The version string is usually derived via setuptools-scm,
;; but without the git metadata available, the version string
;; is set to '0.0.0'.
(lambda _
(setenv "SETUPTOOLS_SCM_PRETEND_VERSION" #$version))))))
(native-inputs
;; XXX: The bootstrap variant of Pytest is used to ensure the
;; 'hypothesis' plugin is not in the environment (due to

10
gnu/packages/chez.scm
View File

@ -692,10 +692,12 @@ source.")))
(search-input-file (or native-inputs inputs)
"/opt/racket-vm/bin/racket")
"../rktboot/main.rkt"
#$@(if (racket-cs-native-supported-system?)
#~()
(let ((m (nix-system->pbarch-machine-type)))
#~("--machine" #$m)))))))))))))
;; Temporary handling of builds on non-x86 architectures,
;; see https://github.com/racket/racket/issues/3948
;; Autodetect in rktboot only addresses x86 archs, so far.
#$@(let ((m (or (racket-cs-native-supported-system?)
(nix-system->pbarch-machine-type))))
#~("--machine" #$m))))))))))))
(supported-systems
(package-supported-systems chez-scheme-for-racket))
(home-page "https://github.com/racket/ChezScheme")

14
gnu/packages/compression.scm
View File

@ -1683,6 +1683,20 @@ speed.")
license:public-domain ; zlibWrapper/examples/fitblk*
license:zlib)))) ; zlibWrapper/{gz*.c,gzguts.h}
(define-public zstd-1.5.5
(package
(inherit zstd)
;; Don't hide this package from the UI.
(properties '())
(version "1.5.5")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/facebook/zstd/releases/download/"
"v" version "/zstd-" version ".tar.gz"))
(sha256
(base32 "1r1ydmj7ib3g5372yj3k40vl3b9ax0154qg2lqcy7ylwhb69chww"))))))
(define-public pzstd
(package/inherit zstd
(name "pzstd")

834
gnu/packages/cran.scm
View File

File diff suppressed because it is too large Load Diff

7
gnu/packages/crates-graphics.scm
View File

@ -38,6 +38,7 @@
#:use-module (gnu packages assembly)
#:use-module (gnu packages crates-io)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gl)
#:use-module (gnu packages llvm)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
@ -3103,7 +3104,7 @@ the platform-specific getters provided by winit, or another library.")
(define-public rust-x11-2
(package
(name "rust-x11")
(version "2.18.2")
(version "2.20.1")
(source
(origin
(method url-fetch)
@ -3111,12 +3112,14 @@ the platform-specific getters provided by winit, or another library.")
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32 "0wz7l6dlbraa9zalh9i45v9wibvkir9m2m1sg0jnzcbcaj9d1v3p"))))
(base32 "10pbvmcyqm6j6zr4zk7znk8silmilihv8jxmbxbl1b0pkidqsqy2"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-libc" ,rust-libc-0.2)
("rust-pkg-config" ,rust-pkg-config-0.3))))
(propagated-inputs
(list mesa))
(home-page "https://github.com/erlepereira/x11-rs")
(synopsis "X11 library bindings for Rust")
(description "This crate provides X11 library bindings for Rust.")

2515
gnu/packages/crates-io.scm
View File

File diff suppressed because it is too large Load Diff

2
gnu/packages/crypto.scm
View File

@ -868,6 +868,8 @@ BLAKE.")
(file-name (git-file-name name version))
(sha256
(base32 "04z631v0vzl52g73v390ask5fnzi5wg83lcjkjhpmmymaz0jn152"))))
;; "This code requires at least SSE2".
(supported-systems '("x86_64-linux"))
(build-system gnu-build-system)
(arguments
`(#:make-flags (list (string-append "CC=" ,(cc-for-target))

15
gnu/packages/cups.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2019, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017, 2019, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2015-2018, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org>
;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2017 Mark H Weaver <mhw@netris.org>
@ -272,6 +272,14 @@ filters for the PDF-centric printing workflow introduced by OpenPrinting.")
#:tests? #f
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'update-config-scripts
(lambda* (#:key native-inputs inputs #:allow-other-keys)
(for-each (lambda (file)
(install-file
(search-input-file
(or native-inputs inputs)
(string-append "/bin/" file)) "."))
'("config.guess" "config.sub"))))
(add-after 'unpack 'never-cupsAdminGetServerSettings
;; Rather than just ask the daemon, this part of CUPS assumes
;; that (1) it has access to a cupsd.conf under CUPS_SERVERROOT
@ -310,7 +318,10 @@ filters for the PDF-centric printing workflow introduced by OpenPrinting.")
(("(\\$count != )33" _ prefix)
(string-append prefix "39"))))))))
(native-inputs
(list pkg-config))
(append (if (target-riscv64?)
(list config)
'())
(list pkg-config)))
(inputs
(list zlib gnutls))
(home-page "https://openprinting.github.io/cups")

3
gnu/packages/curl.scm
View File

@ -138,9 +138,6 @@ tunneling, and so on.")
"See COPYING in the distribution."))
(home-page "https://curl.haxx.se/")))
(define-public curl-minimal
(deprecated-package "curl-minimal" curl))
(define-public curl-ssh
(package/inherit curl
(arguments

329
gnu/packages/databases.scm
View File

@ -32,7 +32,7 @@
;;; Copyright © 2017 Kristofer Buffington <kristoferbuffington@gmail.com>
;;; Copyright © 2018 Amirouche Boubekki <amirouche@hypermove.net>
;;; Copyright © 2018 Joshua Sierles, Nextjournal <joshua@nextjournal.com>
;;; Copyright © 2018, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2018, 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2019 Jack Hill <jackhill@jackhill.us>
;;; Copyright © 2019 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2019 Gábor Boskovits <boskovits@gmail.com>
@ -59,6 +59,7 @@
;;; Copyright © 2022 muradm <mail@muradm.net>
;;; Copyright © 2022 Thomas Albers Raviola <thomas@thomaslabs.org>
;;; Copyright © 2021, 2022 jgart <jgart@dismail.de>
;;; Copyright © 2023 Felix Gruber <felgru@posteo.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -132,6 +133,7 @@
#:use-module (gnu packages perl-web)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages popt)
#:use-module (gnu packages pretty-print)
#:use-module (gnu packages protobuf)
#:use-module (gnu packages python)
#:use-module (gnu packages python-build)
@ -899,7 +901,7 @@ Language.")
(define-public mariadb
(package
(name "mariadb")
(version "10.5.12")
(version "10.10.2")
(source (origin
(method url-fetch)
(uri (string-append "https://downloads.mariadb.com/MariaDB"
@ -907,21 +909,11 @@ Language.")
version ".tar.gz"))
(sha256
(base32
"1gg4h9ahmk78cx01zyw0fqr6hhd78fsyhs0s34p3gi9hkak1qkxb"))
"1ciw7y08wms9g3hzhyria49r1b9n5wpbhkndazv95d925c8x1jsp"))
(modules '((guix build utils)))
(snippet
'(begin
;; Delete bundled snappy and xz.
(delete-file-recursively "storage/tokudb/PerconaFT/third_party")
(substitute* "storage/tokudb/PerconaFT/CMakeLists.txt"
;; This file checks that the bundled sources are present and
;; declares build procedures for them.
(("^include\\(TokuThirdParty\\)") ""))
(substitute* "storage/tokudb/PerconaFT/ft/CMakeLists.txt"
;; Don't attempt to use the procedures we just removed.
((" build_lzma build_snappy") ""))
;; Preserve CMakeLists.txt for these.
;; Delete bundled libraries, but preserve CMakeLists.txt.
(for-each (lambda (file)
(unless (string-suffix? "CMakeLists.txt" file)
(delete-file file)))
@ -933,21 +925,10 @@ Language.")
`(#:configure-flags
(list
"-DBUILD_CONFIG=mysql_release"
;; Linking with libarchive fails, like this:
;; ld: /gnu/store/...-libarchive-3.2.2/lib/libarchive.a(archive_entry.o):
;; relocation R_X86_64_32 against `.bss' can not be used when
;; making a shared object; recompile with -fPIC
;; For now, disable the features that that use libarchive (xtrabackup).
"-DWITH_LIBARCHIVE=OFF"
;; Disable the TokuDB engine, because its test suite frequently fails,
;; and loading it crashes the server: <https://bugs.gnu.org/35521>.
"-DTOKUDB_OK=OFF"
;; Ensure the system libraries are used.
"-DWITH_JEMALLOC=yes"
"-DWITH_LIBFMT=system"
"-DWITH_PCRE=system"
"-DWITH_SSL=system"
"-DWITH_ZLIB=system"
@ -987,14 +968,6 @@ Language.")
#:parallel-tests? ,(target-x86-64?)
#:phases
(modify-phases %standard-phases
,@(if (target-ppc32?)
`((add-after 'unpack 'apply-libatomics-patch
(lambda* (#:key inputs #:allow-other-keys)
(let ((patch-file
(assoc-ref inputs
"mariadb-link-libatomic.patch")))
(invoke "patch" "-p1" "-i" patch-file)))))
'())
(add-after 'unpack 'adjust-output-references
(lambda _
;; The build system invariably prepends $CMAKE_INSTALL_PREFIX
@ -1030,6 +1003,9 @@ Language.")
"main.explain_non_select"
"main.upgrade_MDEV-19650"
"roles.acl_statistics"
"main.stat_tables_innodb"
"main.stat_tables"
"main.mysql_upgrade"
;; Probably same as above, test failure reported upstream:
;; <https://jira.mariadb.org/browse/MDEV-26320>.
@ -1056,36 +1032,19 @@ Language.")
disabled-tests)
(close-port unstable-tests)
;; XXX: These fail because they expect a latin1 charset and
;; collation. See <https://jira.mariadb.org/browse/MDEV-21264>.
(substitute* '("mysql-test/main/gis_notembedded.result"
"mysql-test/main/system_mysql_db.result")
(("latin1_swedish_ci") "utf8_general_ci")
(("\tlatin1") "\tutf8"))
(substitute* "mysql-test/suite/binlog/t/binlog_mysqlbinlog_stop_never.test"
(("/bin/bash")
(which "bash")))
(substitute* "mysql-test/mysql-test-run.pl"
(substitute* "mysql-test/mariadb-test-run.pl"
(("/bin/ls") (which "ls"))
(("/bin/sh") (which "sh"))))))
(add-before 'configure 'disable-plugins
(lambda _
(let ((disable-plugin (lambda (name)
(call-with-output-file
(string-append "plugin/" name
"/CMakeLists.txt")
(lambda (port)
(format port "\n")))))
(disabled-plugins '(;; XXX: Causes a test failure.
"disks")))
(for-each disable-plugin disabled-plugins))))
(replace 'check
(lambda* (#:key (tests? #t) parallel-tests? #:allow-other-keys)
(if tests?
(with-directory-excursion "mysql-test"
(invoke "./mtr" "--verbose"
(invoke "./mariadb-test-run"
"--verbose"
"--retry=3"
"--suite=main"
"--testcase-timeout=40"
@ -1099,13 +1058,12 @@ Language.")
"--skip-rpl"
"--skip-test-list=unstable-tests"))
(format #t "test suite not run~%"))))
(add-after
'install 'post-install
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(add-after 'install 'post-install
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(dev (assoc-ref outputs "dev"))
(lib (assoc-ref outputs "lib"))
(openssl (assoc-ref inputs "openssl")))
(openssl (dirname (search-input-file inputs "lib/libssl.so"))))
(substitute* (list (string-append out "/bin/mariadb-install-db")
(string-append out "/bin/mysql_install_db"))
(("basedir=\"\"")
@ -1132,7 +1090,7 @@ Language.")
(mkdir-p (string-append dev "/lib"))
(rename-file (string-append lib "/lib/pkgconfig")
(string-append dev "/lib/pkgconfig"))
(rename-file (string-append lib "/bin/mariadb_config")
(rename-file (string-append out "/bin/mariadb_config")
(string-append dev "/bin/mariadb_config"))
(rename-file (string-append out "/bin/mysql_config")
(string-append dev "/bin/mysql_config"))
@ -1143,25 +1101,20 @@ Language.")
(substitute* (list (string-append dev "/bin/mysql_config")
(string-append dev "/lib/pkgconfig/mariadb.pc"))
(("-lssl -lcrypto" all)
(string-append "-L" openssl "/lib " all)))))))))
(string-append "-L" openssl " " all)))))))))
(native-inputs
(if (target-ppc32?)
`(("mariadb-link-libatomic.patch"
,(search-patch "mariadb-link-libatomic.patch"))
("patch" ,patch)
("bison" ,bison)
("perl" ,perl))
(list bison perl)))
(list bison perl))
(inputs
`(("jemalloc" ,jemalloc)
("libaio" ,libaio)
("libxml2" ,libxml2)
("ncurses" ,ncurses)
("openssl" ,openssl-1.1)
("pam" ,linux-pam)
("pcre2" ,pcre2)
("xz" ,xz)
("zlib" ,zlib)))
(list fmt
jemalloc
libaio
libxml2
ncurses
openssl
linux-pam
pcre2
xz
zlib))
;; The test suite is very resource intensive and can take more than three
;; hours on a x86_64 system. Give slow and busy machines some leeway.
(properties '((timeout . 64800))) ;18 hours
@ -1287,14 +1240,14 @@ pictures, sounds, or video.")
(package
(inherit postgresql-15)
(name "postgresql")
(version "14.4")
(version "14.6")
(source (origin
(inherit (package-source postgresql-15))
(uri (string-append "https://ftp.postgresql.org/pub/source/v"
version "/postgresql-" version ".tar.bz2"))
(sha256
(base32
"0slg7ld5mldmv3pn1wxxwglm4s3xc6c91ixx24apj713qlvn4fy2"))))))
"08nzkq321fzfi8ba8gck9zxxg7xvv8vz3mbl4avrmlq933y4122h"))))))
(define-public postgresql-13
(package
@ -2520,6 +2473,66 @@ protocol is supported.")
(home-page "https://github.com/redis/hiredis")
(license license:bsd-3)))
(define-public ruby-hiredis
(package
(name "ruby-hiredis")
(version "0.6.3")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/redis/hiredis-rb")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"05y4g7frhym59m9x208zpvg2qvqvfjlgqmygxj8sqgl07n0ww1ks"))
(patches (search-patches
"ruby-hiredis-use-system-hiredis.patch"))))
(build-system ruby-build-system)
(arguments
(list
#:tests? #f ;require native extension
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-hiredis-include-directory
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "ext/hiredis_ext/extconf.rb"
;; Adjust the hiredis include directory.
(("\\$CFLAGS << \" -I/usr/include/hiredis\"")
(format #f "$CFLAGS << \" -I~a\""
(search-input-directory inputs "include/hiredis"))))))
(add-after 'unpack 'disable-building-c-extension
(lambda _
;; FIXME: The produced native extension appears to segfault when
;; run; disable building it until a solution is found (see:
;; https://github.com/redis/hiredis-rb/issues/93).
(substitute* "ext/hiredis_ext/extconf.rb"
(("build_hiredis = true")
"build_hiredis = false"))))
;; FIXME: Un-comment phase after the extension can be made to run
;; without crashing (see above).
;; (add-after 'build 'build-ext
;; (lambda _
;; (setenv "CC" #$(cc-for-target))
;; (invoke "rake" "compile")))
(add-before 'check 'start-redis
(lambda _
(invoke "redis-server" "--daemonize" "yes")))
(add-after 'install 'delete-mkmf.log
(lambda _
;; This build log captures non-deterministic file names (see:
;; https://github.com/rubygems/rubygems/issues/6259).
(for-each delete-file (find-files #$output "^mkmf\\.log$")))))))
(native-inputs (list redis ruby-rake-compiler))
(inputs (list hiredis))
(synopsis "Ruby wrapper for hiredis")
(description "@code{hiredis-rb} is a Ruby extension that wraps
@code{hiredis}, a minimalist C client for Redis. Both the synchronous
connection API and a separate protocol reader are supported. It is primarily
intended to speed up parsing multi bulk replies.")
(home-page "https://github.com/redis/hiredis-rb")
(license license:bsd-3)))
(define-public ruby-redis
(package
(name "ruby-redis")
@ -3561,6 +3574,79 @@ this library provides functions to facilitate such comparisons.")
SQLAlchemy Database Toolkit for Python.")
(license license:expat)))
(define-public python-sqlite-fts4
(package
(name "python-sqlite-fts4")
(version "1.0.3")
(source (origin
(method url-fetch)
(uri (pypi-uri "sqlite-fts4" version))
(sha256
(base32
"034kx0ac556sywy1p4qcrc36l24w3q0xwswqv2z9s3k8yvm5xc3q"))))
(build-system python-build-system)
(native-inputs (list python-pytest))
(home-page "https://github.com/simonw/sqlite-fts4")
(synopsis "Python functions for working with SQLite FTS4 search")
(description "This package provides custom SQLite functions written
in Python for ranking documents indexed using the SQLite's FTS4 full
text search extension.")
(license license:asl2.0)))
(define-public python-sqlite-utils
(package
(name "python-sqlite-utils")
(version "3.30")
(source (origin
(method git-fetch) ;for tests
(uri (git-reference
(url "https://github.com/simonw/sqlite-utils")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1a58syvh5jp40vi5libsxkqy99z75kj4ckxqmylbhd342ppfy1wp"))))
(build-system pyproject-build-system)
(arguments
(list #:phases #~(modify-phases %standard-phases
(add-after 'unpack 'relax-requirements
(lambda _
(substitute* "setup.py"
;; This is a variant designed to have a binary
;; wheel made available on PyPI, which is not a
;; concern to Guix.
(("click-default-group-wheel")
"click-default-group")))))))
(propagated-inputs (list python-click python-click-default-group
python-dateutil python-sqlite-fts4
python-tabulate))
(native-inputs (list python-pytest))
(home-page "https://github.com/simonw/sqlite-utils")
(synopsis
"CLI tool and Python utility functions for manipulating SQLite databases")
(description
"This package provides a CLI tool and Python utility functions for
manipulating SQLite databases. It's main features are:
@itemize
@item
Pipe JSON (or CSV or TSV) directly into a new SQLite database file,
automatically creating a table with the appropriate schema.
@item
Run in-memory SQL queries, including joins, directly against data in
CSV, TSV or JSON files and view the results.
@item
Configure SQLite full-text search against your database tables and run
search queries against them, ordered by relevance.
@item
Run transformations against your tables to make schema changes that
SQLite ALTER TABLE does not directly support, such as changing the type
of a column.
@item
Extract columns into separate tables to better normalize your existing
data.
@end itemize")
(license license:asl2.0)))
(define-public python-pickleshare
(package
(name "python-pickleshare")
@ -3972,7 +4058,7 @@ reasonable substitute.")
(define-public python-redis
(package
(name "python-redis")
(version "4.5.2")
(version "4.5.4")
(source (origin
;; The PyPI archive lacks some test resources such as the TLS
;; certificates under docker/stunnel/keys.
@ -3983,7 +4069,7 @@ reasonable substitute.")
(file-name (git-file-name name version))
(sha256
(base32
"0cz3gji3rb1h5dczyl11hm42wgsbz5v896cgbi14dij160b7m35i"))))
"0s5pswykjcyqbx471ib3gwy29xxa5ckgch9hy476x2s4pvhkbgmr"))))
(build-system pyproject-build-system)
(arguments
(list
@ -5019,3 +5105,84 @@ generic interface to caching backends of any variety, and additionally
provides API hooks which integrate these cache backends with the locking
mechanism of @code{dogpile}.")
(license license:expat)))
(define-public datasette
(package
(name "datasette")
(version "0.64.2")
(source (origin
(method git-fetch) ;for tests
(uri (git-reference
(url "https://github.com/simonw/datasette")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1c8ajdaraynrjvsb8xxxnkb7zgm5fwq60qczaz00n465ki80j4h3"))))
(build-system pyproject-build-system)
(arguments
(list
#:test-flags
;; There are multiple unexplained test failures (see:
;; https://github.com/simonw/datasette/issues/2048).
#~(list "-k" (string-append
"not (test_database_page_for_database_with_dot_in_name"
" or test_row_strange_table_name"
" or test_database_with_space_in_name"
" or test_tilde_encoded_database_names"
" or test_weird_database_names"
" or test_css_classes_on_body"
" or test_templates_considered"
" or test_row_html_compound_primary_key"
" or test_edit_sql_link_on_canned_queries"
" or test_alternate_url_json"
" or test_table_with_slashes_in_name"
" or test_searchable"
" or test_custom_query_with_unicode_characters"
" or test_searchmode)")
"-n" (number->string (parallel-job-count))
"-m" "not serial") ;cannot run in parallel
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'relax-requirements
(lambda _
;; The package needlessly specifies exact versions
;; of dependencies, when it works fine with others.
(substitute* "setup.py"
(("(black)==[0-9\\.]+" _ package)
package)
(("click-default-group-wheel")
"click-default-group")))))))
(propagated-inputs
(list python-aiofiles
python-asgi-csrf
python-asgiref
python-click
python-click-default-group
python-httpx
python-hupper
python-itsdangerous
python-janus
python-jinja2
python-mergedeep
python-pint
python-pluggy-next
python-pyyaml
python-uvicorn))
(native-inputs
(list python-beautifulsoup4
python-black
python-cogapp
python-pytest-7.1
python-pytest-asyncio
python-pytest-runner
python-pytest-timeout
python-pytest-xdist
python-setuptools
python-trustme))
(home-page "https://datasette.io/")
(synopsis "Multi-tool for exploring and publishing data")
(description "Datasette is a tool for exploring and publishing data.
It helps people take data of any shape or size and publish that as an
interactive, explorable website and accompanying API.")
(license license:asl2.0)))

40
gnu/packages/datastructures.scm
View File

@ -27,6 +27,7 @@
#:use-module (gnu packages autotools)
#:use-module (gnu packages boost)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix gexp)
@ -441,3 +442,42 @@ and tsl::robin_pg_set. The first two are faster and use a power of two growth
policy, the last two use a prime growth policy instead and are able to cope
better with a poor hash function.")
(license license:expat)))
(define-public zix
(let ((commit "56ec14c4369c591f5efbb500b0829b760bee7800")
(revision "0"))
(package
(name "zix")
(version (git-version "0.0.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/drobilla/zix.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"095b2vjmwh9swbwkkkjpcdhsi0c93lxrzd76k7hzdyyf7zb5rgdx"))))
(build-system meson-build-system)
(arguments
(list #:configure-flags #~(list "-Ddocs=disabled"))) ;needs "sphinxygen"
(native-inputs (list pkg-config))
(home-page "https://gitlab.com/drobilla/zix")
(synopsis "C library of portability wrappers and data structures")
(description
"Zix is a C library of portability wrappers and data structures. It
provides the following components:
@table @code
@item ZixAllocator A customizable allocator.
@item ZixBumpAllocator A simple realtime-safe bump-pointer allocator.
@item ZixBTree A page-allocated B-tree.
@item ZixHash An open-addressing hash table.
@item ZixRing A lock-free realtime-safe ring buffer.
@item ZixSem A portable semaphore wrapper.
@item ZixThread A portable thread wrapper.
@item ZixTree A binary search tree.
@item zixgest.h Digest functions suitable for hashing arbitrary data.
zix/filesystem.h Functions for working with filesystems.
@item zix/path.h Functions for working with filesystem paths lexically.
@end table")
(license license:isc))))

4
gnu/packages/debug.scm
View File

@ -837,7 +837,7 @@ engineering.")
(define-public seer-gdb
(package
(name "seer-gdb")
(version "1.14")
(version "1.16")
(source (origin
(method git-fetch)
(uri (git-reference
@ -846,7 +846,7 @@ engineering.")
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
"16mz1c58jf1zrgjpxmp58bx8viyidhs1qg0y8ql2f07wgyy6zx33"))))
"0jdvyg2jab1pvf36pvkyrfsg2wyy8zp1qx0v2ksclgrnr1hja6k6"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ; Those are strangely manual

6
gnu/packages/diffoscope.scm
View File

@ -74,7 +74,7 @@
(define-public diffoscope
(package
(name "diffoscope")
(version "238")
(version "239")
(source
(origin
(method git-fetch)
@ -83,7 +83,7 @@
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "11bib2h149b4jzxqhdi3dwivk6m4rvzjl8kg2n68sykgwa2fv24p"))))
(base32 "1awxazbrqqzqr5x50kam50ibmnjvidynkzp2158rdx5gy5lmnwcy"))))
(build-system python-build-system)
(arguments
`(#:phases (modify-phases %standard-phases
@ -194,7 +194,7 @@
openssh
openssl
pgpdump
poppler-next
poppler
python-jsbeautifier
r-minimal
rpm

4
gnu/packages/dlang.scm
View File

@ -217,7 +217,8 @@ bootstrapping more recent compilers written in D.")
(package
(inherit ldc-bootstrap)
(arguments
(substitute-keyword-arguments (package-arguments ldc-bootstrap)
(substitute-keyword-arguments
(strip-keyword-arguments '(#:tests?) (package-arguments ldc-bootstrap))
((#:make-flags _ #f)
'(list "all"
;; Also build the test runner binaries.
@ -226,7 +227,6 @@ bootstrapping more recent compilers written in D.")
`(,@flags "-DBUILD_SHARED_LIBS=ON"
"-DLDC_LINK_MANUALLY=OFF"
"-DLDC_DYNAMIC_COMPILE=OFF"))
((#:tests? _) #t)
((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'fix-compiler-rt-library-discovery

4
gnu/packages/education.scm
View File

@ -582,7 +582,7 @@ a pen-tablet display and a beamer.")
(define-public fet
(package
(name "fet")
(version "6.8.4")
(version "6.8.7")
(source
(origin
(method url-fetch)
@ -591,7 +591,7 @@ a pen-tablet display and a beamer.")
(list (string-append directory base)
(string-append directory "old/" base))))
(sha256
(base32 "0bwm6j0drxkrmx8zbr78a7xbbzb1i9365qv93fkwjg9v92b9clhr"))))
(base32 "0wcl2scgqf1vj0zy5an7hhhmsl5j1y605fcz0d7ylbzw5ixnbf1m"))))
(build-system gnu-build-system)
(arguments
(list

4
gnu/packages/efi.scm
View File

@ -96,10 +96,6 @@ environment presented by Intel's EFI.")
information.")
(license license:bsd-2))))
(define-public efi_analyzer
;; For a short while the package name contained an underscore.
(deprecated-package "efi_analyzer" efi-analyzer))
(define-public sbsigntools
(package
(name "sbsigntools")

22
gnu/packages/electronics.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2019 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2021 Leo Famulari <leo@famulari.name>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -252,7 +252,7 @@ supported devices, as well as input/output file format support.")
(define-public openboardview
(package
(name "openboardview")
(version "8.95.2")
(version "9.95.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -271,10 +271,10 @@ supported devices, as well as input/output file format support.")
(scandir "." (negate (cut member <> keep))))))
(patches
(search-patches "openboardview-use-system-imgui.patch"
"openboardview-use-system-utf8.patch"))
"openboardview-use-system-mpc.patch"))
(sha256
(base32
"1n2yfi8wpky0y231kq2zdgwn7f7kff8m53m904hxi5ppmwhx1d6q"))))
"1safjd729a7591rigkiy3c678bivrj5q1qwg1f18sijhlsfkf5b3"))))
(build-system cmake-build-system)
(arguments
(list
@ -298,13 +298,6 @@ supported devices, as well as input/output file format support.")
"add_subdirectory("
(search-input-directory inputs "share/glad") ;source_dir
" src/glad)\n"))))) ;binary dir
(add-before 'configure 'fix-utf8-include-directive
;; Our utf8-h package makes the header available as "utf8.h"
;; directly rather than "utf8/utf8.h".
(lambda _
(substitute* '("src/openboardview/FileFormats/BRDFile.cpp"
"src/openboardview/BoardView.cpp")
(("utf8/utf8.h") "utf8.h"))))
(add-before 'configure 'dynamically-load-gtk-via-absolute-path
;; The GTK library is not linked thus not present in the RUNPATH of
;; the produced binary; the absolute path of the libraries must to
@ -327,11 +320,14 @@ supported devices, as well as input/output file format support.")
(inputs
(list fontconfig
gtk+
imgui
;; OpenBoardView can build with Dear ImGui 1.88, but there are some
;; usability problems such as the difficulty to register clicks.
imgui-1.87
orangeduck-mpc
sdl2
sqlite
zlib))
(home-page "https://openboardview.org/")
(home-page "https://github.com/OpenBoardView/OpenBoardView")
(synopsis "Viewer for BoardView files")
(description "OpenBoardView is a viewer for BoardView files, which present
the details of a printed circuit board (PCB). It comes with features

1035
gnu/packages/emacs-xyz.scm
View File

File diff suppressed because it is too large Load Diff

49
gnu/packages/emulators.scm
View File

@ -17,6 +17,8 @@
;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2023 c4droid <c4droid@foxmail.com>
;;; Copyright © 2023 Yovan Naumovski <yovan@gorski.stream>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1758,7 +1760,7 @@ This is a part of the TiLP project.")
(define-public mame
(package
(name "mame")
(version "0.251")
(version "0.252")
(source
(origin
(method git-fetch)
@ -1767,7 +1769,7 @@ This is a part of the TiLP project.")
(commit (apply string-append "mame" (string-split version #\.)))))
(file-name (git-file-name name version))
(sha256
(base32 "102p6kz4ph9m0sxsyavqhjzg00gmnq8m5mnd5sf14c61d2jc0vzk"))
(base32 "07qhcm1v47sy2wj30nx3cbhvcbgki0cl83gabr0miiw60fhgyn6j"))
(modules '((guix build utils)))
(snippet
;; Remove bundled libraries.
@ -2538,7 +2540,7 @@ on a Commodore C64, C128 etc.")
(license license:zlib)))
(define-public uxn
(let ((commit "1b2049e238df96f32335edf1c6db35bd09f8b42d")
(let ((commit "83237c9641490d303a42c81ca247314d11055dea")
(revision "1"))
(package
(name "uxn")
@ -2551,7 +2553,7 @@ on a Commodore C64, C128 etc.")
(file-name (string-append name "-" version))
(sha256
(base32
"0d3hy1db1mfk2l7q7wdxvp1z0vkmyyb9pdp81d9zm58ylpxaq2cp"))))
"159qfz66k1jc43jhyl8by3yiphsr2dyiyclw1x7mkr3zciwc29z3"))))
(build-system gnu-build-system)
(arguments
(list #:tests? #f ;no tests
@ -2580,3 +2582,42 @@ on a Commodore C64, C128 etc.")
"This package provides an assembler and emulator for the Uxn
stack-machine, written in ANSI C. Graphical output is implemented using SDL2.")
(license license:expat))))
(define-public emu8051
(let ((commit "5dc681275151c4a5d7b85ec9ff4ceb1b25abd5a8")
(revision "1"))
(package
(name "emu8051")
(version (git-version "0.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jarikomppa/emu8051")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1xxmkcwvd5fjnhwbricafg4xvxvr8dxhfanyfp4rbksw37dgk2fx"))
(modules '((guix build utils)))
(snippet #~(begin
;; Replace LDFLAGS -lcurses to -lncurses
(substitute* "Makefile"
(("-lcurses") "-lncurses"))))))
(build-system gnu-build-system)
(arguments
(list #:tests? #f ;No test suite
#:make-flags #~(list (string-append "CC="
#$(cc-for-target)))
#:phases
#~(modify-phases %standard-phases
(delete 'configure) ;No ./configure script
(replace 'install
;; No installation procedure
(lambda _
(install-file "emu"
(string-append #$output "/bin")))))))
(inputs (list ncurses))
(home-page "https://github.com/jarikomppa/emu8051")
(synopsis "8051/8052 emulator with curses-based UI")
(description "emu8051 is a simulator of the 8051/8052 microcontrollers.")
(license license:expat))))

195
gnu/packages/engineering.scm
View File

@ -35,7 +35,8 @@
;;; Copyright © 2022 Greg Hogan <code@greghogan.com>
;;; Copyright © 2022 Artyom V. Poptsov <poptsov.artyom@gmail.com>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2022, 2023 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2023 Theofilos Pechlivanis <theofilos.pechlivanis@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -132,6 +133,7 @@
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages pretty-print)
#:use-module (gnu packages protobuf)
#:use-module (gnu packages pulseaudio)
#:use-module (gnu packages python)
#:use-module (gnu packages python-check)
#:use-module (gnu packages python-crypto)
@ -298,7 +300,7 @@ utilities.")
(package
(inherit geda-gaf)
(name "lepton-eda")
(version "1.9.14-20210407")
(version "1.9.18-20220529")
(home-page "https://github.com/lepton-eda/lepton-eda")
(source (origin
(method git-fetch)
@ -307,7 +309,7 @@ utilities.")
(commit version)))
(sha256
(base32
"0kyq0g6271vlwraw98637fn8bq2l6q4rll6748nn8rwsmfz71d0m"))
"06plrcab3s2rpyf0qv2gzc1yp33627xi8105niasgixckk6glnc2"))
(file-name (git-file-name name version))))
(arguments
(list
@ -328,28 +330,40 @@ utilities.")
"CFLAGS=-fcommon"))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-tests
(lambda _
;; For logs and auto-compilation
(setenv "HOME" "/tmp")
;; Ensure that readline is found by lepton-shell
(substitute* "script.in"
(("\\(eval-when \\(expand load eval\\)" m)
(string-append "
(add-to-load-path \"" #$(this-package-input "guile-readline")
"/share/guile/site/3.0\")
(set! %load-compiled-path (cons \""
#$(this-package-input "guile-readline")
"/lib/guile/3.0/site-ccache/"
"\" %load-compiled-path))
" m)))))
(add-before 'build 'fix-dynamic-link
(lambda* (#:key inputs outputs #:allow-other-keys)
(substitute* "libleptongui/scheme/schematic/ffi.scm.in"
(("@LIBLEPTONGUI@")
(string-append #$output "/lib/libleptongui.so")))
(substitute* '("libleptongui/scheme/schematic/ffi/gtk.scm.in"
"utils/attrib/lepton-attrib.scm")
(("@LIBGTK@")
(search-input-file inputs "/lib/libgtk-3.so")))
(substitute* '("libleptongui/scheme/schematic/ffi/gobject.scm.in")
(("@LIBGOBJECT@")
(search-input-file inputs "/lib/libgobject-2.0.so")))
(substitute* "liblepton/scheme/lepton/ffi.scm.in"
(("@LIBLEPTON@")
(string-append #$output "/lib/liblepton.so")))
(substitute* "utils/attrib/lepton-attrib.scm"
(("@LIBLEPTONATTRIB@")
(string-append (assoc-ref outputs "out")
"/lib/libleptonattrib.so")))
(substitute* "liblepton/scheme/lepton/log.scm.in"
(("@LIBGLIB@")
(search-input-file inputs "/lib/libglib-2.0.so")))
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "liblepton/scheme/lepton/ffi/lib.scm"
(("\"liblepton\"")
(string-append "\"" #$output "/lib/liblepton.so" "\""))
(("\"libleptonattrib\"")
(string-append "\"" #$output "/lib/libleptonattrib.so" "\""))
(("\"libleptongui\"")
(string-append "\"" #$output "/lib/libleptongui.so" "\""))
(("\"libglib-2.0\"")
(string-append
"\"" (search-input-file inputs "/lib/libglib-2.0.so") "\""))
(("\"libgobject-2.0\"")
(string-append
"\"" (search-input-file inputs "/lib/libgobject-2.0.so") "\""))
(("\"libgtk-3\"")
(string-append
"\"" (search-input-file inputs "/lib/libgtk-3.so") "\"")))
;; For finding libraries when running tests before installation.
(setenv "LIBLEPTONGUI"
@ -408,6 +422,7 @@ utilities.")
gtk+
gtksheet
guile-3.0
guile-readline
shared-mime-info
m4
pcb))
@ -763,14 +778,14 @@ ready for production.")
(define-public qelectrotech
(package
(name "qelectrotech")
(version "0.8.0")
(version "0.9.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://git.tuxfamily.org/qet/qet.git/"
"snapshot/qet-" version ".tar.gz"))
(sha256
(base32 "0w70fqwhqqzga1kfp34v8z1xf9988nvvi3d5gwl2sg429p9mpsk2"))))
(base32 "1qkgagx2bk2jfzs3d91kki01y5bs5p85f4c8xjxn45hmw4rl512b"))))
(build-system qt-build-system)
(arguments
;; XXX: tests are built for the CMake build option but it seems to be
@ -1613,6 +1628,49 @@ the API of spice simulators. Based on transformations specified in XML
language, ADMS transforms Verilog-AMS code into other target languages.")
(license license:gpl3)))
(define-public audmes
(package
(name "audmes")
(version "20220420")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/audmes/audmes%20sources/"
"audmes-source-" version ".zip"))
(sha256
(base32 "0yxjq2p1ca2wy2idwrlxr3b4vbp0d9268jll90y7l55fbid8vkp2"))))
(build-system cmake-build-system)
(arguments
(list
#:tests? #false ;there are none
#:phases
'(modify-phases %standard-phases
(add-after 'unpack 'prepare-csv.h
(lambda* (#:key inputs #:allow-other-keys)
(mkdir "libfccp")
(install-file (search-input-file inputs "csv.h") "libfccp"))))))
(inputs
(list alsa-lib pulseaudio wxwidgets))
(native-inputs
(list unzip
(let ((commit "4ade42d5f8c454c6c57b3dce9c51c6dd02182a66"))
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ben-strasser/fast-cpp-csv-parser")
(commit commit)))
(file-name (git-file-name "csv.h" (git-version "0" "0" commit)))
(sha256
(base32
"1y7ads97gkrjg1jc532n8gmjry0qhqxginw1gq7b4lk9s0pyl540"))))))
(home-page "https://sourceforge.net/projects/audmes/")
(synopsis "Oscilloscope and spectrum analyzer using sound card")
(description
"The audio measurement system is a system for audio measurement through
sound card. It contains: generator, oscilloscope, audio spectrum
analyzer (FFT) and frequency sweep plot.")
(license license:gpl2+)))
(define-public capstone
(package
(name "capstone")
@ -1810,7 +1868,7 @@ high-performance parallel differential evolution (DE) optimization algorithm.")
;; See <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=27344#236>.
(package
(name "libngspice")
(version "38")
(version "40")
(source
(origin
(method url-fetch)
@ -1821,7 +1879,7 @@ high-performance parallel differential evolution (DE) optimization algorithm.")
"old-releases/" version
"/ngspice-" version ".tar.gz")))
(sha256
(base32 "0mkw66d2isyyxssziwramd08amd7l1qm6dfg86r5s5kvqkv24gic"))))
(base32 "03c9irc44msdpqhbn2fhvb4g0sry8a2qgxl4mbbf557mq1xwl0z3"))))
(build-system gnu-build-system)
(arguments
`(;; No tests for libngspice exist.
@ -2418,7 +2476,7 @@ measurement devices and test equipment via GPIB, RS232, Ethernet or USB.")
(define-public python-scikit-rf
(package
(name "python-scikit-rf")
(version "0.24.1")
(version "0.26.0")
(source (origin
(method git-fetch) ;PyPI misses some files required for tests
(uri (git-reference
@ -2426,7 +2484,7 @@ measurement devices and test equipment via GPIB, RS232, Ethernet or USB.")
(commit (string-append "v" version))))
(sha256
(base32
"1shp8q8324dkwf448mv9zzi7krx882p122ma4fk015qz91sg4wff"))
"1v7dag6sm96b18y4p46cjjyqnq9r2r7qmiy0xvdwy3js4zf4iwcv"))
(file-name (git-file-name name version))))
(build-system pyproject-build-system)
(propagated-inputs (list python-matplotlib
@ -3033,40 +3091,37 @@ data structures and to operate on them.")
@code{Poke Ras mode} and @code{Poke Map mode}.")))
(define-public pcb2gcode
;; Take some additional commits after v2.4.0 to fix build against
;; geos 3.10.1.
(let ((commit "ae41f9fe41e57ee5d0cced6c3b3c8aea9c3f5392"))
(package
(name "pcb2gcode")
(version (git-version "2.4.0" "1" commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/pcb2gcode/pcb2gcode")
(commit commit)
(recursive? #t)))
(file-name (git-file-name name version))
(sha256
(base32
"1r1qmvpn5ffi2xpq2gigwsk8kn79s4s2ywfvicwf8i7rzwhkdf17"))))
(build-system gnu-build-system)
(inputs
(list boost
geos
gerbv
glibmm
gtkmm-2
librsvg))
(native-inputs
(list autoconf automake libtool pkg-config))
(home-page "https://github.com/pcb2gcode/pcb2gcode")
(synopsis "Generate G-code for milling PCBs")
(description "pcb2gcode is a command-line program for isolation routing
(package
(name "pcb2gcode")
(version "2.5.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/pcb2gcode/pcb2gcode")
(commit (string-append "v" version))
(recursive? #t)))
(file-name (git-file-name name version))
(sha256
(base32
"01s41znkcq9x1rinsdqrrdj8p35isckrcxs14ajsi7wr39n1m5kk"))))
(build-system gnu-build-system)
(inputs
(list boost
geos
gerbv
glibmm
gtkmm-2
librsvg))
(native-inputs
(list autoconf automake libtool pkg-config))
(home-page "https://github.com/pcb2gcode/pcb2gcode")
(synopsis "Generate G-code for milling PCBs")
(description "pcb2gcode is a command-line program for isolation routing
and drilling of PCBs. It takes Gerber files as input and outputs G-code files
for the milling of PCBs. It also includes an autoleveller for the automatic
dynamic calibration of the milling depth.")
(license license:gpl3+))))
(license license:gpl3+)))
;; libdxfrw has no readme, no version release, no tags. Initial commit says
;; "libdxfrw-0.6.3 import", but it shares no git history with "upstream"
@ -4044,7 +4099,7 @@ form, numpad.
(define-public rizin
(package
(name "rizin")
(version "0.4.1")
(version "0.5.2")
(source (origin
(method url-fetch)
(uri (string-append
@ -4052,7 +4107,7 @@ form, numpad.
version "/rizin-src-v" version ".tar.xz"))
(sha256
(base32
"1f5zzlnr2na4hkvcwn4n9cjlk6595945vwrw89pa683qk5mrb7b6"))))
"18zca3iwdif200wiivm065fs0a5g520q6380205cijca7ky81avi"))))
(build-system meson-build-system)
(arguments
(list
@ -4067,7 +4122,12 @@ form, numpad.
"-Duse_sys_xxhash=enabled"
"-Duse_sys_openssl=enabled"
"-Duse_sys_tree_sitter=enabled"
"-Duse_sys_libuv=enabled"
"-Duse_sys_lzma=enabled"
"-Duse_sys_libmspack=enabled"
"-Duse_zlib=true"
"-Duse_lzma=true"
"-Dinstall_sigdb=false"
"-Duse_swift_demangler=true"
"-Duse_gpl=true")
#:phases
#~(modify-phases %standard-phases
@ -4078,10 +4138,13 @@ form, numpad.
;; And 2 of them are failing, reported upstream:
;; <https://github.com/rizinorg/rizin/issues/2905>.
(substitute* "test/meson.build"
(("subdir\\('integration'\\)") "")))))))
(("subdir\\('integration'\\)") ""))
;;; Skip analysis_var test, which is failing.
(substitute* "test/unit/meson.build"
(("'analysis_var',\n") "")))))))
(native-inputs (list pkg-config))
(inputs
(list capstone file libuv libzip lz4 openssl tree-sitter xxhash zlib))
(list capstone file libuv libzip lz4 openssl tree-sitter xxhash zlib libmspack))
(home-page "https://rizin.re")
(synopsis "Disasm, debug, analyze and manipulate binary files")
(description

6
gnu/packages/erlang.scm
View File

@ -45,7 +45,7 @@
(define-public erlang
(package
(name "erlang")
(version "25.0.4")
(version "25.3")
(source (origin
(method git-fetch)
;; The tarball from http://erlang.org/download contains many
@ -57,7 +57,7 @@
(file-name (git-file-name name version))
(sha256
(base32
"0n39pd5d8mmyj03d8fdan0zb2pcc383pmqf0v7s356fgirdbsrcm"))
"0jw230fy0z358aj1xi80hg14qyqyj5p4wp0pfifkr0n694j3h2d1"))
(patches (search-patches "erlang-man-path.patch"))))
(build-system gnu-build-system)
(native-inputs
@ -71,7 +71,7 @@
(version-major+minor version) ".tar.gz"))
(sha256
(base32
"17ap4kawlbqmcl13c543gh54p1ng8ivxmbn6lbbij07k81ry5p1y"))))))
"0vnpds5q17xc4jjj3sbsllpx68wyhgvx70714vkzyd68rbjmhmk7"))))))
(inputs
(list ncurses openssl wxwidgets))
(propagated-inputs

8
gnu/packages/fcitx.scm
View File

@ -52,7 +52,7 @@
(define-public fcitx-qt5
(package
(name "fcitx-qt5")
(version "1.2.6")
(version "1.2.7")
(source
(origin
(method git-fetch)
@ -63,7 +63,7 @@
(file-name
(git-file-name name version))
(sha256
(base32 "13sanrir696fv7s44b7q453s5qi4r7ag0r3iyggyzk8xyf6rw8fk"))))
(base32 "1gw51m7hfnplkym33dzwfa8g0q20ji61pr80s2i6xhy2glrm1ssj"))))
(build-system qt-build-system)
(arguments
`(#:tests? #f ; No target
@ -71,12 +71,12 @@
(modify-phases %standard-phases
(add-after 'unpack 'patch-install-dir
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "quickphrase-editor/CMakeLists.txt"
(substitute* "qt5/quickphrase-editor/CMakeLists.txt"
(("\\$\\{FCITX4_ADDON_INSTALL_DIR\\}")
(string-append
(assoc-ref outputs "out")
"/lib/fcitx")))
(substitute* "platforminputcontext/CMakeLists.txt"
(substitute* "qt5/platforminputcontext/CMakeLists.txt"
(("\\$\\{CMAKE_INSTALL_QTPLUGINDIR\\}")
(string-append
(assoc-ref outputs "out")

36
gnu/packages/fcitx5.scm
View File

@ -56,7 +56,7 @@
(define-public xcb-imdkit
(package
(name "xcb-imdkit")
(version "1.0.4")
(version "1.0.5")
(source
(origin
(method url-fetch)
@ -64,7 +64,7 @@
"https://download.fcitx-im.org/fcitx5/xcb-imdkit/xcb-imdkit-"
version ".tar.xz"))
(sha256
(base32 "1jfhrqq89grrkwmp4lbn1pxi7935jhhz9xr8yqa07aarqb86skw2"))
(base32 "1k03ix0r385lf56pyw653h3f2inkl774n9fh1wkb2m4jv4kcsgrp"))
(modules '((guix build utils)))
(snippet
'(begin
@ -87,7 +87,7 @@ client.")
(define-public fcitx5
(package
(name "fcitx5")
(version "5.0.21")
(version "5.0.23")
(source
(origin
(method url-fetch)
@ -95,7 +95,7 @@ client.")
"https://download.fcitx-im.org/fcitx5/fcitx5/fcitx5-"
version "_dict.tar.xz"))
(sha256
(base32 "10hchay93ld3fs2p17gmq50gsv96q908hzjinn0nh0qcnpz8sx60"))))
(base32 "1w26v0a8qizv8flpkmg04b42kwym6ca1a1chng7j2j1xizjhiw0p"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags
@ -172,14 +172,14 @@ client.")
(define-public libime
(package
(name "libime")
(version "1.0.16")
(version "1.0.17")
(source
(origin
(method url-fetch)
(uri (string-append "https://download.fcitx-im.org/fcitx5/libime/libime-"
version "_dict.tar.xz"))
(sha256
(base32 "1ydja6bpb9q7j2dj87yni1jlw9nj7256g3dqvz1hl4dl8zill0rz"))))
(base32 "00d191nghqkcxky5i2j5v8105ckhfh0bdjbkk8swyndjp35bn54f"))))
(build-system cmake-build-system)
(inputs
(list fcitx5 boost))
@ -194,7 +194,7 @@ editors.")
(define-public fcitx5-gtk
(package
(name "fcitx5-gtk")
(version "5.0.21")
(version "5.0.23")
(source
(origin
(method url-fetch)
@ -202,7 +202,7 @@ editors.")
"/fcitx5-gtk/fcitx5-gtk-"
version ".tar.xz"))
(sha256
(base32 "04909s99nng835qaycsbhwkmml4prhvpg3r3b39ranqyjy4m4dqj"))))
(base32 "0s08j8y7bxn9hjz9xkza2fal24r9az2p7js7v86nbjmvy7klq4md"))))
(build-system cmake-build-system)
(arguments
(list
@ -312,7 +312,7 @@ IM module for GTK+3 applications.
(define-public fcitx5-qt
(package
(name "fcitx5-qt")
(version "5.0.16")
(version "5.0.17")
(source
(origin
(method url-fetch)
@ -320,7 +320,7 @@ IM module for GTK+3 applications.
"/fcitx5-qt/fcitx5-qt-"
version ".tar.xz"))
(sha256
(base32 "1wsal20629iwcjdqs8mj4ksg62al2aw05da11ak35fjbbw2w2fjq"))))
(base32 "1x4iks052jn6dcwd1lv1i9cpwh3l3qnnd3phryfsg4kn4yhyfs22"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags
@ -347,7 +347,7 @@ for Qt based application.")
(define-public fcitx5-anthy
(package
(name "fcitx5-anthy")
(version "5.0.13")
(version "5.0.14")
(source
(origin
(method url-fetch)
@ -355,7 +355,7 @@ for Qt based application.")
"/fcitx5-anthy/fcitx5-anthy-"
version ".tar.xz"))
(sha256
(base32 "1qj8kylskjyxcvrc0mg46s3cn8rrfblgp6kkkw26x5js4di74shh"))))
(base32 "1dx7ajygdy244lwyv3fv14b4wdg3csppxhk8p0g2zwjfvxq4v1qa"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f)) ;; no tests
@ -371,7 +371,7 @@ the Anthy input method.")
(define-public fcitx5-chinese-addons
(package
(name "fcitx5-chinese-addons")
(version "5.0.16")
(version "5.0.17")
(source
(origin
(method url-fetch)
@ -379,7 +379,7 @@ the Anthy input method.")
"/fcitx5-chinese-addons/fcitx5-chinese-addons-"
version "_dict.tar.xz"))
(sha256
(base32 "06s7d3n4h5b0msw0b48pmy3xcz7268b7r00p3wfr83wb1m9rv0xw"))))
(base32 "0vilq49q02hrim0dg4z3rm6p3ma8v4smh0r5q5rrj6bkyf1apivx"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags
@ -435,7 +435,7 @@ including input methods previous bundled inside Fcitx 4:
(define-public fcitx5-configtool
(package
(name "fcitx5-configtool")
(version "5.0.16")
(version "5.0.17")
(source
(origin
(method url-fetch)
@ -443,7 +443,7 @@ including input methods previous bundled inside Fcitx 4:
"https://download.fcitx-im.org/fcitx5"
"/fcitx5-configtool/fcitx5-configtool-" version ".tar.xz"))
(sha256
(base32 "06n8yhmkammr04nhv0zaw14da3i0dg02wszbr15812shcmdcwazf"))))
(base32 "1mc6axvkv2i396v7hyqllpiv5rdnf8vvqg9bkb66ljni4dnikdpq"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags
@ -545,7 +545,7 @@ for Fcitx 5 with following color variants:
(define-public fcitx5-rime
(package
(name "fcitx5-rime")
(version "5.0.15")
(version "5.0.16")
(source (origin
(method url-fetch)
(uri (string-append "https://download.fcitx-im.org/fcitx5"
@ -553,7 +553,7 @@ for Fcitx 5 with following color variants:
".tar.xz"))
(sha256
(base32
"0qq2khc1816sbc3lw2djhpadbhlcp8g7j8wjzb2rzw9yl6n10lkh"))))
"0d3qikdcm55p7qjfgiidx1a0zij3sv4s6j7vxxmxwyynjl5xjxjh"))))
(build-system cmake-build-system)
(arguments
'(#:tests? #f ;no tests

113
gnu/packages/file-systems.scm
View File

@ -260,6 +260,45 @@ unmaintained---to use the @code{inotify} API instead of the deprecated
@code{dnotify} to monitor file changes.")
(license license:gpl2+)))
(define-public avfs
(package
(name "avfs")
(version "1.1.5")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/avf/avfs/" version
"/avfs-" version ".tar.bz2"))
(sha256
(base32
"1kvjaaj2dlps98alpc8rhnzhk4vriw46f3y7b2h0jq2d21j3p7xd"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags '("--enable-library" "--enable-fuse")))
(native-inputs (list pkg-config))
(inputs (list xz fuse))
(synopsis "Virtual file system that allows browsing of compressed files")
(description
"AVFS is a FUSE-based filesystem that allows browsing of compressed
files. It provides the @command{mountavfs} command that starts a small
@command{avfsd} daemon. When a specially formatted path under @file{~/.avfs}
is accessed, the daemon provides listings and content access on the fly. The
canonical form of virtual file name is:
@example
[basepath]#handler[options][:parameters][/internalpath]
@end example
Example file names:
@itemize
@item @file{~/.avfs/home/user/archive.tar.gz#ugz#utar/path/file}
@item @file{~/.avfs/#http:localhost|some|path}
@end itemize
@code{emacs-dired-hacks} has @code{dired-avfs} module which enables seamless
integration with @code{avfs}.")
(home-page "http://avf.sourceforge.net/")
(license license:gpl2+)))
(define-public davfs2
(package
(name "davfs2")
@ -435,6 +474,80 @@ significantly increases the risk of irreversible data loss!")
(license (list license:gpl2 ; fsattr/src/e4attr.* → sbin/fsattr
license:gpl3+)))) ; the rest
(define-public gocryptfs
(package
(name "gocryptfs")
(version "2.3.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/rfjakob/gocryptfs")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1m0xk5imkx81i1l4wv1j1xh9ckp0gqssq4v46pkkcq2xlv2dvxlr"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/rfjakob/gocryptfs"
#:build-flags
#~(list
"-ldflags" (string-append
"-X main.GitVersion=" #$version
" -X main.GitVersionFuse=" #$(package-version
go-github-com-hanwen-go-fuse-v2)
" -X main.BuildDate=" "[reproducible]"))
#:phases
#~(modify-phases %standard-phases
;; after 'check phase, should maybe unmount leftover mounts as in
;; https://github.com/rfjakob/gocryptfs/blob/a55b3cc15a6d9bce116a90f33df4bc99d9dd6a10/test.bash#L28
(replace 'build
(lambda arguments
(for-each
(lambda (directory)
(apply (assoc-ref %standard-phases 'build)
(append arguments (list #:import-path directory))))
(list
"github.com/rfjakob/gocryptfs"
"github.com/rfjakob/gocryptfs/gocryptfs-xray"
"github.com/rfjakob/gocryptfs/contrib/statfs"
"github.com/rfjakob/gocryptfs/contrib/findholes"
"github.com/rfjakob/gocryptfs/contrib/atomicrename")))))))
(native-inputs (list
go-github-com-hanwen-go-fuse-v2
go-github-com-aperturerobotics-jacobsa-crypto
go-github-com-jacobsa-oglematchers
go-github-com-jacobsa-oglemock
go-github-com-jacobsa-ogletest
go-github-com-jacobsa-reqtrace
go-github-com-pkg-xattr
go-github-com-rfjakob-eme
go-github-com-sabhiram-go-gitignore
go-github-com-spf13-pflag
go-golang-org-x-crypto
go-golang-org-x-net
go-golang-org-x-sys
go-golang-org-x-term
openssl
pkg-config))
(home-page "https://github.com/rfjakob/gocryptfs")
(synopsis "Encrypted overlay filesystem")
(description
"Gocryptfs is an encrypted overlay filesystem written in Go. It
features a file-based encryption that is implemented as a mountable
FUSE filesystem.
Gocryptfs was inspired by EncFS and strives to fix its security issues
while providing good performance. Gocryptfs is as fast as EncFS in the
default mode and significantly faster than paranoia mode in EncFS,
which provides a security level comparable to Gocryptfs.
On CPUs without AES-NI, gocryptfs uses OpenSSL through a thin wrapper
called stupidgcm. This provides a 4x speedup compared to Go's builtin
AES-GCM implementation.")
(license license:expat)))
(define-public gphotofs
(package
(name "gphotofs")

28
gnu/packages/finance.scm
View File

@ -622,7 +622,7 @@ other machines/servers. Electrum does not download the Bitcoin blockchain.")
(define-public electron-cash
(package
(name "electron-cash")
(version "4.2.12")
(version "4.2.14")
(source
(origin
(method git-fetch)
@ -631,7 +631,7 @@ other machines/servers. Electrum does not download the Bitcoin blockchain.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1bfnfpdyi3q5zq0zj07dq82aj3cihnr7j82gy4ch97182lsl6nms"))))
(base32 "086rqqxxh1dmw1qiwmry6sraai3xg44sb85wdw8zkj30si9780kk"))))
(build-system python-build-system)
(arguments
(list
@ -652,11 +652,6 @@ other machines/servers. Electrum does not download the Bitcoin blockchain.")
(substitute* "electroncash/secp256k1.py"
(("libsecp256k1.so.0")
(search-input-file inputs "lib/libsecp256k1.so.0")))))
(add-after 'unpack 'relax-requirements
(lambda _
(substitute* "contrib/requirements/requirements.txt"
(("qdarkstyle==2\\.6\\.8")
"qdarkstyle"))))
(add-after 'install 'wrap-qt
(lambda* (#:key outputs inputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
@ -703,7 +698,7 @@ blockchain.")
;; the system's dynamically linked library.
(package
(name "monero")
(version "0.18.2.0")
(version "0.18.2.2")
(source
(origin
(method git-fetch)
@ -721,7 +716,7 @@ blockchain.")
delete-file-recursively
'("external/miniupnp" "external/rapidjson"))))
(sha256
(base32 "0k41mkz0lp8qavgy3d9813pkmyy8rnhd0fl7wvzdhr7fznqn9sca"))))
(base32 "0hi6grf2xnnra60g3dzspahi0rwyiad6hc07n3pq3aknmz5xx8d4"))))
(build-system cmake-build-system)
(native-inputs
(list doxygen
@ -808,7 +803,7 @@ the Monero command line client and daemon.")
(define-public monero-gui
(package
(name "monero-gui")
(version "0.18.2.0")
(version "0.18.2.2")
(source
(origin
(method git-fetch)
@ -824,7 +819,7 @@ the Monero command line client and daemon.")
;; See the 'extract-monero-sources' phase.
(delete-file-recursively "monero")))
(sha256
(base32 "0ka20p4f6fbhkhrm1jbssnjh5sjl419fy418jl8hcg34jriywvck"))))
(base32 "07gfvrxm3n0844ximm4rd3f3n0m125shpawdzg8blfjjbfr1k1ij"))))
(build-system qt-build-system)
(native-inputs
`(,@(package-native-inputs monero)
@ -1807,7 +1802,12 @@ following three utilities are included with the library:
;; exist.
(substitute* "src/Makefile.test.include"
(("test/utilprocess_tests.cpp")
""))))
""))
;; Disable PaymentServer failing test because it's using
;; an expired SSL certificate.
(substitute* "src/qt/test/test_main.cpp"
(("if \\(QTest::qExec\\(&test2\\) != 0\\)")
"if (QTest::qExec(&test2) == 0)"))))
(add-before 'check 'set-home
(lambda _
;; Tests write to $HOME
@ -2266,7 +2266,7 @@ mining.")
(define-public p2pool
(package
(name "p2pool")
(version "3.1")
(version "3.2")
(source
(origin
(method git-fetch)
@ -2275,7 +2275,7 @@ mining.")
(commit (string-append "v" version))
(recursive? #t)))
(file-name (git-file-name name version))
(sha256 (base32 "0fvm864p4pxjsb03g88jkaj3wj94dkxrbwjwa1jk6s11skzn0z68"))
(sha256 (base32 "0jwddazvp9rv88dd2b67rn2y23grycnl539abl5ax6b8a89wm7i8"))
(modules '((guix build utils)))
(snippet
#~(for-each delete-file-recursively

97
gnu/packages/fonts.scm
View File

@ -52,6 +52,7 @@
;;; Copyright © 2022 Jose G Perez Taveras <josegpt27@gmail.com>
;;; Copyright © 2022 Hilton Chain <hako@ultrarare.space>
;;; Copyright © 2022 Nguyễn Gia Phong <mcsinyx@disroot.org>
;;; Copyright © 2023 Nicolas Graves <ngraves@ngraves.fr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -115,6 +116,30 @@
titling.")
(license license:silofl1.1)))
(define-public font-chivo
(let ((commit "dc61c468d79781eb5183426e88e844af16cdc3e5")
(revision "0"))
(package
(name "font-chivo")
(version (git-version "20221010" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Omnibus-Type/Chivo")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0gdsnflnzwy8ajrk93dxwjashxisln58qcqa6dh4smnk7k0a34qs"))))
(build-system font-build-system)
(home-page "https://fonts.google.com/specimen/Chivo")
(synopsis "The Chivo family of fonts")
(description "Google Chivo Fonts is a grotesque family of fonts, ideal for
highlights and headlines. In october 2022, the family is upgraded to a
variable font ranging from Thin to Black, including matching italics. The
glyphset has also been extended, supporting now a wider number of languages.")
(license license:silofl1.1))))
(define-public font-ibm-plex
(package
(name "font-ibm-plex")
@ -235,37 +260,41 @@ Cyrillic, Canadian Syllabics and most Latin based languages are supported.")
(license license:cc0)))
(define-public font-abattis-cantarell
(package
(name "font-abattis-cantarell")
(version "0.303")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.gnome.org/GNOME/cantarell-fonts")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1d1ay0fdqchk0wa5yqxis2c98imvzsbbd2kjv0x8sk4fm419847b"))))
(build-system meson-build-system)
(arguments
(list #:configure-flags #~(list "-Dbuildstatics=true")))
(native-inputs
(list gettext-minimal
psautohint
python
python-cffsubr
python-fontmath
python-statmake
python-ufo2ft))
(home-page "https://wiki.gnome.org/Projects/CantarellFonts")
(synopsis "Cantarell sans-serif typeface")
(description "The Cantarell font family is a contemporary Humanist
;; Use the latest commit, as the last released version, 0.303, has problems
;; with the newer statmake. The dependency has been removed in the latest
;; code base.
(let ((commit "e049149faf0c15b0711e8d790e2333be923f0486")
(revision "0"))
(package
(name "font-abattis-cantarell")
(version (git-version "0.303" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.gnome.org/GNOME/cantarell-fonts")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"032csq99bkmmgh9mmmbrgg4fzxgkcsvxv4wy595qms72mmlgmcc7"))))
(build-system meson-build-system)
(arguments
(list #:configure-flags #~(list "-Dbuildstatics=true")))
(native-inputs
(list gettext-minimal
psautohint
python
python-cffsubr
python-fontmath
python-ufo2ft))
(home-page "https://wiki.gnome.org/Projects/CantarellFonts")
(synopsis "Cantarell sans-serif typeface")
(description "The Cantarell font family is a contemporary Humanist
sans-serif designed for on-screen reading. It is used by GNOME@tie{}3.
This package contains both the non-variable as well as the variable versions
of the font.")
(license license:silofl1.1)))
(license license:silofl1.1))))
(define-public font-lato
(package
@ -2072,7 +2101,7 @@ for Inria, a public research institute in computer science and mathematics.")
(define-public font-sil-gentium
(package
(name "font-sil-gentium")
(version "5.000")
(version "6.200")
(source (origin
(method url-fetch)
(uri (string-append
@ -2080,7 +2109,7 @@ for Inria, a public research institute in computer science and mathematics.")
version ".zip"))
(sha256
(base32
"0m7189870hha217n1vgpmf89mwggrxkh679ffi1lxpnjggqi2n9k"))))
"0wxhsxv7xqsfbrywax0lcbmyfbrvrcm5g4c7a2v4j4cng4xi08cv"))))
;; Note: The zip file provides TTF files only, but the developer release,
;; which contains additional files, has a 'SOURCES.txt' file that says
;; that "the primary source files for the fonts are the fonts themselves".
@ -2098,7 +2127,7 @@ italics shapes. This package provides only TrueType files (TTF).")
(define-public font-sil-andika
(package
(name "font-sil-andika")
(version "5.000")
(version "6.200")
(source (origin
(method url-fetch)
(uri (string-append
@ -2106,7 +2135,7 @@ italics shapes. This package provides only TrueType files (TTF).")
version ".zip"))
(sha256
(base32
"01zm7p32gxfwmv7h3cfj2vx59846w2y6rxqy67grn2dyjh8pljv0"))))
"0z7qvjlidn3m2k40mwnm3azf3wd8pi1yvy2q30p5vkyyzhipb6nc"))))
;; As for Gentium (see above), the TTF files are considered source.
(build-system font-build-system)
(synopsis "Sans serif font designed especially for literacy use")
@ -2121,7 +2150,7 @@ confused with one another. This package provides only TrueType files (TTF).")
(define-public font-sil-charis
(package
(name "font-sil-charis")
(version "5.000")
(version "6.200")
(source (origin
(method url-fetch)
(uri (string-append
@ -2129,7 +2158,7 @@ confused with one another. This package provides only TrueType files (TTF).")
version ".zip"))
(sha256
(base32
"1zcvw37f1a7gkml3yfm6hxh93844llm7xj4w52600qq3ndrm8gjy"))))
"1pksr5wc9grdj75md4phr1a0gpjxk7xlmhv2nybsd2hbfrssl2ab"))))
;; As for Gentium (see above), the TTF files are considered source.
(build-system font-build-system)
(synopsis "Serif font for the Cyrillic and Latin alphabets")

79
gnu/packages/fontutils.scm
View File

@ -12,7 +12,7 @@
;;; Copyright © 2019, 2020, 2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020 Roel Janssen <roel@gnu.org>
;;; Copyright © 2020, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
;;; Copyright © 2022 Felipe Balbi <balbi@kernel.org>
;;;
@ -34,6 +34,7 @@
(define-module (gnu packages fontutils)
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
#:use-module (gnu packages bash)
#:use-module (gnu packages bison)
#:use-module (gnu packages check)
#:use-module (gnu packages compression)
@ -158,14 +159,13 @@ them as it goes.")
(define-public python-afdko
(package
(name "python-afdko")
(version "3.9.1")
(version "3.9.4")
(source
(origin
(method url-fetch)
(uri (pypi-uri "afdko" version))
(sha256
(base32 "0k1204vykgx32saa495s1lgmz1dixcp8bjiv486imx77killvm02"))
(patches (search-patches "python-afdko-suppress-copyright-test.patch"))
(base32 "1d3b1590gxlindh1sjhwvxnryn5zil98hgdwbgsr76fd657r3f99"))
(modules '((guix build utils)))
(snippet
#~(begin
@ -191,27 +191,13 @@ them as it goes.")
(substitute* "CMakeLists.txt"
(("CMAKE_CXX_STANDARD 11")
"CMAKE_CXX_STANDARD 17"))))
(add-after 'unpack 'use-system-libxml2
(lambda _
;; XXX: These horrifying substitutions revert this upstream
;; PR: <https://github.com/adobe-type-tools/afdko/pull/1527>.
;; Hopefully it's only temporary..!
(substitute* (find-files "." "^CMakeLists.txt$")
(("\\(\\(NOT \\$\\{LibXml2_FOUND\\}\\) OR \
\"\\$\\{CMAKE_SYSTEM\\}\" MATCHES \"Linux\"\\)")
"(NOT ${LibXml2_FOUND})")
(("\\(\\(\\$\\{LibXml2_FOUND\\}\\) AND \
\\(NOT \"\\$\\{CMAKE_SYSTEM\\}\" MATCHES \"Linux\"\\)\\)")
"(${LibXml2_FOUND})"))
(substitute* "cmake/ExternalLibXML2.cmake"
(("set\\(LIBXML2_STATIC_INCLUDE_DIR")
"set(LIBXML2_INCLUDE_DIR)"))))
(add-after 'unpack 'patch-problematic-requirements
(lambda _
(substitute* "requirements.txt"
;; Remove lxml because the version requested here is different
;; than the one propagated by the python-fonttools package.
(("^lxml==.*") ""))))
(("^lxml==.*") "")
(("<=4.38.0") ">=4.38.0"))))
(add-after 'unpack 'patch-setup.py
(lambda _
;; There is no use for Python-provided CMake nor Ninja binaries.
@ -251,7 +237,14 @@ them as it goes.")
(number->string (parallel-job-count))
;; This test is known to fail on multiple architectures.
;; https://github.com/adobe-type-tools/afdko/issues/1163
"-k not test_type1mm_inputs"))))
"-k"
(string-append
"not test_type1mm_inputs "
;; These tests fail for unknown reasons (see:
;; https://github.com/adobe-type-tools/afdko/issues/1635).
"and not test_rvrn_vf "
"and not test_cjk_vf "
"and not test_sparse_cjk_vf")))))
(add-after 'check 'wrap
(assoc-ref %standard-phases 'wrap))
(add-before 'wrap 'wrap-PATH
@ -276,7 +269,8 @@ them as it goes.")
python-setuptools-scm
python-wheel))
(inputs
(list java-antlr4-runtime-cpp
(list bash-minimal
java-antlr4-runtime-cpp
libxml2
`(,util-linux "lib")))
(propagated-inputs
@ -463,23 +457,15 @@ converts any cubic curves to quadratic. The most useful function is probably
(define-public python-ufo2ft
(package
(name "python-ufo2ft")
(version "2.28.0")
(version "2.31.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "ufo2ft" version))
(sha256
(base32 "068hm62s1iphyg66w96vgiif6ahpcsaf8fr44rk6jdf71f6fyqd5"))))
(build-system python-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "pytest" "-vv")))))))
(native-inputs
(list python-pytest python-setuptools-scm))
(base32 "1rg2997af8blvswlwif0kpz2vxrlh555gzqslz6yv9y7i7v8lphl"))))
(build-system pyproject-build-system)
(native-inputs (list python-pytest python-setuptools-scm))
(propagated-inputs
(list python-booleanoperations
python-cffsubr
@ -501,13 +487,13 @@ to generate OpenType font binaries from Unified Font Objects (UFOs).")
(define-public python-fontmath
(package
(name "python-fontmath")
(version "0.9.2")
(version "0.9.3")
(source
(origin
(method url-fetch)
(uri (pypi-uri "fontMath" version ".zip"))
(sha256
(base32 "014407hpvqdx123g06i664qrfq86bf9l621x7jllpgqw3rqir2sc"))))
(base32 "070v1jz5f18g15if459ppwswq4w5hzffwp1gvdc5j47bgz5qflva"))))
(build-system python-build-system)
(propagated-inputs (list python-fonttools))
(native-inputs
@ -574,13 +560,13 @@ implementing the pen protocol for manipulating glyphs.")
(hidden-package
(package
(name "python-fontparts-bootstrap")
(version "0.10.8")
(version "0.11.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "fontParts" version ".zip"))
(sha256
(base32 "0i5ww6yl9m74wnjd7gyvjkdh7m56haql4gv7lasmppdipay2209g"))))
(base32 "0j4h8hszky639gmfy1avmw670y80ya49kca8yc635h5ihl0c3v8x"))))
(build-system python-build-system)
(propagated-inputs
(list python-booleanoperations
@ -773,9 +759,12 @@ suite of the @code{psautohint} package.")
(uri (pypi-uri "psautohint" version))
(sha256
(base32 "0zzz7hy1kkkjfrrm9ly2di3xv2x1ywdqhbyqy21k670jysldw3nm"))))
(build-system python-build-system)
(build-system pyproject-build-system)
(arguments
(list
;; The CJKSparseVar.subset.hinted.otf test fails with slightly different
;; output caused by the newer fonttools version used in Guix.
#:test-flags #~(list "-k" "not CJKSparseVar.subset.hinted.otf")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'copy-font-data
@ -785,12 +774,8 @@ suite of the @code{psautohint} package.")
#$(this-package-native-input "psautohint-font-data")
"tests/integration/data")
(for-each make-file-writable
(find-files "tests/integration/data"))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "pytest" "-vv")))))))
(propagated-inputs (list python-fonttools))
(find-files "tests/integration/data")))))))
(inputs (list python-fonttools))
(native-inputs
(list psautohint-font-data
python-fs
@ -1573,7 +1558,7 @@ generate bitmaps.")
(define-public python-statmake
(package
(name "python-statmake")
(version "0.5.1")
(version "0.6.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1582,7 +1567,7 @@ generate bitmaps.")
(file-name (git-file-name name version))
(sha256
(base32
"0qavzspxhwnaayj5mxq6ncjjziggabxj157ls04h2rdrpq167706"))))
"1k6fkzyhsfkgi599sb017wzf4jzbnp5wjg1kla1b33vgjpa7n5nw"))))
(build-system pyproject-build-system)
(arguments
(list

342
gnu/packages/freedesktop.scm
View File

@ -27,7 +27,7 @@
;;; Copyright © 2021 Robby Zambito <contact@robbyzambito.me>
;;; Copyright © 2021, 2022 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2021, 2022 John Kehayias <john.kehayias@protonmail.com>
;;; Copyright © 2021, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021, 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Daniel Meißner <daniel.meissner-i4k@ruhr-uni-bochum.de>
;;; Copyright © 2022 Wamm K. D. <jaft.r@outlook.com>
;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
@ -225,73 +225,75 @@ application-centers for distributions.")
(sha256
(base32 "1sd8syldyq6bphfdm129s3gq554vfv7vh1vcwzk48gjryf101awk"))
(patches
(search-patches
"farstream-gupnp.patch" ;for test 'transmitter/rawudp'
"farstream-make.patch"))))
(search-patches "farstream-gupnp.patch" ;for test 'transmitter/rawudp'
"farstream-make.patch"))))
(build-system glib-or-gtk-build-system)
(outputs '("out" "doc"))
(arguments
`(#:configure-flags
(list
"--enable-gtk-doc"
"--enable-glib-asserts"
(string-append "--with-html-dir="
(assoc-ref %outputs "doc")
"/share/gtk-doc/html"))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'copy-common
(lambda _
(delete-file "autogen.sh")
(copy-recursively
(assoc-ref %build-inputs "common")
"common")
#t))
(add-after 'unpack 'disable-timeout-tests
(lambda _
(substitute* "tests/check/Makefile.am"
;; This test timeouts despite changing
;; the value of 'CK_DEFAULT_TIMEOUT' to 600,
;; as per %common-gstreamer-phases.
;; Reported to upstream:
;; https://gitlab.freedesktop.org/farstream/farstream/-/issues/20
(("[ \t]*transmitter/nice.*$") ""))))
(add-after 'unpack 'patch-docbook-xml
(lambda* (#:key inputs #:allow-other-keys)
(with-directory-excursion "docs"
(substitute* '("libs/farstream-libs-docs.sgml"
"plugins/farstream-plugins-docs.sgml")
(("http://www.oasis-open.org/docbook/xml/4.1.2/")
(string-append (assoc-ref inputs "docbook-xml")
"/xml/dtd/docbook/"))))
#t)))))
(list
#:configure-flags
#~(list "--enable-gtk-doc"
"--enable-glib-asserts"
(string-append "--with-html-dir=" #$output
"/share/gtk-doc/html"))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'copy-common
(lambda _
(delete-file "autogen.sh")
(copy-recursively
#$(origin
(method git-fetch)
(uri
(git-reference
(url "https://gitlab.freedesktop.org/gstreamer/common.git")
(commit "52adcdb89a9eb527df38c569539d95c1c7aeda6e")))
(file-name (git-file-name "common" "latest.52adcdb"))
(sha256
(base32
"1zlm1q1lgcb76gi82rial5bwy2j9sz1x6x48ijhiz89cml7xxd1r")))
"common")))
(add-after 'unpack 'disable-problematic-tests
(lambda _
(substitute* "tests/check/Makefile.am"
;; This test fails since updating gstreamer to version 1.22.1
;; (see:
;; https://gitlab.freedesktop.org/farstream/farstream/-/issues/25).
(("^\trtp/recvcodecs.*") "")
;; This test timeouts despite changing the value of
;; 'CK_DEFAULT_TIMEOUT' to 600 (see:
;; https://gitlab.freedesktop.org/farstream/farstream/-/issues/20).
(("^\ttransmitter/nice.*") ""))))
(add-after 'unpack 'patch-docbook-xml
(lambda* (#:key native-inputs inputs #:allow-other-keys)
(with-directory-excursion "docs"
(substitute* '("libs/farstream-libs-docs.sgml"
"plugins/farstream-plugins-docs.sgml")
(("http://www.oasis-open.org/docbook/xml/4.1.2/")
(search-input-directory (or native-inputs inputs)
"xml/dtd/docbook/")))))))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("common"
,(origin
(method git-fetch)
(uri
(git-reference
(url "https://gitlab.freedesktop.org/gstreamer/common.git")
(commit "88e512ca7197a45c4114f7fa993108f23245bf50")))
(file-name
(git-file-name "common" "latest.88e512c"))
(sha256
(base32 "1nk94pnskjyngqcfb9p32g4yvf4nzpjszisw24r9azl0pawqpsn6"))))
("docbook-xml" ,docbook-xml-4.1.2)
("docbook-xsl" ,docbook-xsl)
("gobject-introspection" ,gobject-introspection)
("gtk-doc" ,gtk-doc/stable)
("libtool" ,libtool)
("perl" ,perl)
("pkg-config" ,pkg-config)
("python" ,python-wrapper)
("xsltproc" ,libxslt)))
(list autoconf
automake
docbook-xml-4.1.2
docbook-xsl
gobject-introspection
gtk-doc/stable
libtool
libxslt
perl
pkg-config
python-wrapper))
(inputs
(list glib gtk+ gupnp-igd libnice))
(list glib
gtk+
gupnp-igd
libnice))
(propagated-inputs
(list gstreamer gst-plugins-bad gst-plugins-base gst-plugins-good))
(list gstreamer
gst-plugins-bad
gst-plugins-base
gst-plugins-good))
(synopsis "The Farstream VVoIP framework")
(description "Farstream is a collection of GStreamer modules and libraries
for videoconferencing.")
@ -474,112 +476,82 @@ display servers. It supports many different languages and emoji.")
(name "xdg-utils")
(version "1.1.3")
(source
(origin
(method url-fetch)
(uri (string-append
"https://portland.freedesktop.org/download/xdg-utils-"
version ".tar.gz"))
(sha256
(base32
"1nai806smz3zcb2l5iny4x7li0fak0rzmjg6vlyhdqm8z25b166p"))))
(origin
(method url-fetch)
(uri (string-append
"https://portland.freedesktop.org/download/xdg-utils-"
version ".tar.gz"))
(sha256
(base32
"1nai806smz3zcb2l5iny4x7li0fak0rzmjg6vlyhdqm8z25b166p"))))
(build-system gnu-build-system)
(native-inputs
(list docbook-xsl docbook-xml-4.1.2 libxslt w3m xmlto))
(list docbook-xsl docbook-xml-4.1.2 libxslt w3m-for-tests xmlto))
(inputs
`(("awk" ,gawk)
;; TODO(staging): Make this unconditional, to avoid canonical packages,
;; see <https://lists.gnu.org/archive/html/guix-devel/2020-02/msg00148.html>.
,@(if (%current-target-system)
`(("bash-minimal" ,bash-minimal)) ; for 'wrap-program'
'())
("coreutils" ,coreutils)
,@(if (%current-target-system)
`(("file" ,file))
'())
("grep" ,grep)
("inetutils" ,inetutils) ; xdg-screensaver uses `hostname'
("perl-file-mimeinfo" ,perl-file-mimeinfo) ; for mimeopen fallback
("sed" ,sed)
("xprop" ,xprop) ; for Xfce detecting
("xset" ,xset))) ; for xdg-screensaver
(list bash-minimal ;for 'wrap-program'
coreutils
file
gawk
grep
inetutils ;xdg-screensaver uses `hostname'
perl-file-mimeinfo ;for mimeopen fallback
sed
xprop ;for Xfce detecting
xset)) ;for xdg-screensaver
(arguments
`(#:tests? #f ; no check target
#:modules ((srfi srfi-26)
(list
#:tests? #f ;no check target
#:modules `((srfi srfi-26)
,@%gnu-build-system-modules)
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-hardcoded-paths
;; TODO(staging): make unconditional
(,@(if (%current-target-system)
'(lambda* (#:key inputs #:allow-other-keys))
'(lambda _))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-hardcoded-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "scripts/xdg-mime.in"
(("/usr/bin/file")
(,@(if (%current-target-system)
'(search-input-file inputs "bin/file")
'(which "file")))))
(search-input-file inputs "bin/file")))
(substitute* "scripts/xdg-open.in"
(("/usr/bin/printf")
(,@(if (%current-target-system)
'(search-input-file inputs "bin/printf")
'(which "printf")))))
#t))
(add-before 'build 'locate-catalog-files
;; TODO(staging): Make unconditional for simplicity.
(lambda* (#:key inputs ,@(if (%current-target-system)
'(native-inputs)
'()) #:allow-other-keys)
;; TODO(staging): Make unconditional for simplicity and
;; to avoid depending on input labels.
(let ,(if (%current-target-system)
`((native-inputs (or native-inputs inputs))
(xmldoc (search-input-directory native-inputs
"xml/dtd/docbook"))
(xsldoc
(search-input-directory
native-inputs
(string-append "xml/xsl/docbook-xsl-"
,(package-version docbook-xsl)))))
`((xmldoc
(string-append (assoc-ref inputs "docbook-xml")
"/xml/dtd/docbook"))
(xsldoc
(string-append (assoc-ref inputs "docbook-xsl")
"/xml/xsl/docbook-xsl-"
,(package-version docbook-xsl)))))
(for-each (lambda (file)
(substitute* file
(("http://.*/docbookx\\.dtd")
(string-append xmldoc "/docbookx.dtd"))))
(find-files "scripts/desc" "\\.xml$"))
(substitute* "scripts/Makefile"
;; Apparently `xmlto' does not bother to looks up the stylesheets
;; specified in the XML, unlike the above substitition. Instead it
;; uses a hard-coded URL. Work around it here, but if this is
;; common perhaps we should hardcode this path in xmlto itself.
(("\\$\\(XMLTO\\) man")
(string-append "$(XMLTO) -x " xsldoc
"/manpages/docbook.xsl man")))
(setenv "STYLESHEET"
(string-append xsldoc "/html/docbook.xsl"))
;; TODO(staging): Might as well remove the #t while we are at
;; it.
#t)))
(add-after 'install 'wrap-executables
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(with-directory-excursion (string-append out "/bin")
(let ((path-ext
(map (cute string-append <> "/bin")
(cons out
(map (cute assoc-ref inputs <>)
'("awk" "coreutils" "grep" "inetutils"
"perl-file-mimeinfo" "sed" "xprop"
"xset"))))))
(for-each (cute wrap-program <>
`("PATH" ":" prefix ,path-ext))
(find-files "."))))
#t))))))
(search-input-file inputs "bin/printf")))))
(add-before 'build 'locate-catalog-files
(lambda* (#:key native-inputs inputs #:allow-other-keys)
(let* ((native (or native-inputs inputs))
(xmldoc (search-input-directory native
"xml/dtd/docbook"))
(xsldoc (search-input-directory
native
(string-append "xml/xsl/docbook-xsl-"
#$(package-version
(this-package-native-input
"docbook-xsl"))))))
(for-each (lambda (file)
(substitute* file
(("http://.*/docbookx\\.dtd")
(string-append xmldoc "/docbookx.dtd"))))
(find-files "scripts/desc" "\\.xml$"))
(substitute* "scripts/Makefile"
;; Apparently `xmlto' does not bother to looks up the stylesheets
;; specified in the XML, unlike the above substitition. Instead it
;; uses a hard-coded URL. Work around it here, but if this is
;; common perhaps we should hardcode this path in xmlto itself.
(("\\$\\(XMLTO\\) man")
(string-append "$(XMLTO) -x " xsldoc
"/manpages/docbook.xsl man")))
(setenv "STYLESHEET"
(string-append xsldoc "/html/docbook.xsl")))))
(add-after 'install 'wrap-executables
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((dependencies '("awk" "grep" "hostname" "ls" "mimeopen"
"sed" "xprop" "xset"))
(pkgs (map (lambda (cmd)
(search-input-file inputs
(string-append "bin/" cmd)))
dependencies))
(bindirs (map dirname pkgs)))
(with-directory-excursion (string-append #$output "/bin")
(for-each (cute wrap-program <>
`("PATH" ":" prefix ,bindirs))
(find-files ".")))))))))
(home-page "https://www.freedesktop.org/wiki/Software/xdg-utils/")
(synopsis "Freedesktop.org scripts for desktop integration")
(description "The xdg-utils package is a set of simple scripts that
@ -1804,7 +1776,7 @@ which speak the Qualcomm MSM Interface (QMI) protocol.")
(define-public modem-manager
(package
(name "modem-manager")
(version "1.18.10")
(version "1.18.12")
(source (origin
(method url-fetch)
(uri (string-append
@ -1812,7 +1784,7 @@ which speak the Qualcomm MSM Interface (QMI) protocol.")
"ModemManager-" version ".tar.xz"))
(sha256
(base32
"1sv53lvz9nfbq6jzprl5xhai0vylc01kglcdrgz2vszf5615y98n"))))
"0c74n5jl1qvq2qlbwzfkgxny8smjcgkid1nhdnl6qnlmbn9f8r5l"))))
(build-system gnu-build-system)
(arguments
(list
@ -1963,32 +1935,32 @@ different sorts of messages in different formats.")
(license license:lgpl2.1+)))
(define-public telepathy-idle
(package
(name "telepathy-idle")
(version "0.2.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/TelepathyIM/telepathy-idle")
(commit (string-append "telepathy-idle-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1pfw4g2cicw3ykxhsy743r0fc1yqbdrqxh2c5ha6am19dajcr95l"))))
(build-system gnu-build-system)
(native-inputs
(list autoconf automake libtool pkg-config))
(inputs
(list libxslt python-2 python2-dbus))
(propagated-inputs
(list telepathy-glib))
(home-page "https://telepathy.freedesktop.org/")
(synopsis "Telepathy IRC connection manager")
(description
"Idle is an IRC connection manager for the Telepathy framework. This
;; Use the latest commit, as the latest release does not support Python 3.
(let ((commit "b516eab0f2b92e078e0f5cab4224214d215b2ea5")
(revision "0"))
(package
(name "telepathy-idle")
(version (git-version "0.2.2" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/TelepathyIM/telepathy-idle")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "02wb61h2k3hhis5y2xi5rhc6pmikd13x722hk620sqb9b3m5pn3s"))))
(build-system gnu-build-system)
(native-inputs (list autoconf automake libtool pkg-config))
(inputs (list libxslt python-wrapper python-dbus))
(propagated-inputs (list telepathy-glib))
(home-page "https://telepathy.freedesktop.org/")
(synopsis "Telepathy IRC connection manager")
(description
"Idle is an IRC connection manager for the Telepathy framework. This
package enables usage of IRC channels and private messages in Telepathy instant
messaging clients such as Empathy, GNOME Shell or KDE Telepathy.")
(license (list license:lgpl2.1 license:lgpl2.1+))))
(license (list license:lgpl2.1 license:lgpl2.1+)))))
(define-public telepathy-mission-control
(package

49
gnu/packages/games.scm
View File

@ -75,6 +75,7 @@
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Hendursaga <hendursaga@aol.com>
;;; Copyright © 2022 Parnikkapore <poomklao@yahoo.com>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -3636,7 +3637,7 @@ for common mesh file formats, and collision detection.")
(package
(inherit irrlicht)
(name "irrlicht-for-minetest")
(version "1.9.0mt8")
(version "1.9.0mt10")
(source
(origin
(method git-fetch)
@ -3646,7 +3647,7 @@ for common mesh file formats, and collision detection.")
(file-name (git-file-name name version))
(sha256
(base32
"1646pj40dqkzbbc2lxzbmq2pjyrkgggbi2lah6pa5mv420p402kg"))))
"0y5vchz91khs8dmrkpgc7sqmvzx2yjj6svivvm80r4yppv7s03rw"))))
(build-system cmake-build-system)
(arguments
;; No check target.
@ -5799,7 +5800,7 @@ programmers may also add their own favorite language.")
(define-public bambam
(package
(name "bambam")
(version "1.0.0")
(version "1.2.1")
(source
(origin
(method git-fetch)
@ -5808,7 +5809,7 @@ programmers may also add their own favorite language.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "18cwd1wpyyx8y61cags9bkdhx9x858xicc4y1c9c2s0xjmgzhl3i"))))
(base32 "148cqahklqd4m88j5z1xf3fh4vha41f31wian11hkas106mbsya9"))))
(build-system python-build-system)
(arguments
`(#:tests? #f ; no tests
@ -6014,7 +6015,7 @@ for Un*x systems with X11.")
(define-public freeciv
(package
(name "freeciv")
(version "3.0.6")
(version "3.0.7")
(source
(origin
(method url-fetch)
@ -6026,7 +6027,7 @@ for Un*x systems with X11.")
(version-major+minor version) "/" version
"/freeciv-" version ".tar.xz")))
(sha256
(base32 "0hp4mkbcf5sipqkfjynls4m1qlh6kn0mp3jlqjrjwylmgcah3rs0"))))
(base32 "1i6sm2ich9bazbg8wjzn8z1c5hgmg541lgw8f899fgfhgvqhdrpn"))))
(build-system gnu-build-system)
(inputs
(list curl cyrus-sasl gtk+ sdl-mixer zlib))
@ -6920,7 +6921,7 @@ at their peak of economic growth and military prowess.
(define-public open-adventure
(package
(name "open-adventure")
(version "1.12")
(version "1.15")
(source
(origin
(method git-fetch)
@ -6929,7 +6930,7 @@ at their peak of economic growth and military prowess.
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "07mg7cp12g27dw8sya17jqz6qp93q7c8zadsvym3w602z87g40in"))))
(base32 "0gair1dfqgzjzvsasisv2szh3wgy8pfgmpxpisybn6svn294yzhf"))))
(build-system gnu-build-system)
(arguments
(list
@ -7611,7 +7612,7 @@ Strife, Chex Quest, and fan-created games like Harmony, Hacx and Freedoom.")
("sdl-mixer" ,sdl2-mixer)
("zlib" ,zlib)
("libpng" ,libpng)
("curl" ,curl-minimal)
("curl" ,curl)
("alsa-lib" ,alsa-lib)))
(home-page "https://odamex.net/")
(synopsis "Multiplayer Doom port")
@ -8256,7 +8257,7 @@ your score gets higher, you level up and the blocks fall faster.")
(define-public endless-sky
(package
(name "endless-sky")
(version "0.9.16.1")
(version "0.10.0")
(source
(origin
(method git-fetch)
@ -8265,10 +8266,13 @@ your score gets higher, you level up and the blocks fall faster.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0cb2g1cb0mk6x9gq2x7n10rxlfhsq8wnssk068j6h80al3hhybly"))))
(build-system scons-build-system)
(base32 "1zbizmigxdwpi3m7sxv9hhf3aa18kbhsfrp48zy3iw2v64pw9l3r"))))
(build-system cmake-build-system)
(arguments
(list #:scons-flags #~(list (string-append "PREFIX=" #$output))
(list #:configure-flags #~(list "-DES_USE_VCPKG=0"
"-DES_USE_SYSTEM_LIBRARIES=1")
#:make-flags #~(list (string-append "PREFIX=" #$output))
#:build-type "Release"
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
@ -8277,11 +8281,8 @@ your score gets higher, you level up and the blocks fall faster.")
(substitute* "source/Files.cpp"
(("/usr/local") #$output))
;; Install game binary into %out/bin.
(substitute* "SConstruct"
(("games\"") "bin\""))))
(add-before 'build 'use-gcc-ar
;; Use gcc-ar to support LTO.
(lambda _ (setenv "AR" "gcc-ar"))))))
(substitute* "CMakeLists.txt"
(("games\\)") "bin)")))))))
(inputs
(list glew
libjpeg-turbo
@ -9094,7 +9095,7 @@ levels to unlock.")
(define simgear
(package
(name "simgear")
(version "2020.3.17")
(version "2020.3.18")
(source
(origin
(method url-fetch)
@ -9102,7 +9103,7 @@ levels to unlock.")
(version-major+minor version) "/"
"simgear-" version ".tar.bz2"))
(sha256
(base32 "0z1pkxs4fw8xkiainxgcpayhmn0b4c0sc2j6q88x66zzvk89qpjc"))
(base32 "1jin6rbz4s83x4k91lbdw5gb0vrc8frbmwpc55wl0wmiaqjwzhbc"))
(modules '((guix build utils)))
(snippet
'(begin
@ -9147,7 +9148,7 @@ and also provides the base for the FlightGear Flight Simulator.")
(version-major+minor version) "/"
"flightgear-" version ".tar.bz2"))
(sha256
(base32 "0m0qbyf9i84avkfmjm1a5bijl1nqs7wnpw7rfz53ls52mkgdww36"))
(base32 "0dyyi1v97w3mdwsv9kdd194inz1461wqv3zy3wyai0n17wdf7a1r"))
(modules '((guix build utils)))
(snippet
'(begin
@ -9219,7 +9220,7 @@ and also provides the base for the FlightGear Flight Simulator.")
"FlightGear-" version "-data.txz"))
(sha256
(base32
"1s6qahfia3llghfqgx990brg7gbb7z7accsq528kcyp6k8mvlpia"))))))
"0f2jn2br27ahf5gggx70zcp80wrylahw7nbqdcx7ml9qphg6rjak"))))))
(home-page "https://www.flightgear.org/")
(synopsis "Flight simulator")
(description "The goal of the FlightGear project is to create a
@ -11014,7 +11015,7 @@ disassembly of the DOS version, extended with new features.")
(define-public fheroes2
(package
(name "fheroes2")
(version "1.0.0")
(version "1.0.2")
(source
(origin
(method git-fetch)
@ -11023,7 +11024,7 @@ disassembly of the DOS version, extended with new features.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0bvp9xhzlh4d6q5jlvz4nciald75g9v0vahzax47q9xgajnbibzk"))))
(base32 "18hl84lapmqc810rnh2wkd4p2mnfcl4gbmg5sizakqcfpahgsl33"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ; no tests

173
gnu/packages/geo.scm
View File

@ -13,7 +13,7 @@
;;; Copyright © 2019, 2020 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2020, 2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020 Christopher Baines <mail@cbaines.net>
;;; Copyright © 2020, 2021, 2022 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2020, 2021, 2022, 2023 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2021 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2021, 2023 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2021 Clément Lassieur <clement@lassieur.org>
@ -44,6 +44,7 @@
#:use-module (guix build-system gnu)
#:use-module (guix build-system go)
#:use-module (guix build-system meson)
#:use-module (guix build-system pyproject)
#:use-module (guix build-system python)
#:use-module (guix build-system qt)
#:use-module (guix gexp)
@ -291,7 +292,7 @@ OpenStreetMap written in C using eXpat, Cairo and GLib.")
(define-public geos
(package
(name "geos")
(version "3.11.1")
(version "3.11.2")
(source (origin
(method url-fetch)
(uri (string-append "http://download.osgeo.org/geos/geos-"
@ -299,7 +300,7 @@ OpenStreetMap written in C using eXpat, Cairo and GLib.")
".tar.bz2"))
(sha256
(base32
"1qhbirv1rbznv99ha0pa0zybvcsn0dsz2xfc65vr8bgrm77v63kd"))))
"1k744nwfa5sj4amzsdjxgac83wh6xfb9xi7z5bka7ic1jik7gw5i"))))
(build-system cmake-build-system)
(arguments `(#:phases
(modify-phases %standard-phases
@ -596,7 +597,7 @@ fully fledged Spatial SQL capabilities.")
(define-public proj
(package
(name "proj")
(version "9.1.1")
(version "9.2.0")
(source
(origin
(method url-fetch)
@ -604,7 +605,7 @@ fully fledged Spatial SQL capabilities.")
version ".tar.gz"))
(sha256
(base32
"0fbd1vj4cj19kwh03vdn0a4hr0xaacvi876yyyw5xfsj1q0x8g00"))))
"03nm1sgvh237my7ss6kayn6887cbnayvjxrrxsrfcakkmbsida6y"))))
(build-system cmake-build-system)
(native-inputs (list googletest pkg-config))
(propagated-inputs (list curl libtiff sqlite)) ;required by proj.pc
@ -698,14 +699,14 @@ projections.")
(define-public python-pyproj
(package
(name "python-pyproj")
(version "3.4.0")
(version "3.5.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "pyproj" version))
(sha256
(base32
"0czbfl5dd7jckbwvinfwiwdb99sxj796gfn3a9zqbsdc4xcl8257"))))
"1xhvr0n5gb7v6x0wd7cqmc0zrky2fag7bq2shx6l2qqq3icx2ncq"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -852,30 +853,24 @@ require a spatial database such as PostGIS.")
(file-name (git-file-name name version))
(sha256
(base32 "1n8qjn184p5a2s3j6x6iyc1i7p3l3xnbqqxm6ajwgwv6j5fw1d5a"))))
(build-system python-build-system)
(build-system pyproject-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)
; TODO: Disable network tests
(invoke "pytest" "tests"
"-k"
(string-append
;; The following tests require network access.
"not test_geocode_to_gdf"
" and not test_stats"
" and not test_osm_xml"
" and not test_elevation"
" and not test_routing"
" and not test_plots"
" and not test_find_nearest"
" and not test_api_endpoints"
" and not test_graph_save_load"
" and not test_graph_from_functions"
" and not test_geometries"))))))))
(list
#:test-flags
'(list "-k"
(string-append
;; The following tests require network access.
"not test_geocode_to_gdf"
" and not test_stats"
" and not test_osm_xml"
" and not test_elevation"
" and not test_routing"
" and not test_plots"
" and not test_find_nearest"
" and not test_api_endpoints"
" and not test_graph_save_load"
" and not test_graph_from_functions"
" and not test_geometries"))))
(propagated-inputs
(list python-folium
python-geopandas
@ -1181,8 +1176,17 @@ utilities for data translation and processing.")
(invoke "python" "-m" "pytest" "--pyargs" "cartopy"
;; These tests require online data.
"-m" "not natural_earth and not network"
;; This one too but it's not marked as such.
"-k" "not test_gridliner_labels_bbox_style")))))))
"-k"
(string-append
;; This one too but it's not marked as such.
"not test_gridliner_labels_bbox_style"
;; Those tests fail with proj 9.2.0
;; https://github.com/SciTools/cartopy/issues/2145
" and not test_epsg"
" and not test_default"
" and not test_eccentric_globe"
" and not test_ellipsoid_transform"
" and not test_eccentric_globe"))))))))
(propagated-inputs
(list python-matplotlib
python-numpy
@ -1644,14 +1648,14 @@ persisted.
(define-public python-rtree
(package
(name "python-rtree")
(version "1.0.0")
(version "1.0.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "Rtree" version))
(sha256
(base32 "10lnhf67c9pb0yisxdqmb52dy6lj1za1h9d4p69v0ihk2a138j6h"))))
(build-system python-build-system)
(base32 "0aalh07fyf6vpr0a6zswnqvvrjhyic1zg6w4bl368fihkilj2892"))))
(build-system pyproject-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
@ -1661,11 +1665,7 @@ persisted.
(substitute* "rtree/finder.py"
(("find_library\\(\"spatialindex_c\"\\)")
(string-append "\"" libspatialindex
"/lib/libspatialindex_c.so\""))))))
(replace 'check
(lambda* (#:key outputs tests? #:allow-other-keys)
(when tests?
(invoke "pytest")))))))
"/lib/libspatialindex_c.so\"")))))))))
(native-inputs
(list python-numpy python-pytest python-wheel))
(inputs
@ -2462,14 +2462,14 @@ growing set of geoscientific methods.")
(define-public qgis
(package
(name "qgis")
(version "3.26.2")
(version "3.30.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://qgis.org/downloads/qgis-"
version ".tar.bz2"))
(sha256
(base32 "1hsq3wchsf7db7134fgg9xzzap35q1s4r6649d0krbw80xw5asca"))))
(base32 "0mdgqyqr3nswp5qfpjrpr35lxizcrz73a1gs3ddxsd1xr9amzb5s"))))
(build-system cmake-build-system)
(arguments
`(#:modules ((guix build cmake-build-system)
@ -2511,20 +2511,56 @@ growing set of geoscientific methods.")
(("\\$\\(git rev-parse --show-toplevel\\)")
(getcwd)))))
(replace 'check
(lambda* (#:key inputs tests? #:allow-other-keys)
(lambda* (#:key inputs outputs tests? parallel-tests?
#:allow-other-keys)
(when tests?
(setenv "HOME" "/tmp")
(system "Xvfb :1 &")
(setenv "DISPLAY" ":1")
(setenv "TRAVIS" "true")
(setenv "CTEST_OUTPUT_ON_FAILURE" "1")
(let* ((out (assoc-ref outputs "out"))
(grass-version ,(package-version grass))
(grass-majorminor (string-join
(list-head
(string-split grass-version #\.) 2)
""))
(grass (string-append (assoc-ref inputs "grass")
"/grass" grass-majorminor)))
(setenv "GISBASE" grass))
(invoke "ctest"
"-j" (if parallel-tests?
(number->string (parallel-job-count))
"1")
"-E" (string-join
'(;; Disable tests that require network access
"PyQgsExternalStorageAwsS3"
"PyQgsExternalStorageWebDav"
"qgis_filedownloader"
"test_core_networkaccessmanager"
"test_core_tiledownloadmanager"
"test_gui_filedownloader"
"test_provider_wcsprovider"
;; Disable tests that need OGR built with
;; libspatialite support
"PyQgsAttributeTableModel"
"PyQgsOGRProviderSqlite"
"PyQgsWFSProvider"
"PyQgsOapifProvider"
;; Disable tests that need Python compiled
;; with loadable SQLite extensions.
"PyQgsFieldFormattersTest"
"PyQgsSpatialiteProvider"
"PyQgsLayerDependencies"
"PyQgsDBManagerGpkg"
"PyQgsDBManagerSpatialite"
;; Disable tests that need poppler (with Cairo)
"PyQgsLayoutExporter"
"PyQgsPalLabelingLayout"
;; Disable tests that need Orfeo ToolBox
"ProcessingOtbAlgorithmsTest"
;; TODO: Find why the following tests fail
"ProcessingQgisAlgorithmsTestPt1"
"ProcessingQgisAlgorithmsTestPt2"
"ProcessingQgisAlgorithmsTestPt3"
"ProcessingQgisAlgorithmsTestPt4"
"ProcessingGdalAlgorithmsRasterTest"
@ -2533,68 +2569,42 @@ growing set of geoscientific methods.")
"ProcessingGrass7AlgorithmsRasterTestPt1"
"ProcessingGrass7AlgorithmsRasterTestPt2"
"ProcessingGrass7AlgorithmsVectorTest"
"ProcessingOtbAlgorithmsTest"
"test_core_authmanager"
"test_core_compositionconverter"
"test_core_coordinatereferencesystem"
"test_core_expression"
"test_core_gdalutils"
"test_core_labelingengine"
"test_core_layout"
"test_core_layouthtml"
"test_core_layoutlabel"
"test_core_layoutmultiframe"
"test_core_layoutpicture"
"test_core_legendrenderer"
"test_core_networkaccessmanager"
"test_core_rasterfilewriter"
"test_core_tiledownloadmanager"
"test_gui_dualview"
"test_gui_htmlwidgetwrapper"
"test_gui_filedownloader"
"test_core_pointcloudlayerexporter"
"test_core_projectstorage"
"test_core_coordinatereferencesystem"
"test_gui_queryresultwidget"
"test_provider_copcprovider"
"test_analysis_processingalgspt1"
"test_analysis_processingalgspt2"
"test_analysis_processing"
"test_provider_wcsprovider"
"qgis_grassprovidertest7"
"test_app_gpsinformationwidget"
"test_app_gpsintegration"
"PyQgsAnnotation"
"PyQgsAttributeTableModel"
"PyQgsAuthenticationSystem"
"PyQgsExternalStorageWebDAV"
"PyQgsFieldFormattersTest"
"PyQgsDatumTransform"
"PyQgsFileUtils"
"PyQgsGeometryTest"
"PyQgsGoogleMapsGeocoder"
"PyQgsGroupLayer"
"PyQgsHashLineSymbolLayer"
"PyQgsLayoutExporter"
"PyQgsLayoutHtml"
"PyQgsLineSymbolLayers"
"PyQgsMapLayer"
"PyQgsNetworkContentFetcherRegistry"
"PyQgsOGRProviderGpkg"
"PyQgsOGRProviderSqlite"
"PyQgsPalLabelingCanvas"
"PyQgsPalLabelingLayout"
"PyQgsPalLabelingPlacement"
"PyQgsProcessExecutable"
"PyQgsProcessExecutablePt1"
"PyQgsProcessExecutablePt2"
"PyQgsProviderConnectionGpkg"
"PyQgsProviderConnectionSpatialite"
"PyQgsOGRProvider"
"PyQgsSpatialiteProvider"
"PyQgsVectorFileWriter"
"PyQgsVectorLayerEditBuffer"
"PyQgsVectorLayerEditBufferGroup"
"PyQgsVectorLayerProfileGenerator"
"PyQgsVirtualLayerProvider"
"PyQgsWFSProvider"
"PyQgsWFSProviderGUI"
"PyQgsOapifProvider"
"PyQgsLayerDependencies"
"PyQgsDBManagerGpkg"
"PyQgsDBManagerSpatialite"
"PyQgsAuxiliaryStorage"
"PyQgsSelectiveMasking"
"qgis_shellcheck"
"qgis_sipify"
"qgis_sip_include"
"qgis_sip_uptodate")
@ -2663,6 +2673,7 @@ growing set of geoscientific methods.")
qtdeclarative-5
qtkeychain
qtlocation
qtmultimedia-5
qtserialport
qtsvg-5
qwt

19
gnu/packages/ghostscript.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2013, 2015, 2016, 2017, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2017, 2018, 2019, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018, 2019, 2021, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2020, 2022 Marius Bakke <mbakke@fastmail.com>
@ -285,7 +285,10 @@ output file formats and printers.")
(source (package-source ghostscript))
(build-system gnu-build-system)
(native-inputs
(list libtool automake autoconf))
(append (if (target-riscv64?)
(list config)
'())
(list libtool automake autoconf)))
(arguments
`(#:phases
(modify-phases %standard-phases
@ -303,7 +306,17 @@ output file formats and printers.")
(substitute* "autogen.sh"
(("^.*\\$srcdir/configure.*") "")
(("^ + && echo Now type.*$") ""))
(invoke "bash" "autogen.sh"))))))
(invoke "bash" "autogen.sh")))
,@(if (target-riscv64?)
`((add-after 'unpack 'update-config-scripts
(lambda* (#:key native-inputs inputs #:allow-other-keys)
(for-each (lambda (file)
(install-file
(search-input-file
(or native-inputs inputs)
(string-append "/bin/" file)) "ijs"))
'("config.guess" "config.sub")))))
'()))))
(synopsis "IJS driver framework for inkjet and other raster devices")
(description
"IJS is a protocol for transmission of raster page images. This package

23
gnu/packages/gl.scm
View File

@ -110,7 +110,7 @@ as ASCII text.")
(define-public freeglut
(package
(name "freeglut")
(version "3.2.2")
(version "3.4.0")
(source (origin
(method url-fetch)
(uri (string-append
@ -118,7 +118,7 @@ as ASCII text.")
"/download/v" version "/freeglut-" version ".tar.gz"))
(sha256
(base32
"0l3s57zw51fy3mn5qfdm4z775kfhflgxppanaxmskfzh5l44m565"))))
"1v7ayg3a03mv8b6lsr1qm21lbr8xg8dh3gdfxnbhl64vbn8wn2rw"))))
(build-system cmake-build-system)
(arguments
'(#:tests? #f ;no test target
@ -606,14 +606,14 @@ glxdemo, glxgears, glxheads, and glxinfo.")
(define-public glew
(package
(name "glew")
(version "2.1.0")
(version "2.2.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/glew/glew/" version
"/glew-" version ".tgz"))
(sha256
(base32
"159wk5dc0ykjbxvag5i1m2mhp23zkk6ra04l26y3jc3nwvkr3ph4"))
"1qak8f7g1iswgswrgkzc7idk7jmqgwrs58fhg2ai007v7j4q5z6l"))
(modules '((guix build utils)))
(snippet
'(begin
@ -623,12 +623,15 @@ glxdemo, glxgears, glxheads, and glxinfo.")
#t))))
(build-system gnu-build-system)
(arguments
'(#:phases (modify-phases %standard-phases (delete 'configure))
#:make-flags (list (string-append "GLEW_PREFIX="
(assoc-ref %outputs "out"))
(string-append "GLEW_DEST="
(assoc-ref %outputs "out")))
#:tests? #f)) ;no 'check' target
(list #:make-flags #~(list (string-append "GLEW_PREFIX=" #$output)
(string-append "GLEW_DEST=" #$output))
#:phases
#~(modify-phases %standard-phases
(delete 'configure)
(add-after 'install 'delete-static
(lambda _
(delete-file (string-append #$output "/lib/libGLEW.a")))))
#:tests? #f)) ;no 'check' target
(inputs
(list libxi libxmu libx11 mesa))

48
gnu/packages/gnome-xyz.scm
View File

@ -320,6 +320,54 @@ design. It is mostly flat using a colorful palette with some shadows,
highlights, and gradients for some depth.")
(license license:gpl3+)))
(define-public bibata-cursor-theme
(package
(name "bibata-cursor-theme")
(version "2.0.3")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ful1e5/Bibata_Cursor")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1bhspswgxizc4sr2bihfjic8wm4khd6waw9qgw0yssfy0fm3nafc"))))
(build-system trivial-build-system)
(native-inputs (list python-attrs python-clickgen))
(arguments
(list
#:modules '((guix build utils))
#:builder
#~(begin
(use-modules (guix build utils))
(let ((themes-dir (string-append #$output "/share/icons")))
(mkdir-p themes-dir)
(let loop
((themes '(("Bibata-Modern-Amber" . "Yellowish and rounded")
("Bibata-Modern-Classic" . "Black and rounded")
("Bibata-Modern-Ice" . "White and rounded")
("Bibata-Original-Amber" . "Yellowish and sharp")
("Bibata-Original-Classic" . "Black and sharp")
("Bibata-Original-Ice" . "White and sharp"))))
(define theme
(car themes))
(invoke (search-input-file %build-inputs "/bin/ctgen")
(string-append #$source "/build.toml")
"-p" "x11"
"-d" (string-append #$source "/bitmaps/" (car theme))
"-n" (car theme)
"-c" (string-append (cdr theme) " edge Bibata cursors")
"-o" themes-dir)
(unless (null? (cdr themes))
(loop (cdr themes))))))))
(home-page "https://github.com/ful1e5/Bibata_Cursor")
(synopsis "Open-source, compact, and material-designed cursor set")
(description
"Bibata is an open-source, compact, and material designed
cursor set. This project aims at improving the cursor experience.")
(license license:gpl3)))
(define-public gnome-plots
(package
(name "gnome-plots")

40
gnu/packages/gnome.scm
View File

@ -2666,13 +2666,13 @@ forgotten when the session ends.")
(define-public evince
(package
(name "evince")
(version "42.3")
(version "44.1")
(source (origin
(method url-fetch)
(uri "mirror://gnome/sources/evince/42/evince-42.3.tar.xz")
(uri "mirror://gnome/sources/evince/44/evince-44.1.tar.xz")
(sha256
(base32
"0pk42icnf4kdcaqaj17mcf4sxi82h1fdg2ds2zdrcv4lbj2czbj9"))))
"0523lzk7xpfr6gir8nx80fmp1lhajm837hilmgn8zczz2nxx7bqm"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t
@ -2683,8 +2683,10 @@ forgotten when the session ends.")
(add-after 'unpack 'skip-gtk-update-icon-cache
;; Don't create 'icon-theme.cache'.
(lambda _
(substitute* "meson_post_install.py"
(("gtk-update-icon-cache") "true")))))))
(substitute* "meson.build"
(("(glib_compile_schemas|gtk_update_icon_cache|\
update_desktop_database): true" _ tool)
(string-append tool ": false"))))))))
(inputs
(list libarchive
libgxps
@ -4387,7 +4389,7 @@ engineering.")
(define-public drawing
(package
(name "drawing")
(version "1.0.1")
(version "1.0.2")
(source
(origin
(method git-fetch)
@ -4396,7 +4398,7 @@ engineering.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "12xb522i7dxshw2ig12ald750fynlxan1lwz6gsxfa9p4ap2qypn"))))
(base32 "1yazs3jj8i8n64ki54rvh11q0yn46da105hdsjb7b80dpxspvlch"))))
(build-system meson-build-system)
(arguments
(list
@ -5332,19 +5334,19 @@ and other secrets. It communicates with the \"Secret Service\" using DBus.")
(define-public gi-docgen
(package
(name "gi-docgen")
(version "2022.1")
(version "2023.1")
(source (origin
(method url-fetch)
(uri (pypi-uri "gi-docgen" version))
(sha256
(base32
"1v2wspm2ld27lq1n5v5pzrmkhchfa7p7ahp8rmjm4zcdyagqf7gr"))))
"18vzbw1k531qxi9qcwlxl97xk9dg16has7khg6a5d0pqrflyvbc8"))))
(build-system python-build-system)
(propagated-inputs (list python-jinja2
python-markdown
python-markupsafe
python-pygments
python-toml
python-tomli
python-typogrify))
(home-page "https://gitlab.gnome.org/GNOME/gi-docgen")
(synopsis "Documentation tool for GObject-based libraries")
@ -8374,6 +8376,14 @@ users.")
"/sbin/dhclient")))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-modprobe-path
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/libnm-platform/nm-platform-utils.c"
;; The modprobe command location is not configurable (see:
;; https://gitlab.freedesktop.org/NetworkManager/
;; NetworkManager/-/issues/1257).
(("/sbin/modprobe")
(search-input-file inputs "bin/modprobe")))))
(add-after 'unpack 'patch-dlopen-call-to-libjansson.so
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/libnm-glib-aux/nm-json-aux.c"
@ -8453,6 +8463,7 @@ users.")
isc-dhcp
iwd ;wpa_supplicant alternative
jansson
kmod
libgcrypt
libgudev
libndp
@ -8485,7 +8496,7 @@ services.")
(define-public network-manager-openvpn
(package
(name "network-manager-openvpn")
(version "1.10.0")
(version "1.10.2")
(source (origin
(method url-fetch)
(uri (string-append
@ -8494,7 +8505,7 @@ services.")
"/NetworkManager-openvpn-" version ".tar.xz"))
(sha256
(base32
"00fiyjbp42pdv5h2vdkzxd2rw32ikcinjgxrzdxak61kgw8d8iap"))))
"08bd0xnvbpsammfr9vlhdbyjw061pf72mb0jy8ivj892g2lg5w32"))))
(build-system gnu-build-system)
(arguments
(list
@ -13125,7 +13136,7 @@ profiler via Sysprof, debugging support, and more.")
(define-public komikku
(package
(name "komikku")
(version "1.14.0")
(version "1.15.0")
(source
(origin
(method git-fetch)
@ -13135,7 +13146,7 @@ profiler via Sysprof, debugging support, and more.")
(file-name (git-file-name name version))
(sha256
(base32
"1pknm3xz2hai8y6ynlyz7y1k1kaay7mkpm1svx66ggjhz8jzcrj5"))))
"0yd4274qxpv0wg1lm6daip2nd135qq07pfl5wrm2rqlzs5mvqs3n"))))
(build-system meson-build-system)
(arguments
(list
@ -13178,6 +13189,7 @@ profiler via Sysprof, debugging support, and more.")
python-lxml
python-magic
python-natsort
python-piexif
python-pillow
python-pure-protobuf
python-pycairo

151
gnu/packages/gnunet.scm
View File

@ -13,6 +13,7 @@
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2023 Adam Faiz <adam.faiz@disroot.org>
;;; Copyright © 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -31,6 +32,7 @@
(define-module (gnu packages gnunet)
#:use-module (gnu packages)
#:use-module (gnu packages base)
#:use-module (gnu packages file)
#:use-module (gnu packages aidc)
#:use-module (gnu packages autotools)
@ -259,82 +261,93 @@ supports HTTP, HTTPS and GnuTLS.")
(define-public gnunet
(package
(name "gnunet")
(version "0.19.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://gnu/gnunet/gnunet-" version
".tar.gz"))
(sha256
(base32
"09bspbjl6cll8wcrl1vnb56jwp30pcrg1yyj6xy3i0fl2bzdbdw2"))
(modules '((guix build utils)))
(snippet
#~(begin
;; This is fixed in the upstream repository but the fix
;; has not been released.
(substitute* "src/gns/test_proxy.sh"
(("test_gnunet_proxy.conf") "test_gns_proxy.conf"))))))
(build-system gnu-build-system)
(inputs
(list bluez
glpk
curl
gnutls/dane
gstreamer
jansson
libextractor
libidn2
libgcrypt
libjpeg-turbo
libltdl
libmicrohttpd
libogg
libsodium
libunistring
miniupnpc
opus
pulseaudio
sqlite
zbar
zlib))
(native-inputs
(list curl
openssl
pkg-config
python
python-sphinx
python-sphinx-rtd-theme
xxd
(@ (gnu packages base) which)))
(arguments
'(#:parallel-tests? #f ; Parallel tests aren't supported.
(name "gnunet")
(version "0.19.4")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://gnu/gnunet/gnunet-" version
".tar.gz"))
(sha256
(base32
"16q0mkkr9b33wlm307ignfgvv0kilzr42155m5dpz66m13s3v9h0"))
(modules '((guix build utils)))
(snippet
#~(begin
;; This is fixed in the upstream repository but the fix
;; has not been released.
(substitute* "src/gns/test_proxy.sh"
(("test_gnunet_proxy.conf") "test_gns_proxy.conf"))))))
(build-system gnu-build-system)
(inputs
(list bluez
glpk
curl
gnutls/dane
gstreamer
jansson
libextractor
libidn2
libgcrypt
libjpeg-turbo
libltdl
libmicrohttpd
libogg
libsodium
libunistring
miniupnpc
opus
pulseaudio
sqlite
zbar
zlib))
(native-inputs
(list curl
openssl
pkg-config
python
python-sphinx
python-sphinx-rtd-theme
xxd
which))
(arguments
(list
#:parallel-tests? #f ;parallel tests aren't supported
#:phases
(modify-phases %standard-phases
(add-before 'check 'set-env-var-for-tests
(lambda _
(setenv "LANG" "en_US.UTF-8")))
;; Swap 'check and 'install phases and add installed binaries to $PATH.
(add-before 'check 'set-path-for-check
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(setenv "GNUNET_PREFIX" (string-append out "/lib"))
(setenv "PATH" (string-append (getenv "PATH") ":" out "/bin")))
#t))
(delete 'check)
(add-after 'install 'check
(assoc-ref %standard-phases 'check)))))
(synopsis "Secure, decentralized, peer-to-peer networking framework")
(description
#~(modify-phases %standard-phases
(add-after 'unpack 'disable-problematic-tests
(lambda _
(substitute* "src/cadet/Makefile.in"
;; The speed_reliable tests appear to be unreliable (see:
;; https://bugs.gnunet.org/view.php?id=7787).
(("test_cadet_[0-9]+_speed_reliable\\$\\(EXEEXT)")
""))
(substitute* "src/core/Makefile.in"
;; The 'test_core_api' test fails non-deterministically (see:
;; https://bugs.gnunet.org/view.php?id=7784).
(("test_core_api\\$\\(EXEEXT) ") ""))))
(add-before 'check 'set-env-var-for-tests
(lambda _
(setenv "LANG" "en_US.UTF-8")))
;; Swap 'check and 'install phases and add installed binaries to $PATH.
(add-before 'check 'set-path-for-check
(lambda _
(setenv "GNUNET_PREFIX" (string-append #$output "/lib"))
(setenv "PATH" (string-append (getenv "PATH") ":"
#$output "/bin"))))
(delete 'check)
(add-after 'install 'check
(assoc-ref %standard-phases 'check)))))
(synopsis "Secure, decentralized, peer-to-peer networking framework")
(description
"GNUnet is a framework for secure peer-to-peer networking. The
high-level goal is to provide a strong foundation of free software for a
global, distributed network that provides security and privacy. GNUnet in
that sense aims to replace the current internet protocol stack. Along with
an application for secure publication of files, it has grown to include all
kinds of basic applications for the foundation of a GNU internet.")
(license license:agpl3+)
(home-page "https://gnunet.org/en/")))
(license license:agpl3+)
(home-page "https://www.gnunet.org/en/")))
(define-public guile-gnunet ;GSoC 2015!
(let ((commit "d12167ab3c8d7d6caffd9c606e389ef043760602")

216
gnu/packages/gnuzilla.scm
View File

@ -13,12 +13,13 @@
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2019, 2020 Adrian Malacoda <malacoda@monarch-pass.net>
;;; Copyright © 2020, 2021, 2022 Jonathan Brielmaier <jonathan.brielmaier@web.de>
;;; Copyright © 2020-2023 Jonathan Brielmaier <jonathan.brielmaier@web.de>
;;; Copyright © 2020, 2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Baptiste Strazzul <bstrazzull@hotmail.fr>
;;; Copyright © 2022 SeerLite <seerlite@disroot.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -517,9 +518,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.9.0")
(define %icecat-base-version "102.10.0")
(define %icecat-version (string-append %icecat-base-version "-guix0-preview1"))
(define %icecat-build-id "20230314000000") ;must be of the form YYYYMMDDhhmmss
(define %icecat-build-id "20230411000000") ;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'
@ -539,12 +540,12 @@ variable defined below. It requires guile-json to be installed."
"firefox-" upstream-firefox-version ".source.tar.xz"))
(sha256
(base32
"1l8xlbba8sa9dg132k96ch8mz97i5lyhpvkxi8d85jh97xi79c1i"))))
"1y7v19xxl6jchywd0zxy5vr4pj23pi6di4lhlivxpki2pkgm8scc"))))
;; The upstream-icecat-base-version may be older than the
;; %icecat-base-version.
(upstream-icecat-base-version "102.9.0")
(gnuzilla-commit "f55ede39713d1533734f37e39927cbb78abe1604")
(upstream-icecat-base-version "102.10.0")
(gnuzilla-commit "15c6c2229a053cdcc064eda89cee07f18efac35d")
(gnuzilla-source
(origin
(method git-fetch)
@ -556,7 +557,7 @@ variable defined below. It requires guile-json to be installed."
(string-take gnuzilla-commit 8)))
(sha256
(base32
"0z15h3lxfn9pmj5bj62qim3h320dcd2v69xrg1phb7lh5gq0bylf"))))
"0v3wak2fd9bmq1j8k8k5xw0i4xbqy7fbasycr4swaqmsaf22sdv4"))))
;; 'search-patch' returns either a valid file name or #f, so wrap it
;; in 'assume-valid-file-name' to avoid 'local-file' warnings.
@ -602,9 +603,6 @@ variable defined below. It requires guile-json to be installed."
(package-transitive-propagated-inputs
python-jsonschema))))
;; Needed by the 'makeicecat' script.
(setenv "RENAME_CMD" "rename")
;; We copy the gnuzilla source directory because it is
;; read-only in 'gnuzilla-source', and the makeicecat script
;; uses "cp -a" to copy parts of it and assumes that the
@ -726,7 +724,9 @@ variable defined below. It requires guile-json to be installed."
libxcomposite
libxt
libffi
ffmpeg
;; Support for FFmpeg 6 was only added in version 112 (see:
;; https://bugzilla.mozilla.org/show_bug.cgi?id=1819374).
ffmpeg-5
libvpx
icu4c
pixman
@ -984,7 +984,7 @@ variable defined below. It requires guile-json to be installed."
;; complain that it's not able to change Cargo.lock.
;; https://bugzilla.mozilla.org/show_bug.cgi?id=1726373
(substitute* "build/RunCbindgen.py"
(("\"--frozen\",") ""))))
(("\"--frozen\",") ""))))
(delete 'bootstrap)
(replace 'configure
;; configure does not work followed by both "SHELL=..." and
@ -1074,6 +1074,7 @@ variable defined below. It requires guile-json to be installed."
"eudev"
"pulseaudio"
;; For the integration of native notifications
;; (same reason as icedove)
"libnotify"))))
(wrap-program (car (find-files lib "^icecat$"))
`("XDG_DATA_DIRS" prefix (,gtk-share))
@ -1137,8 +1138,178 @@ 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 "20230314000000") ;must be of the form YYYYMMDDhhmmss
(define %icedove-version "102.9.0")
(define icecat-102.9.0-source
(let* ((base-version "102.9.0")
(version "102.9.0-guix0-preview1")
(major-version (first (string-split base-version #\.)))
(minor-version (second (string-split base-version #\.)))
(sub-version (third (string-split base-version #\.)))
(upstream-firefox-version (string-append base-version "esr"))
(upstream-firefox-source
(origin
(method url-fetch)
(uri (string-append
"https://ftp.mozilla.org/pub/firefox/releases/"
upstream-firefox-version "/source/"
"firefox-" upstream-firefox-version ".source.tar.xz"))
(sha256
(base32
"1l8xlbba8sa9dg132k96ch8mz97i5lyhpvkxi8d85jh97xi79c1i"))))
;; The upstream-icecat-base-version may be older than the
;; base-version.
(upstream-icecat-base-version base-version)
(gnuzilla-commit "f55ede39713d1533734f37e39927cbb78abe1604")
(gnuzilla-source
(origin
(method git-fetch)
(uri (git-reference
(url "git://git.savannah.gnu.org/gnuzilla.git")
(commit gnuzilla-commit)))
(file-name (git-file-name "gnuzilla"
;;upstream-icecat-base-version
(string-take gnuzilla-commit 8)))
(sha256
(base32
"0z15h3lxfn9pmj5bj62qim3h320dcd2v69xrg1phb7lh5gq0bylf"))))
;; 'search-patch' returns either a valid file name or #f, so wrap it
;; in 'assume-valid-file-name' to avoid 'local-file' warnings.
(makeicecat-patch
(local-file (assume-valid-file-name
(search-patch "icecat-makeicecat.patch")))))
(origin
(method computed-origin-method)
(file-name (string-append "icecat-" version ".tar.xz"))
(sha256 #f)
(uri
(delay
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils))
(let ((firefox-dir
(string-append "firefox-" #$base-version))
(icecat-dir
(string-append "icecat-" #$version)))
(set-path-environment-variable
"PATH" '("bin")
(list #+python
#+(canonical-package bash)
#+(canonical-package coreutils)
#+(canonical-package findutils)
#+(canonical-package patch)
#+(canonical-package xz)
#+(canonical-package sed)
#+(canonical-package grep)
#+(canonical-package bzip2)
#+(canonical-package gzip)
#+(canonical-package tar)))
(set-path-environment-variable
"PYTHONPATH"
(list #+(format #f "lib/python~a/site-packages"
(version-major+minor
(package-version python))))
'#+(cons python-jsonschema
(map second
(package-transitive-propagated-inputs
python-jsonschema))))
;; Needed by the 'makeicecat' script.
(setenv "RENAME_CMD" "rename")
;; We copy the gnuzilla source directory because it is
;; read-only in 'gnuzilla-source', and the makeicecat script
;; uses "cp -a" to copy parts of it and assumes that the
;; copies will be writable.
(copy-recursively #+gnuzilla-source "/tmp/gnuzilla"
#:log (%make-void-port "w"))
(with-directory-excursion "/tmp/gnuzilla"
(make-file-writable "makeicecat")
(invoke "patch" "--force" "--no-backup-if-mismatch"
"-p1" "--input" #+makeicecat-patch)
(patch-shebang "makeicecat")
(substitute* "makeicecat"
(("^readonly FFMAJOR=(.*)" all ffmajor)
(unless (string=? #$major-version
(string-trim-both ffmajor))
;; The makeicecat script cannot be expected to work
;; properly on a different version of Firefox, even if
;; no errors occur during execution.
(error "makeicecat major version mismatch"))
(string-append "readonly FFMAJOR=" #$major-version "\n"))
(("^readonly FFMINOR=.*")
(string-append "readonly FFMINOR=" #$minor-version "\n"))
(("^readonly FFSUB=.*")
(string-append "readonly FFSUB=" #$sub-version "\n"))
(("^readonly DATADIR=.*")
"readonly DATADIR=/tmp/gnuzilla/data\n")
(("^readonly SOURCEDIR=.*")
(string-append "readonly SOURCEDIR=" icecat-dir "\n"))
(("/bin/sed")
#+(file-append (canonical-package sed) "/bin/sed"))))
(format #t "Unpacking upstream firefox tarball...~%")
(force-output)
(invoke "tar" "xf" #+upstream-firefox-source)
(rename-file firefox-dir icecat-dir)
(with-directory-excursion icecat-dir
(format #t "Populating l10n directory...~%")
(force-output)
(mkdir "l10n")
(with-directory-excursion "l10n"
(for-each
(lambda (locale-dir)
(let ((locale
(string-drop (basename locale-dir)
(+ 32 ; length of hash
(string-length "-mozilla-locale-")))))
(format #t " ~a~%" locale)
(force-output)
(copy-recursively locale-dir locale
#:log (%make-void-port "w"))
(for-each make-file-writable (find-files locale))
(with-directory-excursion locale
(when (file-exists? ".hgtags")
(delete-file ".hgtags"))
(mkdir-p "browser/chrome/browser/preferences")
(call-with-output-file
"browser/chrome/browser/preferences/advanced-scripts.dtd"
(lambda (port) #f)))))
'#+all-mozilla-locales)
(copy-recursively #+mozilla-compare-locales
"compare-locales"
#:log (%make-void-port "w"))
(delete-file "compare-locales/.gitignore")
(delete-file "compare-locales/.hgignore")
(delete-file "compare-locales/.hgtags")))
(format #t "Running makeicecat script...~%")
(force-output)
(invoke "bash" "/tmp/gnuzilla/makeicecat")
(format #t "Packing IceCat source tarball...~%")
(force-output)
(setenv "XZ_DEFAULTS" (string-join (%xz-parallel-args)))
(invoke "tar" "cfa" #$output
;; Avoid non-determinism in the archive. We set the
;; mtime of files in the archive to early 1980 because
;; the build process fails if the mtime of source
;; files is pre-1980, due to the creation of zip
;; archives.
"--mtime=@315619200" ; 1980-01-02 UTC
"--owner=root:0"
"--group=root:0"
"--sort=name"
icecat-dir)))))))))
(define %icedove-build-id "20230411000000") ;must be of the form YYYYMMDDhhmmss
(define %icedove-version "102.10.0")
;; Provides the "comm" folder which is inserted into the icecat source.
;; Avoids the duplication of Icecat's source tarball.
@ -1147,11 +1318,11 @@ standards of the IceCat project.")
(method hg-fetch)
(uri (hg-reference
(url "https://hg.mozilla.org/releases/comm-esr102")
(changeset "db735c436e680abf21cc67f9a29b42fdf30d416d")))
(changeset "d8df3bebc4b529388b62b9cb4df152f13910fbe3")))
(file-name (string-append "thunderbird-" %icedove-version "-checkout"))
(sha256
(base32
"114vvwlrmjilczwsg9nfcg08560vijlydw1pdrbkvxjbfgsxny71"))))
"1m46nxnq4jpp4p6qqw68pphhccxlz4zzbyyb8iq26zvp42x7ic8f"))))
(define (comm-source->locales+changeset source)
"Given SOURCE, a checkout of the Thunderbird 'comm' component, return the
@ -1212,7 +1383,7 @@ list of languages supported as well as the currently used changeset."
;; Extract the base Icecat tarball, renaming its top-level
;; directory.
(invoke "tar" "--transform" (string-append "s,[^/]*," #$name ",")
"-xf" #$icecat-source)
"-xf" #$icecat-102.9.0-source)
(chdir #$name)
;; Merge the Thunderdbird localization data.
@ -1502,17 +1673,21 @@ ca495991b7852b855"))
(pulseaudio #$(this-package-input "pulseaudio"))
(pulseaudio-lib (string-append pulseaudio "/lib"))
(eudev #$(this-package-input "eudev"))
(eudev-lib (string-append eudev "/lib")))
(eudev-lib (string-append eudev "/lib"))
;; For the integration of native notifications (same reason as icecat)
(libnotify #$(this-package-input "libnotify"))
(libnotify-lib (string-append libnotify "/lib")))
(wrap-program (car (find-files lib "^icedove$"))
`("XDG_DATA_DIRS" prefix (,gtk-share))
`("LD_LIBRARY_PATH" prefix (,pulseaudio-lib ,eudev-lib)))))))))
`("LD_LIBRARY_PATH" prefix (,pulseaudio-lib ,eudev-lib ,libnotify-lib)))))))))
(inputs
(list alsa-lib
bzip2
cairo
cups
dbus-glib
ffmpeg
;; Support for FFmpeg 6 was only added in version 112 (see:
;; https://bugzilla.mozilla.org/show_bug.cgi?id=1819374).
freetype
gdk-pixbuf
glib
@ -1525,6 +1700,7 @@ ca495991b7852b855"))
libffi
libgnome
libjpeg-turbo
libnotify
libpng-apng
libvpx
libxcomposite

407
gnu/packages/golang.scm
View File

@ -244,7 +244,7 @@
(native-inputs
(list pkg-config which net-base perl))
(home-page "https://golang.org/")
(home-page "https://go.dev/")
(synopsis "Compiler and libraries for Go, a statically-typed language")
(description "Go, also commonly referred to as golang, is an imperative
programming language designed primarily for systems programming. Go is a
@ -631,7 +631,7 @@ in the style of communicating sequential processes (@dfn{CSP}).")
(package
(inherit go-1.16)
(name "go")
(version "1.17.11")
(version "1.17.13")
(source
(origin
(method git-fetch)
@ -641,7 +641,7 @@ in the style of communicating sequential processes (@dfn{CSP}).")
(file-name (git-file-name name version))
(sha256
(base32
"11wy6092qm7v0n10cjkyp49sbchqazi3vnij8k2sq7k7jaj63z5p"))))
"05m8gr050kagvn22lfnjrgms03l5iphd1m4v6z7yqlhn9gdp912d"))))
(outputs '("out" "tests")) ; 'tests' contains distribution tests.
(arguments
`(#:modules ((ice-9 match)
@ -700,7 +700,8 @@ in the style of communicating sequential processes (@dfn{CSP}).")
(substitute* "src/time/zoneinfo_unix.go"
(("/usr/share/zoneinfo/") tzdata-path)))))
;; Keep this synchronized with the package inputs.
,@(if (target-arm?)
;; Also keep syncthonized with later versions of go.
,@(if (or (target-arm?) (target-ppc64le?))
'((add-after 'unpack 'patch-gcc:lib
(lambda* (#:key inputs #:allow-other-keys)
(let* ((gcclib (string-append (assoc-ref inputs "gcc:lib") "/lib")))
@ -722,6 +723,13 @@ in the style of communicating sequential processes (@dfn{CSP}).")
"ldflags = append(ldflags, \"-r\")\n"
"ldflags = append(ldflags, \"" gcclib "\")\n")))))))
'())
;; Backported from later versions of go to workaround 64k page sizes.
,@(if (target-ppc64le?)
'((add-after 'unpack 'adjust-test-suite
(lambda _
(substitute* "misc/cgo/testshared/shared_test.go"
(("100000") "256000")))))
'())
(add-after 'patch-source 'disable-failing-tests
(lambda _
;; Disable failing tests: these tests attempt to access
@ -833,7 +841,7 @@ in the style of communicating sequential processes (@dfn{CSP}).")
(install-file file (string-append out "/share/doc/go")))
'("AUTHORS" "CONTRIBUTORS" "CONTRIBUTING.md" "PATENTS"
"README.md" "SECURITY.md"))))))))
(inputs (if (not (target-arm?))
(inputs (if (not (or (target-arm?) (target-ppc64le?)))
(alist-delete "gcc:lib" (package-inputs go-1.16))
(package-inputs go-1.16)))))
@ -851,13 +859,40 @@ in the style of communicating sequential processes (@dfn{CSP}).")
(file-name (git-file-name name version))
(sha256
(base32
"0ph3ajfq5q8j3nd91pfb25pm21aiphc58zf7fwis0h3a6nqbdyq9"))))))
"0ph3ajfq5q8j3nd91pfb25pm21aiphc58zf7fwis0h3a6nqbdyq9"))))
(arguments
(substitute-keyword-arguments (package-arguments go-1.17)
((#:phases phases)
`(modify-phases ,phases
(delete 'adjust-test-suite)
,@(if (or (target-arm?) (target-ppc64le?))
'((replace 'patch-gcc:lib
(lambda* (#:key inputs #:allow-other-keys)
(let* ((gcclib (string-append (assoc-ref inputs "gcc:lib") "/lib")))
;; Add libgcc to runpath
(substitute* "src/cmd/link/internal/ld/lib.go"
(("!rpath.set") "true"))
(substitute* "src/cmd/go/internal/work/gccgo.go"
(("cgoldflags := \\[\\]string\\{\\}")
(string-append "cgoldflags := []string{"
"\"-Wl,-rpath=" gcclib "\""
"}"))
(("\"-lgcc_s\", ")
(string-append
"\"-Wl,-rpath=" gcclib "\", \"-lgcc_s\", ")))
(substitute* "src/cmd/go/internal/work/gc.go"
(("ldflags, err := setextld\\(ldflags, compiler\\)")
(string-append
"ldflags, err := setextld(ldflags, compiler)\n"
"ldflags = append(ldflags, \"-r\")\n"
"ldflags = append(ldflags, \"" gcclib "\")\n")))))))
'())))))))
(define-public go-1.19
(package
(inherit go-1.18)
(name "go")
(version "1.19.5")
(version "1.19.7")
(source
(origin
(method git-fetch)
@ -867,11 +902,22 @@ in the style of communicating sequential processes (@dfn{CSP}).")
(file-name (git-file-name name version))
(sha256
(base32
"0ah4l01h8qj0vj9668bdgr5m69fq16dz1fjlj332vhysxc6bkc27"))))
"0rrpfhv6vdwqs0jnld0iqsky5wlirir05czf34kvsf2db21nzdi9"))))
(arguments
(substitute-keyword-arguments (package-arguments go-1.18)
((#:phases phases)
#~(modify-phases #$phases
;; These are recurring test failures, depending on having a new
;; enough version of gccgo. gccgo-12.2 fails with go-1.19.7.
;; https://github.com/golang/go/issues/22224
;; https://github.com/golang/go/issues/25324
(add-after 'unpack 'skip-TestGoPathShlibGccgo-tests
(lambda _
(substitute* "misc/cgo/testshared/shared_test.go"
(("TestGoPathShlibGccgo.*" all)
(string-append all "\n t.Skip(\"golang.org/issue/22224\")\n"))
(("TestTwoGopathShlibsGccgo.*" all)
(string-append all "\n t.Skip(\"golang.org/issue/22224\")\n")))))
(replace 'install-doc-files
(lambda _
(for-each (lambda (file)
@ -884,7 +930,7 @@ in the style of communicating sequential processes (@dfn{CSP}).")
(package
(inherit go-1.19)
(name "go")
(version "1.20")
(version "1.20.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -893,7 +939,7 @@ in the style of communicating sequential processes (@dfn{CSP}).")
(file-name (git-file-name name version))
(sha256
(base32
"0a7wjzv14kaqg5l7ambv5zj4rj7sgah9yhcg6k6da6ygm6bs4dv3"))))
"0ir0x17i9067i48ffskwlmbx1j4kfhch46zl8cwl88y23aw59qa2"))))
(native-inputs
;; Go 1.20 and later requires Go 1.17 as the bootstrap toolchain.
;; See 'src/cmd/dist/notgo117.go' in the source code distribution,
@ -1158,6 +1204,183 @@ form that bypasses network filtering, allowing the application to work on
networks where it would otherwise be blocked or heavily throttled.")
(license license:expat)))
(define-public go-github-com-hanwen-go-fuse-v2
(let ((commit "915cf5413cdef5370ae3f953f8eb4cd9ac176d5c")
(revision "0"))
(package
(name "go-github-com-hanwen-go-fuse-v2")
(version (git-version "2.2.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hanwen/go-fuse")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1ik0yvs9m40vxccpb0rpxc22fyqmcgyysc7w0yl9kn3jyr6qa1d5"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/hanwen/go-fuse/v2"))
(native-inputs (list
go-golang-org-x-sys
go-golang-org-x-sync
go-github-com-kylelemons-godebug))
(home-page "https://github.com/hanwen/go-fuse")
(synopsis "Go bindings for FUSE filesystems")
(description
"This is a repository containing Go bindings for writing FUSE file systems.")
(license license:bsd-3))))
(define-public go-github-com-aperturerobotics-jacobsa-crypto
(let ((commit "b1eb679742a8deed015a4406384eea6bd985d08a")
(revision "0"))
(package
(name "go-github-com-aperturerobotics-jacobsa-crypto")
(version (git-version "1.0.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/aperturerobotics/jacobsa-crypto")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"16dxigj8m6q18xqsy72iq287rh4fw0y0b9yqlw0qkclb8379n1z2"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/aperturerobotics/jacobsa-crypto"
;; Source-only package.
#:tests? #f
#:phases
#~(modify-phases %standard-phases
;; Source-only package.
(delete 'build))))
(home-page "https://github.com/aperturerobotics/jacobsa-crypto")
(synopsis "Cryptography missing from the Go standard library")
(description
"This repository contains Go packages related to cryptographic standards that are
not included in the Go standard library.")
(license license:asl2.0))))
(define-public go-github-com-jacobsa-oglematchers
(let ((commit "141901ea67cd4769c6800aa7bfdfc558fa22bda5")
(revision "0"))
(package
(name "go-github-com-jacobsa-oglematchers")
(version (git-version "0.0.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jacobsa/oglematchers")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"09ff5x6vbhd9zl1z4yzyk573ifh16rry38q1rx986kbz4hqkmniq"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/jacobsa/oglematchers"
;; break loop with with go-github-com-jacobsa-ogletest
#:tests? #f))
(home-page "https://github.com/jacobsa/oglematchers")
(synopsis "Matchers for Go testing framework")
(description
"Package oglematchers provides a set of matchers useful in a testing or mocking
framework. These matchers are inspired by and mostly compatible with Google
Test for C++ and Google JS Test.")
(license license:asl2.0))))
(define-public go-github-com-jacobsa-oglemock
(let ((commit "e94d794d06ffc6de42cb19d0dab3c219efdd6dcf")
(revision "0"))
(package
(name "go-github-com-jacobsa-oglemock")
(version (git-version "0.0.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jacobsa/oglemock")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"14yxf8ykwdwkcccksl6741xgzcf8qykyi58kp4maxpgscqhdl8rq"))))
(build-system go-build-system)
(arguments
(list
#:import-path "github.com/jacobsa/oglemock"
;; break loop with with go-github-com-jacobsa-ogletest
#:tests? #f))
(native-inputs (list
go-github-com-jacobsa-oglematchers))
(home-page "https://github.com/jacobsa/oglemock")
(synopsis "Mocking framework for unit tests")
(description
"Package oglemock provides a mocking framework for unit tests.")
(license license:asl2.0))))
(define-public go-github-com-jacobsa-ogletest
(let ((commit "80d50a735a1108a2aeb7abc4a988d183f20c5292")
(revision "0"))
(package
(name "go-github-com-jacobsa-ogletest")
(version (git-version "0.0.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jacobsa/ogletest")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1lbwbxzr75g65q07ry5k4kglxqs3ym7xkvqznzm55rm3qk76v83r"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/jacobsa/ogletest"
;; These tests should be made working
#:tests? #f))
(native-inputs (list
go-github-com-jacobsa-oglematchers
go-github-com-jacobsa-oglemock
go-github-com-jacobsa-reqtrace
go-golang-org-x-net))
(home-page "https://github.com/jacobsa/ogletest")
(synopsis "Expressive unit tests")
(description
"Package ogletest provides a framework for writing expressive unit tests. It
integrates with the builtin testing package, so it works with the gotest
command. Unlike the testing package which offers only basic capabilities for
signalling failures, it offers ways to express expectations and get nice failure
messages automatically.")
(license license:asl2.0))))
(define-public go-github-com-jacobsa-reqtrace
(let ((commit "245c9e0234cb2ad542483a336324e982f1a22934")
(revision "0"))
(package
(name "go-github-com-jacobsa-reqtrace")
(version (git-version "0.0.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jacobsa/reqtrace")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0zfyijig10896v42rvxka1n4wn6lijqz40y2281187l7mq8vv5jn"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/jacobsa/reqtrace"))
(inputs (list
go-golang-org-x-net))
(home-page "https://github.com/jacobsa/reqtrace")
(synopsis "Simple request tracing framework")
(description
"Package reqtrace contains a very simple request tracing framework.")
(license license:asl2.0))))
(define-public go-github-com-kataras-golog
(package
(name "go-github-com-kataras-golog")
@ -1229,6 +1452,59 @@ terminals.")
aid data snapshotting.")
(license license:isc)))
(define-public go-github-com-pkg-xattr
(package
(name "go-github-com-pkg-xattr")
(version "0.4.9")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/pkg/xattr")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0qg4zh0d8m4adaiicsd0cpw0w6g8sk01f4jz7jyxgirh1wfcsqyz"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/pkg/xattr"))
(native-inputs (list go-golang-org-x-sys))
(home-page "https://github.com/pkg/xattr")
(synopsis "Support for extended file system attributes")
(description
"Package xattr provides support for extended attributes on Linux, Darwin and
FreeBSD. Extended attributes are name:value pairs permanently associated with
files or directories. They are similar to the environment strings associated with
a process. An attribute may be defined or undefined. If defined, its value may
be empty or non-empty. You can find more details here:
@@url{https://en.wikipedia.org/wiki/Extended_file_attributes,
https://en.wikipedia.org/wiki/Extended_file_attributes}
.")
(license license:bsd-2)))
(define-public go-github-com-rfjakob-eme
(package
(name "go-github-com-rfjakob-eme")
(version "1.1.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/rfjakob/eme")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1yrbhvy0337mf12fp8p4sy8ry8r3w2qfdf8val5hj07p2lri0cqk"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/rfjakob/eme"))
(home-page "https://github.com/rfjakob/eme")
(synopsis "EME for Go")
(description
"EME (ECB-Mix-ECB or, clearer, Encrypt-Mix-Encrypt) is a wide-block encryption
mode developed by Halevi and Rogaway.")
(license license:expat)))
(define-public go-github-com-shadowsocks-go-shadowsocks2
(package
(name "go-github-com-shadowsocks-go-shadowsocks2")
@ -3118,11 +3394,11 @@ the official package.")
(license license:bsd-3)))
(define-public go-golang-org-x-net
(let ((commit "ba9fcec4b297b415637633c5a6e8fa592e4a16c3")
(revision "4"))
(let ((commit "8e0e7d8d38f2b6d21d742845570dde2902d06a1d")
(revision "0"))
(package
(name "go-golang-org-x-net")
(version (git-version "0.0.0" revision commit))
(version (git-version "0.5.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
@ -3131,15 +3407,17 @@ the official package.")
(file-name (git-file-name name version))
(sha256
(base32
"1hbqvy6r0s5h0dpdqw8fynl3cq0acin3iyqki9xvl5r8h33yb9bx"))))
"1fidlcn3vcz42v2lc0rpmqh3bz08bcklj6jvnmz2vvgc481ci5hy"))))
(build-system go-build-system)
(arguments
`(#:import-path "golang.org/x/net"
; Source-only package
#:tests? #f
#:phases
(modify-phases %standard-phases
(delete 'build))))
(list
#:import-path "golang.org/x/net"
;; Source-only package
#:tests? #f
#:phases
#~(modify-phases %standard-phases
;; Source-only package
(delete 'build))))
(synopsis "Go supplemental networking libraries")
(description "This package provides supplemental Go networking libraries.")
(home-page "https://go.googlesource.com/net")
@ -3218,11 +3496,11 @@ packages.")
(license license:bsd-3))))
(define-public go-golang-org-x-sys
(let ((commit "ed5796bab16455f104b6a384d51b7f9990cb9806")
(revision "8"))
(let ((commit "b60007cc4e6f966b1c542e343d026d06723e5653")
(revision "0"))
(package
(name "go-golang-org-x-sys")
(version (git-version "0.0.0" revision commit))
(version (git-version "0.4.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
@ -3231,15 +3509,17 @@ packages.")
(file-name (git-file-name name version))
(sha256
(base32
"081vs5bg91mwg5bdmlcvy2qyrvg766aicj47smcwfk4bbh0nc0qa"))))
"0fr2d6fnpbqx6n89sg9lsinqkdaw49y068kqj2g0cxlhbh69hzii"))))
(build-system go-build-system)
(arguments
`(#:import-path "golang.org/x/sys"
;; Source-only package
#:tests? #f
#:phases
(modify-phases %standard-phases
(delete 'build))))
(list
#:import-path "golang.org/x/sys"
;; Source-only package
#:tests? #f
#:phases
#~(modify-phases %standard-phases
;; Source-only package
(delete 'build))))
(synopsis "Go support for low-level system interaction")
(description "This package provides supplemental libraries offering Go
support for low-level interaction with the operating system.")
@ -9300,7 +9580,7 @@ configuration languages, but other uses may be possible too.")
(define-public go-filippo-io-age
(package
(name "go-filippo-io-age")
(version "1.0.0")
(version "1.1.1")
(source
(origin
(method git-fetch)
@ -9309,7 +9589,7 @@ configuration languages, but other uses may be possible too.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "19fz68n262kvg2ssw4r6nik30zk6g6cy7rdi0fm05czwigqrdz1i"))))
(base32 "1k1dv1jkr72qpk5g363mhrg9hnf5c9qgv4l16l13m4yh08jp271d"))))
(build-system go-build-system)
(arguments `(#:import-path "filippo.io/age"))
(inputs
@ -11304,6 +11584,69 @@ kubernetes-sigs/yaml is a permanent fork of
@url{https://github.com/ghodss/yaml,ghodss/yaml}.")
(license (list license:expat license:bsd-3))))
(define-public go-github-com-mitchellh-colorstring
(package
(name "go-github-com-mitchellh-colorstring")
(version "0.0.0-20190213212951-d06e56a500db")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mitchellh/colorstring")
(commit (go-version->git-ref version))))
(file-name (git-file-name name version))
(sha256
(base32
"1d2mi5ziszfzdgaz8dg4b6sxa63nw1jnsvffacqxky6yz9m623kn"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/mitchellh/colorstring"))
(home-page "https://github.com/mitchellh/colorstring")
(synopsis "Functions to colorize strings for terminal output")
(description
"Colorstring provides functions for colorizing strings for terminal output.")
(license license:expat)))
(define-public go-github-com-schollz-progressbar-v3
(package
(name "go-github-com-schollz-progressbar-v3")
(version "3.13.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/schollz/progressbar")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1hjahr5r52i7w6iyvl3rpzr46iignhfdh4694fl7m2b4gkaw9gd6"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/schollz/progressbar/v3"
#:phases
#~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? import-path #:allow-other-keys)
(when tests?
;; The full test suite requires Internet access, so only
;; run the short tests.
(invoke "go" "test" "-test.short" import-path)))))))
(propagated-inputs
(list go-golang-org-x-term
go-github-com-stretchr-testify
go-github-com-mitchellh-colorstring
go-github-com-mattn-go-runewidth
go-github-com-mattn-go-isatty
go-github-com-davecgh-go-spew))
(home-page "https://github.com/schollz/progressbar")
(synopsis "Simple command-line interface (CLI) progress bar")
(description
"This package provides a very simple thread-safe progress bar. The
@code{progressbar} implements an @code{io.Writer} so it can automatically
detect the number of bytes written to a stream, so you can use it as a
@code{progressbar} for an @code{io.Reader}. When @code{progressbar}'s length
is undetermined, a customizable spinner is shown.")
(license license:expat)))
(define-public go-git-sr-ht-emersion-go-scfg
(package
(name "go-git-sr-ht-emersion-go-scfg")

163
gnu/packages/graphics.scm
View File

@ -474,100 +474,95 @@ typically encountered in feature film production.")
(define-public blender
(package
(name "blender")
(version "3.3.1")
(version "3.3.5") ;3.3.x is the current LTS version
(source (origin
(method url-fetch)
(uri (string-append "https://download.blender.org/source/"
"blender-" version ".tar.xz"))
(sha256
(base32
"1jlc26axbhh97d2j6kfg9brgiq8j412mgmw7p41ah34apzq4inia"))))
"1pwl4lbc00g0bj97rd8l9fnrv3w1gny9ci6mrma3pp2acgs56502"))))
(build-system cmake-build-system)
(arguments
(list
;; Test files are very large and not included in the release tarball.
#:tests? #f
#:configure-flags
(let ((python-version (version-major+minor (package-version python))))
`(;; Test files are very large and not included in the release tarball.
#:tests? #f
#:configure-flags
(list "-DWITH_CODEC_FFMPEG=ON"
"-DWITH_CODEC_SNDFILE=ON"
"-DWITH_CYCLES=ON"
"-DWITH_DOC_MANPAGE=ON"
"-DWITH_FFTW3=ON"
"-DWITH_IMAGE_OPENJPEG=ON"
"-DWITH_INPUT_NDOF=ON"
"-DWITH_INSTALL_PORTABLE=OFF"
"-DWITH_JACK=ON"
"-DWITH_MOD_OCEANSIM=ON"
"-DWITH_OPENVDB=ON"
"-DWITH_OPENSUBDIV=ON"
"-DWITH_PYTHON_INSTALL=OFF"
(string-append "-DPYTHON_LIBRARY=python" ,python-version)
(string-append "-DPYTHON_LIBPATH=" (assoc-ref %build-inputs "python")
"/lib")
(string-append "-DPYTHON_INCLUDE_DIR=" (assoc-ref %build-inputs "python")
"/include/python" ,python-version)
(string-append "-DPYTHON_VERSION=" ,python-version)
(string-append "-DPYTHON_NUMPY_INCLUDE_DIRS="
(assoc-ref %build-inputs "python-numpy")
"/lib/python" ,python-version "/site-packages/numpy/core/include/")
(string-append "-DPYTHON_NUMPY_PATH="
(assoc-ref %build-inputs "python-numpy")
"/lib/python" ,python-version "/site-packages/"))
#:phases
(modify-phases %standard-phases
;; XXX This file doesn't exist in the Git sources but will probably
;; exist in the eventual 2.80 source tarball.
(add-after 'unpack 'fix-broken-import
(lambda _
(substitute* "release/scripts/addons/io_scene_fbx/json2fbx.py"
(("import encode_bin") "from . import encode_bin"))
#t))
(add-after 'set-paths 'add-ilmbase-include-path
(lambda* (#:key inputs #:allow-other-keys)
;; OpenEXR propagates ilmbase, but its include files do not
;; appear in the C_INCLUDE_PATH, so we need to add
;; "$ilmbase/include/OpenEXR/" to the C_INCLUDE_PATH to satisfy
;; the dependency on "half.h" and "Iex.h".
(let ((headers (string-append
(assoc-ref inputs "ilmbase")
"/include/OpenEXR")))
(setenv "C_INCLUDE_PATH"
(string-append headers ":"
(or (getenv "C_INCLUDE_PATH") "")))
(setenv "CPLUS_INCLUDE_PATH"
(string-append headers ":"
(or (getenv "CPLUS_INCLUDE_PATH") ""))))))))))
#~(list "-DWITH_CODEC_FFMPEG=ON"
"-DWITH_CODEC_SNDFILE=ON"
"-DWITH_CYCLES=ON"
"-DWITH_DOC_MANPAGE=ON"
"-DWITH_FFTW3=ON"
"-DWITH_IMAGE_OPENJPEG=ON"
"-DWITH_INPUT_NDOF=ON"
"-DWITH_INSTALL_PORTABLE=OFF"
"-DWITH_JACK=ON"
"-DWITH_MOD_OCEANSIM=ON"
"-DWITH_OPENVDB=ON"
"-DWITH_OPENSUBDIV=ON"
"-DWITH_PYTHON_INSTALL=OFF"
(string-append "-DPYTHON_LIBRARY=python" #$python-version)
(string-append "-DPYTHON_LIBPATH="
(assoc-ref %build-inputs "python")
"/lib")
(string-append "-DPYTHON_INCLUDE_DIR="
(assoc-ref %build-inputs "python")
"/include/python" #$python-version)
(string-append "-DPYTHON_VERSION=" #$python-version)
(string-append "-DPYTHON_NUMPY_INCLUDE_DIRS="
(assoc-ref %build-inputs "python-numpy")
"/lib/python" #$python-version
"/site-packages/numpy/core/include/")
(string-append "-DPYTHON_NUMPY_PATH="
(assoc-ref %build-inputs "python-numpy")
"/lib/python" #$python-version
"/site-packages/")
;; OpenEXR propagates ilmbase, but its include files do not
;; appear in the C_INCLUDE_PATH, so we need to add
;; "$ilmbase/include/OpenEXR/" to the C_INCLUDE_PATH to
;; satisfy the dependency on "half.h" and "Iex.h".
(string-append "-DCMAKE_CXX_FLAGS=-I"
(search-input-directory %build-inputs
"include/OpenEXR"))))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-broken-import
(lambda _
(substitute* "release/scripts/addons/io_scene_fbx/json2fbx.py"
(("import encode_bin")
"from . import encode_bin")))))))
(inputs
`(("boost" ,boost)
("jemalloc" ,jemalloc)
("libx11" ,libx11)
("libxi" ,libxi)
("libxrender" ,libxrender)
("opencolorio" ,opencolorio)
("openimageio" ,openimageio)
("openexr" ,openexr-2)
("opensubdiv" ,opensubdiv)
("ilmbase" ,ilmbase)
("openjpeg" ,openjpeg)
("libjpeg" ,libjpeg-turbo)
("libpng" ,libpng)
("libtiff" ,libtiff)
("ffmpeg" ,ffmpeg)
("fftw" ,fftw)
("gmp" ,gmp) ;; needed for boolean operations on meshes
("jack" ,jack-1)
("libsndfile" ,libsndfile)
("freetype" ,freetype)
("glew" ,glew)
("openal" ,openal)
("pugixml" ,pugixml)
("python" ,python)
("python-numpy" ,python-numpy)
("openvdb" ,openvdb)
("tbb" ,tbb)
("zlib" ,zlib)
("zstd" ,zstd "lib")
("embree" ,embree)))
(list boost
embree
ffmpeg-5
fftw
freetype
glew
gmp ;needed for boolean operations on meshes
ilmbase
jack-1
jemalloc
libjpeg-turbo
libpng
libsndfile
libtiff
libx11
libxi
libxrender
openal
opencolorio
openexr-2
openimageio
openjpeg
opensubdiv
openvdb
pugixml
python
python-numpy
tbb
zlib
`(,zstd "lib")))
(home-page "https://blender.org/")
(synopsis "3D graphics creation suite")
(description

90
gnu/packages/gstreamer.scm
View File

@ -44,6 +44,7 @@
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages bison)
#:use-module (gnu packages build-tools)
#:use-module (gnu packages cdrom)
#:use-module (gnu packages curl)
#:use-module (gnu packages compression)
@ -400,7 +401,7 @@ arrays of data.")
(define-public gstreamer-docs
(package
(name "gstreamer-docs")
(version "1.20.3")
(version "1.22.2")
(source (origin
(method url-fetch)
(uri (string-append
@ -408,7 +409,7 @@ arrays of data.")
"/gstreamer-docs-" version ".tar.xz"))
(sha256
(base32
"1gziccq5f4fy23q6dm8nwbmzh68gn9rfbqw0xcn4r8yn82545z3k"))))
"1fljaydlinzw9jf5nkhwf7ihfzd5250k2cv220mi8dxxf7rgn18y"))))
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils))
@ -460,7 +461,7 @@ the GStreamer multimedia framework.")
(define-public gstreamer
(package
(name "gstreamer")
(version "1.20.3")
(version "1.22.2")
(source
(origin
(method url-fetch)
@ -469,10 +470,11 @@ the GStreamer multimedia framework.")
version ".tar.xz"))
(sha256
(base32
"0aisl8nazcfi4b5j6fz8zwpp0k9csb022zniz65b2pxxpdjayzb0"))))
"08cfz2vkf494rsg0bn75px26fxs3syvxnsc9lj5n074j0cvfgbxj"))))
(build-system meson-build-system)
(arguments
(list #:phases
(list #:disallowed-references (list python)
#:phases
#~(modify-phases %standard-phases
#$@%common-gstreamer-phases
#$@(if (string-prefix? "i686" (or (%current-target-system)
@ -488,12 +490,22 @@ test_stress_cleanup_unschedule.*")
(("tcase_add_test \\(tc_chain, \
test_stress_reschedule.*")
"")))))
'()))))
'())
(add-after 'patch-shebangs 'do-not-capture-python
(lambda _
;; The patch-source-shebangs phase causes the following build
;; script to reference Python in its shebang, which is
;; unnecessary.
(substitute* (string-append
#$output "/libexec/gstreamer-1.0/"
"gst-plugins-doc-cache-generator")
(((which "python3"))
"/usr/bin/env python3")))))))
(propagated-inputs
;; In gstreamer-1.0.pc:
;; Requires: glib-2.0, gobject-2.0
;; Requires.private: gmodule-no-export-2.0 libunwind libdw
(list elfutils ; libdw
(list elfutils ;libdw
glib libunwind))
(native-inputs
(list bash-completion
@ -503,7 +515,7 @@ test_stress_reschedule.*")
gobject-introspection
perl
pkg-config
python-wrapper))
python))
(inputs
(list gmp libcap
;; For tests.
@ -530,7 +542,7 @@ This package provides the core library and elements.")
(define-public gst-plugins-base
(package
(name "gst-plugins-base")
(version "1.20.3")
(version "1.22.2")
(source
(origin
(method url-fetch)
@ -538,7 +550,7 @@ This package provides the core library and elements.")
name "-" version ".tar.xz"))
(sha256
(base32
"17rw8wj1x1bg153m9z76pdvgz5k93m3riyalfpzq00x7h7fv6c3y"))))
"0jcxcx4mgfjvfb3ixibwhx8j330mq3ap469w7hapm6z79q614rgb"))))
(build-system meson-build-system)
(propagated-inputs
(list glib ;required by gstreamer-sdp-1.0.pc
@ -629,7 +641,7 @@ for the GStreamer multimedia library.")
(define-public gst-plugins-good
(package
(name "gst-plugins-good")
(version "1.20.3")
(version "1.22.2")
(source
(origin
(method url-fetch)
@ -638,7 +650,7 @@ for the GStreamer multimedia library.")
"https://gstreamer.freedesktop.org/src/" name "/"
name "-" version ".tar.xz"))
(sha256
(base32 "1dv8b2md1xk6d45ir1wzbvqhxbvm6mxv881rjl0brnjwpw3c5wzq"))))
(base32 "1p8cpkk4dynglw0xswqyf57xl5fnxmb3xld71kv35cpj4nacb33w"))))
(build-system meson-build-system)
(arguments
(list
@ -656,6 +668,11 @@ for the GStreamer multimedia library.")
(string-append prefix "\"" libsoup "\"\n")))))
(add-after 'unpack 'skip-failing-tests
(lambda _
(substitute* "tests/check/elements/flvmux.c"
;; This test randomly times out (see:
;; https://gitlab.freedesktop.org/gstreamer/gstreamer/-/issues/786).
((".*tcase_add_test.*test_video_caps_late.*")
""))
(substitute* "tests/check/meson.build"
;; Reported as shaky upstream, see
;; <https://gitlab.freedesktop.org/gstreamer/gstreamer/-/issues/785>
@ -743,14 +760,14 @@ model to base your own plug-in on, here it is.")
(define-public gst-plugins-bad
(package
(name "gst-plugins-bad")
(version "1.20.3")
(version "1.22.2")
(source (origin
(method url-fetch)
(uri (string-append "https://gstreamer.freedesktop.org/src/"
name "/" name "-" version ".tar.xz"))
(sha256
(base32
"0kys6m5hg5bc30wfg8qa3s7dmkdz3kj1j8lhvn3267fxalxw24bs"))
"03rd09wsrf9xjianpnnvamb4n3lndhd4x31srqsqab20wcfaz3rx"))
(modules '((guix build utils)))
(snippet
'(begin
@ -764,16 +781,6 @@ model to base your own plug-in on, here it is.")
#:phases
#~(modify-phases %standard-phases
#$@%common-gstreamer-phases
#$@(if (string-prefix? "arm" (or (%current-target-system)
(%current-system)))
;; Disable test that fails on ARMv7.
;; https://gitlab.freedesktop.org/gstreamer/gst-plugins-bad/issues/1188
`((add-after 'unpack 'disable-asfmux-test
(lambda _
(substitute* "tests/check/meson.build"
(("\\[\\['elements/asfmux\\.c'\\]\\],")
"")))))
'())
(add-after 'unpack 'adjust-tests
(lambda* (#:key native-inputs inputs #:allow-other-keys)
(let ((gst-plugins-good (assoc-ref (or native-inputs inputs)
@ -785,18 +792,11 @@ model to base your own plug-in on, here it is.")
(string-append "'GST_PLUGIN_SYSTEM_PATH_1_0', '"
gst-plugins-good "/lib/gstreamer-1.0'"))
;; https://gitlab.freedesktop.org/gstreamer/gst-plugins-bad/-/issues/1136
((".*elements/msdkh264enc\\.c.*") "")
((".*elements/svthevcenc\\.c.*") "")
;; The 'elements_shm.test_shm_live' test sometimes times out
;; (see:
;; https://gitlab.freedesktop.org/gstreamer/gstreamer/-/issues/790).
((".*'elements/shm\\.c'.*") "")
;; FIXME: Why is this failing.
((".*elements/dash_mpd\\.c.*") "")
;; This test is flaky on at least some architectures.
;; https://gitlab.freedesktop.org/gstreamer/gstreamer/-/issues/1244
#$@(if (member (%current-system)
@ -805,9 +805,6 @@ model to base your own plug-in on, here it is.")
"'elements/camerabin.c'], true, ],"))
'())
;; These tests are flaky and occasionally time out:
;; https://gitlab.freedesktop.org/gstreamer/gst-plugins-bad/-/issues/932
((".*elements/curlhttpsrc\\.c.*") "")
;; https://gitlab.freedesktop.org/gstreamer/gst-plugins-bad/-/issues/1412
((".*elements/dtls\\.c.*") ""))
(substitute* "tests/check/elements/zxing.c"
@ -946,7 +943,7 @@ par compared to the rest.")
(define-public gst-plugins-ugly
(package
(name "gst-plugins-ugly")
(version "1.20.3")
(version "1.22.2")
(source
(origin
(method url-fetch)
@ -954,7 +951,7 @@ par compared to the rest.")
(string-append "https://gstreamer.freedesktop.org/src/"
name "/" name "-" version ".tar.xz"))
(sha256
(base32 "1zdfsq0zm1d3wj3w3z44bf3v28clr8yd6qzmkjs09hq9k9w21alc"))))
(base32 "1486x08bwasq6l7kc75nph5az61siq9mbgkgpw4kf1mxn16z8c4g"))))
(build-system meson-build-system)
(arguments
(list #:glib-or-gtk? #t ; To wrap binaries and/or compile schemas
@ -1003,7 +1000,7 @@ think twice about shipping them.")
(define-public gst-libav
(package
(name "gst-libav")
(version "1.20.3")
(version "1.22.2")
(source
(origin
(method url-fetch)
@ -1012,14 +1009,11 @@ think twice about shipping them.")
"https://gstreamer.freedesktop.org/src/" name "/"
name "-" version ".tar.xz"))
(sha256
(base32 "1zkxybdzdkn07wwmj0rrgxyvbry472dggjv2chdsmpzwc02x3v9z"))))
(base32 "1zfg7giwampmjxkqr5pqy66vck42b0akmwby661brwz8iy3zkapw"))))
(build-system meson-build-system)
(native-inputs
(list perl pkg-config python-wrapper ruby))
(inputs
(list ffmpeg))
(propagated-inputs
(list gstreamer gst-plugins-base))
(native-inputs (list perl pkg-config python-wrapper ruby))
(inputs (list ffmpeg))
(propagated-inputs (list gstreamer gst-plugins-base))
(synopsis "GStreamer plugins and helper libraries")
(description "Gst-Libav contains a GStreamer plugin for using the encoders,
decoders, muxers, and demuxers provided by FFmpeg.")
@ -1029,7 +1023,7 @@ decoders, muxers, and demuxers provided by FFmpeg.")
(define-public gst-editing-services
(package
(name "gst-editing-services")
(version "1.20.3")
(version "1.22.2")
(source (origin
(method url-fetch)
(uri (string-append
@ -1037,7 +1031,7 @@ decoders, muxers, and demuxers provided by FFmpeg.")
"gst-editing-services-" version ".tar.xz"))
(sha256
(base32
"18msiadg6wi1636ylp02yfiwphxlz39gh3vbxchl9qpvd7g9dn2z"))))
"1gyfw11ns2la1cm6gvvvv5qj3q5gcvcypc3wk8kdwmrqzij18fs5"))))
(build-system meson-build-system)
(arguments
(list
@ -1097,7 +1091,7 @@ binary, but none of the actual plugins.")))
(define-public python-gst
(package
(name "python-gst")
(version "1.20.3")
(version "1.22.2")
(source (origin
(method url-fetch)
(uri (string-append
@ -1105,7 +1099,7 @@ binary, but none of the actual plugins.")))
"gst-python-" version ".tar.xz"))
(sha256
(base32
"1p6g05k88nbbv5x9madsvphxcdkfl1z0lmp39p6bhmg9x8h82d6v"))))
"1bak46bj92gyz613m99mnl0yw0qhbhq5dfxifnvldgp45kcb7wmy"))))
(build-system meson-build-system)
(arguments
(list

35
gnu/packages/gtk.scm
View File

@ -2905,3 +2905,38 @@ Unix desktop environment under X11 as well as Wayland.")
(synopsis "WebP GdkPixbuf loader library")
(description "Webp-pixbuf-loader is a WebP format loader of GdkPixbuf.")
(license license:lgpl2.0+)))
(define-public libpanel
(package
(name "libpanel")
(version "1.0.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.gnome.org/GNOME/libpanel")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "10lkysbwg9w0lm1hj7lw4g7y9j8b88kmq07nfgx0r6f319znj12v"))))
(build-system meson-build-system)
(arguments
(list #:configure-flags #~(list "-Ddocs=disabled") ;fontconfig issue
#:phases #~(modify-phases %standard-phases
(add-after 'unpack 'disable-gtk-update-icon-cache
(lambda _
(substitute* "meson.build"
(("gtk_update_icon_cache: true")
"gtk_update_icon_cache: false")))))))
(native-inputs (list `(,glib-next "bin")
gobject-introspection
pkg-config
vala))
(inputs (list glib-next gtk libadwaita))
(home-page "https://gitlab.gnome.org/GNOME/libpanel")
(synopsis "Dock and panel library for GTK 4")
(description "Libpanel provides a library to create IDE-like applications
using GTK and @code{libadwaita}. It has widgets for panels, docks, columns
and grids of pages. Primarily, its design and implementation focus around the
GNOME Builder and Drafting projects.")
(license license:lgpl3)))

37
gnu/packages/guile-xyz.scm
View File

@ -310,6 +310,43 @@ more.")
currently does not do much, but it might in the future.")
(license license:gpl3+)))
(define-public guile-openai
(let ((commit "252f2d5660bb546015d18c60be96d3cf60c4dcfa")
(revision "1"))
(package
(name "guile-openai")
(version (git-version "0.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/flatwhatson/guile-openai")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1qv0kr30d1x7ap1b0h03gl5pzp20xw4qd6b3l5v4iz4ka8qna9gi"))))
(build-system guile-build-system)
(arguments
(list
#:scheme-file-regexp
#~(lambda (file info)
(let ((name (basename file)))
(and (string-suffix? ".scm" name)
(not (string=? (basename file) "guix.scm")))))))
(inputs (list guile-3.0-latest))
(propagated-inputs
(list guile-colorized
guile-gnutls
guile-json-4
guile-picture-language))
(home-page "https://gitlab.com/flatwhatson/guile-openai")
(synopsis "Guile implementation of the OpenAI API")
(description
"Guile OpenAI is an implementation of the OpenAI API in Guile Scheme,
providing a convenient interface for interactive programming with their AI
models.")
(license license:agpl3+))))
;; There are no releases yet of this package.
(define-public guile-pipe
(let ((commit "0746ec38d19d844dff0c6f62f209b2b6c8d8872e")

8
gnu/packages/guile.scm
View File

@ -300,8 +300,6 @@ without requiring the source code to be rewritten.")
(variable "GUILE_LOAD_COMPILED_PATH")
(files '("lib/guile/2.2/site-ccache")))))))
(define-deprecated guile-2.2/bug-fix guile-2.2)
(define-public guile-2.2.4
(package
(inherit guile-2.2)
@ -645,12 +643,6 @@ specification. These are the main features:
;; Version 1.2.0 switched to GPLv3+ (from LGPLv3+).
(license license:gpl3+)))
;; Deprecate the 'guile-json' alias to force the use 'guile-json-1' or
;; 'guile-json-3'. In the future, we may reuse 'guile-json' as an alias for
;; 'guile-json-3'.
(define-deprecated guile-json guile-json-1)
(export guile-json)
(define-public guile2.0-json
(package-for-guile-2.0 guile-json-1))

21
gnu/packages/hardware.scm
View File

@ -15,6 +15,7 @@
;;; Copyright © 2022 Marcel Kupiec <formbi@protonmail.com>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2023 Spencer Skylar Chan <schan12@umd.edu>
;;;
;;; This file is part of GNU Guix.
;;;
@ -482,31 +483,15 @@ RGB animations.")
(define-public ddcutil
(package
(name "ddcutil")
(version "1.3.2")
(version "1.4.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.ddcutil.com/tarballs/"
"ddcutil-" version ".tar.gz"))
(sha256
(base32 "0hm0cm4m4hk1jjy7kddg613mynvwlii3kp8al0j9v3c6mcx3p4mx"))))
(base32 "14svdjpw9xn1czl4vff4jg2i9bp83lxcbzxj7hxn63z3gzacaj4k"))))
(build-system gnu-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'install-udev-rules
(lambda* (#:key outputs #:allow-other-keys)
;; Move the udev rules to their expected location in Guix
;; System, so they can be more easily used.
(let ((rules.d (string-append #$output "/lib/udev/rules.d")))
(mkdir-p (dirname rules.d))
(rename-file (string-append #$output "/share/ddcutil/data")
rules.d)
;; Patch a reference to the ddcutil command.
(substitute* (string-append rules.d "/45-ddcutil-usb.rules")
(("/usr/bin/ddcutil")
(search-input-file outputs "bin/ddcutil")))))))))
(native-inputs
(list pkg-config))
(inputs

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.20230227")
(version "10.20230321")
(source
(origin
(method url-fetch)
(uri (hackage-uri "git-annex" version))
(sha256
(base32 "03cnx63gcrza9sshk9fvwq8c2p7cb7hj8h81g5dc1x56syigdpgi"))))
(base32 "1lbv0jzfr6knjcqd2ik4k2dw7brsnjmn33qwijpgivnsbf1q0ibz"))))
(build-system haskell-build-system)
(properties '((upstream-name . "git-annex")))
(arguments

3
gnu/packages/haskell-xyz.scm
View File

@ -8315,6 +8315,9 @@ provided for those who need a drop-in replacement for Markdown.pl.")
(name "pandoc")
(arguments
(list
;; Create entirely self-contained binary by embedding the data files
;; in the binary itself. Required for python-pypandoc.
#:configure-flags #~(list "-fembed_data_files")
#:phases
#~(modify-phases %standard-phases
(add-after 'register 'remove-libraries

53
gnu/packages/high-availability.scm
View File

@ -1,4 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
;;; Copyright © 2020, 2022 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2022 Sharlatan Hellseher <sharlatanus@gmail.com>
;;;
;;; This file is part of GNU Guix.
@ -34,8 +36,10 @@
#:use-module (gnu packages glib)
#:use-module (gnu packages hardware)
#:use-module (gnu packages linux)
#:use-module (gnu packages lua)
#:use-module (gnu packages networking)
#:use-module (gnu packages nss)
#:use-module (gnu packages pcre)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages rsync)
@ -45,13 +49,60 @@
#:use-module (gnu packages xml)
#:use-module (gnu packages)
#:use-module (guix build-system gnu)
#:use-module (guix gexp)
#:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module ((guix licenses)
#:prefix license:))
(define-public haproxy
(package
(name "haproxy")
(version "2.7.6")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.haproxy.org/download/"
(version-major+minor version)
"/src/haproxy-" version ".tar.gz"))
(sha256
(base32 "0kxpvrn6iaxhw2f2hrxblns6pnxmrds3vvs9h6nwbkrzvdykagqk"))))
(build-system gnu-build-system)
(arguments
(list
#:tests? #f ; there are only regression tests, using varnishtest
#:make-flags
#~(list "LUA_LIB_NAME=lua"
"TARGET=linux-glibc"
"USE_LUA=1"
"USE_OPENSSL=1"
"USE_PCRE2=1"
"USE_PCRE2_JIT=1"
"USE_PROMEX=1"
"USE_ZLIB=1"
(string-append "CC=" #$(cc-for-target))
(string-append "DOCDIR=" #$output "/share/" #$name)
(string-append "LUA_INC=" #$(this-package-input "lua") "/include")
(string-append "LUA_LIB=" #$(this-package-input "lua") "/lib")
(string-append "PREFIX=" #$output))
#:phases
#~(modify-phases %standard-phases
(delete 'configure))))
(inputs
(list lua openssl pcre2 zlib))
(home-page "https://www.haproxy.org/")
(synopsis "Reliable, high performance TCP/HTTP load balancer")
(description "HAProxy offers @acronym{HA, high availability}, load
balancing, and proxying for TCP and HTTP-based applications. It is particularly
suited to Web sites crawling under very high loads while needing persistence or
Layer 7 processing. Supporting tens of thousands of connections is clearly
realistic with today's hardware.")
(license (list license:gpl2+
license:lgpl2.1
license:lgpl2.1+))))
(define-public libqb
(package
(name "libqb")

38
gnu/packages/ibus.scm
View File

@ -10,7 +10,7 @@
;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2021 Songlin Jiang <hollowman@hollowman.ml>
;;; Copyright © 2021 Taiju HIGASHI <higashi@taiju.info>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2023 Luis Felipe López Acevedo <luis.felipe.la@protonmail.com>
;;;
;;; This file is part of GNU Guix.
@ -91,7 +91,7 @@
(outputs '("out" "doc"))
(arguments
(list
#:configure-flags #~(list "--enable-python-library"
#:configure-flags #~(list "--disable-gtk2"
"--enable-gtk-doc"
"--enable-memconf"
(string-append
@ -186,10 +186,8 @@
(string-append #$output:doc "/share/gtk-doc"))))
(add-after 'wrap-program 'wrap-with-additional-paths
(lambda* (#:key outputs #:allow-other-keys)
;; Make sure 'ibus-setup' runs with the correct PYTHONPATH and
;; GI_TYPELIB_PATH.
;; Make sure 'ibus-setup' runs with the correct GI_TYPELIB_PATH.
(wrap-program (search-input-file outputs "bin/ibus-setup")
`("GUIX_PYTHONPATH" ":" prefix (,(getenv "GUIX_PYTHONPATH")))
`("GI_TYPELIB_PATH" ":" prefix
(,(getenv "GI_TYPELIB_PATH")
,(string-append #$output "/lib/girepository-1.0")))))))))
@ -198,7 +196,6 @@
dbus
dconf
glib
gtk+-2
gtk+
iso-codes
json-glib
@ -206,9 +203,6 @@
libx11
libxkbcommon
libxtst
python-pygobject
python
python-dbus
setxkbmap
ucd
unicode-cldr-common
@ -244,11 +238,29 @@ may also simplify input method development.")
(define-public ibus
(package/inherit ibus-minimal
(arguments (substitute-keyword-arguments (package-arguments ibus-minimal)
((#:configure-flags flags)
#~(cons* "--enable-gtk4" #$flags))))
(arguments
(substitute-keyword-arguments (package-arguments ibus-minimal)
((#:configure-flags flags)
#~(cons* "--enable-gtk4"
"--enable-python-library"
#$flags))
((#:phases phases '%standard-phases)
#~(modify-phases #$phases
(replace 'wrap-with-additional-paths
(lambda* (#:key outputs #:allow-other-keys)
;; Make sure 'ibus-setup' runs with the correct
;; GUIX_PYTHONPATH and GI_TYPELIB_PATH.
(wrap-program (search-input-file outputs "bin/ibus-setup")
`("GUIX_PYTHONPATH" ":" prefix (,(getenv "GUIX_PYTHONPATH")))
`("GI_TYPELIB_PATH" ":" prefix
(,(getenv "GI_TYPELIB_PATH")
,(string-append #$output "/lib/girepository-1.0"))))))))))
(inputs (modify-inputs (package-inputs ibus-minimal)
(prepend gtk pango)))
(prepend gtk
pango
python
python-dbus
python-pygobject)))
(properties (alist-delete 'hidden? (package-properties ibus-minimal)))))
(define-public ibus-libpinyin

166
gnu/packages/image-processing.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 John Darrington <jmd@gnu.org>
;;; Copyright © 2017, 2019, 2022 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2014, 2021-2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2021-2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
@ -352,36 +352,59 @@ many popular formats.")
(properties `((release-monitoring-url . "https://vtk.org/download/")))
(build-system cmake-build-system)
(arguments
'(#:build-type "Release" ;Build without '-g' to save space.
#:configure-flags '(;"-DBUILD_TESTING:BOOL=TRUE"
; ; not honored
"-DVTK_USE_EXTERNAL=OFF" ;; default
"-DVTK_MODULE_USE_EXTERNAL_VTK_doubleconversion=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_eigen=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_expat=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_freetype=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_gl2ps=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_glew=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_hdf5=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_jpeg=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_jsoncpp=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_libharu=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_libproj=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_libxml2=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_lz4=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_netcdf=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_ogg=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_png=ON"
;"-DVTK_MODULE_USE_EXTERNAL_VTK_pugixml=ON" ; breaks IO/CityGML
"-DVTK_MODULE_USE_EXTERNAL_VTK_sqlite=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_theora=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_tiff=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_zlib=ON"
"-DVTK_MODULE_ENABLE_VTK_RenderingExternal=YES" ; For F3D
"-DVTK_WRAP_PYTHON=ON"
"-DVTK_PYTHON_VERSION:STRING=3"
)
#:tests? #f)) ;XXX: test data not included
(list #:build-type "Release" ;Build without '-g' to save space.
#:configure-flags
#~'( ;;"-DBUILD_TESTING:BOOL=TRUE" ;not honored
"-DVTK_USE_EXTERNAL=OFF" ;default
"-DVTK_MODULE_USE_EXTERNAL_VTK_doubleconversion=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_eigen=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_expat=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_freetype=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_gl2ps=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_glew=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_hdf5=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_jpeg=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_jsoncpp=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_libharu=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_libproj=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_libxml2=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_lz4=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_netcdf=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_ogg=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_png=ON"
;;"-DVTK_MODULE_USE_EXTERNAL_VTK_pugixml=ON" ;breaks IO/CityGML
"-DVTK_MODULE_USE_EXTERNAL_VTK_sqlite=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_theora=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_tiff=ON"
"-DVTK_MODULE_USE_EXTERNAL_VTK_zlib=ON"
"-DVTK_MODULE_ENABLE_VTK_RenderingExternal=YES" ;for F3D
"-DVTK_WRAP_PYTHON=ON"
"-DVTK_PYTHON_VERSION:STRING=3"
"-DVTK_SMP_ENABLE_OPENNMP=ON"
"-DVTK_SMP_ENABLE_TBB=ON"
"-DVTK_USE_MPI=ON"
)
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'clear-reference-to-compiler
(lambda _
(define (choose . files)
(let loop ((files files))
(if (null? files)
#f
(if (file-exists? (car files))
(car files)
(loop (cdr files))))))
;; Do not retain a reference to GCC.
(substitute* (choose
"Common/Core/vtkConfigureDeprecated.h.in" ;v9.x
"Common/Core/vtkConfigure.h.in") ;v7.x
(("@CMAKE_CXX_COMPILER@") "c++")))))
#:tests? #f)) ;XXX: test data not included
(inputs
(list double-conversion
eigen
@ -402,17 +425,20 @@ many popular formats.")
mesa
netcdf
libpng
libtiff
openmpi
proj
python
;("pugixml" ,pugixml)
sqlite
libtiff
xorgproto
zlib))
(propagated-inputs
;; VTK's 'VTK-vtk-module-find-packages.cmake' calls
;; 'find_package(THEORA)', which in turns looks for libogg.
(list libogg))
;; 'find_package(THEORA)', which in turns looks for libogg. Likewise for
;; TBB.
(list libogg
tbb))
(home-page "https://vtk.org/")
(synopsis "Libraries for 3D computer graphics")
(description
@ -446,7 +472,7 @@ integrates with various databases on GUI toolkits such as Qt and Tk.")
((#:configure-flags flags)
;; Otherwise, the build would fail with: "error: invalid conversion
;; from ‘const char*’ to ‘char*’ [-fpermissive]".
`(cons "-DCMAKE_CXX_FLAGS=-fpermissive" ,flags))
#~(cons "-DCMAKE_CXX_FLAGS=-fpermissive" #$flags))
((#:phases phases)
#~(modify-phases #$phases
(add-after 'unpack 'remove-kernel-version
@ -460,21 +486,18 @@ integrates with various databases on GUI toolkits such as Qt and Tk.")
(define-public opencv
(package
(name "opencv")
(version "4.5.4")
(version "4.7.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/opencv/opencv")
(commit version)))
(url "https://github.com/opencv/opencv")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0gf2xs3r4s51m20mpf0wdidpk0xzp3m2w6jx72fwldhn0pshlmcj"))
(modules '((guix build utils)))
(snippet
'(begin
;; Remove external libraries. We have almost all available
;; in Guix:
;; Remove external libraries. Almost all of them are
;; available in Guix.
(with-directory-excursion "3rdparty"
(for-each delete-file-recursively
'("carotene"
@ -498,20 +521,18 @@ integrates with various databases on GUI toolkits such as Qt and Tk.")
"tbb"
"zlib")))
;; Milky icon set is non-free:
(delete-file-recursively "modules/highgui/src/files_Qt/Milky")
;; Some jars found:
(for-each delete-file
'("modules/java/test/pure_test/lib/junit-4.11.jar"
"samples/java/sbt/sbt/sbt-launch.jar"))))))
;; Delete any bundled .jar files.
(for-each delete-file (find-files "." "\\.jar$"))))
(sha256
(base32
"0l45v41nns2jmn9nr9fb0yvhqzfjpxjxn75i1c02rsfy3r3lv22v"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags
(list "-DWITH_ADE=OFF" ;we don't have a package for ade yet
(list "-DWITH_ADE=OFF" ;we don't have a package for ade yet
"-DWITH_IPP=OFF"
"-DWITH_ITT=OFF"
"-DWITH_CAROTENE=OFF" ; only visible on arm/aarch64
"-DWITH_CAROTENE=OFF" ; only visible on arm/aarch64
"-DENABLE_PRECOMPILED_HEADERS=OFF"
"-DOPENCV_GENERATE_PKGCONFIG=ON"
@ -569,22 +590,20 @@ integrates with various databases on GUI toolkits such as Qt and Tk.")
;; This test fails with "unknown file: Failure"
;; But I couldn't figure out which file was missing:
(substitute* "../opencv-contrib/modules/face/test/test_face_align.cpp"
(("(TEST\\(CV_Face_FacemarkKazemi, )(can_detect_landmarks\\).*)"
all pre post)
(string-append pre "DISABLED_" post)))
(("\\bcan_detect_landmarks\\b" all)
(string-append "DISABLED_" all)))
;; This test fails with a comparison between the expected 396 and
;; This all fails with a comparison between the expected 396 and
;; the actual 440 in file size.
(substitute* "modules/imgcodecs/test/test_exr.impl.hpp"
(("(TEST\\(Imgcodecs_EXR, )(readWrite_32FC1\\).*)" all pre post)
(string-append pre "DISABLED_" post)))
(("\\breadWrite_32FC1\\b" all)
(string-append "DISABLED_" all)))
;; These fail with protobuf parse errors that come from
;; opencv-extra/testdata.
;; opencv-extra/alldata.
(substitute* "modules/dnn/test/test_layers.cpp"
(("(TEST_P\\(Test_Caffe_layers, )\
(Accum\\).*|DataAugmentation\\).*|Resample\\).*|Correlation\\).*)" all pre post)
(string-append pre "DISABLED_" post)))))
(("\\b(Accum|DataAugmentation|Resample|Correlation|Interp)\\b" all)
(string-append "DISABLED_" all)))))
(add-after 'unpack 'unpack-submodule-sources
(lambda* (#:key inputs #:allow-other-keys)
(mkdir "../opencv-extra")
@ -596,7 +615,8 @@ integrates with various databases on GUI toolkits such as Qt and Tk.")
(add-after 'build 'do-not-install-3rdparty-file
(lambda _
(substitute* "cmake_install.cmake"
(("file\\(INSTALL .*source/3rdparty/include/opencl/LICENSE.txt.*") "\n"))))
(("file\\(INSTALL .*3rdparty/include/opencl/LICENSE.txt.*")
""))))
(add-before 'check 'start-xserver
(lambda* (#:key inputs #:allow-other-keys)
(let ((xorg-server (assoc-ref inputs "xorg-server"))
@ -608,7 +628,7 @@ integrates with various databases on GUI toolkits such as Qt and Tk.")
(zero? (system (format #f "~a/bin/Xvfb ~a &" xorg-server disp)))))))))
(native-inputs
`(("pkg-config" ,pkg-config)
("xorg-server" ,xorg-server-for-tests) ; For running the tests
("xorg-server" ,xorg-server-for-tests) ;For running the tests
("opencv-extra"
,(origin
(method git-fetch)
@ -617,23 +637,24 @@ integrates with various databases on GUI toolkits such as Qt and Tk.")
(commit version)))
(file-name (git-file-name "opencv_extra" version))
(sha256
(base32 "1fg2hxdvphdvagc2fkmhqk7qql9mp7pj2bmp8kmd7vicpr72qk82"))))
(base32
"0bdg5kwwdimnl2zp4ry5cmfxr9xb7zk2ml59853d90llsqjis47a"))))
("opencv-contrib"
,(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/opencv/opencv_contrib")
(commit version)))
(uri (git-reference (url "https://github.com/opencv/opencv_contrib")
(commit version)))
(file-name (git-file-name "opencv_contrib" version))
(sha256
(base32 "0ga0l4ranp1834gxgp487ll1amvmssa02l2nk5ja5w0rx4d8hh26"))))))
(base32
"0hbfn835kxh3hwmwvzgdglm2np1ri3z7nfnf60gf4x6ikp89mv4r"))))))
(inputs
(list ffmpeg-4
gtk+
gtkglext
hdf5
ilmbase
imath ;should be propagated by openexr
imath ;should be propagated by openexr
jasper
libgphoto2
libjpeg-turbo
@ -669,7 +690,10 @@ things like:
@item structure from motion
@item augmented reality
@item machine learning
@end itemize\n")
@end itemize\n
This package includes the Python bindings for OpenCV, which are also known as
the OpenCV-Python library.")
(home-page "https://opencv.org/")
(license license:bsd-3)))

62
gnu/packages/image-viewers.scm
View File

@ -24,7 +24,7 @@
;;; Copyright © 2021 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2021 dissent <disseminatedissent@protonmail.com>
;;; Copyright © 2022 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Tomasz Jeneralczyk <tj@schwi.pl>
;;; Copyright © 2022 Cairn <cairn@pm.me>
;;;
@ -67,6 +67,7 @@
#:use-module (gnu packages compression)
#:use-module (gnu packages curl)
#:use-module (gnu packages documentation)
#:use-module (gnu packages djvu)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gawk)
@ -101,6 +102,7 @@
#:use-module (gnu packages upnp)
#:use-module (gnu packages version-control)
#:use-module (gnu packages video)
#:use-module (gnu packages vim)
#:use-module (gnu packages web)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages xml)
@ -144,7 +146,7 @@
'("bash" "catimg" "chafa" "coreutils" "curl"
"dmenu" "fzf" "gawk" "grep" "jp2a" "jq"
"libnotify" "mpv" "ncurses" "python-ueberzug"
"sed" "util-linux" "youtube-dl")))
"sed" "util-linux" "yt-dlp")))
`("YTFZF_SYSTEM_ADDON_DIR" ":" =
,(list (string-append #$output "/share/ytfzf/addons")))))))))
(inputs
@ -166,7 +168,7 @@
python-ueberzug
sed
util-linux
youtube-dl))
yt-dlp))
(synopsis "Watch PeerTube or YouTube videos from the terminal")
(description "@code{ytfzf} is a POSIX script that helps you find PeerTube or
YouTube videos without requiring API and opens/downloads them using mpv/ytdl.")
@ -231,7 +233,7 @@ actions.")
(define-public geeqie
(package
(name "geeqie")
(version "1.6")
(version "2.0.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -239,43 +241,31 @@ actions.")
(commit (string-append "v" version))))
(sha256
(base32
"1i9yd8lddp6b9s9vjjjzbpqj4bvwidxc6kiba6vdrk7dda5akyky"))
(file-name (git-file-name name version))
(patches (search-patches "geeqie-clutter.patch"))))
(build-system gnu-build-system)
(arguments
;; Enable support for a "map" pane using GPS data.
`(#:configure-flags '("CFLAGS=-O2 -g -fcommon"
"--enable-map"
"--enable-gtk3")
#:phases (modify-phases %standard-phases
(add-after 'unpack 'correctly-locate-aux-scripts
;; The git checkout has symlinks under the auxdir
;; directory pointing to /usr/share/automake-1.16/depcomp
;; and /usr/share/automake-1.16/install-sh, which causes
;; the configure phase to fail (see:
;; https://github.com/BestImageViewer/geeqie/issues/936).
(lambda* (#:key inputs #:allow-other-keys)
(let ((automake (assoc-ref inputs "automake")))
(delete-file "auxdir/depcomp")
(symlink (car (find-files automake "depcomp"))
"auxdir/depcomp")
(delete-file "auxdir/install-sh")
(symlink (car (find-files automake "install-sh"))
"auxdir/install-sh")))))))
"199s0f3khnycr5vhk2ww3xnnasz7dzwxdl89pxjadq6rpgprfqyh"))
(file-name (git-file-name name version))))
(build-system meson-build-system)
(inputs
(list clutter
libchamplain
lcms
(list djvulibre
exiv2
ffmpegthumbnailer
gtk+
gspell
lcms
libarchive
libchamplain
libheif
libjpeg-turbo
libpng
gtk+))
libraw
libtiff
poppler
libwebp))
(native-inputs
(list autoconf
automake
`(,glib "bin") ; glib-gettextize
(list `(,glib "bin") ; glib-gettextize
intltool
pkg-config))
pkg-config
xxd
yelp-tools))
(home-page "https://www.geeqie.org/")
(synopsis "Lightweight GTK+ based image viewer")
(description

15
gnu/packages/image.scm
View File

@ -35,6 +35,7 @@
;;; Copyright © 2022 Jai Vetrivelan <jaivetrivelan@gmail.com>
;;; Copyright © 2022 ( <paren@disroot.org>
;;; Copyright © 2022-2023 Bruno Victal <mirai@makinata.eu>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -458,7 +459,7 @@ lossless JPEG manipulations such as rotation, scaling or cropping:
(lambda _
;; The Makefile uses optimization level 1, so the same
;; level is used here for consistency.
(invoke "gcc" "-shared" "-fPIC" "-O"
(invoke ,(cc-for-target) "-shared" "-fPIC" "-O"
;; Common files.
"adapthuff.o" "image.o" "strcodec.o" "strPredQuant.o"
"strTransform.o" "perfTimerANSI.o"
@ -469,7 +470,7 @@ lossless JPEG manipulations such as rotation, scaling or cropping:
"encode.o" "segenc.o" "strenc.o" "strFwdTransform.o"
"strPredQuantEnc.o"
"-o" "libjpegxr.so")
(invoke "gcc" "-shared" "-fPIC" "-O"
(invoke ,(cc-for-target) "-shared" "-fPIC" "-O"
;; Glue files.
"JXRGlue.o" "JXRMeta.o" "JXRGluePFC.o" "JXRGlueJxr.o"
;; Test files.
@ -1290,7 +1291,7 @@ language bindings to VIGRA.")
(define-public libwebp
(package
(name "libwebp")
(version "1.2.2")
(version "1.2.4")
(source
(origin
;; No tarballs are provided for >0.6.1.
@ -1301,7 +1302,7 @@ language bindings to VIGRA.")
(file-name (git-file-name name version))
(sha256
(base32
"1khqkm5j9aiii9jfsbxzzyz3x33sifzcx537cyjyb3a2g2rl969k"))))
"1jndbc99dd19a6d7h4ds51xyak7gfddkbi41nxdm8n23w7ks35r8"))))
(build-system gnu-build-system)
(inputs
(list freeglut
@ -1726,9 +1727,6 @@ and decompress to 32-bit and big-endian pixel buffers (RGBX, XBGR, etc.).")
license:ijg ;the libjpeg library and associated tools
license:zlib)))) ;the libjpeg-turbo SIMD extensions
(define-deprecated libjpeg libjpeg-turbo)
(export libjpeg)
(define-public niftilib
(package
(name "niftilib")
@ -2199,7 +2197,8 @@ This package can be used to create @code{favicon.ico} files for web sites.")
(string-append #$gdk-pixbuf "/bin/gdk-pixbuf-thumbnailer")))))
(add-after 'install 'install-readme
(lambda _
(let ((doc (string-append #$output "/share/doc/libavif-" #$version)))
(let ((doc (string-append #$output "/share/doc/libavif-"
#$(package-version this-package))))
(install-file "../source/README.md" doc))))
(add-after 'install 'split
(lambda _

70
gnu/packages/jami.scm
View File

@ -68,7 +68,7 @@
#:use-module (guix packages)
#:use-module (guix utils))
(define %jami-version "20230206.0")
(define %jami-version "20230323.0")
(define %jami-sources
;; Return an origin object of the tarball release sources archive of the
@ -85,7 +85,7 @@
'(delete-file-recursively "daemon/contrib/tarballs"))
(sha256
(base32
"1fx7c6q8j0x3q8cgzzd4kpsw3npqggsi1n493cv1jg7v5d01d3jz"))
"0vjsjr37cb87j9hqbmipyxn4877k1wn3l0vzca3l3ldgknglz7v2"))
(patches (search-patches "jami-disable-integration-tests.patch"
"jami-libjami-headers-search.patch"))))
@ -107,8 +107,8 @@
patches))))
(define-public pjproject-jami
(let ((commit "20e00fcdd16459444bae2bae9c0611b63cf87297")
(revision "2"))
(let ((commit "e4b83585a0bdf1523e808a4fc1946ec82ac733d0")
(revision "3"))
(package
(inherit pjproject)
(name "pjproject-jami")
@ -127,7 +127,7 @@
(file-name (git-file-name name version))
(sha256
(base32
"1g8nkb5ln5y208k2hhmlcddv2dzf6plfrsvi4x8sa7iwgb4prgb8"))))
"0gky5idyyqxhqk959lzys5l7x1i925db773lfdpvxxmkmfizdq21"))))
(arguments
(substitute-keyword-arguments (package-arguments pjproject)
((#:phases phases '%standard-phases)
@ -179,6 +179,7 @@
"--enable-muxer=h264"
"--enable-muxer=hevc"
"--enable-muxer=matroska"
"--enable-muxer=wav"
"--enable-muxer=webm"
"--enable-muxer=ogg"
"--enable-muxer=pcm_s16be"
@ -257,40 +258,30 @@
"--enable-encoder=libopus"
"--enable-decoder=libopus"
;; Decoders for ringtones and audio streaming.
;; Encoders/decoders for ringtones and audio streaming.
"--enable-decoder=flac"
"--enable-decoder=vorbis"
"--enable-decoder=aac"
"--enable-decoder=ac3"
"--enable-decoder=eac3"
"--enable-decoder=mp3"
"--enable-decoder=pcm_u24be"
"--enable-decoder=pcm_u24le"
"--enable-decoder=pcm_u32be"
"--enable-decoder=pcm_u32le"
"--enable-decoder=pcm_u8"
"--enable-decoder=pcm_f16le"
"--enable-decoder=pcm_f24le"
"--enable-decoder=pcm_f32be"
"--enable-decoder=pcm_f32le"
"--enable-decoder=pcm_f64be"
"--enable-decoder=pcm_f64le"
"--enable-decoder=pcm_s16be"
"--enable-decoder=pcm_s16be_planar"
"--enable-decoder=pcm_s16le"
"--enable-decoder=pcm_s16le_planar"
"--enable-decoder=pcm_s24be"
"--enable-decoder=pcm_s24le"
"--enable-decoder=pcm_s24le_planar"
"--enable-decoder=pcm_s32be"
"--enable-decoder=pcm_s32le"
"--enable-decoder=pcm_s32le_planar"
"--enable-decoder=pcm_s64be"
"--enable-decoder=pcm_s64le"
"--enable-decoder=pcm_s8"
"--enable-decoder=pcm_s8_planar"
"--enable-decoder=pcm_u16be"
"--enable-decoder=pcm_u16le"
"--enable-encoder=pcm_u8"
"--enable-encoder=pcm_f32le"
"--enable-encoder=pcm_f64le"
"--enable-encoder=pcm_s16le"
"--enable-encoder=pcm_s32le"
"--enable-encoder=pcm_s64le"
;; Encoders/decoders for images.
"--enable-encoder=gif"
@ -349,21 +340,10 @@
(define-public ffmpeg-jami
(package
(inherit ffmpeg-5)
(inherit ffmpeg)
(name "ffmpeg-jami")
;; XXX: Use a slightly older version, otherwise the
;; 'libopusdec-enable-FEC' patch doesn't apply.
(version "5.0.1")
(source (origin
(method url-fetch)
(uri (string-append "https://ffmpeg.org/releases/ffmpeg-"
version ".tar.xz"))
(sha256
(base32
"0yq0jcdc4qm5znrzylj3dsicrkk2n3n8bv28vr0a506fb7iglbpg"))))
(outputs '("out" "debug"))
(arguments
(substitute-keyword-arguments (package-arguments ffmpeg-5)
(substitute-keyword-arguments (package-arguments ffmpeg)
((#:configure-flags _ '())
#~(cons* "--disable-static"
"--enable-shared"
@ -382,19 +362,7 @@
"rtp_ext_abs_send_time"
"libopusdec-enable-FEC"
"libopusenc-reload-packet-loss-at-encode"
"screen-sharing-x11-fix"))))
(add-after 'apply-patches 'disable-problematic-tests
(lambda _
;; The "rtp_ext_abs_send_time" patch causes the 'lavf-mov_rtphint'
;; test to fail (see:
;; https://git.jami.net/savoirfairelinux/jami-daemon/-/issues/685).
(substitute* "tests/fate/lavf-container.mak"
(("mov mov_rtphint ismv")
"mov ismv")
(("fate-lavf-mov_rtphint:.*") ""))))))))
(inputs (modify-inputs (package-inputs ffmpeg-5)
(replace "libvpx" libvpx-next)
(replace "libx264" libx264-next)))))
"screen-sharing-x11-fix"))))))))))
(define-public libjami
(package
@ -570,8 +538,8 @@ P2P-DHT.")
(define-public jami-docs
;; There aren't any tags, so use the latest commit.
(let ((revision "0")
(commit "b00574bcc46538c4b405b5edb3b43bf5404ff511"))
(let ((revision "1")
(commit "ff466ebadb9b99a1672a814126793de670c3099b"))
(package
(name "jami-docs")
(version (git-version "0.0.0" revision commit))
@ -583,7 +551,7 @@ P2P-DHT.")
(file-name (git-file-name name version))
(sha256
(base32
"0iayi6yrb6djk0l2dwdxzlsga9c18ra8adplh8dad3zjdi75wnsq"))))
"1n8a9dk8mi617rk3ycz5jrzbwv9ybfynlci5faz1klckx0aqdf6q"))))
(build-system copy-build-system)
(arguments
(list

9
gnu/packages/kde.scm
View File

@ -14,7 +14,7 @@
;;; Copyright © 2020, 2021, 2022, 2023 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2021 Alexandros Theodotou <alex@zrythm.org>
;;; Copyright © 2021 la snesne <lasnesne@lagunposprasihopre.org>
;;; Copyright © 2021, 2022 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2021, 2022, 2023 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2022 Brendan Tildesley <mail@brendan.scot>
;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
;;;
@ -221,7 +221,7 @@ browser for easy news reading.")
(define-public kdenlive
(package
(name "kdenlive")
(version "22.08.3")
(version "22.12.3")
(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 "1016mwgrf4dwb945pc2kqm2j8vq86r01s19miq0h4wdgbfxa496c"))))
(base32 "0n7ca6c4nqr9z8ix70qjxw0rivh3hgqd187k4k8vp812yb49qrin"))))
(build-system qt-build-system)
(arguments
;; XXX: there is a single test that spawns other tests and
@ -412,9 +412,6 @@ software (Git, Subversion, Mercurial, CVS and Bazaar).")
for some KDevelop language plugins (Ruby, PHP, CSS...).")
(license license:lgpl2.0+)))
;; kdevplatform was merged into kdevelop as of 5.2.x
(define-deprecated kdevplatform kdevelop)
(define-public kdiagram
(package
(name "kdiagram")

26
gnu/packages/kerberos.scm
View File

@ -31,16 +31,20 @@
(define-module (gnu packages kerberos)
#:use-module (gnu packages)
#:use-module (gnu packages admin)
#:use-module (gnu packages autotools)
#:use-module (gnu packages bash)
#:use-module (gnu packages bison)
#:use-module (gnu packages dbm)
#:use-module (gnu packages flex)
#:use-module (gnu packages perl)
#:use-module (gnu packages python)
#:use-module (gnu packages gettext)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages libidn)
#:use-module (gnu packages hurd)
#:use-module (gnu packages linux)
#:use-module (gnu packages openldap)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages compression)
#:use-module (gnu packages readline)
@ -169,7 +173,7 @@ After installation, the system administrator should generate keys using
(define-public heimdal
(package
(name "heimdal")
(version "7.7.0")
(version "7.8.0")
(source (origin
(method url-fetch)
(uri (string-append
@ -177,14 +181,16 @@ After installation, the system administrator should generate keys using
"heimdal-" version "/" "heimdal-" version ".tar.gz"))
(sha256
(base32
"06vx3cb01s4lv3lpv0qzbbj97cln1np1wjphkkmmbk1lsqa36bgh"))
"0f4dblav859p5hn7b2jdj1akw6d8p32as6bj6zym19kghh3s51zx"))
(patches
(search-patches "heimdal-CVE-2022-45142.patch"))
(modules '((guix build utils)))
(snippet
'(begin
(substitute* "configure"
(("User=.*$") "User=Guix\n")
(("Host=.*$") "Host=GNU")
(("Date=.*$") "Date=2019\n"))))))
(("Date=.*$") "Date=2022\n"))))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -249,15 +255,19 @@ After installation, the system administrator should generate keys using
(format #t "#!~a~%exit 1~%" (which "sh")))))))
;; Tests fail when run in parallel.
#:parallel-tests? #f))
(native-inputs (list e2fsprogs ;for 'compile_et'
(native-inputs (list bison
e2fsprogs ;for 'compile_et'
flex
texinfo
unzip ;for tests
perl))
unzip ;for tests
pkg-config
python))
(inputs (list readline
bash-minimal
bdb
e2fsprogs ;for libcom_err
mit-krb5
e2fsprogs ;for libcom_err
libcap-ng
openldap
sqlite))
(home-page "http://www.h5l.org/")
(synopsis "Kerberos 5 network authentication")

105
gnu/packages/language.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2018 Nikita <nikita@n0.is>
;;; Copyright © 2019 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2020, 2022 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2022 Milran <milranmike@protonmail.com>
;;;
;;; This file is part of GNU Guix.
@ -28,6 +28,7 @@
#:use-module (gnu packages autotools)
#:use-module (gnu packages audio)
#:use-module (gnu packages base)
#:use-module (gnu packages compression)
#:use-module (gnu packages docbook)
#:use-module (gnu packages emacs)
#:use-module (gnu packages freedesktop)
@ -58,6 +59,7 @@
#:use-module (gnu packages xorg)
#:use-module (guix packages)
#:use-module (guix build-system cmake)
#:use-module (guix build-system copy)
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system gnu)
#:use-module (guix build-system perl)
@ -928,3 +930,104 @@ and manipulation.")
(description
"libskk is a library to deal with Japanese kana-to-kanji conversion method.")
(license license:gpl3+)))
(define-public mecab
(package
(name "mecab")
(version "0.996")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/taku910/mecab")
;; latest commit
(commit "046fa78b2ed56fbd4fac312040f6d62fc1bc31e3")))
(file-name (git-file-name name version))
(sha256
(base32
"1hdv7rgn8j0ym9gsbigydwrbxa8cx2fb0qngg1ya15vvbw0lk4aa"))
(patches
(search-patches
"mecab-variable-param.patch"))))
(build-system gnu-build-system)
(native-search-paths
(list (search-path-specification
(variable "MECAB_DICDIR")
(separator #f)
(files '("lib/mecab/dic")))))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'chdir
(lambda _
(chdir "mecab")))
(add-before 'build 'add-mecab-dicdir-variable
(lambda _
(substitute* "mecabrc.in"
(("dicdir = .*")
"dicdir = $MECAB_DICDIR"))
(substitute* "mecab-config.in"
(("echo @libdir@/mecab/dic")
"if [ -z \"$MECAB_DICDIR\" ]; then
echo @libdir@/mecab/dic
else
echo \"$MECAB_DICDIR\"
fi")))))))
(inputs (list libiconv))
(home-page "https://taku910.github.io/mecab")
(synopsis "Morphological analysis engine for texts")
(description "Mecab is a morphological analysis engine developped as a
collaboration between the Kyoto university and Nippon Telegraph and Telephone
Corporation. The engine is independent of any language, dictionary or corpus.")
(license (list license:gpl2+ license:lgpl2.1+ license:bsd-3))))
(define-public mecab-ipadic
(package
(name "mecab-ipadic")
(version "2.7.0")
(source (package-source mecab))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list (string-append "--with-dicdir=" (assoc-ref %outputs "out")
"/lib/mecab/dic")
"--with-charset=utf8")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'chdir
(lambda _
(chdir "mecab-ipadic")))
(add-before 'configure 'set-mecab-dir
(lambda* (#:key outputs #:allow-other-keys)
(setenv "MECAB_DICDIR" (string-append (assoc-ref outputs "out")
"/lib/mecab/dic")))))))
(native-inputs (list mecab)); for mecab-config
(home-page "https://taku910.github.io/mecab")
(synopsis "Dictionary data for MeCab")
(description "This package contains dictionnary data derived from
ipadic for use with MeCab.")
(license (license:non-copyleft "mecab-ipadic/COPYING"))))
(define-public mecab-unidic
(package
(name "mecab-unidic")
(version "3.1.0")
(source (origin
(method url-fetch)
(uri (string-append "https://clrd.ninjal.ac.jp/unidic_archive/cwj/"
version "/unidic-cwj-" version ".zip"))
(sha256
(base32
"1z132p2q3bgchiw529j2d7dari21kn0fhkgrj3vcl0ncg2m521il"))))
(build-system copy-build-system)
(arguments
`(#:install-plan
'(("." "lib/mecab/dic"
#:include-regexp ("\\.bin$" "\\.def$" "\\.dic$" "dicrc")))))
(native-inputs (list unzip))
(home-page "https://clrd.ninjal.ac.jp/unidic/en/")
(synopsis "Dictionary data for MeCab")
(description "UniDic for morphological analysis is a dictionary for
analysis with the morphological analyser MeCab, where the short units exported
from the database are used as entries (heading terms).")
;; triple-licensed (at the user’s choice)
(license (list license:gpl2+ license:lgpl2.1 license:bsd-3))))

5
gnu/packages/less.scm
View File

@ -4,6 +4,7 @@
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020, 2021, 2022 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2022 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2022 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; This file is part of GNU Guix.
;;;
@ -36,7 +37,7 @@
(define-public less
(package
(name "less")
(version "590")
(version "608")
(source
(origin
(method url-fetch)
@ -46,7 +47,7 @@
version ".tar.gz")))
(patches (search-patches "less-hurd-path-max.patch"))
(sha256
(base32 "044fl3izmsi8n1vqzsqdp65q0qyyn5kmsg4sk7id0mxzx15zbbba"))))
(base32 "02f2d9d6hyf03va28ip620gjc6rf4aikmdyk47h7frqj18pbx6m6"))))
(build-system gnu-build-system)
(inputs (list ncurses))
(home-page "https://www.gnu.org/software/less/")

6
gnu/packages/libcanberra.scm
View File

@ -104,12 +104,6 @@ GNOME. It comes with several backends (ALSA, PulseAudio, OSS, GStreamer,
null) and is designed to be portable.")
(license lgpl2.1+)))
(define-public libcanberra/gtk+-2
(package/inherit libcanberra
(name "libcanberra-gtk2")
(inputs `(,@(alist-delete "gtk+" (package-inputs libcanberra))
("gtk+" ,gtk+-2)))))
(define-public sound-theme-freedesktop
(package
(name "sound-theme-freedesktop")

12
gnu/packages/license.scm
View File

@ -30,6 +30,7 @@
#:use-module (gnu packages python-xyz)
#:use-module (guix build-system perl)
#:use-module (guix build-system python)
#:use-module (guix build-system pyproject)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix licenses)
@ -169,23 +170,22 @@ belonging to various licenses.")
(define-public reuse
(package
(name "reuse")
(version "1.0.0")
(version "1.1.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "reuse" version))
(sha256
(base32 "1m78q5x19xvhywi1xl0prrag89ihvqiq14lba27rrxl75nz24c6v"))))
(build-system python-build-system)
(base32 "0ij2mpdnawjabnsy291157wzci9050dfclwib95phg7pnmd6xsw0"))))
(build-system pyproject-build-system)
(native-inputs
(list python-pytest python-setuptools-scm))
(list python-poetry-core python-pytest))
(inputs
(list python-binaryornot
python-boolean.py
python-debian
python-jinja2
python-license-expression
python-requests))
python-license-expression))
(home-page "https://reuse.software/")
(synopsis "Provide and verify copyright and licensing information")
(description

3
gnu/packages/linphone.scm
View File

@ -912,9 +912,6 @@ and video calls or instant messaging capabilities to an application.")
(home-page "https://linphone.org/technical-corner/linphone")
(license license:gpl3+)))
(define-public linphoneqt
(deprecated-package "linphoneqt" linphone-desktop))
(define-public msopenh264
(let ((commit "88697cc95140017760d6da408cb0efdc5e86e40a")
(revision "0"))

178
gnu/packages/linux.scm
View File

@ -54,13 +54,14 @@
;;; Copyright © 2021 B. Wilson <elaexuotee@wilsonb.com>
;;; Copyright © 2021 Ivan Gankevich <i.gankevich@spbu.ru>
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2021, 2023 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2021 Josselin Poiret <josselin.poiret@protonmail.ch>
;;; Copyright © 2021 Olivier Dion <olivier.dion@polymtl.ca>
;;; Copyright © 2021 Solene Rapenne <solene@perso.pw>
;;; Copyright © 2021, 2022 Petr Hodina <phodina@protonmail.com>
;;; Copyright © 2021 Ryan Sundberg <ryan@arctype.co>
;;; Copyright © 2022 Artyom V. Poptsov <poptsov.artyom@gmail.com>
;;; Copyright © 2022 Rene Saavedra <nanuui@protonmail.com>
;;; Copyright © 2022 muradm <mail@muradm.net>
@ -70,6 +71,7 @@
;;; Copyright © 2022 Stefan <stefan-guix@vodafonemail.de>
;;; Copyright © 2022, 2023 Demis Balbach <db@minikn.xyz>
;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
;;; Copyright © 2023 Yovan Naumovski <yovan@gorski.stream>
;;;
;;; This file is part of GNU Guix.
;;;
@ -482,7 +484,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.2-version "6.2.7")
(define-public linux-libre-6.2-version "6.2.10")
(define-public linux-libre-6.2-gnu-revision "gnu")
(define deblob-scripts-6.2
(linux-libre-deblob-scripts
@ -492,12 +494,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "0ir5vvbdh6dly5ld8mfp7285g8k88w5bb32hj4wmgyqsbfqc6rf2")))
(define-public linux-libre-6.2-pristine-source
(let ((version linux-libre-6.2-version)
(hash (base32 "138dpmj8qr5fcji99kmi3sj34ah21bgqgzsz2lbhn37v059100s3")))
(hash (base32 "1zm4xvxdy6sqqwcich46mr4dh3kpmp40bawwahrg4lr7rp1n5iap")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-6.2)))
(define-public linux-libre-6.1-version "6.1.20")
(define-public linux-libre-6.1-version "6.1.23")
(define-public linux-libre-6.1-gnu-revision "gnu")
(define deblob-scripts-6.1
(linux-libre-deblob-scripts
@ -507,7 +509,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "0cchdhjra74zanyk14brv2l2dvxpg8dn58rn477lgfb44mcnhq33")))
(define-public linux-libre-6.1-pristine-source
(let ((version linux-libre-6.1-version)
(hash (base32 "1w1iy1i3bpzrs5rhvqbn2awxv5qqgng9n7jd5js66g0sq3l2sckn")))
(hash (base32 "1szblfmm8gx0am017y30ywc60b1gqarplgmcs5zy7bshhwp3fn3l")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-6.1)))
@ -515,7 +517,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-5.15-version "5.15.103")
(define-public linux-libre-5.15-version "5.15.106")
(define-public linux-libre-5.15-gnu-revision "gnu")
(define deblob-scripts-5.15
(linux-libre-deblob-scripts
@ -525,12 +527,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "03hwhwbcicwyx5i30d6m715kwgrxz4h21xhk55wnawlk8zhx3r35")))
(define-public linux-libre-5.15-pristine-source
(let ((version linux-libre-5.15-version)
(hash (base32 "01fpipy8skmp4dyxgk8fk9k6hc0w0gvk7mm8f8pm7jhwcf0vlxh8")))
(hash (base32 "1r4g7ipcmj7k9dpwd5p2kd0f3iidnzl6z9g2cq4mfcw0h97r7rl4")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.15)))
(define-public linux-libre-5.10-version "5.10.175")
(define-public linux-libre-5.10-version "5.10.177")
(define-public linux-libre-5.10-gnu-revision "gnu1")
(define deblob-scripts-5.10
(linux-libre-deblob-scripts
@ -540,12 +542,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1g4vabfswxzf9ahxc06k2ffksf84kcr2csx4m5kx680w0jqqnk80")))
(define-public linux-libre-5.10-pristine-source
(let ((version linux-libre-5.10-version)
(hash (base32 "1kkv63v5lc0ahkl8sjmwhqxahmwmbxcbf4mfcmkf6d7j50p5cxz2")))
(hash (base32 "0waml6svj07b7f8yb1kzrflqlf61x4kcqbgsr372s484m3z628lz")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.10)))
(define-public linux-libre-5.4-version "5.4.237")
(define-public linux-libre-5.4-version "5.4.240")
(define-public linux-libre-5.4-gnu-revision "gnu1")
(define deblob-scripts-5.4
(linux-libre-deblob-scripts
@ -555,12 +557,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1d6as1yk9svysh07hdybs8glvn8s9f8gwlbjl7f9m920pdam2r60")))
(define-public linux-libre-5.4-pristine-source
(let ((version linux-libre-5.4-version)
(hash (base32 "09smq8jsbpqfh135snljack2wj41anx8f8i0lmjcqcq5zzhgw25p")))
(hash (base32 "0ihf0rqhx7dav3k3igk29962sscb1xyniy2gx8chyllprr0z126w")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.4)))
(define-public linux-libre-4.19-version "4.19.278")
(define-public linux-libre-4.19-version "4.19.280")
(define-public linux-libre-4.19-gnu-revision "gnu1")
(define deblob-scripts-4.19
(linux-libre-deblob-scripts
@ -570,12 +572,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1q0fgpbdwc21wj9wnjjb49dp84ch6ymd5na3iaabadwjs2nmb6bd")))
(define-public linux-libre-4.19-pristine-source
(let ((version linux-libre-4.19-version)
(hash (base32 "0miyadgnd52cgw3bgpmx66kr1pgxh14b2f52fasy57b6wysv0lnv")))
(hash (base32 "1xmg9p3ky75n5q894f522s8nwcmbd5c15nmjr0n96m6xzag3kd7w")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.19)))
(define-public linux-libre-4.14-version "4.14.310")
(define-public linux-libre-4.14-version "4.14.312")
(define-public linux-libre-4.14-gnu-revision "gnu1")
(define deblob-scripts-4.14
(linux-libre-deblob-scripts
@ -585,7 +587,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 "0r91f3jj3y0cca4sfs0xa12lbrc62q2yzgval5ainwr74bk7dwlb")))
(hash (base32 "03bwrnm7z8jxxn681dd5jffrj76l14ngkcccfgbg1p4a0471q436")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.14)))
@ -1143,11 +1145,11 @@ Linux kernel. It has been modified to remove all non-free binary blobs.")
;; Linux-Libre.
;; Reference: https://jxself.org/linux-libre/
(define-public linux-libre-lts-version linux-libre-5.15-version)
(define-public linux-libre-lts-gnu-revision linux-libre-5.15-gnu-revision)
(define-public linux-libre-lts-pristine-source linux-libre-5.15-pristine-source)
(define-public linux-libre-lts-source linux-libre-5.15-source)
(define-public linux-libre-lts linux-libre-5.15)
(define-public linux-libre-lts-version linux-libre-6.1-version)
(define-public linux-libre-lts-gnu-revision linux-libre-6.1-gnu-revision)
(define-public linux-libre-lts-pristine-source linux-libre-6.1-pristine-source)
(define-public linux-libre-lts-source linux-libre-6.1-source)
(define-public linux-libre-lts linux-libre-6.1)
;;;
@ -1504,7 +1506,7 @@ and the notification, WiFi, and Bluetooth LED.")
(define-public tuxedo-keyboard
(package
(name "tuxedo-keyboard")
(version "3.1.4")
(version "3.2.1")
(source
(origin
(method git-fetch)
@ -1513,7 +1515,7 @@ and the notification, WiFi, and Bluetooth LED.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "00yq3bk4ss60q8zgykid6gzsi3n6grdnkk6dkdr8n42gwaprpbw7"))))
(base32 "13fncirqcci46zxmsrawsxpazip5k46i849dwkhkqlg0mg4vxxw5"))))
(build-system linux-module-build-system)
(arguments
(list #:tests? #f)) ; no test suite
@ -2615,7 +2617,7 @@ Zerofree requires the file system to be unmounted or mounted read-only.")
(define-public strace
(package
(name "strace")
(version "5.18")
(version "6.2")
(home-page "https://strace.io")
(source (origin
(method url-fetch)
@ -2623,7 +2625,7 @@ Zerofree requires the file system to be unmounted or mounted read-only.")
"/strace-" version ".tar.xz"))
(sha256
(base32
"11qi7pdm0ldycsg9qhsa50icm219mmvy16yw1ih3s9f9kakkwab0"))
"1s3pj6a6xx1p1w98ik03d8hc4xssl4ha4aa0039nhqj196j3hz8c"))
(patches (search-patches "strace-readlink-tests.patch"))))
(build-system gnu-build-system)
(arguments
@ -4643,64 +4645,60 @@ compliance.")
(define-public wireless-regdb
(package
(name "wireless-regdb")
(version "2020.11.20")
(version "2023.02.13")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://kernel.org/software/network/wireless-regdb/"
"wireless-regdb-" version ".tar.xz"))
(sha256
(base32
"0liagyi6ppf5w474qk9j4jz5gbvvn8mc8al1dq4b1xrgv28485ml"))
(base32 "0wrf1c7mbsklwdn7jpwzlpjxwj0vgr61qyh88lx7bi2dd6lfi0gy"))
;; We're building 'regulatory.bin' by ourselves.
(snippet '(begin
(delete-file "regulatory.bin")
#t))))
(delete-file "regulatory.bin")))))
(build-system gnu-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'gzip-determinism
(lambda _
(substitute* "Makefile"
(("gzip") "gzip --no-name"))
#t))
(add-after 'unpack 'omit-signature
(lambda _
(substitute* "Makefile"
;; Signing requires a REGDB_PUBCERT and REGDB_PRIVKEY which we
;; don't provide (see below). Disable it.
((" regulatory\\.db\\.p7s") "")
;; regulatory.db is built as a dependency of regulatory.db.p7s,
;; but ‘make install’ depends only on the latter while installing
;; both (and failing). Depend on it explicitly.
(("^install: " all) (string-append all "regulatory.db ")))
#t))
(delete 'configure)) ; no configure script
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'gzip-determinism
(lambda _
(substitute* "Makefile"
(("gzip") "gzip --no-name"))))
(add-after 'unpack 'omit-signature
(lambda _
(substitute* "Makefile"
;; Signing requires a REGDB_PUBCERT and REGDB_PRIVKEY which we
;; don't provide (see below). Disable it.
((" regulatory\\.db\\.p7s") "")
;; regulatory.db is built as a dependency of regulatory.db.p7s,
;; but ‘make install’ depends only on the latter while
;; installing both (and failing). Depend on it explicitly.
(("^install: " all) (string-append all "regulatory.db ")))))
(delete 'configure)) ; no configure script
;; The 'all' target of the makefile depends on $(REGDB_CHANGED), which
;; is computed and can be equal to 'maintainer-clean'; when that
;; happens, we can end up deleting the 'regulatory.bin' file that we
;; just built. Thus, build things sequentially.
#:parallel-build? #f
;; The 'all' target of the makefile depends on $(REGDB_CHANGED), which
;; is computed and can be equal to 'maintainer-clean'; when that
;; happens, we can end up deleting the 'regulatory.bin' file that we
;; just built. Thus, build things sequentially.
#:parallel-build? #f
#:tests? #f ; no tests
#:make-flags
(let ((out (assoc-ref %outputs "out")))
(list (string-append "PREFIX=" out)
(string-append "FIRMWARE_PATH=$(PREFIX)/lib/firmware")
#:tests? #f ; no tests
#:make-flags
#~(list (string-append "PREFIX=" #$output)
(string-append "FIRMWARE_PATH=$(PREFIX)/lib/firmware")
;; Leave this empty so that db2bin.py doesn't try to sign
;; ‘regulatory.bin’. This allows us to avoid managing a key
;; pair for the whole distribution.
(string-append "REGDB_PRIVKEY=")
;; Don't generate a public key for the same reason. These are
;; used as Makefile targets and can't be the empty string.
(string-append "REGDB_PUBCERT=/dev/null")
(string-append "REGDB_PUBKEY=/dev/null")))))
;; Leave this empty so that db2bin.py doesn't try to sign
;; ‘regulatory.bin’. This allows us to avoid managing a key
;; pair for the whole distribution.
(string-append "REGDB_PRIVKEY=")
;; Don't generate a public key for the same reason. These are
;; used as Makefile targets and can't be the empty string.
(string-append "REGDB_PUBCERT=/dev/null")
(string-append "REGDB_PUBKEY=/dev/null"))))
(native-inputs
`(("python" ,python-wrapper)))
(list python-wrapper))
(home-page
"https://wireless.wiki.kernel.org/en/developers/regulatory/wireless-regdb")
(synopsis "Wireless regulatory database")
@ -5705,7 +5703,7 @@ Bluetooth audio output devices like headphones or loudspeakers.")
(define-public bluez
(package
(name "bluez")
(version "5.65")
(version "5.66")
(source (origin
(method url-fetch)
(uri (string-append
@ -5713,7 +5711,7 @@ Bluetooth audio output devices like headphones or loudspeakers.")
version ".tar.xz"))
(sha256
(base32
"1m4n7nczjlbhb20bp2hwb2b85036xma5pqljmpk7ddalhgaa8r95"))))
"0x5mn9x6g626izxnw236933wvq83qagsh9qc9ac9550cb55sdzir"))))
(build-system gnu-build-system)
(arguments
(list
@ -7126,7 +7124,7 @@ of flash storage.")
(define-public libseccomp
(package
(name "libseccomp")
(version "2.5.3")
(version "2.5.4")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/seccomp/libseccomp/"
@ -7134,7 +7132,7 @@ of flash storage.")
"/libseccomp-" version ".tar.gz"))
(sha256
(base32
"0xhan73zn4p0n7s8vx6s47wjmidvk4x8r90vfbljairn6f3mq1jr"))))
"1nyb3lspc5bsirpsx89vah3n54pmwlgxrwsfaxl01kq50i004afq"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags '("--disable-static")
@ -9449,6 +9447,44 @@ that was first added to Linux 3.15. Much of what BCC uses requires Linux 4.1
and above.")
(license license:asl2.0)))
(define-public bpftool
(package
(name "bpftool")
(version (package-version linux-libre))
(source (package-source linux-libre))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ;This package has no tests.
#:phases (modify-phases %standard-phases
(delete 'configure)
(replace 'build
(lambda* (#:key inputs #:allow-other-keys)
(invoke "make" "-C" "tools/bpf/bpftool"
,(string-append "CC=" (cc-for-target)))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")))
(mkdir-p (string-append out "/sbin"))
(mkdir-p (string-append out
"/share/bash-completion/completions"))
(invoke "make"
(string-append "prefix=" out)
(string-append
"bash_compdir=" out
"/share/bash-completion/completions")
"-C" "tools/bpf/bpftool"
"install")))))))
(inputs (list elfutils ;provides libelf
readline libcap zlib))
(native-inputs (list bison python-3))
;; This tool does not have a proper web page.
(home-page
"https://git.kernel.org/pub/scm/linux/kernel/git/bpf/bpf-next.git/tree/tools/bpf/bpftool")
(synopsis "Tool for inspection and manipulation of eBPF programs and maps")
(description "@command{bpftool} allows for inspection and simple
modification of BPF objects on the system.")
(license (package-license linux-libre))))
(define-public bpftrace
(package
(name "bpftrace")

36
gnu/packages/lisp-check.scm
View File

@ -6,7 +6,7 @@
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019, 2020 Katherine Cox-Buday <cox.katherine.e@gmail.com>
;;; Copyright © 2019, 2020, 2021, 2022 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2021 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2021, 2023 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2021 Charles Jackson <charles.b.jackson@protonmail.com>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;; Copyright © 2022 André A. Gomes <andremegafone@gmail.com>
@ -378,6 +378,40 @@ easy to use so that you can quickly start testing.")
(define-public ecl-clunit2
(sbcl-package->ecl-package sbcl-clunit2))
(define-public sbcl-confidence
(let ((commit "5cbc74715348e12e689afb2d459dcb216c640a44")
(revision "0"))
(package
(name "sbcl-confidence")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/melusina-org/cl-confidence")
(commit commit)))
(file-name (git-file-name "cl-confidence" version))
(sha256
(base32 "0zc135rvq2valrw15bh8k6i53v7kk5l7x0kccb1bf7pglc8zgivs"))))
(build-system asdf-build-system/sbcl)
(arguments
`(#:asd-systems '("org.melusina.confidence"
"org.melusina.confidence/testsuite")))
(inputs (list sbcl-alexandria))
(home-page "https://github.com/melusina-org/cl-confidence")
(synopsis "Interactive test framework for Common Lisp")
(description
"Confidence is a test framework for Common Lisp that focuses on
simplicity. It avoids bureaucracy and makes it easy to work interactively,
without a complicated setup, and with explicit functions and decisions.")
(license license:expat))))
(define-public ecl-confidence
(sbcl-package->ecl-package sbcl-confidence))
(define-public cl-confidence
(sbcl-package->cl-source-package sbcl-confidence))
(define-public sbcl-eos
(let ((commit "b4413bccc4d142cbe1bf49516c3a0a22c9d99243")
(revision "2"))

1662
gnu/packages/lisp-xyz.scm
View File

File diff suppressed because it is too large Load Diff

126
gnu/packages/lisp.scm
View File

@ -481,13 +481,6 @@ an interpreter, a compiler, a debugger, and much more.")
(srfi srfi-1))
#:phases
(modify-phases %standard-phases
,@(if (target-arm32?)
;; TODO: Move to snippet in staging.
`((add-after 'unpack 'dont-force-armv5
(lambda _
(substitute* "src/runtime/Config.arm-linux"
(("-march=armv5") "")))))
'())
(delete 'configure)
(add-after 'unpack 'fix-build-id
;; One of the build scripts makes a build id using the current date.
@ -988,7 +981,7 @@ the HTML documentation of TXR.")
(define-public txr
(package
(name "txr")
(version "284")
(version "285")
(source
(origin
(method git-fetch)
@ -997,64 +990,63 @@ the HTML documentation of TXR.")
(commit (string-append "txr-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1v6dq1q98v3jdx7g67k15njkpp49iwf30n29rrhwng3b3njqm75g"))))
(base32 "1ypsgakhak0znmg3wzblfcwd4s4nanzm61dz66gwi48rfnq35znl"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list ,(string-append "cc=" (cc-for-target))
(string-append "--prefix=" (assoc-ref %outputs "out")))
#:test-target "tests"
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-license-installation
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "Makefile"
(("INSTALL(,.*LICENSE,.*)\\$\\(datadir\\)" _ match)
(string-append "INSTALL" match
(assoc-ref outputs "out")
"/share/doc/" ,name "-" ,version)))))
(delete 'install-license-files)
(add-after 'unpack 'inhibit-doc-syms-generation
(lambda _
(substitute* "genman.txr"
;; Exit from genman.txr before it tries to write to
;; stdlib/doc-syms.tl, which is anyway kept up to date with
;; each release (and is already compiled to stdlib/doc-syms.tlo
;; when genman.txr is run).
(("^@\\(output \"stdlib/doc-syms\\.tl\"\\).*" line)
(string-append "@(do (exit))\n" line)))))
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "stream.c"
(("/bin/sh")
(string-append (assoc-ref inputs "bash") "/bin/bash")))))
(add-after 'unpack 'fix-tests
(lambda _
(substitute* (list "tests/017/realpath.tl"
"tests/017/realpath.expected")
(("/usr/bin") "/"))))
(replace 'configure
;; ./configure is a hand-written script that can't handle standard
;; autotools arguments like CONFIG_SHELL.
(lambda* (#:key configure-flags #:allow-other-keys)
(setenv "txr_shell" (which "bash"))
(apply invoke "./configure" configure-flags)))
(add-after 'build 'build-doc
(lambda _
(setenv "GS_GENERATE_UUIDS" "0")
(invoke "make" "txr-manpage.html" "txr-manpage.pdf")))
(add-after 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys)
(let ((doc (string-append (assoc-ref outputs "out")
"/share/doc/" ,name "-" ,version)))
(for-each (lambda (f) (install-file f doc))
'("txr-manpage.html" "txr-manpage.pdf")))))
(add-after 'install 'install-vim-files
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(syntax (string-append out "/share/vim/vimfiles/syntax")))
(install-file "tl.vim" syntax)
(install-file "txr.vim" syntax)))))))
(list #:configure-flags
#~(list (string-append "cc=" #$(cc-for-target))
(string-append "--prefix=" #$output))
#:test-target "tests"
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-license-installation
(lambda _
(substitute* "Makefile"
(("INSTALL(,.*LICENSE,.*)\\$\\(datadir\\)" _ match)
(string-append "INSTALL" match #$output
"/share/doc/" #$name "-" #$version)))))
(delete 'install-license-files)
(add-after 'unpack 'inhibit-doc-syms-generation
(lambda _
(substitute* "genman.txr"
;; Exit from genman.txr before it tries to write to
;; stdlib/doc-syms.tl, which is anyway kept up to date
;; with each release (and is already compiled to
;; stdlib/doc-syms.tlo when genman.txr is run).
(("^@\\(output \"stdlib/doc-syms\\.tl\"\\).*" line)
(string-append "@(do (exit))\n" line)))))
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "stream.c"
(("/bin/sh")
(search-input-file inputs "/bin/bash")))))
(add-after 'unpack 'fix-tests
(lambda _
(substitute* (list "tests/017/realpath.tl"
"tests/017/realpath.expected")
(("/usr/bin") "/"))))
(replace 'configure
;; ./configure is a hand-written script that can't handle
;; standard autotools arguments like CONFIG_SHELL.
(lambda* (#:key configure-flags #:allow-other-keys)
(setenv "txr_shell" (which "bash"))
(apply invoke "./configure" configure-flags)))
(add-after 'build 'build-doc
(lambda _
(setenv "GS_GENERATE_UUIDS" "0")
(invoke "make" "txr-manpage.html" "txr-manpage.pdf")))
(add-after 'install 'install-doc
(lambda _
(let ((doc (string-append #$output "/share/doc/"
#$name "-" #$version)))
(for-each (lambda (f) (install-file f doc))
'("txr-manpage.html" "txr-manpage.pdf")))))
(add-after 'install 'install-vim-files
(lambda _
(let ((syntax (string-append #$output
"/share/vim/vimfiles/syntax")))
(install-file "tl.vim" syntax)
(install-file "txr.vim" syntax)))))))
(native-inputs
;; Required to build the documentation.
(list ghostscript
@ -1073,7 +1065,7 @@ extraction language referred to as the TXR Pattern Language (sometimes just
used for everything from \"one liner\" data transformation tasks at the
command line, to data scanning and extracting scripts, to full application
development in a wide-range of areas.")
(home-page "https://nongnu.org/txr/")
(home-page "https://www.nongnu.org/txr/")
(license license:bsd-2)))
(define picolisp32
@ -1236,7 +1228,7 @@ including a built-in database engine and a GUI system.")
(define-public janet
(package
(name "janet")
(version "1.26.0")
(version "1.27.0")
(source
(origin
(method git-fetch)
@ -1245,7 +1237,7 @@ including a built-in database engine and a GUI system.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1ghxchyxhcjs0vfzisafc27v05im4kya1jg827l4q2h92ras17x3"))))
(base32 "0fd5z9xviwfv635wxil20qjjigb275p3ns9cvxhfx27ca8kkphsj"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags

2
gnu/packages/llvm.scm
View File

@ -2303,7 +2303,7 @@ LLVM."))))
(add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "lib/Interpreter/CIFactory.cpp"
(("\bsed\b")
(("\\bsed\\b")
(which "sed"))
;; This ensures that the default C++ library used by Cling is
;; that of the compiler that was used to build it, rather

9
gnu/packages/lua.scm
View File

@ -18,6 +18,7 @@
;;; Copyright © 2022 Brandon Lucas <br@ndon.dk>
;;; Copyright © 2022 Luis Henrique Gomes Higino <luishenriquegh2701@gmail.com>
;;; Copyright © 2022 Leo Nikkilä <hello@lnikki.la>
;;; Copyright © 2023 Yovan Naumovski <yovan@gorski.stream>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1189,7 +1190,7 @@ enabled.")
(define-public fennel
(package
(name "fennel")
(version "1.2.0")
(version "1.3.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1198,7 +1199,7 @@ enabled.")
(file-name (git-file-name name version))
(sha256
(base32
"0klqxhgc9s6rm2xbn2fyzw9nzdas65g84js7s69by0gv2jzalyad"))))
"1g22y0bpw1ads6bmsr946fw1m5xxvlvb1hdym3f3k3fziislwwhd"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags #~(list (string-append "PREFIX="
@ -1228,7 +1229,7 @@ system.")
(define-public fnlfmt
(package
(name "fnlfmt")
(version "0.2.2")
(version "0.3.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1237,7 +1238,7 @@ system.")
(file-name (git-file-name name version))
(sha256
(base32
"1rv0amqhy5ypi3pvxfaadn3k1cy4mjlc49wdzl2psz3i11w9gr36"))
"06gzw7f20yw4192kymr4karxw3ia3apjnjqpm6vxph87c67d1fa3"))
(modules '((guix build utils)))
(snippet
#~(begin

169
gnu/packages/machine-learning.scm
View File

@ -16,7 +16,7 @@
;;; Copyright © 2020 Konrad Hinsen <konrad.hinsen@fastmail.net>
;;; Copyright © 2020 Edouard Klein <edk@beaver-labs.com>
;;; Copyright © 2020, 2021, 2022, 2023 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2020, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020, 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -297,36 +297,19 @@ training, HMM clustering, HMM mixtures.")
(define-public guile-aiscm
(package
(name "guile-aiscm")
(version "0.24.2")
(version "0.25.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/wedesoft/aiscm")
(commit "2e16e38391bf1638f1dd9a1cf4b25a25f6626078")))
(commit "v0.25.2")))
(file-name (git-file-name name version))
(sha256
(base32
"1gwqpzl6irpaszkpxaf5wliwq19280632hlgxs3ikjkfg8mkqql0"))))
"1sagpxwrqxkn5b9zqzd07c9r7swmw45q672pa8fy6s71iw6a0x77"))))
(build-system gnu-build-system)
(arguments
(list
#:configure-flags
#~(list (string-append "OPENCV_CFLAGS=-I" #$(this-package-input "opencv")
"/include/opencv4")
(let ((modules
(list "aruco" "barcode" "bgsegm" "bioinspired"
"calib3d" "ccalib" "core" "datasets" "dnn"
"dnn_objdetect" "dnn_superres" "dpm" "face"
"features2d" "flann" "freetype" "fuzzy" "hdf"
"hfs" "highgui" "img_hash" "imgcodecs" "imgproc"
"intensity_transform" "line_descriptor" "mcc"
"ml" "objdetect" "optflow" "phase_unwrapping"
"photo" "plot" "quality" "rapid" "reg" "rgbd"
"saliency" "shape" "stereo" "stitching"
"structured_light" "superres" "surface_matching"
"text" "tracking" "video" "videoio" "videostab"
"wechat_qrcode" "ximgproc" "xobjdetect" "xphoto")))
(format #false "OPENCV_LIBS=~{-lopencv_~a~^ ~}" modules)))
#:make-flags
#~(list (string-append "GUILE_CACHE=" #$output "/lib/guile/3.0/site-ccache")
(string-append "GUILE_EXT=" #$output "/lib/guile/3.0/extensions")
@ -395,13 +378,12 @@ training, HMM clustering, HMM mixtures.")
libxv
mesa
mjpegtools
opencv
pandoc
pulseaudio
tensorflow))
(native-inputs
(list clang-11
llvm-11
(list clang-13
llvm-13
pkg-config
protobuf-c-for-aiscm
autoconf
@ -418,6 +400,70 @@ Performance is achieved by using the LLVM JIT compiler.")
(define-public guile-aiscm-next
(deprecated-package "guile-aiscm-next" guile-aiscm))
(define-public llama-cpp
(let ((commit "3cd8dde0d1357b7f11bdd25c45d5bf5e97e284a0")
(revision "0"))
(package
(name "llama-cpp")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ggerganov/llama.cpp")
(commit (string-append "master-" (string-take commit 7)))))
(file-name (git-file-name name version))
(sha256
(base32 "0i7c92cxqs31xklrn688978kk29agivgxjgvsb45wzm65gc6hm5c"))))
(build-system cmake-build-system)
(arguments
(list
#:modules '((ice-9 textual-ports)
(guix build utils)
((guix build python-build-system) #:prefix python:)
(guix build cmake-build-system))
#:imported-modules `(,@%cmake-build-system-modules
(guix build python-build-system))
#:phases
#~(modify-phases %standard-phases
(add-before 'install 'install-python-scripts
(lambda _
(let ((bin (string-append #$output "/bin/")))
(define (make-script script)
(let ((suffix (if (string-suffix? ".py" script) "" ".py")))
(call-with-input-file
(string-append "../source/" script suffix)
(lambda (input)
(call-with-output-file (string-append bin script)
(lambda (output)
(format output "#!~a/bin/python3\n~a"
#$(this-package-input "python")
(get-string-all input))))))
(chmod (string-append bin script) #o555)))
(mkdir-p bin)
(make-script "convert-pth-to-ggml")
(make-script "convert-gptq-to-ggml")
(make-script "quantize.py")
(substitute* (string-append bin "quantize.py")
(("os\\.getcwd\\(\\), quantize_script_binary")
(string-append "\"" bin "\", quantize_script_binary"))))))
(add-after 'install-python-scripts 'wrap-python-scripts
(assoc-ref python:%standard-phases 'wrap))
(replace 'install
(lambda _
(let ((bin (string-append #$output "/bin/")))
(install-file "bin/quantize" bin)
(copy-file "bin/main" (string-append bin "llama"))))))))
(inputs (list python))
(propagated-inputs
(list python-numpy python-pytorch python-sentencepiece))
(home-page "https://github.com/ggerganov/llama.cpp")
(synopsis "Port of Facebook's LLaMA model in C/C++")
(description "This package provides a port to Facebook's LLaMA collection
of foundation language models. It requires models parameters to be downloaded
independently to be able to run a LLaMA model.")
(license license:expat))))
(define-public mcl
(package
(name "mcl")
@ -601,6 +647,53 @@ optimizing, and searching weighted finite-state transducers (FSTs).")
'("--enable-shared" "--enable-far" "--enable-ngram-fsts"
"--enable-lookahead-fsts" "--with-pic" "--disable-bin")))))
(define-public sentencepiece
(package
(name "sentencepiece")
(version "0.1.97")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/google/sentencepiece")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1kzfkp2pk0vabyw3wmkh16h11chzq63mzc20ddhsag5fp6s91ajg"))))
(build-system cmake-build-system)
(arguments (list #:tests? #f)) ;no tests
(native-inputs (list gperftools))
(home-page "https://github.com/google/sentencepiece")
(synopsis "Unsupervised tokenizer for Neural Network-based text generation")
(description
"SentencePiece is an unsupervised text tokenizer and detokenizer mainly
for Neural Network-based text generation systems where the vocabulary size is
predetermined prior to the neural model training. SentencePiece implements
subword units---e.g., byte-pair-encoding (BPE) and unigram language
model---with the extension of direct training from raw sentences.
SentencePiece allows us to make a purely end-to-end system that does not
depend on language-specific pre- or post-processing.")
(license license:asl2.0)))
(define-public python-sentencepiece
(package
(name "python-sentencepiece")
(version "0.1.97")
(source
(origin
(method url-fetch)
(uri (pypi-uri "sentencepiece" version))
(sha256
(base32 "0v0z9ryl66432zajp099bcbnwkkldzlpjvgnjv9bq2vi19g300f9"))))
(build-system python-build-system)
(native-inputs (list pkg-config))
(propagated-inputs (list sentencepiece))
(home-page "https://github.com/google/sentencepiece")
(synopsis "SentencePiece python wrapper")
(description "This package provides a Python wrapper for the SentencePiece
unsupervised text tokenizer.")
(license license:asl2.0)))
(define-public shogun
(package
(name "shogun")
@ -3858,3 +3951,31 @@ fi"
is therefore designed to be easy to learn and use, highly flexible and
easily extensible.")
(license license:cecill)))
(define-public python-brian2tools
(package
(name "python-brian2tools")
(version "0.3")
(source (origin
(method url-fetch)
(uri (pypi-uri "brian2tools" version))
(sha256
(base32
"0fn028mfy3qlzjkadd0wr5d7rcplijd5jphln414xifvvsb9jcc2"))))
(build-system python-build-system)
;; Both pypi tarball and git repo lack test files.
(arguments (list #:tests? #f))
(propagated-inputs (list python-brian2
python-libneuroml
python-markdown-strings
python-matplotlib
python-pylems
python-setuptools
python-setuptools-scm))
(native-inputs (list python-pytest))
(home-page "https://github.com/brian-team/brian2tools")
(synopsis "Tools for the Brian 2 simulator")
(description "Visualization and NeuroML import/export tools for the
Brian 2 simulator.")
(license license:cecill)))

68
gnu/packages/mail.scm
View File

@ -27,7 +27,7 @@
;;; Copyright © 2018, 2019, 2020, 2021, 2022 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2018 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2018, 2019, 2020, 2021, 2022 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018, 2019, 2020, 2021, 2022, 2023 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019–2022 Tanguy Le Carrour <tanguy@bioneland.org>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2020 Justus Winter <justus@sequoia-pgp.org>
@ -408,6 +408,45 @@ software. GNU Mailutils provides the following commands:
;; Libraries are under LGPLv3+, and programs under GPLv3+.
(list license:gpl3+ license:lgpl3+))))
(define-public mairix
(let ((commit "1cc06f4a73ba4b940008c1ffc398d2ac708cd6d6")
(revision "0"))
(package
(name "mairix")
(version (git-version "0.24" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/vandry/mairix")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"12bhmk5j77cl3vjda48cmdysq1c2yjzvfv6zm4hlky6d5g3l49d7"))))
(build-system gnu-build-system)
(arguments
(list
#:parallel-tests? #f
#:phases #~(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key inputs #:allow-other-keys)
(invoke "./configure"
(string-append "--prefix=" #$output)))))))
(native-inputs
(list bison flex))
(inputs
(list bzip2
openssl
perl
xz
zlib))
(home-page "https://github.com/vandry/mairix")
(synopsis "Program for indexing and searching email messages")
(description
"Mairix is a program for indexing and searching email messages stored in
Maildir, MH, MMDF or mbox folders.")
(license license:gpl2))))
(define-public go-gitlab.com-shackra-goimapnotify
(package
(name "go-gitlab.com-shackra-goimapnotify")
@ -1168,16 +1207,15 @@ security functionality including PGP, S/MIME, SSH, and SSL.")
(define-public mu
(package
(name "mu")
(version "1.8.13")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/djcb/mu")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0y4f5p7pwmaj8733rjzg29038dw33057qlsbsq2wapvp24wcjymr"))))
(version "1.10.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/djcb/mu/releases/download/v"
version "/mu-" version ".tar.xz"))
(sha256
(base32
"0mj43lnxr11wg354q8svcqjc403b36igb7ia406yavw6xfk46w9f"))))
(build-system meson-build-system)
(native-inputs
(list pkg-config
@ -1195,6 +1233,14 @@ 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"

4
gnu/packages/man.scm
View File

@ -107,7 +107,7 @@ textfiles to roff for terminal display, and also to HTML for the web.")
(define-public libpipeline
(package
(name "libpipeline")
(version "1.5.3")
(version "1.5.6")
(source (origin
(method url-fetch)
(uri (string-append
@ -115,7 +115,7 @@ textfiles to roff for terminal display, and also to HTML for the web.")
version ".tar.gz"))
(sha256
(base32
"1c5dl017xil2ssb6a5vg927bnsbc9vymfgi9ahvqbb8gypx0igsx"))))
"15xpx7kbzkn63ab8mkghv7jkzji8pdbsyxm7ygjji19rvkkvkyv0"))))
(build-system gnu-build-system)
(home-page "https://libpipeline.nongnu.org/")
(synopsis "C library for manipulating pipelines of subprocesses")

4
gnu/packages/mastodon.scm
View File

@ -42,13 +42,13 @@
(define-public toot
(package
(name "toot")
(version "0.35.0")
(version "0.36.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "toot" version))
(sha256
(base32 "07vhirr3isi1bisqa5vgj13a4y9cj539c0djkd2dsa80g98g8xmi"))))
(base32 "1n79jwr3kpnc2xsr9isbgrj5as5i6zbkhxrdpdjfg87qbbjz7xca"))))
(build-system python-build-system)
(arguments
'(#:phases

690
gnu/packages/maths.scm
View File

@ -59,6 +59,7 @@
;;; Copyright © 2022 Maximilian Heisinger <mail@maxheisinger.at>
;;; Copyright © 2022 Akira Kyle <akira@akirakyle.com>
;;; Copyright © 2022 Roman Scherer <roman.scherer@burningswell.com>
;;; Copyright © 2023 Jake Leporte <jakeleporte@outlook.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -96,7 +97,6 @@
#:use-module (guix build-system ocaml)
#:use-module (guix build-system perl)
#:use-module (guix build-system python)
#:use-module (guix build-system pyproject)
#:use-module (guix build-system ruby)
#:use-module (gnu packages algebra)
#:use-module (gnu packages audio)
@ -105,6 +105,7 @@
#:use-module (gnu packages bash)
#:use-module (gnu packages bison)
#:use-module (gnu packages boost)
#:use-module (gnu packages calendar)
#:use-module (gnu packages check)
#:use-module (gnu packages cmake)
#:use-module (gnu packages compression)
@ -127,12 +128,12 @@
#:use-module (gnu packages glib)
#:use-module (gnu packages gperf)
#:use-module (gnu packages graphviz)
#:use-module (gnu packages groff)
#:use-module (gnu packages gtk)
#:use-module (gnu packages icu4c)
#:use-module (gnu packages image)
#:use-module (gnu packages java)
#:use-module (gnu packages less)
#:use-module (gnu packages libffi)
#:use-module (gnu packages lisp)
#:use-module (gnu packages linux)
#:use-module (gnu packages llvm)
@ -176,6 +177,7 @@
#:use-module (gnu packages tls)
#:use-module (gnu packages version-control)
#:use-module (gnu packages wxwidgets)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages xml)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26))
@ -459,6 +461,101 @@ semiconductors.")
(license license:gpl3+)
(home-page "https://www.gnu.org/software/dionysus/")))
(define-public dozenal
;; There is no recent release, so use the latest commit.
(let ((revision "1")
(commit "328bc03ad544179f2cccda36763358c4216f188e"))
(package
(name "dozenal")
(version (git-version "12010904-3" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://codeberg.org/dgoodmaniii/dozenal")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0knwfwjqdv854l5ny7csdpvp7r0md6a2k43a1l2lkyw9k3cglpph"))))
(build-system gnu-build-system)
(arguments
(list
;; Some test scripts are included, but no makefile-driven
;; tests, and they are all quite manual to run and check.
#:tests? #f
;; Running with `make -j' causes the build to fail. This is likely
;; because this project uses the "recursive make" structure, where
;; each subdirectory contains its own make file, which is called by
;; the top-level makefile.
#:parallel-build? #f
#:make-flags
#~(list (string-append "prefix=" #$output))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'chdir
(lambda _
(chdir "dozenal")))
(add-after 'chdir 'patch-lua-references
(lambda _
(let ((lua-name (strip-store-file-name
#$(this-package-input "lua"))))
(substitute* '("dozcal/Makefile"
"dozlua/Makefile")
(("lua52")
(string-take lua-name
(string-rindex lua-name #\.)))))))
(delete 'configure)
(add-before 'install 'make-bin-dir
(lambda _
(mkdir-p (string-append #$output "/bin"))))
(add-after 'install 'install-html-docs
(lambda _
(invoke "make"
(string-append "prefix=" #$output)
"installhtml")))
(add-after 'install-html-docs 'split-outputs
(lambda* (#:key inputs outputs #:allow-other-keys)
(for-each
(lambda (prog)
(let ((orig (string-append #$output "/bin/" prog))
(dst (string-append #$output:gui "/bin/" prog))
(man-orig (string-append #$output
"/share/man/man1/"
prog ".1"))
(man-dst (string-append #$output:gui
"/share/man/man1/"
prog ".1")))
(mkdir-p (dirname dst))
(rename-file orig dst)
(mkdir-p (dirname man-dst))
(rename-file man-orig man-dst)))
'("xdozdc" "gdozdc"))
(wrap-program (string-append #$output:gui "/bin/" "gdozdc")
`("PATH" = (,(string-append #$output "/bin")))
`("PERL5LIB" = (,(getenv "PERL5LIB")))))))))
(outputs '("out" "gui"))
(native-inputs (list groff pkg-config))
(inputs (list bash-minimal ;for wrap-program
libhdate
lua
ncurses
perl
perl-tk
perl-par
xforms))
(synopsis "Suite of dozenal programs")
(description
"The dozenal suite is a set of programs designed to assist with working
in the dozenal (also called \"duodecimal\" or \"base twelve\") system. It
includes number converters (dozenal-to-decimal and decimal-to-dozenal), an RPN
calculator, a graphical calculator, a metric system converter (works with
imperial, U.S. customary, SI metric, and the dozenal TGM), a pretty-printer
for dozenal numbers, a date-and-time program, and a dozenal calendar programs,
complete with events and to-dos.")
(home-page "https://codeberg.org/dgoodmaniii/dozenal")
(license license:gpl3+))))
(define-public dsfmt
(package
(name "dsfmt")
@ -1136,14 +1233,14 @@ in the terminal or with an external viewer.")
(define-public gnuplot
(package
(name "gnuplot")
(version "5.4.4")
(version "5.4.6")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/gnuplot/gnuplot/"
version "/gnuplot-"
version ".tar.gz"))
(sha256
(base32 "00h97y8njhvfjbdvc0njw0znxbrlfynd1iazn8w3anvzhsvh08rp"))))
(base32 "06bly8cpqjdf744jg7yrgba9rdcm3gl4zf63y3c69v80ha8jgz02"))))
(build-system gnu-build-system)
(native-inputs
(list pkg-config texlive-tiny))
@ -1290,7 +1387,7 @@ incompatible with HDF5.")
(define-public hdf5-1.8
(package
(name "hdf5")
(version "1.8.22")
(version "1.8.23")
(source
(origin
(method url-fetch)
@ -1305,7 +1402,7 @@ incompatible with HDF5.")
(string-append major minor)))
"/src/hdf5-" version ".tar.bz2")))
(sha256
(base32 "194ki2s5jrgl4czkvy5nc9nwjyapah0fj72l0gb0aysplp38i6v8"))
(base32 "0km65mr6dgk4ia2dqr1b9dzw9qg15j5z35ymbys9cnny51z1zb39"))
(patches (search-patches "hdf5-config-date.patch"))))
(build-system gnu-build-system)
(inputs
@ -1345,8 +1442,7 @@ incompatible with HDF5.")
(substitute* "hl/fortran/src/Makefile.in"
(("libhdf5hl_fortran_la_LDFLAGS =")
(string-append "libhdf5hl_fortran_la_LDFLAGS = -Wl,-rpath="
(assoc-ref outputs "fortran") "/lib")))
#t))
(assoc-ref outputs "fortran") "/lib")))))
(add-after 'configure 'patch-settings
(lambda _
;; libhdf5.settings contains the full path of the
@ -1359,16 +1455,14 @@ incompatible with HDF5.")
;; Don't record the build-time kernel version to make the
;; settings file reproducible.
(("Uname information:.*")
"Uname information: Linux\n"))
#t))
"Uname information: Linux\n"))))
(add-after 'install 'patch-references
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out") "/bin"))
(zlib (assoc-ref inputs "zlib")))
(substitute* (find-files bin "h5p?cc")
(("-lz" lib)
(string-append "-L" zlib "/lib " lib)))
#t)))
(string-append "-L" zlib "/lib " lib))))))
(add-after 'install 'split
(lambda* (#:key inputs outputs #:allow-other-keys)
;; Move all fortran-related files
@ -1403,8 +1497,7 @@ incompatible with HDF5.")
(rename-file file
(string-append fex "/" (basename file))))
(find-files ex ".*"))
(delete-file-recursively ex))
#t)))))
(delete-file-recursively ex)))))))
(home-page "https://www.hdfgroup.org")
(synopsis "Management suite for extremely large and complex data")
(description "HDF5 is a suite that makes possible the management of
@ -1415,7 +1508,7 @@ extremely large and complex data collections.")
(define-public hdf5-1.10
(package
(inherit hdf5-1.8)
(version "1.10.7")
(version "1.10.9")
(source
(origin
(method url-fetch)
@ -1429,13 +1522,13 @@ extremely large and complex data collections.")
(take (string-split version #\.) 2))
"/src/hdf5-" version ".tar.bz2")))
(sha256
(base32 "0pm5xxry55i0h7wmvc7svzdaa90rnk7h78rrjmnlkz2ygsn8y082"))
(base32 "14gih7kmjx4h3lc7pg4fwcl28hf1qqkf2x7rljpxqvzkjrqbxi00"))
(patches (search-patches "hdf5-config-date.patch"))))))
(define-public hdf5-1.12
(package
(inherit hdf5-1.8)
(version "1.12.1")
(version "1.12.2")
(source
(origin
(method url-fetch)
@ -1449,7 +1542,27 @@ extremely large and complex data collections.")
(take (string-split version #\.) 2))
"/src/hdf5-" version ".tar.bz2")))
(sha256
(base32 "074g3z504xf77ff38igs30i1aqxpm508p7yw78ykva7dncrgbyda"))
(base32 "1zlawdzb0gsvcxif14fwr5ap2gk4b6j02wirr2hcx8hkcbivp20s"))
(patches (search-patches "hdf5-config-date.patch"))))))
(define-public hdf5-1.14
(package
(inherit hdf5-1.8)
(version "1.14.0")
(source
(origin
(method url-fetch)
(uri (list (string-append "https://support.hdfgroup.org/ftp/HDF5/releases/"
"hdf5-" (version-major+minor version)
"/hdf5-" version "/src/hdf5-"
version ".tar.bz2")
(string-append "https://support.hdfgroup.org/ftp/HDF5/"
"current"
(apply string-append
(take (string-split version #\.) 2))
"/src/hdf5-" version ".tar.bz2")))
(sha256
(base32 "181bdh8hp7v9xqwcby3lknr92lxlicc2hqscba3f5nhf8lrr9rz4"))
(patches (search-patches "hdf5-config-date.patch"))))))
(define-public hdf5
@ -2545,267 +2658,6 @@ Computational Engineering and Sciences} at The University of Texas at Austin.
includes a complete LAPACK implementation.")
(license license:bsd-3)))
(define-public libpotassco
;; No public release, update together with clasp
(let ((revision "1")
(commit "2f9fb7ca2c202f1b47643aa414054f2f4f9c1821"))
(package
(name "libpotassco")
(version (git-version "0.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/potassco/libpotassco")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1c32f9gqclf7qx07lpx8wd720vfhkjqhzc6nyy8mjmgwpmb3iyyn"))))
(arguments
`(#:configure-flags '("-DLIB_POTASSCO_BUILD_TESTS=on"
"-DLIB_POTASSCO_INSTALL_LIB=on"
"-DBUILD_SHARED_LIBS=on")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-cmake
(lambda _
(substitute* "CMakeLists.txt"
;; clasp expects lowercase potassco and include directory is
;; lowercase as well, so let's use that
(("\"cmake/Potassco\"") "\"cmake/potassco\"")
(("PotasscoConfig\\.cmake") "potassco-config.cmake")
(("PotasscoConfigVersion\\.cmake")
"potassco-config-version.cmake"))
(rename-file "cmake/PotasscoConfig.cmake.in"
"cmake/potassco-config.cmake.in"))))))
(build-system cmake-build-system)
(home-page "https://potassco.org/")
(synopsis "Utility library for Potassco's projects")
(description "@code{libpotassco} is a utility library providing functions
and datatypes for
@itemize
@item parsing, writing, and converting logic programs in aspif and smodels
format,
@item passing information between a grounder and a solver,
@item and defining and parsing command-line options and for creating
command-line applications.
@end itemize
Furthermore, it comes with the tool @command{lpconvert} that converts either
between aspif and smodels format or to a human-readable text format.")
(license license:expat))))
(define-public clasp
(package
(name "clasp")
(version "3.3.9")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/potassco/clasp")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"163ps9zq7xppqy9hj5qnw6z5lcjnm4xf5fwjsavpia5ynm3hngcw"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags '("-DCLASP_BUILD_TESTS=on"
"-DCLASP_INSTALL_LIB=on"
"-DCLASP_USE_LOCAL_LIB_POTASSCO=off"
"-DBUILD_SHARED_LIBS=on")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-cmake
(lambda _
(substitute* "CMakeLists.txt"
;; Use lowercase to be consistent with libpotassco
(("\"cmake/Clasp\"") "\"cmake/clasp\"")
(("ClaspConfig\\.cmake") "clasp-config.cmake")
(("ClaspConfigVersion\\.cmake")
"clasp-config-version.cmake"))
(substitute* "cmake/ClaspConfig.cmake.in"
(("find_package\\(Potassco") "find_package(potassco"))
(rename-file "cmake/ClaspConfig.cmake.in"
"cmake/clasp-config.cmake.in"))))))
(inputs
(list libpotassco))
(home-page "https://potassco.org/")
(synopsis "Answer set solver")
(description "clasp is an answer set solver for (extended) normal and
disjunctive logic programs. The primary algorithm of clasp relies on
conflict-driven nogood learning, a technique that proved very successful for
satisfiability checking (SAT).")
(license license:expat)))
(define-public clingo
(package
(name "clingo")
(version "5.6.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/potassco/clingo")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(modules '((guix build utils)))
(snippet
#~(begin
(delete-file-recursively "clasp")
;; TODO: Unvendor other third-party stuff
(delete-file-recursively "third_party/catch")))
(sha256
(base32
"19s59ndcm2yj0kxlikfxnx2bmp6b7n31wq1zvwc7hyk37rqarwys"))))
(build-system cmake-build-system)
(arguments
(list
#:configure-flags #~`("-DCLINGO_BUILD_TESTS=on"
"-DCLINGO_INSTALL_LIB=on"
"-DCLINGO_BUILD_STATIC=off"
"-DCLINGO_BUILD_SHARED=on"
"-DCLINGO_USE_LOCAL_CLASP=off"
"-DCLINGO_USE_LOCAL_CATCH=off")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-cmake
(lambda _
(substitute* "CMakeLists.txt"
(("add_subdirectory\\(clasp\\)")
"find_package(clasp REQUIRED)"))
(substitute* "libclingo/CMakeLists.txt"
(("\"cmake/Clingo\"") "\"cmake/clingo\"")
(("ClingoConfig\\.cmake") "clingo-config.cmake")
(("ClingoConfigVersion\\.cmake")
"clingo-config-version.cmake"))
(substitute* "cmake/ClingoConfig.cmake.in"
(("find_package\\(Clasp") "find_package(clasp"))
(rename-file "cmake/ClingoConfig.cmake.in"
"cmake/clingo-config.cmake.in")))
(add-after 'unpack 'skip-failing-tests
(lambda _
(with-directory-excursion "libclingo/tests"
(substitute* "CMakeLists.txt"
(("COMMAND test_clingo" all)
(string-append all
" -f "
"\"${CMAKE_CURRENT_SOURCE_DIR}/good.txt\"")))
(call-with-output-file "good.txt"
(lambda (port)
(for-each (lambda (test) (format port "~s~%" test))
'("parse-ast-v2" "add-ast-v2" "build-ast-v2"
"unpool-ast-v2" "parse_term"
"propagator" "propgator-sequence-mining"
"symbol" "visitor"))))))))))
(inputs (list catch2-3.1 clasp libpotassco))
(native-inputs (list pkg-config))
(home-page "https://potassco.org/")
(synopsis "Grounder and solver for logic programs")
(description "Clingo computes answer sets for a given logic program.")
(license license:expat)))
(define-public python-clingo
(package
(inherit clingo)
(name "python-clingo")
(version (package-version clingo)) ; for #$version in arguments
(arguments
(substitute-keyword-arguments (package-arguments clingo)
((#:configure-flags flags #~'())
#~(cons* "-DCLINGO_BUILD_WITH_PYTHON=pip"
"-DCLINGO_USE_LIB=yes"
#$flags))
((#:imported-modules _ '())
`(,@%cmake-build-system-modules
(guix build python-build-system)))
((#:modules _ '())
'((guix build cmake-build-system)
((guix build python-build-system) #:prefix python:)
(guix build utils)))
((#:phases phases #~%standard-phases)
#~(modify-phases #$phases
(add-after 'unpack 'fix-failing-tests
(lambda _
(substitute* "libpyclingo/clingo/tests/test_conf.py"
(("ctl\\.solve\\(on_statistics=on_statistics\\)" all)
(string-append
all
"; self.skipTest(\"You shall not fail.\")")))))
(add-after 'install 'install-distinfo
(lambda* (#:key inputs outputs #:allow-other-keys)
(with-directory-excursion (python:site-packages inputs outputs)
(let ((dir (string-append "clingo-" #$version ".dist-info")))
(mkdir-p dir)
(call-with-output-file (string-append dir "/METADATA")
(lambda (port)
(format port "Metadata-Version: 1.1~%")
(format port "Name: clingo~%")
(format port "Version: ~a~%" #$version)))))))))))
(inputs (list clingo python-wrapper))
(propagated-inputs (list python-cffi))
(native-inputs (modify-inputs (package-native-inputs clingo)
(prepend python-scikit-build)))
(synopsis "Python bindings for clingo")
(description "This package provides Python bindings to the clingo package,
making it so that you can write @acronym{ASPs, Answer Set Programs} through
Python code.")))
(define-public python-clorm
(package
(name "python-clorm")
(version "1.4.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/potassco/clorm")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0jx99y71mrgdicn1da5dwz5nzgvvpabrikff783sg4shbv2cf0b5"))))
(build-system pyproject-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(add-before 'check 'fix-breaking-tests
(lambda _
;; noclingo tests rely on this being set
(setenv "CLORM_NOCLINGO" "1")
(delete-file "tests/test_mypy_query.py")
(substitute* "tests/test_clingo.py"
(("self\\.assertTrue\\(os_called\\)" all)
(string-append "# " all))))))))
(propagated-inputs (list python-clingo))
(native-inputs (list python-typing-extensions))
(home-page "https://potassco.org")
(synopsis "Object relational mapping to clingo")
(description "@acronym{Clorm, Clingo ORM} provides an @acronym{ORM,
Object Relational Mapping} interface to the @acronym{ASP, answer set
programming} solver clingo. Its goal is to make integration of clingo
into Python programs easier.")
(license license:expat)))
(define-public python-telingo
(package
(name "python-telingo")
(version "2.1.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/potassco/telingo")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(patches (search-patches "python-telingo-fix-comparison.patch"))
(sha256
(base32
"0g3khxfdzc2hc7dkiyyqhb399h6h21m5wkp6wy8w71n0m32fiy53"))))
(build-system pyproject-build-system)
(propagated-inputs (list python-clingo))
(home-page "https://potassco.org/")
(synopsis "Solve dynamic temporal logic programs")
(description "This package provides a system to solve dynamic temporal
logic programs based on clingo.")
(license license:expat)))
(define-public scasp
(let ((commit "89a427aa04ec6346425a40111c99b310901ffe51")
(revision "1"))
@ -2942,47 +2794,47 @@ can solve two kinds of problems:
(define-public octave-cli
(package
(name "octave-cli")
(version "7.3.0")
(version "8.1.0")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://gnu/octave/octave-"
version ".tar.xz"))
(sha256
(base32
"1wap9p9imxxqpnm27rxcvpjahk1wg440lzlygjb6iyncxdmfw255"))))
(method url-fetch)
(uri (string-append "mirror://gnu/octave/octave-"
version ".tar.xz"))
(sha256
(base32
"00lis18dsb13v9nvz0z4cs7v4y634jc0vb04lxfw9pshwriikglv"))))
(build-system gnu-build-system)
(inputs
`(("alsa-lib" ,alsa-lib)
("arpack" ,arpack-ng)
("bdb" ,bdb)
("curl" ,curl)
("fftw" ,fftw)
("fftwf" ,fftwf)
("fltk" ,fltk)
("fontconfig" ,fontconfig)
("freetype" ,freetype)
("gl2ps" ,gl2ps)
("glpk" ,glpk)
("glu" ,glu)
("graphicsmagick" ,graphicsmagick)
(list alsa-lib
arpack-ng
bdb
curl
fftw
fftwf
fltk
fontconfig
freetype
gl2ps
glpk
glu
graphicsmagick
;; TODO: libjpeg-turbo is indirectly required through libtiff. In
;; the next rebuild cycle, add an absolute reference for -ljpeg in
;; libtiff.la instead of having to provide it here.
("libjpeg" ,libjpeg-turbo)
;; TODO: libjpeg-turbo is indirectly required through libtiff. In
;; the next rebuild cycle, add an absolute reference for -ljpeg in
;; libtiff.la instead of having to provide it here.
libjpeg-turbo
("hdf5" ,hdf5)
("lapack" ,lapack)
("libsndfile" ,libsndfile)
("libxft" ,libxft)
("mesa" ,mesa)
("pcre" ,pcre)
("portaudio" ,portaudio)
("qhull" ,qhull)
("readline" ,readline)
("suitesparse" ,suitesparse)
("zlib" ,zlib)))
hdf5
lapack
libsndfile
libxft
mesa
pcre
portaudio
qhull
readline
suitesparse
zlib))
(native-inputs
(list gfortran
pkg-config
@ -3022,8 +2874,7 @@ can solve two kinds of problems:
(substitute* "libinterp/corefcn/help.h"
(("\"makeinfo\"")
(string-append
"\"" (assoc-ref inputs "texinfo") "/bin/makeinfo\"")))
#t)))))
"\"" (assoc-ref inputs "texinfo") "/bin/makeinfo\""))))))))
(home-page "https://www.gnu.org/software/octave/")
(synopsis "High-level language for numerical computation (no GUI)")
(description "GNU Octave is a high-level interpreted language that is
@ -4942,10 +4793,6 @@ it also includes a BLAS compatibility layer which gives application developers
access to BLIS implementations via traditional BLAS routine calls.")
(license license:bsd-3)))
(define-public blis-sandybridge (deprecated-package "blis-sandybridge" blis))
(define-public blis-haswell (deprecated-package "blis-haswell" blis))
(define-public blis-knl (deprecated-package "blis-knl" blis))
(define ignorance blis)
(define-public openlibm
@ -5105,6 +4952,95 @@ packages.")
;; GPUQREngine, RBio, SuiteSparse_GPURuntime, SuiteSparseQR, UMFPACK
(license (list license:gpl2+ license:lgpl2.1+))))
;; This outdated version is used to build the scilab package.
(define-public suitesparse-3
(package
(inherit suitesparse)
(name "suitesparse")
(version "3.1.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/DrTimothyAldenDavis/SuiteSparse")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0wxk755nzps0c9la24zqknqkzjp6rcj5q9jhd973mff1pqja3clz"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ;no "check" target
#:make-flags
,#~(list
(string-append "CC=gcc")
"AR=gcc -shared -o"
"RANLIB=touch"
"CFLAGS=-O3 -fPIC -I../Include"
"TBB=-ltbb"
;; Disable metis@4 (nonfree) support.
"CHOLMOD_CONFIG=-DNPARTITION"
"METIS="
"METIS_PATH="
;; The default is to link against netlib lapack. Use OpenBLAS
;; instead.
"BLAS=-lopenblas" "LAPACK=-lopenblas"
(string-append "INSTALL_LIB="
(assoc-ref %outputs "out") "/lib")
(string-append "INSTALL_INCLUDE="
(assoc-ref %outputs "out") "/include")
"library")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'correct-build-configuration
(lambda _
;; Invert build order: CHOLMOD before KLU.
(substitute* "Makefile"
(("\t\\( cd CHOLMOD ; \\$\\(MAKE\\) \\)\n$")
"")
(("\\( cd KLU ; \\$\\(MAKE\\) \\)")
(string-append "( cd CHOLMOD ; $(MAKE) )\n\t"
"( cd KLU ; $(MAKE) )")))
;; Build shared libraries.
(substitute* (find-files "." "akefile$")
(("lib([a-z]+)\\.a" all libname)
(string-append "lib" libname ".so")))
;; Delete broken KLU Demo step.
(substitute* "KLU/Makefile"
(("\\( cd Demo ; \\$\\(MAKE\\) \\)")
""))))
(replace 'install
(lambda _
;; Install libraries.
(for-each
(lambda (x)
(install-file
x
(string-append (assoc-ref %outputs "out") "/lib")))
(find-files "." "\\.so$"))
;; Install header files.
(for-each
(lambda (x)
(install-file
x
(string-append (assoc-ref %outputs "out") "/include")))
(find-files "." "\\.h$"))))
,@(if (target-riscv64?)
;; GraphBLAS FTBFS on riscv64-linux
`((add-after 'unpack 'skip-graphblas
(lambda _
(substitute* "Makefile"
((".*cd GraphBLAS.*") "")
(("metisinstall gbinstall moninstall")
"moninstall")))))
'())
(delete 'configure)))) ;no configure script
(inputs
(list tbb openblas gmp mpfr))))
(define-public atlas
(package
(name "atlas")
@ -5966,6 +5902,14 @@ structured and unstructured grid problems.")))
(base32
"0vr8c1mz1k6mz0sgh6n3scl5c3a71iqmy5fnydrgq504icj4vym4"))))
(build-system gnu-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-before 'install 'install-matioConfig.h
(lambda _
(install-file "src/matioConfig.h"
(string-append #$output "/include")))))))
(inputs
(list zlib hdf5-1.8))
(home-page "http://matio.sourceforge.net/")
@ -8463,3 +8407,109 @@ primal-dual interior-point method are made available. Interfaces are
provided for applications written in C++ and Python. Parallel
computation is supported via MPI.")
(license license:bsd-2))))
(define-public scilab
(package
(name "scilab")
(version "5.5.0")
(source
(origin
(method url-fetch)
(uri
(string-append "https://oos.eu-west-2.outscale.com/scilab-releases/"
version "/scilab-" version "-src.tar.gz"))
(sha256
(base32 "1hx57aji5d78brwqcf8a34i1hasm3h4nw46xjg7cgxj09s8yz5kq"))))
(build-system gnu-build-system)
(native-inputs (list pkg-config gfortran))
(inputs (list libxml2
`(,pcre "bin")
`(,pcre "out")
readline
hdf5-1.8
curl
openblas
lapack
arpack-ng
fftw
gettext-minimal
suitesparse-3
tcl
tk
libx11
matio))
(arguments
`(#:tests? #f
#:configure-flags
,#~(list
"--enable-relocatable"
"--disable-static-system-lib"
;; Disable all java code.
"--without-gui"
"--without-javasci"
"--disable-build-help"
"--with-external-scirenderer"
;; Tcl and Tk library locations.
(string-append "--with-tcl-include="
(string-drop-right
(search-input-file %build-inputs "include/tcl.h")
(string-length "/tcl.h")))
(string-append "--with-tcl-library="
(string-drop-right
(search-input-directory %build-inputs "lib/tcl8")
(string-length "/tcl8")))
(string-append "--with-tk-include="
(string-drop-right
(search-input-file %build-inputs "include/tk.h")
(string-length "/tk.h")))
(string-append "--with-tk-library="
(string-drop-right
(search-input-directory %build-inputs "lib/tk8.6")
(string-length "/tk8.6")))
;; There are some 2018-fortran errors that are ignored
;; with this fortran compiler flag.
"FFLAGS=-fallow-argument-mismatch")
#:phases
,#~(modify-phases %standard-phases
(add-before 'build 'pre-build
(lambda _
;; Fix scilab script.
(substitute* "bin/scilab"
(("\\/bin\\/ls")
(which "ls")))
;; Fix core.start.
(substitute* "modules/core/etc/core.start"
(("'SCI/modules")
"SCI+'/modules"))
;; Fix fortran compilation error.
(substitute*
"modules/differential_equations/src/fortran/twodq.f"
(("node\\(10\\),node1\\(10\\),node2\\(10\\),coef")
"node(9),node1(9),node2(9),coef"))
;; Fix C compilation errors.
;; remove &
(substitute* "modules/hdf5/src/c/h5_readDataFromFile_v1.c"
(("(H5Rdereference\\(_iDatasetId, H5R_OBJECT, )&(.*)\\);$"
all common ref)
(string-append common ref)))
;; fix multiple definitions
(substitute* "modules/tclsci/src/c/TCL_Command.h"
(("^__thread")
"extern __thread"))
(substitute* "modules/tclsci/src/c/InitTclTk.c"
(("BOOL TK_Started = FALSE;" all)
(string-append all "\n"
"__threadId TclThread;" "\n"
"__threadSignal InterpReady;" "\n"
"__threadSignalLock InterpReadyLock;"
"\n")))
;; Set SCIHOME to /tmp before macros compilation.
(setenv "SCIHOME" "/tmp"))))))
(home-page "https://scilab.org")
(synopsis "Software for engineers and scientists")
(description "This package provides the non-graphical version of the Scilab
software for engineers and scientists. Scilab is used for signal processing,
statistical analysis, image enhancement, fluid dynamics simulations, numerical
optimization, and modeling, simulation of explicit and implicit dynamical
systems and symbolic manipulations.")
(license license:cecill))) ;CeCILL v2.1

55
gnu/packages/medical.scm
View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Quiliro <quiliro@fsfla.org>
;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -19,13 +20,67 @@
(define-module (gnu packages medical)
#:use-module (guix build-system python)
#:use-module (guix build-system qt)
#:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix licenses)
#:use-module (guix packages)
#:use-module (gnu packages bash) ; wrap-program
#:use-module (gnu packages databases)
#:use-module (gnu packages kde-frameworks) ; kirigami
#:use-module (gnu packages python)
#:use-module (gnu packages python-crypto)
#:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt))
(define-public mygnuhealth
(package
(name "mygnuhealth")
(version "1.0.5")
(source (origin
(method url-fetch)
(uri (pypi-uri "MyGNUHealth" version))
(sha256
(base32
"1jcrriccqzb4jx7zayhiqmpvi3cvfy3bbf9zr3m83878f94yww8j"))))
(build-system python-build-system)
(arguments
(list
#:imported-modules `(,@%python-build-system-modules
,@%qt-build-system-modules)
#:modules `(((guix build qt-build-system) #:prefix qt:)
(guix build python-build-system)
(guix build utils))
#:phases #~(modify-phases %standard-phases
(add-after 'install 'qt-wrap
(assoc-ref qt:%standard-phases 'qt-wrap))
(add-before 'check 'env-setup
(lambda _
(mkdir-p "/tmp/mygh/")
(setenv "HOME" "/tmp"))))))
(native-inputs (list python-pyside-2))
(inputs (list bash-minimal
kirigami
python
python-bcrypt
python-matplotlib
python-requests
python-tinydb
qtbase-5
qtdeclarative-5
qtgraphicaleffects
qtquickcontrols-5
qtquickcontrols2-5
qtsvg-5))
(home-page "https://www.gnuhealth.org")
(synopsis "The GNU Health Personal Health Record")
(description
"This package provides GNUHealth Personal Health Record
application for desktop and mobile devices that integrates with the GNU
Health Federation.")
(license gpl3+)))
(define-public openmolar-1
(package
(name "openmolar")

17
gnu/packages/messaging.scm
View File

@ -38,6 +38,7 @@
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Giovanni Biscuolo <g@xelera.eu>
;;; Copyright © 2023 Giacomo Leidi <goodoldpaul@autistici.org>
;;; Copyright © 2023 Yovan Naumovski <yovan@gorski.stream>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1321,7 +1322,7 @@ Encryption to Gajim.")
(define-public dino
(package
(name "dino")
(version "0.4.0")
(version "0.4.2")
(source
(origin
(method url-fetch)
@ -1329,7 +1330,7 @@ Encryption to Gajim.")
(string-append "https://github.com/dino/dino/releases/download/v"
version "/dino-" version ".tar.gz"))
(sha256
(base32 "115p7mjk0q68nvv8asrm6hsv0dzsz7hy2bnvhwhxmcfbilr8fq68"))))
(base32 "1vbyrnivibsn4jzmfb6sfq5fxhb0xh1cnhgcmg1rafq751q55cg1"))))
(build-system cmake-build-system)
(outputs '("out" "debug"))
(arguments
@ -2842,7 +2843,7 @@ as well as on desktop platforms. It's based on libpurple and ModemManager.")
(define-public mosquitto
(package
(name "mosquitto")
(version "1.6.12")
(version "2.0.15")
(source
(origin
(method url-fetch)
@ -2850,10 +2851,10 @@ as well as on desktop platforms. It's based on libpurple and ModemManager.")
version ".tar.gz"))
(sha256
(base32
"1yq7y329baa1ly488rw125c3mvsnsa7kjkik602xv1xpkz8p73al"))))
"1ils0ckxz86gvr37k2gfl4q9gs12625dhhb7i6lcg49z5v9v2da7"))))
(build-system cmake-build-system)
(inputs
(list openssl))
(list openssl libxslt))
(synopsis "Message broker")
(description "This package provides Eclipse Mosquitto, a message broker
that implements the MQTT protocol versions 5.0, 3.1.1 and 3.1. Mosquitto
@ -3259,14 +3260,14 @@ notifications.")
(define-public pounce
(package
(name "pounce")
(version "3.0")
(version "3.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://git.causal.agency/pounce/snapshot/pounce-"
version ".tar.gz"))
(sha256
(base32 "1w4x34bspkqvk9p7bfj0zmvmbzvxb7lxrrr3g6lrfdj9f3qzfxpp"))))
(base32 "0kk0jrfiwfaybr0i5xih3b0yd4i6v3bz866a7xal1j8wddalbwlp"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ;there are no tests
@ -3278,7 +3279,7 @@ notifications.")
(list pkg-config universal-ctags))
(inputs
(list libressl))
(home-page "https://code.causal.agency/june/pounce")
(home-page "https://git.causal.agency/pounce")
(synopsis "Simple multi-client TLS-only IRC bouncer")
(description
"@command{pounce} is a multi-client, TLS-only IRC bouncer. It maintains

9
gnu/packages/minetest.scm
View File

@ -52,7 +52,7 @@
(define-public minetest
(package
(name "minetest")
(version "5.6.1")
(version "5.7.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -61,7 +61,7 @@
(file-name (git-file-name name version))
(sha256
(base32
"1bgk369n7r52vh3hdngrlf98k3v84ch2qp341xhs53ixrns2crfn"))
"008l44zwwsarwk4hn7wx2nj2m21b1iqsphl7g69rrlxj760zl0pl"))
(modules '((guix build utils)))
(snippet
'(begin
@ -106,7 +106,8 @@
"(void)0;"))
(setenv "MINETEST_SUBGAME_PATH" ; for check
(string-append (getcwd) "/games"))))
(replace 'check
(delete 'check)
(add-after 'install 'check
(lambda* (#:key tests? #:allow-other-keys)
;; Thanks to our substitutions, the tests should also run
;; when invoked on the target outside of `guix build'.
@ -165,7 +166,7 @@ in different ways.")
(file-name (git-file-name name version))
(sha256
(base32
"1w0vdk6a1rhsfwyfviayfwsyqbzwikqazkgbrfl39anf3a50rvv1"))))
"02kbj1h6jsq6k8x4v2ir0njczdz7nyx6dbym85ixxp3mrqxiws61"))))
(build-system copy-build-system)
(arguments
(list #:install-plan

5
gnu/packages/monitoring.scm
View File

@ -171,7 +171,7 @@ etc. via a Web interface. Features include:
(define-public zabbix-agentd
(package
(name "zabbix-agentd")
(version "6.0.12")
(version "6.0.14")
(source
(origin
(method url-fetch)
@ -179,7 +179,7 @@ etc. via a Web interface. Features include:
"https://cdn.zabbix.com/zabbix/sources/stable/"
(version-major+minor version) "/zabbix-" version ".tar.gz"))
(sha256
(base32 "04083aa63bzfg5jp958nypbqr0hlcbhj73whlinr1ri3x1z0caz7"))
(base32 "0n6fqa9vbhh2syxii7ds2x6dnplrgrj98by1zl0ij1wfbnbxa6k3"))
(modules '((guix build utils)))
(snippet
'(substitute* '("src/zabbix_proxy/proxy.c"
@ -829,4 +829,3 @@ user-configured power thresholds. This can be used to force powering off a
laptop when the battery gets below critical levels, instead of damaging the
battery.")
(license license:isc)))

4
gnu/packages/mpd.scm
View File

@ -600,7 +600,7 @@ mpdevil loads all tags and covers on demand.")
(define-public mympd
(package
(name "mympd")
(version "10.2.4")
(version "10.2.6")
(source (origin
(method git-fetch)
(uri (git-reference
@ -609,7 +609,7 @@ mpdevil loads all tags and covers on demand.")
(file-name (git-file-name name version))
(sha256
(base32
"0544vx9x103394mz2x92ycfj5lh59xrzcvagi4q0jb9b1hh44s6p"))))
"1adi1pdygj7wlfi6k3978b6ny2cziai4f761a61j9vxa2ywf7wbb"))))
(build-system cmake-build-system)
(arguments
(list #:tests? #f)) ; no test target

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