me
/
guix
Archived
1
0
Fork 0
Code

Merge branch 'master' into emacs-team

master
Liliana Marie Prikler 2023-07-13 17:21:32 +02:00
parent a3ac317ab4 dd4c199210
commit 15406013fe
No known key found for this signature in database
GPG Key ID: 442A84B8C70E2F87
298 changed files with 189361 additions and 135623 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.guix-authorizations
View File

@ -57,8 +57,6 @@
(name "jpoiret"))
("017D 74E2 7F58 5696 3801 781D F663 943E 08D8 092A"
(name "lbraun"))
("CA4F 8CF4 37D7 478F DA05 5FD4 4213 7701 1A37 8446"
(name "lbraun (professional)"))
("ACC2 3BA0 59F7 CCF4 08F0 43AD 442A 84B8 C70E 2F87"
(name "lilyp"))
(;; primary: "4F71 6F9A 8FA2 C80E F1B5 E1BA 5E35 F231 DE1A C5E0"

2
Makefile.am
View File

@ -306,6 +306,7 @@ MODULES = \
guix/scripts/archive.scm \
guix/scripts/import.scm \
guix/scripts/package.scm \
guix/scripts/locate.scm \
guix/scripts/install.scm \
guix/scripts/remove.scm \
guix/scripts/upgrade.scm \
@ -595,6 +596,7 @@ SH_TESTS = \
tests/guix-gc.sh \
tests/guix-git-authenticate.sh \
tests/guix-hash.sh \
tests/guix-locate.sh \
tests/guix-pack.sh \
tests/guix-pack-localstatedir.sh \
tests/guix-pack-relocatable.sh \

144
doc/contributing.texi
View File

@ -26,7 +26,7 @@ choice.
* Packaging Guidelines:: Growing the distribution.
* Coding Style:: Hygiene of the contributor.
* Submitting Patches:: Share your work.
* Tracking Bugs and Patches:: Keeping it all organized.
* Tracking Bugs and Changes:: Keeping it all organized.
* Commit Access:: Pushing to the official repository.
* Updating the Guix Package:: Updating the Guix package definition.
* Writing Documentation:: Improving documentation in GNU Guix.
@ -1161,11 +1161,11 @@ readability of patches. Seasoned Guix developers may also want to look
at the section on commit access (@pxref{Commit Access}).
This mailing list is backed by a Debbugs instance, which allows us to
keep track of submissions (@pxref{Tracking Bugs and Patches}). Each
message sent to that mailing list gets a new tracking number assigned;
people can then follow up on the submission by sending email to
@code{@var{ISSUE_NUMBER}@@debbugs.gnu.org}, where @var{ISSUE_NUMBER} is
the tracking number (@pxref{Sending a Patch Series}).
keep track of submissions (@pxref{Tracking Bugs and Changes}).
Each message sent to that mailing list gets a new tracking number
assigned; people can then follow up on the submission by sending email
to @code{@var{ISSUE_NUMBER}@@debbugs.gnu.org}, where @var{ISSUE_NUMBER}
is the tracking number (@pxref{Sending a Patch Series}).
Please write commit logs in the ChangeLog format (@pxref{Change Logs,,,
standards, GNU Coding Standards}); you can check the commit history for
@ -1257,48 +1257,9 @@ and which optional dependencies should be used. In particular, avoid adding
the @code{texlive-tiny} package or @code{texlive-union} procedure instead.
@item
For important changes, check that dependent packages (if applicable) are
not affected by the change; @code{guix refresh --list-dependent
@var{package}} will help you do that (@pxref{Invoking guix refresh}).
@c See <https://lists.gnu.org/archive/html/guix-devel/2016-10/msg00933.html>.
@cindex branching strategy
@cindex rebuild scheduling strategy
Depending on the number of dependent packages and thus the amount of
rebuilding induced, commits go to different branches, along these lines:
@table @asis
@item 300 dependent packages or less
@code{master} branch (non-disruptive changes).
@item between 300 and 1,800 dependent packages
@code{staging} branch (non-disruptive changes). This branch is intended
to be merged in @code{master} every 6 weeks or so. Topical changes
(e.g., an update of the GNOME stack) can instead go to a specific branch
(say, @code{gnome-updates}). This branch is not expected to be
buildable or usable until late in its development process.
@item more than 1,800 dependent packages
@code{core-updates} branch (may include major and potentially disruptive
changes). This branch is intended to be merged in @code{master} every
6 months or so. This branch is not expected to be buildable or usable
until late in its development process.
@end table
All these branches are @uref{https://@value{SUBSTITUTE-SERVER-1},
tracked by our build farm} and merged into @code{master} once
everything has been successfully built. This allows us to fix issues
before they hit users, and to reduce the window during which pre-built
binaries are not available.
When we decide to start building the @code{staging} or
@code{core-updates} branches, they will be forked and renamed with the
suffix @code{-frozen}, at which time only bug fixes may be pushed to the
frozen branches. The @code{core-updates} and @code{staging} branches
will remain open to accept patches for the next cycle. Please ask on
the mailing list or IRC if unsure where to place a patch.
@c TODO: It would be good with badges on the website that tracks these
@c branches. Or maybe even a status page.
Check that dependent packages (if applicable) are not affected by the
change; @code{guix refresh --list-dependent @var{package}} will help you
do that (@pxref{Invoking guix refresh}).
@item
@cindex determinism, of build processes
@ -1574,16 +1535,17 @@ $ guix shell -D guix
[env]$ git send-email --to=@var{ISSUE_NUMBER}@@debbugs.gnu.org -2
@end example
@node Tracking Bugs and Patches
@section Tracking Bugs and Patches
@node Tracking Bugs and Changes
@section Tracking Bugs and Changes
This section describes how the Guix project tracks its bug reports and
patch submissions.
This section describes how the Guix project tracks its bug reports,
patch submissions and topic branches.
@menu
* The Issue Tracker:: The official bug and patch tracker.
* Debbugs User Interfaces:: Ways to interact with Debbugs.
* Debbugs Usertags:: Tag reports with custom labels.
* The Issue Tracker:: The official bug and patch tracker.
* Managing Patches and Branches:: How changes to Guix are managed.
* Debbugs User Interfaces:: Ways to interact with Debbugs.
* Debbugs Usertags:: Tag reports with custom labels.
@end menu
@node The Issue Tracker
@ -1600,6 +1562,55 @@ email to @email{bug-guix@@gnu.org}, while patch submissions are filed
against the @code{guix-patches} package by sending email to
@email{guix-patches@@gnu.org} (@pxref{Submitting Patches}).
@node Managing Patches and Branches
@subsection Managing Patches and Branches
@cindex branching strategy
@cindex rebuild scheduling strategy
Changes should be posted to @email{guix-patches@@gnu.org}. This mailing
list fills the patch-tracking database (@pxref{The Issue Tracker}). It
also allows patches to be picked up and tested by the quality assurance
tooling; the result of that testing eventually shows up on the dashboard
at @indicateurl{https://qa.guix.gnu.org/issue/@var{ISSUE_NUMBER}}, where
@var{ISSUE_NUMBER} is the number assigned by the issue tracker. Leave
time for a review, without committing anything.
As an exception, some changes considered ``trivial'' or ``obvious'' may
be pushed directly to the @code{master} branch. This includes changes
to fix typos and reverting commits that caused immediate problems. This
is subject to being adjusted, allowing individuals to commit directly on
non-controversial changes on parts they’re familiar with.
Changes which affect more than 300 dependent packages (@pxref{Invoking
guix refresh}) should first be pushed to a topic branch other than
@code{master}; the set of changes should be consistent---e.g., ``GNOME
update'', ``NumPy update'', etc. This allows for testing: the branch
will automatically show up at
@indicateurl{https://qa.guix.gnu.org/branch/@var{branch}}, with an
indication of its build status on various platforms.
To help coordinate the merging of branches, you must create a new
guix-patches issue each time you wish to merge a branch (@pxref{The
Issue Tracker}). Normally branches will be merged in a ``first come,
first merged'' manner, tracked through the guix-patches issues.
If you agree on a different order with those involved, you can track
this by updating which issues block@footnote{You can mark an issue as
blocked by another by emailing @email{control@@debbugs.gnu.org} with the
following line in the body of the email: @code{block XXXXX by YYYYY}.
Where @code{XXXXX} is the number for the blocked issue, and @code{YYYYY}
is the number for the issue blocking it.} which other issues.
Therefore, to know which branch is at the front of the queue, look for
the oldest issue, or the issue that isn't @dfn{blocked} by any other
branch merges. An ordered list of branches with the open issues is
available at @url{https://qa.guix.gnu.org}.
Once a branch is at the front of the queue, wait until sufficient time
has passed for the build farms to have processed the changes, and for
the necessary testing to have happened. For example, you can check
@indicateurl{https://qa.guix.gnu.org/branch/@var{branch}} to see
information on some builds and substitute availability.
@node Debbugs User Interfaces
@subsection Debbugs User Interfaces
@ -1816,23 +1827,14 @@ If you get commit access, please make sure to follow the policy below
(discussions of the policy can take place on
@email{guix-devel@@gnu.org}).
Changes should be posted to @email{guix-patches@@gnu.org}. This mailing
list fills the patch-tracking database (@pxref{Tracking Bugs and
Patches}). It also allows patches to be picked up and tested by the
quality assurance tooling; the result of that testing eventually shows
up on the dashboard at
@indicateurl{https://qa.guix.gnu.org/issue/@var{ISSUE_NUMBER}}, where
@var{ISSUE_NUMBER} is the number assigned by the issue tracker. Leave
time for a review, without committing anything (@pxref{Submitting
Patches}). If you didn’t receive any reply after one week (two weeks
for more significant changes), and if you're confident, it's OK to
commit.
Ensure you're aware of how the changes should be handled
(@pxref{Managing Patches and Branches}) prior to being pushed to the
repository, especially for the @code{master} branch.
As an exception, some changes considered ``trivial'' or ``obvious'' may
be pushed directly. This includes changes to fix typos and reverting
commits that caused immediate problems. This is subject to being
adjusted, allowing individuals to commit directly on non-controversial
changes on parts they’re familiar with.
If you're committing and pushing your own changes, try and wait at least
one week (two weeks for more significant changes) after you send them
for review. After this, if no one else is available to review them and
if you're confident about the changes, it's OK to commit.
When pushing a commit on behalf of somebody else, please add a
@code{Signed-off-by} line at the end of the commit log message---e.g.,

440
doc/guix.texi
View File

@ -33,7 +33,7 @@ Copyright @copyright{} 2015, 2016, 2017, 2019, 2020, 2021, 2023 Leo Famulari@*
Copyright @copyright{} 2015, 2016, 2017, 2018, 2019, 2020, 2021, 2022, 2023 Ricardo Wurmus@*
Copyright @copyright{} 2016 Ben Woodcroft@*
Copyright @copyright{} 2016, 2017, 2018, 2021 Chris Marusich@*
Copyright @copyright{} 2016, 2017, 2018, 2019, 2020, 2021, 2022 Efraim Flashner@*
Copyright @copyright{} 2016, 2017, 2018, 2019, 2020, 2021, 2022, 2023 Efraim Flashner@*
Copyright @copyright{} 2016 John Darrington@*
Copyright @copyright{} 2016, 2017 Nikita Gillmann@*
Copyright @copyright{} 2016, 2017, 2018, 2019, 2020, 2021, 2022, 2023 Jan Nieuwenhuizen@*
@ -258,6 +258,7 @@ Package Management
* Invoking guix package:: Package installation, removal, etc.
* Substitutes:: Downloading pre-built binaries.
* Packages with Multiple Outputs:: Single source package, multiple outputs.
* Invoking guix locate:: Locating packages that provide a file.
* Invoking guix gc:: Running the garbage collector.
* Invoking guix pull:: Fetching the latest Guix and distribution.
* Invoking guix time-machine:: Running an older revision of Guix.
@ -637,18 +638,18 @@ includes POWER9 systems such as the
RYF Talos II mainboard}. This platform is available as a "technology
preview": although it is supported, substitutes are not yet available
from the build farm (@pxref{Substitutes}), and some packages may fail to
build (@pxref{Tracking Bugs and Patches}). That said, the Guix
build (@pxref{Tracking Bugs and Changes}). That said, the Guix
community is actively working on improving this support, and now is a
great time to try it and get involved!
@item riscv64-linux
little-endian 64-bit RISC-V processors, specifically RV64GC, and
Linux-Libre kernel. This platform is available as a "technology preview":
although it is supported, substitutes are not yet available from the
build farm (@pxref{Substitutes}), and some packages may fail to build
(@pxref{Tracking Bugs and Patches}). That said, the Guix community is
actively working on improving this support, and now is a great time to
try it and get involved!
Linux-Libre kernel. This platform is available as a "technology
preview": although it is supported, substitutes are not yet available
from the build farm (@pxref{Substitutes}), and some packages may fail to
build (@pxref{Tracking Bugs and Changes}). That said, the Guix
community is actively working on improving this support, and now is a
great time to try it and get involved!
@end table
@ -3297,6 +3298,7 @@ guix install emacs-guix
* Invoking guix package:: Package installation, removal, etc.
* Substitutes:: Downloading pre-built binaries.
* Packages with Multiple Outputs:: Single source package, multiple outputs.
* Invoking guix locate:: Locating packages that provide a file.
* Invoking guix gc:: Running the garbage collector.
* Invoking guix pull:: Fetching the latest Guix and distribution.
* Invoking guix time-machine:: Running an older revision of Guix.
@ -4417,6 +4419,134 @@ the output of @command{guix package --list-available} (@pxref{Invoking
guix package}).
@node Invoking guix locate
@section Invoking @command{guix locate}
@cindex file, searching in packages
@cindex file search
@cindex searching for packages
There's so much free software out there that sooner or later, you will
need to search for packages. The @command{guix search} command that
we've seen before (@pxref{Invoking guix package}) lets you search by
keywords:
@example
guix search video editor
@end example
@cindex searching for packages, by file name
Sometimes, you instead want to find which package provides a given file,
and this is where @command{guix locate} comes in. Here is how you can
find which package provides the @command{ls} command:
@example
$ guix locate ls
coreutils@@9.1 /gnu/store/@dots{}-coreutils-9.1/bin/ls
@end example
Of course the command works for any file, not just commands:
@example
$ guix locate unistr.h
icu4c@@71.1 /gnu/store/@dots{}/include/unicode/unistr.h
libunistring@@1.0 /gnu/store/@dots{}/include/unistr.h
@end example
You may also specify @dfn{glob patterns} with wildcards. For example,
here is how you would search for packages providing @file{.service}
files:
@example
$ guix locate -g '*.service'
man-db@@2.11.1 @dots{}/lib/systemd/system/man-db.service
wpa-supplicant@@2.10 @dots{}/system-services/fi.w1.wpa_supplicant1.service
@end example
The @command{guix locate} command relies on a database that maps file
names to package names. By default, it automatically creates that
database if it does not exist yet by traversing packages available
@emph{locally}, which can take a few minutes (depending on the size of
your store and the speed of your storage device).
@quotation Note
For now, @command{guix locate} builds its database based on purely local
knowledge---meaning that you will not find packages that never reached
your store. Eventually it will support downloading a pre-built database
so you can potentially find more packages.
@end quotation
By default, @command{guix locate} first tries to look for a system-wide
database, usually under @file{/var/cache/guix/locate}; if it does not
exist or is too old, it falls back to the per-user database, by default
under @file{~/.cache/guix/locate}. On a multi-user system,
administrators may want to periodically update the system-wide database
so that all users can benefit from it.
The general syntax is:
@example
guix locate [@var{options}@dots{}] @var{file}@dots{}
@end example
@noindent
... where @var{file} is the name of a file to search for (specifically,
the ``base name'' of the file: files whose parent directories are called
@var{file} are not matched).
The available options are as follows:
@table @code
@item --glob
@item -g
Interpret @var{file}@dots{} as @dfn{glob patterns}---patterns that may
include wildcards, such as @samp{*.scm} to denote all files ending in
@samp{.scm}.
@item --stats
Display database statistics.
@item --update
@itemx -u
Update the file database.
By default, the database is automatically updated when it is too old.
@item --clear
Clear the database and re-populate it.
This option lets you start anew, ensuring old data is removed from the
database, which also avoids having an endlessly growing database. By
default @command{guix locate} automatically does that periodically,
though infrequently.
@item --database=@var{file}
Use @var{file} as the database, creating it if necessary.
By default, @command{guix locate} picks the database under
@file{~/.cache/guix} or @file{/var/cache/guix}, whichever is the most
recent one.
@item --method=@var{method}
@itemx -m @var{method}
Use @var{method} to select the set of packages to index. Possible
values are:
@table @code
@item manifests
This is the default method: it works by traversing profiles on the
machine and recording packages it encounters---packages you or other
users of the machine installed, directly or indirectly. It is fast but
it can miss other packages available in the store but not referred to by
any profile.
@item store
This is a slower but more exhaustive method: it checks among all the
existing packages those that are available in the store and records
them.
@end table
@end table
@node Invoking guix gc
@section Invoking @command{guix gc}
@ -5641,18 +5771,99 @@ machines with limited resources.
Let's say you have a bunch of custom package variants or personal packages
that you think would make little sense to contribute to the Guix project, but
would like to have these packages transparently available to you at the
command line. You would first write modules containing those package
definitions (@pxref{Package Modules}), maintain them in a Git repository, and
then you and anyone else can use it as an additional channel to get packages
from. Neat, no?
command line. By creating a @dfn{channel}, you can use and publish such
a package collection. This involves the following steps:
@enumerate
@item
Channels live in a Git repository so the first step, when creating a
channel, is to create its repository:
@example
mkdir my-channel
cd my-channel
git init
@end example
@item
The next step is to create files containing package modules
(@pxref{Package Modules}), each of which will contain one or more
package definitions (@pxref{Defining Packages}). A channel can provide
things other than packages, such as build systems or services; we're
using packages as most common use case.
For example, Alice might want to provide a module called @code{(alice
packages greetings)} that will provide her favorite ``hello world''
implementations. To do that Alice will create a directory corresponding
to that module name.
@example
mkdir -p alice/packages
$EDITOR alice/packages/greetings.scm
git add alice/packages/greetings.scm
@end example
You can name your package modules however you like; the main constraint
to keep in mind is to avoid name clashes with other package collections,
which is why our hypothetical Alice wisely chose the @code{(alice
packages @dots{})} name space.
Note that you can also place modules in a sub-directory of the
repository; @pxref{Package Modules in a Sub-directory}, for more info on
that.
@item
With this first module in place, the next step is to test the packages
it provides. This can be done with @command{guix build}, which needs to
be fold to look for modules in the Git checkout. For example, assuming
@code{(alice packages greetings)} provides a package called
@code{hi-from-alice}, Alice will run this command from the Git checkout:
@example
guix build -L. hi-from-alice
@end example
@noindent
... where @code{-L.} adds the current directory to Guile's load path
(@pxref{Load Paths,,, guile, GNU Guile Reference Manual}).
@item
It might take Alice a few iterations to obtain satisfying package
definitions. Eventually Alice will commit this file:
@example
git commit
@end example
As a channel author, consider bundling authentication material with your
channel so that users can authenticate it. @xref{Channel
Authentication}, and @ref{Specifying Channel Authorizations}, for info
on how to do it.
@item
To use Alice's channel, anyone can now add it to their channel file
(@pxref{Specifying Additional Channels}) and run @command{guix pull}
(@pxref{Invoking guix pull}):
@example
$EDITOR ~/.config/guix/channels.scm
guix pull
@end example
Guix will now behave as if the root directory of that channel's Git
repository had been permanently added to the Guile load path. In this
example, @code{(alice packages greetings)} will automatically be found
by the @command{guix} command.
@end enumerate
Voilà!
@c What follows stems from discussions at
@c <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=22629#134> as well as
@c earlier discussions on guix-devel@gnu.org.
@quotation Warning
Before you, dear user, shout---``woow this is @emph{soooo coool}!''---and
publish your personal channel to the world, we would like to share a few words
of caution:
Before you publish your channel, we would like to share a few words of
caution:
@itemize
@item
@ -5663,13 +5874,11 @@ available to all Guix users and benefit from the project's quality assurance
process.
@item
When you maintain package definitions outside Guix, we, Guix developers,
consider that @emph{the compatibility burden is on you}. Remember that
package modules and package definitions are just Scheme code that uses various
programming interfaces (APIs). We want to remain free to change these APIs to
keep improving Guix, possibly in ways that break your channel. We never
change APIs gratuitously, but we will @emph{not} commit to freezing APIs
either.
Package modules and package definitions are Scheme code that uses
various programming interfaces (APIs). We, Guix developers, never
change APIs gratuitously, but we do @emph{not} commit to freezing APIs
either. When you maintain package definitions outside Guix, we consider
that @emph{the compatibility burden is on you}.
@item
Corollary: if you're using an external channel and that channel breaks, please
@ -5683,21 +5892,6 @@ share your improvements, which are basic tenets of
email us at @email{guix-devel@@gnu.org} if you'd like to discuss this.
@end quotation
To create a channel, create a Git repository containing your own package
modules and make it available. The repository can contain anything, but a
useful channel will contain Guile modules that export packages. Once you
start using a channel, Guix will behave as if the root directory of that
channel's Git repository has been added to the Guile load path (@pxref{Load
Paths,,, guile, GNU Guile Reference Manual}). For example, if your channel
contains a file at @file{my-packages/my-tools.scm} that defines a Guile
module, then the module will be available under the name @code{(my-packages
my-tools)}, and you will be able to use it like any other module
(@pxref{Modules,,, guile, GNU Guile Reference Manual}).
As a channel author, consider bundling authentication material with your
channel so that users can authenticate it. @xref{Channel
Authentication}, and @ref{Specifying Channel Authorizations}, for info
on how to do it.
@node Package Modules in a Sub-directory
@ -6995,7 +7189,7 @@ docker run -ti guile-guile-readline /bin/guile
@end example
@noindent
where @var{file} is the image returned by @var{guix pack}, and
where @var{file} is the image returned by @command{guix pack}, and
@code{guile-guile-readline} is its ``image tag''. See the
@uref{https://docs.docker.com/engine/reference/commandline/load/, Docker
documentation} for more information.
@ -22578,7 +22772,7 @@ and setuid enabled. One can thus disable setuid:
(service screen-locker-service-type
(screen-locker-configuration
(name "swaylock")
(program (file-append xlockmore "/bin/xlock"))
(program (file-append swaylock "/bin/swaylock"))
(using-pam? #t)
(using-setuid? #f)))
@end lisp
@ -36710,7 +36904,8 @@ Defaults to @samp{'()}.
@end deftypevr
@deftypevr {@code{cgit-configuration} parameter} file-object readme
Text which will be used as default value for @code{cgit-repo-readme}.
Text which will be used as default @code{repository-cgit-configuration}
@code{readme}.
Defaults to @samp{""}.
@ -36875,7 +37070,7 @@ Defaults to @samp{"/"}.
@end deftypevr
@deftypevr {@code{cgit-configuration} parameter} repository-cgit-configuration-list repositories
A list of @dfn{cgit-repo} records to use with config.
A list of @code{repository-cgit-configuration} records.
Defaults to @samp{'()}.
@ -42797,6 +42992,135 @@ for example).
@end deftp
@subsubheading Inputrc Profile Service
@cindex inputrc
@cindex readline
The @uref{https://tiswww.cwru.edu/php/chet/readline/rltop.html, GNU
Readline package} includes Emacs and vi editing modes, with the ability
to customize the configuration with settings in the @file{~/.inputrc}
file. With the @code{gnu home services shells} module, you can setup
your readline configuration in a predictable manner, as shown below.
For more information about configuring an @file{~/.inputrc} file,
@pxref{Readline Init File,,, readline, GNU Readline}.
@defvar home-inputrc-service-type
This is the service to setup various @file{.inputrc} configurations. The
settings in @file{.inputrc} are read by all programs which are linked
with GNU Readline.
Here is an example of a service and its configuration that you could add
to the @code{services} field of your @code{home-environment}:
@lisp
(service home-inputrc-service-type
(home-inputrc-configuration
(key-bindings
`(("Control-l" . "clear-screen")))
(variables
`(("bell-style" . "visible")
("colored-completion-prefix" . #t)
("editing-mode" . "vi")
("show-mode-in-prompt" . #t)))
(conditional-constructs
`(("$if mode=vi" .
,(home-inputrc-configuration
(variables
`(("colored-stats" . #t)
("enable-bracketed-paste" . #t)))))
("$else" .
,(home-inputrc-configuration
(variables
`(("show-all-if-ambiguous" . #t)))))
("endif" . #t)
("$include" . "/etc/inputrc")
("$include" . ,(file-append
(specification->package "readline")
"/etc/inputrc"))))))
@end lisp
The example above starts with a combination of @code{key-bindings} and
@code{variables}. The @code{conditional-constructs} show how it is
possible to add conditionals and includes. In the example above
@code{colored-stats} is only enabled if the editing mode is @code{vi}
style, and it also reads any additional configuration located in
@file{/etc/inputrc} or in @file{/gnu/store/@dots{}-readline/etc/inputrc}.
The value associated with a @code{home-inputrc-service-type} instance
must be a @code{home-inputrc-configuration} record, as described below.
@end defvar
@anchor{home-inputrc-configuration}
@deftp {Data Type} home-inputrc-configuration
Available @code{home-inputrc-configuration} fields are:
@table @asis
@item @code{key-bindings} (default: @code{'()}) (type: alist)
Association list of readline key bindings to be added to the
@file{~/.inputrc} file.
@lisp
'((\"Control-l\" . \"clear-screen\"))
@end lisp
turns into
@example
Control-l: clear-screen
@end example
@item @code{variables} (default: @code{'()}) (type: alist)
Association list of readline variables to set.
@lisp
'((\"bell-style\" . \"visible\")
(\"colored-completion-prefix\" . #t))
@end lisp
turns into
@example
set bell-style visible
set colored-completion-prefix on
@end example
@item @code{conditional-constructs} (default: @code{'()}) (type: alist)
Association list of conditionals to add to the initialization file. This
includes @command{$if}, @command{else}, @command{endif} and @command{include}
and they receive a value of another @command{home-inputrc-configuration}.
@lisp
(conditional-constructs
`((\"$if mode=vi\" .
,(home-inputrc-configuration
(variables
`((\"show-mode-in-prompt\" . #t)))))
(\"$else\" .
,(home-inputrc-configuration
(key-bindings
`((\"Control-l\" . \"clear-screen\")))))
(\"$endif\" . #t)))
@end lisp
turns into
@example
$if mode=vi
set show-mode-in-prompt on
$else
Control-l: clear-screen
$endif
@end example
@item @code{extra-content} (default: @code{""}) (type: text-config)
Extra content appended as-is to the configuration file. Run @command{man
readline} for more information about all the configuration options.
@end table
@end deftp
@node Mcron Home Service
@subsection Scheduled User's Job Execution
@ -43076,6 +43400,20 @@ Concretely, these files are concatenated and made available as
running on this machine, then it @emph{may} take this file into account:
this is what @command{sshd} does by default, but be aware that it can
also be configured to ignore it.
@item @code{add-keys-to-agent} (default: @code{``no''})
This string specifies whether keys should be automatically added to a
running ssh-agent. If this option is set to @code{``yes''} and a key is
loaded from a file, the key and its passphrase are added to the agent
with the default lifetime, as if by @code{ssh-add}. If this option is
set to @code{``ask''}, @code{ssh} will require confirmation. If this
option is set to @code{``confirm''}, each use of the key must be
confirmed. If this option is set to @code{``no''}, no keys are added to
the agent. Alternately, this option may be specified as a time interval
to specify the key's lifetime in @code{ssh-agent}, after which it will
automatically be removed. The argument must be @code{``no''},
@code{``yes''}, @code{``confirm''} (optionally followed by a time
interval), @code{``ask''} or a time interval.
@end table
@end deftp
@ -43086,11 +43424,21 @@ Available @code{openssh-host} fields are:
@table @asis
@item @code{name} (type: string)
Name of this host declaration.
Name of this host declaration. A @code{openssh-host} must define only
@code{name} or @code{match-criteria}. Use host-name @code{\"*\"} for
top-level options.
@item @code{host-name} (type: maybe-string)
Host name---e.g., @code{"foo.example.org"} or @code{"192.168.1.2"}.
@item @code{match-criteria} (type: maybe-match-criteria)
When specified, this string denotes the set of hosts to which the entry
applies, superseding the @code{host-name} field. Its first element must be
all or one of @code{ssh-match-keywords}. The rest of the elements are
arguments for the keyword, or other criteria. A @code{openssh-host} must
define only @code{name} or @code{match-criteria}. Other host configuration
options will apply to all hosts matching @code{match-criteria}.
@item @code{address-family} (type: maybe-address-family)
Address family to use when connecting to this host: one of
@code{AF_INET} (for IPv4 only), @code{AF_INET6} (for IPv6 only).
@ -43105,19 +43453,19 @@ TCP port number to connect to.
@item @code{user} (type: maybe-string)
User name on the remote host.
@item @code{forward-x11?} (default: @code{#f}) (type: boolean)
@item @code{forward-x11?} (type: maybe-boolean)
Whether to forward remote client connections to the local X11 graphical
display.
@item @code{forward-x11-trusted?} (default: @code{#f}) (type: boolean)
@item @code{forward-x11-trusted?} (type: maybe-boolean)
Whether remote X11 clients have full access to the original X11
graphical display.
@item @code{forward-agent?} (default: @code{#f}) (type: boolean)
@item @code{forward-agent?} (type: maybe-boolean)
Whether the authentication agent (if any) is forwarded to the remote
machine.
@item @code{compression?} (default: @code{#f}) (type: boolean)
@item @code{compression?} (type: maybe-boolean)
Whether to compress data in transit.
@item @code{proxy} (type: maybe-proxy-command-or-jump-list)

3
etc/guix-install.sh
View File

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

49
etc/news.scm
View File

@ -26,6 +26,55 @@
(channel-news
(version 0)
(entry (commit "1b7aabbc79969a89141aadd3d41d7a5329a3462e")
(title
(en "New @command{guix locate} command")
(de "Neuer Befehl @command{guix locate}")
(fr "Nouvelle commande @command{guix locate}"))
(body
(en "The new @command{guix locate} command lets you search for
packages containing a given file---at long last! For instance, to find which
package(s) provide a file named @file{ls}, run:
@example
guix locate ls
@end example
Currently the command relies on purely local information. It is thus unable
to find packages that have not reached your store. This limitation will be
lifted in a future revision.
Run @command{info \"(guix) Invoking guix locate\"} for more info.")
(de "Mit dem neuen Befehl @command{guix locate} können Sie nach
Paketen suchen, die eine angegebene Datei enthalten — endlich ist es
soweit! Um zum Beispiel das Paket bzw.@: die Pakete zu finden, die eine
Datei namens @file{ls} bereitstellen, führen Sie aus:
@example
guix locate ls
@end example
Derzeit benutzt der Befehl ausschließlich lokal vorliegende
Informationen. Daher können Sie damit nur Pakete finden, die sich in
Ihrem Store-Verzeichnis befinden. Diese Einschränkung werden wir in
einer zukünftigen Version aufheben.
Führen Sie @command{info \"(guix) Invoking guix locate\"} aus, um mehr zu
erfahren.")
(fr "La nouvelle commande @command{guix locate} permet de chercher le
ou les paquets contenant un fichier donné---enfin ! Par exemple, pour trouver
quel paquet fournit un fichier nommé @file{ls}, on lance :
@example
guix locate ls
@end example
Pour le moment la commande se base uniquement sur des informations locales.
Elle ne peut donc pas trouver des paquets absents de votre dépôt. Cette limitation
sera levée dans une prochaine version.
Lancer @command{info \"(guix) Invoking guix locate\"} pour plus d'informations.")))
(entry (commit "ba5da5125a81307500982517e2f458d57b024668")
(title
(en "New @code{arguments} rule for @command{guix style}")

17
gnu/bootloader/u-boot.scm
View File

@ -4,6 +4,7 @@
;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2023 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; This file is part of GNU Guix.
;;;
@ -43,6 +44,7 @@
u-boot-puma-rk3399-bootloader
u-boot-rock64-rk3328-bootloader
u-boot-rockpro64-rk3399-bootloader
u-boot-sifive-unmatched-bootloader
u-boot-ts7970-q-2g-1000mhz-c-bootloader
u-boot-wandboard-bootloader))
@ -135,6 +137,15 @@
(install-dir (string-append mount-point "/boot")))
(install-file u-boot.imx install-dir))))
(define install-sifive-unmatched-u-boot
#~(lambda (bootloader root-index image)
(let ((spl (string-append bootloader "/libexec/spl/u-boot-spl.bin"))
(u-boot (string-append bootloader "/libexec/u-boot.itb")))
(write-file-on-device spl (stat:size (stat spl))
image (* 34 512))
(write-file-on-device u-boot (stat:size (stat u-boot))
image (* 2082 512)))))
;;;
@ -273,3 +284,9 @@
(package u-boot-ts7970-q-2g-1000mhz-c)
(installer install-u-boot-ts7970-q-2g-1000mhz-c-u-boot)
(disk-image-installer #f)))
(define u-boot-sifive-unmatched-bootloader
(bootloader
(inherit u-boot-bootloader)
(package u-boot-sifive-unmatched)
(disk-image-installer install-sifive-unmatched-u-boot)))

11
gnu/build/image.scm
View File

@ -7,6 +7,7 @@
;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2022 Pavel Shlyak <p.shlyak@pantherx.org>
;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
;;; Copyright © 2023 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; This file is part of GNU Guix.
;;;
@ -122,6 +123,14 @@ turn doesn't take any constant overhead into account, force a 1-MiB minimum."
(string-append "::" file))))
(scandir root))))
(define* (make-unformatted-image partition target)
"Make an unformatted partition of a certain size."
(let ((size (partition-size partition)))
;; Create the file and then truncate it to the desired size.
(with-output-to-file target
(lambda _ (display "")))
(truncate-file target size)))
(define* (make-partition-image partition-sexp target root)
"Create and return the image of PARTITION-SEXP as TARGET. Use the given
ROOT directory to populate the image."
@ -134,6 +143,8 @@ ROOT directory to populate the image."
(make-vfat-image partition target root 16))
((string=? type "fat32")
(make-vfat-image partition target root 32))
((string=? type "unformatted")
(make-unformatted-image partition target))
(else
(raise (condition
(&message

53
gnu/home/services.scm
View File

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

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

@ -214,9 +214,9 @@ according to time of day.")))
(cons "DBUS_VERBOSE=1"
(default-environment-variables))
#:log-file
(format #f "~a/dbus.log"
(or (getenv "XDG_LOG_HOME")
(format #f "~a/.local/var/log"
(format #f "~a/log/dbus.log"
(or (getenv "XDG_STATE_HOME")
(format #f "~a/.local/state"
(getenv "HOME"))))))
(stop #~(make-kill-destructor)))))
@ -264,10 +264,10 @@ according to time of day.")))
(number->string
#$(home-unclutter-configuration-idle-timeout config)))
#:log-file (string-append
(or (getenv "XDG_LOG_HOME")
(format #f "~a/.local/var/log"
(or (getenv "XDG_STATE_HOME")
(format #f "~a/.local/state"
(getenv "HOME")))
"/unclutter.log"))))))
"/log/unclutter.log"))))))
(define home-unclutter-service-type
(service-type

8
gnu/home/services/mcron.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2021 Andrew Tropin <andrew@trop.in>
;;; Copyright © 2021, 2023 Andrew Tropin <andrew@trop.in>
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
@ -99,10 +99,10 @@ Each message is also prefixed by a timestamp by GNU Shepherd."))
#~())
#$@files)
#:log-file (string-append
(or (getenv "XDG_LOG_HOME")
(format #f "~a/.local/var/log"
(or (getenv "XDG_STATE_HOME")
(format #f "~a/.local/state"
(getenv "HOME")))
"/mcron.log")))
"/log/mcron.log")))
(stop #~(make-kill-destructor))
(actions
(list (shepherd-schedule-action mcron files)))))))))

8
gnu/home/services/pm.scm
View File

@ -128,10 +128,10 @@
(list "-i")
(list)))
#:log-file (string-append
(or (getenv "XDG_LOG_HOME")
(format #f "~a/.local/var/log"
(getenv "HOME")))
"/batsignal.log")))
(or (getenv "XDG_STATE_HOME")
(format #f "~a/.local/state"
(getenv "HOME")))
"/log/batsignal.log")))
(stop #~(make-kill-destructor))))))
(define home-batsignal-service-type

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

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

9
gnu/home/services/shepherd.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2021 Andrew Tropin <andrew@trop.in>
;;; Copyright © 2021, 2023 Andrew Tropin <andrew@trop.in>
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;;
;;; This file is part of GNU Guix.
@ -108,9 +108,10 @@ as shepherd package."
(or (getenv "XDG_RUNTIME_DIR")
(format #f "/run/user/~a" (getuid)))
"/shepherd/socket"))
(let ((log-dir (or (getenv "XDG_LOG_HOME")
(format #f "~a/.local/var/log"
(getenv "HOME")))))
(let* ((state-dir (or (getenv "XDG_STATE_HOME")
(format #f "~a/.local/state"
(getenv "HOME"))))
(log-dir (string-append state-dir "/log")))
;; TODO: Remove it, 0.9.2 creates it automatically?
((@ (guix build utils) mkdir-p) log-dir)
(system*

124
gnu/home/services/ssh.scm
View File

@ -1,6 +1,8 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2023 Nicolas Graves <ngraves@ngraves.fr>
;;; Copyright © 2023 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; This file is part of GNU Guix.
;;;
@ -38,14 +40,23 @@
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-35)
#:use-module (ice-9 match)
#:autoload (ice-9 regex) (string-match match:substring)
#:export (home-openssh-configuration
home-openssh-configuration-authorized-keys
home-openssh-configuration-known-hosts
home-openssh-configuration-hosts
home-openssh-configuration-add-keys-to-agent
home-openssh-configuration?
home-ssh-agent-configuration
home-ssh-agent-openssh
home-ssh-agent-socket-directory
home-ssh-agent-extra-options
home-ssh-agent-configuration?
openssh-host
openssh-host-host-name
openssh-host-match-criteria
openssh-host-identity-file
openssh-host-name
openssh-host-port
@ -93,7 +104,11 @@
(cond ((= family AF_INET) "inet")
((= family AF_INET6) "inet6")
;; The 'else' branch is unreachable.
(else (raise (condition (&error)))))
(else
(raise
(formatted-message
(G_ "~s: invalid address family value")
family))))
"\n")
""))
@ -104,6 +119,8 @@
(string-append " " (serialize-field-name field) " "
(number->string value) "\n"))
(define-maybe boolean)
(define (serialize-boolean field value)
(string-append " " (serialize-field-name field) " "
(if value "yes" "no") "\n"))
@ -171,13 +188,40 @@
(configuration-field-error (source-properties->location properties) 'proxy-command value))
value))
(define ssh-match-keywords
'(canonical final exec host originalhost user localuser))
(define (match-criteria? str)
;; Rule out the case of "all" keyword.
(if (member str '("all"
"canonical all"
"final all"))
#t
(let* ((first (string-take str (string-index str #\ )))
(keyword (string->symbol (if (string-prefix? "!" first)
(string-drop first 1)
first))))
(memq keyword ssh-match-keywords))))
(define-maybe match-criteria)
(define-configuration openssh-host
(name
(string)
"Name of this host declaration.")
maybe-string
"Name of this host declaration. A @code{openssh-host} must define only
@code{name} or @code{match-criteria}. Use host-name @code{\"*\"} for
top-level options.")
(host-name
maybe-string
"Host name---e.g., @code{\"foo.example.org\"} or @code{\"192.168.1.2\"}.")
(match-criteria ;TODO implement stricter match-criteria rules
maybe-match-criteria
"When specified, this string denotes the set of hosts to which the entry
applies, superseding the @code{host-name} field. Its first element must be
all or one of @code{ssh-match-keywords}. The rest of the elements are
arguments for the keyword, or other criteria. A @code{openssh-host} must
define only @code{name} or @code{match-criteria}. Other host configuration
options will apply to all hosts matching @code{match-criteria}.")
(address-family
maybe-address-family
"Address family to use when connecting to this host: one of
@ -194,19 +238,19 @@ Additionally, the field can be left unset to allow any address family.")
maybe-string
"User name on the remote host.")
(forward-x11?
(boolean #f)
maybe-boolean
"Whether to forward remote client connections to the local X11 graphical
display.")
(forward-x11-trusted?
(boolean #f)
maybe-boolean
"Whether remote X11 clients have full access to the original X11 graphical
display.")
(forward-agent?
(boolean #f)
maybe-boolean
"Whether the authentication agent (if any) is forwarded to the remote
machine.")
(compression?
(boolean #f)
maybe-boolean
"Whether to compress data in transit.")
(proxy-command
maybe-string
@ -232,33 +276,73 @@ through before connecting to the server.")
@file{~/.ssh/config}."))
(define (serialize-openssh-host config)
(define (openssh-host-name-field? field)
(eq? (configuration-field-name field) 'name))
(define (openssh-host-name-or-match-field? field)
(or (eq? (configuration-field-name field) 'name)
(eq? (configuration-field-name field) 'match-criteria)))
(string-append
"Host " (openssh-host-name config) "\n"
(if (maybe-value-set? (openssh-host-name config))
(if (maybe-value-set? (openssh-host-match-criteria config))
(raise
(formatted-message
(G_ "define either 'name' or 'match-criteria', not both")))
(string-append "Host " (openssh-host-name config) "\n"))
(if (maybe-value-set? (openssh-host-match-criteria config))
(string-append
"Match " (string-join (openssh-host-match-criteria config) " ") "\n")
(raise
(formatted-message
(G_ "define either 'name' or 'match-criteria' once")))))
(string-concatenate
(map (lambda (field)
((configuration-field-serializer field)
(configuration-field-name field)
((configuration-field-getter field) config)))
(remove openssh-host-name-field?
(remove openssh-host-name-or-match-field?
openssh-host-fields)))))
(define-record-type* <home-openssh-configuration>
home-openssh-configuration make-home-openssh-configuration
home-openssh-configuration?
(authorized-keys home-openssh-configuration-authorized-keys ;list of file-like
(default #f))
(known-hosts home-openssh-configuration-known-hosts ;unspec | list of file-like
(default *unspecified*))
(hosts home-openssh-configuration-hosts ;list of <openssh-host>
(default '())))
(authorized-keys home-openssh-configuration-authorized-keys ;list of file-like
(default #f))
(known-hosts home-openssh-configuration-known-hosts ;unspec | list of file-like
(default *unspecified*))
(hosts home-openssh-configuration-hosts ;list of <openssh-host>
(default '()))
(add-keys-to-agent home-openssh-configuration-add-keys-to-agent ;string with limited values
(default "no")))
(define (serialize-add-keys-to-agent value)
(define (valid-time-string? str)
(and (> (string-length str) 0)
(equal?
str
(match:substring
(string-match "\
[0-9]+|([0-9]+[Ww])?([0-9]+[Dd])?([0-9]+[Hh])?([0-9]+[Mm])?([0-9]+[Ss])?"
str)))))
(string-append "AddKeysToAgent "
(cond ((member value '("yes" "no" "confirm" "ask")) value)
((valid-time-string? value) value)
((and (string-prefix? "confirm" value)
(valid-time-string?
(cdr (string-split value #\ )))) value)
;; The 'else' branch is unreachable.
(else
(raise
(formatted-message
(G_ "~s: invalid 'add-keys-to-agent' value")
value))))))
(define (openssh-configuration->string config)
(string-join (map serialize-openssh-host
(home-openssh-configuration-hosts config))
"\n"))
(string-join
(cons* (serialize-add-keys-to-agent
(home-openssh-configuration-add-keys-to-agent config))
(map serialize-openssh-host
(home-openssh-configuration-hosts config)))
"\n"))
(define* (file-join name files #:optional (delimiter " "))
"Return a file in the store called @var{name} that is the concatenation

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

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2021, 2022 Andrew Tropin <andrew@trop.in>
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
;;;
;;; This file is part of GNU Guix.
;;;
@ -22,6 +23,7 @@
#:use-module (gnu home services)
#:use-module (gnu packages freedesktop)
#:use-module (gnu home services utils)
#:use-module (guix deprecation)
#:use-module (guix gexp)
#:use-module (guix modules)
#:use-module (guix records)
@ -39,7 +41,7 @@
home-xdg-base-directories-configuration-config-home
home-xdg-base-directories-configuration-data-home
home-xdg-base-directories-configuration-state-home
home-xdg-base-directories-configuration-log-home
home-xdg-base-directories-configuration-log-home ; deprecated
home-xdg-base-directories-configuration-runtime-dir
home-xdg-user-directories-service-type
@ -77,6 +79,7 @@
(define (serialize-path field-name val) "")
(define path? string?)
(define-maybe path)
(define-configuration home-xdg-base-directories-configuration
(cache-home
@ -97,12 +100,17 @@ read-only shared data, analogus to @file{/usr/share}, but for user.")
(path "${XDG_RUNTIME_DIR:-/run/user/$UID}")
"Base directory for programs to store user-specific runtime files,
like sockets.")
;; TODO: deprecated field, use $XDG_STATE_HOME(/log) instead.
(log-home
(path "$HOME/.local/var/log")
maybe-path
"Base directory for programs to store log files, analogus to
@file{/var/log}, but for user. It is not a part of XDG Base Directory
Specification, but helps to make implementation of home services more
consistent.")
consistent."
(lambda (field-name val)
(when (maybe-value-set? val)
(warn-about-deprecation field-name #f #:replacement 'state-home))
(serialize-path field-name val)))
(state-home
(path "$HOME/.local/state")
"Base directory for programs to store state data that should persist
@ -117,7 +125,13 @@ portable enough to the user to warrant storing them in
#f "XDG_~a"
(object->snake-case-string (configuration-field-name field) 'upper))
((configuration-field-getter field) config)))
home-xdg-base-directories-configuration-fields))
;; XXX: deprecated field, remove later
(if (maybe-value-set?
(home-xdg-base-directories-configuration-log-home config))
home-xdg-base-directories-configuration-fields
(filter-configuration-fields
home-xdg-base-directories-configuration-fields
'(log-home) #t))))
(define (ensure-xdg-base-dirs-on-activation config)
(with-imported-modules '((guix build utils))
@ -138,7 +152,14 @@ portable enough to the user to warrant storing them in
;; and will be provided by elogind or other service.
(and (not (string=? "XDG_RUNTIME_DIR" variable))
variable)))
home-xdg-base-directories-configuration-fields)))))
;; XXX: deprecated field, remove later
(if (maybe-value-set?
(home-xdg-base-directories-configuration-log-home
config))
home-xdg-base-directories-configuration-fields
(filter-configuration-fields
home-xdg-base-directories-configuration-fields
'(log-home) #t)))))))
(define (last-extension-or-cfg config extensions)
"Picks configuration value from last provided extension. If there
@ -157,10 +178,7 @@ are no extensions use configuration instead."
(default-value (home-xdg-base-directories-configuration))
(compose identity)
(extend last-extension-or-cfg)
(description "Configure XDG base directories. This
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
(description "Configure XDG base directories. 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).")))

19
gnu/installer/services.scm
View File

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

30
gnu/local.mk
View File

@ -50,7 +50,7 @@
# Copyright © 2022 Daniel Meißner <daniel.meissner-i4k@ruhr-uni-bochum.de>
# Copyright © 2022 Remco van 't Veer <remco@remworks.net>
# Copyright © 2022 Artyom V. Poptsov <poptsov.artyom@gmail.com>
# Copyright © 2022 John Kehayias <john.kehayias@protonmail.com>
# Copyright © 2022, 2023 John Kehayias <john.kehayias@protonmail.com>
# Copyright © 2022 muradm <mail@muradm.net>
# Copyright © 2022 Hilton Chain <hako@ultrarare.space>
# Copyright © 2022 Alex Griffin <a@ajgrf.com>
@ -743,6 +743,7 @@ GNU_SYSTEM_MODULES = \
%D%/system/images/pine64.scm \
%D%/system/images/pinebook-pro.scm \
%D%/system/images/rock64.scm \
%D%/system/images/unmatched.scm \
%D%/system/images/wsl2.scm \
\
%D%/machine.scm \
@ -896,6 +897,7 @@ dist_patch_DATA = \
%D%/packages/patches/akonadi-not-relocatable.patch \
%D%/packages/patches/akonadi-timestamps.patch \
%D%/packages/patches/allegro-mesa-18.2.5-and-later.patch \
%D%/packages/patches/ibus-anthy-fix-tests.patch \
%D%/packages/patches/anki-mpv-args.patch \
%D%/packages/patches/antiword-CVE-2014-8123.patch \
%D%/packages/patches/antlr3-3_1-fix-java8-compilation.patch \
@ -1053,9 +1055,9 @@ dist_patch_DATA = \
%D%/packages/patches/dee-vapi.patch \
%D%/packages/patches/desmume-gcc6-fixes.patch \
%D%/packages/patches/desmume-gcc7-fixes.patch \
%D%/packages/patches/dezyne-add-missing-shebangs.patch \
%D%/packages/patches/dfu-programmer-fix-libusb.patch \
%D%/packages/patches/diffutils-fix-signal-processing.patch \
%D%/packages/patches/directfb-davinci-glibc-228-compat.patch \
%D%/packages/patches/dkimproxy-add-ipv6-support.patch \
%D%/packages/patches/docbook-xsl-nonrecursive-string-subst.patch \
%D%/packages/patches/docbook-xsl-support-old-url.patch \
@ -1070,6 +1072,7 @@ dist_patch_DATA = \
%D%/packages/patches/dune-istl-fix-solver-playground.patch \
%D%/packages/patches/dvd+rw-tools-add-include.patch \
%D%/packages/patches/dynaconf-unvendor-deps.patch \
%D%/packages/patches/dyninst-fix-glibc-compatibility.patch \
%D%/packages/patches/efivar-211.patch \
%D%/packages/patches/eigen-fix-strict-aliasing-bug.patch \
%D%/packages/patches/einstein-build.patch \
@ -1153,6 +1156,9 @@ dist_patch_DATA = \
%D%/packages/patches/freeimage-unbundle.patch \
%D%/packages/patches/fuse-glibc-2.34.patch \
%D%/packages/patches/fuse-overlapping-headers.patch \
%D%/packages/patches/fuzzylite-relative-path-in-tests.patch \
%D%/packages/patches/fuzzylite-use-catch2.patch \
%D%/packages/patches/fuzzylite-soften-float-equality.patch \
%D%/packages/patches/fxdiv-system-libraries.patch \
%D%/packages/patches/gajim-honour-GAJIM_PLUGIN_PATH.patch \
%D%/packages/patches/ganeti-disable-version-symlinks.patch \
@ -1221,7 +1227,6 @@ dist_patch_DATA = \
%D%/packages/patches/genimage-mke2fs-test.patch \
%D%/packages/patches/geoclue-config.patch \
%D%/packages/patches/gettext-libunicode-update.patch \
%D%/packages/patches/git-header-cmd.patch \
%D%/packages/patches/ghc-8.0-fall-back-to-madv_dontneed.patch \
%D%/packages/patches/ghc-9.2-glibc-2.33-link-order.patch \
%D%/packages/patches/ghc-9.2-grep-warnings.patch \
@ -1237,6 +1242,7 @@ dist_patch_DATA = \
%D%/packages/patches/glib-appinfo-watch.patch \
%D%/packages/patches/glib-networking-gnutls-binding.patch \
%D%/packages/patches/glib-skip-failing-test.patch \
%D%/packages/patches/glibc-2.33-riscv64-miscompilation.patch \
%D%/packages/patches/glibc-CVE-2019-7309.patch \
%D%/packages/patches/glibc-CVE-2019-9169.patch \
%D%/packages/patches/glibc-CVE-2019-19126.patch \
@ -1316,6 +1322,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-fibers-libevent-32-bit.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 \
@ -1368,6 +1375,7 @@ dist_patch_DATA = \
%D%/packages/patches/id3lib-CVE-2007-4460.patch \
%D%/packages/patches/id3lib-UTF16-writing-bug.patch \
%D%/packages/patches/idris-test-ffi008.patch \
%D%/packages/patches/igt-gpu-tools-Use-libproc2.patch \
%D%/packages/patches/ilmbase-fix-tests.patch \
%D%/packages/patches/imagemagick-CVE-2020-27829.patch \
%D%/packages/patches/imagemagick-ReadDCMImage-fix.patch \
@ -1403,6 +1411,7 @@ dist_patch_DATA = \
%D%/packages/patches/java-xerces-bootclasspath.patch \
%D%/packages/patches/java-xerces-build_dont_unzip.patch \
%D%/packages/patches/java-xerces-xjavac_taskdef.patch \
%D%/packages/patches/jbr-17-xcursor-no-dynamic.patch \
%D%/packages/patches/jfsutils-add-sysmacros.patch \
%D%/packages/patches/jfsutils-gcc-compat.patch \
%D%/packages/patches/jfsutils-include-systypes.patch \
@ -1416,8 +1425,9 @@ dist_patch_DATA = \
%D%/packages/patches/libvirt-add-install-prefix.patch \
%D%/packages/patches/libziparchive-add-includes.patch \
%D%/packages/patches/lightdm-arguments-ordering.patch \
%D%/packages/patches/lightdm-vncserver-check.patch \
%D%/packages/patches/lightdm-vnc-ipv6.patch \
%D%/packages/patches/lightdm-vnc-color-depth.patch \
%D%/packages/patches/lightdm-vncserver-check.patch \
%D%/packages/patches/localed-xorg-keyboard.patch \
%D%/packages/patches/kcontacts-incorrect-country-name.patch \
%D%/packages/patches/kde-cli-tools-delay-mime-db.patch \
@ -1502,6 +1512,7 @@ dist_patch_DATA = \
%D%/packages/patches/libtommath-integer-overflow.patch \
%D%/packages/patches/libtool-grep-compat.patch \
%D%/packages/patches/libtool-skip-tests2.patch \
%D%/packages/patches/libtree-fix-check-non-x86.patch \
%D%/packages/patches/libusb-0.1-disable-tests.patch \
%D%/packages/patches/libusb-for-axoloti.patch \
%D%/packages/patches/libutils-add-includes.patch \
@ -1535,8 +1546,6 @@ dist_patch_DATA = \
%D%/packages/patches/llvm-9-fix-bitcast-miscompilation.patch \
%D%/packages/patches/llvm-9-fix-lpad-miscompilation.patch \
%D%/packages/patches/llvm-9-fix-scev-miscompilation.patch \
%D%/packages/patches/llvm-roc-4.0.0-remove-isystem-usr-include.patch \
%D%/packages/patches/llvm-roc-5.0.0-linkdl.patch \
%D%/packages/patches/lm-sensors-hwmon-attrs.patch \
%D%/packages/patches/lsh-fix-x11-forwarding.patch \
%D%/packages/patches/lsof-fatal-test-failures.patch \
@ -1701,6 +1710,8 @@ dist_patch_DATA = \
%D%/packages/patches/python-typeguard-python3.10.patch \
%D%/packages/patches/python-w3lib-fix-test-failure.patch \
%D%/packages/patches/python-wxwidgets-type-errors.patch \
%D%/packages/patches/quodlibet-fix-invalid-glob.patch \
%D%/packages/patches/quodlibet-fix-mtime-tests.patch \
%D%/packages/patches/scribus-1.5.8-poppler-22.03.0.patch \
%D%/packages/patches/scribus-1.5.8-poppler-22.04.0.patch \
%D%/packages/patches/scribus-1.5.8-poppler-22.09.0.patch \
@ -1793,7 +1804,6 @@ dist_patch_DATA = \
%D%/packages/patches/python-fixtures-remove-monkeypatch-test.patch \
%D%/packages/patches/python-hiredis-fix-header.patch \
%D%/packages/patches/python-hiredis-use-system-hiredis.patch \
%D%/packages/patches/python-keras-integration-test.patch \
%D%/packages/patches/python-pdoc3-tests.patch \
%D%/packages/patches/python-peachpy-determinism.patch \
%D%/packages/patches/python-pep8-stdlib-tokenize-compat.patch \
@ -1824,6 +1834,7 @@ dist_patch_DATA = \
%D%/packages/patches/python-typing-inspect-fix.patch \
%D%/packages/patches/python-unittest2-python3-compat.patch \
%D%/packages/patches/python-unittest2-remove-argparse.patch \
%D%/packages/patches/python-vega-datasets-remove-la-riots-code.patch \
%D%/packages/patches/python-versioneer-guix-support.patch \
%D%/packages/patches/python-waitress-fix-tests.patch \
%D%/packages/patches/python-werkzeug-tests.patch \
@ -1866,9 +1877,10 @@ dist_patch_DATA = \
%D%/packages/patches/remake-impure-dirs.patch \
%D%/packages/patches/restic-0.9.6-fix-tests-for-go1.15.patch \
%D%/packages/patches/rng-tools-revert-build-randstat.patch \
%D%/packages/patches/rocclr-5.6.0-enable-gfx800.patch \
%D%/packages/patches/rocm-bandwidth-test-5.5.0-fix-includes.patch \
%D%/packages/patches/rocm-comgr-3.1.0-dependencies.patch \
%D%/packages/patches/rocm-opencl-runtime-4.3-noclinfo.patch \
%D%/packages/patches/rocm-opencl-runtime-4.3-noopencl.patch \
%D%/packages/patches/rottlog-direntry.patch \
%D%/packages/patches/ruby-hiredis-use-system-hiredis.patch \
%D%/packages/patches/ruby-hydra-minimal-no-byebug.patch \
@ -2040,6 +2052,7 @@ dist_patch_DATA = \
%D%/packages/patches/vboot-utils-fix-format-load-address.patch \
%D%/packages/patches/vboot-utils-fix-tests-show-contents.patch \
%D%/packages/patches/vboot-utils-skip-test-workbuf.patch \
%D%/packages/patches/vcmi-disable-privacy-breach.patch \
%D%/packages/patches/vinagre-newer-freerdp.patch \
%D%/packages/patches/vinagre-newer-rdp-parameters.patch \
%D%/packages/patches/virtuoso-ose-remove-pre-built-jar-files.patch \
@ -2061,6 +2074,7 @@ dist_patch_DATA = \
%D%/packages/patches/wordnet-CVE-2008-2149.patch \
%D%/packages/patches/wordnet-CVE-2008-3908-pt1.patch \
%D%/packages/patches/wordnet-CVE-2008-3908-pt2.patch \
%D%/packages/patches/wpa-supplicant-dbus-group-policy.patch \
%D%/packages/patches/x265-arm-flags.patch \
%D%/packages/patches/xdg-desktop-portal-wlr-harcoded-length.patch\
%D%/packages/patches/xf86-video-ark-remove-mibstore.patch \

8
gnu/packages/acl.scm
View File

@ -5,7 +5,7 @@
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2021 Lars-Dominik Braun <ldb@leibniz-psychology.org>
;;;
;;; This file is part of GNU Guix.
@ -28,14 +28,14 @@
#:use-module (gnu packages attr)
#:use-module (gnu packages base)
#:use-module (gnu packages check)
#:use-module (gnu packages hurd)
#:use-module (gnu packages gettext)
#:use-module (gnu packages perl)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (gnu packages)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python))
#:use-module (guix build-system python)
#:use-module (guix utils))
(define-public acl
(package
@ -55,7 +55,7 @@
,@%gnu-build-system-modules)
#:configure-flags '("--disable-static")
#:tests? ,(not (or (%current-target-system)
(hurd-target?)))
(target-hurd?)))
#:phases
(modify-phases %standard-phases
;; XXX After repacking the sources the timestamps are reset to the

158
gnu/packages/admin.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012-2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2012-2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2014, 2015, 2016, 2018, 2019, 2020 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2014, 2015-2018, 2020-2023 Eric Bavier <bavier@posteo.net>
@ -31,7 +31,7 @@
;;; Copyright © 2019, 2021, 2022 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019, 2020, 2021 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020, 2021, 2022 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2020 Morgan Smith <Morgan.J.Smith@outlook.com>
@ -130,7 +130,6 @@
#:use-module (gnu packages gtk)
#:use-module (gnu packages guile)
#:use-module (gnu packages guile-xyz)
#:use-module (gnu packages hurd)
#:use-module (gnu packages image)
#:use-module (gnu packages imagemagick)
#:use-module (gnu packages inkscape)
@ -378,7 +377,11 @@ interface and is based on GNU Guile.")
version ".tar.gz"))
(sha256
(base32
"1720czfchg4pzw44v0zj3rc3k6jhl3ixwnpw4v4v9bqx98ad49yw"))))))
"1720czfchg4pzw44v0zj3rc3k6jhl3ixwnpw4v4v9bqx98ad49yw"))))
(native-inputs (modify-inputs (package-native-inputs shepherd-0.9)
(replace "guile-fibers" guile-fibers-1.3)))
(inputs (modify-inputs (package-inputs shepherd-0.9)
(replace "guile-fibers" guile-fibers-1.3)))))
(define-public shepherd shepherd-0.9)
@ -589,7 +592,7 @@ graphs and can export its output to different formats.")
(define-public facter
(package
(name "facter")
(version "4.0.52")
(version "4.4.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -598,63 +601,61 @@ graphs and can export its output to different formats.")
(file-name (git-file-name name version))
(sha256
(base32
"05j4q87sak1f1isj7ngzr59h3j3xskfwjjwfv0xd7lhwcaxg3a3c"))))
"080v0ml2svw2vbzfa659v8718pmhh2kav0l0q1jjvc6mm8sgnmmn"))))
(build-system ruby-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'delete-facter-ng-gemspec
(lambda _
;; XXX: ruby-build-system incorrectly finds
;; facter-ng.gemspec from this directory and tries to
;; build that instead of the proper facter.gemspec.
;; Just delete it as a workaround, as it appears to
;; only exist for backwards-compatibility after the
;; facter-ng->facter rename.
(delete-file "agent/facter-ng.gemspec")
#t))
(add-after 'unpack 'embed-absolute-references
;; Refer to absolute executable file names to avoid propagation.
(lambda* (#:key inputs #:allow-other-keys)
(substitute* (find-files "lib/facter/resolvers" "\\.rb$")
(("execute\\('(which |)([^ ']+)" _ _ name)
(string-append "execute('" (or (which name)
name))))
#t))
(delete 'check)
(add-after 'wrap 'check
(lambda* (#:key tests? outputs #:allow-other-keys)
;; XXX: The test suite wants to run Bundler and
;; complains that the gemspec is invalid. For now
;; just make sure that we can run the wrapped
;; executable directly.
(if tests?
(invoke (string-append (assoc-ref outputs "out")
"/bin/facter")
;; Many facts depend on /sys, /etc/os-release,
;; etc, so we only run a small sample.
"facterversion" "architecture"
"kernel" "kernelversion")
(format #t "tests disabled~%"))
#t)))))
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'delete-facter-ng-gemspec
(lambda _
;; XXX: ruby-build-system incorrectly finds
;; facter-ng.gemspec from this directory and tries to
;; build that instead of the proper facter.gemspec.
;; Just delete it as a workaround, as it appears to
;; only exist for backwards-compatibility after the
;; facter-ng->facter rename.
(delete-file "agent/facter-ng.gemspec")))
(add-after 'unpack 'embed-absolute-references
;; Refer to absolute executable file names to avoid propagation.
(lambda* (#:key inputs #:allow-other-keys)
(substitute* (find-files "lib/facter/resolvers" "\\.rb$")
(("execute\\('(which |)([^ ']+)" _ _ name)
(string-append "execute('" (or (which name)
name))))))
(delete 'check)
(add-after 'wrap 'check
(lambda* (#:key tests? outputs #:allow-other-keys)
;; XXX: The test suite wants to run Bundler and
;; complains that the gemspec is invalid. For now
;; just make sure that we can run the wrapped
;; executable directly.
(if tests?
(invoke (string-append (assoc-ref outputs "out")
"/bin/facter")
;; Many facts depend on /sys, /etc/os-release,
;; etc, so we only run a small sample.
"facterversion" "architecture"
"kernel" "kernelversion")
(format #t "tests disabled~%")))))))
(inputs
`(("ruby-hocon" ,ruby-hocon)
("ruby-sys-filesystem" ,ruby-sys-filesystem)
("ruby-thor" ,ruby-thor)
(list ruby-hocon
ruby-sys-filesystem
ruby-thor
;; For ‘embed-absolute-references’.
("dmidecode" ,dmidecode)
("inetutils" ,inetutils) ; for ‘hostname’
("iproute" ,iproute)
("pciutils" ,pciutils)
("util-linux" ,util-linux)))
;; For ‘embed-absolute-references’.
dmidecode
inetutils ; for ‘hostname’
iproute
pciutils
util-linux))
(synopsis "Collect and display system facts")
(description
"Facter is a tool that gathers basic facts about nodes (systems) such
as hardware details, network settings, OS type and version, and more. These
facts can be collected on the command line with the @command{facter} command
or via the @code{facter} Ruby library.")
(home-page "https://github.com/puppetlabs/facter-ng")
(home-page "https://github.com/puppetlabs/facter")
(license license:expat)))
(define-public ttyload
@ -909,7 +910,7 @@ re-executing them as necessary.")
,@(if (%current-target-system)
'("--with-path-procnet-dev=/proc/net/dev")
'())
,@(if (hurd-target?)
,@(if (target-hurd?)
'("--disable-rcp"
"--disable-rexec"
"--disable-rexecd"
@ -963,7 +964,7 @@ hostname.")
`(;; Assume System V `setpgrp (void)', which is the default on GNU
;; variants (`AC_FUNC_SETPGRP' is not cross-compilation capable.)
#:configure-flags
'(,@(if (hurd-target?)
'(,@(if (target-hurd?)
'()
'("--with-libpam"))
"shadow_cv_logdir=/var/log"
@ -1014,7 +1015,7 @@ hostname.")
(delete-file (string-append bin "/groups"))
(for-each delete-file (find-files man "^groups\\."))))))))
(inputs
`(,@(if (hurd-target?)
`(,@(if (target-hurd?)
'()
`(("linux-pam" ,linux-pam)))
,@(if (%current-target-system)
@ -1523,7 +1524,7 @@ connection alive.")
(inputs `(("inetutils" ,inetutils)
("bash" ,bash-minimal)
,@(if (hurd-target?) '()
,@(if (target-hurd?) '()
`(("net-tools" ,net-tools)
("iproute" ,iproute)))
@ -1658,14 +1659,14 @@ network statistics collection, security monitoring, network debugging, etc.")
(define-public tcpdump
(package
(name "tcpdump")
(version "4.99.1")
(version "4.99.4")
(source (origin
(method url-fetch)
(uri (string-append "https://www.tcpdump.org/release/tcpdump-"
version ".tar.gz"))
(sha256
(base32
"1ghfs5gifzrk3813zf9zalfbjs70wg6llz6q31k180r7zf2nkcvr"))))
"1slzwjk5f8sygwxqci4vkbas0qqcgs5a0w3f8br6p7gjn8dj6ch2"))))
(build-system gnu-build-system)
(inputs (list libpcap openssl))
(native-inputs (list perl)) ; for tests
@ -2033,7 +2034,7 @@ system administrator.")
(list groff))
(inputs
`(("coreutils" ,coreutils)
,@(if (hurd-target?)
,@(if (target-hurd?)
'()
`(("linux-pam" ,linux-pam)))
("zlib" ,zlib)))
@ -2730,7 +2731,7 @@ various ways that may be running with too much privilege.")
(define-public smartmontools
(package
(name "smartmontools")
(version "7.2")
(version "7.3")
(source (origin
(method url-fetch)
(uri (string-append
@ -2738,7 +2739,7 @@ various ways that may be running with too much privilege.")
version "/smartmontools-" version ".tar.gz"))
(sha256
(base32
"1mlc25sd5rgj5xmzcllci47inmfdw7cp185fday6hc9rwqkqmnaw"))))
"0ax2wf5j8k2fbm85s0rbj9sajn5q3j2a2k22wyqcyn0cin0ghi55"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags
@ -3540,24 +3541,27 @@ a new command using the matched rule, and runs it.")
(define-public di
(package
(name "di")
(version "4.51")
(version "4.52")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/diskinfo-di/di-" version ".tar.gz"))
(uri (string-append "mirror://sourceforge/diskinfo-di/"
"di-" version ".tar.gz"))
(sha256
(base32 "1fv12j9b9sw6p38lcbzcw87zl5qp1aa7a4a4jn3449zz9af15ckr"))))
(base32 "07vsnn1gxm3r7dchbrq63iazd64gza2ac7b2m1039708rf5flxdp"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; obscure test failures
#:phases
(modify-phases %standard-phases
(delete 'configure) ; no configure script
(add-before 'build 'setup-environment
(lambda* (#:key outputs #:allow-other-keys)
(setenv "CC" ,(cc-for-target))
(setenv "prefix" (assoc-ref outputs "out")))))
#:make-flags (list "--environment-overrides")))
(list
#:tests? #f ; obscure test failures
#:phases
#~(modify-phases %standard-phases
(delete 'configure) ; no configure script
(add-before 'build 'override-environment
(lambda _
(setenv "CC" #$(cc-for-target))
(setenv "prefix" #$output))))
#:make-flags
#~(list "--environment-overrides")))
(home-page "https://gentoo.com/di/")
(synopsis "Advanced df like disk information utility")
(description
@ -3900,7 +3904,9 @@ buffers.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0d6jsj77qddccv0vfmqmbw3k2prvxzvmgc8zdi83gdi3wpp5i7zd"))))
(base32 "0d6jsj77qddccv0vfmqmbw3k2prvxzvmgc8zdi83gdi3wpp5i7zd"))
(patches
(search-patches "igt-gpu-tools-Use-libproc2.patch"))))
(build-system meson-build-system)
(arguments
`(#:tests? #f ; many of the tests try to load kernel modules
@ -5764,7 +5770,7 @@ file or files to several hosts.")
(define-public doctl
(package
(name "doctl")
(version "1.93.1")
(version "1.94.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -5773,7 +5779,7 @@ file or files to several hosts.")
(file-name (git-file-name name version))
(sha256
(base32
"18l0avbq1la1wsfwj13kq5prqz6mydhs3ihvf0f3s3vr2y9h71aq"))))
"0a221n0x7qrq0dbhhf1saya2g7jyy1798k3rhy9nzyvqzc4vnd0x"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/digitalocean/doctl/cmd/doctl"

4
gnu/packages/algebra.scm
View File

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

5
gnu/packages/animation.scm
View File

@ -291,7 +291,7 @@ audio or video backends, ensuring good performance.")
(define-public lightspark
(package
(name "lightspark")
(version "0.8.6.1")
(version "0.8.7")
(source
(origin
(method git-fetch)
@ -300,7 +300,7 @@ audio or video backends, ensuring good performance.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1a78l9na01pd7a77r9n8lqih893s54rllpjvrx72sh0yyal1q3gz"))))
(base32 "156yd79dbs6lzp5jc2zd0knw6bk0g8qdm8icp7pkcn95vfvxyzx9"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ;requires Adobe Flex SDK, see README.tests
@ -340,7 +340,6 @@ audio or video backends, ensuring good performance.")
pcre2
rtmpdump
sdl2
sdl2-mixer
zlib))
(home-page "https://lightspark.github.io/")
(synopsis "Flash player implementation")

31
gnu/packages/assembly.scm
View File

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

999
gnu/packages/astronomy.scm
View File

File diff suppressed because it is too large Load Diff

7
gnu/packages/attr.scm
View File

@ -3,6 +3,7 @@
;;; Copyright © 2012, 2013, 2016, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -23,10 +24,10 @@
#:use-module (guix licenses)
#:use-module (gnu packages perl)
#:use-module (gnu packages gettext)
#:use-module (gnu packages hurd)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu))
#:use-module (guix build-system gnu)
#:use-module (guix utils))
(define-public attr
(package
@ -43,7 +44,7 @@
(arguments
`(#:phases
(modify-phases %standard-phases
,@(if (hurd-target?)
,@(if (target-hurd?)
`((add-before 'configure 'skip-linux-syscalls
(lambda _
;; Starting from 2.5.1, libattr includes Linux-specific

73
gnu/packages/audio.scm
View File

@ -44,6 +44,7 @@
;;; Copyright © 2023 David Thompson <dthompson2@worcester.edu>
;;; Copyright © 2023 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2023 Gabriel Wicki <gabriel@erlikon.ch>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -738,7 +739,7 @@ purposes developed at Queen Mary, University of London.")
(define-public ardour
(package
(name "ardour")
(version "7.3")
(version "7.4")
(source (origin
(method git-fetch)
(uri (git-reference
@ -755,7 +756,7 @@ purposes developed at Queen Mary, University of London.")
namespace ARDOUR { const char* revision = \"" version "\" ; const char* date = \"\"; }")))))
(sha256
(base32
"0bkhrgswhc9y1ly8nfg8hpwad77cgbr663dgj86h3aisljc4cdkw"))
"0v66h9fghjyjinldw9yfhhlfi3my235x6n4dpxx432z35lka2h89"))
(file-name (string-append name "-" version))))
(build-system waf-build-system)
(arguments
@ -799,7 +800,6 @@ namespace ARDOUR { const char* revision = \"" version "\" ; const char* date = \
(list alsa-lib
atkmm
aubio
boost
cairomm
curl
dbus
@ -844,7 +844,8 @@ namespace ARDOUR { const char* revision = \"" version "\" ; const char* date = \
taglib
vamp))
(native-inputs
(list cppunit
(list boost
cppunit
gettext-minimal
itstool
perl
@ -860,7 +861,7 @@ engineers, musicians, soundtrack editors and composers.")
(define-public audacity
(package
(name "audacity")
(version "3.3.0-beta-1") ;for ffmpeg 6 support
(version "3.3.3") ;for ffmpeg 6 support
(source
(origin
(method git-fetch)
@ -869,7 +870,7 @@ engineers, musicians, soundtrack editors and composers.")
(commit (string-append "Audacity-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1j1fy8h3vvf3pbyy2vxahf7admcqfmx7m1mxm7g48n54i2f0n1h9"))
(base32 "07jbql4jl2198z0rsa1nsf4p045iv4gz6ym75a60yyznvg0h0zwv"))
(patches (search-patches "audacity-ffmpeg-fallback.patch"))
(modules '((guix build utils)))
(snippet
@ -4447,38 +4448,40 @@ provide high-quality sample rate conversion.")
(version "0.3.2")
(source (origin
(method url-fetch)
(uri (string-append
"http://kokkinizita.linuxaudio.org"
"/linuxaudio/downloads/zita-alsa-pcmi-"
version ".tar.bz2"))
(uri (string-append "http://kokkinizita.linuxaudio.org"
"/linuxaudio/downloads/zita-alsa-pcmi-"
version ".tar.bz2"))
(sha256
(base32
"12d7vdg74yh21w69qi0wg57iz4876j94qbiq09bvscih6xz9y78s"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no "check" target
#:make-flags
(list (string-append "PREFIX=" (assoc-ref %outputs "out"))
(string-append "SUFFIX="))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-makefile-and-enter-directory
(lambda _
(substitute* "source/Makefile"
(("ldconfig") "true")
(("^LIBDIR =.*") "LIBDIR = lib\n"))
(chdir "source")
#t))
(add-after 'install 'install-symlink
(lambda _
(symlink "libzita-alsa-pcmi.so"
(string-append (assoc-ref %outputs "out")
"/lib/libzita-alsa-pcmi.so.0"))
#t))
;; no configure script
(delete 'configure))))
(inputs
(list alsa-lib fftw))
(list #:tests? #f ;no "check" target
#:make-flags #~(list (string-append "PREFIX="
(assoc-ref %outputs "out"))
(string-append "SUFFIX=")
(string-append "CXX="
#$(cxx-for-target)))
#:phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-makefile-and-enter-directory
(lambda _
(substitute* "source/Makefile"
(("ldconfig")
"true")
(("^LIBDIR =.*")
"LIBDIR = lib\n")
(("CXXFLAGS \\+= -march=native")
""))
(chdir "source")))
(add-after 'install 'install-symlink
(lambda _
(symlink "libzita-alsa-pcmi.so"
(string-append (assoc-ref %outputs "out")
"/lib/libzita-alsa-pcmi.so.0"))))
;; no configure script
(delete 'configure))))
(inputs (list alsa-lib fftw))
(properties `((tunable? . #t)))
(home-page "https://kokkinizita.linuxaudio.org")
(synopsis "C++ wrapper around the ALSA API")
(description
@ -6233,7 +6236,7 @@ and DSD streams.")
(define-public qpwgraph
(package
(name "qpwgraph")
(version "0.4.2")
(version "0.4.4")
(source (origin
(method git-fetch)
(uri (git-reference
@ -6242,7 +6245,7 @@ and DSD streams.")
(file-name (git-file-name name version))
(sha256
(base32
"0h5y8n9xm9ay1w53hb5mw6k5i1sm8spz1izmw6yya49gv2pwyhrj"))))
"05j98y8j3f0dybaal6qawq9nsrvr1hylsnig4yk6si16mhb32y7l"))))
(build-system cmake-build-system)
(arguments (list #:tests? #f)) ;; no tests
(inputs (list alsa-lib

25
gnu/packages/authentication.scm
View File

@ -22,11 +22,13 @@
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
#:use-module (gnu packages documentation)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages linux)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages security-token)
#:use-module (gnu packages tls)
#:use-module (gnu packages xml)
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system go)
#:use-module (guix download)
@ -34,6 +36,29 @@
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages))
(define-public libcotp
(package
(name "libcotp")
(version "2.0.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/paolostivanin/libcotp")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "12ps2msclcbv53gjf936cny10an8sc70b9frp6xxjirfn5jg2h63"))))
(build-system cmake-build-system)
(inputs (list libgcrypt))
(native-inputs (list pkg-config))
(home-page "https://github.com/paolostivanin/libcotp")
(synopsis "One-Time Passwords")
(description "This package provides a library to generate
@acronym{HOTP, HMAC-base One-Time Password}s as specified in RFC 4226 and
@acronym{TOTP, Time-based One-Time Password}s as specified in RFC 6238.")
(license license:asl2.0)))
(define-public oath-toolkit
(package
(name "oath-toolkit")

6
gnu/packages/backup.scm
View File

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

44
gnu/packages/base.scm
View File

@ -6,7 +6,7 @@
;;; Copyright © 2014 Alex Kost <alezost@gmail.com>
;;; Copyright © 2014, 2015 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2016, 2017, 2019-2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2016, 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2016, 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2017 Rene Saavedra <rennes@openmailbox.org>
;;; Copyright © 2017, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
@ -132,7 +132,7 @@ command-line arguments, multiple languages, and so on.")
(string-append bin "/fgrep"))
(("^exec grep")
(string-append "exec " bin "/grep"))))))
,@(if (hurd-target?)
,@(if (target-hurd?)
'((add-before 'check 'skip-triple-backref-test
(lambda _
;; This test is marked as malfunctioning on glibc systems
@ -144,7 +144,7 @@ command-line arguments, multiple languages, and so on.")
(("^warn_" all)
(string-append "exit 77\n" all))))))
'()))
#:make-flags ,(if (hurd-target?)
#:make-flags ,(if (target-hurd?)
''("XFAIL_TESTS=test-perror2 equiv-classes") ;XXX
''())))
(synopsis "Print lines matching a pattern")
@ -186,7 +186,7 @@ including, for example, recursive directory searching.")
(modules '((guix build utils)))))
(build-system gnu-build-system)
(arguments
`(#:make-flags ,(if (hurd-target?)
`(#:make-flags ,(if (target-hurd?)
''("XFAIL_TESTS=test-perror2")
''())))
(synopsis "Stream editor")
@ -217,7 +217,7 @@ implementation offers several extensions over the standard utility.")
;; Note: test suite requires ~1GiB of disk space.
(arguments
`(,@(cond
((hurd-target?)
((target-hurd?)
'(#:make-flags
(list (string-append
"TESTSUITEFLAGS= -k '"
@ -309,7 +309,7 @@ differences.")
(patches (search-patches "diffutils-fix-signal-processing.patch"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags ,(if (hurd-target?)
`(#:make-flags ,(if (target-hurd?)
''("XFAIL_TESTS=test-perror2 large-subopt")
''())))
(native-inputs (list perl))
@ -347,7 +347,7 @@ interactive means to merge two files.")
"tests/find/exec-plus-last-file.sh")
(("#!/bin/sh")
(string-append "#!" (which "sh")))))))
#:make-flags ,(if (hurd-target?)
#:make-flags ,(if (target-hurd?)
''("XFAIL_TESTS=test-strerror_r")
''())))
(synopsis "Operating on files matching given criteria")
@ -395,7 +395,7 @@ used to apply commands with arbitrarily long arguments.")
(outputs '("out" "debug"))
(arguments
`(#:parallel-build? #f ; help2man may be called too early
,@(if (hurd-target?)
,@(if (target-hurd?)
'(#:make-flags ; these tests fail deterministically
(list (string-append "XFAIL_TESTS=tests/misc/env-S.pl"
" tests/misc/kill.sh"
@ -433,7 +433,7 @@ used to apply commands with arbitrarily long arguments.")
(("#!/bin/sh") (string-append "#!" (which "sh"))))))
(add-after 'unpack 'remove-tests
(lambda _
,@(if (hurd-target?)
,@(if (target-hurd?)
'((substitute* "Makefile.in"
;; this test hangs
(("^ *tests/misc/timeout-group.sh.*") ""))
@ -511,7 +511,7 @@ standard.")
(inputs (list guile-3.0))
(outputs '("out" "debug"))
(arguments
`(,@(if (hurd-target?)
`(,@(if (target-hurd?)
'(#:configure-flags '("CFLAGS=-D__alloca=alloca"
"ac_cv_func_posix_spawn=no"))
'())
@ -798,7 +798,7 @@ the store.")
;; libc provides <hurd.h>, which includes a bunch of Hurd and Mach headers,
;; so both should be propagated.
(propagated-inputs
(if (hurd-target?)
(if (target-hurd?)
`(("hurd-core-headers" ,hurd-core-headers))
`(("kernel-headers" ,linux-libre-headers))))
@ -864,7 +864,7 @@ the store.")
;; On GNU/Hurd we get discarded-qualifiers warnings for
;; 'device_write_inband' among other things. Ignore them.
,@(if (hurd-target?)
,@(if (target-hurd?)
`("--disable-werror"
,@%glibc/hurd-configure-flags)
'()))
@ -992,7 +992,7 @@ the store.")
(map (cut string-append slib "/" <>)
files))))))
,@(if (hurd-target?)
,@(if (target-hurd?)
'((add-after 'install 'augment-libc.so
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")))
@ -1012,7 +1012,7 @@ the store.")
("gettext" ,gettext-minimal)
("python" ,python-minimal)
,@(if (hurd-target?)
,@(if (target-hurd?)
`(("mig" ,mig)
("perl" ,perl))
'())))
@ -1066,12 +1066,13 @@ with the Linux kernel.")
(base32
"1zvp0qdfbdyqrzydz18d9zg3n5ygy8ps7cmny1bvsp8h1q05c99f"))
(patches
;; Remove a patch that's become irrelevant and that does not
;; apply to this version.
(remove (lambda (patch)
(string=? (basename patch)
"glibc-hurd-clock_gettime_monotonic.patch"))
(origin-patches (package-source glibc))))))
(cons (search-patch "glibc-2.33-riscv64-miscompilation.patch")
;; Remove a patch that's become irrelevant and that does not
;; apply to this version.
(remove (lambda (patch)
(string=? (basename patch)
"glibc-hurd-clock_gettime_monotonic.patch"))
(origin-patches (package-source glibc)))))))
(arguments
(substitute-keyword-arguments (package-arguments glibc)
((#:configure-flags flags ''())
@ -1379,6 +1380,9 @@ test environments.")
(make-glibc-utf8-locales glibc)))
;; Packages provided to ease use of binaries linked against the previous libc.
(define-public glibc-locales-2.33
(package (inherit (make-glibc-locales glibc-2.33))
(name "glibc-locales-2.33")))
(define-public glibc-locales-2.32
(package (inherit (make-glibc-locales glibc-2.32))
(name "glibc-locales-2.32")))

19
gnu/packages/bash.scm
View File

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

309
gnu/packages/bioconductor.scm
View File

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

410
gnu/packages/bioinformatics.scm
View File

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

83
gnu/packages/bittorrent.scm
View File

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

13
gnu/packages/bootloaders.scm
View File

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

1
gnu/packages/bootstrap.scm
View File

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

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

@ -171,14 +171,14 @@ generate such a compilation database.")
(define-public bmake
(package
(name "bmake")
(version "20230321")
(version "20230622")
(source
(origin
(method url-fetch)
(uri (string-append
"http://www.crufty.net/ftp/pub/sjg/bmake-" version ".tar.gz"))
(sha256
(base32 "0ml2z9ij674bd4227566n0547pcpxpmimp4xw4hj52kl1265czgd"))))
(base32 "007ckj2381bmwpxy5zmy2m19p2hxaj7ld80b5lv7i798c2fwj15l"))))
(build-system gnu-build-system)
(inputs
(list bash-minimal))
@ -211,7 +211,7 @@ generate such a compilation database.")
(string-append
"--with-default-sys-path=" #$output "/share/mk"))
#:make-flags
#~(list "INSTALL=install"))) ;; use coreutils install
#~(list "INSTALL=install"))) ; use coreutils' install
(home-page "http://www.crufty.net/help/sjg/bmake.htm")
(synopsis "BSD's make")
(description
@ -293,6 +293,7 @@ files and generates build instructions for the Ninja build system.")
(define-public meson
(package
(name "meson")
(replacement meson/newer)
(version "1.1.0")
(source (origin
(method url-fetch)
@ -329,6 +330,19 @@ files}, are written in a custom domain-specific language (@dfn{DSL}) that
resembles Python.")
(license license:asl2.0)))
(define-public meson/newer
(package
(inherit meson)
(version "1.1.1")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/mesonbuild/meson/"
"releases/download/" version "/meson-"
version ".tar.gz"))
(sha256
(base32
"073vf8059nzs6p5aaqr5wva4pgl81540szdb5yw9yhyajwgm8jyh"))))))
(define-public meson-python
(package
(name "meson-python")
@ -535,14 +549,14 @@ software.")
(define-public tup
(package
(name "tup")
(version "0.7.9")
(version "0.7.11")
(source (origin
(method url-fetch)
(uri (string-append "http://gittup.org/tup/releases/tup-v"
version ".tar.gz"))
(sha256
(base32
"0gnd2598xqgwihdkfkx7qn0q6p4n7npam1fy83mp7s04zwj99syc"))
"1157qfnhjakm3h07y7h38lrjw5650gkif34k30bnrsypmwl5xyzb"))
(patches (search-patches "tup-unbundle-dependencies.patch"))
(modules '((guix build utils)))
(snippet
@ -591,7 +605,7 @@ software.")
(display "au BufNewFile,BufRead Tupfile,*.tup setf tup")))
#t))))))
(inputs
(list fuse pcre
(list fuse-3 pcre
`(,pcre "bin") ; pcre-config
sqlite))
(native-inputs

42
gnu/packages/c.scm
View File

@ -18,6 +18,7 @@
;;; Copyright © 2022 Ekaitz Zarraga <ekaitz@elenq.tech>
;;; Copyright © 2022 ( <paren@disroot.org>
;;; Copyright © 2023 zamfofex <zamfofex@twdb.moe>
;;; Copyright © 2023 Foundation Devices, Inc. <hello@foundationdevices.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -241,6 +242,47 @@ standard.")
;; (if ever) complete. See the RELICENSING file for more information.
(license license:lgpl2.1+))))
(define-public tomlc99
(let ((revision "0")
(commit "52e9c039c5418a100605c2db1282590511fa891b"))
(package
(name "tomlc99")
(version (git-version "1.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/cktan/tomlc99")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1zrn5mmd1ysxma96jzrq50xqypbs3rhk6dwlj1wcjpjz1a4h9wgg"))))
(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
(delete 'configure)
(replace 'check
(lambda* (#:key tests? make-flags
#:allow-other-keys)
(when tests?
(apply invoke
`("make" "-C" "unittest"
,@make-flags))
(invoke "./unittest/t1")))))))
(home-page "https://github.com/cktan/tomlc99")
(synopsis "TOML library for C")
(description
"This library is a C99 implementation to read
@acronym{TOML, Tom's Obvious Minimal Language} text documents.
This library is compatible with the @url{https://toml.io/en/v1.0.0,v1.0.0}
specification of the language.")
(license license:expat))))
(define-public pcc
(package
(name "pcc")

25
gnu/packages/calendar.scm
View File

@ -2,7 +2,7 @@
;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2015, 2016, 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2016, 2017, 2020, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017, 2020, 2022, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Troy Sankey <sankeytms@gmail.com>
;;; Copyright © 2016, 2021 Stefan Reichoer <stefan@xsteve.at>
;;; Copyright © 2018, 2019, 2021 Tobias Geerinckx-Rice <me@tobias.gr>
@ -177,13 +177,13 @@ data units.")
(define-public khal
(package
(name "khal")
(version "0.11.1")
(version "0.11.2")
(source (origin
(method url-fetch)
(uri (pypi-uri "khal" version))
(sha256
(base32
"07k0cfbfkx9fhfk4gf73vh34c05i1cb72gc15a1lmx9knxy4h503"))))
"1flrz01nsmvphiv673b8ia279qcp3gj6a1rsjlsj4gp5f69xif4g"))))
(build-system python-build-system)
(arguments
`(#:tests? #f ; The test suite is unreliable. See <https://bugs.gnu.org/44197>
@ -202,17 +202,18 @@ data units.")
;; Required to build manpage
python-sphinxcontrib-newsfeed python-sphinx))
(inputs
(list python-configobj
python-dateutil
python-icalendar
python-tzlocal
python-urwid
python-pytz
python-setproctitle
python-atomicwrites
(list python-atomicwrites
python-click
python-click-log
python-pyxdg))
python-configobj
python-dateutil
python-icalendar
python-pytz
python-pyxdg
python-tzlocal
python-urwid
;; For the extras.
python-setproctitle))
(synopsis "Console calendar program")
(description "Khal is a standards based console calendar program,
able to synchronize with CalDAV servers through vdirsyncer. It includes

4
gnu/packages/cdrom.scm
View File

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

150
gnu/packages/check.scm
View File

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

2
gnu/packages/ci.scm
View File

@ -142,7 +142,7 @@
(inputs
(list guile-3.0-latest
guile-avahi
guile-fibers-1.1
guile-fibers-1.3
guile-gcrypt
guile-json-4
guile-simple-zmq

1
gnu/packages/cinnamon.scm
View File

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

3
gnu/packages/cmake.scm
View File

@ -46,7 +46,6 @@
#:use-module (gnu packages crypto)
#:use-module (gnu packages curl)
#:use-module (gnu packages file)
#:use-module (gnu packages hurd)
#:use-module (gnu packages kde-frameworks)
#:use-module (gnu packages libevent)
#:use-module (gnu packages ncurses)
@ -214,7 +213,7 @@ using the CMake build system.")
(apply invoke "./configure" configure-flags))))))
(inputs
(append
(if (hurd-target?)
(if (target-hurd?)
'()
(list libuv)) ;not supported on the Hurd
(list bzip2

12
gnu/packages/commencement.scm
View File

@ -5,7 +5,7 @@
;;; Copyright © 2014, 2015, 2017 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2017, 2018, 2019, 2021, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020, 2021, 2022, 2023 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2018, 2019, 2020, 2021, 2022, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2019-2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020, 2022 Timothy Sample <samplet@ngyro.com>
;;; Copyright © 2020 Guy Fleury Iteriteka <gfleury@disroot.org>
@ -2786,7 +2786,7 @@ memoized as a function of '%current-system'."
"/lib/python"
,(version-major+minor version)
"/test"))))
,@(if (hurd-system?)
,@(if (system-hurd?)
`((add-before 'build 'fix-regen
(lambda* (#:key inputs #:allow-other-keys)
(let ((libc (assoc-ref inputs "libc")))
@ -2841,7 +2841,7 @@ memoized as a function of '%current-system'."
`(append (list ,(string-append "--host=" (boot-triplet))
,(string-append "--build="
(nix-system->gnu-triplet))
,(if (hurd-system?) "--disable-werror"
,(if (system-hurd?) "--disable-werror"
""))
,flags))
((#:phases phases)
@ -2853,7 +2853,7 @@ memoized as a function of '%current-system'."
(unsetenv "CPLUS_INCLUDE_PATH")
;; Tell 'libpthread' where to find 'libihash' on Hurd systems.
,@(if (hurd-system?)
,@(if (system-hurd?)
'((substitute* '("sysdeps/mach/Makefile"
"sysdeps/mach/hurd/Makefile")
(("LDLIBS-pthread.so =.*")
@ -2873,7 +2873,7 @@ memoized as a function of '%current-system'."
,@(%boot1-inputs)
;; A native MiG is needed to build Glibc on Hurd.
,@(if (hurd-system?)
,@(if (system-hurd?)
`(("mig" ,mig-boot0))
'())
@ -3024,7 +3024,7 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%"
(,(gexp-input gcc-boot0 "lib")
,(kernel-headers-boot0)
,static-bash-for-glibc
,@(if (hurd-system?)
,@(if (system-hurd?)
`(,gnumach-headers-boot0
,hurd-headers-boot0)
'())

8
gnu/packages/compression.scm
View File

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

2
gnu/packages/configuration-management.scm
View File

@ -78,7 +78,7 @@
go-github-com-google-goterm
go-github-com-lucasb-eyer-go-colorful
go-github-com-mattn-go-isatty
go-github.com-mattn-go-runewidth
go-github-com-mattn-go-runewidth
go-github-com-olekukonko-tablewriter
go-github-com-pelletier-go-toml
go-github-com-pkg-diff

2
gnu/packages/containers.scm
View File

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

191
gnu/packages/cpp.scm
View File

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

1111
gnu/packages/cran.scm
View File

File diff suppressed because it is too large Load Diff

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

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

70
gnu/packages/crypto.scm
View File

@ -1099,48 +1099,50 @@ trivial to build for local use. Portability is emphasized over performance.")
(license license:unlicense)))
(define-public libsecp256k1
(let ((commit "dbd41db16a0e91b2566820898a3ab2d7dad4fe00"))
(package
(name "libsecp256k1")
(version (git-version "20200615" "1" commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/bitcoin-core/secp256k1")
(commit commit)))
(sha256
(base32
"1fcpnksq5cqwqzshn5f0lq94b73p3frwbp04hgmmbnrndpqg6mpy"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags '("--enable-module-recovery"
"--enable-experimental"
"--enable-module-ecdh"
"--enable-shared")))
(native-inputs
(list autoconf automake libtool))
;; WARNING: This package might need additional configure flags to run properly.
;; See https://github.com/archlinux/svntogit-community/blob/packages/libsecp256k1/trunk/PKGBUILD.
(synopsis "C library for EC operations on curve secp256k1")
(description
"Optimized C library for EC operations on curve secp256k1.
This library is a work in progress and is being used to research best
practices. Use at your own risk.
(package
(name "libsecp256k1")
(version "0.3.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/bitcoin-core/secp256k1")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"12wksk7bi3yfzmk1zwh5b6846zcaycqz1w4w4p23apjc8da4jwpn"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags '("--enable-module-recovery"
"--enable-experimental"
"--enable-module-ecdh"
"--enable-module-schnorrsig"
"--enable-shared"
"--disable-static"
"--disable-benchmark")))
(native-inputs
(list autoconf automake libtool))
(synopsis "C library for EC operations on curve secp256k1")
(description
"Optimized C library for EC operations on curve secp256k1.
Features:
@itemize
@item secp256k1 ECDSA signing/verification and key generation.
@item Adding/multiplying private/public keys.
@item Additive and multiplicative tweaking of secret/public keys.
@item Serialization/parsing of private keys, public keys, signatures.
@item Constant time, constant memory access signing and pubkey generation.
@item Derandomized DSA (via RFC6979 or with a caller provided function.)
@item Constant time, constant memory access signing and public key generation.
@item Derandomized ECDSA (via RFC6979 or with a caller provided function.)
@item Very efficient implementation.
@item Suitable for embedded systems.
@item No runtime dependencies.
@item Optional module for public key recovery.
@item Optional module for ECDH key exchange.
@item Optional module for Schnorr signatures according to BIP-340.
@end itemize\n")
(home-page "https://github.com/bitcoin-core/secp256k1")
(license license:unlicense))))
(home-page "https://github.com/bitcoin-core/secp256k1")
(license license:expat)))
(define-public libsecp256k1-bitcoin-cash
(package

39
gnu/packages/cups.scm
View File

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

40
gnu/packages/databases.scm
View File

@ -1556,20 +1556,32 @@ organized in a hash table or B+ tree.")
(build-system gnu-build-system)
(arguments
(list #:configure-flags
'(list "--disable-static"
(string-append "--with-bash-headers="
(dirname (search-input-directory
%build-inputs
"include/bash"))))))
#~(list "--disable-static"
(string-append "--with-bash-headers="
(search-input-directory %build-inputs
"include/bash")))
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'symlink-bash-loadables
(lambda* (#:key outputs #:allow-other-keys)
(with-directory-excursion (string-append
(assoc-ref outputs "out")
"/lib")
(mkdir "bash")
(for-each
(compose symlink
(lambda (loadable)
(values
(string-append (getcwd) "/" loadable ".so")
(string-append "bash/" loadable))))
'("readrec" "testrec"))))))))
(native-inputs
;; XXX Without labels, the default 'configure phase picks the wrong "bash".
`(("bc" ,bc)
("bash:include" ,bash "include")
("check" ,check)
("pkg-config" ,pkg-config)))
(list bc check-0.14 pkg-config))
(inputs
;; TODO: Add more optional inputs.
(list curl
(list bash ; /bin/bash for native compilation
`(,bash "include")
curl
libgcrypt
`(,util-linux "lib")))
(synopsis "Manipulate plain text files as databases")
@ -4289,7 +4301,7 @@ the SQL language using a syntax that reflects the resulting query.")
(define-public apache-arrow
(package
(name "apache-arrow")
(version "12.0.0")
(version "12.0.1")
(source
(origin
(method git-fetch)
@ -4299,7 +4311,7 @@ the SQL language using a syntax that reflects the resulting query.")
(file-name (git-file-name name version))
(sha256
(base32
"057n3l9bpnfn8fqlqblkdz4w4rkmkr7zrh3adlgfw4nipwmm38zj"))))
"03flvb4xj6a7mfphx68ndrqr6g5jphmzb75m16fx7rnbzira2zpz"))))
(build-system cmake-build-system)
(arguments
(list
@ -5075,7 +5087,7 @@ compatible with SQLite using a graphical user interface.")
go-github-com-pkg-errors
go-github-com-sourcegraph-jsonrpc2
go-golang-org-x-crypto
go-github.com-mattn-go-runewidth
go-github-com-mattn-go-runewidth
go-golang-org-x-xerrors
go-gopkg-in-yaml-v2))
(synopsis "SQL language server written in Go")

103
gnu/packages/debian.scm
View File

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

6
gnu/packages/debug.scm
View File

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

5
gnu/packages/dezyne.scm
View File

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

83
gnu/packages/disk.scm
View File

@ -25,6 +25,7 @@
;;; Copyright © 2014, 2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Disseminate Dissent <disseminatedissent@protonmail.com>
;;; Copyright © 2023 Timotej Lazar <timotej.lazar@araneo.si>
;;;
;;; This file is part of GNU Guix.
;;;
@ -43,6 +44,7 @@
(define-module (gnu packages disk)
#:use-module (gnu packages)
#:use-module (gnu packages admin)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
@ -76,6 +78,9 @@
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages popt)
#:use-module (gnu packages python)
#:use-module (gnu packages python-build)
#:use-module (gnu packages python-crypto)
#:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt)
#:use-module (gnu packages readline)
@ -572,6 +577,42 @@ the default timer setting is not well suited to Linux or other *nix systems,
and can dramatically shorten the lifespan of the drive if left unchecked.")
(license license:gpl3+)))
(define-public greaseweazle-host-tools
(package
(name "greaseweazle-host-tools")
(version "1.12")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/keirf/greaseweazle")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1lpvjlf2xg4ccwik8npiihi0lgw9dx5h12pp4ry343gkz4pwgk9x"))))
(build-system python-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-before 'build 'setuptools-version
(lambda _
(setenv "SETUPTOOLS_SCM_PRETEND_VERSION" "1.8")))
(add-after 'install 'install-udev-rules
(lambda _
(install-file "scripts/49-greaseweazle.rules"
(string-append #$output "/lib/udev/rules.d/")))))))
(native-inputs (list python-setuptools-scm))
(propagated-inputs
(list python-bitarray python-crcmod python-pyserial python-requests))
(synopsis "Tools for accessing a floppy drive at the raw flux level")
(description
"This package provides the host tools for controlling a Greaseweazle: an
Open Source USB device capable of reading and writing raw data on nearly any
type of floppy disk")
(home-page "https://github.com/keirf/greaseweazle")
(license license:public-domain)))
(define-public gparted
(package
(name "gparted")
@ -1159,7 +1200,7 @@ on your file system and offers to remove it. @command{rmlint} can find:
"1piym8za0iw2s8yryh39y072f90mzisv89ffvn1jzb71f71mbfqa"))))
(build-system go-build-system)
(native-inputs
(list go-github.com-mattn-go-runewidth go-golang-org-x-term
(list go-github-com-mattn-go-runewidth go-golang-org-x-term
go-gopkg-in-djherbis-times-v1 go-github-com-gdamore-tcell-v2-2.3))
(arguments
`(#:import-path "github.com/gokcehan/lf"))
@ -1502,6 +1543,46 @@ gone and to help you to clean it up.")
(home-page "https://github.com/shundhammer/qdirstat")
(license license:gpl2)))
(define-public nwipe
(package
(name "nwipe")
(version "0.34")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/martijnvanbrummelen/nwipe")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1frwjgz4mpzwr9sigr693crmxsjl08wcikh6ik7dm0x40l1kqqpd"))))
(build-system gnu-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(wrap-program (search-input-file outputs "bin/nwipe")
(list "PATH" ":" 'prefix
(map (lambda (p) (dirname (search-input-file inputs p)))
'("sbin/dmidecode"
"sbin/hdparm"
"sbin/smartctl")))))))))
(inputs
(list bash-minimal dmidecode hdparm ncurses parted smartmontools))
(native-inputs
(list autoconf automake libtool pkg-config))
(home-page "https://github.com/martijnvanbrummelen/nwipe")
(synopsis "Secure disk wiping utility")
(description
"@command{nwipe} securely erases disks using a variety of methods to
ensure the data cannot be recovered. It can wipe multiple drives in parallel
and can be used noninteractively or with a text-based user interface.")
(license
(list license:gpl2
license:bsd-3 ; mt19937ar-cok
license:public-domain)))) ; {isaac_rand,PDFGen}
(define-public wipe
(package
(name "wipe")

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

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

26
gnu/packages/distributed.scm
View File

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

72
gnu/packages/dns.scm
View File

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

29
gnu/packages/docker.scm
View File

@ -2,7 +2,7 @@
;;; Copyright © 2016 David Thompson <davet@gnu.org>
;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019, 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2019, 2020, 2021, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020 Katherine Cox-Buday <cox.katherine.e@gmail.com>
;;; Copyright © 2020 Jesse Dowell <jessedowell@gmail.com>
@ -664,7 +664,7 @@ provisioning etc.")
(define-public cqfd
(package
(name "cqfd")
(version "5.3.0")
(version "5.4.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -673,25 +673,18 @@ provisioning etc.")
(file-name (git-file-name name version))
(sha256
(base32
"0gy4kjy6v52acfk6ffbg5sp02k6176khhkms7zlwmywq8591bpww"))))
"1kilrh4ahza19lka9218s2wkfcbk5r2cq9adczhlnlfggdrqnglg"))))
(build-system gnu-build-system)
(arguments
;; The test suite requires a docker daemon and connectivity.
`(#:tests? #f
#:phases
(modify-phases %standard-phases
(delete 'configure)
(delete 'build)
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
;; Fix the directory of the bash completion.
(substitute* "Makefile"
(("completionsdir=.*$")
(string-append "completionsdir=" out
"/etc/bash_completion.d; \\\n")))
(invoke "make" "install"
(string-append "PREFIX=" out))))))))
(list
#:tests? #f
#:make-flags #~(list (string-append "COMPLETIONSDIR="
#$output "/etc/bash_completion.d")
(string-append "PREFIX=" #$output))
#:phases #~(modify-phases %standard-phases
(delete 'configure)
(delete 'build))))
(home-page "https://github.com/savoirfairelinux/cqfd")
(synopsis "Convenience wrapper for Docker")
(description "cqfd is a Bash script that provides a quick and convenient

4
gnu/packages/documentation.scm
View File

@ -370,7 +370,7 @@ the Net to search for documents which are not on the local system.")
(license lgpl2.1+)))
(define-public zeal
(let ((commit "d3c5521c501d24050f578348ff1b9d68244b992c")
(let ((commit "1cfa7c637f745be9d98777f06b4f8dec90892bf2")
(revision "1"))
(package
(name "zeal")
@ -383,7 +383,7 @@ the Net to search for documents which are not on the local system.")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1ky2qi2cmjckc51lm3i28815ixgqdm36j7smixxr16jxpmbqs6sl"))))
(base32 "1m7pp3cwc21x03718vhwfd9j2n8md3hv5dp10s234vcsd755s7a3"))))
(build-system qt-build-system)
(arguments
`(#:tests? #f ;no tests

12
gnu/packages/education.scm
View File

@ -1102,16 +1102,16 @@ mentored learning for programming languages.")
(define-public mazo
(package
(name "mazo")
(version "1.0.0")
(version "1.1.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/luis-felipe/mazo.git")
(url "https://codeberg.org/luis-felipe/mazo.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "06246380i5rxycniwg5syn0aldd2zy10cbqk1lgyc0qfqb2lyrwj"))))
(base32 "14nk3qsj6lg7wp2ws8lxhb4hyjnczvw1cn9f3m466dkkfimp7ygf"))))
(build-system python-build-system)
(arguments
`(#:use-setuptools? #f
@ -1155,8 +1155,10 @@ mentored learning for programming languages.")
python-pillow
python-pycairo))
(propagated-inputs
(list gstreamer
gtk+
(list adwaita-icon-theme
dbus
gstreamer
gtk
python
python-django
python-django-cleanup

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

File diff suppressed because it is too large Load Diff

4
gnu/packages/emacs.scm
View File

@ -98,7 +98,7 @@
(define-public emacs-minimal
(package
(name "emacs-minimal")
(version "29.0.91")
(version "29.0.92")
(source (origin
;; TODO: Restore url-fetch when serving 29.1
;; (method url-fetch)
@ -110,7 +110,7 @@
(commit (string-append "emacs-" version))))
(sha256
(base32
"09jm1q5pvd1dc0xq5rhn66v1j235zlr72kwv5i27xigvi9nfqkv1"))
"1h3p325859svcy43iv7wr27dp68049j9d44jq5akcynqdkxz4jjn"))
(patches (search-patches "emacs-exec-path.patch"
"emacs-fix-scheme-indent-function.patch"
"emacs-native-comp-driver-options.patch"

8
gnu/packages/embedded.scm
View File

@ -12,6 +12,7 @@
;;; Copyright © 2021 Morgan Smith <Morgan.J.Smith@outlook.com>
;;; Copyright © 2022 Mathieu Othacehe <othacehe@gnu.org>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -559,7 +560,12 @@ SEGGER J-Link and compatible devices.")
(lambda _
;; XXX All but 1 SSL tests fail (tries connecting to Google
;; servers).
(delete-file "tests/ssl.test"))))))
(delete-file "tests/ssl.test")))
#$@(if (not (target-64bit?))
#~((add-after 'unpack 'delete-failing-tests/32bit
(lambda _
(delete-file "tests/file.test"))))
#~()))))
(inputs (list openssl))
(native-inputs
;; For tests.

8
gnu/packages/emulators.scm
View File

@ -725,7 +725,7 @@ The following systems are supported:
(define-public mgba
(package
(name "mgba")
(version "0.10.1")
(version "0.10.2")
(source
(origin
(method git-fetch)
@ -734,7 +734,8 @@ The following systems are supported:
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0pqfjsr9q61a3mgmvqxxkalxb838k46q9ilz31frpcvvndif0sm1"))
(base32
"1wwpjcblp2c1svab4z1if5xb7707wsy6zw590lwdz9za35i0h37q"))
(modules '((guix build utils)))
(snippet
;; Make sure we don't use the bundled software.
@ -750,8 +751,7 @@ The following systems are supported:
#:configure-flags
(list "-DUSE_LZMA=OFF" ;do not use bundled LZMA
"-DUSE_LIBZIP=OFF"))) ;use "zlib" instead
(native-inputs
(list pkg-config qttools-5))
(native-inputs (list pkg-config qttools-5))
(inputs
(list ffmpeg
libedit

12
gnu/packages/engineering.scm
View File

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

8
gnu/packages/erlang.scm
View File

@ -8,6 +8,7 @@
;;; Copyright © 2021 Oskar Köök <oskar@maatriks.ee>
;;; Copyright © 2021 Cees de Groot <cg@evrl.com>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;; Copyright © 2023 wrobell <wrobell@riseup.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -45,7 +46,7 @@
(define-public erlang
(package
(name "erlang")
(version "25.3")
(version "25.3.2")
(source (origin
(method git-fetch)
;; The tarball from http://erlang.org/download contains many
@ -57,7 +58,7 @@
(file-name (git-file-name name version))
(sha256
(base32
"0jw230fy0z358aj1xi80hg14qyqyj5p4wp0pfifkr0n694j3h2d1"))
"092lym5a181gz89nscw7kqhw1wa6qvgcpkj80q4i9p79mxmsr1nj"))
(patches (search-patches "erlang-man-path.patch"))))
(build-system gnu-build-system)
(native-inputs
@ -168,7 +169,8 @@
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(substitute* (string-append out "/bin/erl")
(("sed") (which "sed"))))))
(("basename") (which "basename"))
(("dirname") (which "dirname"))))))
(add-after 'install 'install-doc
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))

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

@ -477,7 +477,7 @@ significantly increases the risk of irreversible data loss!")
(define-public gocryptfs
(package
(name "gocryptfs")
(version "2.3.1")
(version "2.4.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -486,7 +486,7 @@ significantly increases the risk of irreversible data loss!")
(file-name (git-file-name name version))
(sha256
(base32
"1m0xk5imkx81i1l4wv1j1xh9ckp0gqssq4v46pkkcq2xlv2dvxlr"))))
"08pdfx6bs1dc2k7xv54x7i1qbych4a7dlf31qwcm9wlz7lr5lawm"))))
(build-system go-build-system)
(arguments
(list
@ -1364,7 +1364,7 @@ with the included @command{xfstests-check} helper.")
(define-public zfs
(package
(name "zfs")
(version "2.1.11")
(version "2.1.12")
(outputs '("out" "module" "src"))
(source
(origin
@ -1373,7 +1373,7 @@ with the included @command{xfstests-check} helper.")
"/download/zfs-" version
"/zfs-" version ".tar.gz"))
(sha256
(base32 "1cnfv3adk7prl6b8r3nw62y6dbjy2q7ai68p9xc0g8nhaklf8kx5"))))
(base32 "0vbf9kfryprb2mbb65jllf6xpsy44xskshglyqqwj4iyxmma5nk4"))))
(build-system linux-module-build-system)
(arguments
(list
@ -1951,7 +1951,7 @@ in FUSE for rootless containers.")
(define-public bees
(package
(name "bees")
(version "0.9.2")
(version "0.10")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1970,7 +1970,7 @@ in FUSE for rootless containers.")
(("#include .crucible/city.h.") "#include <city.h>"))))
(sha256
(base32
"0xik1xg6ma5yglhvs60ny27242iapqwzikmqbgij1avjffs6776a"))))
"1j1v9bxijs8gvrb7rg0q1158xjvmfc8dlzwx768fxf3w8w2gfwvz"))))
(build-system gnu-build-system)
(arguments
(list #:test-target "test"

53
gnu/packages/finance.scm
View File

@ -288,14 +288,14 @@ Accounting.")
(define-public homebank
(package
(name "homebank")
(version "5.6.3")
(version "5.6.5")
(source (origin
(method url-fetch)
(uri (string-append "http://homebank.free.fr/public/sources/"
"homebank-" version ".tar.gz"))
(sha256
(base32
"0a1qhbnifqs0j59m1w5wfj1ix8iywmy1kc8185zvxndvckspb521"))))
"1a1cdldvs0xc30xkxkap72gafss90hmglakad5r8aykxz3y4sjdm"))))
(build-system glib-or-gtk-build-system)
(native-inputs
(list pkg-config intltool))
@ -312,7 +312,7 @@ and dynamically with report tools based on filtering and graphical charts.")
(define-public ledger
(package
(name "ledger")
(version "3.3.1")
(version "3.3.2")
(source
(origin
(method git-fetch)
@ -321,7 +321,7 @@ and dynamically with report tools based on filtering and graphical charts.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "13bbnfb08ymm54wg12dapqhalh7iialfs66qdbk2adl1aaq36wqa"))))
(base32 "0vchc97952w3fkkdn3v0nzjlgzg83cblwsi647jp3k9jq6rvhaak"))))
(build-system cmake-build-system)
(arguments
`(#:modules (,@%cmake-build-system-modules
@ -547,7 +547,7 @@ do so.")
(define-public electrum
(package
(name "electrum")
(version "4.3.2")
(version "4.4.5")
(source
(origin
(method url-fetch)
@ -555,13 +555,12 @@ do so.")
version "/Electrum-"
version ".tar.gz"))
(sha256
(base32 "1kbyinm9fnxpx9chkyd11yr9rxvcxvw3ml7kzvxcfa8v7jnl0dmx"))
(base32 "1gifnb927b51947psbj58c7kdsgncn3d9j7rpk5mls678yf1qd5d"))
(modules '((guix build utils)))
(snippet
'(begin
;; Delete the bundled dependencies.
(delete-file-recursively "packages")
#t))))
(delete-file-recursively "packages")))))
(build-system python-build-system)
(inputs
(list libsecp256k1
@ -585,31 +584,13 @@ do so.")
`(#:tests? #f ; no tests
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-prefix
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
;; setup.py installs to ~/.local/share if sys.prefix/share isn't
;; writable. sys.prefix points to Python's, not our, --prefix.
(mkdir-p (string-append out "/share"))
(substitute* "setup.py"
(("sys\\.prefix")
(format #f "\"~a\"" out)))
#t)))
(add-after 'unpack 'relax-dnspython-version-requirement
;; The version requirement for dnspython>=2.0,<2.1 makes the
;; sanity-check phase fail, but the application seems to be working
;; fine with dnspython 2.1 (the version we have currently).
(lambda _
(substitute* "contrib/requirements/requirements.txt"
(("dnspython>=.*")
"dnspython"))))
(add-after 'unpack 'use-libsecp256k1-input
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "electrum/ecc_fast.py"
(("library_paths = .* 'libsecp256k1.so.0'.")
(string-append "library_paths = ('"
(("library_paths = \\[\\]")
(string-append "library_paths = ['"
(assoc-ref inputs "libsecp256k1")
"/lib/libsecp256k1.so.0'"))))))))
"/lib/libsecp256k1.so']"))))))))
(home-page "https://electrum.org/")
(synopsis "Bitcoin wallet")
(description
@ -622,7 +603,7 @@ other machines/servers. Electrum does not download the Bitcoin blockchain.")
(define-public electron-cash
(package
(name "electron-cash")
(version "4.2.14")
(version "4.3.1")
(source
(origin
(method git-fetch)
@ -631,7 +612,7 @@ other machines/servers. Electrum does not download the Bitcoin blockchain.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "086rqqxxh1dmw1qiwmry6sraai3xg44sb85wdw8zkj30si9780kk"))))
(base32 "0slx7hmlw2gpcqg951vwvnyl7j52pfzqyaldphghhfxbfzjs7v64"))))
(build-system python-build-system)
(arguments
(list
@ -2199,7 +2180,7 @@ and manipulation.")
(define-public xmrig
(package
(name "xmrig")
(version "6.19.2")
(version "6.20.0")
(source
(origin
(method git-fetch)
@ -2207,7 +2188,7 @@ and manipulation.")
(url "https://github.com/xmrig/xmrig")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256 (base32 "1hgcfq79d5060iryr34bpwf1dvgqmbmn9mm4ccfvp896r10j482h"))
(sha256 (base32 "02clipcixn0g4sm3b5r1cxx56ddhjkm8sqnq40jy1zm66ad5zhkj"))
(modules '((guix build utils)))
(snippet
;; TODO: Try to use system libraries instead of bundled ones in
@ -2256,7 +2237,7 @@ mining.")
(define-public p2pool
(package
(name "p2pool")
(version "3.2")
(version "3.5")
(source
(origin
(method git-fetch)
@ -2265,7 +2246,7 @@ mining.")
(commit (string-append "v" version))
(recursive? #t)))
(file-name (git-file-name name version))
(sha256 (base32 "0jwddazvp9rv88dd2b67rn2y23grycnl539abl5ax6b8a89wm7i8"))
(sha256 (base32 "1brv3lksajnmpf7g01jbx76nax6vlx8231sxb0s33yf76yc481xb"))
(modules '((guix build utils)))
(snippet
#~(for-each delete-file-recursively
@ -2290,6 +2271,8 @@ mining.")
(chdir "tests")
(invoke "cmake" "../../source/tests")
(invoke "make" "-j" (number->string (parallel-job-count)))
(invoke "gzip" "-d" "sidechain_dump.dat.gz")
(invoke "gzip" "-d" "sidechain_dump_mini.dat.gz")
(invoke "./p2pool_tests")
(chdir ".."))))
(replace 'install

108
gnu/packages/firmware.scm
View File

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

94
gnu/packages/fonts.scm
View File

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

27
gnu/packages/fontutils.scm
View File

@ -15,6 +15,7 @@
;;; Copyright © 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
;;; Copyright © 2022 Felipe Balbi <balbi@kernel.org>
;;; Copyright © 2023 gemmaro <gemmaro.dev@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1934,3 +1935,29 @@ PostScript Type 1, Type 1 Multiple Master, OpenType, and TrueType fonts.
These tools are cfftot1, mmafm, mmpfb, otfinfo, otftotfm, t1dotlessj, t1lint,
t1rawfm, t1reencode, t1testpage and ttftotype42.")
(license license:gpl2+)))
(define-public bdf2sfd
(package
(name "bdf2sfd")
(version "1.1.8")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/fcambus/bdf2sfd")
(commit "1.1.8")))
(file-name (git-file-name name version))
(sha256
(base32
"0pa92gjiijp9xqnw9dcvz24s6qk11a4lp5q6s5psd6mpkhpd88zq"))))
(build-system cmake-build-system)
(home-page "https://github.com/fcambus/bdf2sfd")
(synopsis "BDF to SFD converter, allowing to vectorize bitmap fonts")
(description
"bdf2sfd is a
@uref{https://en.wikipedia.org/wiki/Glyph_Bitmap_Distribution_Format,
BDF} to @uref{https://fontforge.org/docs/techref/sfdformat.html, SFD}
converter, allowing to vectorize bitmap fonts. It works by converting
each pixel of a glyph to a polygon, which produces large and
unoptimized SFD files that should be post-processed using
@uref{https://fontforge.org, FontForge}.")
(license license:bsd-2)))

4
gnu/packages/fpga.scm
View File

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

18
gnu/packages/freedesktop.scm
View File

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

4
gnu/packages/freeipmi.scm
View File

@ -28,14 +28,14 @@
(define-public freeipmi
(package
(name "freeipmi")
(version "1.6.10")
(version "1.6.11")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/freeipmi/freeipmi-"
version ".tar.gz"))
(sha256
(base32
"0zbszq9nn60vqm2gmwy6hmcz9yqb3lk064ib7l89q65n07ja3r7w"))))
"15x861i8r1gk44924d2pszlb8mapgkr18m3991vla4601y8xdyv5"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags '("--disable-static"

4
gnu/packages/fvwm.scm
View File

@ -36,7 +36,7 @@
(define-public fvwm
(package
(name "fvwm")
(version "2.6.9")
(version "2.7.0")
(source (origin
(method url-fetch)
(uri (string-append
@ -44,7 +44,7 @@
version "/fvwm-" version ".tar.gz"))
(sha256
(base32
"1bliqcnap7vb3m2rn8wvxyfhbf35h9x34s41fl4301yhrkrlrihv"))))
"12s1wgkvrvl8m62gpb2918izfx9ysj7hgn9p00blfi3p1gb6v0k6"))))
(build-system gnu-build-system)
(arguments
`(#:phases

54
gnu/packages/game-development.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2015, 2018, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2018 Alex Kost <alezost@gmail.com>
;;; Copyright © 2015, 2016, 2017 David Thompson <davet@gnu.org>
;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016-2021, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017, 2020 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2016, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017, 2018 Julian Graham <joolean@gmail.com>
@ -2111,7 +2111,7 @@ that parenthetically inclined game developers need to make 2D (and eventually
@item keyboard, mouse, controller input
@item REPL-driven development model
@end enumerate\n")
(license license:gpl3+)))
(license license:asl2.0)))
(define-public bennu-game-development
(package
@ -2427,7 +2427,8 @@ a.k.a. XenoCollide) as described in Game Programming Gems 7.")
(arguments
(list
;; XXX: The sole test is failing on i686 due to a rounding error.
#:tests? (not (target-x86-32?))
#:tests? (not (or (target-x86-32?)
(%current-target-system)))
#:configure-flags #~(list "-DODE_WITH_LIBCCD_SYSTEM=ON")
#:phases
#~(modify-phases %standard-phases
@ -2809,29 +2810,26 @@ much more.")
(license license:zlib))))
(define-public recastnavigation
;; We follow master since there hasn't been a release since 1.5.1 in 2016.
(let ((commit "6d1f9711b3b71f28c2c1c0742d76e0ef8766cf91")
(revision "2"))
(package
(name "recastnavigation")
(version (git-version "1.5.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/recastnavigation/recastnavigation")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0cqp0sbm0ixqnxqz6gf2gybh5l4az91mdsd8b5bgxs1wpl2jmnga"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags (list "-DBUILD_SHARED_LIBS=ON"
"-DRECASTNAVIGATION_DEMO=OFF"
"-DRECASTNAVIGATION_TESTS=ON"
"-DRECASTNAVIGATION_EXAMPLES=OFF")))
(synopsis "Navigation system for games")
(description "Recast is state of the art navigation mesh
(package
(name "recastnavigation")
(version "1.6.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/recastnavigation/recastnavigation")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0rdz3qmp4b961zjah2ax82h471j14w2rcf576gcyx7vldrg8dmj8"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags (list "-DBUILD_SHARED_LIBS=ON"
"-DRECASTNAVIGATION_DEMO=OFF"
"-DRECASTNAVIGATION_TESTS=ON"
"-DRECASTNAVIGATION_EXAMPLES=OFF")))
(synopsis "Navigation system for games")
(description "Recast is state of the art navigation mesh
construction toolset for games.
@itemize
@ -2854,8 +2852,8 @@ simple cases, as well as tiled navigation mesh which allows you to plug
in and out pieces of the mesh. The tiled mesh allows you to create
systems where you stream new navigation data in and out as the player
progresses the level, or you may regenerate tiles as the world changes.")
(home-page "https://github.com/recastnavigation/recastnavigation")
(license license:zlib))))
(home-page "https://github.com/recastnavigation/recastnavigation")
(license license:zlib)))
(define-public raylib
(package

263
gnu/packages/games.scm
View File

@ -42,7 +42,7 @@
;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2019, 2020 Jesse Gibbons <jgibbons2357+guix@gmail.com>
;;; Copyright © 2019 Dan Frumin <dfrumin@cs.ru.nl>
;;; Copyright © 2019, 2020, 2021, 2022 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019-2023 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019, 2020 Timotej Lazar <timotej.lazar@araneo.si>
;;; Copyright © 2019 Josh Holland <josh@inv.alid.pw>
;;; Copyright © 2019 Pkill -9 <pkill9@runbox.com>
@ -70,7 +70,7 @@
;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com>
;;; Copyright © 2022, 2023 Yovan Naumovski <yovan@gorski.stream>
;;; Copyright © 2022 Roman Riabenko <roman@riabenko.com>
;;; Copyright © 2022 zamfofex <zamfofex@twdb.moe>
;;; Copyright © 2022, 2023 zamfofex <zamfofex@twdb.moe>
;;; Copyright © 2022 Gabriel Arazas <foo.dogsquared@gmail.com>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Hendursaga <hendursaga@aol.com>
@ -78,6 +78,7 @@
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2023 Florian Pelz <pelzflorian@pelzflorian.de>
;;; Copyright © 2023 Ivana Drazovic <iv.dra@hotmail.com>
;;; Copyright © 2023 gemmaro <gemmaro.dev@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -154,6 +155,7 @@
#:use-module (gnu packages gtk)
#:use-module (gnu packages guile)
#:use-module (gnu packages haskell)
#:use-module (gnu packages haskell-check)
#:use-module (gnu packages haskell-crypto)
#:use-module (gnu packages haskell-xyz)
#:use-module (gnu packages icu4c)
@ -201,6 +203,7 @@
#:use-module (gnu packages sqlite)
#:use-module (gnu packages squirrel)
#:use-module (gnu packages swig)
#:use-module (gnu packages tbb)
#:use-module (gnu packages tcl)
#:use-module (gnu packages terminals)
#:use-module (gnu packages texinfo)
@ -222,6 +225,7 @@
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system gnu)
#:use-module (guix build-system go)
#:use-module (guix build-system haskell)
#:use-module (guix build-system meson)
#:use-module (guix build-system perl)
#:use-module (guix build-system python)
@ -415,6 +419,40 @@ Plenty of classic platforming in four nice colors guaranteed!
The game includes a built-in editor so you can design and share your own maps.")
(license license:gpl2+)))
(define-public anarch
(let ((commit "2d78d0c69a3aac14dbd8f8aca62d0cbd9d27c860")
(revision "1"))
(package
(name "anarch")
(version (git-version "1.1d" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://git.sr.ht/~drummyfish/Anarch")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1lg9r6q1davn5yj181ccygmvaigvm8fr9q2s1bc77a1vkz68vzdk"))))
(build-system gnu-build-system)
(arguments
(list #:tests? #f ;no tests
#:phases #~(modify-phases %standard-phases
(delete 'configure) ;no configure script
(replace 'build
(lambda _
(invoke "./make.sh" "sdl")))
(replace 'install
(lambda _
(let ((bin (string-append #$output "/bin")))
(install-file "anarch" bin)))))))
(inputs (list alsa-lib libxcursor libxrandr sdl2))
(home-page "https://drummyfish.gitlab.io/anarch/")
(synopsis "Public domain 90s-style shooter game")
(description "Anarch is a small, completely public domain, 90s-style
Doom clone shooter game.")
(license license:cc0))))
(define-public armagetronad
(package
(name "armagetronad")
@ -2043,33 +2081,59 @@ scriptable with Guile.")
(package
(name "gnushogi")
(version "1.4.2")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://gnu/gnushogi/gnushogi-"
version ".tar.gz"))
(sha256
(base32
"0a9bsl2nbnb138lq0h14jfc5xvz7hpb2bcsj4mjn6g1hcsl4ik0y"))))
(arguments `(#:tests? #f)) ;; No check target.
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/gnushogi/gnushogi-" version
".tar.gz"))
(sha256
(base32
"0a9bsl2nbnb138lq0h14jfc5xvz7hpb2bcsj4mjn6g1hcsl4ik0y"))
(modules '((guix build utils)))
;; Fix "warning: ISO C90 does not support ‘__func__’ predefined
;; identifier [-Wpedantic]"
(snippet '(begin
(substitute* "gnushogi/dspwrappers.c"
(("__FUNCTION__")
"__extension__ __FUNCTION__"))))))
(arguments
`(#:configure-flags (list (string-append
"CFLAGS="
(string-join '("-Wno-format"
"-Wno-unused-but-set-variable"
"-Wno-bool-compare")
" ")))
#:make-flags '("LDFLAGS=-z muldefs")
#:phases (modify-phases %standard-phases
;; Skip --enable-fast-install flag
(replace 'configure
(lambda* (#:key outputs configure-flags #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(setenv "CONFIG_SHELL"
(which "sh"))
(setenv "SHELL"
(which "sh"))
(apply invoke "./configure"
(string-append "--prefix=" out) configure-flags)))))
#:test-target "sizetest"))
(build-system gnu-build-system)
(home-page "https://www.gnu.org/software/gnushogi/")
(synopsis "The game of Shogi (Japanese chess)")
(description "GNU Shogi is a program that plays the game Shogi (Japanese
Chess). It is similar to standard chess but this variant is far more complicated.")
(synopsis "Game of Shogi (Japanese chess)")
(description
"GNU Shogi is a program that plays the game Shogi (Japanese Chess).
It is similar to standard chess but this variant is far more complicated.")
(license license:gpl3+)))
(define-public ltris
(package
(name "ltris")
(version "1.2.4")
(version "1.2.6")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/lgames/ltris/"
"ltris-" version ".tar.gz"))
(sha256
(base32 "10wg6v12w3jms8ka2x9a87p06l9gzpr94ai9v428c9r320q7psyn"))))
(base32 "1xj65kn815x2hq1ynzjyc90dj178xwa2xvx7jx99qf60ahaf4g62"))))
(build-system gnu-build-system)
(arguments
'(#:phases
@ -3582,6 +3646,37 @@ exec ~a/bin/freedink -refdir ~a/share/dink\n"
("bash" ,bash)))
(native-inputs '())))
(define-public fuzzylite
(package
(name "fuzzylite")
(version "6.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/fuzzylite/fuzzylite")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0yay0qc81x0irlvxqpy7jywjxpkmpjabdhq2hdh28r9z85wp2nwb"))
(patches (search-patches "fuzzylite-use-catch2.patch"
"fuzzylite-soften-float-equality.patch"
"fuzzylite-relative-path-in-tests.patch"))))
(build-system cmake-build-system)
(arguments
`(#:phases (modify-phases %standard-phases
(add-before 'configure 'switch-to-fuzzylite-dir
(lambda _
(chdir "fuzzylite"))))))
(native-inputs (list catch2))
(home-page "https://www.fuzzylite.com/")
(synopsis "Fuzzy logic control binary")
(description
"This package provides fuzzylite, a fuzzy logic control library which
allows one to easily create fuzzy logic controllers in a few steps utilizing
object-oriented programming.")
(license license:gpl3)))
(define-public xboard
(package
(name "xboard")
@ -10233,7 +10328,7 @@ can be downloaded from @url{https://zero.sjeng.org/best-network}.")
(define-public q5go
(package
(name "q5go")
(version "1.0")
(version "2.1.3")
(source (origin
(method git-fetch)
(uri (git-reference
@ -10242,10 +10337,10 @@ can be downloaded from @url{https://zero.sjeng.org/best-network}.")
(file-name (git-file-name name version))
(sha256
(base32
"1gdlfqcqkqv7vph3qwq78d0qz6dhmdsranxq9bmixiisbzkqby31"))))
"0x8x7mp61g3lwabx9z4vsyd743kfqibnqhym7xd0b7811flca3ri"))))
(build-system gnu-build-system)
(native-inputs
(list pkg-config))
(list autoconf automake pkg-config))
(inputs
(list qtbase-5 qtmultimedia-5 qtsvg-5))
(arguments
@ -10254,32 +10349,34 @@ can be downloaded from @url{https://zero.sjeng.org/best-network}.")
(add-after 'unpack 'fix-configure-script
(lambda _
;; Bypass the unavailable qtchooser program.
(substitute* "configure"
(for-each delete-file
'("configure"
"Makefile.in"
"src/Makefile.in"
"src/translations/Makefile.in"))
(substitute* "configure.ac"
(("AC_PATH_PROG\\(qtchooser, .*\\)")
"")
(("test -z \"QTCHOOSER\"")
"false")
(("qtchooser -run-tool=(.*) -qt=qt5" _ command)
command))
#t))
(add-after 'unpack 'fix-header
(lambda _
(substitute* "src/bitarray.h"
(("#include <cstring>" all)
(string-append all "\n#include <stdexcept>")))))
(("\\$\\(qtchooser -list-versions\\)")
"qt5")
(("qtchooser -run-tool=(.*) -qt=\\$QT5_NAME" _ command)
command))))
(add-after 'unpack 'fix-paths
(lambda _
(substitute* '("src/pics/Makefile.in"
"src/translations/Makefile.in")
(("\\$\\(datadir\\)/qGo/")
"$(datadir)/q5go/"))
#t))
(lambda* (#:key outputs #:allow-other-keys)
(substitute* '("src/setting.cpp")
(("/usr/share/\" PACKAGE \"/translations")
(string-append (assoc-ref outputs "out")
"/share/qGo/translations")))))
(add-after 'install 'install-desktop-file
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(apps (string-append out "/share/applications"))
(pics (string-append out "/share/q5go/pics")))
(images (string-append out "/share/qGo/images")))
(delete-file-recursively (string-append out "/share/applnk"))
(delete-file-recursively (string-append out "/share/mimelnk"))
(install-file "../source/src/pics/Bowl.ico" pics)
(install-file "../source/src/images/Bowl.ico" images)
(mkdir-p apps)
(with-output-to-file (string-append apps "/q5go.desktop")
(lambda _
@ -10299,8 +10396,7 @@ can be downloaded from @url{https://zero.sjeng.org/best-network}.")
Comment[zh]=围棋~@
Terminal=false~@
Type=Application~%"
out pics))))
#t)))))
out images)))))))))
(synopsis "Qt GUI to play the game of Go")
(description
"This a tool for Go players which performs the following functions:
@ -10568,14 +10664,14 @@ ChessX.")
(define-public barrage
(package
(name "barrage")
(version "1.0.6")
(version "1.0.7")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/lgames/barrage/"
"barrage-" version ".tar.gz"))
(sha256
(base32 "1bhx708s7viv01m6bmpjsdgr33wk5kqw4wf7bvgw73a07v6j8ncw"))))
(base32 "0j7j6n5h97xpw0h8zi5a8ziw1vjsbr5gk4dcsiwzh59qn0djnrkh"))))
(build-system gnu-build-system)
(inputs
(list hicolor-icon-theme sdl sdl-mixer))
@ -11212,6 +11308,54 @@ Magic II (aka HOMM2) game engine. It requires assets and game resources to
play; it will look for them at @file{~/.local/share/fheroes2} folder.")
(license license:gpl2)))
(define-public vcmi
(package
(name "vcmi")
(version "1.2.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/vcmi/vcmi")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0f3fk1fc2wb7f2j4pxz89dzr8zjnrdh435mijia483a3bq59w7pk"))
(patches (search-patches "vcmi-disable-privacy-breach.patch"))))
(build-system cmake-build-system)
(arguments
(list #:configure-flags #~(list "-DFORCE_BUNDLED_FL=OFF")
;; Test suites do not seem well supported upstream and are disabled by default.
;; Pass -DENABLE_TEST to configure to enable.
#:tests? #f))
(native-inputs
(list boost
ffmpeg
fuzzylite
;; googletest ; needed for tests, but tests are disabled
libxkbcommon
luajit
minizip
pkg-config
python
;; XXX: Build currently fails with qtbase-6 and qttools-6
qtbase-5
qttools-5
sdl2
sdl2-mixer
sdl2-image
sdl2-ttf
tbb
vulkan-headers
zlib))
(home-page "https://vcmi.eu/")
(synopsis "Turn-based strategy game engine")
(description
"@code{vcmi} is an implementation of the Heroes of Might and
Magic III game engine. It requires assets and game resources to
play; it will look for them at @file{~/.local/share/vcmi} folder.")
(license license:gpl2)))
(define-public apricots
(package
(name "apricots")
@ -11278,6 +11422,45 @@ original, they have been invented by Thomas Colcombet.")
(home-page "https://www.gnu.org/software/liquidwar6/")
(license license:gpl3+)))
(define-public plunder
(let ((commit "026ded7083df5134bdf05b1ec7e5a0099ac9b9d2")
(revision "1"))
(package
(name "plunder")
(version (git-version "1.0.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jappeace/plunder")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0m0v8x6q9iq4zihwmysbxjwkq18nar6xhq4g18p2g8c6azj2mgd6"))))
(build-system haskell-build-system)
(inputs (list ghc-monadrandom
ghc-quickcheck
ghc-file-embed
ghc-generic-lens
ghc-lens
ghc-random
ghc-reflex
ghc-reflex-sdl2
ghc-sdl2
ghc-sdl2-gfx
ghc-sdl2-image
ghc-sdl2-ttf
ghc-vector
ghc-witherable))
(native-inputs (list ghc-hspec ghc-hspec-core hspec-discover))
(home-page "https://github.com/jappeace/plunder")
(synopsis "Game about looting a hexagonal-tile world")
(description
"This package provides a work-in-progress game where you control a
Viking and your objective is to loot all of the occupied hexagonal tiles in
the map.")
(license license:expat))))
(define-public freerct
(package
(name "freerct")

5
gnu/packages/gcc.scm
View File

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

4
gnu/packages/gdb.scm
View File

@ -114,14 +114,14 @@
("libxml2" ,libxml2)
;; The Hurd needs -lshouldbeinlibc.
,@(if (hurd-target?)
,@(if (target-hurd?)
`(("hurd" ,hurd))
'())))
(native-inputs
`(("texinfo" ,texinfo)
("dejagnu" ,dejagnu)
("pkg-config" ,pkg-config)
,@(if (hurd-target?)
,@(if (target-hurd?)
;; When cross-compiling from x86_64-linux, make sure to use a
;; 32-bit MiG because we assume target i586-pc-gnu.
`(("mig" ,(if (%current-target-system)

138
gnu/packages/geo.scm
View File

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

7
gnu/packages/gettext.scm
View File

@ -9,7 +9,7 @@
;;; Copyright © 2017 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Miguel <rosen644835@gmail.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020 EuAndreh <eu@euandre.org>
;;; Copyright © 2022 gemmaro <gemmaro.dev@gmail.com>
;;; Copyright © 2023 Maxim Cournoyer maxim.cournoyer@gmail.com>
@ -42,7 +42,6 @@
#:use-module (gnu packages check)
#:use-module (gnu packages docbook)
#:use-module (gnu packages emacs)
#:use-module (gnu packages hurd)
#:use-module (gnu packages libunistring)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages perl)
@ -124,7 +123,7 @@
"coreutils-gnulib-tests.patch")))))
'())
#$@(if (hurd-target?)
#$@(if (target-hurd?)
#~((substitute*
"gettext-tools/gnulib-tests/Makefile.in"
;; See 'coreutils' for the rationale.
@ -135,7 +134,7 @@
;; When tests fail, we want to know the details.
#:make-flags #~'("VERBOSE=yes"
#$@(if (hurd-target?)
#$@(if (target-hurd?)
'("XFAIL_TESTS=test-perror2")
'()))))
(home-page "https://www.gnu.org/software/gettext/")

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

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

50
gnu/packages/gnome.scm
View File

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

4
gnu/packages/gnunet.scm
View File

@ -409,14 +409,14 @@ services.")
"faketime -m -f '1970-01-01 00:00:00' $(TEXMACS_CONVERT)")))))))
(inputs (list guile-3.0)) ;for pkg-config
(propagated-inputs (list guile-bytestructures guile-gcrypt guile-pfds
guile-fibers-1.1))
guile-fibers-1.3))
(native-inputs (list guile-3.0 ;as a compiler
;; for cross-compilation, the guile inputs need to be
;; native-inputs as well.
guile-bytestructures
guile-gcrypt
guile-pfds
guile-fibers-1.1
guile-fibers-1.3
libfaketime
automake
autoconf

20
gnu/packages/gnuzilla.scm
View File

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

300
gnu/packages/golang.scm
View File

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

3
gnu/packages/gps.scm
View File

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

15
gnu/packages/graph.scm
View File

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

73
gnu/packages/graphics.scm
View File

@ -21,7 +21,7 @@
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2020, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Raghav Gururajan <raghavgururajan@disroot.org>
;;; Copyright © 2020, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020, 2021, 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Gabriel Arazas <foo.dogsquared@gmail.com>
;;; Copyright © 2021 Antoine Côté <antoine.cote@posteo.net>
;;; Copyright © 2021 Andy Tai <atai@atai.org>
@ -189,13 +189,29 @@ framebuffer graphics, audio output and input event.")
(lambda _
(substitute* "src/core/core.c"
(("..BUILDTIME..") ""))))
;; TODO: Move patch to source.
,@(if (target-arm32?)
`((add-after 'unpack 'patch-source
(lambda* (#:key inputs #:allow-other-keys)
(invoke "patch" "--force" "-p1" "-i"
(assoc-ref inputs "patch-file")))))
'())
(add-after 'unpack 'disable-configure-during-bootstrap
(lambda _
(substitute* "autogen.sh"
(("^.*\\$srcdir/configure.*") ""))
#t)))))
(native-inputs
(list autoconf automake libtool perl pkg-config))
`(("autoconf" ,autoconf)
("automake" ,automake)
("libtool" ,libtool)
("perl" ,perl)
("pkg-config" ,pkg-config)
,@(if (target-arm32?)
`(("patch" ,patch)
("patch-file"
,(search-patch "directfb-davinci-glibc-228-compat.patch")))
'())))
(inputs
(list alsa-lib
ffmpeg
@ -808,7 +824,8 @@ many more.")
;; precision), as was discussed and patched long ago:
;; <https://issues.guix.gnu.org/22049>. It seems the relevant fixes
;; didn't make it upstream, so skip tests.
(list #:tests? (not (target-x86-32?))))
(list #:tests? (not (or (target-x86-32?)
(%current-target-system)))))
(home-page "https://github.com/AcademySoftwareFoundation/Imath")
(synopsis "Library of math operations for computer graphics")
(description
@ -1448,11 +1465,11 @@ in Julia).")
(define-public openmw-openscenegraph
;; OpenMW prefers its own fork of openscenegraph:
;; https://wiki.openmw.org/index.php?title=Development_Environment_Setup#OpenSceneGraph.
(let ((commit "36a962845a2c87a6671fd822157e0729d164e940"))
(let ((commit "69cfecebfb6dc703b42e8de39eed750a84a87489"))
(hidden-package
(package
(inherit openscenegraph)
(version (git-version "3.6" "1" commit))
(version (git-version "3.6" "2" commit))
(outputs (list "out"))
(source
(origin
@ -1463,7 +1480,7 @@ in Julia).")
(file-name (git-file-name (package-name openscenegraph) version))
(sha256
(base32
"05yhgq3qm5q277y32n5sf36vx5nv5qd3zlhz4csgd3a6190jrnia"))))
"1qayk2gklm8zvss90dcjfxv6717rvcmwmgmgyy1qzkli67a0zbw2"))))
(arguments
(substitute-keyword-arguments (package-arguments openscenegraph)
((#:configure-flags flags)
@ -1471,14 +1488,14 @@ in Julia).")
#~(append
'("-DBUILD_OSG_PLUGINS_BY_DEFAULT=0"
"-DBUILD_OSG_PLUGIN_OSG=1"
"-DBUILD_OSG_PLUGIN_DAE=1"
"-DBUILD_OSG_PLUGIN_DDS=1"
"-DBUILD_OSG_PLUGIN_TGA=1"
"-DBUILD_OSG_PLUGIN_BMP=1"
"-DBUILD_OSG_PLUGIN_JPEG=1"
"-DBUILD_OSG_PLUGIN_PNG=1"
"-DBUILD_OSG_DEPRECATED_SERIALIZERS=0"
;; The jpeg plugin requires conversion between integers and booleans
"-DCMAKE_CXX_FLAGS=-fpermissive")
"-DBUILD_OSG_PLUGIN_FREETYPE=1"
"-DBUILD_OSG_DEPRECATED_SERIALIZERS=0")
#$flags))
((#:phases phases)
#~(modify-phases #$phases
@ -2379,7 +2396,7 @@ generated discrete signed distance field using the cubic spline kernel.
(define-public mmg
(package
(name "mmg")
(version "5.6.0")
(version "5.7.1")
(source
(origin
(method git-fetch)
@ -2388,7 +2405,7 @@ generated discrete signed distance field using the cubic spline kernel.
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "173biz5skbwg27i5w6layg7mydjzv3rmi1ywhra4rx9rjf5c0cc5"))))
(base32 "0skb7yzsw6y44zp9gb729i5xks7qd97nvn3z6jhz4jksqksx7lz0"))))
(build-system cmake-build-system)
(outputs '("out" "lib" "doc"))
(arguments
@ -2398,11 +2415,14 @@ generated discrete signed distance field using the cubic spline kernel.
;; The build doesn't honor -DCMAKE_INSTALL_BINDIR, hence
;; the adjust-bindir phase.
;;(string-append "-DCMAKE_INSTALL_BINDIR=" #$output "/bin")
(string-append "-DCMAKE_INSTALL_MANDIR=" #$output "/share/man")
"-DBUILD_SHARED_LIBS=ON"
"-DBUILD_DOC=ON"
"-DBUILD_TESTING=ON"
;; The longer tests are for continuous integration and
;; depend on input data which must be downloaded.
"-DONLY_VERY_SHORT_TESTS=ON"
"-DUSE_SCOTCH=ON"
;; TODO: Add Elas (from
;; https://github.com/ISCDtoolbox/LinearElasticity).
"-DUSE_ELAS=OFF"
@ -2427,9 +2447,6 @@ generated discrete signed distance field using the cubic spline kernel.
(invoke "make" "doc")))
(add-after 'install 'install-doc
(lambda _
(copy-recursively
"../source/doc/man" (string-append #$output
"/share/man/man1"))
(copy-recursively
"doc" (string-append #$output:doc "/share/doc/"
#$name "-" #$version))))
@ -2480,6 +2497,33 @@ a tetrahedral mesh, isovalue discretization and Lagrangian movement;
@end itemize")
(license license:lgpl3+)))
(define-public nanosvg
;; There are no proper versions or releases; use the latest commit.
(let ((commit "9da543e8329fdd81b64eb48742d8ccb09377aed1")
(revision "0"))
(package
(name "nanosvg")
(version (git-version "0.0.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/memononen/nanosvg")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1pkzv75kavkhrbdd2kvq755jyr0vamgrfr7lc33dq3ipkzmqvs2l"))))
(build-system cmake-build-system)
(arguments (list #:tests? #f ;no test suite
#:configure-flags #~(list "-DBUILD_SHARED_LIBS=ON")))
(home-page "https://github.com/memononen/nanosvg")
(synopsis "Simple SVG parser")
(description "NanoSVG is a simple single-header SVG parser. The output
of the parser is a list of cubic bezier shapes. The library suits well for
anything from rendering scalable icons in an editor application to prototyping
a game.")
(license license:zlib))))
(define-public f3d
(package
(name "f3d")
@ -2596,4 +2640,3 @@ environment. It supports drawing freehand as well as basic shapes and text.
It features cut-and-paste for irregular regions or polygons.")
(home-page "https://www.gnu.org/software/gpaint/")
(license license:gpl3+)))

49
gnu/packages/groff.scm
View File

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

8
gnu/packages/gstreamer.scm
View File

@ -799,6 +799,14 @@ model to base your own plug-in on, here it is.")
;; This test is flaky on at least some architectures.
;; https://gitlab.freedesktop.org/gstreamer/gstreamer/-/issues/1244
#$@(if (target-riscv64?)
`((("'elements/camerabin\\.c'\\].*],")
"'elements/camerabin.c'], true, ],")
(("'elements/viewfinderbin\\.c'\\].*],")
"'elements/viewfinderbin.c'], true, ],"))
'())
;; This substitution is no longer effective and can be removed.
#$@(if (member (%current-system)
'("i686-linux" "aarch64-linux" "riscv64-linux"))
`((("'elements/camerabin\\.c'\\]\\],")

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

@ -9,7 +9,7 @@
;;; Copyright © 2016, 2017, 2021 Alex Kost <alezost@gmail.com>
;;; Copyright © 2016, 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org>
;;; Copyright © 2016, 2021 Amirouche <amirouche@hypermove.net>
;;; Copyright © 2016, 2019, 2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2016, 2019, 2021, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
;;; Copyright © 2017 David Thompson <davet@gnu.org>
;;; Copyright © 2017, 2018, 2019, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
@ -43,7 +43,7 @@
;;; Copyright © 2022 Zhu Zihao <all_but_last@163.com>
;;; Copyright © 2022 Antero Mejr <antero@mailbox.org>
;;; Copyright © 2022 Taiju HIGASHI <higashi@taiju.info>
;;; Copyright © 2022 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2022, 2023 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2022 Evgeny Pisemsky <evgeny@pisemsky.com>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;;
@ -89,9 +89,9 @@
#:use-module (gnu packages gtk)
#:use-module (gnu packages guile)
#:use-module (gnu packages haskell-xyz) ;pandoc
#:use-module (gnu packages hurd)
#:use-module (gnu packages image)
#:use-module (gnu packages imagemagick)
#:use-module (gnu packages libevent)
#:use-module (gnu packages libffi)
#:use-module (gnu packages libunistring)
#:use-module (gnu packages linux)
@ -311,11 +311,11 @@ currently does not do much, but it might in the future.")
(license license:gpl3+)))
(define-public guile-openai
(let ((commit "9265b641dea0246609b7bd5031f3f6780ef6a167")
(revision "2"))
(let ((commit "751cd5db5f8bb7c00e60042a7ec86100930b0f02")
(revision "1"))
(package
(name "guile-openai")
(version (git-version "0.1" revision commit))
(version (git-version "0.2" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
@ -324,21 +324,16 @@ currently does not do much, but it might in the future.")
(file-name (git-file-name name version))
(sha256
(base32
"0sydjsgdr6xxk1w5f8pf14wgimfy4fb1hpi8yml0nv83p7bfr1w3"))))
(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))
"1rl15wkm682xwzj2fjn4czp1haxnxlcjsk3g69j2a9qlwc4w0g4a"))))
(build-system gnu-build-system)
(arguments (list #:strip-binaries? #f))
(inputs (list guile-3.0-latest imagemagick))
(propagated-inputs
(list guile-colorized
guile-gnutls
guile-json-4
guile-picture-language))
(native-inputs (list autoconf automake pkg-config))
(home-page "https://gitlab.com/flatwhatson/guile-openai")
(synopsis "Guile implementation of the OpenAI API")
(description
@ -788,10 +783,10 @@ Unix-style DSV format and RFC 4180 format.")
(inputs (list guile-2.2))
(propagated-inputs `(("guile-lib" ,guile2.2-lib)))))
(define-public guile-fibers-1.1
(define-public guile-fibers-1.3
(package
(name "guile-fibers")
(version "1.1.1")
(version "1.3.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -800,11 +795,9 @@ Unix-style DSV format and RFC 4180 format.")
(file-name (git-file-name name version))
(sha256
(base32
"0ll63d7202clapg1k4bilbnlmfa4qvpjnsd7chbkka4kxf5klilc"))
"0wvdi4l58f9a5c9wi3cdc9l1bniscsixb6w2zj86mch7j7j814lc"))
(patches
(search-patches "guile-fibers-wait-for-io-readiness.patch"
"guile-fibers-epoll-instance-is-dead.patch"
"guile-fibers-fd-finalizer-leak.patch"))))
(search-patches "guile-fibers-libevent-32-bit.patch"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags
@ -822,17 +815,15 @@ Unix-style DSV format and RFC 4180 format.")
(substitute* "Makefile"
(("tests/speedup.scm") ""))))))))
(native-inputs
(list texinfo pkg-config autoconf automake libtool
(list texinfo pkg-config autoconf-2.71 automake libtool
guile-3.0 ;for 'guild compile
;; Gettext brings 'AC_LIB_LINKFLAGS_FROM_LIBS'
gettext-minimal))
(inputs
(list guile-3.0)) ;for libguile-3.0.so
(supported-systems
;; This version requires 'epoll' and is thus limited to Linux-based
;; systems, but this may change soon:
;; <https://github.com/wingo/fibers/pull/53>.
(filter (cut string-suffix? "-linux" <>) %supported-systems))
(append (list guile-3.0) ;for libguile-3.0.so
(if (target-hurd?)
(list libevent)
'())))
(synopsis "Lightweight concurrency facility for Guile")
(description
"Fibers is a Guile library that implements a a lightweight concurrency
@ -849,22 +840,35 @@ is not available for Guile 2.0.")
(properties '((upstream-name . "fibers")))
(license license:lgpl3+)))
(define-public guile-fibers-next
(let ((commit "99fc3e38048f732de67c43fde52e949fa294aa7d")
(revision "1"))
(package
(inherit guile-fibers-1.1)
(name "guile-fibers-next")
(version (git-version "1.3.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/wingo/fibers")
(commit commit)))
(file-name (git-file-name "guile-fibers" version))
(sha256
(base32
"1950nf0qa52m1hhc33z0snci5azbdcv4m6hklk5rpqchc90x9h4p")))))))
(define-public guile-fibers-1.1
(package
(inherit guile-fibers-1.3)
(version "1.1.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/wingo/fibers")
(commit (string-append "v" version))))
(file-name (git-file-name "guile-fibers" version))
(sha256
(base32
"0ll63d7202clapg1k4bilbnlmfa4qvpjnsd7chbkka4kxf5klilc"))
(patches
(search-patches "guile-fibers-wait-for-io-readiness.patch"
"guile-fibers-epoll-instance-is-dead.patch"
"guile-fibers-fd-finalizer-leak.patch"))))
(native-inputs
(list texinfo pkg-config autoconf automake libtool
guile-3.0 ;for 'guild compile
;; Gettext brings 'AC_LIB_LINKFLAGS_FROM_LIBS'
gettext-minimal))
(inputs
(list guile-3.0)) ;for libguile-3.0.so
(supported-systems
;; This version requires 'epoll' and is thus limited to Linux-based
;; systems, which is fixed in 1.2.0:
;; <https://github.com/wingo/fibers/pull/53>.
(filter (cut string-suffix? "-linux" <>) %supported-systems))))
(define-public guile-fibers
(package
@ -1082,8 +1086,8 @@ for calling methods on remote servers by exchanging JSON objects.")
(license license:expat))))
(define-public guile-squee
(let ((commit "fab9d9590792f3ededd4abd8cfa6be5e56659678")
(revision "4"))
(let ((commit "9f2609563fc53466e46d37c8d8d2fbcfce67b2ba")
(revision "5"))
(package
(name "guile-squee")
(version (string-append "0-" revision "." (string-take commit 7)))
@ -1095,19 +1099,20 @@ for calling methods on remote servers by exchanging JSON objects.")
(file-name (git-file-name name version))
(sha256
(base32
"03wdawx14sqs6xkw1vl06s58xyjicg2js2k4syn0z64bjbxxjvps"))))
"0r322mfxx08siw656h7bm31rgzkchmp3yrgjpkc2d3qw286ilqi7"))))
(build-system guile-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "squee.scm"
(("dynamic-link \"libpq\"")
(string-append
"dynamic-link \""
(search-input-file inputs "/lib/libpq.so")
"\""))))))))
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "squee.scm"
(("dynamic-link \"libpq\"")
(string-append
"dynamic-link \""
(search-input-file inputs "/lib/libpq.so")
"\""))))))))
(inputs
(list postgresql))
(native-inputs
@ -3843,7 +3848,7 @@ debugging code.")
(define-public guile-png
(package
(name "guile-png")
(version "0.5.0")
(version "0.6.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -3852,7 +3857,7 @@ debugging code.")
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
"0dnahq05mwxzbsqb0qjkyysylc54qr8l5839zyc4sanl2syzhvwk"))))
"0i0q2h4kfp1mj5m3wnz2hk6z895001j38s5vkbhkdxf05cjvwkky"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
@ -4058,6 +4063,50 @@ enriched with pure Guile Scheme algorithms, all accessible through a nice,
clean and easy to use high level API.")
(license license:gpl3+)))
(define-public guile-ffi-cblas
(let ((commit "4458d50f84786d7ace0181c6588345eed7474996")
(revision "0"))
(package
(name "guile-ffi-cblas")
(version (git-version "0.0.0" revision commit))
(home-page "https://github.com/lloda/guile-ffi-cblas")
(source (origin
(method git-fetch)
(uri (git-reference (url home-page)
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"050s0lq64v286hkxqczkfkx3fp1vr3jm5w236hxx67br9najb1cp"))))
(build-system guile-build-system)
(arguments
(list #:source-directory "mod"
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'set-blas-file-name
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "mod/ffi/cblas.scm"
(("\"libcblas\"")
(string-append "\""
(search-input-file
inputs "/lib/libopenblas.so")
"\"")))))
(add-after 'build 'check
(lambda _
(invoke "guile" "-C" "mod" "-L" "mod"
"test/test-ffi-cblas.scm"))))))
(native-inputs (list guile-3.0))
(inputs (list openblas))
(synopsis "Guile bindings for CBLAS, the linear algebra library")
(description
"This package provides Guile FFI bindings for CBLAS, the library of
linear algebra subprograms.
To use the bindings, import @code{(ffi cblas)}. CBLAS will be loaded from the
default dynamic library path. There are up to three bindings for each
function: raw, typed, and functional.")
(license license:lgpl3+))))
(define-public guile-ffi-fftw
(let ((commit "294ad9e7491dcb40026d2fec9be2af05263be1c0")
(revision "2"))
@ -4203,7 +4252,7 @@ the style of the Node Package Manager (NPM).")
#t)))))
(native-inputs
(list guile-3.0))
(synopsis "Cryprographic hash functions implemented in Scheme")
(synopsis "Cryptographic hash functions implemented in Scheme")
(description
"The @code{(hashing @dots{})} modules implement cryptographic hash
functions in pure R6RS Scheme: CRC, HMAC, MD5, SHA-1, and SHA-2 (SHA-256,
@ -4622,33 +4671,31 @@ manipulating graphs and datasets.")
(package
(name "guile-jsonld")
(version "1.0.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://framagit.org/tyreunom/guile-jsonld")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1ryyvh71899z2inivqglb8d78zzp1sd0wv9a56kvcmrxf1966z6r"))))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://framagit.org/tyreunom/guile-jsonld")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1ryyvh71899z2inivqglb8d78zzp1sd0wv9a56kvcmrxf1966z6r"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f)); require network
(list #:tests? #f)) ; require network
(propagated-inputs
`(("guile-gnutls" ,gnutls)
("guile-json" ,guile-json-4)
("guile-rdf" ,guile-rdf)))
(list guile-gnutls guile-json-4 guile-rdf))
(inputs
(list guile-3.0))
(native-inputs
(list automake autoconf pkg-config texinfo))
(home-page "https://framagit.org/tyreunom/guile-jsonld")
(synopsis "Guile implementation of the JsonLD API specification")
(description "Guile JsonLD is an implementation of the JsonLD (Json for
Linked Data) API defined by the W3C for GNU Guile. It allows you to express links
between data, in a way that is very similar to WikiData or RDF for instance.
An object can have relations (in the form of an IRI) that relates it to one or
(description
"Guile JsonLD is an implementation of the JsonLD (Json for Linked Data)
API defined by the W3C for GNU Guile. It allows you to express links between
data, in a way that is very similar to WikiData or RDF for instance. An
object can have relations (in the form of an IRI) that relates it to one or
more objects or strings, represented by a Json object or an IRI.")
(license license:gpl3+)))
@ -5205,7 +5252,7 @@ locations.")
(define-public guile-netlink
(package
(name "guile-netlink")
(version "1.1.2")
(version "1.2")
(source
(origin
(method git-fetch)
@ -5215,7 +5262,7 @@ locations.")
(file-name (git-file-name name version))
(sha256
(base32
"1s06xbyj0yd49aivfpc9l73c8c12r3zjmskkyislrfwkbpd74hjr"))))
"06ls830nrshzi2j532di5vdf03fp8cy1275ll4ms93x1hv2g8dk0"))))
(build-system gnu-build-system)
(inputs
(list guile-3.0))

13
gnu/packages/guile.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2014, 2016, 2018 David Thompson <davet@gnu.org>
;;; Copyright © 2014, 2017, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015, 2017 Christine Lemmer-Webber <cwebber@dustycloud.org>
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2016, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2016, 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2016, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
@ -47,7 +47,6 @@
#:use-module (gnu packages gawk)
#:use-module (gnu packages gettext)
#:use-module (gnu packages gperf)
#:use-module (gnu packages hurd)
#:use-module (gnu packages libffi)
#:use-module (gnu packages libunistring)
#:use-module (gnu packages linux)
@ -202,7 +201,7 @@ without requiring the source code to be rewritten.")
#:phases
(modify-phases %standard-phases
,@(if (hurd-system?)
,@(if (system-hurd?)
'((add-after 'unpack 'disable-tests
(lambda _
;; Hangs at: "Running 00-repl-server.test"
@ -345,7 +344,7 @@ without requiring the source code to be rewritten.")
(not (%current-target-system)))
((#:configure-flags flags #~'())
;; XXX: JIT-enabled Guile crashes in obscure ways on GNU/Hurd.
#~(cons* #$@(if (hurd-target?)
#~(cons* #$@(if (target-hurd?)
#~("--disable-jit")
#~())
;; -fexcess-precision=standard is required when compiling for
@ -433,9 +432,9 @@ without requiring the source code to be rewritten.")
; when heavily loaded)
(define-public guile-next
(let ((version "3.0.8")
(let ((version "3.0.9")
(revision "0")
(commit "a1a85581f17dade76a598b48eac7d3d308e3a0a5"))
(commit "aa2cfe7cf69327285a17de97682d696f2f6c43ef"))
(package
(inherit guile-3.0)
(name "guile-next")
@ -449,7 +448,7 @@ without requiring the source code to be rewritten.")
(file-name (git-file-name name version))
(sha256
(base32
"1l5zkg0wpchyizq8s4615hkj0n0i029l72k3pq2hha89r3bcn8al"))))
"03xwy3ni85qy0lrvz0lk0488394nfsfc1004l84lgyzql2qwkynl"))))
(arguments
(substitute-keyword-arguments (package-arguments guile-3.0)
((#:phases phases '%standard-phases)

40
gnu/packages/hardware.scm
View File

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

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

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

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

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

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

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

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