me
/
guix
Archived
1
0
Fork 0
Code

Merge branch 'master' into core-updates

master
Marius Bakke 2020-01-11 22:38:24 +01:00
parent 233c1be0a3 13efb24850
commit b7bf02a418
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
185 changed files with 15641 additions and 2432 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
HACKING
View File

@ -17,58 +17,4 @@ See the manual for useful hacking informations, either by running
info -f doc/guix.info "Contributing"
or by checking the [[http://www.gnu.org/software/guix/manual/guix.html#Contributing][web copy of the manual]].
* Commit Access
For frequent contributors, having write access to the repository is
convenient. When you deem it necessary, feel free to ask for it on the
mailing list. When you get commit access, please make sure to follow the
policy below (discussions of the policy can take place on guix-devel@gnu.org.)
Non-trivial patches should always be posted to guix-patches@gnu.org (trivial
patches include fixing typos, etc.). This mailing list fills the
patch-tracking database at [[https://bugs.gnu.org/guix-patches]]; see
"Contributing" in the manual for details.
For patches that just add a new package, and a simple one, it’s OK to commit,
if you’re confident (which means you successfully built it in a chroot setup,
and have done a reasonable copyright and license auditing.) Likewise for
package upgrades, except upgrades that trigger a lot of rebuilds (for example,
upgrading GnuTLS or GLib.) We have a mailing list for commit notifications
(guix-commits@gnu.org), so people can notice. Before pushing your changes,
make sure to run ‘git pull --rebase’.
All commits that are pushed to the central repository on Savannah must be
signed with an OpenPGP key, and the public key should be uploaded to your user
account on Savannah and to public key servers, such as
‘keys.openpgp.org’. To configure Git to automatically sign commits,
run:
git config commit.gpgsign true
git config user.signingkey CABBA6EA1DC0FF33
You can prevent yourself from accidentally pushing unsigned commits to
Savannah by using the pre-push Git hook called located at ‘etc/git/pre-push’:
cp etc/git/pre-push .git/hooks/pre-push
When pushing a commit on behalf of somebody else, please add a Signed-off-by
line at the end of the commit log message (e.g. with ‘git am --signoff’).
This improves tracking of who did what.
For anything else, please post to guix-patches@gnu.org and leave time for a
review, without committing anything. If you didn’t receive any reply
after two weeks, and if you’re confident, it’s OK to commit.
That last part is subject to being adjusted, allowing individuals to commit
directly on non-controversial changes on parts they’re familiar with.
* Using emacs-debbugs
Bug reports and patches are tracked using debbugs. If you are on emacs, you
can use emacs-debbugs.
List all open bug reports on guix-patches with
C-u M-x debbugs-gnu <RET> <RET> guix-patches <RET> n y
or by checking the [[https://guix.gnu.org/manual/devel/en/html_node/Contributing.html][web copy of the manual]].

4
build-aux/git-authenticate.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -89,6 +89,8 @@
"B3C0 DB4D AD73 BA5D 285E 19AE 5143 0234 CEFD 87C3")
("davexunit (2nd)" ;FIXME: to be confirmed!
"8CCB A7F5 52B9 CBEA E1FB 2915 8328 C747 0FF1 D807")
("daviwil"
"53C4 1E6E 41AA FE55 335A CA5E 446A 2ED4 D940 BF14")
("dvc"
"6909 6DFD D702 8BED ACC5 884B C5E0 51C7 9C0B ECDB")
("dvc (old)"

178
doc/contributing.texi
View File

@ -26,6 +26,8 @@ choice.
* Packaging Guidelines:: Growing the distribution.
* Coding Style:: Hygiene of the contributor.
* Submitting Patches:: Share your work.
* Tracking Bugs and Patches:: Using Debbugs.
* Commit Access:: Pushing to the official repository.
@end menu
@node Building from Git
@ -826,13 +828,15 @@ Development is done using the Git distributed version control system.
Thus, access to the repository is not strictly necessary. We welcome
contributions in the form of patches as produced by @code{git
format-patch} sent to the @email{guix-patches@@gnu.org} mailing list.
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 accessible at
@uref{https://bugs.gnu.org/guix-patches}, which allows us to keep track
of submissions. 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{NNN}@@debbugs.gnu.org}, where @var{NNN} is
the tracking number (@pxref{Sending a Patch Series}).
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{NNN}@@debbugs.gnu.org}, where @var{NNN} 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
@ -1040,3 +1044,165 @@ they are kept together. See
for more information. You can install @command{git send-email} with
@command{guix install git:send-email}.
@c Debbugs bug: https://debbugs.gnu.org/db/15/15361.html
@node Tracking Bugs and Patches
@section Tracking Bugs and Patches
@cindex bug reports, tracking
@cindex patch submissions, tracking
@cindex issue tracking
@cindex Debbugs, issue tracking system
Bug reports and patch submissions are currently tracked using the
Debbugs instance at @uref{https://bugs.gnu.org}. Bug reports are filed
against the @code{guix} ``package'' (in Debbugs parlance), by sending
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}).
A web interface (actually @emph{two} web interfaces!) are available to
browse issues:
@itemize
@item
@url{https://bugs.gnu.org/guix} lists bug reports;
@item
@url{https://bugs.gnu.org/guix-patches} lists patch submissions.
@end itemize
You can also access both of these @i{via} the (nicer)
@url{https://issues.guix.gnu.org} interface@footnote{The web interface
at @url{https://issues.guix.gnu.org} is powered by Mumi, a nice piece of
software written in Guile, and you can help! See
@url{https://git.elephly.net/gitweb.cgi?p=software/mumi.git}.}. To view
discussions related to issue number @var{n}, go to
@indicateurl{https://issues.guix.gnu.org/issue/@var{n}} or
@indicateurl{https://bugs.gnu.org/@var{n}}.
If you use Emacs, you may find it more convenient to interact with
issues using @file{debbugs.el}, which you can install with:
@example
guix install emacs-debbugs
@end example
For example, to list all open issues on @code{guix-patches}, hit:
@example
@kbd{C-u} @kbd{M-x} debbugs-gnu @kbd{RET} @kbd{RET} guix-patches @kbd{RET} n y
@end example
@xref{Top,,, debbugs-ug, Debbugs User Guide}, for more information on
this nifty tool!
@node Commit Access
@section Commit Access
@cindex commit access, for developers
For frequent contributors, having write access to the repository is
convenient. When you deem it necessary, consider applying for commit
access by following these steps:
@enumerate
@item
Find three committers who would vouch for you. You can view the list of
committers at
@url{https://savannah.gnu.org/project/memberlist.php?group=guix}. Each
of them should email a statement to @email{guix-maintainers@@gnu.org} (a
private alias for the collective of maintainers), signed with their
OpenPGP key.
Committers are expected to have had some interactions with you as a
contributor and to be able to judge whether you are sufficiently
familiar with the project's practices. It is @emph{not} a judgment on
the value of your work, so a refusal should rather be interpreted as
``let's try again later''.
@item
Send @email{guix-maintainers@@gnu.org} a message stating your intent,
listing the three committers who support your application, signed with
the OpenPGP key you will use to sign commits, and giving its fingerprint
(see below). See @uref{https://emailselfdefense.fsf.org/en/}, for an
introduction to public-key cryptography with GnuPG.
@item
Maintainers ultimately decide whether to grant you commit access,
usually following your referrals' recommendation.
@item
If and once you've been given access, please send a message to
@email{guix-devel@@gnu.org} to say so, again signed with the OpenPGP key
you will use to sign commits (do that before pushing your first commit).
That way, everyone can notice and ensure you control that OpenPGP key.
@c TODO: Add note about adding the fingerprint to the list of authorized
@c keys once that has stabilized.
@item
Make sure to read the rest of this section and... profit!
@end enumerate
@quotation Note
Maintainers are happy to give commit access to people who have been
contributing for some time and have a track record---don't be shy and
don't underestimate your work!
However, note that the project is working towards a more automated patch
review and merging system, which, as a consequence, may lead us to have
fewer people with commit access to the main repository. Stay tuned!
@end quotation
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}).
Non-trivial patches should always be posted to
@email{guix-patches@@gnu.org} (trivial patches include fixing typos,
etc.). This mailing list fills the patch-tracking database
(@pxref{Tracking Bugs and Patches}).
For patches that just add a new package, and a simple one, it's OK to
commit, if you're confident (which means you successfully built it in a
chroot setup, and have done a reasonable copyright and license
auditing). Likewise for package upgrades, except upgrades that trigger
a lot of rebuilds (for example, upgrading GnuTLS or GLib). We have a
mailing list for commit notifications (@email{guix-commits@@gnu.org}),
so people can notice. Before pushing your changes, make sure to run
@code{git pull --rebase}.
All commits that are pushed to the central repository on Savannah must
be signed with an OpenPGP key, and the public key should be uploaded to
your user account on Savannah and to public key servers, such as
@code{keys.openpgp.org}. To configure Git to automatically sign
commits, run:
@example
git config commit.gpgsign true
git config user.signingkey CABBA6EA1DC0FF33
@end example
You can prevent yourself from accidentally pushing unsigned commits to
Savannah by using the pre-push Git hook called located at
@file{etc/git/pre-push}:
@example
cp etc/git/pre-push .git/hooks/pre-push
@end example
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.,
with @command{git am --signoff}. This improves tracking of who did
what.
For anything else, please post to @email{guix-patches@@gnu.org} and
leave time for a review, without committing anything (@pxref{Submitting
Patches}). If you didn’t receive any reply after two weeks, and if
you're confident, it's OK to commit.
That last part is subject to being adjusted, allowing individuals to commit
directly on non-controversial changes on parts they’re familiar with.
One last thing: the project keeps moving forward because committers not
only push their own awesome changes, but also offer some of their time
@emph{reviewing} and pushing other people's changes. As a committer,
you're welcome to use your expertise and commit rights to help other
contributors, too!

170
doc/guix.texi
View File

@ -21,7 +21,7 @@
@set SUBSTITUTE-URL https://@value{SUBSTITUTE-SERVER}
@copying
Copyright @copyright{} 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès@*
Copyright @copyright{} 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès@*
Copyright @copyright{} 2013, 2014, 2016 Andreas Enge@*
Copyright @copyright{} 2013 Nikita Karetnikov@*
Copyright @copyright{} 2014, 2015, 2016 Alex Kost@*
@ -29,7 +29,7 @@ Copyright @copyright{} 2015, 2016 Mathieu Lirzin@*
Copyright @copyright{} 2014 Pierre-Antoine Rault@*
Copyright @copyright{} 2015 Taylan Ulrich Bayırlı/Kammer@*
Copyright @copyright{} 2015, 2016, 2017, 2019 Leo Famulari@*
Copyright @copyright{} 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus@*
Copyright @copyright{} 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus@*
Copyright @copyright{} 2016 Ben Woodcroft@*
Copyright @copyright{} 2016, 2017, 2018 Chris Marusich@*
Copyright @copyright{} 2016, 2017, 2018, 2019 Efraim Flashner@*
@ -49,7 +49,7 @@ Copyright @copyright{} 2017 Christopher Allan Webber@*
Copyright @copyright{} 2017, 2018, 2019 Marius Bakke@*
Copyright @copyright{} 2017, 2019 Hartmut Goebel@*
Copyright @copyright{} 2017, 2019 Maxim Cournoyer@*
Copyright @copyright{} 2017, 2018, 2019 Tobias Geerinckx-Rice@*
Copyright @copyright{} 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice@*
Copyright @copyright{} 2017 George Clemmer@*
Copyright @copyright{} 2017 Andy Wingo@*
Copyright @copyright{} 2017, 2018, 2019 Arun Isaac@*
@ -69,6 +69,7 @@ Copyright @copyright{} 2019 Jakob L. Kreuze@*
Copyright @copyright{} 2019 Kyle Andrews@*
Copyright @copyright{} 2019 Alex Griffin@*
Copyright @copyright{} 2019 Guillaume Le Vaillant@*
Copyright @copyright{} 2020 Leo Prikler@*
Permission is granted to copy, distribute and/or modify this document
under the terms of the GNU Free Documentation License, Version 1.3 or
@ -2245,8 +2246,8 @@ bootloaders.
Once you are done partitioning the target hard disk drive, you have to
create a file system on the relevant partition(s)@footnote{Currently
Guix System only supports ext4 and btrfs file systems. In particular, code
that reads file system UUIDs and labels only works for these file system
Guix System only supports ext4, btrfs, and JFS file systems. In particular,
code that reads file system UUIDs and labels only works for these file system
types.}. For the ESP, if you have one and assuming it is
@file{/dev/sda1}, run:
@ -14154,8 +14155,8 @@ Package object of the Open vSwitch.
@defvr {Scheme Variable} pagekite-service-type
This is the service type for the @uref{https://pagekite.net, PageKite} service,
a tunneling solution for making localhost servers publicly visible, even from
behind NAT or restrictive firewalls. The value for this service type is a
@code{pagekite-configuration} record.
behind restrictive firewalls or NAT without forwarded ports. The value for
this service type is a @code{pagekite-configuration} record.
Here's an example exposing the local HTTP and SSH daemons:
@ -15951,6 +15952,58 @@ pcm.!default @{
See @uref{https://www.alsa-project.org/main/index.php/Asoundrc} for the
details.
@deffn {Scheme Variable} pulseaudio-service-type
This is the type for the @uref{http://www.pulseaudio.org/, PulseAudio}
sound server. It exists to allow system overrides of the default settings
via @code{pulseaudio-configuration}, see below.
@quotation Warning
This service on its own does not ensure, that the @code{pulseaudio} package
exists on your machine. It merely adds configuration files for it, as
detailed below. In the (admittedly unlikely) case, that you find yourself
without a @code{pulseaudio} package, consider enabling it through the
@code{alsa-service-type} above.
@end quotation
@end deffn
@deftp {Data Type} pulseaudio-configuration
Data type representing the configuration for @code{pulseaudio-service}.
@table @asis
@item @var{client-conf} (default: @code{'()})
List of settings to set in @file{client.conf}.
Accepts a list of strings or a symbol-value pairs. A string will be
inserted as-is with a newline added. A pair will be formatted as
``key = value'', again with a newline added.
@item @var{daemon-conf} (default: @code{'((flat-volumes . no))})
List of settings to set in @file{daemon.conf}, formatted just like
@var{client-conf}.
@item @var{script-file} (default: @code{(file-append pulseaudio "/etc/pulse/default.pa")})
Script file to use as as @file{default.pa}.
@item @var{system-script-file} (default: @code{(file-append pulseaudio "/etc/pulse/system.pa")})
Script file to use as as @file{system.pa}.
@end table
@end deftp
@deffn {Scheme Variable} ladspa-service-type
This service sets the @var{LADSPA_PATH} variable, so that programs, which
respect it, e.g. PulseAudio, can load LADSPA plugins.
The following example will setup the service to enable modules from the
@code{swh-plugins} package:
@lisp
(service ladspa-service-type
(ladspa-configuration (plugins (list swh-plugins))))
@end lisp
See @uref{http://plugin.org.uk/ladspa-swh/docs/ladspa-swh.html} for the
details.
@end deffn
@node Database Services
@subsection Database Services
@ -21926,6 +21979,78 @@ The @code{(gnu services nfs)} module provides the following services,
which are most commonly used in relation to mounting or exporting
directory trees as @dfn{network file systems} (NFS).
While it is possible to use the individual components that together make
up a Network File System service, we recommended to configure an NFS
server with the @code{nfs-service-type}.
@subsubheading NFS Service
@cindex NFS, server
The NFS service takes care of setting up all NFS component services,
kernel configuration file systems, and installs configuration files in
the locations that NFS expects.
@defvr {Scheme Variable} nfs-service-type
A service type for a complete NFS server.
@end defvr
@deftp {Data Type} nfs-configuration
This data type represents the configuration of the NFS service and all
of its subsystems.
It has the following parameters:
@table @asis
@item @code{nfs-utils} (default: @code{nfs-utils})
The nfs-utils package to use.
@item @code{nfs-version} (default: @code{#f})
If a string value is provided, the @command{rpc.nfsd} daemon will be
limited to supporting the given version of the NFS protocol.
@item @code{exports} (default: @code{'()})
This is a list of directories the NFS server should export. Each entry
is a list consisting of two elements: a directory name and a string
containing all options. This is an example in which the directory
@file{/export} is served to all NFS clients as a read-only share:
@lisp
(nfs-configuration
(exports
'(("/export"
"*(ro,insecure,no_subtree_check,crossmnt,fsid=0)"))))
@end lisp
@item @code{rpcmountd-port} (default: @code{#f})
The network port that the @command{rpc.mountd} daemon should use.
@item @code{rpcstatd-port} (default: @code{#f})
The network port that the @command{rpc.statd} daemon should use.
@item @code{rpcbind} (default: @code{rpcbind})
The rpcbind package to use.
@item @code{idmap-domain} (default: @code{"localdomain"})
The local NFSv4 domain name.
@item @code{nfsd-port} (default: @code{2049})
The network port that the @command{nfsd} daemon should use.
@item @code{nfsd-threads} (default: @code{8})
The number of threads used by the @command{nfsd} daemon.
@item @code{pipefs-directory} (default: @code{"/var/lib/nfs/rpc_pipefs"})
The directory where the pipefs file system is mounted.
@item @code{debug} (default: @code{'()"})
A list of subsystems for which debugging output should be enabled. This
is a list of symbols. Any of these symbols are valid: @code{nfsd},
@code{nfs}, @code{rpc}, @code{idmap}, @code{statd}, or @code{mountd}.
@end table
@end deftp
If you don't need a complete NFS service or prefer to build it yourself
you can use the individual component services that are documented below.
@subsubheading RPC Bind Service
@cindex rpcbind
@ -22030,6 +22155,9 @@ The local NFSv4 domain name.
This must be a string or @code{#f}.
If it is @code{#f} then the daemon will use the host's fully qualified domain name.
@item @code{verbosity} (default: @code{0})
The verbosity level of the daemon.
@end table
@end deftp
@ -25958,26 +26086,36 @@ supported:
Display available service type definitions that match the given regular
expressions, sorted by relevance:
@cindex HDPI
@cindex HiDPI
@cindex resolution
@example
$ guix system search console font
$ guix system search console
name: console-fonts
location: gnu/services/base.scm:729:2
location: gnu/services/base.scm:806:2
extends: shepherd-root
description: Install the given fonts on the specified ttys (fonts are
+ per virtual console on GNU/Linux). The value of this service is a list
+ of tty/font pairs like:
description: Install the given fonts on the specified ttys (fonts are per
+ virtual console on GNU/Linux). The value of this service is a list of
+ tty/font pairs. The font can be the name of a font provided by the `kbd'
+ package or any valid argument to `setfont', as in this example:
+
+ '(("tty1" . "LatGrkCyr-8x16"))
relevance: 20
+ '(("tty1" . "LatGrkCyr-8x16")
+ ("tty2" . (file-append
+ font-tamzen
+ "/share/kbd/consolefonts/TamzenForPowerline10x20.psf"))
+ ("tty3" . (file-append
+ font-terminus
+ "/share/consolefonts/ter-132n"))) ; for HDPI
relevance: 9
name: mingetty
location: gnu/services/base.scm:1048:2
location: gnu/services/base.scm:1190:2
extends: shepherd-root
description: Provide console login using the `mingetty' program.
relevance: 2
name: login
location: gnu/services/base.scm:775:2
location: gnu/services/base.scm:860:2
extends: pam
description: Provide a console log-in service as specified by its
+ configuration value, a `login-configuration' object.

4
gnu/bootloader/extlinux.scm
View File

@ -74,7 +74,9 @@ TIMEOUT ~a~%"
(format port "~%"))
#~())))))
(computed-file "extlinux.conf" builder))
(computed-file "extlinux.conf" builder
#:options '(#:local-build? #t
#:substitutable? #f)))

10
gnu/bootloader/grub.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Chris Marusich <cmmarusich@gmail.com>
;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
@ -28,7 +28,7 @@
#:use-module (gnu system uuid)
#:use-module (gnu system file-systems)
#:use-module (gnu system keyboard)
#:autoload (gnu packages bootloaders) (grub)
#:use-module (gnu packages bootloaders)
#:autoload (gnu packages gtk) (guile-cairo guile-rsvg)
#:autoload (gnu packages xorg) (xkeyboard-config)
#:use-module (ice-9 match)
@ -392,7 +392,11 @@ if [ \"${grub_platform}\" == efi ]; then
}
fi~%"))))
(computed-file "grub.cfg" builder))
;; Since this file is rather unique, there's no point in trying to
;; substitute it.
(computed-file "grub.cfg" builder
#:options '(#:local-build? #t
#:substitutable? #f)))

26
gnu/build/activation.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;;
;;; This file is part of GNU Guix.
@ -247,7 +247,19 @@ they already exist."
string<?))
(mkdir-p %setuid-directory))
(for-each make-setuid-program programs))
(for-each (lambda (program)
(catch 'system-error
(lambda ()
(make-setuid-program program))
(lambda args
;; If we fail to create a setuid program, better keep going
;; so that we don't leave %SETUID-DIRECTORY empty or
;; half-populated. This can happen if PROGRAMS contains
;; incorrect file names: <https://bugs.gnu.org/38800>.
(format (current-error-port)
"warning: failed to make '~a' setuid-root: ~a~%"
program (strerror (system-error-errno args))))))
programs))
(define (activate-special-files special-files)
"Install the files listed in SPECIAL-FILES. Each element of SPECIAL-FILES
@ -269,9 +281,13 @@ second element is the name it should appear at, such as:
(define (activate-modprobe modprobe)
"Tell the kernel to use MODPROBE to load modules."
(call-with-output-file "/proc/sys/kernel/modprobe"
(lambda (port)
(display modprobe port))))
;; If the kernel was built without loadable module support, this file is
;; unavailable, so check for its existence first.
(when (file-exists? "/proc/sys/kernel/modprobe")
(call-with-output-file "/proc/sys/kernel/modprobe"
(lambda (port)
(display modprobe port)))))
(define (activate-firmware directory)
"Tell the kernel to look for device firmware under DIRECTORY. This

62
gnu/build/file-systems.scm
View File

@ -3,6 +3,8 @@
;;; Copyright © 2016, 2017 David Craven <david@craven.ch>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 David C. Trudgian <dave@trudgian.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -294,6 +296,45 @@ string. Trailing spaces are trimmed."
(string-trim-right (latin1->string (sub-bytevector sblock 40 32)
(lambda (c) #f)) #\space))
;;;
;;; JFS file systems.
;;;
;; Taken from <linux-libre>/fs/jfs/jfs_superblock.h.
(define-syntax %jfs-endianness
;; Endianness of JFS file systems.
(identifier-syntax (endianness little)))
(define (jfs-superblock? sblock)
"Return #t when SBLOCK is a JFS superblock."
(bytevector=? (sub-bytevector sblock 0 4)
(string->utf8 "JFS1")))
(define (read-jfs-superblock device)
"Return the raw contents of DEVICE's JFS superblock as a bytevector, or #f
if DEVICE does not contain a JFS file system."
(read-superblock device 32768 184 jfs-superblock?))
(define (jfs-superblock-uuid sblock)
"Return the UUID of JFS superblock SBLOCK as a 16-byte bytevector."
(sub-bytevector sblock 136 16))
(define (jfs-superblock-volume-name sblock)
"Return the volume name of SBLOCK as a string of at most 16 characters, or
#f if SBLOCK has no volume name."
(null-terminated-latin1->string (sub-bytevector sblock 152 16)))
(define (check-jfs-file-system device)
"Return the health of a JFS file system on DEVICE."
(match (status:exit-val
(system* "jfs_fsck" "-p" "-v" device))
(0 'pass)
(1 'errors-corrected)
(2 'reboot-required)
(_ 'fatal-error)))
;;;
;;; LUKS encrypted devices.
@ -303,6 +344,10 @@ string. Trailing spaces are trimmed."
;; <https://gitlab.com/cryptsetup/cryptsetup/wikis/Specification>. We follow
;; version 1.2.1 of this document.
;; The LUKS2 header format is described in "LUKS2 On-Disk Format Specification":
;; <https://gitlab.com/cryptsetup/LUKS2-docs/blob/master/luks2_doc_wip.pdf>.
;; It is a WIP document.
(define-syntax %luks-endianness
;; Endianness of LUKS headers.
(identifier-syntax (endianness big)))
@ -316,12 +361,16 @@ string. Trailing spaces are trimmed."
(let ((magic (sub-bytevector sblock 0 6))
(version (bytevector-u16-ref sblock 6 %luks-endianness)))
(and (bytevector=? magic %luks-magic)
(= version 1))))
(or (= version 1) (= version 2)))))
(define (read-luks-header file)
"Read a LUKS header from FILE. Return the raw header on success, and #f if
not valid header was found."
;; Size in bytes of the LUKS header, including key slots.
;; Size in bytes of the LUKS binary header, which includes key slots in
;; LUKS1. In LUKS2 the binary header is partially backward compatible, so
;; that UUID can be extracted as for LUKS1. Keyslots and other metadata are
;; not part of this header in LUKS2, but are included in the JSON metadata
;; area that follows.
(read-superblock file 0 592 luks-superblock?))
(define (luks-header-uuid header)
@ -420,7 +469,9 @@ partition field reader that returned a value."
(partition-field-reader read-fat32-superblock
fat32-superblock-volume-name)
(partition-field-reader read-fat16-superblock
fat16-superblock-volume-name)))
fat16-superblock-volume-name)
(partition-field-reader read-jfs-superblock
jfs-superblock-volume-name)))
(define %partition-uuid-readers
(list (partition-field-reader read-iso9660-superblock
@ -432,7 +483,9 @@ partition field reader that returned a value."
(partition-field-reader read-fat32-superblock
fat32-superblock-uuid)
(partition-field-reader read-fat16-superblock
fat16-superblock-uuid)))
fat16-superblock-uuid)
(partition-field-reader read-jfs-superblock
jfs-superblock-uuid)))
(define read-partition-label
(cut read-partition-field <> %partition-label-readers))
@ -527,6 +580,7 @@ were found."
((string-prefix? "ext" type) check-ext2-file-system)
((string-prefix? "btrfs" type) check-btrfs-file-system)
((string-suffix? "fat" type) check-fat-file-system)
((string-prefix? "jfs" type) check-jfs-file-system)
(else #f)))
(if check-procedure

6
gnu/installer.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -32,6 +32,7 @@
#:use-module (gnu packages connman)
#:use-module (gnu packages cryptsetup)
#:use-module (gnu packages disk)
#:use-module (gnu packages file-systems)
#:use-module (gnu packages guile)
#:use-module (gnu packages guile-xyz)
#:autoload (gnu packages gnupg) (guile-gcrypt)
@ -295,7 +296,8 @@ selected keymap."
cryptsetup
dosfstools ;mkfs.fat
e2fsprogs ;mkfs.ext4
btrfs-progs
btrfs-progs ;mkfs.btrfs
jfsutils ;jfs_mkfs
kbd ;chvt
guix ;guix system init call
util-linux ;mkwap

3
gnu/installer/newt/partition.scm
View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018, 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -120,7 +121,7 @@ Be careful, all data on the disk will be lost.")
(run-listbox-selection-page
#:info-text (G_ "Please select the file-system type for this partition.")
#:title (G_ "File-system type")
#:listbox-items '(ext4 btrfs fat16 fat32 swap)
#:listbox-items '(ext4 btrfs fat16 fat32 jfs swap)
#:listbox-item->text user-fs-type-name
#:sort-listbox-items? #f
#:button-text (G_ "Exit")

17
gnu/installer/parted.scm
View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018, 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -221,6 +222,7 @@ inferior to MAX-SIZE, #f otherwise."
((btrfs) "btrfs")
((fat16) "fat16")
((fat32) "fat32")
((jfs) "jfs")
((swap) "linux-swap")))
(define (user-fs-type->mount-type fs-type)
@ -229,7 +231,8 @@ inferior to MAX-SIZE, #f otherwise."
((ext4) "ext4")
((btrfs) "btrfs")
((fat16) "fat")
((fat32) "vfat")))
((fat32) "vfat")
((jfs) "jfs")))
(define (partition-filesystem-user-type partition)
"Return the filesystem type of PARTITION, to be stored in the FS-TYPE field
@ -242,6 +245,7 @@ of <user-partition> record."
((string=? name "btrfs") 'btrfs)
((string=? name "fat16") 'fat16)
((string=? name "fat32") 'fat32)
((string=? name "jfs") 'jfs)
((or (string=? name "swsusp")
(string=? name "linux-swap(v0)")
(string=? name "linux-swap(v1)"))
@ -1012,7 +1016,7 @@ bit bucket."
(lambda () exp ...)))))
(define (create-btrfs-file-system partition)
"Create an btrfs file-system for PARTITION file-name."
"Create a btrfs file-system for PARTITION file-name."
(with-null-output-ports
(invoke "mkfs.btrfs" "-f" partition)))
@ -1031,6 +1035,11 @@ bit bucket."
(with-null-output-ports
(invoke "mkfs.fat" "-F32" partition)))
(define (create-jfs-file-system partition)
"Create a JFS file-system for PARTITION file-name."
(with-null-output-ports
(invoke "jfs_mkfs" "-f" partition)))
(define (create-swap-partition partition)
"Set up swap area on PARTITION file-name."
(with-null-output-ports
@ -1101,6 +1110,10 @@ NEED-FORMATING? field set to #t."
(and need-formatting?
(not (eq? type 'extended))
(create-fat32-file-system file-name)))
((jfs)
(and need-formatting?
(not (eq? type 'extended))
(create-jfs-file-system file-name)))
((swap)
(create-swap-partition file-name))
(else

31
gnu/local.mk
View File

@ -7,7 +7,7 @@
# Copyright © 2016, 2017, 2018 Kei Kebreau <kkebreau@posteo.net>
# Copyright © 2016, 2017 Rene Saavedra <rennes@openmailbox.org>
# Copyright © 2016 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org>
# Copyright © 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
# Copyright © 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
# Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com>
# Copyright © 2016, 2017, 2018, 2019 Alex Vong <alexvong1995@gmail.com>
# Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
@ -17,7 +17,7 @@
# Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
# Copyright © 2017, 2018, 2019 Gábor Boskovits <boskovits@gmail.com>
# Copyright © 2018 Amirouche Boubekki <amirouche@hypermove.net>
# Copyright © 2018, 2019 Oleg Pykhalov <go.wigust@gmail.com>
# Copyright © 2018, 2019, 2020 Oleg Pykhalov <go.wigust@gmail.com>
# Copyright © 2018 Stefan Stefanović <stefanx2ovic@gmail.com>
# Copyright © 2018 Maxim Cournoyer <maxim.cournoyer@gmail.com>
# Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
@ -25,6 +25,7 @@
# Copyright © 2019 Jonathan Brielmaier <jonathan.brielmaier@web.de>
# Copyright © 2019 Evan Straw <evan.straw99@gmail.com>
# Copyright © 2019 Brett Gilio <brettg@gnu.org>
# Copyright © 2019 Amin Bandali <bandali@gnu.org>
#
# This file is part of GNU Guix.
#
@ -228,7 +229,6 @@ GNU_SYSTEM_MODULES = \
%D%/packages/golang.scm \
%D%/packages/gperf.scm \
%D%/packages/gpodder.scm \
%D%/packages/gprolog.scm \
%D%/packages/gps.scm \
%D%/packages/graph.scm \
%D%/packages/graphics.scm \
@ -290,6 +290,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/key-mon.scm \
%D%/packages/kodi.scm \
%D%/packages/language.scm \
%D%/packages/lean.scm \
%D%/packages/lego.scm \
%D%/packages/less.scm \
%D%/packages/lesstif.scm \
@ -376,6 +377,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/onc-rpc.scm \
%D%/packages/opencl.scm \
%D%/packages/openbox.scm \
%D%/packages/opencog.scm \
%D%/packages/openldap.scm \
%D%/packages/openstack.scm \
%D%/packages/orpheus.scm \
@ -403,6 +405,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/popt.scm \
%D%/packages/printers.scm \
%D%/packages/profiling.scm \
%D%/packages/prolog.scm \
%D%/packages/pth.scm \
%D%/packages/pulseaudio.scm \
%D%/packages/pumpio.scm \
@ -435,7 +438,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/ruby.scm \
%D%/packages/rush.scm \
%D%/packages/rust.scm \
%D%/packages/rust-cbindgen.scm \
%D%/packages/rust-apps.scm \
%D%/packages/samba.scm \
%D%/packages/sagemath.scm \
%D%/packages/sawfish.scm \
@ -691,7 +694,6 @@ dist_patch_DATA = \
%D%/packages/patches/a2ps-CVE-2015-8107.patch \
%D%/packages/patches/abcl-fix-build-xml.patch \
%D%/packages/patches/abiword-explictly-cast-bools.patch \
%D%/packages/patches/abiword-black-drawing-with-gtk322.patch \
%D%/packages/patches/adb-add-libraries.patch \
%D%/packages/patches/aegis-constness-error.patch \
%D%/packages/patches/aegis-perl-tempdir1.patch \
@ -706,10 +708,9 @@ dist_patch_DATA = \
%D%/packages/patches/antiword-CVE-2014-8123.patch \
%D%/packages/patches/antlr3-3_1-fix-java8-compilation.patch \
%D%/packages/patches/antlr3-3_3-fix-java8-compilation.patch \
%D%/packages/patches/appstream-glib-2020.patch \
%D%/packages/patches/apr-skip-getservbyname-test.patch \
%D%/packages/patches/arm-trusted-firmware-disable-hdcp.patch \
%D%/packages/patches/arm-trusted-firmware-optional-bin-generation.patch \
%D%/packages/patches/arm-trusted-firmware-rockchip-disable-binary.patch \
%D%/packages/patches/aspell-default-dict-dir.patch \
%D%/packages/patches/ath9k-htc-firmware-binutils.patch \
%D%/packages/patches/ath9k-htc-firmware-gcc.patch \
@ -759,10 +760,8 @@ dist_patch_DATA = \
%D%/packages/patches/catdoc-CVE-2017-11110.patch \
%D%/packages/patches/cdparanoia-fpic.patch \
%D%/packages/patches/cdrtools-3.01-mkisofs-isoinfo.patch \
%D%/packages/patches/ceph-detect-rocksdb.patch \
%D%/packages/patches/ceph-boost-compat.patch \
%D%/packages/patches/ceph-disable-cpu-optimizations.patch \
%D%/packages/patches/ceph-skip-collect-sys-info-test.patch \
%D%/packages/patches/ceph-skip-unittest_blockdev.patch \
%D%/packages/patches/ceph-volume-respect-PATH.patch \
%D%/packages/patches/chmlib-inttypes.patch \
%D%/packages/patches/clamav-config-llvm-libs.patch \
@ -997,7 +996,6 @@ dist_patch_DATA = \
%D%/packages/patches/hdf-eos5-remove-gctp.patch \
%D%/packages/patches/hdf-eos5-fix-szip.patch \
%D%/packages/patches/hdf-eos5-fortrantests.patch \
%D%/packages/patches/hexchat-crash-exit.patch \
%D%/packages/patches/higan-remove-march-native-flag.patch \
%D%/packages/patches/hubbub-sort-entities.patch \
%D%/packages/patches/hurd-fix-eth-multiplexer-dependency.patch \
@ -1030,6 +1028,8 @@ dist_patch_DATA = \
%D%/packages/patches/java-xerces-build_dont_unzip.patch \
%D%/packages/patches/java-xerces-xjavac_taskdef.patch \
%D%/packages/patches/jbig2dec-ignore-testtest.patch \
%D%/packages/patches/jfsutils-add-sysmacros.patch \
%D%/packages/patches/jfsutils-include-systypes.patch \
%D%/packages/patches/kdbusaddons-kinit-file-name.patch \
%D%/packages/patches/libnftnl-dont-check-NFTNL_FLOWTABLE_SIZE.patch \
%D%/packages/patches/libvirt-create-machine-cgroup.patch \
@ -1107,6 +1107,8 @@ dist_patch_DATA = \
%D%/packages/patches/libsndfile-CVE-2017-8362.patch \
%D%/packages/patches/libsndfile-CVE-2017-12562.patch \
%D%/packages/patches/libtar-CVE-2013-4420.patch \
%D%/packages/patches/libtgvoip-disable-sse2.patch \
%D%/packages/patches/libtgvoip-disable-webrtc.patch \
%D%/packages/patches/libtheora-config-guess.patch \
%D%/packages/patches/libtommath-fix-linkage.patch \
%D%/packages/patches/libtool-skip-tests2.patch \
@ -1156,7 +1158,6 @@ dist_patch_DATA = \
%D%/packages/patches/mcrypt-CVE-2012-4527.patch \
%D%/packages/patches/mes-remove-store-name.patch \
%D%/packages/patches/mesa-skip-disk-cache-test.patch \
%D%/packages/patches/mesa-timespec-test-32bit.patch \
%D%/packages/patches/mescc-tools-boot.patch \
%D%/packages/patches/meson-for-build-rpath.patch \
%D%/packages/patches/metabat-fix-compilation.patch \
@ -1195,11 +1196,9 @@ dist_patch_DATA = \
%D%/packages/patches/netsurf-system-utf8proc.patch \
%D%/packages/patches/netsurf-y2038-tests.patch \
%D%/packages/patches/netsurf-longer-test-timeout.patch \
%D%/packages/patches/nfs-utils-missing-headers.patch \
%D%/packages/patches/ngircd-handle-zombies.patch \
%D%/packages/patches/nm-plugin-path.patch \
%D%/packages/patches/nsis-env-passthru.patch \
%D%/packages/patches/nss-CVE-2019-11745.patch \
%D%/packages/patches/nss-freebl-stubs.patch \
%D%/packages/patches/nss-increase-test-timeout.patch \
%D%/packages/patches/nss-pkgconfig.patch \
@ -1233,7 +1232,6 @@ dist_patch_DATA = \
%D%/packages/patches/openssl-c-rehash-in.patch \
%D%/packages/patches/openssl-CVE-2019-1559.patch \
%D%/packages/patches/open-zwave-hidapi.patch \
%D%/packages/patches/orc-typedef-enum.patch \
%D%/packages/patches/orpheus-cast-errors-and-includes.patch \
%D%/packages/patches/osip-CVE-2017-7853.patch \
%D%/packages/patches/ots-no-include-missing-file.patch \
@ -1245,7 +1243,6 @@ dist_patch_DATA = \
%D%/packages/patches/pango-skip-libthai-test.patch \
%D%/packages/patches/patchutils-test-perms.patch \
%D%/packages/patches/patch-hurd-path-max.patch \
%D%/packages/patches/pcre2-fix-jit_match-crash.patch \
%D%/packages/patches/perl-autosplit-default-time.patch \
%D%/packages/patches/perl-deterministic-ordering.patch \
%D%/packages/patches/perl-finance-quote-unuse-mozilla-ca.patch \
@ -1385,7 +1382,6 @@ dist_patch_DATA = \
%D%/packages/patches/sooperlooper-build-with-wx-30.patch \
%D%/packages/patches/soundconverter-remove-gconf-dependency.patch \
%D%/packages/patches/steghide-fixes.patch \
%D%/packages/patches/streamlink-update-test.patch \
%D%/packages/patches/supercollider-boost-1.70-build-fix.patch \
%D%/packages/patches/superlu-dist-awpm-grid.patch \
%D%/packages/patches/superlu-dist-fix-mpi-deprecations.patch \
@ -1425,7 +1421,6 @@ dist_patch_DATA = \
%D%/packages/patches/tomb-fix-errors-on-open.patch \
%D%/packages/patches/tuxpaint-stamps-path.patch \
%D%/packages/patches/txr-shell.patch \
%D%/packages/patches/u-boot-fix-mkimage-header-verification.patch \
%D%/packages/patches/ucx-tcp-iface-ioctl.patch \
%D%/packages/patches/udiskie-no-appindicator.patch \
%D%/packages/patches/unzip-CVE-2014-8139.patch \

6
gnu/packages.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016, 2017 Alex Kost <alezost@gmail.com>
@ -30,12 +30,12 @@
#:select ((package-name->name+version
. hyphen-separated-name->name+version)
mkdir-p))
#:autoload (guix profiles) (packages->manifest)
#:use-module (guix profiles)
#:use-module (guix describe)
#:use-module (guix deprecation)
#:use-module (ice-9 vlist)
#:use-module (ice-9 match)
#:autoload (ice-9 binary-ports) (put-bytevector)
#:use-module (ice-9 binary-ports)
#:autoload (system base compile) (compile)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-11)

8
gnu/packages/abiword.scm
View File

@ -4,6 +4,7 @@
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -47,7 +48,7 @@
(define-public abiword
(package
(name "abiword")
(version "3.0.2")
(version "3.0.4")
(source
(origin
(method url-fetch)
@ -55,10 +56,9 @@
(string-append "https://www.abisource.com/downloads/abiword/" version
"/source/abiword-" version ".tar.gz"))
(sha256
(base32 "08imry821g81apdwym3gcs4nss0l9j5blqk31j5rv602zmcd9gxg"))
(base32 "1mx5l716n0z5788i19qmad30cck4v9ggr071cafw2nrf375rcc79"))
(patches
(search-patches "abiword-explictly-cast-bools.patch"
"abiword-black-drawing-with-gtk322.patch"))))
(search-patches "abiword-explictly-cast-bools.patch"))))
(build-system glib-or-gtk-build-system)
(arguments ;; NOTE: rsvg is disabled, since Abiword

64
gnu/packages/admin.scm
View File

@ -13,7 +13,7 @@
;;; Copyright © 2016 Peter Feigl <peter.feigl@nexoid.at>
;;; Copyright © 2016 John J. Foerch <jjfoerch@earthlink.net>
;;; Copyright © 2016, 2017 ng0 <ng0@n0.is>
;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016 John Darrington <jmd@gnu.org>
;;; Copyright © 2017 Ben Sturmfels <ben@sturm.com.au>
;;; Copyright © 2017 Ethan R. Jones <doubleplusgood23@gmail.com>
@ -30,6 +30,7 @@
;;; Copyright © 2019 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1204,7 +1205,7 @@ system administrator.")
(define-public sudo
(package
(name "sudo")
(version "1.8.29")
(version "1.8.30")
(source (origin
(method url-fetch)
(uri
@ -1214,7 +1215,7 @@ system administrator.")
version ".tar.gz")))
(sha256
(base32
"0z4wyadh9cks17gdpfgx4kvbrlnyb6nai2sd6chk7qh4jsngylyf"))
"1rvrqlqrrjsd06dczgj9cwjdkpkqil5zzlwh87h06ms6qzfx6nm3"))
(modules '((guix build utils)))
(snippet
'(begin
@ -1834,7 +1835,7 @@ various ways that may be running with too much privilege.")
(define-public smartmontools
(package
(name "smartmontools")
(version "7.0")
(version "7.1")
(source (origin
(method url-fetch)
(uri (string-append
@ -1842,7 +1843,7 @@ various ways that may be running with too much privilege.")
version "/smartmontools-" version ".tar.gz"))
(sha256
(base32
"077nx2rn9szrg6isdh0938zbp7vr3dsyxl4jdyyzv1xwhqksrqg5"))))
"0imqb7ka4ia5573w8rnpck571pjjc9698pdjcapy9cfyk4n4swrz"))))
(build-system gnu-build-system)
(inputs `(("libcap-ng" ,libcap-ng)))
(home-page "https://www.smartmontools.org/")
@ -2908,34 +2909,35 @@ tool for remote execution and deployment.")
(license license:bsd-2)))
(define-public neofetch
(package
(name "neofetch")
(version "6.1.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/dylanaraps/neofetch")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"022xzn9jk18k2f4b6011d8jk5nbl84i3mw3inlz4q52p2hvk8fch"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; there are no tests
#:make-flags
(list (string-append "PREFIX=" %output))
#:phases
(modify-phases %standard-phases
(delete 'configure)))) ; no configure script
(home-page "https://github.com/dylanaraps/neofetch")
(synopsis "System information script")
(description "Neofetch is a command-line system information tool written in
(let ((commit "501d6b7594296d9eac8943140f8581daf555873d"))
(package
(name "neofetch")
(version (git-version "6.1.0" "1" commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/dylanaraps/neofetch")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1h5md9jimyc6z4d7w66j27hn8qghzyxgpkh5h9dclzxpp5cs8whb"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; there are no tests
#:make-flags
(list (string-append "PREFIX=" %output))
#:phases
(modify-phases %standard-phases
(delete 'configure)))) ; no configure script
(home-page "https://github.com/dylanaraps/neofetch")
(synopsis "System information script")
(description "Neofetch is a command-line system information tool written in
Bash. Neofetch displays information about your system next to an image, your OS
logo, or any ASCII file of your choice. The main purpose of Neofetch is to be
used in screenshots to show other users what operating system or distribution
you are running, what theme or icon set you are using, etc.")
(license license:expat)))
(license license:expat))))
(define-public screenfetch
(package
@ -3205,7 +3207,7 @@ Python loading in HPC environments.")
(let ((real-name "inxi"))
(package
(name "inxi-minimal")
(version "3.0.34-1")
(version "3.0.37-1")
(source
(origin
(method git-fetch)
@ -3214,7 +3216,7 @@ Python loading in HPC environments.")
(commit version)))
(file-name (git-file-name real-name version))
(sha256
(base32 "0x2s40lwsan2pk292nspjgyw00f9f5fdfmwfvl50924pxhyxn2fh"))))
(base32 "15wvj9w601ci3bavd1hk5qlm8dfm7a7cjglczk29yir5yw2jww3f"))))
(build-system trivial-build-system)
(inputs
`(("bash" ,bash-minimal)

4
gnu/packages/algebra.scm
View File

@ -346,7 +346,7 @@ precision.")
(define-public giac
(package
(name "giac")
(version "1.5.0-75")
(version "1.5.0-85")
(source (origin
(method url-fetch)
;; "~parisse/giac" is not used because the maintainer regularly
@ -358,7 +358,7 @@ precision.")
"source/giac_" version ".tar.gz"))
(sha256
(base32
"1k94xl6hvy9xqwc3ccgnhpdqgq3lkjbgpgq0njizmlg514dh2jhq"))))
"03icgrfhb1xiy95cqmfgmcb1lw3775mr2ybnzandmyn44iycs6rh"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((ice-9 ftw)

105
gnu/packages/assembly.scm
View File

@ -3,9 +3,10 @@
;;; Copyright © 2013, 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Guy Fleury Iteriteka <hoonandon@gmail.com>
;;; Copyright © 2019 Andy Tai <atai@atai.org>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -23,6 +24,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages assembly)
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix download)
#:use-module (guix git-download)
@ -36,11 +38,14 @@
#:use-module (gnu packages compression)
#:use-module (gnu packages flex)
#:use-module (gnu packages gettext)
#:use-module (gnu packages image)
#:use-module (gnu packages linux)
#:use-module (gnu packages man)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages python)
#:use-module (gnu packages sphinx)
#:use-module (gnu packages xml)
#:use-module ((guix utils)
#:select (%current-system)))
@ -143,14 +148,14 @@ to the clients.")
(define-public fasm
(package
(name "fasm")
(version "1.73.11")
(version "1.73.21")
(source
(origin
(method url-fetch)
(uri (string-append "https://flatassembler.net/fasm-"
version ".tgz"))
(sha256
(base32 "1zhbs72qc8bw5158zh6mvzznfamcx5a1bsmbmq9ci0d7wb58sxmg"))))
(base32 "143zh7x3q0r2kclshh8n5w4i5pw4lh60si7rspvc725xxjpjkvcv"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no tests exist
@ -174,9 +179,9 @@ to the clients.")
(supported-systems '("x86_64-linux" "i686-linux"))
(synopsis "Assembler for x86 processors")
(description
"FASM is an assembler that supports x86 and IA-64 Intel architectures.
It does multiple passes to optimize machine code. It has macro abilities and
focuses on operating system portability.")
"@acronym{FASM, the Flat ASseMbler} is an assembler that supports x86 and
IA-64 Intel architectures. It does multiple passes to optimize machine code.
It has macro abilities and focuses on operating system portability.")
(home-page "https://flatassembler.net/")
(license license:bsd-2)))
@ -249,3 +254,91 @@ assembler, a C compiler and a linker. The assembler uses Intel syntax
functionality independent of any particular bytecode, language, or
runtime")
(license license:lgpl2.1+))))
(define-public rgbds
(package
(name "rgbds")
(version "0.3.9")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/rednex/rgbds.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0pzd9ig3ahpgq7jbj82grllxx1v01d620insr2m8h0c6jj25n5hv"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(delete 'configure)
(replace 'check
(lambda _
(with-directory-excursion "test/asm"
(invoke "./test.sh"))
(with-directory-excursion "test/link"
(invoke "./test.sh")))))
#:make-flags `("CC=gcc"
,(string-append "PREFIX="
(assoc-ref %outputs "out")))))
(native-inputs
`(("bison" ,bison)
("flex" ,flex)
("pkg-config" ,pkg-config)
("util-linux" ,util-linux)))
(inputs
`(("libpng" ,libpng)))
(home-page "https://github.com/rednex/rgbds")
(synopsis "Rednex Game Boy Development System")
(description
"RGBDS (Rednex Game Boy Development System) is an assembler/linker
package for the Game Boy and Game Boy Color. It consists of:
@itemize @bullet
@item rgbasm (assembler)
@item rgblink (linker)
@item rgbfix (checksum/header fixer)
@item rgbgfx (PNG-to-Game Boy graphics converter)
@end itemize")
(license license:expat)))
(define-public wla-dx
(package
(name "wla-dx")
(version "9.10")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/vhelin/wla-dx.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"022isf7s9q5i0j4xj69zpp0lgw8p9n37sn7ii25v68r15zaahk2w"))))
(build-system cmake-build-system)
(native-inputs
`(("sphinx" ,python-sphinx))) ; to generate man pages
(arguments
`(#:tests? #f)) ; no tests
(home-page "https://github.com/vhelin/wla-dx")
(synopsis "Assemblers for various processors")
(description "WLA DX is a set of tools to assemble assembly files to
object or library files (@code{wla-ARCH}) and link them together (@code{wlalink}).
Supported architectures are:
@itemize @bullet
@item z80
@item gb (z80-gb)
@item 6502
@item 65c02
@item 6510
@item 65816
@item 6800
@item 6801
@item 6809
@item 8008
@item 8080
@item huc6280
@item spc700
@end itemize")
(license license:gpl2)))

6
gnu/packages/astronomy.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 John Darrington <jmd@gnu.org>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 by Amar Singh <nly@disroot.org>
;;;
@ -149,7 +149,7 @@ programs for the manipulation and analysis of astronomical data.")
(define-public stellarium
(package
(name "stellarium")
(version "0.19.2")
(version "0.19.3")
(source
(origin
(method url-fetch)
@ -157,7 +157,7 @@ programs for the manipulation and analysis of astronomical data.")
"/releases/download/v" version
"/stellarium-" version ".tar.gz"))
(sha256
(base32 "10b05slj5fjakrjb20m68xql68plb64mwn0165dy2fry8z2hbl74"))))
(base32 "0p92rgclag0nkic9gk3p9vclb8xx9hv4zlgyij6cyh43s7c1avhp"))))
(build-system cmake-build-system)
(inputs
`(("qtbase" ,qtbase)

41
gnu/packages/audio.scm
View File

@ -8,8 +8,8 @@
;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2016 ng0 <ng0@n0.is>
;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org>
;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2018 okapi <okapi@firemail.cc>
;;; Copyright © 2018 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
@ -722,6 +722,36 @@ performances. The plugins include a cellular automaton synthesizer, an
envelope follower, distortion effects, tape effects and more.")
(license license:gpl2+)))
(define-public swh-plugins
(package
(name "swh-plugins")
(version "0.4.17")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/swh/ladspa.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1c98z2xxz9pgcb4dg99gz8qrylh5cnag0j18a52d88ifsy24isvq"))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("gettext" ,gettext-minimal) ;for autopoint
("libtool" ,libtool)
("perl" ,perl)
("pkg-config" ,pkg-config)
("which" ,which)))
(inputs
`(("fftwf" ,fftwf)
("perl-xml-parser" ,perl-xml-parser)))
(build-system gnu-build-system)
(home-page "http://plugin.org.uk")
(synopsis "The SWH Plugins package for the LADSPA plugin system")
(description "This package provides Steve Harris's LADSPA plugins.")
(license license:gpl2+)))
(define-public swh-plugins-lv2
(package
(name "swh-plugins-lv2")
@ -2733,7 +2763,7 @@ Tracker 3 S3M and Impulse Tracker IT files.")
(define-public soundtouch
(package
(name "soundtouch")
(version "2.1.1")
(version "2.1.2")
(source
(origin
(method git-fetch)
@ -2742,7 +2772,7 @@ Tracker 3 S3M and Impulse Tracker IT files.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0p6jzgfgqw061702dmd2b6r4arz48ac3mmx2qkvvzf8s5jjzykdh"))))
(base32 "174wgm3s0inmbnkrlnspxjwm2014qhjhkbdqa5r8rbfi0nzqxzsz"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
@ -3562,7 +3592,8 @@ the following features:
`(("which" ,which)))
(inputs
`(("fftw" ,fftw)
("googletest" ,googletest)
;; TODO: Try using the latest googletest for versions > 1.6.
("googletest" ,googletest-1.8)
("ncurses" ,ncurses)
("pulseaudio" ,pulseaudio)))
(arguments

326
gnu/packages/bioinformatics.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2015, 2016 Pjotr Prins <pjotr.guix@thebird.nl>
;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2016 Roel Janssen <roel@gnu.org>
;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2016, 2018 Raoul Bonnal <ilpuccio.febo@gmail.com>
;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
@ -85,10 +85,10 @@
#:use-module (gnu packages imagemagick)
#:use-module (gnu packages java)
#:use-module (gnu packages java-compression)
#:use-module (gnu packages javascript)
#:use-module (gnu packages jemalloc)
#:use-module (gnu packages dlang)
#:use-module (gnu packages linux)
#:use-module (gnu packages lisp-xyz)
#:use-module (gnu packages logging)
#:use-module (gnu packages machine-learning)
#:use-module (gnu packages man)
@ -1682,13 +1682,13 @@ splice junctions between exons.")
(modify-phases %standard-phases
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((bin (string-append
(assoc-ref outputs "out") "/bin"))
(doc (string-append
(assoc-ref outputs "out") "/share/doc/bwa"))
(man (string-append
(assoc-ref outputs "out") "/share/man/man1")))
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(lib (string-append out "/lib"))
(doc (string-append out "/share/doc/bwa"))
(man (string-append out "/share/man/man1")))
(install-file "bwa" bin)
(install-file "libbwa.a" lib)
(install-file "README.md" doc)
(install-file "bwa.1" man))
#t))
@ -13384,6 +13384,36 @@ reference transcripts provided in a annotation file (also in GTF/GFF3 format).
license:expat ;license for gffcompare
license:artistic2.0))))) ;license for gclib
(define-public intervaltree
(let ((commit "b90527f9e6d51cd36ecbb50429e4524d3a418ea5"))
(package
(name "intervaltree")
(version (git-version "0.0.0" "1" commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ekg/intervaltree/")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0rgv6q5fl4x5d74n6p5wvdna6zmbdbqpb4jqqh6vq3670gn08xad"))))
(build-system gnu-build-system)
(arguments
'(#:tests? #f ; No tests.
#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
"DESTDIR=\"\"")
#:phases
(modify-phases %standard-phases
(delete 'configure)))) ; There is no configure phase.
(home-page "https://github.com/ekg/intervaltree")
(synopsis "Minimal C++ interval tree implementation")
(description "An interval tree can be used to efficiently find a set of
numeric intervals overlapping or containing another interval. This library
provides a basic implementation of an interval tree using C++ templates,
allowing the insertion of arbitrary types into the tree.")
(license license:expat))))
(define-public python-intervaltree
(package
(name "python-intervaltree")
@ -14869,7 +14899,7 @@ mutations from scRNA-Seq data.")
(define-public tabixpp
(package
(name "tabixpp")
(version "1.0.0")
(version "1.1.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -14877,7 +14907,11 @@ mutations from scRNA-Seq data.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "08vx6nsipk971cyr8z53rnzwkvlld63kcn1fw0pwddynz91xfny8"))))
(base32 "1k2a3vbq96ic4lw72iwp5s3mwwc4xhdffjj584yn6l9637q9j1yd"))
(modules '((guix build utils)))
(snippet
`(begin
(delete-file-recursively "htslib") #t))))
(build-system gnu-build-system)
(inputs
`(("htslib" ,htslib)
@ -14893,6 +14927,7 @@ mutations from scRNA-Seq data.")
(let ((htslib-ref (assoc-ref inputs "htslib")))
(invoke "make"
(string-append "HTS_LIB=" htslib-ref "/lib/libhts.a")
(string-append "INCLUDES= -I" htslib-ref "/include/htslib")
"HTS_HEADERS=" ; No need to check for headers here.
(string-append "LIBPATH=-L. -L" htslib-ref "/include")))))
(replace 'install
@ -14906,30 +14941,11 @@ mutations from scRNA-Seq data.")
some of the details of opening and jumping in tabix-indexed files.")
(license license:expat)))
(define tabixpp-freebayes
;; This version works with FreeBayes while the released
;; version doesn't. The released creates a variable with the name \"vcf\"
;; somewhere, which is also the name of a namespace in vcflib.
(let ((commit "bbc63a49acc52212199f92e9e3b8fba0a593e3f7"))
(package
(inherit tabixpp)
(name "tabixpp-freebayes")
(version (git-version "0.0.0" "1" commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ekg/tabixpp/")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "017qsmsc2kyiyzqr9nl8cc6pfldxf16dbn8flx5i59mbqr9ydi7g")))))))
(define-public smithwaterman
;; TODO: Upgrading smithwaterman breaks FreeBayes.
(let ((commit "203218b47d45ac56ef234716f1bd4c741b289be1"))
(let ((commit "2610e259611ae4cde8f03c72499d28f03f6d38a7"))
(package
(name "smithwaterman")
(version (string-append "0-1." (string-take commit 7)))
(version (git-version "0.0.0" "2" commit))
(source (origin
(method git-fetch)
(uri (git-reference
@ -14937,17 +14953,21 @@ some of the details of opening and jumping in tabix-indexed files.")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0z9xsmsv452kgdfbbwydyc6nymg3fwyv8zswls8qjin3r4ia4415"))))
(base32 "0i9d8zrxpiracw3mxzd9siybpy62p06rqz9mc2w93arajgbk45bs"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; There are no tests to run.
#:make-flags '("libsw.a" "all")
#:phases
(modify-phases %standard-phases
(delete 'configure) ; There is no configure phase.
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out") "/bin")))
(install-file "smithwaterman" bin))
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(lib (string-append out "/lib")))
(install-file "smithwaterman" bin)
(install-file "libsw.a" lib))
#t)))))
(home-page "https://github.com/ekg/smithwaterman")
(synopsis "Implementation of the Smith-Waterman algorithm")
@ -15020,125 +15040,135 @@ neural networks.")
(license license:gpl3))))
(define-public fastahack
(let ((commit "c68cebb4f2e5d5d2b70cf08fbdf1944e9ab2c2dd"))
(package
(name "fastahack")
(version (git-version "0.0.0" "1" commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ekg/fastahack/")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0hfdv67l9g611i2ck4l92pd6ygmsp9g1ph4zx1ni7qkpsikf0l19"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; Unclear how to run tests: https://github.com/ekg/fastahack/issues/15
#:phases
(modify-phases %standard-phases
(delete 'configure) ; There is no configure phase.
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out") "/bin")))
(install-file "fastahack" bin))
#t)))))
(home-page "https://github.com/ekg/fastahack")
(synopsis "Indexing and sequence extraction from FASTA files")
(description "Fastahack is a small application for indexing and
(package
(name "fastahack")
(version "1.0.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ekg/fastahack/")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0rp1blskhzxf7vbh253ibpxbgl9wwgyzf1wbkxndi08d3j4vcss9"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; Unclear how to run tests: https://github.com/ekg/fastahack/issues/15
#:phases
(modify-phases %standard-phases
(delete 'configure) ; There is no configure phase.
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out") "/bin")))
(install-file "fastahack" bin))
#t)))))
(home-page "https://github.com/ekg/fastahack")
(synopsis "Indexing and sequence extraction from FASTA files")
(description "Fastahack is a small application for indexing and
extracting sequences and subsequences from FASTA files. The included library
provides a FASTA reader and indexer that can be embedded into applications
which would benefit from directly reading subsequences from FASTA files. The
library automatically handles index file generation and use.")
(license (list license:expat license:gpl2)))))
(license (list license:expat license:gpl2))))
(define-public vcflib
(let ((commit "5ac091365fdc716cc47cc5410bb97ee5dc2a2c92")
(revision "1"))
(package
(name "vcflib")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/vcflib/vcflib/")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1gijvcz1lcdn5kvgzb671l6iby0379qk00nqmcrszgk67hfwx6kq"))))
(build-system gnu-build-system)
(inputs
`(("zlib" ,zlib)))
(native-inputs
`(("perl" ,perl)
("python" ,python-2)
;; Submodules.
;; This package builds against the .o files so we need to extract the source.
("tabixpp-src" ,(package-source tabixpp-freebayes))
("smithwaterman-src" ,(package-source smithwaterman))
("multichoose-src" ,(package-source multichoose))
("fsom-src" ,(package-source fsom))
("filevercmp-src" ,(package-source filevercmp))
("fastahack-src" ,(package-source fastahack))
("intervaltree-src"
,(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ekg/intervaltree/")
(commit "dbb4c513d1ad3baac516fc1484c995daf9b42838")))
(file-name "intervaltree-src-checkout")
(sha256
(base32 "1fy5qbj4bg8d2bjysvaa9wfnqn2rj2sk5yra2h4l5pzvy53f23fj"))))))
(arguments
`(#:tests? #f ; no tests
#:phases
(modify-phases %standard-phases
(delete 'configure)
(delete 'check)
(add-after 'unpack 'unpack-submodule-sources
(lambda* (#:key inputs #:allow-other-keys)
(let ((unpack (lambda (source target)
(with-directory-excursion target
(if (file-is-directory? (assoc-ref inputs source))
(copy-recursively (assoc-ref inputs source) ".")
(invoke "tar" "xvf"
(assoc-ref inputs source)
"--strip-components=1"))))))
(and
(unpack "intervaltree-src" "intervaltree")
(unpack "fastahack-src" "fastahack")
(unpack "filevercmp-src" "filevercmp")
(unpack "fsom-src" "fsom")
(unpack "multichoose-src" "multichoose")
(unpack "smithwaterman-src" "smithwaterman")
(unpack "tabixpp-src" "tabixpp")))))
(replace 'build
(lambda* (#:key inputs make-flags #:allow-other-keys)
(package
(name "vcflib")
(version "1.0.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/vcflib/vcflib/releases/"
"download/v" version
"/vcflib-" version "-src.tar.gz"))
(sha256
(base32 "14zzrg8hg8cq9cvq2wdvp21j7nmxxkjrbagw2apd2yqv2kyx42lm"))
(modules '((guix build utils)))
(snippet
`(begin
(for-each delete-file-recursively
'("fastahack" "filevercmp" "fsom" "googletest" "intervaltree"
"libVCFH" "multichoose" "smithwaterman" "tabixpp"))
#t))))
(build-system gnu-build-system)
(inputs
`(("htslib" ,htslib)
("perl" ,perl)
("python" ,python)
("zlib" ,zlib)))
(native-inputs
`(;; Submodules.
;; This package builds against the .o files so we need to extract the source.
("fastahack-src" ,(package-source fastahack))
("filevercmp-src" ,(package-source filevercmp))
("fsom-src" ,(package-source fsom))
("intervaltree-src" ,(package-source intervaltree))
("multichoose-src" ,(package-source multichoose))
("smithwaterman-src" ,(package-source smithwaterman))
("tabixpp-src" ,(package-source tabixpp))))
(arguments
`(#:tests? #f ; no tests
#:make-flags (list (string-append "HTS_LIB="
(assoc-ref %build-inputs "htslib")
"/lib/libhts.a")
(string-append "HTS_INCLUDES= -I"
(assoc-ref %build-inputs "htslib")
"/include/htslib")
(string-append "HTS_LDFLAGS= -L"
(assoc-ref %build-inputs "htslib")
"/include/htslib" " -lhts"))
#:phases
(modify-phases %standard-phases
(delete 'configure)
(delete 'check)
(add-after 'unpack 'unpack-submodule-sources
(lambda* (#:key inputs #:allow-other-keys)
(let ((unpack (lambda (source target)
(mkdir target)
(with-directory-excursion target
(if (file-is-directory? (assoc-ref inputs source))
(copy-recursively (assoc-ref inputs source) ".")
(invoke "tar" "xvf"
(assoc-ref inputs source)
"--strip-components=1"))))))
(and
(unpack "fastahack-src" "fastahack")
(unpack "filevercmp-src" "filevercmp")
(unpack "fsom-src" "fsom")
(unpack "intervaltree-src" "intervaltree")
(unpack "multichoose-src" "multichoose")
(unpack "smithwaterman-src" "smithwaterman")
(unpack "tabixpp-src" "tabixpp")))))
(replace 'build
(lambda* (#:key inputs make-flags #:allow-other-keys)
(let ((htslib (assoc-ref inputs "htslib")))
(with-directory-excursion "tabixpp"
(invoke "make"))
(invoke "make" "CC=gcc"
(string-append "CFLAGS=\"" "-Itabixpp " "\"")
"all")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out") "/bin"))
(lib (string-append (assoc-ref outputs "out") "/lib")))
(for-each (lambda (file)
(install-file file bin))
(find-files "bin" ".*"))
;; The header files in src/ do not interface libvcflib,
;; therefore they are left out.
(install-file "libvcflib.a" lib))
#t)))))
(home-page "https://github.com/vcflib/vcflib/")
(synopsis "Library for parsing and manipulating VCF files")
(description "Vcflib provides methods to manipulate and interpret
(substitute* "Makefile"
(("-Ihtslib") (string-append "-I" htslib "/include/htslib"))
(("-Lhtslib") (string-append "-L" htslib "/lib/htslib"))
(("htslib/htslib") (string-append htslib "/include/htslib")))
(invoke "make"
(string-append "HTS_LIB=" htslib "/lib/libhts.a")))
(apply invoke "make" "CC=gcc" "CFLAGS=-Itabixpp" make-flags))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out") "/bin"))
(lib (string-append (assoc-ref outputs "out") "/lib")))
(for-each (lambda (file)
(install-file file bin))
(find-files "bin" ".*"))
;; The header files in src/ do not interface libvcflib,
;; therefore they are left out.
(install-file "libvcflib.a" lib))
#t)))))
(home-page "https://github.com/vcflib/vcflib/")
(synopsis "Library for parsing and manipulating VCF files")
(description "Vcflib provides methods to manipulate and interpret
sequence variation as it can be described by VCF. It is both an API for parsing
and operating on records of genomic variation as it can be described by the VCF
format, and a collection of command-line utilities for executing complex
manipulations on VCF files.")
(license license:expat))))
(license license:expat)))
(define-public freebayes
(let ((commit "3ce827d8ebf89bb3bdc097ee0fe7f46f9f30d5fb")
@ -15170,21 +15200,13 @@ manipulations on VCF files.")
("vcflib-src" ,(package-source vcflib))
;; These are submodules for the vcflib version used in freebayes.
;; This package builds against the .o files so we need to extract the source.
("tabixpp-src" ,(package-source tabixpp-freebayes))
("tabixpp-src" ,(package-source tabixpp))
("smithwaterman-src" ,(package-source smithwaterman))
("multichoose-src" ,(package-source multichoose))
("fsom-src" ,(package-source fsom))
("filevercmp-src" ,(package-source filevercmp))
("fastahack-src" ,(package-source fastahack))
("intervaltree-src"
,(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ekg/intervaltree/")
(commit "dbb4c513d1ad3baac516fc1484c995daf9b42838")))
(file-name "intervaltree-src-checkout")
(sha256
(base32 "1fy5qbj4bg8d2bjysvaa9wfnqn2rj2sk5yra2h4l5pzvy53f23fj"))))
("intervaltree-src" ,(package-source intervaltree))
;; These submodules are needed to run the tests.
("bash-tap-src" ,(package-source bash-tap))
("test-simple-bash-src"

6
gnu/packages/bittorrent.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2016, 2017, 2018, 2019 Leo Famulari <leo@famulari.name>
;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Tomáš Čech <sleep_walker@gnu.org>
;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Jelle Licht <jlicht@fsfe.org>
;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com>
;;; Copyright © 2018 Nam Nguyen <namn@berkeley.edu>
@ -417,7 +417,7 @@ desktops.")
(define-public qbittorrent
(package
(name "qbittorrent")
(version "4.2.0")
(version "4.2.1")
(source
(origin
(method git-fetch)
@ -426,7 +426,7 @@ desktops.")
(commit (string-append "release-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "17vm6aa2k8k1q14z9r2r06c794bcr4m0l0fdsn08wid6mj1zjsbx"))))
(base32 "0bz4l7awkx4qf3gh9c8gj8fab989439zj8qy4x9r36wxdjg5cxil"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags

62
gnu/packages/bootloaders.scm
View File

@ -10,6 +10,7 @@
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 nee <nee@cock.li>
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
;;;
;;; This file is part of GNU Guix.
;;;
@ -376,7 +377,7 @@ menu to select one of the installed operating systems.")
("swig" ,swig)
("valgrind" ,valgrind)))
(inputs
`(("python-2" ,python-2)))
`(("python" ,python)))
(arguments
`(#:make-flags
(list "CC=gcc"
@ -401,7 +402,7 @@ tree binary files. These are board description files used by Linux and BSD.")
(define u-boot
(package
(name "u-boot")
(version "2019.04")
(version "2020.01")
(source (origin
(method url-fetch)
(uri (string-append
@ -409,19 +410,17 @@ tree binary files. These are board description files used by Linux and BSD.")
"u-boot-" version ".tar.bz2"))
(sha256
(base32
"1vwv4bgbl7fjcm073zrphn17hnz5h5h778f88ivdsgbb2lnpgdvn"))
(patches
(search-patches
"u-boot-fix-mkimage-header-verification.patch"))))
"1w9ml4jl15q6ixpdqzspxjnl7d3rgxd7f99ms1xv5c8869h3qida"))))
(native-inputs
`(("bc" ,bc)
("bison" ,bison)
("dtc" ,dtc)
("flex" ,flex)
("lz4" ,lz4)
("python-2" ,python-2)
("python2-coverage" ,python2-coverage)
("python2-pytest" ,python2-pytest)
("perl" ,perl)
("python" ,python)
("python-coverage" ,python-coverage)
("python-pytest" ,python-pytest)
("sdl" ,sdl)
("swig" ,swig)))
(build-system gnu-build-system)
@ -431,19 +430,6 @@ tree binary files. These are board description files used by Linux and BSD.")
also initializes the boards (RAM etc).")
(license license:gpl2+)))
(define u-boot-2019.10
(package
(inherit u-boot)
(version "2019.10")
(source (origin
(method url-fetch)
(uri (string-append
"ftp://ftp.denx.de/pub/u-boot/"
"u-boot-" version ".tar.bz2"))
(sha256
(base32
"053hcrwwlacqh2niisn0zas95zkbffw5aw5sdhixs8lmfdq60vcd"))))))
(define-public u-boot-tools
(package
(inherit u-boot)
@ -461,19 +447,22 @@ also initializes the boards (RAM etc).")
(substitute* "tools/dtoc/fdt_util.py"
(("'cc'") "'gcc'"))
(substitute* "tools/patman/test_util.py"
;; python-coverage is simply called coverage in guix.
(("python-coverage") "coverage")
;; python*-coverage is simply called coverage in guix.
(("%s-coverage") "coverage")
;; XXX Allow for only 99% test coverage.
;; TODO: Find out why that is needed.
(("if coverage != '100%':") "if not int(coverage.rstrip('%')) >= 99:"))
(substitute* "test/run"
;; Make it easier to find test failures.
(("#!/bin/bash") "#!/bin/bash -x")
;; pytest doesn't find it otherwise.
(("test/py/tests/test_ofplatdata.py")
"tests/test_ofplatdata.py")
;; This test would require git.
(("\\./tools/patman/patman") (which "true"))
;; FIXME: test fails, needs further investiation
(("run_test \"binman\"") ": run_test \"binman\"")
;; FIXME: code coverage not working
(("run_test \"binman code coverage\"") ": run_test \"binman code coverage\"")
(("run_test \"dtoc code coverage\"") ": run_test \"dtoc code coverage\"")
(("run_test \"fdt code coverage\"") ": run_test \"fdt code coverage\"")
;; This test would require internet access.
(("\\./tools/buildman/buildman") (which "true")))
(substitute* "test/py/tests/test_sandbox_exit.py"
@ -493,14 +482,11 @@ def test_ctrl_c"))
;; This test requires a sound system, which is un-used
;; in u-boot-tools.
(("CONFIG_SOUND=y") "CONFIG_SOUND=n")))
(find-files "configs" "sandbox_.*defconfig$"))
(find-files "configs" "sandbox_.*defconfig$|tools-only_defconfig"))
#t))
(replace 'configure
(lambda* (#:key make-flags #:allow-other-keys)
(call-with-output-file "configs/tools_defconfig"
(lambda (port)
(display "CONFIG_SYS_TEXT_BASE=0\n" port)))
(apply invoke "make" "tools_defconfig" make-flags)))
(apply invoke "make" "tools-only_defconfig" make-flags)))
(replace 'build
(lambda* (#:key inputs make-flags #:allow-other-keys)
(apply invoke "make" "tools-all" make-flags)))
@ -769,8 +755,6 @@ to Novena upstream, does not load u-boot.img from the first partition.")
(let ((base (make-u-boot-package "rock64-rk3328" "aarch64-linux-gnu")))
(package
(inherit base)
(version (package-version u-boot-2019.10))
(source (package-source u-boot-2019.10))
(arguments
(substitute-keyword-arguments (package-arguments base)
((#:phases phases)
@ -780,12 +764,6 @@ to Novena upstream, does not load u-boot.img from the first partition.")
(let ((bl31 (string-append (assoc-ref inputs "firmware")
"/bl31.elf")))
(setenv "BL31" bl31))
#t))
(add-after 'unpack 'add-u-boot-itb
(lambda _
(substitute* "Kconfig"
(("default .u-boot.itb. if SPL_LOAD_FIT && .ROCKCHIP_RK3399")
"default \"u-boot.itb\" if SPL_LOAD_FIT && (ARCH_ROCKCHIP"))
#t))))))
(native-inputs
`(("firmware" ,arm-trusted-firmware-rk3328)
@ -795,8 +773,6 @@ to Novena upstream, does not load u-boot.img from the first partition.")
(let ((base (make-u-boot-package "firefly-rk3399" "aarch64-linux-gnu")))
(package
(inherit base)
(version (package-version u-boot-2019.10))
(source (package-source u-boot-2019.10))
(arguments
(substitute-keyword-arguments (package-arguments base)
((#:phases phases)
@ -817,8 +793,6 @@ to Novena upstream, does not load u-boot.img from the first partition.")
(let ((base (make-u-boot-package "rockpro64-rk3399" "aarch64-linux-gnu")))
(package
(inherit base)
(version (package-version u-boot-2019.10))
(source (package-source u-boot-2019.10))
(arguments
(substitute-keyword-arguments (package-arguments base)
((#:phases phases)

18
gnu/packages/cdrom.scm
View File

@ -8,7 +8,7 @@
;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017 John Darrington <jmd@gnu.org>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 ng0 <ng0@n0.is>
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
@ -881,7 +881,7 @@ CD data, and more. It's mostly compatible with @code{cdrtools}.")
(define-public libmirage
(package
(name "libmirage")
(version "3.2.3")
(version "3.2.4")
(source (origin
(method url-fetch)
(uri (string-append
@ -889,7 +889,7 @@ CD data, and more. It's mostly compatible with @code{cdrtools}.")
version ".tar.bz2"))
(sha256
(base32
"08mfvqyk3833ksfd47i4j3ppmrw5ry219km6h7lywdh9hm9x14yf"))))
"0md3f71x2dbgyw5s254vx1s80slh3f25r9pvjihkrmj0rn53nnzw"))))
(build-system cmake-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
@ -910,15 +910,15 @@ the data stored in various image formats.")
(define-public cdemu-daemon
(package
(name "cdemu-daemon")
(version "3.2.3")
(version "3.2.4")
(source (origin
(method url-fetch)
(uri (string-append
"https://downloads.sourceforge.net/cdemu/cdemu-daemon/cdemu-daemon-"
version ".tar.bz2"))
"https://downloads.sourceforge.net/cdemu/cdemu-daemon/"
"cdemu-daemon-" version ".tar.bz2"))
(sha256
(base32
"022xzgwmncswb9md71w3ly3mjkdfc93lbij2llp2jamq8grxjjxr"))))
"02yyj8sr7d5briamhzrqh8zdsiiggxmx5y05kx25y7k3g15jvcx6"))))
(build-system cmake-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
@ -939,7 +939,7 @@ drive and disc (including CD-ROMs and DVD-ROMs).")
(define-public cdemu-client
(package
(name "cdemu-client")
(version "3.2.3")
(version "3.2.4")
(source (origin
(method url-fetch)
(uri (string-append
@ -947,7 +947,7 @@ drive and disc (including CD-ROMs and DVD-ROMs).")
version ".tar.bz2"))
(sha256
(base32
"1bvc2m63fx03rbp3ihgl2n7k24lwg5ydwkmr84gsjfcxp46q10zq"))))
"1swylaja1p1jfjf3s58c9hsk1cyy20i7mrq32kcg6kzp88grs8my"))))
(build-system cmake-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)

34
gnu/packages/check.scm
View File

@ -16,7 +16,7 @@
;;; Copyright © 2016 Troy Sankey <sankeytms@gmail.com>
;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org>
;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017, 2018 Arun Isaac <arunisaac@systemreboot.net>
@ -25,7 +25,7 @@
;;; Copyright © 2017, 2019 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2017 ng0 <ng0@n0.is>
;;; Copyright © 2015, 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017, 2018, 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com>
;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com>
@ -78,7 +78,7 @@
(define-public check
(package
(name "check")
(version "0.12.0")
(version "0.13.0")
(source
(origin
(method url-fetch)
@ -86,7 +86,7 @@
version "/check-" version ".tar.gz"))
(sha256
(base32
"0d22h8xshmbpl9hba9ch3xj8vb9ybm5akpsbbh7yj07fic4h2hj6"))))
"02crar51gniijrrl9p8f9maibnwc33n76kw5cqr7xk3s8hqnncy4"))))
(build-system gnu-build-system)
(home-page "https://libcheck.github.io/check/")
(synopsis "Unit test framework for C")
@ -310,7 +310,7 @@ format.")
(define-public cppcheck
(package
(name "cppcheck")
(version "1.89")
(version "1.90")
(source (origin
(method git-fetch)
(uri (git-reference
@ -318,7 +318,7 @@ format.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "07yn1zycsb7sn1v7fprihbl0ih4n2zkd7l9jvmkjcskvwn4n21h0"))))
(base32 "0h7ir2x0k005fm586dxmaphgv5cyz25k3k4sh02p7zb78gzx398h"))))
(build-system cmake-build-system)
(arguments
'(#:configure-flags '("-DBUILD_TESTS=ON")))
@ -379,7 +379,7 @@ and it supports a very flexible form of test discovery.")
(define-public doctest
(package
(name "doctest")
(version "2.3.5")
(version "2.3.6")
(home-page "https://github.com/onqtam/doctest")
(source (origin
(method git-fetch)
@ -387,7 +387,7 @@ and it supports a very flexible form of test discovery.")
(file-name (git-file-name name version))
(sha256
(base32
"0rddlzhnv0f5036q0m0p019pismka7sx6x8cnzk65sk77b1dsbhg"))))
"070gkwffi73i2p0azga9yxj8km32bp8bw4jvkvz1vzlpavyii5kn"))))
(build-system cmake-build-system)
(synopsis "C++ test framework")
(description
@ -505,7 +505,7 @@ test coverage and has a web user interface that will refresh automatically.")
(define-public googletest
(package
(name "googletest")
(version "1.8.1")
(version "1.10.0")
(source
(origin
(method git-fetch)
@ -514,7 +514,7 @@ test coverage and has a web user interface that will refresh automatically.")
(commit (string-append "release-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0270msj6n7mggh4xqqjp54kswbl7mkcc8px1p5dqdpmw5ngh9fzk"))))
(base32 "1zbmab9295scgg4z2vclgfgjchfjailjnvzc6f5x9jvlsdi3dpwz"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags '("-DBUILD_SHARED_LIBS=ON")))
@ -527,6 +527,20 @@ discovery, death tests, assertions, parameterized tests and XML test report
generation.")
(license license:bsd-3)))
(define-public googletest-1.8
(package/inherit
googletest
(version "1.8.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/google/googletest.git")
(commit (string-append "release-" version))))
(file-name (git-file-name "googletest" version))
(sha256
(base32
"0270msj6n7mggh4xqqjp54kswbl7mkcc8px1p5dqdpmw5ngh9fzk"))))))
(define-public cpputest
(package
(name "cpputest")

57
gnu/packages/chromium.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2019, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2019 Alex Griffin <a@ajgrf.com>
;;;
;;; This file is part of GNU Guix.
@ -453,8 +453,7 @@ from forcing GEXP-PROMISE."
(build-system gnu-build-system)
(arguments
`(#:tests? #f
;; FIXME: Chromiums RUNPATH lacks entries for some libraries, so
;; we have to disable validation and add a wrapper below.
;; FIXME: Chromiums RUNPATH lacks entries for some libraries.
#:validate-runpath? #f
#:modules ((guix build gnu-build-system)
(guix build utils)
@ -555,12 +554,7 @@ from forcing GEXP-PROMISE."
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-stuff
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "printing/cups_config_helper.py"
(("cups_config =.*")
(string-append "cups_config = '" (assoc-ref inputs "cups")
"/bin/cups-config'\n")))
(lambda _
(substitute*
'("base/process/launch_posix.cc"
"base/third_party/dynamic_annotations/dynamic_annotations.c"
@ -630,6 +624,34 @@ from forcing GEXP-PROMISE."
"chrome/test/chromedriver/extension/manifest.json")))
#t))
(add-after 'patch-stuff 'add-absolute-references
(lambda* (#:key inputs #:allow-other-keys)
(let ((cups (assoc-ref inputs "cups"))
(nss (assoc-ref inputs "nss"))
(mesa (assoc-ref inputs "mesa"))
(udev (assoc-ref inputs "udev")))
(substitute* "printing/cups_config_helper.py"
(("cups_config =.*")
(string-append "cups_config = '" cups
"/bin/cups-config'\n")))
(substitute* "crypto/nss_util.cc"
(("libnssckbi\\.so")
(string-append nss "/lib/nss/libnssckbi.so")))
(substitute* "device/udev_linux/udev1_loader.cc"
(("libudev\\.so\\.1")
(string-append udev "/lib/libudev.so.1")))
(substitute*
'("ui/ozone/platform/x11/gl_ozone_glx.cc"
"ui/ozone/common/egl_util.cc"
"ui/gl/init/gl_initializer_x11.cc"
"third_party/angle/src/libANGLE/renderer/gl/glx/FunctionsGLX.cpp")
(("libGL\\.so\\.1")
(string-append mesa "/lib/libGL.so.1"))
(("libEGL\\.so\\.1")
(string-append mesa "/lib/libEGL.so.1"))
(("libGLESv2\\.so\\.2")
(string-append mesa "/lib/libGLESv2.so.2")))
#t)))
(add-before 'configure 'prepare-build-environment
(lambda* (#:key inputs #:allow-other-keys)
@ -666,17 +688,17 @@ from forcing GEXP-PROMISE."
;; accesses. Having a too low ulimit will result in bogus linker
;; errors such as "foo.a: error adding symbols: malformed archive".
;; Try increasing the soft resource limit of max open files to 4096,
;; Try increasing the soft resource limit of max open files to 2048,
;; or equal to the hard limit, whichever is lower.
(call-with-values (lambda () (getrlimit 'nofile))
(lambda (soft hard)
(when (and soft (< soft 4096))
(when (and soft (< soft 2048))
(if hard
(setrlimit 'nofile (min hard 4096) hard)
(setrlimit 'nofile 4096 #f))
(setrlimit 'nofile (min hard 2048) hard)
(setrlimit 'nofile 2048 #f))
(format #t
"increased maximum number of open files from ~d to ~d~%"
soft (if hard (min hard 4096) 4096)))))
soft (if hard (min hard 2048) 2048)))))
#t))
(replace 'build
(lambda* (#:key (parallel-build? #t) #:allow-other-keys)
@ -699,9 +721,6 @@ from forcing GEXP-PROMISE."
(resources (string-append lib "/resources"))
(preferences (assoc-ref inputs "master-preferences"))
(gtk+ (assoc-ref inputs "gtk+"))
(mesa (assoc-ref inputs "mesa"))
(nss (assoc-ref inputs "nss"))
(udev (assoc-ref inputs "udev"))
(sh (which "sh")))
(substitute* '("chrome/app/resources/manpage.1.in"
@ -735,10 +754,6 @@ from forcing GEXP-PROMISE."
(install-file "chromedriver" bin)
(wrap-program exe
;; TODO: Get these in RUNPATH.
`("LD_LIBRARY_PATH" ":" prefix
(,(string-append lib ":" nss "/lib/nss:" mesa "/lib:"
udev "/lib")))
;; Avoid file manager crash. See <https://bugs.gnu.org/26593>.
`("XDG_DATA_DIRS" ":" prefix (,(string-append gtk+ "/share")))))

25
gnu/packages/clojure.scm
View File

@ -2,6 +2,7 @@
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -296,3 +297,27 @@ tree.
(description "Tools for writing macros.")
(home-page "https://github.com/clojure/tools.macro")
(license license:epl1.0)))
(define-public clojure-tools-cli
(package
(name "clojure-tools-cli")
(version "0.4.2")
(home-page "https://github.com/clojure/tools.cli")
(source (origin
(method git-fetch)
(uri (git-reference
(url home-page)
(commit (string-append "tools.cli-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1yqlm8lwbcjm0dp032z7vzc4bdlmc4jixznvf4adsqhvqw85hvj2"))))
(build-system clojure-build-system)
(arguments
'(#:source-dirs '("src/main/clojure/")
#:test-dirs '("src/test/clojure/")
#:doc-dirs '()))
(synopsis "Clojure library for working with command-line arguments")
(description
"The @code{tools.cli} library provides Clojure programmers with tools to
work with command-line arguments.")
(license license:epl1.0)))

4
gnu/packages/cluster.scm
View File

@ -36,7 +36,7 @@
(define-public keepalived
(package
(name "keepalived")
(version "2.0.18")
(version "2.0.19")
(source (origin
(method url-fetch)
(uri (string-append
@ -44,7 +44,7 @@
version ".tar.gz"))
(sha256
(base32
"1l2g0bzzbah9svfpwa0b9dgvwfv85r2y3qdr54822hg5p2qs48ql"))))
"19scrrjsxw5g914d5ka352445blaq77dk2vm4vxabijvfra88bqf"))))
(build-system gnu-build-system)
(arguments
'(#:phases

6
gnu/packages/code.scm
View File

@ -3,7 +3,7 @@
;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2015, 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com>
@ -214,7 +214,7 @@ COCOMO model or user-provided parameters.")
(define-public cloc
(package
(name "cloc")
(version "1.82")
(version "1.84")
(source
(origin
(method git-fetch)
@ -223,7 +223,7 @@ COCOMO model or user-provided parameters.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0fsz07z0slfg58512fmnlj8pnxkc360bgf7fclg60v9clvcjbjsw"))))
(base32 "14xikdwcr6pcnkk2i43zrsj88z8b3mrv0svbnbvxvarw1id83pnn"))))
(build-system gnu-build-system)
(inputs
`(("coreutils" ,coreutils)

4
gnu/packages/commencement.scm
View File

@ -2546,8 +2546,8 @@ COREUTILS-FINAL vs. COREUTILS, etc."
(synopsis "Complete GCC tool chain for C/C++ development")
(description
"This package provides a complete GCC tool chain for C/C++ development to
be installed in user profiles. This includes GCC, as well as libc (headers
an d binaries, plus debugging symbols in the @code{debug} output), and Binutils.")
be installed in user profiles. This includes GCC, as well as libc (headers and
binaries, plus debugging symbols in the @code{debug} output), and Binutils.")
(home-page "https://gcc.gnu.org/")
(outputs '("out" "debug" "static"))

6
gnu/packages/compression.scm
View File

@ -10,7 +10,7 @@
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org>
;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016 David Craven <david@craven.ch>
;;; Copyright © 2016, 2019 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2016, 2018, 2019 Marius Bakke <mbakke@fastmail.com>
@ -2089,7 +2089,7 @@ possibly untrusted extraction shell script.")
(define-public ncompress
(package
(name "ncompress")
(version "4.2.4.5")
(version "4.2.4.6")
(source (origin
(method git-fetch)
(uri (git-reference
@ -2099,7 +2099,7 @@ possibly untrusted extraction shell script.")
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"0s3ik7k5a5vzcfiayhsxrc87drg3l425aqapspmw5py91b9jhc8r"))))
"1a4yir1ilafz0nzxdwigj204j4yy2zljbc501nsaqqm3dxdap8zn"))))
(arguments
'(#:make-flags (list "CC=gcc"
(string-append "BINDIR=" %output "/bin")

170
gnu/packages/coq.scm
View File

@ -2,6 +2,7 @@
;;; Copyright © 2018 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Dan Frumin <dfrumin@cs.ru.nl>
;;; Copyright © 2020 Brett Gilio <brettg@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -20,6 +21,7 @@
(define-module (gnu packages coq)
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
#:use-module (gnu packages bison)
#:use-module (gnu packages boost)
@ -43,7 +45,7 @@
(define-public coq
(package
(name "coq")
(version "8.9.1")
(version "8.10.2")
(source
(origin
(method git-fetch)
@ -52,7 +54,8 @@
(commit (string-append "V" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1p4z967s18wkblayv12ygqsrqlyk5ax1pz40yf4kag8pva6gblhk"))))
(base32
"0ji2rzd70b3hcwfw97qk7rv3m2977ylqnq82l1555dp3njr8nm3q"))))
(native-search-paths
(list (search-path-specification
(variable "COQPATH")
@ -60,7 +63,7 @@
(build-system ocaml-build-system)
(outputs '("out" "ide"))
(inputs
`(("lablgtk" ,lablgtk)
`(("lablgtk" ,lablgtk3)
("python" ,python-2)
("camlp5" ,camlp5)
("ocaml-num" ,ocaml-num)))
@ -73,13 +76,6 @@
(lambda _
(for-each make-file-writable (find-files "."))
#t))
(add-after 'unpack 'remove-lablgtk-references
(lambda _
;; This is not used anywhere, but creates a reference to lablgtk in
;; every binary
(substitute* '("config/coq_config.mli" "configure.ml")
((".*coqideincl.*") ""))
#t))
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
@ -100,8 +96,8 @@
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
;; These are exact copies of the version without the .opt suffix.
;; Remove them to save 35 MiB in the result
;; These files are exact copies without `.opt` extension.
;; Removing these saves 35 MiB in the resulting package.
(delete-file (string-append bin "/coqtop.opt"))
(delete-file (string-append bin "/coqidetop.opt")))
#t))
@ -117,9 +113,9 @@
(lambda _
(with-directory-excursion "test-suite"
;; These two tests fail.
;; This one fails because the output is not formatted as expected.
;; Fails because the output is not formatted as expected.
(delete-file-recursively "coq-makefile/timing")
;; This one fails because we didn't build coqtop.byte.
;; Fails because we didn't build coqtop.byte.
(delete-file-recursively "coq-makefile/findlib-package")
(invoke "make")))))))
(home-page "https://coq.inria.fr")
@ -128,7 +124,7 @@
"Coq is a proof assistant for higher-order logic, which allows the
development of computer programs consistent with their formal specification.
It is developed using Objective Caml and Camlp5.")
;; The code is distributed under lgpl2.1.
;; The source code is distributed under lgpl2.1.
;; Some of the documentation is distributed under opl1.0+.
(license (list license:lgpl2.1 license:opl1.0+))))
@ -212,18 +208,22 @@ provers.")
(define-public coq-flocq
(package
(name "coq-flocq")
(version "3.1.0")
(source (origin
(method url-fetch)
;; Use the ‘Latest version’ link for a stable URI across releases.
(uri (string-append "https://gforge.inria.fr/frs/download.php/"
"file/37901/flocq-" version ".tar.gz"))
(sha256
(base32
"02szrgz9m0ac51la1lqpiv6i2g0zbgx9gz5rp0q1g00ajldyna5c"))))
(version "3.2.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.inria.fr/flocq/flocq.git")
(commit (string-append "flocq-" version))))
(file-name (git-file-name name version))
(sha256
(base32
"15bi36x7zj0glsb3s2gwqd4wswhfzh36rbp7imbyff53a7nna95l"))))
(build-system gnu-build-system)
(native-inputs
`(("ocaml" ,ocaml)
`(("autoconf" ,autoconf)
("automake" ,automake)
("ocaml" ,ocaml)
("which" ,which)
("coq" ,coq)))
(arguments
@ -232,6 +232,12 @@ provers.")
"/lib/coq/user-contrib/Flocq"))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'remove-failing-examples
(lambda _
(substitute* "Remakefile.in"
;; Fails on a union error.
(("Double_rounding_odd_radix.v") ""))
#t))
(add-before 'configure 'fix-remake
(lambda _
(substitute* "remake.cpp"
@ -248,7 +254,7 @@ provers.")
(replace 'install
(lambda _
(invoke "./remake" "install"))))))
(home-page "http://flocq.gforge.inria.fr/")
(home-page "https://flocq.gforge.inria.fr/")
(synopsis "Floating-point formalization for the Coq system")
(description "Flocq (Floats for Coq) is a floating-point formalization for
the Coq system. It provides a comprehensive library of theorems on a multi-radix
@ -259,25 +265,33 @@ inside Coq.")
(define-public coq-gappa
(package
(name "coq-gappa")
(version "1.3.4")
(source (origin
(method url-fetch)
(uri (string-append "https://gforge.inria.fr/frs/download.php/file/37918/gappa-"
version ".tar.gz"))
(sha256
(base32
"1wdg07dk4lbq7dr80ywzna0lclwgi8bddzc6yfx19z1zn9yljzxh"))))
(version "1.4.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.inria.fr/gappa/coq.git")
(commit (string-append "gappalib-coq-" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0r7jwp5xssdfzivs2flp7mzrscqhgl63mryhhf1cvndpgzqwfk2f"))))
(build-system gnu-build-system)
(native-inputs
`(("ocaml" ,ocaml)
`(("autoconf" ,autoconf)
("automake" ,automake)
("ocaml" ,ocaml)
("which" ,which)
("coq" ,coq)
("camlp5" ,camlp5)
("bison" ,bison)
("flex" ,flex)))
(inputs
`(("gmp" ,gmp)
("mpfr" ,mpfr)
("boost" ,boost)))
(propagated-inputs
`(("coq-flocq" ,coq-flocq)))
(arguments
`(#:configure-flags
(list (string-append "--libdir=" (assoc-ref %outputs "out")
@ -291,11 +305,13 @@ inside Coq.")
#t))
(replace 'build
(lambda _ (invoke "./remake")))
(replace 'check
(lambda _ (invoke "./remake" "check")))
;; FIXME: Figure out why failures occur, and re-enable check phase.
(delete 'check)
;; (replace 'check
;; (lambda _ (invoke "./remake" "check")))
(replace 'install
(lambda _ (invoke "./remake" "install"))))))
(home-page "http://gappa.gforge.inria.fr/")
(home-page "https://gappa.gforge.inria.fr/")
(synopsis "Verify and formally prove properties on numerical programs")
(description "Gappa is a tool intended to help verifying and formally proving
properties on numerical programs dealing with floating-point or fixed-point
@ -309,7 +325,7 @@ assistant.")
(define-public coq-mathcomp
(package
(name "coq-mathcomp")
(version "1.8.0")
(version "1.10.0")
(source
(origin
(method git-fetch)
@ -318,14 +334,14 @@ assistant.")
(commit (string-append "mathcomp-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1sdrw3b6lc8crz02lp90a863rvyzhc9vcfsrdvc9m311yiaad4xv"))))
(base32 "1h5h1c2025r1ms5qryvwy6pikxmpmmjav6yl127xpzmqdi6w732d"))))
(build-system gnu-build-system)
(native-inputs
`(("ocaml" ,ocaml)
("which" ,which)
("coq" ,coq)))
(arguments
`(#:tests? #f ; no need to test formally-verified programs :)
`(#:tests? #f ; No tests.
#:phases
(modify-phases %standard-phases
(delete 'configure)
@ -333,7 +349,6 @@ assistant.")
(lambda _ (chdir "mathcomp") #t))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(setenv "COQLIB" (string-append (assoc-ref outputs "out") "/lib/coq/"))
(invoke "make" "-f" "Makefile.coq"
(string-append "COQLIB=" (assoc-ref outputs "out")
"/lib/coq/")
@ -352,17 +367,22 @@ part of the distribution.")
(define-public coq-coquelicot
(package
(name "coq-coquelicot")
(version "3.0.2")
(source (origin
(method url-fetch)
(uri (string-append "https://gforge.inria.fr/frs/download.php/"
"file/37523/coquelicot-" version ".tar.gz"))
(sha256
(base32
"1biia7nfqf7vaqq5gmykl4rwjyvrcwss6r2jdf0in5pvp2rnrj2w"))))
(version "3.0.3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.inria.fr/coquelicot/coquelicot.git")
(commit (string-append "coquelicot-" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0m5wbr2s8lnf8b7cfwv15hyzsmbcaz6hgdn7aazcrkxnwr87vgkp"))))
(build-system gnu-build-system)
(native-inputs
`(("ocaml" ,ocaml)
`(("autoconf" ,autoconf)
("automake" ,automake)
("ocaml" ,ocaml)
("which" ,which)
("coq" ,coq)))
(propagated-inputs
@ -384,7 +404,7 @@ part of the distribution.")
(lambda _ (invoke "./remake" "check")))
(replace 'install
(lambda _ (invoke "./remake" "install"))))))
(home-page "http://coquelicot.saclay.inria.fr/index.html")
(home-page "http://coquelicot.saclay.inria.fr")
(synopsis "Coq library for Reals")
(description "Coquelicot is an easier way of writing formulas and theorem
statements, achieved by relying on total functions in place of dependent types
@ -400,7 +420,7 @@ theorems between the two libraries.")
(define-public coq-bignums
(package
(name "coq-bignums")
(version "8.9.0")
(version "8.10.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -409,7 +429,7 @@ theorems between the two libraries.")
(file-name (git-file-name name version))
(sha256
(base32
"03qz1w2xb2j5p06liz5yyafl0fl9vprcqm6j0iwi7rxwghl00p01"))))
"0bpb4flckn4nqxbs3wjiznyx1k7r8k93qdigp3qwmikp2lxvcbw5"))))
(build-system gnu-build-system)
(native-inputs
`(("ocaml" ,ocaml)
@ -417,7 +437,7 @@ theorems between the two libraries.")
(inputs
`(("camlp5" ,camlp5)))
(arguments
`(#:tests? #f; No test target
`(#:tests? #f ; No test target.
#:make-flags
(list (string-append "COQLIBINSTALL=" (assoc-ref %outputs "out")
"/lib/coq/user-contrib"))
@ -433,17 +453,22 @@ provides BigN, BigZ, BigQ that used to be part of Coq standard library.")
(define-public coq-interval
(package
(name "coq-interval")
(version "3.4.0")
(source (origin
(method url-fetch)
(uri (string-append "https://gforge.inria.fr/frs/download.php/"
"file/37524/interval-" version ".tar.gz"))
(sha256
(base32
"023j9sd64brqvjdidqkn5m8d7a93zd9r86ggh573z9nkjm2m7vvg"))))
(version "3.4.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.inria.fr/coqinterval/interval.git")
(commit (string-append "interval-" version))))
(file-name (git-file-name name version))
(sha256
(base32
"03q3dfqi3r3f7aji5s06ig4aav9ajcwswwdzi5lrgr69z0m487k4"))))
(build-system gnu-build-system)
(native-inputs
`(("ocaml" ,ocaml)
`(("autoconf" ,autoconf)
("automake" ,automake)
("ocaml" ,ocaml)
("which" ,which)
("coq" ,coq)))
(propagated-inputs
@ -524,16 +549,16 @@ uses Ltac to synthesize the substitution operation.")
(define-public coq-equations
(package
(name "coq-equations")
(version "1.2")
(version "1.2.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mattam82/Coq-Equations.git")
(commit (string-append "v" version "-8.9"))))
(commit (string-append "v" version "-8.10"))))
(file-name (git-file-name name version))
(sha256
(base32
"1q3wvicr43bgy7xn1diwh4j43mnrhprrc2xd22qlbz9cl6bhf8bj"))))
"023q5dww3drw35dm9bi9p9d0wrj9k7vax7hfdsprf8l340pb4s0k"))))
(build-system gnu-build-system)
(native-inputs
`(("ocaml" ,ocaml)
@ -545,10 +570,9 @@ uses Ltac to synthesize the substitution operation.")
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
(invoke "coq_makefile" "-f" "_CoqProject" "-o" "Makefile")))
(invoke "sh" "./configure.sh")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(setenv "COQLIB" (string-append (assoc-ref outputs "out") "/lib/coq/"))
(invoke "make"
(string-append "COQLIB=" (assoc-ref outputs "out")
"/lib/coq/")
@ -565,7 +589,7 @@ kernel.")
(define-public coq-stdpp
(package
(name "coq-stdpp")
(version "1.2.0")
(version "1.2.1")
(synopsis "Alternative Coq standard library std++")
(source (origin
(method git-fetch)
@ -574,18 +598,18 @@ kernel.")
(commit (string-append "coq-stdpp-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "11m7kqxsbxygk41v2wsi3npdzwin9fcnzc1gn0gq0rd57wnqk83i"))))
(base32
"1lczybg1jq9drbi8nzrlb0k199x4n07aawjwfzrl3qqc0w8kmvdz"))))
(build-system gnu-build-system)
(inputs
`(("coq" ,coq)))
(arguments
`(#:tests? #f ;; the tests are being run automaticlly as part of `make all`
`(#:tests? #f ; Tests are executed during build phase.
#:phases
(modify-phases %standard-phases
(delete 'configure)
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(setenv "COQLIB" (string-append (assoc-ref outputs "out") "/lib/coq/"))
(invoke "make"
(string-append "COQLIB=" (assoc-ref outputs "out")
"/lib/coq/")

255
gnu/packages/cran.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2016, 2017 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2016, 2017, 2018 Roel Janssen <roel@gnu.org>
@ -62,6 +62,7 @@
#:use-module (gnu packages imagemagick)
#:use-module (gnu packages java)
#:use-module (gnu packages javascript)
#:use-module (gnu packages lisp-xyz)
#:use-module (gnu packages machine-learning)
#:use-module (gnu packages maths)
#:use-module (gnu packages mpi)
@ -12574,6 +12575,12 @@ running IRkernel session.")
"--name" "ir"
"--prefix" out
(string-append out "/site-library/IRkernel/kernelspec"))
;; Record the absolute file name of the 'R' executable in
;; 'kernel.json'.
(substitute* (string-append out "/share/jupyter"
"/kernels/ir/kernel.json")
(("\\[\"R\",")
(string-append "[\"" (which "R") "\",")))
#t))))))
(inputs
`(("jupyter" ,jupyter)))
@ -12583,6 +12590,8 @@ running IRkernel session.")
("r-evaluate" ,r-evaluate)
("r-irdisplay" ,r-irdisplay)
("r-jsonlite" ,r-jsonlite)
;; sets R_LIBS_SITE, so R can actually find this package (IRkernel)
("r-minimal" ,r-minimal)
("r-pbdzmq" ,r-pbdzmq)
("r-repr" ,r-repr)
("r-uuid" ,r-uuid)))
@ -18988,3 +18997,247 @@ algorithm to identify key players, and Valente's bridging metric. The
betweenness, Key Players, and bridging implementations are parallelized with
OpenMP.")
(license license:gpl2)))
(define-public r-emplik
(package
(name "r-emplik")
(version "1.0-4.3")
(source
(origin
(method url-fetch)
(uri (cran-uri "emplik" version))
(sha256
(base32
"1g4hz85bvw29c77zs0ig487z92jjl682vv457x81l077h0psvk7c"))))
(properties `((upstream-name . "emplik")))
(build-system r-build-system)
(propagated-inputs
`(("r-quantreg" ,r-quantreg)))
(home-page "http://www.ms.uky.edu/~mai/EmpLik.html")
(synopsis "Empirical likelihood ratio for censored/truncated data")
(description
"This package provides empirical likelihood ratio tests for
means/quantiles/hazards from possibly censored and/or truncated data. It also
does regression.")
(license license:gpl2+)))
(define-public r-imputeyn
(package
(name "r-imputeyn")
(version "1.3")
(source
(origin
(method url-fetch)
(uri (cran-uri "imputeYn" version))
(sha256
(base32
"1b21w1aa5f7yiq8k0wa86wvbg4ij7f6ldwn6asfqwb0b90rvsgvs"))))
(properties `((upstream-name . "imputeYn")))
(build-system r-build-system)
(propagated-inputs
`(("r-boot" ,r-boot)
("r-emplik" ,r-emplik)
("r-mvtnorm" ,r-mvtnorm)
("r-quadprog" ,r-quadprog)
("r-survival" ,r-survival)))
(home-page "https://cran.r-project.org/web/packages/imputeYn/")
(synopsis "Impute last largest censored observation under weighted least squares")
(description
"This package allows for the imputation of the last largest censored
observantions. This method brings less bias and more efficient estimates for
AFT models.")
(license license:gpl2)))
(define-public r-adapenetclass
(package
(name "r-adapenetclass")
(version "1.2")
(source
(origin
(method url-fetch)
(uri (cran-uri "AdapEnetClass" version))
(sha256
(base32
"01k3mj4g1ckbng7wkzzn9h0k9yf01cpnnkly0sjda574c5jhj0rc"))))
(properties `((upstream-name . "AdapEnetClass")))
(build-system r-build-system)
(propagated-inputs
`(("r-glmnet" ,r-glmnet)
("r-imputeyn" ,r-imputeyn)
("r-lars" ,r-lars)
("r-quadprog" ,r-quadprog)))
(home-page "https://cran.r-project.org/web/packages/AdapEnetClass/")
(synopsis "Class of adaptive elastic net methods for censored data")
(description
"This package provides methods for variable selection for AFT models.")
(license license:gpl2)))
(define-public r-flock
(package
(name "r-flock")
(version "0.7")
(source
(origin
(method url-fetch)
(uri (cran-uri "flock" version))
(sha256
(base32
"1zg93p74icj4bhxnmnssj2xp6vw4yaksyavq03497v33xfpdxss7"))))
(properties `((upstream-name . "flock")))
(build-system r-build-system)
(propagated-inputs `(("r-rcpp" ,r-rcpp)))
(home-page "https://cran.r-project.org/web/packages/flock/")
(synopsis "Process synchronization using file locks")
(description
"This package implements synchronization between R processes (spawned by
using the @code{parallel} package for instance) using file locks. It supports
both exclusive and shared locking.")
(license license:asl2.0)))
(define-public r-archivist
(package
(name "r-archivist")
(version "2.3.4")
(source
(origin
(method url-fetch)
(uri (cran-uri "archivist" version))
(sha256
(base32
"1i11hrcq1910jgd6diw6h3sxx624v57zjianm49pqvb2dvd0b8y7"))))
(properties `((upstream-name . "archivist")))
(build-system r-build-system)
(propagated-inputs
`(("r-dbi" ,r-dbi)
("r-digest" ,r-digest)
("r-flock" ,r-flock)
("r-httr" ,r-httr)
("r-lubridate" ,r-lubridate)
("r-magrittr" ,r-magrittr)
("r-rcurl" ,r-rcurl)
("r-rsqlite" ,r-rsqlite)))
(home-page "https://pbiecek.github.io/archivist/")
(synopsis "Tools for storing, restoring and searching for R objects")
(description
"Data exploration and modelling is a process in which a lot of data
artifacts are produced. Artifacts like: subsets, data aggregates, plots,
statistical models, different versions of data sets and different versions of
results. Archivist helps to store and manage artifacts created in R. It
allows you to store selected artifacts as binary files together with their
metadata and relations. Archivist allows sharing artifacts with others. It
can look for already created artifacts by using its class, name, date of the
creation or other properties. It also makes it easy to restore such
artifacts.")
(license license:gpl2)))
(define-public r-versions
(package
(name "r-versions")
(version "0.3")
(source
(origin
(method url-fetch)
(uri (cran-uri "versions" version))
(sha256
(base32
"0zm49j785dgv7fyr1yl9q5f0dsk8hhpim5q5bpkgrkzv7pwjribd"))))
(properties `((upstream-name . "versions")))
(build-system r-build-system)
(home-page "https://cran.r-project.org/web/packages/versions/")
(synopsis "Query and install specific versions of CRAN packages")
(description
"This package allows you to install specified versions of R packages
hosted on CRAN and provides functions to list available versions and the
versions of currently installed packages.")
(license license:bsd-3)))
(define-public r-adapr
(package
(name "r-adapr")
(version "2.0.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "adapr" version))
(sha256
(base32
"1s57jdbi5pik56xjz1d4438ax6cywg2yq2s47h5g6wrwvpgr1qfw"))))
(properties `((upstream-name . "adapr")))
(build-system r-build-system)
(propagated-inputs
`(("r-archivist" ,r-archivist)
("r-devtools" ,r-devtools)
("r-digest" ,r-digest)
("r-doparallel" ,r-doparallel)
("r-gdata" ,r-gdata)
("r-ggplot2" ,r-ggplot2)
("r-git2r" ,r-git2r)
("r-igraph" ,r-igraph)
("r-knitr" ,r-knitr)
("r-plotly" ,r-plotly)
("r-plyr" ,r-plyr)
("r-rmarkdown" ,r-rmarkdown)
("r-shiny" ,r-shiny)
("r-shinydashboard" ,r-shinydashboard)
("r-versions" ,r-versions)))
(home-page "https://cran.r-project.org/web/packages/adapr/")
(synopsis "Implementation of an accountable data analysis process")
(description
"This package tracks reading and writing within R scripts that are
organized into a directed acyclic graph. It contains an interactive Shiny
application @code{adaprApp()}. It uses Git and file hashes to track version
histories of inputs and outputs.")
(license license:lgpl2.0)))
(define-public r-adapsamp
(package
(name "r-adapsamp")
(version "1.1.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "AdapSamp" version))
(sha256
(base32
"1jayjrsiib2ij4rxxj59g71r3xhzl5yqh0lhi8k6cfy03i7dkvis"))))
(properties `((upstream-name . "AdapSamp")))
(build-system r-build-system)
(propagated-inputs `(("r-pracma" ,r-pracma)))
(home-page "https://cran.r-project.org/web/packages/AdapSamp/")
(synopsis "Adaptive sampling algorithms")
(description
"For distributions whose probability density functions are log-concave,
the adaptive rejection sampling algorithm can be used to build envelope
functions for sampling. For others, the modified adaptive rejection sampling
algorithm, the concave-convex adaptive rejection sampling algorithm, and the
adaptive slice sampling algorithm can be used. This R package mainly includes
these four functions: @code{rARS()}, @code{rMARS()}, @code{rCCARS()}, and
@code{rASS()}. These functions can realize sampling based on the algorithms
above.")
(license license:gpl2)))
(define-public r-adaptalint
(package
(name "r-adaptalint")
(version "0.2.4")
(source
(origin
(method url-fetch)
(uri (cran-uri "adaptalint" version))
(sha256
(base32
"15qdcvnnbgcps8j5k79354wsc9alswijv8lcafg2i3lghaw536yf"))))
(properties `((upstream-name . "adaptalint")))
(build-system r-build-system)
(propagated-inputs
`(("r-dplyr" ,r-dplyr)
("r-lintr" ,r-lintr)
("r-purrr" ,r-purrr)))
(home-page "https://cran.r-project.org/web/packages/adaptalint/")
(synopsis "Check R code style")
(description
"This package provides tools to infer the code style (which style rules
are followed and which ones are not) from one package and use it to check
another. This makes it easier to find and correct the most important problems
first.")
(license license:gpl3)))

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

File diff suppressed because it is too large Load Diff

10
gnu/packages/crypto.scm
View File

@ -633,6 +633,16 @@ data on your platform, so the seed itself will be as random as possible.
(lambda _
;; By default, only the static library is built.
(invoke "make" "shared")))
(add-after 'install 'install-shared-library-links
;; By default, only .so and .so.x.y.z are installed.
;; Create all the ‘intermediates’ expected by dependent packages.
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib")))
(with-directory-excursion lib
(symlink "libcryptopp.so.8.0.0" "libcryptopp.so.8.0")
(symlink "libcryptopp.so.8.0.0" "libcryptopp.so.8")
#t))))
(add-after 'install 'install-pkg-config
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))

11
gnu/packages/cups.scm
View File

@ -58,7 +58,7 @@
(define-public cups-filters
(package
(name "cups-filters")
(version "1.25.11")
(version "1.25.13")
(source(origin
(method url-fetch)
(uri
@ -66,7 +66,7 @@
"cups-filters-" version ".tar.xz"))
(sha256
(base32
"0ni8krr4rf5833livn9401cd41gspjvxj0iiqnc1rfg3x90i0fxh"))
"1z3b7p6pp6yzvzl2nip9q0gn4fr5k9qwpnnhqqkiaaf3b1nfswjj"))
(modules '((guix build utils)))
(snippet
;; install backends, banners and filters to cups-filters output
@ -537,6 +537,13 @@ should only be used as part of the Guix cups-pk-helper service.")
"/lib/systemd/system"))
(("/etc/sane.d")
(string-append out "/etc/sane.d"))))))
(add-after 'install 'install-models-dat
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(models-dir (string-append out
"/share/hplip/data/models")))
(install-file "data/models/models.dat" models-dir))
#t))
(add-after 'install 'wrap-binaries
;; Scripts in /bin are all symlinks to .py files in /share/hplip.
;; Symlinks are immune to the Python build system's 'WRAP phase,

52
gnu/packages/databases.scm
View File

@ -10,7 +10,7 @@
;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org>
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017 ng0 <ng0@n0.is>
;;; Copyright © 2016, 2017, 2018 Roel Janssen <roel@gnu.org>
;;; Copyright © 2016 David Craven <david@craven.ch>
@ -687,7 +687,7 @@ Language.")
(define-public mariadb
(package
(name "mariadb")
(version "10.1.41")
(version "10.1.43")
(source (origin
(method url-fetch)
(uri (string-append "https://downloads.mariadb.com/MariaDB"
@ -695,7 +695,7 @@ Language.")
version ".tar.gz"))
(sha256
(base32
"1wh0073lqw3d9xs150bf2q3qvjwa6886mfi9khmsn7p8vapw6irb"))
"1pxyq37q4p7515by7k8hs3l3css68f3bm3akx99vw4m1rxwwbm63"))
(patches (search-patches "mariadb-client-test-32bit.patch"))
(modules '((guix build utils)))
(snippet
@ -816,6 +816,12 @@ Language.")
disabled-tests)
(close-port unstable-tests)
;; XXX: This test fails because it expects a latin1 charset and
;; collation. See <https://jira.mariadb.org/browse/MDEV-21264>.
(substitute* "mysql-test/r/gis_notembedded.result"
(("latin1_swedish_ci") "utf8_general_ci")
(("\tlatin1") "\tutf8"))
(substitute* "mysql-test/mysql-test-run.pl"
(("/bin/ls") (which "ls"))
(("/bin/sh") (which "sh")))
@ -846,10 +852,11 @@ Language.")
#t))
(add-after
'install 'post-install
(lambda* (#:key outputs #:allow-other-keys)
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(dev (assoc-ref outputs "dev"))
(lib (assoc-ref outputs "lib")))
(lib (assoc-ref outputs "lib"))
(openssl (assoc-ref inputs "openssl")))
(substitute* (string-append out "/bin/mysql_install_db")
(("basedir=\"\"")
(string-append "basedir=\"" out "\"")))
@ -871,6 +878,14 @@ Language.")
(string-append dev "/share/pkgconfig"))
(rename-file (string-append out "/bin/mysql_config")
(string-append dev "/bin/mysql_config"))
;; Embed an absolute reference to OpenSSL in mysql_config
;; and the pkg-config file to avoid propagation.
(substitute* (list (string-append dev "/bin/mysql_config")
(string-append dev "/share/pkgconfig/mariadb.pc"))
(("-lssl -lcrypto" all)
(string-append "-L" openssl "/lib " all)))
#t))))))
(native-inputs
`(("bison" ,bison)
@ -884,12 +899,11 @@ Language.")
("libaio" ,libaio)
("libxml2" ,libxml2)
("ncurses" ,ncurses)
("openssl" ,openssl-1.0)
("pam" ,linux-pam)
("pcre" ,pcre)
("xz" ,xz)
("zlib" ,zlib)))
(propagated-inputs
;; mariadb.pc says -lssl -lcrypto, so propagate it.
`(("openssl" ,openssl-1.0)))
;; The test suite is very resource intensive and can take more than three
;; hours on a x86_64 system. Give slow and busy machines some leeway.
(properties '((timeout . 64800))) ;18 hours
@ -931,14 +945,14 @@ as a drop-in replacement of MySQL.")
(define-public postgresql
(package
(name "postgresql")
(version "10.10")
(version "10.11")
(source (origin
(method url-fetch)
(uri (string-append "https://ftp.postgresql.org/pub/source/v"
version "/postgresql-" version ".tar.bz2"))
(sha256
(base32
"0lzj46dwd9cw94gnqm36bxd7jlhfdyqjrfzr3c4xd3prfn2rnkxd"))
"02fcmvbh0mhplj3s2jd24s642ysx7bggnf0h8bs5amh7dgzi8p8d"))
(patches (search-patches "postgresql-disable-resolve_symlinks.patch"))))
(build-system gnu-build-system)
(arguments
@ -1114,7 +1128,7 @@ including field and record folding.")))
(define-public rocksdb
(package
(name "rocksdb")
(version "5.18.3")
(version "6.5.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1123,7 +1137,7 @@ including field and record folding.")))
(file-name (git-file-name name version))
(sha256
(base32
"1v2slmmr1dsgf8z0qcfg1y9x1al96859rg48b66p9nsawczd5zv9"))
"01f5lcrcr809jhkkvxhv743hwpcxszj4r30hy9qy1i0mvjky02vf"))
(modules '((guix build utils)))
(snippet
'(begin
@ -2626,17 +2640,18 @@ PickleShare.")
(define-public python-apsw
(package
(name "python-apsw")
(version "3.20.1-r1")
(version "3.28.0-r1")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/rogerbinns/apsw/archive/"
version ".tar.gz"))
(file-name (string-append "apsw-" version ".tar.gz"))
(uri (string-append "https://github.com/rogerbinns/apsw/releases"
"/download/" version "/apsw-" version ".zip"))
(sha256
(base32
"00ai7m2pqi26qaflhz314d8k5i3syw7xzr145fhfl0crhyh6adz2"))))
"0x62534l5hcgwrc4k2gxpdzc1sxlhm6m4nwlay74rnmr77qh8wly"))))
(build-system python-build-system)
(native-inputs
`(("unzip" ,unzip)))
(inputs
`(("sqlite" ,sqlite)))
(arguments
@ -2651,8 +2666,7 @@ PickleShare.")
(invoke "gcc" "-fPIC" "-shared" "-o" "./testextension.sqlext"
"-I." "-Isqlite3" "src/testextension.c")
#t))
(delete 'check)
(add-after 'install 'check
(replace 'check
(lambda* (#:key inputs outputs #:allow-other-keys)
(add-installed-pythonpath inputs outputs)
(invoke "python" "setup.py" "test")

6
gnu/packages/disk.scm
View File

@ -2,7 +2,7 @@
;;; Copyright © 2012, 2013 Nikita Karetnikov <nikita@karetnikov.org>
;;; Copyright © 2015 Mathieu Lirzin <mthl@gnu.org>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2016 Roel Janssen <roel@gnu.org>
@ -524,14 +524,14 @@ Duperemove can also take input from the @command{fdupes} program.")
(define-public ranger
(package
(name "ranger")
(version "1.9.2")
(version "1.9.3")
(source (origin
(method url-fetch)
(uri (string-append "https://ranger.github.io/"
"ranger-" version ".tar.gz"))
(sha256
(base32
"12kbsqakbxs09y0x8hy66mmaf72rk0p850x7ryk2ghkq7wfin78f"))))
"0lfjrpv3z4h0knd3v94fijrw2zjba51mrp3mjqx2c98wr428l26f"))))
(build-system python-build-system)
(inputs
`(("w3m" ,w3m)))

14
gnu/packages/electronics.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Clément Lassieur <clement@lassieur.org>
;;;
;;; This file is part of GNU Guix.
@ -64,7 +64,7 @@ to take care of the OS-specific details when writing software that uses serial p
(define-public libsigrokdecode
(package
(name "libsigrokdecode")
(version "0.5.2")
(version "0.5.3")
(source (origin
(method url-fetch)
(uri (string-append
@ -72,7 +72,7 @@ to take care of the OS-specific details when writing software that uses serial p
version ".tar.gz"))
(sha256
(base32
"1w434nl1syjkvwl08lji3r9sr60lbxp1nqys8hqwzv2lgiwrx3g0"))))
"1h1zi1kpsgf6j2z8j8hjpv1q7n49i3fhqjn8i178rka3cym18265"))))
(outputs '("out" "doc"))
(arguments
`(#:phases
@ -106,7 +106,7 @@ to take care of the OS-specific details when writing software that uses serial p
(define-public sigrok-firmware-fx2lafw
(package
(name "sigrok-firmware-fx2lafw")
(version "0.1.6")
(version "0.1.7")
(source (origin
(method url-fetch)
(uri (string-append
@ -114,7 +114,7 @@ to take care of the OS-specific details when writing software that uses serial p
"sigrok-firmware-fx2lafw-" version ".tar.gz"))
(sha256
(base32
"18x5zj3xbcylvb651dia6n4zxbdnv0j62r5af60d0l2g68knkjg4"))))
"0fyfd82mvrcf55v5a3afq1mh1kfswk4c37qrbln6x92jm3b41x53"))))
(arguments
`(#:implicit-inputs? #f))
(native-inputs
@ -137,7 +137,7 @@ as simple logic analyzer and/or oscilloscope hardware.")
(define-public libsigrok
(package
(name "libsigrok")
(version "0.5.1")
(version "0.5.2")
(source (origin
(method url-fetch)
(uri (string-append
@ -145,7 +145,7 @@ as simple logic analyzer and/or oscilloscope hardware.")
version ".tar.gz"))
(sha256
(base32
"171b553dir5gn6w4f7n37waqk62nq2kf1jykx4ifjacdz5xdw3z4"))))
"0g6fl684bpqm5p2z4j12c62m45j1dircznjina63w392ns81yd2d"))))
(outputs '("out" "doc"))
(arguments
`(#:tests? #f ; tests need USB access

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

@ -14,7 +14,7 @@
;;; Copyright © 2016, 2017 Roel Janssen <roel@gnu.org>
;;; Copyright © 2016, 2017 ng0 <ng0@n0.is>
;;; Copyright © 2016, 2019 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2016, 2017, 2018, 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2016, 2017, 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2016, 2017, 2018, 2019 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2017 Christopher Baines <mail@cbaines.net>
@ -26,10 +26,10 @@
;;; Copyright © 2017 George Clemmer <myglc2@gmail.com>
;;; Copyright © 2017, 2018 Feng Shu <tumashu@163.com>
;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2017, 2018, 2019 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2017, 2018, 2019, 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com>
;;; Copyright © 2017 Peter Mikkelsen <petermikkelsen10@gmail.com>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Mike Gerwitz <mtg@gnu.org>
;;; Copyright © 2017, 2018, 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2018 Sohom Bhattacharjee <soham.bhattacharjee15@gmail.com>
@ -41,7 +41,7 @@
;;; Copyright © 2018 Alex Branham <alex.branham@gmail.com>
;;; Copyright © 2018 Thorsten Wilms <t_w_@freenet.de>
;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2018, 2019 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2018, 2019, 2020 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2019 Dimakakos Dimos <bendersteed@teknik.io>
;;; Copyright © 2019 Brian Leung <bkleung89@gmail.com>
;;; Copyright © 2019 mikadoZero <mikadozero@yandex.com>
@ -57,6 +57,7 @@
;;; Copyright © 2019 Stephen Webber <montokapro@gmail.com>
;;; Copyright © 2019 Leo Prikler <leo.prikler@student.tugraz.at>
;;; Copyright © 2019 David Wilson <david@daviwil.com>
;;; Copyright © 2020 Paul Garlick <pgarlick@tourbillion-technology.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -103,6 +104,7 @@
#:use-module (gnu packages ncurses)
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages telephony)
#:use-module (gnu packages tex)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages tcl)
@ -2292,7 +2294,7 @@ in the center.")
(define-public emacs-undo-tree
(package
(name "emacs-undo-tree")
(version "0.6.6")
(version "0.7.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -2301,7 +2303,7 @@ in the center.")
(file-name (git-file-name name version))
(sha256
(base32
"1hnh2mnmw179gr094r561w6cw1haid0lpvpqvkc24wpj82vphzpa"))))
"1nr0149y2nvrxj56gc12jqnfl01g6z9ypfsgl6pfg85cw73hnggk"))))
(build-system emacs-build-system)
(home-page "http://www.dr-qubit.org/emacs.php")
(synopsis "Treat undo history as a tree")
@ -3673,6 +3675,35 @@ front-ends. Company comes with many back-ends, e.g. @code{company-elisp}.
These are distributed in separate files and can be used individually.")
(license license:gpl3+)))
(define-public emacs-company-posframe
(let ((version "0.1.0")
(revision "1")
(commit "67d899502384fb9ab2870aba0af41523dea7b64f"))
(package
(name "emacs-company-posframe")
(version (git-version version revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/tumashu/company-posframe.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"051smlvz1siwglsd9k9l0m20mygrx4niflmyshha0064287aysxr"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-company" ,emacs-company)
("emacs-posframe" ,emacs-posframe)))
(home-page "https://github.com/tumashu/company-posframe")
(synopsis "Use a posframe for @code{emacs-company}'s candidate menu")
(description
"Allows @code{emacs-company} to use child frames for its candidate menus.
@code{emacs-company-posframe} is fast enough for daily use and supports CJK
languages.")
(license license:gpl3+))))
(define-public emacs-irony-mode
(package
(name "emacs-irony-mode")
@ -5322,7 +5353,7 @@ parallel.")
(define-public emacs-request
(package
(name "emacs-request")
(version "0.3.1")
(version "0.3.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -5331,8 +5362,10 @@ parallel.")
(file-name (git-file-name name version))
(sha256
(base32
"0fhhd349l4iqkrjxqzpckfk2w45x2g4cccpm1dqzv9m49md1wphx"))))
"1djywhvvb6kwdj0nd3axjvb7k2g06dzkc6hsf29w9rsk96vr8ryl"))))
(build-system emacs-build-system)
(arguments
`(#:tests? #f)) ; requires network access.
(propagated-inputs
`(("emacs-deferred" ,emacs-deferred)))
(home-page "https://github.com/tkf/emacs-request")
@ -6539,7 +6572,7 @@ functions to assist in reviewing changes on files.")
(define-public emacs-pyvenv
(package
(name "emacs-pyvenv")
(version "1.20")
(version "1.21")
(source (origin
(method git-fetch)
(uri (git-reference
@ -6548,7 +6581,7 @@ functions to assist in reviewing changes on files.")
(file-name (git-file-name name version))
(sha256
(base32
"1x052fsavb94x3scpqd6n9spqgzaahzbdxhg4qa5sy6hqsabn6zh"))))
"055sgk8zf4wb5nqsf3qasf5gg861zlb1831733f1qcrd2ij5gzxx"))))
(build-system emacs-build-system)
(arguments
`(#:phases
@ -6964,8 +6997,8 @@ not tied in the trap of backward compatibility.")
(license license:gpl3+)))
(define-public emacs-helm-org
(let ((commit "b9a1167b0716a22a69670f4c35e0ac59d2e0b220")
(revision "2"))
(let ((commit "8457e1e46227bf87726e05c42cec5a4b51c2ef7b")
(revision "3"))
(package
(name "emacs-helm-org")
(version (git-version "1.0" revision commit))
@ -6977,7 +7010,7 @@ not tied in the trap of backward compatibility.")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1gc27i4azqpgijva1f4ckfdp4s52mc9pnfcmzhkwhknr6pd6jlcr"))))
(base32 "0kcjhwwi492n9m2w894hvdavfvhj45zygy7bwvx103wvpay5h6h6"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-helm" ,emacs-helm)))
@ -7905,6 +7938,32 @@ pasting into and from @code{tmux} paste buffers.")
to search.")
(license license:gpl3+))))
(define-public emacs-monky
(package
(name "emacs-monky")
(version "0.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ananthakumaran/monky.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1fgn7al4zwz2k5wb5dy3byqg9lsrjk9fra341mxh5ma2pfwxjgps"))))
(build-system emacs-build-system)
(home-page "https://ananthakumaran.in/monky/index.html")
(arguments
`(#:tests? #t
#:test-command '("emacs" "--batch"
"-l" "test/monky-unit-test.el"
"-f" "ert-run-tests-batch-and-exit")))
(synopsis "Interactive interface for the Mercurial version control system")
(description
"Monky provides an Emacs interface for Mercurial (Hg). Using Monky, you
can selectively commit files, view the diffs, and other things.")
(license license:gpl3+)))
(define-public emacs-monroe
(package
(name "emacs-monroe")
@ -7929,7 +7988,7 @@ distribution, primarily targeting Clojure users")
(define-public emacs-orgalist
(package
(name "emacs-orgalist")
(version "1.9")
(version "1.11")
(source
(origin
(method url-fetch)
@ -7937,7 +7996,7 @@ distribution, primarily targeting Clojure users")
"orgalist-" version ".el"))
(sha256
(base32
"1rmmcyiiqkq54hn74nhzxzl4nvd902hv6gq341jwhrm7yiagffi6"))))
"0zbqkk540rax32s8szp5zgz3a02zw88fc1dmjmyw6h3ls04m91kl"))))
(build-system emacs-build-system)
(home-page "http://elpa.gnu.org/packages/orgalist.html")
(synopsis "Manage Org-like lists in non-Org buffers")
@ -8087,7 +8146,7 @@ Flx has support for ido (interactively do things) through flx-ido.")
(define-public emacs-cyberpunk-theme
(package
(name "emacs-cyberpunk-theme")
(version "1.19")
(version "1.21")
(source
(origin
(method git-fetch)
@ -8096,13 +8155,13 @@ Flx has support for ido (interactively do things) through flx-ido.")
(commit version)))
(sha256
(base32
"1npwrw3pgdmvqhihcqcfi2yrs178iiip5fcj8zhpp6cr9yqsvvgi"))
"05mfgr9aj7knn7niadv9p6z3qrfpq2lbbi2wxxx62xywim9maw2y"))
(file-name (git-file-name name version))))
(build-system emacs-build-system)
(home-page "https://github.com/n3mo/cyberpunk-theme.el")
(synopsis "Cyberpunk theme for emacs built-in color theme support")
(synopsis "Cyberpunk theme for Emacs built-in color theme support")
(description
"Cyberpunk color theme for the emacs 24+ built-in color theme support
"Cyberpunk color theme for the Emacs 24+ built-in color theme support
known loosely as deftheme. Many mode-specific customizations are included.")
(license license:gpl3+)))
@ -9257,7 +9316,7 @@ configuration of Chinese fonts.")
(define-public emacs-php-mode
(package
(name "emacs-php-mode")
(version "1.22.1")
(version "1.22.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -9266,7 +9325,7 @@ configuration of Chinese fonts.")
(file-name (git-file-name name version))
(sha256
(base32
"1yc7f39bv2ni8q5372r4kj04z7rikvc8w1mqx5c4zph5r02jab7i"))))
"1r4bpyavlndd4c78cv5cc97bc0gkd4cggiyz4kd2vg6zlyc1nld3"))))
(build-system emacs-build-system)
(home-page "https://github.com/ejmr/php-mode")
(synopsis "Major mode for editing PHP code")
@ -12489,6 +12548,38 @@ files to be expanded upon opening them.")
"This package provides an Emacs library for parsing bib files.")
(license license:gpl3+)))
(define-public emacs-ebib
(let ((commit "99bd909f47f71e024ce324981109b73a50e82fba"))
(package
(name "emacs-ebib")
(version "2.21")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/joostkremers/ebib.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"131vgl4d1j9s4055x88409w19q52x2m0x08b961hylp7yb5ljzgh"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-parsebib" ,emacs-parsebib)))
(home-page "http://joostkremers.github.io/ebib/")
(synopsis "BibTeX database manager for Emacs")
(description
"Ebib is a BibTeX database manager that runs in GNU Emacs.
With Ebib you can create, sort and manage your .bib database files,
all within Emacs. It supports searching, multi-line field values and
@@String and @@Preamble definitions. Ebib integrates with (La)TeX
mode, Org mode and other Emacs editing modes.")
;; The Ebib source files are released under a BSD license with
;; the exception of org-ebib.el, which is released under the GNU
;; GPL.
(license (list license:bsd-3
license:gpl3+)))))
(define-public emacs-biblio
(package
(name "emacs-biblio")
@ -14647,7 +14738,7 @@ scroll up to read the function name and then scroll down to original position.")
(define-public emacs-git-auto-commit-mode
(package
(name "emacs-git-auto-commit-mode")
(version "4.4.0")
(version "4.5.0")
(source
(origin
(method git-fetch)
@ -14656,7 +14747,7 @@ scroll up to read the function name and then scroll down to original position.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0psmr7749nzxln4b500sl3vrf24x3qijp12ir0i5z4x25k72hrlh"))))
(base32 "1w3v9pmlmdxl4pglsb6j0igp13lbzg5bhbr1rv2vll93m6zxmyma"))))
(build-system emacs-build-system)
(home-page "https://github.com/ryuslash/git-auto-commit-mode")
(synopsis "Emacs Minor mode to automatically commit and push")
@ -16235,7 +16326,7 @@ buffers – other modes on the TODO list).
(define-public emacs-magit-todos
(package
(name "emacs-magit-todos")
(version "1.4")
(version "1.4.1")
(source
(origin
(method git-fetch)
@ -16245,7 +16336,7 @@ buffers – other modes on the TODO list).
(file-name (git-file-name name version))
(sha256
(base32
"09pjb4k409gc0h51vb5az1shx02c1hx8cnvhi529n7dm4maildg5"))))
"1rcl6j53yabxqk3jzgaxvm3wqq7rayf1hdib2v2fapw5b0layym6"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-async" ,emacs-async)
@ -17722,6 +17813,154 @@ experience by providing optional integration with other popular Emacs packages
like @code{company}, @code{flycheck}, and @code{projectile}.")
(license license:gpl3+)))
(define-public emacs-pfuture
(let ((commit "368254ee30692c709400db413c347e18e76a8a55"))
(package
(name "emacs-pfuture")
(version (git-version "1.6" "1" commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Alexander-Miller/pfuture.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"096raqpjx84njws85r7pqq1wi9w9bjwkr0ga1mbbhlna1mfn3mg4"))))
(build-system emacs-build-system)
(home-page
"https://github.com/Alexander-Miller/pfuture")
(synopsis "Simple wrapper around asynchronous processes for Emacs")
(description "This package provides a simple wrapper around asynchronous
processes for Emacs")
(license license:gpl3+))))
(define-public emacs-treemacs
(package
(name "emacs-treemacs")
(version "2.6")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Alexander-Miller/treemacs.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"13gs8g05xj7np3i2q3bbxg6zgdiazzn1spxii4x0cyd4pg83c0i1"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-dash" ,emacs-dash)
("emacs-s" ,emacs-s)
("emacs-f" ,emacs-f)
("emacs-ace-window" ,emacs-ace-window)
("emacs-pfuture" ,emacs-pfuture)
("emacs-hydra" ,emacs-hydra)
("emacs-ht" ,emacs-ht)))
(native-inputs
`(("emacs-buttercup" ,emacs-buttercup)
("emacs-el-mock" ,emacs-el-mock)))
(inputs
`(("python" ,python)))
(arguments
`(#:tests? #t ;TODO: Investigate ‘treemacs--parse-collapsed-dirs’ test failure.
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-makefile
(lambda _
(substitute* "Makefile"
(("@\\$\\(CASK\\) exec ") ""))
#t))
(add-after 'fix-makefile 'chdir-elisp
;; Elisp directory is not in root of the source.
(lambda _
(chdir "src/elisp")))
(replace 'check
(lambda _
(with-directory-excursion "../.." ;treemacs root
(chmod "test/test-treemacs.el" #o644)
(emacs-substitute-sexps "test/test-treemacs.el"
("(describe \"treemacs--parse-collapsed-dirs\""
""))
(invoke "make" "test"))))
(add-before 'install 'patch-paths
(lambda* (#:key inputs outputs #:allow-other-keys)
(with-directory-excursion "../.." ;treemacs root
(chmod "src/elisp/treemacs-core-utils.el" #o644)
(emacs-substitute-variables "src/elisp/treemacs-core-utils.el"
("treemacs-dir"
(string-append (assoc-ref outputs "out") "/")))
(chmod "src/elisp/treemacs-icons.el" #o644)
(substitute* "src/elisp/treemacs-icons.el"
(("icons/default") "share/emacs-treemacs/images"))
(chmod "src/elisp/treemacs-customization.el" #o644)
(emacs-substitute-variables "src/elisp/treemacs-customization.el"
("treemacs-python-executable"
(string-append (assoc-ref inputs "python") "/bin/python3")))
(chmod "src/elisp/treemacs-async.el" #o644)
(substitute* "src/elisp/treemacs-async.el"
(("src/scripts") (string-append "share/" ,name "/scripts"))))
#t))
(add-after 'install 'install-data
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(with-directory-excursion "../.." ;treemacs root
(copy-recursively "icons/default"
(string-append out "/share/" ,name "/images"))
(copy-recursively
"src/scripts"
(string-append out "/share/" ,name "/scripts"))
#t)))))))
(home-page "https://github.com/Alexander-Miller/treemacs")
(synopsis "Emacs tree style file explorer")
(description "Powerful and flexible file tree project explorer.")
(license license:gpl3+)))
(define-public emacs-treemacs-extra
(package
(inherit emacs-treemacs)
(name "emacs-treemacs-extra")
(propagated-inputs
`(,@(package-propagated-inputs emacs-treemacs)
("emacs-evil" ,emacs-evil)
("emacs-magit" ,emacs-magit)
("emacs-projectile" ,emacs-projectile)))
(arguments
(substitute-keyword-arguments
(package-arguments emacs-treemacs)
((#:phases phases)
`(modify-phases ,phases
(add-after 'chdir-elisp 'copy-extra
(lambda _
(copy-recursively "../extra" ".")))))))))
(define-public emacs-lsp-java
(package
(name "emacs-lsp-java")
(version "2.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/emacs-lsp/lsp-java.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0hcnvbyaqyypgby1bfj4zbrbq97amk8hfx0sj4w73rl46yf4jk3j"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-lsp-mode" ,emacs-lsp-mode)
("emacs-markdown-mode" ,emacs-markdown-mode)
("emacs-dash" ,emacs-dash)
("emacs-f" ,emacs-f)
("emacs-ht" ,emacs-ht)
("emacs-request" ,emacs-request)
("emacs-treemacs" ,emacs-treemacs)))
(home-page "https://github.com/emacs-lsp/lsp-java/")
(synopsis "Java support for lsp-mode")
(description "Emacs Java IDE using Eclipse JDT Language Server.")
(license license:gpl3+)))
(define-public emacs-lsp-ui
(package
(name "emacs-lsp-ui")
@ -17749,6 +17988,29 @@ like @code{company}, @code{flycheck}, and @code{projectile}.")
and code peeking.")
(license license:gpl3+)))
(define-public emacs-lsp-lua-emmy
(let ((commit "ab53fb2a8b8942804eb75bab5624fd19f1d360bf"))
(package
(name "emacs-lsp-lua-emmy")
(version (git-version "0.1.0" "1" commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/phenix3443/lsp-lua-emmy.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0rbizis73n1w5ig07fj1han74chbc1zpbp5bn37rj0gz608aqka8"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-lsp-mode" ,emacs-lsp-mode)))
(home-page "https://github.com/phenix3443/lsp-lua-emmy/")
(synopsis "Lua support in @code{lsp-mode} client for Emacs")
(description "This package provides a Lua language support in
@code{lsp-mode} client for Emacs.")
(license license:gpl3+))))
(define-public emacs-lsp-ivy
(let ((commit "caf1e1d7e22ed0b5fe18dd508d1a6f83dd163288")
(revision "2"))
@ -19810,8 +20072,8 @@ contrast and few colors.")
(license license:gpl3+))))
(define-public emacs-doom-themes
(let ((commit "c2d0ed3fe73e415d29e05d56da08ba41018eec4f")
(revision "3")
(let ((commit "54039c5171e3f8c9cef1f82122549b66cd8c8f7b")
(revision "4")
(version "2.1.6"))
(package
(name "emacs-doom-themes")
@ -19823,7 +20085,7 @@ contrast and few colors.")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1bdi7dkddyn0s357v2jv0mlhgsyc66kcvbl01ly370pqia6r0gpc"))))
(base32 "1iwdjq4q2gkhi6jwas3ywgmdz5dg14sfb3fzhqd7wih6j3i2l3cr"))))
(build-system emacs-build-system)
(native-inputs
`(("emacs-ert-runner" ,emacs-ert-runner)))
@ -19849,6 +20111,10 @@ contrast and few colors.")
;; files. In order to cope with this issue, we disable
;; byte-compilation until this issue is resolved.
;; <https://github.com/hlissner/emacs-doom-themes/issues/314>
;;
;; NOTE: Byte-comp has been disabled in/after commit 9cd6872.
;; However our method of selective disabling is preferential to
;; just widely disabling byte-compilation.
(add-after 'move-themes 'disable-breaking-compilation
(lambda _
(for-each (lambda (file)
@ -19874,7 +20140,7 @@ Emacs that integrate with major modes like Org-mode.")
(define-public emacs-modus-themes
(package
(name "emacs-modus-themes")
(version "0.1.0")
(version "0.3.0")
(source
(origin
(method git-fetch)
@ -19884,7 +20150,7 @@ Emacs that integrate with major modes like Org-mode.")
(file-name (git-file-name name version))
(sha256
(base32
"15g63675c5df2p0kk2sqj2c8qriyh69lcbggknqlaxapr13giz4x"))))
"1xrrjhpdxi9bgx877gvq8xrc2ph5qp9y5j3ssdphy333x9km1px1"))))
(build-system emacs-build-system)
(home-page "https://gitlab.com/protesilaos/modus-themes")
(synopsis "Emacs themes designed for colour-contrast accessibility")
@ -20154,7 +20420,7 @@ fish-completion. It can be used in both Eshell and M-x shell.")
;; Get the current version from `telega-version` in telega.el.
;; or by running M-x telega-version.
(let ((commit "9bfb637b2e71f5f293debd35abd627a064faf8ef")
(revision "1")
(revision "2")
(version "0.5.4"))
(package
(name "emacs-telega")
@ -20171,14 +20437,15 @@ fish-completion. It can be used in both Eshell and M-x shell.")
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(arguments
`(#:test-target "test"
#:modules ((guix build gnu-build-system)
`(#:modules ((guix build gnu-build-system)
((guix build emacs-build-system) #:prefix emacs:)
(guix build utils)
(guix build emacs-utils))
#:imported-modules (,@%gnu-build-system-modules
(guix build emacs-build-system)
(guix build emacs-utils))
#:test-target "test"
#:make-flags (list "WITH_VOIP=t")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'prefix-patch
@ -20256,6 +20523,7 @@ fish-completion. It can be used in both Eshell and M-x shell.")
("libwebp" ,libwebp))) ; sticker support.
(native-inputs
`(("tdlib" ,tdlib)
("libtgvoip" ,libtgvoip) ; VoIP support.
("emacs" ,emacs)
("python" ,python)))
(synopsis "GNU Emacs client for the Telegram messenger")
@ -20651,3 +20919,89 @@ buffer. It can be used to toggle an alternative mode-line, toggle its visibilit
or simply disable the mode-line in buffers where it is not very useful.")
(home-page "https://github.com/hlissner/emacs-hide-mode-line")
(license license:expat)))
(define-public emacs-helm-cider
;; No new release since March 2018.
(let ((commit "9363cc537f06233345aa3af5cd46aa5681ad607b"))
(package
(name "emacs-helm-cider")
(version (git-version "0.4.0" "1" commit))
(home-page "https://github.com/clojure-emacs/helm-cider")
(source (origin
(method git-fetch)
(uri (git-reference
(url home-page)
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0vfn4smqba1vsshz48ggkj8gs94la0sxb1sq4shrb41qj2x3dci7"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-helm" ,emacs-helm)
("emacs-cider" ,emacs-cider)))
(synopsis "Helm interface to Clojure's CIDER")
(description "Helm-CIDER adds Helm interfaces to
@command{cider-apropos}, @command{cider-apropos-documentation},
@command{cider-browse-ns} (namespaces).
It also provides original Helm commands: @command{helm-cider-spec},
@command{helm-cider-spec-ns}, @command{helm-cider-repl-history},
@command{helm-cider-cheatsheet}.")
(license license:gpl3+))))
(define-public emacs-edn
;; No release since February 2016
(let ((commit "be9e32d1b49e35247b263b0243df7cfdc8d413ab"))
(package
(name "emacs-edn")
(version (git-version "1.1.2" "1" commit))
(home-page "https://github.com/expez/edn.el")
(source (origin
(method git-fetch)
(uri (git-reference
(url home-page)
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1xp2hjhn52k6l1g6ypva6dsklpawni7gvjafbz6404f9dyxflh7l"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-peg" ,emacs-peg)))
(synopsis "Read and write EDN from Elisp")
(description "This is an Emacs Lisp library for reading and writing the
data format @code{edn}. See @url{https://github.com/edn-format/edn}.")
(license license:gpl3+))))
(define-public emacs-helm-clojuredocs
(let ((commit "5a7f0f2cb401be0b09e73262a1c18265ab9a3cea"))
(package
(name "emacs-helm-clojuredocs")
(version (git-version "0.3" "1" commit))
(home-page "https://github.com/mbuczko/helm-clojuredocs")
(source (origin
(method git-fetch)
(uri (git-reference
(url home-page)
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"015b8zxh91ljhqvn6z43gy08di54xcw9skw0i7frj3d7gk984qhl"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-helm" ,emacs-helm)
("emacs-edn" ,emacs-edn)))
(synopsis "Search help on clojuredocs.org with Helm")
(description "This packages provides a Helm interface to lookup Clojure
documentation on @url{https://clojuredocs.org} with Helm.
Two function are exposed:
@itemize
@item @command{helm-clojuredocs}: opens a Helm session with no initial
pattern. Searching starts with minimal 3 characters entered.
@item @command{helm-clojuredocs-at-point}: opens a Helm session with initial
pattern guessed from thing under current cursor position.
@end itemize\n")
(license license:gpl3+))))

47
gnu/packages/emulators.scm
View File

@ -11,6 +11,7 @@
;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019 David Wilson <david@daviwil.com>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -457,6 +458,52 @@ and Game Boy Color games.")
;; BSD-3.
(license (list license:mpl2.0 license:lgpl2.1+ license:bsd-3))))
(define-public sameboy
(package
(name "sameboy")
(version "0.12.3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/LIJI32/SameBoy.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0m5rv2x8qck1kr43xq186pp4kaiay7gd1x775n9qrljcd7z4x6fs"))))
(build-system gnu-build-system)
(native-inputs
`(("rgbds" ,rgbds)
("gcc" ,gcc-9)
("pkg-config" ,pkg-config)))
(inputs
`(("sdl2" ,sdl2)))
(arguments
`(#:tests? #f ; There are no tests
#:make-flags `("CC=gcc" "CONF=release"
,(string-append "DATA_DIR="
(assoc-ref %outputs "out")
"/share/sameboy/"))
#:phases
(modify-phases %standard-phases
(delete 'configure)
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(data (string-append out "/share/sameboy/")))
(with-directory-excursion "build/bin/SDL"
(install-file "sameboy" bin)
(delete-file "sameboy")
(copy-recursively "." data))))))))
(home-page "https://sameboy.github.io/")
(synopsis "Accurate Game Boy, Game Boy Color and Super Game Boy emulator")
(description "SameBoy is a user friendly Game Boy, Game Boy Color
and Super Game Boy emulator. SameBoy is accurate and includes a wide
range of debugging features. It has all the features one would expect
from an emulator---from save states to scaling filters.")
(license license:expat)))
(define-public mupen64plus-core
(package
(name "mupen64plus-core")

41
gnu/packages/engineering.scm
View File

@ -1,12 +1,12 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2016, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2018, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 David Thompson <davet@gnu.org>
;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2017, 2018 Theodoros Foradis <theodoros@foradis.org>
;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2018, 2019 Jonathan Brielmaier <jonathan.brielmaier@web.de>
;;; Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net>
@ -289,7 +289,7 @@ utilities.")
;; never runs. See <https://bugs.debian.org/792687>.
`(cons "ac_cv_path_MSGMERGE=true" ,flags))
((#:phases phases '%standard-phases)
`(modify-phases ,phases
`(modify-phases %standard-phases
(add-before 'bootstrap 'prepare
(lambda _
;; Some of the scripts there are invoked by autogen.sh.
@ -795,7 +795,7 @@ language.")
(define-public kicad
(package
(name "kicad")
(version "5.1.4")
(version "5.1.5")
(source
(origin
(method url-fetch)
@ -804,7 +804,7 @@ language.")
"https://launchpad.net/kicad/" (version-major version)
".0/" version "/+download/kicad-" version ".tar.xz"))
(sha256
(base32 "1r60dgh6aalbpq1wsmpyxkz0nn4ck8ydfdjcrblpl69k5rks5k2j"))))
(base32 "0x3417f2pa7p65s9f7l49rqbnrzy8gz6i0n07mlbxqbnm0fmlql0"))))
(build-system cmake-build-system)
(arguments
`(#:out-of-source? #t
@ -855,7 +855,7 @@ language.")
("python" ,python)
("wxwidgets" ,wxwidgets)
("wxpython" ,python-wxpython)))
(home-page "http://kicad-pcb.org/")
(home-page "https://kicad-pcb.org/")
(synopsis "Electronics Design Automation Suite")
(description "Kicad is a program for the formation of printed circuit
boards and electrical circuits. The software has a number of programs that
@ -919,7 +919,7 @@ electrical diagrams), gerbview (viewing Gerber files) and others.")
(sha256
(base32
"08qrz5zzsb5127jlnv24j0sgiryd5nqwg3lfnwi8j9a25agqk13j"))))))
(home-page "http://kicad-pcb.org/")
(home-page "https://kicad-pcb.org/")
(synopsis "Libraries for kicad")
(description "This package provides Kicad component, footprint and 3D
render model libraries.")
@ -928,7 +928,7 @@ render model libraries.")
(define-public kicad-symbols
(package
(name "kicad-symbols")
(version "5.1.4")
(version "5.1.5")
(source (origin
(method git-fetch)
(uri (git-reference
@ -937,15 +937,19 @@ render model libraries.")
(file-name (git-file-name name version))
(sha256
(base32
"1lna4xlvzrxif3569pkp6mrg7fj62z3a3ri5j97lnmnnzhiddnh3"))))
"048b07ffsaav1ssrchw2p870lvb4rsyb5vnniy670k7q9p16qq6h"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f)) ; No tests exist
(home-page "http://kicad-pcb.org/")
`(#:tests? #f)) ; no tests exist
(home-page "https://kicad-pcb.org/")
(synopsis "Official KiCad schematic symbol libraries for KiCad 5")
(description "This package contains the official KiCad schematic symbol
libraries for KiCad 5.")
;; TODO: Exception: "To the extent that the creation of electronic designs that use 'Licensed Material' can be considered to be 'Adapted Material', then the copyright holder waives article 3 of the license with respect to these designs and any generated files which use data provided as part of the 'Licensed Material'."
;; TODO: Exception: "To the extent that the creation of electronic designs
;; that use 'Licensed Material' can be considered to be 'Adapted Material',
;; then the copyright holder waives article 3 of the license with respect to
;; these designs and any generated files which use data provided as part of
;; the 'Licensed Material'."
;; See <https://github.com/KiCad/kicad-symbols/blob/master/LICENSE.md>.
(license license:cc-by-sa4.0)))
@ -1205,13 +1209,14 @@ language, ADMS transforms Verilog-AMS code into other target languages.")
(name "capstone")
(version "3.0.5")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/aquynh/capstone/archive/"
version ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/aquynh/capstone")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1wbd1g3r32ni6zd9vwrq3kn7fdp9y8qwn9zllrrbk8n5wyaxcgci"))))
"0dgf82kxj4rs45d6s8sr984c38sll1n5scpypjlyh21gh2yl4qfw"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f

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

@ -28,6 +28,7 @@
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system linux-module)
#:use-module (guix build-system trivial)
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages acl)
@ -111,6 +112,81 @@ files. Since the HTTP protocol itself has no notion of directories, only a
single file can be mounted.")
(license license:gpl2+)))
(define-public jfsutils
(package
(name "jfsutils")
(version "1.1.15")
(source
(origin
(method url-fetch)
(uri (string-append "http://jfs.sourceforge.net/project/pub/jfsutils-"
version ".tar.gz"))
(sha256
(base32 "0kbsy2sk1jv4m82rxyl25gwrlkzvl3hzdga9gshkxkhm83v1aji4"))
(patches (search-patches "jfsutils-add-sysmacros.patch"
"jfsutils-include-systypes.patch"))))
(build-system gnu-build-system)
(inputs
`(("util-linux" ,util-linux)))
(home-page "http://jfs.sourceforge.net/home.html")
(synopsis "Utilities for managing JFS file systems")
(description
"The JFSutils are a collection of utilities for managing the @acronym{JFS,
Journaled File System}, a 64-bit journaling file system created by IBM and later
ported to the kernel Linux. The following commands are available:
@enumerate
@item @command{fsck.jfs}: check and repair a JFS file system or replay its
transaction log.
@item @command{logdump}: dump the JFS journal log.
@item @command{logredo}: replay the JFS journal log.
@item @command{mkfs.jfs}: create a new JFS file system.
@item @command{xchklog}: save a JFS fsck log to a file.
@item @command{xchkdmp}: dump the contents of such a log file.
@item @command{xpeek}: a JFS file system editor with a shell-like interface.
@end enumerate\n")
(license license:gpl3+))) ; no explicit version given
(define-public jfsutils/static
(static-package
(package
(inherit jfsutils)
(name "jfsutils-static")
(inputs
`(("util-linux:static" ,util-linux "static")
,@(package-inputs jfsutils))))))
(define-public jfs_fsck/static
(package
(name "jfs_fsck-static")
(version (package-version jfsutils))
(source #f)
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils)
(ice-9 ftw)
(srfi srfi-26))
(let* ((jfsutils (assoc-ref %build-inputs "jfsutils"))
(fsck "jfs_fsck")
(out (assoc-ref %outputs "out"))
(sbin (string-append out "/sbin")))
(mkdir-p sbin)
(with-directory-excursion sbin
(install-file (string-append jfsutils "/sbin/" fsck)
".")
(remove-store-references fsck)
(chmod fsck #o555))
#t))))
(inputs
`(("jfsutils" ,jfsutils/static)))
(home-page (package-home-page jfsutils))
(synopsis "Statically-linked jfs_fsck command from jfsutils")
(description "This package provides statically-linked jfs_fsck command taken
from the jfsutils package. It is meant to be used in initrds.")
(license (package-license jfsutils))))
(define-public disorderfs
(package
(name "disorderfs")

114
gnu/packages/finance.scm
View File

@ -11,7 +11,7 @@
;;; Copyright © 2018 Adriano Peluso <catonano@gmail.com>
;;; Copyright © 2018, 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org>
;;; Copyright © 2019 Martin Becze <mjbecze@riseup.net>
;;; Copyright © 2019 Sebastian Schott <sschott@mailbox.org>
@ -41,6 +41,7 @@
#:use-module (guix build-system python)
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system go)
#:use-module (guix build-system qt)
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages aidc)
@ -288,6 +289,12 @@ in ability, and easy to use.")
#:tests? #f ; there are none
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-site-dir
(lambda _
(substitute* "CMakeLists.txt"
(("DESTINATION share/emacs/site-lisp/ledger-mode")
"DESTINATION share/emacs/site-lisp"))
#t))
(add-before 'build 'patch-path
(lambda* (#:key inputs #:allow-other-keys)
(let ((ledger (assoc-ref inputs "ledger")))
@ -303,17 +310,12 @@ in ability, and easy to use.")
(invoke "makeinfo" "-o" target
"../source/doc/ledger-mode.texi"))
#t))
(add-after 'install 'relocate-elisp
(add-after 'install 'generate-autoload
(lambda* (#:key outputs #:allow-other-keys)
(let* ((site-dir (string-append (assoc-ref outputs "out")
"/share/emacs/site-lisp"))
(guix-dir (string-append site-dir "/guix.d"))
(orig-dir (string-append site-dir "/ledger-mode"))
(dest-dir (string-append guix-dir "/ledger-mode")))
(mkdir-p guix-dir)
(rename-file orig-dir dest-dir)
(emacs-generate-autoloads ,name dest-dir)
#t))))))
"/share/emacs/site-lisp")))
(emacs-generate-autoloads ,name site-dir))
#t)))))
(inputs
`(("ledger" ,ledger)))
(native-inputs
@ -602,7 +604,7 @@ the Monero command line client and daemon.")
(define-public monero-gui
(package
(name "monero-gui")
(version "0.15.0.1")
(version "0.15.0.3")
(source
(origin
(method git-fetch)
@ -612,8 +614,8 @@ the Monero command line client and daemon.")
(file-name (git-file-name name version))
(sha256
(base32
"08j8kkncdn57xql0bhmlzjpjkdfhqbpda1p07r797q8qi0nl4w8n"))))
(build-system gnu-build-system)
"1v2mk6qp7dfdj4j4cilxp0s0phfwwnmjvpvjrz6jzzlpvbnavkr0"))))
(build-system qt-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
("qttools" ,qttools)))
@ -633,53 +635,45 @@ the Monero command line client and daemon.")
("qtquickcontrols" ,qtquickcontrols)
("qtquickcontrols2",qtquickcontrols2)
("qtsvg" ,qtsvg)
("qtwebchannel" ,qtwebchannel)
("qtx11extras" ,qtx11extras)
("qtxmlpatterns" ,qtxmlpatterns)
("unbound" ,unbound)))
(propagated-inputs
`(("monero" ,monero)))
(arguments
`(#:modules ((guix build gnu-build-system)
(guix build qt-utils)
(guix build utils))
#:imported-modules (,@%gnu-build-system-modules
(guix build qt-utils))
`(#:tests? #f ; No tests
#:phases
(modify-phases %standard-phases
(delete 'configure)
(delete 'check)
(add-before 'build 'fix-makefile-vars
(add-after 'unpack 'fix-makefile-vars
(lambda _
(substitute* "src/zxcvbn-c/makefile"
(("\\?=") "="))
#t))
(add-after 'fix-makefile-vars 'fix-library-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "monero-wallet-gui.pro"
(("-L/usr/local/lib")
"")
(("-L/usr/local/opt/openssl/lib")
(string-append "-L" (assoc-ref inputs "openssl") "/lib"))
(("-L/usr/local/opt/boost/lib")
(string-append "-L" (assoc-ref inputs "boost") "/lib")))
#t))
(add-after 'fix-library-paths 'fix-monerod-path
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/daemon/DaemonManager.cpp"
(("QApplication::applicationDirPath\\(\\) \\+ \"/monerod")
(string-append "\"" (assoc-ref inputs "monero")
"/bin/monerod")))
#t))
(add-after 'fix-monerod-path 'fix-qt-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "monero-wallet-gui.pro"
(("\\$\\$\\[QT_INSTALL_BINS\\]/lrelease")
(string-append (assoc-ref inputs "qttools") "/bin/lrelease"))
(("\\$\\$\\[QT_INSTALL_BINS\\]/lupdate")
(string-append (assoc-ref inputs "qttools") "/bin/lupdate")))
#t))
(add-after 'fix-qt-paths 'make-qt-deterministic
(add-after 'fix-makefile-vars 'fix-paths
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((boost (assoc-ref inputs "boost"))
(monero (assoc-ref inputs "monero"))
(openssl (assoc-ref inputs "openssl"))
(qttools (assoc-ref inputs "qttools"))
(out (assoc-ref outputs "out")))
(substitute* "monero-wallet-gui.pro"
(("-L/usr/local/lib")
"")
(("-L/usr/local/opt/openssl/lib")
(string-append "-L" openssl "/lib"))
(("-L/usr/local/opt/boost/lib")
(string-append "-L" boost "/lib"))
(("\\$\\$\\[QT_INSTALL_BINS\\]/lrelease")
(string-append qttools "/bin/lrelease"))
(("\\$\\$\\[QT_INSTALL_BINS\\]/lupdate")
(string-append qttools "/bin/lupdate")))
(substitute* "deployment.pri"
(("/opt/\\$\\$\\{TARGET\\}/bin")
(string-append out "/bin")))
(substitute* "src/daemon/DaemonManager.cpp"
(("QApplication::applicationDirPath\\(\\) \\+ \"/monerod")
(string-append "\"" monero "/bin/monerod")))
#t)))
(add-after 'fix-paths 'make-qt-deterministic
(lambda _
(setenv "QT_RCC_SOURCE_DATE_OVERRIDE" "1")
#t))
@ -696,24 +690,14 @@ the Monero command line client and daemon.")
,version
,(package-version monero))))
#t))
(replace 'build
(lambda _
(invoke "./build.sh")))
(add-after 'build 'fix-install-path
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "build/Makefile"
(("/opt/monero-wallet-gui")
(assoc-ref outputs "out")))
#t))
(add-before 'install 'change-dir
(replace 'configure
(lambda _
(mkdir-p "build")
(chdir "build")
#t))
(add-after 'install 'wrap-program
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(wrap-qt-program out "monero-wallet-gui"))
#t)))))
(invoke "qmake" "../monero-wallet-gui.pro" "CONFIG+=release")))
(add-before 'build 'build-zxcvbn-c
(lambda _
(invoke "make" "-C" "../src/zxcvbn-c"))))))
(home-page "https://web.getmonero.org/")
(synopsis "Graphical user interface for the Monero currency")
(description

10
gnu/packages/firmware.scm
View File

@ -381,22 +381,20 @@ Virtual Machines. OVMF contains a sample UEFI firmware for QEMU and KVM.")
(define* (make-arm-trusted-firmware platform #:optional (arch "aarch64"))
(package
(name (string-append "arm-trusted-firmware-" platform))
(version "2.1")
(version "2.2")
(source
(origin
(method git-fetch)
(uri (git-reference
;; There are only GitHub generated release snapshots.
(url "https://github.com/ARM-software/arm-trusted-firmware.git")
(url "https://git.trustedfirmware.org/TF-A/trusted-firmware-a.git/")
(commit (string-append "v" version))))
(file-name (git-file-name "arm-trusted-firmware" version))
(patches (search-patches
"arm-trusted-firmware-optional-bin-generation.patch"
"arm-trusted-firmware-rockchip-disable-binary.patch"
"arm-trusted-firmware-disable-hdcp.patch"))
(sha256
(base32
"1gy5qskrjy8n3kxdcm1dx8b45l5b75n0pm8pq80wl6xic1ycy24r"))))
"03fjl5hy1bqlya6fg553bqz7jrvilzrzpbs87cv6jd04v8qrvry8"))))
(build-system gnu-build-system)
(arguments
`(#:phases
@ -444,7 +442,7 @@ Virtual Machines. OVMF contains a sample UEFI firmware for QEMU and KVM.")
("cross-binutils" ,(cross-binutils "arm-linux-gnueabihf")))
'())
))
(home-page "https://github.com/ARM-software/arm-trusted-firmware")
(home-page "https://www.trustedfirmware.org/")
(synopsis "Implementation of \"secure world software\"")
(description
"ARM Trusted Firmware provides a reference implementation of secure world

42
gnu/packages/fonts.scm
View File

@ -14,7 +14,7 @@
;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2016 Toni Reina <areina@riseup.net>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 José Miguel Sánchez García <jmi2k@openmailbox.com>
;;; Copyright © 2017 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
@ -68,7 +68,7 @@
(define-public font-ibm-plex
(package
(name "font-ibm-plex")
(version "2.0.0")
(version "4.0.2")
(source (origin
(method url-fetch)
(uri (string-append
@ -76,7 +76,7 @@
"v" version "/OpenType.zip"))
(sha256
(base32
"1lv65z3qnqgh2w36daf5wyz0ma9rg1qj9s9lzlnva8l7q3h8c9b8"))))
"17bd84ic7z9hkcjy4bwnh4z51bnkh2vrjzwvs9g6lwzmxjswa5b6"))))
(build-system font-build-system)
(home-page "https://github.com/IBM/plex")
(synopsis "IBM Plex typeface")
@ -89,15 +89,16 @@ well as other mediums.")
(define-public font-inconsolata
(package
(name "font-inconsolata")
(version "0.80")
(source (origin
(method url-fetch)
(uri "http://www.levien.com/type/myfonts/Inconsolata.otf")
(sha256
(base32
"06js6znbcf7swn8y3b8ki416bz96ay7d3yvddqnvi88lqhbfcq8m"))))
(version "3.000")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/googlefonts/Inconsolata/"
"releases/download/v" version "/fonts_otf.zip"))
(sha256
(base32 "1wavvv86nwsqm5sbmnkv1bprj7l7zdrkxpvjy6w8yag93k6hrlx1"))))
(build-system font-build-system)
(home-page "http://levien.com/type/myfonts/inconsolata.html")
(home-page "https://levien.com/type/myfonts/inconsolata.html")
(synopsis "Monospace font")
(description "A monospace font, designed for code listings and the like,
in print. With attention to detail for high resolution rendering.")
@ -209,7 +210,7 @@ sans-serif designed for on-screen reading. It is used by GNOME@tie{}3.")
(define-public font-lato
(package
(name "font-lato")
(version "2.010") ; also update description
(version "2.015") ; also update description
(source (origin
(method url-fetch/zipbomb)
(uri (string-append "https://www.latofonts.com/download/Lato2OFL.zip"))
@ -352,14 +353,14 @@ Biolinum is available in both Regular and Bold weights.")
(define-public font-terminus
(package
(name "font-terminus")
(version "4.47")
(version "4.48")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/terminus-font/terminus-font-"
version "/terminus-font-" version ".tar.gz"))
(sha256
(base32 "15qjcpalcxjiwsjgjg5k88vkwp56cs2nnx4ghya6mqp4i1c206qg"))))
(base32 "1bwlkj39rqbyq57v5yssayav6hzv1n11b9ml2s0dpiyfsn6rqy9l"))))
(build-system gnu-build-system)
(outputs (list "out" "pcf-8bit"))
(arguments
@ -646,7 +647,7 @@ for use at smaller text sizes")))
(define-public font-gnu-unifont
(package
(name "font-gnu-unifont")
(version "12.1.03")
(version "12.1.04")
(source
(origin
(method url-fetch)
@ -656,7 +657,7 @@ for use at smaller text sizes")))
(string-append "mirror://gnu/unifont/unifont-"
version "/unifont-" version ".tar.gz")))
(sha256
(base32 "10mr3ax19v5pa6a791fk2j3k45fpa8n5r36kq9gs8lk95wfnxmf1"))))
(base32 "1h5dyhg4j8sh4qpbwnsn34igb8mfapz5b3nf4k71hq1c5z3j0mcv"))))
(build-system gnu-build-system)
(outputs '("out" ; TrueType version
"pcf" ; PCF (bitmap) version
@ -1089,6 +1090,8 @@ later hand-tweaked with the gbdfed(1) editor:
(define-public font-comic-neue
(package
(name "font-comic-neue")
;; The ‘v2.3’ and ‘v2.4’ releases at https://github.com/crozynski/comicneue
;; are equivalent. The home page hosts 2.3, not 2.4, so we use that here.
(version "2.3")
(source (origin
(method url-fetch/zipbomb)
@ -1137,7 +1140,8 @@ typeface, by mimicking Comic Sans while fixing its most obvious shortcomings.")
(define-public font-iosevka
(package
(name "font-iosevka")
(version "2.2.0")
;; When updating, also update the hash of the Iosevka variant(s) below.
(version "2.3.3")
(source
(origin
(method url-fetch/zipbomb)
@ -1145,7 +1149,7 @@ typeface, by mimicking Comic Sans while fixing its most obvious shortcomings.")
"/releases/download/v" version
"/ttc-iosevka-" version ".zip"))
(sha256
(base32 "14jfv6pkh1w44m89z2fn44kgmmqaf0057lk71advwfbm3q313y0x"))))
(base32 "0jkv5rkg5hi0avhwyhcjiqzjslp6zjj77f09vxx2gj9l93byz731"))))
(build-system font-build-system)
(home-page "https://be5invis.github.io/Iosevka/")
(synopsis "Coders' typeface, built from code")
@ -1168,7 +1172,7 @@ programming. Iosevka is completely generated from its source code.")
"/releases/download/v" version
"/ttc-iosevka-slab-" version ".zip"))
(sha256
(base32 "186d0pl13znysll3hvzm1ixn7ad616g6dhla55sbh6ki2j04b8ml"))))))
(base32 "1rkmgi08kknc1fg54zpa6w92m3b3v7pc8cpwygz22kgd2h0mdrr8"))))))
(define-public font-go
(let ((commit "f03a046406d4d7fbfd4ed29f554da8f6114049fc")

4
gnu/packages/freedesktop.scm
View File

@ -155,14 +155,14 @@ freedesktop.org project.")
(define-public libinput
(package
(name "libinput")
(version "1.14.1")
(version "1.14.3")
(source (origin
(method url-fetch)
(uri (string-append "https://freedesktop.org/software/libinput/"
"libinput-" version ".tar.xz"))
(sha256
(base32
"0w7fas37mp2k06f12i3lnj717lw73asziknj6z51kh1m50ja6cz3"))))
"1dy58j8dvr7ri34bx0lppmh5638m956azgwk501w373hi42kmsqg"))))
(build-system meson-build-system)
(arguments
`(#:configure-flags '("-Ddocumentation=false")

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

@ -8,7 +8,7 @@
;;; Copyright © 2016, 2017 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2016, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017, 2018 Julian Graham <joolean@gmail.com>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2017 Peter Mikkelsen <petermikkelsen10@gmail.com>
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
@ -17,6 +17,7 @@
;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019 Leo Prikler <leo.prikler@student.tugraz.at>
;;; Copyright © 2019 Jethro Cao <jethrocao@gmail.com>
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -71,6 +72,7 @@
#:use-module (gnu packages linux)
#:use-module (gnu packages lua)
#:use-module (gnu packages m4)
#:use-module (gnu packages mono)
#:use-module (gnu packages mp3)
#:use-module (gnu packages multiprecision)
#:use-module (gnu packages music)
@ -81,6 +83,7 @@
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt)
#:use-module (gnu packages sdl)
#:use-module (gnu packages sphinx)
#:use-module (gnu packages stb)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages tls)
@ -93,7 +96,7 @@
(define-public bullet
(package
(name "bullet")
(version "2.88")
(version "2.89")
(source (origin
(method git-fetch)
(uri (git-reference
@ -102,7 +105,7 @@
(file-name (git-file-name name version))
(sha256
(base32
"00qkif245yj7n2f262bgjaxv1bz3wmmcsfnjgy3qpzvlpzpns5z8"))
"10ncf2z474jnv7p5lv01ak2mk2hib3rj5rz1zr8v2v5pnciqbijl"))
(modules '((guix build utils)))
(snippet
'(begin
@ -112,11 +115,10 @@
'("Gwen" "clsocket" "enet" "glad" "imgui"
"lua-5.2.3" "midi" "minizip" "openvr"
"optionalX11" "serial" "zlib")))
;; These need files from ThirdPartyLibs
;; These need files from ThirdPartyLibs.
(substitute* "Extras/CMakeLists.txt"
(("BulletRobotics") "")
(("obj2sdf") ""))
;; Tests fail on linking, cannot find -lBussIK
(("BulletRobotics") ""))
;; Tests fail on linking, cannot find -lBussIK.
(substitute* "test/CMakeLists.txt"
((" InverseDynamics")
"../examples/ThirdPartyLibs/BussIK InverseDynamics"))
@ -133,7 +135,7 @@
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'remove-failing-tests
;; These tests fail specifically after removing 3rd party code
;; These tests fail specifically after removing 3rd party code.
(lambda _
(substitute* "test/SharedMemory/CMakeLists.txt"
(("ADD_TEST") "# ADD_TEST"))
@ -155,7 +157,7 @@ is used in some video games and movies.")
(define-public deutex
(package
(name "deutex")
(version "5.2.0")
(version "5.2.1")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/Doom-Utils/deutex"
@ -163,7 +165,7 @@ is used in some video games and movies.")
"deutex-" version ".tar.xz"))
(sha256
(base32
"1d536d3i78k4ch8mjg7lqnamnyfpp2x5x7mzx5smqi9ad8lb6hqz"))))
"07w3asqxx89wl2wfv1z3cak8v83h3ys3b39mq9qq4gyf3xdhs76n"))))
(build-system gnu-build-system)
(native-inputs `(("asciidoc" ,asciidoc)))
(home-page "https://github.com/Doom-Utils/deutex")
@ -1904,3 +1906,126 @@ projects.")
hardware from multiple vendors without requiring that applications have
specific knowledge of the hardware they are targeting.")
(license license:bsd-3)))
(define-public fna
(package
(name "fna")
(version "19.12.01")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/FNA-XNA/FNA.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1vdyi9hac24fqcs8kpj6yk36bf5rrl4dvlvdd9fc701fawcf6lrr"))))
(build-system gnu-build-system)
(arguments
'(#:tests? #f ; No tests.
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'link-dep-src
(lambda* (#:key inputs #:allow-other-keys)
(let ((sdl2 (assoc-ref inputs "sdl2-cs-src"))
(mojoshader (assoc-ref inputs "mojoshader-src"))
(faudio (assoc-ref inputs "faudio-src"))
(theorafile (assoc-ref inputs "theorafile-src")))
(symlink (string-append sdl2 "/src") "lib/SDL2-CS/src")
(symlink (string-append mojoshader "/csharp") "lib/MojoShader/csharp")
(symlink (string-append faudio "/csharp") "lib/FAudio/csharp")
(symlink (string-append theorafile "/csharp") "lib/Theorafile/csharp"))))
(delete 'configure)
(replace 'build
(lambda _
(invoke "make" "release")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(install-file "bin/Release/FNA.dll" (string-append out "/lib"))
#t))))))
(native-inputs
`(("mono" ,mono)))
(inputs `(("sdl2-cs-src" ,(package-source sdl2-cs))
("mojoshader-src" ,(package-source mojoshader-cs))
("faudio-src" ,(package-source faudio))
("theorafile-src" ,(package-source theorafile))))
(home-page "https://fna-xna.github.io/")
(synopsis "Accuracy-focused XNA4 reimplementation")
(description "FNA is a Microsoft XNA Game Studio 4.0 reimplementation that
focuses solely on developing a fully accurate XNA4 runtime for the desktop.")
(license (list license:ms-pl ; FNA
license:lgpl2.1 ; LzxDecoder.cs
;; Mono.Xna:
license:expat))))
(define-public libccd
(package
(name "libccd")
(version "2.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/danfis/libccd.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0sfmn5pd7k5kyhbxnd689xmsa5v843r7sska96dlysqpljd691jc"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags '("-DBUILD_DOCUMENTATION=ON"
"-DBUILD_TESTING=ON"
"-DENABLE_DOUBLE_PRECISION=ON")))
(native-inputs
`(("python-sphinx" ,python-sphinx)))
(home-page "https://github.com/danfis/libccd")
(synopsis "Library for collision detection between two convex shapes")
(description "@code{libccd} is library for a collision detection
between two convex shapes. @code{libccd} implements variation on
Gilbert–Johnson–Keerthi algorithm plus Expand Polytope Algorithm (EPA)
and also implements algorithm Minkowski Portal Refinement (MPR,
a.k.a. XenoCollide) as described in Game Programming Gems 7.")
(license license:expat)))
(define-public ode
(package
(name "ode")
(version "0.16")
(source
(origin
(method url-fetch)
(uri (string-append "https://bitbucket.org/odedevs/ode/downloads/"
"ode-" version ".tar.gz"))
(sha256
(base32 "09xzrarxwxcf6rdv5jsjfjh454jnn29dpcw3wh6ic50kkipvg8sb"))
(modules '((guix build utils)))
(snippet
'(begin
(delete-file-recursively "libccd")
#t))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags '("-DODE_WITH_LIBCCD_SYSTEM=ON")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'unbundle-libccd
(lambda _
(substitute* "CMakeLists.txt"
(("configure_file\\(libccd/.*") ""))
#t)))))
(inputs
`(("glu" ,glu)
("libccd" ,libccd)
("mesa" ,mesa)))
(home-page "http://www.ode.org/")
(synopsis "High performance library for simulating rigid body dynamics")
(description "ODE is a high performance library for simulating
rigid body dynamics. It is fully featured, stable, mature and
platform independent with an easy to use C/C++ API. It has advanced
joint types and integrated collision detection with friction. ODE is
useful for simulating vehicles, objects in virtual reality
environments and virtual creatures. It is currently used in many
computer games, 3D authoring tools and simulation tools.")
;; Software is dual-licensed.
(license (list license:lgpl2.1+ license:expat))))

49
gnu/packages/games.scm
View File

@ -24,7 +24,7 @@
;;; Copyright © 2016 Steve Webber <webber.sl@gmail.com>
;;; Copyright © 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@hyperbola.info>
;;; Copyright © 2017, 2018 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2019 nee <nee-git@hidamari.blue>
;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017, 2019 Marius Bakke <mbakke@fastmail.com>
@ -37,7 +37,7 @@
;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net>
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2019, 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2019 Jesse Gibbons <jgibbons2357+guix@gmail.com>
@ -3747,7 +3747,7 @@ with the \"Stamp\" tool within Tux Paint.")
(define-public supertux
(package
(name "supertux")
(version "0.6.0")
(version "0.6.1")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/SuperTux/supertux/"
@ -3756,7 +3756,7 @@ with the \"Stamp\" tool within Tux Paint.")
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"1h1s4abirkdv4ag22zvyk6zkk64skqbjmcnnba67ps4hdzxfbhy4"))
"0lqch5gcq6ccnspy93z9r13bp8w2j1vrd8jhvk5kp4qhrd1f069s"))
(patches
(search-patches "supertux-unbundle-squirrel.patch"))))
(arguments
@ -3789,11 +3789,11 @@ with the \"Stamp\" tool within Tux Paint.")
("boost" ,boost)
("freetype" ,freetype)
("squirrel" ,squirrel)))
(native-inputs `(("pkg-config" ,pkg-config)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(synopsis "2D platformer game")
(description "SuperTux is a free classic 2D jump'n run sidescroller game
in a style similar to the original Super Mario games covered under
the GNU GPL.")
(description "SuperTux is a classic 2D jump'n run sidescroller game in
a style similar to the original Super Mario games.")
(home-page "https://supertux.org/")
(license license:gpl3+)))
@ -4144,7 +4144,7 @@ for Un*x systems with X11.")
(define-public freeciv
(package
(name "freeciv")
(version "2.6.0")
(version "2.6.1")
(source
(origin
(method url-fetch)
@ -4156,8 +4156,7 @@ for Un*x systems with X11.")
(version-major+minor version) "/" version
"/freeciv-" version ".tar.bz2")))
(sha256
(base32
"16f9wsnn7073s6chzbm3819swd0iw019p9nrzr3diiynk28kj83w"))))
(base32 "1qmrhrwm0ryvsh1zsxcxj128lhyvaxap7k39sam3hh8rl0fq9rnc"))))
(build-system gnu-build-system)
(inputs
`(("curl" ,curl)
@ -4168,11 +4167,11 @@ for Un*x systems with X11.")
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "http://www.freeciv.org/")
(synopsis "Turn based empire building strategy game")
(description "Freeciv is a turn based empire building strategy game
(synopsis "Turn-based empire building strategy game")
(description "Freeciv is a turn-based empire building strategy game
inspired by the history of human civilization. The game commences in
prehistory and your mission is to lead your tribe from the Stone Age
to the Space Age.")
into the Space Age.")
(license license:gpl2+)))
(define-public no-more-secrets
@ -4581,7 +4580,9 @@ settings.link.libs:Add(\"wavpack\")")
(let* ((arch ,(system->linux-architecture
(or (%current-target-system)
(%current-system))))
(build (string-append "build/" arch "/release/"))
(build (string-append "build/" (if (string=? arch "i386")
"x86" arch)
"/release/"))
(data-built (string-append build "data/"))
(out (assoc-ref outputs "out"))
(bin (string-append out "/bin/"))
@ -5182,7 +5183,7 @@ Crowther & Woods, its original authors, in 1995. It has been known as
(define-public tome4
(package
(name "tome4")
(version "1.6.4")
(version "1.6.6")
(synopsis "Single-player, RPG roguelike game set in the world of Eyal")
(source
(origin
@ -5191,7 +5192,7 @@ Crowther & Woods, its original authors, in 1995. It has been known as
version ".tar.bz2"))
(sha256
(base32
"1hrh79aqmvwwd7idlr3lzpdpc9dgm1k5p7w2462chcjvd8vhfhb7"))
"1amx0y49scy9hq71wjvkdzvgclwa2g54vkv4bf40mxyp4pl0bq7m"))
(modules '((guix build utils)))
(snippet
'(begin
@ -5250,11 +5251,11 @@ Crowther & Woods, its original authors, in 1995. It has been known as
(wrapper (string-append bin "/" ,name)))
;; icon
(mkdir-p pixmaps)
(system* unzip "-j"
(string-append
"game/engines/te4-" ,version ".teae")
(string-append
"data/gfx/" icon) "-d" pixmaps)
(invoke unzip "-j"
(string-append
"game/engines/te4-" ,version ".teae")
(string-append
"data/gfx/" icon) "-d" pixmaps)
;; game executable
(install-file "t-engine" data)
(mkdir-p bin)
@ -7465,7 +7466,7 @@ and bring the war to your enemy.")
(define-public harmonist
(package
(name "harmonist")
(version "0.2")
(version "0.3.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -7474,7 +7475,7 @@ and bring the war to your enemy.")
(file-name (git-file-name name version))
(sha256
(base32
"0hqy9kqwgirwkq1v3vj1hp9m93hjvdj4nxcfbjfvvwk2bbzri3s2"))))
"146wiyanag0zqj6fhyll2sw6sydnnll8mgxhhqf9sjqsl2rx4s5r"))))
(build-system go-build-system)
(arguments
'(#:import-path "git.tuxfamily.org/harmonist/harmonist"))

9
gnu/packages/geo.scm
View File

@ -11,6 +11,7 @@
;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Wiktor Żelazny <wzelazny@vurv.cz>
;;; Copyright © 2019 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -252,12 +253,14 @@ and driving.")
(inputs
`(("libjpeg-turbo" ,libjpeg-turbo)
("libtiff" ,libtiff)
("proj" ,proj)
("zlib" ,zlib)))
(propagated-inputs
`(;; libgeotiff headers include proj headers, so ensure those are available.
("proj" ,proj)))
(arguments
`(#:configure-flags
(list (string-append "--with-zlib")
(string-append "--with-jpeg")
(list "--disable-static"
"--with-zlib" "--with-jpeg"
(string-append "--with-libtiff=" (assoc-ref %build-inputs "libtiff")))))
(synopsis "Library for handling GeoTIFF (geographic enabled TIFF)")
(description "libgeotiff is a library on top of libtiff for reading and

50
gnu/packages/gl.scm
View File

@ -42,6 +42,7 @@
#:use-module (gnu packages image)
#:use-module (gnu packages linux)
#:use-module (gnu packages llvm)
#:use-module (gnu packages mono)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
@ -229,7 +230,7 @@ also known as DXTn or DXTC) for Mesa.")
(define-public mesa
(package
(name "mesa")
(version "19.2.1")
(version "19.2.7")
(source
(origin
(method url-fetch)
@ -241,10 +242,9 @@ also known as DXTn or DXTC) for Mesa.")
version "/mesa-" version ".tar.xz")))
(sha256
(base32
"1s81kwcjkkahnf5y5mshmd3q9j057hhsai7awpq6yb6im2hkriac"))
"17jp8ghipgz62vqqz5llskxypkcmgf8gnlgnj0pyvnbgi6vryyg3"))
(patches
(search-patches "mesa-skip-disk-cache-test.patch"
"mesa-timespec-test-32bit.patch"))))
(search-patches "mesa-skip-disk-cache-test.patch"))))
(build-system meson-build-system)
(propagated-inputs
`(;; The following are in the Requires.private field of gl.pc.
@ -604,7 +604,7 @@ OpenGL graphics API.")
(define-public libepoxy
(package
(name "libepoxy")
(version "1.5.3")
(version "1.5.4")
(source (origin
(method url-fetch)
(uri (string-append
@ -612,7 +612,7 @@ OpenGL graphics API.")
version "/libepoxy-" version ".tar.xz"))
(sha256
(base32
"0ga3qjv50x37my6pw5xr14g5n6z78hy5s8s06kays8c3ab2mha80"))))
"1ll9fach4v30dsyd47s5ial4gaiwihzr2afb77vxxzzy3mlcrlhb"))))
(arguments
`(#:phases
(modify-phases %standard-phases
@ -889,3 +889,41 @@ the shaders at runtime.")
(description "This is the last version of the mojoshader library with
the glProgramViewportFlip before it was replaced with glProgramViewportInfo.")
(license license:zlib))))
(define-public mojoshader-cs
(let ((commit "10d0dba21ff1cfe332eb7de328a2adce01286bd7"))
(package
(name "mojoshader-cs")
(version (git-version "20191205" "1" commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/FNA-XNA/MojoShader")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"11mdhf3fmb9rsn2iv753gmb596j4dh5j2iipgw078vg0lj23rml7"))))
(build-system gnu-build-system)
(arguments
'(#:tests? #f ; No tests.
#:phases
(modify-phases %standard-phases
(delete 'configure)
(replace 'build
(lambda _
(invoke "make" "-C" "csharp")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(install-file "csharp/bin/MojoShader-CS.dll" (string-append out "/lib"))
#t))))))
(native-inputs
`(("mono" ,mono)))
(home-page "https://github.com/FNA-XNA/MojoShader")
(synopsis "C# wrapper for MojoShader")
(description
"Mojoshader-CS provides C# bindings for the Mojoshader library.
The C# wrapper was written to be used for FNA's platform support. However, this
is written in a way that can be used for any general C# application.")
(license license:zlib))))

1
gnu/packages/glib.scm
View File

@ -903,6 +903,7 @@ programming language. It also contains the utility
(uri (string-append "https://people.freedesktop.org/~hughsient/"
"appstream-glib/releases/"
"appstream-glib-" version ".tar.xz"))
(patches (search-patches "appstream-glib-2020.patch"))
(sha256
(base32
"14jr1psx5kxywdprgbqn79w309yz8lrqlsq7288hfrf87gbr1wh4"))))

270
gnu/packages/gnome.scm
View File

@ -21,7 +21,7 @@
;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2016, 2017 ng0 <ng0@n0.is>
;;; Copyright © 2016 David Craven <david@craven.ch>
;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2017, 2018 nee <nee-git@hidamari.blue>
@ -45,6 +45,7 @@
;;; Copyright © 2019 Raghav Gururajan <raghavgururajan@disroot.org>
;;; Copyright © 2019 Jonathan Brielmaier <jonathan.brielmaier@web.de>
;;; Copyright © 2019 Leo Prikler <leo.prikler@student.tugraz.at>
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -246,6 +247,146 @@ Desktop. It is designed to be as simple as possible and has some unique
features to enable users to create their discs easily and quickly.")
(license license:gpl2+)))
(define-public gnome-color-manager
(package
(name "gnome-color-manager")
(version "3.32.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"1vpxa2zjz3lkq9ldjg0fl65db9s6b4kcs8nyaqfz3jygma7ifg3w"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t
#:phases
(modify-phases %standard-phases
(add-before
'check 'pre-check
(lambda _
;; Tests require a running X server.
(system "Xvfb :1 &")
(setenv "DISPLAY" ":1")
#t)))))
(native-inputs
`(("desktop-file-utils" ,desktop-file-utils)
("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("gtk+:bin" ,gtk+ "bin")
("itstool" ,itstool)
("pkg-config" ,pkg-config)
("xorg-server" ,xorg-server-for-tests)))
(inputs
`(("adwaita-icon-theme" ,adwaita-icon-theme)
("appstream-glib" ,appstream-glib)
("colord-gtk" ,colord-gtk)
("exiv2" ,exiv2)
("gnome-desktop" ,gnome-desktop)
("libcanberra" ,libcanberra)
("libexif" ,libexif)
("libtiff" ,libtiff)
("libxrandr" ,libxrandr)
("libxtst" ,libxtst)
("libxxf86vm" ,libxxf86vm)
("vte" ,vte)
("xorgproto" ,xorgproto)))
(synopsis "Color profile manager for the GNOME desktop")
(description "GNOME Color Manager is a session framework that makes
it easy to manage, install and generate color profiles
in the GNOME desktop.")
(home-page "https://gitlab.gnome.org/GNOME/gnome-color-manager")
(license license:gpl2)))
(define-public gnome-online-miners
(package
(name "gnome-online-miners")
(version "3.30.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"0pjamwwzn5wqgihyss357dyl2q70r0bngnqmwsqawchx5f9aja9c"))))
(build-system glib-or-gtk-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("gtk+:bin" ,gtk+ "bin")
("pkg-config" ,pkg-config)))
(inputs
`(("gnome-online-accounts" ,gnome-online-accounts)
("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
("grilo" ,grilo)
("libgdata" ,libgdata)
("libgfbgraph" ,gfbgraph)
("libzapojit" ,libzapojit)
("rest" ,rest)
("tracker" ,tracker)))
(synopsis "Web Crawlers for GNOME")
(description "GNOME Online Miners provides a set of crawlers that
go through your online content and index them locally in Tracker.
It has miners for Facebook, Flickr, Google, ownCloud and SkyDrive.")
(home-page "https://wiki.gnome.org/Projects/GnomeOnlineMiners")
(license license:gpl2)))
(define-public libmediaart
(package
(name "libmediaart")
(version "1.9.4")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"0gc10imyabk57ar54m0qzms0x9dnmkymhkzyk8w1aj3y4lby0yx5"))))
(build-system gnu-build-system)
(native-inputs
`(("glib:bin" ,glib "bin")
("pkg-config" ,pkg-config)))
(inputs
`(("gdk-pixbuf" ,gdk-pixbuf)
("gettext" ,gettext-minimal)
("gobject-introspection" ,gobject-introspection)
("gtk+:doc", gtk+ "doc")
("vala" ,vala)))
(synopsis "Media art library for the GNOME desktop")
(description
"The libmediaart library is the foundation for media art caching,
extraction, and lookup for applications on the desktop.")
(home-page "https://gitlab.gnome.org/GNOME/libmediaart")
(license license:lgpl2.1+)))
(define-public gnome-menus
(package
(name "gnome-menus")
(version "3.32.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/gnome-menus/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"0x2blzqrapmbsbfzxjcdcpa3vkw9hq5k96h9kvjmy9kl415wcl68"))))
(build-system gnu-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("glib" ,glib)
("pkg-config" ,pkg-config)))
(synopsis "Menu support for GNOME desktop")
(description "GNOME Menus contains the libgnome-menu library, the layout
configuration files for the GNOME menu, as well as a simple menu editor.")
(home-page "https://gitlab.gnome.org/GNOME/gnome-menus")
(license license:gpl2)))
(define-public deja-dup
(package
(name "deja-dup")
@ -323,6 +464,60 @@ uses duplicity as the backend, which supports incremental backups and storage
either on a local, or remote machine via a number of methods.")
(license license:gpl3+)))
(define-public gnome-user-docs
(package
(name "gnome-user-docs")
(version "3.32.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/gnome-user-docs/"
(version-major+minor version)
"/gnome-user-docs-" version ".tar.xz"))
(sha256
(base32 "0dvsl0ldg8rf7yq0r4dv1pn41s7gjgcqp7agkbflkbmhrl6vbhig"))))
(build-system gnu-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("itstool" ,itstool)
("pkg-config" ,pkg-config)
("xmllint" ,libxml2)))
(synopsis "User documentation for the GNOME desktop")
(description
"The GNOME User Documentation explains how to use the GNOME desktop and its
components. It covers usage and setup of the core GNOME programs by end-users
and system administrators.")
(home-page "https://live.gnome.org/DocumentationProject")
(license license:cc-by3.0)))
(define-public gnome-getting-started-docs
(package
(name "gnome-getting-started-docs")
(version "3.32.2")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/gnome-getting-started-docs/"
(version-major+minor version)
"/gnome-getting-started-docs-" version ".tar.xz"))
(sha256
(base32 "1v4k465mlzrhgcdddzs6bmm0yliyrfx6jg3gh0s17a08i0w5rbwq"))))
(build-system gnu-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("itstool" ,itstool)
("pkg-config" ,pkg-config)
("xmllint" ,libxml2)))
(synopsis "Help to get new users started with the GNOME desktop")
(description
"The GNOME Getting Started Documentation contains GNOME's intuitive
\"Getting Started\" tour, with video guides, that can be viewed with Yelp.
It is normally used together with @command{gnome-initial-setup}, but is also
useful as a tutorial and users' guide for new or less experienced users.")
(home-page "https://live.gnome.org/DocumentationProject")
(license license:cc-by-sa3.0)))
(define-public dia
;; This version from GNOME's repository includes fixes for compiling with
;; recent versions of the build tools. The latest activity on the
@ -471,7 +666,18 @@ to other formats.")
(base32
"08cwz39iwgsyyb2wqhb8vfbmh1cwfkgfiy7adp08w7rwqi99x3dp"))))
(build-system meson-build-system)
(arguments '(#:glib-or-gtk? #t))
(arguments
`(#:glib-or-gtk? #t
#:phases (modify-phases %standard-phases
(add-after 'install 'wrap
(lambda* (#:key outputs #:allow-other-keys)
;; GNOME Characters needs Typelib files from GTK and
;; gnome-desktop.
(wrap-program (string-append (assoc-ref outputs "out")
"/bin/gnome-characters")
`("GI_TYPELIB_PATH" ":" prefix
(,(getenv "GI_TYPELIB_PATH"))))
#t)))))
(native-inputs
`(("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
@ -481,7 +687,8 @@ to other formats.")
(inputs
`(("gjs" ,gjs)
("gtk+" ,gtk+)
("libunistring" ,libunistring)))
("libunistring" ,libunistring)
("gnome-desktop" ,gnome-desktop)))
(home-page "https://wiki.gnome.org/Apps/CharacterMap")
(synopsis "Find and insert unusual characters")
(description "Characters is a simple utility application to find
@ -926,15 +1133,15 @@ forgotten when the session ends.")
(define-public evince
(package
(name "evince")
(version "3.34.1")
(version "3.34.2")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
(uri (string-append "mirror://gnome/sources/evince/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
"evince-" version ".tar.xz"))
(sha256
(base32
"1pr6fvbaam1mzxjwyqd53hcxzdjzf73idn10j4j7n54nwg6hgr45"))))
"05q6v9lssd21623mnj2p49clj9v9csw9kay7n4nklki025grbh1w"))))
(build-system glib-or-gtk-build-system)
(arguments
`(#:configure-flags '("--disable-nautilus")
@ -1174,16 +1381,16 @@ database is translated at Transifex.")
(define-public system-config-printer
(package
(name "system-config-printer")
(version "1.5.11")
(source (origin
(method url-fetch)
(uri (string-append
"https://github.com/zdohnal/system-config-printer/releases/"
"download/" version
"/system-config-printer-" version ".tar.xz"))
(sha256
(base32
"1lq0q51bhanirpjjvvh4xiafi8hgpk8r32h0dj6dn3f32z8pib9q"))))
(version "1.5.12")
(source
(origin
(method url-fetch)
(uri (string-append
"https://github.com/OpenPrinting/system-config-printer/releases/"
"download/" version
"/system-config-printer-" version ".tar.xz"))
(sha256
(base32 "050yrx1vfh9f001qsn06y1jcidxq0ymxr64kxykasr0zzryp25kb"))))
(build-system glib-or-gtk-build-system)
(arguments
`(#:imported-modules ((guix build python-build-system)
@ -3471,10 +3678,9 @@ keyboard shortcuts.")
#t))))))
(native-inputs
`(("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
("gettext" ,gettext-minimal)
("gobject-introspection" ,gobject-introspection)
("gtk-doc" ,gtk-doc)
("intltool" ,intltool)
("libtool" ,libtool)
("pkg-config" ,pkg-config)
("vala" ,vala)))
(propagated-inputs
@ -3594,15 +3800,14 @@ faster results and to avoid unnecessary server load.")
(define-public upower
(package
(name "upower")
(version "0.99.10")
(version "0.99.11")
(source (origin
(method url-fetch)
(uri (string-append "https://gitlab.freedesktop.org/upower/upower/"
"uploads/c438511024b9bc5a904f8775cfc8e4c4/"
(uri (string-append "https://upower.freedesktop.org/releases/"
"upower-" version ".tar.xz"))
(sha256
(base32
"17d2bclv5fgma2y3g8bsn9pdvspn1zrzismzdnzfivc0f2wm28k4"))
"1vxxvmz2cxb1qy6ibszaz5bskqdy9nd9fxspj9fv3gfmrjzzzdb4"))
(patches (search-patches "upower-builddir.patch"))))
(build-system glib-or-gtk-build-system)
(arguments
@ -5200,15 +5405,15 @@ share them with others via social networking and more.")
(define-public file-roller
(package
(name "file-roller")
(version "3.32.2")
(version "3.32.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
(uri (string-append "mirror://gnome/sources/file-roller/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
"file-roller-" version ".tar.xz"))
(sha256
(base32
"0w8s6hakgsvb2nqwbv0lr8ki4cbf1pz5z3qwkb0b2k7ppbh7j2n6"))))
"0ap2hxvjljh4p6wsd9ikh2my3vsxp9r2nvjxxj3v87nwfyw1y4dy"))))
(build-system meson-build-system)
(native-inputs
`(("desktop-file-utils" ,desktop-file-utils) ; for update-desktop-database
@ -7194,8 +7399,9 @@ associations for GNOME.")
(propagated-inputs
;; TODO: Add or remove packages according to:
;; <https://calc.disroot.org/2nu6mpf88ynq.html>.
`(
;; GNOME-Core-OS-Services
`(("accountsservice" ,accountsservice)
("accountsservice" ,accountsservice)
("network-manager" ,network-manager)
("packagekit" ,packagekit)
("upower" ,upower)
@ -7207,12 +7413,15 @@ associations for GNOME.")
("gnome-bluetooth" ,gnome-bluetooth)
("gnome-control-center" ,gnome-control-center)
("gnome-desktop" ,gnome-desktop)
("gnome-getting-started-docs" ,gnome-getting-started-docs)
("gnome-keyring" ,gnome-keyring)
("gnome-menus" ,gnome-menus)
("gnome-session" ,gnome-session)
("gnome-settings-daemon" ,gnome-settings-daemon)
("gnome-shell-extensions" ,gnome-shell-extensions)
("gnome-shell" ,gnome-shell)
("gnome-themes-extra" ,gnome-themes-extra)
("gnome-user-docs" ,gnome-user-docs)
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
("gvfs" ,gvfs)
("mutter" ,mutter)
@ -7239,7 +7448,10 @@ associations for GNOME.")
("nautilus" ,nautilus)
("simple-scan" ,simple-scan)
("totem" ,totem)
("yelp" ,yelp)))
("yelp" ,yelp)
;; Others
("hicolor-icon-theme" ,hicolor-icon-theme)
("gnome-online-accounts" ,gnome-online-accounts)))
(synopsis "The GNU desktop environment")
(home-page "https://www.gnome.org/")
(description

27
gnu/packages/gnucash.scm
View File

@ -37,6 +37,7 @@
#:use-module (gnu packages databases)
#:use-module (gnu packages docbook)
#:use-module (gnu packages documentation)
#:use-module (gnu packages gettext)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages glib)
@ -56,15 +57,15 @@
;; directory.
(package
(name "gnucash")
(version "3.7")
(version "3.8")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/gnucash/gnucash%20%28stable%29/"
version "/gnucash-" version ".tar.bz2"))
version "/gnucash-" version "b" ".tar.bz2"))
(sha256
(base32
"1d2qi3ny0bxa16ifh3465z1jgn1l0fmqk9dkph4ialw076gv13kb"))))
"0dvzm3bib7jcj685sklpzyy9mrak9mxyvih2k9fk4sl3v21wlphg"))))
(build-system cmake-build-system)
(inputs
`(("guile" ,guile-2.2)
@ -207,7 +208,7 @@ installed as well as Yelp, the Gnome help browser.")
version "/gnucash-docs-" version revision ".tar.gz"))
(sha256
(base32
"1h4hm58ikffbhplx4gm8pzm9blfwqa1sz8yc2fqi21vs5v0ijf9r"))))
"19v6kchda724xkkgwlw5rg21jcpirhch12j9sr6ibnv61sd4ql52"))))
(build-system gnu-build-system)
;; These are native-inputs because they are only required for building the
;; documentation.
@ -231,14 +232,14 @@ to be read using the GNOME Yelp program.")
(define-public gwenhywfar
(package
(name "gwenhywfar")
(version "4.20.2")
(version "4.99.25rc9")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.aquamaniac.de/rdm/attachments/"
"download/108/gwenhywfar-" version ".tar.gz"))
"download/223/gwenhywfar-" version ".tar.gz"))
(sha256
(base32 "0w1j7ppr1247kr3bpn4dqwyxp6cl8mfgr0m4782iz8f8a4ixjkqg"))))
(base32 "14ws780zfyv9qg41z42hlk8sh31w80w3v8n5riaslqhvvxqbfgkq"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -268,22 +269,19 @@ applications and libraries. It is used by AqBanking.")
(define-public aqbanking
(package
(name "aqbanking")
(version "5.8.1")
(version "5.99.44beta")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.aquamaniac.de/rdm/attachments/"
"download/105/aqbanking-" version ".tar.gz"))
"download/224/aqbanking-" version ".tar.gz"))
(sha256
(base32 "0m44n2hyxprxzq7ijkrd7rmhhl0r033s1k21ix9y67a0p9skl1mg"))))
(base32 "1cgj8g3wy53galp9pk50a85w0kmwfx3dwl93cbvq6sqb9izxmwdb"))))
(build-system gnu-build-system)
(arguments
`(;; Parallel building fails because aqhbci is required before it's
;; built.
#:parallel-build? #f
#:configure-flags
(list (string-append "--with-gwen-dir="
(assoc-ref %build-inputs "gwenhywfar")))))
#:parallel-build? #f))
(propagated-inputs
`(("gwenhywfar" ,gwenhywfar)))
(inputs
@ -292,6 +290,7 @@ applications and libraries. It is used by AqBanking.")
("gnutls" ,gnutls)))
(native-inputs
`(("pkg-config" ,pkg-config)
("gettext-minimal", gettext-minimal)
("libltdl" ,libltdl)))
(home-page "https://www.aquamaniac.de/sites/aqbanking/index.php")
(synopsis "Interface for online banking tasks")

14
gnu/packages/gnuzilla.scm
View File

@ -70,7 +70,7 @@
#:use-module (gnu packages gl)
#:use-module (gnu packages assembly)
#:use-module (gnu packages rust)
#:use-module (gnu packages rust-cbindgen)
#:use-module (gnu packages rust-apps)
#:use-module (gnu packages llvm)
#:use-module (gnu packages nss)
#:use-module (gnu packages icu4c)
@ -550,8 +550,8 @@ from forcing GEXP-PROMISE."
#:system system
#:guile-for-build guile)))
(define %icecat-version "68.3.0-guix0-preview1")
(define %icecat-build-id "20191204000000") ;must be of the form YYYYMMDDhhmmss
(define %icecat-version "68.4.1-guix0-preview1")
(define %icecat-build-id "20200108000000") ;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'
@ -573,11 +573,11 @@ from forcing GEXP-PROMISE."
"firefox-" upstream-firefox-version ".source.tar.xz"))
(sha256
(base32
"0sfwp9vyjizj1lkvj6z51r85dl41q3l8380fkdyqdbp7f2d18cg1"))))
"0q7kv70w1d33m12hkzyay6nkgvz9qczrl6hqx0n1c6grs097f2m0"))))
(upstream-icecat-base-version "68.3.0") ; maybe older than base-version
(upstream-icecat-base-version "68.4.1") ; maybe older than base-version
;;(gnuzilla-commit (string-append "v" upstream-icecat-base-version))
(gnuzilla-commit "85e99badac11983f6d50b0d9942f66a30f55b8e5")
(gnuzilla-commit "2d1b1bc45fdae5a99c4e8ea25593ebb9c8d7bfdf")
(gnuzilla-source
(origin
(method git-fetch)
@ -589,7 +589,7 @@ from forcing GEXP-PROMISE."
(string-take gnuzilla-commit 8)))
(sha256
(base32
"00mb734yvm0r7i64mbg7hvrvhbwkcii9f9hjgwi37aizd9k0n78a"))))
"0hc9sx3yb71xvr9s1p0z5fx8jfqpssb8wz0h2nzhy2nyp9bb2jzl"))))
(makeicecat-patch
(local-file (search-patch "icecat-makeicecat.patch"))))

90
gnu/packages/golang.scm
View File

@ -1128,33 +1128,31 @@ incoming requests with their respective handler.")
(license license:asl2.0))))
(define-public go-github-com-spf13-pflag
(let ((commit "4f9190456aed1c2113ca51ea9b89219747458dc1")
(revision "0"))
(package
(name "go-github-com-spf13-pflag")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/spf13/pflag.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"12vrlcsbwjqlfc49rwky45mbcj74c0kb6z54354pzas6fwzyi1kc"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/spf13/pflag"))
(home-page "https://github.com/spf13/pflag")
(synopsis "Replacement for Go's @code{flag} package")
(description
"Pflag is library to replace Go's @code{flag} package. It implements
(package
(name "go-github-com-spf13-pflag")
(version "1.0.5")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/spf13/pflag.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0gpmacngd0gpslnbkzi263f5ishigzgh6pbdv9hp092rnjl4nd31"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/spf13/pflag"))
(home-page "https://github.com/spf13/pflag")
(synopsis "Replacement for Go's @code{flag} package")
(description
"Pflag is library to replace Go's @code{flag} package. It implements
POSIX/GNU-style command-line options with double hyphens. It is is compatible
with the
@uref{https://www.gnu.org/software/libc/manual/html_node/Argument-Syntax.html,
GNU extensions} to the POSIX recommendations for command-line options.")
(license license:bsd-3))))
(license license:bsd-3)))
(define-public go-github-com-sirupsen-logrus
(package
@ -3036,3 +3034,49 @@ on running processes and system utilization (CPU, memory, disks, network,
sensors).")
(home-page "https://github.com/shirou/gopsutil")
(license license:bsd-3))))
(define-public go-github-com-fatih-color
(package
(name "go-github-com-fatih-color")
(version "1.8.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/fatih/color.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1zc0zlilf03h121f9jqq3ar0hfm7706547zysxp2qxbm920pz7h0"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/fatih/color"))
(synopsis "Print colored text in Go")
(description "This package provides an ANSI color package to output
colorized or SGR defined output to the standard output.")
(home-page "https://godoc.org/github.com/fatih/color")
(license license:expat)))
(define-public go-github-com-google-go-cmp-cmp
(package
(name "go-github-com-google-go-cmp-cmp")
(version "0.3.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/google/go-cmp.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1caw49i0plkjxir7kdf5qhwls3krqwfmi7g4h392rdfwi3kfahx1"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/google/go-cmp/cmp"
#:unpack-path "github.com/google/go-cmp"))
(synopsis "Determine equality of values in Go")
(description "This package provides a more powerful and safer
alternative to @code{reflect.DeepEqual} for comparing whether two values
are semantically equal in Go (for writing tests).")
(home-page "https://godoc.org/github.com/google/go-cmp/cmp")
(license license:asl2.0)))

68
gnu/packages/gprolog.scm
View File

@ -1,68 +0,0 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
;;; Copyright © 2013 Mark H Weaver <mhw@netris.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages gprolog)
#:use-module (guix download)
#:use-module (guix licenses)
#:use-module (guix packages)
#:use-module (guix build-system gnu)
#:use-module (srfi srfi-1))
(define-public gprolog
(package
(name "gprolog")
(version "1.4.5")
(source
(origin
(method url-fetch)
;; Recent versions are not hosted on the GNU mirrors.
(uri (list (string-append "http://gprolog.org/gprolog-" version
".tar.gz")
(string-append "mirror://gnu/gprolog/gprolog-" version
".tar.gz")))
(sha256
(base32
"0z4cc42n3k6i35b8mr816iwsvrpxshw6d7dgz6s2h1hy0l7g1p5z"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list (string-append
"--with-install-dir=" %output "/share/gprolog"))
#:phases
(modify-phases %standard-phases
(add-before 'configure 'change-dir-n-fix-shells
(lambda _
(chdir "src")
(substitute* "configure"
(("-/bin/sh") (string-append "-" (which "sh")))
(("= /bin/sh") (string-append "= " (which "sh"))))
#t)))))
(home-page "https://www.gnu.org/software/gprolog/")
(synopsis "Prolog compiler")
(description
"GNU Prolog is a standards-compliant Prolog compiler with constraint
solving over finite domains. It accepts Prolog+ constraint programs and
produces a compiled, native binary which can function in a stand-alone
manner. It also features an interactive interpreter.")
(license (list gpl2+ lgpl3+))
;; See 'configure' for the list of supported architectures.
(supported-systems (fold delete
%supported-systems
'("armhf-linux" "mips64el-linux")))))

38
gnu/packages/gstreamer.scm
View File

@ -69,15 +69,14 @@
(define-public orc
(package
(name "orc")
(version "0.4.30")
(version "0.4.31")
(source (origin
(method url-fetch)
(uri (string-append "https://gstreamer.freedesktop.org/data/src/"
"orc/orc-" version ".tar.xz"))
(patches (search-patches "orc-typedef-enum.patch"))
(sha256
(base32
"0wj93im7i8a6546q2r8sp39yjfbxflkc0ygb0b8iqsd58qhvjhds"))))
"0xb0c7q3xv1ldmz5ipybazb01gy3cijj8622dcx7rbm9lq85zax0"))))
(build-system meson-build-system)
(arguments
`(#:phases
@ -107,7 +106,7 @@ arrays of data.")
(define-public gstreamer
(package
(name "gstreamer")
(version "1.16.1")
(version "1.16.2")
(source
(origin
(method url-fetch)
@ -116,7 +115,7 @@ arrays of data.")
version ".tar.xz"))
(sha256
(base32
"0z9pyhf6zm1r0spw6zym80bvbyx6h8xg9h6535csbnn48ws1q882"))))
"0kp93622y29pck8asvil1fmzf55s2gx76wv475a6izc3cwj49w73"))))
(build-system gnu-build-system)
(outputs '("out" "doc"))
(arguments
@ -155,7 +154,7 @@ This package provides the core library and elements.")
(define-public gst-plugins-base
(package
(name "gst-plugins-base")
(version "1.16.1")
(version "1.16.2")
(source
(origin
(method url-fetch)
@ -163,7 +162,7 @@ This package provides the core library and elements.")
name "-" version ".tar.xz"))
(sha256
(base32
"0aybbwnzm15074smdk2bamj3ssck3hjvmilvgh49f19xjf4w8g2w"))))
"0sl1hxlyq46r02k7z70v09vx1gi4rcypqmzra9jid93lzvi76gmi"))))
(build-system gnu-build-system)
(outputs '("out" "doc"))
(propagated-inputs
@ -214,7 +213,7 @@ for the GStreamer multimedia library.")
(define-public gst-plugins-good
(package
(name "gst-plugins-good")
(version "1.16.1")
(version "1.16.2")
(source
(origin
(method url-fetch)
@ -223,7 +222,7 @@ for the GStreamer multimedia library.")
name "-" version ".tar.xz"))
(sha256
(base32
"07wgz9anf4ram2snp8n1wv6l0q3pd00iaw8bvw3wgklg05lvxflz"))))
"068k3cbv1yf3gbllfdzqsg263kzwh21y8dpwr0wvgh15vapkpfs0"))))
(build-system gnu-build-system)
(inputs
`(("aalib" ,aalib)
@ -277,23 +276,18 @@ developers consider to have good quality code and correct functionality.")
(define-public gst-plugins-bad
(package
(name "gst-plugins-bad")
(version "1.16.1")
(version "1.16.2")
(source (origin
(method url-fetch)
(uri (string-append "https://gstreamer.freedesktop.org/src/"
name "/" name "-" version ".tar.xz"))
(sha256
(base32
"1dddqacxgp77f3nl153x5a6139wdphc9phds2fpqb2cv6faiqj2n"))))
"0x0y0hm0ga3zqi5q4090hw5sjh59y1ry9ak16qsaascm72i7mjzi"))))
(outputs '("out" "doc"))
(build-system gnu-build-system)
(arguments
'(#:tests? #f ; XXX: 13 of 53 tests fail
;; FIXME: OpenEXR 2.4.0 requires C++ 11 or later. Remove when the
;; default compiler is >= GCC 5.
#:make-flags '("CXXFLAGS=-std=gnu++11")
#:configure-flags
(list (string-append "--with-html-dir="
(assoc-ref %outputs "doc")
@ -357,7 +351,7 @@ par compared to the rest.")
(define-public gst-plugins-ugly
(package
(name "gst-plugins-ugly")
(version "1.16.1")
(version "1.16.2")
(source
(origin
(method url-fetch)
@ -365,7 +359,7 @@ par compared to the rest.")
name "/" name "-" version ".tar.xz"))
(sha256
(base32
"07cajqjs8pqchpf2sm87hljx4ibwvkiavqxmacxsr5airar17yab"))))
"1jpvc32x6q01zjkfgh6gmq6aaikiyfwwnhj7bmvn52syhrdl202m"))))
(build-system gnu-build-system)
(inputs
`(("gst-plugins-base" ,gst-plugins-base)
@ -392,7 +386,7 @@ distribution problems in some jurisdictions, e.g. due to patent threats.")
(define-public gst-libav
(package
(name "gst-libav")
(version "1.16.1")
(version "1.16.2")
(source (origin
(method url-fetch)
(uri (string-append
@ -400,7 +394,7 @@ distribution problems in some jurisdictions, e.g. due to patent threats.")
name "-" version ".tar.xz"))
(sha256
(base32
"1i31ra0l77cfahb6k5xpx45zwvpskzm848aijsbbx9x4x65799g8"))
"1wpfilc98bad9nsv3y1qapxp35dvn2mvwvrmqwrsj58cf09gc967"))
(modules '((guix build utils)))
(snippet
'(begin
@ -428,7 +422,7 @@ compression formats through the use of the libav library.")
(define-public python-gst
(package
(name "python-gst")
(version "1.16.1")
(version "1.16.2")
(source (origin
(method url-fetch)
(uri (string-append
@ -436,7 +430,7 @@ compression formats through the use of the libav library.")
"gst-python-" version ".tar.xz"))
(sha256
(base32
"12bl6kc0ny2vyf6klas2bwqcv0pi55q9ns5zw261px16a6awhsdl"))))
"1a48ca66izmm8hnp608jv5isg3jxb0vlfmhns0bg9nbkilag7390"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((guix build gnu-build-system)

16
gnu/packages/gtk.scm
View File

@ -89,7 +89,7 @@
(define-public atk
(package
(name "atk")
(version "2.32.0")
(version "2.34.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
@ -97,7 +97,7 @@
name "-" version ".tar.xz"))
(sha256
(base32
"1k4i817bd2w5b9z394f2yyx95591l2746wa40am0vvz4gzdgwhfb"))))
"1jwp16r6p5z66k4b2v8zlzhyshhwlmyi27ippkrgqr8jsary7w6l"))))
(build-system meson-build-system)
(propagated-inputs `(("glib" ,glib))) ; required by atk.pc
(native-inputs
@ -580,7 +580,7 @@ in the GNOME project.")
(define-public at-spi2-core
(package
(name "at-spi2-core")
(version "2.32.1")
(version "2.34.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
@ -588,7 +588,7 @@ in the GNOME project.")
name "-" version ".tar.xz"))
(sha256
(base32
"0lqd7gsl471v6538iighkvb21gjglcb9pklvas32rjpsxcvsjaiw"))))
"1ihixwhh3c16q6253qj9gf69741rb2pi51822a4rylsfcyywsafn"))))
(build-system meson-build-system)
(outputs '("out" "doc"))
(arguments
@ -649,7 +649,7 @@ is part of the GNOME accessibility project.")
(define-public at-spi2-atk
(package
(name "at-spi2-atk")
(version "2.32.0")
(version "2.34.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
@ -657,7 +657,7 @@ is part of the GNOME accessibility project.")
name "-" version ".tar.xz"))
(sha256
(base32
"0p54wx6f6q7s8w0b1j0sgw87pikllp79q5g3lfiwqazs779ycl8b"))))
"05ncp7s5nddjinffs26mcvpbd63vk1m3cv5y530p3plgfhqgjvbp"))))
(build-system meson-build-system)
(arguments
'(#:phases
@ -755,7 +755,7 @@ application suites.")
(define-public gtk+
(package (inherit gtk+-2)
(name "gtk+")
(version "3.24.12")
(version "3.24.13")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
@ -763,7 +763,7 @@ application suites.")
name "-" version ".tar.xz"))
(sha256
(base32
"10xyyhlfb0yk4hglngxh2zsv9xrxkqv343df8h01dvagc6jyp10k"))
"1a9hi7k59q0kqx0n3xhsk1ly23w9g9ncllnay1756g0yrww5qxsc"))
(patches (search-patches "gtk3-respect-GUIX_GTK3_PATH.patch"
"gtk3-respect-GUIX_GTK3_IM_MODULE_FILE.patch"))))
(propagated-inputs

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

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2015, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015, 2017 Christopher Allan Webber <cwebber@dustycloud.org>
;;; Copyright © 2016 Alex Sassmannshausen <alex@pompo.co>
@ -2492,7 +2492,7 @@ perform geometrical transforms on JPEG images.")
(define-public nomad
(package
(name "nomad")
(version "0.1.1-alpha")
(version "0.1.2-alpha")
(source (origin
(method git-fetch)
(uri (git-reference
@ -2501,7 +2501,7 @@ perform geometrical transforms on JPEG images.")
(file-name (git-file-name name version))
(sha256
(base32
"0abz07hl5dh802ciy71xzkvkhyryypq1i94wna40a2wndbd73f7z"))))
"1dnkr1hmvfkwgxd75dcf93pg39yfgawvdpzdhv991yhghv0qxc9h"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
@ -2510,7 +2510,9 @@ perform geometrical transforms on JPEG images.")
("pkg-config" ,pkg-config)
("libtool" ,libtool)
("guile" ,guile-2.2)
("glib:bin" ,glib "bin")))
("glib:bin" ,glib "bin")
("texinfo" ,texinfo)
("perl" ,perl)))
(inputs
`(("guile" ,guile-2.2)
("guile-lib" ,guile-lib)
@ -2738,3 +2740,61 @@ tests being run, resulting clearer and more specific output.")
comparing, and writing Semantic Versions. It also includes ranges in
the style of the Node Package Manager (NPM).")
(license license:gpl3+)))
(define-public guile-hashing
(package
(name "guile-hashing")
(version "1.2.0")
(home-page "https://github.com/weinholt/hashing")
(source (origin
(method git-fetch)
(uri (git-reference
(url home-page)
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1362d3lmpv7slmv1zmr9wy8panq9sjr9787gc2hagd646mpsfpkl"))))
(build-system guile-build-system)
(arguments
`(#:modules ((guix build guile-build-system)
(guix build utils)
(srfi srfi-26)
(ice-9 ftw))
#:implicit-inputs? #f ;needs nothing but Guile
#:phases (modify-phases %standard-phases
(add-before 'build 'move-sls-files
(lambda _
;; Move the source under hashing/ in order to match
;; module names, and rename .sls files to .scm.
(define (target file)
(string-append "hashing/" file))
(define (sls->scm sls)
(string-append (string-drop-right sls 4)
".scm"))
(mkdir "hashing")
(for-each (lambda (file)
(rename-file file (sls->scm file)))
(find-files "." "\\.sls$"))
(for-each (lambda (file)
(rename-file file (target file)))
(scandir "." (cut string-suffix? ".scm" <>)))
(rename-file "private" "hashing/private")
#t)))))
(native-inputs
`(("guile" ,guile-2.2)))
(synopsis "Cryprographic 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,
SHA-512).")
(license license:expat)))
(define-public guile3.0-hashing
(package
(inherit guile-hashing)
(name "guile3.0-hashing")
(native-inputs
`(("guile" ,guile-next)))))

4
gnu/packages/guile.scm
View File

@ -288,14 +288,14 @@ without requiring the source code to be rewritten.")
(package
(inherit guile-2.2)
(name "guile-next")
(version "2.9.7")
(version "2.9.8")
(source (origin
(inherit (package-source guile-2.2))
(uri (string-append "ftp://alpha.gnu.org/gnu/guile/guile-"
version ".tar.xz"))
(sha256
(base32
"1dskpj8a2gl3h8si4virq8z4y06v9ywyadfa92gn2fiip2qmkw0d"))))
"09icv9ymdb7hchn34c32s7x8ycilqj74mirmi4b3bm5zp1izd32a"))))
(native-search-paths
(list (search-path-specification
(variable "GUILE_LOAD_PATH")

13
gnu/packages/ham-radio.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017, 2018, 2019 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2019 Evan Straw <evan.straw99@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -36,15 +37,17 @@
(define-public rtl-sdr
(package
(name "rtl-sdr")
(version "0.5.3")
(version "0.6.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://cgit.osmocom.org/rtl-sdr/snapshot/rtl-sdr-"
version ".tar.xz"))
(method git-fetch)
(uri (git-reference
(url "git://git.osmocom.org/rtl-sdr.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"08awca3v28sa4lxym4r81pzf0la0j86wbmpyhv3xd53an9gkpjy9"))))
"0lmvsnb4xw4hmz6zs0z5ilsah5hjz29g1s0050n59fllskqr3b8k"))))
(build-system cmake-build-system)
(inputs
`(("libusb" ,libusb)))

6
gnu/packages/hardware.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -38,14 +38,14 @@
(define-public ddcutil
(package
(name "ddcutil")
(version "0.9.7")
(version "0.9.8")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.ddcutil.com/tarballs/"
"ddcutil-" version ".tar.gz"))
(sha256
(base32 "0lqc3fn5h7acfmbmyi8hpv2p6b4csfbx3lkhzy073s9x2zblrq3g"))))
(base32 "13ccxbqgyz4ah9jwbcylnfkgl8j3ida8xd00xkcq4xnfyyv5mg6v"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))

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

@ -270,14 +270,14 @@ unique algebra of patches called @url{http://darcs.net/Theory,Patchtheory}.
(define-public git-annex
(package
(name "git-annex")
(version "7.20191218")
(version "7.20191230")
(source
(origin
(method url-fetch)
(uri (string-append "https://hackage.haskell.org/package/"
"git-annex/git-annex-" version ".tar.gz"))
(sha256
(base32 "1dy5255x2cx68313p6vchqy5q1l0na8ckf5mkfi080hkhq8vj2q6"))))
(base32 "1xsd4vhiv3zkcqjh2pxhbkjx75hcalcc9bpdlfc27wzxsxyrwz12"))))
(build-system haskell-build-system)
(arguments
`(#:configure-flags
@ -356,6 +356,7 @@ unique algebra of patches called @url{http://darcs.net/Theory,Patchtheory}.
("ghc-esqueleto" ,ghc-esqueleto)
("ghc-exceptions" ,ghc-exceptions)
("ghc-feed" ,ghc-feed)
("ghc-filepath-bytestring" ,ghc-filepath-bytestring)
("ghc-free" ,ghc-free)
("ghc-hslogger" ,ghc-hslogger)
("ghc-http-client" ,ghc-http-client)

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

@ -22,6 +22,7 @@
;;; Copyright © 2019 John Soo <jsoo1@asu.edu>
;;; Copyright © 2019 Kyle Meyer <kyle@kyleam.com>
;;; Copyright © 2019 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2020 Brett Gilio <brettg@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -8615,6 +8616,74 @@ system dependencies.")
functions for the ghc-persistent package.")
(license license:expat)))
(define-public ghc-pipes
(package
(name "ghc-pipes")
(version "4.3.13")
(source
(origin
(method url-fetch)
(uri (string-append
"https://hackage.haskell.org/package/pipes/"
"pipes-" version ".tar.gz"))
(sha256
(base32
"1ch3xr5f5if0psd3lsyrpkwrgh36synnzqcpimghprys68l4zfkn"))))
(build-system haskell-build-system)
(inputs
`(("ghc-exceptions" ,ghc-exceptions)
("ghc-mmorph" ,ghc-mmorph)
("ghc-void" ,ghc-void)
("ghc-semigroups" ,ghc-semigroups)))
(native-inputs
`(("ghc-quickcheck" ,ghc-quickcheck)
("ghc-test-framework" ,ghc-test-framework)
("ghc-test-framework-quickcheck2"
,ghc-test-framework-quickcheck2)))
(home-page
"https://hackage.haskell.org/package/pipes")
(synopsis "Compositional pipelines")
(description
"A clean and powerful stream processing library that lets you build
and connect reusable streaming components. Advantages over traditional streaming
libraries:
@itemize
@item Concise API: Use simple commands like @code{for}, (@code{>->}), @code{await},
and @code{yield}
@item Blazing fast: Implementation tuned for speed, including shortcut fusion
@item Lightweight Dependency: pipes is small and compiles very rapidly, including
dependencies
@item Elegant semantics: Use practical category theory
@item ListT: Correct implementation of @code{ListT} that interconverts with pipes
@item Bidirectionality: Implement duplex channels
@end itemize")
(license license:bsd-3)))
(define-public ghc-pointedlist
(package
(name "ghc-pointedlist")
(version "0.6.1")
(source
(origin
(method url-fetch)
(uri (string-append
"https://hackage.haskell.org/package/pointedlist/"
"pointedlist-" version ".tar.gz"))
(sha256
(base32
"16xsrzqql7i4z6a3xy07sqnbyqdmcar1jiacla58y4mvkkwb0g3l"))))
(build-system haskell-build-system)
(home-page
"http://hackage.haskell.org/package/pointedlist")
(synopsis
"Zipper-like comonad which works as a list, tracking a position")
(description
"A PointedList tracks the position in a non-empty list which works
similarly to a zipper. A current item is always required, and therefore
the list may never be empty. A circular PointedList wraps around to the
other end when progressing past the actual edge.")
(license license:bsd-3)))
(define-public ghc-polyparse
(package
(name "ghc-polyparse")
@ -9690,6 +9759,40 @@ are not exception safe and can be broken by @code{killThread}.")
(description "Reasonably fast data encoding library.")
(license license:bsd-3)))
(define-public ghc-say
(package
(name "ghc-say")
(version "0.1.0.1")
(source
(origin
(method url-fetch)
(uri (string-append
"https://hackage.haskell.org/package/say/say-"
version
".tar.gz"))
(sha256
(base32
"1r5kffjfwpas45g74sip8glrj1m9nygrnxjm7xgw898rq9pnafgn"))))
(build-system haskell-build-system)
(native-inputs
`(("ghc-hspec" ,ghc-hspec)
("hspec-discover" ,hspec-discover)
("ghc-unliftio" ,ghc-unliftio)))
(home-page "https://github.com/fpco/say")
(synopsis
"Send textual messages to a Handle in a thread-friendly way")
(description
"A thread safe API to write a line of textual data to a Handle, such
as sending some messages to the terminal - that has the following properties:
@itemize
@item Properly handle character encoding settings on the Handle
@item For reasonably sized messages, ensure that the entire message is written
in one chunk to avoid interleaving data with other threads
@item Avoid unnecessary memory allocations and copies
@item Minimize locking.
@end itemize")
(license license:expat)))
(define-public ghc-scientific
(package
(name "ghc-scientific")

78
gnu/packages/ibus.scm
View File

@ -5,6 +5,7 @@
;;; Copyright © 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019 Meiyo Peng <meiyo@disroot.org>
;;; Copyright © 2020 kanichos <kanichos@yandex.ru>
;;;
;;; This file is part of GNU Guix.
;;;
@ -57,7 +58,7 @@
(define-public ibus
(package
(name "ibus")
(version "1.5.20")
(version "1.5.21")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/ibus/ibus/"
@ -65,7 +66,7 @@
version "/ibus-" version ".tar.gz"))
(sha256
(base32
"0d6hcbw6ai91jl87lqnyn8bxi5y5kba5i9nz7knknyh69g5fbwac"))))
"1fd2d1jqpp1nn74x04zcilhhab0zar82n0kg614rma6n43kfbhdd"))))
(build-system glib-or-gtk-build-system)
(arguments
`(#:tests? #f ; tests fail because there's no connection to dbus
@ -116,7 +117,7 @@
"/share/X11/locale")))
(substitute* "ui/gtk3/xkblayout.vala"
(("\"(setxkbmap|xmodmap)\"" _ prog)
(string-append "\"" (assoc-ref inputs prog) "\"")))
(string-append "\"" (assoc-ref inputs prog) "/bin/" prog "\"")))
#t))
(add-after 'wrap-program 'wrap-with-additional-paths
(lambda* (#:key outputs #:allow-other-keys)
@ -668,6 +669,13 @@ Method Engine.")
(assoc-ref inputs "rime-data")
"/share/rime-data\"\n")))
#t))
(add-after 'unpack 'fix-file-names
(lambda* (#:key outputs #:allow-other-keys)
;; IBus uses the component file rime.xml to start the Rime
;; engine. It must be patched with appropriate file names.
(substitute* "rime.xml"
(("/usr") (assoc-ref outputs "out")))
#t))
(delete 'configure))))
(inputs
`(("gdk-pixbuf" ,gdk-pixbuf)
@ -688,3 +696,67 @@ input methods as well as those for Chinese dialects. It has the ability to
compose phrases and sentences intelligently and provide very accurate
traditional Chinese output.")
(license gpl3+)))
(define-public libhangul
(package
(name "libhangul")
(version "0.1.0")
(source
(origin
(method url-fetch)
(uri (string-append "http://kldp.net/hangul/release/"
"3442-libhangul-" version ".tar.gz"))
(sha256
(base32
"0ni9b0v70wkm0116na7ghv03pgxsfpfszhgyj3hld3bxamfal1ar"))))
(build-system gnu-build-system)
(home-page "https://github.com/libhangul/libhangul")
(synopsis "Library to support hangul input method logic")
(description
"This package provides a library to support hangul input method logic,
hanja dictionary and small hangul character classification.")
(license lgpl2.1+)))
(define-public ibus-libhangul
(package
(name "ibus-libhangul")
(version "1.5.3")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/libhangul/ibus-hangul/"
"releases/download/" version
"/ibus-hangul-" version ".tar.gz"))
(sha256
(base32
"1400ba2p34vr9q285lqvjm73f6m677cgfdymmjpiwyrjgbbiqrjy"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(wrap-program (string-append (assoc-ref outputs "out")
"/libexec/ibus-setup-hangul")
`("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH")))
`("LD_LIBRARY_PATH" ":" prefix
(,(string-append (assoc-ref inputs "libhangul") "/lib")))
`("GI_TYPELIB_PATH" ":" prefix
(,(getenv "GI_TYPELIB_PATH"))))
#t)))))
(native-inputs
`(("pkg-config" ,pkg-config)
("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")))
(inputs
`(("ibus" ,ibus)
("glib" ,glib)
("python-pygobject" ,python-pygobject)
("gtk+" ,gtk+)
("libhangul" ,libhangul)
("python" ,python)))
(home-page "https://github.com/libhangul/ibus-hangul")
(synopsis "Hangul engine for IBus")
(description
"ibus-hangul is a Korean input method engine for IBus.")
(license gpl2+)))

3
gnu/packages/image.scm
View File

@ -1133,7 +1133,8 @@ language bindings to VIGRA.")
(arguments
'(#:configure-flags '("--enable-libwebpmux"
"--enable-libwebpdemux"
"--enable-libwebpdecoder")))
"--enable-libwebpdecoder"
"--disable-static")))
(home-page "https://developers.google.com/speed/webp/")
(synopsis "Lossless and lossy image compression")
(description

4
gnu/packages/imagemagick.scm
View File

@ -48,14 +48,14 @@
;; The 7 release series has an incompatible API, while the 6 series is still
;; maintained. Don't update to 7 until we've made sure that the ImageMagick
;; users are ready for the 7-series API.
(version "6.9.10-68")
(version "6.9.10-78")
(source (origin
(method url-fetch)
(uri (string-append "mirror://imagemagick/ImageMagick-"
version ".tar.xz"))
(sha256
(base32
"1jxjxhnvznpbdigry2cgxx94cx6k6y3rs40a464n5yln29s1qlz1"))))
"178sai7r0w2hwv01is25c8mxf9lc2ba0l16qm45h9vv49y5dy08q"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags '("--with-frozenpaths" "--without-gcc-arch")

10
gnu/packages/irc.scm
View File

@ -6,6 +6,7 @@
;;; Copyright © 2016 ng0 <ng0@n0.is>
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -127,7 +128,7 @@ irssi, but graphical.")
(define-public irssi
(package
(name "irssi")
(version "1.1.3")
(version "1.2.2")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/irssi/irssi/"
@ -135,7 +136,7 @@ irssi, but graphical.")
version ".tar.xz"))
(sha256
(base32
"0jq8zjdhdjxkjbfl4g4nfr1ninyfxffa27lm8vcyrihhhkrn65yf"))))
"0y3mhnyr7x8ir8dlj83vbnchpfld28vdfni9yhpvls45j460c9v7"))))
(build-system gnu-build-system)
(arguments
`(#:phases
@ -148,7 +149,10 @@ irssi, but graphical.")
(string-append "--prefix=" out)
(string-append "--with-proxy")
(string-append "--with-socks")
(string-append "--with-bot"))))))))
(string-append "--with-bot")))))
(add-before 'check 'set-home
(lambda _
(setenv "HOME" (getcwd)))))))
(inputs
`(("glib" ,glib)
("ncurses" ,ncurses)

48
gnu/packages/javascript.scm
View File

@ -25,7 +25,6 @@
#:use-module (gnu packages)
#:use-module (gnu packages base)
#:use-module (gnu packages compression)
#:use-module (gnu packages lisp)
#:use-module (gnu packages lisp-xyz)
#:use-module (gnu packages readline)
#:use-module (guix packages)
@ -453,50 +452,3 @@ to use, and is very similar to Lua. There is no need to interact with byzantine
C++ template mechanisms, or worry about marking and unmarking garbage collection
roots, or wrestle with obscure build systems.")
(license license:isc)))
(define-public uglify-js
(package
(inherit sbcl-cl-uglify-js)
(name "uglify-js")
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils))
#:builder
(let* ((bin (string-append (assoc-ref %outputs "out") "/bin/"))
(script (string-append bin "uglify-js")))
(use-modules (guix build utils))
(mkdir-p bin)
(with-output-to-file script
(lambda _
(format #t "#!~a/bin/sbcl --script
(require :asdf)
(push (truename \"~a/lib/sbcl\") asdf:*central-registry*)"
(assoc-ref %build-inputs "sbcl")
(assoc-ref %build-inputs "sbcl-cl-uglify-js"))
;; FIXME: cannot use progn here because otherwise it fails to
;; find cl-uglify-js.
(for-each
write
'(;; Quiet, please!
(let ((*standard-output* (make-broadcast-stream))
(*error-output* (make-broadcast-stream)))
(asdf:load-system :cl-uglify-js))
(let ((file (cadr *posix-argv*)))
(if file
(format t "~a"
(cl-uglify-js:ast-gen-code
(cl-uglify-js:ast-mangle
(cl-uglify-js:ast-squeeze
(with-open-file (in file)
(parse-js:parse-js in))))
:beautify nil))
(progn
(format *error-output*
"Please provide a JavaScript file.~%")
(sb-ext:exit :code 1))))))))
(chmod script #o755)
#t)))
(inputs
`(("sbcl" ,sbcl)
("sbcl-cl-uglify-js" ,sbcl-cl-uglify-js)))
(synopsis "JavaScript compressor")))

7
gnu/packages/kde.scm
View File

@ -3,7 +3,7 @@
;;; Copyright © 2016 David Craven <david@craven.ch>
;;; Copyright © 2016, 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017, 2018 Mark Meyer <mark@ofosos.org>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2018, 2019 Hartmut Goebel <h.goebel@crazy-compilers.com>
@ -183,7 +183,7 @@ projects.")
(define-public kdevelop
(package
(name "kdevelop")
(version "5.4.5")
(version "5.4.6")
(source
(origin
(method url-fetch)
@ -191,8 +191,7 @@ projects.")
"/" version "/src/kdevelop-"
version ".tar.xz"))
(sha256
(base32
"08vhbg9ql0402bw3y3xw1kdxhig9sv3ss8g0h4477vy3z17m1h4j"))))
(base32 "01jmrmwbc1hrvq7jdfcc7mxl03q2l6kz57yca2j26xwyvfcfv5sz"))))
(build-system qt-build-system)
(native-inputs
`(("extra-cmake-modules" ,extra-cmake-modules)

25
gnu/packages/language.scm
View File

@ -3,6 +3,7 @@
;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 ng0 <ng0@n0.is>
;;; Copyright © 2019 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -883,3 +884,27 @@ suitable for both the desktop and mobile devices.")
(("zinnia") "wagomu"))
#t))))))
(license lgpl2.1))) ; all files
(define-public link-grammar
(package
(name "link-grammar")
(version "5.7.0")
(source (origin
(method url-fetch)
(uri (string-append "https://www.abisource.com/downloads/"
"link-grammar/" version
"/link-grammar-" version ".tar.gz"))
(sha256
(base32
"0ak1v469k56v3511kxxkxvx1nw6zcxcl0f1kcvc82ffacqbr4y96"))))
(build-system gnu-build-system)
(home-page "https://www.abisource.com/projects/link-grammar/")
(synopsis "Link grammar parser")
(description "The Link Grammar Parser is a syntactic parser of English,
Russian, Arabic and Persian (and other languages as well), based on Link
Grammar, an original theory of syntax and morphology. Given a sentence, the
system assigns to it a syntactic structure, which consists of a set of
labelled links connecting pairs of words. The parser also produces a
\"constituent\" (HPSG style phrase tree) representation of a sentence (showing
noun phrases, verb phrases, etc.).")
(license bsd-3)))

65
gnu/packages/lean.scm 100644
View File

@ -0,0 +1,65 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Amin Bandali <bandali@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages lean)
#:use-module (gnu packages multiprecision)
#:use-module (guix build-system cmake)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix git-download))
(define-public lean
(package
(name "lean")
(version "3.5.0")
(home-page "https://github.com/leanprover-community/lean")
(source (origin
(method git-fetch)
(uri (git-reference (url home-page)
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1fdblq8ckrv6wqxfl4ybcs3ybfq7y096c9f5j4j75ymb14r401lr"))))
(build-system cmake-build-system)
(inputs
`(("gmp" ,gmp)))
(arguments
`(#:build-type "Release" ; default upstream build type
#:phases
(modify-phases %standard-phases
(add-after 'patch-source-shebangs 'patch-tests-shebangs
(lambda _
(let ((sh (which "sh"))
(bash (which "bash")))
(substitute* (find-files "tests/lean" "\\.sh$")
(("#![[:blank:]]?/bin/sh")
(string-append "#!" sh))
(("#![[:blank:]]?/bin/bash")
(string-append "#!" bash))
(("#![[:blank:]]?usr/bin/env bash")
(string-append "#!" bash)))
#t)))
(add-before 'configure 'chdir-to-src
(lambda _ (chdir "src") #t)))))
(synopsis "The Lean theorem prover and programming language")
(description
"Lean is a theorem prover and programming language with a small trusted
core based on dependent typed theory, aiming to bridge the gap between
interactive and automated theorem proving.")
(license license:asl2.0)))

13
gnu/packages/license.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -168,16 +168,13 @@ belonging to various licenses.")
(define-public reuse
(package
(name "reuse")
(version "0.5.0")
(version "0.7.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://git.fsfe.org/reuse/tool.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(method url-fetch)
(uri (pypi-uri "reuse" version))
(sha256
(base32 "1w17g6jvs715rjc93nnnqnfdphijq4ymj9jjkr3ccc286ywvn3ih"))))
(base32 "16wn28xxjcm5qlb7bs6jmdkfrkr5v97s59nmi9cn85qcg4gmj7lk"))))
(build-system python-build-system)
(native-inputs
`(("python-pytest" ,python-pytest)))

68
gnu/packages/linux.scm
View File

@ -7,7 +7,7 @@
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
;;; Copyright © 2015, 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org>
;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016, 2017 Alex Kost <alezost@gmail.com>
;;; Copyright © 2016 Raymond Nicholson <rain1@openmailbox.org>
;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
@ -15,7 +15,7 @@
;;; Copyright © 2016, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016 David Craven <david@craven.ch>
;;; Copyright © 2016 John Darrington <jmd@gnu.org>
;;; Copyright © 2016, 2017, 2018, 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2016, 2018 Rene Saavedra <pacoon@protonmail.com>
;;; Copyright © 2016 Carlos Sánchez de La Lama <csanchezdll@gmail.com>
;;; Copyright © 2016, 2017 ng0 <ng0@n0.is>
@ -38,6 +38,7 @@
;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2019 Brice Waegeneire <brice@waegenei.re>
;;; Copyright © 2019 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -356,42 +357,42 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
"linux-" version ".tar.xz"))
(sha256 hash)))
(define-public linux-libre-5.4-version "5.4.6")
(define-public linux-libre-5.4-version "5.4.10")
(define-public linux-libre-5.4-pristine-source
(let ((version linux-libre-5.4-version)
(hash (base32 "1j4916izy2nrzq7g6m5m365r60hhhx9rqcanjvaxv5x3vsy639gx")))
(hash (base32 "1p9f0h9fl1xy13dag1x7j2ic8kdv0zsp42c8baxn7cz3llc04g7j")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.4)))
(define-public linux-libre-4.19-version "4.19.91")
(define-public linux-libre-4.19-version "4.19.94")
(define-public linux-libre-4.19-pristine-source
(let ((version linux-libre-4.19-version)
(hash (base32 "0irl5jlh5rrdfz5g28x4ifbillvspwd8fy4wi3qhmv9dw7gc60zl")))
(hash (base32 "0rvlz94mjl7ygpmhz0yn2whx9dq9fmy0w1472bj16hkwbaki0an6")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.19)))
(define-public linux-libre-4.14-version "4.14.160")
(define-public linux-libre-4.14-version "4.14.163")
(define-public linux-libre-4.14-pristine-source
(let ((version linux-libre-4.14-version)
(hash (base32 "0b59xyr8if0qcbnwqa88y275g9rzhjbbp8589i8xxpmws6x2c0y6")))
(hash (base32 "0jdh54rqdsb3b908v2q4xjn8y45b7rdnwgab0s4qf5alznfcqagb")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.14)))
(define-public linux-libre-4.9-version "4.9.207")
(define-public linux-libre-4.9-version "4.9.208")
(define-public linux-libre-4.9-pristine-source
(let ((version linux-libre-4.9-version)
(hash (base32 "090181vij95py22jhx7baaxabb78w0j5hsfsnzp6bv2vgdz671na")))
(hash (base32 "0njjw1i8dilihn1hz62zra4b9y05fb3r2k2sqlkd0wfn86c1rbdp")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.9)))
(define-public linux-libre-4.4-version "4.4.207")
(define-public linux-libre-4.4-version "4.4.208")
(define-public linux-libre-4.4-pristine-source
(let ((version linux-libre-4.4-version)
(hash (base32 "024flajnl3l4yk8sgqdrfrl21js4vsjcv4ivmjblj4l9fl3hdjb6")))
(hash (base32 "03jj91z5dc0ybpjy9w6aanb3k53gcj7gsjc32h3ldf72hlmgz6aq")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.4)))
@ -1188,6 +1189,17 @@ block devices, UUIDs, TTYs, and many other tools.")
(license (list license:gpl3+ license:gpl2+ license:gpl2 license:lgpl2.0+
license:bsd-4 license:public-domain))))
;; util-linux optionally supports udev, which allows lsblk to read file system
;; metadata without special privileges. Add it as a separate package to avoid
;; a circular dependency, and to keep the size small.
(define-public util-linux+udev
(package/inherit
util-linux
(name "util-linux-with-udev")
(inputs
`(("udev" ,eudev)
,@(package-inputs util-linux)))))
(define-public ddate
(package
(name "ddate")
@ -1546,7 +1558,7 @@ intercept and print the system calls executed by the program.")
(define-public alsa-lib
(package
(name "alsa-lib")
(version "1.1.9")
(version "1.2.1.2")
(source (origin
(method url-fetch)
(uri (string-append
@ -1554,8 +1566,12 @@ intercept and print the system calls executed by the program.")
version ".tar.bz2"))
(sha256
(base32
"0jwr9g4yxg9gj6xx0sb2r6wrdl8amrjd19hilkrq4rirynp770s8"))))
"0hvrx0ipzqbcx4y1cmr9bgm9niifzkrhsb1ddgzzdwbk6q72d3lm"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags (list (string-append "LDFLAGS=-Wl,-rpath="
(assoc-ref %outputs "out")
"/lib"))))
(home-page "https://www.alsa-project.org/")
(synopsis "The Advanced Linux Sound Architecture libraries")
(description
@ -1566,14 +1582,14 @@ MIDI functionality to the Linux-based operating system.")
(define-public alsa-utils
(package
(name "alsa-utils")
(version "1.1.9")
(version "1.2.1")
(source (origin
(method url-fetch)
(uri (string-append "ftp://ftp.alsa-project.org/pub/utils/"
name "-" version ".tar.bz2"))
(sha256
(base32
"0fi11b7r8hg1bdjw74s8sqx8rc4qb310jaj9lsia9labvfyjrpsx"))))
"039c19b7091is0czl9jlrfczp7pp1jpdri0vvc4k07gl3skhn48b"))))
(build-system gnu-build-system)
(arguments
;; XXX: Disable man page creation until we have DocBook.
@ -1621,14 +1637,14 @@ MIDI functionality to the Linux-based operating system.")
(define-public alsa-plugins
(package
(name "alsa-plugins")
(version "1.1.9")
(version "1.2.1")
(source (origin
(method url-fetch)
(uri (string-append "ftp://ftp.alsa-project.org/pub/plugins/"
name "-" version ".tar.bz2"))
(sha256
(base32
"01zrg0h2jw9dlj9233vjsn916yf4f2s667yry6xsn8d57lq745qn"))))
"1nj8cpbi05rb62yzs01c1k7lymdn1ch229b599hbhd0psixdx52d"))))
(build-system gnu-build-system)
;; TODO: Split libavcodec and speex if possible. It looks like they can not
;; be split, there are references to both in files.
@ -2671,7 +2687,7 @@ from the module-init-tools project.")
;; The post-systemd fork, maintained by Gentoo.
(package
(name "eudev")
(version "3.2.8")
(version "3.2.9")
(source (origin
(method git-fetch)
(uri (git-reference (url "https://github.com/gentoo/eudev")
@ -2679,7 +2695,7 @@ from the module-init-tools project.")
(file-name (git-file-name name version))
(sha256
(base32
"1g95yzzx4qxm5qhhylbi930lrq4gsbz207n72018nkvswj6gmpjw"))
"1g9z3d33m0i3hmbhm0wxpvkzf6ac7xj1drwcfrhzlfhhi63sg9h7"))
(patches (search-patches "eudev-rules-directory.patch"))))
(build-system gnu-build-system)
(arguments
@ -3834,7 +3850,7 @@ Bluetooth audio output devices like headphones or loudspeakers.")
(define-public bluez
(package
(name "bluez")
(version "5.51")
(version "5.52")
(source (origin
(method url-fetch)
(uri (string-append
@ -3842,7 +3858,7 @@ Bluetooth audio output devices like headphones or loudspeakers.")
version ".tar.xz"))
(sha256
(base32
"1fpbsl9kkfq6mn6n0dg4h0il4c7fzhwhn79gh907k5b2kwszpvgb"))))
"02jng21lp6fb3c2bh6vf9y7cj4gaxwk29dfc32ncy0lj0gi4q57p"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -4523,7 +4539,7 @@ The collection contains a set of bandwidth and latency benchmark such as:
(package
(name "rng-tools")
(home-page "https://github.com/nhorman/rng-tools")
(version "6.8")
(version "6.9")
(source (origin
(method git-fetch)
(uri (git-reference (url home-page)
@ -4531,7 +4547,7 @@ The collection contains a set of bandwidth and latency benchmark such as:
(file-name (git-file-name name version))
(sha256
(base32
"1clm9i9xg3j79q0d6vinn6dx0nwh1fvzcmkqpcbay7mwsgkknvw2"))))
"065jf26s8zkicb95zc9ilksjdq9gqrh5vcx3mhi6mypbnamn6w98"))))
(build-system gnu-build-system)
(arguments
`(;; Avoid using OpenSSL, curl, and libxml2, reducing the closure by 166 MiB.
@ -5034,14 +5050,14 @@ running boot option, and more.")
(define-public sysstat
(package
(name "sysstat")
(version "12.2.0")
(version "12.3.1")
(source (origin
(method url-fetch)
(uri (string-append "http://pagesperso-orange.fr/sebastien.godard/"
"sysstat-" version ".tar.xz"))
(sha256
(base32
"0xc3983ccr0dwab1px2jhbgj86pfmmr29k7ggnwjwm1qigmriak1"))))
"1hf1sy7akribmgavadqccxpy49yv0zfb3m81d2bj6jf8pyzwcrbq"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; No test suite.

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

File diff suppressed because it is too large Load Diff

225
gnu/packages/lisp.scm
View File

@ -14,7 +14,7 @@
;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2019 Katherine Cox-Buday <cox.katherine.e@gmail.com>
;;; Copyright © 2019 Jesse Gildersleve <jessejohngildersleve@protonmail.com>
;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -71,10 +71,10 @@
#:use-module (gnu packages readline)
#:use-module (gnu packages sdl)
#:use-module (gnu packages tex)
#:use-module (gnu packages tls)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages version-control)
#:use-module (gnu packages xorg)
#:use-module (srfi srfi-1)
#:use-module (ice-9 match))
(define (asdf-substitutions lisp)
@ -319,17 +319,17 @@ high-level, object-oriented functional programming language. CLISP includes
an interpreter, a compiler, a debugger, and much more.")
(license license:gpl2+)))
(define sbcl-boot0
(define-public sbcl
(package
(name "sbcl-boot0")
(version "1.5.8")
(name "sbcl")
(version "2.0.0")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/sbcl/sbcl/" version "/sbcl-"
version "-source.tar.bz2"))
(sha256
(base32 "0k7zjrky8r2krkd8780cph214hiihg9nh5rxn4nrhg6i6f8jymw4"))
(base32 "1krgd69cirp4ili2pfsh1a0mfvq722jbknlvmf17qhsxh1b94dlh"))
(modules '((guix build utils)))
(snippet
;; Add sbcl-bundle-systems to 'default-system-source-registry'.
@ -358,8 +358,13 @@ an interpreter, a compiler, a debugger, and much more.")
;; 2019-09-05, ECL was last updated in 2016 while CLISP was last updated
;; in 2010.
;;
;; For now we stick to CLISP for all systems.
`(("clisp" ,clisp)
;; For now we stick to CLISP for all systems. We keep the `match' here to
;; make it easier to change the host compiler for various architectures.
`(,@(match (%current-system)
((or "x86_64-linux" "i686-linux")
`(("clisp" ,clisp)))
(_
`(("clisp" ,clisp))))
("which" ,which)
("inetutils" ,inetutils) ;for hostname(1)
("ed" ,ed)
@ -427,7 +432,11 @@ an interpreter, a compiler, a debugger, and much more.")
(replace 'build
(lambda* (#:key outputs #:allow-other-keys)
(setenv "CC" "gcc")
(invoke "sh" "make.sh" "clisp"
(invoke "sh" "make.sh" ,@(match (%current-system)
((or "x86_64-linux" "i686-linux")
`("clisp"))
(_
`("clisp")))
(string-append "--prefix="
(assoc-ref outputs "out"))
"--with-sb-core-compression"
@ -485,46 +494,6 @@ statistical profiler, a code coverage tool, and many other extensions.")
(license (list license:public-domain license:bsd-2
(license:x11-style "file://src/code/loop.lisp")))))
(define-public sbcl
;; Since 1.5.9, SBCL requires itself to build.
;; See https://bugs.launchpad.net/sbcl/+bug/1855272.
(package
(inherit sbcl-boot0)
(name "sbcl")
(version "1.5.9")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/sbcl/sbcl/" version "/sbcl-"
version "-source.tar.bz2"))
(sha256
(base32 "1dmrlklil7x3j68mwmjfpd71vkphr24s4rx6d61jpc54x0jhvnyb"))
(modules '((guix build utils)))
(snippet
;; Add sbcl-bundle-systems to 'default-system-source-registry'.
`(begin
(substitute* "contrib/asdf/asdf.lisp"
,@(asdf-substitutions name))
#t))))
(build-system gnu-build-system)
(outputs '("out" "doc"))
(native-inputs
`(("sbcl" ,sbcl-boot0)
,@(fold alist-delete (package-native-inputs sbcl-boot0)
'("clisp"))))
(arguments
(substitute-keyword-arguments (package-arguments sbcl-boot0)
((#:phases phases)
`(modify-phases ,phases
(replace 'build
(lambda* (#:key outputs #:allow-other-keys)
(setenv "CC" "gcc")
(invoke "sh" "make.sh" "sbcl"
(string-append "--prefix="
(assoc-ref outputs "out"))
"--with-sb-core-compression"
"--with-sb-xref-for-internals")))))))))
(define-public ccl
;; Warning: according to upstream, CCL is not bootstrappable.
;; See https://github.com/Clozure/ccl/issues/222 from 2019-09-02:
@ -815,3 +784,161 @@ command line, to data scanning and extracting scripts, to full application
development in a wide-range of areas.")
(home-page "https://nongnu.org/txr/")
(license license:bsd-2)))
(define picolisp32
(package
(name "picolisp32")
(version "19.12")
(source
(origin
(method url-fetch)
(uri (string-append "https://software-lab.de/picoLisp-" version ".tgz"))
(sha256
(base32 "10np0mhihr47r3201617zccrvzpkhdl1jwvz7zimk8kxpriydq2j"))
(modules '((guix build utils)))
(snippet '(begin
;; Delete the pre-compiled jar file.
(delete-file "ersatz/picolisp.jar")
#t))))
(build-system gnu-build-system)
(inputs
`(("openssl" ,openssl)))
(arguments
`(#:system ,(match (%current-system)
((or "armhf-linux" "aarch64-linux")
"armhf-linux")
(_
"i686-linux"))
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-after 'unpack 'fix-paths
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(shebang-line (string-append
"#!" out "/bin/picolisp "
out "/lib/picolisp/lib.l")))
(substitute* '("bin/pil"
"bin/pilIndent"
"bin/pilPretty"
"bin/psh"
"bin/replica"
"bin/vip"
"bin/watchdog"
"games/xchess"
"misc/bigtest"
"misc/calc"
"misc/chat"
"misc/mailing"
"src/mkVers")
(("#\\!bin/picolisp lib.l")
shebang-line)
(("#\\!\\.\\./bin/picolisp \\.\\./lib.l")
shebang-line)
(("#\\!/usr/bin/picolisp /usr/lib/picolisp/lib.l")
shebang-line)))
#t))
(add-after 'fix-paths 'make-build-reproducible
(lambda _
(substitute* "src64/lib/asm.l"
(("\\(prinl \"/\\* \" \\(datSym \\(date\\)\\) \" \\*/\\)")
""))
#t))
(add-after 'make-build-reproducible 'fix-permissions
(lambda _
(for-each make-file-writable
'("doc/family.tgz"
"doc/family64.tgz"
"lib/map"
"src64/tags"))
#t))
(replace 'build
(lambda _
(invoke "make" "-C" "src" "picolisp" "tools" "gate")))
(add-before 'check 'set-home-for-tests
(lambda _
(setenv "HOME" "/tmp")
#t))
(replace 'check
(lambda _
(invoke "./pil" "test/lib.l" "-bye" "+")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(man (string-append out "/share/man"))
(picolisp (string-append out "/lib/picolisp")))
(copy-recursively "man" man)
(copy-recursively "." picolisp)
(for-each (lambda (name)
(let ((path (string-append picolisp "/" name)))
(delete-file-recursively path)))
'("CHANGES" "COPYING" "CREDITS" "cygwin"
"INSTALL" "man" "pil" "README" "src" "src64"
"test"))
(mkdir-p bin)
(symlink (string-append picolisp "/bin/picolisp")
(string-append bin "/picolisp"))
(symlink (string-append picolisp "/bin/pil")
(string-append bin "/pil")))
#t)))))
(synopsis "Interpreter for the PicoLisp programming language")
(description
"PicoLisp is a programming language, or really a programming system,
including a built-in database engine and a GUI system.")
(home-page "https://picolisp.com/wiki/?home")
(license license:expat)))
(define-public picolisp
(match (%current-system)
((or "aarch64-linux" "x86_64-linux")
(package
;; Use the 32-bit picolisp to generate the assembly files required by
;; the 64-bit picolisp.
(inherit picolisp32)
(name "picolisp")
(native-inputs
`(("picolisp32" ,picolisp32)
("which" ,which)))
(arguments
(substitute-keyword-arguments (package-arguments picolisp32)
((#:system _ "") (%current-system))
((#:phases phases)
`(modify-phases ,phases
(delete 'fix-paths)
(add-before 'build 'fix-paths
;; This must run after the other shebang-patching phases,
;; or they will override our changes.
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((picolisp32 (assoc-ref inputs "picolisp32"))
(out (assoc-ref outputs "out"))
(shebang-line (string-append
"#!" out "/bin/picolisp "
out "/lib/picolisp/lib.l")))
(substitute* '("bin/pil"
"bin/pilIndent"
"bin/pilPretty"
"bin/psh"
"bin/replica"
"bin/vip"
"bin/watchdog"
"games/xchess"
"misc/bigtest"
"misc/calc"
"misc/chat"
"misc/mailing"
"src/mkVers")
(("#\\!.*picolisp32.*/bin/picolisp .*lib\\.l")
shebang-line))
(substitute* "src64/mkAsm"
(("/usr/bin/")
(string-append picolisp32 "/bin/"))))
#t))
(replace 'build
(lambda _
(invoke "make" "-C" "src" "tools" "gate")
(invoke "make" "-C" "src64" "CC=gcc" "picolisp")))))))))
(_
(package
(inherit picolisp32)
(name "picolisp")))))

60
gnu/packages/lua.scm
View File

@ -3,7 +3,7 @@
;;; Copyright © 2014 Raimon Grau <raimonster@gmail.com>
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2014 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016 doncatnip <gnopap@gmail.com>
;;; Copyright © 2016, 2017, 2019 Clément Lassieur <clement@lassieur.org>
@ -196,14 +196,14 @@ language.")
(name name)
(version "3.0-rc1")
(source (origin
(method url-fetch)
(uri (string-append
"https://github.com/diegonehab/luasocket/archive/v"
version ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/diegonehab/luasocket")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0j8jx8bjicvp9khs26xjya8c495wrpb7parxfnabdqa5nnsxjrwb"))))
"1chs7z7a3i3lck4x7rz60ziwbf793gw169hpjdfca8y4yf1hzsxk"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags
@ -248,16 +248,18 @@ handy.")
(define (make-lua-filesystem name lua)
(package
(name name)
(version "1.6.3")
(version "1.7.0.2")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/keplerproject/"
"luafilesystem/archive/v_"
"1_6_3" ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/keplerproject/luafilesystem")
(commit (string-append "v"
(string-join
(string-split version #\.) "_")))))
(file-name (git-file-name name version))
(sha256
(base32
"0s10ckxin0bysd6gaywqhxkpw3ybjhprr8m655b8cx3pxjwd49am"))))
"0zmprgkm9zawdf9wnw0v3w6ibaj442wlc6alp39hmw610fl4vghi"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags
@ -291,14 +293,16 @@ directory structure and file attributes.")
(define (make-lua-sec name lua)
(package
(name name)
(version "0.7")
(version "0.9")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/brunoos/luasec/archive/"
"luasec-" version ".tar.gz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/brunoos/luasec")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0c9sdz3gvrsbvvdqzpnsappgwl40hfljlpfybqis6wia3mdyjxi1"))))
"0ssncgkggyr8i3z6zbvgrgsqj2q8676rnsikhpfwnk9n7sx4gwbl"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags
@ -340,14 +344,14 @@ secure session between the peers.")
(version "0.9.2")
(source
(origin
(method url-fetch)
(uri (string-append
"https://github.com/pavouk/lgi/archive/"
version ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/pavouk/lgi")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0kwcaj3ahi9gxfyp0lr5zgr6vi1mgsg9sz0980x0nwxlh9a11i6g"))))
(base32
"03rbydnj411xpjvwsyvhwy4plm96481d7jax544mvk7apd8sd5jj"))))
(build-system gnu-build-system)
(arguments
'(#:make-flags (list "CC=gcc"
@ -454,7 +458,7 @@ Grammars (PEGs).")
(define (make-lua-luv name lua)
(package
(name name)
(version "1.30.1-1")
(version "1.32.0-0")
(source (origin
;; The release tarball includes the sources of libuv but does
;; not include the pkg-config files.
@ -465,7 +469,7 @@ Grammars (PEGs).")
(file-name (git-file-name name version))
(sha256
(base32
"0b2zxrsjxzhzwfp28lchplrp272v6zkbpq1ddz7a0rf20l7dbls1"))))
"0c65c1lhbl0axnyks3910gjs0z0hw7w6jvl07g8kbpnbvfl4qajh"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ; there are none

17
gnu/packages/lxqt.scm
View File

@ -7,7 +7,7 @@
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019 Meiyo Peng <meiyo@riseup.net>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019 Reza Alizadeh Majd <r.majd@pantherx.org>
;;; Copyright © 2019, 2020 Reza Alizadeh Majd <r.majd@pantherx.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -984,7 +984,8 @@ components to build desktop file managers which belongs to LXDE.")
(base32 "0x3c25inlxll965xszx37mnl5gp3smm2h7x04f67z0qlh3vsbrjq"))))
(build-system cmake-build-system)
(inputs
`(("libfm-qt" ,libfm-qt)
`(("glib:bin" ,glib "bin")
("libfm-qt" ,libfm-qt)
("qtbase" ,qtbase)
("qtx11extras" ,qtx11extras)))
(native-inputs
@ -1000,7 +1001,17 @@ components to build desktop file managers which belongs to LXDE.")
(substitute* '("autostart/CMakeLists.txt")
(("DESTINATION \"\\$\\{LXQT_ETC_XDG_DIR\\}")
"DESTINATION \"etc/xdg"))
#t)))))
#t))
(add-after 'install 'wrap-glib
(lambda* (#:key outputs inputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(glib (assoc-ref inputs "glib:bin"))
(gio-exe-path (string-append glib "/bin/gio-launch-desktop")))
(if (file-exists? gio-exe-path)
(wrap-program (string-append out "/bin/pcmanfm-qt")
`("GIO_LAUNCH_DESKTOP" = (,gio-exe-path)))
(error "could not find gio-launch-desktop"))
#t))))))
(home-page "https://lxqt.org/")
(synopsis "File manager and desktop icon manager")
(description "PCManFM-Qt is the Qt port of PCManFM, the file manager of

53
gnu/packages/mail.scm
View File

@ -22,7 +22,7 @@
;;; Copyright © 2016, 2018 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017 Kyle Meyer <kyle@kyleam.com>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018 Rene Saavedra <pacoon@protonmail.com>
;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
@ -1087,7 +1087,7 @@ useful features.")
(define-public libetpan
(package
(name "libetpan")
(version "1.9.4")
(version "1.9.3")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1095,7 +1095,7 @@ useful features.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0g7an003simfdn7ihg9yjv7hl2czsmjsndjrp39i7cad8icixscn"))))
(base32 "19g4qskg71jv7sxfxsdkjmrxk9mk5kf9b6fhw06g6wvm3205n95f"))))
(build-system gnu-build-system)
(native-inputs `(("autoconf" ,autoconf-wrapper)
("automake" ,automake)
@ -1260,21 +1260,25 @@ delivery.")
(define-public exim
(package
(name "exim")
(version "4.92.3")
(version "4.93.0.4")
(source
(origin
(method url-fetch)
(uri (list (string-append "https://ftp.exim.org/pub/exim/exim4/exim-"
version ".tar.bz2")
(string-append "https://ftp.exim.org/pub/exim/exim4/old/exim-"
version ".tar.bz2")))
(uri (let ((file-name (string-append "exim-" version ".tar.xz")))
(list (string-append "https://ftp.exim.org/pub/exim/exim4/"
file-name)
;; ‘Fix’ releases (exim-x.y.z.f) are kept separately.
(string-append "https://ftp.exim.org/pub/exim/exim4/fixes/"
file-name)
;; After a new non-fix release, the old one is moved here.
(string-append "https://ftp.exim.org/pub/exim/exim4/old/"
file-name))))
(sha256
(base32
"0d0h0j9pl3yf089sc59ia60m3dqnkb3qh1qaz6vxfg2ja2mnm5i9"))))
(base32 "01g4sfycv13glnmfrapwhjbdw6z1z7w5bwjldxjmglwfw5p3czak"))))
(build-system gnu-build-system)
(inputs
`(("bdb" ,bdb-5.3) ; ‘#error Version 6 and later BDB API is not supported’
("gnutls" ,gnutls)
("gnutls" ,gnutls/dane)
("gzip" ,gzip)
("bzip2" ,bzip2)
("xz" ,xz)
@ -1284,7 +1288,8 @@ delivery.")
("libxaw" ,libxaw)))
(native-inputs
`(("pcre" ,pcre "bin")
("perl" ,perl)))
("perl" ,perl)
("pkg-config" ,pkg-config)))
(arguments
'(#:phases
(modify-phases %standard-phases
@ -1313,9 +1318,11 @@ delivery.")
(("(COMPRESS_COMMAND=).*" all var)
(string-append var gzip "/bin/gzip\n"))
(("(ZCAT_COMMAND=).*" all var)
(string-append var gzip "/bin/zcat\n")))
;; This file has hardcoded names for tools despite the zcat
;; configuration above.
(string-append var gzip "/bin/zcat\n"))
(("# (USE_GNUTLS(|_PC)=.*)" all line)
(string-append line "\n")))
;; This file has hard-coded relative file names for tools despite
;; the zcat configuration above.
(substitute* '("src/exigrep.src")
(("'zcat'") (string-append "'" gzip "/bin/zcat'"))
(("'bzcat'") (string-append "'" bzip2 "/bin/bzcat'"))
@ -1331,9 +1338,19 @@ delivery.")
(let ((bash (assoc-ref inputs "bash")))
(substitute* '("scripts/Configure-eximon")
(("#!/bin/sh") (string-append "#!" bash "/bin/sh"))))
#t)))
#:make-flags '("INSTALL_ARG=-no_chown")
;; No 'check' target.
#t))
(add-before 'build 'build-reproducibly
(lambda _
;; The ‘compilation number’ is incremented for every build from the
;; same source tree. It appears to vary over different (parallel?)
;; builds. Make it a ‘constant number’ instead.
(substitute* "src/version.c"
(("#include \"cnumber.h\"") "1")))))
#:make-flags
(list "CC=gcc"
"INSTALL_ARG=-no_chown")
;; No 'check' target. There is a test suite in test/, which assumes that
;; certain build options were (not) used and that it can freely ‘sudo’.
#:tests? #f))
(home-page "https://www.exim.org/")
(synopsis

9
gnu/packages/mate.scm
View File

@ -2,7 +2,7 @@
;;; Copyright © 2016 Fabian Harfert <fhmgufs@web.de>
;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 ng0 <ng0@n0.is>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019 Guy Fleury Iteriteka <hoonandon@gmail.com>
;;;
@ -301,15 +301,14 @@ the MATE desktop environment.")
(define-public mate-terminal
(package
(name "mate-terminal")
(version "1.22.0")
(version "1.23.0")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://mate/" (version-major+minor version) "/"
name "-" version ".tar.xz"))
"mate-terminal-" version ".tar.xz"))
(sha256
(base32
"16r492s34la2fs2cj1xr0r93wkjglwy77jyrc66i2ahs9gnivj4g"))))
(base32 "1jkw8i2j45p80i7wmm0j0gkbd44nr2qj8bf79jrh5z8kn01b1ibd"))))
(build-system glib-or-gtk-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)

22
gnu/packages/maths.scm
View File

@ -582,7 +582,7 @@ large scale eigenvalue problems.")
(define-public lapack
(package
(name "lapack")
(version "3.7.1")
(version "3.9.0")
(source
(origin
(method url-fetch)
@ -590,26 +590,18 @@ large scale eigenvalue problems.")
version ".tgz"))
(sha256
(base32
"1j51r7n5w4k7r3lrvy7710xrpkg40wf4rqnmngfz6ck9ypckzign"))))
"1155qixp26c12yrxc76z9mlfw2h3xxymxxv5znpgzh5gaykpndgj"))))
(build-system cmake-build-system)
(home-page "http://www.netlib.org/lapack/")
(inputs `(("fortran" ,gfortran)
("python" ,python-2)))
("python" ,python-wrapper)))
(arguments
`(#:configure-flags (list
"-DBUILD_SHARED_LIBS:BOOL=YES"
"-DLAPACKE=ON"
;; Build the 'LAPACKE_clatms' functions.
"-DLAPACKE_WITH_TMG=ON")
#:phases
(modify-phases %standard-phases
(add-before 'check 'patch-python
(lambda* (#:key inputs #:allow-other-keys)
(let ((python (assoc-ref inputs "python")))
(substitute* "lapack_testing.py"
(("/usr/bin/env python") python)))
#t)))))
"-DLAPACKE_WITH_TMG=ON"
"-DBUILD_TESTING=ON")))
(synopsis "Library for numerical linear algebra")
(description
"LAPACK is a Fortran 90 library for solving the most commonly occurring
@ -924,7 +916,7 @@ extremely large and complex data collections.")
(define-public hdf5-1.10
(package (inherit hdf5)
(version "1.10.5")
(version "1.10.6")
(source
(origin
(method url-fetch)
@ -938,7 +930,7 @@ extremely large and complex data collections.")
(take (string-split version #\.) 2))
"/src/hdf5-" version ".tar.bz2")))
(sha256
(base32 "0i3g6v521vigzbx8wpd32ibsiiw92r65ca3qdbn0d8fj8f4fmmk8"))
(base32 "1gf38x51128hn00744358w27xgzjk0ff4wra4yxh2lk804ck1mh9"))
(patches (search-patches "hdf5-config-date.patch"))))))
(define-public hdf-java

29
gnu/packages/messaging.scm
View File

@ -10,14 +10,14 @@
;;; Copyright © 2016, 2017, 2018, 2019 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com>
;;; Copyright © 2017, 2018 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org>
;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2018 Leo Famulari <leo@famulari.name>
;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr>
;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org>
;;; Copyright © 2019 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2019 Timotej Lazar <timotej.lazar@araneo.si>
;;; Copyright © 2019, 2020 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2019, 2020 Timotej Lazar <timotej.lazar@araneo.si>
;;;
;;; This file is part of GNU Guix.
;;;
@ -214,7 +214,7 @@ additional IM client. BitlBee currently supports XMPP/Jabber (including
Google Talk), MSN Messenger, Yahoo! Messenger, AIM and ICQ, and the Twitter
microblogging network (plus all other Twitter API compatible services like
identi.ca and status.net).")
(home-page "http://www.bitlbee.org/")
(home-page "https://www.bitlbee.org/")
(license (list license:gpl2+ license:bsd-2))))
(define-public bitlbee-discord
@ -263,15 +263,14 @@ access to servers running the Discord protocol.")
(define-public hexchat
(package
(name "hexchat")
(version "2.14.2")
(version "2.14.3")
(source (origin
(method url-fetch)
(uri (string-append "https://dl.hexchat.net/hexchat/hexchat-"
version ".tar.xz"))
(sha256
(base32
"064nq151nzsljv97dmkifyl162d2738vbgvm1phx7yv04pjvk4kp"))
(patches (search-patches "hexchat-crash-exit.patch"))))
"10p829jm1r6kidkgf5lhqhyqc5mxdcq96q3zhadsckasvc9rs6lh"))))
(build-system meson-build-system)
(native-inputs `(("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin") ;need glib-genmarshal
@ -1245,15 +1244,14 @@ with several different talk daemons at the same time.")
(define-public gloox
(package
(name "gloox")
(version "1.0.22")
(version "1.0.23")
(source
(origin
(method url-fetch)
(uri (string-append "https://camaya.net/download/gloox-"
version ".tar.bz2"))
(sha256
(base32
"0r69gq8if9yy1amjzl7qrq9lzhhna7qgz905ln4wvkwchha1ppja"))))
(base32 "12jz8glg9zmyk0iyv1ywf5i0hq93dfq8lvn6lyjgy8730w66mjwp"))))
(build-system gnu-build-system)
(inputs
`(("libidn" ,libidn)
@ -1437,7 +1435,7 @@ including psyced.")
#:make-flags (list "install-all")))
(inputs
`(("zlib" ,zlib)
("openssl" ,openssl)
("openssl" ,openssl-1.0)
("pcre" ,pcre)))
(native-inputs
`(("pkg-config" ,pkg-config)
@ -1950,9 +1948,9 @@ Telegram messenger.")
(license license:gpl2+)))
(define-public tdlib
(let ((commit "afca63a4f43531058a079e91eb5c81f54ad744b5")
(let ((commit "80c35676a2eb1e9b71db355ee217bba79fbdce31")
(revision "1")
(version "1.5.0"))
(version "1.5.4"))
(package
(name "tdlib")
(version (git-version version revision commit))
@ -1963,11 +1961,14 @@ Telegram messenger.")
(commit commit)))
(sha256
(base32
"1aa3p4k32mfshgc6fv58gwg8pnaix39rv455hfx6znj7llr8na6k"))
"09c0pygqirapgxxzcc3sr0x67qhz8cx2klznrbdyi0118r9s8a7a"))
(file-name (git-file-name name version))))
(build-system cmake-build-system)
(arguments
`(#:tests? #t
#:configure-flags
(list "-DCMAKE_BUILD_TYPE=Release"
"-DTD_ENABLE_LTO=OFF") ; FIXME: Get LTO to work.
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'remove-failing-tests

6
gnu/packages/mp3.scm
View File

@ -5,7 +5,7 @@
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017, 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
;;;
;;; This file is part of GNU Guix.
@ -476,13 +476,13 @@ compression format (.mpc files).")
(define-public eyed3
(package
(name "eyed3")
(version "0.8.11")
(version "0.8.12")
(source
(origin
(method url-fetch)
(uri (pypi-uri "eyeD3" version))
(sha256
(base32 "1347mhjysbdpmmvdqm6lhskdw0qj9vjdn4n172ffnz958adrnk0f"))))
(base32 "0vabr7hh6vy1w8gn35vmx9qwiyrfv734d5ahifg7x3pv0c5fqkp5"))))
(build-system python-build-system)
(arguments
`(#:tests? #f)) ; the required test data contains copyrighted material

34
gnu/packages/music.scm
View File

@ -1414,7 +1414,7 @@ users to select LV2 plugins and run them with jalv.")
(define-public synthv1
(package
(name "synthv1")
(version "0.9.11")
(version "0.9.12")
(source (origin
(method url-fetch)
(uri
@ -1422,7 +1422,7 @@ users to select LV2 plugins and run them with jalv.")
"/synthv1-" version ".tar.gz"))
(sha256
(base32
"116k2vca9dygvsd684wvxm61p0l1xrrgdph4qrrprlsr6vj0llgm"))))
"1amxrl1cqwgncw5437r572frgf6xhss3cfpbgh178i8phlq1q731"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f)) ; there are no tests
@ -1446,7 +1446,7 @@ oscillators and stereo effects.")
(define-public drumkv1
(package
(name "drumkv1")
(version "0.9.11")
(version "0.9.12")
(source (origin
(method url-fetch)
(uri
@ -1454,7 +1454,7 @@ oscillators and stereo effects.")
"/drumkv1-" version ".tar.gz"))
(sha256
(base32
"1wnjn175l0mz51k9pjf3pdzv54c4jlh63saavld9lm6zfgfs13d7"))))
"0hmnmk9vvi43wl6say0dg7j088h7mmwmfdwjhsq89c7i7cpg78da"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f)) ; there are no tests
@ -1479,7 +1479,7 @@ effects.")
(define-public samplv1
(package
(name "samplv1")
(version "0.9.11")
(version "0.9.12")
(source (origin
(method url-fetch)
(uri
@ -1487,7 +1487,7 @@ effects.")
"/samplv1-" version ".tar.gz"))
(sha256
(base32
"17zs8kvvwqv00bm4lxpn09a5hxjlbz7k5mkl3k7jspw7rqn3djf2"))))
"0xzjxiqzcf1ygabrjsy0iachhnpy85rp9519fmj2f568r6ml6hzg"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f)) ; there are no tests
@ -1512,7 +1512,7 @@ effects.")
(define-public padthv1
(package
(name "padthv1")
(version "0.9.11")
(version "0.9.12")
(source (origin
(method url-fetch)
(uri
@ -1520,7 +1520,7 @@ effects.")
"/padthv1-" version ".tar.gz"))
(sha256
(base32
"02yfwyirjqxa075yqdnci9b9k57kdmkjvn9gnpdbnjp887pds76g"))))
"1zz3rz990k819q0rlzllqdwvag0x9k63443lb0mp8lwlczxnza6l"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f)) ; there are no tests
@ -1733,7 +1733,7 @@ is subjective.")
(define-public tuxguitar
(package
(name "tuxguitar")
(version "1.5.2")
(version "1.5.3")
(source (origin
(method url-fetch)
(uri (string-append
@ -1741,7 +1741,7 @@ is subjective.")
version "/tuxguitar-" version "-src.tar.gz"))
(sha256
(base32
"10arfpgm2pw7mn922klklzn05lw5ifqx070shdrar81afmkfbbd9"))))
"1qy5kjcsl3c86kdlyvsf6dsfmfl1mv8zg0ln6g3qg3i8f35vlpp6"))))
(build-system ant-build-system)
(arguments
`(#:build-target "build"
@ -2387,14 +2387,14 @@ from the command line.")
(define-public qtractor
(package
(name "qtractor")
(version "0.9.11")
(version "0.9.12")
(source (origin
(method url-fetch)
(uri (string-append "http://downloads.sourceforge.net/qtractor/"
"qtractor-" version ".tar.gz"))
(sha256
(base32
"1482da0lr77i57jby80cnn4bb9ws3v1i1j6m2hbwdnvqab9csvnx"))))
"06493sf4hr178jkvric3rmc2phh1ph2jlyh8kl9z248amq3zfnhy"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f)) ; no "check" target
@ -4822,7 +4822,7 @@ and debugging of event signal flows inside plugin graphs.")
(define-public x42-plugins
(package
(name "x42-plugins")
(version "20191013")
(version "20191215")
(source
(origin
(method url-fetch)
@ -4830,8 +4830,7 @@ and debugging of event signal flows inside plugin graphs.")
(string-append "http://gareus.org/misc/x42-plugins/x42-plugins-"
version ".tar.xz"))
(sha256
(base32
"18kn1bmc0s6dp834kc51ibifzzn3bxwya4p8s8yq9f4mpmkghi24"))))
(base32 "1mwfvhsvc0qgjyiwd8pmmam1mav43lmv39fljhmj9yri558v5g1c"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no "check" target
@ -4876,7 +4875,7 @@ audio and MIDI plugins that can also run as standalone JACK applications.")
(define-public zam-plugins
(package
(name "zam-plugins")
(version "3.11")
(version "3.12")
(source
(origin
(method git-fetch)
@ -4890,8 +4889,7 @@ audio and MIDI plugins that can also run as standalone JACK applications.")
(recursive? #t)))
(file-name (git-file-name name version))
(sha256
(base32
"0jlbxm0g93plgd3g4r9rsr0c7868ms49bs0ljpqb6kw6132hsapp"))))
(base32 "0icsbarc9azcp0kjjydmiqn401v60jmf16zdcp4040q8g7bpfmfa"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ;no "check" target

6
gnu/packages/musl.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -28,14 +28,14 @@
(define-public musl
(package
(name "musl")
(version "1.1.22")
(version "1.1.24")
(source (origin
(method url-fetch)
(uri (string-append "https://www.musl-libc.org/releases/"
"musl-" version ".tar.gz"))
(sha256
(base32
"1qr9xqdzziy5bsyyqlh6k8yz056ll55d5yvc0gbhz61ginj422cb"))))
"18r2a00k82hz0mqdvgm7crzc7305l36109c0j9yjmkxj2alcjw0k"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; musl has no tests

23
gnu/packages/networking.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015, 2016, 2017 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2016 Raimon Grau <raimonster@gmail.com>
;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016 John Darrington <jmd@gnu.org>
;;; Copyright © 2016, 2017, 2018, 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
@ -14,7 +14,7 @@
;;; Copyright © 2016, 2017 Pjotr Prins <pjotr.guix@thebird.nl>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2017, 2019 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
@ -24,7 +24,7 @@
;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2018 Theodoros Foradis <theodoros@foradis.org>
;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2018, 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2019 Vasile Dumitrascu <va511e@yahoo.com>
@ -559,15 +559,14 @@ and up to 1 Mbit/s downstream.")
(define-public whois
(package
(name "whois")
(version "5.5.3")
(version "5.5.4")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://debian/pool/main/w/whois/"
"whois_" version ".tar.xz"))
(sha256
(base32
"0imb87iz17a530fg1x9wnsm4bvr61hxydv29chfwzh015af3zhsm"))))
(base32 "0k97aiz7ngkjz3vhzvk27kqhnmqmkskdfx310c94qnh8fd7hiqfi"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no test suite
@ -1238,6 +1237,14 @@ It is intended primarily for use in testing.")
(base32
"0ln5f57vc8388kyh9vhx2infrdzfhbpgyby74h1qsnhwds95m0vh"))))
(build-system perl-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'dont-link-with-nsl ; Borrowed from Debian.
(lambda _
(substitute* "Makefile.PL"
(("-lnsl") ""))
#t)))))
(inputs
`(("perl-net-cidr-lite" ,perl-net-cidr-lite)
("perl-socket6" ,perl-socket6)))
@ -1491,14 +1498,14 @@ that block port 22.")
(define-public iperf
(package
(name "iperf")
(version "3.1.7")
(version "3.7")
(source (origin
(method url-fetch)
(uri (string-append "http://downloads.es.net/pub/iperf"
"/iperf-" version ".tar.gz"))
(sha256
(base32
"0kvk8d0a3dcxc8fisyprbn01y8akxj4sx8ld5dh508p9dx077vx4"))))
"033is7b5grfbiil98jxlz4ixp9shm44x6hy8flpsyz1i4h108inq"))))
(build-system gnu-build-system)
(synopsis "TCP, UDP and SCTP bandwidth measurement tool")
(description

46
gnu/packages/nfs.scm
View File

@ -2,6 +2,7 @@
;;; Copyright © 2016 John Darrington <jmd@gnu.org>
;;; Copyright © 2017, 2018 Leo Famulari <leo@famulari.name>
;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -20,6 +21,7 @@
(define-module (gnu packages nfs)
#:use-module (gnu packages)
#:use-module (gnu packages crypto)
#:use-module (gnu packages linux)
#:use-module (gnu packages libevent)
#:use-module (gnu packages kerberos)
@ -42,32 +44,28 @@
(define-public nfs-utils
(package
(name "nfs-utils")
(version "2.1.1")
(version "2.4.2")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://kernel.org/linux/utils/nfs-utils/" version
"/nfs-utils-" version ".tar.xz"))
(patches (search-patches "nfs-utils-missing-headers.patch"))
(sha256
(base32
"1vqrqzhg9nh2wj1icp7k8v9dibgnn521b45np79nnkmqf16bbbhg"))))
"0f0hm8jq1p5gra55v621qpbb3mryakaikzpy5znkvxym0dx76r24"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
`("--without-tcp-wrappers"
,(string-append "--with-start-statd="
(assoc-ref %outputs "out") "/sbin/start-statd")
,(string-append "--with-krb5=" (assoc-ref %build-inputs "mit-krb5")))
,(string-append "--with-krb5=" (assoc-ref %build-inputs "mit-krb5"))
,(string-append "--with-pluginpath="
(assoc-ref %outputs "out")
"/lib/libnfsidmap")
"--enable-svcgss")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-glibc-compatability
(lambda _
(substitute* '("utils/blkmapd/device-discovery.c"
"utils/blkmapd/dm-device.c")
(("<sys/stat.h>")
"<sys/stat.h>\n#include <sys/sysmacros.h>"))
#t))
(add-before 'configure 'adjust-command-file-names
(lambda _
;; Remove assumptions of FHS from start-statd script
@ -81,6 +79,11 @@
(string-append "exec "
(assoc-ref %outputs "out") "/sbin/rpc.statd")))
;; find rpcgen
(substitute* "configure"
(("/usr/local/bin/rpcgen")
(which "rpcgen")))
;; This hook tries to write to /var
;; That needs to be done by a service too.
(substitute* `("Makefile.in")
@ -96,20 +99,23 @@
(substitute* `("utils/statd/statd.c")
(("/usr/sbin/")
(string-append (assoc-ref %outputs "out") "/sbin/")))
(substitute* `("utils/osd_login/Makefile.in"
"utils/mount/Makefile.in"
(substitute* `("utils/mount/Makefile.in"
"utils/nfsdcld/Makefile.in"
"utils/nfsdcltrack/Makefile.in")
(("^sbindir = /sbin")
(string-append "sbindir = "
(assoc-ref %outputs "out") "/sbin")))
#t)))))
(inputs `(("libevent" ,libevent)
("libnfsidmap" ,libnfsidmap)
("sqlite" ,sqlite)
("lvm2" ,lvm2)
("util-linux" ,util-linux)
("mit-krb5" ,mit-krb5)
("libtirpc" ,libtirpc)))
(inputs
`(("keyutils" ,keyutils)
("libevent" ,libevent)
("libnfsidmap" ,libnfsidmap)
("rpcsvc-proto" ,rpcsvc-proto) ;for 'rpcgen'
("sqlite" ,sqlite)
("lvm2" ,lvm2)
("util-linux" ,util-linux)
("mit-krb5" ,mit-krb5)
("libtirpc" ,libtirpc)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "http://www.kernel.org/pub/linux/utils/nfs-utils/")

13
gnu/packages/nss.scm
View File

@ -34,7 +34,7 @@
(define-public nspr
(package
(name "nspr")
(version "4.22")
(version "4.24")
(source (origin
(method url-fetch)
(uri (string-append
@ -42,7 +42,7 @@
version "/src/nspr-" version ".tar.gz"))
(sha256
(base32
"0c6ljv3bdqhc169srbpjy0cs52xk715p04zy08rcjvl54k6bdr69"))))
"1l0ksiny032jijgk0g76wf0kiq673i01izj7jrs2h5d1yq6rm9ch"))))
(build-system gnu-build-system)
(native-inputs
`(("perl" ,perl)))
@ -70,7 +70,7 @@ in the Mozilla clients.")
(define-public nss
(package
(name "nss")
(version "3.46.1")
(version "3.48")
(source (origin
(method url-fetch)
(uri (let ((version-with-underscores
@ -81,10 +81,9 @@ in the Mozilla clients.")
"nss-" version ".tar.gz")))
(sha256
(base32
"0l9ns44rlkp1bpblplspfbqmyhb8rhvc89y56kqh725rgpny1xrv"))
"1b7qs1q7jqhw9dvkdznanzhc5dyq4bwx0biywszy3qx4hqm8571z"))
;; Create nss.pc and nss-config.
(patches (search-patches "nss-CVE-2019-11745.patch"
"nss-pkgconfig.patch"
(patches (search-patches "nss-pkgconfig.patch"
"nss-freebl-stubs.patch"
"nss-increase-test-timeout.patch"))))
(build-system gnu-build-system)
@ -131,7 +130,7 @@ in the Mozilla clients.")
;; leading to test failures:
;; <https://bugzilla.mozilla.org/show_bug.cgi?id=609734>. To
;; work around that, set the time to roughly the release date.
(invoke "faketime" "2019-10-01" "./nss/tests/all.sh")))
(invoke "faketime" "2019-12-01" "./nss/tests/all.sh")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))

147
gnu/packages/ocaml.scm
View File

@ -13,6 +13,7 @@
;;; Copyright © 2018, 2019 Gabriel Hondet <gabrielhondet@gmail.com>
;;; Copyright © 2018 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2020 Brett Gilio <brettg@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -31,6 +32,7 @@
(define-module (gnu packages ocaml)
#:use-module (gnu packages)
#:use-module (gnu packages algebra)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
#:use-module (gnu packages bison)
@ -3070,7 +3072,7 @@ instead of bindings to a C library.")
(define-public ocaml-utop
(package
(name "ocaml-utop")
(version "2.4.2")
(version "2.4.3")
(source
(origin
(method git-fetch)
@ -3079,7 +3081,7 @@ instead of bindings to a C library.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0z8klqwqmq5i111p4awzvlvirhm1dxp0mbfagwfiwq1wg72v6zdm"))))
(base32 "1bl4943qpi3qy152dbdm5glhx19zsiylmn4rcxi8l66g58hikyjp"))))
(build-system dune-build-system)
(arguments
`(#:jbuild? #t
@ -3092,7 +3094,7 @@ instead of bindings to a C library.")
("react" ,ocaml-react)
("camomile" ,ocaml-camomile)
("zed" ,ocaml-zed)))
(home-page "https://github.com/diml/utop")
(home-page "https://github.com/ocaml-community/utop")
(synopsis "Improved interface to the OCaml toplevel")
(description "UTop is an improved toplevel for OCaml. It can run in a
terminal or in Emacs. It supports line editing, history, real-time and context
@ -5177,3 +5179,142 @@ Text inside doc comments is marked up in ocamldoc syntax. Odoc's main
advantage over ocamldoc is an accurate cross-referencer, which handles the
complexity of the OCaml module system.")
(license license:isc)))
(define-public ocaml-fftw3
(package
(name "ocaml-fftw3")
(version "0.8.4")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Chris00/fftw-ocaml.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0l66yagjkwdcib6q55wd8wiap50vi23qiahkghlvm28z7nvbclfk"))))
(build-system dune-build-system)
(arguments
`(#:tests? #t
#:test-target "tests"))
(propagated-inputs
`(("fftw" ,fftw)
("fftwf" ,fftwf)))
(native-inputs
`(("ocaml-cppo" ,ocaml-cppo)
("ocaml-lacaml" ,ocaml-lacaml)))
(home-page
"https://github.com/Chris00/fftw-ocaml")
(synopsis
"Bindings to FFTW3")
(description
"Bindings providing OCaml support for the seminal Fast Fourier Transform
library FFTW.")
(license license:lgpl2.1))) ; with static linking exception.
(define-public ocaml-lacaml
(package
(name "ocaml-lacaml")
(version "11.0.5")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mmottl/lacaml.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"180yb79a3qgx067qcpm50q12hrimjygf06rgkzbish9d1zfm670c"))))
(build-system dune-build-system)
(arguments
`(#:tests? #f)) ; No test target.
(native-inputs
`(("openblas" ,openblas)
("lapack" ,lapack)
("ocaml-base" ,ocaml-base)
("ocaml-stdio" ,ocaml-stdio)))
(home-page "https://mmottl.github.io/lacaml/")
(synopsis
"OCaml-bindings to BLAS and LAPACK")
(description
"Lacaml interfaces the BLAS-library (Basic Linear Algebra Subroutines) and
LAPACK-library (Linear Algebra routines). It also contains many additional
convenience functions for vectors and matrices.")
(license license:lgpl2.1)))
(define-public ocaml-cairo2
(package
(name "ocaml-cairo2")
(version "0.6.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Chris00/ocaml-cairo.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0wzysis9fa850s68qh8vrvqc6svgllhwra3kzll2ibv0wmdqrich"))))
(build-system dune-build-system)
(arguments
`(#:test-target "tests"))
(inputs
`(("cairo" ,cairo)
("gtk+-2" ,gtk+-2)
("lablgtk" ,lablgtk)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://github.com/Chris00/ocaml-cairo")
(synopsis "Binding to Cairo, a 2D Vector Graphics Library")
(description "Ocaml-cairo2 is a binding to Cairo, a 2D graphics library
with support for multiple output devices. Currently supported output targets
include the X Window System, Quartz, Win32, image buffers, PostScript, PDF,
and SVG file output.")
(license license:lgpl3+)))
(define-public lablgtk3
(package
(name "lablgtk")
(version "3.0.beta8")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/garrigue/lablgtk.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"08pgwnia240i2rw1rbgiahg673kwa7b6bvhsg3z4b47xr5sh9pvz"))))
(build-system dune-build-system)
(arguments
`(#:tests? #t
#:test-target "."
#:phases
(modify-phases %standard-phases
(add-before 'build 'make-writable
(lambda _
(for-each (lambda (file)
(chmod file #o644))
(find-files "." "."))
#t)))))
(propagated-inputs
`(("ocaml-cairo2" ,ocaml-cairo2)))
(inputs
`(("camlp5" ,camlp5)
("gtk+" ,gtk+)
("gtksourceview-3" ,gtksourceview-3)
("gtkspell3" ,gtkspell3)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://github.com/garrigue/lablgtk")
(synopsis "OCaml interface to GTK+3")
(description "LablGtk is an OCaml interface to GTK+ 1.2, 2.x and 3.x. It
provides a strongly-typed object-oriented interface that is compatible with the
dynamic typing of GTK+. Most widgets and methods are available. LablGtk
also provides bindings to gdk-pixbuf, the GLArea widget (in combination with
LablGL), gnomecanvas, gnomeui, gtksourceview, gtkspell, libglade (and it can
generate OCaml code from .glade files), libpanel, librsvg and quartz.")
;; Version 2 only, with linking exception.
(license license:lgpl2.0)))

295
gnu/packages/opencog.scm 100644
View File

@ -0,0 +1,295 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages opencog)
#:use-module (gnu packages)
#:use-module (gnu packages boost)
#:use-module (gnu packages check)
#:use-module (gnu packages databases)
#:use-module (gnu packages guile)
#:use-module (gnu packages language)
#:use-module (gnu packages linux)
#:use-module (gnu packages multiprecision)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix git-download)
#:use-module (guix build-system cmake)
#:use-module (guix utils))
(define-public cogutil
;; The last release was in 2016. Other OpenCog packages require a later
;; version.
(let ((commit "b07b41b2eaf01627c78b27f1f28bb09ef7086f8e")
(revision "1"))
(package
(name "cogutil")
(version (git-version "2.0.3" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/opencog/cogutil.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1ymmcrinp0prlxsmxmwdjjl4kgaj7wzq39d5b1q2apgg94yfdhqb"))))
(build-system cmake-build-system)
(arguments
`(#:test-target "tests"))
(inputs
`(("boost" ,boost)))
(native-inputs
`(("cxxtest" ,cxxtest)
("python" ,python-minimal)
("pkg-config" ,pkg-config)))
(home-page "https://github.com/opencog/cogutil/")
(synopsis "Low-level C++ programming utilities used by OpenCog components")
(description "The OpenCog utilities is a miscellaneous collection of C++
utilities use for typical programming tasks in multiple OpenCog projects.")
;; Either of these licenses.
(license (list license:agpl3 license:asl2.0)))))
(define-public atomspace
;; The last release was in 2016 and doesn't build with our Boost package.
(let ((commit "86c848dfc7135b3c47deb581f8da54a60f6711c9")
(revision "1"))
(package
(name "atomspace")
(version (git-version "5.0.3" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/opencog/atomspace.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0vxzhszb0z8081li38hid07a5axzxyflsmq1mcn4b1k4z1j8ggch"))))
(build-system cmake-build-system)
(arguments
`(#:test-target "tests"
#:configure-flags
(list (string-append "-DGUILE_INCLUDE_DIR="
(assoc-ref %build-inputs "guile")
"/include/guile/2.2/")
(string-append "-DGUILE_SITE_DIR="
(assoc-ref %outputs "out")
"/share/guile/site/2.2/"))))
(inputs
`(("boost" ,boost)
("cogutil" ,cogutil)
("gmp" ,gmp)
("guile" ,guile-2.2)
("postgresql" ,postgresql)))
(native-inputs
`(("cxxtest" ,cxxtest)
("python" ,python-minimal)
("pkg-config" ,pkg-config)))
(home-page "https://github.com/opencog/atomspace/")
(synopsis "OpenCog hypergraph database, query system and rule engine")
(description "The OpenCog AtomSpace is an in-RAM @dfn{knowledge
representation} (KR) database, an associated query engine and graph-re-writing
system, and a rule-driven inferencing engine that can apply and manipulate
sequences of rules to perform reasoning. It is a layer that sits on top of
ordinary distributed (graph) databases, providing a large variety of advanced
features not otherwise available.")
(license license:agpl3))))
(define-public cogserver
;; There are no releases.
(let ((commit "c8ad85fef446819e6bd711f0791887a5aa6a41f9")
(revision "1"))
(package
(name "cogserver")
(version (git-version "0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/opencog/cogserver.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0flwl2cbmnj7kjcx8vwk7rbhsp2si0a51ci0hx88a3xx1f76cp3f"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ; See https://github.com/opencog/cogserver/issues/24
#:test-target "tests"
#:configure-flags
(list (string-append "-DGUILE_INCLUDE_DIR="
(assoc-ref %build-inputs "guile")
"/include/guile/2.2/")
(string-append "-DGUILE_SITE_DIR="
(assoc-ref %outputs "out")
"/share/guile/site/2.2/"))))
(inputs
`(("atomspace" ,atomspace)
("boost" ,boost)
("cogutil" ,cogutil)
("gmp" ,gmp)
("guile" ,guile-2.2)))
(native-inputs
`(("cxxtest" ,cxxtest)
("python" ,python-minimal)
("pkg-config" ,pkg-config)))
(home-page "https://github.com/opencog/cogserver/")
(synopsis "OpenCog network server")
(description "The OpenCog Cogserver is a network and job server for the
OpenCog framework.")
(license license:agpl3))))
(define-public attention
;; There are no releases.
(let ((commit "87d43679280ce486cd6757765d2e1df6d502991d")
(revision "1"))
(package
(name "attention")
(version (git-version "0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/opencog/attention.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0sndslphicv6w9qpag168rqkxq5sf71l5qbfx6zhsd5bzlf5fhwv"))))
(build-system cmake-build-system)
(arguments
`(#:test-target "tests"
#:configure-flags
(list
(string-append "-DGUILE_INCLUDE_DIR="
(assoc-ref %build-inputs "guile")
"/include/guile/2.2/")
(string-append "-DGUILE_SITE_DIR="
(assoc-ref %outputs "out")
"/share/guile/site/2.2/"))))
(inputs
`(("atomspace" ,atomspace)
("boost" ,boost)
("cogserver" ,cogserver)
("cogutil" ,cogutil)
("gmp" ,gmp)
("guile" ,guile-2.2)))
(native-inputs
`(("cxxtest" ,cxxtest)
("python" ,python-minimal)
("pkg-config" ,pkg-config)))
(home-page "https://github.com/opencog/attention/")
(synopsis "OpenCog attention allocation subsystem")
(description "Attention Allocation is an OpenCog subsystem meant to
control the application of processing and memory resources to specific
tasks.")
(license license:agpl3))))
(define-public opencog
;; There are no recent releases.
(let ((commit "ceac90507610cb2d0ee98f97a2086865292b1204")
(revision "1"))
(package
(name "opencog")
(version (git-version "0.1.4" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/opencog/opencog.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1j8wv910fvrmph370wv5pv2f4bc2s9vl6i7bw3pkmwbdhxkhjbhm"))))
(build-system cmake-build-system)
(arguments
`(#:test-target "tests"
#:configure-flags
(list
(string-append "-DGUILE_INCLUDE_DIR="
(assoc-ref %build-inputs "guile")
"/include/guile/2.2/")
(string-append "-DGUILE_SITE_DIR="
(assoc-ref %outputs "out")
"/share/guile/site/2.2/"))))
(inputs
`(("attention" ,attention)
("atomspace" ,atomspace)
("boost" ,boost)
("cogserver" ,cogserver)
("cogutil" ,cogutil)
("gmp" ,gmp)
("guile" ,guile-2.2)
("libuuid" ,util-linux)
("link-grammar" ,link-grammar)))
(native-inputs
`(("cxxtest" ,cxxtest)
("python" ,python-minimal)
("pkg-config" ,pkg-config)))
(home-page "https://github.com/opencog/attention/")
(synopsis "Framework for integrated artificial intelligence")
(description "OpenCog is a framework for developing AI systems,
especially appropriate for integrative multi-algorithm systems, and artificial
general intelligence systems. It currently contains a functional core
framework, and a number of cognitive agents at varying levels of completion,
some already displaying interesting and useful functionalities alone and in
combination.")
(license license:agpl3))))
(define-public agi-bio
;; There are no releases.
(let ((commit "b5c6f3d99e8cca3798bf0cdf2c32f4bdb8098efb")
(revision "1"))
(package
(name "agi-bio")
(version (git-version "0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/opencog/agi-bio.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0c3q0nhmd03nvqm1ih10y28n596cjvfhkcfvzw2fmz1sn3ywdah4"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ; there are none
#:configure-flags
(list
(string-append "-DGUILE_INCLUDE_DIR="
(assoc-ref %build-inputs "guile")
"/include/guile/2.2/")
(string-append "-DGUILE_SITE_DIR="
(assoc-ref %outputs "out")
"/share/guile/site/2.2/"))))
(inputs
`(("atomspace" ,atomspace)
("cogutil" ,cogutil)
("gmp" ,gmp)
("guile" ,guile-2.2)))
(native-inputs
`(("cxxtest" ,cxxtest)
("python" ,python-minimal)
("pkg-config" ,pkg-config)))
(home-page "https://github.com/opencog/agi-bio")
(synopsis "Genomic and proteomic data exploration and pattern mining")
(description "This is a package for genomic and proteomic research using
the OpenCog toolset with Guile. This includes experiments in applying pattern
mining and other OpenCog components.")
(license license:agpl3))))

67
gnu/packages/package-management.scm
View File

@ -1,15 +1,15 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Muriithi Frederick Muriuki <fredmanglis@gmail.com>
;;; Copyright © 2017, 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2017 Roel Janssen <roel@gnu.org>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2018, 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2018 Sou Bunnbu <iyzsong@member.fsf.org>
;;; Copyright © 2018, 2019 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Jonathan Brielmaier <jonathan.brielmaier@web.de>
;;;
;;; This file is part of GNU Guix.
@ -110,8 +110,8 @@
;; Note: the 'update-guix-package.scm' script expects this definition to
;; start precisely like this.
(let ((version "1.0.1")
(commit "41b4b713f4892918a9a1950acdd89f33b977d143")
(revision 10))
(commit "f38eabe952608478230895e380ef441d65ea625e")
(revision 11))
(package
(name "guix")
@ -127,7 +127,7 @@
(commit commit)))
(sha256
(base32
"08sblj4xy78va6zlxmxdq2id58pjr8rjqxxycd77hiacsqbjh9g6"))
"1wnm1wqa38dpd5bk6avyfm0rgx72vlx36a06scyg8d57kl47mzjf"))
(file-name (string-append "guix-" version "-checkout"))))
(build-system gnu-build-system)
(arguments
@ -176,16 +176,27 @@
;; Copy the bootstrap guile tarball in the store used
;; by the test suite.
(define (intern file recursive?)
(let ((base (strip-store-file-name file)))
;; Note: don't use 'guix download' here because we
;; need to set the 'recursive?' argument.
(invoke "./test-env" "guile" "-c"
(object->string
`(begin
(use-modules (guix))
(with-store store
(add-to-store store ,base ,recursive?
"sha256" ,file)))))))
;; Note: don't use 'guix download' here because we
;; need to set the 'recursive?' argument.
(define base
(strip-store-file-name file))
(define code
`(begin
(use-modules (guix))
(with-store store
(let* ((item (add-to-store store ,base
,recursive?
"sha256" ,file))
(root (string-append "/tmp/gc-root-"
(basename item))))
;; Register a root so that the GC tests
;; don't delete those.
(symlink item root)
(add-indirect-root store root)))))
(invoke "./test-env" "guile" "-c"
(object->string code)))
(intern (assoc-ref inputs "boot-guile") #f)
@ -566,13 +577,14 @@ transactions from C or Python.")
(version "1.6.3")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/Anaconda-Platform/"
"anaconda-client/archive/" version ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/Anaconda-Platform/anaconda-client")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1wv4wi6k5jz7rlwfgvgfdizv77x3cr1wa2aj0k1595g7fbhkjhz2"))))
"0w1bfxnydjl9qp53r2gcvr6vlpdqqilcrzqxrll9sgg6vwdyiyyp"))))
(build-system python-build-system)
(propagated-inputs
`(("python-pyyaml" ,python-pyyaml)
@ -621,13 +633,14 @@ environments.")
(version "4.3.16")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/conda/conda/archive/"
version ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/conda/conda")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1jq8hyrc5npb5sf4vw6s6by4602yj8f79vzpbwdfgpkn02nfk1dv"))))
"1qwy0awx4qf2pbk8z2b7q6wdcq7mvwpxxjhg27mbirdvs5hw7hb2"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -663,6 +676,8 @@ environments.")
;; directory left when you build with the --keep-failed
;; option
(delete-file "gateways/disk/test_delete.py")
;; This file is no longer writable after downloading with 'git-fetch'
(make-file-writable "conda_env/support/saved-env/environment.yml")
#t))))
(replace 'check
(lambda _

49
gnu/packages/patches/abiword-black-drawing-with-gtk322.patch
View File

@ -1,49 +0,0 @@
commit 2ee38d1881aeea27bb49acc450631d813d1f28ba
Author: Hubert Figuière <hub@figuiere.net>
Date: Wed Dec 7 09:44:01 2016 -0500
Bug 13815 - draw event should return TRUE
This fix the black drawing regression witj Gtk3.22
diff --git a/src/af/xap/gtk/xap_UnixFrameImpl.cpp b/src/af/xap/gtk/xap_UnixFrameImpl.cpp
index 780000e..10f8e00 100644
--- a/src/af/xap/gtk/xap_UnixFrameImpl.cpp
+++ b/src/af/xap/gtk/xap_UnixFrameImpl.cpp
@@ -1208,9 +1208,9 @@ gint XAP_UnixFrameImpl::_fe::delete_event(GtkWidget * w, GdkEvent * /*event*/, g
}
#if GTK_CHECK_VERSION(3,0,0)
-gint XAP_UnixFrameImpl::_fe::draw(GtkWidget * w, cairo_t * cr)
+gboolean XAP_UnixFrameImpl::_fe::draw(GtkWidget * w, cairo_t * cr)
#else
-gint XAP_UnixFrameImpl::_fe::expose(GtkWidget * w, GdkEventExpose* pExposeEvent)
+gboolean XAP_UnixFrameImpl::_fe::expose(GtkWidget * w, GdkEventExpose* pExposeEvent)
#endif
{
XAP_UnixFrameImpl * pUnixFrameImpl = static_cast<XAP_UnixFrameImpl *>(g_object_get_data(G_OBJECT(w), "user_data"));
@@ -1243,7 +1243,7 @@ gint XAP_UnixFrameImpl::_fe::expose(GtkWidget * w, GdkEventExpose* pExposeEvent)
pView->draw(&rClip);
#endif
}
- return FALSE;
+ return TRUE;
}
static bool bScrollWait = false;
diff --git a/src/af/xap/gtk/xap_UnixFrameImpl.h b/src/af/xap/gtk/xap_UnixFrameImpl.h
index 30ee5d8..a0ff57f 100644
--- a/src/af/xap/gtk/xap_UnixFrameImpl.h
+++ b/src/af/xap/gtk/xap_UnixFrameImpl.h
@@ -152,9 +152,9 @@ protected:
static gint key_release_event(GtkWidget* w, GdkEventKey* e);
static gint delete_event(GtkWidget * w, GdkEvent * /*event*/, gpointer /*data*/);
#if GTK_CHECK_VERSION(3,0,0)
- static gint draw(GtkWidget * w, cairo_t * cr);
+ static gboolean draw(GtkWidget * w, cairo_t * cr);
#else
- static gint expose(GtkWidget * w, GdkEventExpose* pExposeEvent);
+ static gboolean expose(GtkWidget * w, GdkEventExpose* pExposeEvent);
#endif
static gint do_ZoomUpdate( gpointer /* xap_UnixFrame * */ p);
static void vScrollChanged(GtkAdjustment * w, gpointer /*data*/);

18
gnu/packages/patches/abiword-explictly-cast-bools.patch
View File

@ -13,24 +13,6 @@ casted.
}
/*
@@ -161,7 +161,7 @@ bool UT_JPEG_getDimensions(const UT_ByteBuf* pBB, UT_sint32& iImageWidth,
/* set the data source */
_JPEG_ByteBufSrc (&cinfo, pBB);
- jpeg_read_header(&cinfo, TRUE);
+ jpeg_read_header(&cinfo, (boolean)TRUE);
jpeg_start_decompress(&cinfo);
iImageWidth = cinfo.output_width;
iImageHeight = cinfo.output_height;
@@ -189,7 +189,7 @@ bool UT_JPEG_getRGBData(const UT_ByteBuf* pBB, UT_Byte* pDest, UT_sint32 iDestRo
/* set the data source */
_JPEG_ByteBufSrc (&cinfo, pBB);
- jpeg_read_header(&cinfo, TRUE);
+ jpeg_read_header(&cinfo, (boolean)TRUE);
jpeg_start_decompress(&cinfo);
int row_stride = cinfo.output_width * cinfo.output_components;
In the following file, we also need to reverse header include order: JPEG needs

31
gnu/packages/patches/appstream-glib-2020.patch 100644
View File

@ -0,0 +1,31 @@
2020 is no longer the future.
Taken from upstream:
https://github.com/hughsie/appstream-glib/commit/953c8e529d7291e60a95e580967ed79ce2c9ccf0
diff --git a/data/tests/broken.appdata.xml b/data/tests/broken.appdata.xml
index f7a5386e..cf80f5b4 100644
--- a/data/tests/broken.appdata.xml
+++ b/data/tests/broken.appdata.xml
@@ -40,7 +40,7 @@
<p>This is a duplicate release on the same day!</p>
</description>
</release>
- <release date="2020-01-01" version="0.6.2">
+ <release date="2050-01-01" version="0.6.2">
<description>
<p>This is a release in the future!</p>
</description>
diff --git a/libappstream-glib/as-app-validate.c b/libappstream-glib/as-app-validate.c
index c1103ace..f50e4e41 100644
--- a/libappstream-glib/as-app-validate.c
+++ b/libappstream-glib/as-app-validate.c
@@ -864,7 +864,7 @@ as_app_validate_release (AsApp *app,
AS_PROBLEM_KIND_ATTRIBUTE_MISSING,
"<release> has no timestamp");
}
- if (timestamp > 20120101 && timestamp < 20251231) {
+ if (timestamp > 20120101 && timestamp < 20351231) {
ai_app_validate_add (helper,
AS_PROBLEM_KIND_ATTRIBUTE_INVALID,
"<release> timestamp should be a UNIX time");

86
gnu/packages/patches/arm-trusted-firmware-optional-bin-generation.patch
View File

@ -1,86 +0,0 @@
From b02de4cb14ee9c2bfff53d36f0b7ec6a2065bc94 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Christoph=20M=C3=BCllner?= <christophm30@gmail.com>
Date: Wed, 24 Apr 2019 09:45:30 +0200
Subject: [PATCH 1/2] build_macros: Add mechanism to prevent bin generation.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
On certain platforms it does not make sense to generate
TF-A binary images. For example a platform could make use of serveral
memory areas, which are non-continuous and the resulting binary
therefore would suffer from the padding-bytes.
Typically these platforms use the ELF image.
This patch introduces a variable DISABLE_BIN_GENERATION, which
can be set to '1' in the platform makefile to prevent the binary
generation.
Signed-off-by: Christoph Müllner <christophm30@gmail.com>
Change-Id: I62948e88bab685bb055fe6167d9660d14e604462
---
docs/user-guide.rst | 4 ++++
make_helpers/build_macros.mk | 9 +++++++++
make_helpers/defaults.mk | 3 +++
3 files changed, 16 insertions(+)
diff --git a/docs/user-guide.rst b/docs/user-guide.rst
index 0848769b3..19919f112 100644
--- a/docs/user-guide.rst
+++ b/docs/user-guide.rst
@@ -369,6 +369,10 @@ Common build options
- ``DEBUG``: Chooses between a debug and release build. It can take either 0
(release) or 1 (debug) as values. 0 is the default.
+- ``DISABLE_BIN_GENERATION``: Boolean option to disable the generation
+ of the binary image. If set to 1, then only the ELF image is built.
+ 0 is the default.
+
- ``DYN_DISABLE_AUTH``: Provides the capability to dynamically disable Trusted
Board Boot authentication at runtime. This option is meant to be enabled only
for development platforms. ``TRUSTED_BOARD_BOOT`` flag must be set if this
diff --git a/make_helpers/build_macros.mk b/make_helpers/build_macros.mk
index 5d33954ad..2d41b2db1 100644
--- a/make_helpers/build_macros.mk
+++ b/make_helpers/build_macros.mk
@@ -438,6 +438,11 @@ else
--script $(LINKERFILE) $(BUILD_DIR)/build_message.o \
$(OBJS) $(LDPATHS) $(LIBWRAPPER) $(LDLIBS) $(BL_LIBS)
endif
+ifeq ($(DISABLE_BIN_GENERATION),1)
+ @${ECHO_BLANK_LINE}
+ @echo "Built $$@ successfully"
+ @${ECHO_BLANK_LINE}
+endif
$(DUMP): $(ELF)
$${ECHO} " OD $$@"
@@ -451,7 +456,11 @@ $(BIN): $(ELF)
@${ECHO_BLANK_LINE}
.PHONY: bl$(1)
+ifeq ($(DISABLE_BIN_GENERATION),1)
+bl$(1): $(ELF) $(DUMP)
+else
bl$(1): $(BIN) $(DUMP)
+endif
all: bl$(1)
diff --git a/make_helpers/defaults.mk b/make_helpers/defaults.mk
index be84f7791..dc797ed1f 100644
--- a/make_helpers/defaults.mk
+++ b/make_helpers/defaults.mk
@@ -62,6 +62,9 @@ DEBUG := 0
# Build platform
DEFAULT_PLAT := fvp
+# Disable the generation of the binary image (ELF only).
+DISABLE_BIN_GENERATION := 0
+
# Enable capability to disable authentication dynamically. Only meant for
# development platforms.
DYN_DISABLE_AUTH := 0
--
2.20.1

73
gnu/packages/patches/arm-trusted-firmware-rockchip-disable-binary.patch
View File

@ -1,73 +0,0 @@
From 42383dcf7db5debb9e183c7c5631974a4c2f91ea Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Christoph=20M=C3=BCllner?= <christophm30@gmail.com>
Date: Wed, 24 Apr 2019 09:52:54 +0200
Subject: [PATCH 2/2] rockchip: Disable binary generation for all SoCs.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
All supported Rockchip SoCs (RK3288, RK3328, RK3368 and RK3399)
have non-continuous memory areas in the linker script with a huge
gap between them. This results in extremely padded binary images
with a size of about 4 GiB.
E.g. on the RK3399 we have the following memory areas (and base addresses):
RAM (0x1000), SRAM (0xFF8C0000), and PMUSRAM (0xFF3B0000).
Consumers of the TF-A project (e.g. coreboot or U-Boot) therefore
use the ELF image instead, which has a size of a few hundred kBs.
In order to prevent the generation of a huge and useless file,
this patch disables the binary generation for all affected Rockchip
SoCs.
Signed-off-by: Christoph Müllner <christophm30@gmail.com>
Change-Id: I4ac65bdf1e598c3e1a59507897d183aee9a36916
---
plat/rockchip/rk3328/platform.mk | 2 ++
plat/rockchip/rk3368/platform.mk | 2 ++
plat/rockchip/rk3399/platform.mk | 2 ++
3 files changed, 6 insertions(+)
diff --git a/plat/rockchip/rk3328/platform.mk b/plat/rockchip/rk3328/platform.mk
index 18b1b9419..01c5af6a2 100644
--- a/plat/rockchip/rk3328/platform.mk
+++ b/plat/rockchip/rk3328/platform.mk
@@ -8,6 +8,8 @@ RK_PLAT := plat/rockchip
RK_PLAT_SOC := ${RK_PLAT}/${PLAT}
RK_PLAT_COMMON := ${RK_PLAT}/common
+DISABLE_BIN_GENERATION := 1
+
include lib/libfdt/libfdt.mk
PLAT_INCLUDES := -Idrivers/arm/gic/common/ \
diff --git a/plat/rockchip/rk3368/platform.mk b/plat/rockchip/rk3368/platform.mk
index d1315fc58..4ec36ce06 100644
--- a/plat/rockchip/rk3368/platform.mk
+++ b/plat/rockchip/rk3368/platform.mk
@@ -8,6 +8,8 @@ RK_PLAT := plat/rockchip
RK_PLAT_SOC := ${RK_PLAT}/${PLAT}
RK_PLAT_COMMON := ${RK_PLAT}/common
+DISABLE_BIN_GENERATION := 1
+
include lib/libfdt/libfdt.mk
PLAT_INCLUDES := -I${RK_PLAT_COMMON}/ \
diff --git a/plat/rockchip/rk3399/platform.mk b/plat/rockchip/rk3399/platform.mk
index 101359856..25c498da8 100644
--- a/plat/rockchip/rk3399/platform.mk
+++ b/plat/rockchip/rk3399/platform.mk
@@ -8,6 +8,8 @@ RK_PLAT := plat/rockchip
RK_PLAT_SOC := ${RK_PLAT}/${PLAT}
RK_PLAT_COMMON := ${RK_PLAT}/common
+DISABLE_BIN_GENERATION := 1
+
include lib/libfdt/libfdt.mk
PLAT_INCLUDES := -I${RK_PLAT_COMMON}/ \
--
2.20.1

81
gnu/packages/patches/ceph-boost-compat.patch 100644
View File

@ -0,0 +1,81 @@
Fix compatibility with Boost 1.70.
Adapted for 14.2.5 from these upstream commits:
https://github.com/ceph/ceph/commit/064f142746ae97f54865069cdacf5aae2b1b14f6
https://github.com/ceph/ceph/commit/f1651b8c509d60787d10c4115e29fecfd2da237c
diff --git a/src/rgw/rgw_asio_frontend.cc b/src/rgw/rgw_asio_frontend.cc
--- a/src/rgw/rgw_asio_frontend.cc
+++ b/src/rgw/rgw_asio_frontend.cc
@@ -83,7 +83,8 @@
using SharedMutex = ceph::async::SharedMutex<boost::asio::io_context::executor_type>;
template <typename Stream>
-void handle_connection(RGWProcessEnv& env, Stream& stream,
+void handle_connection(boost::asio::io_context& context,
+ RGWProcessEnv& env, Stream& stream,
parse_buffer& buffer, bool is_ssl,
SharedMutex& pause_mutex,
rgw::dmclock::Scheduler *scheduler,
@@ -160,7 +161,7 @@
rgw::io::add_conlen_controlling(
&real_client))));
RGWRestfulIO client(cct, &real_client_io);
- auto y = optional_yield{socket.get_io_context(), yield};
+ auto y = optional_yield{context, yield};
process_request(env.store, env.rest, &req, env.uri_prefix,
*env.auth_registry, &client, env.olog, y, scheduler);
}
@@ -604,7 +605,7 @@
return;
}
buffer->consume(bytes);
- handle_connection(env, stream, *buffer, true, pause_mutex,
+ handle_connection(context, env, stream, *buffer, true, pause_mutex,
scheduler.get(), ec, yield);
if (!ec) {
// ssl shutdown (ignoring errors)
@@ -622,7 +623,7 @@
auto c = connections.add(conn);
auto buffer = std::make_unique<parse_buffer>();
boost::system::error_code ec;
- handle_connection(env, s, *buffer, false, pause_mutex,
+ handle_connection(context, env, s, *buffer, false, pause_mutex,
scheduler.get(), ec, yield);
s.shutdown(tcp::socket::shutdown_both, ec);
});
diff --git a/src/rgw/rgw_dmclock_async_scheduler.h b/src/rgw/rgw_dmclock_async_scheduler.h
--- a/src/rgw/rgw_dmclock_async_scheduler.h
+++ b/src/rgw/rgw_dmclock_async_scheduler.h
@@ -82,7 +82,12 @@ class AsyncScheduler : public md_config_obs_t, public Scheduler {
using Completion = async::Completion<Signature, async::AsBase<Request>>;
using Clock = ceph::coarse_real_clock;
+#if BOOST_VERSION < 107000
using Timer = boost::asio::basic_waitable_timer<Clock>;
+#else
+ using Timer = boost::asio::basic_waitable_timer<Clock,
+ boost::asio::wait_traits<Clock>, executor_type>;
+#endif
Timer timer; //< timer for the next scheduled request
CephContext *const cct;
diff --git a/src/rgw/rgw_reshard.h b/src/rgw/rgw_reshard.h
--- a/src/rgw/rgw_reshard.h
+++ b/src/rgw/rgw_reshard.h
@@ -183,7 +183,14 @@ class RGWReshardWait {
ceph::condition_variable cond;
struct Waiter : boost::intrusive::list_base_hook<> {
- boost::asio::basic_waitable_timer<Clock> timer;
+#if BOOST_VERSION < 107000
+ using Timer = boost::asio::basic_waitable_timer<Clock>;
+#else
+ using Executor = boost::asio::io_context::executor_type;
+ using Timer = boost::asio::basic_waitable_timer<Clock,
+ boost::asio::wait_traits<Clock>, Executor>;
+#endif
+ Timer timer;
explicit Waiter(boost::asio::io_context& ioc) : timer(ioc) {}
};
boost::intrusive::list<Waiter> waiters;

24
gnu/packages/patches/ceph-detect-rocksdb.patch
View File

@ -1,24 +0,0 @@
Help the build system find system RocksDB.
Taken from this upstream commit:
https://github.com/ceph/ceph/commit/2ac26bd0e01fd6c82bd59936cf25c25173f7775a
diff --git a/cmake/modules/Findrocksdb.cmake b/cmake/modules/Findrocksdb.cmake
index f8369f73fc..5926647348 100644
--- a/cmake/modules/Findrocksdb.cmake
+++ b/cmake/modules/Findrocksdb.cmake
@@ -15,11 +15,11 @@ find_library(ROCKSDB_LIBRARIES rocksdb)
if(ROCKSDB_INCLUDE_DIR AND EXISTS "${ROCKSDB_INCLUDE_DIR}/rocksdb/version.h")
foreach(ver "MAJOR" "MINOR" "PATCH")
- file(STRINGS "${ROCKSDB_INCLUDE_DIR}/version.h" ROCKSDB_VER_${ver}_LINE
+ file(STRINGS "${ROCKSDB_INCLUDE_DIR}/rocksdb/version.h" ROCKSDB_VER_${ver}_LINE
REGEX "^#define[ \t]+ROCKSDB_${ver}[ \t]+[0-9]+$")
string(REGEX REPLACE "^#define[ \t]+ROCKSDB_${ver}[ \t]+([0-9]+)$"
- "\\1" ROCKSDB_VERSION_${ver} "${ROCKDB_VER_${ver}_LINE}")
- unset(${ROCKDB_VER_${ver}_LINE})
+ "\\1" ROCKSDB_VERSION_${ver} "${ROCKSDB_VER_${ver}_LINE}")
+ unset(${ROCKSDB_VER_${ver}_LINE})
endforeach()
set(ROCKSDB_VERSION_STRING
"${ROCKSDB_VERSION_MAJOR}.${ROCKSDB_VERSION_MINOR}.${ROCKSDB_VERSION_PATCH}")

24
gnu/packages/patches/ceph-skip-collect-sys-info-test.patch
View File

@ -1,24 +0,0 @@
This test fails because /etc/os-release is not available.
diff --git a/src/test/common/test_util.cc b/src/test/common/test_util.cc
index 64eace923c..6daf4aa514 100644
--- a/src/test/common/test_util.cc
+++ b/src/test/common/test_util.cc
@@ -32,17 +32,3 @@ TEST(util, unit_to_bytesize)
ASSERT_EQ(65536ll, unit_to_bytesize(" 64K", &cerr));
}
-#if defined(__linux__)
-TEST(util, collect_sys_info)
-{
- map<string, string> sys_info;
-
- CephContext *cct = (new CephContext(CEPH_ENTITY_TYPE_CLIENT))->get();
- collect_sys_info(&sys_info, cct);
-
- ASSERT_TRUE(sys_info.find("distro") != sys_info.end());
- ASSERT_TRUE(sys_info.find("distro_description") != sys_info.end());
-
- cct->put();
-}
-#endif

24
gnu/packages/patches/ceph-skip-unittest_blockdev.patch
View File

@ -1,24 +0,0 @@
This test tries to walk a sysfs path and hits a null pointer exception.
/tmp/guix-build-ceph-12.0.0.drv-0/ceph-12.0.0/src/test/common/test_blkdev.cc:32: Failure
Expected: (dir) != (nullptr), actual: NULL vs 8-byte object <00-00 00-00 00-00 00-00>
diff --git a/src/test/common/CMakeLists.txt b/src/test/common/CMakeLists.txt
--- a/src/test/common/CMakeLists.txt
+++ b/src/test/common/CMakeLists.txt
@@ -12,15 +12,6 @@
${CMAKE_DL_LIBS}
)
-if(HAVE_BLKID)
- # unittest_blkdev
- add_executable(unittest_blkdev
- test_blkdev.cc
- )
- add_ceph_unittest(unittest_blkdev)
- target_link_libraries(unittest_blkdev ceph-common ${BLKID_LIBRARIES})
-endif()
-
# unittest_bloom_filter
add_executable(unittest_bloom_filter
test_bloom_filter.cc

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