guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

Merge branch 'master' into staging

Browse source
This commit is contained in:
Marius Bakke 2020-01-21 21:34:41 +01:00
commit 715110a8a2
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
189 changed files with 7687 additions and 2495 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
.mailmap
View file

@ -6,6 +6,7 @@ Al McElrath <hello@yrns.org> <hello@atonesir.com>
Alex Sassmannshausen <alex@pompo.co> <alex.sassmannshausen@gmail.com>
Alexander I. Grafov <grafov@gmail.com>
Alírio Eyng <alirioeyng@gmail.com>
Amin Bandali <mab@gnu.org> <bandali@gnu.org>
Amirouche Boubekki <amirouche@hypermove.net>
Andreas Enge <andreas@enge.fr> <andreas.enge@inria.fr>
Andreas Enge <andreas@enge.fr> <privat@xobs-novena>

3
build-aux/git-authenticate.scm
View file

@ -59,7 +59,8 @@
("arunisaac"
"7F73 0343 F2F0 9F3C 77BF 79D3 2E25 EE8B 6180 2BB3")
("atheia"
"3B12 9196 AE30 0C3C 0E90 A26F A715 5567 3271 9948")
;; primary: "3B12 9196 AE30 0C3C 0E90 A26F A715 5567 3271 9948"
"9A2B 401E D001 0650 1584 BAAC 8BC4 F447 6E8A 8E00")
("bavier"
;; primary: "34FF 38BC D151 25A6 E340 A0B5 3453 2F9F AFCA 8B8E"
"A0C5 E352 2EF8 EF5C 64CD B7F0 FD73 CAC7 19D3 2566")

2
configure.ac
View file

@ -93,7 +93,7 @@ m4_pattern_forbid([^GUIX_])
dnl Search for 'guile' and 'guild'. This macro defines
dnl 'GUILE_EFFECTIVE_VERSION'.
GUILE_PKG([2.2])
GUILE_PKG([3.0 2.2])
GUILE_PROGS
if test "x$GUILD" = "x"; then
AC_MSG_ERROR(['guild' binary not found; please check your guile-2.x installation.])

2
doc/contributing.texi
View file

@ -240,7 +240,7 @@ that it finds source files from your checkout:
To actually edit the code, Emacs already has a neat Scheme mode. But in
addition to that, you must not miss
@url{http://www.emacswiki.org/emacs/ParEdit, Paredit}. It provides
@url{https://www.emacswiki.org/emacs/ParEdit, Paredit}. It provides
facilities to directly operate on the syntax tree, such as raising an
s-expression or wrapping it, swallowing or rejecting the following
s-expression, etc.

10
doc/guix-cookbook.texi
View file

@ -1139,14 +1139,10 @@ For the other build systems, such as ASDF, Emacs, Perl, Ruby and many more, the
process is very similar to the GNU build system except for a few specialized
arguments.
Learn more about build systems in
@itemize
@item
@uref{https://www.gnu.org/software/guix/manual/en/html_node/Build-Systems.html#Build-Systems, the manual, section 4.2 Build systems},
@item
the source code in the @samp{$GUIX_CHECKOUT/guix/build} and
@xref{Build Systems,,, guix, GNU Guix Reference Manual}, for more
information on build systems, or check the source code in the
@samp{$GUIX_CHECKOUT/guix/build} and
@samp{$GUIX_CHECKOUT/guix/build-system} directories.
@end itemize
@node Programmable and automated package definition
@subsection Programmable and automated package definition

106
doc/guix.texi
View file

@ -70,6 +70,8 @@ Copyright @copyright{} 2019 Kyle Andrews@*
Copyright @copyright{} 2019 Alex Griffin@*
Copyright @copyright{} 2019 Guillaume Le Vaillant@*
Copyright @copyright{} 2020 Leo Prikler@*
Copyright @copyright{} 2019, 2020 Simon Tournier@*
Copyright @copyright{} 2020 Wiktor Żelazny@*
Permission is granted to copy, distribute and/or modify this document
under the terms of the GNU Free Documentation License, Version 1.3 or
@ -743,7 +745,8 @@ GNU Guix is available for download from its website at
GNU Guix depends on the following packages:
@itemize
@item @url{https://gnu.org/software/guile/, GNU Guile}, version 2.2.x;
@item @url{https://gnu.org/software/guile/, GNU Guile}, version 3.0.x or
2.2.x;
@item @url{https://notabug.org/cwebber/guile-gcrypt, Guile-Gcrypt}, version
0.1.0 or later;
@item
@ -1095,7 +1098,7 @@ similar file. It can be converted to the OpenSSH format using
@command{lsh-export-key} (@pxref{Converting keys,,, lsh, LSH Manual}):
@example
$ lsh-export-key --openssh < /etc/lsh/host-key.pub
$ lsh-export-key --openssh < /etc/lsh/host-key.pub
ssh-rsa AAAAB3NzaC1yc2EAAAAEOp8FoQAAAQEAs1eB46LV@dots{}
@end example
@ -2002,6 +2005,8 @@ Access to @file{/dev/srX} usually requires root privileges.
Once this is done, you should be able to reboot the system and boot from
the USB stick or DVD. The latter usually requires you to get in the
BIOS or UEFI boot menu, where you can choose to boot from the USB stick.
In order to boot from Libreboot, switch to the command mode by pressing
the @kbd{c} key and type @command{search_grub usb}.
@xref{Installing Guix in a VM}, if, instead, you would like to install
Guix System in a virtual machine (VM).
@ -5929,12 +5934,12 @@ Guile Reference Manual}). The value of these arguments is usually
evaluated in the @dfn{build stratum}---i.e., by a Guile process launched
by the daemon (@pxref{Derivations}).
The main build system is @var{gnu-build-system}, which implements the
The main build system is @code{gnu-build-system}, which implements the
standard build procedure for GNU and many other packages. It
is provided by the @code{(guix build-system gnu)} module.
@defvr {Scheme Variable} gnu-build-system
@var{gnu-build-system} represents the GNU Build System, and variants
@code{gnu-build-system} represents the GNU Build System, and variants
thereof (@pxref{Configuration, configuration and makefile conventions,,
standards, GNU Coding Standards}).
@ -5987,8 +5992,8 @@ is false), copying them to the @code{debug} output when available
@vindex %standard-phases
The build-side module @code{(guix build gnu-build-system)} defines
@var{%standard-phases} as the default list of build phases.
@var{%standard-phases} is a list of symbol/procedure pairs, where the
@code{%standard-phases} as the default list of build phases.
@code{%standard-phases} is a list of symbol/procedure pairs, where the
procedure implements the actual phase.
The list of phases used for a particular package can be changed with the
@ -6011,7 +6016,7 @@ have to mention them.
Other @code{<build-system>} objects are defined to support other
conventions and tools used by free software packages. They inherit most
of @var{gnu-build-system}, and differ mainly in the set of inputs
of @code{gnu-build-system}, and differ mainly in the set of inputs
implicitly added to the build process, and in the list of phases
executed. Some of these build systems are listed below.
@ -6031,9 +6036,9 @@ build file @file{build.xml} with tasks to build the specified jar
archive. In this case the parameter @code{#:source-dir} can be used to
specify the source sub-directory, defaulting to ``src''.
The @code{#:main-class} parameter can be used with the minimal ant
buildfile to specify the main class of the resulting jar. This makes the
jar file executable. The @code{#:test-include} parameter can be used to
The @code{#:main-class} parameter can be used with the minimal ant
buildfile to specify the main class of the resulting jar. This makes the
jar file executable. The @code{#:test-include} parameter can be used to
specify the list of junit tests to run. It defaults to
@code{(list "**/*Test.java")}. The @code{#:test-exclude} can be used to
disable some tests. It defaults to @code{(list "**/Abstract*.java")},
@ -6159,7 +6164,7 @@ parameters, respectively. Compile directory and main class can be specified
with the @code{#:compile-dir} and @code{#:main-class} parameters, respectively.
Other parameters are documented below.
This build system is an extension of @var{ant-build-system}, but with the
This build system is an extension of @code{ant-build-system}, but with the
following phases changed:
@table @code
@ -6192,7 +6197,7 @@ Apart from the above, this build system also contains an additional phase:
@item install-doc
This phase installs all top-level files with base name matching
@var{%doc-regex}. A different regex can be specified with the
@code{%doc-regex}. A different regex can be specified with the
@code{#:doc-regex} parameter. All files (recursively) inside the documentation
directories specified in @code{#:doc-dirs} are installed as well.
@end table
@ -6269,7 +6274,7 @@ This variable is exported by @code{(guix build-system glib-or-gtk)}. It
is intended for use with packages making use of GLib or GTK+.
This build system adds the following two phases to the ones defined by
@var{gnu-build-system}:
@code{gnu-build-system}:
@table @code
@item glib-or-gtk-wrap
@ -6443,7 +6448,7 @@ This variable is exported by @code{(guix build-system qt)}. It
is intended for use with applications using Qt or KDE.
This build system adds the phase @code{qt-wrap} to the ones defined by
@var{cmake-build-system}, after the @code{install} phase.
@code{cmake-build-system}, after the @code{install} phase.
This phase searches for Qt5 plugin paths, QML paths and some XDG in the inputs
and output. In case some path is found, all programs in the output's
@ -6583,7 +6588,7 @@ This variable is exported by @code{(guix build-system emacs)}. It
implements an installation procedure similar to the packaging system
of Emacs itself (@pxref{Packages,,, emacs, The GNU Emacs Manual}).
It first creates the @code{@var{package}-autoloads.el} file, then it
It first creates the @code{@code{package}-autoloads.el} file, then it
byte compiles all Emacs Lisp files. Differently from the Emacs
packaging system, the Info documentation files are moved to the standard
documentation directory and the @file{dir} file is deleted. Each
@ -6610,7 +6615,7 @@ and @code{#:ninja} if needed. The default Meson is
@code{meson-for-build}, which is special because it doesn't clear the
@code{RUNPATH} of binaries and libraries when they are installed.
This build system is an extension of @var{gnu-build-system}, but with the
This build system is an extension of @code{gnu-build-system}, but with the
following phases changed to some specific for Meson:
@table @code
@ -6655,10 +6660,10 @@ is not enabled by default. It can be enabled with @code{#:glib-or-gtk?}.
@end defvr
@defvr {Scheme Variable} linux-module-build-system
@var{linux-module-build-system} allows building Linux kernel modules.
@code{linux-module-build-system} allows building Linux kernel modules.
@cindex build phases
This build system is an extension of @var{gnu-build-system}, but with the
This build system is an extension of @code{gnu-build-system}, but with the
following phases changed:
@table @code
@ -7995,6 +8000,18 @@ Accept connections on localhost on port 37146.
@item --listen=unix:/tmp/socket
Accept connections on the Unix-domain socket @file{/tmp/socket}.
@end table
@item --load-path=@var{directory}
@itemx -L @var{directory}
Add @var{directory} to the front of the package module search path
(@pxref{Package Modules}).
This allows users to define their own packages and make them visible to
the command-line tool.
@item -q
Inhibit loading of the @file{~/.guile} file. By default, that
configuration file is loaded when spawning a @code{guile} REPL.
@end table
@c *********************************************************************
@ -8705,6 +8722,10 @@ have created your own packages on @code{GUIX_PACKAGE_PATH}
recipes. In other cases, you will be able to examine the read-only recipes
for packages currently in the store.
Instead of @code{GUIX_PACKAGE_PATH}, the command-line option
@code{--load-path=@var{directory}} (or in short @code{-L
@var{directory}}) allows you to add @var{directory} to the front of the
package module search path and so make your own packages visible.
@node Invoking guix download
@section Invoking @command{guix download}
@ -9552,6 +9573,13 @@ the user whether to download it or not. This is the default behavior.
@item --key-server=@var{host}
Use @var{host} as the OpenPGP key server when importing a public key.
@item --load-path=@var{directory}
Add @var{directory} to the front of the package module search path
(@pxref{Package Modules}).
This allows users to define their own packages and make them visible to
the command-line tools.
@end table
The @code{github} updater uses the
@ -9837,6 +9865,13 @@ the case, @command{guix size} fails as it tries to load it.
@itemx -s @var{system}
Consider packages for @var{system}---e.g., @code{x86_64-linux}.
@item --load-path=@var{directory}
@itemx -L @var{directory}
Add @var{directory} to the front of the package module search path
(@pxref{Package Modules}).
This allows users to define their own packages and make them visible to
the command-line tools.
@end table
@node Invoking guix graph
@ -10038,6 +10073,14 @@ Display the graph for @var{system}---e.g., @code{i686-linux}.
The package dependency graph is largely architecture-independent, but there
are some architecture-dependent bits that this option allows you to visualize.
@item --load-path=@var{directory}
@itemx -L @var{directory}
Add @var{directory} to the front of the package module search path
(@pxref{Package Modules}).
This allows users to define their own packages and make them visible to
the command-line tools.
@end table
On top of that, @command{guix graph} supports all the usual package
@ -15802,6 +15845,13 @@ this application is allowed location info access. An empty users list
means that all users are allowed.
@end deffn
@cindex scanner access
@deffn {Scheme Procedure} sane-service-type
This service provides access to scanners @i{via}
@uref{http://www.sane-project.org, SANE} by installing the necessary udev
rules.
@end deffn
@defvr {Scheme Variable} %standard-geoclue-applications
The standard list of well-known GeoClue application configurations,
granting authority to the GNOME date-and-time utility to ask for the
@ -17672,21 +17722,21 @@ Defaults to @samp{"SimpleIMAPSSLRetriever"}.
@end deftypevr
@deftypevr {@code{getmail-retriever-configuration} parameter} string server
Space separated list of arguments to the userdb driver.
Username to login to the mail server with.
Defaults to @samp{unset}.
@end deftypevr
@deftypevr {@code{getmail-retriever-configuration} parameter} string username
Space separated list of arguments to the userdb driver.
Username to login to the mail server with.
Defaults to @samp{unset}.
@end deftypevr
@deftypevr {@code{getmail-retriever-configuration} parameter} non-negative-integer port
Space separated list of arguments to the userdb driver.
Port number to connect to.
Defaults to @samp{#f}.
@ -17707,28 +17757,28 @@ Defaults to @samp{()}.
@end deftypevr
@deftypevr {@code{getmail-retriever-configuration} parameter} string keyfile
PEM-formatted key file to use for the TLS negotiation
PEM-formatted key file to use for the TLS negotiation.
Defaults to @samp{""}.
@end deftypevr
@deftypevr {@code{getmail-retriever-configuration} parameter} string certfile
PEM-formatted certificate file to use for the TLS negotiation
PEM-formatted certificate file to use for the TLS negotiation.
Defaults to @samp{""}.
@end deftypevr
@deftypevr {@code{getmail-retriever-configuration} parameter} string ca-certs
CA certificates to use
CA certificates to use.
Defaults to @samp{""}.
@end deftypevr
@deftypevr {@code{getmail-retriever-configuration} parameter} parameter-alist extra-parameters
Extra retriever parameters
Extra retriever parameters.
Defaults to @samp{()}.
@ -17859,7 +17909,7 @@ Defaults to @samp{""}.
If true, getmail will record a log of its actions using the system
logger.
Defaults to @samp{#t}.
Defaults to @samp{#f}.
@end deftypevr
@ -17868,7 +17918,7 @@ If true, getmail will log information about messages not retrieved and
the reason for not retrieving them, as well as starting and ending
information lines.
Defaults to @samp{#t}.
Defaults to @samp{#f}.
@end deftypevr
@ -26098,7 +26148,7 @@ 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")
+ ("tty2" . (file-append
+ font-tamzen

21
etc/guix-install.sh
View file

@ -393,6 +393,26 @@ sys_authorize_build_farms()
done
}
sys_create_init_profile()
{ # Create /etc/profile.d/guix.sh for better desktop integration
cat <<"EOF" > /etc/profile.d/guix.sh
# _GUIX_PROFILE: `guix pull` profile
_GUIX_PROFILE="$HOME/.config/guix/current"
[ -L $_GUIX_PROFILE ] && export PATH="$_GUIX_PROFILE/bin${PATH:+:}$PATH"
# GUIX_PROFILE: User's default profile
GUIX_PROFILE="$HOME/.guix-profile"
[ -L $GUIX_PROFILE ] || return
GUIX_LOCPATH="$GUIX_PROFILE/lib/locale"
export GUIX_PROFILE GUIX_LOCPATH
eval `guix package --search-paths=prefix 2> /dev/null`
# set XDG_DATA_DIRS to include Guix installations
export XDG_DATA_DIRS="$GUIX_PROFILE/share${XDG_DATA_DIRS:+:}$XDG_DATA_DIRS"
EOF
}
welcome()
{
cat<<"EOF"
@ -449,6 +469,7 @@ main()
sys_create_build_user
sys_enable_guix_daemon
sys_authorize_build_farms
sys_create_init_profile
_msg "${INF}cleaning up ${tmp_path}"
rm -r "${tmp_path}"

8
gnu/installer/newt/final.scm
View file

@ -1,6 +1,6 @@
;;; 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, 2020 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -36,7 +36,7 @@
(string-drop file (string-length prefix))
file))
(define (run-config-display-page)
(define* (run-config-display-page #:key locale)
(let ((width (%configuration-file-width))
(height (nearest-exact-integer
(/ (screen-rows) 2))))
@ -50,6 +50,8 @@ This will take a few minutes.")
(strip-prefix (%installer-configuration-file)))
#:title (G_ "Configuration file")
#:file (%installer-configuration-file)
#:edit-button? #t
#:editor-locale locale
#:info-textbox-width width
#:file-textbox-width width
#:file-textbox-height height
@ -95,7 +97,7 @@ last step, or restart the installer.")))
(with-mounted-partitions
user-partitions
(configuration->file configuration)
(run-config-display-page)
(run-config-display-page #:locale locale)
(run-install-shell locale #:users users))))
(if install-ok?
(run-install-success-page)

129
gnu/installer/newt/page.scm
View file

@ -1,6 +1,6 @@
;;; 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, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
@ -107,7 +107,7 @@ input box, such as FLAG-PASSWORD."
(list GRID-ELEMENT-COMPONENT input-visible-cb)
'())))
GRID-ELEMENT-COMPONENT ok-button))
(form (make-form)))
(form (make-form #:flags FLAG-NOF12)))
(add-component-callback
input-visible-cb
@ -181,7 +181,7 @@ of the page is set to TITLE."
(horizontal-stacked-grid
GRID-ELEMENT-COMPONENT ok-button
GRID-ELEMENT-COMPONENT exit-button)))
(form (make-form)))
(form (make-form #:flags FLAG-NOF12)))
(add-form-to-grid grid form #t)
(make-wrapped-grid-window grid title)
@ -315,7 +315,7 @@ the current listbox item has to be selected by key."
(if listbox-allow-multiple?
FLAG-MULTIPLE
0))))
(form (make-form))
(form (make-form #:flags FLAG-NOF12))
(info-textbox
(make-reflowed-textbox -1 -1 info-text
info-textbox-width
@ -516,7 +516,7 @@ ITEMS when 'Ok' is pressed."
GRID-ELEMENT-COMPONENT ok-button
GRID-ELEMENT-COMPONENT exit-button)))
(keys (fill-checkbox-tree checkbox-tree items))
(form (make-form)))
(form (make-form #:flags FLAG-NOF12)))
(add-form-to-grid grid form #t)
(make-wrapped-grid-window grid title)
@ -541,6 +541,17 @@ ITEMS when 'Ok' is pressed."
(lambda ()
(destroy-form-and-pop form))))))
(define* (edit-file file #:key locale)
"Spawn an editor for FILE."
(clear-screen)
(newt-suspend)
;; Use Nano because it syntax-highlights Scheme by default.
;; TODO: Add a menu to choose an editor?
(run-shell-command (string-append "/run/current-system/profile/bin/nano "
file)
#:locale locale)
(newt-resume))
(define* (run-file-textbox-page #:key
info-text
title
@ -549,55 +560,71 @@ ITEMS when 'Ok' is pressed."
(file-textbox-width 50)
(file-textbox-height 30)
(exit-button? #t)
(edit-button? #f)
(editor-locale #f)
(ok-button-callback-procedure
(const #t))
(exit-button-callback-procedure
(const #t)))
(let* ((info-textbox
(make-reflowed-textbox -1 -1 info-text
info-textbox-width
#:flags FLAG-BORDER))
(file-text (read-all file))
(file-textbox
(make-textbox -1 -1
file-textbox-width
file-textbox-height
(logior FLAG-SCROLL FLAG-BORDER)))
(ok-button (make-button -1 -1 (G_ "OK")))
(exit-button (make-button -1 -1 (G_ "Exit")))
(grid (vertically-stacked-grid
GRID-ELEMENT-COMPONENT info-textbox
GRID-ELEMENT-COMPONENT file-textbox
GRID-ELEMENT-SUBGRID
(apply
horizontal-stacked-grid
GRID-ELEMENT-COMPONENT ok-button
`(,@(if exit-button?
(list GRID-ELEMENT-COMPONENT exit-button)
'())))))
(form (make-form)))
(let loop ()
(let* ((info-textbox
(make-reflowed-textbox -1 -1 info-text
info-textbox-width
#:flags FLAG-BORDER))
(file-textbox
(make-textbox -1 -1
file-textbox-width
file-textbox-height
(logior FLAG-SCROLL FLAG-BORDER)))
(ok-button (make-button -1 -1 (G_ "OK")))
(exit-button (make-button -1 -1 (G_ "Exit")))
(edit-button (and edit-button?
(make-button -1 -1 (G_ "Edit"))))
(grid (vertically-stacked-grid
GRID-ELEMENT-COMPONENT info-textbox
GRID-ELEMENT-COMPONENT file-textbox
GRID-ELEMENT-SUBGRID
(apply
horizontal-stacked-grid
GRID-ELEMENT-COMPONENT ok-button
`(,@(if edit-button?
(list GRID-ELEMENT-COMPONENT edit-button)
'())
,@(if exit-button?
(list GRID-ELEMENT-COMPONENT exit-button)
'())))))
(form (make-form #:flags FLAG-NOF12)))
(set-textbox-text file-textbox
(receive (_w _h text)
(reflow-text file-text
file-textbox-width
0 0)
text))
(add-form-to-grid grid form #t)
(make-wrapped-grid-window grid title)
(add-form-to-grid grid form #t)
(make-wrapped-grid-window grid title)
(receive (exit-reason argument)
(run-form form)
(dynamic-wind
(const #t)
(lambda ()
(case exit-reason
((exit-component)
(cond
((components=? argument ok-button)
(ok-button-callback-procedure))
((and exit-button?
(components=? argument exit-button))
(exit-button-callback-procedure))))))
(lambda ()
(destroy-form-and-pop form))))))
(set-textbox-text file-textbox
(receive (_w _h text)
(reflow-text (read-all file)
file-textbox-width
0 0)
text))
(receive (exit-reason argument)
(run-form form)
(define result
(dynamic-wind
(const #t)
(lambda ()
(case exit-reason
((exit-component)
(cond
((components=? argument ok-button)
(ok-button-callback-procedure))
((and exit-button?
(components=? argument exit-button))
(exit-button-callback-procedure))
((and edit-button?
(components=? argument edit-button))
(edit-file file))))))
(lambda ()
(destroy-form-and-pop form))))
(if (components=? argument edit-button)
(loop) ;recurse in tail position
result)))))

18
gnu/local.mk
View file

@ -12,7 +12,7 @@
# Copyright © 2016, 2017, 2018, 2019 Alex Vong <alexvong1995@gmail.com>
# Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
# Copyright © 2016, 2017, 2018, 2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
# 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 Mathieu Othacehe <m.othacehe@gmail.com>
# Copyright © 2017, 2018, 2019 Gábor Boskovits <boskovits@gmail.com>
@ -25,7 +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>
# Copyright © 2019 Amin Bandali <mab@gnu.org>
#
# This file is part of GNU Guix.
#
@ -367,6 +367,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/nim.scm \
%D%/packages/ninja.scm \
%D%/packages/node.scm \
%D%/packages/node-xyz.scm \
%D%/packages/noweb.scm \
%D%/packages/nss.scm \
%D%/packages/ntp.scm \
@ -426,6 +427,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/ragel.scm \
%D%/packages/rails.scm \
%D%/packages/ratpoison.scm \
%D%/packages/rcm.scm \
%D%/packages/rdesktop.scm \
%D%/packages/rdf.scm \
%D%/packages/re2c.scm \
@ -449,6 +451,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/scsi.scm \
%D%/packages/sdcc.scm \
%D%/packages/sdl.scm \
%D%/packages/sdr.scm \
%D%/packages/search.scm \
%D%/packages/security-token.scm \
%D%/packages/selinux.scm \
@ -981,6 +984,7 @@ dist_patch_DATA = \
%D%/packages/patches/gtkglext-disable-disable-deprecated.patch \
%D%/packages/patches/gtksourceview-2-add-default-directory.patch \
%D%/packages/patches/gzdoom-search-in-installed-share.patch \
%D%/packages/patches/gzdoom-find-system-libgme.patch \
%D%/packages/patches/haskell-mode-unused-variables.patch \
%D%/packages/patches/haskell-mode-make-check.patch \
%D%/packages/patches/hdf4-architectures.patch \
@ -1316,6 +1320,8 @@ dist_patch_DATA = \
%D%/packages/patches/python-libxml2-utf8.patch \
%D%/packages/patches/python-mox3-python3.6-compat.patch \
%D%/packages/patches/python-testtools.patch \
%D%/packages/patches/python-packaging-test-arch.patch \
%D%/packages/patches/python2-parameterized-docstring-test.patch \
%D%/packages/patches/python-paste-remove-timing-test.patch \
%D%/packages/patches/python-pycrypto-CVE-2013-7459.patch \
%D%/packages/patches/python2-pygobject-2-gi-info-type-error-domain.patch \
@ -1343,7 +1349,6 @@ dist_patch_DATA = \
%D%/packages/patches/rct-add-missing-headers.patch \
%D%/packages/patches/readline-link-ncurses.patch \
%D%/packages/patches/readline-6.2-CVE-2014-2524.patch \
%D%/packages/patches/red-eclipse-remove-gamma-name-hack.patch \
%D%/packages/patches/reposurgeon-add-missing-docbook-files.patch \
%D%/packages/patches/ri-li-modernize_cpp.patch \
%D%/packages/patches/ripperx-missing-file.patch \
@ -1381,8 +1386,8 @@ dist_patch_DATA = \
%D%/packages/patches/snappy-add-O2-flag-in-CmakeLists.txt.patch \
%D%/packages/patches/sooperlooper-build-with-wx-30.patch \
%D%/packages/patches/soundconverter-remove-gconf-dependency.patch \
%D%/packages/patches/spice-fix-test-armhf.patch \
%D%/packages/patches/steghide-fixes.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 \
%D%/packages/patches/superlu-dist-scotchmetis.patch \
@ -1404,7 +1409,6 @@ dist_patch_DATA = \
%D%/packages/patches/tcsh-fix-autotest.patch \
%D%/packages/patches/tcsh-fix-out-of-bounds-read.patch \
%D%/packages/patches/teensy-loader-cli-help.patch \
%D%/packages/patches/teeworlds-use-latest-wavpack.patch \
%D%/packages/patches/texinfo-5-perl-compat.patch \
%D%/packages/patches/texlive-bin-CVE-2018-17407.patch \
%D%/packages/patches/texlive-bin-luatex-poppler-compat.patch \
@ -1441,7 +1445,6 @@ dist_patch_DATA = \
%D%/packages/patches/util-linux-tests.patch \
%D%/packages/patches/upower-builddir.patch \
%D%/packages/patches/upx-fix-CVE-2017-15056.patch \
%D%/packages/patches/usb-modeswitch-accept-config-arg.patch \
%D%/packages/patches/valgrind-enable-arm.patch \
%D%/packages/patches/vboot-utils-fix-format-load-address.patch \
%D%/packages/patches/vboot-utils-fix-tests-show-contents.patch \
@ -1479,6 +1482,9 @@ dist_patch_DATA = \
%D%/packages/patches/xf86-video-voodoo-pcitag.patch \
%D%/packages/patches/xfce4-panel-plugins.patch \
%D%/packages/patches/xfce4-settings-defaults.patch \
%D%/packages/patches/xmoto-utf8.patch \
%D%/packages/patches/xmoto-remove-glext.patch \
%D%/packages/patches/xmoto-reproducible.patch \
%D%/packages/patches/xsane-fix-memory-leak.patch \
%D%/packages/patches/xsane-fix-pdf-floats.patch \
%D%/packages/patches/xsane-fix-snprintf-buffer-length.patch \

3
gnu/packages.scm
View file

@ -369,6 +369,9 @@ VERSION."
(string=? (package-version p) highest))
matches))))))
;; Prevent Guile 3 from inlining this procedure so we can mock it in tests.
(set! find-best-packages-by-name find-best-packages-by-name)
(define (generate-package-cache directory)
"Generate under DIRECTORY a cache of all the available packages.

76
gnu/packages/audio.scm
View file

@ -2249,24 +2249,22 @@ background file post-processing.")
(define-public supercollider
(package
(name "supercollider")
(version "3.10.3")
(version "3.10.4")
(source (origin
(method url-fetch)
(uri (string-append
"https://github.com/supercollider/supercollider"
"/releases/download/Version-" version
"/SuperCollider-" version "-Source-linux.tar.bz2"))
(patches
(search-patches "supercollider-boost-1.70-build-fix.patch"))
(sha256
(base32
"0srm6wbazidkrd4ckjy4ypyhkdwcnx2i7k9msjyngalh0mrc9zz1"))))
"0x11g3pfw11m6v18qfpfl5w99dbmf73g4z7wvwhrj1a4qv2dn084"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags '("-DSYSTEM_BOOST=on" "-DSYSTEM_YAMLCPP=on"
"-DSC_QT=off"
"-DSC_EL=off") ;scel is packaged individually as
;emacs-scel.
;emacs-scel
#:modules ((guix build utils)
(guix build cmake-build-system)
(ice-9 ftw))
@ -2275,8 +2273,7 @@ background file post-processing.")
(add-after 'unpack 'rm-bundled-libs
(lambda _
;; The build system doesn't allow us to unbundle the following
;; libraries. hidapi is also heavily patched and upstream not
;; actively maintained.
;; libraries. hidapi is also heavily patched.
(let ((keep-dirs '("nova-simd" "nova-tt" "hidapi" "TLSF-2.4.6"
"oscpack_1_1_0" "." "..")))
(with-directory-excursion "./external_libraries"
@ -2621,7 +2618,7 @@ disks as various audio file formats.")
`(("libsndfile" ,libsndfile)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "http://vamp-plugins.org")
(home-page "https://vamp-plugins.org")
(synopsis "Modular and extensible audio processing system")
(description
"Vamp is an audio processing plugin system for plugins that extract
@ -3577,52 +3574,41 @@ the following features:
(define-public cli-visualizer
(package
(name "cli-visualizer")
(version "1.6")
(version "1.8")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/dpayne/cli-visualizer.git")
(commit version)))
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0mirp8bk398di5xyq95iprmdyvplfghxqmrfj7jdnpy554vx7ppc"))))
(build-system gnu-build-system)
(base32 "003mbbwsz43mg3d7llphpypqa9g7rs1p1cdbqi1mbc2bfrc1gcq2"))))
(build-system cmake-build-system)
(native-inputs
`(("which" ,which)))
;; TODO: Try using the latest googletest for versions > 1.8.
`( ;; ("googletest" ,googletest-1.8)
("which" ,which)))
(inputs
`(("fftw" ,fftw)
;; TODO: Try using the latest googletest for versions > 1.6.
("googletest" ,googletest-1.8)
("ncurses" ,ncurses)
("pulseaudio" ,pulseaudio)))
(arguments
'(#:test-target "test"
#:make-flags
(list (string-append "PREFIX=" %output "/bin/") "ENABLE_PULSE=1")
'(#:tests? #f
;; XXX Enable tests after patching them to use the system googletest.
;; #:configure-flags (list "-DVIS_WITH_TESTS=true")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'remove-sudo
(lambda _
(substitute* "install.sh" (("sudo") ""))
#t))
(add-before 'check 'set-check-environment
(lambda _
(setenv "CXX" "g++")
(setenv "CC" "gcc")
#t))
(add-before 'install 'make-prefix
(lambda _
(mkdir-p (string-append (assoc-ref %outputs "out") "/bin"))
#t))
(add-after 'install 'data
(lambda _
(for-each (lambda (file)
(install-file file
(string-append (assoc-ref %outputs "out")
"/share/doc")))
(find-files "examples"))
(add-after 'install 'install-examples
(lambda* (#:key outputs #:allow-other-keys)
(with-directory-excursion "../source/examples"
(delete-file "mac_osx_config")
(for-each (lambda (file)
(install-file file
(string-append
(assoc-ref outputs "out")
"/share/doc")))
(find-files ".")))
#t)))))
(home-page "https://github.com/dpayne/cli-visualizer/")
(synopsis "Command-line audio visualizer")
@ -3988,17 +3974,17 @@ default and preferred audio driver but also supports native drivers like ALSA.")
(define-public ecasound
(package
(name "ecasound")
(version "2.9.2")
(version "2.9.3")
(source (origin
(method url-fetch)
(uri (string-append "http://nosignal.fi/download/ecasound-"
(uri (string-append "https://nosignal.fi/download/ecasound-"
version ".tar.gz"))
(sha256
(base32 "15rcs28fq2wfvfs66p5na7adq88b55qszbhshpizgdbyqzgr2jf1"))))
(base32 "1m7njfjdb7sqf0lhgc4swihgdr4snkg8v02wcly08wb5ar2fr2s6"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
;; would be nice to add mikmod to inputs if that gets packaged
;; eventually
;; It would be nice to add mikmod to inputs if that gets packaged
;; eventually.
(inputs `(("alsa-lib" ,alsa-lib)
("jack" ,jack-1)
("mpg123" ,mpg123)
@ -4012,7 +3998,7 @@ default and preferred audio driver but also supports native drivers like ALSA.")
("ncurses" ,ncurses)
("ladspa" ,ladspa)
("lilv" ,lilv)))
(home-page "http://nosignal.fi/ecasound/index.php")
(home-page "https://nosignal.fi/ecasound/index.php")
(synopsis "Multitrack audio processing")
(description "Ecasound is a software package designed for multitrack audio
processing. It can be used for simple tasks like audio playback, recording and

12
gnu/packages/aux-files/linux-libre/4.14-arm.conf
View file

@ -8344,9 +8344,19 @@ CONFIG_LIBFDT=y
CONFIG_OID_REGISTRY=y
CONFIG_UCS2_STRING=y
CONFIG_FONT_SUPPORT=y
# CONFIG_FONTS is not set
CONFIG_FONTS=y
CONFIG_FONT_8x8=y
CONFIG_FONT_8x16=y
# CONFIG_FONT_6x11 is not set
# CONFIG_FONT_7x14 is not set
# CONFIG_FONT_PEARL_8x8 is not set
# CONFIG_FONT_ACORN_8x8 is not set
# CONFIG_FONT_MINI_4x6 is not set
CONFIG_FONT_6x10=y
# CONFIG_FONT_10x18 is not set
# CONFIG_FONT_SUN8x16 is not set
# CONFIG_FONT_SUN12x22 is not set
CONFIG_FONT_TER16x32=y
CONFIG_SG_SPLIT=y
CONFIG_SG_POOL=y
CONFIG_ARCH_HAS_SG_CHAIN=y

12
gnu/packages/aux-files/linux-libre/4.14-i686.conf
View file

@ -9514,9 +9514,19 @@ CONFIG_SIGNATURE=y
CONFIG_OID_REGISTRY=y
CONFIG_UCS2_STRING=y
CONFIG_FONT_SUPPORT=y
# CONFIG_FONTS is not set
CONFIG_FONTS=y
CONFIG_FONT_8x8=y
CONFIG_FONT_8x16=y
# CONFIG_FONT_6x11 is not set
# CONFIG_FONT_7x14 is not set
# CONFIG_FONT_PEARL_8x8 is not set
# CONFIG_FONT_ACORN_8x8 is not set
# CONFIG_FONT_MINI_4x6 is not set
CONFIG_FONT_6x10=y
# CONFIG_FONT_10x18 is not set
# CONFIG_FONT_SUN8x16 is not set
# CONFIG_FONT_SUN12x22 is not set
CONFIG_FONT_TER16x32=y
# CONFIG_SG_SPLIT is not set
CONFIG_SG_POOL=y
CONFIG_ARCH_HAS_SG_CHAIN=y

12
gnu/packages/aux-files/linux-libre/4.14-x86_64.conf
View file

@ -9386,9 +9386,19 @@ CONFIG_SIGNATURE=y
CONFIG_OID_REGISTRY=y
CONFIG_UCS2_STRING=y
CONFIG_FONT_SUPPORT=y
# CONFIG_FONTS is not set
CONFIG_FONTS=y
CONFIG_FONT_8x8=y
CONFIG_FONT_8x16=y
# CONFIG_FONT_6x11 is not set
# CONFIG_FONT_7x14 is not set
# CONFIG_FONT_PEARL_8x8 is not set
# CONFIG_FONT_ACORN_8x8 is not set
# CONFIG_FONT_MINI_4x6 is not set
CONFIG_FONT_6x10=y
# CONFIG_FONT_10x18 is not set
# CONFIG_FONT_SUN8x16 is not set
# CONFIG_FONT_SUN12x22 is not set
CONFIG_FONT_TER16x32=y
# CONFIG_SG_SPLIT is not set
CONFIG_SG_POOL=y
CONFIG_ARCH_HAS_SG_CHAIN=y

12
gnu/packages/aux-files/linux-libre/4.19-arm.conf
View file

@ -8353,9 +8353,19 @@ CONFIG_LIBFDT=y
CONFIG_OID_REGISTRY=y
CONFIG_UCS2_STRING=y
CONFIG_FONT_SUPPORT=y
# CONFIG_FONTS is not set
CONFIG_FONTS=y
CONFIG_FONT_8x8=y
CONFIG_FONT_8x16=y
# CONFIG_FONT_6x11 is not set
# CONFIG_FONT_7x14 is not set
# CONFIG_FONT_PEARL_8x8 is not set
# CONFIG_FONT_ACORN_8x8 is not set
# CONFIG_FONT_MINI_4x6 is not set
CONFIG_FONT_6x10=y
# CONFIG_FONT_10x18 is not set
# CONFIG_FONT_SUN8x16 is not set
# CONFIG_FONT_SUN12x22 is not set
CONFIG_FONT_TER16x32=y
CONFIG_SG_SPLIT=y
CONFIG_SG_POOL=y
CONFIG_ARCH_HAS_SG_CHAIN=y

12
gnu/packages/aux-files/linux-libre/4.19-arm64.conf
View file

@ -8090,9 +8090,19 @@ CONFIG_LIBFDT=y
CONFIG_OID_REGISTRY=y
CONFIG_UCS2_STRING=y
CONFIG_FONT_SUPPORT=y
# CONFIG_FONTS is not set
CONFIG_FONTS=y
CONFIG_FONT_8x8=y
CONFIG_FONT_8x16=y
# CONFIG_FONT_6x11 is not set
# CONFIG_FONT_7x14 is not set
# CONFIG_FONT_PEARL_8x8 is not set
# CONFIG_FONT_ACORN_8x8 is not set
# CONFIG_FONT_MINI_4x6 is not set
CONFIG_FONT_6x10=y
# CONFIG_FONT_10x18 is not set
# CONFIG_FONT_SUN8x16 is not set
# CONFIG_FONT_SUN12x22 is not set
CONFIG_FONT_TER16x32=y
CONFIG_SG_SPLIT=y
CONFIG_SG_POOL=y
CONFIG_ARCH_HAS_SG_CHAIN=y

12
gnu/packages/aux-files/linux-libre/4.19-i686.conf
View file

@ -9435,9 +9435,19 @@ CONFIG_SIGNATURE=y
CONFIG_OID_REGISTRY=y
CONFIG_UCS2_STRING=y
CONFIG_FONT_SUPPORT=y
# CONFIG_FONTS is not set
CONFIG_FONTS=y
CONFIG_FONT_8x8=y
CONFIG_FONT_8x16=y
# CONFIG_FONT_6x11 is not set
# CONFIG_FONT_7x14 is not set
# CONFIG_FONT_PEARL_8x8 is not set
# CONFIG_FONT_ACORN_8x8 is not set
# CONFIG_FONT_MINI_4x6 is not set
CONFIG_FONT_6x10=y
# CONFIG_FONT_10x18 is not set
# CONFIG_FONT_SUN8x16 is not set
# CONFIG_FONT_SUN12x22 is not set
CONFIG_FONT_TER16x32=y
CONFIG_SG_POOL=y
CONFIG_ARCH_HAS_SG_CHAIN=y
CONFIG_SBITMAP=y

12
gnu/packages/aux-files/linux-libre/4.19-x86_64.conf
View file

@ -9327,9 +9327,19 @@ CONFIG_SIGNATURE=y
CONFIG_OID_REGISTRY=y
CONFIG_UCS2_STRING=y
CONFIG_FONT_SUPPORT=y
# CONFIG_FONTS is not set
CONFIG_FONTS=y
CONFIG_FONT_8x8=y
CONFIG_FONT_8x16=y
# CONFIG_FONT_6x11 is not set
# CONFIG_FONT_7x14 is not set
# CONFIG_FONT_PEARL_8x8 is not set
# CONFIG_FONT_ACORN_8x8 is not set
# CONFIG_FONT_MINI_4x6 is not set
CONFIG_FONT_6x10=y
# CONFIG_FONT_10x18 is not set
# CONFIG_FONT_SUN8x16 is not set
# CONFIG_FONT_SUN12x22 is not set
CONFIG_FONT_TER16x32=y
CONFIG_SG_POOL=y
CONFIG_ARCH_HAS_SG_CHAIN=y
CONFIG_ARCH_HAS_PMEM_API=y

12
gnu/packages/aux-files/linux-libre/4.4-i686.conf
View file

@ -8612,9 +8612,19 @@ CONFIG_SIGNATURE=y
CONFIG_OID_REGISTRY=y
CONFIG_UCS2_STRING=y
CONFIG_FONT_SUPPORT=y
# CONFIG_FONTS is not set
CONFIG_FONTS=y
CONFIG_FONT_8x8=y
CONFIG_FONT_8x16=y
# CONFIG_FONT_6x11 is not set
# CONFIG_FONT_7x14 is not set
# CONFIG_FONT_PEARL_8x8 is not set
# CONFIG_FONT_ACORN_8x8 is not set
# CONFIG_FONT_MINI_4x6 is not set
CONFIG_FONT_6x10=y
# CONFIG_FONT_10x18 is not set
# CONFIG_FONT_SUN8x16 is not set
# CONFIG_FONT_SUN12x22 is not set
CONFIG_FONT_TER16x32=y
# CONFIG_SG_SPLIT is not set
CONFIG_ARCH_HAS_SG_CHAIN=y
CONFIG_ARCH_HAS_MMIO_FLUSH=y

12
gnu/packages/aux-files/linux-libre/4.4-x86_64.conf
View file

@ -8418,9 +8418,19 @@ CONFIG_SIGNATURE=y
CONFIG_OID_REGISTRY=y
CONFIG_UCS2_STRING=y
CONFIG_FONT_SUPPORT=y
# CONFIG_FONTS is not set
CONFIG_FONTS=y
CONFIG_FONT_8x8=y
CONFIG_FONT_8x16=y
# CONFIG_FONT_6x11 is not set
# CONFIG_FONT_7x14 is not set
# CONFIG_FONT_PEARL_8x8 is not set
# CONFIG_FONT_ACORN_8x8 is not set
# CONFIG_FONT_MINI_4x6 is not set
CONFIG_FONT_6x10=y
# CONFIG_FONT_10x18 is not set
# CONFIG_FONT_SUN8x16 is not set
# CONFIG_FONT_SUN12x22 is not set
CONFIG_FONT_TER16x32=y
# CONFIG_SG_SPLIT is not set
CONFIG_ARCH_HAS_SG_CHAIN=y
CONFIG_ARCH_HAS_PMEM_API=y

12
gnu/packages/aux-files/linux-libre/4.9-i686.conf
View file

@ -9040,9 +9040,19 @@ CONFIG_SIGNATURE=y
CONFIG_OID_REGISTRY=y
CONFIG_UCS2_STRING=y
CONFIG_FONT_SUPPORT=y
# CONFIG_FONTS is not set
CONFIG_FONTS=y
CONFIG_FONT_8x8=y
CONFIG_FONT_8x16=y
# CONFIG_FONT_6x11 is not set
# CONFIG_FONT_7x14 is not set
# CONFIG_FONT_PEARL_8x8 is not set
# CONFIG_FONT_ACORN_8x8 is not set
# CONFIG_FONT_MINI_4x6 is not set
CONFIG_FONT_6x10=y
# CONFIG_FONT_10x18 is not set
# CONFIG_FONT_SUN8x16 is not set
# CONFIG_FONT_SUN12x22 is not set
CONFIG_FONT_TER16x32=y
# CONFIG_SG_SPLIT is not set
CONFIG_SG_POOL=y
CONFIG_ARCH_HAS_SG_CHAIN=y

12
gnu/packages/aux-files/linux-libre/4.9-x86_64.conf
View file

@ -8885,9 +8885,19 @@ CONFIG_SIGNATURE=y
CONFIG_OID_REGISTRY=y
CONFIG_UCS2_STRING=y
CONFIG_FONT_SUPPORT=y
# CONFIG_FONTS is not set
CONFIG_FONTS=y
CONFIG_FONT_8x8=y
CONFIG_FONT_8x16=y
# CONFIG_FONT_6x11 is not set
# CONFIG_FONT_7x14 is not set
# CONFIG_FONT_PEARL_8x8 is not set
# CONFIG_FONT_ACORN_8x8 is not set
# CONFIG_FONT_MINI_4x6 is not set
CONFIG_FONT_6x10=y
# CONFIG_FONT_10x18 is not set
# CONFIG_FONT_SUN8x16 is not set
# CONFIG_FONT_SUN12x22 is not set
CONFIG_FONT_TER16x32=y
# CONFIG_SG_SPLIT is not set
CONFIG_SG_POOL=y
CONFIG_ARCH_HAS_SG_CHAIN=y

12
gnu/packages/aux-files/linux-libre/5.4-arm-veyron.conf
View file

@ -4814,9 +4814,19 @@ CONFIG_MPILIB=y
CONFIG_LIBFDT=y
CONFIG_OID_REGISTRY=y
CONFIG_FONT_SUPPORT=y
# CONFIG_FONTS is not set
CONFIG_FONTS=y
CONFIG_FONT_8x8=y
CONFIG_FONT_8x16=y
# CONFIG_FONT_6x11 is not set
# CONFIG_FONT_7x14 is not set
# CONFIG_FONT_PEARL_8x8 is not set
# CONFIG_FONT_ACORN_8x8 is not set
# CONFIG_FONT_MINI_4x6 is not set
CONFIG_FONT_6x10=y
# CONFIG_FONT_10x18 is not set
# CONFIG_FONT_SUN8x16 is not set
# CONFIG_FONT_SUN12x22 is not set
CONFIG_FONT_TER16x32=y
CONFIG_SG_POOL=y
CONFIG_SBITMAP=y
# CONFIG_STRING_SELFTEST is not set

12
gnu/packages/aux-files/linux-libre/5.4-arm.conf
View file

@ -9106,9 +9106,19 @@ CONFIG_LIBFDT=y
CONFIG_OID_REGISTRY=y
CONFIG_UCS2_STRING=y
CONFIG_FONT_SUPPORT=y
# CONFIG_FONTS is not set
CONFIG_FONTS=y
CONFIG_FONT_8x8=y
CONFIG_FONT_8x16=y
# CONFIG_FONT_6x11 is not set
# CONFIG_FONT_7x14 is not set
# CONFIG_FONT_PEARL_8x8 is not set
# CONFIG_FONT_ACORN_8x8 is not set
# CONFIG_FONT_MINI_4x6 is not set
CONFIG_FONT_6x10=y
# CONFIG_FONT_10x18 is not set
# CONFIG_FONT_SUN8x16 is not set
# CONFIG_FONT_SUN12x22 is not set
CONFIG_FONT_TER16x32=y
CONFIG_SG_SPLIT=y
CONFIG_SG_POOL=y
CONFIG_SBITMAP=y

12
gnu/packages/aux-files/linux-libre/5.4-arm64.conf
View file

@ -9069,9 +9069,19 @@ CONFIG_UCS2_STRING=y
CONFIG_HAVE_GENERIC_VDSO=y
CONFIG_GENERIC_GETTIMEOFDAY=y
CONFIG_FONT_SUPPORT=y
# CONFIG_FONTS is not set
CONFIG_FONTS=y
CONFIG_FONT_8x8=y
CONFIG_FONT_8x16=y
# CONFIG_FONT_6x11 is not set
# CONFIG_FONT_7x14 is not set
# CONFIG_FONT_PEARL_8x8 is not set
# CONFIG_FONT_ACORN_8x8 is not set
# CONFIG_FONT_MINI_4x6 is not set
CONFIG_FONT_6x10=y
# CONFIG_FONT_10x18 is not set
# CONFIG_FONT_SUN8x16 is not set
# CONFIG_FONT_SUN12x22 is not set
CONFIG_FONT_TER16x32=y
CONFIG_SG_SPLIT=y
CONFIG_SG_POOL=y
CONFIG_ARCH_HAS_PMEM_API=y

12
gnu/packages/aux-files/linux-libre/5.4-i686.conf
View file

@ -10010,9 +10010,19 @@ CONFIG_HAVE_GENERIC_VDSO=y
CONFIG_GENERIC_GETTIMEOFDAY=y
CONFIG_GENERIC_VDSO_32=y
CONFIG_FONT_SUPPORT=y
# CONFIG_FONTS is not set
CONFIG_FONTS=y
CONFIG_FONT_8x8=y
CONFIG_FONT_8x16=y
# CONFIG_FONT_6x11 is not set
# CONFIG_FONT_7x14 is not set
# CONFIG_FONT_PEARL_8x8 is not set
# CONFIG_FONT_ACORN_8x8 is not set
# CONFIG_FONT_MINI_4x6 is not set
CONFIG_FONT_6x10=y
# CONFIG_FONT_10x18 is not set
# CONFIG_FONT_SUN8x16 is not set
# CONFIG_FONT_SUN12x22 is not set
CONFIG_FONT_TER16x32=y
CONFIG_SG_POOL=y
CONFIG_ARCH_STACKWALK=y
CONFIG_SBITMAP=y

12
gnu/packages/aux-files/linux-libre/5.4-x86_64.conf
View file

@ -9954,9 +9954,19 @@ CONFIG_UCS2_STRING=y
CONFIG_HAVE_GENERIC_VDSO=y
CONFIG_GENERIC_GETTIMEOFDAY=y
CONFIG_FONT_SUPPORT=y
# CONFIG_FONTS is not set
CONFIG_FONTS=y
CONFIG_FONT_8x8=y
CONFIG_FONT_8x16=y
# CONFIG_FONT_6x11 is not set
# CONFIG_FONT_7x14 is not set
# CONFIG_FONT_PEARL_8x8 is not set
# CONFIG_FONT_ACORN_8x8 is not set
# CONFIG_FONT_MINI_4x6 is not set
CONFIG_FONT_6x10=y
# CONFIG_FONT_10x18 is not set
# CONFIG_FONT_SUN8x16 is not set
# CONFIG_FONT_SUN12x22 is not set
CONFIG_FONT_TER16x32=y
CONFIG_SG_POOL=y
CONFIG_ARCH_HAS_PMEM_API=y
CONFIG_ARCH_HAS_UACCESS_FLUSHCACHE=y

2
gnu/packages/avahi.scm
View file

@ -36,7 +36,7 @@
(name "avahi")
(version "0.7")
(replacement avahi/fixed)
(home-page "http://avahi.org")
(home-page "https://avahi.org")
(source (origin
(method url-fetch)
(uri (string-append home-page "/download/avahi-"

54
gnu/packages/bioconductor.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017, 2018 Roel Janssen <roel@gnu.org>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Simon Tournier <zimon.toutoune@gmail.com>
@ -297,7 +297,7 @@ provided by UCSC (mm9, July 2007) and stored in Biostrings objects.")
`(("r-bsgenome" ,r-bsgenome)
("r-bsgenome-mmusculus-ucsc-mm9"
,r-bsgenome-mmusculus-ucsc-mm9)))
(home-page "http://bioconductor.org/packages/BSgenome.Mmusculus.UCSC.mm9.masked/")
(home-page "https://bioconductor.org/packages/BSgenome.Mmusculus.UCSC.mm9.masked/")
(synopsis "Full masked genome sequences for Mouse")
(description
"This package provides full genome sequences for Mus musculus (Mouse) as
@ -1053,14 +1053,14 @@ problems in CEL-level data to help evaluate performance of quality metrics.")
(define-public r-affycoretools
(package
(name "r-affycoretools")
(version "1.58.3")
(version "1.58.4")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "affycoretools" version))
(sha256
(base32
"12r9ljkp3xix0xq8d1488c8wb3a4whb805v48ynmv985bs3phc71"))))
"1p283ysib04qzaayxmrpsmk5bq0jdq2rlky180jrlskpyg6risfw"))))
(properties `((upstream-name . "affycoretools")))
(build-system r-build-system)
(propagated-inputs
@ -1071,6 +1071,7 @@ problems in CEL-level data to help evaluate performance of quality metrics.")
("r-dbi" ,r-dbi)
("r-edger" ,r-edger)
("r-gcrma" ,r-gcrma)
("r-glimma" ,r-glimma)
("r-ggplot2" ,r-ggplot2)
("r-gostats" ,r-gostats)
("r-gplots" ,r-gplots)
@ -1165,14 +1166,14 @@ the Human Protein Atlas project.")
(define-public r-regioner
(package
(name "r-regioner")
(version "1.18.0")
(version "1.18.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "regioneR" version))
(sha256
(base32
"0m073hrqp62zpd2blnqm5ka539hcilir05m8av14vdhzhjzp13ya"))))
"0if7r6njz3ahm545383z5mzmzw8fdvw80a9lfz160j5pcgpx2dq9"))))
(properties `((upstream-name . "regioneR")))
(build-system r-build-system)
(propagated-inputs
@ -1399,7 +1400,7 @@ problems in genomics, brain imaging, astrophysics, and data mining.")
("r-s4vectors" ,r-s4vectors)
("r-summarizedexperiment" ,r-summarizedexperiment)
("r-systempiper" ,r-systempiper)))
(home-page "http://bioconductor.org/packages/DiffBind")
(home-page "https://bioconductor.org/packages/DiffBind")
(synopsis "Differential binding analysis of ChIP-Seq peak data")
(description
"This package computes differentially bound sites from multiple
@ -1428,7 +1429,7 @@ occupancy (overlap) analysis and plotting functions.")
("r-rsamtools" ,r-rsamtools)
("r-genomicalignments" ,r-genomicalignments)
("r-rtracklayer" ,r-rtracklayer)))
(home-page "http://bioconductor.org/packages/RIPSeeker")
(home-page "https://bioconductor.org/packages/RIPSeeker")
(synopsis
"Identifying protein-associated transcripts from RIP-seq experiments")
(description
@ -1457,7 +1458,7 @@ processing to visualization and annotation.")
("r-biocgenerics" ,r-biocgenerics)
("r-biobase" ,r-biobase)
("r-mass" ,r-mass)))
(home-page "http://bioconductor.org/packages/multtest")
(home-page "https://bioconductor.org/packages/multtest")
(synopsis "Resampling-based multiple hypothesis testing")
(description
"This package can do non-parametric bootstrap and permutation
@ -1568,7 +1569,7 @@ determining dependencies between variables, code improvement suggestions.")
("r-seqinr" ,r-seqinr)
("r-summarizedexperiment" ,r-summarizedexperiment)
("r-venndiagram" ,r-venndiagram)))
(home-page "http://bioconductor.org/packages/ChIPpeakAnno")
(home-page "https://bioconductor.org/packages/ChIPpeakAnno")
(synopsis "Peaks annotation from ChIP-seq and ChIP-chip experiments")
(description
"The package includes functions to retrieve the sequences around the peak,
@ -1593,7 +1594,7 @@ enrichedGO (addGeneIDs).")
(build-system r-build-system)
(propagated-inputs
`(("r-limma" ,r-limma)))
(home-page "http://bioconductor.org/packages/marray")
(home-page "https://bioconductor.org/packages/marray")
(synopsis "Exploratory analysis for two-color spotted microarray data")
(description "This package contains class definitions for two-color spotted
microarray data. It also includes functions for data input, diagnostic plots,
@ -1614,7 +1615,7 @@ normalization and quality checking.")
(propagated-inputs
`(("r-biobase" ,r-biobase)
("r-marray" ,r-marray)))
(home-page "http://bioconductor.org/packages/CGHbase")
(home-page "https://bioconductor.org/packages/CGHbase")
(synopsis "Base functions and classes for arrayCGH data analysis")
(description "This package contains functions and classes that are needed by
the @code{arrayCGH} packages.")
@ -1637,7 +1638,7 @@ the @code{arrayCGH} packages.")
("r-impute" ,r-impute)
("r-dnacopy" ,r-dnacopy)
("r-snowfall" ,r-snowfall)))
(home-page "http://bioconductor.org/packages/CGHcall")
(home-page "https://bioconductor.org/packages/CGHcall")
(synopsis "Base functions and classes for arrayCGH data analysis")
(description "This package contains functions and classes that are needed by
@code{arrayCGH} packages.")
@ -1666,7 +1667,7 @@ the @code{arrayCGH} packages.")
("r-matrixstats" ,r-matrixstats)
("r-r-utils" ,r-r-utils)
("r-rsamtools" ,r-rsamtools)))
(home-page "http://bioconductor.org/packages/QDNAseq")
(home-page "https://bioconductor.org/packages/QDNAseq")
(synopsis "Quantitative DNA sequencing for chromosomal aberrations")
(description "The genome is divided into non-overlapping fixed-sized bins,
number of sequence reads in each counted, adjusted with a simultaneous
@ -1999,14 +2000,14 @@ genes or proteins in these datasets.")
(define-public r-inspect
(package
(name "r-inspect")
(version "1.16.1")
(version "1.16.2")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "INSPEcT" version))
(sha256
(base32
"03cf9c94ra4f847ndlf8sn2cq1kl1055514wjq0lqbvlbfdj1dq3"))))
"1g8la7k4pnyr2hvk4yjd1bwvjy6nqbbb0fwxrrh2ifgqf4h21x2p"))))
(properties `((upstream-name . "INSPEcT")))
(build-system r-build-system)
(propagated-inputs
@ -3459,14 +3460,14 @@ All the visualization methods are developed based on ggplot2 graphics.")
(define-public r-clusterprofiler
(package
(name "r-clusterprofiler")
(version "3.14.2")
(version "3.14.3")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "clusterProfiler" version))
(sha256
(base32
"1y1l3yf1r1ykl9ngipvyzl5hbxxsfz7z5q5rcywkyss2b2b6gsg8"))))
"08pd7bmqmyxncj09ilz8yb9sf1pv9ni98y8b93pz2giy7pl407hg"))))
(properties
`((upstream-name . "clusterProfiler")))
(build-system r-build-system)
@ -3492,14 +3493,14 @@ profiles (GO and KEGG) of gene and gene clusters.")
(define-public r-mlinterfaces
(package
(name "r-mlinterfaces")
(version "1.66.0")
(version "1.66.2")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "MLInterfaces" version))
(sha256
(base32
"1vnzqd3y3jk1wgxybckzrcgwk0ly7zgcz5ki1ib0bk1jwv6xk5x8"))))
"1wc280iw9vllg6f58vsdj895yaqs8w42kl7jk8sgii009gwlaj8d"))))
(properties `((upstream-name . "MLInterfaces")))
(build-system r-build-system)
(propagated-inputs
@ -3517,7 +3518,6 @@ profiles (GO and KEGG) of gene and gene clusters.")
("r-mlbench" ,r-mlbench)
("r-pls" ,r-pls)
("r-rcolorbrewer" ,r-rcolorbrewer)
("r-rda" ,r-rda)
("r-rpart" ,r-rpart)
("r-sfsmisc" ,r-sfsmisc)
("r-shiny" ,r-shiny)
@ -5164,14 +5164,14 @@ packages.")
(define-public r-ropls
(package
(name "r-ropls")
(version "1.18.0")
(version "1.18.6")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "ropls" version))
(sha256
(base32
"05w1zrq92w3jfwq5sdyj27m5qjg4zv7acywia8vd6y5fbgcnyzlp"))))
"1sm2fmygrra9gdcs90lmk5y1ag6arga6159kggx4ij8bkhyc66vb"))))
(build-system r-build-system)
(propagated-inputs
`(("r-biobase" ,r-biobase)
@ -5586,14 +5586,14 @@ for other R packages to compile and link against.")
(define-public r-flowworkspace
(package
(name "r-flowworkspace")
(version "3.34.0")
(version "3.34.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "flowWorkspace" version))
(sha256
(base32
"0hvbkxyylsygra31l1lxyvbsr5hc50lqy1y7gwrfgrfil4a2m762"))))
"1ijbc6z9ljhrw3cqr02smgplhrfg44gzrb1dq4gbrpq3nj4khhpn"))))
(properties `((upstream-name . "flowWorkspace")))
(build-system r-build-system)
(propagated-inputs
@ -6451,14 +6451,14 @@ arrays based on fast wavelet-based functional models.")
(define-public r-variancepartition
(package
(name "r-variancepartition")
(version "1.16.0")
(version "1.16.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "variancePartition" version))
(sha256
(base32
"1ygx7f2sp4b7ilgspm6vqcbjxs7br9s6g3gwcdb978kx03ymp4i8"))))
"02pzsff14j4am2d949mh8xgi0c7k44g09q4lr6nqm08vf92brb6g"))))
(properties
`((upstream-name . "variancePartition")))
(build-system r-build-system)

115
gnu/packages/bioinformatics.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017, 2018 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2015, 2016 Pjotr Prins <pjotr.guix@thebird.nl>
;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
@ -261,7 +261,7 @@ structure of the predicted RNA.")
("coreutils" ,coreutils)))
(propagated-inputs
`(("python-numpy" ,python2-numpy)))
(home-page "http://ecogenomics.github.io/BamM/")
(home-page "https://ecogenomics.github.io/BamM/")
(synopsis "Metagenomics-focused BAM file manipulator")
(description
"BamM is a C library, wrapped in python, to efficiently generate and
@ -726,7 +726,7 @@ provides the Ribotaper pipeline.")
(native-inputs
`(("python-mock" ,python2-mock)
("python-nose" ,python2-nose)))
(home-page "http://public.bmi.inf.ethz.ch/user/zhongy/RiboDiff/")
(home-page "https://public.bmi.inf.ethz.ch/user/zhongy/RiboDiff/")
(synopsis "Detect translation efficiency changes from ribosome footprints")
(description "RiboDiff is a statistical tool that detects the protein
translational efficiency change from Ribo-Seq (ribosome footprinting) and
@ -1056,7 +1056,7 @@ provide a coordinated and extensible framework to do computational biology.")
(lambda _ (setenv "HOME" "/tmp") #t)))))
(propagated-inputs
`(("python-numpy" ,python-numpy)))
(home-page "http://biopython.org/")
(home-page "https://biopython.org/")
(synopsis "Tools for biological computation in Python")
(description
"Biopython is a set of tools for biological computation including parsers
@ -2439,7 +2439,7 @@ accessing bigWig files.")
(base32
"097hfyv2kaf4x92i4rjx0paw2cncxap48qivv8zxng4z7nhid0x9"))))
(build-system python-build-system)
(home-page "http://packages.python.org/DendroPy/")
(home-page "https://dendropy.org/")
(synopsis "Library for phylogenetics and phylogenetic computing")
(description
"DendroPy is a library for phylogenetics and phylogenetic computing: reading,
@ -2676,7 +2676,7 @@ data and settings.")
texlive-latex-pgf ; tikz
texlive-latex-verbatimbox)))
("imagemagick" ,imagemagick)))
(home-page "http://dorina.mdc-berlin.de/public/rajewsky/discrover/")
(home-page "https://dorina.mdc-berlin.de/public/rajewsky/discrover/")
(synopsis "Discover discriminative nucleotide sequence motifs")
(description "Discrover is a motif discovery method to find binding sites
of nucleic acid binding proteins.")
@ -2796,7 +2796,7 @@ quantitative phenotypes.")
("perl-www-robotrules" ,perl-www-robotrules)
("perl-xml-simple" ,perl-xml-simple)
("perl" ,perl)))
(home-page "http://www.ncbi.nlm.nih.gov/books/NBK179288/")
(home-page "https://www.ncbi.nlm.nih.gov/books/NBK179288/")
(synopsis "Tools for accessing the NCBI's set of databases")
(description
"Entrez Direct (EDirect) is a method for accessing the National Center
@ -2916,7 +2916,7 @@ ChIP-Seq, and analysis of metagenomic data.")
#t))))))
(inputs
`(("python" ,python-2)))
(home-page "http://kiwi.cs.dal.ca/Software/ExpressBetaDiversity")
(home-page "https://github.com/dparks1134/ExpressBetaDiversity")
(synopsis "Taxon- and phylogenetic-based beta diversity measures")
(description
"Express Beta Diversity (EBD) calculates ecological beta diversity
@ -3313,7 +3313,8 @@ association studies (GWAS).")
("python-networkx" ,python2-networkx)))
(native-inputs
`(("python-cython" ,python2-cython)))
(home-page "http://grit-bio.org")
;; The canonical <http://grit-bio.org> home page times out as of 2020-01-21.
(home-page "https://github.com/nboley/grit")
(synopsis "Tool for integrative analysis of RNA-seq type assays")
(description
"GRIT is designed to use RNA-seq, TES, and TSS data to build and quantify
@ -3380,7 +3381,7 @@ estimates transcript expression.")
;; Non-portable SSE instructions are used so building fails on platforms
;; other than x86_64.
(supported-systems '("x86_64-linux"))
(home-page "http://ccb.jhu.edu/software/hisat/index.shtml")
(home-page "https://ccb.jhu.edu/software/hisat/index.shtml")
(synopsis "Hierarchical indexing for spliced alignment of transcripts")
(description
"HISAT is a fast and sensitive spliced alignment program for mapping
@ -3434,7 +3435,7 @@ particular, reads spanning multiple exons.")
`(("unzip" ,unzip) ; needed for archive from ftp
("perl" ,perl)
("pandoc" ,ghc-pandoc))) ; for documentation
(home-page "http://ccb.jhu.edu/software/hisat2/index.shtml")
(home-page "https://ccb.jhu.edu/software/hisat2/index.shtml")
(synopsis "Graph-based alignment of genomic sequencing reads")
(description "HISAT2 is a fast and sensitive alignment program for mapping
next-generation sequencing reads (both DNA and RNA) to a population of human
@ -3494,7 +3495,7 @@ HMMs).")
(inputs
`(("python-pysam" ,python-pysam)
("python-matplotlib" ,python-matplotlib)))
(home-page "http://www-huber.embl.de/users/anders/HTSeq/")
(home-page "https://htseq.readthedocs.io/")
(synopsis "Analysing high-throughput sequencing data with Python")
(description
"HTSeq is a Python package that provides infrastructure to process data
@ -3969,7 +3970,7 @@ VCF.")
("java-jbzip2" ,java-jbzip2)))
(native-inputs
`(("unzip" ,unzip)))
(home-page "http://www.bioinformatics.babraham.ac.uk/projects/fastqc/")
(home-page "https://www.bioinformatics.babraham.ac.uk/projects/fastqc/")
(synopsis "Quality control tool for high throughput sequence data")
(description
"FastQC aims to provide a simple way to do some quality control
@ -4048,7 +4049,7 @@ performance.")
`(("zlib" ,zlib)))
(native-inputs
`(("perl" ,perl)))
(home-page "http://www.htslib.org")
(home-page "https://www.htslib.org")
(synopsis "C library for reading/writing high-throughput sequencing data")
(description
"HTSlib is a C library for reading/writing high-throughput sequencing
@ -4595,7 +4596,7 @@ assembled metagenomic sequence.")
;; Use setuptools, or else the executables are not
;; installed.
(("distutils.core") "setuptools")
;; use "gcc" instead of "cc" for compilation
;; Use "gcc" instead of "cc" for compilation.
(("^defines")
"cc.set_executables(
compiler='gcc',
@ -4605,8 +4606,8 @@ linker_so='gcc -shared'); defines"))
#t))))
(build-system python-build-system)
(arguments
`(#:python ,python-2 ; only Python 2 is supported
#:tests? #f)) ; no "test" target
`(#:python ,python-2 ; only Python 2 is supported
#:tests? #f)) ; no "test" target
(inputs
`(("samtools" ,samtools)
("python-numpy" ,python2-numpy)
@ -4614,9 +4615,9 @@ linker_so='gcc -shared'); defines"))
("python-scipy" ,python2-scipy)
("python-matplotlib" ,python2-matplotlib)))
(native-inputs
`(("python-mock" ,python2-mock) ;for tests
("python-pytz" ,python2-pytz))) ;for tests
(home-page "http://genes.mit.edu/burgelab/miso/index.html")
`(("python-mock" ,python2-mock) ; for tests
("python-pytz" ,python2-pytz))) ; for tests
(home-page "https://www.genes.mit.edu/burgelab/miso/index.html")
(synopsis "Mixture of Isoforms model for RNA-Seq isoform quantitation")
(description
"MISO (Mixture-of-Isoforms) is a probabilistic framework that quantitates
@ -4742,7 +4743,7 @@ interrupted by stop codons. OrfM finds and prints these ORFs.")
`(("python-nose" ,python2-nose)
("python-sphinx" ,python2-sphinx)
("python-pyxb" ,python2-pyxb)))
(home-page "http://pacificbiosciences.github.io/pbcore/")
(home-page "https://pacificbiosciences.github.io/pbcore/")
(synopsis "Library for reading and writing PacBio data files")
(description
"The pbcore package provides Python APIs for interacting with PacBio data
@ -4991,6 +4992,8 @@ different command-line tools:
(define-public prodigal
(package
(name "prodigal")
;; Check for a new home page when updating this package:
;; https://github.com/hyattpd/Prodigal/issues/36#issuecomment-536617588
(version "2.6.3")
(source (origin
(method git-fetch)
@ -5003,14 +5006,14 @@ different command-line tools:
"1fs1hqk83qjbjhrvhw6ni75zakx5ki1ayy3v6wwkn3xvahc9hi5s"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ;no check target
`(#:tests? #f ; no check target
#:make-flags (list (string-append "INSTALLDIR="
(assoc-ref %outputs "out")
"/bin"))
#:phases
(modify-phases %standard-phases
(delete 'configure))))
(home-page "http://prodigal.ornl.gov")
(home-page "https://github.com/hyattpd/Prodigal")
(synopsis "Protein-coding gene prediction for Archaea and Bacteria")
(description
"Prodigal runs smoothly on finished genomes, draft genomes, and
@ -5124,7 +5127,7 @@ partial genes, and identifies translation initiation sites.")
("r-minimal" ,r-minimal)
("r-ggplot2" ,r-ggplot2)
("coreutils" ,coreutils)))
(home-page "http://sanger-pathogens.github.io/Roary")
(home-page "https://sanger-pathogens.github.io/Roary/")
(synopsis "High speed stand-alone pan genome pipeline")
(description
"Roary is a high speed stand alone pan genome pipeline, which takes
@ -5168,7 +5171,7 @@ extremely diverse sets of genomes.")
#t)))))
(inputs
`(("openmpi" ,openmpi)))
(home-page "http://sco.h-its.org/exelixis/web/software/raxml/index.html")
(home-page "https://cme.h-its.org/exelixis/web/software/raxml/index.html")
(synopsis "Randomized Axelerated Maximum Likelihood phylogenetic trees")
(description
"RAxML is a tool for phylogenetic analysis and post-analysis of large
@ -6039,7 +6042,8 @@ sequence itself can be retrieved from these databases.")
("fuse" ,fuse)
("hdf5" ,hdf5)
("zlib" ,zlib)))
(home-page "http://www.ncbi.nlm.nih.gov/Traces/sra/sra.cgi?view=software")
(home-page
"https://trace.ncbi.nlm.nih.gov/Traces/sra/sra.cgi?view=software")
(synopsis "Tools and libraries for reading and writing sequencing data")
(description
"The SRA Toolkit from NCBI is a collection of tools and libraries for
@ -6265,7 +6269,7 @@ of these reads to align data quickly through a hash-based indexing scheme.")
#t))))))
(inputs
`(("zlib" ,zlib)))
(home-page "http://bioinfo.lifl.fr/RNA/sortmerna")
(home-page "https://bioinfo.lifl.fr/RNA/sortmerna/")
(synopsis "Biological sequence analysis tool for NGS reads")
(description
"SortMeRNA is a biological sequence analysis tool for filtering, mapping
@ -7272,13 +7276,13 @@ also known as views, in a controlled vocabulary.")
(define-public r-biocstyle
(package
(name "r-biocstyle")
(version "2.14.2")
(version "2.14.4")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "BiocStyle" version))
(sha256
(base32
"0nc1cbzp5zdwc0rss4r6v7cpgynmmnj3sczwmajr58nabkndwsvf"))))
"1x71in059zql40f4c87bd1gf96r945kdvwbq61jmch9d3d8nwxbb"))))
(properties
`((upstream-name . "BiocStyle")))
(build-system r-build-system)
@ -7345,13 +7349,13 @@ checks on R packages that are to be submitted to the Bioconductor repository.")
(define-public r-s4vectors
(package
(name "r-s4vectors")
(version "0.24.1")
(version "0.24.2")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "S4Vectors" version))
(sha256
(base32
"1rr7ml3gn83g8fbvhgvryyzlh4p3qgpwcrsz6ii4y7gh1hqxggpx"))))
"1s1h00k2ki7sd0hz4l8n41xr6ixszag7lm0ryrbb08idgcy16ipn"))))
(properties
`((upstream-name . "S4Vectors")))
(build-system r-build-system)
@ -7372,13 +7376,13 @@ S4Vectors package itself.")
(define-public r-iranges
(package
(name "r-iranges")
(version "2.20.1")
(version "2.20.2")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "IRanges" version))
(sha256
(base32
"0qssp04wfrc1r92hd3szy03n8sdz8vrqjdxa2mcrsc0k0n9bchz5"))))
"1jhnxb9yacmj2z82b6992gihjvj1a0gnjwbjiagyyx03fqnv23kg"))))
(properties
`((upstream-name . "IRanges")))
(build-system r-build-system)
@ -7783,13 +7787,13 @@ tab-delimited (tabix) files.")
(define-public r-delayedarray
(package
(name "r-delayedarray")
(version "0.12.1")
(version "0.12.2")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "DelayedArray" version))
(sha256
(base32
"1yr4i2x127v814nxg53aibp77p3vg76f3n3hgknpwx3snfhc81xs"))))
"09lackgix5jpm16k0mz2zkibflfb4wzidbz4q32mlxmklf40037q"))))
(properties
`((upstream-name . "DelayedArray")))
(build-system r-build-system)
@ -8233,7 +8237,7 @@ throughput genetic sequencing data sets using regression methods.")
(base32
"03lmvydln8b7666b6w46qbryhf83vsd11d4y2v95rfgvqgq66l1i"))))
(build-system r-build-system)
(home-page "http://rqtl.org/")
(home-page "https://rqtl.org/")
(synopsis "R package for analyzing QTL experiments in genetics")
(description "R/qtl is an extension library for the R statistics
system. It is used to analyze experimental crosses for identifying
@ -8309,7 +8313,7 @@ libraries for systems that do not have these available via other means.")
(propagated-inputs
`(("r-optparse" ,r-optparse)
("r-rcolorbrewer" ,r-rcolorbrewer)))
(home-page "http://www.e-rna.org/r-chie/index.cgi")
(home-page "https://www.e-rna.org/r-chie/index.cgi")
(synopsis "Analysis framework for RNA secondary structure")
(description
"The R4RNA package aims to be a general framework for the analysis of RNA
@ -8929,7 +8933,7 @@ replacement for strverscmp.")
(("['\"]matplotlib.*?['\"]")
"'matplotlib'"))
#t)))))
(home-page "http://multiqc.info")
(home-page "https://multiqc.info")
(synopsis "Aggregate bioinformatics analysis reports")
(description
"MultiQC is a tool to aggregate bioinformatics results across many
@ -9599,7 +9603,7 @@ classes.")
("r-locfit" ,r-locfit)
("r-mass" ,r-mass)
("r-rcolorbrewer" ,r-rcolorbrewer)))
(home-page "http://www-huber.embl.de/users/anders/DESeq")
(home-page "https://www-huber.embl.de/users/anders/DESeq/")
(synopsis "Differential gene expression analysis")
(description
"This package provides tools for estimating variance-mean dependence in
@ -9728,7 +9732,7 @@ by the user, helping with quick and reproducible access.")
("r-genomicranges" ,r-genomicranges)
("r-iranges" ,r-iranges)
("r-s4vectors" ,r-s4vectors)))
(home-page "http://www.bioinf.jku.at/software/fastseg/index.html")
(home-page "https://www.bioinf.jku.at/software/fastseg/index.html")
(synopsis "Fast segmentation algorithm for genetic sequencing data")
(description
"Fastseg implements a very fast and efficient segmentation algorithm.
@ -9780,7 +9784,8 @@ microarrays or GRanges for sequencing data.")
`(("r-annotationdbi" ,r-annotationdbi)
("r-graph" ,r-graph)
("r-keggrest" ,r-keggrest)))
(home-page "http://www.biomedcentral.com/1471-2105/10/161")
(home-page (string-append "https://bmcbioinformatics.biomedcentral.com/"
"articles/10.1186/1471-2105-10-161"))
(synopsis "Generally applicable gene-set enrichment for pathway analysis")
(description
"GAGE is a published method for gene set (enrichment or GSEA) or pathway
@ -10161,7 +10166,7 @@ the earlier snpMatrix package, allowing for uncertainty in genotypes.")
(method url-fetch)
;; We cannot use bioconductor-uri here because this tarball is
;; located under "data/annotation/" instead of "bioc/".
(uri (string-append "http://www.bioconductor.org/packages/"
(uri (string-append "https://www.bioconductor.org/packages/"
"release/data/annotation/src/contrib/"
"Homo.sapiens_"
version ".tar.gz"))
@ -10892,7 +10897,7 @@ droplet sequencing. It has been particularly tailored for Drop-seq.")
(inputs
`(("lz4" ,lz4)
("htslib" ,htslib-for-sambamba)))
(home-page "http://lomereiter.github.io/sambamba")
(home-page "https://lomereiter.github.io/sambamba/")
(synopsis "Tools for working with SAM/BAM data")
(description "Sambamba is a high performance modern robust and
fast tool (and library), written in the D programming language, for
@ -11009,7 +11014,7 @@ with narrow binding events such as transcription factor ChIP-seq.")
("cutadapt" ,cutadapt)))
(native-inputs
`(("unzip" ,unzip)))
(home-page "http://www.bioinformatics.babraham.ac.uk/projects/trim_galore/")
(home-page "https://www.bioinformatics.babraham.ac.uk/projects/trim_galore/")
(synopsis "Wrapper around Cutadapt and FastQC")
(description "Trim Galore! is a wrapper script to automate quality and
adapter trimming as well as quality control, with some added functionality to
@ -11071,7 +11076,7 @@ matplotlib.use('Agg')
("python2-numpy" ,python2-numpy)
("python2-networkx" ,python2-networkx)
("python2-biopython" ,python2-biopython)))
(home-page "http://compbio.uthscsa.edu/GESS_Web/")
(home-page "https://compbio.uthscsa.edu/GESS_Web/")
(synopsis "Detect exon-skipping events from raw RNA-seq data")
(description
"GESS is an implementation of a novel computational method to detect de
@ -11322,8 +11327,8 @@ models. TADbit is complemented by TADkit for visualizing 3D models.")
("libpng" ,libpng)
("mariadb" ,mariadb "lib")
("mariadb-dev" ,mariadb "dev")
("openssl" ,openssl)))
(home-page "http://genome.cse.ucsc.edu/index.html")
("openssl" ,openssl-1.0)))
(home-page "https://genome.cse.ucsc.edu/index.html")
(synopsis "Assorted bioinformatics utilities")
(description "This package provides the kentUtils, a selection of
bioinformatics utilities used in combination with the UCSC genome
@ -11483,7 +11488,7 @@ Browser.")
(sha256
(base32 "138mwsr4nf5qif4mrxx286mpnagxd1xwl6k8aidrjgknaqg88zyr"))))
("uglify-js" ,uglify-js)))
(home-page "http://www.bioinformatics.babraham.ac.uk/projects/bismark/")
(home-page "https://www.bioinformatics.babraham.ac.uk/projects/bismark/")
(synopsis "Map bisulfite treated sequence reads and analyze methylation")
(description "Bismark is a program to map bisulfite treated sequencing
reads to a genome of interest and perform methylation calls in a single step.
@ -11586,7 +11591,7 @@ using nucleotide or amino-acid sequence data.")
`(("hdf5" ,hdf5)
("htslib" ,htslib)
("zlib" ,zlib)))
(home-page "http://pachterlab.github.io/kallisto/")
(home-page "https://pachterlab.github.io/kallisto/")
(synopsis "Near-optimal RNA-Seq quantification")
(description
"Kallisto is a program for quantifying abundances of transcripts from
@ -11761,7 +11766,7 @@ dependency like SeqAn.")
("zlib" ,zlib)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "http://www.cs.cmu.edu/~ckingsf/software/sailfish")
(home-page "https://www.cs.cmu.edu/~ckingsf/software/sailfish/")
(synopsis "Mapping-based isoform quantification from RNA-Seq reads")
(description "Sailfish is a tool for genomic transcript quantification
from RNA-seq data. It requires a set of target transcripts (either from a
@ -13564,7 +13569,7 @@ such as Hi-C contact matrices.")
("python-six" ,python-six)
("python-tables" ,python-tables)
("python-unidecode" ,python-unidecode)))
(home-page "http://hicexplorer.readthedocs.io")
(home-page "https://hicexplorer.readthedocs.io")
(synopsis "Process, analyze and visualize Hi-C data")
(description
"HiCExplorer is a powerful and easy to use set of tools to process,
@ -14646,7 +14651,7 @@ to maximize phylogenetic likelihood or posterior probability according to a
reference alignment. Pplacer is designed to be fast, to give useful
information about uncertainty, and to offer advanced visualization and
downstream analysis.")
(home-page "http://matsen.fhcrc.org/pplacer")
(home-page "https://matsen.fhcrc.org/pplacer/")
(license license:gpl3))))
;; This package is installed alongside 'pplacer'. It is a separate package so
@ -14702,14 +14707,14 @@ downstream analysis.")
(build-system python-build-system)
(arguments
`(#:python ,python-2
#:tests? #f)) ; some tests are interactive
#:tests? #f)) ; some tests are interactive
(propagated-inputs
`(("python-dendropy" ,python2-dendropy)
("python-matplotlib" ,python2-matplotlib)
("python-numpy" ,python2-numpy)
("python-pysam" ,python2-pysam)
("python-scipy" ,python2-scipy)))
(home-page "http://pypi.python.org/pypi/checkm/")
(home-page "https://pypi.org/project/Checkm/")
(synopsis "Assess the quality of putative genome bins")
(description
"CheckM provides a set of tools for assessing the quality of genomes
@ -15361,7 +15366,7 @@ pairs.")
("r-rsamtools" ,r-rsamtools)
("r-edger" ,r-edger)
("r-igraph" ,r-igraph)))
(home-page "http://velocyto.org")
(home-page "https://velocyto.org")
(synopsis "RNA velocity estimation in R")
(description
"This package provides basic routines for estimation of gene-specific

42
gnu/packages/check.scm
View file

@ -99,6 +99,19 @@ faults or other signals. The output from unit tests can be used within
source code editors and IDEs.")
(license license:lgpl2.1+)))
;; Some packages require this older version. Removed once no longer needed.
(define-public check-0.12
(package/inherit
check
(version "0.12.0")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/libcheck/check/releases"
"/download/" version "/check-" version ".tar.gz"))
(sha256
(base32
"0d22h8xshmbpl9hba9ch3xj8vb9ybm5akpsbbh7yj07fic4h2hj6"))))))
(define-public cunit
(package
(name "cunit")
@ -567,25 +580,43 @@ but it works for any C/C++ project.")
(define-public python-parameterized
(package
(name "python-parameterized")
(version "0.6.1")
(version "0.7.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "parameterized" version))
(sha256
(base32
"1qj1939shm48d9ql6fm1nrdy4p7sdyj8clz1szh5swwpf1qqxxfa"))))
"1vapry9lyfb2mlpgk2wh9079hzxzq5120bsczncxxay663mdp53a"))))
(build-system python-build-system)
(arguments '(#:tests? #f)) ; there are no tests
(arguments
'(#:phases (modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(if tests?
(invoke "nosetests" "-v")
(format #t "test suite not run~%"))
#t)))))
(native-inputs
`(("python-mock" ,python-mock)
("python-nose" ,python-nose)))
(home-page "https://github.com/wolever/parameterized")
(synopsis "Parameterized testing with any Python test framework")
(description
"Parameterized is a Python library that aims to fix parameterized testing
for every Python test framework. It supports nose, py.test, and unittest.")
(properties `((python2-variant . ,(delay python2-parameterized))))
(license license:bsd-2)))
(define-public python2-parameterized
(package-with-python2 python-parameterized))
(let ((base (package-with-python2 (strip-python2-variant
python-parameterized))))
(package/inherit
base
(source
(origin
(inherit (package-source base))
(patches (search-patches "python2-parameterized-docstring-test.patch")))))))
(define-public python-minimock
(package
@ -1008,7 +1039,8 @@ timeout has been exceeded.")
(build-system python-build-system)
(native-inputs
`(("python-pytest" ,python-pytest)))
(home-page "http://pythonpaste.org/scripttest/")
(home-page (string-append "https://web.archive.org/web/20161029233413/"
"http://pythonpaste.org/scripttest/"))
(synopsis "Python library to test command-line scripts")
(description "Scripttest is a Python helper library for testing
interactive command-line applications. With it you can run a script in a

4
gnu/packages/chez.scm
View file

@ -77,6 +77,7 @@
(build-system gnu-build-system)
(inputs
`(("ncurses" ,ncurses)
("libuuid" ,util-linux)
("libx11" ,libx11)
("xorg-rgb" ,xorg-rgb)
("nanopass" ,nanopass)
@ -87,8 +88,7 @@
`(("texlive" ,(texlive-union (list texlive-latex-oberdiek
texlive-generic-epsf)))
("ghostscript" ,ghostscript)
("netpbm" ,netpbm)
("util-linux" ,util-linux)))
("netpbm" ,netpbm)))
(native-search-paths
(list (search-path-specification
(variable "CHEZSCHEMELIBDIRS")

42
gnu/packages/chromium.scm
View file

@ -242,9 +242,9 @@ from forcing GEXP-PROMISE."
#:system system
#:guile-for-build guile)))
(define %chromium-version "78.0.3904.108")
(define %ungoogled-revision "8f065138317a6152b20decc224027a5192ba76b1")
(define %debian-revision "e43d74632091324774a5049668782dba7b09cf72")
(define %chromium-version "79.0.3945.130")
(define %ungoogled-revision "e2fae994d786b6716fb473a47b0c880bcfdc2497")
(define %debian-revision "debian/79.0.3945.130-2")
(define package-revision "0")
(define %package-version (string-append %chromium-version "-"
package-revision "."
@ -258,7 +258,7 @@ from forcing GEXP-PROMISE."
%chromium-version ".tar.xz"))
(sha256
(base32
"03jvfz68nvmmrplygf96sh0l347p4h03c8vpw8yrglh6ycwkiigr"))))
"183vz3lf1588cr9s5vlnj65qvbmz36s8cg8k7dvr64cxmcqk86an"))))
(define %ungoogled-origin
(origin
@ -269,7 +269,7 @@ from forcing GEXP-PROMISE."
(string-take %ungoogled-revision 7)))
(sha256
(base32
"0zix90jz82hpym9jmyf99yw19swaf13ps6szi60wccmz1gccv77g"))))
"15vmc07iba1zmzn4j7c5n2hyvyxzwwf9hc3kyym0m4jajlsyxr5f"))))
(define %debian-origin
(origin
@ -283,15 +283,7 @@ from forcing GEXP-PROMISE."
(string-take %debian-revision 7))))
(sha256
(base32
"1l1ajjkn1y7ql5w4zb3c3vw57hkydvy1mac7y81rycx4g5djasaz"))))
(define (gentoo-patch name hash revision)
(origin
(method url-fetch)
(uri (string-append "https://gitweb.gentoo.org/repo/gentoo.git/plain"
"/www-client/chromium/files/" name "?id=" revision))
(file-name name)
(sha256 (base32 hash))))
"1rbzxcwfp7v0c6rkvn9jl9by7p363cnbdyqazwiak1z03kmw3nkz"))))
;; This is a "computed" origin that does the following:
;; *) Runs the Ungoogled scripts on a pristine Chromium tarball.
@ -336,7 +328,7 @@ from forcing GEXP-PROMISE."
;; Ungoogled-Chromium contains a forked subset of the Debian
;; patches. Disable those, as we apply newer versions later.
(substitute* "patches/series"
((".*/debian_buster/.*")
((".*/debian/.*")
""))
(format #t "Ungooglifying...~%")
@ -361,6 +353,7 @@ from forcing GEXP-PROMISE."
(let loop ((line (read-line)))
(unless (eof-object? line)
(when (and (> (string-length line) 1)
(not (string-prefix? "#" line))
;; Skip the Debian-specific ones.
(not (string-prefix? "debianization/" line))
(not (string-prefix? "buster/" line))
@ -429,21 +422,6 @@ from forcing GEXP-PROMISE."
`(cons "--enable-custom-modes"
,flags))))))
;; Chromium 78 requires libvpx features that are not in any release.
(define libvpx/chromium
(package/inherit
libvpx
(version "m78-3904")
(source (origin
(inherit (package-source libvpx))
(uri (git-reference
(url "https://chromium.googlesource.com/webm/libvpx")
(commit version)))
(file-name (git-file-name "libvpx" version))
(sha256
(base32
"1pphjfmg0aqq93n5cq790884v1h84di8p9mk3r28sm053wszhm7g"))))))
(define-public ungoogled-chromium
(package
(name "ungoogled-chromium")
@ -808,7 +786,7 @@ from forcing GEXP-PROMISE."
("libjpeg-turbo" ,libjpeg-turbo)
("libpng" ,libpng)
("libva" ,libva)
("libvpx" ,libvpx/chromium)
("libvpx" ,libvpx)
("libwebp" ,libwebp)
("libx11" ,libx11)
("libxcb" ,libxcb)
@ -871,13 +849,13 @@ disabled in order to protect the users privacy.")
`(("wayland" ,wayland)
("wayland-protocols" ,wayland-protocols)
,@(package-inputs ungoogled-chromium)))
(arguments
(substitute-keyword-arguments (package-arguments ungoogled-chromium)
((#:configure-flags flags)
`(append (list "use_ozone=true"
"ozone_platform_wayland=true"
"ozone_auto_platforms=false"
"ozone_platform=\"wayland\""
"use_xkbcommon=true"
"use_system_minigbm=true"
"use_system_libwayland=true"

6
gnu/packages/ci.scm
View file

@ -47,8 +47,8 @@
#:use-module (guix build-system gnu))
(define-public cuirass
(let ((commit "e20ff86d97f7dd92dad140b5919e3cbdf2fb1ce6")
(revision "26"))
(let ((commit "46f73b6b7c05389c67b02d32c8946ca665611cba")
(revision "27"))
(package
(name "cuirass")
(version (string-append "0.0.1-" revision "." (string-take commit 7)))
@ -60,7 +60,7 @@
(file-name (string-append name "-" version))
(sha256
(base32
"1c3rcfmx7vm13x3nid9xbl18rrqljh5vb71qxps4yqid75br4hrb"))))
"1zw4g4y0cc76i0s0hdc7jbyhwkn8pz03k6x02dslq42000cyjgi2"))))
(build-system gnu-build-system)
(arguments
'(#:modules ((guix build utils)

4
gnu/packages/code.scm
View file

@ -114,14 +114,14 @@ highlighting your own code that seemed comprehensible when you wrote it.")
(define-public global ; a global variable
(package
(name "global")
(version "6.6.3")
(version "6.6.4")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/global/global-"
version ".tar.gz"))
(sha256
(base32
"0735pj47dnspf20n0j1px24p59nwjinlmlb2n32ln1hvdkprivnb"))))
"1515642wsjz7x3rsgaqk4sc7n0z2znl7idsk8jz8wgy5aswqqzlq"))))
(build-system gnu-build-system)
(inputs `(("ncurses" ,ncurses)
("libltdl" ,libltdl)

4
gnu/packages/compression.scm
View file

@ -1084,7 +1084,7 @@ well as bzip2.")
(define-public snappy
(package
(name "snappy")
(version "1.1.7")
(version "1.1.8")
(source
(origin
(method git-fetch)
@ -1093,7 +1093,7 @@ well as bzip2.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1x7r8sjmdqlqjz0xfiwdyrqpgaj5yrvrgb28ivgpvnxgar5qv6m2"))
(base32 "1j0kslq2dvxgkcxl1gakhvsa731yrcvcaipcp5k8k7ayicvkv9jv"))
(patches (search-patches "snappy-add-O2-flag-in-CmakeLists.txt.patch"))))
(build-system cmake-build-system)
(arguments

178
gnu/packages/cran.scm
View file

@ -1293,14 +1293,14 @@ coordinates.")
(define-public r-rgooglemaps
(package
(name "r-rgooglemaps")
(version "1.4.5")
(version "1.4.5.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "RgoogleMaps" version))
(sha256
(base32
"1acf0qc9597apcidjzrpvwhg9ihypr38jigc10jvqn33qbn1i9s7"))))
"1lrbl0nax7rzk460mh6rq9hydahdi3ckxk4kxx3xij29jl3lmijh"))))
(properties `((upstream-name . "RgoogleMaps")))
(build-system r-build-system)
(propagated-inputs `(("r-png" ,r-png)))
@ -1623,7 +1623,7 @@ print, summary, plot, update, etc.
(sha256
(base32 "1lcq7r0q4jb8x6k023zr2ydj2dg925bqqbkhx1phpnyjrk897498"))))
(build-system r-build-system)
(home-page "http://ps.r-lib.org")
(home-page "https://ps.r-lib.org")
(synopsis "List, query, and manipulate system processes")
(description
"The ps package implements an API to list, query, and manipulate system
@ -1941,14 +1941,14 @@ compare different dendrograms to one another.")
(define-public r-getoptlong
(package
(name "r-getoptlong")
(version "0.1.7")
(version "0.1.8")
(source
(origin
(method url-fetch)
(uri (cran-uri "GetoptLong" version))
(sha256
(base32
"1fl3w2n602ldybc5qj7qw4xmzzb804bsjkqwf6dswzj0vf0qiadr"))))
"1l8xkvyl152bsyvxazsvx2sm1vkygn75x0lsg3sbg7xp6drdn3kc"))))
(properties `((upstream-name . "GetoptLong")))
(build-system r-build-system)
(inputs
@ -2034,18 +2034,15 @@ statistical functions and other utilities to ease their usage.")
(define-public r-prettyunits
(package
(name "r-prettyunits")
(version "1.0.2")
(version "1.1.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "prettyunits" version))
(sha256
(base32
"0p3z42hnk53x7ky4d1dr2brf7p8gv3agxr71i99m01n2hq2ri91m"))))
"0453vvslpkj1ysyv0cy9hw98q5wlnj7bvvz7vzl5ld8ij82lwy5c"))))
(build-system r-build-system)
(propagated-inputs
`(("r-assertthat" ,r-assertthat)
("r-magrittr" ,r-magrittr)))
(home-page "https://github.com/gaborcsardi/prettyunits")
(synopsis "Pretty, human readable formatting of quantities")
(description
@ -2264,7 +2261,7 @@ quantile mixture from L-moments and trimmed L-moments.")
(base32
"1mi3ig9jq0kd7yrwc5m37lmrw04p1b4lirnbsxi10z3n5yay4429"))))
(build-system r-build-system)
(home-page "http://www.ral.ucar.edu/staff/ericg")
(home-page "https://ral.ucar.edu/staff/ericg/")
(synopsis "Functions for confidence intervals and object information")
(description
"This package provides some very simple method functions for confidence
@ -2289,7 +2286,7 @@ SpatialVx.")
(propagated-inputs
`(("r-distillery" ,r-distillery)
("r-lmoments" ,r-lmoments)))
(home-page "http://www.assessment.ucar.edu/toolkit/")
(home-page "https://www.assessment.ucar.edu/toolkit/")
(synopsis "Extreme value analysis")
(description
"ExtRemes is a suite of functions for carrying out analyses on the
@ -2365,14 +2362,14 @@ and S4 methods with inlined C, C++ or Fortran code supporting @code{.C} and
(define-public r-bdsmatrix
(package
(name "r-bdsmatrix")
(version "1.3-3")
(version "1.3-4")
(source
(origin
(method url-fetch)
(uri (cran-uri "bdsmatrix" version))
(sha256
(base32
"17ddvz4gnih7rx0lr1gzk280xyh6x796cf2x794dvplpiiq83skh"))))
"1sh6pg43rgqvips4fx0k4vmp5i9lmniix0bqwj2yq5m06gs227i5"))))
(properties `((upstream-name . "bdsmatrix")))
(build-system r-build-system)
(home-page "https://cran.r-project.org/web/packages/bdsmatrix/")
@ -2555,14 +2552,14 @@ statistics/methods are implemented.")
(define-public r-suppdists
(package
(name "r-suppdists")
(version "1.1-9.4")
(version "1.1-9.5")
(source
(origin
(method url-fetch)
(uri (cran-uri "SuppDists" version))
(sha256
(base32
"1ffx8wigqqvz2pnh06jjc0fnf4vq9z2rhwk2y3f9aszn18ap3dgw"))))
"01j6p94m1g363nph2158fq2rmd6z3h5dvcv6aidh2d6syw131xak"))))
(properties `((upstream-name . "SuppDists")))
(build-system r-build-system)
(home-page "https://cran.r-project.org/web/packages/SuppDists")
@ -2638,14 +2635,14 @@ contexts.")
(define-public r-squarem
(package
(name "r-squarem")
(version "2017.10-1")
(version "2020.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "SQUAREM" version))
(sha256
(base32
"10xj26x7qjyvzndnbjl5krr9wabnb9cbrnp3m7xg673g8ddr12cv"))))
"0v4ax1v8diw2w7fdhfzz1z0bwixkmcrc39ax3y116f399rc06qbs"))))
(properties `((upstream-name . "SQUAREM")))
(build-system r-build-system)
(home-page "http://www.jhsph.edu/agingandhealth/People/Faculty_personal_pages/Varadhan.html")
@ -2910,14 +2907,14 @@ Delaunay triangulation and convex hull computation.")
(define-public r-ddalpha
(package
(name "r-ddalpha")
(version "1.3.10")
(version "1.3.11")
(source
(origin
(method url-fetch)
(uri (cran-uri "ddalpha" version))
(sha256
(base32
"1064g7y8d7kmvd5kjc2m48yvidmh2ci1y0xgil3pcx4ix6mf0ljz"))))
"1sdnb47r534nh138zk3a6b2mgi74nvshc7p5m304vjs9jlx4l2y3"))))
(build-system r-build-system)
(propagated-inputs
`(("r-bh" ,r-bh)
@ -3015,18 +3012,17 @@ problems as well as resampling based estimators of prediction error.")
(define-public r-psych
(package
(name "r-psych")
(version "1.9.12")
(version "1.9.12.31")
(source
(origin
(method url-fetch)
(uri (cran-uri "psych" version))
(sha256
(base32
"13r7fyjsl93m121awnwfhya8a0lw0l2byn60yqdbf9gp3lmb9ny0"))))
"02i9p6appf15hjdsi58g39bzs9as40f9qhy8m7ki30hd1fz1vrr5"))))
(build-system r-build-system)
(propagated-inputs
`(("r-foreign" ,r-foreign)
("r-lattice" ,r-lattice)
`(("r-lattice" ,r-lattice)
("r-mnormt" ,r-mnormt)
("r-nlme" ,r-nlme)))
(home-page "https://cran.r-project.org/web/packages/psych/")
@ -3104,14 +3100,14 @@ provides a one-row summary of model-level statistics.")
(define-public r-recipes
(package
(name "r-recipes")
(version "0.1.8")
(version "0.1.9")
(source
(origin
(method url-fetch)
(uri (cran-uri "recipes" version))
(sha256
(base32
"1n32qc2a3n9cykm8dv9qcr77kdhqfsjiqf6kgfk9s0lnpx2zaldm"))))
"1fmnka583sqm6v5bhxbllb4cd5xfqbf268aij2xgxiwckv3c0ynm"))))
(build-system r-build-system)
(propagated-inputs
`(("r-dplyr" ,r-dplyr)
@ -3641,14 +3637,14 @@ modeling for empirical income distributions.")
(define-public r-vcd
(package
(name "r-vcd")
(version "1.4-4")
(version "1.4-5")
(source
(origin
(method url-fetch)
(uri (cran-uri "vcd" version))
(sha256
(base32
"1lp99h0wvsc61l1dgcqjxdrcgpgw88ak430cdsv43kmm43qssqd5"))))
"0pqf1sdp0d60aqc7721hy2zfcp57902by0i28jqbn683dd50c21a"))))
(build-system r-build-system)
(propagated-inputs
`(("r-colorspace" ,r-colorspace)
@ -3752,14 +3748,14 @@ plotting. a three dimensional point cloud.")
(define-public r-ggridges
(package
(name "r-ggridges")
(version "0.5.1")
(version "0.5.2")
(source
(origin
(method url-fetch)
(uri (cran-uri "ggridges" version))
(sha256
(base32
"0dhwcpy785ac2ny5bjp284595nnybi3554wd0yffsli0vzf7ry01"))))
"03pz257aw0mkh5k75rby9givkc1ky3n5scvhjhjiz9vry9fpffmh"))))
(build-system r-build-system)
(propagated-inputs
`(("r-ggplot2" ,r-ggplot2)
@ -3799,14 +3795,14 @@ plots in @code{ggplot2}.")
(define-public r-cli
(package
(name "r-cli")
(version "2.0.0")
(version "2.0.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "cli" version))
(sha256
(base32
"1gv3zqdipj29ivkw5dsi1qdlra7q4lcrcqvlg9fns7d670yglfki"))))
"0x28i7kj4qndk6mnn99qn9w2nfldv8csjnsn0n8phfnxq5hnmp5y"))))
(build-system r-build-system)
(propagated-inputs
`(("r-assertthat" ,r-assertthat)
@ -4012,13 +4008,13 @@ iVAT).")
(define-public r-xfun
(package
(name "r-xfun")
(version "0.11")
(version "0.12")
(source
(origin
(method url-fetch)
(uri (cran-uri "xfun" version))
(sha256
(base32 "0dncw6bqkal7nyarrrrj9arxy0y3nkdzmrbibcjh84m1cxd4phiw"))))
(base32 "0sgh8kafi9x1glmmcp1ly827pm8q7fsfngbplr41fbb4nc9363df"))))
(build-system r-build-system)
(home-page "https://github.com/yihui/xfun")
(synopsis "Miscellaneous functions")
@ -4156,14 +4152,14 @@ terminals.")
(define-public r-tinytex
(package
(name "r-tinytex")
(version "0.18")
(version "0.19")
(source
(origin
(method url-fetch)
(uri (cran-uri "tinytex" version))
(sha256
(base32
"04mpbhadixbxmnazj0q6cj973cajchscvyh1k6a5b3qk26dp5krr"))))
"0jlcrvcqcbkimg7w40z5vhlnakb829vfgqpspm3pfl8karwzgqp6"))))
(build-system r-build-system)
(propagated-inputs
`(("r-xfun" ,r-xfun)))
@ -4624,14 +4620,14 @@ interface.")
(define-public r-trend
(package
(name "r-trend")
(version "1.1.1")
(version "1.1.2")
(source
(origin
(method url-fetch)
(uri (cran-uri "trend" version))
(sha256
(base32
"1bd567n15k2vpmgbx02584k5kglrc58mlb5kgd07wdss3knpa48q"))))
"09b6ycyfgs4xlhx6kn6qm5rl2acp58hzhv8qclzn3kb1wjjyvxy5"))))
(build-system r-build-system)
(propagated-inputs
`(("r-extradistr" ,r-extradistr)))
@ -5772,14 +5768,14 @@ Python to R they are converted back to R types.")
(define-public r-bibtex
(package
(name "r-bibtex")
(version "0.4.2.1")
(version "0.4.2.2")
(source
(origin
(method url-fetch)
(uri (cran-uri "bibtex" version))
(sha256
(base32
"1ks1w59ldwmfd1sj8ap7smyhf8dhykv7xnwrl8z9xzkcfpv1rbc0"))))
"140hkjzdp3033cvji861rd06z1ixgpnn4n5amygqsmhnixk8ff07"))))
(build-system r-build-system)
(propagated-inputs `(("r-stringr" ,r-stringr)))
(home-page "https://github.com/romainfrancois/bibtex")
@ -6015,14 +6011,14 @@ steps and provides ggplot2-based elegant data visualization.")
(define-public r-fansi
(package
(name "r-fansi")
(version "0.4.0")
(version "0.4.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "fansi" version))
(sha256
(base32
"02f2rx7v7wz6w97m2slwky2i5y8f9iafycmkyr3siy3z3k8fj171"))))
"028ywjy538psnmdnddvy5jr3idzffr4hikzr4x97x0m30g4fws9w"))))
(build-system r-build-system)
(native-inputs
`(("r-knitr" ,r-knitr))) ; for vignettes
@ -6057,14 +6053,14 @@ results to the user.")
(define-public r-hdf5r
(package
(name "r-hdf5r")
(version "1.3.0")
(version "1.3.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "hdf5r" version))
(sha256
(base32
"1pq12vkfqxvcaznwaxvjdg3acimk5a20m8h18sixvxc34vnqxw8f"))))
"0hvi2cvyv6zlxgpawnmsihxclp2ln88slbrnmaxagmjswskxsrpx"))))
(build-system r-build-system)
(inputs
`(("hdf5" ,hdf5)
@ -6387,14 +6383,14 @@ other add-on packages.")
(define-public r-insight
(package
(name "r-insight")
(version "0.7.1")
(version "0.8.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "insight" version))
(sha256
(base32
"0scjmr8qvwaswb9wfq2lxp1v5fl72way8cid9agrf0z1agp0adad"))))
"1bkcwvjpfy4q4k478x8x42yiqz6v0fk6z6hfp6fli3h63smlmck0"))))
(build-system r-build-system)
(home-page "https://easystats.github.io/insight/")
(synopsis "Easy access to model information for various model objects")
@ -6442,14 +6438,14 @@ vice versa), or to deal with multiple declared missing values.")
(define-public r-sjmisc
(package
(name "r-sjmisc")
(version "2.8.2")
(version "2.8.3")
(source
(origin
(method url-fetch)
(uri (cran-uri "sjmisc" version))
(sha256
(base32
"0rl0bmk91wc4dxdgy008fl0dwkx3ffvys30vgpnr78lb4pk45nb2"))))
"0w8l9grmp4q775jrf4q6rxx36ld5daz9b0gdxyyh42xfihk6m62h"))))
(build-system r-build-system)
(propagated-inputs
`(("r-dplyr" ,r-dplyr)
@ -6871,14 +6867,14 @@ containing one or more SNPs that evolved under directional selection.")
(define-public r-proc
(package
(name "r-proc")
(version "1.15.3")
(version "1.16.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "pROC" version))
(sha256
(base32
"1jx8af9p6sxbypqvj1cci7q9sbyaw310inbjxibjcr3acj59h45h"))))
"0qkp1byl2xspxaaf0by6mvvrhg7wlz6fxmynz2hkh0ds24w7ig9m"))))
(properties `((upstream-name . "pROC")))
(build-system r-build-system)
(propagated-inputs
@ -8225,14 +8221,14 @@ packages maintained by Torsten Hothorn.")
(define-public r-multcomp
(package
(name "r-multcomp")
(version "1.4-11")
(version "1.4-12")
(source
(origin
(method url-fetch)
(uri (cran-uri "multcomp" version))
(sha256
(base32
"0jw9661hs4396wz9vflk3rak0ryzj1cg2pnndsn1gb4fjyf2vlhb"))))
"14c2f10rz546w7ly5f4r6wnd07yj5gic38an17gxny1vf2nsff0b"))))
(build-system r-build-system)
(propagated-inputs
`(("r-codetools" ,r-codetools)
@ -8383,14 +8379,14 @@ Bayesian modeling.")
(define-public r-tmb
(package
(name "r-tmb")
(version "1.7.15")
(version "1.7.16")
(source
(origin
(method url-fetch)
(uri (cran-uri "TMB" version))
(sha256
(base32
"1r2d8c5iazihba42sn33yarv0dcfiy989sx64zcf14zr8k6cgjzs"))))
"0lly12hdi99iklwr0vg9xkyhi038w4gncbf895qcwbndmqp0lx44"))))
(properties `((upstream-name . "TMB")))
(build-system r-build-system)
(propagated-inputs
@ -8699,7 +8695,7 @@ back to file after modifications.")
`(("r-rcpp" ,r-rcpp)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "http://fs.r-lib.org")
(home-page "https://fs.r-lib.org")
(synopsis "Cross-platform file system operations based on libuv")
(description
"This package provides a cross-platform interface to file system
@ -11692,14 +11688,14 @@ the local machine to, say, distributed processing on a remote compute cluster.")
(define-public r-future-apply
(package
(name "r-future-apply")
(version "1.3.0")
(version "1.4.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "future.apply" version))
(sha256
(base32
"0wd3bh114zkvrqlpn8gqz4ix1igr9hr8x72h2g00a7mqkfjfqx33"))))
"1kgq6dv96hdy35kysqkn606nj7s9dp4ibgpm6n46gqhc5n75lzkk"))))
(properties `((upstream-name . "future.apply")))
(build-system r-build-system)
(propagated-inputs
@ -12108,14 +12104,14 @@ transformation, respectively.")
(define-public r-shinyjs
(package
(name "r-shinyjs")
(version "1.0")
(version "1.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "shinyjs" version))
(sha256
(base32
"113zpijri0l80rlgrvqn6bxk0sdqgl79h7yhja2p76f9dc9i2sr8"))))
"14k8y313ppj23m9rhlk8jc94x6sbn3qrsnx6xrijiyv8m8dii1l9"))))
(build-system r-build-system)
(propagated-inputs
`(("r-digest" ,r-digest)
@ -13620,13 +13616,13 @@ SELECT or UPDATE queries to an end-point.")
(define-public r-bookdown
(package
(name "r-bookdown")
(version "0.16")
(version "0.17")
(source (origin
(method url-fetch)
(uri (cran-uri "bookdown" version))
(sha256
(base32
"1gwgvx1yg6q3wccnhidr3gshdvlgr42i4pvlg4h29kpsa7smjiv1"))))
"10b4gnd6z3w13pysqqan43blxcbk7bgbzc7wr83b23ag1lh2n40j"))))
(build-system r-build-system)
(propagated-inputs
`(("r-htmltools" ,r-htmltools)
@ -13915,14 +13911,14 @@ interaction search in high-dimensional data.")
(define-public r-rttf2pt1
(package
(name "r-rttf2pt1")
(version "1.3.7")
(version "1.3.8")
(source
(origin
(method url-fetch)
(uri (cran-uri "Rttf2pt1" version))
(sha256
(base32
"12hf9r3mhjr9sawdvf7qhjf1zph2q64f77i81jwvy7awidbm0kja"))))
"0b3f2zkmbyshn19cnaaf042d0zwf43l9jnkqizfhxxwb93a4c1jn"))))
(properties `((upstream-name . "Rttf2pt1")))
(build-system r-build-system)
(home-page "https://github.com/wch/Rttf2pt1")
@ -15040,14 +15036,14 @@ extends the lme4 package.")
(define-public r-batchtools
(package
(name "r-batchtools")
(version "0.9.11")
(version "0.9.12")
(source
(origin
(method url-fetch)
(uri (cran-uri "batchtools" version))
(sha256
(base32
"02mj21ypcjv5fs7ajf63p6bq0cyvihdl55hlpqx6kmsfjin1cr0v"))))
"16x524hvy9d8p7r4fi1c8mixcvzgsjbf3y0vxaa56ssbbab4p7f9"))))
(build-system r-build-system)
(propagated-inputs
`(("r-backports" ,r-backports)
@ -15350,14 +15346,14 @@ easily.")
(define-public r-umap
(package
(name "r-umap")
(version "0.2.4.0")
(version "0.2.4.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "umap" version))
(sha256
(base32
"1dzbwq96k5vqr64wk6s26ks4311h570xg6gf0prr4vnn033pqnch"))))
"1pnh3hv8ihiz2nszqp797lkrdhhna2a6mzpizbsk0s9m8cj4wxva"))))
(build-system r-build-system)
(propagated-inputs
`(("r-openssl" ,r-openssl)
@ -15881,14 +15877,14 @@ in pipelines.")
(define-public r-parameters
(package
(name "r-parameters")
(version "0.3.0")
(version "0.4.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "parameters" version))
(sha256
(base32
"0ifb9g1h8sn661q7jf9d8glk58gxdcym5ywbmx7phwn0y3is5wdv"))))
"0z1hdxgippchij28h8xbbz6l29kkyakwxxj5vxnpic40cpkqqdd6"))))
(properties `((upstream-name . "parameters")))
(build-system r-build-system)
(propagated-inputs
@ -16038,13 +16034,13 @@ programming problems.")
(define-public r-desolve
(package
(name "r-desolve")
(version "1.27")
(version "1.27.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "deSolve" version))
(sha256
(base32 "1qhjq4vxlxd9qmhf6i26x1k7bzhldlxzbby1zgcplicdvlqk951d"))))
(base32 "05sax045qrk550gsn2i7krb9rbg51rx88x4v190acsigqknxffrv"))))
(properties `((upstream-name . "deSolve")))
(build-system r-build-system)
(native-inputs
@ -17640,7 +17636,7 @@ forest) is fit on the kernel matrix of a subset of the training data.")
"01f84crqx17xd6xy55qxlvsj3knm8lhw7jl26p2rh2w3y0nvqlbm"))))
(properties `((upstream-name . "dummies")))
(build-system r-build-system)
(home-page "http://www.decisionpatterns.com")
(home-page "https://decisionpatterns.com")
(synopsis "Create dummy/indicator variables flexibly and efficiently")
(description
"This package lets you expand factors, characters and other eligible
@ -17883,14 +17879,14 @@ allowed.")
(define-public r-gdina
(package
(name "r-gdina")
(version "2.7.3")
(version "2.7.8")
(source
(origin
(method url-fetch)
(uri (cran-uri "GDINA" version))
(sha256
(base32
"0875xfbm36gqzr0116xzlbm8rlff85rybr4s4hjzfflfvjdhgvfx"))))
"1aj2ssd7vpszl7p22srkkkpx4a7gkc38vrv3bq7j1zr32096y4zj"))))
(properties `((upstream-name . "GDINA")))
(build-system r-build-system)
(propagated-inputs
@ -18380,6 +18376,36 @@ simple, modern C++ library for image processing.")
it may be seen by an animal with less acute vision.")
(license license:gpl2+)))
(define-public r-caret
(package
(name "r-caret")
(version "6.0-85")
(source
(origin
(method url-fetch)
(uri (cran-uri "caret" version))
(sha256
(base32
"0jxbf2zcvbb5s2pnjzg182awjvylc57q7z5plx6gs6gm62zxjafs"))))
(build-system r-build-system)
(propagated-inputs
`(("r-foreach" ,r-foreach)
("r-ggplot2" ,r-ggplot2)
("r-lattice" ,r-lattice)
("r-modelmetrics" ,r-modelmetrics)
("r-nlme" ,r-nlme)
("r-plyr" ,r-plyr)
("r-proc" ,r-proc)
("r-recipes" ,r-recipes)
("r-reshape2" ,r-reshape2)
("r-withr" ,r-withr)))
(home-page "https://github.com/topepo/caret")
(synopsis "Classification and regression training")
(description
"This package provides miscellaneous functions for training and plotting
classification and regression models.")
(license license:gpl2+)))
(define-public r-adabag
(package
(name "r-adabag")
@ -18845,14 +18871,14 @@ Langford (2006) @url{doi:10.1145/1143844.1143857}.")
(define-public r-poibin
(package
(name "r-poibin")
(version "1.4")
(version "1.5")
(source
(origin
(method url-fetch)
(uri (cran-uri "poibin" version))
(sha256
(base32
"1rllgmk7yanb5amysl33kmi11lx86q5kqblyb8qqb3ckj2w4jhm2"))))
"1sxryvwwz6ldsnkzdy56p8c895s5yvpcai9ndyjv1x5q3l05wf9v"))))
(properties `((upstream-name . "poibin")))
(build-system r-build-system)
(home-page "https://cran.r-project.org/web/packages/poibin/")

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

File diff suppressed because it is too large Load diff

1
gnu/packages/crypto.scm
View file

@ -70,7 +70,6 @@
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system perl)
#:use-module (guix build utils)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26))

45
gnu/packages/databases.scm
View file

@ -23,7 +23,7 @@
;;; Copyright © 2017 Jelle Licht <jlicht@fsfe.org>
;;; Copyright © 2017 Adriano Peluso <catonano@gmail.com>
;;; Copyright © 2017 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, 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2017, 2018 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
@ -38,6 +38,7 @@
;;; Copyright © 2019 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz>
;;;
;;; This file is part of GNU Guix.
;;;
@ -126,7 +127,6 @@
#:use-module (guix build-system cmake)
#:use-module (guix build-system scons)
#:use-module (guix build-system trivial)
#:use-module ((guix build utils) #:hide (which))
#:use-module (guix utils)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
@ -919,6 +919,31 @@ Language.")
as a drop-in replacement of MySQL.")
(license license:gpl2)))
(define-public mariadb-connector-c
(package
(name "mariadb-connector-c")
(version "3.1.6")
(source (origin
(method url-fetch)
(uri (string-append
"https://downloads.mariadb.org/f/connector-c-"
version "/mariadb-connector-c-"
version "-src.tar.gz"))
(sha256
(base32
"083724f5daaqyzdcx508caz6fk2hs89jff85zg28ih43vxkvnrnj"))))
(inputs
`(("openssl" ,openssl)))
(build-system cmake-build-system)
(arguments
;; No tests.
'(#:tests? #f))
(home-page "https://mariadb.com/kb/en/mariadb-connector-c/")
(synopsis "Client library to connect to MySQL or MariaDB")
(description "The MariaDB Connector/C is used to connect applications
developed in C/C++ to MariaDB and MySQL databases.")
(license license:lgpl2.1+)))
;; Don't forget to update the other postgresql packages when upgrading this one.
(define-public postgresql
(package
@ -970,27 +995,27 @@ pictures, sounds, or video.")
(package
(inherit postgresql)
(name "postgresql")
(version "11.5")
(version "11.6")
(source (origin
(method url-fetch)
(uri (string-append "https://ftp.postgresql.org/pub/source/v"
version "/postgresql-" version ".tar.bz2"))
(sha256
(base32
"106ikalvrilihlvhq7xj7snq98hgbgq6qsgjrd252wgw1c327pvz"))))))
"0w1iq488kpzfgfnlw4k32lz5by695mpnkq461jrgsr99z5zlz4j9"))))))
(define-public postgresql-9.6
(package
(inherit postgresql)
(name "postgresql")
(version "9.6.15")
(version "9.6.16")
(source (origin
(method url-fetch)
(uri (string-append "https://ftp.postgresql.org/pub/source/v"
version "/postgresql-" version ".tar.bz2"))
(sha256
(base32
"02hp69h2p02asfblkaahblzdz2zmawd2r11h6237y5j7yadgxn9w"))))))
"1rr2dgv4ams8r2lp13w85c77rkmzpb88fjlc28mvlw6zq2fblv2w"))))))
(define-public python-pymysql
(package
@ -1836,14 +1861,14 @@ similar to BerkeleyDB, LevelDB, etc.")
(define-public redis
(package
(name "redis")
(version "4.0.10")
(version "5.0.7")
(source (origin
(method url-fetch)
(uri (string-append "http://download.redis.io/releases/redis-"
version".tar.gz"))
(sha256
(base32
"194cydhv3hf4v95ifvjvsqrs4jn3ffrkg5lvxj5d3y04lwsp9dhx"))))
"0ax8sf3vw0yadr41kzc04917scrg5wir1d94zmbz00b8pzm79nv1"))))
(build-system gnu-build-system)
(arguments
'(#:tests? #f ; tests related to master/slave and replication fail
@ -2043,7 +2068,7 @@ database.")
(define-public lmdb
(package
(name "lmdb")
(version "0.9.23")
(version "0.9.24")
(source
(origin
(method git-fetch)
@ -2052,7 +2077,7 @@ database.")
(commit (string-append "LMDB_" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0ag7l5180ajvm73y59m7sn3p52xm8m972d08cshxhpwgwa4v35k6"))))
(base32 "088q6m8fvr12w43s461h7cvpg5hj8csaqj6n9pci150dz7bk5lxm"))))
(build-system gnu-build-system)
(arguments
`(#:test-target "test"

5
gnu/packages/dictionaries.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017, 2018, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2017, 2018, 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
@ -283,8 +283,7 @@ and a Python library.")
(add-after 'install 'emacs-install
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(dest (string-append out "/share/emacs/site-lisp/guix.d/"
,name "-" ,version))
(dest (string-append out "/share/emacs/site-lisp"))
(emacs (string-append (assoc-ref inputs "emacs") "/bin/emacs")))
(install-file "google-translate-mode.el" dest)
(emacs-generate-autoloads ,name dest)))))

4
gnu/packages/diffoscope.scm
View file

@ -67,7 +67,7 @@
#:use-module (ice-9 match))
(define-public diffoscope
(let ((version "134"))
(let ((version "135"))
(package
(name "diffoscope")
(version version)
@ -79,7 +79,7 @@
(file-name (git-file-name name version))
(sha256
(base32
"04078cn3lazcrpgzzzy1s9721hprkylrvfa58izm4dcvgd7a593z"))))
"0rkpvajkp3qryi6dxkrh8aq5xg79aybnw8iy73wsblcnfq6yhba7"))))
(build-system python-build-system)
(arguments
`(#:phases (modify-phases %standard-phases

2
gnu/packages/disk.scm
View file

@ -582,12 +582,12 @@ automatically finding out which program to use for what file type.")
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
("util-linux" ,util-linux)
("swig" ,swig)
("python" ,python-3))) ; used to generate the Python bindings
(inputs
`(("cryptsetup" ,cryptsetup)
("nss" ,nss)
("libblkid" ,util-linux)
("lvm2" ,lvm2) ; for "-ldevmapper"
("glib" ,glib)
("gpgme" ,gpgme)))

3
gnu/packages/django.scm
View file

@ -36,7 +36,8 @@
#:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages sphinx)
#:use-module (gnu packages time))
#:use-module (gnu packages time)
#:use-module (gnu packages xml))
(define-public python-django
(package

6
gnu/packages/dns.scm
View file

@ -5,7 +5,7 @@
;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 John Darrington <jmd@gnu.org>
;;; Copyright © 2016 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 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017 Vasile Dumitrascu <va511e@yahoo.com>
;;; Copyright © 2017 Gregor Giesen <giesen@zaehlwerk.net>
@ -390,14 +390,14 @@ to result in system-wide compromise.")
(define-public unbound
(package
(name "unbound")
(version "1.9.4")
(version "1.9.5")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.unbound.net/downloads/unbound-"
version ".tar.gz"))
(sha256
(base32 "1c2bjm13x8bkw0ds1mhn9ivd2gzmfrb0x5y76bkz09a04bxjagix"))))
(base32 "0myv8l886gmlh9nh4j3q5549idxnl51hf9cw20yxfqbwd47l13ca"))))
(build-system gnu-build-system)
(outputs '("out" "python"))
(native-inputs

14
gnu/packages/docbook.scm
View file

@ -40,7 +40,7 @@
(version "4.5")
(source (origin
(method url-fetch)
(uri (string-append "http://www.docbook.org/xml/" version
(uri (string-append "https://www.docbook.org/xml/" version
"/docbook-xml-" version ".zip"))
(sha256
(base32
@ -66,7 +66,7 @@
#t))
#:modules ((guix build utils))))
(native-inputs `(("unzip" ,unzip)))
(home-page "http://docbook.org")
(home-page "https://docbook.org")
(synopsis "DocBook XML DTDs for document authoring")
(description
"DocBook is general purpose XML and SGML document type particularly well
@ -79,7 +79,7 @@ by no means limited to these applications.) This package provides XML DTDs.")
(version "4.4")
(source (origin
(method url-fetch)
(uri (string-append "http://www.docbook.org/xml/" version
(uri (string-append "https://www.docbook.org/xml/" version
"/docbook-xml-" version ".zip"))
(sha256
(base32
@ -90,7 +90,7 @@ by no means limited to these applications.) This package provides XML DTDs.")
(version "4.3")
(source (origin
(method url-fetch)
(uri (string-append "http://www.docbook.org/xml/" version
(uri (string-append "https://www.docbook.org/xml/" version
"/docbook-xml-" version ".zip"))
(sha256
(base32
@ -101,7 +101,7 @@ by no means limited to these applications.) This package provides XML DTDs.")
(version "4.2")
(source (origin
(method url-fetch)
(uri (string-append "http://www.docbook.org/xml/" version
(uri (string-append "https://www.docbook.org/xml/" version
"/docbook-xml-" version ".zip"))
(sha256
(base32
@ -112,7 +112,7 @@ by no means limited to these applications.) This package provides XML DTDs.")
(version "4.1.2")
(source (origin
(method url-fetch)
(uri (string-append "http://www.docbook.org/xml/" version
(uri (string-append "https://www.docbook.org/xml/" version
"/docbkx412.zip"))
(sha256
(base32
@ -174,7 +174,7 @@ by no means limited to these applications.) This package provides XML DTDs.")
(native-inputs `(("bzip2" ,bzip2)
("xz" ,xz) ;needed for repacked tarballs
("tar" ,tar)))
(home-page "http://docbook.org")
(home-page "https://docbook.org")
(synopsis "DocBook XSL style sheets for document authoring")
(description
"This package provides XSL style sheets for DocBook.")

1
gnu/packages/drones.scm
View file

@ -23,6 +23,7 @@
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages xml)
#:use-module (guix download)
#:use-module (guix utils)
#:use-module (guix git-download)

10
gnu/packages/easyrpg.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Sou Bunnbu <iyzsong@member.fsf.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.
;;;
@ -39,7 +39,7 @@
(define-public liblcf
(package
(name "liblcf")
(version "0.6.0")
(version "0.6.1")
(source (origin
(method url-fetch)
(uri (string-append
@ -47,7 +47,7 @@
"/liblcf-" version ".tar.gz"))
(sha256
(base32
"0dcw9l800314f5c29mqrcg64rkcb6cwqjfnpvwsmvc2l2q5hwlag"))))
"1qz387r4shbx48r3z7k8llkzz4b039zmak98wxpiwn6a23cssdn5"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
@ -75,7 +75,7 @@ It can read and write LCF and XML files.")
(define-public easyrpg-player
(package
(name "easyrpg-player")
(version "0.6.0")
(version "0.6.1")
(source (origin
(method url-fetch)
(uri (string-append
@ -83,7 +83,7 @@ It can read and write LCF and XML files.")
"/easyrpg-player-" version ".tar.gz"))
(sha256
(base32
"0zdzp64sshjdl943jklsvzwzzja1fnapslvbd7xss51ym9ra4r6k"))))
"1x81d1952w6vb939155bvs5p3shgsncxy305770izpp4pva1a8z0"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags

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

@ -51,7 +51,7 @@
;;; Copyright © 2019 Baptiste Strazzulla <bstrazzull@hotmail.fr>
;;; Copyright © 2019 Giacomo Leidi <goodoldpaul@autistici.org>
;;; Copyright © 2019 Jens Mølgaard <jens@zete.tk>
;;; Copyright © 2019 Amin Bandali <bandali@gnu.org>
;;; Copyright © 2019 Amin Bandali <mab@gnu.org>
;;; Copyright © 2019 Jelle Licht <jlicht@fsfe.org>
;;; Copyright © 2019 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
;;; Copyright © 2019 Stephen Webber <montokapro@gmail.com>
@ -969,7 +969,7 @@ in certain cases. It also enables recursion for anonymous functions.")
(base32
"1km4x92pii8c4bcimks4xzhmwpypdf183z0zh7raj062jz4jb74r"))))
(build-system emacs-build-system)
(home-page "http://elpa.gnu.org/packages/xr.html")
(home-page "https://elpa.gnu.org/packages/xr.html")
(synopsis "Convert string regexp to rx notation")
(description
"This is an inverse companion to the @code{rx} package for translating
@ -1243,7 +1243,7 @@ or unexpected behavior inside an elisp configuration file (typically
"wget" (string-append (assoc-ref outputs "out")
"/share/emacs/site-lisp/"))
#t)))))
(home-page "http://www.emacswiki.org/emacs/EmacsWget")
(home-page "https://www.emacswiki.org/emacs/EmacsWget")
(synopsis "Simple file downloader for Emacs based on wget")
(description
"Emacs-wget is an emacs interface for the wget file downloader.")
@ -1787,7 +1787,7 @@ environment set through Direnv.")
(source
(origin
(method url-fetch)
(uri (string-append "http://elpa.gnu.org/packages/ggtags-"
(uri (string-append "https://elpa.gnu.org/packages/ggtags-"
version ".el"))
(sha256
(base32
@ -5382,7 +5382,7 @@ line program.")
(source
(origin
(method url-fetch)
(uri (string-append "http://elpa.gnu.org/packages/rudel-"
(uri (string-append "https://elpa.gnu.org/packages/rudel-"
version ".tar"))
(sha256
(base32
@ -5669,7 +5669,7 @@ highlighted. Pressing that character will switch to that window.")
(sha256
(base32 "0wr3w2id95wx2rma8n1ifjrv9rx37ly26ijc5zi58id0yrip3hnc"))))
(build-system emacs-build-system)
(home-page "http://www.emacswiki.org/emacs/Iedit")
(home-page "https://www.emacswiki.org/emacs/Iedit")
(synopsis "Edit multiple regions in the same way simultaneously")
(description
"This package is an Emacs minor mode and allows you to edit one
@ -7998,7 +7998,7 @@ distribution, primarily targeting Clojure users")
(base32
"0zbqkk540rax32s8szp5zgz3a02zw88fc1dmjmyw6h3ls04m91kl"))))
(build-system emacs-build-system)
(home-page "http://elpa.gnu.org/packages/orgalist.html")
(home-page "https://elpa.gnu.org/packages/orgalist.html")
(synopsis "Manage Org-like lists in non-Org buffers")
(description "Write Org mode's plain lists in non-Org buffers. More
specifically, Orgalist supports the syntax of Org mode for numbered,
@ -9018,13 +9018,13 @@ consistent and well-integrated user interface.")
(source (origin
(method url-fetch)
(uri (string-append
"http://elpa.gnu.org/packages/adaptive-wrap-"
"https://elpa.gnu.org/packages/adaptive-wrap-"
version ".el"))
(sha256
(base32
"0qi7gjprcpywk2daivnlavwsx53hl5wcqvpxbwinvigg42vxh3ll"))))
(build-system emacs-build-system)
(home-page "http://elpa.gnu.org/packages/adaptive-wrap.html")
(home-page "https://elpa.gnu.org/packages/adaptive-wrap.html")
(synopsis "Smart line-wrapping with wrap-prefix")
(description
"This Emacs package provides the @code{adaptive-wrap-prefix-mode}
@ -9782,7 +9782,7 @@ with gnuplot.")
(source
(origin
(method url-fetch)
(uri "http://www.emacswiki.org/emacs/download/transpose-frame.el")
(uri "https://www.emacswiki.org/emacs/download/transpose-frame.el")
(file-name (string-append "transpose-frame-" version ".el"))
(sha256
(base32
@ -10854,7 +10854,7 @@ database of references on life sciences.")
#:test-command '("emacs" "--batch"
"-l" "websocket-test.el"
"-f" "ert-run-tests-batch-and-exit")))
(home-page "http://elpa.gnu.org/packages/websocket.html")
(home-page "https://elpa.gnu.org/packages/websocket.html")
(synopsis "Emacs WebSocket client and server")
(description "This is an Elisp library for WebSocket clients to talk to
WebSocket servers, and for WebSocket servers to accept connections from
@ -10876,7 +10876,7 @@ itself.")
(base32
"0ydkc9jazsnbbvfhd47mql52y7k06n3z7r0naqxkwb99j9blqsmp"))))
(build-system emacs-build-system)
(home-page "http://elpa.gnu.org/packages/oauth2.html")
(home-page "https://elpa.gnu.org/packages/oauth2.html")
(synopsis "OAuth 2.0 authorization protocol implementation")
(description
"This package provides an Elisp implementation of the OAuth 2.0 draft.
@ -13004,12 +13004,12 @@ timestamps and date-time format strings library for Emacs.")
(source
(origin
(method url-fetch)
(uri (string-append "http://elpa.gnu.org/packages/seq-" version ".tar"))
(uri (string-append "https://elpa.gnu.org/packages/seq-" version ".tar"))
(sha256
(base32
"0vrpx6nnyjb0gsypknzagimlhvcvi5y1rcdkpxyqr42415zr8d0n"))))
(build-system emacs-build-system)
(home-page "http://elpa.gnu.org/packages/seq.html")
(home-page "https://elpa.gnu.org/packages/seq.html")
(synopsis "Sequence manipulation functions")
(description "Sequence-manipulation functions that complement basic
functions provided by @file{subr.el}.")
@ -14574,7 +14574,7 @@ using user-provided rules.")
(origin
(method url-fetch)
(uri (string-append
"http://elpa.gnu.org/packages/on-screen-" version ".el"))
"https://elpa.gnu.org/packages/on-screen-" version ".el"))
(file-name (string-append name "-" version ".el"))
(sha256
(base32 "0ga4hw23ki583li2z2hr7l6hk1nc2kdg4afndg06cm9jn158wza7"))))
@ -14677,12 +14677,12 @@ modes of SLIME.")
(source
(origin
(method url-fetch)
(uri (string-append "http://elpa.gnu.org/packages/sml-mode-"
(uri (string-append "https://elpa.gnu.org/packages/sml-mode-"
version ".el"))
(sha256
(base32 "1bdg9ywpvj85hxqah9w1raxlcrhkyx67nw22jwd1bd5j0fhmgqij"))))
(build-system emacs-build-system)
(home-page "http://elpa.gnu.org/packages/sml-mode.html")
(home-page "https://elpa.gnu.org/packages/sml-mode.html")
(synopsis "Major mode for editing (Standard) ML")
(description "SML-MODE is a major Emacs mode for editing Standard ML.
It provides syntax highlighting and automatic indentation and
@ -19395,7 +19395,7 @@ between \"frame-width\" and \"frame-height\", between \"public\",
(base32
"039ffvp7c810mjyargmgw1i87g0z8qs8qicq826sd9aiz9hprfaz"))))
(build-system emacs-build-system)
(home-page "http://elpa.gnu.org/packages/ediprolog.html")
(home-page "https://elpa.gnu.org/packages/ediprolog.html")
(synopsis "Emacs Does Interactive Prolog")
(description "This package provides a major mode that let the user
interact with SWI-Prolog in all buffers. For instance, one can consult Prolog
@ -20422,8 +20422,8 @@ fish-completion. It can be used in both Eshell and M-x shell.")
;; This package has versions newer than indicated on MELPA.
;; Get the current version from `telega-version` in telega.el.
;; or by running M-x telega-version.
(let ((commit "4497a3c19d9806eb9edfe13d326d6d9cbb895f64")
(revision "3")
(let ((commit "69565cc4de72e28148c8041de8930a122a39b800")
(revision "4")
(version "0.5.4"))
(package
(name "emacs-telega")
@ -20436,7 +20436,7 @@ fish-completion. It can be used in both Eshell and M-x shell.")
(commit commit)))
(sha256
(base32
"1g0gbbgs8rbcip6kqjxdmnsjlq0ixgknb0qcda7siaha9gd7fjh2"))
"0blvj07f1sbdmp68qwlwgnhnv42ib0mjai5ndf8scbi12drn4rmk"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(arguments
@ -20523,6 +20523,7 @@ fish-completion. It can be used in both Eshell and M-x shell.")
`(("ffmpeg" ,ffmpeg))) ; mp4/gif support.
(propagated-inputs
`(("emacs-visual-fill-column" ,emacs-visual-fill-column)
("emacs-company" ,emacs-company)
("libwebp" ,libwebp))) ; sticker support.
(native-inputs
`(("tdlib" ,tdlib)

2
gnu/packages/emacs.scm
View file

@ -19,7 +19,7 @@
;;; Copyright © 2019 Jesse John Gildersleve <jessejohngildersleve@zohomail.eu>
;;; Copyright © 2019 Valentin Ignatev <valentignatev@gmail.com>
;;; Copyright © 2019 Leo Prikler <leo.prikler@student.tugraz.at>
;;; Copyright © 2019 Amin Bandali <bandali@gnu.org>
;;; Copyright © 2019 Amin Bandali <mab@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;

2
gnu/packages/embedded.scm
View file

@ -32,7 +32,7 @@
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
#:use-module (guix build-system trivial)
#:use-module (guix build utils)
#:use-module ((guix build utils) #:select (alist-replace))
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
#:use-module ((gnu packages base) #:prefix base:)

11
gnu/packages/emulators.scm
View file

@ -7,7 +7,7 @@
;;; Copyright © 2016 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018, 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019 David Wilson <david@daviwil.com>
@ -1194,15 +1194,14 @@ multi-system game/emulator system.")
(define-public scummvm
(package
(name "scummvm")
(version "2.1.0")
(version "2.1.1")
(source
(origin
(method url-fetch)
(uri (string-append "http://www.scummvm.org/frs/scummvm/" version
"/scummvm-" version ".tar.xz"))
(sha256
(base32
"09zp2mxmida6sz5vrr5bzyv8c3yjvq2xqmpmcllbadhmd9cwcl3b"))))
(base32 "1a6waf1ybp91nwva8g650cljlfb1di4l0jv13vg6yfgkas9pclsp"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ;require "git"
@ -1213,7 +1212,7 @@ multi-system game/emulator system.")
;; XXX: The following works around a build failure introduced when
;; Fluidsynth was updated to version 2.1. It has been applied
;; upstream as 68758a879e0c8ecc0d40962516d4e808aa4e15e5 and can be
;; removed once ScummVM 2.1.1+ is out.
;; removed once this commit makes it into a release.
(lambda _
(substitute* "audio/softsynth/fluidsynth.cpp"
(("#include <fluidsynth.h>") "")
@ -1425,7 +1424,7 @@ play them on systems for which they were never designed!")
("flac" ,flac)
("fontconfig" ,fontconfig)
("glm" ,glm)
("libjpeg" ,libjpeg-8) ;jpeg_read_header argument error in libjpeg-9
("libjpeg" ,libjpeg-turbo)
("libxi" ,libxi)
("libxinerama" ,libxinerama)
("lua" ,lua)

99
gnu/packages/finance.scm
View file

@ -15,6 +15,7 @@
;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org>
;;; Copyright © 2019 Martin Becze <mjbecze@riseup.net>
;;; Copyright © 2019 Sebastian Schott <sschott@mailbox.org>
;;; Copyright © 2020 Kei Kebreau <kkebreau@posteo.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -51,11 +52,14 @@
#:use-module (gnu packages check)
#:use-module (gnu packages compression)
#:use-module (gnu packages crypto)
#:use-module (gnu packages curl)
#:use-module (gnu packages databases)
#:use-module (gnu packages docbook)
#:use-module (gnu packages documentation)
#:use-module (gnu packages dns)
#:use-module (gnu packages emacs)
#:use-module (gnu packages dbm)
#:use-module (gnu packages gettext)
#:use-module (gnu packages gnome)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnupg)
@ -67,9 +71,11 @@
#:use-module (gnu packages libunwind)
#:use-module (gnu packages libusb)
#:use-module (gnu packages linux)
#:use-module (gnu packages man)
#:use-module (gnu packages multiprecision)
#:use-module (gnu packages networking)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages popt)
#:use-module (gnu packages protobuf)
#:use-module (gnu packages python)
#:use-module (gnu packages python-crypto)
@ -1202,3 +1208,96 @@ offers confimations after less than 5 seconds and have significantly lower
fees that BTC. Bitcoin ABC is the reference implementation of the Bitcoin
Cash protocol. This package provides the Bitcoin Cash command line client and
a client based on Qt. This is a fork of Bitcoin Core.")))
(define-public libofx
(package
(name "libofx")
(version "0.9.15")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/libofx/libofx")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1jx56ma351p8af8dvavygjwf6ipa7qbgq7bpdsymwj27apdnixfy"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags
(list (string-append "--with-opensp-includes="
(assoc-ref %build-inputs "opensp")
"/include/OpenSP"))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("gengetopt" ,gengetopt)
("help2man" ,help2man)
("libtool" ,libtool)
("pkg-config" ,pkg-config)))
(inputs
`(("curl" ,curl)
("libxml++-2" ,libxml++-2)
("opensp" ,opensp)))
(home-page "http://libofx.sourceforge.net/")
(synopsis "Library supporting the Open Financial Exchange format")
(description
"The LibOFX library is an API designed to allow applications to very easily
support OFX command responses, usually provided by financial institutions. The
following three utilities are included with the library:
@enumerate
@item @code{ofxdump}
@item @code{ofx2qif}
@item @code{ofxconnect}
@end enumerate")
(license license:gpl2+)))
(define-public opensp
(package
(name "opensp")
(version "1.5.2")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/openjade/opensp/"
version "/OpenSP-" version ".tar.gz"))
(sha256
(base32
"1khpasr6l0a8nfz6kcf3s81vgdab8fm2dj291n5r2s53k228kx2p"))))
(build-system gnu-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)))
(inputs
`(("docbook-xml" ,docbook-xml-4.1.2)
("docbook-xsl" ,docbook-xsl)
("xmlto" ,xmlto)))
(arguments
`(;; TODO: Fix and enable tests.
#:tests? #f
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-docbook-paths
(lambda* (#:key inputs #:allow-other-keys)
(let ((xmldoc (string-append (assoc-ref inputs "docbook-xml")
"/xml/dtd/docbook"))
(xsldoc (string-append (assoc-ref inputs "docbook-xsl")
"/xml/xsl/docbook-xsl-"
,(package-version docbook-xsl))))
(substitute* (find-files "docsrc" "\\.xml$")
(("/usr/share/sgml/docbook/xml-dtd-4.1.2") xmldoc)
(("http://.*/docbookx\\.dtd")
(string-append xmldoc "/docbookx.dtd")))
;; Directly pass the path to the stylesheet to xmlto.
(substitute* "docsrc/Makefile.in"
(("\\$\\(XMLTO\\)")
(string-append "$(XMLTO) -x " xsldoc
"/manpages/docbook.xsl")))
#t))))))
(home-page "http://openjade.sourceforge.net/")
(synopsis "Suite of SGML/XML processing tools")
(description "OpenSP is an object-oriented toolkit for SGML parsing and
entity management.")
(license
;; expat license with added clause regarding advertising
(license:non-copyleft
"file://COPYING"
"See COPYING in the distribution."))))

2
gnu/packages/fonts.scm
View file

@ -511,7 +511,7 @@ variants.")
(base32
"1mkmxq8g2hjcglb3zajfqj20r4r88l78ymsp2xyl5yav8w3f7dz4"))))
(build-system font-build-system)
(home-page "https://wenq.org/wqy2/")
(home-page "http://wenq.org/wqy2/")
(synopsis "CJK font")
(description
"WenQuanYi Zen Hei is a Hei-Ti style (sans-serif type) Chinese outline

2
gnu/packages/fpga.scm
View file

@ -2,7 +2,7 @@
;;; Copyright © 2016 Danny Milosavljevic <dannym@scratchpost.org>
;;; Copyright © 2016, 2017 Theodoros Foradis <theodoros@foradis.org>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Amin Bandali <bandali@gnu.org>
;;; Copyright © 2019 Amin Bandali <mab@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;

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

@ -15,7 +15,7 @@
;;; Copyright © 2017, 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019 Leo Prikler <leo.prikler@student.tugraz.at>
;;; Copyright © 2019, 2020 Leo Prikler <leo.prikler@student.tugraz.at>
;;; Copyright © 2019 Jethro Cao <jethrocao@gmail.com>
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;;
@ -1086,39 +1086,31 @@ developed mainly for Ren'py.")
(setenv "RENPY_DEPS_INSTALL" (string-join (map cdr inputs) ":"))
#t))
(replace 'build
(lambda args
(apply
(lambda* (build-root #:key inputs outputs #:allow-other-keys)
;; The "module" subdirectory contains a python (really cython)
;; project, which is built using a script, that is thankfully
;; named "setup.py".
(chdir "module")
(apply (assoc-ref %standard-phases 'build) args)
;; the above causes renpy.__init__ to be compiled but does not
;; compile anything else, hence we do that here
(chdir build-root)
(delete-file "renpy/__init__.pyc")
(invoke "python" "-m" "compileall" "renpy"))
(getcwd) args)
(lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
;; The "module" subdirectory contains a python (really cython)
;; project, which is built using a script, that is thankfully
;; named "setup.py".
(with-directory-excursion "module"
(apply (assoc-ref %standard-phases 'build) args))
;; the above causes renpy.__init__ to be compiled but does not
;; compile anything else, hence we do that here
(delete-file "renpy/__init__.pyc")
(invoke "python" "-m" "compileall" "renpy")
#t))
(replace 'install
(lambda args
(apply
(lambda* (build-root #:key inputs outputs #:allow-other-keys)
;; Again, we have to wrap the module installation.
;; Additionally, we want to install the python code
;; (both source and compiled) in the same directory.
(let* ((out (assoc-ref outputs "out"))
(site (string-append "/lib/python"
,(version-major+minor
(package-version python-2))
"/site-packages")))
(chdir "module")
(apply (assoc-ref %standard-phases 'install) args)
(chdir build-root)
(copy-recursively "renpy"
(string-append out site "/renpy"))))
(getcwd) args)
(lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
;; Again, we have to wrap the module installation.
;; Additionally, we want to install the python code
;; (both source and compiled) in the same directory.
(let* ((out (assoc-ref outputs "out"))
(site (string-append "/lib/python"
,(version-major+minor
(package-version python-2))
"/site-packages")))
(with-directory-excursion "module"
(apply (assoc-ref %standard-phases 'install) args))
(copy-recursively "renpy"
(string-append out site "/renpy")))
#t)))))
(inputs
`(("ffmpeg" ,ffmpeg)
@ -2029,3 +2021,31 @@ 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))))
(define-public chipmunk
(package
(name "chipmunk")
(version "7.0.3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/slembcke/Chipmunk2D.git")
(commit (string-append "Chipmunk-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1qmkn01g06p3rnhmbyffmjns6wj5vhgf9cscigk3wzxcpwv1hyxb"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ;no test
#:configure-flags '("-DBUILD_STATIC=OFF"
"-DBUILD_DEMOS=OFF")))
(inputs
`(("freeglut" ,freeglut)
("libxmu" ,libxmu)
("libxrandr" ,libxrandr)))
(home-page "https://chipmunk-physics.net/")
(synopsis "Fast and lightweight 2D game physics library")
(description "Chipmunk is a simple, lightweight, fast and portable 2D
rigid body physics library written in C.")
(license license:expat)))

557
gnu/packages/games.scm
View file

@ -30,7 +30,7 @@
;;; Copyright © 2017, 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017, 2018 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2017 Roel Janssen <roel@gnu.org>
;;; Copyright © 2017, 2018, 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2017, 2018, 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2018 okapi <okapi@firemail.cc>
;;; Copyright © 2018 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
;;; Copyright © 2018 Madalin Ionel-Patrascu <madalinionel.patrascu@mdc-berlin.de>
@ -42,8 +42,8 @@
;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2019 Jesse Gibbons <jgibbons2357+guix@gmail.com>
;;; Copyright © 2019 Dan Frumin <dfrumin@cs.ru.nl>
;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019 Timotej Lazar <timotej.lazar@araneo.si>
;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019, 2020 Timotej Lazar <timotej.lazar@araneo.si>
;;; Copyright © 2019 Josh Holland <josh@inv.alid.pw>
;;; Copyright © 2017, 2019 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;;
@ -462,6 +462,62 @@ want what you have.")
(define-public cataclysm-dark-days-ahead
(deprecated-package "cataclysm-dark-days-ahead" cataclysm-dda))
(define-public corsix-th
(package
(name "corsix-th")
(version "0.63")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/CorsixTH/CorsixTH.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1rkyk8g55xny276s0hr5k8mq6f4nzz56d3k2mp09dzfymrqb8hgi"))))
(build-system cmake-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'wrap-binary
(lambda _
;; Set Lua module paths and default MIDI soundfont on startup.
(let* ((out (assoc-ref %outputs "out"))
(fluid (assoc-ref %build-inputs "fluid-3"))
(lua-version ,(version-major+minor (package-version lua)))
(lua-cpath
(map (lambda (lib)
(string-append
(assoc-ref %build-inputs (string-append "lua-" lib))
"/lib/lua/" lua-version "/?.so"))
'("filesystem" "lpeg"))))
(wrap-program (string-append out "/bin/corsix-th")
`("LUA_CPATH" ";" = ,lua-cpath)
`("SDL_SOUNDFONTS" ":" suffix
(,(string-append fluid "/share/soundfonts/FluidR3Mono_GM.sf3")))))
#t)))
#:tests? #f)) ; TODO need busted package to run tests
;; Omit Lua-Socket dependency to disable automatic updates.
(inputs
`(("ffmpeg" ,ffmpeg)
("fluid-3" ,fluid-3)
("freetype" ,freetype)
("lua" ,lua)
("lua-filesystem" ,lua-filesystem)
("lua-lpeg" ,lua-lpeg)
("sdl2" ,sdl2)
("sdl2-mixer" ,sdl2-mixer)))
(home-page "https://corsixth.com")
(synopsis "Implementation of the @i{Theme Hospital} game engine")
(description
"This package provides a reimplementation of the 1997 Bullfrog business
simulation game @i{Theme Hospital}. As well as faithfully recreating the
original engine, CorsixTH adds support for high resolutions, custom levels and
more. This package does @emph{not} provide the game assets.")
(license (list
license:expat ; main license
license:bsd-3)))) ; CorsixTH/Src/random.c
(define-public cowsay
(package
(name "cowsay")
@ -654,7 +710,7 @@ real-time combat.")
(define-public golly
(package
(name "golly")
(version "3.2")
(version "3.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/golly/golly/golly-"
@ -662,7 +718,7 @@ real-time combat.")
"-src.tar.gz"))
(sha256
(base32
"0cg9mbwmf4q6qxhqlnzrxh9y047banxdb8pd3hgj3smmja2zf0jd"))))
"1j3ksnar4rdam4xiyspgyrs1pifbvxfxkrn65brkwxpx39mpgzc8"))))
(build-system gnu-build-system)
(arguments
'(#:make-flags (list "CC=gcc"
@ -739,6 +795,34 @@ automata. The following features are available:
@end enumerate")
(license license:gpl2+)))
(define-public julius
(package
(name "julius")
(version "1.2.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/bvschaik/julius.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0kgyzfjii4dhpy2h05977alwdmxyxb4jxznnrhlgb21m0ybncmvp"))))
(build-system cmake-build-system)
(inputs
`(("sdl2" ,sdl2)
("sdl2-mixer" ,sdl2-mixer)))
(home-page "https://github.com/bvschaik/julius")
(synopsis "Re-implementation of Caesar III game engine")
(description
"Engine for Caesar III, a city-building real-time strategy game.
Julius includes some UI enhancements while preserving the logic (including
bugs) of the original game, so that saved games are compatible. This package
does not include game data.")
(license (list license:agpl3
license:expat ; ext/dirent
license:zlib)))) ; ext/tinyfiledialogs
(define-public meandmyshadow
(package
(name "meandmyshadow")
@ -822,8 +906,8 @@ destroying an ancient book using a special wand.")
(source
(origin
(method url-fetch)
(uri (string-append "http://files.gnubg.org/media/sources/gnubg-release-"
version "-sources." "tar.gz"))
(uri (string-append "mirror://gnu/gnubg/gnubg-release-"
version "-sources.tar.gz"))
(sha256
(base32
"11xwhcli1h12k6rnhhyq4jphzrhfik7i8ah3k32pqw803460n6yf"))))
@ -838,7 +922,27 @@ destroying an ancient book using a special wand.")
("libcanberra" ,libcanberra)))
(native-inputs `(("python-2" ,python-2)
("pkg-config" ,pkg-config)))
(home-page "http://gnubg.org")
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'install-desktop-file
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(apps (string-append out "/share/applications")))
(mkdir-p apps)
(with-output-to-file (string-append apps "/gnubg.desktop")
(lambda _
(format #t
"[Desktop Entry]~@
Name=GNU Backgammon~@
Exec=~a/bin/gnubg -w~@
Icon=gnubg~@
Categories=Game;~@
Terminal=false~@
Type=Application~%"
out))))
#t)))))
(home-page "https://www.gnu.org/software/gnubg/")
(synopsis "Backgammon game")
(description "The GNU backgammon application (also known as \"gnubg\") can
be used for playing, analyzing and teaching the game. It has an advanced
@ -1527,16 +1631,21 @@ a C library, so they can easily be integrated into other programs.")
(define-public cmatrix
(package
(name "cmatrix")
(version "1.2a")
(version "2.0")
(source
(origin
(method url-fetch)
(uri (string-append "http://www.asty.org/cmatrix/dist/cmatrix-" version
".tar.gz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/abishekvashok/cmatrix.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0k06fw2n8nzp1pcdynhajp5prba03gfgsbj91bknyjr5xb5fd9hz"))))
"1h9jz4m4s5l8c3figaq46ja0km1gimrkfxm4dg7mf4s84icmasbm"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)))
(arguments
'(#:phases
(modify-phases %standard-phases
@ -1886,7 +1995,7 @@ match, cannon keep, and grave-itation pit.")
(define minetest-data
(package
(name "minetest-data")
(version "5.1.0")
(version "5.1.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1914,13 +2023,13 @@ match, cannon keep, and grave-itation pit.")
(synopsis "Main game data for the Minetest game engine")
(description
"Game data for the Minetest infinite-world block sandbox game.")
(home-page "http://minetest.net")
(home-page "https://www.minetest.net/")
(license license:lgpl2.1+)))
(define-public minetest
(package
(name "minetest")
(version "5.1.0")
(version "5.1.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1929,16 +2038,10 @@ match, cannon keep, and grave-itation pit.")
(file-name (git-file-name name version))
(sha256
(base32
"184n9gxfa7yr0j85z2x736maaymsnppd5jzm326wlqri3c0qqy3z"))
"0cjj63333b7j4ydfq0h9yc6d2jvmyjd7n7zbd08yrf0rcibrj2k0"))
(modules '((guix build utils)))
(snippet
'(begin
;; Mimic upstream commit 706b6aad06, for compatibility with
;; newer jsoncpp. Remove this for > 5.1.0.
(substitute* "cmake/Modules/FindJson.cmake"
(("features\\.h")
"allocator.h"))
;; Delete bundled libraries.
(delete-file-recursively "lib")
#t))))
@ -1988,7 +2091,7 @@ various types of blocks in a three-dimensional open world. This allows
forming structures in every possible creation, on multiplayer servers or as a
single player. Mods and texture packs allow players to personalize the game
in different ways.")
(home-page "http://minetest.net")
(home-page "https://www.minetest.net/")
(license license:lgpl2.1+)))
(define glkterm
@ -2061,7 +2164,7 @@ using the @code{curses.h} library for screen control.")
(install-file "glulxe" bin))
#t))
(delete 'configure)))) ; no configure script
(home-page "http://www.eblong.com/zarf/glulx/")
(home-page "https://www.eblong.com/zarf/glulx/")
(synopsis "Interpreter for Glulx VM")
(description
"Glulx is a 32-bit portable virtual machine intended for writing and
@ -2285,7 +2388,7 @@ This game is based on the GPL version of the famous game TuxRacer.")
(define-public supertuxkart
(package
(name "supertuxkart")
(version "1.0")
(version "1.1")
(source
(origin
(method url-fetch)
@ -2293,7 +2396,7 @@ This game is based on the GPL version of the famous game TuxRacer.")
version "/supertuxkart-" version "-src.tar.xz"))
(sha256
(base32
"106rlp99hq18b4q1kdri3pl06cc4v7iqfp1hp9k2f8751lzz923d"))
"1s0ai07g3sswck9mr0142989mrgzzq1njc1qxk5als5b245jpc79"))
(modules '((guix build utils)))
(snippet
;; Delete bundled library sources
@ -2301,7 +2404,7 @@ This game is based on the GPL version of the famous game TuxRacer.")
;; Supertuxkart uses modified versions of the Irrlicht engine
;; and the bullet library. The developers gave an explanation
;; here: http://forum.freegamedev.net/viewtopic.php?f=17&t=3906
;; FIXME: try to unbundle angelscript
;; FIXME: try to unbundle angelscript and libraqm
(for-each delete-file-recursively
'("lib/zlib"
"lib/libpng"
@ -2319,6 +2422,9 @@ This game is based on the GPL version of the famous game TuxRacer.")
"-DNO_IRR_COMPILE_WITH_ZLIB_=TRUE"
"-DUSE_SYSTEM_GLEW=TRUE"
"-DUSE_SYSTEM_ENET=TRUE"
;; In order to use the system ENet library, IPv6 support (added in
;; SuperTuxKart version 1.1) must be disabled.
"-DUSE_IPV6=FALSE"
;; FIXME: needs libopenglrecorder
"-DBUILD_RECORDER=0"
;; Irrlicht returns an integer instead of a boolean
@ -2330,6 +2436,7 @@ This game is based on the GPL version of the famous game TuxRacer.")
("libvorbis" ,libvorbis)
("freetype" ,freetype)
("fribidi" ,fribidi)
("harfbuzz" ,harfbuzz)
("mesa" ,mesa)
("libx11" ,libx11)
("libxrandr" ,libxrandr)
@ -2341,7 +2448,7 @@ This game is based on the GPL version of the famous game TuxRacer.")
("enet" ,enet)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://supertuxkart.net/")
(home-page "https://supertuxkart.net/Main_Page")
(synopsis "3D kart racing game")
(description "SuperTuxKart is a 3D kart racing game, with a focus on
having fun over realism. You can play with up to 4 friends on one PC, racing
@ -3141,45 +3248,8 @@ http://lavachat.symlynx.com/unix/")
(license license:gpl2+)))
(define-public red-eclipse
(let ((release "1.6.0")
(revision 0)
(data-sources
'(("acerspyro" "12b0bngl7hlxw4iwdbn99jp081yl6z1ic0s788nm349drbr2pck8")
("actors" "0x7qqx67679q6ark9zz02skwhzgabid69kwi6zmhfpfgicn4927r")
("appleflap" "08xslwqfqz3j4m03pv5ry2gdzj5k2ns51z8n6sln3sa94i9x8qkm")
("blendbrush" "18zf5i2ax4p14x4c9nhk9fq6l1xgbxw62gm72vx59vbfdpjrw3cg")
("caustics" "172fxwx7kbz5nmbjq98kr52ips505wb99fibgnpg8cj02syrya8k")
("crosshairs" "14w8ysqzdsx9bzpfbl700jzngbh14rdghhjdf6zd6jlkvrl6754r")
("dziq" "056imqszvp90j7cgz52ly0f31px64gsrmvm9k2c78ldbx87jnhc3")
("elyvisions" "1bsgr0gr7njydj8fqclh0a27lrsyic3xfd5a4vwggw7g54azpgk2")
("fonts" "00ibisza1qci0ghf2rynyf28l6r3nqhfzjf80k6gg76q4v7p1myx")
("freezurbern" "07l9ldk9b82f12c13wcg5xxdf15bw0yjxk3vvk8v3ygrl2mwksyr")
("john" "1jdmwkrdi5b9pivkm22rxhmkk1db9dx6l54wzcc23cvdz04ij93k")
("jojo" "0f7kjy43fbk9kw8fip6bbw4gn3pryh0fndlahjfkaysrx98krdj3")
("jwin" "0nc8dndnpqk2ad6316a8k6kgzsrkpwvk8s4gyh7aqfi4axfclril")
("luckystrike" "04jiipqahphmvz5cd74dygr62dlvv6l4iglb8hzh4pp8frhls8bq")
("maps" "0an46ipjvw4h0nxvb6qvnzp1cdkzlkiinqz4zh9lmxy1ds0gclim")
("mayhem" "15k10imm2wr6c6fq35n4r99k7kz7n9zdnjlw6dmdq6fba67i6sbc")
("mikeplus64" "0v4wiiivm3829j4phlavy22n4c6k6ib9ixxpdz7r6ysg5cdkaw33")
("misc" "13rfgwrlfhflz6inbkg3fypyf8im0m49sw112b17qrw2zgp8i1rz")
("nieb" "0z0h9jdn2gkkjil3vsvwidb1p2k09pi5n3wjxza12hhvqmcs7q8f")
("nobiax" "08bfp4q6gbfis18bp1h4d0hqssk79jc4fhyjxnv21dbam4v4mnkn")
("particles" "1vsx3fgg19xggxfhz3vlrh6nqhmw7kl9kmxrvb2j84blp00vd6z2")
("philipk" "14irscg80607i5k5l2ci0n9nwibvda2f3xsykgv96d0vldrp5n5a")
("projectiles" "09bnfsrywirwgjm6d7ff5nicx6w6b7w9568x9pb5q0ncaps3l85s")
("props" "1dlabbprlkif8af3daf9nbgcwgxiymvj0yiphqhlri8ylfy2vpz4")
("skyboxes" "14bi3md5y47cvb9ybipdvksz40gqsqw2r0lh3zzqb4acq367w18y")
("snipergoth" "0m8rvvy5n8n9pm0b5cqvzsxsw51mqk8m7s1h3qc849b38isliwq2")
("sounds" "0ivf3w5bphz5pzzx6kwcb67vbly1l19cgv3s0cyp8n87afiqj5rd")
("textures" "0qdmgx7zbcqnb9rrga2izr93p5inirczhddfxs504rsnv0v8vyxm")
("torley" "05ppyhghq859cbbxzj3dnl9fcx3ghy04ds1pylypwg2hsxzbjwcd")
("trak" "0g3vq86q91a3syli38lwc8ca4ychfwsmmqf85kqzfzyd627ybclm")
("ulukai" "0asa5fz400impklcg6dy2f7jiaqfc1sn1c36fpg8jd01gw66lw93")
("unnamed" "0rz5683j7sfwkcycfypbv4b0ihp0qwn9rzskfsabwc1s5g324917")
("vanities" "13f18783rc8cjf22p61zr8m5g1migzlx05fzl8xnbjdkqq4cdyix")
("vegetation" "1y5d97nfmvax7y4fr0y5v0c8zb1ajkqwx76kjd4qc9n4spdsi5sc")
("weapons" "103g1dhxv5ffz4ddg2xcbshbgv9606chsbas3pzk6h9ybqsyjrqh")
("wicked" "1884rk34a2dj83gz82rc4zh3ch0dyj5221hvsr0a5h60578i7yj6"))))
(let ((release "2.0.0")
(revision 0))
(package
(name "red-eclipse")
(version (if (zero? revision)
@ -3190,13 +3260,18 @@ http://lavachat.symlynx.com/unix/")
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/red-eclipse/base.git")
(commit (string-append "v" release))))
(url "https://github.com/redeclipse/base.git")
(commit (string-append "v" release))
(recursive? #t))) ; for game data
(file-name (git-file-name name version))
(sha256
(base32 "0qy9kmq21wc4bdhwifasxc5dv1y5c53sn7dfmyc5y3zyz8wjyij4"))
(patches
(search-patches "red-eclipse-remove-gamma-name-hack.patch"))))
(base32 "0sz0mqhwx8r9n4mk3qrxw420nlsm3y0n48gd0lazgd64lfqjh3ab"))
(modules '((guix build utils)))
(snippet
;; Remove proprietary libraries and other pre-compiled binaries.
'(begin
(delete-file-recursively "bin")
#t))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no check target
@ -3207,34 +3282,13 @@ http://lavachat.symlynx.com/unix/")
(assoc-ref %outputs "out")))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'unpack-data
(lambda* (#:key inputs #:allow-other-keys)
(delete-file-recursively "data")
(mkdir "data")
(with-directory-excursion "data"
(for-each (lambda (name)
(copy-recursively (assoc-ref inputs name) name))
(list ,@(map car data-sources))))
#t))
(add-after 'unpack-data 'add-store-data-package-path-as-default
(add-after 'unpack 'add-store-data-package-path-as-default
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "src/engine/server.cpp"
(("(else[[:space:]]*)((addpackagedir\\()\"data\"(\\);))"
_
else_part
addpackagedir_original
addpackagedir_open
addpackagedir_close)
(string-append else_part
"{ "
addpackagedir_open
"\""
(("data = \"data\"")
(string-append "data = \""
(assoc-ref outputs "out")
"/share/redeclipse/data\""
addpackagedir_close
" "
addpackagedir_original
" }")))
"/share/redeclipse/data\"")))
#t))
(delete 'configure) ; no configure script
(add-after 'set-paths 'set-sdl-paths
@ -3291,37 +3345,27 @@ exec -a \"$0\" ~a/.redeclipse_server_linux-real~%"
`(("pkg-config" ,pkg-config)))
(inputs
`(("curl" ,curl)
("freetype" ,freetype)
("glu" ,glu)
("sdl-union" ,(sdl-union (list sdl2
sdl2-image
sdl2-mixer)))
;; Create origin records for the many separate data packages.
,@(map (match-lambda
((name hash)
(list name
(origin
(method git-fetch)
(uri
(git-reference
(url (string-append "https://github.com/"
"red-eclipse/" name ".git"))
(commit (string-append "v" release))))
(sha256 (base32 hash))
(file-name (git-file-name name version))))))
data-sources)))
(home-page "http://redeclipse.net/")
sdl2-mixer)))))
(home-page "https://redeclipse.net/")
(synopsis "Arena shooter derived from the Cube 2 engine")
(description
"Red Eclipse is an arena shooter, created from the Cube2 engine.
Offering an innovative parkour system and distinct but all potent weapons,
Red Eclipse provides fast paced and accessible gameplay.")
;; The engine is under Zlib; data files are covered by the other
;; licenses. More details at <http://redeclipse.net/wiki/License>.
;; licenses. More details at file:///doc/all-licenses.txt.
(license (list license:expat
license:zlib
license:cc-by-sa4.0
license:cc-by-sa3.0
license:cc-by3.0
license:cc0)))))
license:cc0
license:public-domain
license:silofl1.1)))))
(define-public grue-hunter
(package
@ -3800,16 +3844,16 @@ a style similar to the original Super Mario games.")
(define-public tintin++
(package
(name "tintin++")
(version "2.01.7")
(version "2.02.00")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/tintin/TinTin++ Source Code/"
(version-major+minor version)
(string-drop-right version 1)
"/tintin-" version ".tar.gz"))
(sha256
(base32
"033n84pyxml3n3gd4dq0497n9w331bnrr1gppwipz9ashmq8jz7v"))))
"02qmbhzhh2sdy5b37v54gihs9k4bxmlz3j96gyx7icvx2grkbg5i"))))
(inputs
`(("gnutls" ,gnutls)
("pcre" ,pcre)
@ -3825,14 +3869,14 @@ a style similar to the original Super Mario games.")
(chdir "src")
#t)))))
(build-system gnu-build-system)
(home-page "http://tintin.sourceforge.net/")
(home-page "https://tintin.mudhalla.net/")
(synopsis "MUD client")
(description
"TinTin++ is a MUD client which supports MCCP (Mud Client Compression
Protocol), MMCP (Mud Master Chat Protocol), xterm 256 colors, most TELNET
options used by MUDs, as well as those required to login via telnet on
Linux / Mac OS X servers, and an auto mapper with a VT100 map display.")
(license license:gpl2+)))
(license license:gpl3+)))
(define-public laby
(package
@ -4486,7 +4530,7 @@ small robot living in the nano world, repair its maker.")
(define-public teeworlds
(package
(name "teeworlds")
(version "0.7.2")
(version "0.7.4")
(source (origin
(method git-fetch)
(uri (git-reference
@ -4495,7 +4539,7 @@ small robot living in the nano world, repair its maker.")
(file-name (git-file-name name version))
(sha256
(base32
"15l988qcsqgb6rjais0qd5sd2rjanm2708jmzvkariqzz0d6pb93"))
"1lxdb1k2cdj2421vyz1z0ximzfnpkh2y4y84zpn2gqsa1nzwbryb"))
(modules '((guix build utils)
(ice-9 ftw)
(ice-9 regex)
@ -4507,9 +4551,7 @@ small robot living in the nano world, repair its maker.")
(cut string-append base-dir <>))
(remove (cut string-match "(^.)|(^md5$)" <>)
(scandir base-dir)))
#t))
(patches
(search-patches "teeworlds-use-latest-wavpack.patch"))))
#t))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no tests included
@ -4520,19 +4562,6 @@ small robot living in the nano world, repair its maker.")
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
;; The bundled json-parser uses an old API.
;; To use the latest non-bundled version, we need to pass the
;; length of the data in all 'json_parse_ex' calls.
(define (use-latest-json-parser file)
(substitute* file
(("engine/external/json-parser/json\\.h")
"json-parser/json.h")
(("json_parse_ex\\(&JsonSettings, pFileData, aError\\);")
"json_parse_ex(&JsonSettings,
pFileData,
strlen(pFileData),
aError);")))
;; Embed path to assets.
(substitute* "src/engine/shared/storage.cpp"
(("#define DATA_DIR.*")
@ -4564,13 +4593,6 @@ settings.link.libs:Add(\"wavpack\")")
(substitute* "src/engine/client/sound.cpp"
(("engine/external/wavpack/wavpack\\.h")
"wavpack/wavpack.h"))
(for-each use-latest-json-parser
'("src/game/client/components/countryflags.cpp"
"src/game/client/components/menus_settings.cpp"
"src/game/client/components/skins.cpp"
"src/game/client/localization.cpp"
"src/game/editor/auto_map.h"
"src/game/editor/editor.cpp"))
#t))
(replace 'build
(lambda _
@ -5314,15 +5336,14 @@ Tales of Maj’Eyal offers engaging roguelike gameplay for the 21st century.")
(define-public quakespasm
(package
(name "quakespasm")
(version "0.93.1")
(version "0.93.2")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/quakespasm/Source/quakespasm-"
version ".tgz"))
(sha256
(base32
"1bimv18f6rzhyjz78yvw2vqr5n0kdqbcqmq7cb3m951xgsxfcgpd"))))
(base32 "0qm0j5drybvvq8xadfyppkpk3rxqsxbywzm6iwsjwdf0iia3gss5"))))
(arguments
`(#:tests? #f
#:make-flags '("CC=gcc"
@ -5685,24 +5706,29 @@ You can save humanity and get programming skills!")
(define-public gzdoom
(package
(name "gzdoom")
(version "3.7.2")
(source (origin
(method url-fetch)
(uri
(string-append "https://zdoom.org/files/gzdoom/src/gzdoom-src-g"
version ".zip"))
(sha256
(base32
"0182f160m8d0c3nywjw3dxvnz93xjs4cn8akx7137cha4s05wdq7"))
(patches (search-patches "gzdoom-search-in-installed-share.patch"))
(modules '((guix build utils)))
(snippet
'(begin
(delete-file-recursively "bzip2")
(delete-file-recursively "game-music-emu")
(delete-file-recursively "jpeg")
(delete-file-recursively "zlib")
#t))))
(version "4.3.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/coelckers/gzdoom.git")
(commit (string-append "g" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0i4hyg72z84fc6ca2ic9q82q5cbgrbd7bynl3kpkypxvyasq08wz"))
(patches (search-patches "gzdoom-search-in-installed-share.patch"
"gzdoom-find-system-libgme.patch"))
(modules '((guix build utils)))
(snippet
'(begin
;; Remove some bundled libraries. XXX There are more, but removing
;; them would require, at least, patching the build system.
(with-directory-excursion "libraries"
(delete-file-recursively "bzip2")
(delete-file-recursively "game-music-emu")
(delete-file-recursively "jpeg")
(delete-file-recursively "zlib"))
#t))))
(arguments
'(#:tests? #f
#:configure-flags
@ -5712,8 +5738,12 @@ You can save humanity and get programming skills!")
"-DCMAKE_CXX_FLAGS:="
"-DSHARE_DIR=\\\"" out "/share/\\\" "
"-DGUIX_OUT_PK3=\\\"" out "/share/games/doom\\\"")
;; look for libraries at buildtime instead of
;; dynamically finding them at runtime
;; The build requires some extra convincing not to use the bundled
;; libgme previously deleted in the soure snippet.
"-DFORCE_INTERNAL_GME=OFF"
;; Link libraries at build time instead of loading them at run time.
"-DDYN_OPENAL=OFF"
"-DDYN_FLUIDSYNTH=OFF"
"-DDYN_GTK=OFF"
@ -5733,19 +5763,19 @@ You can save humanity and get programming skills!")
(string-append "COMMAND " (which "sh"))))
(substitute*
"src/sound/mididevices/music_fluidsynth_mididevice.cpp"
"libraries/zmusic/mididevices/music_fluidsynth_mididevice.cpp"
(("/usr/share/sounds/sf2/FluidR3_GM.sf2")
(string-append fluid-3 "/share/soundfonts/FluidR3Mono_GM.sf3")))
(substitute*
"src/sound/mididevices/music_timiditypp_mididevice.cpp"
"libraries/zmusic/mididevices/music_timiditypp_mididevice.cpp"
(("exename = \"timidity\"")
(string-append "exename = \"" timidity++ "/bin/timidity\"")))
#t))))))
(build-system cmake-build-system)
(inputs `(("bzip2" ,bzip2)
("fluid-3" ,fluid-3)
("fluidsynth" ,fluidsynth-1) ;XXX: try using 2.x when updating
("fluidsynth" ,fluidsynth)
("gtk+3" ,gtk+)
("libgme" ,libgme)
("libjpeg" ,libjpeg)
@ -5776,7 +5806,7 @@ Strife, Chex Quest, and fan-created games like Harmony, Hacx and Freedoom.")
(define-public odamex
(package
(name "odamex")
(version "0.8.0")
(version "0.8.1")
(source
(origin
(method url-fetch)
@ -5784,10 +5814,9 @@ Strife, Chex Quest, and fan-created games like Harmony, Hacx and Freedoom.")
"mirror://sourceforge/odamex/Odamex/" version "/"
"odamex-src-" version ".tar.gz"))
(sha256
(base32
"1sh6lqj7vsdmnqz17hw0b6vy7xx6dp41k2sdw99ympsfa2xd1d2j"))))
(base32 "1ywbqkfacc9fc5di3dn95y5ah2ys9i241j64q3f37a73x92llw1i"))))
(build-system cmake-build-system)
(arguments `(#:tests? #f)) ; no tests.
(arguments `(#:tests? #f)) ; no tests
(inputs
`(("sdl" ,sdl)
("sdl-mixer" ,sdl-mixer)
@ -5840,7 +5869,7 @@ affect gameplay).")
(package
(inherit chocolate-doom)
(name "crispy-doom")
(version "5.6.3")
(version "5.6.4")
(source (origin
(method git-fetch)
(uri (git-reference
@ -5848,7 +5877,7 @@ affect gameplay).")
(commit (string-append "crispy-doom-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0f319979wqfgm4pvsa6y5clg30p55l441kmrr8db0p5smyv3x2s4"))))
(base32 "1ls4v2kpb7vi7xji5yqbmyc5lfkz497h1vvj9w86wkrw8k59hlg2"))))
(native-inputs
(append
(package-native-inputs chocolate-doom)
@ -5858,7 +5887,7 @@ affect gameplay).")
`(#:phases
(modify-phases %standard-phases
(replace 'bootstrap
;; the autogen.sh script in the source tree doesn't work
;; The bundled autogen.sh script unconditionally runs ./configure.
(lambda _ (invoke "autoreconf" "-vif"))))))
(synopsis "Limit-removing enhanced-resolution Doom source port based on
Chocolate Doom")
@ -5870,10 +5899,79 @@ entirely config file, savegame, netplay and demo compatible with the
original.")
(home-page "https://www.chocolate-doom.org/wiki/index.php/Crispy_Doom")))
(define shlomif-cmake-modules
(origin
(method url-fetch)
(uri (string-append "https://bitbucket.org/shlomif/shlomif-cmake-modules/"
"raw/c505713d7a7cda608f97f01577e5868a711b883e/"
"shlomif-cmake-modules/Shlomif_Common.cmake"))
(sha256
(base32 "0kx9s1qqhhzprp1w3b67xmsns0n0v506bg5hgrshxaxpy6lqiwb2"))))
(define-public rinutils
(package
(name "rinutils")
(version "0.2.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/shlomif/rinutils.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1fpxyg86ggv0h7j8aarjjxrvwlj7jycd3bw066c0dwkq2fszxsf2"))))
(native-inputs
`(("perl" ,perl)
;; The following is only needed for tests.
("perl-file-find-object" ,perl-file-find-object)
("perl-test-differences" ,perl-test-differences)
("perl-class-xsaccessor" ,perl-class-xsaccessor)
("perl-io-all" ,perl-io-all)
("perl-test-runvalgrind" ,perl-test-runvalgrind)
("cmake-rules" ,shlomif-cmake-modules)
("pkg-config" ,pkg-config)))
(inputs
`(("cmocka" ,cmocka)
("perl-env-path", perl-env-path)
("perl-inline" ,perl-inline)
("perl-inline-c" ,perl-inline-c)
("perl-string-shellquote" ,perl-string-shellquote)
("perl-test-trailingspace" ,perl-test-trailingspace)
("perl-file-find-object-rule" ,perl-file-find-object-rule)
("perl-text-glob" ,perl-text-glob)
("perl-number-compare" ,perl-number-compare)
("perl-moo" ,perl-moo)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-build-env
(lambda* (#:key inputs #:allow-other-keys)
(use-modules (guix build utils))
(let* ((cmake-rules (assoc-ref inputs "cmake-rules")))
(copy-file cmake-rules
(string-append "cmake/"
(strip-store-file-name cmake-rules)))
#t)))
(replace 'check
(lambda _
(with-directory-excursion "../source"
(setenv "FCS_TEST_BUILD" "1")
(setenv "RINUTILS_TEST_BUILD" "1")
;; TODO: Run tests after setting RINUTILS_TEST_TIDY to `1',
;; which requires tidy-all.
;; (setenv "RINUTILS_TEST_TIDY" "1")
(invoke "perl" "CI-testing/continuous-integration-testing.pl")))))))
(build-system cmake-build-system)
(home-page "https://www.shlomifish.org/open-source/projects/")
(synopsis "C11 / gnu11 utilities C library")
(description "This package provides C11 / gnu11 utilities C library")
(license license:expat)))
(define-public fortune-mod
(package
(name "fortune-mod")
(version "2.6.2")
(version "2.12.0")
(source
(origin
(method git-fetch)
@ -5883,7 +5981,7 @@ original.")
(file-name (git-file-name name version))
(sha256
(base32
"11xff87s8ifw2dqs90n0rjq0psv4i7ykybygmibsqjj7id3xxw4c"))))
"0laxgqsdg7kvpvvm1f54b94ga9r0cr9g3ffii8avg8fy65x6pzc9"))))
(build-system cmake-build-system)
(arguments
`(#:test-target "check"
@ -5922,14 +6020,8 @@ original.")
("perl-class-xsaccessor" ,perl-class-xsaccessor)
("perl-io-all" ,perl-io-all)
("perl-test-runvalgrind" ,perl-test-runvalgrind)
("cmake-rules"
,(origin
(method url-fetch)
(uri (string-append "https://bitbucket.org/shlomif/shlomif-cmake-modules/"
"raw/c505713d7a7cda608f97f01577e5868a711b883e/"
"shlomif-cmake-modules/Shlomif_Common.cmake"))
(sha256
(base32 "0kx9s1qqhhzprp1w3b67xmsns0n0v506bg5hgrshxaxpy6lqiwb2"))))))
("cmake-rules" ,shlomif-cmake-modules)
("rinutils" ,rinutils)))
(home-page "http://www.shlomifish.org/open-source/projects/fortune-mod/")
(synopsis "The Fortune Cookie program from BSD games")
(description "Fortune is a command-line utility which displays a random
@ -6596,7 +6688,7 @@ civilized than your own.")
("gtk+" ,gtk+-2)
("jsoncpp" ,jsoncpp)
("libpng" ,libpng)
("libjpeg" ,libjpeg-8)
("libjpeg" ,libjpeg-turbo)
("libmad" ,libmad)
("libogg" ,libogg)
("libva" ,libva)
@ -9487,3 +9579,88 @@ control of the board by capturing or adding to one square.
This package is part of the KDE games module.")
(license (list license:gpl2+ license:fdl1.2+))))
(define-public xmoto
(package
(name "xmoto")
(version "0.5.11")
(source
(origin
(method url-fetch)
(uri (string-append
"http://download.tuxfamily.org/xmoto/xmoto/" version "/"
"xmoto-" version "-src.tar.gz"))
(sha256
(base32 "1ci6r8zd0l7z28cy92ddf9dmqbdqwinz2y1cny34c61b57wsd155"))
(patches
(search-patches
"xmoto-remove-glext.patch" ;fixes licensing issue
"xmoto-reproducible.patch"
"xmoto-utf8.patch"))
;; Unbundle ODE.
(modules '((guix build utils)))
(snippet
`(begin
(delete-file-recursively "src/ode")
#t))))
(build-system gnu-build-system)
(arguments
;; XXX: First flag prevents a build error with GCC7+. The second
;; flag works around missing text in game. Both are fixed
;; upstream. Remove once xmoto 0.5.12+ is released.
`(#:make-flags '("CXXFLAGS=-fpermissive -D_GLIBCXX_USE_CXX11_ABI=0")
#:phases
(modify-phases %standard-phases
(add-after 'install 'install-desktop-file
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(apps (string-append out "/share/applications"))
(pixmaps (string-append out "/share/pixmaps")))
(install-file "extra/xmoto.desktop" apps)
(install-file "extra/xmoto.xpm" pixmaps)
#t)))
(add-after 'install-desktop-file 'install-fonts
(lambda* (#:key outputs inputs #:allow-other-keys)
(let ((font-dir (string-append (assoc-ref inputs "font-dejavu")
"/share/fonts/truetype/"))
(target-dir (string-append (assoc-ref outputs "out")
"/share/xmoto/Textures/Fonts/")))
(for-each (lambda (f)
(let ((font (string-append font-dir f))
(target (string-append target-dir f)))
(delete-file target)
(symlink font target)))
'("DejaVuSans.ttf" "DejaVuSansMono.ttf"))
#t)))
(add-after 'install-fonts 'install-man-page
(lambda* (#:key outputs #:allow-other-keys)
(install-file "xmoto.6"
(string-append (assoc-ref outputs "out")
"/share/man/man6"))
#t)))))
(native-inputs
`(("gettext" ,gettext-minimal)))
(inputs
`(("curl" ,curl)
("font-dejavu" ,font-dejavu)
("glu" ,glu)
("libjpeg" ,libjpeg)
("libpng" ,libpng)
("libxdg-basedir" ,libxdg-basedir)
("libxml2" ,libxml2)
("lua" ,lua-5.2)
("ode" ,ode)
("sdl" ,(sdl-union (list sdl sdl-mixer sdl-net sdl-ttf)))
("sqlite" ,sqlite)
("zlib" ,zlib)))
(home-page "https://xmoto.tuxfamily.org/")
(synopsis "2D motocross platform game")
(description "X-Moto is a challenging 2D motocross platform game, where
physics play an all important role in the gameplay. You need to control your
bike to its limit, if you want to have a chance finishing the more difficult
challenges.")
(license (list license:gpl2+ ;whole project
license:bsd-4 ;src/bzip
license:bsd-3 ;src/md5sum
license:lgpl2.1+ ;src/iqsort.h
license:expat))))

6
gnu/packages/genealogy.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -38,7 +39,7 @@
(define-public gramps
(package
(name "gramps")
(version "5.1.1")
(version "5.1.2")
(source
(origin
(method git-fetch)
@ -47,8 +48,7 @@
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1zrvr543zzsiapda75vdd2669fgijmx4cv7nfj5d1jsyz4qnif7b"))))
(base32 "175iwvdp6c1a8rskl2wpk4yvzl437j7hm23v481974a85qy43iv8"))))
(build-system python-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)

129
gnu/packages/geo.scm
View file

@ -7,7 +7,7 @@
;;; Copyright © 2018, 2019 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2018 Joshua Sierles, Nextjournal <joshua@nextjournal.com>
;;; Copyright © 2018, 2019 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Wiktor Żelazny <wzelazny@vurv.cz>
;;; Copyright © 2019 Hartmut Goebel <h.goebel@crazy-compilers.com>
@ -36,6 +36,7 @@
#:use-module (guix build-system go)
#:use-module (guix build-system meson)
#:use-module (guix build-system python)
#:use-module (guix build-system qt)
#:use-module (guix build-system scons)
#:use-module (guix build-system r)
#:use-module (guix download)
@ -1307,7 +1308,7 @@ associated with an address.")
`(#:tests? #f)) ;; Tests require a copy of the maxmind database
(inputs
`(("libmaxminddb" ,libmaxminddb)))
(home-page "http://www.maxmind.com/")
(home-page "https://www.maxmind.com/")
(synopsis "Reader for the MaxMind DB format")
(description "MaxMind DB is a binary file format that stores data indexed
by IP address subnets (IPv4 or IPv6). This is a Python module for reading
@ -1331,8 +1332,130 @@ MaxMind DB files.")
(inputs
`(("python-maxminddb" ,python-maxminddb)
("python-requests" ,python-requests)))
(home-page "http://www.maxmind.com/")
(home-page "https://www.maxmind.com/")
(synopsis "MaxMind GeoIP2 API")
(description "Provides an API for the GeoIP2 web services and databases.
The API also works with MaxMind’s free GeoLite2 databases.")
(license license:asl2.0)))
(define-public routino
(package
(name "routino")
(version "3.3.2")
(source
(origin
(method url-fetch)
(uri (string-append "http://www.routino.org/download/routino-"
version ".tgz"))
(sha256
(base32
"1ccx3s99j8syxc1gqkzsaqkmyf44l7h3adildnc5iq2md7bp8wab"))))
(build-system gnu-build-system)
(native-inputs
`(("perl" ,perl)))
(inputs
`(("bzip2" ,bzip2)
("xz" ,xz)
("zlib" ,zlib)))
(arguments
`(#:test-target "test"
#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "Makefile.conf"
(("prefix=/usr/local")
(string-append "prefix=" (assoc-ref outputs "out")))
(("LDFLAGS_LDSO=-Wl,-R\\.")
"LDFLAGS_LDSO=-Wl,-R$(libdir)")
(("#CFLAGS\\+=-DUSE_XZ")
"CFLAGS+=-DUSE_XZ")
(("#LDFLAGS\\+=-llzma")
"LDFLAGS+=-llzma"))
#t)))))
(synopsis "Routing application for OpenStreetMap data")
(description
"Routino is an application for finding a route between two points
using the dataset of topographical information collected by
@url{https://www.OpenStreetMap.org}.")
(home-page "https://www.routino.org/")
(license license:agpl3+)))
(define-public qmapshack
(package
(name "qmapshack")
(version "1.14.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Maproom/qmapshack.git")
(commit (string-append "V_" version))))
(file-name (git-file-name name version))
(sha256
(base32
"07c2hrq9sn456w7l3gdr599rmjfv2k6mh159zza7p1py8r7ywksa"))))
(build-system qt-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
("qttools" ,qttools)))
(inputs
`(("gdal" ,gdal)
("libjpeg-turbo" ,libjpeg-turbo)
("proj" ,proj)
("qtbase" ,qtbase)
("qtdeclarative" ,qtdeclarative)
("qtlocation" ,qtlocation)
("qtwebchannel" ,qtwebchannel)
("qtwebengine" ,qtwebengine)
("quazip" ,quazip)
("routino" ,routino)
("sqlite" ,sqlite-with-column-metadata) ; See wrap phase
("zlib" ,zlib)))
(arguments
`(#:tests? #f
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-cmake-modules
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "CMakeLists.txt"
(("find_package\\(Qt5PrintSupport REQUIRED\\)" all)
(string-append all "\nfind_package(Qt5Positioning REQUIRED)")))
(substitute* "cmake/Modules/FindROUTINO.cmake"
(("/usr/local")
(assoc-ref inputs "routino")))
;; The following fixes are included as patches in the sources
;; of QMapShack, but they are not applied by default, for
;; some reason...
(invoke "patch" "-p1" "-i" "FindPROJ4.patch")
(invoke "patch" "-p1" "-i" "FindQuaZip5.patch")
#t))
(add-after 'install 'wrap
;; The program fails to run with the error:
;; undefined symbol: sqlite3_column_table_name16
;; Forcing the program to use sqlite-with-column-metadata instead
;; of sqlite using LD_LIBRARY_PATH solves the problem.
;;
;; The program also fails to find the QtWebEngineProcess program,
;; so we set QTWEBENGINEPROCESS_PATH to help it.
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out") "/bin"))
(qtwebengineprocess (string-append
(assoc-ref inputs "qtwebengine")
"/lib/qt5/libexec/QtWebEngineProcess"))
(sqlite-lib (string-append (assoc-ref inputs "sqlite")
"/lib")))
(for-each (lambda (program)
(wrap-program program
`("LD_LIBRARY_PATH" ":" prefix (,sqlite-lib))
`("QTWEBENGINEPROCESS_PATH" =
(,qtwebengineprocess))))
(find-files bin ".*")))
#t)))))
(synopsis "GPS mapping application")
(description
"QMapShack can be used to plan your next outdoor trip or to visualize and
archive all the GPS recordings of your past trips. It is the successor of the
QLandkarte GT application.")
(home-page "https://github.com/Maproom/qmapshack/wiki")
(license license:gpl3+)))

656
gnu/packages/gnome.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
;;; Copyright © 2014, 2016 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2014, 2015 Federico Beffa <beffa@fbengineering.ch>
@ -11,7 +11,7 @@
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 David Thompson <davet@gnu.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, 2018 Rene Saavedra <pacoon@protonmail.com>
;;; Copyright © 2016 Jochem Raat <jchmrt@riseup.net>
;;; Copyright © 2016, 2017, 2019 Kei Kebreau <kkebreau@posteo.net>
@ -34,7 +34,7 @@
;;; Copyright © 2018 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
;;; Copyright © 2018, 2019 Timothy Sample <samplet@ngyro.com>
;;; Copyright © 2019 Danny Milosavljevic <dannym@scratchpost.org>
;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2019, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2019 Florian Pelz <pelzflorian@pelzflorian.de>
;;; Copyright © 2019 Giacomo Leidi <goodoldpaul@autistici.org>
;;; Copyright © 2019 Jelle Licht <jlicht@fsfe.org>
@ -165,13 +165,11 @@
#:use-module (gnu packages virtualization)
#:use-module (gnu packages vpn)
#:use-module (gnu packages web)
#:use-module (gnu packages web)
#:use-module (gnu packages webkit)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages xiph)
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg)
#:use-module (gnu packages xorg)
#:use-module (gnu artwork)
#:use-module (guix build-system cargo)
#:use-module (guix build-system cmake)
@ -335,6 +333,131 @@ It has miners for Facebook, Flickr, Google, ownCloud and SkyDrive.")
(home-page "https://wiki.gnome.org/Projects/GnomeOnlineMiners")
(license license:gpl2+)))
(define-public gssdp
(package
(name "gssdp")
(version "1.2.2")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"195hi10vrsvh6i927mm6rm1ld5sxah3h5sr3bsjm90vb8lxrxfya"))))
(build-system meson-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("gtk-doc" ,gtk-doc)
("pkg-config" ,pkg-config)
("vala" ,vala)))
(inputs
`(("gtk+" ,gtk+)
("libsoup" ,libsoup)))
(synopsis "GObject-based API over @acronym{SSDP, Simple Service Discovery
Protocol} for GNOME")
(description "This package provides a library to handle resource discovery
and announcement over @acronym{SSDP, Simple Service Discovery Protocol} and
a debugging tool, @command{gssdp-device-sniffer}.")
(home-page "https://gitlab.gnome.org/GNOME/gssdp")
(license license:lgpl2.0+)))
(define-public gupnp
(package
(name "gupnp")
(version "1.2.2")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"12cr3isww4zl0d4himpd2fhl2wmy3jh8sbxp4snp51sw7savv04s"))))
(build-system meson-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("gtk-doc" ,gtk-doc)
("pkg-config" ,pkg-config)
("vala" ,vala)))
(inputs
`(("gssdp" ,gssdp)
("gtk+" ,gtk+)
("libsoup" ,libsoup)))
(synopsis "PnP API for GNOME")
(description "This package provides GUPnP, an object-oriented framework
for creating UPnP devices and control points, written in C using
@code{GObject} and @code{libsoup}.")
(home-page "https://gitlab.gnome.org/GNOME/gupnp")
(license license:lgpl2.0+)))
(define-public gupnp-dlna
(package
(name "gupnp-dlna")
(version "0.10.5")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"0spzd2saax7w776p5laixdam6d7smyynr9qszhbmq7f14y13cghj"))))
(build-system gnu-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("gtk-doc" ,gtk-doc)
("libxml" ,libxml2)
("pkg-config" ,pkg-config)
("vala" ,vala)))
(inputs
`(("gstreamer" ,gstreamer)
("gupnp" ,gupnp)))
(propagated-inputs
`(("gst-plugins-base" ,gst-plugins-base)
("gst-plugins-good" ,gst-plugins-good)))
(synopsis "GUPnP DLNA for GNOME")
(description "This package provides a small utility library to
support DLNA-related tasks such as media profile guessing, transcoding to a
given profile, etc. DLNA is a subset of UPnP A/V.")
(home-page "https://gitlab.gnome.org/GNOME/gupnp-dlna")
(license license:lgpl2.0+)))
(define-public gupnp-av
(package
(name "gupnp-av")
(version "0.12.11")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"1p3grslwqm9bc8rmpn4l48d7v9s84nina4r9xbd932dbj8acz7b8"))))
(build-system gnu-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("gtk-doc" ,gtk-doc)
("libxml" ,libxml2)
("pkg-config" ,pkg-config)))
(inputs
`(("gtk+" ,gtk+)
("gupnp" ,gupnp)))
(synopsis "GUPnP A/V for GNOME")
(description "This package provides a small library for handling
and implementation of UPnP A/V profiles.")
(home-page "https://gitlab.gnome.org/GNOME/gupnp-av")
(license license:lgpl2.0+)))
(define-public libmediaart
(package
(name "libmediaart")
@ -364,6 +487,241 @@ extraction, and lookup for applications on the desktop.")
(home-page "https://gitlab.gnome.org/GNOME/libmediaart")
(license license:lgpl2.1+)))
(define-public gnome-initial-setup
(package
(name "gnome-initial-setup")
(version "3.32.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/gnome-initial-setup/"
(version-major+minor version)
"/gnome-initial-setup-" version ".tar.xz"))
(sha256
(base32
"1gwhp7dalyc8zsb2pa66cmpdrj2d6drbq5p331sq6zp8ds10k9ry"))))
(build-system meson-build-system)
(arguments
'(#:configure-flags '(;; Enable camera support for user selfie.
"-Dcheese=auto"
"-Dsystemd=false")))
(native-inputs
`(("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("gtk+:bin" ,gtk+ "bin")
("pkg-config" ,pkg-config)))
(inputs
`(("accountsservice" ,accountsservice)
;("adwaita-icon-theme" ,adwaita-icon-theme)
("gdm" ,gdm)
("geoclue" ,geoclue)
("gnome-desktop" ,gnome-desktop)
("gnome-getting-started-docs" ,gnome-getting-started-docs)
("gnome-online-accounts" ,gnome-online-accounts)
("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
("gstreamer" ,gstreamer)
("ibus" ,ibus)
("json-glib" ,json-glib)
("krb5" ,mit-krb5)
("libgweather" ,libgweather)
("libsecret" ,libsecret)
("network-manager" ,network-manager)
("network-manager-applet" ,network-manager-applet)
("packagekit" ,packagekit)
("polkit" ,polkit)
("pwquality" ,libpwquality)
("rest" ,rest)
("upower" ,upower)
("webkitgtk" ,webkitgtk)))
(synopsis "Initial setup wizard for GNOME desktop")
(description "This package provides a set-up wizard when a
user logs into GNOME for the first time. It typically provides a
tour of all gnome components and allows the user to set them up.")
(home-page "https://gitlab.gnome.org/GNOME/gnome-initial-setup")
(license license:gpl2)))
(define-public gnome-user-share
(package
(name "gnome-user-share")
(version "3.33.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"0lf790pyamdyj7180ils8vizjl8brxcg7jsm1iavfp9ay4wa8mz7"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t
#:configure-flags
`("-Dsystemd=false"
;; Enable nautilus extension for file sharing.
"-Dnautilus_extension=true")))
(native-inputs
`(("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("gtk+:bin" ,gtk+ "bin")
("pkg-config" ,pkg-config)
("yelp-tools" ,yelp-tools)))
(inputs
`(("glib" ,glib)
("gnome-bluetooth" ,gnome-bluetooth)
("gtk+" ,gtk+)
("libcanberra" ,libcanberra)
("libnotify" ,libnotify)
("nautilus" ,nautilus))) ; For nautilus extension.
(synopsis "File sharing for GNOME desktop")
(description "GNOME User Share is a small package that binds together
various free software projects to bring easy to use user-level file
sharing to the masses.")
(home-page "https://gitlab.gnome.org/GNOME/gnome-user-share")
(license license:gpl2+)))
(define-public sushi
(package
(name "sushi")
(version "3.32.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"02idvqjk76lii9xyg3b1yz4rw721709bdm5j8ikjym6amcghl0aj"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t
#:phases
(modify-phases %standard-phases
(add-after 'glib-or-gtk-wrap 'wrap-typelib
(lambda* (#:key outputs #:allow-other-keys)
(let ((prog (string-append (assoc-ref outputs "out")
"/bin/sushi")))
;; Put existing typelibs before sushi's deps, so as to correctly
;; infer gdk-pixbuf
(wrap-program prog
`("GI_TYPELIB_PATH" suffix (,(getenv "GI_TYPELIB_PATH"))))
#t))))))
(native-inputs
`(("glib:bin" ,glib "bin")
("gettext" ,gettext-minimal)
("gobject-introspection" ,gobject-introspection)
("pkg-config" ,pkg-config)))
(inputs
`(("clutter" ,clutter)
("clutter-gst" ,clutter-gst)
("clutter-gtk" ,clutter-gtk)
("evince" ,evince) ; For file previewing.
("freetype" ,freetype)
("gdk-pixbuf" ,gdk-pixbuf)
("gjs" ,gjs)
("gst-plugins-base" ,gst-plugins-base)
("gstreamer" ,gstreamer)
("gtksourceview" ,gtksourceview-3)
("harfbuzz" ,harfbuzz)
("libepoxy" ,libepoxy)
("libmusicbrainz" ,libmusicbrainz)
("libxml2" ,libxml2)
("neon" ,neon)
("webkitgtk" ,webkitgtk)))
(synopsis "File previewer for the GNOME desktop")
(description "Sushi is a DBus-activated service that allows applications to
preview files on the GNOME desktop.")
(home-page "https://gitlab.gnome.org/GNOME/sushi")
(license license:gpl2+)))
(define-public rygel
(package
(name "rygel")
(version "0.38.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"003xficqb08r1dgid20i7cn889lbfwrglpx78rjd5nkvgxbimhh8"))))
(build-system gnu-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("gobject-introspection" ,gobject-introspection)
("gtk-doc" ,gtk-doc)
("pkg-config" ,pkg-config)
("vala" ,vala)))
(inputs
`(("gdk-pixbuf" ,gdk-pixbuf)
("gssdp" ,gssdp)
("gstreamer" ,gstreamer)
("gst-plugins-base" ,gst-plugins-base)
("gtk+" ,gtk+)
("gupnp" ,gupnp)
("gupnp-av" ,gupnp-av)
("gupnp-dlna" ,gupnp-dlna)
("libgee" ,libgee)
("libmediaart" ,libmediaart)
("libsoup" ,libsoup)
("libxslt" ,libxslt)
("libunistring" ,libunistring)
("tracker" ,tracker)))
(synopsis "Share audio, video, and pictures with other devices")
(description
"Rygel is a home media solution (@dfn{UPnP AV MediaServer and
MediaRenderer}) for GNOME that allows you to easily share audio, video, and
pictures, and to control a media player on your home network.
Rygel achieves interoperability with other devices by trying to conform to the
strict requirements of DLNA and by converting media on-the-fly to formats that
client devices can handle.")
(home-page "https://wiki.gnome.org/Projects/Rygel")
(license (list
;; For logo (data/icons/*).
license:cc-by-sa3.0
;; For all others.
license:lgpl2.1+))))
(define-public libnma
(package
(name "libnma")
(version "1.8.26")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"1w9lld38risnk1krknfwln24kabdxnj274pyz4jhndphwigrshaf"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t))
(native-inputs
`(("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("gtk-doc" ,gtk-doc)
("gobject-introspection" ,gobject-introspection)
("pkg-config" ,pkg-config)))
(inputs
`(("adwaita-icon-theme" ,adwaita-icon-theme)
("gcr" ,gcr)
("gtk+" ,gtk+)
("iso-codes" ,iso-codes)
("mobile-broadband-provider-info" ,mobile-broadband-provider-info)
("network-manager" ,network-manager)))
(synopsis "Network Manager's applet library")
(description "Libnma is an applet library for Network Manager. It was
initially part of network-manager-applet and has now become a separate
project.")
(home-page "https://gitlab.gnome.org/GNOME/libnma")
;; Some files carry the "GPL-2.0+" SPDX identifier while others say
;; "LGPL-2.1+".
(license license:gpl2+)))
(define-public gnome-menus
(package
(name "gnome-menus")
@ -1144,7 +1502,7 @@ forgotten when the session ends.")
"05q6v9lssd21623mnj2p49clj9v9csw9kay7n4nklki025grbh1w"))))
(build-system glib-or-gtk-build-system)
(arguments
`(#:configure-flags '("--disable-nautilus")
`(#:configure-flags '("--disable-nautilus" "--enable-introspection")
#:phases
(modify-phases %standard-phases
(add-before 'install 'skip-gtk-update-icon-cache
@ -1188,6 +1546,7 @@ forgotten when the session ends.")
`(("itstool" ,itstool)
("intltool" ,intltool)
("glib" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("pkg-config" ,pkg-config)
("xmllint" ,libxml2)))
(home-page
@ -1522,7 +1881,7 @@ some form of information without getting in the user's way.")
(define-public libpeas
(package
(name "libpeas")
(version "1.22.0")
(version "1.24.1")
(source
(origin
(method url-fetch)
@ -1531,8 +1890,19 @@ some form of information without getting in the user's way.")
name "-" version ".tar.xz"))
(sha256
(base32
"0qm908kisyjzjxvygdl18hjqxvvgkq9w0phs2g55pck277sw0bsv"))))
(build-system gnu-build-system)
"1162dr7smmfb02czmhshr0f93hqj7w0nw29bys5lzfvwarxcyflw"))))
(build-system meson-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-before 'check 'start-xserver
(lambda* (#:key inputs #:allow-other-keys)
(let ((xorg-server (assoc-ref inputs "xorg-server"))
(disp ":1"))
(setenv "DISPLAY" disp)
;; Tests require a running X server.
(system (format #f "~a/bin/Xvfb ~a &" xorg-server disp))
#t))))))
(inputs
`(("gtk+" ,gtk+)
("glade" ,glade3)
@ -1540,9 +1910,10 @@ some form of information without getting in the user's way.")
("python-pygobject" ,python-pygobject)))
(native-inputs
`(("pkg-config" ,pkg-config)
("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("intltool" ,intltool)))
("xorg-server" ,xorg-server-for-tests)))
(propagated-inputs
;; The .pc file "Requires" gobject-introspection.
`(("gobject-introspection" ,gobject-introspection)))
@ -1811,77 +2182,76 @@ from forcing GEXP-PROMISE."
(lambda (crate)
(delete-file-recursively (string-append "vendor/" (car crate)))
(invoke "tar" "xvf" (cdr crate) "-C" "vendor"))
'(
;; aho-corasick 0.7
'(("aho-corasick" . #+(package-source rust-aho-corasick-0.7))
;; alga 0.9
;; approx 0.3
;; arrayvec 0.4
("approx" . #+(package-source rust-approx-0.3))
("arrayvec" . #+(package-source rust-arrayvec-0.4))
("atty" . #+(package-source rust-atty-0.2))
("autocfg" . #+(package-source rust-autocfg-0.1))
("bitflags" . #+(package-source rust-bitflags-1))
;; block 0.1
;; bstr 0.2
;; byteorder 1.3
("bstr" . #+(package-source rust-bstr-0.2))
("byteorder" . #+(package-source rust-byteorder-1.3))
;; cairo-rs 0.7
;; cairo-sys-rs 0.9
;; cast 0.2
("cast" . #+(package-source rust-cast-0.2))
("cfg-if" . #+(package-source rust-cfg-if-0.1))
("clap" . #+(package-source rust-clap-2))
;("cloudabi" . #+(package-source rust-cloudabi-0.0))
;; criterion 0.2
;; criterion-plot 0.3
;; crossbeam-deque 0.7
;; crossbeam-epoch 0.7
;; crossbeam-queue 0.1
;; crossbeam-utils 0.6
("cloudabi" . #+(package-source rust-cloudabi-0.0))
("criterion" . #+(package-source rust-criterion-0.2))
("criterion-plot" . #+(package-source rust-criterion-plot-0.3))
("crossbeam-deque" . #+(package-source rust-crossbeam-deque-0.7))
("crossbeam-epoch" . #+(package-source rust-crossbeam-epoch-0.8))
("crossbeam-queue" . #+(package-source rust-crossbeam-queue-0.2))
("crossbeam-utils" . #+(package-source rust-crossbeam-utils-0.7))
;; cssparser 0.25
;; cssparser-macros 0.3
;; csv 1.1
;; csv-core 0.1
("csv" . #+(package-source rust-csv-1.1))
("csv-core" . #+(package-source rust-csv-core-0.1))
;; data-url 0.1
;; downcast-rs 1.0
("dtoa" . #+(package-source rust-dtoa-0.4))
;; dtoa-short 0.3
;; either 1.5
;; encoding 0.2
;; encoding-index-japanese 1.20141219.5
;; encoding-index-korean 1.20141219.5
;; encoding-index-simpchinese 1.20141219.5
;; encoding-index-singlebyte 1.20141219.5
;; encoding-index-tradchinese 1.20141219.5
;; encoding_index_tests 0.1
("either" . #+(package-source rust-either-1.5))
("encoding" . #+(package-source rust-encoding-0.2))
("encoding-index-japanese" . #+(package-source rust-encoding-index-japanese-1.20141219))
("encoding-index-korean" . #+(package-source rust-encoding-index-korean-1.20141219))
("encoding-index-simpchinese" . #+(package-source rust-encoding-index-simpchinese-1.20141219))
("encoding-index-singlebyte" . #+(package-source rust-encoding-index-singlebyte-1.20141219))
("encoding-index-tradchinese" . #+(package-source rust-encoding-index-tradchinese-1.20141219))
("encoding_index_tests" . #+(package-source rust-encoding-index-tests-0.1))
;; float-cmp 0.5
;; fragile 0.3
;("fuchsia-cprng" . #+(package-source rust-fuchsia-cprng-0.1))
;; futf 0.1
("fuchsia-cprng" . #+(package-source rust-fuchsia-cprng-0.1))
("futf" . #+(package-source rust-futf-0.1))
;; gdk-pixbuf 0.7
;; gdk-pixbuf-sys 0.9
;; generic-array 0.12
("generic-array" . #+(package-source rust-generic-array-0.12))
;; gio 0.7
;; gio-sys 0.9
;; glib 0.8
;; glib-sys 0.9
;; gobject-sys 0.9
;; idna 0.2
;; itertools 0.8
("idna" . #+(package-source rust-idna-0.2))
("itertools" . #+(package-source rust-itertools-0.8))
("itoa" . #+(package-source rust-itoa-0.4))
;("language-tags" . #+(package-source rust-language-tags-0.2))
("language-tags" . #+(package-source rust-language-tags-0.2))
("lazy_static" . #+(package-source rust-lazy-static-1.3))
("libc" . #+(package-source rust-libc-0.2))
;; libm 0.1
;; locale_config 0.3
("log" . #+(package-source rust-log-0.4))
;; mac 0.1
("mac" . #+(package-source rust-mac-0.1))
;; malloc_buf 0.0
;; markup5ever 0.9
;("matches" . #+(package-source rust-matches-0.1))
("matches" . #+(package-source rust-matches-0.1))
;; matrixmultiply 0.2
;; memchr 2.2
;; memoffset 0.5
("memchr" . #+(package-source rust-memchr-2.2))
("memoffset" . #+(package-source rust-memoffset-0.5))
;; nalgebra 0.18
;; new_debug_unreachable 1.0
("new_debug_unreachable" . #+(package-source rust-new-debug-unreachable-1.0))
("nodrop" . #+(package-source rust-nodrop-0.1))
;; num-complex 0.2
("num-complex" . #+(package-source rust-num-complex-0.2))
("num-integer" . #+(package-source rust-num-integer-0.1))
;; num-rational 0.2
("num-traits" . #+(package-source rust-num-traits-0.2))
@ -1894,16 +2264,16 @@ from forcing GEXP-PROMISE."
;; pangocairo 0.8
;; pangocairo-sys 0.10
("percent-encoding" . #+(package-source rust-percent-encoding-2.1))
;; phf 0.7.24
;; phf_codegen 0.7.24
;; phf_generator 0.7.24
;; phf_shared 0.7.24
;("pkg-config" . #+(package-source rust-pkg-config-0.3))
;; precomputed-hash 0.1
("phf" . #+(package-source rust-phf-0.7))
("phf_codegen" . #+(package-source rust-phf-codegen-0.7))
("phf_generator" . #+(package-source rust-phf-generator-0.7))
("phf_shared" . #+(package-source rust-phf-shared-0.7))
("pkg-config" . #+(package-source rust-pkg-config-0.3))
("precomputed-hash" . #+(package-source rust-precomputed-hash-0.1))
("proc-macro2" . #+(package-source rust-proc-macro2-1.0))
;; procedural-masquerade 0.1
("quote" . #+(package-source rust-quote-1.0))
;("rand" . #+(package-source rust-rand-0.6))
("rand" . #+(package-source rust-rand-0.6))
("rand_chacha" . #+(package-source rust-rand-chacha-0.1))
("rand_core-0.3.1" . #+(package-source rust-rand-core-0.3))
("rand_core" . #+(package-source rust-rand-core-0.4))
@ -1913,46 +2283,46 @@ from forcing GEXP-PROMISE."
("rand_os" . #+(package-source rust-rand-os-0.1))
("rand_pcg" . #+(package-source rust-rand-pcg-0.1))
("rand_xorshift" . #+(package-source rust-rand-xorshift-0.1))
;; rand_xoshiro 0.1
;("rawpointer" . #+(package-source rust-rawpointer-0.1))
;; rayon 1.2
;; rayon-core 1.6
("rand_xoshiro" . #+(package-source rust-rand-xoshiro-0.1))
;; rawpointer 0.2
("rayon" . #+(package-source rust-rayon-1.3))
("rayon-core" . #+(package-source rust-rayon-core-1.7))
;; rctree 0.3
("rdrand" . #+(package-source rust-rdrand-0.4))
;; regex 1.3
;; regex-automata 0.1
;("regex-syntax" . #+(package-source rust-regex-syntax-0.6))
;; rustc_version 0.2
("regex" . #+(package-source rust-regex-1.3))
("regex-automata" . #+(package-source rust-regex-automata-0.1))
("regex-syntax" . #+(package-source rust-regex-syntax-0.6))
("rustc_version" . #+(package-source rust-rustc-version-0.2))
("ryu" . #+(package-source rust-ryu-1.0))
("same-file" . #+(package-source rust-same-file-1.0))
("scopeguard" . #+(package-source rust-scopeguard-1.0))
;; semver 0.9
;("semver-parser" . #+(package-source rust-semver-parser-0.7))
("semver" . #+(package-source rust-semver-0.9))
("semver-parser" . #+(package-source rust-semver-parser-0.7))
("serde" . #+(package-source rust-serde-1.0))
("serde_derive" . #+(package-source rust-serde-derive-1.0))
("serde_json" . #+(package-source rust-serde-json-1.0))
;; siphasher 0.2
;; smallvec 0.6
;; string_cache 0.7
;; string_cache_codegen 0.4
;; string_cache_shared 0.3
("siphasher" . #+(package-source rust-siphasher-0.2))
("smallvec" . #+(package-source rust-smallvec-0.6))
("string_cache" . #+(package-source rust-string-cache-0.7))
;("string_cache_codegen" . #+(package-source rust-string-cache-codegen-0.4))
("string_cache_shared" . #+(package-source rust-string-cache-shared-0.3))
("syn" . #+(package-source rust-syn-1.0))
;; tendril 0.4
("tendril" . #+(package-source rust-tendril-0.4))
("textwrap" . #+(package-source rust-textwrap-0.11))
;("thread_local" . #+(package-source rust-thread-local-0.3))
;; tinytemplate 1.0
;("typenum" . #+(package-source rust-typenum-1.10))
;; unicode-bidi 0.3
;; unicode-normalization 0.1
("thread_local" . #+(package-source rust-thread-local-1.0))
("tinytemplate" . #+(package-source rust-tinytemplate-1.0))
("typenum" . #+(package-source rust-typenum-1.10))
("unicode-bidi" . #+(package-source rust-unicode-bidi-0.3))
("unicode-normalization" . #+(package-source rust-unicode-normalization-0.1))
("unicode-width" . #+(package-source rust-unicode-width-0.1))
("unicode-xid" . #+(package-source rust-unicode-xid-0.2))
;; url 2.1
;; utf-8 0.7
("url" . #+(package-source rust-url-2.1))
("utf-8" . #+(package-source rust-utf-8-0.7))
("walkdir" . #+(package-source rust-walkdir-2.2))
("winapi" . #+(package-source rust-winapi-0.3))
;("winapi-i686-pc-windows-gnu" . #+(package-source rust-winapi-i686-pc-windows-gnu-0.4))
("winapi-i686-pc-windows-gnu" . #+(package-source rust-winapi-i686-pc-windows-gnu-0.4))
("winapi-util" . #+(package-source rust-winapi-util-0.1))
;("winapi-x86_64-pc-windows-gnu" . #+(package-source rust-winapi-x86-64-pc-windows-gnu-0.4))
("winapi-x86_64-pc-windows-gnu" . #+(package-source rust-winapi-x86-64-pc-windows-gnu-0.4))
;; xml-rs 0.8
)))
(format #t "Replacing vendored crates in the tarball and repacking ...~%")
@ -3805,7 +4175,20 @@ faster results and to avoid unnecessary server load.")
(sha256
(base32
"1vxxvmz2cxb1qy6ibszaz5bskqdy9nd9fxspj9fv3gfmrjzzzdb4"))
(patches (search-patches "upower-builddir.patch"))))
(patches (search-patches "upower-builddir.patch"))
(modules '((guix build utils)))
(snippet
'(begin
;; Upstream commit
;; <https://cgit.freedesktop.org/upower/commit/?id=18457c99b68786cd729b315723d680e6860d9cfa>
;; moved 'dbus-1/system.d' from etc/ to share/. However,
;; 'dbus-configuration-directory' in (gnu services dbus)
;; expects it in etc/. Thus, move it back to its previous
;; location.
(substitute* "src/Makefile.in"
(("^dbusconfdir =.*$")
"dbusconfdir = $(sysconfdir)/dbus-1/system.d\n"))
#t))))
(build-system glib-or-gtk-build-system)
(arguments
'( ;; The tests want to contact the system bus, which can't be done in the
@ -4472,7 +4855,7 @@ for application developers.")
(define-public grilo-plugins
(package
(name "grilo-plugins")
(version "0.3.3")
(version "0.3.10")
(source
(origin
(method url-fetch)
@ -4481,44 +4864,41 @@ for application developers.")
name "-" version ".tar.xz"))
(sha256
(base32
"172vr1y98d2mzlmg5akjn4ibrcj3gh22cwnb3cv9rvvzhj3yhrpy"))))
(build-system gnu-build-system)
"0jldaixc4kzycn5v8ixkjld1n0z3dp0l1p3vchgdwpvdvc7kcfw0"))))
(build-system meson-build-system)
(native-inputs
`(("glib:bin" ,glib "bin") ; for glib-mkenums and glib-genmarshal
("intltool" ,intltool)
`(("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("gtk+:bin" ,gtk+ "bin")
("itstool" ,itstool)
("pkg-config" ,pkg-config)))
;; TODO: ahavi, gstreamer
(inputs
`(("grilo" ,grilo)
("glib" ,glib)
("libxml2" ,libxml2)
("sqlite" ,sqlite)
;("gmime" ,gmime) ; unused
("gnome-online-accounts:lib" ,gnome-online-accounts "lib")
("gom" ,gom)
;; XXX TODO: Add oauth
;; XXX TODO: Add goa
;; XXX TODO: Add gdata (e.g. needed for youtube plugin)
;; XXX TODO: Add lua (needs help finding it)
;("gssdp" ,gssdp) ; unused
;("gupnp" ,gupnp) ; unused
;("gupnp-av" ,gupnp-av) ; unused
("json-glib" ,json-glib)
("avahi" ,avahi)
("gmime" ,gmime)
("libgdata" ,libgdata)
("libmediaart" ,libmediaart)
;("librest" ,rest) ; unused
("libsoup" ,libsoup)
("libarchive" ,libarchive)
("totem-pl-parser" ,totem-pl-parser)))
("totam-pl-parser" ,totem-pl-parser)
("tracker" ,tracker))) ; unused because it's too old
(arguments
`(#:make-flags (list (string-append "GRL_PLUGINS_DIR="
%output
"/lib/grilo-"
,(version-major+minor version)))
;; XXX FIXME: Try to get the test suite working. It appears to require
;; a working system dbus. Inside the build container, all tests fail
;; with: "assertion failed: (source)". Outside of the build container,
;; most tests succeed.
#:tests? #f))
`(#:glib-or-gtk? #t
;;Disable lua-factory as it needs missing dependencies
#:configure-flags '("-Denable-lua-factory=no")))
(home-page "https://live.gnome.org/Grilo")
(synopsis "Plugins for the Grilo media discovery library")
(description
"Grilo is a framework focused on making media discovery and browsing easy
for application developers.")
for application developers. This package provides plugins for common media
discovery protocols.")
(license license:lgpl2.1+)))
(define-public totem
@ -6007,7 +6387,7 @@ Evolution (hence the name), but is now used by other packages as well.")
("gobject-introspection" ,gobject-introspection)
("intltool" ,intltool)
("pkg-config" ,pkg-config)
("python" ,python-2) ; incompatible with Python 3 (print syntax)
("python" ,python)
("vala" ,vala)
("xsltproc" ,libxslt)))
(propagated-inputs
@ -6020,7 +6400,7 @@ Evolution (hence the name), but is now used by other packages as well.")
`(("clutter" ,clutter)
("dconf" ,dconf)
("gtk+-2" ,gtk+-2)
("python-pygobject" ,python2-pygobject)))
("python-pygobject" ,python-pygobject)))
(synopsis "Text entry and UI navigation application")
(home-page "https://wiki.gnome.org/Projects/Caribou")
(description
@ -7397,6 +7777,68 @@ associations for GNOME.")
(license license:gpl3+)
(home-page #f)))
(define-public libgovirt
(package
(name "libgovirt")
(version "0.3.6")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"19pb71pag3vsi83kbv8h08kimwym4hpw36kjl6a5ik5nk50mc8sg"))))
(build-system glib-or-gtk-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
("gtk+:bin" ,gtk+ "bin")
("pkg-config" ,pkg-config)))
(inputs
`(("glib-networking" ,glib-networking) ; GIO plugin--for the tests
("librest" ,rest)))
(synopsis "GoVirt Library")
(description "GoVirt is a GObject wrapper for the oVirt REST API.")
(home-page "https://gitlab.gnome.org/GNOME/libgovirt")
(license license:gpl2+)))
(define-public gnome-weather
(package
(name "gnome-weather")
(version "3.34.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"1g63xzs17i36if923b36k9fwbk0nqa5vz6zh1k6q2axrzhhpx1i4"))))
(build-system meson-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("gtk+:bin" ,gtk+ "bin")
("pkg-config" ,pkg-config)))
(inputs
`( ;("adwaita-icon-theme" ,adwaita-icon-theme)
("appstream-glib" ,appstream-glib)
("geoclue" ,geoclue)
("gdk-pixbuf" ,gdk-pixbuf)
("gjs" ,gjs)
("gnome-desktop" ,gnome-desktop)
("libgweather" ,libgweather)))
(synopsis "Weather monitoring for GNOME desktop")
(description "GNOME Weather is a small application that allows you to
monitor the current weather conditions for your city, or anywhere in the
world.")
(home-page "https://wiki.gnome.org/Apps/Weather")
(license license:gpl2+)))
(define-public gnome
(package
(name "gnome")
@ -7861,7 +8303,7 @@ functionality and behavior.")
("inkscape" ,inkscape)
("optipng" ,optipng)
("pkg-config" ,pkg-config)
("sassc" ,sassc)))
("sassc" ,sassc/libsass-3.5)))
(synopsis "A flat GTK+ theme with transparent elements")
(description "Arc is a flat theme with transparent elements for GTK 3, GTK
2, and GNOME Shell which supports GTK 3 and GTK 2 based desktop environments

7
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 finance)
#:use-module (gnu packages gettext)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gnupg)
@ -76,6 +77,7 @@
("libdbi" ,libdbi)
("libdbi-drivers" ,libdbi-drivers)
("libgnomecanvas" ,libgnomecanvas)
("libofx" ,libofx)
("libxml2" ,libxml2)
("libxslt" ,libxslt)
("webkitgtk" ,webkitgtk)
@ -90,11 +92,12 @@
("googletest" ,googletest)
("gnucash-docs" ,gnucash-docs)
("pkg-config" ,pkg-config)))
(propagated-inputs
;; dconf is required at runtime according to README.dependencies.
`(("dconf" ,dconf)))
(outputs '("out" "doc" "debug"))
(arguments
`(#:test-target "check"
#:configure-flags
(list "-DWITH_OFX=OFF") ; libofx is not available yet
#:make-flags '("GUILE_AUTO_COMPILE=0")
#:modules ((guix build cmake-build-system)
((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)

79
gnu/packages/gnuzilla.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
@ -10,6 +10,7 @@
;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019 Ivan Petkov <ivanppetkov@gmail.com>
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -41,6 +42,7 @@
#:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module (guix build-system cargo)
#:use-module (guix build-system trivial)
#:use-module (gnu packages admin)
#:use-module (gnu packages audio)
#:use-module (gnu packages autotools)
@ -756,6 +758,7 @@ from forcing GEXP-PROMISE."
;; and related comments in the 'remove-bundled-libraries' phase.
;; UNBUNDLE-ME! ("nspr" ,nspr)
;; UNBUNDLE-ME! ("nss" ,nss)
("shared-mime-info" ,shared-mime-info)
("sqlite" ,sqlite)
("startup-notification" ,startup-notification)
("unzip" ,unzip)
@ -882,6 +885,10 @@ from forcing GEXP-PROMISE."
(ice-9 match)
(srfi srfi-34)
(srfi srfi-35)
(rnrs bytevectors)
(rnrs io ports)
(guix elf)
(guix build gremlin)
,@%gnu-build-system-modules)
#:phases
(modify-phases %standard-phases
@ -966,11 +973,31 @@ from forcing GEXP-PROMISE."
#t))
(add-after 'link-libxul-with-libraries 'fix-ffmpeg-runtime-linker
(lambda* (#:key inputs #:allow-other-keys)
;; Arrange to load libavcodec.so by its absolute file name.
(substitute* "dom/media/platforms/ffmpeg/FFmpegRuntimeLinker.cpp"
(("libavcodec\\.so")
(string-append (assoc-ref inputs "ffmpeg") "/lib/libavcodec.so")))
#t))
(let* ((ffmpeg (assoc-ref inputs "ffmpeg"))
(libavcodec (string-append ffmpeg "/lib/libavcodec.so")))
;; Arrange to load libavcodec.so by its absolute file name.
(substitute* "dom/media/platforms/ffmpeg/FFmpegRuntimeLinker.cpp"
(("libavcodec\\.so")
libavcodec))
;; Populate the sandbox read-path whitelist as needed by ffmpeg.
(let* ((mime-info (assoc-ref inputs "shared-mime-info"))
(libavcodec-runpath (call-with-input-file libavcodec
(compose elf-dynamic-info-runpath
elf-dynamic-info
parse-elf
get-bytevector-all)))
(whitelist (cons (string-append mime-info "/share/mime/")
(map (lambda (dir)
(string-append dir "/"))
libavcodec-runpath)))
(whitelist-string (string-join whitelist ","))
(port (open-file "browser/app/profile/icecat.js" "a")))
(format #t "setting 'security.sandbox.content.read_path_whitelist' to '~a'~%"
whitelist-string)
(format port "~%pref(\"security.sandbox.content.read_path_whitelist\", ~S);~%"
whitelist-string)
(close-output-port port))
#t)))
(replace 'bootstrap
(lambda _
(invoke "sh" "-c" "autoconf old-configure.in > old-configure")
@ -1102,3 +1129,43 @@ standards of the IceCat project.")
;; The Conkeror web browser relied on XULRunner, which IceCat > 50 no longer
;; provides. See <http://conkeror.org> for the original web page.
(deprecated-package "conkeror" icecat))
(define-public firefox-decrypt
(package
(name "firefox-decrypt")
(version "0.7.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Unode/firefox_decrypt.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"17yyyxp47z4m8hnflcq34rc1y871515kr3f1y42j1l0yx3g0il07"))))
(build-system trivial-build-system)
(inputs
`(("nss" ,nss)
("python" ,python)))
(arguments
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(setenv "PATH"
(string-append
(assoc-ref %build-inputs "python") "/bin"))
(copy-file (string-append (assoc-ref %build-inputs "source")
"/firefox_decrypt.py")
"firefox_decrypt.py")
(substitute* "firefox_decrypt.py"
(("/usr/bin/env python") (which "python3"))
(("libnss3.so") (string-append (assoc-ref %build-inputs "nss")
"/lib/nss/libnss3.so")))
(install-file "firefox_decrypt.py" (string-append %output "/bin"))
#t)))
(home-page "https://github.com/Unode/firefox_decrypt/")
(synopsis "Tool to extract passwords from Mozilla profiles")
(description "Firefox Decrypt is a tool to extract passwords from
Mozilla (Firefox, Waterfox, Thunderbird, SeaMonkey) profiles.")
(license license:gpl3+)))

2
gnu/packages/graph.scm
View file

@ -183,7 +183,7 @@ model.")
`(("r-graph" ,r-graph)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "http://bioconductor.org/packages/Rgraphviz")
(home-page "https://bioconductor.org/packages/Rgraphviz")
(synopsis "Plotting capabilities for R graph objects")
(description
"This package interfaces R with the graphviz library for plotting R graph

6
gnu/packages/graphics.scm
View file

@ -7,7 +7,7 @@
;;; Copyright © 2016 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2017, 2018 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2018 Alex Kost <alezost@gmail.com>
;;; Copyright © 2018 Kei Kebreau <kkebreau@posteo.net>
@ -88,14 +88,14 @@
(define-public blender
(package
(name "blender")
(version "2.81")
(version "2.81a")
(source (origin
(method url-fetch)
(uri (string-append "https://download.blender.org/source/"
"blender-" version ".tar.xz"))
(sha256
(base32
"1prp0f2152f1sz23jlc86vndfvmplb7qhllikkirq7hgpykrshna"))))
"1zl0ar95qkxsrbqw9miz2hrjijlqjl06vg3clfk9rm7krr2l3b2j"))))
(build-system cmake-build-system)
(arguments
(let ((python-version (version-major+minor (package-version python))))

26
gnu/packages/graphviz.scm
View file

@ -6,6 +6,7 @@
;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2018 Mathieu Lirzin <mthl@gnu.org>
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -166,16 +167,31 @@ interfaces for other technical domains.")
(define-public python-graphviz
(package
(name "python-graphviz")
(version "0.8.4")
(version "0.13.2")
(source (origin
(method url-fetch)
(uri (pypi-uri "graphviz" version ".zip"))
(sha256
(base32
"17v8h7j2yz8hy1jf7q8p0ik8dmf32m58lc6v11x7aqc4pnfa2n29"))))
"009alrilzx0v7kl41khbq7k6k8b8pxyvbsi1b1ai933f6kpbxb30"))))
(build-system python-build-system)
(arguments
'(#:phases (modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests #:allow-other-keys)
(if tests
(invoke "pytest" "-vv")
(format #t "test suite not run~%"))
#t)))))
(native-inputs
`(("unzip" ,unzip)))
`(("unzip" ,unzip)
;; For tests.
("graphviz" ,graphviz)
("python-mock" ,python-mock)
("python-pytest" ,python-pytest)
("python-pytest-cov" ,python-pytest-cov)
("python-pytest-mock" ,python-pytest-mock)))
(home-page "https://github.com/xflr6/graphviz")
(synopsis "Simple Python interface for Graphviz")
(description
@ -330,13 +346,13 @@ graphs in Graphviz's DOT language, written in pure Python.")
(define-public dot2tex
(package
(name "dot2tex")
(version "2.9.0")
(version "2.11.3")
(source (origin
(method url-fetch)
(uri (pypi-uri "dot2tex" version))
(sha256
(base32
"0jhdwp0wv2h0xb7j2s5xiv7i8yaqgfpwwqcyrjvaxkfwsynm8gkx"))))
"1kp77wiv7b5qib82i3y3sn9r49rym43aaqm5aw1bwnzfbbq2m6i9"))))
(build-system python-build-system)
(arguments
`(#:python ,python-2))

10
gnu/packages/gtk.scm
View file

@ -1328,6 +1328,16 @@ produces identical output on all those targets.")
`(("gtk+" ,gtk+-2)))
(propagated-inputs
`(("perl-pango" ,perl-pango)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'build 'remove-broken-test
;; See https://gitlab.gnome.org/GNOME/perl-gtk2/issues/3.
(lambda _
(substitute* "t/GdkPixbuf.t"
(("tests => 112") "tests => 111")
(("ok \\(defined \\$pixbuf, \"Don't crash on partial pixmap data\"\\);")
"# ok (defined $pixbuf, \"Don't crash on partial pixmap data\");")))))))
(home-page "https://metacpan.org/release/Gtk2")
(synopsis "Perl interface to the 2.x series of the Gimp Toolkit library")
(description "Perl bindings to the 2.x series of the Gtk+ widget set.

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

@ -496,7 +496,29 @@ Unix-style DSV format and RFC 4180 format.")
version ".tar.gz"))
(sha256
(base32
"0vjkg72ghgdgphzbjz9ig8al8271rq8974viknb2r1rg4lz92ld0"))))
"0vjkg72ghgdgphzbjz9ig8al8271rq8974viknb2r1rg4lz92ld0"))
(modules '((guix build utils)))
(snippet
'(begin
;; Allow builds with Guile 3.0.
(substitute* "configure"
(("search=\"2\\.2\"")
"search=\"3.0 2.2\""))
;; Explicitly include system headers rather than relying on
;; <libguile.h> to do it for us.
(substitute* "epoll.c"
(("#include.*libguile\\.h.*$" all)
(string-append "#include <unistd.h>\n"
"#include <string.h>\n"
all "\n")))
;; Import (ice-9 threads) for 'current-processor-count'.
(substitute* "tests/channels.scm"
(("#:use-module \\(fibers\\)")
(string-append "#:use-module (fibers)\n"
"#:use-module (ice-9 threads)\n")))
#t))))
(build-system gnu-build-system)
(arguments
'(#:phases (modify-phases %standard-phases
@ -532,6 +554,16 @@ is not available for Guile 2.0.")
(home-page "https://github.com/wingo/fibers")
(license license:lgpl3+)))
(define-public guile3.0-fibers
(package
(inherit guile-fibers)
(name "guile3.0-fibers")
(arguments
;; The code uses 'scm_t_uint64' et al., which are deprecated in 3.0.
`(#:configure-flags '("CFLAGS=-Wno-error=deprecated-declarations")
,@(package-arguments guile-fibers)))
(inputs `(("guile" ,guile-3.0)))))
(define-public guile-syntax-highlight
(package
(name "guile-syntax-highlight")
@ -544,7 +576,15 @@ is not available for Guile 2.0.")
version ".tar.gz"))
(sha256
(base32
"1p771kq15x83483m23bhah1sz6vkalg3drm7x279f4j1cxligkzi"))))
"1p771kq15x83483m23bhah1sz6vkalg3drm7x279f4j1cxligkzi"))
(modules '((guix build utils)))
(snippet
'(begin
;; Allow builds with Guile 3.0.
(substitute* "configure"
(("2\\.2 2\\.0")
"3.0 2.2 2.0"))
#t))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
@ -558,6 +598,12 @@ HTML (via SXML) or any other format for rendering.")
(home-page "http://dthompson.us/projects/guile-syntax-highlight.html")
(license license:lgpl3+)))
(define-public guile3.0-syntax-highlight
(package
(inherit guile-syntax-highlight)
(name "guile3.0-syntax-highlight")
(inputs `(("guile" ,guile-3.0)))))
(define-public guile-sjson
(package
(name "guile-sjson")
@ -643,6 +689,12 @@ using Guile's foreign function interface.")
"Guile-colorized provides you with a colorized REPL for GNU Guile.")
(license license:gpl3+)))
(define-public guile3.0-colorized
(package
(inherit guile-colorized)
(name "guile3.0-colorized")
(native-inputs `(("guile" ,guile-next)))))
(define-public guile-pfds
(package
(name "guile-pfds")
@ -715,6 +767,45 @@ Vicare Scheme and IronScheme. Right now it contains:
@end itemize\n")
(license license:bsd-3)))
(define-public guile3.0-pfds
(package
(inherit guile-pfds)
(name "guile3.0-pfds")
(native-inputs `(("guile" ,guile-3.0)))
(arguments
'(#:source-directory "src"
#:compile-flags '("--r6rs")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'move-files-around
(lambda _
;; See bug #39210.
(substitute* '("fingertrees.sls"
"queues/private/condition.sls"
"deques/private/condition.sls")
(("&assertion") "&violation"))
;; Move files under a pfds/ directory to reflect the module
;; hierarchy.
(mkdir-p "src/pfds")
(for-each (lambda (file)
(rename-file file
(string-append "src/pfds/"
file)))
'("bbtrees.sls"
"deques"
"deques.sls"
"dlists.sls"
"fingertrees.sls"
"hamts.sls"
"heaps.sls"
"private"
"psqs.sls"
"queues"
"queues.sls"
"sequences.sls"
"sets.sls"))
#t)))))))
(define-public guile-aa-tree
(package
(name "guile-aa-tree")
@ -777,6 +868,12 @@ convenient nested tree operations.")
messaging library.")
(license license:gpl3+))))
(define-public guile3.0-simple-zmq
(package
(inherit guile-simple-zmq)
(name "guile3.0-simple-zmq")
(native-inputs `(("guile" ,guile-next)))))
(define-public jupyter-guile-kernel
(let ((commit "a7db9245a886e104138474df46c3e88b95cff629")
(revision "1"))
@ -984,7 +1081,20 @@ format.")
(file-name (git-file-name name version))
(sha256
(base32
"1w7qy4dw1f4bx622l6hw8mv49sf1ha8kch8j4nganyk8fj0wn695"))))
"1w7qy4dw1f4bx622l6hw8mv49sf1ha8kch8j4nganyk8fj0wn695"))
(modules '((guix build utils)))
(snippet
'(begin
;; Allow builds with Guile 3.0.
(substitute* "configure.ac"
(("^GUILE_PKG.*")
"GUILE_PKG([3.0 2.2 2.0])\n"))
;; Remove "guile.m4" since it contains an obsolete version
;; of 'GUILE_PKG' that doesn't work with development
;; versions such as 2.9.
(delete-file "m4/guile.m4")
#t))))
(build-system gnu-build-system)
(arguments
'(#:make-flags
@ -1004,6 +1114,13 @@ Scheme by using Guile’s foreign function interface.")
(home-page "https://gitlab.com/mothacehe/guile-newt")
(license license:gpl3+)))
(define-public guile3.0-newt
(package
(inherit guile-newt)
(name "guile3.0-newt")
(inputs `(("guile" ,guile-next)
,@(alist-delete "guile" (package-inputs guile-newt))))))
(define-public guile-mastodon
(package
(name "guile-mastodon")
@ -1045,7 +1162,20 @@ microblogging service.")
(file-name (git-file-name name version))
(sha256
(base32
"01qmv6xnbbq3wih0dl9bscvca2d7zx7bjiqf35y6dkaqsp8nvdxf"))))
"01qmv6xnbbq3wih0dl9bscvca2d7zx7bjiqf35y6dkaqsp8nvdxf"))
(modules '((guix build utils)))
(snippet
'(begin
;; Allow builds with Guile 3.0.
(substitute* "configure.ac"
(("^GUILE_PKG.*")
"GUILE_PKG([3.0 2.2 2.0])\n"))
;; Remove "guile.m4" since it contains an obsolete version
;; of 'GUILE_PKG' that doesn't work with development
;; versions such as 2.9.
(delete-file "m4/guile.m4")
#t))))
(build-system gnu-build-system)
(arguments
'(#:make-flags
@ -1067,6 +1197,15 @@ written in pure Scheme by using Guile's foreign function interface.")
(home-page "https://gitlab.com/mothacehe/guile-parted")
(license license:gpl3+)))
(define-public guile3.0-parted
(package
(inherit guile-parted)
(name "guile3.0-parted")
(inputs `(("guile" ,guile-next)
,@(alist-delete "guile" (package-inputs guile-parted))))
(propagated-inputs
`(("guile-bytestructures" ,guile3.0-bytestructures)))))
(define-public guile-xosd
(package
(name "guile-xosd")
@ -1236,15 +1375,16 @@ PostgreSQL.")
(define-public guile-config
(package
(name "guile-config")
(version "0.3")
(version "0.3.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/a-sassmannshausen/guile-config")
(commit "ce12de3f438c6b2b59c43ee21bcd58251835fdf3")))
(file-name "guile-config-0.3-checkout")
(sha256 (base32 "02zbpin0r9m2vxmr7mv68v3xdn247dcck56kbzjn0gj4c2rhih85"))))
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256 (base32
"0gglsqwpw77gvrqcny8irpqfl7qdf2v8n9ggwrswanxalj4vcbvf"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
@ -1266,10 +1406,17 @@ above command-line parameters.")
"https://gitlab.com/a-sassmannshausen/guile-config")
(license license:gpl3+)))
(define-public guile3.0-config
(package
(inherit guile-config)
(name "guile3.0-config")
(inputs `(("guile" ,guile-next)
,@(alist-delete "guile" (package-inputs guile-config))))))
(define-public guile-hall
(package
(name "guile-hall")
(version "0.2")
(version "0.2.1")
(source
(origin
(method git-fetch)
@ -1278,7 +1425,7 @@ above command-line parameters.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256 (base32
"1bkbqgj24xh5b65sw2m98iggpi67b72szx1dsiq3cpzlcxplmgaz"))))
"0dwx5iyg0dmdf64wq0b4w306bapr86jwnw35npgbjq4cqm8qbzqn"))))
(build-system gnu-build-system)
(arguments
`(#:modules
@ -1344,6 +1491,17 @@ provides tight coupling to Guix.")
(home-page "https://gitlab.com/a-sassmannshausen/guile-hall")
(license license:gpl3+)))
(define-public guile3.0-hall
(package
(inherit guile-hall)
(name "guile3.0-hall")
(inputs `(("guile" ,guile-next)
,@(alist-delete "guile" (package-inputs guile-hall))))
(propagated-inputs
`(("guile-config" ,guile3.0-config)
,@(alist-delete "guile-config"
(package-propagated-inputs guile-hall))))))
(define-public guile-ics
(package
(name "guile-ics")
@ -1450,6 +1608,22 @@ whitespace-significant language. It may be easier on the eyes for some
users and in some situations.")
(license license:gpl3+)))
(define-public guile3.0-wisp
(package
(inherit guile-wisp)
(name "guile3.0-wisp")
(inputs `(("guile" ,guile-3.0)))
(arguments
(substitute-keyword-arguments (package-arguments guile-wisp)
((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'support-guile-3.0
(lambda _
(substitute* "configure"
(("_guile_versions_to_search=\"2.2")
"_guile_versions_to_search=\"3.0 2.2"))
#t))))))))
(define-public guile-sly
(package
(name "guile-sly")
@ -1906,7 +2080,15 @@ key-value cache and store.")
"/" name "-" version ".tar.gz"))
(sha256
(base32
"17lrsdisa3kckh24q114vfmzdc4wkqa6ccwl4hdlrng5wpn1iman"))))
"17lrsdisa3kckh24q114vfmzdc4wkqa6ccwl4hdlrng5wpn1iman"))
(modules '((guix build utils)))
(snippet
'(begin
;; Allow builds with Guile 3.0.
(substitute* "configure"
(("2\\.2 2\\.0")
"3.0 2.2 2.0"))
#t))))
(build-system gnu-build-system)
(inputs
`(("guile" ,guile-2.2)))
@ -1922,6 +2104,12 @@ is no support for parsing block and inline level HTML.")
(home-page "https://github.com/OrangeShark/guile-commonmark")
(license license:lgpl3+)))
(define-public guile3.0-commonmark
(package
(inherit guile-commonmark)
(name "guile3.0-commonmark")
(inputs `(("guile" ,guile-3.0)))))
(define-public guile2.0-commonmark
(package
(inherit guile-commonmark)
@ -2010,6 +2198,12 @@ format is also supported.")
The picture values can directly be displayed in Geiser.")
(license license:lgpl3+))))
(define-public guile3.0-picture-language
(package
(inherit guile-picture-language)
(name "guile3.0-picture-language")
(inputs `(("guile" ,guile-3.0)))))
(define-public guile-studio
(package
(name "guile-studio")

68
gnu/packages/guile.scm
View file

@ -283,19 +283,19 @@ without requiring the source code to be rewritten.")
(base32
"07p3g0v2ba2vlfbfidqzlgbhnzdx46wh2rgc5gszq1mjyx5bks6r"))))))
(define-public guile-next
;; This is the upcoming Guile 3.0, with JIT support.
(define-public guile-3.0
;; This is the latest Guile stable version.
(package
(inherit guile-2.2)
(name "guile-next")
(version "2.9.8")
(name "guile-next") ;to be renamed to "guile"
(version "3.0.0")
(source (origin
(inherit (package-source guile-2.2))
(uri (string-append "ftp://alpha.gnu.org/gnu/guile/guile-"
(uri (string-append "ftp://ftp.gnu.org/gnu/guile/guile-"
version ".tar.xz"))
(sha256
(base32
"09icv9ymdb7hchn34c32s7x8ycilqj74mirmi4b3bm5zp1izd32a"))))
"0x8ca6q1qdmk29lh12gj6ngvgn7kp79w42rxfgwrpxm9jmjqs4y9"))))
(native-search-paths
(list (search-path-specification
(variable "GUILE_LOAD_PATH")
@ -303,13 +303,13 @@ without requiring the source code to be rewritten.")
(search-path-specification
(variable "GUILE_LOAD_COMPILED_PATH")
(files '("lib/guile/3.0/site-ccache"
"share/guile/site/3.0")))))
(properties '((ftp-server . "alpha.gnu.org")
(upstream-name . "guile")))))
"share/guile/site/3.0")))))))
(define (make-guile-readline guile)
(define-public guile-next guile-3.0)
(define* (make-guile-readline guile #:optional (name "guile-readline"))
(package
(name "guile-readline")
(name name)
(version (package-version guile))
(source (package-source guile))
(build-system gnu-build-system)
@ -366,6 +366,9 @@ GNU@tie{}Guile. Use the @code{(ice-9 readline)} module and call its
(define-public guile-readline
(make-guile-readline guile-2.2))
(define-public guile3.0-readline
(make-guile-readline guile-next "guile3.0-readline"))
(define (guile-variant-package-name prefix)
(lambda (name)
"Return NAME with PREFIX instead of \"guile-\", when applicable."
@ -595,8 +598,16 @@ Guile's foreign function interface.")
"0q0habjiy3h9cigb7q1br9kz6z212dn2ab31f6dgd3rrmsfn5rvb"))))
(build-system gnu-build-system)
(arguments
'(#:make-flags
'("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
`(#:make-flags '("GUILE_AUTO_COMPILE=0") ;to prevent guild warnings
#:phases (modify-phases %standard-phases
(add-after 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(package ,(package-full-name this-package "-"))
(doc (string-append out "/share/doc/" package)))
(install-file "README.md" doc)
#t))))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
@ -623,36 +634,19 @@ type system, elevating types to first-class status.")
(define-public guile-git
(package
(name "guile-git")
(version "0.2.0")
(version "0.3.0")
(home-page "https://gitlab.com/guile-git/guile-git.git")
(source (origin
(method git-fetch)
(uri (git-reference (url home-page)
(commit (string-append "v" version))))
(method url-fetch)
(uri (string-append "https://gitlab.com/guile-git/guile-git/uploads/"
"4c563d8e7e1ff84396abe8ca7011bcaf/guile-git-"
version ".tar.gz"))
(sha256
(base32
"018hmfsh0rjwfvr4h7y10jc6k8a2k9xsirngghy3pjasin4nd2yz"))
(file-name (git-file-name name version))
(modules '((guix build utils)))
(snippet
'(begin
;; Allow builds with Guile 3.0.
(substitute* "configure.ac"
(("^GUILE_PKG.*")
"GUILE_PKG([3.0 2.2 2.0])\n"))
;; The 'guile.m4' that's shipped is too old and fails to
;; recognize Guile 2.9/3.0. Delete it and pick the one
;; provided by the Guile we're using.
(delete-file "m4/guile.m4")
#t))))
"0c5i3d16hp7gp9rd78vk9zc45js8bphf92m4lbb5gyi4l1yl7kkm"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("texinfo" ,texinfo)
("pkg-config" ,pkg-config)))
`(("pkg-config" ,pkg-config)))
(inputs
`(("guile" ,guile-2.2)
("libgit2" ,libgit2)))

4
gnu/packages/hardware.scm
View file

@ -238,7 +238,7 @@ be dangerous and may void your CPU or system board's warranty.")
(define-public wavemon
(package
(name "wavemon")
(version "0.9.0")
(version "0.9.1")
(source
(origin
(method git-fetch)
@ -247,7 +247,7 @@ be dangerous and may void your CPU or system board's warranty.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "07cid0h3mcyr74nnrzzf8k5n1p9a4y3wij43jbiaqmkpxilcc1i6"))))
(base32 "109ycwnjjqc2vpnd8b86njfifczlxglnyv4rh2qmbn2i5nw2wryg"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags

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

@ -2797,7 +2797,7 @@ providing an @code{rnf} implementation.")
(native-inputs
`(("ghc-hspec" ,ghc-hspec)
("ghc-quickcheck" ,ghc-quickcheck)))
(home-page "http://hackage.haskell.org/package/dense-linear-algebra")
(home-page "https://hackage.haskell.org/package/dense-linear-algebra")
(synopsis "Simple and incomplete implementation of linear algebra")
(description "This library is simply a collection of linear-algebra
related modules split from the statistics library.")
@ -5008,7 +5008,7 @@ combine hash values.")
`(#:cabal-revision
("2" "006phc5y9rrvsshdcmjmhxzxh8dpgs685mpqbkjm9c40xb1ydjbz")))
(inputs `(("ghc-hashable" ,ghc-hashable)))
(home-page "http://hackage.haskell.org/package/hashable-time")
(home-page "https://hackage.haskell.org/package/hashable-time")
(synopsis "Hashable instances for Data.Time")
(description
"This package provides @code{Hashable} instances for types in
@ -7194,7 +7194,7 @@ used both from lens and microlens).")
`(("ghc-errorcall-eq-instance" ,ghc-errorcall-eq-instance)
("ghc-quickcheck" ,ghc-quickcheck)
("ghc-hunit" ,ghc-hunit)))
(home-page "http://software.complete.org/missingh")
(home-page "https://software.complete.org/missingh")
(synopsis "Large utility library")
(description
"MissingH is a library of all sorts of utility functions for Haskell
@ -9890,7 +9890,7 @@ award winning Linux port of \"Civilization: Call To Power.\"")
(native-inputs
`(("ghc-weigh" ,ghc-weigh)
("pkg-config" ,pkg-config)))
(home-page "http://hackage.haskell.org/package/sdl2")
(home-page "https://hackage.haskell.org/package/sdl2")
(synopsis "High- and low-level bindings to the SDL library")
(description
"This package contains bindings to the SDL 2 library, in both high- and

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

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
;;; Copyright © 2015, 2016 Alex Kost <alezost@gmail.com>
;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
@ -12,6 +12,7 @@
;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2019 Guy Fleury Iteriteka <hoonandon@gmail.com>
;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2020 Peng Mei Yu <pengmeiyu@riseup.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -40,11 +41,15 @@
#:use-module (gnu packages autotools)
#:use-module (gnu packages algebra)
#:use-module (gnu packages boost)
#:use-module (gnu packages check)
#:use-module (gnu packages compression)
#:use-module (gnu packages curl)
#:use-module (gnu packages documentation)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gettext)
#:use-module (gnu packages ghostscript)
#:use-module (gnu packages gl)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gtk)
@ -59,6 +64,7 @@
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages xorg)
#:use-module (gnu packages))
@ -455,16 +461,16 @@ including CBZ, CB7, CBT, LHA.")
(define-public qview
(package
(name "qview")
(version "2.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jurplel/qView.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1s29hz44rb5dwzq8d4i4bfg77dr0v3ywpvidpa6xzg7hnnv3mhi5"))))
(version "3.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jurplel/qView.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "15a91bs3wcqhgf76wzigbn10hayg628j84pq4j2vaxar94ak0vk7"))))
(build-system gnu-build-system)
(arguments
`(#:phases
@ -524,3 +530,69 @@ including animated GIFs, into ANSI/Unicode character output that can be
displayed in a terminal.")
(home-page "https://hpjansson.org/chafa/")
(license license:lgpl3+)))
(define-public imv
(package
(name "imv")
(version "4.1.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/eXeC64/imv")
(commit (string-append "v" version))))
(sha256
(base32
"0gk8g178i961nn3bls75a8qpv6wvfvav6hd9lxca1skaikd33zdx"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-after 'install 'record-absolute-file-names
(lambda* (#:key outputs #:allow-other-keys)
;; 'imv' is a script that execs 'imv-x11' or 'imv-wayland'.
;; Record their absolute file name.
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(substitute* (string-append bin "/imv")
(("imv-")
(string-append bin "/imv-")))
#t))))
#:make-flags
(list "CC=gcc"
(string-append "PREFIX=" (assoc-ref %outputs "out"))
(string-append "CONFIGPREFIX="
(assoc-ref %outputs "out") "/etc"))))
(inputs
`(("asciidoc" ,asciidoc)
("freeimage" ,freeimage)
("glu" ,glu)
("librsvg" ,librsvg)
("libxkbcommon" ,libxkbcommon)
("pango" ,pango)
("wayland" ,wayland)))
(native-inputs
`(("cmocka" ,cmocka)
("pkg-config" ,pkg-config)))
(synopsis "Image viewer for tiling window managers")
(description "@code{imv} is a command line image viewer intended for use
with tiling window managers. Features include:
@itemize
@item Native Wayland and X11 support.
@item Support for dozens of image formats including:
@itemize
@item PNG
@item JPEG
@item Animated GIFs
@item SVG
@item TIFF
@item Various RAW formats
@item Photoshop PSD files
@end itemize
@item Configurable key bindings and behavior.
@item Highly scriptable with IPC via imv-msg.
@end itemize\n")
(home-page "https://github.com/eXeC64/imv")
(license license:expat)))

6
gnu/packages/image.scm
View file

@ -9,7 +9,7 @@
;;; Copyright © 2014, 2017 John Darrington <jmd@gnu.org>
;;; Copyright © 2016, 2017, 2018 Leo Famulari <leo@famulari.name>
;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; 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 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016, 2017 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2016, 2017 Kei Kebreau <kkebreau@posteo.net>
@ -321,7 +321,7 @@ and other PNG optimizers.")
(define-public pngquant
(package
(name "pngquant")
(version "2.12.3")
(version "2.12.6")
(source
(origin
(method git-fetch)
@ -330,7 +330,7 @@ and other PNG optimizers.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1yiwbcihn4311fpfd568gg8zmmhqwg80jmhbhkb5msiipgd9xv33"))))
(base32 "15hanshahxqs6s9fyc3aym02251dcys7bf78g3inp0y233amdbl3"))))
(build-system gnu-build-system)
(arguments
`(#:test-target "test"

9
gnu/packages/java.scm
View file

@ -1,4 +1,3 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
@ -6809,7 +6808,7 @@ printed.")
(version "2.7.7")
(source (origin
(method url-fetch)
(uri (string-append "http://www.antlr2.org/download/antlr-"
(uri (string-append "https://www.antlr2.org/download/antlr-"
version ".tar.gz"))
(sha256
(base32
@ -6856,7 +6855,7 @@ printed.")
("java" ,icedtea "jdk")))
(inputs
`(("java" ,icedtea)))
(home-page "http://www.antlr2.org")
(home-page "https://www.antlr2.org")
(synopsis "Framework for constructing recognizers, compilers, and translators")
(description "ANTLR, ANother Tool for Language Recognition, (formerly PCCTS)
is a language tool that provides a framework for constructing recognizers,
@ -7080,7 +7079,7 @@ import org.antlr.grammar.v3.ANTLRTreePrinter;"))
`(("stringtemplate" ,java-stringtemplate-3)
("antlr" ,antlr2)
("stringtemplate4" ,java-stringtemplate-4.0.6)))
(home-page "http://www.antlr3.org")
(home-page "https://www.antlr3.org")
(synopsis "Framework for constructing recognizers, compilers, and translators")
(description "ANTLR, ANother Tool for Language Recognition, (formerly PCCTS)
is a language tool that provides a framework for constructing recognizers,
@ -8970,7 +8969,7 @@ file when the JVM loads it.")
#:jdk ,icedtea-8
#:tests? #f; requires testng which depends on jcommander
#:source-dir "src/main/java"))
(home-page "http://jcommander.org")
(home-page "https://jcommander.org")
(synopsis "Command line parameters parser")
(description "JCommander is a very small Java framework that makes it
trivial to parse command line parameters. Parameters are declared with

2
gnu/packages/lean.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Amin Bandali <bandali@gnu.org>
;;; Copyright © 2019 Amin Bandali <mab@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;

1
gnu/packages/libreoffice.scm
View file

@ -75,7 +75,6 @@
#:use-module (gnu packages perl-compression)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages rdf)
#:use-module (gnu packages scanner)
#:use-module (gnu packages tls)

20
gnu/packages/libusb.scm
View file

@ -525,14 +525,16 @@ devices.")
(define-public hidapi
(package
(name "hidapi")
(version "0.8.0-rc1")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/signal11/hidapi/archive/hidapi-"
version ".tar.gz"))
(sha256
(base32
"0qdgyj9rgb7n0nk3ghfswrhzzknxqn4ibn3wj8g4r828pw07451w"))))
(version "0.9.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/libusb/hidapi.git")
(commit (string-append "hidapi-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1p4g8lgwj4rki6lbn5l6rvwj0xlbn1xfh4d255bg5pvgczmwmc4i"))))
(build-system gnu-build-system)
(inputs
`(("libusb" ,libusb)
@ -542,7 +544,7 @@ devices.")
("automake" ,automake)
("libtool" ,libtool)
("pkg-config" ,pkg-config)))
(home-page "http://www.signal11.us/oss/hidapi/")
(home-page "https://github.com/libusb/hidapi")
(synopsis "HID API library")
(description
"HIDAPI is a library which allows an application to interface with USB and Bluetooth

50
gnu/packages/linux.scm
View file

@ -2,7 +2,7 @@
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2014, 2015, 2016 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
;;; Copyright © 2015, 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
@ -357,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.10")
(define-public linux-libre-5.4-version "5.4.13")
(define-public linux-libre-5.4-pristine-source
(let ((version linux-libre-5.4-version)
(hash (base32 "1p9f0h9fl1xy13dag1x7j2ic8kdv0zsp42c8baxn7cz3llc04g7j")))
(hash (base32 "1mva73ywb2r5lrmzp5m7hyy0zpgxdg91nw42c1z1sz3ydpcjkys9")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.4)))
(define-public linux-libre-4.19-version "4.19.94")
(define-public linux-libre-4.19-version "4.19.97")
(define-public linux-libre-4.19-pristine-source
(let ((version linux-libre-4.19-version)
(hash (base32 "0rvlz94mjl7ygpmhz0yn2whx9dq9fmy0w1472bj16hkwbaki0an6")))
(hash (base32 "1nln2ksfm0ddkqdmhvxwzqq96av1myx89kr1wxs54m2yw0la7clg")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.19)))
(define-public linux-libre-4.14-version "4.14.163")
(define-public linux-libre-4.14-version "4.14.166")
(define-public linux-libre-4.14-pristine-source
(let ((version linux-libre-4.14-version)
(hash (base32 "0jdh54rqdsb3b908v2q4xjn8y45b7rdnwgab0s4qf5alznfcqagb")))
(hash (base32 "003wax7dsahlv1iv9yqhkjbxx20crmwyd9464cx974i03a0vzclb")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.14)))
(define-public linux-libre-4.9-version "4.9.208")
(define-public linux-libre-4.9-version "4.9.210")
(define-public linux-libre-4.9-pristine-source
(let ((version linux-libre-4.9-version)
(hash (base32 "0njjw1i8dilihn1hz62zra4b9y05fb3r2k2sqlkd0wfn86c1rbdp")))
(hash (base32 "04skcbbp1yv54hwipa1pjx04lb21013r0lh2swycq0kdhc1m54d0")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.9)))
(define-public linux-libre-4.4-version "4.4.208")
(define-public linux-libre-4.4-version "4.4.210")
(define-public linux-libre-4.4-pristine-source
(let ((version linux-libre-4.4-version)
(hash (base32 "03jj91z5dc0ybpjy9w6aanb3k53gcj7gsjc32h3ldf72hlmgz6aq")))
(hash (base32 "1pg754s3138d2lq5y2zd1z7dagdy8pl4ifmp0754sa1rkjd3h0ns")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.4)))
@ -927,7 +927,7 @@ and should be used with caution, especially on untested models.")
(define-public vhba-module
(package
(name "vhba-module")
(version "20190831")
(version "20200106")
(source (origin
(method url-fetch)
(uri (string-append
@ -935,7 +935,7 @@ and should be used with caution, especially on untested models.")
version ".tar.bz2"))
(sha256
(base32
"1ybbk6l06n0y11n5wnfmvdz0baizmq55l458ywimghdyz0n7g0ws"))))
"10rlvsfj0fw6n0qmwcnvhimqnsnhi7n55lyl7fq1pkwggf5218sr"))))
(build-system linux-module-build-system)
(arguments
;; TODO: No tests?
@ -1316,7 +1316,7 @@ slabtop, and skill.")
(define-public e2fsprogs
(package
(name "e2fsprogs")
(version "1.45.4")
(version "1.45.5")
(source (origin
(method url-fetch)
(uri (string-append
@ -1325,7 +1325,7 @@ slabtop, and skill.")
name "-" version ".tar.xz"))
(sha256
(base32
"00nwl1ppjalxbnx40dsm895r3q793p8nni6n81saj7faj2szdyk5"))))
"1pmf8inp736l587rqq7qsd8bv0mmg5cwrivxg5p5awqgv70crypr"))))
(build-system gnu-build-system)
(inputs `(("util-linux" ,util-linux)))
(native-inputs `(("pkg-config" ,pkg-config)
@ -3662,7 +3662,7 @@ arrays when needed.")
(define-public multipath-tools
(package
(name "multipath-tools")
(version "0.8.2")
(version "0.8.3")
(source (origin
(method url-fetch)
(uri (string-append "https://git.opensvc.com/?p=multipath-tools/"
@ -3670,7 +3670,7 @@ arrays when needed.")
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"0kb4mhzwyygdbikikmby6hj39pb3nrzv05v526c75wnycwnpxg31"))
"1c6ay97wlfv1fl0y8hcfpxhkps14hlnw9gzmj7884micsp7pa9yv"))
(modules '((guix build utils)))
(snippet
'(begin
@ -4686,7 +4686,7 @@ not as a replacement for it.")
("cryptsetup" ,cryptsetup)
("lvm2" ,lvm2)
("nss" ,nss)))
(home-page "http://ecryptfs.org/")
(home-page "https://ecryptfs.org/")
(synopsis "eCryptfs cryptographic file system utilities")
(description
"eCryptfs is a POSIX-compliant stacked cryptographic file system for Linux.
@ -4764,14 +4764,14 @@ the default @code{nsswitch} and the experimental @code{umich_ldap}.")
(define-public mcelog
(package
(name "mcelog")
(version "154")
(version "168")
(source (origin
(method url-fetch)
(uri (string-append "https://git.kernel.org/cgit/utils/cpu/mce/"
"mcelog.git/snapshot/v" version ".tar.gz"))
(sha256
(base32
"07628cr05f50m7lsvw26wxlnb7qcl0x6rymdpp5spqzhz91l58p3"))
"1c4faayg1gcm3002b2fdrfnv76z92mvfzccvx8w9crjp0d17sp24"))
(file-name (string-append name "-" version ".tar.gz"))
(modules '((guix build utils)))
(snippet
@ -5459,14 +5459,14 @@ available in the kernel Linux.")
(define-public cpuid
(package
(name "cpuid")
(version "20180519")
(version "20200116")
(source (origin
(method url-fetch)
(uri (string-append "http://www.etallen.com/cpuid/cpuid-"
version ".src.tar.gz"))
(sha256
(base32
"16pzwyifc9glpk1hm6bqb5d1a7cw0qnqiamh5sbvqg7j6sz26y4n"))))
"1gxi4iwy6j366l6bkj1yyxhrk1rxmwfp498gikfxn8xwhij9dn0a"))))
(build-system gnu-build-system)
(arguments
'(#:make-flags '("CC=gcc")
@ -5974,10 +5974,10 @@ IP addresses and routes, and configure IPsec.")
(lambda _
(invoke "make" "install-dev"))))))
(native-inputs
`(("gettext" ,gettext-minimal)
("util-linux" ,util-linux)))
`(("gettext" ,gettext-minimal)))
(inputs
`(("python" ,python-wrapper)))
`(("libuuid" ,util-linux)
("python" ,python-wrapper)))
(home-page "https://xfs.wiki.kernel.org/")
(synopsis "XFS file system tools")
(description "This package provides commands to create and check XFS

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

@ -51,6 +51,7 @@
#:use-module (gnu packages compression)
#:use-module (gnu packages glib)
#:use-module (gnu packages gtk)
#:use-module (gnu packages libevent)
#:use-module (gnu packages libffi)
#:use-module (gnu packages lisp)
#:use-module (gnu packages maths)
@ -1668,7 +1669,7 @@ also be supported.")
(define-public sbcl-ironclad
(package
(name "sbcl-ironclad")
(version "0.46")
(version "0.48")
(source
(origin
(method git-fetch)
@ -1677,7 +1678,7 @@ also be supported.")
(commit (string-append "v" version))))
(sha256
(base32
"1s391awi2lsl7m1dbjirgpkm4p9p8wd076pakgvsvpn1rrznisnd"))
"1wzczpgvgjc5h8ghz75kxi7iykmqxqchdhgdhkif9j99kyqvbyam"))
(file-name (git-file-name name version))))
(build-system asdf-build-system/sbcl)
(native-inputs
@ -1685,8 +1686,7 @@ also be supported.")
`(("rt" ,sbcl-rt)))
(inputs
`(("bordeaux-threads" ,sbcl-bordeaux-threads)
("flexi-streams" ,sbcl-flexi-streams)
("nibbles" ,sbcl-nibbles)))
("flexi-streams" ,sbcl-flexi-streams)))
(synopsis "Cryptographic toolkit written in Common Lisp")
(description
"Ironclad is a cryptography library written entirely in Common Lisp.
@ -9168,3 +9168,544 @@ visualization.")
(define-public cl-ana
(sbcl-package->cl-source-package sbcl-cl-ana))
(define-public sbcl-archive
(let ((commit "631271c091ed02994bec3980cb288a2cf32c7cdc")
(revision "1"))
(package
(name "sbcl-archive")
(version (git-version "0.9" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/sharplispers/archive.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0pvsc9fmybx7rxd0kmzq4shi6hszdpwdc1sfy7jwyfxf8n3hnv4p"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("cl-fad" ,sbcl-cl-fad)
("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
(synopsis "Common Lisp library for tar and cpio archives")
(description
"This is a Common Lisp library to read and write disk-based file
archives such as those generated by the tar and cpio programs on Unix.")
(home-page "https://github.com/sharplispers/archive")
(license license:bsd-3))))
(define-public cl-archive
(sbcl-package->cl-source-package sbcl-archive))
(define-public ecl-archive
(sbcl-package->ecl-package sbcl-archive))
(define-public sbcl-misc-extensions
(let ((commit "101c05112bf2f1e1bbf527396822d2f50ca6327a")
(revision "1"))
(package
(name "sbcl-misc-extensions")
(version (git-version "3.3" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.common-lisp.net/misc-extensions/devel.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0gz5f4p70qzilnxsnf5lih2n9m4wjcw8hlw4w8mpn9jyhyppyyv0"))))
(build-system asdf-build-system/sbcl)
(synopsis "Collection of small macros and extensions for Common Lisp")
(description
"This project is intended as a catchall for small, general-purpose
extensions to Common Lisp. It contains:
@itemize
@item @code{new-let}, a macro that combines and generalizes @code{let},
@code{let*} and @code{multiple-value-bind},
@item @code{gmap}, an iteration macro that generalizes @code{map}.
@end itemize\n")
(home-page "https://common-lisp.net/project/misc-extensions/")
(license license:public-domain))))
(define-public cl-misc-extensions
(sbcl-package->cl-source-package sbcl-misc-extensions))
(define-public ecl-misc-extensions
(sbcl-package->ecl-package sbcl-misc-extensions))
(define-public sbcl-mt19937
(package
(name "sbcl-mt19937")
(version "1.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://common-lisp.net/project/asdf-packaging/"
"mt19937-latest.tar.gz"))
(sha256
(base32
"1iw636b0iw5ygkv02y8i41lh7xj0acglv0hg5agryn0zzi2nf1xv"))))
(build-system asdf-build-system/sbcl)
(synopsis "Mersenne Twister pseudo-random number generator")
(description
"MT19937 is a portable Mersenne Twister pseudo-random number generator
for Common Lisp.")
(home-page "https://www.cliki.net/mt19937")
(license license:public-domain)))
(define-public cl-mt19937
(sbcl-package->cl-source-package sbcl-mt19937))
(define-public ecl-mt19937
(sbcl-package->ecl-package sbcl-mt19937))
(define-public sbcl-fset
(let ((commit "6d2f9ded8934d2b42f2571a0ba5bda091037d852")
(revision "1"))
(package
(name "sbcl-fset")
(version (git-version "1.3.2" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/slburson/fset")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"127acblwrbqicx47h6sgvknz1cqyfn8p4xkhkn1m7hxh8w5gk1zy"))
(snippet '(begin
;; Remove obsolete copy of system definition.
(delete-file "Code/fset.asd")
#t))))
(build-system asdf-build-system/sbcl)
(inputs
`(("misc-extensions" ,sbcl-misc-extensions)
("mt19937" ,sbcl-mt19937)
("named-readtables" ,sbcl-named-readtables)))
(synopsis "Functional set-theoretic collections library")
(description
"FSet is a functional set-theoretic collections library for Common Lisp.
Functional means that all update operations return a new collection rather than
modifying an existing one in place. Set-theoretic means that collections may
be nested arbitrarily with no additional programmer effort; for instance, sets
may contain sets, maps may be keyed by sets, etc.")
(home-page "https://common-lisp.net/project/fset/Site/index.html")
(license license:llgpl))))
(define-public cl-fset
(sbcl-package->cl-source-package sbcl-fset))
(define-public sbcl-cl-cont
(let ((commit "fc1fa7e6eb64894fdca13e688e6015fad5290d2a")
(revision "1"))
(package
(name "sbcl-cl-cont")
(version (git-version "0.3.8" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.common-lisp.net/cl-cont/cl-cont.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1zf8zvb0i6jm3hhfks4w74hibm6avgc6f9s1qwgjrn2bcik8lrvz"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("alexandria" ,sbcl-alexandria)
("closer-mop" ,sbcl-closer-mop)))
(native-inputs
`(("rt" ,sbcl-rt)))
(synopsis "Delimited continuations for Common Lisp")
(description
"This is a library that implements delimited continuations by
transforming Common Lisp code to continuation passing style.")
(home-page "https://common-lisp.net/project/cl-cont/")
(license license:llgpl))))
(define-public cl-cont
(sbcl-package->cl-source-package sbcl-cl-cont))
(define-public ecl-cl-cont
(sbcl-package->ecl-package sbcl-cl-cont))
(define-public sbcl-cl-coroutine
(let ((commit "de098f8d5debd8b14ef6864b5bdcbbf5ddbcfd72")
(revision "1"))
(package
(name "sbcl-cl-coroutine")
(version (git-version "0.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/takagi/cl-coroutine.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1cqdhdjxffgfs116l1swjlsmcbly0xgcgrckvaajd566idj9yj4l"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("alexandria" ,sbcl-alexandria)
("cl-cont" ,sbcl-cl-cont)))
(native-inputs
`(("prove" ,sbcl-prove)))
(arguments
`(;; TODO: Fix the tests. They fail with:
;; "Component CL-COROUTINE-ASD::CL-COROUTINE-TEST not found"
#:tests? #f
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-tests
(lambda _
(substitute* "cl-coroutine-test.asd"
(("cl-test-more")
"prove"))
#t)))))
(synopsis "Coroutine library for Common Lisp")
(description
"This is a coroutine library for Common Lisp implemented using the
continuations of the @code{cl-cont} library.")
(home-page "https://github.com/takagi/cl-coroutine")
(license license:llgpl))))
(define-public cl-coroutine
(sbcl-package->cl-source-package sbcl-cl-coroutine))
(define-public ecl-cl-coroutine
(sbcl-package->ecl-package sbcl-cl-coroutine))
(define-public sbcl-vom
(let ((commit "1aeafeb5b74c53741b79497e0ef4acf85c92ff24")
(revision "1"))
(package
(name "sbcl-vom")
(version (git-version "0.1.4" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/orthecreedence/vom.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0536kppj76ax4lrxhv42npkfjsmx45km2g439vf9jmw3apinz9cy"))))
(build-system asdf-build-system/sbcl)
(synopsis "Tiny logging utility for Common Lisp")
(description
"Vom is a logging library for Common Lisp. It's goal is to be useful
and small. It does not provide a lot of features as other loggers do, but
has a small codebase that's easy to understand and use.")
(home-page "https://github.com/orthecreedence/vom")
(license license:expat))))
(define-public cl-vom
(sbcl-package->cl-source-package sbcl-vom))
(define-public ecl-vom
(sbcl-package->ecl-package sbcl-vom))
(define-public sbcl-cl-libuv
(let ((commit "32100c023c518038d0670a103eaa4d50dd785d29")
(revision "1"))
(package
(name "sbcl-cl-libuv")
(version (git-version "0.1.6" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/orthecreedence/cl-libuv.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1kwix4si8a8hza34ab2k7whrh7z0yrmx39v2wc3qblv9m244jkh1"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("alexandria" ,sbcl-alexandria)
("cffi" ,sbcl-cffi)
("cffi-grovel" ,sbcl-cffi-grovel)
("libuv" ,libuv)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "lib.lisp"
(("/usr/lib/libuv.so")
(string-append (assoc-ref inputs "libuv")
"/lib/libuv.so")))
#t))
(add-after 'fix-paths 'fix-system-definition
(lambda _
(substitute* "cl-libuv.asd"
(("#:cffi #:alexandria")
"#:cffi #:cffi-grovel #:alexandria"))
#t)))))
(synopsis "Common Lisp bindings to libuv")
(description
"This library provides low-level libuv bindings for Common Lisp.")
(home-page "https://github.com/orthecreedence/cl-libuv")
(license license:expat))))
(define-public cl-libuv
(sbcl-package->cl-source-package sbcl-cl-libuv))
(define-public ecl-cl-libuv
(sbcl-package->ecl-package sbcl-cl-libuv))
(define-public sbcl-cl-async-base
(let ((commit "f6423e44404a44434d803605e0d2e17199158e28")
(revision "1"))
(package
(name "sbcl-cl-async-base")
(version (git-version "0.6.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/orthecreedence/cl-async.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"11xi9dxb8mjgwzrkj88i0xkgk26z9w9ddxzbv6xsvfc1d4x5cf4x"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("bordeaux-threads" ,sbcl-bordeaux-threads)
("cffi" ,sbcl-cffi)
("cl-libuv" ,sbcl-cl-libuv)))
(arguments
`(#:asd-file "cl-async.asd"))
(synopsis "Base system for cl-async")
(description
"Cl-async is a library for general purpose, non-blocking programming in
Common Lisp. It uses the libuv library as backend.")
(home-page "https://orthecreedence.github.io/cl-async/")
(license license:expat))))
(define-public cl-async-base
(sbcl-package->cl-source-package sbcl-cl-async-base))
(define-public ecl-cl-async-base
(sbcl-package->ecl-package sbcl-cl-async-base))
(define-public sbcl-cl-async-util
(package
(inherit sbcl-cl-async-base)
(name "sbcl-cl-async-util")
(inputs
`(("bordeaux-threads" ,sbcl-bordeaux-threads)
("cffi" ,sbcl-cffi)
("cl-async-base" ,sbcl-cl-async-base)
("cl-libuv" ,sbcl-cl-libuv)
("cl-ppcre" ,sbcl-cl-ppcre)
("fast-io" ,sbcl-fast-io)
("vom" ,sbcl-vom)))
(synopsis "Internal utilities for cl-async")))
(define-public cl-async-util
(sbcl-package->cl-source-package sbcl-cl-async-util))
(define-public ecl-cl-async-util
(sbcl-package->ecl-package sbcl-cl-async-util))
(define-public sbcl-cl-async
(package
(inherit sbcl-cl-async-base)
(name "sbcl-cl-async")
(inputs
`(("babel" ,sbcl-babel)
("cffi" ,sbcl-cffi)
("cl-async-base" ,sbcl-cl-async-base)
("cl-async-util" ,sbcl-cl-async-util)
("cl-libuv" ,sbcl-cl-libuv)
("cl-ppcre" ,sbcl-cl-ppcre)
("static-vectors" ,sbcl-static-vectors)
("trivial-features" ,sbcl-trivial-features)
("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
(synopsis "Asynchronous operations for Common Lisp")))
(define-public cl-async
(sbcl-package->cl-source-package sbcl-cl-async))
(define-public ecl-cl-async
(sbcl-package->ecl-package sbcl-cl-async))
(define-public sbcl-cl-async-repl
(package
(inherit sbcl-cl-async-base)
(name "sbcl-cl-async-repl")
(inputs
`(("bordeaux-threads" ,sbcl-bordeaux-threads)
("cl-async" ,sbcl-cl-async)))
(arguments
(substitute-keyword-arguments (package-arguments sbcl-cl-async-base)
((#:asd-file _ "") "cl-async-repl.asd")))
(synopsis "REPL integration for cl-async")))
(define-public cl-async-repl
(sbcl-package->cl-source-package sbcl-cl-async-repl))
(define-public ecl-cl-async-repl
(sbcl-package->ecl-package sbcl-cl-async-repl))
(define-public sbcl-cl-async-ssl
(package
(inherit sbcl-cl-async-base)
(name "sbcl-cl-async-ssl")
(inputs
`(("cffi" ,sbcl-cffi)
("cl-async" ,sbcl-cl-async)
("openssl" ,openssl)
("vom" ,sbcl-vom)))
(arguments
(substitute-keyword-arguments (package-arguments sbcl-cl-async-base)
((#:asd-file _ "") "cl-async-ssl.asd")
((#:phases phases '%standard-phases)
`(modify-phases ,phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/ssl/package.lisp"
(("libcrypto\\.so")
(string-append (assoc-ref inputs "openssl")
"/lib/libcrypto.so"))
(("libssl\\.so")
(string-append (assoc-ref inputs "openssl")
"/lib/libssl.so")))
#t))))))
(synopsis "SSL wrapper around cl-async socket implementation")))
(define-public cl-async-ssl
(sbcl-package->cl-source-package sbcl-cl-async-ssl))
(define-public ecl-cl-async-ssl
(sbcl-package->ecl-package sbcl-cl-async-ssl))
(define-public sbcl-blackbird
(let ((commit "d361f81c1411dec07f6c2dcb11c78f7aea9aaca8")
(revision "1"))
(package
(name "sbcl-blackbird")
(version (git-version "0.5.2" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/orthecreedence/blackbird.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0xfds5yaya64arzr7w1x38karyz11swzbhxx1afldpradj9dh19c"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("vom" ,sbcl-vom)))
(native-inputs
`(("cl-async" ,sbcl-cl-async)
("fiveam" ,sbcl-fiveam)))
(synopsis "Promise implementation for Common Lisp")
(description
"This is a standalone promise implementation for Common Lisp. It is
the successor to the now-deprecated cl-async-future project.")
(home-page "http://orthecreedence.github.io/blackbird/")
(license license:expat))))
(define-public cl-blackbird
(sbcl-package->cl-source-package sbcl-blackbird))
(define-public ecl-blackbird
(sbcl-package->ecl-package sbcl-blackbird))
(define-public sbcl-cl-async-future
(let ((commit "ee36c22a69a9516407458d2ed8b475f1fc473959")
(revision "1"))
(package
(name "sbcl-cl-async-future")
(version (git-version "0.4.4.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/orthecreedence/cl-async-future.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0z0sc7qlzzxk99f4l26zp6rai9kv0kj0f599sxai5s44p17zbbvh"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("blackbird" ,sbcl-blackbird)))
(native-inputs
`(("cl-async" ,sbcl-cl-async)
("eos" ,sbcl-eos)))
(synopsis "Futures implementation for Common Lisp")
(description
"This is futures implementation for Common Lisp. It plugs in nicely
to cl-async.")
(home-page "http://orthecreedence.github.io/cl-async/future")
(license license:expat))))
(define-public cl-async-future
(sbcl-package->cl-source-package sbcl-cl-async-future))
(define-public ecl-cl-async-future
(sbcl-package->ecl-package sbcl-cl-async-future))
(define-public sbcl-green-threads
(let ((commit "fff5ebecb441a37e5c511773716aafd84a3c5840")
(revision "1"))
(package
(name "sbcl-green-threads")
(version (git-version "0.3" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/thezerobit/green-threads.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1czw7nr0dwfps76h8hjvglk1wdh53yqbfbvv30whwbgqx33iippz"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("cl-async-future" ,sbcl-cl-async-future)
("cl-cont" ,sbcl-cl-cont)))
(native-inputs
`(("prove" ,sbcl-prove)))
(arguments
`(;; TODO: Fix the tests. They fail with:
;; "The function BLACKBIRD::PROMISE-VALUES is undefined"
#:tests? #f
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-tests
(lambda _
(substitute* "green-threads-test.asd"
(("cl-test-more")
"prove"))
#t)))))
(synopsis "Cooperative multitasking library for Common Lisp")
(description
"This library allows for cooperative multitasking with help of cl-cont
for continuations. It tries to mimic the API of bordeaux-threads as much as
possible.")
(home-page "https://github.com/thezerobit/green-threads")
(license license:bsd-3))))
(define-public cl-green-threads
(sbcl-package->cl-source-package sbcl-green-threads))
(define-public ecl-green-threads
(sbcl-package->ecl-package sbcl-green-threads))

103
gnu/packages/lisp.scm
View file

@ -12,7 +12,7 @@
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2018, 2019 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2019 Katherine Cox-Buday <cox.katherine.e@gmail.com>
;;; Copyright © 2019, 2020 Katherine Cox-Buday <cox.katherine.e@gmail.com>
;;; Copyright © 2019 Jesse Gildersleve <jessejohngildersleve@protonmail.com>
;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net>
;;;
@ -88,6 +88,41 @@
:collect `(:directory (,dir \"systems\"))"
,lisp))))
(define-public cl-asdf
(package
(name "cl-asdf")
(version "3.3.3")
(source
(origin
(method url-fetch)
(uri
(string-append "https://common-lisp.net/project/asdf/archives/asdf-"
version ".lisp"))
(sha256
(base32 "18lr6kxvzhr79c9rx3sdricz30aby866fj0m24w27zxsqlyvn3rd"))))
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils)
(guix build lisp-utils))
#:builder
(begin
(use-modules (guix build utils)
(guix build lisp-utils))
(let* ((out (string-append (assoc-ref %outputs "out")))
(asdf-install (string-append out %source-install-prefix
"/source/asdf/"))
(asdf (string-append (assoc-ref %build-inputs "source"))))
(mkdir-p asdf-install)
(copy-file asdf (string-append asdf-install "asdf.lisp"))))))
(home-page "https://common-lisp.net/project/asdf/")
(synopsis "Another System Definition Facility")
(description
"ASDF is what Common Lisp hackers use to build and load software. It is
the successor of the Lisp DEFSYSTEM of yore. ASDF stands for Another System
Definition Facility.")
;; MIT License
(license license:expat)))
(define-public gcl
(let ((commit "d3335e2b3deb63f930eb0328e9b05377744c9512")
(revision "2")) ;Guix package revision
@ -195,28 +230,36 @@ interface to the Tk widget system.")
"https://common-lisp.net/project/ecl/static/files/release/"
name "-" version ".tgz"))
(sha256
(base32 "0m0j24w5d5a9dwwqyrg0d35c0nys16ijb4r0nyk87yp82v38b9bn"))
(modules '((guix build utils)))
(snippet
;; Add ecl-bundle-systems to 'default-system-source-registry'.
`(begin
(substitute* "contrib/asdf/asdf.lisp"
,@(asdf-substitutions name))
#t))))
(base32 "0m0j24w5d5a9dwwqyrg0d35c0nys16ijb4r0nyk87yp82v38b9bn"))))
(build-system gnu-build-system)
;; src/configure uses 'which' to confirm the existence of 'gzip'.
(native-inputs `(("which" ,which)))
(native-inputs `(("cl-asdf" ,cl-asdf)
("which" ,which)))
(inputs `(("gmp" ,gmp)
("libatomic-ops" ,libatomic-ops)
("libgc" ,libgc)
("libffi" ,libffi)))
(arguments
'(#:configure-flags '("--without-rt")
`(#:configure-flags '("--without-rt")
#:tests? #t
#:parallel-tests? #f
#:phases
(modify-phases %standard-phases
(delete 'check)
(add-after 'unpack 'replace-asdf
;; Use system ASDF instead of bundled one.
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((cl-asdf (assoc-ref inputs "cl-asdf"))
(guix-asdf (string-append
cl-asdf
"/share/common-lisp/source/asdf/asdf.lisp"))
(out (string-append (assoc-ref outputs "out")))
(contrib-asdf "contrib/asdf/asdf.lisp"))
(copy-file guix-asdf contrib-asdf)
;; Add ecl-bundle-systems to 'default-system-source-registry'.
(substitute* contrib-asdf
,@(asdf-substitutions name)))
#t))
(add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((ecl (assoc-ref outputs "out"))
@ -329,14 +372,7 @@ an interpreter, a compiler, a debugger, and much more.")
(uri (string-append "mirror://sourceforge/sbcl/sbcl/" version "/sbcl-"
version "-source.tar.bz2"))
(sha256
(base32 "1krgd69cirp4ili2pfsh1a0mfvq722jbknlvmf17qhsxh1b94dlh"))
(modules '((guix build utils)))
(snippet
;; Add sbcl-bundle-systems to 'default-system-source-registry'.
`(begin
(substitute* "contrib/asdf/asdf.lisp"
,@(asdf-substitutions name))
#t))))
(base32 "1krgd69cirp4ili2pfsh1a0mfvq722jbknlvmf17qhsxh1b94dlh"))))
(build-system gnu-build-system)
(outputs '("out" "doc"))
(native-inputs
@ -365,11 +401,12 @@ an interpreter, a compiler, a debugger, and much more.")
`(("clisp" ,clisp)))
(_
`(("clisp" ,clisp))))
("which" ,which)
("inetutils" ,inetutils) ;for hostname(1)
("cl-asdf" ,cl-asdf)
("ed" ,ed)
("texlive" ,(texlive-union (list texlive-tex-texinfo)))
("inetutils" ,inetutils) ;for hostname(1)
("texinfo" ,texinfo)
("texlive" ,(texlive-union (list texlive-tex-texinfo)))
("which" ,which)
("zlib" ,zlib)))
(arguments
`(#:modules ((guix build gnu-build-system)
@ -378,6 +415,24 @@ an interpreter, a compiler, a debugger, and much more.")
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-after 'unpack 'replace-asdf
;; SBCL developers have not committed to keeping ASDF up to date
;; due to breaking changes [1]. Guix can handle this situation
;; easily, and it behooves us to have more control over what version
;; of ASDF we use to build software; therefore, replace the contrib
;; ASDF with the version packaged into Guix.
;; [1] - https://bugs.launchpad.net/sbcl/+bug/1823442
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((cl-asdf (assoc-ref inputs "cl-asdf"))
(guix-asdf (string-append
cl-asdf
"/share/common-lisp/source/asdf/asdf.lisp"))
(out (string-append (assoc-ref outputs "out")))
(contrib-asdf "contrib/asdf/asdf.lisp"))
(copy-file guix-asdf contrib-asdf)
(substitute* contrib-asdf
,@(asdf-substitutions name)))
#t))
(add-before 'build 'patch-unix-tool-paths
(lambda* (#:key outputs inputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
@ -477,8 +532,8 @@ an interpreter, a compiler, a debugger, and much more.")
new-doc/sbcl-dir)
(delete-file-recursively old-doc-dir)
#t))))
;; No 'check' target, though "make.sh" (build phase) runs tests.
#:tests? #f))
;; No 'check' target, though "make.sh" (build phase) runs tests.
#:tests? #f))
(native-search-paths
(list (search-path-specification
(variable "XDG_DATA_DIRS")

27
gnu/packages/mail.scm
View file

@ -141,14 +141,14 @@
(define-public mailutils
(package
(name "mailutils")
(version "3.7")
(version "3.8")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/mailutils/mailutils-"
version ".tar.xz"))
(sha256
(base32
"1gwajsl39f1dkzrjld0dm9px8hrj7l7rwzazz00h5rwghk9mhwhq"))))
"1wkn9ch664477r4d8jk9153w5msljsbj99907k7zgzpmywbs6ba7"))))
(build-system gnu-build-system)
(arguments
'(#:phases
@ -160,10 +160,10 @@
(("/bin/cat")
(which "cat")))
;; Tests try to invoke 'maidag' such that it looks up the
;; Tests try to invoke 'mda' such that it looks up the
;; 'root' user, which does not exist in the build
;; environment.
(substitute* "maidag/tests/testsuite"
(substitute* "mda/tests/testsuite"
(("root <") "nobody <")
(("spool/root") "spool/nobody")
(("root@localhost") "nobody@localhost"))
@ -405,7 +405,7 @@ operating systems.")
(define-public neomutt
(package
(name "neomutt")
(version "20191102")
(version "20191207")
(source
(origin
(method git-fetch)
@ -414,7 +414,7 @@ operating systems.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0x5f9zbvxsxg5y2ir4xq4xw1q2snaxkidhdyhcxw5ljw3qqwhlyq"))))
(base32 "147yjpqnsbfy01fhsflxlixk0985r91a6bjmqq3cwmf7gka3sihm"))))
(build-system gnu-build-system)
(inputs
`(("cyrus-sasl" ,cyrus-sasl)
@ -489,7 +489,7 @@ operating systems.")
(apply invoke bash
(string-append (getcwd) "/configure")
flags)))))))
(home-page "https://www.neomutt.org/")
(home-page "https://neomutt.org/")
(synopsis "Command-line mail reader based on Mutt")
(description
"NeoMutt is a command-line mail reader which is based on mutt.
@ -2152,18 +2152,17 @@ converts them to maildir format directories.")
(define-public mpop
(package
(name "mpop")
(version "1.4.6")
(version "1.4.7")
(source
(origin
(method url-fetch)
(uri (string-append "https://marlam.de/mpop/releases/"
"mpop-" version ".tar.xz"))
(sha256
(base32 "0q4ifzvl1gcndvqqqk7n9mc599r4s2knxjc7alflwb366fql58gv"))))
(base32 "0c6n5afn9pr4p7gxkv462lysrw52w9fhvavzm99c78dcp9dj5xnk"))))
(build-system gnu-build-system)
(inputs
`(("gnutls" ,gnutls)
("libidn" ,libidn)))
`(("gnutls" ,gnutls)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://marlam.de/mpop/")
@ -2172,9 +2171,9 @@ converts them to maildir format directories.")
fetchmail replacement.
mpop supports multiple accounts, header based mail filtering, delivery
to mbox files, maildir folders or a Mail Delivery Agent (MDA),
TLS/SSL, several authentication methods, Internationalized Domain
Names (IDN) and SOCKS proxies.")
to mbox files, maildir folders or an @acronym{MDA, Mail Delivery Agent},
TLS/SSL, several authentication methods, @acronym{IDN, Internationalized Domain
Names} and SOCKS proxies.")
(license gpl3+)))
(define-public mhonarc

4
gnu/packages/man.scm
View file

@ -227,14 +227,14 @@ automatically.")
(define-public help2man/latest
(package
(inherit help2man)
(version "1.47.11")
(version "1.47.12")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/help2man/help2man-"
version ".tar.xz"))
(sha256
(base32
"123vsimgx8zq1h077sbyh3bd0hbmlc3wih2231wwh133z1bv51ar"))))))
"0q5ixbxz1v7wqnpg4bq7k7nbv9ssnmcvdbqsq5ycjvniz56ac2vx"))))))
(define-public scdoc
(package

30
gnu/packages/maths.scm
View file

@ -15,7 +15,7 @@
;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
;;; Copyright © 2016, 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017, 2018, 2019 Paul Garlick <pgarlick@tourbillion-technology.com>
;;; Copyright © 2017, 2018, 2019, 2020 Paul Garlick <pgarlick@tourbillion-technology.com>
;;; Copyright © 2017 ng0 <ng0@n0.is>
;;; Copyright © 2017 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org>
@ -29,7 +29,7 @@
;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2018 Eric Brown <brown@fastmail.com>
;;; Copyright © 2018 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2018 Amin Bandali <bandali@gnu.org>
;;; Copyright © 2018 Amin Bandali <mab@gnu.org>
;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2019 Steve Sprang <scs@stevesprang.com>
;;; Copyright © 2019 Robert Smith <robertsmith@posteo.net>
@ -908,12 +908,12 @@ incompatible with HDF5.")
(find-files ex ".*"))
(delete-file-recursively ex))
#t)))))
(home-page "http://www.hdfgroup.org")
(home-page "https://www.hdfgroup.org")
(synopsis "Management suite for extremely large and complex data")
(description "HDF5 is a suite that makes possible the management of
extremely large and complex data collections.")
(license (license:x11-style
"http://www.hdfgroup.org/ftp/HDF5/current/src/unpacked/COPYING"))))
"https://www.hdfgroup.org/ftp/HDF5/current/src/unpacked/COPYING"))))
(define-public hdf5-1.10
(package (inherit hdf5)
@ -942,7 +942,7 @@ extremely large and complex data collections.")
(origin
(method url-fetch)
(uri (string-append
"http://www.hdfgroup.org/ftp/HDF5/releases/HDF-JAVA/hdfjni-"
"https://www.hdfgroup.org/ftp/HDF5/releases/HDF-JAVA/hdfjni-"
version "/src/CMake-hdfjava-" version ".tar.gz"))
(sha256
(base32 "0m1gp2aspcblqzmpqbdpfp6giskws85ds6p5gz8sx7asyp7wznpr"))
@ -1175,7 +1175,7 @@ Swath).")
(source
(origin
(method url-fetch)
(uri (string-append "http://www.hdfgroup.org/ftp/HDF5/tools/"
(uri (string-append "https://www.hdfgroup.org/ftp/HDF5/tools/"
"h5check/src/h5check-" version ".tar.gz"))
(sha256
(base32
@ -1270,7 +1270,7 @@ similar to MATLAB, GNU Octave or SciPy.")
#t)))
#:parallel-tests? #f)) ;various race conditions
(home-page "http://www.unidata.ucar.edu/software/netcdf/")
(home-page "https://www.unidata.ucar.edu/software/netcdf/")
(synopsis "Library for scientific data")
(description "NetCDF is an interface for scientific data access and a
software library that provides an implementation of the interface. The netCDF
@ -1921,13 +1921,13 @@ September 2004}")
(copy-recursively exdir exdir')
(delete-file-recursively exdir)
#t))))))
(home-page "http://www.mcs.anl.gov/petsc")
(home-page "https://www.mcs.anl.gov/petsc")
(synopsis "Library to solve PDEs")
(description "PETSc, pronounced PET-see (the S is silent), is a suite of
data structures and routines for the scalable (parallel) solution of
scientific applications modeled by partial differential equations.")
(license (license:non-copyleft
"http://www.mcs.anl.gov/petsc/documentation/copyright.html"))))
"https://www.mcs.anl.gov/petsc/documentation/copyright.html"))))
(define-public petsc-complex
(package (inherit petsc)
@ -1994,14 +1994,14 @@ scientific applications modeled by partial differential equations.")
(define-public python-petsc4py
(package
(name "python-petsc4py")
(version "3.10.1")
(version "3.11.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "petsc4py" version))
(sha256
(base32
"094hcnran0r2z1wlvmjswsz3ski1m9kqrl5l0ax8jjhnk55x0flh"))))
"1rm1qj5wlkhxl39by9n78lh3gbmii31wsnb8j1rr5hvfr5xgbx2q"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -2164,14 +2164,14 @@ arising after the discretization of partial differential equations.")
(define-public python-slepc4py
(package
(name "python-slepc4py")
(version "3.10.0")
(version "3.11.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "slepc4py" version))
(sha256
(base32
"0x049dyc8frgh79fvvavf4vlbqp4mgm61nsaivzdav4316vvlv1j"))))
"1ksp08kxf4wg408b9nn39z3qfhy643j22d4rfbl30vzxk2rxh4lq"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -2644,7 +2644,7 @@ YACC = bison -pscotchyy -y -b y
(install-file f (string-append out "/lib")))
(find-files "../lib/" ".*metis\\..*"))
#t))))))
(home-page "http://www.labri.fr/perso/pelegrin/scotch/")
(home-page "https://www.labri.fr/perso/pelegrin/scotch/")
(synopsis "Programs and libraries for graph algorithms")
(description "SCOTCH is a set of programs and libraries which implement
the static mapping and sparse matrix reordering algorithms developed within
@ -4278,7 +4278,7 @@ symmetric matrices.")
(base32
"1687xpjjzig27y2pnqv7hv09smpijyfdpz7qjgmcxf4shfajlfkc"))))
(build-system cmake-build-system)
(home-page "http://libelemental.org")
(home-page "https://github.com/elemental/Elemental")
(native-inputs
`(("gfortran" ,gfortran)))
(inputs

7
gnu/packages/messaging.scm
View file

@ -173,16 +173,17 @@ end-to-end encryption.")
(define-public bitlbee
(package
(name "bitlbee")
(version "3.5.1")
(version "3.6")
(source (origin
(method url-fetch)
(uri (string-append "https://get.bitlbee.org/src/bitlbee-"
version ".tar.gz"))
(sha256
(base32 "0sgsn0fv41rga46mih3fyv65cvfa6rvki8x92dn7bczbi7yxfdln"))))
(base32 "0zhhcbcr59sx9h4maf8zamzv2waya7sbsl7w74gbyilvy93dw5cz"))))
(build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config)
("check" ,check)))
;; Note: Change to 'check' for versions > 3.6.
("check" ,check-0.12)))
(inputs `(("glib" ,glib)
("libotr" ,libotr)
("gnutls" ,gnutls)

8
gnu/packages/mpd.scm
View file

@ -4,7 +4,7 @@
;;; Copyright © 2014 Cyrill Schenkel <cyrill.schenkel@gmail.com>
;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
;;; Copyright © 2016, 2018, 2019 Leo Famulari <leo@famulari.name>
;;; Copyright © 2016, 2018, 2019, 2020 Leo Famulari <leo@famulari.name>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Evan Straw <evan.straw99@gmail.com>
;;;
@ -92,7 +92,7 @@ interfacing MPD in the C, C++ & Objective C languages.")
(define-public mpd
(package
(name "mpd")
(version "0.21.17")
(version "0.21.18")
(source (origin
(method url-fetch)
(uri
@ -101,7 +101,7 @@ interfacing MPD in the C, C++ & Objective C languages.")
"/mpd-" version ".tar.xz"))
(sha256
(base32
"0qka4g4dd6a6fxi03jnrd8ya70vfijmsxz642adfjqa626gam644"))))
"0hllkq426hql1s80xxvy28ypvw3dbfrrclbjc0lckmmgsmnfd0l7"))))
(build-system meson-build-system)
(arguments
`(#:configure-flags '("-Ddocumentation=true"))) ;the default is 'false'...
@ -237,7 +237,7 @@ terminal using ncurses.")
`(("pkg-config" ,pkg-config)))
(arguments
'(#:configure-flags
'("BOOST_LIB_SUFFIX=" "--with-taglib")))
'("BOOST_LIB_SUFFIX=" "--with-taglib" "--enable-clock")))
(synopsis "Featureful ncurses based MPD client inspired by ncmpc")
(description "Ncmpcpp is an mpd client with a UI very similar to ncmpc,
but it provides new useful features such as support for regular expressions

7
gnu/packages/music.scm
View file

@ -2978,7 +2978,7 @@ for improved Amiga ProTracker 2/3 compatibility.")
(define-public schismtracker
(package
(name "schismtracker")
(version "20190614")
(version "20190805")
(source (origin
(method git-fetch)
(uri (git-reference
@ -2987,7 +2987,7 @@ for improved Amiga ProTracker 2/3 compatibility.")
(file-name (git-file-name name version))
(sha256
(base32
"0cg0q5bkn8a06v03vmj69xyhi4xxpl729k4008q4hiakh9gy2x49"))
"0qqps20vvn3rgpg8174bjrrm38gqcci2z5z4c1r1vhbccclahgsd"))
(modules '((guix build utils)))
(snippet
;; Remove use of __DATE__ and __TIME__ for reproducibility.
@ -3838,7 +3838,8 @@ are a C compiler and glib. Full API documentation and examples are included.")
("libsndfile1" ,libsndfile)
("libxft" ,libxft)
("freetype2" ,freetype)
("fftw3f" ,fftwf)))
("fftw3f" ,fftwf)
("jack" ,jack-1)))
(home-page "https://lmms.io/")
(synopsis "Music composition tool")
(description "LMMS is a digital audio workstation. It includes tools for sequencing

4
gnu/packages/networking.scm
View file

@ -427,14 +427,14 @@ receiving NDP messages.")
(define-public ethtool
(package
(name "ethtool")
(version "5.3")
(version "5.4")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kernel.org/software/network/"
"ethtool/ethtool-" version ".tar.xz"))
(sha256
(base32
"1i14zrg4a84zjpwvqi8an0zx0hm06g614a79zc2syrkhrvdw1npk"))))
"0srbqp4a3x9ryrbm5q854375y04ni8j0bmsrl89nmsyn4x4ixy12"))))
(build-system gnu-build-system)
(home-page "https://www.kernel.org/pub/software/network/ethtool/")
(synopsis "Display or change Ethernet device settings")

10
gnu/packages/nim.scm
View file

@ -50,10 +50,12 @@
#t)))
(add-after 'patch-source-shebangs 'patch-more-shebangs
(lambda _
(substitute* (append '("tests/stdlib/tosprocterminate.nim"
"lib/pure/osproc.nim")
(find-files "c_code" "stdlib_osproc.c"))
(("/bin/sh") (which "sh")))
(let ((sh (which "sh")))
(substitute* '("tests/stdlib/tosprocterminate.nim"
"lib/pure/osproc.nim")
(("/bin/sh") sh))
(substitute* (find-files "c_code" "stdlib_osproc.c")
(("\"/bin/sh\", 7") (format "~s, ~s" sh (string-length sh)))))
#t))
(replace 'build
(lambda _

246
gnu/packages/node-xyz.scm Normal file
View file

@ -0,0 +1,246 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; 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 node-xyz)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix git-download)
#:use-module (guix build-system node))
(define-public node-color-name
(package
(name "node-color-name")
(version "1.1.3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/colorjs/color-name")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"09rbmj16nfwcwkhrybqxyy66bkrs50vpw6hkdqqb14l3gsyxpr74"))))
(build-system node-build-system)
(home-page "https://github.com/colorjs/color-name")
(synopsis "JSON with CSS color names")
(description
"This package provides a JSON list with color names and their values.")
(license license:expat)))
(define-public node-env-variable
(package
(name "node-env-variable")
(version "0.0.4")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/bigpipe/env-variable")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0nnpxjxfhy4na7fixb7p3ww6ard5xgggfm83b78i333867r4gmsq"))))
(build-system node-build-system)
(arguments '(#:tests? #f)) ; No tests.
(home-page "https://github.com/bigpipe/env-variable")
(synopsis "Environment variables for Node with fallbacks")
(description "This package provides environment variables with
@code{process.env}, @code{window.name}, @code{location.hash} and
@code{localStorage} fallbacks.")
(license license:expat)))
(define-public node-far
(package
(name "node-far")
(version "0.0.7")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/felixge/node-far")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"083rv1rszjn0i91zcpaghlid0kwhk0angmpj4hiflrlyhd6cmjzw"))))
(build-system node-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda _
;; We skip the two tests which are supposed to fail.
(invoke "bin/node-far" "-v" "test/" "-e" "test.*fail.js"))))))
(inputs
`(("node-oop" ,node-oop)))
(home-page "https://github.com/felixge/node-far")
(synopsis "Node.js test runner")
(description "This package provides a simple test runner that finds and runs
multiple node.js files, while providing useful information about output and exit
codes.")
(license license:expat)))
(define-public node-long-stack-traces
(package
(name "node-long-stack-traces")
(version "0.1.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/tlrobinson/long-stack-traces")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0famwsyc6xawi30v25zi65d8fhbvlvh976bqydf1dqn5gz200cl3"))))
(build-system node-build-system)
(arguments '(#:tests? #f)) ; No tests.
(home-page "https://github.com/tlrobinson/long-stack-traces")
(synopsis "Long stacktraces implemented in user-land JavaScript")
(description "This package provides long stacktraces for V8 implemented in
user-land JavaScript.")
(license license:expat))) ; in README
(define-public node-mersenne
(package
(name "node-mersenne")
(version "0.0.4")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jwatte/node-mersenne")
;; The actual release lacks a git tag.
(commit "f9fa01694ee49d6ae6ff9d90cfda594bddd3ccef")))
(file-name (git-file-name name version))
(sha256
(base32
"034iaiq2pdqn342p2404cpz364g282d2hkp9375hysnh9i968wbb"))))
(build-system node-build-system)
(arguments '(#:tests? #f)) ; No tests.
(home-page "http://www.enchantedage.com/node-mersenne")
(synopsis "Node.js module for generating Mersenne Twister random numbers")
(description "Thix package provides a node.js port of the Mersenne Twister
random number generator.")
(license license:bsd-3)))
(define-public node-oop
;; No releases, last commit was February 2013.
(let ((commit "f9d87cda0958886955c14a0a716e57021ed295dc")
(revision "1"))
(package
(name "node-oop")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/felixge/node-oop")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0mqrcf0xi2jbwffwkk00cljpqfsri1jk8s6kz8jny45apn7zjds1"))))
(build-system node-build-system)
(arguments '(#:tests? #f)) ; Tests run during build phase.
(home-page "https://github.com/felixge/node-oop")
(synopsis "Simple, light-weight oop module for Node")
(description "This library tries to bring basic oop features to JavaScript
while being as light-weight and simple as possible.")
(license license:expat))))
(define-public node-stack-trace
;; There have been improvements since the last release.
(let ((commit "4fd379ee78965ce7ce8820b436f1b1b590d5dbcf")
(revision "1"))
(package
(name "node-stack-trace")
(version (git-version "0.0.10" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/felixge/node-stack-trace")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1pk19wcpy8i95z5jr77fybd57qj7xmzmniap4dy47vjlmpkqia4i"))))
(build-system node-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-before 'check 'skip-intentionally-failing-test
(lambda _
(substitute* "test/run.js"
(("far.include") "far.exclude(/test-parse.js/)\nfar.include"))
#t)))))
(native-inputs
`(("node-far" ,node-far)
("node-long-stack-traces" ,node-long-stack-traces)))
(home-page "https://github.com/felixge/node-stack-trace")
(synopsis "Get v8 stack traces as an array of CallSite objects")
(description "Get v8 stack traces as an array of CallSite objects.")
(license license:expat))))
(define-public node-statsd-parser
(package
(name "node-statsd-parser")
(version "0.0.4")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/dscape/statsd-parser")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"049rnczsd6pv6bk282q4w72bhqc5cs562djgr7yncy7lk0wzq5j3"))))
(build-system node-build-system)
(arguments '(#:tests? #f)) ; No tests.
(home-page "https://github.com/dscape/statsd-parser")
(synopsis "Streaming parser for the statsd protocol")
(description "This package provides a streaming parser for the statsd
protocol used in @code{node-lynx}.")
(license license:asl2.0)))
(define-public node-util-deprecate
(package
(name "node-util-deprecate")
(version "1.0.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/TooTallNate/util-deprecate")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1rk94nl3qc7znsk8400bnga30v0m7j2mmvz9ldwjinxv1d3n11xc"))))
(build-system node-build-system)
(arguments '(#:tests? #f)) ; No test suite.
(home-page "https://github.com/TooTallNate/util-deprecate")
(synopsis "Node.js `util.deprecate()` function with browser support")
(description "This package provides the Node.js @code{util.deprecate()}
function with browser support.")
(license license:expat)))

50
gnu/packages/noweb.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -18,25 +19,41 @@
(define-module (gnu packages noweb)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix build-system gnu)
#:use-module (guix licenses))
#:use-module (guix licenses)
#:use-module (gnu packages perl))
(define-public noweb
(package
(name "noweb")
(version "2.11b")
(source (origin
(method url-fetch)
(uri (string-append "ftp://www.eecs.harvard.edu/pub/nr/noweb-"
version ".tgz"))
(sha256
(base32
"10hdd6mrk26kyh4bnng4ah5h1pnanhsrhqa7qwqy6dyv3rng44y9"))))
(version "2.12")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/nrnrnr/noweb")
(commit (string-append "v" (string-join (string-split version #\.)
"_")))))
(file-name (git-file-name name version))
(sha256
(base32 "1160i2ghgzqvnb44kgwd6s3p4jnk9668rmc15jlcwl7pdf3xqm95"))))
(build-system gnu-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'bind-early
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(substitute* (list "src/lib/nwmtime"
"src/shell/htmltoc")
(("exec perl ")
(format #f "exec ~a " (which "perl"))))
(substitute* "src/shell/noweb"
((" cpif ")
(format #f " ~a/cpif " bin)))
#t)))
(add-before 'install 'pre-install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
@ -69,11 +86,6 @@
(lambda _
;; Jump in the source.
(chdir "src")
;; The makefile reads "source: FAQ", but FAQ isn't
;; available.
(substitute* "Makefile"
(("FAQ") ""))
#t)))
#:make-flags (let ((out (assoc-ref %outputs "out")))
(list (string-append "BIN=" out "/bin")
@ -82,7 +94,9 @@
(string-append "TEXINPUTS=" out
"/share/texmf/tex/latex")))
#:tests? #f)) ; no tests
(home-page "http://www.cs.tufts.edu/~nr/noweb/")
(inputs
`(("perl" ,perl)))
(home-page "https://www.cs.tufts.edu/~nr/noweb/")
(synopsis "Literate programming tool")
(description
"Noweb is designed to meet the needs of literate programmers while
@ -92,4 +106,6 @@ with other literate-programming tools. noweb uses 5 control sequences to
WEB's 27. The noweb manual is only 4 pages; an additional page explains how
to customize its LaTeX output. noweb works “out of the box” with any
programming language, and supports TeX, LaTeX, HTML, and troff back ends.")
(license (fsf-free "http://www.cs.tufts.edu/~nr/noweb/#copyright"))))
(license
(list bsd-2 ; dual-licenced under this and…
(fsf-free "https://www.cs.tufts.edu/~nr/noweb/#copyright")))))

3
gnu/packages/nutrition.scm
View file

@ -29,7 +29,8 @@
#:use-module (gnu packages glib)
#:use-module (gnu packages image)
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz))
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages xml))
(define-public gourmet
(package

151
gnu/packages/ocaml.scm
View file

@ -6,7 +6,7 @@
;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2016, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016-2018 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2016-2020 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2017 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Peter Kreye <kreyepr@gmail.com>
@ -131,10 +131,10 @@
"/lib/ocaml/site-lib"))
#:phases (modify-phases %standard-phases (delete 'configure))))
(define-public ocaml-4.07
(define-public ocaml-4.09
(package
(name "ocaml")
(version "4.07.1")
(version "4.09.0")
(source (origin
(method url-fetch)
(uri (string-append
@ -143,7 +143,7 @@
"/ocaml-" version ".tar.xz"))
(sha256
(base32
"1f07hgj5k45cylj1q3k5mk8yi02cwzx849b1fwnwia8xlcfqpr6z"))))
"1v3z5ar326f3hzvpfljg4xj8b9lmbrl53fn57yih1bkbx3gr3yzj"))))
(build-system gnu-build-system)
(native-search-paths
(list (search-path-specification
@ -162,10 +162,7 @@
("gcc:lib" ,(canonical-package gcc) "lib")
("zlib" ,zlib))) ;also needed for objdump support
(arguments
`(#:modules ((guix build gnu-build-system)
(guix build utils)
(web server))
#:phases
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-/bin/sh-references
(lambda* (#:key inputs #:allow-other-keys)
@ -184,21 +181,11 @@ patch-/bin/sh-references: ~a: changing `\"/bin/sh\"' to `~a'~%"
quoted-sh))))
(find-files "." "\\.ml$"))
#t))))
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(mandir (string-append out "/share/man")))
;; Custom configure script doesn't recognize
;; --prefix=<PREFIX> syntax (with equals sign).
(invoke "./configure"
"--prefix" out
"--mandir" mandir))))
(replace 'build
(lambda _
(invoke "make" "-j" (number->string (parallel-job-count))
"world.opt")))
(delete 'check)
(add-after 'install 'check
(replace 'check
(lambda _
(with-directory-excursion "testsuite"
(invoke "make" "all")))))))
@ -214,6 +201,33 @@ functional, imperative and object-oriented styles of programming.")
;; distributed under lgpl2.0.
(license (list license:qpl license:lgpl2.0))))
(define-public ocaml-4.07
(package
(inherit ocaml-4.09)
(version "4.07.1")
(source (origin
(method url-fetch)
(uri (string-append
"http://caml.inria.fr/pub/distrib/ocaml-"
(version-major+minor version)
"/ocaml-" version ".tar.xz"))
(sha256
(base32
"1f07hgj5k45cylj1q3k5mk8yi02cwzx849b1fwnwia8xlcfqpr6z"))))
(arguments
(substitute-keyword-arguments (package-arguments ocaml-4.09)
((#:phases phases)
`(modify-phases ,phases
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(mandir (string-append out "/share/man")))
;; Custom configure script doesn't recognize
;; --prefix=<PREFIX> syntax (with equals sign).
(invoke "./configure"
"--prefix" out
"--mandir" mandir))))))))))
(define-public ocaml ocaml-4.07)
(define-public ocamlbuild
@ -430,7 +444,7 @@ the opam file fomat.")
(define-public opam
(package
(name "opam")
(version "2.0.5")
(version "2.0.6")
(source (origin
(method git-fetch)
(uri (git-reference
@ -439,7 +453,7 @@ the opam file fomat.")
(file-name (git-file-name name version))
(sha256
(base32
"0pf2smq2sdcxryq5i87hz3dv05pb3zasb1is3kxq1pi1s4cn55mx"))))
"1vyga2jllsfsikppxyzljm4isfnnnl8k0rb44h8xaddjzdg1d4m8"))))
(build-system ocaml-build-system)
(arguments
`(#:configure-flags
@ -483,6 +497,10 @@ the opam file fomat.")
"add_sys_mounts /gnu /run/current-system /usr"))
(substitute* "src/client/opamInitDefaults.ml"
(("\"bwrap\"") (string-append "\"" bwrap "\"")))
;; Generating the documentation needs write access
(for-each
(lambda (f) (chmod f #o644))
(find-files "doc" "."))
#t)))
(add-before 'check 'pre-check
(lambda _
@ -519,7 +537,7 @@ Git-friendly development workflow.")
(define-public camlp5
(package
(name "camlp5")
(version "7.07")
(version "7.10")
(source
(origin
(method git-fetch)
@ -528,7 +546,7 @@ Git-friendly development workflow.")
(commit (string-append "rel" (string-delete #\. version)))))
(file-name (git-file-name name version))
(sha256
(base32 "1c8v45553ccbqha2ypfranqlgw06rr5wjr2hlnrx5bf9jfq0h0dn"))))
(base32 "1a1lgsc8350afdwmsznsys7m0c0cks4nw6irqz2f92g8g4vkk9b7"))))
(build-system gnu-build-system)
(inputs
`(("ocaml" ,ocaml)))
@ -1122,7 +1140,7 @@ GNU CC attributes. It provides also a C pretty printer as an example of use.")
(define-public ocaml-qcheck
(package
(name "ocaml-qcheck")
(version "0.11")
(version "0.12")
(source
(origin
(method git-fetch)
@ -1131,14 +1149,22 @@ GNU CC attributes. It provides also a C pretty printer as an example of use.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0d2wih4zxn2zm7kxd9dnf5nlp838km3vz6wv80fa3m51609fb24i"))))
(base32 "1llnfynhlndwyjig7wrayjnds2b3mggp5lw20dwxhn2i2lkkb22m"))))
(build-system dune-build-system)
(arguments
`(#:test-target "."))
(native-inputs
`(#:test-target "."
#:phases
(modify-phases %standard-phases
(add-before 'build 'fix-deprecated
(lambda _
(substitute* "src/core/QCheck.ml"
(("Pervasives.compare") "compare"))
#t)))))
(propagated-inputs
`(("ocaml-alcotest" ,ocaml-alcotest)
("ocaml-ounit" ,ocaml-ounit)
("ocamlbuild" ,ocamlbuild)))
("ocaml-ounit" ,ocaml-ounit)))
(native-inputs
`(("ocamlbuild" ,ocamlbuild)))
(home-page "https://github.com/c-cube/qcheck")
(synopsis "QuickCheck inspired property-based testing for OCaml")
(description "QuickCheck inspired property-based testing for OCaml. This
@ -1150,7 +1176,7 @@ instances and printing them.")
(define-public ocaml-qtest
(package
(name "ocaml-qtest")
(version "2.9")
(version "2.10.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1159,7 +1185,7 @@ instances and printing them.")
(file-name (git-file-name name version))
(sha256
(base32
"1ifxc8jndwah82g5k8xaa7jskbv866j4zpd0w41f0pskg4y0z9g1"))))
"0gddzan4vzs0vklsxhirdjrvx3rp7hhh2yr20vi13nq8rwkn9w29"))))
(build-system dune-build-system)
(arguments
`(#:jbuild? #t
@ -1713,10 +1739,30 @@ lets the client choose the concrete timeline.")
through Transport Layer Security (@dfn{TLS}) encrypted connections.")
(license license:lgpl2.1)))
(define-public ocaml-mmap
(package
(name "ocaml-mmap")
(version "1.1.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mirage/mmap")
(commit (string-append "v" version))))
(sha256
(base32
"1jaismy5d1bhbbanysmr2k79px0yv6ya265dri3949nha1l23i60"))))
(build-system dune-build-system)
(home-page "https://github.com/mirage/mmap")
(synopsis "File mapping for OCaml")
(description "This project provides a @command{Mmap.map_file} function
for mapping files in memory. This function is the same as the
@command{Unix.map_file} funciton added in OCaml >= 4.06.")
(license (list license:qpl license:lgpl2.0))))
(define-public ocaml-lwt
(package
(name "ocaml-lwt")
(version "4.1.0")
(version "5.1.1")
(source
(origin
(method url-fetch)
@ -1724,29 +1770,22 @@ through Transport Layer Security (@dfn{TLS}) encrypted connections.")
".tar.gz"))
(file-name (string-append name "-" version ".tar.gz"))
(sha256 (base32
"0mhh019bjkg5xfvpy1pxs4xdxb759fyydmgb6l4j0qww1qgr8klp"))))
"0gwdmhn0qx03agc45dplj73ia5y1gb42aan64ywfxmll3lsnr2h7"))))
(build-system dune-build-system)
(arguments
`(#:tests? #f; require lwt_ppx
#:jbuild? #t
#:phases
(modify-phases %standard-phases
(add-before 'build 'configure
(lambda _
(invoke "ocaml" "src/util/configure.ml" "-use-libev" "true")
#t)))))
`(#:package "lwt"))
(native-inputs
`(("ocaml-cppo" ,ocaml-cppo)
("ocaml-migrate-parsetree" ,ocaml-migrate-parsetree)
("pkg-config" ,pkg-config)
("ppx-tools-versioned" ,ocaml-ppx-tools-versioned)))
`(("ocaml-bisect-ppx" ,ocaml-bisect-ppx)
("ocaml-cppo" ,ocaml-cppo)
("pkg-config" ,pkg-config)))
(inputs
`(("libev" ,libev)
("glib" ,glib)))
(propagated-inputs
`(("result" ,ocaml-result)
("ocaml-ssl" ,ocaml-ssl)
("ocaml-react" ,ocaml-react)))
`(("ocaml-mmap" ,ocaml-mmap)
("ocaml-ocplib-endian" ,ocaml-ocplib-endian)
("ocaml-result" ,ocaml-result)
("ocaml-seq" ,ocaml-seq)))
(home-page "https://github.com/ocsigen/lwt")
(synopsis "Cooperative threads and I/O in monadic style")
(description "Lwt provides typed, composable cooperative threads. These
@ -5024,7 +5063,7 @@ the full Core is not available, such as in Javascript.")
(define-public ocaml-markup
(package
(name "ocaml-markup")
(version "0.8.1")
(version "0.8.2")
(home-page "https://github.com/aantron/markup.ml")
(source
(origin
@ -5035,14 +5074,20 @@ the full Core is not available, such as in Javascript.")
(file-name (git-file-name name version))
(sha256
(base32
"0gzdjfnkv56vhmpvi9xpv1p05z50y55izhn156bkmb35s6izxds3"))))
"13zcrwzjmifniv3bvjbkd2ah8wwa3ld75bxh1d8hrzdvfxzh9szn"))))
(build-system dune-build-system)
(arguments
`(#:package "markup"))
(inputs
`(("libev" ,libev)))
(propagated-inputs
`(("ocaml-bisect-ppx" ,ocaml-bisect-ppx)
("ocaml-uchar" ,ocaml-uchar)
("ocaml-uutf" ,ocaml-uutf)
("ocaml-lwt" ,ocaml-lwt)))
(native-inputs `(("ocaml-ounit" ,ocaml-ounit)))
(native-inputs
`(("ocaml-ounit" ,ocaml-ounit)
("pkg-config" ,pkg-config)))
(synopsis "Error-recovering functional HTML5 and XML parsers and writers")
(description "Markup.ml provides an HTML parser and an XML parser. The
parsers are wrapped in a simple interface: they are functions that transform
@ -5102,7 +5147,7 @@ combinators.")
(define-public ocaml-bisect-ppx
(package
(name "ocaml-bisect-ppx")
(version "1.4.1")
(version "1.4.2")
(source
(origin
(method git-fetch)
@ -5112,7 +5157,7 @@ combinators.")
(file-name (git-file-name name version))
(sha256
(base32
"1vp3qvrkz7q25nbmvd40vhsnz2k9aqh17bnd21i3q8q0xlr5hdag"))))
"0900vli5kw7s5kdam0n4cqsfsfqb7mdb3azn3i55595gilg1vyn8"))))
(build-system dune-build-system)
(propagated-inputs
`(("ocaml-migrate-parsetree" ,ocaml-migrate-parsetree)

1
gnu/packages/openstack.scm
View file

@ -33,6 +33,7 @@
#:use-module (gnu packages time)
#:use-module (gnu packages tls)
#:use-module (gnu packages version-control)
#:use-module (gnu packages xml)
#:use-module (guix build-system python)
#:use-module (guix download)
#:use-module ((guix licenses)

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

@ -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 "f38eabe952608478230895e380ef441d65ea625e")
(revision 11))
(commit "50299ade040e934fa5533768aacb081eb340af3f")
(revision 13))
(package
(name "guix")
@ -127,7 +127,7 @@
(commit commit)))
(sha256
(base32
"1wnm1wqa38dpd5bk6avyfm0rgx72vlx36a06scyg8d57kl47mzjf"))
"0rbnyy0vqmsl7z350cdazm5xzx74cdia3nxp0msk8xalyb76hff4"))
(file-name (string-append "guix-" version "-checkout"))))
(build-system gnu-build-system)
(arguments
@ -397,6 +397,21 @@ the Nix package manager.")
(define-public guile2.0-guix
(deprecated-package "guile2.0-guix" guix))
(define-public guile3.0-guix
(package
(inherit guix)
(name "guile3.0-guix")
(inputs
`(("guile" ,guile-3.0)
,@(alist-delete "guile" (package-inputs guix))))
(propagated-inputs
`(("gnutls" ,guile3.0-gnutls)
("guile-gcrypt" ,guile3.0-gcrypt)
("guile-json" ,guile3.0-json)
("guile-sqlite3" ,guile3.0-sqlite3)
("guile-ssh" ,guile3.0-ssh)
("guile-git" ,guile3.0-git)))))
(define-public guix-minimal
;; A version of Guix which is built with the minimal set of dependencies, as
;; outlined in the README "Requirements" section. Intended as a CI job, so

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

@ -114,7 +114,7 @@ human.")
(define-public keepassxc
(package
(name "keepassxc")
(version "2.5.1")
(version "2.5.2")
(source
(origin
(method url-fetch)
@ -122,8 +122,7 @@ human.")
"/releases/download/" version "/keepassxc-"
version "-src.tar.xz"))
(sha256
(base32
"0c5g5hn2cr2m00xgpxg884ihy8gnn09kc487y1m9jywshn5jaczg"))))
(base32 "0lvwc3nxyz7d7vymb6cmgwxylb9g6gsjnq247vbh4lk1ifjir58j"))))
(build-system cmake-build-system)
(arguments
'(#:configure-flags '("-DWITH_XC_ALL=YES"

21
gnu/packages/patches/gzdoom-find-system-libgme.patch Normal file
View file

@ -0,0 +1,21 @@
--- /CMakeLists.txt 2020-01-20 21:47:35.460119141 +0100
+++ /CMakeLists.txt 2020-01-20 21:47:47.690112400 +0100
@@ -195,12 +195,12 @@
#endif()
# GME
-#find_path( GME_INCLUDE_DIR gme/gme.h )
-#find_library( GME_LIBRARIES gme )
-#mark_as_advanced( GME_INCLUDE_DIR GME_LIBRARIES )
-#FIND_PACKAGE_HANDLE_STANDARD_ARGS( GME
-# REQUIRED_VARS GME_LIBRARIES GME_INCLUDE_DIR
-#)
+find_path( GME_INCLUDE_DIR gme/gme.h )
+find_library( GME_LIBRARIES gme )
+mark_as_advanced( GME_INCLUDE_DIR GME_LIBRARIES )
+FIND_PACKAGE_HANDLE_STANDARD_ARGS( GME
+ REQUIRED_VARS GME_LIBRARIES GME_INCLUDE_DIR
+)
if( MSVC )
# Eliminate unreferenced functions and data

65
gnu/packages/patches/python-packaging-test-arch.patch Normal file
View file

@ -0,0 +1,65 @@
Fix tests that are "hard coded" to expect x86_64 output by mocking the platform interface.
Submitted upstream:
https://github.com/pypa/packaging/pull/176
diff --git a/tests/test_tags.py b/tests/test_tags.py
index 1eacf68..0a3f1b4 100644
--- a/tests/test_tags.py
+++ b/tests/test_tags.py
@@ -435,37 +435,43 @@ class TestManylinuxPlatform:
linux_platform = list(tags._linux_platforms(is_32bit=False))
assert linux_platform == ["linux_x86_64"]
- def test_linux_platforms_manylinux1(self, monkeypatch):
+ def test_linux_platforms_manylinux1(self, is_x86, monkeypatch):
monkeypatch.setattr(
tags, "_is_manylinux_compatible", lambda name, _: name == "manylinux1"
)
- if platform.system() != "Linux":
+ if platform.system() != "Linux" or not is_x86:
monkeypatch.setattr(distutils.util, "get_platform", lambda: "linux_x86_64")
+ monkeypatch.setattr(platform, "machine", lambda: "x86_64")
platforms = list(tags._linux_platforms(is_32bit=False))
- assert platforms == ["manylinux1_x86_64", "linux_x86_64"]
+ arch = platform.machine()
+ assert platforms == ["manylinux1_" + arch, "linux_" + arch]
- def test_linux_platforms_manylinux2010(self, monkeypatch):
+ def test_linux_platforms_manylinux2010(self, is_x86, monkeypatch):
monkeypatch.setattr(
tags, "_is_manylinux_compatible", lambda name, _: name == "manylinux2010"
)
- if platform.system() != "Linux":
+ if platform.system() != "Linux" or not is_x86:
monkeypatch.setattr(distutils.util, "get_platform", lambda: "linux_x86_64")
+ monkeypatch.setattr(platform, "machine", lambda: "x86_64")
platforms = list(tags._linux_platforms(is_32bit=False))
- expected = ["manylinux2010_x86_64", "manylinux1_x86_64", "linux_x86_64"]
+ arch = platform.machine()
+ expected = ["manylinux2010_" + arch, "manylinux1_" + arch, "linux_" + arch]
assert platforms == expected
- def test_linux_platforms_manylinux2014(self, monkeypatch):
+ def test_linux_platforms_manylinux2014(self, is_x86, monkeypatch):
monkeypatch.setattr(
tags, "_is_manylinux_compatible", lambda name, _: name == "manylinux2014"
)
- if platform.system() != "Linux":
+ if platform.system() != "Linux" or not is_x86:
monkeypatch.setattr(distutils.util, "get_platform", lambda: "linux_x86_64")
+ monkeypatch.setattr(platform, "machine", lambda: "x86_64")
platforms = list(tags._linux_platforms(is_32bit=False))
+ arch = platform.machine()
expected = [
- "manylinux2014_x86_64",
- "manylinux2010_x86_64",
- "manylinux1_x86_64",
- "linux_x86_64",
+ "manylinux2014_" + arch,
+ "manylinux2010_" + arch,
+ "manylinux1_" + arch,
+ "linux_" + arch,
]
assert platforms == expected

18
gnu/packages/patches/python2-parameterized-docstring-test.patch Normal file
View file

@ -0,0 +1,18 @@
Skip unicode docstring test, required when running on Python 2.
See <https://github.com/wolever/parameterized/issues/44>.
--- a/parameterized/test.py
+++ b/parameterized/test.py
@@ -284,11 +284,6 @@
" More" %(foo, )
)
- @parameterized.expand([param("foo")])
- def test_unicode_docstring(self, foo):
- u"""Döcumentation."""
- self._assert_docstring(u"Döcumentation [with foo=%r]." %(foo, ))
-
@parameterized.expand([param("foo", )])
def test_default_values_get_correct_value(self, foo, bar=12):
"""Documentation"""

52
gnu/packages/patches/red-eclipse-remove-gamma-name-hack.patch
View file

@ -1,52 +0,0 @@
From b16b4963c1ad81bb9ef784bc4913a4c8ab5f1bb4 Mon Sep 17 00:00:00 2001
From: Lee Salzman <lsalzman@gmail.com>
Date: Tue, 12 Sep 2017 14:45:10 -0400
Subject: [PATCH] remove gamma name hack
---
src/engine/main.cpp | 6 +++---
src/shared/cube.h | 8 --------
2 files changed, 3 insertions(+), 11 deletions(-)
diff --git a/src/engine/main.cpp b/src/engine/main.cpp
index 1032004d..77c9233a 100644
--- a/src/engine/main.cpp
+++ b/src/engine/main.cpp
@@ -278,10 +278,10 @@ static void setgamma(int val)
}
static int curgamma = 100;
-VARF(IDF_PERSIST, gamma, 30, 100, 300,
+VARFN(IDF_PERSIST, gamma, reqgamma, 30, 100, 300,
{
- if(initing || gamma == curgamma) return;
- curgamma = gamma;
+ if(initing || reqgamma == curgamma) return;
+ curgamma = reqgamma;
setgamma(curgamma);
});
diff --git a/src/shared/cube.h b/src/shared/cube.h
index 3864c492..7ff5e267 100644
--- a/src/shared/cube.h
+++ b/src/shared/cube.h
@@ -3,19 +3,11 @@
#define _FILE_OFFSET_BITS 64
-#ifdef __GNUC__
-#define gamma __gamma
-#endif
-
#ifdef WIN32
#define _USE_MATH_DEFINES
#endif
#include <math.h>
-#ifdef __GNUC__
-#undef gamma
-#endif
-
#include <string.h>
#include <stdio.h>
#include <stdlib.h>

19
gnu/packages/patches/spice-fix-test-armhf.patch Normal file
View file

@ -0,0 +1,19 @@
Fix test failure on armhf and ppc64el:
https://gitlab.freedesktop.org/spice/spice-server/issues/31
Taken from upstream:
https://gitlab.freedesktop.org/spice/spice/commit/19f9f454e0777d851f26d14df0c7984267c57015
diff --git a/server/tests/test-qxl-parsing.c b/server/tests/test-qxl-parsing.c
index 60ca8f88c62441e02577ced21e4f60a08ad4171a..234bdabc9ce619d0799b5136f1d72357b0b2f490 100644
--- a/server/tests/test-qxl-parsing.c
+++ b/server/tests/test-qxl-parsing.c
@@ -96,7 +96,7 @@ static void test_memslot_invalid_slot_id(void)
RedMemSlotInfo mem_info;
init_meminfo(&mem_info);
- memslot_get_virt(&mem_info, 1 << mem_info.memslot_id_shift, 16, 0);
+ memslot_get_virt(&mem_info, UINT64_C(1) << mem_info.memslot_id_shift, 16, 0);
}
static void test_memslot_invalid_addresses(void)

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