me/guix
Archived
1
0
Fork 0
Code Activity

Merge remote-tracking branch 'origin/master' into core-updates

Browse source
This commit is contained in:
Efraim Flashner 2017-12-31 14:10:25 +02:00
commit 23de2e1d5f
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
99 changed files with 3657 additions and 1419 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

146
doc/guix.texi
View file

@ -26,7 +26,7 @@ Copyright @copyright{} 2016 Ben Woodcroft@*
Copyright @copyright{} 2016, 2017 Chris Marusich@* Copyright @copyright{} 2016, 2017 Chris Marusich@*
Copyright @copyright{} 2016, 2017 Efraim Flashner@* Copyright @copyright{} 2016, 2017 Efraim Flashner@*
Copyright @copyright{} 2016 John Darrington@* Copyright @copyright{} 2016 John Darrington@*
Copyright @copyright{} 2016 ng0@* Copyright @copyright{} 2016, 2017 ng0@*
Copyright @copyright{} 2016, 2017 Jan Nieuwenhuizen@* Copyright @copyright{} 2016, 2017 Jan Nieuwenhuizen@*
Copyright @copyright{} 2016 Julien Lepiller@* Copyright @copyright{} 2016 Julien Lepiller@*
Copyright @copyright{} 2016 Alex ter Weele@* Copyright @copyright{} 2016 Alex ter Weele@*
@ -1335,7 +1335,7 @@ using Unix-domain sockets along with SSH.
When @code{--listen} is omitted, @command{guix-daemon} listens for When @code{--listen} is omitted, @command{guix-daemon} listens for
connections on the Unix-domain socket located at connections on the Unix-domain socket located at
@file{@var{localstatedir}/daemon-socket/socket}. @file{@var{localstatedir}/guix/daemon-socket/socket}.
@end table @end table
@ -1509,7 +1509,7 @@ either in @file{$HOME/.guix-profile/share/emacs/site-lisp/} or in
sub-directories of sub-directories of
@file{$HOME/.guix-profile/share/emacs/site-lisp/guix.d/}. The latter @file{$HOME/.guix-profile/share/emacs/site-lisp/guix.d/}. The latter
directory exists because potentially there may exist thousands of Emacs directory exists because potentially there may exist thousands of Emacs
packages and storing all their files in a single directory may be not packages and storing all their files in a single directory may not be
reliable (because of name conflicts). So we think using a separate reliable (because of name conflicts). So we think using a separate
directory for each package is a good idea. It is very similar to how directory for each package is a good idea. It is very similar to how
the Emacs package system organizes the file structure (@pxref{Package the Emacs package system organizes the file structure (@pxref{Package
@ -1711,7 +1711,7 @@ source "$HOME/.guix-profile/etc/profile"
In a multi-user setup, user profiles are stored in a place registered as In a multi-user setup, user profiles are stored in a place registered as
a @dfn{garbage-collector root}, which @file{$HOME/.guix-profile} points a @dfn{garbage-collector root}, which @file{$HOME/.guix-profile} points
to (@pxref{Invoking guix gc}). That directory is normally to (@pxref{Invoking guix gc}). That directory is normally
@code{@var{localstatedir}/profiles/per-user/@var{user}}, where @code{@var{localstatedir}/guix/profiles/per-user/@var{user}}, where
@var{localstatedir} is the value passed to @code{configure} as @var{localstatedir} is the value passed to @code{configure} as
@code{--localstatedir}, and @var{user} is the user name. The @code{--localstatedir}, and @var{user} is the user name. The
@file{per-user} directory is created when @command{guix-daemon} is @file{per-user} directory is created when @command{guix-daemon} is
@ -4210,6 +4210,14 @@ paths}. Derivations paths can be passed to the @code{build-derivations}
procedure to perform the build actions they prescribe (@pxref{The procedure to perform the build actions they prescribe (@pxref{The
Store}). Store}).
@cindex fixed-output derivations
Operations such as file downloads and version-control checkouts for
which the expected content hash is known in advance are modeled as
@dfn{fixed-output derivations}. Unlike regular derivations, the outputs
of a fixed-output derivation are independent of its inputs---e.g., a
source code download produces the same result regardless of the download
method and tools being used.
The @code{(guix derivations)} module provides a representation of The @code{(guix derivations)} module provides a representation of
derivations as Scheme objects, along with procedures to create and derivations as Scheme objects, along with procedures to create and
otherwise manipulate derivations. The lowest-level primitive to create otherwise manipulate derivations. The lowest-level primitive to create
@ -5422,14 +5430,20 @@ without having to type in the definitions of package variants
@table @code @table @code
@item --with-source=@var{source} @item --with-source=@var{source}
Use @var{source} as the source of the corresponding package. @itemx --with-source=@var{package}=@var{source}
@itemx --with-source=@var{package}@@@var{version}=@var{source}
Use @var{source} as the source of @var{package}, and @var{version} as
its version number.
@var{source} must be a file name or a URL, as for @command{guix @var{source} must be a file name or a URL, as for @command{guix
download} (@pxref{Invoking guix download}). download} (@pxref{Invoking guix download}).
The ``corresponding package'' is taken to be the one specified on the When @var{package} is omitted,
command line the name of which matches the base of @var{source}---e.g., it is taken to be the package name specified on the
command line that matches the base of @var{source}---e.g.,
if @var{source} is @code{/src/guile-2.0.10.tar.gz}, the corresponding if @var{source} is @code{/src/guile-2.0.10.tar.gz}, the corresponding
package is @code{guile}. Likewise, the version string is inferred from package is @code{guile}.
Likewise, when @var{version} is omitted, the version string is inferred from
@var{source}; in the previous example, it is @code{2.0.10}. @var{source}; in the previous example, it is @code{2.0.10}.
This option allows users to try out versions of packages other than the This option allows users to try out versions of packages other than the
@ -5452,7 +5466,7 @@ guix build guile --with-source=../guile-2.0.9.219-e1bb7.tar.xz
@example @example
$ git clone git://git.sv.gnu.org/guix.git $ git clone git://git.sv.gnu.org/guix.git
$ guix build guix --with-source=./guix $ guix build guix --with-source=guix@@1.0=./guix
@end example @end example
@item --with-input=@var{package}=@var{replacement} @item --with-input=@var{package}=@var{replacement}
@ -6018,7 +6032,7 @@ guix import cpan Acme::Boolean
@item cran @item cran
@cindex CRAN @cindex CRAN
@cindex Bioconductor @cindex Bioconductor
Import metadata from @uref{http://cran.r-project.org/, CRAN}, the Import metadata from @uref{https://cran.r-project.org/, CRAN}, the
central repository for the @uref{http://r-project.org, GNU@tie{}R central repository for the @uref{http://r-project.org, GNU@tie{}R
statistical and graphical environment}. statistical and graphical environment}.
@ -6389,7 +6403,7 @@ the updater for packages hosted on kernel.org;
@item elpa @item elpa
the updater for @uref{http://elpa.gnu.org/, ELPA} packages; the updater for @uref{http://elpa.gnu.org/, ELPA} packages;
@item cran @item cran
the updater for @uref{http://cran.r-project.org/, CRAN} packages; the updater for @uref{https://cran.r-project.org/, CRAN} packages;
@item bioconductor @item bioconductor
the updater for @uref{https://www.bioconductor.org/, Bioconductor} R packages; the updater for @uref{https://www.bioconductor.org/, Bioconductor} R packages;
@item cpan @item cpan
@ -10023,12 +10037,12 @@ well as in the @var{groups} field of the @var{operating-system} record.
@end example @end example
@end deffn @end deffn
@deffn {Scheme Procedure} urandom-seed-service @defvr {Scheme Variable} urandom-seed-service-type
Save some entropy in @var{%random-seed-file} to seed @file{/dev/urandom} Save some entropy in @var{%random-seed-file} to seed @file{/dev/urandom}
when rebooting. It also tries to seed @file{/dev/urandom} from when rebooting. It also tries to seed @file{/dev/urandom} from
@file{/dev/hwrng} while booting, if @file{/dev/hwrng} exists and is @file{/dev/hwrng} while booting, if @file{/dev/hwrng} exists and is
readable. readable.
@end deffn @end defvr
@defvr {Scheme Variable} %random-seed-file @defvr {Scheme Variable} %random-seed-file
This is the name of the file where some random bytes are saved by This is the name of the file where some random bytes are saved by
@ -10378,9 +10392,12 @@ This is the type for statically-configured network interfaces.
@deffn {Scheme Procedure} static-networking-service @var{interface} @var{ip} @ @deffn {Scheme Procedure} static-networking-service @var{interface} @var{ip} @
[#:netmask #f] [#:gateway #f] [#:name-servers @code{'()}] [#:netmask #f] [#:gateway #f] [#:name-servers @code{'()}]
[#:requirement @code{'(udev)}]
Return a service that starts @var{interface} with address @var{ip}. If Return a service that starts @var{interface} with address @var{ip}. If
@var{netmask} is true, use it as the network mask. If @var{gateway} is true, @var{netmask} is true, use it as the network mask. If @var{gateway} is true,
it must be a string specifying the default network gateway. it must be a string specifying the default network gateway. @var{requirement}
can be used to declare a dependency on another service before configuring the
interface.
This procedure can be called several times, one for each network This procedure can be called several times, one for each network
interface of interest. Behind the scenes what it does is extend interface of interest. Behind the scenes what it does is extend
@ -12089,7 +12106,7 @@ The @code{(gnu services desktop)} module provides services that are
usually useful in the context of a ``desktop'' setup---that is, on a usually useful in the context of a ``desktop'' setup---that is, on a
machine running a graphical display server, possibly with graphical user machine running a graphical display server, possibly with graphical user
interfaces, etc. It also defines services that provide specific desktop interfaces, etc. It also defines services that provide specific desktop
environments like GNOME and XFCE. environments like GNOME, XFCE or MATE.
To simplify things, the module defines a variable containing the set of To simplify things, the module defines a variable containing the set of
services that users typically expect on a machine with a graphical services that users typically expect on a machine with a graphical
@ -12114,9 +12131,10 @@ The @var{%desktop-services} variable can be used as the @code{services}
field of an @code{operating-system} declaration (@pxref{operating-system field of an @code{operating-system} declaration (@pxref{operating-system
Reference, @code{services}}). Reference, @code{services}}).
Additionally, the @code{gnome-desktop-service} and Additionally, the @code{gnome-desktop-service},
@code{xfce-desktop-service} procedures can add GNOME and/or XFCE to a @code{xfce-desktop-service} and @code{mate-desktop-service}
system. To ``add GNOME'' means that system-level services like the procedures can add GNOME, XFCE and/or MATE to a system.
To ``add GNOME'' means that system-level services like the
backlight adjustment helpers and the power management utilities are backlight adjustment helpers and the power management utilities are
added to the system, extending @code{polkit} and @code{dbus} added to the system, extending @code{polkit} and @code{dbus}
appropriately, allowing GNOME to operate with elevated privileges on a appropriately, allowing GNOME to operate with elevated privileges on a
@ -12127,6 +12145,11 @@ not only adds the @code{xfce} metapackage to the system profile, but it
also gives the Thunar file manager the ability to open a ``root-mode'' also gives the Thunar file manager the ability to open a ``root-mode''
file management window, if the user authenticates using the file management window, if the user authenticates using the
administrator's password via the standard polkit graphical interface. administrator's password via the standard polkit graphical interface.
To ``add MATE'' means that @code{polkit} and @code{dbus} are extended
appropriately, allowing MATE to operate with elevated privileges on a
limited number of special-purpose system interfaces. Additionally,
adding a service made by @code{mate-desktop-service} adds the MATE
metapackage to the system profile.
@deffn {Scheme Procedure} gnome-desktop-service @deffn {Scheme Procedure} gnome-desktop-service
Return a service that adds the @code{gnome} package to the system Return a service that adds the @code{gnome} package to the system
@ -12141,9 +12164,15 @@ file system as root from within a user session, after the user has
authenticated with the administrator's password. authenticated with the administrator's password.
@end deffn @end deffn
Because the GNOME and XFCE desktop services pull in so many packages, @deffn {Scheme Procedure} mate-desktop-service
Return a service that adds the @code{mate} package to the system
profile, and extends polkit with the actions from
@code{mate-settings-daemon}.
@end deffn
Because the GNOME, XFCE and MATE desktop services pull in so many packages,
the default @code{%desktop-services} variable doesn't include either of the default @code{%desktop-services} variable doesn't include either of
them by default. To add GNOME or XFCE, just @code{cons} them onto them by default. To add GNOME, XFCE or MATE, just @code{cons} them onto
@code{%desktop-services} in the @code{services} field of your @code{%desktop-services} in the @code{services} field of your
@code{operating-system}: @code{operating-system}:
@ -13058,13 +13087,6 @@ has any connections.
Defaults to @samp{"15 min"}. Defaults to @samp{"15 min"}.
@end deftypevr @end deftypevr
@deftypevr {@code{dovecot-configuration} parameter} non-negative-integer director-doveadm-port
TCP/IP port that accepts doveadm connections (instead of director
connections) If you enable this, you'll also need to add
@samp{inet-listener} for the port.
Defaults to @samp{0}.
@end deftypevr
@deftypevr {@code{dovecot-configuration} parameter} string director-username-hash @deftypevr {@code{dovecot-configuration} parameter} string director-username-hash
How the username is translated before being hashed. Useful values How the username is translated before being hashed. Useful values
include %Ln if user can log in with or without @@domain, %Ld if mailboxes include %Ln if user can log in with or without @@domain, %Ld if mailboxes
@ -13157,7 +13179,7 @@ Defaults to @samp{"%$: %s"}.
@deftypevr {@code{dovecot-configuration} parameter} string mail-log-prefix @deftypevr {@code{dovecot-configuration} parameter} string mail-log-prefix
Log prefix for mail processes. See doc/wiki/Variables.txt for list Log prefix for mail processes. See doc/wiki/Variables.txt for list
of possible variables you can use. of possible variables you can use.
Defaults to @samp{"\"%s(%u): \""}. Defaults to @samp{"\"%s(%u)<%@{pid@}><%@{session@}>: \""}.
@end deftypevr @end deftypevr
@deftypevr {@code{dovecot-configuration} parameter} string deliver-log-format @deftypevr {@code{dovecot-configuration} parameter} string deliver-log-format
@ -13502,7 +13524,7 @@ Defaults to @samp{0}.
@deftypevr {@code{dovecot-configuration} parameter} non-negative-integer mdbox-rotate-size @deftypevr {@code{dovecot-configuration} parameter} non-negative-integer mdbox-rotate-size
Maximum dbox file size until it's rotated. Maximum dbox file size until it's rotated.
Defaults to @samp{2000000}. Defaults to @samp{10000000}.
@end deftypevr @end deftypevr
@deftypevr {@code{dovecot-configuration} parameter} string mdbox-rotate-interval @deftypevr {@code{dovecot-configuration} parameter} string mdbox-rotate-interval
@ -13640,21 +13662,14 @@ x500UniqueIdentifier are the usual choices. You'll also need to set
Defaults to @samp{"commonName"}. Defaults to @samp{"commonName"}.
@end deftypevr @end deftypevr
@deftypevr {@code{dovecot-configuration} parameter} hours ssl-parameters-regenerate @deftypevr {@code{dovecot-configuration} parameter} string ssl-min-protocol
How often to regenerate the SSL parameters file. Generation is Minimum SSL protocol version to accept.
quite CPU intensive operation. The value is in hours, 0 disables Defaults to @samp{"TLSv1"}.
regeneration entirely.
Defaults to @samp{168}.
@end deftypevr
@deftypevr {@code{dovecot-configuration} parameter} string ssl-protocols
SSL protocols to use.
Defaults to @samp{"!SSLv2"}.
@end deftypevr @end deftypevr
@deftypevr {@code{dovecot-configuration} parameter} string ssl-cipher-list @deftypevr {@code{dovecot-configuration} parameter} string ssl-cipher-list
SSL ciphers to use. SSL ciphers to use.
Defaults to @samp{"ALL:!LOW:!SSLv2:!EXP:!aNULL"}. Defaults to @samp{"ALL:!kRSA:!SRP:!kDHd:!DSS:!aNULL:!eNULL:!EXPORT:!DES:!3DES:!MD5:!PSK:!RC4:!ADH:!LOW@@STRENGTH"}.
@end deftypevr @end deftypevr
@deftypevr {@code{dovecot-configuration} parameter} string ssl-crypto-device @deftypevr {@code{dovecot-configuration} parameter} string ssl-crypto-device
@ -13756,7 +13771,8 @@ total number of bytes read from client
@item %o @item %o
total number of bytes sent to client. total number of bytes sent to client.
@end table @end table
Defaults to @samp{"in=%i out=%o"}. See @file{doc/wiki/Variables.txt} for a list of all the variables you can use.
Defaults to @samp{"in=%i out=%o deleted=%@{deleted@} expunged=%@{expunged@} trashed=%@{trashed@} hdr_count=%@{fetch_hdr_count@} hdr_bytes=%@{fetch_hdr_bytes@} body_count=%@{fetch_body_count@} body_bytes=%@{fetch_body_bytes@}"}.
@end deftypevr @end deftypevr
@deftypevr {@code{dovecot-configuration} parameter} string imap-capability @deftypevr {@code{dovecot-configuration} parameter} string imap-capability
@ -13955,7 +13971,7 @@ definitions for messaging services: currently only Prosody is supported.
@subsubheading Prosody Service @subsubheading Prosody Service
@deffn {Scheme Variable} prosody-service-type @deffn {Scheme Variable} prosody-service-type
This is the type for the @uref{http://prosody.im, Prosody XMPP This is the type for the @uref{https://prosody.im, Prosody XMPP
communication server}. Its value must be a @code{prosody-configuration} communication server}. Its value must be a @code{prosody-configuration}
record as in this example: record as in this example:
@ -14020,13 +14036,13 @@ The Prosody package.
@deftypevr {@code{prosody-configuration} parameter} file-name data-path @deftypevr {@code{prosody-configuration} parameter} file-name data-path
Location of the Prosody data storage directory. See Location of the Prosody data storage directory. See
@url{http://prosody.im/doc/configure}. @url{https://prosody.im/doc/configure}.
Defaults to @samp{"/var/lib/prosody"}. Defaults to @samp{"/var/lib/prosody"}.
@end deftypevr @end deftypevr
@deftypevr {@code{prosody-configuration} parameter} file-name-list plugin-paths @deftypevr {@code{prosody-configuration} parameter} file-name-list plugin-paths
Additional plugin directories. They are searched in all the specified Additional plugin directories. They are searched in all the specified
paths in order. See @url{http://prosody.im/doc/plugins_directory}. paths in order. See @url{https://prosody.im/doc/plugins_directory}.
Defaults to @samp{()}. Defaults to @samp{()}.
@end deftypevr @end deftypevr
@ -14039,15 +14055,15 @@ Defaults to @samp{"/etc/prosody/certs"}.
@deftypevr {@code{prosody-configuration} parameter} string-list admins @deftypevr {@code{prosody-configuration} parameter} string-list admins
This is a list of accounts that are admins for the server. Note that you This is a list of accounts that are admins for the server. Note that you
must create the accounts separately. See @url{http://prosody.im/doc/admins} and must create the accounts separately. See @url{https://prosody.im/doc/admins} and
@url{http://prosody.im/doc/creating_accounts}. @url{https://prosody.im/doc/creating_accounts}.
Example: @code{(admins '("user1@@example.com" "user2@@example.net"))} Example: @code{(admins '("user1@@example.com" "user2@@example.net"))}
Defaults to @samp{()}. Defaults to @samp{()}.
@end deftypevr @end deftypevr
@deftypevr {@code{prosody-configuration} parameter} boolean use-libevent? @deftypevr {@code{prosody-configuration} parameter} boolean use-libevent?
Enable use of libevent for better performance under high load. See Enable use of libevent for better performance under high load. See
@url{http://prosody.im/doc/libevent}. @url{https://prosody.im/doc/libevent}.
Defaults to @samp{#f}. Defaults to @samp{#f}.
@end deftypevr @end deftypevr
@ -14055,7 +14071,7 @@ Defaults to @samp{#f}.
This is the list of modules Prosody will load on startup. It looks for This is the list of modules Prosody will load on startup. It looks for
@code{mod_modulename.lua} in the plugins folder, so make sure that exists too. @code{mod_modulename.lua} in the plugins folder, so make sure that exists too.
Documentation on modules can be found at: Documentation on modules can be found at:
@url{http://prosody.im/doc/modules}. @url{https://prosody.im/doc/modules}.
Defaults to @samp{("roster" "saslauth" "tls" "dialback" "disco" "carbons" "private" "blocklist" "vcard" "version" "uptime" "time" "ping" "pep" "register" "admin_adhoc")}. Defaults to @samp{("roster" "saslauth" "tls" "dialback" "disco" "carbons" "private" "blocklist" "vcard" "version" "uptime" "time" "ping" "pep" "register" "admin_adhoc")}.
@end deftypevr @end deftypevr
@ -14068,13 +14084,13 @@ Defaults to @samp{()}.
@deftypevr {@code{prosody-configuration} parameter} file-name groups-file @deftypevr {@code{prosody-configuration} parameter} file-name groups-file
Path to a text file where the shared groups are defined. If this path is Path to a text file where the shared groups are defined. If this path is
empty then @samp{mod_groups} does nothing. See empty then @samp{mod_groups} does nothing. See
@url{http://prosody.im/doc/modules/mod_groups}. @url{https://prosody.im/doc/modules/mod_groups}.
Defaults to @samp{"/var/lib/prosody/sharedgroups.txt"}. Defaults to @samp{"/var/lib/prosody/sharedgroups.txt"}.
@end deftypevr @end deftypevr
@deftypevr {@code{prosody-configuration} parameter} boolean allow-registration? @deftypevr {@code{prosody-configuration} parameter} boolean allow-registration?
Disable account creation by default, for security. See Disable account creation by default, for security. See
@url{http://prosody.im/doc/creating_accounts}. @url{https://prosody.im/doc/creating_accounts}.
Defaults to @samp{#f}. Defaults to @samp{#f}.
@end deftypevr @end deftypevr
@ -14082,7 +14098,7 @@ Defaults to @samp{#f}.
These are the SSL/TLS-related settings. Most of them are disabled so to These are the SSL/TLS-related settings. Most of them are disabled so to
use Prosody's defaults. If you do not completely understand these options, do use Prosody's defaults. If you do not completely understand these options, do
not add them to your config, it is easy to lower the security of your server not add them to your config, it is easy to lower the security of your server
using them. See @url{http://prosody.im/doc/advanced_ssl_config}. using them. See @url{https://prosody.im/doc/advanced_ssl_config}.
Available @code{ssl-configuration} fields are: Available @code{ssl-configuration} fields are:
@ -14153,7 +14169,7 @@ Password for encrypted private keys.
@deftypevr {@code{prosody-configuration} parameter} boolean c2s-require-encryption? @deftypevr {@code{prosody-configuration} parameter} boolean c2s-require-encryption?
Whether to force all client-to-server connections to be encrypted or not. Whether to force all client-to-server connections to be encrypted or not.
See @url{http://prosody.im/doc/modules/mod_tls}. See @url{https://prosody.im/doc/modules/mod_tls}.
Defaults to @samp{#f}. Defaults to @samp{#f}.
@end deftypevr @end deftypevr
@ -14165,7 +14181,7 @@ Defaults to @samp{("DIGEST-MD5")}.
@deftypevr {@code{prosody-configuration} parameter} boolean s2s-require-encryption? @deftypevr {@code{prosody-configuration} parameter} boolean s2s-require-encryption?
Whether to force all server-to-server connections to be encrypted or not. Whether to force all server-to-server connections to be encrypted or not.
See @url{http://prosody.im/doc/modules/mod_tls}. See @url{https://prosody.im/doc/modules/mod_tls}.
Defaults to @samp{#f}. Defaults to @samp{#f}.
@end deftypevr @end deftypevr
@ -14173,7 +14189,7 @@ Defaults to @samp{#f}.
Whether to require encryption and certificate authentication. This Whether to require encryption and certificate authentication. This
provides ideal security, but requires servers you communicate with to support provides ideal security, but requires servers you communicate with to support
encryption AND present valid, trusted certificates. See encryption AND present valid, trusted certificates. See
@url{http://prosody.im/doc/s2s#security}. @url{https://prosody.im/doc/s2s#security}.
Defaults to @samp{#f}. Defaults to @samp{#f}.
@end deftypevr @end deftypevr
@ -14181,14 +14197,14 @@ Defaults to @samp{#f}.
Many servers don't support encryption or have invalid or self-signed Many servers don't support encryption or have invalid or self-signed
certificates. You can list domains here that will not be required to certificates. You can list domains here that will not be required to
authenticate using certificates. They will be authenticated using DNS. See authenticate using certificates. They will be authenticated using DNS. See
@url{http://prosody.im/doc/s2s#security}. @url{https://prosody.im/doc/s2s#security}.
Defaults to @samp{()}. Defaults to @samp{()}.
@end deftypevr @end deftypevr
@deftypevr {@code{prosody-configuration} parameter} string-list s2s-secure-domains @deftypevr {@code{prosody-configuration} parameter} string-list s2s-secure-domains
Even if you leave @code{s2s-secure-auth?} disabled, you can still require Even if you leave @code{s2s-secure-auth?} disabled, you can still require
valid certificates for some domains by specifying a list here. See valid certificates for some domains by specifying a list here. See
@url{http://prosody.im/doc/s2s#security}. @url{https://prosody.im/doc/s2s#security}.
Defaults to @samp{()}. Defaults to @samp{()}.
@end deftypevr @end deftypevr
@ -14196,20 +14212,20 @@ Defaults to @samp{()}.
Select the authentication backend to use. The default provider stores Select the authentication backend to use. The default provider stores
passwords in plaintext and uses Prosody's configured data storage to store the passwords in plaintext and uses Prosody's configured data storage to store the
authentication data. If you do not trust your server please see authentication data. If you do not trust your server please see
@url{http://prosody.im/doc/modules/mod_auth_internal_hashed} for information @url{https://prosody.im/doc/modules/mod_auth_internal_hashed} for information
about using the hashed backend. See also about using the hashed backend. See also
@url{http://prosody.im/doc/authentication} @url{https://prosody.im/doc/authentication}
Defaults to @samp{"internal_plain"}. Defaults to @samp{"internal_plain"}.
@end deftypevr @end deftypevr
@deftypevr {@code{prosody-configuration} parameter} maybe-string log @deftypevr {@code{prosody-configuration} parameter} maybe-string log
Set logging options. Advanced logging configuration is not yet supported Set logging options. Advanced logging configuration is not yet supported
by the GuixSD Prosody Service. See @url{http://prosody.im/doc/logging}. by the GuixSD Prosody Service. See @url{https://prosody.im/doc/logging}.
Defaults to @samp{"*syslog"}. Defaults to @samp{"*syslog"}.
@end deftypevr @end deftypevr
@deftypevr {@code{prosody-configuration} parameter} file-name pidfile @deftypevr {@code{prosody-configuration} parameter} file-name pidfile
File to write pid in. See @url{http://prosody.im/doc/modules/mod_posix}. File to write pid in. See @url{https://prosody.im/doc/modules/mod_posix}.
Defaults to @samp{"/var/run/prosody/prosody.pid"}. Defaults to @samp{"/var/run/prosody/prosody.pid"}.
@end deftypevr @end deftypevr
@ -14236,7 +14252,7 @@ instance can serve many domains, each one defined as a VirtualHost entry in
Prosody's configuration. Conversely a server that hosts a single domain would Prosody's configuration. Conversely a server that hosts a single domain would
have just one VirtualHost entry. have just one VirtualHost entry.
See @url{http://prosody.im/doc/configure#virtual_host_settings}. See @url{https://prosody.im/doc/configure#virtual_host_settings}.
Available @code{virtualhost-configuration} fields are: Available @code{virtualhost-configuration} fields are:
@ -14257,7 +14273,7 @@ Internal components are implemented with Prosody-specific plugins. To add an
internal component, you simply fill the hostname field, and the plugin you wish internal component, you simply fill the hostname field, and the plugin you wish
to use for the component. to use for the component.
See @url{http://prosody.im/doc/components}. See @url{https://prosody.im/doc/components}.
Defaults to @samp{()}. Defaults to @samp{()}.
Available @code{int-component-configuration} fields are: Available @code{int-component-configuration} fields are:
@ -14276,10 +14292,10 @@ Multi-user chat (MUC) is Prosody's module for allowing you to create
hosted chatrooms/conferences for XMPP users. hosted chatrooms/conferences for XMPP users.
General information on setting up and using multi-user chatrooms can be found General information on setting up and using multi-user chatrooms can be found
in the "Chatrooms" documentation (@url{http://prosody.im/doc/chatrooms}), in the "Chatrooms" documentation (@url{https://prosody.im/doc/chatrooms}),
which you should read if you are new to XMPP chatrooms. which you should read if you are new to XMPP chatrooms.
See also @url{http://prosody.im/doc/modules/mod_muc}. See also @url{https://prosody.im/doc/modules/mod_muc}.
Available @code{mod-muc-configuration} fields are: Available @code{mod-muc-configuration} fields are:
@ -14310,7 +14326,7 @@ Defaults to @samp{20}.
@deftypevr {@code{prosody-configuration} parameter} ext-component-configuration-list ext-components @deftypevr {@code{prosody-configuration} parameter} ext-component-configuration-list ext-components
External components use XEP-0114, which most standalone components External components use XEP-0114, which most standalone components
support. To add an external component, you simply fill the hostname field. See support. To add an external component, you simply fill the hostname field. See
@url{http://prosody.im/doc/components}. @url{https://prosody.im/doc/components}.
Defaults to @samp{()}. Defaults to @samp{()}.
Available @code{ext-component-configuration} fields are: Available @code{ext-component-configuration} fields are:

9
gnu/local.mk
View file

@ -252,7 +252,6 @@ GNU_SYSTEM_MODULES = \
%D%/packages/libunistring.scm \ %D%/packages/libunistring.scm \
%D%/packages/libusb.scm \ %D%/packages/libusb.scm \
%D%/packages/libunwind.scm \ %D%/packages/libunwind.scm \
%D%/packages/libupnp.scm \
%D%/packages/lighting.scm \ %D%/packages/lighting.scm \
%D%/packages/linux.scm \ %D%/packages/linux.scm \
%D%/packages/lirc.scm \ %D%/packages/lirc.scm \
@ -558,7 +557,6 @@ dist_patch_DATA = \
%D%/packages/patches/binutils-ld-new-dtags.patch \ %D%/packages/patches/binutils-ld-new-dtags.patch \
%D%/packages/patches/binutils-loongson-workaround.patch \ %D%/packages/patches/binutils-loongson-workaround.patch \
%D%/packages/patches/blast+-fix-makefile.patch \ %D%/packages/patches/blast+-fix-makefile.patch \
%D%/packages/patches/borg-fix-archive-corruption-bug.patch \
%D%/packages/patches/byobu-writable-status.patch \ %D%/packages/patches/byobu-writable-status.patch \
%D%/packages/patches/cairo-CVE-2016-9082.patch \ %D%/packages/patches/cairo-CVE-2016-9082.patch \
%D%/packages/patches/calibre-no-updates-dialog.patch \ %D%/packages/patches/calibre-no-updates-dialog.patch \
@ -570,8 +568,6 @@ dist_patch_DATA = \
%D%/packages/patches/ceph-disable-unittest-throttle.patch \ %D%/packages/patches/ceph-disable-unittest-throttle.patch \
%D%/packages/patches/ceph-skip-collect-sys-info-test.patch \ %D%/packages/patches/ceph-skip-collect-sys-info-test.patch \
%D%/packages/patches/ceph-skip-unittest_blockdev.patch \ %D%/packages/patches/ceph-skip-unittest_blockdev.patch \
%D%/packages/patches/chicken-CVE-2017-6949.patch \
%D%/packages/patches/chicken-CVE-2017-11343.patch \
%D%/packages/patches/chmlib-inttypes.patch \ %D%/packages/patches/chmlib-inttypes.patch \
%D%/packages/patches/clang-libc-search-path.patch \ %D%/packages/patches/clang-libc-search-path.patch \
%D%/packages/patches/clang-3.8-libc-search-path.patch \ %D%/packages/patches/clang-3.8-libc-search-path.patch \
@ -749,6 +745,8 @@ dist_patch_DATA = \
%D%/packages/patches/icecat-avoid-bundled-libraries.patch \ %D%/packages/patches/icecat-avoid-bundled-libraries.patch \
%D%/packages/patches/icecat-bug-1348660-pt5.patch \ %D%/packages/patches/icecat-bug-1348660-pt5.patch \
%D%/packages/patches/icecat-bug-1415133.patch \ %D%/packages/patches/icecat-bug-1415133.patch \
%D%/packages/patches/icecat-bug-1414945.patch \
%D%/packages/patches/icecat-bug-1424373-pt2.patch \
%D%/packages/patches/id3lib-CVE-2007-4460.patch \ %D%/packages/patches/id3lib-CVE-2007-4460.patch \
%D%/packages/patches/ilmbase-fix-tests.patch \ %D%/packages/patches/ilmbase-fix-tests.patch \
%D%/packages/patches/intltool-perl-compatibility.patch \ %D%/packages/patches/intltool-perl-compatibility.patch \
@ -801,6 +799,7 @@ dist_patch_DATA = \
%D%/packages/patches/libgit2-0.25.1-mtime-0.patch \ %D%/packages/patches/libgit2-0.25.1-mtime-0.patch \
%D%/packages/patches/libgdata-fix-tests.patch \ %D%/packages/patches/libgdata-fix-tests.patch \
%D%/packages/patches/libgdata-glib-duplicate-tests.patch \ %D%/packages/patches/libgdata-glib-duplicate-tests.patch \
%D%/packages/patches/libgxps-CVE-2017-11590.patch \
%D%/packages/patches/libffi-3.2.1-complex-alpha.patch \ %D%/packages/patches/libffi-3.2.1-complex-alpha.patch \
%D%/packages/patches/libjxr-fix-function-signature.patch \ %D%/packages/patches/libjxr-fix-function-signature.patch \
%D%/packages/patches/libjxr-fix-typos.patch \ %D%/packages/patches/libjxr-fix-typos.patch \
@ -988,6 +987,7 @@ dist_patch_DATA = \
%D%/packages/patches/python-networkx2-reproducible-build.patch \ %D%/packages/patches/python-networkx2-reproducible-build.patch \
%D%/packages/patches/python-nose-timer-drop-ordereddict.patch \ %D%/packages/patches/python-nose-timer-drop-ordereddict.patch \
%D%/packages/patches/python-parse-too-many-fields.patch \ %D%/packages/patches/python-parse-too-many-fields.patch \
%D%/packages/patches/python-pillow-fix-failing-tests.patch \
%D%/packages/patches/python2-rdflib-drop-sparqlwrapper.patch \ %D%/packages/patches/python2-rdflib-drop-sparqlwrapper.patch \
%D%/packages/patches/python-statsmodels-fix-tests.patch \ %D%/packages/patches/python-statsmodels-fix-tests.patch \
%D%/packages/patches/python-scikit-learn-fix-test-non-determinism.patch \ %D%/packages/patches/python-scikit-learn-fix-test-non-determinism.patch \
@ -996,7 +996,6 @@ dist_patch_DATA = \
%D%/packages/patches/python-pandas-skip-failing-tests.patch \ %D%/packages/patches/python-pandas-skip-failing-tests.patch \
%D%/packages/patches/python-paste-remove-website-test.patch \ %D%/packages/patches/python-paste-remove-website-test.patch \
%D%/packages/patches/python-paste-remove-timing-test.patch \ %D%/packages/patches/python-paste-remove-timing-test.patch \
%D%/packages/patches/python-pillow-freetype-2.7-test-failure.patch \
%D%/packages/patches/python-pygit2-disable-network-tests.patch \ %D%/packages/patches/python-pygit2-disable-network-tests.patch \
%D%/packages/patches/python-pycrypto-CVE-2013-7459.patch \ %D%/packages/patches/python-pycrypto-CVE-2013-7459.patch \
%D%/packages/patches/python2-pygobject-2-gi-info-type-error-domain.patch \ %D%/packages/patches/python2-pygobject-2-gi-info-type-error-domain.patch \

36
gnu/packages/admin.scm
View file

@ -1805,14 +1805,14 @@ produce uniform output across heterogeneous networks.")
(define-public cbatticon (define-public cbatticon
(package (package
(name "cbatticon") (name "cbatticon")
(version "1.6.6") (version "1.6.7")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/valr/" (uri (string-append "https://github.com/valr/"
name "/archive/" version ".tar.gz")) name "/archive/" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1rxlrwd817f2zl4fsc5ha43wjzfidq3yyagq4lgyi150qg36svv3")) "1s2n49ydh7pznnf02fak4yy0wqkgi9ag7yiw1zg1lhp4m0h37hyh"))
(file-name (string-append name "-" version ".tar.gz")))) (file-name (string-append name "-" version ".tar.gz"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
@ -2333,3 +2333,35 @@ application, collecting the information received.")
;; 'src/siphash24.c' is the SipHash reference implementation, which ;; 'src/siphash24.c' is the SipHash reference implementation, which
;; bears a CC0 Public Domain Dedication. ;; bears a CC0 Public Domain Dedication.
(license license:agpl3+))) (license license:agpl3+)))
(define-public hungrycat
(package
(name "hungrycat")
(version "0.4.1")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/jwilk/hungrycat/"
"releases/download/" version "/"
name "-" version ".tar.gz"))
(sha256
(base32
"03fc1zsrf99lvxa7b4ps6pbi43304wbxh1f6ci4q0vkal370yfwh"))))
(build-system gnu-build-system)
(native-inputs
;; For tests.
`(("python" ,python-wrapper)
("python-nose" ,python-nose)))
(arguments
`(#:test-target "test"))
(synopsis "A single tool that combines @command{cat} & @command{rm}")
(description
"hungrycat prints the contents of a file to standard output, while
simultaneously freeing the disk space it occupied. It is useful if you need
to process a large file, don't have enough space to store both the input and
output files, and don't need the input file afterwards.
While similar in principle to running @command{cat} immediately followed by
@command{rm}, @command{hungrycat} actually frees blocks as soon as they are
printed instead of after the entire file has been read, which is often too
late.")
(home-page "https://jwilk.net/software/hungrycat")
(license license:expat)))

10
gnu/packages/astronomy.scm
View file

@ -93,7 +93,7 @@ systems in a FITS image header.")
(define-public gnuastro (define-public gnuastro
(package (package
(name "gnuastro") (name "gnuastro")
(version "0.4") (version "0.5")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -101,17 +101,13 @@ systems in a FITS image header.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1n30zz4kg89ic5h30b7nrxp0bk0ls2m3xnfi81mja56bxxwpihrs")))) "10lxzxyrf30hj3bqdgprvaj9phzdi816khjmr0vmjf8pmsr8bqqr"))))
(inputs (inputs
`(("cfitsio" ,cfitsio) `(("cfitsio" ,cfitsio)
("gsl" ,gsl) ("gsl" ,gsl)
("libjpeg" ,libjpeg-8) ("libjpeg" ,libjpeg)
("wcslib" ,wcslib))) ("wcslib" ,wcslib)))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments
;; Reduce the number of required type conversions by enabling arithmetic
;; with all the supported types.
`(#:configure-flags '("--enable-bin-op-alltypes")))
(home-page "https://www.gnu.org/software/gnuastro/") (home-page "https://www.gnu.org/software/gnuastro/")
(synopsis "Astronomy utilities") (synopsis "Astronomy utilities")
(description "The GNU Astronomy Utilities (Gnuastro) is a suite of (description "The GNU Astronomy Utilities (Gnuastro) is a suite of

15
gnu/packages/audio.scm
View file

@ -8,7 +8,7 @@
;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is> ;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org> ;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org>
;;; Copyright © 2016 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2016, 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -1418,7 +1418,7 @@ synchronous execution of all clients, and low latency operation.")
(define-public jack-2 (define-public jack-2
(package (inherit jack-1) (package (inherit jack-1)
(name "jack2") (name "jack2")
(version "1.9.11-RC1") (version "1.9.12")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/jackaudio/jack2/releases/" (uri (string-append "https://github.com/jackaudio/jack2/releases/"
@ -1427,7 +1427,7 @@ synchronous execution of all clients, and low latency operation.")
(file-name (string-append name "-" version ".tar.gz")) (file-name (string-append name "-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0ks72xxv8qrpwjc2ksr74rnp178h62g5vdplb2rn4vhkw86yw3kk")))) "0crf4y9a5j9miw8r5ji4l3w5w0y2frrf7xyfsfdgacnw6vwy5vyy"))))
(build-system waf-build-system) (build-system waf-build-system)
(arguments (arguments
`(#:python ,python-2 `(#:python ,python-2
@ -1436,15 +1436,6 @@ synchronous execution of all clients, and low latency operation.")
"--alsa") "--alsa")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-fast_rand
(lambda _
(substitute* "common/memops.c"
;; Fixed in upstream commit d3c8e2d8d78899fba40a3e677ed4dbe388d82269
(("^inline unsigned int fast_rand" line)
(string-append "static " line))
;; Fixed in upstream commit 0279a2d65a36d1378f5bab56d95bf9e99cc8cefb
((" 96314165") " 196314165"))
#t))
(add-before (add-before
'configure 'set-linkflags 'configure 'set-linkflags
(lambda _ (lambda _

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

@ -9122,8 +9122,8 @@ CONFIG_OPTIMIZE_INLINING=y
# CONFIG_DEBUG_NMI_SELFTEST is not set # CONFIG_DEBUG_NMI_SELFTEST is not set
CONFIG_X86_DEBUG_FPU=y CONFIG_X86_DEBUG_FPU=y
CONFIG_PUNIT_ATOM_DEBUG=m CONFIG_PUNIT_ATOM_DEBUG=m
CONFIG_FRAME_POINTER_UNWINDER=y CONFIG_UNWINDER_FRAME_POINTER=y
# CONFIG_GUESS_UNWINDER is not set # CONFIG_UNWINDER_GUESS is not set
# #
# Security options # Security options

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

@ -8967,9 +8967,9 @@ CONFIG_OPTIMIZE_INLINING=y
# CONFIG_DEBUG_NMI_SELFTEST is not set # CONFIG_DEBUG_NMI_SELFTEST is not set
CONFIG_X86_DEBUG_FPU=y CONFIG_X86_DEBUG_FPU=y
CONFIG_PUNIT_ATOM_DEBUG=m CONFIG_PUNIT_ATOM_DEBUG=m
CONFIG_FRAME_POINTER_UNWINDER=y CONFIG_UNWINDER_FRAME_POINTER=y
# CONFIG_ORC_UNWINDER is not set # CONFIG_UNWINDER_ORC is not set
# CONFIG_GUESS_UNWINDER is not set # CONFIG_UNWINDER_GUESS is not set
# #
# Security options # Security options

42
gnu/packages/backup.scm
View file

@ -8,6 +8,7 @@
;;; Copyright © 2017 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2017 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Christopher Allan Webber <cwebber@dustycloud.org> ;;; Copyright © 2017 Christopher Allan Webber <cwebber@dustycloud.org>
;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -123,7 +124,7 @@ spying and/or modification by the server.")
(define-public par2cmdline (define-public par2cmdline
(package (package
(name "par2cmdline") (name "par2cmdline")
(version "0.7.4") (version "0.8.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/Parchive/par2cmdline/archive/v" (uri (string-append "https://github.com/Parchive/par2cmdline/archive/v"
@ -131,7 +132,7 @@ spying and/or modification by the server.")
(file-name (string-append name "-" version ".tar.gz")) (file-name (string-append name "-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0iwwskiag3262mvhinvnbk6n0qh6sh56m86y4d0m285v0jl0y9pa")))) "1jpshmmcr81mxly0md2rr231qz9c8c680bbvcmhh100dg9i4a6s6"))))
(native-inputs (native-inputs
`(("automake" ,automake) `(("automake" ,automake)
("autoconf" ,autoconf))) ("autoconf" ,autoconf)))
@ -453,18 +454,22 @@ detection, and lossless compression.")
(define-public borg (define-public borg
(package (package
(name "borg") (name "borg")
(version "1.1.3") (version "1.1.4")
(source (origin (source
(method url-fetch) (origin
(uri (pypi-uri "borgbackup" version)) (method url-fetch)
(patches (search-patches "borg-fix-archive-corruption-bug.patch")) (uri (pypi-uri "borgbackup" version))
(sha256 (sha256
(base32 (base32 "1cicqwh85wfp65y00qaq6q4i4jcyy9b66qz5gpl80qc880wab912"))
"1rvn8b6clzd1r317r9jkvk34r31risi0dxfjc7jffhnwasck4anc")) (modules '((guix build utils)))
(modules '((guix build utils))) (snippet
(snippet '(begin
'(for-each (for-each delete-file
delete-file (find-files "borg" "^(c|h|p).*\\.c$"))))) (find-files "borg" "^(c|h|p).*\\.c$"))
;; Remove bundled shared libraries.
(with-directory-excursion "src/borg/algorithms"
(for-each delete-file-recursively
(list "lz4" "zstd")))))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
`(#:modules ((srfi srfi-26) ; for cut `(#:modules ((srfi srfi-26) ; for cut
@ -475,9 +480,11 @@ detection, and lossless compression.")
(add-after 'unpack 'set-env (add-after 'unpack 'set-env
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let ((openssl (assoc-ref inputs "openssl")) (let ((openssl (assoc-ref inputs "openssl"))
(lz4 (assoc-ref inputs "lz4"))) (lz4 (assoc-ref inputs "lz4"))
(zstd (assoc-ref inputs "zstd")))
(setenv "BORG_OPENSSL_PREFIX" openssl) (setenv "BORG_OPENSSL_PREFIX" openssl)
(setenv "BORG_LZ4_PREFIX" lz4) (setenv "BORG_LIBLZ4_PREFIX" lz4)
(setenv "BORG_LIBZSTD_PREFIX" zstd)
(setenv "PYTHON_EGG_CACHE" "/tmp") (setenv "PYTHON_EGG_CACHE" "/tmp")
;; The test 'test_return_codes[python]' fails when ;; The test 'test_return_codes[python]' fails when
;; HOME=/homeless-shelter. ;; HOME=/homeless-shelter.
@ -538,7 +545,8 @@ detection, and lossless compression.")
("lz4" ,lz4) ("lz4" ,lz4)
("openssl" ,openssl) ("openssl" ,openssl)
("python-llfuse" ,python-llfuse) ("python-llfuse" ,python-llfuse)
("python-msgpack" ,python-msgpack))) ("python-msgpack" ,python-msgpack)
("zstd" ,zstd)))
(synopsis "Deduplicated, encrypted, authenticated and compressed backups") (synopsis "Deduplicated, encrypted, authenticated and compressed backups")
(description "Borg is a deduplicating backup program. Optionally, it (description "Borg is a deduplicating backup program. Optionally, it
supports compression and authenticated encryption. The main goal of Borg is to supports compression and authenticated encryption. The main goal of Borg is to

18
gnu/packages/bioinformatics.scm
View file

@ -6367,7 +6367,7 @@ track. The database is exposed as a @code{TxDb} object.")
(propagated-inputs (propagated-inputs
`(("r-rcurl" ,r-rcurl) `(("r-rcurl" ,r-rcurl)
("r-xml" ,r-xml))) ("r-xml" ,r-xml)))
(home-page "http://cran.r-project.org/web/packages/SPARQL") (home-page "https://cran.r-project.org/web/packages/SPARQL")
(synopsis "SPARQL client for R") (synopsis "SPARQL client for R")
(description "This package provides an interface to use SPARQL to pose (description "This package provides an interface to use SPARQL to pose
SELECT or UPDATE queries to an end-point.") SELECT or UPDATE queries to an end-point.")
@ -6378,7 +6378,7 @@ SELECT or UPDATE queries to an end-point.")
(define-public vsearch (define-public vsearch
(package (package
(name "vsearch") (name "vsearch")
(version "2.6.0") (version "2.6.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -6388,7 +6388,7 @@ SELECT or UPDATE queries to an end-point.")
(file-name (string-append name "-" version ".tar.gz")) (file-name (string-append name "-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0rplgpvsdkxw0k371ckxrp6i77jn93ckhslaazwbyd85m83nkynr")) "02khrgh8hm11cgww2f9mqc6886zqli9ss4pd4kfpqzd0d31vbzv5"))
(patches (search-patches "vsearch-unbundle-cityhash.patch")) (patches (search-patches "vsearch-unbundle-cityhash.patch"))
(snippet (snippet
'(begin '(begin
@ -6601,7 +6601,7 @@ BLAST, KEGG, GenBank, MEDLINE and GO.")
(propagated-inputs (propagated-inputs
`(("r-ggplot2" ,r-ggplot2) `(("r-ggplot2" ,r-ggplot2)
("r-gridextra" ,r-gridextra))) ("r-gridextra" ,r-gridextra)))
(home-page "http://cran.r-project.org/web/packages/ACSNMineR") (home-page "https://cran.r-project.org/web/packages/ACSNMineR")
(synopsis "Gene enrichment analysis") (synopsis "Gene enrichment analysis")
(description (description
"This package provides tools to compute and represent gene set enrichment "This package provides tools to compute and represent gene set enrichment
@ -8332,14 +8332,14 @@ library implementing most of the pipeline's features.")
(define-public r-mutationalpatterns (define-public r-mutationalpatterns
(package (package
(name "r-mutationalpatterns") (name "r-mutationalpatterns")
(version "1.4.1") (version "1.4.2")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (bioconductor-uri "MutationalPatterns" version)) (uri (bioconductor-uri "MutationalPatterns" version))
(sha256 (sha256
(base32 (base32
"1qhxlfl85ifr30wrsidcn3kca3vs8fd8cmwd82gvgx9ppww8vs06")))) "08ay9h5cqsi8ypb6r0g4rfa5l1g06jgfzl64wmhgz134yqbl7vfv"))))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-biocgenerics" ,r-biocgenerics) `(("r-biocgenerics" ,r-biocgenerics)
@ -8497,7 +8497,7 @@ factors bound at the specific regions.")
("r-rtracklayer" ,r-rtracklayer) ("r-rtracklayer" ,r-rtracklayer)
("r-s4vectors" ,r-s4vectors) ("r-s4vectors" ,r-s4vectors)
("r-seqinr" ,r-seqinr))) ("r-seqinr" ,r-seqinr)))
(home-page "http://cran.r-project.org/web/packages/gkmSVM") (home-page "https://cran.r-project.org/web/packages/gkmSVM")
(synopsis "Gapped-kmer support vector machine") (synopsis "Gapped-kmer support vector machine")
(description (description
"This R package provides tools for training gapped-kmer SVM classifiers "This R package provides tools for training gapped-kmer SVM classifiers
@ -9090,7 +9090,7 @@ trait.")
"047s6007ydc38x8wm027mlb4mngz15n0d4238fr8h43wyll5zy0z")))) "047s6007ydc38x8wm027mlb4mngz15n0d4238fr8h43wyll5zy0z"))))
(properties `((upstream-name . "MALDIquant"))) (properties `((upstream-name . "MALDIquant")))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/MALDIquant") (home-page "https://cran.r-project.org/web/packages/MALDIquant")
(synopsis "Quantitative analysis of mass spectrometry data") (synopsis "Quantitative analysis of mass spectrometry data")
(description (description
"This package provides a complete analysis pipeline for matrix-assisted "This package provides a complete analysis pipeline for matrix-assisted
@ -9997,7 +9997,7 @@ interval to data view, mismatch pileup, and several splicing summaries.")
(propagated-inputs (propagated-inputs
`(("r-plyr" ,r-plyr) `(("r-plyr" ,r-plyr)
("r-rcurl" ,r-rcurl))) ("r-rcurl" ,r-rcurl)))
(home-page "http://cran.r-project.org/web/packages/gProfileR/") (home-page "https://cran.r-project.org/web/packages/gProfileR/")
(synopsis "Interface to the g:Profiler toolkit") (synopsis "Interface to the g:Profiler toolkit")
(description (description
"This package provides tools for functional enrichment analysis, "This package provides tools for functional enrichment analysis,

31
gnu/packages/bittorrent.scm
View file

@ -177,8 +177,8 @@ XML-RPC over SCGI.")
(license l:gpl2+))) (license l:gpl2+)))
(define-public tremc (define-public tremc
(let ((commit "9755b50e9444566cff02c977edafdbb3e9750cbb") (let ((commit "e06d08d8d76aa0559593ffc1188f4a90100cdbdb")
(revision "1")) (revision "2"))
(package (package
(name "tremc") (name "tremc")
(version (git-version "0.9.0" revision commit)) (version (git-version "0.9.0" revision commit))
@ -191,29 +191,18 @@ XML-RPC over SCGI.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"05259qss5jka5ygwrh7cngyp6cgazbynji5pshgfzrd2d43pyfq5")))) "17rf74sajcn5fl718rgl2qk5mw5yz9hrh58hbcg4p55wrazzrm1i"))))
(build-system python-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; no test suite `(#:tests? #f ; no test suite
#:make-flags
(list (string-append "PREFIX=" (assoc-ref %outputs "out")))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
;; The software is just a Python script that must be ;; The software is just a Python script that must be copied into
;; copied into place. ;; place.
(delete 'build) (delete 'configure)
(replace 'install (delete 'build))))
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(man (string-append out "/share/man/man1"))
;; FIXME install zsh completions
(completions (string-append out "/etc/bash_completion.d")))
(install-file "tremc" bin)
(install-file "tremc.1" man)
(install-file
(string-append
"completion/bash/"
"transmission-remote-cli-bash-completion.sh")
completions)))))))
(synopsis "Console client for the Transmission BitTorrent daemon") (synopsis "Console client for the Transmission BitTorrent daemon")
(description "Tremc is a console client, with a curses interface, for the (description "Tremc is a console client, with a curses interface, for the
Transmission BitTorrent daemon.") Transmission BitTorrent daemon.")

33
gnu/packages/check.scm
View file

@ -1162,16 +1162,24 @@ seamlessly into your existing Python unit testing work flow.")
(define-public python-lit (define-public python-lit
(package (package
(name "python-lit") (name "python-lit")
(version "0.5.0") (version "0.5.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "lit" version)) (uri (pypi-uri "lit" version))
(sha256 (sha256
(base32 (base32
"135m2b9cwih85g66rjggavck328z7lj37srgpq3jxszbg0g2b91y")))) "0z651m3vkbk85y41larnsjxrszkbi58x9gzml3lb6ga7qwcrsg97"))))
(build-system python-build-system) (build-system python-build-system)
(home-page "http://llvm.org/") (arguments
`(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda _
(invoke "py.test"))))))
(native-inputs
`(("python-pytest" ,python-pytest)))
(home-page "https://llvm.org/")
(synopsis "LLVM Software Testing Tool") (synopsis "LLVM Software Testing Tool")
(description "@code{lit} is a portable tool for executing LLVM and Clang (description "@code{lit} is a portable tool for executing LLVM and Clang
style test suites, summarizing their results, and providing indication of style test suites, summarizing their results, and providing indication of
@ -1400,7 +1408,7 @@ pytest report.")
(build-system python-build-system) (build-system python-build-system)
(propagated-inputs (propagated-inputs
`(("pytest" ,python-pytest))) `(("pytest" ,python-pytest)))
(home-page "http://bitbucket.org/memedough/pytest-capturelog/overview") (home-page "https://bitbucket.org/memedough/pytest-capturelog/overview")
(synopsis "Pytest plugin to catch log messages") (synopsis "Pytest plugin to catch log messages")
(description (description
"Python-pytest-catchlog is a pytest plugin to catch log messages.") "Python-pytest-catchlog is a pytest plugin to catch log messages.")
@ -1549,24 +1557,15 @@ JSON APIs with Behave.")
(define-public python-rednose (define-public python-rednose
(package (package
(name "python-rednose") (name "python-rednose")
(version "1.2.1") (version "1.2.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "rednose" version)) (uri (pypi-uri "rednose" version))
(sha256 (sha256
(base32 (base32
"0b0bsna217lr1nykyhl5fgjly15zhdvqd4prg4wy1zrgfv7al6m0")))) "11x5nx5b4wdq04s7vj1gcdl07jvvkfb37p0r5lg773gr5rr8mj6h"))))
(build-system python-build-system) (build-system python-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-deps
(lambda _
;; See <https://github.com/JBKahn/rednose/issues/12>
(substitute* "setup.py"
(("python-termstyle") "termstyle"))
#t)))))
(propagated-inputs (propagated-inputs
`(("python-colorama" ,python-colorama) `(("python-colorama" ,python-colorama)
("python-termstyle" ,python-termstyle))) ("python-termstyle" ,python-termstyle)))
@ -1642,14 +1641,14 @@ create data based on random numbers and yet remain repeatable.")
(define-public python-freezegun (define-public python-freezegun
(package (package
(name "python-freezegun") (name "python-freezegun")
(version "0.3.8") (version "0.3.9")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "freezegun" version)) (uri (pypi-uri "freezegun" version))
(sha256 (sha256
(base32 (base32
"1sf38d3ibv1jhhvr52x7dhrsiyqk1hm165dfv8w8wh0fhmgxg151")))) "1vhf3kgdy7gpy70n3bxa3y1n6aza316137md97z8p5k0gz6wqg3q"))))
(build-system python-build-system) (build-system python-build-system)
(native-inputs (native-inputs
`(("python-mock" ,python-mock) `(("python-mock" ,python-mock)

132
gnu/packages/compression.scm
View file

@ -14,7 +14,7 @@
;;; Copyright © 2016 David Craven <david@craven.ch> ;;; Copyright © 2016 David Craven <david@craven.ch>
;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017 ng0 <contact.ng0@cryptolab.net> ;;; Copyright © 2017 ng0 <ng0@n0.is>
;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com> ;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org> ;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org>
;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at> ;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at>
@ -380,7 +380,7 @@ compression algorithm is currently LZMA2, which is used inside the .xz
container format. With typical files, XZ Utils create 30 % smaller output container format. With typical files, XZ Utils create 30 % smaller output
than gzip and 15 % smaller output than bzip2.") than gzip and 15 % smaller output than bzip2.")
(license (list license:gpl2+ license:lgpl2.1+)) ; bits of both (license (list license:gpl2+ license:lgpl2.1+)) ; bits of both
(home-page "http://tukaani.org/xz/"))) (home-page "https://tukaani.org/xz/")))
(define-public lzo (define-public lzo
(package (package
@ -994,7 +994,7 @@ respectively, based on the reference implementation from Google.")
(lambda _ (chdir "xdelta3"))) (lambda _ (chdir "xdelta3")))
(add-after 'enter-build-directory 'autoconf (add-after 'enter-build-directory 'autoconf
(lambda _ (zero? (system* "autoreconf" "-vfi"))))))) (lambda _ (zero? (system* "autoreconf" "-vfi")))))))
(home-page "http://xdelta.com") (home-page "http://xdelta.org")
(synopsis "Delta encoder for binary files") (synopsis "Delta encoder for binary files")
(description "xdelta encodes only the differences between two binary files (description "xdelta encodes only the differences between two binary files
using the VCDIFF algorithm and patch file format described in RFC 3284. It can using the VCDIFF algorithm and patch file format described in RFC 3284. It can
@ -1042,22 +1042,16 @@ well as bzip2.")
(define-public bitshuffle (define-public bitshuffle
(package (package
(name "bitshuffle") (name "bitshuffle")
(version "0.3.2") (version "0.3.4")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "bitshuffle" version)) (uri (pypi-uri "bitshuffle" version))
(sha256 (sha256
(base32 (base32
"01vcjrvsxjvv47y5hf9rps69zwv0vwd4ydhhms2jfs4rpcnlak6v")))) "0ydawb01ghsvmw0lraczhrgvkjj97bpg98f1qqs1cnfp953mdd5v"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
`(#:tests? #f `(#:tests? #f)) ; fail: https://github.com/h5py/h5py/issues/769
#:phases
(modify-phases %standard-phases
(add-before 'check 'make-required-dir
(lambda _
(mkdir-p "bitshuffle/plugin")
#t)))))
(inputs (inputs
`(("numpy" ,python-numpy) `(("numpy" ,python-numpy)
("h5py" ,python-h5py) ("h5py" ,python-h5py)
@ -1624,8 +1618,7 @@ or junctions, and always follows hard links.")
"HAVE_LZMA=0" "HAVE_LZMA=0"
;; Not currently detected, but be explicit & avoid surprises later. ;; Not currently detected, but be explicit & avoid surprises later.
"HAVE_LZ4=0" "HAVE_LZ4=0"
"HAVE_ZLIB=0") "HAVE_ZLIB=0")))
#:test-target "test"))
(home-page "http://zstd.net/") (home-page "http://zstd.net/")
(synopsis "Zstandard real-time compression algorithm") (synopsis "Zstandard real-time compression algorithm")
(description "Zstandard (@command{zstd}) is a lossless compression algorithm (description "Zstandard (@command{zstd}) is a lossless compression algorithm
@ -1952,3 +1945,114 @@ type by using either Perl modules, or command-line tools on your system.")
(description "Tukaani-xz is an implementation of xz compression/decompression (description "Tukaani-xz is an implementation of xz compression/decompression
algorithms in Java.") algorithms in Java.")
(license license:public-domain))) (license license:public-domain)))
(define-public lunzip
(package
(name "lunzip")
(version "1.9")
(source
(origin
(method url-fetch)
(uri (string-append "http://download.savannah.gnu.org/releases/lzip/"
name "/" name "-" version ".tar.gz"))
(sha256
(base32 "1ax3d9cp66z1qb9q7lfzg5bpx9630xrxgq9a5sw569wm0qqgpg2q"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list "CC=gcc")))
(home-page "http://www.nongnu.org/lzip/lunzip.html")
(synopsis "Small, stand-alone lzip decompressor")
(description
"Lunzip is a decompressor for files in the lzip compression format (.lz),
written as a single small C tool with no dependencies. This makes it
well-suited to embedded and other systems without a C++ compiler, or for use in
applications such as software installers that need only to decompress files,
not compress them.
Lunzip is intended to be fully compatible with the regular lzip package.")
(license (list license:bsd-2 ; carg_parser.[ch]
license:gpl2+)))) ; everything else
(define-public clzip
(package
(name "clzip")
(version "1.9")
(source
(origin
(method url-fetch)
(uri (string-append "http://download.savannah.gnu.org/releases/lzip/"
name "/" name "-" version ".tar.gz"))
(sha256
(base32 "1brvsnpihzj81cf4wk2x5bnr2qldlq0wncpdbzxmzvxapm1cq2yc"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
(list "CC=gcc")))
(home-page "http://www.nongnu.org/lzip/clzip.html")
(synopsis "Small, stand-alone lzip compressor and decompressor")
(description
"Clzip is a compressor and decompressor for files in the lzip compression
format (.lz), written as a single small C tool with no dependencies. This makes
it well-suited to embedded and other systems without a C++ compiler, or for use
in other applications like package managers.
Clzip is intended to be fully compatible with the regular lzip package.")
(license (list license:bsd-2 ; carg_parser.[ch], lzd in clzip.texi
license:gpl2+))))
(define-public lzlib
(package
(name "lzlib")
(version "1.9")
(source
(origin
(method url-fetch)
(uri (string-append "http://download.savannah.gnu.org/releases/lzip/"
name "/" name "-" version ".tar.gz"))
(sha256
(base32 "13mssf3hrcnmd4ijbqnxfk0zgj1q5lvpxxkm1hmrbl1h73czhwi4"))))
(build-system gnu-build-system)
;; The included minilzip binary is only ~16 smaller than the ‘real’ lzip.
;; It's used during the test suite, but don't be tempted to install it.
(arguments
`(#:configure-flags
(list "CC=gcc"
"--enable-shared"))) ; only static (.a) is built by default
(home-page "http://www.nongnu.org/lzip/lzlib.html")
(synopsis "Lzip data compression C library")
(description
"Lzlib is a C library for in-memory LZMA compression and decompression in
the lzip format. It supports integrity checking of the decompressed data, and
all functions are thread-safe. The library should never crash, even in case of
corrupted input.")
(license (list license:bsd-2 ; the library itself
license:gpl2+)))) ; main.c (i.e. minilzip used by tests)
(define-public plzip
(package
(name "plzip")
(version "1.6")
(source
(origin
(method url-fetch)
(uri (string-append "http://download.savannah.gnu.org/releases/lzip/"
name "/" name "-" version ".tar.gz"))
(sha256
(base32 "0z2cs6vn4xl65wakd013xl3sdfpg8dr0cvcjwc2slh8y9bz7j7ax"))))
(build-system gnu-build-system)
(inputs
`(("lzlib" ,lzlib)))
(home-page "http://www.nongnu.org/lzip/plzip.html")
(synopsis "Parallel lossless data compressor for the lzip format")
(description
"Plzip is a massively parallel (multi-threaded) lossless data compressor
and decompressor that uses the lzip file format (.lz). Files produced by plzip
are fully compatible with lzip and can be rescued with lziprecover.
On multiprocessor machines, plzip can compress and decompress large files much
faster than lzip, at the cost of a slightly reduced compression ratio (0.4% to
2%). The number of usable threads is limited by file size: on files of only a
few MiB, plzip is no faster than lzip.
Files that were compressed with regular lzip will also not be decompressed
faster by plzip, unless the @code{-b} option was used: lzip usually produces
single-member files which can't be decompressed in parallel.")
(license (list license:bsd-2 ; arg_parser.{cc,h}
license:gpl2+)))) ; everything else

85
gnu/packages/cran.scm
View file

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2017 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015, 2016, 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Roel Janssen <roel@gnu.org> ;;; Copyright © 2017 Roel Janssen <roel@gnu.org>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -42,7 +43,7 @@
(sha256 (sha256
(base32 "0d1ya7hx4y58n5ivwmdmq2zgh0g2sbv7ykh13n85c1355csd57yx")))) (base32 "0d1ya7hx4y58n5ivwmdmq2zgh0g2sbv7ykh13n85c1355csd57yx"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/colorspace") (home-page "https://cran.r-project.org/web/packages/colorspace")
(synopsis "Color space manipulation") (synopsis "Color space manipulation")
(description (description
"This package carries out a mapping between assorted color spaces "This package carries out a mapping between assorted color spaces
@ -170,7 +171,7 @@ bindings that call a C++ function.")
"0ripcib2qz0m7rgr1kiz68nx8f6p408l1ww7j78ljqik7p3g41g7")))) "0ripcib2qz0m7rgr1kiz68nx8f6p408l1ww7j78ljqik7p3g41g7"))))
(properties `((upstream-name . "AUC"))) (properties `((upstream-name . "AUC")))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/AUC") (home-page "https://cran.r-project.org/web/packages/AUC")
(synopsis "Compute the area under the curve of selected measures") (synopsis "Compute the area under the curve of selected measures")
(description (description
"This package includes functions to compute the area under the curve of "This package includes functions to compute the area under the curve of
@ -195,7 +196,7 @@ is provided.")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-mass" ,r-mass))) `(("r-mass" ,r-mass)))
(home-page "http://cran.r-project.org/web/packages/calibrate") (home-page "https://cran.r-project.org/web/packages/calibrate")
(synopsis "Calibration of scatterplot and biplot axes") (synopsis "Calibration of scatterplot and biplot axes")
(description (description
"This is a package for drawing calibrated scales with tick marks "This is a package for drawing calibrated scales with tick marks
@ -214,7 +215,7 @@ on (non-orthogonal) variable vectors in scatterplots and biplots.")
(base32 (base32
"1v9xp60p813rnx41vchkh32qmcb4z2zp9l7r1a8a6f8aqylnq3vj")))) "1v9xp60p813rnx41vchkh32qmcb4z2zp9l7r1a8a6f8aqylnq3vj"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/shape") (home-page "https://cran.r-project.org/web/packages/shape")
(synopsis "Functions for plotting graphical shapes") (synopsis "Functions for plotting graphical shapes")
(description (description
"This package provides functions for plotting graphical shapes such as "This package provides functions for plotting graphical shapes such as
@ -244,14 +245,14 @@ validation and filtering on the values, making options invisible or private.")
(define-public r-circlize (define-public r-circlize
(package (package
(name "r-circlize") (name "r-circlize")
(version "0.4.2") (version "0.4.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "circlize" version)) (uri (cran-uri "circlize" version))
(sha256 (sha256
(base32 (base32
"0py82f5v25mi0s4626zbl5br1frdrj3diz2dakar1rz5yn956mdi")))) "0pg947gkryygikfbv6admx8gsg02b6g219j6a1sdnqij2908yxna"))))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-colorspace" ,r-colorspace) `(("r-colorspace" ,r-colorspace)
@ -260,15 +261,15 @@ validation and filtering on the values, making options invisible or private.")
(home-page "https://github.com/jokergoo/circlize") (home-page "https://github.com/jokergoo/circlize")
(synopsis "Circular visualization") (synopsis "Circular visualization")
(description (description
"Circular layout is an efficient way for the visualization of huge "Circular layout is an efficient way to visualise huge amounts of
amounts of information. This package provides an implementation of circular information. This package provides an implementation of circular layout
layout generation in R as well as an enhancement of available software. The generation in R as well as an enhancement of available software. Its
flexibility of the package is based on the usage of low-level graphics flexibility is based on the usage of low-level graphics functions such that
functions such that self-defined high-level graphics can be easily implemented self-defined high-level graphics can be easily implemented by users for
by users for specific purposes. Together with the seamless connection between specific purposes. Together with the seamless connection between the powerful
the powerful computational and visual environment in R, it gives users more computational and visual environment in R, it gives users more convenience and
convenience and freedom to design figures for better understanding complex freedom to design figures for better understanding complex patterns behind
patterns behind multiple dimensional data.") multi-dimensional data.")
(license license:gpl2+))) (license license:gpl2+)))
(define-public r-powerlaw (define-public r-powerlaw
@ -308,7 +309,7 @@ approach is used to estimate the lower cut-off for the scaling region.")
(base32 (base32
"0k9zms930b5dz9gy8414li21wy0zg9x9vp7301v5cvyfi0g7xzgw")))) "0k9zms930b5dz9gy8414li21wy0zg9x9vp7301v5cvyfi0g7xzgw"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/compare") (home-page "https://cran.r-project.org/web/packages/compare")
(synopsis "Comparing objects for differences") (synopsis "Comparing objects for differences")
(description (description
"This package provides functions to compare a model object to a "This package provides functions to compare a model object to a
@ -550,7 +551,7 @@ plot networks.")
(base32 (base32
"15g6dacdmlbkcnimblscghl23aj732cn6qwbs583r4im9v5nvbla")))) "15g6dacdmlbkcnimblscghl23aj732cn6qwbs583r4im9v5nvbla"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/proxy") (home-page "https://cran.r-project.org/web/packages/proxy")
(synopsis "Distance and similarity measures") (synopsis "Distance and similarity measures")
(description (description
"This package provides an extensible framework for the efficient "This package provides an extensible framework for the efficient
@ -572,7 +573,7 @@ most popular ones.")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-lattice" ,r-lattice))) `(("r-lattice" ,r-lattice)))
(home-page "http://cran.r-project.org/web/packages/sp") (home-page "https://cran.r-project.org/web/packages/sp")
(synopsis "Classes and methods for spatial data") (synopsis "Classes and methods for spatial data")
(description (description
"This package provides classes and methods for spatial data; the classes "This package provides classes and methods for spatial data; the classes
@ -595,7 +596,7 @@ print, summary, etc.")
"1nn25q4kmh9kj975sxkrpa97vh5irqrlqhwsfinbck6h6ia4rsw1")))) "1nn25q4kmh9kj975sxkrpa97vh5irqrlqhwsfinbck6h6ia4rsw1"))))
(properties `((upstream-name . "RMTstat"))) (properties `((upstream-name . "RMTstat")))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/RMTstat") (home-page "https://cran.r-project.org/web/packages/RMTstat")
(synopsis "Distributions, statistics and tests derived from random matrix theory") (synopsis "Distributions, statistics and tests derived from random matrix theory")
(description (description
"This package provides functions for working with the Tracy-Widom laws "This package provides functions for working with the Tracy-Widom laws
@ -710,7 +711,7 @@ or excesses over a high threshold.")
`(("r-zoo" ,r-zoo))) `(("r-zoo" ,r-zoo)))
(native-inputs (native-inputs
`(("gfortran" ,gfortran))) `(("gfortran" ,gfortran)))
(home-page "http://cran.r-project.org/web/packages/lmtest") (home-page "https://cran.r-project.org/web/packages/lmtest")
(synopsis "Testing linear regression models") (synopsis "Testing linear regression models")
(description (description
"This package provides a collection of tests, data sets, and examples for "This package provides a collection of tests, data sets, and examples for
@ -730,7 +731,7 @@ tools for inference in parametric models are provided.")
(base32 (base32
"0cf9vya9h4znwgp6s1nayqqmh6mwyw7jl0isk1nx4j2ijszxcd7x")))) "0cf9vya9h4znwgp6s1nayqqmh6mwyw7jl0isk1nx4j2ijszxcd7x"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/inline") (home-page "https://cran.r-project.org/web/packages/inline")
(synopsis "Functions to inline C, C++, Fortran function calls from R") (synopsis "Functions to inline C, C++, Fortran function calls from R")
(description (description
"This package provides functionality to dynamically define R functions "This package provides functionality to dynamically define R functions
@ -755,7 +756,7 @@ and S4 methods with inlined C, C++ or Fortran code supporting @code{.C} and
`(("r-lattice" ,r-lattice) `(("r-lattice" ,r-lattice)
("r-mass" ,r-mass) ("r-mass" ,r-mass)
("r-numderiv" ,r-numderiv))) ("r-numderiv" ,r-numderiv)))
(home-page "http://cran.r-project.org/web/packages/bbmle") (home-page "https://cran.r-project.org/web/packages/bbmle")
(synopsis "Tools for General Maximum Likelihood Estimation") (synopsis "Tools for General Maximum Likelihood Estimation")
(description (description
"This package provides methods and functions for fitting maximum "This package provides methods and functions for fitting maximum
@ -805,7 +806,7 @@ topics for ecologists (ISBN 978-0-691-12522-0).")
"13a9ry8xf5j1f2j6imqrxdgxqz3nqp9sj9b4ivyx9sid459irm6m")))) "13a9ry8xf5j1f2j6imqrxdgxqz3nqp9sj9b4ivyx9sid459irm6m"))))
(properties `((upstream-name . "lpSolve"))) (properties `((upstream-name . "lpSolve")))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/lpSolve") (home-page "https://cran.r-project.org/web/packages/lpSolve")
(synopsis "R interface to Lp_solve to solve linear/integer programs") (synopsis "R interface to Lp_solve to solve linear/integer programs")
(description (description
"Lp_solve is software for solving linear, integer and mixed integer "Lp_solve is software for solving linear, integer and mixed integer
@ -832,7 +833,7 @@ transportation problems.")
("r-mass" ,r-mass) ("r-mass" ,r-mass)
("r-quadprog" ,r-quadprog))) ("r-quadprog" ,r-quadprog)))
(native-inputs `(("gfortran" ,gfortran))) (native-inputs `(("gfortran" ,gfortran)))
(home-page "http://cran.r-project.org/web/packages/limSolve") (home-page "https://cran.r-project.org/web/packages/limSolve")
(synopsis "Solving linear inverse models") (synopsis "Solving linear inverse models")
(description (description
"This package provides functions that: "This package provides functions that:
@ -891,7 +892,7 @@ data). Weighted versions of MLE, MME and QME are available.")
(propagated-inputs (propagated-inputs
`(("r-boot" ,r-boot) `(("r-boot" ,r-boot)
("r-rcpp" ,r-rcpp))) ("r-rcpp" ,r-rcpp)))
(home-page "http://cran.r-project.org/web/packages/energy") (home-page "https://cran.r-project.org/web/packages/energy")
(synopsis "Multivariate inference via the energy of data") (synopsis "Multivariate inference via the energy of data")
(description (description
"This package provides e-statistics (energy) tests and statistics for "This package provides e-statistics (energy) tests and statistics for
@ -918,7 +919,7 @@ statistics/methods are implemented.")
"1ffx8wigqqvz2pnh06jjc0fnf4vq9z2rhwk2y3f9aszn18ap3dgw")))) "1ffx8wigqqvz2pnh06jjc0fnf4vq9z2rhwk2y3f9aszn18ap3dgw"))))
(properties `((upstream-name . "SuppDists"))) (properties `((upstream-name . "SuppDists")))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/SuppDists") (home-page "https://cran.r-project.org/web/packages/SuppDists")
(synopsis "Supplementary distributions") (synopsis "Supplementary distributions")
(description (description
"This package provides ten distributions supplementing those built into "This package provides ten distributions supplementing those built into
@ -944,7 +945,7 @@ George Marsaglia are included.")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-suppdists" ,r-suppdists))) `(("r-suppdists" ,r-suppdists)))
(home-page "http://cran.r-project.org/web/packages/kSamples") (home-page "https://cran.r-project.org/web/packages/kSamples")
(synopsis "K-Sample rank tests and their combinations") (synopsis "K-Sample rank tests and their combinations")
(description (description
"This package provides tools to compares k samples using the "This package provides tools to compares k samples using the
@ -973,7 +974,7 @@ samples.")
(propagated-inputs (propagated-inputs
`(("r-kernlab" ,r-kernlab) `(("r-kernlab" ,r-kernlab)
("r-matrix" ,r-matrix))) ("r-matrix" ,r-matrix)))
(home-page "http://cran.r-project.org/web/packages/CVST") (home-page "https://cran.r-project.org/web/packages/CVST")
(synopsis "Fast cross-validation via sequential testing") (synopsis "Fast cross-validation via sequential testing")
(description (description
"This package implements the fast cross-validation via sequential "This package implements the fast cross-validation via sequential
@ -1027,7 +1028,7 @@ variable models.")
`(("r-cvst" ,r-cvst) `(("r-cvst" ,r-cvst)
("r-kernlab" ,r-kernlab) ("r-kernlab" ,r-kernlab)
("r-matrix" ,r-matrix))) ("r-matrix" ,r-matrix)))
(home-page "http://cran.r-project.org/web/packages/DRR") (home-page "https://cran.r-project.org/web/packages/DRR")
(synopsis "Dimensionality reduction via regression") (synopsis "Dimensionality reduction via regression")
(description (description
"This package provides an implementation of dimensionality reduction via "This package provides an implementation of dimensionality reduction via
@ -1051,7 +1052,7 @@ regression using Kernel Ridge Regression.")
("r-lava" ,r-lava) ("r-lava" ,r-lava)
("r-rcpp" ,r-rcpp) ("r-rcpp" ,r-rcpp)
("r-survival" ,r-survival))) ("r-survival" ,r-survival)))
(home-page "http://cran.r-project.org/web/packages/prodlim") (home-page "https://cran.r-project.org/web/packages/prodlim")
(synopsis "Product-limit estimation for censored event history analysis") (synopsis "Product-limit estimation for censored event history analysis")
(description (description
"This package provides a fast and user-friendly implementation of "This package provides a fast and user-friendly implementation of
@ -1123,7 +1124,7 @@ calendar objects.")
("r-sfsmisc" ,r-sfsmisc))) ("r-sfsmisc" ,r-sfsmisc)))
(native-inputs (native-inputs
`(("gfortran" ,gfortran))) `(("gfortran" ,gfortran)))
(home-page "http://cran.r-project.org/web/packages/ddalpha") (home-page "https://cran.r-project.org/web/packages/ddalpha")
(synopsis "Depth-Based classification and calculation of data depth") (synopsis "Depth-Based classification and calculation of data depth")
(description (description
"This package contains procedures for depth-based supervised learning, "This package contains procedures for depth-based supervised learning,
@ -1172,7 +1173,7 @@ Core algorithms are executed in parallel on systems supporting OpenMP.")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-rcpp" ,r-rcpp))) `(("r-rcpp" ,r-rcpp)))
(home-page "http://cran.r-project.org/web/packages/RcppRoll") (home-page "https://cran.r-project.org/web/packages/RcppRoll")
(synopsis "Efficient rolling and windowed operations") (synopsis "Efficient rolling and windowed operations")
(description (description
"This package provides fast and efficient routines for common rolling / "This package provides fast and efficient routines for common rolling /
@ -1200,7 +1201,7 @@ provided.")
("r-prodlim" ,r-prodlim) ("r-prodlim" ,r-prodlim)
("r-rpart" ,r-rpart) ("r-rpart" ,r-rpart)
("r-survival" ,r-survival))) ("r-survival" ,r-survival)))
(home-page "http://cran.r-project.org/web/packages/ipred") (home-page "https://cran.r-project.org/web/packages/ipred")
(synopsis "Improved predictors") (synopsis "Improved predictors")
(description (description
"This package provides improved predictive models by indirect "This package provides improved predictive models by indirect
@ -1225,7 +1226,7 @@ problems as well as resampling based estimators of prediction error.")
("r-lattice" ,r-lattice) ("r-lattice" ,r-lattice)
("r-mnormt" ,r-mnormt) ("r-mnormt" ,r-mnormt)
("r-nlme" ,r-nlme))) ("r-nlme" ,r-nlme)))
(home-page "http://cran.r-project.org/web/packages/psych/") (home-page "https://cran.r-project.org/web/packages/psych/")
(synopsis "Procedures for psychological, psychometric, and personality research") (synopsis "Procedures for psychological, psychometric, and personality research")
(description (description
"This package provides a general purpose toolbox for personality, "This package provides a general purpose toolbox for personality,
@ -1456,7 +1457,7 @@ imputations.")
(base32 (base32
"1qac05z50618y4bw1d7yznsli1bv82s0g8h37iacrjrdkv87bmy7")))) "1qac05z50618y4bw1d7yznsli1bv82s0g8h37iacrjrdkv87bmy7"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/truncnorm/") (home-page "https://cran.r-project.org/web/packages/truncnorm/")
(synopsis "Truncated normal distribution") (synopsis "Truncated normal distribution")
(description "This package provides functions for the truncated normal (description "This package provides functions for the truncated normal
distribution with mean equal to @code{mean} and standard deviation equal to distribution with mean equal to @code{mean} and standard deviation equal to
@ -1479,7 +1480,7 @@ functions, as well as a random generation function.")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-truncnorm" ,r-truncnorm))) `(("r-truncnorm" ,r-truncnorm)))
(home-page "http://cran.r-project.org/web/packages/Rsolnp/") (home-page "https://cran.r-project.org/web/packages/Rsolnp/")
(synopsis "General non-linear optimization") (synopsis "General non-linear optimization")
(description "The Rsolnp package implements a general non-linear augmented (description "The Rsolnp package implements a general non-linear augmented
Lagrange multiplier method solver, a @dfn{sequential quadratic Lagrange multiplier method solver, a @dfn{sequential quadratic
@ -1589,14 +1590,14 @@ training models for classification or ranking.")
(define-public r-xts (define-public r-xts
(package (package
(name "r-xts") (name "r-xts")
(version "0.10-0") (version "0.10-1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (cran-uri "xts" version)) (uri (cran-uri "xts" version))
(sha256 (sha256
(base32 (base32
"1w7lxy3hbf005fvpzbwiznj8jbxi07s4189vbgxisd35l9a4v6q4")))) "1j9ddh9v9081zrqlpylsk13fldilhjdyaw6r6pa726fhgnrsf8a2"))))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs `(("r-zoo" ,r-zoo))) (propagated-inputs `(("r-zoo" ,r-zoo)))
(native-inputs `(("gfortran" ,gfortran))) (native-inputs `(("gfortran" ,gfortran)))
@ -1654,7 +1655,7 @@ where possible.")
(propagated-inputs (propagated-inputs
`(("r-boot" ,r-boot) `(("r-boot" ,r-boot)
("r-mass" ,r-mass))) ("r-mass" ,r-mass)))
(home-page "http://cran.r-project.org/web/packages/laeken/") (home-page "https://cran.r-project.org/web/packages/laeken/")
(synopsis "Estimation of indicators on social exclusion and poverty") (synopsis "Estimation of indicators on social exclusion and poverty")
(description "This package provides tools for the estimation of indicators (description "This package provides tools for the estimation of indicators
on social exclusion and poverty, as well as an implementation of Pareto tail on social exclusion and poverty, as well as an implementation of Pareto tail
@ -1677,7 +1678,7 @@ modeling for empirical income distributions.")
`(("r-colorspace" ,r-colorspace) `(("r-colorspace" ,r-colorspace)
("r-lmtest" ,r-lmtest) ("r-lmtest" ,r-lmtest)
("r-mass" ,r-mass))) ("r-mass" ,r-mass)))
(home-page "http://cran.r-project.org/web/packages/vcd/") (home-page "https://cran.r-project.org/web/packages/vcd/")
(synopsis "Visualizing categorical data") (synopsis "Visualizing categorical data")
(description "This package provides visualization techniques, data sets, (description "This package provides visualization techniques, data sets,
summary and inference procedures aimed particularly at categorical data. summary and inference procedures aimed particularly at categorical data.
@ -1699,7 +1700,7 @@ Analysis with R\" by Michael Friendly and David Meyer (2015).")
(base32 (base32
"1bkl4a72l0k6gm82l3jxnib898z20cw17zg81jj39l9dn65rlmcq")))) "1bkl4a72l0k6gm82l3jxnib898z20cw17zg81jj39l9dn65rlmcq"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/ica/") (home-page "https://cran.r-project.org/web/packages/ica/")
(synopsis "Independent component analysis") (synopsis "Independent component analysis")
(description "This package provides tools for @dfn{Independent Component (description "This package provides tools for @dfn{Independent Component
Analysis} (ICA) using various algorithms: FastICA, Analysis} (ICA) using various algorithms: FastICA,
@ -1766,7 +1767,7 @@ statistics, etc.")
(base32 (base32
"0ababcj87kx7860mica9y2ydlhskxmgj9n46crx036cila512jc2")))) "0ababcj87kx7860mica9y2ydlhskxmgj9n46crx036cila512jc2"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/scatterplot3d/") (home-page "https://cran.r-project.org/web/packages/scatterplot3d/")
(synopsis "3D scatter plot") (synopsis "3D scatter plot")
(description "This package provides an implementation of scatter plots for (description "This package provides an implementation of scatter plots for
plotting. a three dimensional point cloud.") plotting. a three dimensional point cloud.")

61
gnu/packages/databases.scm
View file

@ -412,7 +412,11 @@ applications.")
("snappy" ,snappy))) ("snappy" ,snappy)))
(native-inputs (native-inputs
`(("valgrind" ,valgrind) `(("valgrind" ,valgrind)
("perl" ,perl))) ("perl" ,perl)
("python" ,python2-minimal)
("python2-pymongo" ,python2-pymongo)
("python2-pyyaml" ,python2-pyyaml)
("tzdata" ,tzdata)))
(arguments (arguments
`(#:scons ,scons-python2 `(#:scons ,scons-python2
#:phases #:phases
@ -460,12 +464,29 @@ applications.")
,@common-options ,@common-options
"mongod" "mongo" "mongos"))))) "mongod" "mongo" "mongos")))))
(replace 'check (replace 'check
(lambda* (#:key tests? #:allow-other-keys) (lambda* (#:key tests? inputs #:allow-other-keys)
(setenv "TZDIR"
(string-append (assoc-ref inputs "tzdata")
"/share/zoneinfo"))
(or (not tests?) (or (not tests?)
(zero? (apply system* ;; Note that with the tests, especially the unittests, the
`("scons" ;; build can take up to ~45GB of space, as many tests are
,@common-options ;; individual executable files, with some being hundreds of
"dbtest" "unittests")))))) ;; megabytes in size.
(begin
(apply
invoke `("scons" ,@common-options "dbtest" "unittests"))
(substitute* "build/unittests.txt"
;; TODO: Don't run the async_stream_test, as it hangs
(("^build\\/opt\\/mongo\\/executor\\/async\\_stream\\_test\n$")
"")
;; TODO: This test fails
;; Expected 0UL != disks.size() (0 != 0) @src/mongo/util/procparser_test.cpp:476
(("^build\\/opt\\/mongo\\/util\\/procparser\\_test\n$")
""))
(invoke "python" "buildscripts/resmoke.py"
"--suites=dbtest,unittests"
(format #f "--jobs=~a" (parallel-job-count)))))))
(replace 'install (replace 'install
(lambda _ (lambda _
(let ((bin (string-append (assoc-ref %outputs "out") "/bin"))) (let ((bin (string-append (assoc-ref %outputs "out") "/bin")))
@ -562,7 +583,7 @@ Language.")
(define-public mariadb (define-public mariadb
(package (package
(name "mariadb") (name "mariadb")
(version "10.1.26") (version "10.1.29")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://downloads.mariadb.org/f/" (uri (string-append "https://downloads.mariadb.org/f/"
@ -570,7 +591,7 @@ Language.")
name "-" version ".tar.gz")) name "-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0ggpdcal0if9y6h9hp1yv2q65cbkjfl4p8rqk68a5pk7k75v325s")))) "1m3ya6c3snnsyscd0waklayqfv0vhws52iizv2j5masj5xhdbfvk"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
'(#:configure-flags '(#:configure-flags
@ -1500,7 +1521,7 @@ organized in hash table, B+ tree, or fixed-length array.")
"0krwnb2zfbhvjaskwl875qzd3y626s84zcciq2mxr5c5riw3yh6s")))) "0krwnb2zfbhvjaskwl875qzd3y626s84zcciq2mxr5c5riw3yh6s"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:configure-flags '("--enable-lz4" "--enable-zlib") '(#:configure-flags '("--enable-lz4" "--with-builtins=snappy,zlib")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'check 'disable-test/fops (add-before 'check 'disable-test/fops
@ -1511,7 +1532,8 @@ organized in hash table, B+ tree, or fixed-length array.")
#t))))) #t)))))
(inputs (inputs
`(("lz4" ,lz4) `(("lz4" ,lz4)
("zlib" ,zlib))) ("zlib" ,zlib)
("snappy" ,snappy)))
(home-page "http://source.wiredtiger.com/") (home-page "http://source.wiredtiger.com/")
(synopsis "NoSQL data engine") (synopsis "NoSQL data engine")
(description (description
@ -2095,14 +2117,14 @@ simple and Pythonic domain language.")
(define-public python-sqlalchemy-utils (define-public python-sqlalchemy-utils
(package (package
(name "python-sqlalchemy-utils") (name "python-sqlalchemy-utils")
(version "0.32.13") (version "0.32.21")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "SQLAlchemy-Utils" version)) (uri (pypi-uri "SQLAlchemy-Utils" version))
(sha256 (sha256
(base32 (base32
"0vsib7gidjamzsz6w4s5pdhxzxsrkghjnm4sqwk94igjrl3i5ixj")))) "1myn71dn8j74xglyh46f12sh8ywb7j0j732rzwq70kvwwnq32m73"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
'(#:tests? #f)) ; FIXME: Many tests require a running database server. '(#:tests? #f)) ; FIXME: Many tests require a running database server.
@ -2145,14 +2167,14 @@ You might also want to install the following optional dependencies:
(define-public python-alembic (define-public python-alembic
(package (package
(name "python-alembic") (name "python-alembic")
(version "0.9.5") (version "0.9.6")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "alembic" version)) (uri (pypi-uri "alembic" version))
(sha256 (sha256
(base32 (base32
"01gx2syqbaxh4hr9pf7pxhlb6p36qaf99140dy19lsx1paxb9p4b")))) "0cm73vabrqj92v7a0wwvldj8j7bc7dwv358kvkk7p87gx7mm2a04"))))
(build-system python-build-system) (build-system python-build-system)
(native-inputs (native-inputs
`(("python-mock" ,python-mock) `(("python-mock" ,python-mock)
@ -2162,7 +2184,7 @@ You might also want to install the following optional dependencies:
("python-sqlalchemy" ,python-sqlalchemy) ("python-sqlalchemy" ,python-sqlalchemy)
("python-mako" ,python-mako) ("python-mako" ,python-mako)
("python-editor" ,python-editor))) ("python-editor" ,python-editor)))
(home-page "http://bitbucket.org/zzzeek/alembic") (home-page "https://bitbucket.org/zzzeek/alembic")
(synopsis (synopsis
"Database migration tool for SQLAlchemy") "Database migration tool for SQLAlchemy")
(description (description
@ -2318,18 +2340,19 @@ designed to be easy and intuitive to use.")
(define-public python-sadisplay (define-public python-sadisplay
(package (package
(name "python-sadisplay") (name "python-sadisplay")
(version "0.4.6") (version "0.4.8")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "sadisplay" version)) (uri (pypi-uri "sadisplay" version))
(sha256 (sha256
(base32 (base32
"0zqad2fl7q26p090qmqgmxbm6iwgf9zij1w8da1g3wdgjj72ql05")))) "01d9lxhmgpb68gy8rd6zj6fcwp84n2qq210n1qsk3qbsir79bzh4"))))
(build-system python-build-system) (build-system python-build-system)
(propagated-inputs (propagated-inputs
`(("python-sqlalchemy" ,python-sqlalchemy))) `(("python-sqlalchemy" ,python-sqlalchemy)))
(native-inputs (native-inputs
;; For tests.
`(("python-nose" ,python-nose))) `(("python-nose" ,python-nose)))
(home-page "https://bitbucket.org/estin/sadisplay") (home-page "https://bitbucket.org/estin/sadisplay")
(synopsis "SQLAlchemy schema displayer") (synopsis "SQLAlchemy schema displayer")
@ -2431,13 +2454,13 @@ substitute for redis.")
(define-public python-redis (define-public python-redis
(package (package
(name "python-redis") (name "python-redis")
(version "2.10.5") (version "2.10.6")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "redis" version)) (uri (pypi-uri "redis" version))
(sha256 (sha256
(base32 "0csmrkxb29x7xs9b51zplwkkq2hwnbh9jns1g85dykn5rxmaxysx")))) (base32 "03vcgklykny0g0wpvqmy8p6azi2s078317wgb2xjv5m2rs9sjb52"))))
(build-system python-build-system) (build-system python-build-system)
;; Tests require a running Redis server ;; Tests require a running Redis server
(arguments '(#:tests? #f)) (arguments '(#:tests? #f))

63
gnu/packages/emacs.scm
View file

@ -1548,7 +1548,7 @@ type, for example: packages, buffers, files, etc.")
(define-public emacs-guix (define-public emacs-guix
(package (package
(name "emacs-guix") (name "emacs-guix")
(version "0.3.3") (version "0.3.4")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/alezost/guix.el" (uri (string-append "https://github.com/alezost/guix.el"
@ -1556,7 +1556,7 @@ type, for example: packages, buffers, files, etc.")
"/emacs-guix-" version ".tar.gz")) "/emacs-guix-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0mjb2yb454389ds2kr5rkjkl21r78z4c0f88ivf4g471yzg279mc")))) "152zf9vkafmnnf7by5armg165npznb961csgnvr8iwdj3smvivjf"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags `(#:configure-flags
@ -3237,19 +3237,33 @@ automatically.")
(define-public emacs-ivy (define-public emacs-ivy
(package (package
(name "emacs-ivy") (name "emacs-ivy")
(version "0.9.1") (version "0.10.0")
(source (source
(origin (origin
(method url-fetch) (method git-fetch)
(uri (string-append "https://github.com/abo-abo/swiper/archive/" (uri (git-reference
version ".tar.gz")) (url "https://github.com/abo-abo/swiper.git")
(file-name (string-append name "-" version ".tar.gz")) (commit version)))
(file-name (string-append name "-" version "-checkout"))
(sha256 (sha256
(base32 (base32
"1abi1rvjarwfxxylpx8qlhck0kbavnj0nmlaaizk9q5zr02xfx1j")))) "14vnigqb5c3yi4q9ysw1fiwdqyqwyklqpb9wnjf81chm7s2mshnr"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(info (string-append out "/share/info")))
(with-directory-excursion "doc"
(unless (zero? (system* "makeinfo" "ivy.texi"))
(error "makeinfo failed"))
(install-file "ivy.info" info))))))))
(propagated-inputs (propagated-inputs
`(("emacs-hydra" ,emacs-hydra))) `(("emacs-hydra" ,emacs-hydra)))
(native-inputs
`(("texinfo" ,texinfo)))
(home-page "http://oremacs.com/swiper/") (home-page "http://oremacs.com/swiper/")
(synopsis "Incremental vertical completion for Emacs") (synopsis "Incremental vertical completion for Emacs")
(description (description
@ -4097,7 +4111,7 @@ target will call @code{compile} on it.")
(define-public emacs-cider (define-public emacs-cider
(package (package
(name "emacs-cider") (name "emacs-cider")
(version "0.15.0") (version "0.15.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -4106,7 +4120,7 @@ target will call @code{compile} on it.")
(file-name (string-append name "-" version ".tar.gz")) (file-name (string-append name "-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0j7qjcslh8mnxrr2m8qrscyq9ry240j5jd9dysbvih126lxisf12")))) "1j5hlmi14ypszv1f9nvq0jjlz7i742flg0ny3055l7i4x089xx6g"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
'(#:exclude ; Don't exclude 'cider-test.el'. '(#:exclude ; Don't exclude 'cider-test.el'.
@ -4292,14 +4306,14 @@ passive voice.")
(name "emacs-org") (name "emacs-org")
;; emacs-org-contrib inherits from this package. Please update its sha256 ;; emacs-org-contrib inherits from this package. Please update its sha256
;; checksum as well. ;; checksum as well.
(version "20171205") (version "20171224")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://elpa.gnu.org/packages/org-" (uri (string-append "http://elpa.gnu.org/packages/org-"
version ".tar")) version ".tar"))
(sha256 (sha256
(base32 (base32
"0a1rm94ci47jf5579sxscily680ysmy3hnxjcs073n45nk76za04")))) "1s995y3aizzaldpqz6jg73w8c9kmdbn30chkslwylg3p98as1jsj"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(home-page "http://orgmode.org/") (home-page "http://orgmode.org/")
(synopsis "Outline-based notes management and organizer") (synopsis "Outline-based notes management and organizer")
@ -4319,7 +4333,7 @@ reproducible research.")
(package-version emacs-org) ".tar")) (package-version emacs-org) ".tar"))
(sha256 (sha256
(base32 (base32
"1y61csa284gy8l0fj0mv67mkm4fsi4lz401987qp6a6z260df4n5")))) "0lamkw5npcm0640c36zqdv8py5rbpr0pk1i4qdmfgrngy64v9f75"))))
(arguments (arguments
`(#:modules ((guix build emacs-build-system) `(#:modules ((guix build emacs-build-system)
(guix build utils) (guix build utils)
@ -5305,6 +5319,29 @@ constructs.")
configuration of Chinese fonts.") configuration of Chinese fonts.")
(license license:gpl2+))) (license license:gpl2+)))
(define-public emacs-php-mode
(package
(name "emacs-php-mode")
(version "20171225.342")
(source (origin
(method url-fetch)
(uri (string-append
"https://melpa.org/packages/php-mode-"
version ".tar"))
(sha256
(base32
"1zz682f34v4wsm2dyj1gnrnvsrqdq1cy7j8p6cvc398w2fziyg3q"))))
(build-system emacs-build-system)
(home-page "https://github.com/ejmr/php-mode")
(synopsis "Major mode for editing PHP code")
(description "@code{php-mode} is a major mode for editing PHP source
code. It's an extension of C mode; thus it inherits all C mode's navigation
functionality. But it colors according to the PHP grammar and indents
according to the PEAR coding guidelines. It also includes a couple handy
IDE-type features such as documentation search and a source and class
browser.")
(license license:gpl3+)))
(define-public emacs-pos-tip (define-public emacs-pos-tip
(package (package
(name "emacs-pos-tip") (name "emacs-pos-tip")

21
gnu/packages/enlightenment.scm
View file

@ -24,6 +24,7 @@
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system meson)
#:use-module (guix build-system python) #:use-module (guix build-system python)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages bash) #:use-module (gnu packages bash)
@ -224,7 +225,7 @@ contents and more.")
(define-public rage (define-public rage
(package (package
(name "rage") (name "rage")
(version "0.2.1") (version "0.3.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (uri
@ -233,8 +234,8 @@ contents and more.")
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"06kbgcnbhl9clhdl7k983m4d0n6ggsl4qvizzi1nrp8c7np87fix")))) "0gfzdd4jg78bkmj61yg49w7bzspl5m1nh6agqgs8k7qrq9q26xqy"))))
(build-system gnu-build-system) (build-system meson-build-system)
(arguments (arguments
'(#:phases '(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
@ -362,15 +363,15 @@ Libraries stack (eo, evas, ecore, edje, emotion, ethumb and elementary).")
(define-public edi (define-public edi
(package (package
(name "edi") (name "edi")
(version "0.5.1") (version "0.6.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/ajwillia-ms/edi/releases/" (uri (string-append "https://download.enlightenment.org/rel/apps/edi/"
"download/v" version "/edi-" version ".tar.bz2")) name "-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"0k0ymi9ilhkypqb9pniv365kh3jgbl2g2k0ylvsmisn2jhbqk49a")))) "0iqkah327ms5m7k054hcik2l9v68i4mg9yy52brprfqpd5jk7pw8"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases '(#:phases
@ -378,11 +379,9 @@ Libraries stack (eo, evas, ecore, edje, emotion, ethumb and elementary).")
(add-after 'unpack 'set-home-directory (add-after 'unpack 'set-home-directory
;; FATAL: Cannot create run dir '/homeless-shelter/.run' - errno=2 ;; FATAL: Cannot create run dir '/homeless-shelter/.run' - errno=2
(lambda _ (setenv "HOME" "/tmp") #t))) (lambda _ (setenv "HOME" "/tmp") #t)))
#:configure-flags '("--with-tests=coverage"))) #:tests? #f)) ; tests require running dbus service
(native-inputs (native-inputs
`(("check" ,check) `(("pkg-config" ,pkg-config)))
("lcov" ,lcov)
("pkg-config" ,pkg-config)))
(inputs (inputs
`(("clang" ,clang) `(("clang" ,clang)
("efl" ,efl))) ("efl" ,efl)))

223
gnu/packages/finance.scm
View file

@ -41,6 +41,7 @@
#:use-module (gnu packages libedit) #:use-module (gnu packages libedit)
#:use-module (gnu packages libevent) #:use-module (gnu packages libevent)
#:use-module (gnu packages libunwind) #:use-module (gnu packages libunwind)
#:use-module (gnu packages libusb)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages multiprecision) #:use-module (gnu packages multiprecision)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
@ -492,3 +493,225 @@ Monero command line client and daemon.")
"Monero is a secure, private, untraceable currency. This package provides the "Monero is a secure, private, untraceable currency. This package provides the
Monero GUI client.") Monero GUI client.")
(license license:bsd-3))) (license license:bsd-3)))
(define-public python-trezor-agent
(package
(name "python-trezor-agent")
(version "0.9.4")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/romanz/trezor-agent/archive/v"
version ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"0h8jb147vpjk7mqbl4za0xdh7lblhx07n9dfk80kn2plwnvrry1x"))))
(build-system python-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(delete 'check)
(add-after 'install 'check
(lambda* (#:key outputs inputs #:allow-other-keys)
;; Make installed package available for running the tests
(add-installed-pythonpath inputs outputs)
(invoke "py.test"))))))
(propagated-inputs
`(("python-ecdsa" ,python-ecdsa)
("python-ed25519" ,python-ed25519)
("python-semver" ,python-semver)
("python-unidecode" ,python-unidecode)))
(native-inputs
`(("python-mock" ,python-mock)
("python-pytest" ,python-pytest)))
(home-page "https://github.com/romanz/trezor-agent")
(synopsis "TREZOR SSH and GPG host support")
(description
"@code{libagent} is a library that allows using TREZOR, Keepkey and
Ledger Nano as a hardware SSH/GPG agent.")
(license license:lgpl3)))
(define-public python2-trezor-agent
(package-with-python2 python-trezor-agent))
(define-public python-mnemonic
(package
(name "python-mnemonic")
(version "0.18")
(source
(origin
(method url-fetch)
(uri (pypi-uri "mnemonic" version))
(sha256
(base32
"07bzfa5di6nv5xwwcwbypnflpj50wlfczhh6q6hg8w13g5m319q2"))))
(build-system python-build-system)
(propagated-inputs
`(("python-pbkdf2" ,python-pbkdf2)))
(home-page "https://github.com/trezor/python-mnemonic")
(synopsis "Implementation of Bitcoin BIP-0039")
(description "@code{mnemonic} is a library that provides an implementation
of Bitcoin BIP-0039.")
(license license:expat)))
(define-public python2-mnemonic
(package-with-python2 python-mnemonic))
(define-public python-ledgerblue
(package
(name "python-ledgerblue")
(version "0.1.16")
(source
(origin
(method url-fetch)
(uri (pypi-uri "ledgerblue" version))
(sha256
(base32
"010mghaqh1cmz3a0ifc3f40mmyplilwlw7kpha2mzyrrff46p9gb"))))
(build-system python-build-system)
(propagated-inputs
`(("python-ecpy" ,python-ecpy)
("python-future" ,python-future)
("python-hidapi" ,python-hidapi)
("python-pillow" ,python-pillow)
("python-protobuf" ,python-protobuf)
("python-pycrypto" ,python-pycrypto)))
(home-page "https://github.com/LedgerHQ/blue-loader-python")
(synopsis "Python library to communicate with Ledger Blue/Nano S")
(description "@code{ledgerblue} is a Python library to communicate with
Ledger Blue/Nano S.")
(license license:asl2.0)))
(define-public python2-ledgerblue
(package-with-python2 python-ledgerblue))
(define-public python-trezor
(package
(name "python-trezor")
(version "0.7.16")
(source
(origin
(method url-fetch)
(uri (pypi-uri "trezor" version))
(sha256
(base32
"055kii56wgwadl5z911s59ya2fnsqzk3n5i19s2hb9sv2by6knvb"))))
(build-system python-build-system)
(propagated-inputs
`(("python-ecdsa" ,python-ecdsa)
("python-hidapi" ,python-hidapi)
("python-mnemonic" ,python-mnemonic)
("python-protobuf" ,python-protobuf)
("python-requests" ,python-requests)))
(native-inputs
`(("python-pyqt" ,python-pyqt))) ; Tests
(home-page "https://github.com/trezor/python-trezor")
(synopsis "Python library for communicating with TREZOR Hardware Wallet")
(description "@code{trezor} is a Python library for communicating with
TREZOR Hardware Wallet.")
(license license:lgpl3)))
(define-public python2-trezor
(package-with-python2 python-trezor))
(define-public python-keepkey
(package
(name "python-keepkey")
(version "4.0.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "keepkey" version))
(sha256
(base32
"0f4iqqjlqmamw4mhyhik4qlb5bnfd10wbjw9yzgir105wh5fdpnd"))))
(build-system python-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(delete 'check)
(add-after 'install 'check
(lambda* (#:key inputs outputs #:allow-other-keys)
(add-installed-pythonpath inputs outputs)
(apply invoke "python" (find-files "tests/unit" "\\.py$")))))))
(propagated-inputs
`(("python-ecdsa" ,python-ecdsa)
("python-hidapi" ,python-hidapi)
("python-mnemonic" ,python-mnemonic)
("python-protobuf" ,python-protobuf)))
(home-page "https://github.com/keepkey/python-keepkey")
(synopsis "Python library for communicating with KeepKey Hardware Wallet")
(description "@code{keepkey} is a Python library for communicating with
the KeepKey Hardware Wallet.")
(license license:lgpl3)))
(define-public python2-keepkey
(package-with-python2 python-keepkey))
(define-public ledger-agent
(package
(name "ledger-agent")
(version "0.9.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "ledger_agent" version))
(sha256
(base32
"03zj602m2rln9yvr08dswy56vzkbldp8b074ixwzz525dafblr92"))))
(build-system python-build-system)
(inputs
`(("python-ledgerblue" ,python-ledgerblue)
("python-trezor-agent" ,python-trezor-agent)))
(home-page "http://github.com/romanz/trezor-agent")
(synopsis "Ledger as hardware SSH/GPG agent")
(description "This package allows using Ledger as hardware SSH/GPG agent.
Usage for SSH: trezor-agent foo@@example.com --connect
Usage for GPG: Initialize using trezor-gpg init \"Foo <foo@@example.com>\"
Then set the environment variable GNUPGHOME to
\"${HOME}/.gnupg/trezor\".")
(license license:lgpl3)))
(define-public trezor-agent
(package
(name "trezor-agent")
(version "0.9.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "trezor_agent" version))
(sha256
(base32
"1i5cdamlf3c0ym600pjklij74p8ifj9cv7xrpnrfl1b8nkadswbz"))))
(build-system python-build-system)
(inputs
`(("python-trezor" ,python-trezor)
("python-trezor-agent" ,python-trezor-agent)))
(home-page "http://github.com/romanz/trezor-agent")
(synopsis "Using Trezor as hardware SSH/GPG agent")
(description "This package allows using Trezor as a hardware SSH/GPG
agent.")
(license license:lgpl3)))
(define-public keepkey-agent
(package
(name "keepkey-agent")
(version "0.9.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "keepkey_agent" version))
(sha256
(base32
"03779gvlx70i0nnry98i4pl1d92604ix5x6jgdfkrdgzqbh5vj27"))))
(build-system python-build-system)
(inputs
`(("python-keepkey" ,python-keepkey)
("python-trezor-agent" ,python-trezor-agent)))
(home-page "http://github.com/romanz/trezor-agent")
(synopsis "KeepKey as hardware SSH/GPG agent")
(description "This package allows using KeepKey as a hardware SSH/GPG
agent.")
(license license:lgpl3)))

4
gnu/packages/firmware.scm
View file

@ -184,14 +184,14 @@ by the b43-open driver of Linux-libre.")
(define-public seabios (define-public seabios
(package (package
(name "seabios") (name "seabios")
(version "1.10.1") (version "1.11.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://code.coreboot.org/p/seabios/downloads/get/" (uri (string-append "https://code.coreboot.org/p/seabios/downloads/get/"
"seabios-" version ".tar.gz")) "seabios-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1jyjl719drnl1v0gf0l5q6qjjmkyqcqkka6s28dfdi0yqsxdsqsh")))) "1xwvp77djxbxbxg82hzj26pv6zka3556vkdcp09hnfwapcp46av2"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("python-2" ,python-2))) `(("python-2" ,python-2)))

232
gnu/packages/games.scm
View file

@ -2,7 +2,7 @@
;;; Copyright © 2013 John Darrington <jmd@gnu.org> ;;; Copyright © 2013 John Darrington <jmd@gnu.org>
;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org> ;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
;;; Copyright © 2014, 2015, 2016 David Thompson <dthompson2@worcester.edu> ;;; Copyright © 2014, 2015, 2016 David Thompson <dthompson2@worcester.edu>
;;; Copyright © 2014, 2015, 2016 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2014, 2015, 2016, 2017 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2014 Cyrill Schenkel <cyrill.schenkel@gmail.com> ;;; Copyright © 2014 Cyrill Schenkel <cyrill.schenkel@gmail.com>
;;; Copyright © 2014 Sylvain Beucler <beuc@beuc.net> ;;; Copyright © 2014 Sylvain Beucler <beuc@beuc.net>
;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org>
@ -17,7 +17,7 @@
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com> ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
;;; Copyright © 2016, 2017 Rodger Fox <thylakoid@openmailbox.org> ;;; Copyright © 2016, 2017 Rodger Fox <thylakoid@openmailbox.org>
;;; Copyright © 2016 Manolis Fragkiskos Ragkousis <manolis837@gmail.com> ;;; Copyright © 2016 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2016, 2017 ng0 <ng0@infotropique.org> ;;; Copyright © 2016, 2017 ng0 <ng0@n0.is>
;;; Copyright © 2016 Albin Söderqvist <albin@fripost.org> ;;; Copyright © 2016 Albin Söderqvist <albin@fripost.org>
;;; Copyright © 2016, 2017 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2016, 2017 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2016 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
@ -32,6 +32,7 @@
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2017 Roel Janssen <roel@gnu.org> ;;; Copyright © 2017 Roel Janssen <roel@gnu.org>
;;; Copyright © 2017 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -80,6 +81,7 @@
#:use-module (gnu packages glib) #:use-module (gnu packages glib)
#:use-module (gnu packages gnome) #:use-module (gnu packages gnome)
#:use-module (gnu packages gperf) #:use-module (gnu packages gperf)
#:use-module (gnu packages graphics)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages guile) #:use-module (gnu packages guile)
#:use-module (gnu packages imagemagick) #:use-module (gnu packages imagemagick)
@ -355,6 +357,56 @@ played. Freedoom complements the Doom engine with free levels, artwork, sound
effects and music to make a completely free game.") effects and music to make a completely free game.")
(license license:bsd-3))) (license license:bsd-3)))
(define-public meandmyshadow
(package
(name "meandmyshadow")
(version "0.4")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/meandmyshadow/"
version "/meandmyshadow-" version
"-src.tar.gz"))
(sha256
(base32
"1dpb7s32b2psj5w3nr5kqibib8nndi86mw8gxp4hmxwrfiisf86d"))))
(build-system cmake-build-system)
(arguments
'(#:tests? #f ; there are no tests
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'set-sdl'paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "cmake/Modules/FindSDL_gfx.cmake"
(("/usr/local/include/SDL")
(string-append (assoc-ref inputs "sdl")
"/include/SDL")))
;; Because SDL provides lib/libX11.so.6 we need to explicitly
;; link with libX11, even though we're using the GL backend.
(substitute* "CMakeLists.txt"
(("\\$\\{X11_LIBRARIES\\}") "-lX11"))
)))))
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("sdl" ,(sdl-union (list sdl
sdl-image
sdl-gfx
sdl-mixer
sdl-ttf)))
("libx11" ,libx11) ; needed by sdl's libX11
("libarchive" ,libarchive)
("openssl" ,openssl)
("mesa" ,mesa)
("glu" ,glu)
("curl" ,curl)))
(home-page "http://meandmyshadow.sourceforge.net/")
(synopsis "Puzzle/platform game")
(description "Me and My Shadow is a puzzle/platform game in which you try
to reach the exit by solving puzzles. Spikes, moving blocks, fragile blocks
and much more stand between you and the exit. Record your moves and let your
shadow mimic them to reach blocks you couldn't reach alone.")
(license license:gpl3+)))
(define-public knights (define-public knights
(package (package
(name "knights") (name "knights")
@ -1471,7 +1523,7 @@ either by Infocom or created using the Inform compiler.")
(define-public retroarch (define-public retroarch
(package (package
(name "retroarch") (name "retroarch")
(version "1.6.9") (version "1.7.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -1479,7 +1531,7 @@ either by Infocom or created using the Inform compiler.")
version ".tar.gz")) version ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz")) (file-name (string-append name "-" version ".tar.gz"))
(sha256 (sha256
(base32 "1d3qbph59d43k10mprqm8h23143yji5mwjkciwynwa4xvsgydpb6")))) (base32 "1waskzf99947yqs40n38s86m41jf5v7prvzf8pzfjxzpgyis8bxk"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:tests? #f ; no tests '(#:tests? #f ; no tests
@ -4978,9 +5030,8 @@ at their peak of economic growth and military prowess.
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'configure (replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
;; At this point linenoise is meant to be included, ;; Linenoise is meant to be included, so we have to
;; so we have to really copy it into the working directory ;; copy it into the working directory.
;; of s.
(let* ((linenoise (assoc-ref inputs "linenoise")) (let* ((linenoise (assoc-ref inputs "linenoise"))
(noisepath (string-append linenoise "/include/linenoise")) (noisepath (string-append linenoise "/include/linenoise"))
(out (assoc-ref outputs "out"))) (out (assoc-ref outputs "out")))
@ -5182,3 +5233,170 @@ It includes support for 64 bit CPUs, custom music playback, a new sound driver,
some graphical niceities, and numerous bug-fixes and other improvements.") some graphical niceities, and numerous bug-fixes and other improvements.")
(home-page "http://quakespasm.sourceforge.net/") (home-page "http://quakespasm.sourceforge.net/")
(license license:gpl2+))) (license license:gpl2+)))
(define-public yamagi-quake2
(package
(name "yamagi-quake2")
(version "7.10")
(source
(origin
(method url-fetch)
(uri (string-append "https://deponie.yamagi.org/quake2/quake2-"
version ".tar.xz"))
(sha256
(base32
"0psinbg25mysd58k99s1n34w31w5hj1vppb39gdjb0zqi6sl6cps"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f
#:make-flags
(list "CC=gcc"
;; link openAL instead of using dlopen at runtime
"DLOPEN_OPENAL=\"no\""
;; an optional directory where it will look for quake2 data files
;; in addition to the current working directory
"WITH_SYSTEMWIDE=yes"
"WITH_SYSTEMDIR=\"/opt/quake2\"")
#:phases
(modify-phases %standard-phases
(delete 'configure)
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(mkdir-p (string-append out "/lib"))
(mkdir-p (string-append out "/bin"))
;; The yamagi-quake2 binary must be in the same directory
;; as it's engine libraries, but symlinking it to /bin is okay
;; https://github.com/yquake2/yquake2/blob/master/stuff/packaging.md
(copy-recursively "release"
(string-append out "/lib/yamagi-quake2"))
(symlink (string-append out "/lib/yamagi-quake2/quake2")
(string-append out "/bin/yamagi-quake2"))
(symlink (string-append out "/lib/yamagi-quake2/q2ded")
(string-append out "/bin/yamagi-q2ded"))))))))
(inputs `(("sdl2" ,sdl2)
("mesa" ,mesa)
("libvorbis" ,libvorbis)
("zlib" ,zlib)
("openal" ,openal)))
(native-inputs `(("pkg-config" ,pkg-config)))
(synopsis "First person shooter engine based on quake2")
(description "Yamagi Quake II is an enhanced client for id Software's Quake II.
The main focus is an unchanged single player experience like back in 1997,
thus the gameplay and the graphics are unaltered. However the user may use one
of the unofficial retexturing packs. In comparison with the official client,
over 1000 bugs were fixed and an extensive code audit done,
making Yamagi Quake II one of the most solid Quake II implementations available.")
(home-page "https://www.yamagi.org/quake2/")
(license (list license:gpl2+ ; game and server
(license:non-copyleft ; info-zip
"file://LICENSE"
"See Info-Zip section.")
license:public-domain)))) ; stb
(define-public the-butterfly-effect
(package
(name "the-butterfly-effect")
(version "0.9.3.1")
(source
(origin
(method url-fetch)
(uri (string-append
"https://github.com/the-butterfly-effect/tbe/archive/"
"v" version ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"18qkp7fgdvyl3haqqa693mgyic7afsznsxgz98z9wn4csaqxsnby"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(delete 'configure)
;; There is no "install" phase. By default, tbe is installed
;; in the build directory. Provide our own installation.
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(share (string-append out "/share")))
(install-file "usr/games/tbe" bin)
(mkdir-p share)
(copy-recursively "usr/share" share)
#t))))
;; Test suite requires a running Xorg server. Even when
;; provided, it fails with "D-Bus library appears to be
;; incorrectly set up; failed to read machine uuid: Failed to
;; open "/etc/machine-id": No such file or directory" along
;; with multiple "QPainter:: ... Painter not active" warnings.
#:tests? #f))
(inputs
`(("qtbase" ,qtbase)
("qtsvg" ,qtsvg)))
(native-inputs
`(("cmake" ,cmake)
("gettext-minimal" ,gettext-minimal)
("qttools" ,qttools)))
(synopsis "Realistic physics puzzle game")
(description "The Butterfly Effect (tbe) is a game that uses
realistic physics simulations to combine lots of simple mechanical
elements to achieve a simple goal in the most complex way possible.")
(home-page "http://the-butterfly-effect.org/")
;; Main license is GPL2-only. However, artwork is distributed
;; under various licenses, listed here.
(license (list license:gpl2 license:public-domain license:expat
license:cc-by-sa3.0 license:gpl3+ license:wtfpl2))))
(define-public pioneer
(package
(name "pioneer")
(version "20171001")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/pioneerspacesim/pioneer/"
"archive/" version ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"1nxhx22swfqq6lfvcnpfm31wig3sjv5pp0rslj79nbxc7nyihh8m"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("pkg-config" ,pkg-config)))
(inputs
`(("assimp" ,assimp)
("curl" ,curl)
("freetype" ,freetype)
("glu" ,glu)
("libpng" ,libpng)
("libsigc++" ,libsigc++)
("libvorbis" ,libvorbis)
("lua" ,lua-5.2) ;not compatible with 5.3
("mesa" ,mesa)
("sdl" ,(sdl-union (list sdl2 sdl2-image)))))
(arguments
`(#:tests? #f ;tests are broken
#:configure-flags (list "--with-external-liblua"
(string-append "PIONEER_DATA_DIR="
%output "/share/games/pioneer"))
#:phases (modify-phases %standard-phases
(add-after 'unpack 'bootstrap
(lambda _ (zero? (system* "sh" "bootstrap"))))
(add-before 'bootstrap 'fix-lua-check
(lambda _
(substitute* "configure.ac"
(("lua5.2")
(string-append "lua-" ,(version-major+minor
(package-version lua-5.2))))))))))
(home-page "http://pioneerspacesim.net")
(synopsis "Game of lonely space adventure")
(description
"Pioneer is a space adventure game set in our galaxy at the turn of the
31st century. The game is open-ended, and you are free to eke out whatever
kind of space-faring existence you can think of. Look for fame or fortune by
exploring the millions of star systems. Turn to a life of crime as a pirate,
smuggler or bounty hunter. Forge and break alliances with the various
factions fighting for power, freedom or self-determination. The universe is
whatever you make of it.")
(license license:gpl3)))

52
gnu/packages/gnome.scm
View file

@ -144,6 +144,7 @@
#:use-module (gnu packages speech) #:use-module (gnu packages speech)
#:use-module (gnu packages virtualization) #:use-module (gnu packages virtualization)
#:use-module (gnu packages vpn) #:use-module (gnu packages vpn)
#:use-module (gnu packages xorg)
#:use-module (srfi srfi-1)) #:use-module (srfi srfi-1))
(define-public brasero (define-public brasero
@ -395,6 +396,7 @@ access the common Google services, and has full asynchronous support.")
(uri (string-append "mirror://gnome/sources/" name "/" (uri (string-append "mirror://gnome/sources/" name "/"
(version-major+minor version) "/" (version-major+minor version) "/"
name "-" version ".tar.xz")) name "-" version ".tar.xz"))
(patches (search-patches "libgxps-CVE-2017-11590.patch"))
(sha256 (sha256
(base32 (base32
"184r06s8g20cfigg7m169n42jjsc9wmzzlycr4g1fxxhr72r8x9y")))) "184r06s8g20cfigg7m169n42jjsc9wmzzlycr4g1fxxhr72r8x9y"))))
@ -880,7 +882,7 @@ GNOME and KDE desktops to the icon names proposed in the specification.")
(define-public adwaita-icon-theme (define-public adwaita-icon-theme
(package (inherit gnome-icon-theme) (package (inherit gnome-icon-theme)
(name "adwaita-icon-theme") (name "adwaita-icon-theme")
(version "3.26.0") (version "3.26.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/" (uri (string-append "mirror://gnome/sources/" name "/"
@ -888,7 +890,7 @@ GNOME and KDE desktops to the icon names proposed in the specification.")
name "-" version ".tar.xz")) name "-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"04i2s6hkgzxgmq85dynmzih8rw5krc5apkks962mhgri37g8bbcw")))) "17fpahgh5dyckgz7rwqvzgnhx53cx9kr2xw0szprc6bnqy977fi8"))))
(native-inputs (native-inputs
`(("gtk-encode-symbolic-svg" ,gtk+ "bin"))))) `(("gtk-encode-symbolic-svg" ,gtk+ "bin")))))
@ -3673,6 +3675,11 @@ for application developers.")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before
'install 'disable-cache-generation
(lambda _
(setenv "DESTDIR" "/")
#t))
(add-after (add-after
'install 'wrap-totem 'install 'wrap-totem
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
@ -4366,7 +4373,7 @@ classes for commonly used data structures.")
(define-public gexiv2 (define-public gexiv2
(package (package
(name "gexiv2") (name "gexiv2")
(version "0.10.6") (version "0.10.7")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/" (uri (string-append "mirror://gnome/sources/" name "/"
@ -4374,8 +4381,8 @@ classes for commonly used data structures.")
name "-" version ".tar.xz")) name "-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"09aqsnpah71p9gx0ap2px2dyanrs7jmkkar6q114n9b7js8qh9qk")))) "1f7312zygw77ml37i5qilhfvmjm59dn753ax71rcb2jm1p76vgcb"))))
(build-system gnu-build-system) (build-system meson-build-system)
(native-inputs (native-inputs
`(("glib" ,glib "bin") `(("glib" ,glib "bin")
("pkg-config" ,pkg-config))) ("pkg-config" ,pkg-config)))
@ -4732,6 +4739,10 @@ to display dialog boxes from the commandline and shell scripts.")
;; The following flags are needed for the bundled clutter ;; The following flags are needed for the bundled clutter
"--enable-x11-backend=yes" "--enable-x11-backend=yes"
(string-append "--with-xwayland-path="
(assoc-ref %build-inputs "xorg-server-xwayland")
"/bin/Xwayland")
;; the remaining flags are needed for the bundled cogl ;; the remaining flags are needed for the bundled cogl
"--enable-cogl-gst" "--enable-cogl-gst"
(string-append "--with-gl-libname=" (string-append "--with-gl-libname="
@ -4792,6 +4803,7 @@ to display dialog boxes from the commandline and shell scripts.")
("startup-notification" ,startup-notification) ("startup-notification" ,startup-notification)
("upower-glib" ,upower) ("upower-glib" ,upower)
("xkeyboard-config" ,xkeyboard-config) ("xkeyboard-config" ,xkeyboard-config)
("xorg-server-xwayland" ,xorg-server-xwayland)
("zenity" ,zenity))) ("zenity" ,zenity)))
(synopsis "Window and compositing manager") (synopsis "Window and compositing manager")
(home-page "https://www.gnome.org") (home-page "https://www.gnome.org")
@ -6921,35 +6933,24 @@ views can be printed as PDF or PostScript files, or exported to HTML.")
(define-public lollypop (define-public lollypop
(package (package
(name "lollypop") (name "lollypop")
(version "0.9.304") (version "0.9.306")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/gnumdk/lollypop/" (uri (string-append "https://gitlab.gnome.org/gnumdk/lollypop/uploads/"
"releases/download/" version "/" "b769805b7063ef9807e4e832e7e87ad2/"
name "-" version ".tar.xz")) name "-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"070y6wf1180hbl1ix8al7fmc6y06jb5m14h73g509g4xbwlk62g8")))) "0c49v6793bywvh295xbii9yq21hh3qpmxwbgp9i71kj6r9grvhan"))))
;; TODO: Use meson-build-system (build-system meson-build-system)
(build-system glib-or-gtk-build-system)
(arguments (arguments
`(#:imported-modules ((guix build python-build-system) `(#:imported-modules ((guix build python-build-system)
,@%glib-or-gtk-build-system-modules) ,@%meson-build-system-modules)
#:glib-or-gtk? #t
#:tests? #f ; no test suite #:tests? #f ; no test suite
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'configure)
(replace 'build
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
;; remove post-install script, we update the caches later
(substitute* "meson.build"
(("meson.add_install_script\\('meson_post_install.py'\\)") ""))
(zero?
(system* "meson" "builddir" (string-append "--prefix=" out))))))
(replace 'install
(lambda _ (zero? (system* "ninja" "-C" "builddir" "install"))))
(add-after 'install 'wrap-program (add-after 'install 'wrap-program
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")) (let ((out (assoc-ref outputs "out"))
@ -6962,16 +6963,15 @@ views can be printed as PDF or PostScript files, or exported to HTML.")
(native-inputs (native-inputs
`(("intltool" ,intltool) `(("intltool" ,intltool)
("itstool" ,itstool) ("itstool" ,itstool)
("ninja" ,ninja) ("glib:bin" ,glib "bin") ; For glib-compile-resources
("gtk+:bin" ,gtk+ "bin") ; For gtk-update-icon-cache
("pkg-config" ,pkg-config))) ("pkg-config" ,pkg-config)))
(inputs (inputs
`(("gobject-introspection" ,gobject-introspection) `(("gobject-introspection" ,gobject-introspection)
("gst-plugins-base" ,gst-plugins-base) ("gst-plugins-base" ,gst-plugins-base)
("gtk+" ,gtk+)
("libnotify" ,libnotify) ("libnotify" ,libnotify)
("libsecret" ,libsecret) ("libsecret" ,libsecret)
("libsoup" ,libsoup) ("libsoup" ,libsoup)
("meson" ,meson)
("python" ,python) ("python" ,python)
("python-beautifulsoup4" ,python-beautifulsoup4) ("python-beautifulsoup4" ,python-beautifulsoup4)
("python-gst" ,python-gst) ("python-gst" ,python-gst)

14
gnu/packages/gnupg.scm
View file

@ -369,18 +369,15 @@ libskba (working with X.509 certificates and CMS data).")
(base32 (base32
"1ssc0gs02r4fasabk7c6v6r865k2j02mpb5g1vkpbmzsigdzwa8v")))) "1ssc0gs02r4fasabk7c6v6r865k2j02mpb5g1vkpbmzsigdzwa8v"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs
`(("gnupg" ,gnupg)))
(propagated-inputs (propagated-inputs
;; Needs to be propagated because gpgme.h includes gpg-error.h. ;; Needs to be propagated because gpgme.h includes gpg-error.h.
`(("libgpg-error" ,libgpg-error))) `(("libgpg-error" ,libgpg-error)))
(inputs (inputs
`(("gnupg" ,gnupg) `(("libassuan" ,libassuan)))
("libassuan" ,libassuan)))
(arguments (arguments
`(#:configure-flags `(#:phases
(list (string-append "--enable-fixed-path="
(assoc-ref %build-inputs "gnupg")
"/bin"))
#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'configure 'patch-cmake-file (add-after 'configure 'patch-cmake-file
(lambda _ (lambda _
@ -419,7 +416,8 @@ and every application benefits from this.")
(chdir "lang/qt") (chdir "lang/qt")
#t))))) #t)))))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)
,@(package-native-inputs gpgme)))
(inputs (inputs
`(("gpgme" ,gpgme) `(("gpgme" ,gpgme)
("qtbase" ,qtbase) ("qtbase" ,qtbase)

1
gnu/packages/gnustep.scm
View file

@ -133,6 +133,7 @@ to easily create cross-compiled binaries.")
`(("libxmu" ,libxmu) `(("libxmu" ,libxmu)
("libxft" ,libxft) ("libxft" ,libxft)
("libx11" ,libx11) ("libx11" ,libx11)
("libxinerama" ,libxinerama)
("fontconfig" ,fontconfig) ("fontconfig" ,fontconfig)
("libjpeg" ,libjpeg) ("libjpeg" ,libjpeg)
("giflib" ,giflib) ("giflib" ,giflib)

30
gnu/packages/gnuzilla.scm
View file

@ -482,7 +482,35 @@ security standards.")
(mozilla-patch "icecat-bug-1404105.patch" "2909ba991f31" "126vssj57dc800347f075wlnjzcwamnxxmgxl9w78jpb0hj9gf16") (mozilla-patch "icecat-bug-1404105.patch" "2909ba991f31" "126vssj57dc800347f075wlnjzcwamnxxmgxl9w78jpb0hj9gf16")
(search-patch "icecat-bug-1415133.patch") (search-patch "icecat-bug-1415133.patch")
(mozilla-patch "icecat-bug-1355576.patch" "cf34a0574e58" "1z7sa1d12hypgivm5xxn32s58afpjcij97jvnafcgnfvxywrgr1m") (mozilla-patch "icecat-bug-1355576.patch" "cf34a0574e58" "1z7sa1d12hypgivm5xxn32s58afpjcij97jvnafcgnfvxywrgr1m")
(mozilla-patch "icecat-CVE-2017-7843.patch" "f6216ea8b8fc" "0jnhdkj0ch9mj01mzlvhjgf8zsxlbg6m7yvpq99qr7xmg0pzbgwl"))) (mozilla-patch "icecat-CVE-2017-7843.patch" "f6216ea8b8fc" "0jnhdkj0ch9mj01mzlvhjgf8zsxlbg6m7yvpq99qr7xmg0pzbgwl")
(mozilla-patch "icecat-bug-1413741.patch" "4e00ce2897c4" "0k95vi31glia2i03djidkc0gkwp9qldy34fz1rxcj56a1iphbq7w")
(mozilla-patch "icecat-bug-1224396.patch" "92d450811409" "0xsvggnr0y65nd52nkbjvpcbs5nd84pvbayk5vinbx1mnk2wh2vy")
(mozilla-patch "icecat-bug-1415582.patch" "7eba7d14704a" "1vi17qmjzh3kji14iz370kvs4425asgp93ns2chf5ldlq5b9196g")
(mozilla-patch "icecat-bug-1417797.patch" "457d023c167e" "11g8hg8yp20lsn52dx1ym8r4yjsnsmx0h182d6nbl6ab9wp7d1m9")
(mozilla-patch "icecat-bug-1410134.patch" "5e7b16213198" "14c4x6c3mygf8p77n9bia5rndjpngbvik1r1ylk97k3ggy4fj6zh")
(mozilla-patch "icecat-bug-1419363.patch" "0712b6cbbdc8" "0rllsq6ckpms7g9k6qky1gr5rz1gav4widrha6w1s9f88cbrqgk5")
(mozilla-patch "icecat-bug-1408276.patch" "084c427ccf99" "0sjdy2iang09a9g6liavpjgry04dp6smjgj0y7lp5lfqijdr8q2d")
(mozilla-patch "icecat-bug-1382366.patch" "1bfb3d8d4510" "0c2dcxj74ijs6qf9sqcbj8w998hblic66vy41818z7xnw46j5j1j")
(mozilla-patch "icecat-bug-1414425.patch" "5623e01e63a8" "08dn3v96bsb61hy3wfxz43fhn1mk9vlm5ydvdjgi3wiqadvacgzs")
(mozilla-patch "icecat-bug-1409951.patch" "14a389d40329" "0f4gbak5bd2walxrxs3myig28v9lhvplf3a1nws1a4ajx80slzq1")
(mozilla-patch "icecat-bug-1415441.patch" "7339297cddb7" "017lbw0mn5rwzb2abfw6qrk07m3r96vwbj81cmqvdfnmprcjni5j")
(mozilla-patch "icecat-bug-1418922.patch" "aa55d4cdaee5" "1l3qwjfx0jsbbw2dg8bsnx7k47zibamgswndq0d1bchnmary62aw")
(mozilla-patch "icecat-bug-1382358.patch" "762f4e53889a" "0n61zrb6rz9bhhdsqs5ziwaiy81pq52c76p9qmi9hrxbn24ism1k")
(mozilla-patch "icecat-bug-1399520.patch" "0152d097672f" "16ybg718calvciv00kil8s97lhh11hj6gx0acf73r44xfkvm8nfg")
(search-patch "icecat-bug-1414945.patch")
(mozilla-patch "icecat-bug-1414452.patch" "079356ed5317" "107c0b93g2k743wvhwz2ps3j6p09qld7d0raljijv5y5n8q4wp92")
(mozilla-patch "icecat-bug-1418854.patch" "93e4994a892c" "00r2qxw3619529vy9d04dl9kcziqy3fv3iawgy9svzygyx1kj5wx")
(mozilla-patch "icecat-bug-1422389.patch" "f8a6e1864832" "1wbxn0v50637yjg8b8675k01x9cyx95jpjxpyqfaa97762qkznba")
(mozilla-patch "icecat-bug-1415598.patch" "0cc1c9068714" "1qmqpi14zs7c95k3c7396gpp6apb622k0mgv553kw4rr81nj1yac")
(mozilla-patch "icecat-bug-1418447.patch" "ce6f3fb2bf58" "1b1msb5d5jsgrqa2hkbsrm0n54qdmx1b2bf65v44v17appa03lra")
(mozilla-patch "icecat-bug-1423159.patch" "6b4d3c5d5e51" "074p93dhwr1ckhypkjpblnmg9hg44a9030g1glqffi9dyn3iq3k4")
(mozilla-patch "icecat-bug-1411745.patch" "1a510ee578a0" "1imb7glh2m1zwvvpvr4k4iddms5byqzr35j7kv3y5is77aiwl4z5")
(mozilla-patch "icecat-bug-1411708.patch" "34c968767eb7" "0l2jy201ikj3m3h66mvlsj4y0ki7cpm7x7nnfygbwnfxg42s1sip")
(mozilla-patch "icecat-bug-1423086.patch" "bc166be85bb4" "0w1lrjzfrfflaw4l6sfi3ir81iyi9gyfck5g41dwp0jc1b59jzvg")
(mozilla-patch "icecat-bug-1412145.patch" "66cfc3c4047d" "05j8ic4lv2d2ygr6d62rkdlfyg2rpljalwrkkhllinw2dfi3n15b")
(mozilla-patch "icecat-bug-1399400.patch" "3236ffdf0ced" "1kvk4qyslaj1ldgs1wpxnf79zajcihzcd1zvbrg990i3hgyn3gk3")
(mozilla-patch "icecat-bug-1424373-pt1.patch" "320032aaa068" "1ch282qibprz1q0f2imvynh4sg7gads6sf3ayhjcd62zjncpgyz7")
(search-patch "icecat-bug-1424373-pt2.patch")))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(begin '(begin

29
gnu/packages/gtk.scm
View file

@ -16,6 +16,7 @@
;;; Coypright © 2016 ng0 <ng0@we.make.ritual.n0.is> ;;; Coypright © 2016 ng0 <ng0@we.make.ritual.n0.is>
;;; Coypright © 2017 Roel Janssen <roel@gnu.org> ;;; Coypright © 2017 Roel Janssen <roel@gnu.org>
;;; Coypright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Coypright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Coypright © 2017 Marius Bakke <mbakke@fastmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -1240,7 +1241,7 @@ write GNOME applications.")
(define-public girara (define-public girara
(package (package
(name "girara") (name "girara")
(version "0.2.7") (version "0.2.8")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (uri
@ -1248,19 +1249,31 @@ write GNOME applications.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1r9jbhf9n40zj4ddqv1q5spijpjm683nxg4hr5lnir4a551s7rlq")))) "18wss3sak3djip090v2vdbvq1mvkwcspfswc87zbvv3magihan98"))))
(native-inputs `(("pkg-config" ,pkg-config) (native-inputs `(("pkg-config" ,pkg-config)
("gettext" ,gettext-minimal))) ("check" ,check)
(inputs `(("gtk+" ,gtk+) ("gettext" ,gettext-minimal)
("check" ,check))) ("glib:bin" ,glib "bin")
("xorg-server" ,xorg-server)))
;; Listed in 'Requires.private' of 'girara.pc'.
(propagated-inputs `(("gtk+" ,gtk+)))
(arguments (arguments
`(#:make-flags `(#:make-flags
`(,(string-append "PREFIX=" (assoc-ref %outputs "out")) `(,(string-append "PREFIX=" (assoc-ref %outputs "out"))
"COLOR=0" "CC=gcc") "COLOR=0" "CC=gcc")
#:test-target "test" #:test-target "test"
#:tests? #f ; Tests fail with "Gtk cannot open display:" #:phases (modify-phases %standard-phases
#:phases (delete 'configure)
(modify-phases %standard-phases (delete 'configure)))) (add-before 'check 'start-xserver
;; Tests require a running X server.
(lambda* (#:key inputs #:allow-other-keys)
(let ((xorg-server (assoc-ref inputs "xorg-server"))
(display ":1"))
(setenv "DISPLAY" display)
;; Don't fail due to missing '/etc/machine-id'.
(setenv "DBUS_FATAL_WARNINGS" "0")
(zero? (system (string-append xorg-server "/bin/Xvfb "
display " &")))))))))
(build-system gnu-build-system) (build-system gnu-build-system)
(home-page "https://pwmt.org/projects/girara/") (home-page "https://pwmt.org/projects/girara/")
(synopsis "Library for minimalistic gtk+3 user interfaces") (synopsis "Library for minimalistic gtk+3 user interfaces")

4
gnu/packages/imagemagick.scm
View file

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

9
gnu/packages/irc.scm
View file

@ -58,7 +58,9 @@
#:use-module (gnu packages tcl) #:use-module (gnu packages tcl)
#:use-module (gnu packages time) #:use-module (gnu packages time)
#:use-module (gnu packages tls) #:use-module (gnu packages tls)
#:use-module (gnu packages web)) #:use-module (gnu packages web)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26))
(define-public quassel (define-public quassel
(package (package
@ -182,6 +184,11 @@ SILC and ICB protocols via plugins.")
(arguments (arguments
`(#:configure-flags `(#:configure-flags
(list "-DENABLE_TESTS=ON") ; ‘make test’ fails otherwise (list "-DENABLE_TESTS=ON") ; ‘make test’ fails otherwise
;; Tests hang indefinately on non-Intel platforms.
#:tests? ,(if (any (cute string-prefix? <> (or (%current-target-system)
(%current-system)))
'("i686" "x86_64"))
'#t '#f)
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'disable-failing-tests (add-after 'unpack 'disable-failing-tests

2
gnu/packages/java.scm
View file

@ -2157,7 +2157,7 @@ is implemented.")
(lambda _ (chdir "..") #t))))) (lambda _ (chdir "..") #t)))))
(native-inputs (native-inputs
`(("unzip" ,unzip))) `(("unzip" ,unzip)))
(home-page "http://tukaani.org/xz/java.html") (home-page "https://tukaani.org/xz/java.html")
(synopsis "Implementation of XZ data compression in pure Java") (synopsis "Implementation of XZ data compression in pure Java")
(description "This library aims to be a complete implementation of XZ data (description "This library aims to be a complete implementation of XZ data
compression in pure Java. Single-threaded streamed compression and compression in pure Java. Single-threaded streamed compression and

8
gnu/packages/javascript.scm
View file

@ -371,16 +371,16 @@ means that these shams cause many ES5 methods to silently fail.")
(define-public mujs (define-public mujs
(package (package
(name "mujs") (name "mujs")
(version "1.0.1") (version "1.0.2")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "http://git.ghostscript.com/mujs.git") (url "https://git.ghostscript.com/mujs.git")
(commit version))) (commit version)))
(file-name (string-append name "-" version "-checkout")) (file-name (string-append name "-" version "-checkout"))
(sha256 (sha256
(base32 (base32
"0ch0s3vqs7agf65gbks32bj44nk1dr2s23ki47b0bhdhzvw9q93j")))) "1angy1higk8bvh69frjhq1m6znhd75fzalaydz5rfzkdfyw52jgy"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases (modify-phases %standard-phases '(#:phases (modify-phases %standard-phases
@ -388,7 +388,7 @@ means that these shams cause many ES5 methods to silently fail.")
#:make-flags (list (string-append "prefix=" (assoc-ref %outputs "out")) #:make-flags (list (string-append "prefix=" (assoc-ref %outputs "out"))
(string-append "CC=gcc")) (string-append "CC=gcc"))
#:tests? #f)) ; no tests #:tests? #f)) ; no tests
(home-page "http://dev.mujs.com") (home-page "https://artifex.com/mujs/")
(synopsis "JavaScript interpreter written in C") (synopsis "JavaScript interpreter written in C")
(description "MuJS is a lightweight Javascript interpreter designed for (description "MuJS is a lightweight Javascript interpreter designed for
embedding in other software to extend them with scripting capabilities. MuJS embedding in other software to extend them with scripting capabilities. MuJS

4
gnu/packages/language.scm
View file

@ -197,7 +197,7 @@ both ordinal and cardinal numbers, negative numbers, and very large numbers.")
(define-public perl-lingua-pt-stemmer (define-public perl-lingua-pt-stemmer
(package (package
(name "perl-lingua-pt-stemmer") (name "perl-lingua-pt-stemmer")
(version "0.01") (version "0.02")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -205,7 +205,7 @@ both ordinal and cardinal numbers, negative numbers, and very large numbers.")
"Lingua-PT-Stemmer-" version ".tar.gz")) "Lingua-PT-Stemmer-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"11rqc5pqnkl9c13vy7sihiyas14ci0pj3k6chrgrgjv5sjv2m4a5")))) "17c48sfbgwd2ivlgf59sr6jdhwa3aim8750f8pyzz7xpi8gz0var"))))
(build-system perl-build-system) (build-system perl-build-system)
(home-page "http://search.cpan.org/dist/Lingua-PT-Stemmer") (home-page "http://search.cpan.org/dist/Lingua-PT-Stemmer")
(synopsis "Portuguese language stemming") (synopsis "Portuguese language stemming")

10
gnu/packages/libevent.scm
View file

@ -110,11 +110,11 @@ loop.")
(home-page "http://software.schmorp.de/pkg/libev.html") (home-page "http://software.schmorp.de/pkg/libev.html")
(synopsis "Event loop loosely modelled after libevent") (synopsis "Event loop loosely modelled after libevent")
(description (description
"libev is a full-featured and high-performance event loop that "libev provides a full-featured and high-performance event loop that is
is loosely modelled after libevent, but without its limitations and loosely modelled after libevent. It includes relative timers, absolute timers
bugs. It is used in GNU Virtual Private Ethernet, rxvt-unicode, with customized rescheduling, synchronous signals, process status change
auditd, the Deliantra MORPG Server and Client, and many other events, event watchers dealing with the event loop itself, file watchers, and
programs.") limited support for fork events.")
(license (license
(list bsd-2 gpl2+)))) (list bsd-2 gpl2+))))

3
gnu/packages/libreoffice.scm
View file

@ -405,7 +405,8 @@ Apple Keynote documents. It currently supports Keynote versions 2 to 5.")
("pkg-config" ,pkg-config))) ("pkg-config" ,pkg-config)))
(inputs (inputs
`(("libxml2" ,libxml2))) `(("libxml2" ,libxml2)))
(home-page "http://tagoh.bitbucket.org/liblangtag/") ;; As of December 2017, tagoh.bitbucket.org redirects to a hosting advert.
(home-page "https://bitbucket.org/tagoh/liblangtag")
(synopsis "Library to access tags for identifying languages") (synopsis "Library to access tags for identifying languages")
(description "Liblangtag implements an interface to work with tags (description "Liblangtag implements an interface to work with tags
for identifying languages as described in RFC 5646. It supports the for identifying languages as described in RFC 5646. It supports the

53
gnu/packages/libupnp.scm
View file

@ -1,53 +0,0 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
;;;
;;; 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 libupnp)
#:use-module (gnu packages)
#:use-module (guix licenses)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu))
(define-public libupnp
(package
(name "libupnp")
(version "1.6.21")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/pupnp/pupnp/libUPnP%20"
version "/" name "-" version ".tar.bz2"))
(sha256
(base32
"16x3z6jg1krwyydmbd0z59z5c9x4pniaajmfmnp5pmx18q43qgxg"))))
(build-system gnu-build-system)
(arguments
;; The tests require a network device capable of multicasting which is
;; not available in the build environment. See
;; https://lists.gnu.org/archive/html/guix-devel/2015-01/msg00312.html.
`(#:tests? #f
#:configure-flags '("--enable-ipv6")))
(home-page "http://pupnp.sourceforge.net")
(synopsis "Portable SDK for UPnP Devices")
(description
"The portable SDK for UPnP Devices (libupnp) provides developers with an
API and code for building control points, devices, and bridges that are
compliant with Version 1.0 of the Universal Plug and Play Device Architecture
Specification and support several operating systems like Linux, *BSD, Solaris
and others.")
(license bsd-3)))

61
gnu/packages/libusb.scm
View file

@ -352,3 +352,64 @@ HID-Class devices.")
(license (list gpl3 (license (list gpl3
bsd-3 bsd-3
(non-copyleft "file://LICENSE-orig.txt"))))) (non-copyleft "file://LICENSE-orig.txt")))))
(define-public python-hidapi
(package
(name "python-hidapi")
(version "0.7.99.post21")
(source
(origin
(method url-fetch)
(uri (pypi-uri "hidapi" version))
(sha256
(base32
"15ws59zdrxahf3k7z5rcrwc4jgv1307anif8ixm2cyb9ask1mgp0"))
(modules '((guix build utils)))
(snippet
;; Remove bundled libraries.
'(begin
(delete-file-recursively "hidapi")
#t))))
(build-system python-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-configuration
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "setup.py"
(("'/usr/include/libusb-1.0'")
(string-append "'" (assoc-ref inputs "libusb")
"/include/libusb-1.0'"))
(("'/usr/include/hidapi'")
(string-append "'" (assoc-ref inputs "hidapi")
"/include/hidapi'")))
#t))
;; XXX Necessary because python-build-system drops the arguments.
(replace 'build
(lambda _
(invoke "python" "setup.py" "build" "--with-system-hidapi")))
(replace 'check
(lambda _
(invoke "python" "setup.py" "test" "--with-system-hidapi")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(invoke "python" "setup.py" "install" "--with-system-hidapi"
(string-append "--prefix=" (assoc-ref outputs "out"))
"--single-version-externally-managed" "--root=/"))))))
(inputs
`(("hidapi" ,hidapi)
("libusb" ,libusb)
("eudev" ,eudev)))
(native-inputs
`(("python-cython" ,python-cython)))
(home-page "https://github.com/trezor/cython-hidapi")
(synopsis "Cython interface to hidapi")
(description "This package provides a Cython interface to @code{hidapi}.")
;; The library can be used under either of these licenses.
(license (list gpl3 bsd-3
(non-copyleft
"https://github.com/trezor/cython-hidapi/blob/master/LICENSE-orig.txt"
"You are free to use cython-hidapi code for any purpose.")))))
(define-public python2-hidapi
(package-with-python2 python-hidapi))

12
gnu/packages/linux.scm
View file

@ -370,8 +370,8 @@ It has been modified to remove all non-free binary blobs.")
(define %intel-compatible-systems '("x86_64-linux" "i686-linux")) (define %intel-compatible-systems '("x86_64-linux" "i686-linux"))
(define %linux-compatible-systems '("x86_64-linux" "i686-linux" "armhf-linux")) (define %linux-compatible-systems '("x86_64-linux" "i686-linux" "armhf-linux"))
(define %linux-libre-version "4.14.8") (define %linux-libre-version "4.14.10")
(define %linux-libre-hash "0y8nggpdgfqfx6dy5k39vj552k5mxamwjn6mldwrhs2aqpsrbwr3") (define %linux-libre-hash "05l3r8i34l6b6mlgkia4xvlpc6h9nfwhsb74fy8g9dfbklx51zc8")
;; linux-libre configuration for armhf-linux is derived from Debian armmp. It ;; linux-libre configuration for armhf-linux is derived from Debian armmp. It
;; supports qemu "virt" machine and possibly a large number of ARM boards. ;; supports qemu "virt" machine and possibly a large number of ARM boards.
@ -384,14 +384,14 @@ It has been modified to remove all non-free binary blobs.")
#:configuration-file kernel-config)) #:configuration-file kernel-config))
(define-public linux-libre-4.9 (define-public linux-libre-4.9
(make-linux-libre "4.9.71" (make-linux-libre "4.9.73"
"0z4m77zbndlqy43bgl1xhklpjilbvrhbfbcppc55z3f61qwjf0mc" "0a5xgy7g7sb3439brv4hvpb2hjzs22nhibz8vxdmi4sqaqchh9r7"
%intel-compatible-systems %intel-compatible-systems
#:configuration-file kernel-config)) #:configuration-file kernel-config))
(define-public linux-libre-4.4 (define-public linux-libre-4.4
(make-linux-libre "4.4.107" (make-linux-libre "4.4.108"
"0pfzv15c1qj7a77n8cdmsi77yhlbzv35y7qa03j0b96ajwjsclsp" "1cwcpp76m4k69lv7h09j3mlgm6jva4bnsykps35ffmbv9sw71wma"
%intel-compatible-systems %intel-compatible-systems
#:configuration-file kernel-config)) #:configuration-file kernel-config))

5
gnu/packages/lisp.scm
View file

@ -7,6 +7,7 @@
;;; Copyright © 2016, 2017 Andy Patterson <ajpatter@uwaterloo.ca> ;;; Copyright © 2016, 2017 Andy Patterson <ajpatter@uwaterloo.ca>
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -791,7 +792,7 @@ thin compatibility layer for gray streams.")
(define-public sbcl-flexi-streams (define-public sbcl-flexi-streams
(package (package
(name "sbcl-flexi-streams") (name "sbcl-flexi-streams")
(version "1.0.12") (version "1.0.16")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -799,7 +800,7 @@ thin compatibility layer for gray streams.")
"https://github.com/edicl/flexi-streams/archive/v" "https://github.com/edicl/flexi-streams/archive/v"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 "16grnxvs7vqm5s6myf8a5s7vwblzq1kgwj8i7ahz8vwvihm9gzfi")) (base32 "1fb0jrwxr5c3i2lhy7kn30m1n0vggfzwjm1dacx6y5wf9wfsbamw"))
(file-name (string-append "flexi-streams-" version ".tar.gz")))) (file-name (string-append "flexi-streams-" version ".tar.gz"))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(inputs `(("trivial-gray-streams" ,sbcl-trivial-gray-streams))) (inputs `(("trivial-gray-streams" ,sbcl-trivial-gray-streams)))

8
gnu/packages/llvm.scm
View file

@ -76,7 +76,7 @@
(setenv "LD_LIBRARY_PATH" (setenv "LD_LIBRARY_PATH"
(string-append (getcwd) "/lib")) (string-append (getcwd) "/lib"))
#t))))) #t)))))
(home-page "http://www.llvm.org") (home-page "https://www.llvm.org")
(synopsis "Optimizing compiler infrastructure") (synopsis "Optimizing compiler infrastructure")
(description (description
"LLVM is a compiler infrastructure designed for compile-time, link-time, "LLVM is a compiler infrastructure designed for compile-time, link-time,
@ -116,7 +116,7 @@ of programming tools as well as libraries with equivalent functionality.")
`(;; Don't use '-g' during the build to save space. `(;; Don't use '-g' during the build to save space.
#:build-type "Release" #:build-type "Release"
#:tests? #f)) ; Tests require gtest #:tests? #f)) ; Tests require gtest
(home-page "http://compiler-rt.llvm.org") (home-page "https://compiler-rt.llvm.org")
(synopsis "Runtime library for Clang/LLVM") (synopsis "Runtime library for Clang/LLVM")
(description (description
"The \"clang-runtime\" library provides the implementations of run-time "The \"clang-runtime\" library provides the implementations of run-time
@ -125,7 +125,7 @@ and C++ source code to interface with the \"sanitization\" passes of the clang
compiler. In LLVM this library is called \"compiler-rt\".") compiler. In LLVM this library is called \"compiler-rt\".")
(license license:ncsa) (license license:ncsa)
;; <http://compiler-rt.llvm.org/> doesn't list MIPS as supported. ;; <https://compiler-rt.llvm.org/> doesn't list MIPS as supported.
(supported-systems (delete "mips64el-linux" %supported-systems)))) (supported-systems (delete "mips64el-linux" %supported-systems))))
(define* (clang-from-llvm llvm clang-runtime hash (define* (clang-from-llvm llvm clang-runtime hash
@ -200,7 +200,7 @@ compiler. In LLVM this library is called \"compiler-rt\".")
(variable "LIBRARY_PATH") (variable "LIBRARY_PATH")
(files '("lib" "lib64"))))) (files '("lib" "lib64")))))
(home-page "http://clang.llvm.org") (home-page "https://clang.llvm.org")
(synopsis "C language family frontend for LLVM") (synopsis "C language family frontend for LLVM")
(description (description
"Clang is a compiler front end for the C, C++, Objective-C and "Clang is a compiler front end for the C, C++, Objective-C and

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

@ -492,7 +492,7 @@ in terms of new algorithms.")
("r-rcpparmadillo" ,r-rcpparmadillo))) ("r-rcpparmadillo" ,r-rcpparmadillo)))
(inputs (inputs
`(("armadillo" ,armadillo))) `(("armadillo" ,armadillo)))
(home-page "http://cran.r-project.org/web/packages/AdaptiveSparsity") (home-page "https://cran.r-project.org/web/packages/AdaptiveSparsity")
(synopsis "Adaptive sparsity models") (synopsis "Adaptive sparsity models")
(description (description
"This package implements the Figueiredo machine learning algorithm for "This package implements the Figueiredo machine learning algorithm for
@ -512,7 +512,7 @@ geometric models.")
(base32 (base32
"0qnaq9x3j2xc6jrmmd98wc6hkzch487s4p3a9lnc00xvahkhgpmr")))) "0qnaq9x3j2xc6jrmmd98wc6hkzch487s4p3a9lnc00xvahkhgpmr"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/kernlab") (home-page "https://cran.r-project.org/web/packages/kernlab")
(synopsis "Kernel-based machine learning tools") (synopsis "Kernel-based machine learning tools")
(description (description
"This package provides kernel-based machine learning methods for "This package provides kernel-based machine learning methods for

4
gnu/packages/mail.scm
View file

@ -1137,7 +1137,7 @@ facilities for checking incoming mail.")
(define-public dovecot (define-public dovecot
(package (package
(name "dovecot") (name "dovecot")
(version "2.2.33.2") (version "2.3.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -1145,7 +1145,7 @@ facilities for checking incoming mail.")
(version-major+minor version) "/" (version-major+minor version) "/"
name "-" version ".tar.gz")) name "-" version ".tar.gz"))
(sha256 (base32 (sha256 (base32
"117f9i62liz2pm96zi2lpldzlj2knzj7g410zhifwmlsc1w3n7py")))) "10c5myzgys866c3x6jdr1s9x9pqnjd5vpyz8z384sph21m3wnq6y"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))

4
gnu/packages/man.scm
View file

@ -38,7 +38,7 @@
(define-public libpipeline (define-public libpipeline
(package (package
(name "libpipeline") (name "libpipeline")
(version "1.4.2") (version "1.5.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -46,7 +46,7 @@
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1gkrfqkphdc6gk8gic68asallj59i3cfq6nd31ppks0cljdgrwgy")))) "0avg525wvifcvjrwa6i1r6kvahmsswj0mpxrsxzzdzra9wpf2whd"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(home-page "http://libpipeline.nongnu.org/") (home-page "http://libpipeline.nongnu.org/")
(synopsis "C library for manipulating pipelines of subprocesses") (synopsis "C library for manipulating pipelines of subprocesses")

7
gnu/packages/markup.scm
View file

@ -3,6 +3,7 @@
;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 ng0 <ng0@infotropique.org> ;;; Copyright © 2017 ng0 <ng0@infotropique.org>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -193,7 +194,7 @@ implementation.
(define-public cmark (define-public cmark
(package (package
(name "cmark") (name "cmark")
(version "0.28.0") (version "0.28.3")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/jgm/cmark/archive/" (uri (string-append "https://github.com/jgm/cmark/archive/"
@ -201,7 +202,7 @@ implementation.
(file-name (string-append name "-" version ".tar.gz")) (file-name (string-append name "-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"03pypf2mcacfa7lrwz66lh5hydsycc33arp1nx1lljbq98gikkv8")))) "1z71pacl3ni1286c206pl8lazbcd32ackivsg3zibdf1sf2qdjdc"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
'(#:test-target "test")) '(#:test-target "test"))
@ -210,7 +211,7 @@ implementation.
(description "CommonMark is a strongly defined, highly compatible (description "CommonMark is a strongly defined, highly compatible
specification of Markdown. cmark is the C reference implementation of specification of Markdown. cmark is the C reference implementation of
CommonMark. It provides @code{libcmark} shared library for parsing CommonMark. It provides @code{libcmark} shared library for parsing
CommonMark to an abstract syntax tree (AST) and rendering the document CommonMark to an abstract syntax tree (@dfn{AST}) and rendering the document
as HTML, groff man, LaTeX, CommonMark, or an XML representation of the as HTML, groff man, LaTeX, CommonMark, or an XML representation of the
AST. The package also provides the command-line program @command{cmark} AST. The package also provides the command-line program @command{cmark}
for parsing and rendering CommonMark.") for parsing and rendering CommonMark.")

777
gnu/packages/mate.scm
View file

@ -27,29 +27,68 @@
#:use-module (guix build-system glib-or-gtk) #:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system trivial) #:use-module (guix build-system trivial)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages attr)
#:use-module (gnu packages autotools)
#:use-module (gnu packages backup)
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages compression)
#:use-module (gnu packages djvu)
#:use-module (gnu packages docbook) #:use-module (gnu packages docbook)
#:use-module (gnu packages documentation) #:use-module (gnu packages documentation)
#:use-module (gnu packages enchant)
#:use-module (gnu packages file)
#:use-module (gnu packages fonts) #:use-module (gnu packages fonts)
#:use-module (gnu packages fontutils) #:use-module (gnu packages fontutils)
#:use-module (gnu packages freedesktop) #:use-module (gnu packages freedesktop)
#:use-module (gnu packages gettext) #:use-module (gnu packages gettext)
#:use-module (gnu packages ghostscript)
#:use-module (gnu packages glib) #:use-module (gnu packages glib)
#:use-module (gnu packages gnome) #:use-module (gnu packages gnome)
#:use-module (gnu packages gnupg) #:use-module (gnu packages gnupg)
#:use-module (gnu packages gnuzilla) #:use-module (gnu packages gnuzilla)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages image)
#:use-module (gnu packages imagemagick)
#:use-module (gnu packages iso-codes)
#:use-module (gnu packages javascript)
#:use-module (gnu packages libcanberra) #:use-module (gnu packages libcanberra)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages messaging)
#:use-module (gnu packages nettle)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
#:use-module (gnu packages pdf)
#:use-module (gnu packages photo) #:use-module (gnu packages photo)
#:use-module (gnu packages polkit) #:use-module (gnu packages polkit)
#:use-module (gnu packages pulseaudio) #:use-module (gnu packages pulseaudio)
#:use-module (gnu packages python) #:use-module (gnu packages python)
#:use-module (gnu packages tex)
#:use-module (gnu packages webkit)
#:use-module (gnu packages xdisorg) #:use-module (gnu packages xdisorg)
#:use-module (gnu packages xml) #:use-module (gnu packages xml)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages xorg)) #:use-module (gnu packages xorg))
(define-public mate-common
(package
(name "mate-common")
(version "1.18.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://pub.mate-desktop.org/releases/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"1005laf3z1h8qczm7pmwr40r842665cv6ykhjg7r93vldra48z6p"))))
(build-system gnu-build-system)
(home-page "https://mate-desktop.org/")
(synopsis "Common files for development of MATE packages")
(description
"Mate Common includes common files and macros used by
MATE applications.")
(license license:gpl3+)))
(define-public mate-icon-theme (define-public mate-icon-theme
(package (package
(name "mate-icon-theme") (name "mate-icon-theme")
@ -73,6 +112,44 @@
"This package contains the default icon theme used by the MATE desktop.") "This package contains the default icon theme used by the MATE desktop.")
(license license:lgpl3+))) (license license:lgpl3+)))
(define-public mate-icon-theme-faenza
(package
(name "mate-icon-theme-faenza")
(version "1.18.1")
(source (origin
(method url-fetch)
(uri (string-append "https://pub.mate-desktop.org/releases/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"0vc3wg9l5yrxm0xmligz4lw2g3nqj1dz8fwv90xvym8pbjds2849"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'autoconf
(lambda _
(setenv "SHELL" (which "sh"))
(setenv "CONFIG_SHELL" (which "sh"))
(invoke "sh" "autogen.sh"))))))
(native-inputs
`(("autoconf" ,(autoconf-wrapper))
("automake" ,automake)
("intltool" ,intltool)
("icon-naming-utils" ,icon-naming-utils)
("libtool" ,libtool)
("mate-common" ,mate-common)
("pkg-config" ,pkg-config)
("which" ,which)))
(home-page "https://mate-desktop.org/")
(synopsis "MATE desktop environment icon theme faenza")
(description
"Icon theme using Faenza and Faience icon themes and some
customized icons for MATE. Furthermore it includes some icons
from Mint-X-F and Faenza-Fresh icon packs.")
(license license:gpl2+)))
(define-public mate-themes (define-public mate-themes
(package (package
(name "mate-themes") (name "mate-themes")
@ -235,6 +312,29 @@ configurations (profiles).")
(base32 (base32
"0i0xq6041x2qmb26x9bawx0qpfkgjn6x9w3phnm9s7rc4s0z20ll")))) "0i0xq6041x2qmb26x9bawx0qpfkgjn6x9w3phnm9s7rc4s0z20ll"))))
(build-system glib-or-gtk-build-system) (build-system glib-or-gtk-build-system)
(arguments
`(#:configure-flags (list "--enable-elogind"
"--disable-schemas-compile")
#:phases
(modify-phases %standard-phases
(add-before 'configure 'pre-configure
(lambda* (#:key outputs #:allow-other-keys)
;; Use elogind instead of systemd.
(substitute* "configure"
(("libsystemd-login")
"libelogind")
(("systemd") "elogind"))
(substitute* "mate-session/gsm-systemd.c"
(("#include <systemd/sd-login.h>")
"#include <elogind/sd-login.h>"))
;; Remove uses of the systemd journal.
(substitute* "mate-session/main.c"
(("#ifdef HAVE_SYSTEMD") "#if 0"))
(substitute* "mate-session/gsm-manager.c"
(("#ifdef HAVE_SYSTEMD") "#if 0"))
(substitute* "mate-session/gsm-autostart-app.c"
(("#ifdef HAVE_SYSTEMD") "#if 0"))
#t)))))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("intltool" ,intltool) ("intltool" ,intltool)
@ -243,6 +343,7 @@ configurations (profiles).")
(inputs (inputs
`(("gtk+" ,gtk+) `(("gtk+" ,gtk+)
("dbus-glib" ,dbus-glib) ("dbus-glib" ,dbus-glib)
("elogind" ,elogind)
("libsm" ,libsm) ("libsm" ,libsm)
("mate-desktop" ,mate-desktop))) ("mate-desktop" ,mate-desktop)))
(home-page "https://mate-desktop.org/") (home-page "https://mate-desktop.org/")
@ -583,6 +684,111 @@ the Window List, the Window Selector, the Notification Area, the Clock and the
infamous 'Wanda the Fish'.") infamous 'Wanda the Fish'.")
(license (list license:gpl2+ license:lgpl2.0+)))) (license (list license:gpl2+ license:lgpl2.0+))))
(define-public atril
(package
(name "atril")
(version "1.18.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://pub.mate-desktop.org/releases/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"1wl332v80c0nzz7nw36d1pfmbiibvl3l0i4d25ihg6mg9wbc0145"))))
(build-system glib-or-gtk-build-system)
(arguments
`(#:configure-flags (list (string-append "--with-openjpeg="
(assoc-ref %build-inputs "openjpeg"))
"--enable-introspection"
"--with-gtk=3.0"
"--disable-schemas-compile"
;; FIXME: Enable build of Caja extensions.
"--disable-caja")
#:tests? #f
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-mathjax-path
(lambda _
(let* ((mathjax (assoc-ref %build-inputs "js-mathjax"))
(mathjax-path (string-append mathjax
"/share/javascript/mathjax")))
(substitute* "backend/epub/epub-document.c"
(("/usr/share/javascript/mathjax")
mathjax-path)))
#t))
(add-after 'unpack 'fix-introspection-install-dir
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(substitute* '("configure")
(("\\$\\(\\$PKG_CONFIG --variable=girdir gobject-introspection-1.0\\)")
(string-append "\"" out "/share/gir-1.0/\""))
(("\\$\\(\\$PKG_CONFIG --variable=typelibdir gobject-introspection-1.0\\)")
(string-append out "/lib/girepository-1.0/")))
#t)))
(add-before 'install 'skip-gtk-update-icon-cache
;; Don't create 'icon-theme.cache'.
(lambda _
(substitute* "data/Makefile"
(("gtk-update-icon-cache") "true"))
#t)))))
(native-inputs
`(("pkg-config" ,pkg-config)
("intltool" ,intltool)
("itstool" ,itstool)
("yelp-tools" ,yelp-tools)
("glib:bin" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("gtk-doc" ,gtk-doc)
("xmllint" ,libxml2)
("zlib" ,zlib)))
(inputs
`(("atk" ,atk)
("cairo" ,cairo)
("caja" ,caja)
("dconf" ,dconf)
("dbus" ,dbus)
("dbus-glib" ,dbus-glib)
("djvulibre" ,djvulibre)
("fontconfig" ,fontconfig)
("freetype" ,freetype)
("ghostscript" ,ghostscript)
("glib" ,glib)
("gtk+" ,gtk+)
("js-mathjax" ,js-mathjax)
("libcanberra" ,libcanberra)
("libsecret" ,libsecret)
("libspectre" ,libspectre)
("libtiff" ,libtiff)
("libx11" ,libx11)
("libice" ,libice)
("libsm" ,libsm)
("libgxps" ,libgxps)
("libjpeg" ,libjpeg)
("libxml2" ,libxml2)
("dogtail" ,python2-dogtail)
("shared-mime-info" ,shared-mime-info)
("gdk-pixbuf" ,gdk-pixbuf)
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
("libgnome-keyring" ,libgnome-keyring)
("libarchive" ,libarchive)
("marco" ,marco)
("nettle" ,nettle)
("openjpeg" ,openjpeg-1)
("pango" ,pango)
;;("texlive" ,texlive)
;; TODO:
;; Build libkpathsea as a shared library for DVI support.
;; ("libkpathsea" ,texlive-bin)
("poppler" ,poppler)
("webkitgtk" ,webkitgtk)))
(home-page "https://mate-desktop.org")
(synopsis "Document viewer for Mate")
(description
"Document viewer for Mate")
(license license:gpl2)))
(define-public caja (define-public caja
(package (package
(name "caja") (name "caja")
@ -626,6 +832,10 @@ infamous 'Wanda the Fish'.")
("libxml2" ,libxml2) ("libxml2" ,libxml2)
("mate-desktop" ,mate-desktop) ("mate-desktop" ,mate-desktop)
("startup-notification" ,startup-notification))) ("startup-notification" ,startup-notification)))
(native-search-paths
(list (search-path-specification
(variable "CAJA_EXTENSIONDIR")
(files (list "lib/caja/extensions-2.0/**")))))
(home-page "https://mate-desktop.org/") (home-page "https://mate-desktop.org/")
(synopsis "File manager for the MATE desktop") (synopsis "File manager for the MATE desktop")
(description (description
@ -638,6 +848,61 @@ icons on the MATE desktop. It works on local and remote filesystems.")
;; for us. ;; for us.
(license license:gpl2+))) (license license:gpl2+)))
(define-public caja-extensions
(package
(name "caja-extensions")
(version "1.18.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://pub.mate-desktop.org/releases/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"0hgala7zkfsa60jflq3s4n9yd11dhfdcla40l83cmgc3r1az7cmw"))))
(build-system glib-or-gtk-build-system)
(arguments
`(#:configure-flags (list "--enable-sendto"
;; TODO: package "gupnp" to enable 'upnp', package
;; "gksu" to enable 'gksu'.
(string-append "--with-sendto-plugins=removable-devices,"
"caja-burn,emailclient,pidgin,gajim")
"--enable-image-converter"
"--enable-open-terminal" "--enable-share"
"--enable-wallpaper" "--enable-xattr-tags"
(string-append "--with-cajadir="
(assoc-ref %outputs "out")
"/lib/caja/extensions-2.0/"))))
(native-inputs
`(("intltool" ,intltool)
("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("gtk-doc" ,gtk-doc)
("pkg-config" ,pkg-config)))
(inputs
`(("attr" ,attr)
("brasero" ,brasero)
("caja" ,caja)
("dbus" ,dbus)
("dbus-glib" ,dbus-glib)
("gajim" ,gajim) ;runtime only?
("gtk+" ,gtk+)
("imagemagick" ,imagemagick)
("graphicsmagick" ,graphicsmagick)
("mate-desktop" ,mate-desktop)
("pidgin" ,pidgin) ;runtime only?
("startup-notification" ,startup-notification)))
(home-page "https://mate-desktop.org/")
(synopsis "Extensions for the File manager Caja")
(description
"Caja is the official file manager for the MATE desktop.
It allows for browsing directories, as well as previewing files and launching
applications associated with them. Caja is also responsible for handling the
icons on the MATE desktop. It works on local and remote filesystems.")
(license license:gpl2+)))
(define-public mate-control-center (define-public mate-control-center
(package (package
(name "mate-control-center") (name "mate-control-center")
@ -754,6 +1019,505 @@ some users; these users may want to investigate other available window managers
for use with MATE or as a standalone window manager.") for use with MATE or as a standalone window manager.")
(license license:gpl2+))) (license license:gpl2+)))
(define-public mate-user-guide
(package
(name "mate-user-guide")
(version "1.18.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://pub.mate-desktop.org/releases/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"0f3b46r9a3cywm7rpj08xlkfnlfr9db58xfcpix8i33qp50fxqmb"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'adjust-desktop-file
(lambda* (#:key inputs #:allow-other-keys)
(let* ((yelp (assoc-ref inputs "yelp")))
(substitute* "mate-user-guide.desktop.in.in"
(("yelp")
(string-append yelp "/bin/yelp"))))
#t)))))
(native-inputs
`(("pkg-config" ,pkg-config)
("intltool" ,intltool)
("gettext" ,gettext-minimal)
("yelp-tools" ,yelp-tools)
("yelp-xsl" ,yelp-xsl)))
(inputs
`(("yelp" ,yelp)))
(home-page "https://mate-desktop.org/")
(synopsis "User Documentation for Mate software")
(description
"MATE User Guide is a collection of documentation which details
general use of the MATE Desktop environment. Topics covered include
sessions, panels, menus, file management, and preferences.")
(license (list license:fdl1.1+ license:gpl2+))))
(define-public mate-calc
(package
(name "mate-calc")
(version "1.18.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://pub.mate-desktop.org/releases/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"0qfs6kx2nymbn6j3mnzgvk8p54ghc78jslsf4wjqsdq021qyl0ly"))))
(build-system glib-or-gtk-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("intltool" ,intltool)
("pkg-config" ,pkg-config)
("yelp-tools" ,yelp-tools)))
(inputs
`(("atk" ,atk)
("glib" ,glib)
("gtk+" ,gtk+)
("libxml2" ,libxml2)
("libcanberra" ,libcanberra)
("pango" ,pango)))
(home-page "https://mate-desktop.org/")
(synopsis "Calculator for MATE")
(description
"Mate Calc is the GTK+ calculator application for the MATE Desktop.")
(license license:gpl2+)))
(define-public mate-backgrounds
(package
(name "mate-backgrounds")
(version "1.18.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://pub.mate-desktop.org/releases/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"06q8ksjisijps2wn959arywsimhzd3j35mqkr048c26ck24d60zi"))))
(build-system glib-or-gtk-build-system)
(native-inputs
`(("intltool" ,intltool)))
(home-page "https://mate-desktop.org/")
(synopsis "Calculator for MATE")
(description
"This package contains a collection of graphics files which
can be used as backgrounds in the MATE Desktop environment.")
(license license:gpl2+)))
(define-public mate-netbook
(package
(name "mate-netbook")
(version "1.18.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://pub.mate-desktop.org/releases/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"0zj4x9qis8dw0irxzb4va1189k8bqbvymxq3h7phnjwvr1m983gf"))))
(build-system glib-or-gtk-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("intltool" ,intltool)
("pkg-config" ,pkg-config)))
(inputs
`(("cairo" ,cairo)
("glib" ,glib)
("gtk+" ,gtk+)
("libfakekey" ,libfakekey)
("libwnck" ,libwnck)
("libxtst" ,libxtst)
("libx11" ,libx11)
("mate-panel" ,mate-panel)
("xproto" ,xproto)))
(home-page "https://mate-desktop.org/")
(synopsis "Tool for MATE on Netbooks")
(description
"Mate Netbook is a simple window management tool which:
@enumerate
@item Allows you to set basic rules for a window type, such as maximise|undecorate
@item Allows exceptions to the rules, based on string matching for window name
and window class.
@item Allows 'reversing' of rules when the user manually changes something:
Re-decorates windows on un-maximise.
@end enumerate\n")
(license license:gpl3+)))
(define-public mate-screensaver
(package
(name "mate-screensaver")
(version "1.18.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://pub.mate-desktop.org/releases/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"0dfi10faf1fnvrm7c7wnfqg35ygq09ws1vjyv8394jlf0nn39g9j"))))
(build-system glib-or-gtk-build-system)
(arguments
`(#:configure-flags
;; FIXME: There is a permissions problem with screen locking
;; which effectively locks you out completely. Enable locking
;; once this has been fixed.
(list "--enable-locking" "--with-kbd-layout-indicator"
"--with-xf86gamma-ext" "--enable-pam"
"--disable-schemas-compile" "--without-console-kit")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'autoconf
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(dbus-dir (string-append out "/share/dbus-1/services")))
(setenv "SHELL" (which "sh"))
(setenv "CONFIG_SHELL" (which "sh"))
(substitute* "configure"
(("dbus-1") ""))))))))
(native-inputs
`(("automake" ,automake)
("autoconf" ,(autoconf-wrapper))
("gettext" ,gettext-minimal)
("intltool" ,intltool)
("kbproto" ,kbproto)
("mate-common" ,mate-common)
("pkg-config" ,pkg-config)
("randrproto" ,randrproto)
("renderproto" ,renderproto)
("scrnsaverproto" ,scrnsaverproto)
("which" ,which)
("xextpro" ,xextproto)
("xproto" ,xproto)))
(inputs
`(("cairo" ,cairo)
("dconf" ,dconf)
("dbus" ,dbus)
("dbus-glib" ,dbus-glib)
("glib" ,glib)
("gtk+" ,gtk+)
("gdk-pixbuf" ,gdk-pixbuf+svg)
("libcanberra" ,libcanberra)
("libglade" ,libglade)
("libmatekbd" ,libmatekbd)
("libnotify" ,libnotify)
("libx11" ,libx11)
("libxext" ,libxext)
("libxklavier" ,libxklavier)
("libxrandr" ,libxrandr)
("libxrender" ,libxrender)
("libxscrnsaver" ,libxscrnsaver)
("libxxf86vm" ,libxxf86vm)
("linux-pam" ,linux-pam)
("mate-desktop" ,mate-desktop)
("mate-menus" ,mate-menus)
("pango" ,pango)
("startup-notification" ,startup-notification)))
(home-page "https://mate-desktop.org/")
(synopsis "Screensaver for MATE")
(description
"MATE backgrounds package contains a collection of graphics files which
can be used as backgrounds in the MATE Desktop environment.")
(license license:gpl2+)))
(define-public mate-utils
(package
(name "mate-utils")
(version "1.18.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://pub.mate-desktop.org/releases/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"0wr395dqfigj19ps0d76ycgwfljl9xxgs1a1g5wx6kcz5mvhzn5v"))))
(build-system glib-or-gtk-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("gtk-doc" ,gtk-doc)
("intltool" ,intltool)
("libice" ,libice)
("libsm" ,libsm)
("pkg-config" ,pkg-config)
("scrollkeeper" ,scrollkeeper)
("xextpro" ,xextproto)
("xproto" ,xproto)
("yelp-tools" ,yelp-tools)))
(inputs
`(("atk" ,atk)
("cairo" ,cairo)
("glib" ,glib)
("gtk+" ,gtk+)
("gdk-pixbuf" ,gdk-pixbuf+svg)
("libcanberra" ,libcanberra)
("libgtop" ,libgtop)
("libx11" ,libx11)
("libxext" ,libxext)
("mate-panel" ,mate-panel)
("pango" ,pango)
("zlib" ,zlib)))
(home-page "https://mate-desktop.org/")
(synopsis "Utilities for the MATE Desktop")
(description
"Mate Utilities for the MATE Desktop containing:
@enumerate
@item mate-system-log
@item mate-search-tool
@item mate-dictionary
@item mate-screenshot
@item mate-disk-usage-analyzer
@end enumerate\n")
(license (list license:gpl2
license:fdl1.1+
license:lgpl2.1))))
(define-public eom
(package
(name "eom")
(version "1.18.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://pub.mate-desktop.org/releases/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"00ns7g7qykakc89lijrw2vwy9x9ijqiyvmnd4sw0j6py90zs8m87"))))
(build-system glib-or-gtk-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("gtk-doc" ,gtk-doc)
("gobject-introspection" ,gobject-introspection)
("intltool" ,intltool)
("pkg-config" ,pkg-config)
("yelp-tools" ,yelp-tools)))
(inputs
`(("atk" ,atk)
("cairo" ,cairo)
("dconf" ,dconf)
("dbus" ,dbus)
("dbus-glib" ,dbus-glib)
("exempi" ,exempi)
("glib" ,glib)
("gtk+" ,gtk+)
("gdk-pixbuf" ,gdk-pixbuf+svg)
("libcanberra" ,libcanberra)
("libx11" ,libx11)
("libxext" ,libxext)
("libpeas" ,libpeas)
("libxml2" ,libxml2)
("libexif" ,libexif)
("libjpeg" ,libjpeg)
("librsvg" ,librsvg)
("lcms" ,lcms)
("mate-desktop" ,mate-desktop)
("pango" ,pango)
("shared-mime-info" ,shared-mime-info)
("startup-notification" ,startup-notification)
("zlib" ,zlib)))
(home-page "https://mate-desktop.org/")
(synopsis "Eye of MATE")
(description
"Eye of MATE is the Image viewer for the MATE Desktop.")
(license (list license:gpl2))))
(define-public engrampa
(package
(name "engrampa")
(version "1.18.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://pub.mate-desktop.org/releases/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"0d98zhqqc7qdnxcf0195kd04xmhijc0w2qrn6q61zd0daiswnv98"))))
(build-system glib-or-gtk-build-system)
(arguments
`(#:configure-flags (list "--disable-schemas-compile"
"--disable-run-in-place"
"--enable-magic"
"--enable-packagekit"
(string-append "--with-cajadir="
(assoc-ref %outputs "out")
"/lib/caja/extensions-2.0/"))
#:phases
(modify-phases %standard-phases
(add-before 'install 'skip-gtk-update-icon-cache
;; Don't create 'icon-theme.cache'.
(lambda _
(substitute* "data/Makefile"
(("gtk-update-icon-cache") "true"))
#t)))))
(native-inputs
`(("gettext" ,gettext-minimal)
("gtk-doc" ,gtk-doc)
("intltool" ,intltool)
("pkg-config" ,pkg-config)
("yelp-tools" ,yelp-tools)))
(inputs
`(("caja" ,caja)
("file" ,file)
("glib" ,glib)
("gtk+" ,gtk+)
("gdk-pixbuf" ,gdk-pixbuf+svg)
("json-glib" ,json-glib)
("libcanberra" ,libcanberra)
("libx11" ,libx11)
("libsm" ,libsm)
("packagekit" ,packagekit)
("pango" ,pango)))
(home-page "https://mate-desktop.org/")
(synopsis "Archive Manager for MATE")
(description
"Engrampa is the archive manager for the MATE Desktop.")
(license license:gpl2)))
(define-public pluma
(package
(name "pluma")
(version "1.18.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://pub.mate-desktop.org/releases/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"1z0938yiygxipj2a77n9dv8v4253snrc5gbbnarcnim9xba2j3zz"))))
(build-system glib-or-gtk-build-system)
(arguments
`(; Tests can not succeed.
;; https://github.com/mate-desktop/mate-text-editor/issues/33
#:tests? #f))
(native-inputs
`(("gettext" ,gettext-minimal)
("gtk-doc" ,gtk-doc)
("gobject-introspection" ,gobject-introspection)
("intltool" ,intltool)
("libtool" ,libtool)
("pkg-config" ,pkg-config)
("yelp-tools" ,yelp-tools)))
(inputs
`(("atk" ,atk)
("cairo" ,cairo)
("enchant" ,enchant)
("glib" ,glib)
("gtk+" ,gtk+)
("gtksourceview" ,gtksourceview)
("gdk-pixbuf" ,gdk-pixbuf)
("iso-codes" ,iso-codes)
("libcanberra" ,libcanberra)
("libx11" ,libx11)
("libsm" ,libsm)
("libpeas" ,libpeas)
("libxml2" ,libxml2)
("libice" ,libice)
("packagekit" ,packagekit)
("pango" ,pango)
("python-2" ,python-2)
("scrollkeeper" ,scrollkeeper)))
(home-page "https://mate-desktop.org/")
(synopsis "Text Editor for MATE")
(description
"Pluma is the text editor for the MATE Desktop.")
(license license:gpl2)))
(define-public mate-system-monitor
(package
(name "mate-system-monitor")
(version "1.18.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://pub.mate-desktop.org/releases/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"1wcvrl4lfnjkhywb311p29prf1qiab6iynb6q1fgfsl6za8hsz48"))))
(build-system glib-or-gtk-build-system)
(native-inputs
`(("autoconf" ,autoconf)
("gettext" ,gettext-minimal)
("intltool" ,intltool)
("pkg-config" ,pkg-config)
("yelp-tools" ,yelp-tools)))
(inputs
`(("cairo" ,cairo)
("glib" ,glib)
("glibmm" ,glibmm)
("gtkmm" ,gtkmm)
("gtk+" ,gtk+)
("gdk-pixbuf" ,gdk-pixbuf)
("libsigc++" ,libsigc++)
("libcanberra" ,libcanberra)
("libxml2" ,libxml2)
("libwnck" ,libwnck)
("libgtop" ,libgtop)
("librsvg" ,librsvg)
("polkit" ,polkit)))
(home-page "https://mate-desktop.org/")
(synopsis "System Monitor for MATE")
(description
"Mate System Monitor provides a tool for for the
MATE Desktop to monitor your system resources and usage.")
(license license:gpl2)))
(define-public mate-polkit
(package
(name "mate-polkit")
(version "1.18.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://pub.mate-desktop.org/releases/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
(sha256
(base32
"15vf2hnyjg8zsw3iiwjwi497yygkmvpnn6w1hik7dfw4a621w0gc"))))
(build-system glib-or-gtk-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("gtk-doc" ,gtk-doc)
("intltool" ,intltool)
("libtool" ,libtool)
("pkg-config" ,pkg-config)))
(inputs
`(("accountsservice" ,accountsservice)
("glib" ,glib)
("gobject-introspection" ,gobject-introspection)
("gtk+" ,gtk+)
("gdk-pixbuf" ,gdk-pixbuf)
("polkit" ,polkit)))
(home-page "https://mate-desktop.org/")
(synopsis "DBus specific service for MATE")
(description
"MATE Polkit is a MATE specific DBUS service that is
used to bring up authentication dialogs.")
(license license:lgpl2.1)))
(define-public mate (define-public mate
(package (package
(name "mate") (name "mate")
@ -773,14 +1537,18 @@ for use with MATE or as a standalone window manager.")
(inputs (inputs
;; TODO: Add more packages ;; TODO: Add more packages
`(("at-spi2-core" ,at-spi2-core) `(("at-spi2-core" ,at-spi2-core)
("atril" ,atril)
("caja" ,caja) ("caja" ,caja)
("dbus" ,dbus) ("dbus" ,dbus)
("dconf" ,dconf) ("dconf" ,dconf)
("desktop-file-utils" ,desktop-file-utils) ("desktop-file-utils" ,desktop-file-utils)
("engrampa" ,engrampa)
("eom" ,eom)
("font-cantarell" ,font-cantarell) ("font-cantarell" ,font-cantarell)
("glib-networking" ,glib-networking) ("glib-networking" ,glib-networking)
("gnome-keyring" ,gnome-keyring) ("gnome-keyring" ,gnome-keyring)
("gvfs" ,gvfs) ("gvfs" ,gvfs)
("hicolor-icon-theme" ,hicolor-icon-theme)
("libmatekbd" ,libmatekbd) ("libmatekbd" ,libmatekbd)
("libmateweather" ,libmateweather) ("libmateweather" ,libmateweather)
("libmatemixer" ,libmatemixer) ("libmatemixer" ,libmatemixer)
@ -796,6 +1564,15 @@ for use with MATE or as a standalone window manager.")
("mate-control-center" ,mate-control-center) ("mate-control-center" ,mate-control-center)
("mate-media" ,mate-media) ("mate-media" ,mate-media)
("mate-applets" ,mate-applets) ("mate-applets" ,mate-applets)
("mate-user-guide" ,mate-user-guide)
("mate-calc" ,mate-calc)
("mate-backgrounds" ,mate-backgrounds)
("mate-netbook" ,mate-netbook)
("mate-utils" ,mate-utils)
("mate-polkit" ,mate-polkit)
("mate-system-monitor" ,mate-system-monitor)
("mate-utils" ,mate-utils)
("pluma" ,pluma)
("pinentry-gnome3" ,pinentry-gnome3) ("pinentry-gnome3" ,pinentry-gnome3)
("pulseaudio" ,pulseaudio) ("pulseaudio" ,pulseaudio)
("shared-mime-info" ,shared-mime-info) ("shared-mime-info" ,shared-mime-info)

20
gnu/packages/maths.scm
View file

@ -21,6 +21,7 @@
;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org> ;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org>
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Dave Love <me@fx@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -1878,7 +1879,7 @@ sparse system of linear equations A x = b using Guassian elimination.")
(build-system r-build-system) (build-system r-build-system)
(native-inputs (native-inputs
`(("gfortran" ,gfortran))) `(("gfortran" ,gfortran)))
(home-page "http://cran.r-project.org/web/packages/quadprog") (home-page "https://cran.r-project.org/web/packages/quadprog")
(synopsis "Functions to solve quadratic programming problems") (synopsis "Functions to solve quadratic programming problems")
(description (description
"This package contains routines and documentation for solving quadratic "This package contains routines and documentation for solving quadratic
@ -1897,7 +1898,7 @@ programming problems.")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-quadprog" ,r-quadprog))) `(("r-quadprog" ,r-quadprog)))
(home-page "http://cran.r-project.org/web/packages/pracma") (home-page "https://cran.r-project.org/web/packages/pracma")
(synopsis "Practical numerical math functions") (synopsis "Practical numerical math functions")
(description "This package provides functions for numerical analysis and (description "This package provides functions for numerical analysis and
linear algebra, numerical optimization, differential equations, plus some linear algebra, numerical optimization, differential equations, plus some
@ -2634,7 +2635,6 @@ parts of it.")
#:make-flags #:make-flags
(list (string-append "PREFIX=" (assoc-ref %outputs "out")) (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
"SHELL=bash" "SHELL=bash"
"NO_LAPACK=1"
;; Build the library for all supported CPUs. This allows ;; Build the library for all supported CPUs. This allows
;; switching CPU targets at runtime with the environment variable ;; switching CPU targets at runtime with the environment variable
;; OPENBLAS_CORETYPE=<type>, where "type" is a supported CPU type. ;; OPENBLAS_CORETYPE=<type>, where "type" is a supported CPU type.
@ -2655,11 +2655,21 @@ parts of it.")
'("TARGET=ARMV8")) '("TARGET=ARMV8"))
(else '())))) (else '()))))
;; no configure script ;; no configure script
#:phases (alist-delete 'configure %standard-phases))) #:phases
(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'set-extralib
(lambda* (#:key inputs #:allow-other-keys)
;; Get libgfortran found when building in utest.
(setenv "FEXTRALIB"
(string-append "-L" (assoc-ref inputs "fortran-lib")
"/lib"))
#t)))))
(inputs (inputs
`(("fortran" ,gfortran))) `(("fortran-lib" ,gfortran "lib")))
(native-inputs (native-inputs
`(("cunit" ,cunit) `(("cunit" ,cunit)
("fortran" ,gfortran)
("perl" ,perl))) ("perl" ,perl)))
(home-page "http://www.openblas.net/") (home-page "http://www.openblas.net/")
(synopsis "Optimized BLAS library based on GotoBLAS") (synopsis "Optimized BLAS library based on GotoBLAS")

3
gnu/packages/messaging.scm
View file

@ -239,7 +239,8 @@ identi.ca and status.net).")
("perl-xml-parser" ,perl-xml-parser) ("perl-xml-parser" ,perl-xml-parser)
("python-2" ,python-2))) ("python-2" ,python-2)))
(arguments (arguments
`(#:phases `(#:make-flags '("UPDATE_ICON_CACHE=true") ; Disable icon theme generation
#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
;; Release 2.12.4 wasn't properly bootstrapped. Later ones might be! ;; Release 2.12.4 wasn't properly bootstrapped. Later ones might be!
(add-after 'unpack 'bootstrap (add-after 'unpack 'bootstrap

9
gnu/packages/music.scm
View file

@ -13,6 +13,7 @@
;;; Copyright © 2017 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2017 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2017 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2017 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -809,7 +810,7 @@ Sega Master System/Mark III, Sega Genesis/Mega Drive, BBC Micro
(define-public lilypond (define-public lilypond
(package (package
(name "lilypond") (name "lilypond")
(version "2.19.63") (version "2.19.80")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -818,7 +819,7 @@ Sega Master System/Mark III, Sega Genesis/Mega Drive, BBC Micro
name "-" version ".tar.gz")) name "-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0hwv7m1lzyhjiyxqhqfdrrrpx475jhiwckrnxbjbv3ynhyzkngw0")))) "0lql4q946gna2pl1g409mmmsvn2qvnq2z5cihrkfhk7plcqdny9n"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; out-test/collated-files.html fails `(#:tests? #f ; out-test/collated-files.html fails
@ -2461,13 +2462,13 @@ websites such as Libre.fm.")
(define-public beets (define-public beets
(package (package
(name "beets") (name "beets")
(version "1.4.5") (version "1.4.6")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "beets" version)) (uri (pypi-uri "beets" version))
(sha256 (sha256
(base32 (base32
"1z02j871gc8l9mnd344qy9z8akigikgmc22r15ns6driqb2qishv")))) "0l2vfrknwcsm6bn83m7476qrz45qwgxcb5k0h7kn96kr70irn1v2"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
`(#:phases `(#:phases

21
gnu/packages/ocaml.scm
View file

@ -8,6 +8,7 @@
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017 Julien Lepiller <julien@lepiller.eu> ;;; Copyright © 2016, 2017 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2017 Ben Woodcroft <donttrustben@gmail.com> ;;; Copyright © 2017 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -1250,14 +1251,14 @@ coverage information.")
(define-public ocaml-bitstring (define-public ocaml-bitstring
(package (package
(name "ocaml-bitstring") (name "ocaml-bitstring")
(version "2.1.0") (version "2.1.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/xguerin/bitstring" (uri (string-append "https://github.com/xguerin/bitstring"
"/archive/v" version ".tar.gz")) "/archive/v" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0miw4banfpmx4kxrckpqr57b1fcmsqdmspyjx6gqjd4kghm4l7xj")) "0vy8ibrxccii1jbsk5q6yh1kxjigqvi7lhhcmizvd5gfhf7mfyc8"))
(patches (search-patches "ocaml-bitstring-fix-configure.patch")))) (patches (search-patches "ocaml-bitstring-fix-configure.patch"))))
(build-system ocaml-build-system) (build-system ocaml-build-system)
(native-inputs (native-inputs
@ -1651,14 +1652,14 @@ lets the client choose the concrete timeline.")
(define-public ocaml-ssl (define-public ocaml-ssl
(package (package
(name "ocaml-ssl") (name "ocaml-ssl")
(version "0.5.3") (version "0.5.5")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/savonet/ocaml-ssl/archive/" (uri (string-append "https://github.com/savonet/ocaml-ssl/archive/"
version ".tar.gz")) version ".tar.gz"))
(sha256 (base32 (sha256 (base32
"1ds5gzyzpcgwn7h40dmjkll7g990cr82ay05b2a7nrclvv6fdpg8")))) "15p7652cvzdrlqxc1af11mg07wasxr1fsaj44gcmmh6bmav7wfzq"))))
(build-system ocaml-build-system) (build-system ocaml-build-system)
(arguments `(#:tests? #f (arguments `(#:tests? #f
#:make-flags (list "OCAMLFIND_LDCONF=ignore") #:make-flags (list "OCAMLFIND_LDCONF=ignore")
@ -1677,7 +1678,9 @@ lets the client choose the concrete timeline.")
(propagated-inputs `(("openssl" ,openssl))) (propagated-inputs `(("openssl" ,openssl)))
(home-page "https://github.com/savonet/ocaml-ssl/") (home-page "https://github.com/savonet/ocaml-ssl/")
(synopsis "OCaml bindings for OpenSSL") (synopsis "OCaml bindings for OpenSSL")
(description "OCaml bindings for OpenSSL.") (description
"OCaml-SSL is a set of bindings for OpenSSL, a library for communicating
through Transport Layer Security (@dfn{TLS}) encrypted connections.")
(license license:lgpl2.1))) (license license:lgpl2.1)))
(define-public ocaml-lwt (define-public ocaml-lwt
@ -3582,7 +3585,7 @@ library is currently designed for Unicode Standard 3.2.")
(define-public ocaml-jbuilder (define-public ocaml-jbuilder
(package (package
(name "ocaml-jbuilder") (name "ocaml-jbuilder")
(version "1.0+beta14") (version "1.0+beta16")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -3591,7 +3594,7 @@ library is currently designed for Unicode Standard 3.2.")
(file-name (string-append name "-" version ".tar.gz")) (file-name (string-append name "-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"06jdcb4jmmp4wqyf9cm59jzgj0mxkpdzd9q3728gdxc1sz3v1sz0")))) "0gcy52y0mkg450yxwszp3lww303a1154566r8jb4hh5l61dh4dwj"))))
(build-system ocaml-build-system) (build-system ocaml-build-system)
(arguments (arguments
`(#:phases `(#:phases
@ -3695,7 +3698,7 @@ instead of bindings to a C library.")
(define-public ocaml-utop (define-public ocaml-utop
(package (package
(name "ocaml-utop") (name "ocaml-utop")
(version "2.0.1") (version "2.0.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/diml/utop/archive/" (uri (string-append "https://github.com/diml/utop/archive/"
@ -3703,7 +3706,7 @@ instead of bindings to a C library.")
(file-name (string-append name "-" version ".tar.gz")) (file-name (string-append name "-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1v22bzw1vgwbbmpvi7lkyp2r59w5mag85rmqplb4fwik78x7k4ss")))) "0rglznh4prcix8spi3f060jz2gngk7x8vkd291fxs10b88aqcpxf"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:test-target "test" `(#:test-target "test"

26
gnu/packages/openstack.scm
View file

@ -102,7 +102,7 @@ all the files it generates a report.")
("python-pbr" ,python-pbr) ("python-pbr" ,python-pbr)
;; Tests. ;; Tests.
("python-oslotest" ,python-oslotest))) ("python-oslotest" ,python-oslotest)))
(home-page "http://www.openstack.org/") (home-page "https://www.openstack.org/")
(synopsis (synopsis
"Find deprecated patterns and strategies in Python code") "Find deprecated patterns and strategies in Python code")
(description (description
@ -172,7 +172,7 @@ guidelines}.")
("python-pbr" ,python-pbr) ("python-pbr" ,python-pbr)
("python-sphinx" ,python-sphinx) ("python-sphinx" ,python-sphinx)
("python-testtools" ,python-testtools))) ("python-testtools" ,python-testtools)))
(home-page "http://www.openstack.org/") (home-page "https://www.openstack.org/")
(synopsis "Mock object framework for Python") (synopsis "Mock object framework for Python")
(description (description
"Mox3 is an unofficial port of the Google mox framework "Mox3 is an unofficial port of the Google mox framework
@ -208,7 +208,7 @@ tested on Python version 3.2, 2.7 and 2.6.")
("python-testrepository" ,python-testrepository) ("python-testrepository" ,python-testrepository)
("python-testscenarios" ,python-testscenarios) ("python-testscenarios" ,python-testscenarios)
("python-testtools" ,python-testtools))) ("python-testtools" ,python-testtools)))
(home-page "http://www.openstack.org/") (home-page "https://www.openstack.org/")
(synopsis (synopsis
"OpenStack Client Configuration Library") "OpenStack Client Configuration Library")
(description (description
@ -408,7 +408,7 @@ common features used in Tempest.")
("python-oslotest" ,python-oslotest) ("python-oslotest" ,python-oslotest)
("python-oslosphinx" ,python-oslosphinx) ("python-oslosphinx" ,python-oslosphinx)
("python-sphinx" ,python-sphinx))) ("python-sphinx" ,python-sphinx)))
(home-page "http://launchpad.net/oslo") (home-page "https://launchpad.net/oslo")
(synopsis "Oslo context library") (synopsis "Oslo context library")
(description (description
"The Oslo context library has helpers to maintain useful information "The Oslo context library has helpers to maintain useful information
@ -443,7 +443,7 @@ pipeline and used by various modules such as logging.")
("python-mox3" ,python-mox3) ("python-mox3" ,python-mox3)
("python-oslotest" ,python-oslotest) ("python-oslotest" ,python-oslotest)
("python-testscenarios" ,python-testscenarios))) ("python-testscenarios" ,python-testscenarios)))
(home-page "http://launchpad.net/oslo") (home-page "https://launchpad.net/oslo")
(synopsis "Oslo internationalization (i18n) library") (synopsis "Oslo internationalization (i18n) library")
(description (description
"The oslo.i18n library contain utilities for working with "The oslo.i18n library contain utilities for working with
@ -485,7 +485,7 @@ in an application or library.")
("python-mock" ,python-mock) ("python-mock" ,python-mock)
("python-oslotest" ,python-oslotest) ("python-oslotest" ,python-oslotest)
("python-pbr" ,python-pbr))) ("python-pbr" ,python-pbr)))
(home-page "http://launchpad.net/oslo") (home-page "https://launchpad.net/oslo")
(synopsis "Python logging library of the Oslo project") (synopsis "Python logging library of the Oslo project")
(description (description
"The oslo.log (logging) configuration library provides standardized "The oslo.log (logging) configuration library provides standardized
@ -524,7 +524,7 @@ handlers and support for context specific logging (like resource id’s etc).")
("python-mock" ,python-mock) ("python-mock" ,python-mock)
("python-oslo.i18n" ,python-oslo.i18n) ("python-oslo.i18n" ,python-oslo.i18n)
("python-oslotest" ,python-oslotest))) ("python-oslotest" ,python-oslotest)))
(home-page "http://launchpad.net/oslo") (home-page "https://launchpad.net/oslo")
(synopsis "Oslo serialization library") (synopsis "Oslo serialization library")
(description (description
"The oslo.serialization library provides support for representing objects "The oslo.serialization library provides support for representing objects
@ -609,7 +609,7 @@ and building documentation from them.")
("python-docutils" ,python-docutils) ("python-docutils" ,python-docutils)
("python-hacking" ,python-hacking) ("python-hacking" ,python-hacking)
("python-sphinx" ,python-sphinx))) ("python-sphinx" ,python-sphinx)))
(home-page "http://www.openstack.org/") (home-page "https://www.openstack.org/")
(synopsis "OpenStack sphinx extensions and theme") (synopsis "OpenStack sphinx extensions and theme")
(description (description
"This package provides themes and extensions for Sphinx documentation "This package provides themes and extensions for Sphinx documentation
@ -646,7 +646,7 @@ from the OpenStack project.")
("python-testrepository" ,python-testrepository) ("python-testrepository" ,python-testrepository)
("python-testscenarios" ,python-testscenarios) ("python-testscenarios" ,python-testscenarios)
("python-testtools" ,python-testtools))) ("python-testtools" ,python-testtools)))
(home-page "http://launchpad.net/oslo") (home-page "https://launchpad.net/oslo")
(synopsis "Oslo test framework") (synopsis "Oslo test framework")
(description (description
"The Oslo Test framework provides common fixtures, support for debugging, "The Oslo Test framework provides common fixtures, support for debugging,
@ -700,7 +700,7 @@ and better support for mocking results.")
("python-mock" ,python-mock) ("python-mock" ,python-mock)
("python-mox3" ,python-mox3) ("python-mox3" ,python-mox3)
("python-testscenarios" ,python-testscenarios))) ("python-testscenarios" ,python-testscenarios)))
(home-page "http://launchpad.net/oslo") (home-page "https://launchpad.net/oslo")
(synopsis "Oslo utility library") (synopsis "Oslo utility library")
(description (description
"The @code{oslo.utils} library provides support for common utility type "The @code{oslo.utils} library provides support for common utility type
@ -761,7 +761,7 @@ handling.")
("python-requests" ,python-requests) ("python-requests" ,python-requests)
("python-six" ,python-six) ("python-six" ,python-six)
("python-stevedore" ,python-stevedore))) ("python-stevedore" ,python-stevedore)))
(home-page "http://www.openstack.org/") (home-page "https://www.openstack.org/")
(synopsis "Client Library for OpenStack Identity") (synopsis "Client Library for OpenStack Identity")
(description (description
"Python-keystoneclient is the identity service used by OpenStack for "Python-keystoneclient is the identity service used by OpenStack for
@ -814,7 +814,7 @@ LDAP.")
(propagated-inputs (propagated-inputs
`(("python-requests" ,python-requests) `(("python-requests" ,python-requests)
("python-six" ,python-six))) ("python-six" ,python-six)))
(home-page "http://www.openstack.org/") (home-page "https://www.openstack.org/")
(synopsis "OpenStack Object Storage API Client Library") (synopsis "OpenStack Object Storage API Client Library")
(description (description
"OpenStack Object Storage (code-named Swift) creates redundant, scalable "OpenStack Object Storage (code-named Swift) creates redundant, scalable
@ -879,7 +879,7 @@ permanence.")
(inputs (inputs
`(("git" ,git) `(("git" ,git)
("openssh" ,openssh))) ("openssh" ,openssh)))
(home-page "http://docs.openstack.org/infra/git-review/") (home-page "https://docs.openstack.org/infra/git-review/")
(synopsis "Command-line tool for Gerrit") (synopsis "Command-line tool for Gerrit")
(description (description
"Git-review is a command-line tool that helps submitting Git branches to "Git-review is a command-line tool that helps submitting Git branches to

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

@ -87,8 +87,8 @@
;; Note: the 'update-guix-package.scm' script expects this definition to ;; Note: the 'update-guix-package.scm' script expects this definition to
;; start precisely like this. ;; start precisely like this.
(let ((version "0.14.0") (let ((version "0.14.0")
(commit "02345c963e1e8a45afcdf5acb80fca4538244b36") (commit "f76ff984ebdbed18fce4fe2a62cee73d0ccd8140")
(revision 2)) (revision 3))
(package (package
(name "guix") (name "guix")
@ -104,7 +104,7 @@
(commit commit))) (commit commit)))
(sha256 (sha256
(base32 (base32
"0f33makasj14zf0zfv1w7k04bkcpdy5grx5b904vv5ygi5bak7nx")) "1sslkcp14vx0fa3lmy7mx96z8slhq7qli0d6cvc7h39dbpkzs2ni"))
(file-name (string-append "guix-" version "-checkout")))) (file-name (string-append "guix-" version "-checkout"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments

4
gnu/packages/parallel.scm
View file

@ -46,7 +46,7 @@
(define-public parallel (define-public parallel
(package (package
(name "parallel") (name "parallel")
(version "20171122") (version "20171222")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -54,7 +54,7 @@
version ".tar.bz2")) version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"19l2r8zzh8jyb76r3ksfq9y3r8fg07xw31h0dq1d7jpf73fnmd21")))) "1p3r6dlhy49q3y468kf65nqdp0knqw41vwga9rprrvi04kywgj4v"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases

68
gnu/packages/patches/borg-fix-archive-corruption-bug.patch
View file

@ -1,68 +0,0 @@
Fix a bug in `borg check --repair` that corrupts existing archives:
https://github.com/borgbackup/borg/issues/3444
Patches copied from upstream source repository:
https://github.com/borgbackup/borg/commit/e09892caec8a63d59e909518c4e9c230dbd69774
https://github.com/borgbackup/borg/commit/a68d28bfa4db30561150c83eb6a0dca5efa4d9e8
From a68d28bfa4db30561150c83eb6a0dca5efa4d9e8 Mon Sep 17 00:00:00 2001
From: Thomas Waldmann <tw@waldmann-edv.de>
Date: Sat, 16 Dec 2017 01:11:40 +0100
Subject: [PATCH 1/2] modify borg check unit test so it "hangs", see #3444
it doesn't infinitely hang, but slows down considerably.
---
src/borg/testsuite/archiver.py | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/borg/testsuite/archiver.py b/src/borg/testsuite/archiver.py
index c7def2c7..b3383e97 100644
--- a/src/borg/testsuite/archiver.py
+++ b/src/borg/testsuite/archiver.py
@@ -3006,7 +3006,7 @@ def test_missing_file_chunk(self):
def test_missing_archive_item_chunk(self):
archive, repository = self.open_archive('archive1')
with repository:
- repository.delete(archive.metadata.items[-5])
+ repository.delete(archive.metadata.items[0])
repository.commit()
self.cmd('check', self.repository_location, exit_code=1)
self.cmd('check', '--repair', self.repository_location, exit_code=0)
--
2.15.1
From e09892caec8a63d59e909518c4e9c230dbd69774 Mon Sep 17 00:00:00 2001
From: Thomas Waldmann <tw@waldmann-edv.de>
Date: Sat, 16 Dec 2017 01:16:05 +0100
Subject: [PATCH 2/2] check --repair: fix malfunctioning validator, fixes #3444
the major problem was the ('path' in item) expression.
the dict has bytes-typed keys there, so it never succeeded as it
looked for a str key. this is a 1.1 regression, 1.0 was fine.
the dict -> StableDict change is just for being more specific,
the check triggered correctly as StableDict subclasses dict,
it was just a bit too general.
---
src/borg/archive.py | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/borg/archive.py b/src/borg/archive.py
index 239d00b7..be086800 100644
--- a/src/borg/archive.py
+++ b/src/borg/archive.py
@@ -1457,7 +1457,7 @@ def robust_iterator(archive):
"""
item_keys = frozenset(key.encode() for key in self.manifest.item_keys)
required_item_keys = frozenset(key.encode() for key in REQUIRED_ITEM_KEYS)
- unpacker = RobustUnpacker(lambda item: isinstance(item, dict) and 'path' in item,
+ unpacker = RobustUnpacker(lambda item: isinstance(item, StableDict) and b'path' in item,
self.manifest.item_keys)
_state = 0
--
2.15.1

57
gnu/packages/patches/chicken-CVE-2017-11343.patch
View file

@ -1,57 +0,0 @@
Fix CVE-2017-11343:
https://lists.nongnu.org/archive/html/chicken-announce/2017-07/msg00000.html
https://cve.mitre.org/cgi-bin/cvename.cgi?name=CVE-2017-11343
Patch copied from upstream mailing list:
http://lists.gnu.org/archive/html/chicken-hackers/2017-06/txtod8Pa1wGU0.txt
From ae2633195cc5f4f61c9da4ac90f0c14c010dcc3d Mon Sep 17 00:00:00 2001
From: Peter Bex <address@hidden>
Date: Fri, 30 Jun 2017 15:39:45 +0200
Subject: [PATCH 2/2] Initialize symbol table after setting up randomization
Otherwise, the symbol table wouldn't be correctly randomized.
---
NEWS | 3 +++
runtime.c | 2 +-
2 files changed, 4 insertions(+), 1 deletion(-)
#diff --git a/NEWS b/NEWS
#index f4b0e041..6588b30e 100644
#--- a/NEWS
#+++ b/NEWS
#@@ -96,6 +96,9 @@
# buffer overrun and/or segfault (thanks to Lemonboy).
# - CVE-2017-9334: `length' no longer crashes on improper lists (fixes
# #1375, thanks to "megane").
#+ - The randomization factor of the symbol table was set before
#+ the random seed was set, causing it to have a fixed value on many
#+ platforms.
#
# - Core Libraries
# - Unit "posix": If file-lock, file-lock/blocking or file-unlock are
diff --git a/runtime.c b/runtime.c
index 81c54dd2..a4580abc 100644
--- a/runtime.c
+++ b/runtime.c
@@ -799,7 +799,6 @@ int CHICKEN_initialize(int heap, int stack, int symbols, void *toplevel)
C_initial_timer_interrupt_period = INITIAL_TIMER_INTERRUPT_PERIOD;
C_timer_interrupt_counter = INITIAL_TIMER_INTERRUPT_PERIOD;
memset(signal_mapping_table, 0, sizeof(int) * NSIG);
- initialize_symbol_table();
C_dlerror = "cannot load compiled code dynamically - this is a statically linked executable";
error_location = C_SCHEME_FALSE;
C_pre_gc_hook = NULL;
@@ -816,6 +815,7 @@ int CHICKEN_initialize(int heap, int stack, int symbols, void *toplevel)
callback_continuation_level = 0;
gc_ms = 0;
(void)C_randomize(C_fix(time(NULL)));
+ initialize_symbol_table();
if (profiling) {
#ifndef C_NONUNIX
--
2.11.0

132
gnu/packages/patches/chicken-CVE-2017-6949.patch
View file

@ -1,132 +0,0 @@
From: LemonBoy <thatlemon@gmail.com>
Date: Fri, 10 Mar 2017 16:29:47 +0100
Subject: [PATCH] Add bound checking to all srfi-4 vector allocations.
Do what C_allocate_vector already does and prevent the creation of a
vector that's too big or too small.
We should be very careful to avoid the latter case because the
allocation size is directly fed into `malloc' as 'x + sizeof(C_header)'
thus making possible to successfully allocate a vector smaller than the
C_header structure and get C_block_header_init to write over
uninitialized memory.
To reduce code duplication, type checking is moved from each of the
make-*vector procedures to the common "alloc" helper procedure.
Signed-off-by: Peter Bex <peter@more-magic.net>
Signed-off-by: Kooda <kooda@upyum.com>
---
srfi-4.scm | 34 +++++++++++++++-------------------
1 file changed, 15 insertions(+), 19 deletions(-)
diff --git a/srfi-4.scm b/srfi-4.scm
index 7f5412b..69f58ba 100644
--- a/srfi-4.scm
+++ b/srfi-4.scm
@@ -255,24 +255,28 @@ EOF
;;; Basic constructors:
-(let* ([ext-alloc
- (foreign-lambda* scheme-object ([int bytes])
- "C_word *buf = (C_word *)C_malloc(bytes + sizeof(C_header));"
+(let* ((ext-alloc
+ (foreign-lambda* scheme-object ((size_t bytes))
+ "C_word *buf;"
+ "if (bytes > C_HEADER_SIZE_MASK) C_return(C_SCHEME_FALSE);"
+ "buf = (C_word *)C_malloc(bytes + sizeof(C_header));"
"if(buf == NULL) C_return(C_SCHEME_FALSE);"
"C_block_header_init(buf, C_make_header(C_BYTEVECTOR_TYPE, bytes));"
- "C_return(buf);") ]
- [ext-free
- (foreign-lambda* void ([scheme-object bv])
- "C_free((void *)C_block_item(bv, 1));") ]
- [alloc
+ "C_return(buf);") )
+ (ext-free
+ (foreign-lambda* void ((scheme-object bv))
+ "C_free((void *)C_block_item(bv, 1));") )
+ (alloc
(lambda (loc len ext?)
+ (##sys#check-exact len loc)
+ (when (fx< len 0) (##sys#error loc "size is negative" len))
(if ext?
- (let ([bv (ext-alloc len)])
+ (let ((bv (ext-alloc len)))
(or bv
(##sys#error loc "not enough memory - cannot allocate external number vector" len)) )
- (let ([bv (##sys#allocate-vector len #t #f #t)]) ; this could be made better...
+ (let ((bv (##sys#allocate-vector len #t #f #t))) ; this could be made better...
(##core#inline "C_string_to_bytevector" bv)
- bv) ) ) ] )
+ bv) ) ) ) )
(set! release-number-vector
(lambda (v)
@@ -282,7 +286,6 @@ EOF
(set! make-u8vector
(lambda (len #!optional (init #f) (ext? #f) (fin? #t))
- (##sys#check-exact len 'make-u8vector)
(let ((v (##sys#make-structure 'u8vector (alloc 'make-u8vector len ext?))))
(when (and ext? fin?) (set-finalizer! v ext-free))
(if (not init)
@@ -295,7 +298,6 @@ EOF
(set! make-s8vector
(lambda (len #!optional (init #f) (ext? #f) (fin? #t))
- (##sys#check-exact len 'make-s8vector)
(let ((v (##sys#make-structure 's8vector (alloc 'make-s8vector len ext?))))
(when (and ext? fin?) (set-finalizer! v ext-free))
(if (not init)
@@ -308,7 +310,6 @@ EOF
(set! make-u16vector
(lambda (len #!optional (init #f) (ext? #f) (fin? #t))
- (##sys#check-exact len 'make-u16vector)
(let ((v (##sys#make-structure 'u16vector (alloc 'make-u16vector (##core#inline "C_fixnum_shift_left" len 1) ext?))))
(when (and ext? fin?) (set-finalizer! v ext-free))
(if (not init)
@@ -321,7 +322,6 @@ EOF
(set! make-s16vector
(lambda (len #!optional (init #f) (ext? #f) (fin? #t))
- (##sys#check-exact len 'make-s16vector)
(let ((v (##sys#make-structure 's16vector (alloc 'make-s16vector (##core#inline "C_fixnum_shift_left" len 1) ext?))))
(when (and ext? fin?) (set-finalizer! v ext-free))
(if (not init)
@@ -334,7 +334,6 @@ EOF
(set! make-u32vector
(lambda (len #!optional (init #f) (ext? #f) (fin? #t))
- (##sys#check-exact len 'make-u32vector)
(let ((v (##sys#make-structure 'u32vector (alloc 'make-u32vector (##core#inline "C_fixnum_shift_left" len 2) ext?))))
(when (and ext? fin?) (set-finalizer! v ext-free))
(if (not init)
@@ -347,7 +346,6 @@ EOF
(set! make-s32vector
(lambda (len #!optional (init #f) (ext? #f) (fin? #t))
- (##sys#check-exact len 'make-s32vector)
(let ((v (##sys#make-structure 's32vector (alloc 'make-s32vector (##core#inline "C_fixnum_shift_left" len 2) ext?))))
(when (and ext? fin?) (set-finalizer! v ext-free))
(if (not init)
@@ -360,7 +358,6 @@ EOF
(set! make-f32vector
(lambda (len #!optional (init #f) (ext? #f) (fin? #t))
- (##sys#check-exact len 'make-f32vector)
(let ((v (##sys#make-structure 'f32vector (alloc 'make-f32vector (##core#inline "C_fixnum_shift_left" len 2) ext?))))
(when (and ext? fin?) (set-finalizer! v ext-free))
(if (not init)
@@ -375,7 +372,6 @@ EOF
(set! make-f64vector
(lambda (len #!optional (init #f) (ext? #f) (fin? #t))
- (##sys#check-exact len 'make-f64vector)
(let ((v (##sys#make-structure
'f64vector
(alloc 'make-f64vector (##core#inline "C_fixnum_shift_left" len 3) ext?))))
--
2.1.4

73
gnu/packages/patches/icecat-bug-1414945.patch Normal file
View file

@ -0,0 +1,73 @@
Based on:
https://hg.mozilla.org/releases/mozilla-esr52/raw-rev/d303b3bb88c3
Adapted to apply cleanly to IceCat.
# HG changeset patch
# User Philip Chimento <philip.chimento@gmail.com>
# Date 1510012155 28800
# Node ID d303b3bb88c3345d3a089901e2b6fe883d148e44
# Parent 0152d097672f7e99504815cf7b06d9f303419fba
Bug 1414945 - Don't use TimeDuration in static initializer. r=jandem, a=ritu
On Darwin this would cause a race between two static initializers.
diff --git a/js/src/shell/js.cpp b/js/src/shell/js.cpp
--- a/js/src/shell/js.cpp
+++ b/js/src/shell/js.cpp
@@ -138,17 +138,17 @@ static const size_t gMaxStackSize = 2 *
#else
static const size_t gMaxStackSize = 128 * sizeof(size_t) * 1024;
#endif
/*
* Limit the timeout to 30 minutes to prevent an overflow on platfoms
* that represent the time internally in microseconds using 32-bit int.
*/
-static const TimeDuration MAX_TIMEOUT_INTERVAL = TimeDuration::FromSeconds(1800.0);
+static const double MAX_TIMEOUT_SECONDS = 1800.0;
// SharedArrayBuffer and Atomics settings track IceCat. Choose a custom setting
// with --shared-memory={on,off}.
#ifndef RELEASE_OR_BETA
# define SHARED_MEMORY_DEFAULT 1
#else
# define SHARED_MEMORY_DEFAULT 0
#endif
@@ -3518,16 +3518,17 @@ Sleep_fn(JSContext* cx, unsigned argc, V
if (!ToNumber(cx, args[0], &t_secs))
return false;
if (mozilla::IsNaN(t_secs)) {
JS_ReportErrorASCII(cx, "sleep interval is not a number");
return false;
}
duration = TimeDuration::FromSeconds(Max(0.0, t_secs));
+ const TimeDuration MAX_TIMEOUT_INTERVAL = TimeDuration::FromSeconds(MAX_TIMEOUT_SECONDS);
if (duration > MAX_TIMEOUT_INTERVAL) {
JS_ReportErrorASCII(cx, "Excessive sleep interval");
return false;
}
}
{
LockGuard<Mutex> guard(sc->watchdogLock);
TimeStamp toWakeup = TimeStamp::Now() + duration;
@@ -3675,16 +3676,17 @@ CancelExecution(JSContext* cx)
static bool
SetTimeoutValue(JSContext* cx, double t)
{
if (mozilla::IsNaN(t)) {
JS_ReportErrorASCII(cx, "timeout is not a number");
return false;
}
+ const TimeDuration MAX_TIMEOUT_INTERVAL = TimeDuration::FromSeconds(MAX_TIMEOUT_SECONDS);
if (TimeDuration::FromSeconds(t) > MAX_TIMEOUT_INTERVAL) {
JS_ReportErrorASCII(cx, "Excessive timeout value");
return false;
}
GetShellContext(cx)->timeoutInterval = t;
if (!ScheduleWatchdog(cx, t)) {
JS_ReportErrorASCII(cx, "Failed to create the watchdog");
return false;

183
gnu/packages/patches/icecat-bug-1424373-pt2.patch Normal file
View file

@ -0,0 +1,183 @@
Based on:
https://hg.mozilla.org/releases/mozilla-esr52/raw-rev/19ea736e7e3d
Adapted to apply cleanly to IceCat.
# HG changeset patch
# User Mike Conley <mconley@mozilla.com>
# Date 1513892173 18000
# Node ID 19ea736e7e3d20555ee6633b9d7803c1225979e1
# Parent 320032aaa06899f5585dcd0288059e5342118714
Bug 1424373 - Rename crash report submission pref. r=Mossop a=jcristau
diff --git a/browser/app/profile/icecat.js b/browser/app/profile/icecat.js
--- a/browser/app/profile/icecat.js
+++ b/browser/app/profile/icecat.js
@@ -1557,15 +1557,15 @@ pref("browser.crashReports.unsubmittedCh
pref("browser.crashReports.unsubmittedCheck.enabled", false);
#endif
// chancesUntilSuppress is how many times we'll show the unsubmitted
// crash report notification across different days and shutdown
// without a user choice before we suppress the notification for
// some number of days.
pref("browser.crashReports.unsubmittedCheck.chancesUntilSuppress", 4);
-pref("browser.crashReports.unsubmittedCheck.autoSubmit", false);
+pref("browser.crashReports.unsubmittedCheck.autoSubmit2", false);
#ifdef NIGHTLY_BUILD
// Enable the (fairly costly) client/server validation on nightly only. The other prefs
// controlling validation are located in /services/sync/services-sync.js
pref("services.sync.validation.enabled", true);
#endif
diff --git a/browser/base/content/test/tabcrashed/browser_autoSubmitRequest.js b/browser/base/content/test/tabcrashed/browser_autoSubmitRequest.js
--- a/browser/base/content/test/tabcrashed/browser_autoSubmitRequest.js
+++ b/browser/base/content/test/tabcrashed/browser_autoSubmitRequest.js
@@ -1,12 +1,12 @@
"use strict";
const PAGE = "data:text/html,<html><body>A%20regular,%20everyday,%20normal%20page.";
-const AUTOSUBMIT_PREF = "browser.crashReports.unsubmittedCheck.autoSubmit";
+const AUTOSUBMIT_PREF = "browser.crashReports.unsubmittedCheck.autoSubmit2";
const {TabStateFlusher} =
Cu.import("resource:///modules/sessionstore/TabStateFlusher.jsm", {});
// On debug builds, crashing tabs results in much thinking, which
// slows down the test and results in intermittent test timeouts,
// so we'll pump up the expected timeout for this test.
requestLongerTimeout(2);
diff --git a/browser/components/preferences/in-content/advanced.xul b/browser/components/preferences/in-content/advanced.xul
--- a/browser/components/preferences/in-content/advanced.xul
+++ b/browser/components/preferences/in-content/advanced.xul
@@ -51,18 +51,18 @@
#ifdef MOZ_TELEMETRY_REPORTING
<preference id="toolkit.telemetry.enabled"
name="toolkit.telemetry.enabled"
type="bool"/>
#endif
<!-- Data Choices tab -->
#ifdef MOZ_CRASHREPORTER
- <preference id="browser.crashReports.unsubmittedCheck.autoSubmit"
- name="browser.crashReports.unsubmittedCheck.autoSubmit"
+ <preference id="browser.crashReports.unsubmittedCheck.autoSubmit2"
+ name="browser.crashReports.unsubmittedCheck.autoSubmit2"
type="bool"/>
#endif
<!-- Network tab -->
<preference id="browser.cache.disk.capacity"
name="browser.cache.disk.capacity"
type="int"/>
<preference id="browser.offline-apps.notify"
@@ -232,17 +232,17 @@
</hbox>
</vbox>
</groupbox>
#endif
#ifdef MOZ_CRASHREPORTER
<groupbox>
<caption>
<checkbox id="automaticallySubmitCrashesBox"
- preference="browser.crashReports.unsubmittedCheck.autoSubmit"
+ preference="browser.crashReports.unsubmittedCheck.autoSubmit2"
label="&alwaysSubmitCrashReports.label;"
accesskey="&alwaysSubmitCrashReports.accesskey;"/>
</caption>
<hbox class="indent">
<label flex="1">&crashReporterDesc2.label;</label>
<spacer flex="10"/>
<label id="crashReporterLearnMore"
class="text-link">&crashReporterLearnMore.label;</label>
diff --git a/browser/components/sessionstore/test/browser_background_tab_crash.js b/browser/components/sessionstore/test/browser_background_tab_crash.js
--- a/browser/components/sessionstore/test/browser_background_tab_crash.js
+++ b/browser/components/sessionstore/test/browser_background_tab_crash.js
@@ -142,17 +142,17 @@ add_task(function* test_background_crash
/**
* Tests that if a content process crashes taking down only
* background tabs, and the user is configured to send backlogged
* crash reports automatically, that the tab crashed page is not
* shown.
*/
add_task(function* test_background_crash_autosubmit_backlogged() {
yield SpecialPowers.pushPrefEnv({
- set: [["browser.crashReports.unsubmittedCheck.autoSubmit", true]],
+ set: [["browser.crashReports.unsubmittedCheck.autoSubmit2", true]],
});
yield setupBackgroundTabs(function*([tab1, tab2]) {
// Let's crash one of those background tabs now...
yield crashBackgroundTabs([tab1, tab2]);
// Selecting the first tab should restore it.
let tabRestored = promiseTabRestored(tab1);
diff --git a/browser/modules/ContentCrashHandlers.jsm b/browser/modules/ContentCrashHandlers.jsm
--- a/browser/modules/ContentCrashHandlers.jsm
+++ b/browser/modules/ContentCrashHandlers.jsm
@@ -865,21 +865,21 @@ this.UnsubmittedCrashHandler = {
return nb.appendNotification(message, notificationID,
"chrome://browser/skin/tab-crashed.svg",
nb.PRIORITY_INFO_HIGH, buttons,
eventCallback);
},
get autoSubmit() {
return Services.prefs
- .getBoolPref("browser.crashReports.unsubmittedCheck.autoSubmit");
+ .getBoolPref("browser.crashReports.unsubmittedCheck.autoSubmit2");
},
set autoSubmit(val) {
- Services.prefs.setBoolPref("browser.crashReports.unsubmittedCheck.autoSubmit",
+ Services.prefs.setBoolPref("browser.crashReports.unsubmittedCheck.autoSubmit2",
val);
},
/**
* Attempt to submit reports to the crash report server. Each
* report will have the "SubmittedFromInfobar" extra key set
* to true.
*
diff --git a/browser/modules/test/browser_UnsubmittedCrashHandler.js b/browser/modules/test/browser_UnsubmittedCrashHandler.js
--- a/browser/modules/test/browser_UnsubmittedCrashHandler.js
+++ b/browser/modules/test/browser_UnsubmittedCrashHandler.js
@@ -344,17 +344,17 @@ add_task(function* test_can_submit_sever
clearPendingCrashReports();
});
/**
* Tests that choosing "Send Always" flips the autoSubmit pref
* and sends the pending crash reports.
*/
add_task(function* test_can_submit_always() {
- let pref = "browser.crashReports.unsubmittedCheck.autoSubmit";
+ let pref = "browser.crashReports.unsubmittedCheck.autoSubmit2";
Assert.equal(Services.prefs.getBoolPref(pref), false,
"We should not be auto-submitting by default");
let reportIDs = yield createPendingCrashReports(1);
let notification =
yield UnsubmittedCrashHandler.checkForUnsubmittedCrashReports();
Assert.ok(notification, "There should be a notification");
@@ -388,17 +388,17 @@ add_task(function* test_can_submit_alway
/**
* Tests that if the user has chosen to automatically send
* crash reports that no notification is displayed to the
* user.
*/
add_task(function* test_can_auto_submit() {
yield SpecialPowers.pushPrefEnv({ set: [
- ["browser.crashReports.unsubmittedCheck.autoSubmit", true],
+ ["browser.crashReports.unsubmittedCheck.autoSubmit2", true],
]});
let reportIDs = yield createPendingCrashReports(3);
let promiseReports = waitForSubmittedReports(reportIDs);
let notification =
yield UnsubmittedCrashHandler.checkForUnsubmittedCrashReports();
Assert.equal(notification, null, "There should be no notification");
info("Waiting on reports to be received.");

48
gnu/packages/patches/libgxps-CVE-2017-11590.patch Normal file
View file

@ -0,0 +1,48 @@
Fix CVE-2017-11590:
https://bugzilla.gnome.org/show_bug.cgi?id=785479
https://cve.mitre.org/cgi-bin/cvename.cgi?name=CVE-2017-11590
Patch copied from upstream source repository:
https://git.gnome.org/browse/libgxps/commit/?id=9d5d292055250ed298f3b89dc332d6db4003a031
From 9d5d292055250ed298f3b89dc332d6db4003a031 Mon Sep 17 00:00:00 2001
From: Marek Kasik <mkasik@redhat.com>
Date: Wed, 26 Jul 2017 16:23:37 +0200
Subject: archive: Check for pathname being NULL before dereferencing
Check whether "archive_entry_pathname ()" returns a non-NULL pathname
before using it to avoid a NULL pointer being dereferenced.
https://bugzilla.gnome.org/show_bug.cgi?id=785479
---
libgxps/gxps-archive.c | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/libgxps/gxps-archive.c b/libgxps/gxps-archive.c
index acf8d7d..e763773 100644
--- a/libgxps/gxps-archive.c
+++ b/libgxps/gxps-archive.c
@@ -257,6 +257,7 @@ gxps_archive_initable_init (GInitable *initable,
GXPSArchive *archive;
ZipArchive *zip;
struct archive_entry *entry;
+ const gchar *pathname;
archive = GXPS_ARCHIVE (initable);
@@ -281,7 +282,9 @@ gxps_archive_initable_init (GInitable *initable,
while (gxps_zip_archive_iter_next (zip, &entry)) {
/* FIXME: We can ignore directories here */
- g_hash_table_add (archive->entries, g_strdup (archive_entry_pathname (entry)));
+ pathname = archive_entry_pathname (entry);
+ if (pathname != NULL)
+ g_hash_table_add (archive->entries, g_strdup (pathname));
archive_read_data_skip (zip->archive);
}
--
cgit v0.12

BIN
gnu/packages/patches/python-pillow-fix-failing-tests.patch Normal file
View file

Binary file not shown.

75
gnu/packages/patches/python-pillow-freetype-2.7-test-failure.patch
View file

@ -1,75 +0,0 @@
Fix some test failures when building with freetype-2.7.
https://github.com/python-pillow/Pillow/issues/2116
https://github.com/python-pillow/Pillow/pull/2286
Patch copied from upstream source repository:
https://github.com/python-pillow/Pillow/commit/acf68c835c93ba144f83198306aa7e6082a43f43
From acf68c835c93ba144f83198306aa7e6082a43f43 Mon Sep 17 00:00:00 2001
From: hugovk <hugovk@users.noreply.github.com>
Date: Mon, 12 Dec 2016 15:16:43 +0200
Subject: [PATCH] Increase epsilon for FreeType 2.7
---
Tests/test_imagefont.py | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/Tests/test_imagefont.py b/Tests/test_imagefont.py
index de89ac92..5207dce3 100644
--- a/Tests/test_imagefont.py
+++ b/Tests/test_imagefont.py
@@ -125,7 +125,9 @@ try:
target = 'Tests/images/rectangle_surrounding_text.png'
target_img = Image.open(target)
- self.assert_image_similar(im, target_img, .5)
+
+ # Epsilon ~.5 fails with FreeType 2.7
+ self.assert_image_similar(im, target_img, 2.5)
def test_render_multiline(self):
im = Image.new(mode='RGB', size=(300, 100))
@@ -144,7 +146,7 @@ try:
# some versions of freetype have different horizontal spacing.
# setting a tight epsilon, I'm showing the original test failure
# at epsilon = ~38.
- self.assert_image_similar(im, target_img, .5)
+ self.assert_image_similar(im, target_img, 6.2)
def test_render_multiline_text(self):
ttf = ImageFont.truetype(FONT_PATH, FONT_SIZE)
@@ -158,7 +160,8 @@ try:
target = 'Tests/images/multiline_text.png'
target_img = Image.open(target)
- self.assert_image_similar(im, target_img, .5)
+ # Epsilon ~.5 fails with FreeType 2.7
+ self.assert_image_similar(im, target_img, 6.2)
# Test that text() can pass on additional arguments
# to multiline_text()
@@ -178,7 +181,8 @@ try:
target = 'Tests/images/multiline_text'+ext+'.png'
target_img = Image.open(target)
- self.assert_image_similar(im, target_img, .5)
+ # Epsilon ~.5 fails with FreeType 2.7
+ self.assert_image_similar(im, target_img, 6.2)
def test_unknown_align(self):
im = Image.new(mode='RGB', size=(300, 100))
@@ -227,7 +231,8 @@ try:
target = 'Tests/images/multiline_text_spacing.png'
target_img = Image.open(target)
- self.assert_image_similar(im, target_img, .5)
+ # Epsilon ~.5 fails with FreeType 2.7
+ self.assert_image_similar(im, target_img, 6.2)
def test_rotated_transposed_font(self):
img_grey = Image.new("L", (100, 100))
--
2.12.0

71
gnu/packages/pdf.scm
View file

@ -13,6 +13,7 @@
;;; Copyright © 2017 Leo Famulari <leo@famulari.name> ;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2017 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2017 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2017 Rene Saavedra <rennes@openmailbox.org> ;;; Copyright © 2017 Rene Saavedra <rennes@openmailbox.org>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -43,6 +44,7 @@
#:use-module (gnu packages backup) #:use-module (gnu packages backup)
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages bash) #:use-module (gnu packages bash)
#:use-module (gnu packages check)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages curl) #:use-module (gnu packages curl)
#:use-module (gnu packages databases) #:use-module (gnu packages databases)
@ -311,7 +313,7 @@ reading and editing of existing PDF files.")
(define-public zathura-cb (define-public zathura-cb
(package (package
(name "zathura-cb") (name "zathura-cb")
(version "0.1.6") (version "0.1.7")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (uri
@ -319,11 +321,10 @@ reading and editing of existing PDF files.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1fim4mpm8l2g3msj1vg70ks3c9lrwllv3yh4jv8l9f8k3r19b3l8")))) "0r4viisycj39kaz4281cmkr7n9w5q96dmlf7nf45n8zq8qy2npw3"))))
(native-inputs `(("pkg-config" ,pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(propagated-inputs `(("girara" ,girara))) (propagated-inputs `(("girara" ,girara)))
(inputs `(("libarchive" ,libarchive) (inputs `(("libarchive" ,libarchive)
("gtk+" ,gtk+)
("zathura" ,zathura))) ("zathura" ,zathura)))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
@ -342,7 +343,7 @@ using libarchive.")
(define-public zathura-ps (define-public zathura-ps
(package (package
(name "zathura-ps") (name "zathura-ps")
(version "0.2.4") (version "0.2.5")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (uri
@ -350,11 +351,10 @@ using libarchive.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1nxbl0glnzpan78fhdfzhkcd0cikcvrkzf9m56mb0pvnwzlwg7zv")))) "1x4knqja8pw2a5cb3y2209nr3iddj1z8nwasy48v5nprj61fdxqj"))))
(native-inputs `(("pkg-config" ,pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(propagated-inputs `(("girara" ,girara))) (propagated-inputs `(("girara" ,girara)))
(inputs `(("libspectre" ,libspectre) (inputs `(("libspectre" ,libspectre)
("gtk+" ,gtk+)
("zathura" ,zathura))) ("zathura" ,zathura)))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
@ -373,7 +373,7 @@ using libspectre.")
(define-public zathura-djvu (define-public zathura-djvu
(package (package
(name "zathura-djvu") (name "zathura-djvu")
(version "0.2.6") (version "0.2.7")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (uri
@ -381,12 +381,11 @@ using libspectre.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0py0ra44f65cg064xzds0qr6vnglj2a5bwhnbwa0dyh2nyizdzmf")))) "1sbfdsyp50qc85xc4458sn4w1rv1qbygdwmcr5kjlfpsmdq98vhd"))))
(native-inputs `(("pkg-config" ,pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(propagated-inputs `(("girara" ,girara))) (propagated-inputs `(("girara" ,girara)))
(inputs (inputs
`(("djvulibre" ,djvulibre) `(("djvulibre" ,djvulibre)
("gtk+" ,gtk+)
("zathura" ,zathura))) ("zathura" ,zathura)))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
@ -405,7 +404,7 @@ using the DjVuLibre library.")
(define-public zathura-pdf-mupdf (define-public zathura-pdf-mupdf
(package (package
(name "zathura-pdf-mupdf") (name "zathura-pdf-mupdf")
(version "0.3.1") (version "0.3.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (uri
@ -413,12 +412,11 @@ using the DjVuLibre library.")
"/download/zathura-pdf-mupdf-" version ".tar.gz")) "/download/zathura-pdf-mupdf-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"06zqn8z6a0hfsx3s1kzqvqzb73afgcl6z5r062sxv7kv570fvffr")))) "0xkajc3is7ncmb2fmymbzfgrran2bz12i7zsm1vvxhxds728h7ck"))))
(native-inputs `(("pkg-config" ,pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(propagated-inputs `(("girara" ,girara))) (propagated-inputs `(("girara" ,girara)))
(inputs (inputs
`(("gtk+" ,gtk+) `(("jbig2dec" ,jbig2dec)
("jbig2dec" ,jbig2dec)
("libjpeg" ,libjpeg) ("libjpeg" ,libjpeg)
("mupdf" ,mupdf) ("mupdf" ,mupdf)
("openjpeg" ,openjpeg) ("openjpeg" ,openjpeg)
@ -440,7 +438,7 @@ by using the @code{mupdf} rendering library.")
(define-public zathura-pdf-poppler (define-public zathura-pdf-poppler
(package (package
(name "zathura-pdf-poppler") (name "zathura-pdf-poppler")
(version "0.2.7") (version "0.2.8")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (uri
@ -448,14 +446,12 @@ by using the @code{mupdf} rendering library.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1h43sgxpsbrsnn5z19661642plzhpv6b0y3f4kyzshv1rr6lwplq")))) "1m55m7s7f8ng8a7lmcw9z4n5zv7xk4vp9n6fp9j84z6rk2imf7a2"))))
(native-inputs `(("pkg-config" ,pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(propagated-inputs `(("girara" ,girara))) (propagated-inputs `(("girara" ,girara)))
(inputs (inputs
`(("poppler" ,poppler) `(("poppler" ,poppler)
("gtk+" ,gtk+) ("zathura" ,zathura)))
("zathura" ,zathura)
("cairo" ,cairo)))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags (list (string-append "PREFIX=" %output) `(#:make-flags (list (string-append "PREFIX=" %output)
@ -473,7 +469,7 @@ by using the poppler rendering engine.")
(define-public zathura (define-public zathura
(package (package
(name "zathura") (name "zathura")
(version "0.3.7") (version "0.3.8")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (uri
@ -481,14 +477,20 @@ by using the poppler rendering engine.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1w0g74dq4z2vl3f99s2gkaqrb5pskgzig10qhbxj4gq9yj4zzbr2")) "0dz5pky3vmf3s2cp2rv1c099gb1s49p9xlgm3ghyy4pzyxc8bgs6"))
(patches (search-patches (patches (search-patches
"zathura-plugindir-environment-variable.patch")))) "zathura-plugindir-environment-variable.patch"))))
(native-inputs `(("pkg-config" ,pkg-config) (native-inputs `(("pkg-config" ,pkg-config)
("gettext" ,gettext-minimal))) ("gettext" ,gettext-minimal)
(inputs `(("girara" ,girara) ("glib:bin" ,glib "bin")
("sqlite" ,sqlite)
("gtk+" ,gtk+))) ;; For tests.
("check" ,check)
("xorg-server" ,xorg-server)))
(inputs `(("sqlite" ,sqlite)))
;; Listed in 'Requires.private' of 'zathura.pc'.
(propagated-inputs `(("cairo" ,cairo)
("girara" ,girara)))
(native-search-paths (native-search-paths
(list (search-path-specification (list (search-path-specification
(variable "ZATHURA_PLUGIN_PATH") (variable "ZATHURA_PLUGIN_PATH")
@ -498,10 +500,19 @@ by using the poppler rendering engine.")
`(#:make-flags `(#:make-flags
`(,(string-append "PREFIX=" (assoc-ref %outputs "out")) `(,(string-append "PREFIX=" (assoc-ref %outputs "out"))
"CC=gcc" "COLOR=0") "CC=gcc" "COLOR=0")
#:tests? #f ; Tests fail: "Gtk cannot open display".
#:test-target "test" #:test-target "test"
#:phases #:phases (modify-phases %standard-phases
(modify-phases %standard-phases (delete 'configure)))) (delete 'configure)
(add-before 'check 'start-xserver
;; Tests require a running X server.
(lambda* (#:key inputs #:allow-other-keys)
(let ((xorg-server (assoc-ref inputs "xorg-server"))
(display ":1"))
(setenv "DISPLAY" display)
;; Don't fail due to missing '/etc/machine-id'.
(setenv "DBUS_FATAL_WARNINGS" "0")
(zero? (system (string-append xorg-server "/bin/Xvfb "
display " &")))))))))
(home-page "https://pwmt.org/projects/zathura/") (home-page "https://pwmt.org/projects/zathura/")
(synopsis "Lightweight keyboard-driven PDF viewer") (synopsis "Lightweight keyboard-driven PDF viewer")
(description "Zathura is a customizable document viewer. It provides a (description "Zathura is a customizable document viewer. It provides a
@ -686,13 +697,13 @@ using a stylus.")
(define-public python-reportlab (define-public python-reportlab
(package (package
(name "python-reportlab") (name "python-reportlab")
(version "3.3.0") (version "3.4.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "reportlab" version)) (uri (pypi-uri "reportlab" version))
(sha256 (sha256
(base32 (base32
"0rz2pg04wnzjjm2f5a8ik9v8s54mv4xrjhv5liqjijqv6awh12gl")))) "0hy304pzsz9lblmk7mrbk2682bi911lxgvzx2kcfpmfzb5gg7sjv"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
'(;; FIXME: There is one test failure, but it does not cause the '(;; FIXME: There is one test failure, but it does not cause the
@ -700,7 +711,7 @@ using a stylus.")
#:test-target "tests")) #:test-target "tests"))
(propagated-inputs (propagated-inputs
`(("python-pillow" ,python-pillow))) `(("python-pillow" ,python-pillow)))
(home-page "http://www.reportlab.com") (home-page "https://www.reportlab.com")
(synopsis "Python library for generating PDFs and graphics") (synopsis "Python library for generating PDFs and graphics")
(description "This is the ReportLab PDF Toolkit. It allows rapid creation (description "This is the ReportLab PDF Toolkit. It allows rapid creation
of rich PDF documents, and also creation of charts in a variety of bitmap and of rich PDF documents, and also creation of charts in a variety of bitmap and

5
gnu/packages/perl-web.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -26,7 +27,7 @@
(define-public perl-mojolicious (define-public perl-mojolicious
(package (package
(name "perl-mojolicious") (name "perl-mojolicious")
(version "7.29") (version "7.59")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -34,7 +35,7 @@
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1kmyb9axqbklyvr3l4d6mxnb0r97s9hzn7jpzksgckklp1ic8sqh")))) "11whfrbafj191ahbhlhadws0vkg9kmvqswzkvswgwajhr1x678rh"))))
(build-system perl-build-system) (build-system perl-build-system)
(home-page "http://mojolicious.org/") (home-page "http://mojolicious.org/")
(synopsis "Real-time web framework") (synopsis "Real-time web framework")

35
gnu/packages/perl.scm
View file

@ -5948,6 +5948,29 @@ cycle. Functions called in the package itself will still be bound by their
name, but they won't show up as methods on your class or instances.") name, but they won't show up as methods on your class or instances.")
(license (package-license perl)))) (license (package-license perl))))
(define-public perl-net-dns-native
(package
(name "perl-net-dns-native")
(version "0.15")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/O/OL/OLEG/Net-DNS-Native-"
version ".tar.gz"))
(sha256
(base32 "12bsv5jkic3q4arpzk6dda35didkn445v658j87rmi540dpnac85"))))
(build-system perl-build-system)
(home-page "http://search.cpan.org/dist/Net-DNS-Native/")
(synopsis "Non-blocking system DNS resolver")
(description
"This class provides several methods for host name resolution. It is
designed to be used with event loops. Names are resolved by your system's
native @code{getaddrinfo(3)} implementation, called in a separate thread to
avoid blocking the entire application. Threading overhead is limited by using
system threads instead of Perl threads.")
(license perl-license)))
(define-public perl-net-idn-encode (define-public perl-net-idn-encode
(package (package
(name "perl-net-idn-encode") (name "perl-net-idn-encode")
@ -6422,19 +6445,19 @@ for a given module is comprehensive.")
(define-public perl-pod-simple (define-public perl-pod-simple
(package (package
(name "perl-pod-simple") (name "perl-pod-simple")
(version "3.31") (version "3.35")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://cpan/authors/id/M/MA/MARCGREEN/" (uri (string-append "mirror://cpan/authors/id/K/KH/KHW/"
"Pod-Simple-" version ".tar.gz")) "Pod-Simple-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"04705pcs31s71vpmnpfdy8ds0q700q4cs2dlyssyrdjbvx3ymq3l")))) "0gg11ibbc02l2aw0bsv4jx0jax8z0apgfy3p5csqnvhlsb6218cr"))))
(build-system perl-build-system) (build-system perl-build-system)
(home-page "http://search.cpan.org/dist/Pod-Simple//") (home-page "http://search.cpan.org/dist/Pod-Simple/")
(synopsis "Parsing library for text in Pod format") (synopsis "Parsing library for text in Pod format")
(description "Pod::Simple is a Perl library for parsing text in (description "@code{Pod::Simple} is a Perl library for parsing text in
the Pod (plain old documentation) markup language that is typically the @dfn{Pod} (plain old documentation) markup language that is typically
used for writing documentation for Perl and for Perl modules.") used for writing documentation for Perl and for Perl modules.")
(license (package-license perl)))) (license (package-license perl))))

4
gnu/packages/photo.scm
View file

@ -326,7 +326,7 @@ photographic equipment.")
(define-public darktable (define-public darktable
(package (package
(name "darktable") (name "darktable")
(version "2.2.5") (version "2.4.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -335,7 +335,7 @@ photographic equipment.")
version "/darktable-" version ".tar.xz")) version "/darktable-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"10gjzd4irxhladh4jyss9kgp627k8vgx2divipsb33pp6cms80z3")))) "0y0q7a7k09sbg05k5xl1lz8n2ak1v8yarfv222ksvmbrxs53hdwx"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:tests? #f ; There are no tests. `(#:tests? #f ; There are no tests.

11
gnu/packages/pretty-print.scm
View file

@ -4,6 +4,7 @@
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -159,7 +160,7 @@ different programming languages.")
(define-public fmt (define-public fmt
(package (package
(name "fmt") (name "fmt")
(version "3.0.1") (version "4.1.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -167,11 +168,15 @@ different programming languages.")
version "/fmt-" version ".zip")) version "/fmt-" version ".zip"))
(sha256 (sha256
(base32 (base32
"0l4514mk83cjimynci3ghrfdchjy8cya1qa45c1fg2lsj7fg16jc")))) "1swyqw3dn2vx5sw2yh5vk0vrvrkp7fv07cj4272yxl5rrq1byjcx"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(native-inputs (native-inputs
`(("unzip" ,unzip))) `(("unzip" ,unzip)))
(home-page "http://fmtlib.net/latest/") (arguments
`(#:configure-flags
(list (string-append "-DCMAKE_INSTALL_LIBDIR="
(assoc-ref %outputs "out") "/lib"))))
(home-page "http://fmtlib.net/")
(synopsis "Small and fast C++ formatting library") (synopsis "Small and fast C++ formatting library")
(description (description
"@code{fmt} (formerly @code{cppformat}) is a formatting library for C++. "@code{fmt} (formerly @code{cppformat}) is a formatting library for C++.

4
gnu/packages/protobuf.scm
View file

@ -71,7 +71,7 @@ data in motion, or as a file format for data at rest.")
(define-public protobuf (define-public protobuf
(package (package
(name "protobuf") (name "protobuf")
(version "3.5.0") (version "3.5.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/google/protobuf/releases/" (uri (string-append "https://github.com/google/protobuf/releases/"
@ -79,7 +79,7 @@ data in motion, or as a file format for data at rest.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0lc5d5cnhsaiazc5gnsnv19bikk22rgcqlqzzrfvk6mkq98v1mld")))) "14j0427ykjzrd9a66c2mpk0sjcccjlsx6q8ww6hzwb6sha3vm3f2"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs `(("zlib" ,zlib))) (inputs `(("zlib" ,zlib)))
(outputs (list "out" (outputs (list "out"

5
gnu/packages/pulseaudio.scm
View file

@ -6,6 +6,7 @@
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017 Leo Famulari <leo@famulari.name> ;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at> ;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -264,14 +265,14 @@ sinks.")
(define-public pulsemixer (define-public pulsemixer
(package (package
(name "pulsemixer") (name "pulsemixer")
(version "1.3.0") (version "1.4.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/GeorgeFilipkin/" (uri (string-append "https://github.com/GeorgeFilipkin/"
"pulsemixer/archive/" version ".tar.gz")) "pulsemixer/archive/" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"03c94313fhxd5sbkl2ajzb2gmmm4hpv7m5rkbxmahwg9s8ih824r")))) "1lpad90ifr2xfldyf39sbwx1v85rif2gm9w774gwwpjv53zfgk1g"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
`(#:phases `(#:phases

43
gnu/packages/python-crypto.scm
View file

@ -396,6 +396,26 @@ library.")
(define-public python2-pyopenssl (define-public python2-pyopenssl
(package-with-python2 python-pyopenssl)) (package-with-python2 python-pyopenssl))
(define-public python-ed25519
(package
(name "python-ed25519")
(version "1.4")
(source
(origin
(method url-fetch)
(uri (pypi-uri "ed25519" version))
(sha256
(base32
"0ahx1nkxa0xis3cw0h5c4fpgv8mq4znkq7kajly33lc3317bk499"))))
(build-system python-build-system)
(home-page "https://github.com/warner/python-ed25519")
(synopsis "Ed25519 public-key signatures")
(description "Ed25519 public-key signatures")
(license license:expat)))
(define-public python2-ed25519
(package-with-python2 python-ed25519))
(define-public python-axolotl-curve25519 (define-public python-axolotl-curve25519
(package (package
(name "python-axolotl-curve25519") (name "python-axolotl-curve25519")
@ -635,3 +655,26 @@ Certificate (DER encoded, PEM encoded), RSA PEM (encoded private key, public
key), SSH public key, ASC-encoded OpenPGP key, APK Android application, LDIFF key), SSH public key, ASC-encoded OpenPGP key, APK Android application, LDIFF
file, and more.") file, and more.")
(license license:gpl3))) (license license:gpl3)))
(define-public python-ecpy
(package
(name "python-ecpy")
(version "0.8.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "ECPy" version))
(sha256
(base32
"090fqnj8z0xm44jrfpll7j45r68m6kp7mjr7yxzg93j42h3sj285"))))
(build-system python-build-system)
(propagated-inputs
`(("python-future" ,python-future)))
(home-page "https://github.com/ubinity/ECPy")
(synopsis "Pure Python Elliptic Curve Library")
(description "This package provides a Elliptic Curve Library in pure
Python.")
(license license:asl2.0)))
(define-public python2-ecpy
(package-with-python2 python-ecpy))

30
gnu/packages/python-web.scm
View file

@ -121,7 +121,7 @@ other HTTP libraries.")
#:tests? #f)) #:tests? #f))
(propagated-inputs (propagated-inputs
`(("python-tornado" ,python-tornado))) `(("python-tornado" ,python-tornado)))
(home-page "http://github.com/mrjoes/sockjs-tornado/") (home-page "https://github.com/mrjoes/sockjs-tornado/")
(synopsis (synopsis
"SockJS python server implementation on top of Tornado framework") "SockJS python server implementation on top of Tornado framework")
(description (description
@ -584,7 +584,7 @@ your Web app.")
(build-system python-build-system) (build-system python-build-system)
(native-inputs (native-inputs
`(("python-nose" ,python-nose))) `(("python-nose" ,python-nose)))
(home-page "http://webob.org/") (home-page "https://webob.org/")
(synopsis "WSGI request and response object") (synopsis "WSGI request and response object")
(description (description
"WebOb provides wrappers around the WSGI request environment, and an "WebOb provides wrappers around the WSGI request environment, and an
@ -607,7 +607,7 @@ object to help create WSGI responses.")
(base32 (base32
"11p75zpfz3ffhz21nzx9wb23xs993ck5s6hkjcvhswwizni5jynw")))) "11p75zpfz3ffhz21nzx9wb23xs993ck5s6hkjcvhswwizni5jynw"))))
(build-system python-build-system) (build-system python-build-system)
(home-page "http://pypi.python.org/pypi/zope.event") (home-page "https://pypi.python.org/pypi/zope.event")
(synopsis "Event publishing system for Python") (synopsis "Event publishing system for Python")
(description "Zope.event provides an event publishing API, intended for (description "Zope.event provides an event publishing API, intended for
use by applications which are unaware of any subscribers to their events. It use by applications which are unaware of any subscribers to their events. It
@ -694,7 +694,7 @@ that have uses outside of the Zope framework.")
`(("python-zope-exceptions" ,python-zope-exceptions))) `(("python-zope-exceptions" ,python-zope-exceptions)))
(propagated-inputs (propagated-inputs
`(("python-zope-interface" ,python-zope-interface))) `(("python-zope-interface" ,python-zope-interface)))
(home-page "http://pypi.python.org/pypi/zope.testing") (home-page "https://pypi.python.org/pypi/zope.testing")
(synopsis "Zope testing helpers") (synopsis "Zope testing helpers")
(description "Zope.testing provides a number of testing utilities for HTML (description "Zope.testing provides a number of testing utilities for HTML
forms, HTTP servers, regular expressions, and more.") forms, HTTP servers, regular expressions, and more.")
@ -727,7 +727,7 @@ forms, HTTP servers, regular expressions, and more.")
("unzip" ,unzip))) ("unzip" ,unzip)))
(propagated-inputs (propagated-inputs
`(("python-zope-interface" ,python-zope-interface))) `(("python-zope-interface" ,python-zope-interface)))
(home-page "http://pypi.python.org/pypi/zope.testrunner") (home-page "https://pypi.python.org/pypi/zope.testrunner")
(synopsis "Zope testrunner script") (synopsis "Zope testrunner script")
(description "Zope.testrunner provides a script for running Python (description "Zope.testrunner provides a script for running Python
tests.") tests.")
@ -757,7 +757,7 @@ tests.")
(base32 (base32
"1rslyph0klk58dmjjy4j0jxy21k03azksixc3x2xhqbkv97cmzml")))) "1rslyph0klk58dmjjy4j0jxy21k03azksixc3x2xhqbkv97cmzml"))))
(build-system python-build-system) (build-system python-build-system)
(home-page "http://pypi.python.org/pypi/zope.i18nmessageid") (home-page "https://pypi.python.org/pypi/zope.i18nmessageid")
(synopsis "Message identifiers for internationalization") (synopsis "Message identifiers for internationalization")
(description "Zope.i18nmessageid provides facilities for declaring (description "Zope.i18nmessageid provides facilities for declaring
internationalized messages within program source text.") internationalized messages within program source text.")
@ -789,7 +789,7 @@ internationalized messages within program source text.")
`(("python-zope-testing" ,python-zope-testing) `(("python-zope-testing" ,python-zope-testing)
("python-coverage" ,python-coverage) ("python-coverage" ,python-coverage)
("python-nose" ,python-nose))) ("python-nose" ,python-nose)))
(home-page "http://pypi.python.org/pypi/zope.schema") (home-page "https://pypi.python.org/pypi/zope.schema")
(synopsis "Zope data schemas") (synopsis "Zope data schemas")
(description "Zope.scheme provides extensions to zope.interface for (description "Zope.scheme provides extensions to zope.interface for
defining data schemas.") defining data schemas.")
@ -816,7 +816,7 @@ defining data schemas.")
(propagated-inputs (propagated-inputs
`(("python-zope-i18nmessageid" ,python-zope-i18nmessageid) `(("python-zope-i18nmessageid" ,python-zope-i18nmessageid)
("python-zope-schema" ,python-zope-schema))) ("python-zope-schema" ,python-zope-schema)))
(home-page "http://pypi.python.org/pypi/zope.configuration") (home-page "https://pypi.python.org/pypi/zope.configuration")
(synopsis "Zope Configuration Markup Language") (synopsis "Zope Configuration Markup Language")
(description "Zope.configuration implements ZCML, the Zope Configuration (description "Zope.configuration implements ZCML, the Zope Configuration
Markup Language.") Markup Language.")
@ -842,7 +842,7 @@ Markup Language.")
'(#:tests? #f)) ; FIXME: Tests can't find zope.interface. '(#:tests? #f)) ; FIXME: Tests can't find zope.interface.
(propagated-inputs (propagated-inputs
`(("python-zope-interface" ,python-zope-interface))) `(("python-zope-interface" ,python-zope-interface)))
(home-page "http://pypi.python.org/pypi/zope.proxy") (home-page "https://pypi.python.org/pypi/zope.proxy")
(synopsis "Generic, transparent proxies") (synopsis "Generic, transparent proxies")
(description "Zope.proxy provides generic, transparent proxies for Python. (description "Zope.proxy provides generic, transparent proxies for Python.
Proxies are special objects which serve as mostly-transparent wrappers around Proxies are special objects which serve as mostly-transparent wrappers around
@ -872,7 +872,7 @@ brokering, etc.) for which the proxy is responsible.")
(propagated-inputs (propagated-inputs
`(("python-zope-proxy" ,python-zope-proxy) `(("python-zope-proxy" ,python-zope-proxy)
("python-zope-schema" ,python-zope-schema))) ("python-zope-schema" ,python-zope-schema)))
(home-page "http://pypi.python.org/pypi/zope.location/") (home-page "https://pypi.python.org/pypi/zope.location/")
(synopsis "Zope location library") (synopsis "Zope location library")
(description "Zope.location implements the concept of \"locations\" in (description "Zope.location implements the concept of \"locations\" in
Zope3, which are are special objects that have a structural location.") Zope3, which are are special objects that have a structural location.")
@ -907,7 +907,7 @@ Zope3, which are are special objects that have a structural location.")
("python-zope-location" ,python-zope-location) ("python-zope-location" ,python-zope-location)
("python-zope-testrunner" ,python-zope-testrunner) ("python-zope-testrunner" ,python-zope-testrunner)
("python-zope-testing" ,python-zope-testing))) ("python-zope-testing" ,python-zope-testing)))
(home-page "http://pypi.python.org/pypi/zope.security") (home-page "https://pypi.python.org/pypi/zope.security")
(synopsis "Zope security framework") (synopsis "Zope security framework")
(description "Zope.security provides a generic mechanism to implement (description "Zope.security provides a generic mechanism to implement
security policies on Python objects.") security policies on Python objects.")
@ -1971,7 +1971,7 @@ users' sessions over extended periods of time.")
("python-pyasn1-modules" ,python-pyasn1-modules) ("python-pyasn1-modules" ,python-pyasn1-modules)
("python-rsa" ,python-rsa) ("python-rsa" ,python-rsa)
("python-six" ,python-six))) ("python-six" ,python-six)))
(home-page "http://github.com/google/oauth2client/") (home-page "https://github.com/google/oauth2client/")
(synopsis "OAuth 2.0 client library") (synopsis "OAuth 2.0 client library")
(description "@code{python-oauth2client} provides an OAuth 2.0 client (description "@code{python-oauth2client} provides an OAuth 2.0 client
library for Python") library for Python")
@ -2098,7 +2098,7 @@ this it tries to be opinion-free and very extendable.")
(native-inputs (native-inputs
`(("python-pytest" ,python-pytest))) `(("python-pytest" ,python-pytest)))
(home-page (home-page
"http://github.com/smurfix/flask-script") "https://github.com/smurfix/flask-script")
(synopsis "Scripting support for Flask") (synopsis "Scripting support for Flask")
(description "The Flask-Script extension provides support for writing (description "The Flask-Script extension provides support for writing
external scripts in Flask. This includes running a development server, external scripts in Flask. This includes running a development server,
@ -2128,7 +2128,7 @@ itself.")
("python-sqlalchemy" ,python-sqlalchemy) ("python-sqlalchemy" ,python-sqlalchemy)
("python-flask-script" ,python-flask-script) ("python-flask-script" ,python-flask-script)
("python-flask-sqlalchemy" ,python-flask-sqlalchemy))) ("python-flask-sqlalchemy" ,python-flask-sqlalchemy)))
(home-page "http://github.com/miguelgrinberg/flask-migrate/") (home-page "https://github.com/miguelgrinberg/flask-migrate/")
(synopsis "SQLAlchemy database migrations for Flask programs using (synopsis "SQLAlchemy database migrations for Flask programs using
Alembic") Alembic")
(description "This package contains SQLAlchemy database migration tools (description "This package contains SQLAlchemy database migration tools
@ -2219,7 +2219,7 @@ thread-local variable.")
(build-system python-build-system) (build-system python-build-system)
(native-inputs (native-inputs
`(("python-flask" ,python-flask))) `(("python-flask" ,python-flask)))
(home-page "http://github.com/miguelgrinberg/flask-httpauth/") (home-page "https://github.com/miguelgrinberg/flask-httpauth/")
(synopsis "Basic and Digest HTTP authentication for Flask routes") (synopsis "Basic and Digest HTTP authentication for Flask routes")
(description "@code{flask_httpauth} provides Basic and Digest HTTP (description "@code{flask_httpauth} provides Basic and Digest HTTP
authentication for Flask routes.") authentication for Flask routes.")

272
gnu/packages/python.scm
View file

@ -974,7 +974,7 @@ from the Python interpreter, or as a small part of a larger application.")
(native-inputs (native-inputs
`(("python-py" ,python-py) `(("python-py" ,python-py)
("python-pytest" ,python-pytest-bootstrap))) ("python-pytest" ,python-pytest-bootstrap)))
(home-page "http://pypi.python.org/pypi/six/") (home-page "https://pypi.python.org/pypi/six/")
(synopsis "Python 2 and 3 compatibility utilities") (synopsis "Python 2 and 3 compatibility utilities")
(description (description
"Six is a Python 2 and 3 compatibility library. It provides utility "Six is a Python 2 and 3 compatibility library. It provides utility
@ -2681,12 +2681,12 @@ between language specification and implementation aspects.")
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'build 'set-environment-variables (add-before 'build 'configure-blas-lapack
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(call-with-output-file "site.cfg" (call-with-output-file "site.cfg"
(lambda (port) (lambda (port)
(format port (format port
"[openblas] "[openblas]
libraries = openblas libraries = openblas
library_dirs = ~a/lib library_dirs = ~a/lib
include_dirs = ~a/include include_dirs = ~a/include
@ -2697,30 +2697,33 @@ lapack_libs = lapack
library_dirs = ~a/lib library_dirs = ~a/lib
include_dirs = ~a/include include_dirs = ~a/include
" "
(assoc-ref inputs "openblas") (assoc-ref inputs "openblas")
(assoc-ref inputs "openblas") (assoc-ref inputs "openblas")
(assoc-ref inputs "lapack") (assoc-ref inputs "lapack")
(assoc-ref inputs "lapack")))) (assoc-ref inputs "lapack"))))
;; Make /gnu/store/...-bash-.../bin/sh the default shell, instead of #t))
;; /bin/sh. (add-before 'build 'fix-executable-paths
(substitute* "numpy/distutils/exec_command.py" (lambda* (#:key inputs #:allow-other-keys)
(("(os.environ.get\\('SHELL', ')(/bin/sh'\\))" match match-start match-end) ;; Make /gnu/store/...-bash-.../bin/sh the default shell,
(string-append match-start (assoc-ref inputs "bash") match-end))) ;; instead of /bin/sh.
;; Use "gcc" executable, not "cc". (substitute* "numpy/distutils/exec_command.py"
(substitute* "numpy/distutils/system_info.py" (("(os.environ.get\\('SHELL', ')(/bin/sh'\\))" match match-start match-end)
(("c = distutils\\.ccompiler\\.new_compiler\\(\\)") (string-append match-start (assoc-ref inputs "bash") match-end)))
"c = distutils.ccompiler.new_compiler(); c.set_executables(compiler='gcc',compiler_so='gcc',linker_exe='gcc',linker_so='gcc -shared')")) ;; Use "gcc" executable, not "cc".
#t)) (substitute* "numpy/distutils/system_info.py"
;; Tests can only be run after the library has been installed and not (("c = distutils\\.ccompiler\\.new_compiler\\(\\)")
;; within the source directory. "c = distutils.ccompiler.new_compiler(); c.set_executables(compiler='gcc',compiler_so='gcc',linker_exe='gcc',linker_so='gcc -shared')"))
(delete 'check) #t))
(add-after 'install 'check ;; Tests can only be run after the library has been installed and not
(lambda* (#:key outputs inputs #:allow-other-keys) ;; within the source directory.
;; Make installed package available for running the tests (delete 'check)
(add-installed-pythonpath inputs outputs) (add-after 'install 'check
(with-directory-excursion "/tmp" (lambda* (#:key outputs inputs #:allow-other-keys)
(zero? (system* "python" "-c" ;; Make installed package available for running the tests
"import numpy; numpy.test(verbose=2)")))))))) (add-installed-pythonpath inputs outputs)
(with-directory-excursion "/tmp"
(zero? (system* "python" "-c"
"import numpy; numpy.test(verbose=2)"))))))))
(home-page "http://www.numpy.org/") (home-page "http://www.numpy.org/")
(synopsis "Fundamental package for scientific computing with Python") (synopsis "Fundamental package for scientific computing with Python")
(description "NumPy is the fundamental package for scientific computing (description "NumPy is the fundamental package for scientific computing
@ -2753,6 +2756,49 @@ capabilities.")
(define-public python2-numpy-next (define-public python2-numpy-next
(package-with-python2 python-numpy-next)) (package-with-python2 python-numpy-next))
;; NOTE: NumPy 1.8 is packaged only for Python 2 because it is of
;; interest only for legacy code going back to NumPy's predecessor
;; Numeric.
(define-public python2-numpy-1.8
(package (inherit python2-numpy)
(version "1.8.2")
(source
(origin
(method url-fetch)
(uri (string-append
"https://github.com/numpy/numpy/archive/v" version ".tar.gz"))
(file-name (string-append "python2-numpy-" version ".tar.gz"))
(sha256
(base32
"0sc20gz1b17xnyrkp5frca3ql5qfalpv916hfg2kqxpwr6jg0f1g"))))
(arguments
(substitute-keyword-arguments (package-arguments python2-numpy)
((#:phases phases)
`(modify-phases ,phases
(replace 'configure-blas-lapack
(lambda* (#:key inputs #:allow-other-keys)
(call-with-output-file "site.cfg"
(lambda (port)
(format port
"[openblas]
libraries = openblas,lapack
library_dirs = ~a/lib:~a/lib
include_dirs = ~a/include:~a/include
"
(assoc-ref inputs "openblas")
(assoc-ref inputs "lapack")
(assoc-ref inputs "openblas")
(assoc-ref inputs "lapack"))))
#t))))))
(description "NumPy is the fundamental package for scientific computing
with Python. It contains among other things: a powerful N-dimensional array
object, sophisticated (broadcasting) functions, tools for integrating C/C++
and Fortran code, useful linear algebra, Fourier transform, and random number
capabilities. Version 1.8 is the last one to contain the numpy.oldnumeric API
that includes the compatibility layer numpy.oldnumeric with NumPy's predecessor
Numeric.")
(license license:bsd-3)))
(define-public python-munch (define-public python-munch
(package (package
(name "python-munch") (name "python-munch")
@ -2820,7 +2866,7 @@ objects.")
`(("python-colormath" ,python-colormath))) `(("python-colormath" ,python-colormath)))
(native-inputs (native-inputs
`(("python-nose" ,python-nose))) `(("python-nose" ,python-nose)))
(home-page "http://github.com/jsvine/spectra") (home-page "https://github.com/jsvine/spectra")
(synopsis "Color scales and color conversion") (synopsis "Color scales and color conversion")
(description (description
"This package provides a Python library intended to make color math, "This package provides a Python library intended to make color math,
@ -3541,7 +3587,7 @@ atlas_libs = openblas
(zero? (system* "python" "-c" (zero? (system* "python" "-c"
"import scipy; scipy.test('full')"))) "import scipy; scipy.test('full')")))
#t))))) #t)))))
(home-page "http://www.scipy.org/") (home-page "https://www.scipy.org/")
(synopsis "The Scipy library provides efficient numerical routines") (synopsis "The Scipy library provides efficient numerical routines")
(description "The SciPy library is one of the core packages that make up (description "The SciPy library is one of the core packages that make up
the SciPy stack. It provides many user-friendly and efficient numerical the SciPy stack. It provides many user-friendly and efficient numerical
@ -3719,18 +3765,45 @@ Python's distutils.")
services for your Python modules and applications.") services for your Python modules and applications.")
(license license:lgpl3+))) (license license:lgpl3+)))
(define-public python-olefile
(package
(name "python-olefile")
(version "0.44")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/decalage2/olefile/archive/v"
version ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"1wmxbrhyqjry2000zx0zdhqdqxhgi06nz7sbzjlh222q2zjv1gpj"))))
(build-system python-build-system)
(home-page
"https://www.decalage.info/python/olefileio")
(synopsis "Read and write Microsoft OLE2 files.")
(description
"@code{olefile} can parse, read and write Microsoft OLE2 files (Structured
Storage or Compound Document, Microsoft Office). It is an improved version of
the OleFileIO module from PIL, the Python Image Library.")
(license license:bsd-3)))
(define-public python2-olefile
(package-with-python2 python-olefile))
(define-public python-pillow (define-public python-pillow
(package (package
(name "python-pillow") (name "python-pillow")
(version "3.3.3") (version "4.3.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "Pillow" version)) (uri (pypi-uri "Pillow" version))
(patches (search-patches "python-pillow-freetype-2.7-test-failure.patch"))
(sha256 (sha256
(base32 (base32
"0xkv0p1d73gz0a1qaasf0ai4262g8f334j07vd60bjrxs2wr3nmj")))) "09xmn7rl6840sli2iz1k3fgxfgmri2nqz6vkinmb9mgg8ifp2z59"))
(patch-flags '("-p1" "--binary"))
(patches (search-patches "python-pillow-fix-failing-tests.patch"))))
(build-system python-build-system) (build-system python-build-system)
(native-inputs (native-inputs
`(("python-nose" ,python-nose))) `(("python-nose" ,python-nose)))
@ -3742,6 +3815,8 @@ services for your Python modules and applications.")
("openjpeg" ,openjpeg) ("openjpeg" ,openjpeg)
("libtiff" ,libtiff) ("libtiff" ,libtiff)
("libwebp" ,libwebp))) ("libwebp" ,libwebp)))
(propagated-inputs
`(("python-olefile" ,python-olefile)))
(arguments (arguments
`(#:phases (modify-phases %standard-phases `(#:phases (modify-phases %standard-phases
(add-after (add-after
@ -4709,7 +4784,7 @@ libxml2 and libxslt.")
(replace 'check (replace 'check
(lambda _ (zero? (system* "./convert-py3k"))))))) (lambda _ (zero? (system* "./convert-py3k")))))))
(home-page (home-page
"http://www.crummy.com/software/BeautifulSoup/bs4/") "https://www.crummy.com/software/BeautifulSoup/bs4/")
(synopsis (synopsis
"Python screen-scraping library") "Python screen-scraping library")
(description (description
@ -6101,7 +6176,7 @@ a hash value.")
(arguments (arguments
;; There are no tests. ;; There are no tests.
`(#:tests? #f)) `(#:tests? #f))
(home-page "http://pypi.python.org/pypi/termcolor") (home-page "https://pypi.python.org/pypi/termcolor")
(synopsis "ANSII Color formatting for terminal output") (synopsis "ANSII Color formatting for terminal output")
(description (description
"This package provides ANSII Color formatting for output in terminals.") "This package provides ANSII Color formatting for output in terminals.")
@ -7231,7 +7306,7 @@ text.")
encryption and decryption, signing and verifying signatures, and key encryption and decryption, signing and verifying signatures, and key
generation according to PKCS#1 version 1.5. It can be used as a Python generation according to PKCS#1 version 1.5. It can be used as a Python
library as well as on the command line.") library as well as on the command line.")
(home-page "http://stuvel.eu/rsa") (home-page "https://stuvel.eu/rsa")
(license license:asl2.0))) (license license:asl2.0)))
(define-public python2-rsa (define-public python2-rsa
@ -7490,7 +7565,7 @@ fast xml and html manipulation.")
;; but it could be annoying/difficult. ;; but it could be annoying/difficult.
;; We can enable tests for the Python 2 version, though, and do below. ;; We can enable tests for the Python 2 version, though, and do below.
#:tests? #f)) #:tests? #f))
(home-page "http://bitbucket.org/runeh/anyjson/") (home-page "https://bitbucket.org/runeh/anyjson/")
(synopsis (synopsis
"Wraps best available JSON implementation in a common interface") "Wraps best available JSON implementation in a common interface")
(description (description
@ -7835,7 +7910,7 @@ useful for solving the Assignment Problem.")
(build-system python-build-system) (build-system python-build-system)
(native-inputs (native-inputs
`(("python-pytest" ,python-pytest))) `(("python-pytest" ,python-pytest)))
(home-page "http://bitbucket.org/mchaput/whoosh") (home-page "https://bitbucket.org/mchaput/whoosh")
(synopsis "Full text indexing, search, and spell checking library") (synopsis "Full text indexing, search, and spell checking library")
(description (description
"Whoosh is a fast, pure-Python full text indexing, search, and spell "Whoosh is a fast, pure-Python full text indexing, search, and spell
@ -7905,7 +7980,7 @@ anymore.")
`(#:python ,python-2)) `(#:python ,python-2))
(native-inputs (native-inputs
`(("python2-six" ,python2-six))) `(("python2-six" ,python2-six)))
(home-page "http://pypi.python.org/pypi/pathlib2/") (home-page "https://pypi.python.org/pypi/pathlib2/")
(synopsis "Object-oriented file system paths - backport of standard (synopsis "Object-oriented file system paths - backport of standard
pathlib module") pathlib module")
(description "The goal of pathlib2 is to provide a backport of standard (description "The goal of pathlib2 is to provide a backport of standard
@ -10035,7 +10110,7 @@ protocols written in pure Python.")
(zero? (system* "python" "test/test_pbkdf2.py"))))))) (zero? (system* "python" "test/test_pbkdf2.py")))))))
(propagated-inputs (propagated-inputs
`(("python-pycrypto" ,python-pycrypto))) ; optional `(("python-pycrypto" ,python-pycrypto))) ; optional
(home-page "http://www.dlitz.net/software/python-pbkdf2/") (home-page "https://www.dlitz.net/software/python-pbkdf2/")
(synopsis "Password-based key derivation") (synopsis "Password-based key derivation")
(description "This module implements the password-based key derivation (description "This module implements the password-based key derivation
function, PBKDF2, specified in RSA PKCS#5 v2.0. function, PBKDF2, specified in RSA PKCS#5 v2.0.
@ -10121,7 +10196,7 @@ to ansi-escaped strings suitable for display in a terminal.")
("python-nose" ,python-nose))) ("python-nose" ,python-nose)))
(propagated-inputs (propagated-inputs
`(("python-six" ,python-six))) `(("python-six" ,python-six)))
(home-page "http://github.com/ralphbean/ansi2html") (home-page "https://github.com/ralphbean/ansi2html")
(synopsis "Convert ANSI-decorated console output to HTML") (synopsis "Convert ANSI-decorated console output to HTML")
(description (description
"@command{ansi2html} is a Python library and command line utility for "@command{ansi2html} is a Python library and command line utility for
@ -11292,7 +11367,7 @@ applying JSON Patches according to RFC 6902.")
(base32 (base32
"192pclzs2y0yaywqkrlvd0x73740q310kvqvm6jldhi619mq59wi")))) "192pclzs2y0yaywqkrlvd0x73740q310kvqvm6jldhi619mq59wi"))))
(build-system python-build-system) (build-system python-build-system)
(home-page "http://pypi.python.org/pypi/rfc3987") (home-page "https://pypi.python.org/pypi/rfc3987")
(synopsis "Parsing and validation of URIs (RFC 3986) and IRIs (RFC 3987)") (synopsis "Parsing and validation of URIs (RFC 3986) and IRIs (RFC 3987)")
(description "@code{rfc3987} provides routines for parsing and (description "@code{rfc3987} provides routines for parsing and
validation of URIs (see RFC 3986) and IRIs (see RFC 3987).") validation of URIs (see RFC 3986) and IRIs (see RFC 3987).")
@ -11313,7 +11388,7 @@ validation of URIs (see RFC 3986) and IRIs (see RFC 3987).")
(base32 (base32
"1bxffaf5yz2cph8ki55vdvdypbwkvn2xr1firlcy62vqbzf1jivq")))) "1bxffaf5yz2cph8ki55vdvdypbwkvn2xr1firlcy62vqbzf1jivq"))))
(build-system python-build-system) (build-system python-build-system)
(home-page "http://github.com/syrusakbary/validate_email") (home-page "https://github.com/syrusakbary/validate_email")
(synopsis "Verifies if an email address is valid and really exists") (synopsis "Verifies if an email address is valid and really exists")
(description "@code{validate_email} can be used to verify if an email (description "@code{validate_email} can be used to verify if an email
address is valid and really exists.") address is valid and really exists.")
@ -11476,7 +11551,7 @@ from your Flask project. It is a fork of Flask-Swagger.")
`(("python-jsonschema" ,python-jsonschema) `(("python-jsonschema" ,python-jsonschema)
("python-six" ,python-six))) ("python-six" ,python-six)))
(home-page (home-page
"http://github.com/Yelp/swagger_spec_validator") "https://github.com/Yelp/swagger_spec_validator")
(synopsis "Validation of Swagger specifications") (synopsis "Validation of Swagger specifications")
(description "@code{swagger_spec_validator} provides a library for (description "@code{swagger_spec_validator} provides a library for
validating Swagger API specifications.") validating Swagger API specifications.")
@ -12072,3 +12147,106 @@ particularly convenient for use in tests.")
(define-public python2-tempdir (define-public python2-tempdir
(package-with-python2 python-tempdir)) (package-with-python2 python-tempdir))
(define-public python-activepapers
(package
(name "python-activepapers")
(version "0.2.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "ActivePapers.Py" version))
(sha256
(base32
"12wkhjh90ffipjzv10swndp2xv9hd7xrxvg6v0n4n3i411pj4xb8"))))
(build-system python-build-system)
(arguments
`(#:modules ((ice-9 ftw)
(srfi srfi-1)
(guix build utils)
(guix build python-build-system))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'delete-python2-code
(lambda _
(for-each delete-file
'("lib/activepapers/builtins2.py"
"lib/activepapers/standardlib2.py"
"lib/activepapers/utility2.py"))))
(replace 'check
(lambda _
;; Deactivate the test cases that download files
(setenv "NO_NETWORK_ACCESS" "1")
;; For some strange reason, some tests fail if nosetests runs all
;; test modules in a single execution. They pass if each test
;; module is run individually.
(for-each (lambda (filename)
(invoke "nosetests"
(string-append "tests/" filename)))
(scandir "tests"
(lambda (filename)
(string-suffix? ".py" filename)))))))))
(native-inputs
`(("python-tempdir" ,python-tempdir)
("python-nose" ,python-nose)))
(propagated-inputs
`(("python-h5py" ,python-h5py)))
(home-page "http://www.activepapers.org/")
(synopsis "Executable papers for scientific computing")
(description
"ActivePapers is a tool for working with executable papers, which
combine data, code, and documentation in single-file packages,
suitable for publication as supplementary material or on repositories
such as figshare or Zenodo.")
(properties `((python2-variant . ,(delay python2-activepapers))))
(license license:bsd-3)))
(define-public python2-activepapers
(let ((base (package-with-python2
(strip-python2-variant python-activepapers))))
(package
(inherit base)
(arguments
(substitute-keyword-arguments (package-arguments base)
((#:phases phases)
`(modify-phases ,phases
(delete 'delete-python2-code)
(add-after 'unpack 'delete-python3-code
(lambda _
(for-each delete-file
'("lib/activepapers/builtins3.py"
"lib/activepapers/standardlib3.py"
"lib/activepapers/utility3.py")))))))))))
(define-public python-semver
(package
(name "python-semver")
(version "2.7.9")
(source
(origin
(method url-fetch)
(uri (pypi-uri "semver" version))
(sha256
(base32
"0hhgqppchv59rqj0yzi1prdg2nfsywqmjsqy2rycyxm0hvxmbyqz"))))
(build-system python-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-test-requirements
(lambda _
(substitute* "setup.py"
;; Our Python is new enough.
(("'virtualenv<14\\.0\\.0'") "'virtualenv'"))
#t)))))
(native-inputs
`(("python-tox" ,python-tox)
("python-virtualenv" ,python-virtualenv)))
(home-page "https://github.com/k-bx/python-semver")
(synopsis "Python helper for Semantic Versioning")
(description "This package provides a Python library for
@url{Semantic Versioning, http://semver.org/}.")
(license license:bsd-3)))
(define-public python2-semver
(package-with-python2 python-semver))

5
gnu/packages/qt.scm
View file

@ -7,6 +7,7 @@
;;; Copyright © 2016 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2016 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Quiliro <quiliro@fsfla.org> ;;; Copyright © 2017 Quiliro <quiliro@fsfla.org>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -1983,7 +1984,7 @@ time Web content can be enhanced with native controls.")
(define-public dotherside (define-public dotherside
(package (package
(name "dotherside") (name "dotherside")
(version "0.5.2") (version "0.6.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -1992,7 +1993,7 @@ time Web content can be enhanced with native controls.")
(file-name (string-append name "-" version ".tar.gz")) (file-name (string-append name "-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0pqlrvy4ajjir80ra79ka3n0rjj0ir0f0m91cq86iz3nnw8w148z")))) "0azq7qlsrfdwbd6qsi7d3c1knn42qw0r47g43xf7clwbinapswpz"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(native-inputs (native-inputs
`(("qttools" ,qttools))) `(("qttools" ,qttools)))

134
gnu/packages/ruby.scm
View file

@ -5,9 +5,11 @@
;;; Copyright © 2014, 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2014, 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017 Ben Woodcroft <donttrustben@gmail.com> ;;; Copyright © 2015, 2016, 2017 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2017 ng0 <contact.ng0@cryptolab.net> ;;; Copyright © 2017 ng0 <ng0@n0.is>
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -100,7 +102,7 @@
(synopsis "Programming language interpreter") (synopsis "Programming language interpreter")
(description "Ruby is a dynamic object-oriented programming language with (description "Ruby is a dynamic object-oriented programming language with
a focus on simplicity and productivity.") a focus on simplicity and productivity.")
(home-page "https://ruby-lang.org") (home-page "https://www.ruby-lang.org")
(license license:ruby))) (license license:ruby)))
(define-public ruby-2.3 (define-public ruby-2.3
@ -204,14 +206,14 @@ a focus on simplicity and productivity.")
(define-public ruby-highline (define-public ruby-highline
(package (package
(name "ruby-highline") (name "ruby-highline")
(version "1.7.8") (version "1.7.10")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (rubygems-uri "highline" version)) (uri (rubygems-uri "highline" version))
(sha256 (sha256
(base32 (base32
"1nf5lgdn6ni2lpfdn4gk3gi47fmnca2bdirabbjbz1fk9w4p8lkr")))) "01ib7jp85xjc4gh4jg0wyzllm46hwv8p0w1m4c75pbgi41fps50y"))))
(build-system ruby-build-system) (build-system ruby-build-system)
(arguments (arguments
`(#:tests? #f)) ;; TODO: NameError: uninitialized constant SPEC `(#:tests? #f)) ;; TODO: NameError: uninitialized constant SPEC
@ -230,13 +232,13 @@ a menu system for providing multiple options to the user.")
(define-public ruby-hoe (define-public ruby-hoe
(package (package
(name "ruby-hoe") (name "ruby-hoe")
(version "3.16.0") (version "3.16.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (rubygems-uri "hoe" version)) (uri (rubygems-uri "hoe" version))
(sha256 (sha256
(base32 (base32
"03r8nsw4n4mnia9iqiqk9kqhvrl96m2i81j4yg8cpnppd8vk7vlb")))) "12q6dn2irsfamdbjpqvs0dwl4i1vl7wflxrcg972h9jw0ds38f3a"))))
(build-system ruby-build-system) (build-system ruby-build-system)
(synopsis "Ruby project management helper") (synopsis "Ruby project management helper")
(description (description
@ -245,7 +247,7 @@ maintain, and release projects and includes a dynamic plug-in system allowing
for easy extensibility. Hoe ships with plug-ins for all the usual project for easy extensibility. Hoe ships with plug-ins for all the usual project
tasks including rdoc generation, testing, packaging, deployment, and tasks including rdoc generation, testing, packaging, deployment, and
announcement.") announcement.")
(home-page "http://www.zenspider.com/projects/hoe.html") (home-page "https://www.zenspider.com/projects/hoe.html")
(license license:expat))) (license license:expat)))
(define-public ruby-rake-compiler (define-public ruby-rake-compiler
@ -488,7 +490,7 @@ expectations and mocks frameworks.")
(synopsis "Ruby gem bundler") (synopsis "Ruby gem bundler")
(description "Bundler automatically downloads and installs a list of gems (description "Bundler automatically downloads and installs a list of gems
specified in a \"Gemfile\", as well as their dependencies.") specified in a \"Gemfile\", as well as their dependencies.")
(home-page "http://bundler.io/") (home-page "https://bundler.io/")
(license license:expat))) (license license:expat)))
(define-public ruby-builder (define-public ruby-builder
@ -541,7 +543,7 @@ supported: XML Markup and XML Events.")
(synopsis "Ruby-to-Java bridge using the Java Native Interface") (synopsis "Ruby-to-Java bridge using the Java Native Interface")
(description "RJB is a bridge program that connects Ruby and Java via the (description "RJB is a bridge program that connects Ruby and Java via the
Java Native Interface.") Java Native Interface.")
(home-page "http://www.artonx.org/collabo/backyard/?RubyJavaBridge") (home-page "https://www.artonx.org/collabo/backyard/?RubyJavaBridge")
(license license:lgpl2.1+))) (license license:lgpl2.1+)))
(define-public ruby-log4r (define-public ruby-log4r
@ -744,7 +746,7 @@ extensions.")
(synopsis "Ruby bindings for GNOME Libxml2") (synopsis "Ruby bindings for GNOME Libxml2")
(description "The Libxml-Ruby project provides Ruby language bindings for (description "The Libxml-Ruby project provides Ruby language bindings for
the GNOME Libxml2 XML toolkit.") the GNOME Libxml2 XML toolkit.")
(home-page "http://xml4r.github.com/libxml-ruby") (home-page "https://xml4r.github.com/libxml-ruby")
(license license:expat))) (license license:expat)))
(define-public ruby-xml-simple (define-public ruby-xml-simple
@ -858,7 +860,7 @@ and inspect the environment.")
(synopsis "Library to perform operations with sequence permutations") (synopsis "Library to perform operations with sequence permutations")
(description "This package provides a Ruby library to perform different (description "This package provides a Ruby library to perform different
operations with permutations of sequences, such as strings and arrays.") operations with permutations of sequences, such as strings and arrays.")
(home-page "http://flori.github.io/permutation") (home-page "https://flori.github.io/permutation")
(license license:gpl2))) ; GPL 2 only (license license:gpl2))) ; GPL 2 only
(define-public ruby-shellany (define-public ruby-shellany
@ -1024,13 +1026,13 @@ Ruby Gems.")
(define-public ruby-simplecov-html (define-public ruby-simplecov-html
(package (package
(name "ruby-simplecov-html") (name "ruby-simplecov-html")
(version "0.10.1") (version "0.10.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (rubygems-uri "simplecov-html" version)) (uri (rubygems-uri "simplecov-html" version))
(sha256 (sha256
(base32 (base32
"0f3psphismgp6jp1fxxz09zbswh7m2xxxr6gqlzdh7sgv415clvm")))) "1lihraa4rgxk8wbfl77fy9sf0ypk31iivly8vl3w04srd7i0clzn"))))
(build-system ruby-build-system) (build-system ruby-build-system)
(arguments `(#:tests? #f)) ; there are no tests (arguments `(#:tests? #f)) ; there are no tests
(native-inputs (native-inputs
@ -1231,7 +1233,7 @@ Soundex, Metaphone, Double Metaphone, Porter Stemming.")
"Gettext is a GNU gettext-like program for Ruby. The catalog "Gettext is a GNU gettext-like program for Ruby. The catalog
file (po-file) used is the same as that used by GNU gettext, allowing you to file (po-file) used is the same as that used by GNU gettext, allowing you to
use GNU gettext tools for maintenance.") use GNU gettext tools for maintenance.")
(home-page "http://ruby-gettext.github.com/") (home-page "https://ruby-gettext.github.com/")
(license (list license:lgpl3+ license:ruby)))) (license (list license:lgpl3+ license:ruby))))
(define-public ruby-packnga (define-public ruby-packnga
@ -1281,7 +1283,7 @@ use GNU gettext tools for maintenance.")
on xUnit principles. These were originally designed by Kent Beck, creator of on xUnit principles. These were originally designed by Kent Beck, creator of
extreme programming software development methodology, for Smalltalk's SUnit. extreme programming software development methodology, for Smalltalk's SUnit.
It allows writing tests, checking results and automated testing in Ruby.") It allows writing tests, checking results and automated testing in Ruby.")
(home-page "http://test-unit.github.io/") (home-page "https://test-unit.github.io/")
(license (list license:psfl license:ruby)))) (license (list license:psfl license:ruby))))
(define-public ruby-metaclass (define-public ruby-metaclass
@ -1812,13 +1814,13 @@ for specs that share expensive database setup code.")
(define-public ruby-daemons (define-public ruby-daemons
(package (package
(name "ruby-daemons") (name "ruby-daemons")
(version "1.2.4") (version "1.2.5")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (rubygems-uri "daemons" version)) (uri (rubygems-uri "daemons" version))
(sha256 (sha256
(base32 (base32
"1bmb4qrd95b5gl3ym5j3q6mf090209f4vkczggn49n56w6s6zldz")))) "15smbsg0gxb7nf0nrlnplc68y0cdy13dm6fviavpmw7c630sring"))))
(build-system ruby-build-system) (build-system ruby-build-system)
(arguments (arguments
`(#:tests? #f)) ; no test suite `(#:tests? #f)) ; no test suite
@ -2139,14 +2141,14 @@ rate.")
(define-public ruby-pry (define-public ruby-pry
(package (package
(name "ruby-pry") (name "ruby-pry")
(version "0.11.1") (version "0.11.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (rubygems-uri "pry" version)) (uri (rubygems-uri "pry" version))
(sha256 (sha256
(base32 (base32
"0ci461a55sn50rlrmcl97ycf79681glp443a2gzp23rnm7y70fkj")))) "1mh312k3y94sj0pi160wpia0ps8f4kmzvm505i6bvwynfdh7v30g"))))
(build-system ruby-build-system) (build-system ruby-build-system)
(arguments (arguments
'(#:tests? #f)) ; no tests '(#:tests? #f)) ; no tests
@ -2157,7 +2159,7 @@ rate.")
(description "Pry is an IRB alternative and runtime developer console for (description "Pry is an IRB alternative and runtime developer console for
Ruby. It features syntax highlighting, a plugin architecture, runtime Ruby. It features syntax highlighting, a plugin architecture, runtime
invocation, and source and documentation browsing.") invocation, and source and documentation browsing.")
(home-page "http://pryrepl.org") (home-page "https://pryrepl.org")
(license license:expat))) (license license:expat)))
(define-public ruby-guard (define-public ruby-guard
@ -2231,27 +2233,27 @@ utilities for Ruby.")
(define-public ruby-tzinfo (define-public ruby-tzinfo
(package (package
(name "ruby-tzinfo") (name "ruby-tzinfo")
(version "1.2.3") (version "1.2.4")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (rubygems-uri "tzinfo" version)) (uri (rubygems-uri "tzinfo" version))
(sha256 (sha256
(base32 (base32
"05r81lk7q7275rdq7xipfm0yxgqyd2ggh73xpc98ypngcclqcscl")))) "09dpbrih054mn42flbbcdpzk2727mzfvjrgqb12zdafhx7p9rrzp"))))
(build-system ruby-build-system) (build-system ruby-build-system)
(propagated-inputs (propagated-inputs
`(("ruby-thread-safe" ,ruby-thread-safe))) `(("ruby-thread-safe" ,ruby-thread-safe)))
(synopsis "Time zone library for Ruby") (synopsis "Time zone library for Ruby")
(description "TZInfo is a Ruby library that provides daylight savings (description "TZInfo is a Ruby library that provides daylight savings
aware transformations between times in different time zones.") aware transformations between times in different time zones.")
(home-page "http://tzinfo.github.io") (home-page "https://tzinfo.github.io")
(license license:expat))) (license license:expat)))
(define-public ruby-tzinfo-data (define-public ruby-tzinfo-data
(package (package
(name "ruby-tzinfo-data") (name "ruby-tzinfo-data")
(version "1.2016.9") (version "1.2017.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -2264,7 +2266,7 @@ aware transformations between times in different time zones.")
(file-name (string-append name "-" version ".tar.gz")) (file-name (string-append name "-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0i8vz2j7wmcpr4pd066qvlg4if5blscjrgxk2imavfa49nq5lp06")) "01wff7syqzikbxalbg3isgxasmvzicr85bzadzkb6bf20bip4v54"))
;; Remove the known test failure. ;; Remove the known test failure.
;; https://github.com/tzinfo/tzinfo-data/issues/10 ;; https://github.com/tzinfo/tzinfo-data/issues/10
;; https://bugs.launchpad.net/ubuntu/+source/glibc/+bug/1587128 ;; https://bugs.launchpad.net/ubuntu/+source/glibc/+bug/1587128
@ -2277,7 +2279,7 @@ aware transformations between times in different time zones.")
(description (description
"This library provides @code{TZInfo::Data}, which contains data from the "This library provides @code{TZInfo::Data}, which contains data from the
IANA Time Zone database packaged as Ruby modules for use with @code{TZInfo}.") IANA Time Zone database packaged as Ruby modules for use with @code{TZInfo}.")
(home-page "http://tzinfo.github.io") (home-page "https://tzinfo.github.io")
(license license:expat))) (license license:expat)))
(define-public ruby-rb-inotify (define-public ruby-rb-inotify
@ -2509,7 +2511,7 @@ Ruby's large and slower test/unit.")
(description (description
"This Ruby library uses ANSI escape sequences to control the attributes "This Ruby library uses ANSI escape sequences to control the attributes
of terminal output.") of terminal output.")
(home-page "http://flori.github.io/term-ansicolor/") (home-page "https://flori.github.io/term-ansicolor/")
;; There is no mention of the "or later" clause. ;; There is no mention of the "or later" clause.
(license license:gpl2))) (license license:gpl2)))
@ -2531,7 +2533,7 @@ of terminal output.")
(description (description
"This library uses the output of the @code{ps} command to create a "This library uses the output of the @code{ps} command to create a
process tree data structure for the current host.") process tree data structure for the current host.")
(home-page "http://flori.github.com/pstree") (home-page "https://github.com/flori/pstree")
;; There is no mention of the "or later" clause. ;; There is no mention of the "or later" clause.
(license license:gpl2))) (license license:gpl2)))
@ -2610,12 +2612,13 @@ a native C extension.")
(zero? (system* "rake" "gemspec"))))))) (zero? (system* "rake" "gemspec")))))))
(native-inputs (native-inputs
`(("bundler" ,bundler) `(("bundler" ,bundler)
("ruby-test-unit" ,ruby-test-unit) ("ragel" ,ragel)
("ruby-simplecov" ,ruby-simplecov))) ("ruby-simplecov" ,ruby-simplecov)
("ruby-test-unit" ,ruby-test-unit)))
(synopsis "JSON implementation in pure Ruby") (synopsis "JSON implementation in pure Ruby")
(description (description
"This package provides a JSON implementation written in pure Ruby.") "This package provides a JSON implementation written in pure Ruby.")
(home-page "http://flori.github.com/json") (home-page "https://flori.github.com/json")
(license license:ruby))) (license license:ruby)))
;; Even though this package only provides bindings for a Mac OSX API it is ;; Even though this package only provides bindings for a Mac OSX API it is
@ -2697,13 +2700,13 @@ multibyte strings, internationalization, time zones, and testing.")
(define-public ruby-crass (define-public ruby-crass
(package (package
(name "ruby-crass") (name "ruby-crass")
(version "1.0.2") (version "1.0.3")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (rubygems-uri "crass" version)) (uri (rubygems-uri "crass" version))
(sha256 (sha256
(base32 (base32
"1c377r8g7m58y22803iyjgqkkvnnii0pymskda1pardxrzaighj9")))) "1czijxlagzpzwchr2ldrgfi7kywg08idjpq37ndcmwh4fmz72c4l"))))
(build-system ruby-build-system) (build-system ruby-build-system)
(native-inputs (native-inputs
`(("bundler" ,bundler) `(("bundler" ,bundler)
@ -3087,7 +3090,7 @@ differences (added or removed nodes) between two XML/HTML documents.")
developing web applications in Ruby. By wrapping HTTP requests and responses, developing web applications in Ruby. By wrapping HTTP requests and responses,
it unifies the API for web servers, web frameworks, and software in between it unifies the API for web servers, web frameworks, and software in between
into a single method call.") into a single method call.")
(home-page "http://rack.github.io/") (home-page "https://rack.github.io/")
(license license:expat))) (license license:expat)))
(define-public ruby-docile (define-public ruby-docile
@ -3216,7 +3219,7 @@ features such as filtering and fine grained logging.")
language. It enables the user to generate consistent, usable documentation language. It enables the user to generate consistent, usable documentation
that can be exported to a number of formats very easily, and also supports that can be exported to a number of formats very easily, and also supports
extending for custom Ruby constructs such as custom class level definitions.") extending for custom Ruby constructs such as custom class level definitions.")
(home-page "http://yardoc.org") (home-page "https://yardoc.org")
(license license:expat))) (license license:expat)))
(define-public ruby-clap (define-public ruby-clap
@ -3774,7 +3777,7 @@ methods, a @code{Mixin} module for including color methods, a @code{Logger}, a
@code{ProgressBar}, and a @code{String} subclass. The library also includes a @code{ProgressBar}, and a @code{String} subclass. The library also includes a
@code{Terminal} module which provides information about the current output @code{Terminal} module which provides information about the current output
device.") device.")
(home-page "http://rubyworks.github.io/ansi") (home-page "https://rubyworks.github.io/ansi")
(license license:bsd-2))) (license license:bsd-2)))
(define-public ruby-systemu (define-public ruby-systemu
@ -3869,7 +3872,7 @@ detail to ease debugging.")
"Rubytest is a testing meta-framework for Ruby. It can handle any "Rubytest is a testing meta-framework for Ruby. It can handle any
compliant test framework and can run tests from multiple frameworks in a compliant test framework and can run tests from multiple frameworks in a
single pass.") single pass.")
(home-page "http://rubyworks.github.io/rubytest") (home-page "https://rubyworks.github.io/rubytest")
(license license:bsd-2))) (license license:bsd-2)))
(define-public ruby-brass (define-public ruby-brass
@ -3897,7 +3900,7 @@ single pass.")
"BRASS (Bare-Metal Ruby Assertion System Standard) is a basic "BRASS (Bare-Metal Ruby Assertion System Standard) is a basic
foundational assertions framework for other assertion and test frameworks to foundational assertions framework for other assertion and test frameworks to
make use of.") make use of.")
(home-page "http://rubyworks.github.io/brass") (home-page "https://rubyworks.github.io/brass")
(license license:bsd-2))) (license license:bsd-2)))
(define-public ruby-qed (define-public ruby-qed
@ -3930,7 +3933,7 @@ make use of.")
Development} (BDD) utilizing Literate Programming techniques. QED sits Development} (BDD) utilizing Literate Programming techniques. QED sits
somewhere between lower-level testing tools like @code{Test::Unit} and somewhere between lower-level testing tools like @code{Test::Unit} and
requirement specifications systems like Cucumber.") requirement specifications systems like Cucumber.")
(home-page "http://rubyworks.github.io/qed") (home-page "https://rubyworks.github.io/qed")
(license license:bsd-2))) (license license:bsd-2)))
(define-public ruby-ae (define-public ruby-ae
@ -3973,7 +3976,7 @@ requirement specifications systems like Cucumber.")
(description (description
"Assertive Expressive (AE) is an assertions library specifically designed "Assertive Expressive (AE) is an assertions library specifically designed
for reuse by other test frameworks.") for reuse by other test frameworks.")
(home-page "http://rubyworks.github.io/ae") (home-page "https://rubyworks.github.io/ae")
(license license:bsd-2))) (license license:bsd-2)))
(define-public ruby-lemon (define-public ruby-lemon
@ -4003,7 +4006,7 @@ for reuse by other test frameworks.")
"Lemon is a unit testing framework that enforces highly formal "Lemon is a unit testing framework that enforces highly formal
case-to-class and unit-to-method test construction. This enforcement can help case-to-class and unit-to-method test construction. This enforcement can help
focus concern on individual units of behavior.") focus concern on individual units of behavior.")
(home-page "http://rubyworks.github.io/lemon") (home-page "https://rubyworks.github.io/lemon")
(license license:bsd-2))) (license license:bsd-2)))
(define-public ruby-rubytest-cli (define-public ruby-rubytest-cli
@ -4027,7 +4030,7 @@ focus concern on individual units of behavior.")
(description (description
"Rubytest CLI is a command-line interface for running tests for "Rubytest CLI is a command-line interface for running tests for
Rubytest-based test frameworks. It provides the @code{rubytest} executable.") Rubytest-based test frameworks. It provides the @code{rubytest} executable.")
(home-page "http://rubyworks.github.io/rubytest-cli") (home-page "https://rubyworks.github.io/rubytest-cli")
(license license:bsd-2))) (license license:bsd-2)))
(define-public ruby-hashery (define-public ruby-hashery
@ -4062,7 +4065,7 @@ Included are the auto-sorting @code{Dictionary} class, the efficient
defines a CRUD (Create, Read, Update and Delete) model on top of Ruby's defines a CRUD (Create, Read, Update and Delete) model on top of Ruby's
standard @code{Hash} making it possible to subclass and augment to fit any standard @code{Hash} making it possible to subclass and augment to fit any
specific use case.") specific use case.")
(home-page "http://rubyworks.github.io/hashery") (home-page "https://rubyworks.github.io/hashery")
(license license:bsd-2))) (license license:bsd-2)))
(define-public ruby-rc4 (define-public ruby-rc4
@ -4445,3 +4448,48 @@ are doing, you can fiddle with every last bit of your email directly.")
more robust and work for non rails projects.") more robust and work for non rails projects.")
(home-page "http://github.com/danmayer/code_statistics") (home-page "http://github.com/danmayer/code_statistics")
(license license:expat))) (license license:expat)))
(define-public ruby-rubypants
(package
(name "ruby-rubypants")
(version "0.6.0")
(source (origin
(method url-fetch)
(uri (rubygems-uri "rubypants" version))
(sha256
(base32
"0xpqkslan2wkyal2h9qhplkr5d4sdn7q6csigrhnljjpp8j4qfsh"))))
(build-system ruby-build-system)
(arguments
'(#:tests? #f)) ; need Codecov
(synopsis "Port of the smart-quotes library SmartyPants")
(description
"RubyPants is a Ruby port of the smart-quotes library SmartyPants. The
original SmartyPants is a web publishing plug-in for Movable Type, Blosxom,
and BBEdit that easily translates plain ASCII punctuation characters into
smart typographic punctuation HTML entities.")
(home-page "https://github.com/jmcnevin/rubypants")
(license license:bsd-2)))
(define-public ruby-org-ruby
(package
(name "ruby-org-ruby")
(version "0.9.12")
(source (origin
(method url-fetch)
(uri (rubygems-uri "org-ruby" version))
(sha256
(base32
"0x69s7aysfiwlcpd9hkvksfyld34d8kxr62adb59vjvh8hxfrjwk"))))
(build-system ruby-build-system)
(arguments
'(#:tests? #f)) ; no rakefile
(propagated-inputs
`(("ruby-rubypants" ,ruby-rubypants)))
(synopsis "Org-mode parser written in Ruby")
(description
"Org-ruby is an org-mode parser written in Ruby. The most significant
thing this library does today is convert org-mode files to HTML or Textile or
Markdown.")
(home-page "https://github.com/wallyqs/org-ruby")
(license license:expat)))

222
gnu/packages/scheme.scm
View file

@ -8,6 +8,7 @@
;;; Copyright © 2016, 2017 ng0 <contact.ng0@cryptolab.net> ;;; Copyright © 2016, 2017 ng0 <contact.ng0@cryptolab.net>
;;; Copyright © 2017 John Darrington <jmd@gnu.org> ;;; Copyright © 2017 John Darrington <jmd@gnu.org>
;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -336,17 +337,14 @@ mashups, office (web agendas, mail clients, ...), etc.")
(define-public chicken (define-public chicken
(package (package
(name "chicken") (name "chicken")
(version "4.12.0") (version "4.13.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://code.call-cc.org/releases/" (uri (string-append "https://code.call-cc.org/releases/"
version "/chicken-" version ".tar.gz")) version "/chicken-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"12b9gaa9lqh39lj1v4wm48f6z8ww3jdkvc5bh9gqqvn6kd2wwnk0")) "0hvckhi5gfny3mlva6d7y9pmx7cbwvq0r7mk11k3sdiik9hlkmdd"))))
(patches
(search-patches "chicken-CVE-2017-6949.patch"
"chicken-CVE-2017-11343.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules ((guix build gnu-build-system) `(#:modules ((guix build gnu-build-system)
@ -403,17 +401,17 @@ implementation techniques and as an expository tool.")
(define-public racket (define-public racket
(package (package
(name "racket") (name "racket")
(version "6.8") (version "6.11")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (list (string-append "http://mirror.racket-lang.org/installers/" (uri (list (string-append "http://mirror.racket-lang.org/installers/"
version "/racket-" version "-src.tgz") version "/racket-" version "-src.tgz")
(string-append (string-append
"http://mirror.informatik.uni-tuebingen.de/mirror/racket/" "http://mirror.informatik.uni-tuebingen.de/mirror/racket/"
version "/racket/racket-" version "-src-unix.tgz"))) version "/racket-" version "-src.tgz")))
(sha256 (sha256
(base32 (base32
"1l9z1a0r5zydr50cklx9xjw3l0pwnf64i10xq7112fl1r89q3qgv")))) "1nk7705x24jjlbqqhj8yvbgqkfscxx3m81bry1g56kjxysjmf3sw"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases '(#:phases
@ -517,7 +515,7 @@ of libraries.")
(define-public gambit-c (define-public gambit-c
(package (package
(name "gambit-c") (name "gambit-c")
(version "4.8.5") (version "4.8.8")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -527,7 +525,7 @@ of libraries.")
(string-map (lambda (c) (if (char=? c #\.) #\_ c)) version) (string-map (lambda (c) (if (char=? c #\.) #\_ c)) version)
".tgz")) ".tgz"))
(sha256 (sha256
(base32 "0xwmqzqvk83xyjz48vp36p5vj1415rl3pi3xq7y8i3p8s409a98b")))) (base32 "1plw1id94mpg2c4y6q9z39ndcz1hbxfnp3i08szsg6794rasmgkk"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:configure-flags '(#:configure-flags
@ -602,7 +600,7 @@ threads.")
(package (package
(name "scmutils") (name "scmutils")
(version "20140302") (version "20160827")
(source (source
(origin (origin
(method url-fetch/tarbomb) (method url-fetch/tarbomb)
@ -614,7 +612,7 @@ threads.")
"/scmutils-tarballs/" name "-" version "/scmutils-tarballs/" name "-" version
"-x86-64-gnu-linux.tar.gz")) "-x86-64-gnu-linux.tar.gz"))
(sha256 (sha256
(base32 "10cnbm7nh78m5mrl1di85s29gny81jb1am9zd9f9yx725xb6dnfg")))) (base32 "00ly5m0s4dy5kxravjaqlpii5zcnr6b9nqm0607lr7xcs52i4j8b"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(("mit-scheme" ,mit-scheme) `(("mit-scheme" ,mit-scheme)
@ -629,104 +627,104 @@ threads.")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'configure (replace 'configure
;; No standard build procedure is used. We set the correct ;; No standard build procedure is used. We set the correct
;; runtime path in the custom build system. ;; runtime path in the custom build system.
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
;; Required to find .bci files at runtime. ;; Required to find .bci files at runtime.
(with-directory-excursion "scmutils" (with-directory-excursion "scmutils"
(rename-file "src" "scmutils")) (rename-file "src" "scmutils"))
(substitute* "scmutils/scmutils/load.scm" (substitute* "scmutils/scmutils/load.scm"
(("/usr/local/scmutils/") (("/usr/local/scmutils/")
(string-append out "/lib/mit-scheme-" (string-append out "/lib/mit-scheme-"
,(system-suffix) "/"))) ,(system-suffix) "/")))
#t))) #t)))
(replace 'build (replace 'build
;; Compile the code and build a band. ;; Compile the code and build a band.
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(make-img (string-append (make-img (string-append
"echo '(load \"load\") " "echo '(load \"load\") "
"(disk-save \"edwin-mechanics.com\")'" "(disk-save \"edwin-mechanics.com\")'"
"| mit-scheme"))) "| mit-scheme")))
(with-directory-excursion "scmutils/scmutils" (with-directory-excursion "scmutils/scmutils"
(and (zero? (system "mit-scheme < compile.scm")) (and (zero? (system "mit-scheme < compile.scm"))
(zero? (system make-img))))))) (zero? (system make-img)))))))
(add-before 'install 'fix-directory-names (add-before 'install 'fix-directory-names
;; Correct directory names in the startup script. ;; Correct directory names in the startup script.
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(scm-root (assoc-ref inputs "mit-scheme"))) (scm-root (assoc-ref inputs "mit-scheme")))
(substitute* "bin/mechanics" (substitute* "bin/mechanics"
(("ROOT=\"\\$\\{SCMUTILS_ROOT:-/.*\\}\"") (("ROOT=\"\\$\\{SCMUTILS_ROOT:-/.*\\}\"")
(string-append (string-append
"ROOT=\"${SCMUTILS_ROOT:-" scm-root "}\"\n" "ROOT=\"${SCMUTILS_ROOT:-" scm-root "}\"\n"
"LIB=\"${ROOT}/lib/mit-scheme-" "LIB=\"${ROOT}/lib/mit-scheme-"
,(system-suffix) ":" ,(system-suffix) ":"
out "/lib/mit-scheme-" ,(system-suffix) "\"")) out "/lib/mit-scheme-" ,(system-suffix) "\""))
(("EDWIN_INFO_DIRECTORY=.*\n") "") (("EDWIN_INFO_DIRECTORY=.*\n") "")
(("SCHEME=.*\n") (("SCHEME=.*\n")
(string-append "SCHEME=\"${ROOT}/bin/scheme " (string-append "SCHEME=\"${ROOT}/bin/scheme "
"--library ${LIB}\"\n")) "--library ${LIB}\"\n"))
(("export EDWIN_INFO_DIRECTORY") "")) (("export EDWIN_INFO_DIRECTORY") ""))
#t))) #t)))
(add-before 'install 'emacs-tags (add-before 'install 'emacs-tags
;; Generate Emacs's tags for easy reference to source ;; Generate Emacs's tags for easy reference to source
;; code. ;; code.
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(with-directory-excursion "scmutils/scmutils" (with-directory-excursion "scmutils/scmutils"
(zero? (apply system* "etags" (zero? (apply system* "etags"
(find-files "." "\\.scm")))))) (find-files "." "\\.scm"))))))
(replace 'install (replace 'install
;; Copy files to the store. ;; Copy files to the store.
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(define* (copy-files-to-directory files dir (define* (copy-files-to-directory files dir
#:optional (delete? #f)) #:optional (delete? #f))
(for-each (lambda (f) (for-each (lambda (f)
(copy-file f (string-append dir "/" f)) (copy-file f (string-append dir "/" f))
(when delete? (delete-file f))) (when delete? (delete-file f)))
files)) files))
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")) (bin (string-append out "/bin"))
(doc (string-append out "/share/doc/" (doc (string-append out "/share/doc/"
,name "-" ,version)) ,name "-" ,version))
(lib (string-append out "/lib/mit-scheme-" (lib (string-append out "/lib/mit-scheme-"
,(system-suffix) ,(system-suffix)
"/scmutils"))) "/scmutils")))
(for-each mkdir-p (list lib doc bin)) (for-each mkdir-p (list lib doc bin))
(with-directory-excursion "scmutils/scmutils" (with-directory-excursion "scmutils/scmutils"
(copy-files-to-directory '("COPYING" "LICENSE") (copy-files-to-directory '("COPYING" "LICENSE")
doc #t) doc #t)
(for-each delete-file (find-files "." "\\.bin")) (for-each delete-file (find-files "." "\\.bin"))
(copy-files-to-directory '("edwin-mechanics.com") (copy-files-to-directory '("edwin-mechanics.com")
(string-append lib "/..") #t) (string-append lib "/..") #t)
(copy-recursively "." lib)) (copy-recursively "." lib))
(with-directory-excursion "bin" (with-directory-excursion "bin"
(copy-files-to-directory (find-files ".") bin)) (copy-files-to-directory (find-files ".") bin))
(with-directory-excursion "scmutils/manual" (with-directory-excursion "scmutils/manual"
(copy-files-to-directory (find-files ".") doc)) (copy-files-to-directory (find-files ".") doc))
#t))) #t)))
(add-after 'install 'emacs-helpers (add-after 'install 'emacs-helpers
;; Add convenience Emacs commands to easily load the ;; Add convenience Emacs commands to easily load the
;; Scmutils band in an MIT-Scheme buffer inside of Emacs ;; Scmutils band in an MIT-Scheme buffer inside of Emacs
;; and to easily load code tags. ;; and to easily load code tags.
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(mit-root (assoc-ref inputs "mit-scheme")) (mit-root (assoc-ref inputs "mit-scheme"))
(emacs-lisp-dir (emacs-lisp-dir
(string-append out "/share/emacs/site-lisp" (string-append out "/share/emacs/site-lisp"
"/guix.d/" ,name "-" ,version)) "/guix.d/" ,name "-" ,version))
(el-file (string-append emacs-lisp-dir (el-file (string-append emacs-lisp-dir
"/scmutils.el")) "/scmutils.el"))
(lib-relative-path (lib-relative-path
(string-append "/lib/mit-scheme-" (string-append "/lib/mit-scheme-"
,(system-suffix)))) ,(system-suffix))))
(mkdir-p emacs-lisp-dir) (mkdir-p emacs-lisp-dir)
(call-with-output-file el-file (call-with-output-file el-file
(lambda (p) (lambda (p)
(format p (format p
";;;###autoload ";;;###autoload
(defun scmutils-load () (defun scmutils-load ()
(interactive) (interactive)
(require 'xscheme) (require 'xscheme)
@ -762,10 +760,10 @@ engineering.")
(license gpl2+)))) (license gpl2+))))
(define-public sicp (define-public sicp
(let ((commit "5b52db566968d28a89fbbaf338d207f01cc81cac")) (let ((commit "225c172f9b859902a64a3c5dd5e1f9ac1a7382de"))
(package (package
(name "sicp") (name "sicp")
(version (string-append "20160220-1." (string-take commit 7))) (version (string-append "20170703-1." (string-take commit 7)))
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -773,7 +771,7 @@ engineering.")
(commit commit))) (commit commit)))
(sha256 (sha256
(base32 (base32
"10h6h7szwlfbshwh18bnl2hvyddj5i7106l79s145l0sjjv15cxb")) "0bhdrdc1mgdjdsg4jksq9z6x129f3346jbf3zir2a0dfmsj6m10n"))
(file-name (string-append name "-" version "-checkout")))) (file-name (string-append name "-" version "-checkout"))))
(build-system trivial-build-system) (build-system trivial-build-system)
(native-inputs `(("gzip" ,gzip) (native-inputs `(("gzip" ,gzip)
@ -804,7 +802,7 @@ engineering.")
(every zero? (every zero?
(map (cut system* "gzip" "-9n" <>) (map (cut system* "gzip" "-9n" <>)
(find-files info-dir)))))))) (find-files info-dir))))))))
(home-page "http://sarabander.github.io/sicp") (home-page "https://sarabander.github.io/sicp")
(synopsis "Structure and Interpretation of Computer Programs") (synopsis "Structure and Interpretation of Computer Programs")
(description "Structure and Interpretation of Computer Programs (SICP) is (description "Structure and Interpretation of Computer Programs (SICP) is
a textbook aiming to teach the principles of computer programming. a textbook aiming to teach the principles of computer programming.
@ -815,8 +813,8 @@ metalinguistic abstraction, recursion, interpreters, and modular programming.")
(license cc-by-sa4.0)))) (license cc-by-sa4.0))))
(define-public scheme48-rx (define-public scheme48-rx
(let* ((commit "d3231ad13de2b44e3ee173b1c9d09ff165e8b6d5") (let* ((commit "dd9037f6f9ea01019390614f6b126b7dd293798d")
(revision "1")) (revision "2"))
(package (package
(name "scheme48-rx") (name "scheme48-rx")
(version (string-append "0.0.0-" revision "." (string-take commit 7))) (version (string-append "0.0.0-" revision "." (string-take commit 7)))
@ -828,7 +826,7 @@ metalinguistic abstraction, recursion, interpreters, and modular programming.")
(commit commit))) (commit commit)))
(sha256 (sha256
(base32 (base32
"1nmziaibgmfi346kzidj6xyad0vm7724qymbzgxvdzyrqji6v6yz")) "1bvriavxw5kf2izjbil3999vr983vkk2xplfpinafr86m40b2cci"))
(file-name (string-append name "-" version "-checkout")))) (file-name (string-append name "-" version "-checkout"))))
(build-system trivial-build-system) (build-system trivial-build-system)
(arguments (arguments
@ -880,7 +878,7 @@ regular-expression notation.")
(assoc-ref outputs "out"))))))))) (assoc-ref outputs "out")))))))))
(native-inputs `(("unzip" ,unzip) (native-inputs `(("unzip" ,unzip)
("texinfo" ,texinfo))) ("texinfo" ,texinfo)))
(home-page "http://people.csail.mit.edu/jaffer/SLIB/") (home-page "http://people.csail.mit.edu/jaffer/SLIB.html")
(synopsis "Compatibility and utility library for Scheme") (synopsis "Compatibility and utility library for Scheme")
(description "SLIB is a portable Scheme library providing compatibility and (description "SLIB is a portable Scheme library providing compatibility and
utility functions for all standard Scheme implementations.") utility functions for all standard Scheme implementations.")

11
gnu/packages/serialization.scm
View file

@ -8,6 +8,7 @@
;;; Copyright © 2017 Gregor Giesen <giesen@zaehlwerk.net> ;;; Copyright © 2017 Gregor Giesen <giesen@zaehlwerk.net>
;;; Copyright © 2017 Frederick M. Muriithi <fredmanglis@gmail.com> ;;; Copyright © 2017 Frederick M. Muriithi <fredmanglis@gmail.com>
;;; Copyright © 2017 ng0 <ng0@infotropique.org> ;;; Copyright © 2017 ng0 <ng0@infotropique.org>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -360,14 +361,14 @@ However, “Memory efficiency” and “Speed” have not been primary goals.")
(define-public python-ruamel.yaml (define-public python-ruamel.yaml
(package (package
(name "python-ruamel.yaml") (name "python-ruamel.yaml")
(version "0.15.33") (version "0.15.35")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "ruamel.yaml" version)) (uri (pypi-uri "ruamel.yaml" version))
(sha256 (sha256
(base32 (base32
"1s4b0zwn9pkk4xxjhx77giyfddc738drd6vgraw6n2syvj03s31d")))) "0xggyfaj6vprggahf7cq8kp9j79rb7hn8ndk3bxj2sxvwhhliiwd"))))
(build-system python-build-system) (build-system python-build-system)
(native-inputs (native-inputs
`(("python-pytest" ,python-pytest))) `(("python-pytest" ,python-pytest)))
@ -403,8 +404,8 @@ style and key ordering are kept, so you can diff the source.")
(synopsis "Implementation of the Concise Binary Object Representation") (synopsis "Implementation of the Concise Binary Object Representation")
(description (description
"Python-cbor provides an implementation of the Concise Binary Object "Python-cbor provides an implementation of the Concise Binary Object
Representation (CBOR). CBOR is comparable to JSON, has a superset of JSON's Representation (@dfn{CBOR}). CBOR is comparable to JSON, has a superset of
ability, but serializes to a binary format which is smaller and faster to JSON's ability, but serializes to a binary format which is smaller and faster
generate and parse. The two primary functions are @code{cbor.loads} and to generate and parse. The two primary functions are @code{cbor.loads} and
@code{cbor.dumps}.") @code{cbor.dumps}.")
(license license:asl2.0))) (license license:asl2.0)))

14
gnu/packages/shells.scm
View file

@ -3,7 +3,7 @@
;;; Copyright © 2014, 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2014, 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2014 Kevin Lemonnier <lemonnierk@ulrar.net> ;;; Copyright © 2014 Kevin Lemonnier <lemonnierk@ulrar.net>
;;; Copyright © 2015 Jeff Mickey <j@codemac.net> ;;; Copyright © 2015 Jeff Mickey <j@codemac.net>
;;; Copyright © 2016 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2016, 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016 Stefan Reichör <stefan@xsteve.at> ;;; Copyright © 2016 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 ng0 <ng0@n0.is> ;;; Copyright © 2017 ng0 <ng0@n0.is>
@ -88,7 +88,7 @@ direct descendant of NetBSD's Almquist Shell (@command{ash}).")
(define-public fish (define-public fish
(package (package
(name "fish") (name "fish")
(version "2.7.0") (version "2.7.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (uri
@ -100,7 +100,7 @@ direct descendant of NetBSD's Almquist Shell (@command{ash}).")
name "-" version ".tar.gz"))) name "-" version ".tar.gz")))
(sha256 (sha256
(base32 (base32
"1jvvm27hp46w0cia14lfz6161dkz8b935j1m7j38i7rgx75bfxis")) "0nhc3yc5lnnan7zmxqqxm07rdpwjww5ijy45ll2njdc6fnfb2az4"))
(modules '((guix build utils))) (modules '((guix build utils)))
;; Don't try to install /etc/fish/config.fish. ;; Don't try to install /etc/fish/config.fish.
(snippet (snippet
@ -139,10 +139,10 @@ direct descendant of NetBSD's Almquist Shell (@command{ash}).")
discoverability, and friendliness. Fish has very user-friendly and powerful discoverability, and friendliness. Fish has very user-friendly and powerful
tab-completion, including descriptions of every completion, completion of tab-completion, including descriptions of every completion, completion of
strings with wildcards, and many completions for specific commands. It also strings with wildcards, and many completions for specific commands. It also
has extensive and discoverable help. A special help command gives access to has extensive and discoverable help. A special @command{help} command gives
all the fish documentation in your web browser. Other features include smart access to all the fish documentation in your web browser. Other features
terminal handling based on terminfo, an easy to search history, and syntax include smart terminal handling based on terminfo, an easy to search history,
highlighting.") and syntax highlighting.")
(home-page "https://fishshell.com/") (home-page "https://fishshell.com/")
(license gpl2))) (license gpl2)))

36
gnu/packages/ssh.scm
View file

@ -9,6 +9,7 @@
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at> ;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 ng0 <ng0@n0.is>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -608,15 +609,16 @@ monitor it, restarting it as necessary should it die or stop passing traffic.")
(define-public pdsh (define-public pdsh
(package (package
(name "pdsh") (name "pdsh")
(version "2.29") (version "2.33")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://storage.googleapis.com/" (uri (string-append "https://github.com/chaos/pdsh/"
"google-code-archive-downloads/v2/code.google.com/" "releases/download/pdsh-" version
"pdsh/pdsh-" version ".tar.bz2")) "/pdsh-" version ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz"))
(sha256 (sha256
(base32 "1kvzz01fyaxfqmbh53f4ljfsgvxdykh5jyr6fh4f1bw2ywxr1w2p")))) (base32 "0bwlkl9inj66iwvafg00pi3sk9n673phdi0kcc59y9nn55s0hs3k"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags `(#:configure-flags
@ -625,16 +627,36 @@ monitor it, restarting it as necessary should it die or stop passing traffic.")
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-/bin/sh (add-after 'unpack 'patch-/bin/sh
(lambda _ (lambda _
(substitute* '("tests/runtests.sh" (substitute* '("tests/t0006-pdcp.sh"
"tests/t0004-module-loading.sh"
"tests/t2001-ssh.sh"
"tests/t1003-slurm.sh"
"tests/t6036-long-output-lines.sh"
"tests/aggregate-results.sh"
"tests/t2000-exec.sh"
"tests/t0002-internal.sh"
"tests/t1002-dshgroup.sh"
"tests/t5000-dshbak.sh"
"tests/t0001-basic.sh"
"tests/t0005-rcmd_type-and-user.sh"
"tests/test-lib.sh" "tests/test-lib.sh"
"tests/t2002-mrsh.sh"
"tests/t0003-wcoll.sh"
"tests/test-modules/pcptest.c") "tests/test-modules/pcptest.c")
(("/bin/sh") (which "bash"))) (("/bin/sh") (which "bash")))
#t))
(add-after 'unpack 'patch-tests
(lambda _
(substitute* "tests/t6036-long-output-lines.sh"
(("which") (which "which")))
#t))))) #t)))))
(inputs (inputs
`(("openssh" ,openssh) `(("openssh" ,openssh)
("mit-krb5" ,mit-krb5) ("mit-krb5" ,mit-krb5)
("perl" ,perl))) ("perl" ,perl)))
(home-page "https://code.google.com/archive/p/pdsh") (native-inputs
`(("which" ,which)))
(home-page "https://github.com/chaos/pdsh")
(synopsis "Parallel distributed shell") (synopsis "Parallel distributed shell")
(description "Pdsh is a an efficient, multithreaded remote shell client (description "Pdsh is a an efficient, multithreaded remote shell client
which executes commands on multiple remote hosts in parallel. Pdsh implements which executes commands on multiple remote hosts in parallel. Pdsh implements

150
gnu/packages/statistics.scm
View file

@ -305,7 +305,7 @@ available, greatly increasing its breadth and scope.")
(base32 (base32
"0ai1qpm0p4z07xr0dvag8sdn9jrxcwanrsk9khzmww094jvr1jxd")))) "0ai1qpm0p4z07xr0dvag8sdn9jrxcwanrsk9khzmww094jvr1jxd"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/boot") (home-page "https://cran.r-project.org/web/packages/boot")
(synopsis "Bootstrap functions for R") (synopsis "Bootstrap functions for R")
(description (description
"This package provides functions and datasets for bootstrapping from the "This package provides functions and datasets for bootstrapping from the
@ -371,7 +371,7 @@ k-nearest neighbour, Learning Vector Quantization and Self-Organizing Maps.")
(build-system r-build-system) (build-system r-build-system)
(inputs (inputs
`(("gfortran" ,gfortran))) `(("gfortran" ,gfortran)))
(home-page "http://cran.r-project.org/web/packages/cluster") (home-page "https://cran.r-project.org/web/packages/cluster")
(synopsis "Methods for cluster analysis") (synopsis "Methods for cluster analysis")
(description (description
"This package provides methods for cluster analysis. It is a much "This package provides methods for cluster analysis. It is a much
@ -391,7 +391,7 @@ Hubert, based on Kaufman and Rousseeuw (1990) \"Finding Groups in Data\".")
(base32 (base32
"0h7sjmvvsi35041jp47cxhsqzgf1y8jrw6fxii7n26i8g7nrh1sf")))) "0h7sjmvvsi35041jp47cxhsqzgf1y8jrw6fxii7n26i8g7nrh1sf"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/codetools") (home-page "https://cran.r-project.org/web/packages/codetools")
(synopsis "Code analysis tools for R") (synopsis "Code analysis tools for R")
(description "This package provides code analysis tools for R to check R (description "This package provides code analysis tools for R to check R
code for possible problems.") code for possible problems.")
@ -410,7 +410,7 @@ code for possible problems.")
(base32 (base32
"0s1lxmd85dd0kxx8hwk02w9l7pmpk4bpy7787fbyh2dbq5g9ys0k")))) "0s1lxmd85dd0kxx8hwk02w9l7pmpk4bpy7787fbyh2dbq5g9ys0k"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/foreign") (home-page "https://cran.r-project.org/web/packages/foreign")
(synopsis "Read data stored by other statistics software") (synopsis "Read data stored by other statistics software")
(description (description
"This package provides functions for reading and writing data stored by "This package provides functions for reading and writing data stored by
@ -433,7 +433,7 @@ for reading and writing some dBase files.")
(build-system r-build-system) (build-system r-build-system)
(inputs (inputs
`(("gfortran" ,gfortran))) `(("gfortran" ,gfortran)))
(home-page "http://cran.r-project.org/web/packages/KernSmooth") (home-page "https://cran.r-project.org/web/packages/KernSmooth")
(synopsis "Functions for kernel smoothing") (synopsis "Functions for kernel smoothing")
(description (description
"This package provides functions for kernel smoothing (and density "This package provides functions for kernel smoothing (and density
@ -500,7 +500,7 @@ and operations on them using LAPACK and SuiteSparse.")
`(("r-lattice" ,r-lattice))) `(("r-lattice" ,r-lattice)))
(native-inputs (native-inputs
`(("gfortran" ,gfortran))) `(("gfortran" ,gfortran)))
(home-page "http://cran.r-project.org/web/packages/nlme") (home-page "https://cran.r-project.org/web/packages/nlme")
(synopsis "Linear and nonlinear mixed effects models") (synopsis "Linear and nonlinear mixed effects models")
(description (description
"This package provides tools to fit and compare Gaussian linear and "This package provides tools to fit and compare Gaussian linear and
@ -522,7 +522,7 @@ nonlinear mixed-effects models.")
(propagated-inputs (propagated-inputs
`(("r-matrix" ,r-matrix) `(("r-matrix" ,r-matrix)
("r-nlme" ,r-nlme))) ("r-nlme" ,r-nlme)))
(home-page "http://cran.r-project.org/web/packages/mgcv") (home-page "https://cran.r-project.org/web/packages/mgcv")
(synopsis "Mixed generalised additive model computation") (synopsis "Mixed generalised additive model computation")
(description (description
"GAMs, GAMMs and other generalized ridge regression with multiple smoothing "GAMs, GAMMs and other generalized ridge regression with multiple smoothing
@ -562,7 +562,7 @@ single hidden layer, and for multinomial log-linear models.")
(base32 (base32
"165djqj7lk81jr7z5fwccq3h7ayys26hx1kj9hndvg2rkyaq1arq")))) "165djqj7lk81jr7z5fwccq3h7ayys26hx1kj9hndvg2rkyaq1arq"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/rpart") (home-page "https://cran.r-project.org/web/packages/rpart")
(synopsis "Recursive partitioning and regression trees") (synopsis "Recursive partitioning and regression trees")
(description (description
"This package provides recursive partitioning functions for "This package provides recursive partitioning functions for
@ -693,7 +693,7 @@ caching.")
(sha256 (sha256
(base32 "1l8db1nk29ccqg3mkbafvfiw0775iq4gapysf88xq2zp6spiw59i")))) (base32 "1l8db1nk29ccqg3mkbafvfiw0775iq4gapysf88xq2zp6spiw59i"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/dichromat") (home-page "https://cran.r-project.org/web/packages/dichromat")
(synopsis "Color schemes for dichromats") (synopsis "Color schemes for dichromats")
(description (description
"Dichromat collapses red-green or green-blue distinctions to simulate the "Dichromat collapses red-green or green-blue distinctions to simulate the
@ -741,7 +741,7 @@ OpenSSL should be used.")
(base32 (base32
"13b80bpnbrarazjvnpnk91ljjsqgfm2fm3gy66aj09cmmsmv199h")))) "13b80bpnbrarazjvnpnk91ljjsqgfm2fm3gy66aj09cmmsmv199h"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/estimability") (home-page "https://cran.r-project.org/web/packages/estimability")
(synopsis "Tools for assessing estimability of linear predictions") (synopsis "Tools for assessing estimability of linear predictions")
(description "Provides tools for determining estimability of linear (description "Provides tools for determining estimability of linear
functions of regression coefficients, and 'epredict' methods that handle functions of regression coefficients, and 'epredict' methods that handle
@ -765,7 +765,7 @@ non-estimable cases correctly.")
("r-rcolorbrewer" ,r-rcolorbrewer) ("r-rcolorbrewer" ,r-rcolorbrewer)
("r-scales" ,r-scales))) ("r-scales" ,r-scales)))
(home-page (home-page
"http://cran.r-project.org/web/packages/pheatmap") "https://cran.r-project.org/web/packages/pheatmap")
(synopsis "Pretty heatmaps") (synopsis "Pretty heatmaps")
(description (description
"This package provides an implementation of heatmaps that offers more "This package provides an implementation of heatmaps that offers more
@ -783,7 +783,7 @@ control over dimensions and appearance.")
(sha256 (sha256
(base32 "13sk7zrrrzry6ky1bp8mmnzcl9jhvkig8j4id9nny7z993mnk00d")))) (base32 "13sk7zrrrzry6ky1bp8mmnzcl9jhvkig8j4id9nny7z993mnk00d"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/labeling") (home-page "https://cran.r-project.org/web/packages/labeling")
(synopsis "Axis labeling algorithms") (synopsis "Axis labeling algorithms")
(description "The labeling package provides a range of axis labeling (description "The labeling package provides a range of axis labeling
algorithms.") algorithms.")
@ -800,7 +800,7 @@ algorithms.")
(sha256 (sha256
(base32 "1s1ar6rag8m277qcqmdp02gn4awn9bdj9ax0r8s32i59mm1mki05")))) (base32 "1s1ar6rag8m277qcqmdp02gn4awn9bdj9ax0r8s32i59mm1mki05"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/magrittr/index.html") (home-page "https://cran.r-project.org/web/packages/magrittr/index.html")
(synopsis "A forward-pipe operator for R") (synopsis "A forward-pipe operator for R")
(description (description
"Magrittr provides a mechanism for chaining commands with a new "Magrittr provides a mechanism for chaining commands with a new
@ -823,7 +823,7 @@ see package vignette. To quote Rene Magritte, \"Ceci n'est pas un pipe.\"")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-colorspace" ,r-colorspace))) `(("r-colorspace" ,r-colorspace)))
(home-page "http://cran.r-project.org/web/packages/munsell") (home-page "https://cran.r-project.org/web/packages/munsell")
(synopsis "Munsell colour system") (synopsis "Munsell colour system")
(description (description
"The Munsell package contains Functions for exploring and using the "The Munsell package contains Functions for exploring and using the
@ -904,7 +904,7 @@ prototype-based, rather than class-based object oriented ideas.")
(sha256 (sha256
(base32 "1pfcl8z1pnsssfaaz9dvdckyfnnc6rcq56dhislbf571hhg7isgk")))) (base32 "1pfcl8z1pnsssfaaz9dvdckyfnnc6rcq56dhislbf571hhg7isgk"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/RColorBrewer") (home-page "https://cran.r-project.org/web/packages/RColorBrewer")
(synopsis "ColorBrewer palettes") (synopsis "ColorBrewer palettes")
(description (description
"This package provides color schemes for maps (and other graphics) "This package provides color schemes for maps (and other graphics)
@ -928,7 +928,7 @@ designed by Cynthia Brewer as described at http://colorbrewer2.org")
(propagated-inputs (propagated-inputs
`(("r-base64enc" ,r-base64enc))) `(("r-base64enc" ,r-base64enc)))
(home-page (home-page
"http://cran.r-project.org/web/packages/sendmailR") "https://cran.r-project.org/web/packages/sendmailR")
(synopsis "Send email using R") (synopsis "Send email using R")
(description (description
"This package contains a simple SMTP client which provides a portable "This package contains a simple SMTP client which provides a portable
@ -1112,7 +1112,7 @@ agnes cluster diagrams.")
`(("cairo" ,cairo))) `(("cairo" ,cairo)))
(propagated-inputs (propagated-inputs
`(("r-withr" ,r-withr))) `(("r-withr" ,r-withr)))
(home-page "http://cran.r-project.org/web/packages/gdtools") (home-page "https://cran.r-project.org/web/packages/gdtools")
(synopsis "Utilities for graphical rendering") (synopsis "Utilities for graphical rendering")
(description (description
"The @code{gdtools} package provides functionalities to get font metrics "The @code{gdtools} package provides functionalities to get font metrics
@ -1668,7 +1668,7 @@ features require SQL translation to be provided by the package author.")
(build-system r-build-system) (build-system r-build-system)
(inputs (inputs
`(("gfortran" ,gfortran))) `(("gfortran" ,gfortran)))
(home-page "http://cran.r-project.org/web/packages/acepack") (home-page "https://cran.r-project.org/web/packages/acepack")
(synopsis "Functions for regression transformations") (synopsis "Functions for regression transformations")
(description (description
"This package provides ACE and AVAS methods for choosing regression "This package provides ACE and AVAS methods for choosing regression
@ -1688,7 +1688,7 @@ transformations.")
"0ad49bzip1zqmpj1d8jajwl4bd81fm3k6dq8p26x6mvlzc04dvwd")))) "0ad49bzip1zqmpj1d8jajwl4bd81fm3k6dq8p26x6mvlzc04dvwd"))))
(properties `((upstream-name . "Formula"))) (properties `((upstream-name . "Formula")))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/Formula") (home-page "https://cran.r-project.org/web/packages/Formula")
(synopsis "Extended model formulas") (synopsis "Extended model formulas")
(description (description
"This package provides a new class @code{Formula}, which extends the base "This package provides a new class @code{Formula}, which extends the base
@ -1711,7 +1711,7 @@ side.")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-lattice" ,r-lattice))) `(("r-lattice" ,r-lattice)))
(home-page "http://cran.r-project.org/web/packages/locfit") (home-page "https://cran.r-project.org/web/packages/locfit")
(synopsis "Local regression, likelihood and density estimation") (synopsis "Local regression, likelihood and density estimation")
(description (description
"This package provides functions used for local regression, likelihood "This package provides functions used for local regression, likelihood
@ -1729,7 +1729,7 @@ and density estimation.")
(base32 (base32
"05aznigw9nwv3hbwjnjbvqhfjqkwsw2csgrjx8500gzr2fvla5w8")))) "05aznigw9nwv3hbwjnjbvqhfjqkwsw2csgrjx8500gzr2fvla5w8"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/chron") (home-page "https://cran.r-project.org/web/packages/chron")
(synopsis "Chronological R objects which can handle dates and times") (synopsis "Chronological R objects which can handle dates and times")
(description (description
"This package provides chronological R objects which can handle dates and "This package provides chronological R objects which can handle dates and
@ -1890,7 +1890,7 @@ inference for statistical models.")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-lattice" ,r-lattice))) `(("r-lattice" ,r-lattice)))
(home-page "http://cran.r-project.org/web/packages/coda") (home-page "https://cran.r-project.org/web/packages/coda")
(synopsis "This is a package for Output Analysis and Diagnostics for MCMC") (synopsis "This is a package for Output Analysis and Diagnostics for MCMC")
(description "This package provides functions for summarizing and plotting (description "This package provides functions for summarizing and plotting
the output from Markov Chain Monte Carlo (MCMC) simulations, as well as the output from Markov Chain Monte Carlo (MCMC) simulations, as well as
@ -2021,7 +2021,7 @@ limited to R.")
(base32 (base32
"0mml9h3xagi7144pyb3jj9zbh9qzns7izkhdg7df20v7bikr6nz8")))) "0mml9h3xagi7144pyb3jj9zbh9qzns7izkhdg7df20v7bikr6nz8"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/backports") (home-page "https://cran.r-project.org/web/packages/backports")
(synopsis "Reimplementations of functions introduced since R 3.0.0") (synopsis "Reimplementations of functions introduced since R 3.0.0")
(description (description
"Provides implementations of functions which have been introduced in R "Provides implementations of functions which have been introduced in R
@ -2141,7 +2141,7 @@ SLURM and Sun Grid Engine. Multicore and SSH systems are also supported.")
(base32 (base32
"1vghazbcha8gvkwwcdagjvzx6yl8zm7kgr0i9wxr4jng06d1l3fp")))) "1vghazbcha8gvkwwcdagjvzx6yl8zm7kgr0i9wxr4jng06d1l3fp"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/brew") (home-page "https://cran.r-project.org/web/packages/brew")
(synopsis "Templating framework for report generation") (synopsis "Templating framework for report generation")
(description (description
"The brew package implements a templating framework for mixing text and R "The brew package implements a templating framework for mixing text and R
@ -2186,7 +2186,7 @@ other packages.")
(base32 (base32
"1vb8r9khpvcf0q7acv8rsplfjjwcll302bg5kp596cvn6aacypl6")))) "1vb8r9khpvcf0q7acv8rsplfjjwcll302bg5kp596cvn6aacypl6"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/commonmark") (home-page "https://cran.r-project.org/web/packages/commonmark")
(synopsis "CommonMark and Github Markdown Rendering in R") (synopsis "CommonMark and Github Markdown Rendering in R")
(description (description
"The CommonMark specification defines a rationalized version of markdown "The CommonMark specification defines a rationalized version of markdown
@ -2317,7 +2317,7 @@ pure C implementation of the Git core methods.")
(base32 (base32
"133s75q2hr6jg28m1wvs96qrbc9c4vw87migwhkjqb88xxvbqhd5")))) "133s75q2hr6jg28m1wvs96qrbc9c4vw87migwhkjqb88xxvbqhd5"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/rstudioapi") (home-page "https://cran.r-project.org/web/packages/rstudioapi")
(synopsis "Safely access the RStudio API") (synopsis "Safely access the RStudio API")
(description (description
"This package provides functions to access the RStudio API and provide "This package provides functions to access the RStudio API and provide
@ -2428,7 +2428,7 @@ disk (or a connection).")
(base32 (base32
"0rw81n9p3d2i03b4pgcfj5blryc94f29bm9a4j9bnp5h8qjj6pry")))) "0rw81n9p3d2i03b4pgcfj5blryc94f29bm9a4j9bnp5h8qjj6pry"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/plotrix") (home-page "https://cran.r-project.org/web/packages/plotrix")
(synopsis "Various plotting functions") (synopsis "Various plotting functions")
(description (description
"This package provides lots of plotting, various labeling, axis and color "This package provides lots of plotting, various labeling, axis and color
@ -2446,7 +2446,7 @@ scaling functions for R.")
(base32 (base32
"09jzw4rzwf2y5lcz7b16mb68pn0fqigv34ff7lr6w3yi9k91i1xy")))) "09jzw4rzwf2y5lcz7b16mb68pn0fqigv34ff7lr6w3yi9k91i1xy"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/gridBase") (home-page "https://cran.r-project.org/web/packages/gridBase")
(synopsis "Integration of base and grid graphics") (synopsis "Integration of base and grid graphics")
(description (description
"This package provides an integration of base and grid graphics for R.") "This package provides an integration of base and grid graphics for R.")
@ -2517,7 +2517,7 @@ the header files from the templated Armadillo library.")
(base32 (base32
"176nr5wpnkavn5z0yy9f7d47l37ndnn2w3gv854xav8nnybi6wwv")))) "176nr5wpnkavn5z0yy9f7d47l37ndnn2w3gv854xav8nnybi6wwv"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/bitops") (home-page "https://cran.r-project.org/web/packages/bitops")
(synopsis "Bitwise operations") (synopsis "Bitwise operations")
(description (description
"This package provides functions for bitwise operations on integer "This package provides functions for bitwise operations on integer
@ -2538,7 +2538,7 @@ vectors.")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-bitops" ,r-bitops))) `(("r-bitops" ,r-bitops)))
(home-page "http://cran.r-project.org/web/packages/caTools") (home-page "https://cran.r-project.org/web/packages/caTools")
(synopsis "Various tools including functions for moving window statistics") (synopsis "Various tools including functions for moving window statistics")
(description (description
"This package contains several basic utility functions including: "This package contains several basic utility functions including:
@ -2778,7 +2778,7 @@ offers access to an XPath \"interpreter\".")
"1mwx302576rmsjllbq2clfxilm3hkyp5bw0wmwqbn0kgv5wpy8z6")))) "1mwx302576rmsjllbq2clfxilm3hkyp5bw0wmwqbn0kgv5wpy8z6"))))
(properties (quasiquote ((upstream-name . "XNomial")))) (properties (quasiquote ((upstream-name . "XNomial"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/XNomial") (home-page "https://cran.r-project.org/web/packages/XNomial")
(synopsis "Goodness-of-Fit test for multinomial data") (synopsis "Goodness-of-Fit test for multinomial data")
(description (description
"This package provides an exact Goodness-of-Fit test for "This package provides an exact Goodness-of-Fit test for
@ -2806,7 +2806,7 @@ plotted and compared with the asymptotic curve.")
"0vql32np716dpd0kjn7s7wgawd02ysgp2a5il4kb19nlw661ii3x")))) "0vql32np716dpd0kjn7s7wgawd02ysgp2a5il4kb19nlw661ii3x"))))
(properties `((upstream-name . "lambda.r"))) (properties `((upstream-name . "lambda.r")))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/lambda.r") (home-page "https://cran.r-project.org/web/packages/lambda.r")
(synopsis "Functional programming extension for R") (synopsis "Functional programming extension for R")
(description (description
"This package provides a language extension to efficiently write "This package provides a language extension to efficiently write
@ -2828,7 +2828,7 @@ safety.")
(properties (properties
`((upstream-name . "futile.options"))) `((upstream-name . "futile.options")))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/futile.options") (home-page "https://cran.r-project.org/web/packages/futile.options")
(synopsis "Options management framework") (synopsis "Options management framework")
(description (description
"The futile.options subsystem provides an easy user-defined options "The futile.options subsystem provides an easy user-defined options
@ -2852,7 +2852,7 @@ options defined in other packages.")
(propagated-inputs (propagated-inputs
`(("r-futile-options" ,r-futile-options) `(("r-futile-options" ,r-futile-options)
("r-lambda-r" ,r-lambda-r))) ("r-lambda-r" ,r-lambda-r)))
(home-page "http://cran.r-project.org/web/packages/futile.logger") (home-page "https://cran.r-project.org/web/packages/futile.logger")
(synopsis "Logging utility for R") (synopsis "Logging utility for R")
(description (description
"This package provides a simple yet powerful logging utility. Based "This package provides a simple yet powerful logging utility. Based
@ -2873,7 +2873,7 @@ statements.")
(base32 (base32
"0nrik5fyq59hwiwjcpbi4p5yfavgfjq6wyrynhkrbm4k6v1g1wlq")))) "0nrik5fyq59hwiwjcpbi4p5yfavgfjq6wyrynhkrbm4k6v1g1wlq"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/segmented") (home-page "https://cran.r-project.org/web/packages/segmented")
(synopsis "Regression models with breakpoints estimation") (synopsis "Regression models with breakpoints estimation")
(description (description
"Given a regression model, segmented updates the model by adding one or "Given a regression model, segmented updates the model by adding one or
@ -2892,7 +2892,7 @@ multiple breakpoints are allowed.")
(base32 (base32
"1mxbrkpnmq32x4wd0194d541661yvfrrjlr3lsf7qq53ms3h21zf")))) "1mxbrkpnmq32x4wd0194d541661yvfrrjlr3lsf7qq53ms3h21zf"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/snow") (home-page "https://cran.r-project.org/web/packages/snow")
(synopsis "Support for simple parallel computing in R") (synopsis "Support for simple parallel computing in R")
(description (description
"The snow package provides support for simple parallel computing on a "The snow package provides support for simple parallel computing on a
@ -2937,7 +2937,7 @@ standard R subsetting and Kronecker products.")
(base32 (base32
"16sycjq912ix52fjxjhcwiaqr0yj1v5iqmrvjljd3z857031w06y")))) "16sycjq912ix52fjxjhcwiaqr0yj1v5iqmrvjljd3z857031w06y"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/iterators") (home-page "https://cran.r-project.org/web/packages/iterators")
(synopsis "Iterator construct for R") (synopsis "Iterator construct for R")
(description (description
"This package provides support for iterators, which allow a programmer to "This package provides support for iterators, which allow a programmer to
@ -2960,7 +2960,7 @@ data.")
(propagated-inputs (propagated-inputs
`(("r-codetools" ,r-codetools) `(("r-codetools" ,r-codetools)
("r-iterators" ,r-iterators))) ("r-iterators" ,r-iterators)))
(home-page "http://cran.r-project.org/web/packages/foreach") (home-page "https://cran.r-project.org/web/packages/foreach")
(synopsis "Foreach looping construct for R") (synopsis "Foreach looping construct for R")
(description (description
"This package provides support for the @code{foreach} looping construct. "This package provides support for the @code{foreach} looping construct.
@ -2989,7 +2989,7 @@ parallel.")
(propagated-inputs (propagated-inputs
`(("r-foreach" ,r-foreach) `(("r-foreach" ,r-foreach)
("r-iterators" ,r-iterators))) ("r-iterators" ,r-iterators)))
(home-page "http://cran.r-project.org/web/packages/doParallel") (home-page "https://cran.r-project.org/web/packages/doParallel")
(synopsis "Foreach parallel adaptor for the 'parallel' package") (synopsis "Foreach parallel adaptor for the 'parallel' package")
(description (description
"This package provides a parallel backend for the @code{%dopar%} function "This package provides a parallel backend for the @code{%dopar%} function
@ -3012,7 +3012,7 @@ using the parallel package.")
(propagated-inputs (propagated-inputs
`(("r-foreach" ,r-foreach) `(("r-foreach" ,r-foreach)
("r-iterators" ,r-iterators))) ("r-iterators" ,r-iterators)))
(home-page "http://cran.r-project.org/web/packages/doMC") (home-page "https://cran.r-project.org/web/packages/doMC")
(synopsis "Foreach parallel adaptor for the 'parallel' package") (synopsis "Foreach parallel adaptor for the 'parallel' package")
(description (description
"This package provides a parallel backend for the @code{%dopar%} function "This package provides a parallel backend for the @code{%dopar%} function
@ -3085,7 +3085,7 @@ flexible than the orphaned \"base64\" package.")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-matrix" ,r-matrix))) `(("r-matrix" ,r-matrix)))
(home-page "http://cran.r-project.org/web/packages/irlba") (home-page "https://cran.r-project.org/web/packages/irlba")
(synopsis "Methods for eigendecomposition of large matrices") (synopsis "Methods for eigendecomposition of large matrices")
(description (description
"This package provides fast and memory efficient methods for truncated "This package provides fast and memory efficient methods for truncated
@ -3158,7 +3158,7 @@ options and registries, vignette, unit test and bibtex related utilities.")
(base32 (base32
"1yqfl1g6vsl28zn8brzc39659k8lqsmfms7900j7p64ilydyb2sx")))) "1yqfl1g6vsl28zn8brzc39659k8lqsmfms7900j7p64ilydyb2sx"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/registry") (home-page "https://cran.r-project.org/web/packages/registry")
(synopsis "Infrastructure for R package registries") (synopsis "Infrastructure for R package registries")
(description (description
"This package provides a generic infrastructure for creating and using R "This package provides a generic infrastructure for creating and using R
@ -3229,7 +3229,7 @@ Stochastic Neighbor Embedding using a Barnes-Hut implementation.")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-class" ,r-class))) `(("r-class" ,r-class)))
(home-page "http://cran.r-project.org/web/packages/e1071") (home-page "https://cran.r-project.org/web/packages/e1071")
(synopsis "Miscellaneous functions for probability theory") (synopsis "Miscellaneous functions for probability theory")
(description (description
"This package provides functions for latent class analysis, short time "This package provides functions for latent class analysis, short time
@ -3250,7 +3250,7 @@ computation, bagged clustering, naive Bayes classifier, and more.")
(properties (properties
`((upstream-name . "bigmemory.sri"))) `((upstream-name . "bigmemory.sri")))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/bigmemory.sri") (home-page "https://cran.r-project.org/web/packages/bigmemory.sri")
(synopsis "Shared resource interface for the bigmemory package") (synopsis "Shared resource interface for the bigmemory package")
(description "This package provides a shared resource interface for the (description "This package provides a shared resource interface for the
bigmemory and synchronicity packages.") bigmemory and synchronicity packages.")
@ -3357,7 +3357,7 @@ performing parallel computations on multicore machines.")
"11z6v2i7jl647wxi9p5z66yvfnnqv6s7fxqmz7w2gkb6j8wl1f24")))) "11z6v2i7jl647wxi9p5z66yvfnnqv6s7fxqmz7w2gkb6j8wl1f24"))))
(properties `((upstream-name . "R.methodsS3"))) (properties `((upstream-name . "R.methodsS3")))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/R.methodsS3") (home-page "https://cran.r-project.org/web/packages/R.methodsS3")
(synopsis "S3 methods simplified") (synopsis "S3 methods simplified")
(description (description
"This package provides methods that simplify the setup of S3 generic "This package provides methods that simplify the setup of S3 generic
@ -3583,7 +3583,7 @@ the 'lite' version of the more complete @code{viridis} package.")
("r-purrr" ,r-purrr) ("r-purrr" ,r-purrr)
("r-rcpp" ,r-rcpp) ("r-rcpp" ,r-rcpp)
("r-rlang" ,r-rlang))) ("r-rlang" ,r-rlang)))
(home-page "http://cran.r-project.org/web/packages/tidyselect") (home-page "https://cran.r-project.org/web/packages/tidyselect")
(synopsis "Select from a set of strings") (synopsis "Select from a set of strings")
(description (description
"This package provides a backend for the selecting functions of the "This package provides a backend for the selecting functions of the
@ -3865,7 +3865,7 @@ following problems:
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-openssl" ,r-openssl))) `(("r-openssl" ,r-openssl)))
(home-page "http://cran.r-project.org/web/packages/base64") (home-page "https://cran.r-project.org/web/packages/base64")
(synopsis "Base64 encoder and decoder") (synopsis "Base64 encoder and decoder")
(description (description
"This package is a compatibility wrapper to replace the orphaned package "This package is a compatibility wrapper to replace the orphaned package
@ -3929,7 +3929,7 @@ conversion of R objects to LaTeX code, and recoding variables.")
"1jqr871jkll2xmk7wk5hv1z3a36hyn2ibgivw7bwk4b346940xlx")))) "1jqr871jkll2xmk7wk5hv1z3a36hyn2ibgivw7bwk4b346940xlx"))))
(properties `((upstream-name . "RUnit"))) (properties `((upstream-name . "RUnit")))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/RUnit") (home-page "https://cran.r-project.org/web/packages/RUnit")
(synopsis "R unit test framework") (synopsis "R unit test framework")
(description (description
"This package provides R functions implementing a standard unit testing "This package provides R functions implementing a standard unit testing
@ -4015,7 +4015,7 @@ existing packages provide.")
(base32 (base32
"0jzmbywlyzfxs7hlmyd0iynghfc9qp5sa5lnhr73y8r360yv1ahf")))) "0jzmbywlyzfxs7hlmyd0iynghfc9qp5sa5lnhr73y8r360yv1ahf"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/sfsmisc") (home-page "https://cran.r-project.org/web/packages/sfsmisc")
(synopsis "Utilities from \"Seminar fuer Statistik\" ETH Zurich") (synopsis "Utilities from \"Seminar fuer Statistik\" ETH Zurich")
(description (description
"This package provides useful utilities from Seminar fuer Statistik ETH "This package provides useful utilities from Seminar fuer Statistik ETH
@ -4034,7 +4034,7 @@ Zurich, including many that are related to graphics.")
(base32 (base32
"1xknwk9xlsj027pg0nwiizigcrsc84hdrig0jn0cgcyxj8dabdl6")))) "1xknwk9xlsj027pg0nwiizigcrsc84hdrig0jn0cgcyxj8dabdl6"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/gtools") (home-page "https://cran.r-project.org/web/packages/gtools")
(synopsis "Various R programming tools") (synopsis "Various R programming tools")
(description (description
"This package contains a collection of various functions to assist in R "This package contains a collection of various functions to assist in R
@ -4060,7 +4060,7 @@ tests for whether a value is missing, empty or contains only @code{NA} and
`(("perl" ,perl))) `(("perl" ,perl)))
(propagated-inputs (propagated-inputs
`(("r-gtools" ,r-gtools))) `(("r-gtools" ,r-gtools)))
(home-page "http://cran.r-project.org/web/packages/gdata") (home-page "https://cran.r-project.org/web/packages/gdata")
(synopsis "Various R programming tools for data manipulation") (synopsis "Various R programming tools for data manipulation")
(description (description
"This package provides various R programming tools for data manipulation, "This package provides various R programming tools for data manipulation,
@ -4101,7 +4101,7 @@ including:
("r-gdata" ,r-gdata) ("r-gdata" ,r-gdata)
("r-gtools" ,r-gtools) ("r-gtools" ,r-gtools)
("r-kernsmooth" ,r-kernsmooth))) ("r-kernsmooth" ,r-kernsmooth)))
(home-page "http://cran.r-project.org/web/packages/gplots") (home-page "https://cran.r-project.org/web/packages/gplots")
(synopsis "Various R programming tools for plotting data") (synopsis "Various R programming tools for plotting data")
(description (description
"This package provides various R programming tools for plotting data, "This package provides various R programming tools for plotting data,
@ -4185,7 +4185,7 @@ series of numeric vectors/matrices and factors.")
(base32 (base32
"1jfqnqy9544gfvz3bsb48v4177nwp4b4n9l2743asq8sbq305b5r")))) "1jfqnqy9544gfvz3bsb48v4177nwp4b4n9l2743asq8sbq305b5r"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/ztable") (home-page "https://cran.r-project.org/web/packages/ztable")
(synopsis "Zebra-striped tables in LaTeX and HTML formats for R") (synopsis "Zebra-striped tables in LaTeX and HTML formats for R")
(description (description
"This package provides functions to make zebra-striped tables (tables "This package provides functions to make zebra-striped tables (tables
@ -4206,7 +4206,7 @@ with alternating row colors) in LaTeX and HTML formats easily from
(base32 (base32
"112gc0d7f8iavgf56pnzfxb7hy75yhd0zlyjzshdcfbnqcd2a6bx")))) "112gc0d7f8iavgf56pnzfxb7hy75yhd0zlyjzshdcfbnqcd2a6bx"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/vipor") (home-page "https://cran.r-project.org/web/packages/vipor")
(synopsis "Plot categorical data using noise and density estimates") (synopsis "Plot categorical data using noise and density estimates")
(description (description
"This package provides tools to generate a violin point plot, a "This package provides tools to generate a violin point plot, a
@ -4245,7 +4245,7 @@ closely-packed, non-overlapping points.")
(base32 (base32
"0l8c6fql82cb246qh7hfgxb4s35qn0qfgy6dzvkx0zkz1cpqvx69")))) "0l8c6fql82cb246qh7hfgxb4s35qn0qfgy6dzvkx0zkz1cpqvx69"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/sourcetools") (home-page "https://cran.r-project.org/web/packages/sourcetools")
(synopsis "Tools for reading, tokenizing and parsing R code") (synopsis "Tools for reading, tokenizing and parsing R code")
(description (description
"The sourcetools package provides both an R and C++ interface for the "The sourcetools package provides both an R and C++ interface for the
@ -4312,7 +4312,7 @@ Wall Street Journal, among others. This package also provides
(base32 (base32
"07v4x8af60alcw6vbiwf5fp25bhra61kvxz9kqx64lszm0i1fb4x")))) "07v4x8af60alcw6vbiwf5fp25bhra61kvxz9kqx64lszm0i1fb4x"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/statmod") (home-page "https://cran.r-project.org/web/packages/statmod")
(native-inputs (native-inputs
`(("gfortran" ,gfortran))) `(("gfortran" ,gfortran)))
(synopsis "Statistical modeling") (synopsis "Statistical modeling")
@ -4388,7 +4388,7 @@ published by the statistics blog FiveThirtyEight.")
"1i30hrqdk64q17vsn918c3q79brchgx2wzh1gbsgbn0dh1ncabq4")))) "1i30hrqdk64q17vsn918c3q79brchgx2wzh1gbsgbn0dh1ncabq4"))))
(properties `((upstream-name . "CompQuadForm"))) (properties `((upstream-name . "CompQuadForm")))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/CompQuadForm") (home-page "https://cran.r-project.org/web/packages/CompQuadForm")
(synopsis "Distribution function of quadratic forms in normal variables") (synopsis "Distribution function of quadratic forms in normal variables")
(description (description
"This package provides functions to compute the distribution function of "This package provides functions to compute the distribution function of
@ -4437,7 +4437,7 @@ letters, as is often required for scientific publications.")
`(("r-mass" ,r-mass) `(("r-mass" ,r-mass)
("r-segmented" ,r-segmented) ("r-segmented" ,r-segmented)
("r-survival" ,r-survival))) ("r-survival" ,r-survival)))
(home-page "http://cran.r-project.org/web/packages/mixtools") (home-page "https://cran.r-project.org/web/packages/mixtools")
(synopsis "Tools for analyzing finite mixture models") (synopsis "Tools for analyzing finite mixture models")
(description (description
"This package provides a collection of R functions for analyzing finite "This package provides a collection of R functions for analyzing finite
@ -4483,7 +4483,7 @@ regression.")
"108z2ymby5y4h8l4l2krqwm28rya93gq09yylgilnm3afvfrfabg")))) "108z2ymby5y4h8l4l2krqwm28rya93gq09yylgilnm3afvfrfabg"))))
(properties `((upstream-name . "fastICA"))) (properties `((upstream-name . "fastICA")))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/fastICA") (home-page "https://cran.r-project.org/web/packages/fastICA")
(synopsis "FastICA algorithms to perform ICA and projection pursuit") (synopsis "FastICA algorithms to perform ICA and projection pursuit")
(description (description
"This package provides an implementation of the FastICA algorithm to "This package provides an implementation of the FastICA algorithm to
@ -4525,7 +4525,7 @@ forest of trees using random inputs, for classification and regression.")
(base32 (base32
"06xnc5gv1284ll0addxnxb6ljz6fn8dbyrp5vchyz6551h800aa6")))) "06xnc5gv1284ll0addxnxb6ljz6fn8dbyrp5vchyz6551h800aa6"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/diptest") (home-page "https://cran.r-project.org/web/packages/diptest")
(synopsis "Hartigan's dip test statistic for unimodality") (synopsis "Hartigan's dip test statistic for unimodality")
(description (description
"This package computes Hartigan's dip test statistic for unimodality, "This package computes Hartigan's dip test statistic for unimodality,
@ -4545,7 +4545,7 @@ original public code has been corrected.")
(base32 (base32
"0ynds453xprxv0jqqzi3blnv5w6vrdww9pvd1sq4lrr5ar3k3cq7")))) "0ynds453xprxv0jqqzi3blnv5w6vrdww9pvd1sq4lrr5ar3k3cq7"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/modeltools") (home-page "https://cran.r-project.org/web/packages/modeltools")
(synopsis "Tools and classes for statistical models") (synopsis "Tools and classes for statistical models")
(description (description
"This package provides a collection of tools to deal with statistical "This package provides a collection of tools to deal with statistical
@ -4569,7 +4569,7 @@ to change in the future.")
`(("r-lattice" ,r-lattice) `(("r-lattice" ,r-lattice)
("r-modeltools" ,r-modeltools) ("r-modeltools" ,r-modeltools)
("r-nnet" ,r-nnet))) ("r-nnet" ,r-nnet)))
(home-page "http://cran.r-project.org/web/packages/flexmix") (home-page "https://cran.r-project.org/web/packages/flexmix")
(synopsis "Flexible mixture modeling") (synopsis "Flexible mixture modeling")
(description (description
"This package implements a general framework for finite mixtures of "This package implements a general framework for finite mixtures of
@ -4639,7 +4639,7 @@ data for species delimitation, nearest neighbor based noise detection.")
"1vz546hyjyhly70z62h5n3mn62b8llhhmim8ffp9y6jnnb0i2sc4")))) "1vz546hyjyhly70z62h5n3mn62b8llhhmim8ffp9y6jnnb0i2sc4"))))
(properties `((upstream-name . "DEoptimR"))) (properties `((upstream-name . "DEoptimR")))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/DEoptimR") (home-page "https://cran.r-project.org/web/packages/DEoptimR")
(synopsis "Differential evolution optimization in pure R") (synopsis "Differential evolution optimization in pure R")
(description (description
"This package provides a differential evolution (DE) stochastic "This package provides a differential evolution (DE) stochastic
@ -4687,7 +4687,7 @@ regression methodology including model selections and multivariate statistics.")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-mvtnorm" ,r-mvtnorm))) `(("r-mvtnorm" ,r-mvtnorm)))
(home-page "http://cran.r-project.org/web/packages/pcaPP") (home-page "https://cran.r-project.org/web/packages/pcaPP")
(synopsis "Robust PCA by projection pursuit") (synopsis "Robust PCA by projection pursuit")
(description (description
"This package provides functions for robust @dfn{principal component "This package provides functions for robust @dfn{principal component
@ -4714,7 +4714,7 @@ analysis} (PCA) by projection pursuit.")
("r-robustbase" ,r-robustbase))) ("r-robustbase" ,r-robustbase)))
(native-inputs (native-inputs
`(("gfortran" ,gfortran))) `(("gfortran" ,gfortran)))
(home-page "http://cran.r-project.org/web/packages/rrcov") (home-page "https://cran.r-project.org/web/packages/rrcov")
(synopsis "Scalable robust estimators with high breakdown Point") (synopsis "Scalable robust estimators with high breakdown Point")
(description (description
"This package provides an implementation of robust location and scatter "This package provides an implementation of robust location and scatter
@ -4736,7 +4736,7 @@ estimation and robust multivariate analysis with high breakdown point.")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-lattice" ,r-lattice))) `(("r-lattice" ,r-lattice)))
(home-page "http://cran.r-project.org/web/packages/fit.models") (home-page "https://cran.r-project.org/web/packages/fit.models")
(synopsis "Compare fitted models") (synopsis "Compare fitted models")
(description (description
"The @code{fit.models} function and its associated methods (coefficients, print, "The @code{fit.models} function and its associated methods (coefficients, print,
@ -4769,7 +4769,7 @@ generally.")
("r-rrcov" ,r-rrcov))) ("r-rrcov" ,r-rrcov)))
(native-inputs (native-inputs
`(("gfortran" ,gfortran))) `(("gfortran" ,gfortran)))
(home-page "http://cran.r-project.org/web/packages/robust") (home-page "https://cran.r-project.org/web/packages/robust")
(synopsis "Port of the S+ \"Robust Library\"") (synopsis "Port of the S+ \"Robust Library\"")
(description (description
"This package is a port of the S+ \"Robust Library\". It provides "This package is a port of the S+ \"Robust Library\". It provides
@ -4789,7 +4789,7 @@ multivariate analysis.")
(base32 (base32
"0lsgbg93hm0w1rdb813ry0ks2l0jfpyqzqkf3h3bj6fch0avcbv2")))) "0lsgbg93hm0w1rdb813ry0ks2l0jfpyqzqkf3h3bj6fch0avcbv2"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/trimcluster") (home-page "https://cran.r-project.org/web/packages/trimcluster")
(synopsis "Cluster analysis with trimming") (synopsis "Cluster analysis with trimming")
(description (description
"The trimmed k-means clustering method by Cuesta-Albertos, Gordaliza and "The trimmed k-means clustering method by Cuesta-Albertos, Gordaliza and
@ -4822,7 +4822,7 @@ of the points.")
("r-prabclus" ,r-prabclus) ("r-prabclus" ,r-prabclus)
("r-robustbase" ,r-robustbase) ("r-robustbase" ,r-robustbase)
("r-trimcluster" ,r-trimcluster))) ("r-trimcluster" ,r-trimcluster)))
(home-page "http://cran.r-project.org/web/packages/fpc") (home-page "https://cran.r-project.org/web/packages/fpc")
(synopsis "Flexible procedures for clustering") (synopsis "Flexible procedures for clustering")
(description (description
"This package provides various methods for clustering and cluster validation. "This package provides various methods for clustering and cluster validation.
@ -4890,7 +4890,7 @@ showing the progress is useful e.g. bootstrap.")
"1kncmiaraq1mrykb9fj3fsxswabk3l71fnp1vks0x9aay5xfk8mj")))) "1kncmiaraq1mrykb9fj3fsxswabk3l71fnp1vks0x9aay5xfk8mj"))))
(properties `((upstream-name . "FNN"))) (properties `((upstream-name . "FNN")))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/FNN") (home-page "https://cran.r-project.org/web/packages/FNN")
(synopsis "Fast nearest neighbor search algorithms and applications") (synopsis "Fast nearest neighbor search algorithms and applications")
(description (description
"This package provides cover-tree and kd-tree fast k-nearest neighbor "This package provides cover-tree and kd-tree fast k-nearest neighbor
@ -4961,7 +4961,7 @@ decompositions of such matrices, and solutions of linear systems.")
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs (propagated-inputs
`(("r-rcpp" ,r-rcpp))) `(("r-rcpp" ,r-rcpp)))
(home-page "http://cran.r-project.org/web/packages/ModelMetrics") (home-page "https://cran.r-project.org/web/packages/ModelMetrics")
(synopsis "Rapid calculation of model metrics") (synopsis "Rapid calculation of model metrics")
(description (description
"Written in C++ using @code{Rcpp}, this package provides a collection of "Written in C++ using @code{Rcpp}, this package provides a collection of
@ -5034,7 +5034,7 @@ expected shortfall risk are also included.")
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))
(inputs (inputs
`(("nlopt" ,nlopt))) `(("nlopt" ,nlopt)))
(home-page "http://cran.r-project.org/web/packages/nloptr") (home-page "https://cran.r-project.org/web/packages/nloptr")
(synopsis "R interface to NLopt") (synopsis "R interface to NLopt")
(description (description
"This package is interface to NLopt, a library for nonlinear "This package is interface to NLopt, a library for nonlinear
@ -5066,7 +5066,7 @@ algorithms.")
("r-nloptr" ,r-nloptr) ("r-nloptr" ,r-nloptr)
("r-mass" ,r-mass) ("r-mass" ,r-mass)
("r-nlme" ,r-nlme))) ("r-nlme" ,r-nlme)))
(home-page "http://cran.r-project.org/web/packages/lme4") (home-page "https://cran.r-project.org/web/packages/lme4")
(synopsis "Linear mixed-effects models using eigen and S4") (synopsis "Linear mixed-effects models using eigen and S4")
(description (description
"This package provides fit linear and generalized linear mixed-effects "This package provides fit linear and generalized linear mixed-effects
@ -5262,7 +5262,7 @@ multivariate case.")
("r-mclust" ,r-mclust) ("r-mclust" ,r-mclust)
("r-mvtnorm" ,r-mvtnorm) ("r-mvtnorm" ,r-mvtnorm)
("r-sn" ,r-sn))) ("r-sn" ,r-sn)))
(home-page "http://cran.r-project.org/web/packages/tclust") (home-page "https://cran.r-project.org/web/packages/tclust")
(synopsis "Robust trimmed clustering") (synopsis "Robust trimmed clustering")
(description (description
"This package implements different robust clustering "This package implements different robust clustering
@ -5364,7 +5364,7 @@ is supported.")
`(("r-rcpp" ,r-rcpp) `(("r-rcpp" ,r-rcpp)
("r-stringr" ,r-stringr))) ("r-stringr" ,r-stringr)))
(home-page (home-page
"http://cran.r-project.org/web/packages/lubridate") "https://cran.r-project.org/web/packages/lubridate")
(synopsis "Make dealing with dates a little easier") (synopsis "Make dealing with dates a little easier")
(description (description
"This package provides functions to work with date-times and time-spans: "This package provides functions to work with date-times and time-spans:

5
gnu/packages/storage.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -109,6 +110,10 @@
"-DWITH_XIO=OFF" "-DWITH_XIO=OFF"
;; Use jemalloc instead of tcmalloc. ;; Use jemalloc instead of tcmalloc.
"-DALLOCATOR=jemalloc")) "-DALLOCATOR=jemalloc"))
;; FIXME: Some of the tests leak Btrfs subvolumes on Btrfs. See
;; <https://bugs.gnu.org/29674> for details. Disable tests until
;; resolved.
#:tests? #f
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-source (add-after 'unpack 'patch-source

30
gnu/packages/suckless.scm
View file

@ -2,7 +2,7 @@
;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com> ;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2015 Amirouche Boubekki <amirouche@hypermove.net> ;;; Copyright © 2015 Amirouche Boubekki <amirouche@hypermove.net>
;;; Copyright © 2016 Al McElrath <hello@yrns.org> ;;; Copyright © 2016 Al McElrath <hello@yrns.org>
;;; Copyright © 2016, 2017 ng0 <ng0@infotropique.org> ;;; Copyright © 2016, 2017 ng0 <ng0@n0.is>
;;; Copyright © 2015 Dmitry Bogatov <KAction@gnu.org> ;;; Copyright © 2015 Dmitry Bogatov <KAction@gnu.org>
;;; Copyright © 2015 Leo Famulari <leo@famulari.name> ;;; Copyright © 2015 Leo Famulari <leo@famulari.name>
;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
@ -53,7 +53,7 @@
(version "1.0") (version "1.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://dl.suckless.org/tools/blind-" (uri (string-append "https://dl.suckless.org/tools/blind-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
@ -68,7 +68,7 @@
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'configure)))) ; no configure script (delete 'configure)))) ; no configure script
(synopsis "Command line video editing utilities") (synopsis "Command line video editing utilities")
(home-page "http://tools.suckless.org/blind/") (home-page "https://tools.suckless.org/blind/")
(description (description
"Blind is a collection of command line video editing utilities. It uses "Blind is a collection of command line video editing utilities. It uses
a custom raw video format with a simple container.") a custom raw video format with a simple container.")
@ -80,7 +80,7 @@ a custom raw video format with a simple container.")
(version "6.1") (version "6.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://dl.suckless.org/dwm/dwm-" (uri (string-append "https://dl.suckless.org/dwm/dwm-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 "1zkmwb6df6m254shx06ly90c0q4jl70skk1pvkixpb7hcxhwbxn2")))) (base32 "1zkmwb6df6m254shx06ly90c0q4jl70skk1pvkixpb7hcxhwbxn2"))))
@ -126,7 +126,7 @@ a custom raw video format with a simple container.")
("libx11" ,libx11) ("libx11" ,libx11)
("libxft" ,libxft) ("libxft" ,libxft)
("libxinerama" ,libxinerama))) ("libxinerama" ,libxinerama)))
(home-page "http://dwm.suckless.org/") (home-page "https://dwm.suckless.org/")
(synopsis "Dynamic window manager") (synopsis "Dynamic window manager")
(description (description
"dwm is a dynamic window manager for X. It manages windows in tiled, "dwm is a dynamic window manager for X. It manages windows in tiled,
@ -140,7 +140,7 @@ optimising the environment for the application in use and the task performed.")
(version "4.7") (version "4.7")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://dl.suckless.org/tools/dmenu-" (uri (string-append "https://dl.suckless.org/tools/dmenu-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
@ -160,7 +160,7 @@ optimising the environment for the application in use and the task performed.")
("libxft" ,libxft) ("libxft" ,libxft)
("libx11" ,libx11) ("libx11" ,libx11)
("libxinerama" ,libxinerama))) ("libxinerama" ,libxinerama)))
(home-page "http://tools.suckless.org/dmenu/") (home-page "https://tools.suckless.org/dmenu/")
(synopsis "Dynamic menu") (synopsis "Dynamic menu")
(description (description
"A dynamic menu for X, originally designed for dwm. It manages large "A dynamic menu for X, originally designed for dwm. It manages large
@ -201,7 +201,7 @@ numbers of user-defined menu items efficiently.")
(version "1.4") (version "1.4")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://dl.suckless.org/tools/slock-" (uri (string-append "https://dl.suckless.org/tools/slock-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
@ -217,7 +217,7 @@ numbers of user-defined menu items efficiently.")
("libxext" ,libxext) ("libxext" ,libxext)
("libxinerama" ,libxinerama) ("libxinerama" ,libxinerama)
("libxrandr" ,libxrandr))) ("libxrandr" ,libxrandr)))
(home-page "http://tools.suckless.org/slock/") (home-page "https://tools.suckless.org/slock/")
(synopsis "Simple X session lock") (synopsis "Simple X session lock")
(description (description
"Simple X session lock with trivial feedback on password entry.") "Simple X session lock with trivial feedback on password entry.")
@ -230,7 +230,7 @@ numbers of user-defined menu items efficiently.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://dl.suckless.org/st/st-" (uri (string-append "https://dl.suckless.org/st/st-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
@ -254,7 +254,7 @@ numbers of user-defined menu items efficiently.")
("fontconfig" ,fontconfig) ("fontconfig" ,fontconfig)
("freetype" ,freetype))) ("freetype" ,freetype)))
(native-inputs `(("pkg-config" ,pkg-config))) (native-inputs `(("pkg-config" ,pkg-config)))
(home-page "http://st.suckless.org/") (home-page "https://st.suckless.org/")
(synopsis "Simple terminal emulator") (synopsis "Simple terminal emulator")
(description (description
"St implements a simple and lightweight terminal emulator. It "St implements a simple and lightweight terminal emulator. It
@ -270,7 +270,7 @@ drawing.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://dl.suckless.org/surf/surf-" (uri (string-append "https://dl.suckless.org/surf/surf-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
@ -298,7 +298,7 @@ drawing.")
("xprop" ,xprop))) ("xprop" ,xprop)))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))
(home-page "http://surf.suckless.org/") (home-page "https://surf.suckless.org/")
(synopsis "Simple web browser") (synopsis "Simple web browser")
(description (description
"Surf is a simple web browser based on WebKit/GTK+. It is able to "Surf is a simple web browser based on WebKit/GTK+. It is able to
@ -313,7 +313,7 @@ point surf to another URI by setting its XProperties.")
(version "0.2") (version "0.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://dl.suckless.org/tools/sent-" (uri (string-append "https://dl.suckless.org/tools/sent-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
@ -345,7 +345,7 @@ presentations. Each paragraph represents a slide in the presentation.
Especially for presentations using the Takahashi method this is very nice and Especially for presentations using the Takahashi method this is very nice and
allows you to write down the presentation for a quick lightning talk within a allows you to write down the presentation for a quick lightning talk within a
few minutes.") few minutes.")
(home-page "http://tools.suckless.org/sent") (home-page "https://tools.suckless.org/sent")
(license license:x11))) (license license:x11)))
(define-public xbattmon (define-public xbattmon

16
gnu/packages/syncthing.scm
View file

@ -28,7 +28,7 @@
(define-public syncthing (define-public syncthing
(package (package
(name "syncthing") (name "syncthing")
(version "0.14.41") (version "0.14.42")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/syncthing/syncthing" (uri (string-append "https://github.com/syncthing/syncthing"
@ -36,7 +36,7 @@
"/syncthing-source-v" version ".tar.gz")) "/syncthing-source-v" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1liarl09grcb0mlw20nlrmir2glxqlykv4l0z0f0gj2w1wk3qz8a")))) "0qqcn8j2hng4jl6ndbrjmbiwbl2f305qx5yw7swbvj7s3l7k756i"))))
(build-system go-build-system) (build-system go-build-system)
;; The primary Syncthing executable goes to "out", while the auxiliary ;; The primary Syncthing executable goes to "out", while the auxiliary
;; server programs and utility tools go to "utils". This reduces the size ;; server programs and utility tools go to "utils". This reduces the size
@ -1506,8 +1506,8 @@ functions for normalizing Unicode strings.")
(license bsd-3)))) (license bsd-3))))
(define-public go-github-com-audriusbutkevicius-pfilter (define-public go-github-com-audriusbutkevicius-pfilter
(let ((commit "56143fe9cebe95636de1275acf30fcca36a1383d") (let ((commit "9dca34a5b530bfc9843fa8aa2ff08ff9821032cb")
(revision "1")) (revision "2"))
(package (package
(name "go-github-com-audriusbutkevicius-pfilter") (name "go-github-com-audriusbutkevicius-pfilter")
(version (git-version "0.0.0" revision commit)) (version (git-version "0.0.0" revision commit))
@ -1520,7 +1520,7 @@ functions for normalizing Unicode strings.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0slzly2f2fczixavzh6wa69873va29ikxww4lbkvhyi85c4sc5ib")))) "0i4qbnwba49db27fb1y792gcvhb0m744i9q4zgwjbypqmy3bj2a5"))))
(build-system go-build-system) (build-system go-build-system)
(arguments (arguments
'(#:import-path "github.com/AudriusButkevicius/pfilter")) '(#:import-path "github.com/AudriusButkevicius/pfilter"))
@ -1531,8 +1531,8 @@ virtual connections from a single physical connection.")
(license expat)))) (license expat))))
(define-public go-github-com-ccding-go-stun (define-public go-github-com-ccding-go-stun
(let ((commit "04a4eed61c57ecc9903f8983d1d2c17b88d2e9e1") (let ((commit "d9bbe8f8fa7bf7ed03e6cfc6a2796bb36139e1f4")
(revision "0")) (revision "1"))
(package (package
(name "go-github-com-ccding-go-stun") (name "go-github-com-ccding-go-stun")
(version (git-version "0.0.0" revision commit)) (version (git-version "0.0.0" revision commit))
@ -1545,7 +1545,7 @@ virtual connections from a single physical connection.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"09fgmkvm0vzinl3ifrixyyxk2c9hbahrja7i0ir400harzq3my10")))) "04a4q69cmw6snlx54wikyj1y6gk94qzm9xv9als17inmj8z60xv7"))))
(build-system go-build-system) (build-system go-build-system)
(arguments (arguments
'(#:import-path "github.com/ccding/go-stun")) '(#:import-path "github.com/ccding/go-stun"))

30
gnu/packages/upnp.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Sree Harsha Totakura <sreeharsha@totakura.in> ;;; Copyright © 2014 Sree Harsha Totakura <sreeharsha@totakura.in>
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2016, 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2016, 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -74,3 +75,32 @@ include peer-to-peer applications, active-mode FTP clients, DCC file transfers
over IRC, instant messaging, network games, and most server software.") over IRC, instant messaging, network games, and most server software.")
(license (license
(x11-style "file://LICENSE" "See 'LICENSE' file in the distribution")))) (x11-style "file://LICENSE" "See 'LICENSE' file in the distribution"))))
(define-public libupnp
(package
(name "libupnp")
(version "1.6.24")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/pupnp/pupnp/libUPnP%20"
version "/" name "-" version ".tar.bz2"))
(sha256
(base32
"15ngi1i7cvsv7g15fb9bkswvi99d1plz52x5qgjn4h5vyfddg0vx"))))
(build-system gnu-build-system)
(arguments
;; The tests require a network device capable of multicasting which is
;; not available in the build environment. See
;; https://lists.gnu.org/archive/html/guix-devel/2015-01/msg00312.html.
`(#:tests? #f
#:configure-flags '("--enable-ipv6")))
(home-page "http://pupnp.sourceforge.net")
(synopsis "Portable SDK for UPnP Devices")
(description
"The portable SDK for UPnP Devices (libupnp) provides developers with an
API and code for building control points, devices, and bridges that are
compliant with Version 1.0 of the Universal Plug and Play Device Architecture
Specification and support several operating systems like Linux, *BSD, Solaris
and others.")
(license bsd-3)))

59
gnu/packages/video.scm
View file

@ -782,6 +782,25 @@ audio/video codec library.")
flag)) flag))
,flags)))))) ,flags))))))
;; Annoyingly enough, the latest mpv release does not build with the stable
;; release of ffmpeg. Use a git commit until the situation is fixed.
(define-public ffmpeg-git
(let ((commit "3f887440677328c9cfed97ad81d14051ffa32aae")
(revision "1"))
(package
(inherit ffmpeg)
(name "ffmpeg-git")
(version (string-append "3.4-" revision "." (string-take commit 9)))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/FFmpeg/FFmpeg.git")
(commit commit)))
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
"1b7n3g4m2rbvrwsgbfl8wl91z42g1ld42clwxs8qpl9ny5rwz6sq")))))))
(define-public vlc (define-public vlc
(package (package
(name "vlc") (name "vlc")
@ -986,7 +1005,7 @@ SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
(define-public mpv (define-public mpv
(package (package
(name "mpv") (name "mpv")
(version "0.27.0") (version "0.28.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -994,7 +1013,7 @@ SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
".tar.gz")) ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1754371fkva8aqxgbm50jxyvij7mnysq0538bf6zghbmigqqn79l")) "1d2p6k3y9lqx8bpdal4grrj8ljy7pvd8qgdq8004fmr38afmbb7f"))
(file-name (string-append name "-" version ".tar.gz")))) (file-name (string-append name "-" version ".tar.gz"))))
(build-system waf-build-system) (build-system waf-build-system)
(native-inputs (native-inputs
@ -1005,7 +1024,7 @@ SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
(inputs (inputs
`(("alsa-lib" ,alsa-lib) `(("alsa-lib" ,alsa-lib)
("enca" ,enca) ("enca" ,enca)
("ffmpeg" ,ffmpeg) ("ffmpeg" ,ffmpeg-git)
("jack" ,jack-1) ("jack" ,jack-1)
("ladspa" ,ladspa) ("ladspa" ,ladspa)
("lcms" ,lcms) ("lcms" ,lcms)
@ -1034,6 +1053,7 @@ SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
("rsound" ,rsound) ("rsound" ,rsound)
("waf" ,python-waf) ("waf" ,python-waf)
("wayland" ,wayland) ("wayland" ,wayland)
("wayland-protocols" ,wayland-protocols)
("libxkbcommon", libxkbcommon) ("libxkbcommon", libxkbcommon)
("youtube-dl" ,youtube-dl) ("youtube-dl" ,youtube-dl)
("zlib" ,zlib))) ("zlib" ,zlib)))
@ -1129,7 +1149,7 @@ access to mpv's powerful playback capabilities.")
(define-public youtube-dl (define-public youtube-dl
(package (package
(name "youtube-dl") (name "youtube-dl")
(version "2017.12.14") (version "2017.12.31")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://yt-dl.org/downloads/" (uri (string-append "https://yt-dl.org/downloads/"
@ -1137,7 +1157,7 @@ access to mpv's powerful playback capabilities.")
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"01hvsch7ybff0amivl86m6klz156bm3hfh66zz5q8ha2af5j44hj")))) "0cq10ii96lpq3z7l1js0s59sqb4h4yqwdqinl2yf7cdjynvj62xi"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
;; The problem here is that the directory for the man page and completion ;; The problem here is that the directory for the man page and completion
@ -1246,7 +1266,7 @@ other site that youtube-dl supports.")
(define-public you-get (define-public you-get
(package (package
(name "you-get") (name "you-get")
(version "0.4.995") (version "0.4.1011")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -1255,13 +1275,27 @@ other site that youtube-dl supports.")
(file-name (string-append name "-" version ".tar.gz")) (file-name (string-append name "-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0i89mn8v8znn3csgzfg8dz5vcn3ld66xj02az6137bljhgivjxra")))) "0cdbh5w0chw3dlrwizm91l6sgkkzy7p6h0072dai4xbw5zgld31k"))))
(build-system python-build-system) (build-system python-build-system)
(arguments
'(#:tests? #f)) ; no tests
(inputs (inputs
`(("ffmpeg" ,ffmpeg))) `(("ffmpeg" ,ffmpeg))) ; for multi-part and >=1080p videos
(synopsis "Download videos, audios, or images from Web sites") (arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'qualify-input-references
;; Explicitly invoke the input ffmpeg, instead of whichever one
;; happens to be in the user's $PATH at run time.
(lambda* (#:key inputs #:allow-other-keys)
(let ((ffmpeg (string-append (assoc-ref inputs "ffmpeg")
"/bin/ffmpeg")))
(substitute* "src/you_get/processor/ffmpeg.py"
;; Don't blindly replace all occurrences of ‘'ffmpeg'’: the
;; same string is also used when sniffing ffmpeg's output.
(("(FFMPEG == |\\()'ffmpeg'" _ prefix)
(string-append prefix "'" ffmpeg "'")))
#t))))
#:tests? #f)) ; XXX some tests need Internet access
(synopsis "Download videos, audio, or images from Web sites")
(description (description
"You-Get is a command-line utility to download media contents (videos, "You-Get is a command-line utility to download media contents (videos,
audio, images) from the Web. It can use either mpv or vlc for playback.") audio, images) from the Web. It can use either mpv or vlc for playback.")
@ -1715,6 +1749,7 @@ from various services and pipes them into a video playing application.")
#t))))) #t)))))
(inputs (inputs
`(("alsa-lib" ,alsa-lib) `(("alsa-lib" ,alsa-lib)
("ffmpeg" ,ffmpeg)
("fftw" ,fftw) ("fftw" ,fftw)
("libxml2" ,libxml2) ("libxml2" ,libxml2)
("jack" ,jack-1) ("jack" ,jack-1)
@ -1733,7 +1768,7 @@ broadcasting. It provides a toolkit for broadcasters, video editors, media
players, transcoders, web streamers and many more types of applications. The players, transcoders, web streamers and many more types of applications. The
functionality of the system is provided via an assortment of ready to use functionality of the system is provided via an assortment of ready to use
tools, XML authoring components, and an extensible plug-in based API.") tools, XML authoring components, and an extensible plug-in based API.")
(license license:lgpl2.1+))) (license license:gpl3)))
(define-public v4l-utils (define-public v4l-utils
(package (package

25
gnu/packages/virtualization.scm
View file

@ -96,7 +96,10 @@
'(;; Running tests in parallel can occasionally lead to failures, like: '(;; Running tests in parallel can occasionally lead to failures, like:
;; boot_sector_test: assertion failed (signature == SIGNATURE): (0x00000000 == 0x0000dead) ;; boot_sector_test: assertion failed (signature == SIGNATURE): (0x00000000 == 0x0000dead)
#:parallel-tests? #f #:parallel-tests? #f
#:configure-flags '("--enable-usb-redir" "--enable-opengl") #:configure-flags (list "--enable-usb-redir" "--enable-opengl"
(string-append "--smbd="
(assoc-ref %outputs "out")
"/libexec/samba-wrapper"))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(replace 'configure (replace 'configure
@ -135,6 +138,20 @@
(install-file info infodir)) (install-file info infodir))
(find-files "." "\\.info")) (find-files "." "\\.info"))
#t)))))) #t))))))
;; Create a wrapper for Samba. This allows QEMU to use Samba without
;; pulling it in as an input. Note that you need to explicitly install
;; Samba in your Guix profile for Samba support.
(add-after 'install-info 'create-samba-wrapper
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref %outputs "out"))
(libexec (string-append out "/libexec")))
(call-with-output-file "samba-wrapper"
(lambda (port)
(format port "#!/bin/sh
exec smbd $@")))
(chmod "samba-wrapper" #o755)
(install-file "samba-wrapper" libexec))
#t))
(add-before 'check 'make-gtester-verbose (add-before 'check 'make-gtester-verbose
(lambda _ (lambda _
;; Make GTester verbose to facilitate investigation upon failure. ;; Make GTester verbose to facilitate investigation upon failure.
@ -176,7 +193,7 @@
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
("python" ,python-2) ; incompatible with Python 3 according to error message ("python" ,python-2) ; incompatible with Python 3 according to error message
("texinfo" ,texinfo))) ("texinfo" ,texinfo)))
(home-page "http://www.qemu-project.org") (home-page "https://www.qemu.org")
(synopsis "Machine emulator and virtualizer") (synopsis "Machine emulator and virtualizer")
(description (description
"QEMU is a generic machine emulator and virtualizer. "QEMU is a generic machine emulator and virtualizer.
@ -711,7 +728,7 @@ Machine Protocol.")
(define-public lookingglass (define-public lookingglass
(package (package
(name "lookingglass") (name "lookingglass")
(version "a5") (version "a9")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -720,7 +737,7 @@ Machine Protocol.")
(file-name (string-append name "-" version)) (file-name (string-append name "-" version))
(sha256 (sha256
(base32 (base32
"0lrb821914fp27xaq0spwhbblssz55phiygvdlvcrkifa138v8pf")))) "015chy4x94x4dd5831d7n0gada8rhahmdx7bdbdhajlzivi3kjcw"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs `(("fontconfig" ,fontconfig) (inputs `(("fontconfig" ,fontconfig)
("glu" ,glu) ("glu" ,glu)

8
gnu/packages/web-browsers.scm
View file

@ -130,7 +130,7 @@ features including, tables, builtin image display, bookmarks, SSL and more.")
(define-public lynx (define-public lynx
(package (package
(name "lynx") (name "lynx")
(version "2.8.9dev.15") (version "2.8.9dev.16")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -138,7 +138,7 @@ features including, tables, builtin image display, bookmarks, SSL and more.")
"/lynx" version ".tar.bz2")) "/lynx" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"16bdr7ai130ps67px8ssxnjxp5j6m4rin3in7jm22fxk0a8p2428")))) "1j0vx871ghkm7fgrafnvd2ml3ywcl8d3gyhq02fhfb851c88lc84"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs `(("pkg-config" ,pkg-config) (native-inputs `(("pkg-config" ,pkg-config)
("perl" ,perl))) ("perl" ,perl)))
@ -169,6 +169,10 @@ features including, tables, builtin image display, bookmarks, SSL and more.")
#:tests? #f ; no check target #:tests? #f ; no check target
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'configure 'set-makefile-shell
(lambda _ (substitute* "po/makefile.inn"
(("/bin/sh") (which "sh")))
#t))
(replace 'install (replace 'install
(lambda* (#:key (make-flags '()) #:allow-other-keys) (lambda* (#:key (make-flags '()) #:allow-other-keys)
(zero? (apply system* "make" "install-full" make-flags))))))) (zero? (apply system* "make" "install-full" make-flags)))))))

14
gnu/packages/web.scm
View file

@ -356,7 +356,7 @@ documentation.")
("libxslt" ,libxslt) ("libxslt" ,libxslt)
("nginx-xslscript" ,nginx-xslscript))) ("nginx-xslscript" ,nginx-xslscript)))
(home-page "https://nginx.org") (home-page "https://nginx.org")
(synopsis "Documentation for nginx web server") (synopsis "Documentation for the nginx web server")
(description (description
"This package provides HTML documentation for the nginx web server.") "This package provides HTML documentation for the nginx web server.")
(license l:bsd-2)))) (license l:bsd-2))))
@ -2899,7 +2899,7 @@ algorithm specified in section 8.2.2.1 of the draft standard.")
(define-public perl-io-socket-ip (define-public perl-io-socket-ip
(package (package
(name "perl-io-socket-ip") (name "perl-io-socket-ip")
(version "0.36") (version "0.38")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -2907,7 +2907,7 @@ algorithm specified in section 8.2.2.1 of the draft standard.")
"IO-Socket-IP-" version ".tar.gz")) "IO-Socket-IP-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"0ky20hmln6waipzqikizyw04vpszf70fgpshz7ib8zv8480ri456")))) "0scsnahxwnymg80a3k0p0cnr574nk7x9inn9wjniz0iycicclyhb"))))
(build-system perl-build-system) (build-system perl-build-system)
(native-inputs `(("perl-module-build" ,perl-module-build))) (native-inputs `(("perl-module-build" ,perl-module-build)))
(home-page "http://search.cpan.org/dist/IO-Socket-IP") (home-page "http://search.cpan.org/dist/IO-Socket-IP")
@ -3844,7 +3844,7 @@ directory.")
(propagated-inputs (propagated-inputs
`(("r-digest" ,r-digest) `(("r-digest" ,r-digest)
("r-rcpp" ,r-rcpp))) ("r-rcpp" ,r-rcpp)))
(home-page "http://cran.r-project.org/web/packages/htmltools") (home-page "https://cran.r-project.org/web/packages/htmltools")
(synopsis "R tools for HTML") (synopsis "R tools for HTML")
(description (description
"This package provides tools for HTML generation and output in R.") "This package provides tools for HTML generation and output in R.")
@ -3959,7 +3959,7 @@ callback or connection interfaces.")
(base32 (base32
"0arjsz854rfkfqhgvpqbm9lfni97dcjs66isdsfvwfd2wz932dbb")))) "0arjsz854rfkfqhgvpqbm9lfni97dcjs66isdsfvwfd2wz932dbb"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/hwriter") (home-page "https://cran.r-project.org/web/packages/hwriter")
(synopsis "Output R objects in HTML format") (synopsis "Output R objects in HTML format")
(description (description
"This package provides easy-to-use and versatile functions to output R "This package provides easy-to-use and versatile functions to output R
@ -3978,7 +3978,7 @@ objects in HTML format.")
(base32 (base32
"1vzjyvf57k1fjizlk28rby65y5lsww5qnfvgnhln74qwda7hvl3p")))) "1vzjyvf57k1fjizlk28rby65y5lsww5qnfvgnhln74qwda7hvl3p"))))
(build-system r-build-system) (build-system r-build-system)
(home-page "http://cran.r-project.org/web/packages/rjson") (home-page "https://cran.r-project.org/web/packages/rjson")
(synopsis "JSON library for R") (synopsis "JSON library for R")
(description (description
"This package provides functions to convert R objects into JSON objects "This package provides functions to convert R objects into JSON objects
@ -5424,7 +5424,7 @@ files). It currently supports linked brushing and filtering.")
(properties `((upstream-name . "Rook"))) (properties `((upstream-name . "Rook")))
(build-system r-build-system) (build-system r-build-system)
(propagated-inputs `(("r-brew" ,r-brew))) (propagated-inputs `(("r-brew" ,r-brew)))
(home-page "http://cran.r-project.org/web/packages/Rook") (home-page "https://cran.r-project.org/web/packages/Rook")
(synopsis "Web server interface for R") (synopsis "Web server interface for R")
(description (description
"This package contains the Rook specification and convenience software "This package contains the Rook specification and convenience software

50
gnu/packages/wine.scm
View file

@ -3,6 +3,7 @@
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2017 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -40,6 +41,7 @@
#:use-module (gnu packages gl) #:use-module (gnu packages gl)
#:use-module (gnu packages glib) #:use-module (gnu packages glib)
#:use-module (gnu packages gstreamer) #:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages openldap) #:use-module (gnu packages openldap)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
@ -183,3 +185,51 @@ integrate Windows applications into your desktop.")
(base32 (base32
"0g6cwjyqwc660w33453aklh3hpc0b8rrb88dryn23ah6wannvagg")))))) "0g6cwjyqwc660w33453aklh3hpc0b8rrb88dryn23ah6wannvagg"))))))
(define-public wine-staging
(package
(inherit wine)
(name "wine-staging")
(version "2.21")
(source (origin
(method url-fetch)
(uri (string-append
"https://github.com/wine-compholio/wine-patched/archive/"
"staging-" version ".tar.gz"))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"1pjaxj7h3q6y356np908fvsx0bf7yx5crqvgl4hza6gfssdmsr5r"))))
(inputs `(("gtk+", gtk+)
("libva", libva)
,@(package-inputs wine)))
(synopsis "Implementation of the Windows API (staging branch)")
(description "Wine-Staging is the testing area of Wine. It
contains bug fixes and features, which have not been integrated into
the development branch yet. The idea of Wine-Staging is to provide
experimental features faster to end users and to give developers the
possibility to discuss and improve their patches before they are
integrated into the main branch.")
(home-page "https://wine-staging.com")
;; In addition to the regular Wine license (lgpl2.1+), Wine-Staging
;; provides Liberation and WenQuanYi Micro Hei fonts. Those use
;; different licenses. In particular, the latter is licensed under
;; both GPL3+ and Apache 2 License.
(license
(list license:lgpl2.1+ license:silofl1.1 license:gpl3+ license:asl2.0))))
(define-public wine64-staging
(package
(inherit wine-staging)
(name "wine64-staging")
(arguments
`(#:make-flags
(list "SHELL=bash"
(string-append "libdir=" %output "/lib"))
#:configure-flags
(list "--enable-win64"
(string-append "LDFLAGS=-Wl,-rpath=" %output "/lib"))
,@(strip-keyword-arguments '(#:configure-flags #:make-flags #:system)
(package-arguments wine-staging))))
(synopsis "Implementation of the Windows API (staging branch, 64-bit
version)")
(supported-systems '("x86_64-linux" "aarch64-linux"))))

29
gnu/packages/xdisorg.scm
View file

@ -17,7 +17,7 @@
;;; Copyright © 2016, 2017 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2016, 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2016 Petter <petter@mykolab.ch> ;;; Copyright © 2016 Petter <petter@mykolab.ch>
;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com> ;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com>
;;; Copyright © 2017 ng0 <contact.ng0@cryptolab.net> ;;; Copyright © 2017 ng0 <ng0@infotropique.org>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Marek Benc <dusxmt@gmx.com> ;;; Copyright © 2017 Marek Benc <dusxmt@gmx.com>
;;; Copyright © 2017 Mike Gerwitz <mtg@gnu.org> ;;; Copyright © 2017 Mike Gerwitz <mtg@gnu.org>
@ -192,6 +192,33 @@ X11 (yet).")
(license (license:x11-style "file://COPYING" (license (license:x11-style "file://COPYING"
"See 'COPYING' in the distribution.")))) "See 'COPYING' in the distribution."))))
(define-public libfakekey
(package
(name "libfakekey")
(version "0.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://downloads.yoctoproject.org/releases"
"/matchbox/libfakekey/" version "/libfakekey-"
version ".tar.bz2"))
(sha256
(base32
"1501l0bflcrhqbf12n7a7cqilvr0w4xawxw0vw75p2940nkl4464"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags (list "AM_LDFLAGS=-lX11")))
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("libxtst" ,libxtst)
("libx11" ,libx11)))
(home-page "https://www.yoctoproject.org/tools-resources/projects/matchbox")
(synopsis "X virtual keyboard library")
(description
"Libfakekey is a virtual keyboard library for X.")
(license license:gpl2)))
(define-public xdotool (define-public xdotool
(package (package
(name "xdotool") (name "xdotool")

14
gnu/packages/xorg.scm
View file

@ -2891,8 +2891,8 @@ X server.")
(define-public xf86-video-intel (define-public xf86-video-intel
(let ((commit "c89905754b929f0421db7ea6d60b8942ccdbd8af") (let ((commit "af6d8e9e8f546e5cba60e3a62765c2dbd0328e83")
(revision "8")) (revision "9"))
(package (package
(name "xf86-video-intel") (name "xf86-video-intel")
(version (string-append "2.99.917-" revision "-" (version (string-append "2.99.917-" revision "-"
@ -2906,7 +2906,7 @@ X server.")
(commit commit))) (commit commit)))
(sha256 (sha256
(base32 (base32
"1xiyxhlq88vvgjavhxdkk933b5q7vm4jn6db144a6sqzifwaj672")) "0f6sbkgykvvdggy8z6y7blf7yharg9vmiixxy190643bjxlnpp2s"))
(file-name (string-append name "-" version)))) (file-name (string-append name "-" version))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs `(("mesa" ,mesa) (inputs `(("mesa" ,mesa)
@ -5068,7 +5068,7 @@ over Xlib, including:
(define-public xorg-server (define-public xorg-server
(package (package
(name "xorg-server") (name "xorg-server")
(version "1.19.5") (version "1.19.6")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -5077,7 +5077,7 @@ over Xlib, including:
name "-" version ".tar.bz2")) name "-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"0iql4pgsgpyqcrd3256pv227cdadvz01ych61n0d41ixp67gmzqq")) "15y13ihgkggmly5s07vzvpn35gzx1w0hrkbnlcvcy05h3lpm0cm7"))
(patches (patches
(list (list
;; See: ;; See:
@ -5920,7 +5920,7 @@ basic eye-candy effects.")
(define-public xpra (define-public xpra
(package (package
(name "xpra") (name "xpra")
(version "2.2") (version "2.2.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -5928,7 +5928,7 @@ basic eye-candy effects.")
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"0gi0i5pbhfzr5j4mbngjxvrk6r4lvigw4w2104znplmmrf1mw6y2")))) "052w92w21ywgip5p90nifn8vxqzg09by4a0ai22znhqm5mqh7qc1"))))
(build-system python-build-system) (build-system python-build-system)
(inputs `(("ffmpeg" ,ffmpeg) (inputs `(("ffmpeg" ,ffmpeg)
("flac" ,flac) ("flac" ,flac)

255
gnu/services/base.scm
View file

@ -57,7 +57,7 @@
file-system-service-type file-system-service-type
user-unmount-service user-unmount-service
swap-service swap-service
user-processes-service user-processes-service-type
host-name-service host-name-service
console-keymap-service console-keymap-service
%default-console-font %default-console-font
@ -162,6 +162,129 @@
;;; ;;;
;;; Code: ;;; Code:
;;;
;;; User processes.
;;;
(define %do-not-kill-file
;; Name of the file listing PIDs of processes that must survive when halting
;; the system. Typical example is user-space file systems.
"/etc/shepherd/do-not-kill")
(define (user-processes-shepherd-service requirements)
"Return the 'user-processes' Shepherd service with dependencies on
REQUIREMENTS (a list of service names).
This is a synchronization point used to make sure user processes and daemons
get started only after crucial initial services have been started---file
system mounts, etc. This is similar to the 'sysvinit' target in systemd."
(define grace-delay
;; Delay after sending SIGTERM and before sending SIGKILL.
4)
(list (shepherd-service
(documentation "When stopped, terminate all user processes.")
(provision '(user-processes))
(requirement requirements)
(start #~(const #t))
(stop #~(lambda _
(define (kill-except omit signal)
;; Kill all the processes with SIGNAL except those listed
;; in OMIT and the current process.
(let ((omit (cons (getpid) omit)))
(for-each (lambda (pid)
(unless (memv pid omit)
(false-if-exception
(kill pid signal))))
(processes))))
(define omitted-pids
;; List of PIDs that must not be killed.
(if (file-exists? #$%do-not-kill-file)
(map string->number
(call-with-input-file #$%do-not-kill-file
(compose string-tokenize
(@ (ice-9 rdelim) read-string))))
'()))
(define (now)
(car (gettimeofday)))
(define (sleep* n)
;; Really sleep N seconds.
;; Work around <http://bugs.gnu.org/19581>.
(define start (now))
(let loop ((elapsed 0))
(when (> n elapsed)
(sleep (- n elapsed))
(loop (- (now) start)))))
(define lset= (@ (srfi srfi-1) lset=))
(display "sending all processes the TERM signal\n")
(if (null? omitted-pids)
(begin
;; Easy: terminate all of them.
(kill -1 SIGTERM)
(sleep* #$grace-delay)
(kill -1 SIGKILL))
(begin
;; Kill them all except OMITTED-PIDS. XXX: We would
;; like to (kill -1 SIGSTOP) to get a fixed list of
;; processes, like 'killall5' does, but that seems
;; unreliable.
(kill-except omitted-pids SIGTERM)
(sleep* #$grace-delay)
(kill-except omitted-pids SIGKILL)
(delete-file #$%do-not-kill-file)))
(let wait ()
;; Reap children, if any, so that we don't end up with
;; zombies and enter an infinite loop.
(let reap-children ()
(define result
(false-if-exception
(waitpid WAIT_ANY (if (null? omitted-pids)
0
WNOHANG))))
(when (and (pair? result)
(not (zero? (car result))))
(reap-children)))
(let ((pids (processes)))
(unless (lset= = pids (cons 1 omitted-pids))
(format #t "waiting for process termination\
(processes left: ~s)~%"
pids)
(sleep* 2)
(wait))))
(display "all processes have been terminated\n")
#f))
(respawn? #f))))
(define user-processes-service-type
(service-type
(name 'user-processes)
(extensions (list (service-extension shepherd-root-service-type
user-processes-shepherd-service)))
(compose concatenate)
(extend append)
;; The value is the list of Shepherd services 'user-processes' depends on.
;; Extensions can add new services to this list.
(default-value '())
(description "The @code{user-processes} service is responsible for
terminating all the processes so that the root file system can be re-mounted
read-only, just before rebooting/halting. Processes still running after a few
seconds after @code{SIGTERM} has been sent are terminated with
@code{SIGKILL}.")))
;;; ;;;
;;; File systems. ;;; File systems.
@ -349,7 +472,11 @@ FILE-SYSTEM."
(list (service-extension shepherd-root-service-type (list (service-extension shepherd-root-service-type
file-system-shepherd-services) file-system-shepherd-services)
(service-extension fstab-service-type (service-extension fstab-service-type
identity))) identity)
;; Have 'user-processes' depend on 'file-systems'.
(service-extension user-processes-service-type
(const '(file-systems)))))
(compose concatenate) (compose concatenate)
(extend append) (extend append)
(description (description
@ -389,111 +516,6 @@ file systems, as well as corresponding @file{/etc/fstab} entries.")))
in KNOWN-MOUNT-POINTS when it is stopped." in KNOWN-MOUNT-POINTS when it is stopped."
(service user-unmount-service-type known-mount-points)) (service user-unmount-service-type known-mount-points))
(define %do-not-kill-file
;; Name of the file listing PIDs of processes that must survive when halting
;; the system. Typical example is user-space file systems.
"/etc/shepherd/do-not-kill")
(define user-processes-service-type
(shepherd-service-type
'user-processes
(lambda (grace-delay)
(shepherd-service
(documentation "When stopped, terminate all user processes.")
(provision '(user-processes))
(requirement '(file-systems))
(start #~(const #t))
(stop #~(lambda _
(define (kill-except omit signal)
;; Kill all the processes with SIGNAL except those listed
;; in OMIT and the current process.
(let ((omit (cons (getpid) omit)))
(for-each (lambda (pid)
(unless (memv pid omit)
(false-if-exception
(kill pid signal))))
(processes))))
(define omitted-pids
;; List of PIDs that must not be killed.
(if (file-exists? #$%do-not-kill-file)
(map string->number
(call-with-input-file #$%do-not-kill-file
(compose string-tokenize
(@ (ice-9 rdelim) read-string))))
'()))
(define (now)
(car (gettimeofday)))
(define (sleep* n)
;; Really sleep N seconds.
;; Work around <http://bugs.gnu.org/19581>.
(define start (now))
(let loop ((elapsed 0))
(when (> n elapsed)
(sleep (- n elapsed))
(loop (- (now) start)))))
(define lset= (@ (srfi srfi-1) lset=))
(display "sending all processes the TERM signal\n")
(if (null? omitted-pids)
(begin
;; Easy: terminate all of them.
(kill -1 SIGTERM)
(sleep* #$grace-delay)
(kill -1 SIGKILL))
(begin
;; Kill them all except OMITTED-PIDS. XXX: We would
;; like to (kill -1 SIGSTOP) to get a fixed list of
;; processes, like 'killall5' does, but that seems
;; unreliable.
(kill-except omitted-pids SIGTERM)
(sleep* #$grace-delay)
(kill-except omitted-pids SIGKILL)
(delete-file #$%do-not-kill-file)))
(let wait ()
;; Reap children, if any, so that we don't end up with
;; zombies and enter an infinite loop.
(let reap-children ()
(define result
(false-if-exception
(waitpid WAIT_ANY (if (null? omitted-pids)
0
WNOHANG))))
(when (and (pair? result)
(not (zero? (car result))))
(reap-children)))
(let ((pids (processes)))
(unless (lset= = pids (cons 1 omitted-pids))
(format #t "waiting for process termination\
(processes left: ~s)~%"
pids)
(sleep* 2)
(wait))))
(display "all processes have been terminated\n")
#f))
(respawn? #f)))))
(define* (user-processes-service #:key (grace-delay 4))
"Return the service that is responsible for terminating all the processes so
that the root file system can be re-mounted read-only, just before
rebooting/halting. Processes still running GRACE-DELAY seconds after SIGTERM
has been sent are terminated with SIGKILL.
The returned service will depend on 'file-systems', meaning that it is
considered started after all the auto-mount file systems have been mounted.
All the services that spawn processes must depend on this one so that they are
stopped before 'kill' is called."
(service user-processes-service-type grace-delay))
;;; ;;;
;;; Preserve entropy to seed /dev/urandom on boot. ;;; Preserve entropy to seed /dev/urandom on boot.
@ -507,7 +529,10 @@ stopped before 'kill' is called."
(list (shepherd-service (list (shepherd-service
(documentation "Preserve entropy across reboots for /dev/urandom.") (documentation "Preserve entropy across reboots for /dev/urandom.")
(provision '(urandom-seed)) (provision '(urandom-seed))
(requirement '(user-processes))
;; Depend on udev so that /dev/hwrng is available.
(requirement '(file-systems udev))
(start #~(lambda _ (start #~(lambda _
;; On boot, write random seed into /dev/urandom. ;; On boot, write random seed into /dev/urandom.
(when (file-exists? #$%random-seed-file) (when (file-exists? #$%random-seed-file)
@ -568,13 +593,20 @@ stopped before 'kill' is called."
(service-type (name 'urandom-seed) (service-type (name 'urandom-seed)
(extensions (extensions
(list (service-extension shepherd-root-service-type (list (service-extension shepherd-root-service-type
urandom-seed-shepherd-service))) urandom-seed-shepherd-service)
;; Have 'user-processes' depend on 'urandom-seed'.
;; This ensures that user processes and daemons don't
;; start until we have seeded the PRNG.
(service-extension user-processes-service-type
(const '(urandom-seed)))))
(default-value #f)
(description (description
"Seed the @file{/dev/urandom} pseudo-random number "Seed the @file{/dev/urandom} pseudo-random number
generator (RNG) with the value recorded when the system was last shut generator (RNG) with the value recorded when the system was last shut
down."))) down.")))
(define (urandom-seed-service) (define (urandom-seed-service) ;deprecated
(service urandom-seed-service-type #f)) (service urandom-seed-service-type #f))
@ -1954,9 +1986,10 @@ This service is not part of @var{%base-services}."
(service static-networking-service-type (service static-networking-service-type
(list (static-networking (interface "lo") (list (static-networking (interface "lo")
(ip "127.0.0.1") (ip "127.0.0.1")
(requirement '())
(provision '(loopback))))) (provision '(loopback)))))
(syslog-service) (syslog-service)
(urandom-seed-service) (service urandom-seed-service-type)
(guix-service) (guix-service)
(nscd-service) (nscd-service)

33
gnu/services/desktop.scm
View file

@ -4,6 +4,7 @@
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com> ;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2017 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2017 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2017 ng0 <ng0@infotropique.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -42,6 +43,7 @@
#:use-module (gnu packages suckless) #:use-module (gnu packages suckless)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages libusb) #:use-module (gnu packages libusb)
#:use-module (gnu packages mate)
#:use-module (guix records) #:use-module (guix records)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix store) #:use-module (guix store)
@ -82,6 +84,11 @@
gnome-desktop-service gnome-desktop-service
gnome-desktop-service-type gnome-desktop-service-type
mate-desktop-configuration
mate-desktop-configuration?
mate-desktop-service
mate-desktop-service-type
xfce-desktop-configuration xfce-desktop-configuration
xfce-desktop-configuration? xfce-desktop-configuration?
xfce-desktop-service xfce-desktop-service
@ -817,6 +824,32 @@ rules."
and extends polkit with the actions from @code{gnome-settings-daemon}." and extends polkit with the actions from @code{gnome-settings-daemon}."
(service gnome-desktop-service-type config)) (service gnome-desktop-service-type config))
;; MATE Desktop service.
;; TODO: Add mate-screensaver.
(define-record-type* <mate-desktop-configuration> mate-desktop-configuration
make-mate-desktop-configuration
mate-desktop-configuration
(mate-package mate-package (default mate)))
(define mate-desktop-service-type
(service-type
(name 'mate-desktop)
(extensions
(list (service-extension polkit-service-type
(compose list
(package-direct-input-selector
"mate-settings-daemon")
mate-package))
(service-extension profile-service-type
(compose list
mate-package))))))
(define* (mate-desktop-service #:key (config (mate-desktop-configuration)))
"Return a service that adds the @code{mate} package to the system profile,
and extends polkit with the actions from @code{mate-settings-daemon}."
(service mate-desktop-service-type config))
;;; ;;;
;;; XFCE desktop service. ;;; XFCE desktop service.

30
gnu/services/mail.scm
View file

@ -2,6 +2,7 @@
;;; Copyright © 2015 Andy Wingo <wingo@igalia.com> ;;; Copyright © 2015 Andy Wingo <wingo@igalia.com>
;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017 Carlo Zancanaro <carlo@zancanaro.id.au> ;;; Copyright © 2017 Carlo Zancanaro <carlo@zancanaro.id.au>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -745,12 +746,6 @@ allowed too, like 10.0.0.10-10.0.0.30.")
"How long to redirect users to a specific server after it no longer "How long to redirect users to a specific server after it no longer
has any connections.") has any connections.")
(director-doveadm-port
(non-negative-integer 0)
"TCP/IP port that accepts doveadm connections (instead of director
connections) If you enable this, you'll also need to add
@samp{inet-listener} for the port.")
(director-username-hash (director-username-hash
(string "%Lu") (string "%Lu")
"How the username is translated before being hashed. Useful values "How the username is translated before being hashed. Useful values
@ -831,7 +826,7 @@ string.")
string, %$ contains the data we want to log.") string, %$ contains the data we want to log.")
(mail-log-prefix (mail-log-prefix
(string "\"%s(%u): \"") (string "\"%s(%u)<%{pid}><%{session}>: \"")
"Log prefix for mail processes. See doc/wiki/Variables.txt for list "Log prefix for mail processes. See doc/wiki/Variables.txt for list
of possible variables you can use.") of possible variables you can use.")
@ -1145,7 +1140,7 @@ files. If an index file already exists it's still read, just not
updated.") updated.")
(mdbox-rotate-size (mdbox-rotate-size
(non-negative-integer #e2e6) (non-negative-integer #e10e6)
"Maximum dbox file size until it's rotated.") "Maximum dbox file size until it's rotated.")
(mdbox-rotate-interval (mdbox-rotate-interval
@ -1262,18 +1257,12 @@ it, set @samp{auth-ssl-require-client-cert? #t} in auth section.")
x500UniqueIdentifier are the usual choices. You'll also need to set x500UniqueIdentifier are the usual choices. You'll also need to set
@samp{auth-ssl-username-from-cert? #t}.") @samp{auth-ssl-username-from-cert? #t}.")
(ssl-parameters-regenerate (ssl-min-protocol
(hours 168) (string "TLSv1")
"How often to regenerate the SSL parameters file. Generation is "Minimum SSL protocol version to accept.")
quite CPU intensive operation. The value is in hours, 0 disables
regeneration entirely.")
(ssl-protocols
(string "!SSLv2")
"SSL protocols to use.")
(ssl-cipher-list (ssl-cipher-list
(string "ALL:!LOW:!SSLv2:!EXP:!aNULL") (string "ALL:!kRSA:!SRP:!kDHd:!DSS:!aNULL:!eNULL:!EXPORT:!DES:!3DES:!MD5:!PSK:!RC4:!ADH:!LOW@STRENGTH")
"SSL ciphers to use.") "SSL ciphers to use.")
(ssl-crypto-device (ssl-crypto-device
@ -1356,14 +1345,15 @@ get \"Too long argument\" or \"IMAP command line too large\" errors
often.") often.")
(imap-logout-format (imap-logout-format
(string "in=%i out=%o") (string "in=%i out=%o deleted=%{deleted} expunged=%{expunged} trashed=%{trashed} hdr_count=%{fetch_hdr_count} hdr_bytes=%{fetch_hdr_bytes} body_count=%{fetch_body_count} body_bytes=%{fetch_body_bytes}")
"IMAP logout format string: "IMAP logout format string:
@table @code @table @code
@item %i @item %i
total number of bytes read from client total number of bytes read from client
@item %o @item %o
total number of bytes sent to client. total number of bytes sent to client.
@end table") @end table
See @file{doc/wiki/Variables.txt} for a list of all the variables you can use.")
(imap-capability (imap-capability
(string "") (string "")

46
gnu/services/messaging.scm
View file

@ -320,13 +320,13 @@ can create such a file with:
(data-path (data-path
(file-name "/var/lib/prosody") (file-name "/var/lib/prosody")
"Location of the Prosody data storage directory. See "Location of the Prosody data storage directory. See
@url{http://prosody.im/doc/configure}." @url{https://prosody.im/doc/configure}."
global) global)
(plugin-paths (plugin-paths
(file-name-list '()) (file-name-list '())
"Additional plugin directories. They are searched in all the specified "Additional plugin directories. They are searched in all the specified
paths in order. See @url{http://prosody.im/doc/plugins_directory}." paths in order. See @url{https://prosody.im/doc/plugins_directory}."
global) global)
(certificates (certificates
@ -339,15 +339,15 @@ certificates/keys from the directory specified here."
(admins (admins
(string-list '()) (string-list '())
"This is a list of accounts that are admins for the server. Note that you "This is a list of accounts that are admins for the server. Note that you
must create the accounts separately. See @url{http://prosody.im/doc/admins} and must create the accounts separately. See @url{https://prosody.im/doc/admins} and
@url{http://prosody.im/doc/creating_accounts}. @url{https://prosody.im/doc/creating_accounts}.
Example: @code{(admins '(\"user1@@example.com\" \"user2@@example.net\"))}" Example: @code{(admins '(\"user1@@example.com\" \"user2@@example.net\"))}"
common) common)
(use-libevent? (use-libevent?
(boolean #f) (boolean #f)
"Enable use of libevent for better performance under high load. See "Enable use of libevent for better performance under high load. See
@url{http://prosody.im/doc/libevent}." @url{https://prosody.im/doc/libevent}."
common) common)
(modules-enabled (modules-enabled
@ -355,7 +355,7 @@ Example: @code{(admins '(\"user1@@example.com\" \"user2@@example.net\"))}"
"This is the list of modules Prosody will load on startup. It looks for "This is the list of modules Prosody will load on startup. It looks for
@code{mod_modulename.lua} in the plugins folder, so make sure that exists too. @code{mod_modulename.lua} in the plugins folder, so make sure that exists too.
Documentation on modules can be found at: Documentation on modules can be found at:
@url{http://prosody.im/doc/modules}." @url{https://prosody.im/doc/modules}."
common) common)
(modules-disabled (modules-disabled
@ -368,13 +368,13 @@ should you want to disable them then add them to this list."
(file-name "/var/lib/prosody/sharedgroups.txt") (file-name "/var/lib/prosody/sharedgroups.txt")
"Path to a text file where the shared groups are defined. If this path is "Path to a text file where the shared groups are defined. If this path is
empty then @samp{mod_groups} does nothing. See empty then @samp{mod_groups} does nothing. See
@url{http://prosody.im/doc/modules/mod_groups}." @url{https://prosody.im/doc/modules/mod_groups}."
common) common)
(allow-registration? (allow-registration?
(boolean #f) (boolean #f)
"Disable account creation by default, for security. See "Disable account creation by default, for security. See
@url{http://prosody.im/doc/creating_accounts}." @url{https://prosody.im/doc/creating_accounts}."
common) common)
(ssl (ssl
@ -382,13 +382,13 @@ empty then @samp{mod_groups} does nothing. See
"These are the SSL/TLS-related settings. Most of them are disabled so to "These are the SSL/TLS-related settings. Most of them are disabled so to
use Prosody's defaults. If you do not completely understand these options, do use Prosody's defaults. If you do not completely understand these options, do
not add them to your config, it is easy to lower the security of your server not add them to your config, it is easy to lower the security of your server
using them. See @url{http://prosody.im/doc/advanced_ssl_config}." using them. See @url{https://prosody.im/doc/advanced_ssl_config}."
common) common)
(c2s-require-encryption? (c2s-require-encryption?
(boolean #f) (boolean #f)
"Whether to force all client-to-server connections to be encrypted or not. "Whether to force all client-to-server connections to be encrypted or not.
See @url{http://prosody.im/doc/modules/mod_tls}." See @url{https://prosody.im/doc/modules/mod_tls}."
common) common)
(disable-sasl-mechanisms (disable-sasl-mechanisms
@ -400,7 +400,7 @@ See @url{http://prosody.im/doc/modules/mod_tls}."
(s2s-require-encryption? (s2s-require-encryption?
(boolean #f) (boolean #f)
"Whether to force all server-to-server connections to be encrypted or not. "Whether to force all server-to-server connections to be encrypted or not.
See @url{http://prosody.im/doc/modules/mod_tls}." See @url{https://prosody.im/doc/modules/mod_tls}."
common) common)
(s2s-secure-auth? (s2s-secure-auth?
@ -408,7 +408,7 @@ See @url{http://prosody.im/doc/modules/mod_tls}."
"Whether to require encryption and certificate authentication. This "Whether to require encryption and certificate authentication. This
provides ideal security, but requires servers you communicate with to support provides ideal security, but requires servers you communicate with to support
encryption AND present valid, trusted certificates. See encryption AND present valid, trusted certificates. See
@url{http://prosody.im/doc/s2s#security}." @url{https://prosody.im/doc/s2s#security}."
common) common)
(s2s-insecure-domains (s2s-insecure-domains
@ -416,14 +416,14 @@ encryption AND present valid, trusted certificates. See
"Many servers don't support encryption or have invalid or self-signed "Many servers don't support encryption or have invalid or self-signed
certificates. You can list domains here that will not be required to certificates. You can list domains here that will not be required to
authenticate using certificates. They will be authenticated using DNS. See authenticate using certificates. They will be authenticated using DNS. See
@url{http://prosody.im/doc/s2s#security}." @url{https://prosody.im/doc/s2s#security}."
common) common)
(s2s-secure-domains (s2s-secure-domains
(string-list '()) (string-list '())
"Even if you leave @code{s2s-secure-auth?} disabled, you can still require "Even if you leave @code{s2s-secure-auth?} disabled, you can still require
valid certificates for some domains by specifying a list here. See valid certificates for some domains by specifying a list here. See
@url{http://prosody.im/doc/s2s#security}." @url{https://prosody.im/doc/s2s#security}."
common) common)
(authentication (authentication
@ -431,21 +431,21 @@ valid certificates for some domains by specifying a list here. See
"Select the authentication backend to use. The default provider stores "Select the authentication backend to use. The default provider stores
passwords in plaintext and uses Prosody's configured data storage to store the passwords in plaintext and uses Prosody's configured data storage to store the
authentication data. If you do not trust your server please see authentication data. If you do not trust your server please see
@url{http://prosody.im/doc/modules/mod_auth_internal_hashed} for information @url{https://prosody.im/doc/modules/mod_auth_internal_hashed} for information
about using the hashed backend. See also about using the hashed backend. See also
@url{http://prosody.im/doc/authentication}" @url{https://prosody.im/doc/authentication}"
common) common)
;; TODO: Handle more complicated log structures. ;; TODO: Handle more complicated log structures.
(log (log
(maybe-string "*syslog") (maybe-string "*syslog")
"Set logging options. Advanced logging configuration is not yet supported "Set logging options. Advanced logging configuration is not yet supported
by the GuixSD Prosody Service. See @url{http://prosody.im/doc/logging}." by the GuixSD Prosody Service. See @url{https://prosody.im/doc/logging}."
common) common)
(pidfile (pidfile
(file-name "/var/run/prosody/prosody.pid") (file-name "/var/run/prosody/prosody.pid")
"File to write pid in. See @url{http://prosody.im/doc/modules/mod_posix}." "File to write pid in. See @url{https://prosody.im/doc/modules/mod_posix}."
global) global)
(http-max-content-size (http-max-content-size
@ -476,7 +476,7 @@ instance can serve many domains, each one defined as a VirtualHost entry in
Prosody's configuration. Conversely a server that hosts a single domain would Prosody's configuration. Conversely a server that hosts a single domain would
have just one VirtualHost entry. have just one VirtualHost entry.
See @url{http://prosody.im/doc/configure#virtual_host_settings}." See @url{https://prosody.im/doc/configure#virtual_host_settings}."
global) global)
(int-components (int-components
@ -490,14 +490,14 @@ Internal components are implemented with Prosody-specific plugins. To add an
internal component, you simply fill the hostname field, and the plugin you wish internal component, you simply fill the hostname field, and the plugin you wish
to use for the component. to use for the component.
See @url{http://prosody.im/doc/components}." See @url{https://prosody.im/doc/components}."
global) global)
(ext-components (ext-components
(ext-component-configuration-list '()) (ext-component-configuration-list '())
"External components use XEP-0114, which most standalone components "External components use XEP-0114, which most standalone components
support. To add an external component, you simply fill the hostname field. See support. To add an external component, you simply fill the hostname field. See
@url{http://prosody.im/doc/components}." @url{https://prosody.im/doc/components}."
global) global)
(component-secret (component-secret
@ -536,10 +536,10 @@ support. To add an external component, you simply fill the hostname field. See
hosted chatrooms/conferences for XMPP users. hosted chatrooms/conferences for XMPP users.
General information on setting up and using multi-user chatrooms can be found General information on setting up and using multi-user chatrooms can be found
in the \"Chatrooms\" documentation (@url{http://prosody.im/doc/chatrooms}), in the \"Chatrooms\" documentation (@url{https://prosody.im/doc/chatrooms}),
which you should read if you are new to XMPP chatrooms. which you should read if you are new to XMPP chatrooms.
See also @url{http://prosody.im/doc/modules/mod_muc}." See also @url{https://prosody.im/doc/modules/mod_muc}."
int-component) int-component)
(hostname (hostname

14
gnu/services/networking.scm
View file

@ -5,6 +5,7 @@
;;; Copyright © 2016 John Darrington <jmd@gnu.org> ;;; Copyright © 2016 John Darrington <jmd@gnu.org>
;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -51,6 +52,7 @@
static-networking-ip static-networking-ip
static-networking-netmask static-networking-netmask
static-networking-gateway static-networking-gateway
static-networking-requirement
static-networking-service static-networking-service
static-networking-service-type static-networking-service-type
@ -145,22 +147,21 @@ fe80::1%lo0 apps.facebook.com\n")
(default #f)) (default #f))
(provision static-networking-provision (provision static-networking-provision
(default #f)) (default #f))
(requirement static-networking-requirement
(default '()))
(name-servers static-networking-name-servers ;FIXME: doesn't belong here (name-servers static-networking-name-servers ;FIXME: doesn't belong here
(default '()))) (default '())))
(define static-networking-shepherd-service (define static-networking-shepherd-service
(match-lambda (match-lambda
(($ <static-networking> interface ip netmask gateway provision (($ <static-networking> interface ip netmask gateway provision
name-servers) requirement name-servers)
(let ((loopback? (and provision (memq 'loopback provision)))) (let ((loopback? (and provision (memq 'loopback provision))))
(shepherd-service (shepherd-service
;; Unless we're providing the loopback interface, wait for udev to be up
;; and running so that INTERFACE is actually usable.
(requirement (if loopback? '() '(udev)))
(documentation (documentation
"Bring up the networking interface using a static IP address.") "Bring up the networking interface using a static IP address.")
(requirement requirement)
(provision (or provision (provision (or provision
(list (symbol-append 'networking- (list (symbol-append 'networking-
(string->symbol interface))))) (string->symbol interface)))))
@ -263,6 +264,8 @@ network interface.")))
(define* (static-networking-service interface ip (define* (static-networking-service interface ip
#:key #:key
netmask gateway provision netmask gateway provision
;; Most interfaces require udev to be usable.
(requirement '(udev))
(name-servers '())) (name-servers '()))
"Return a service that starts @var{interface} with address @var{ip}. If "Return a service that starts @var{interface} with address @var{ip}. If
@var{netmask} is true, use it as the network mask. If @var{gateway} is true, @var{netmask} is true, use it as the network mask. If @var{gateway} is true,
@ -277,6 +280,7 @@ to handle."
(list (static-networking (interface interface) (ip ip) (list (static-networking (interface interface) (ip ip)
(netmask netmask) (gateway gateway) (netmask netmask) (gateway gateway)
(provision provision) (provision provision)
(requirement requirement)
(name-servers name-servers))))) (name-servers name-servers)))))
(define dhcp-client-service-type (define dhcp-client-service-type

2
gnu/system.scm
View file

@ -449,7 +449,7 @@ a container or that of a \"bare metal\" system."
(other-fs (non-boot-file-system-service os)) (other-fs (non-boot-file-system-service os))
(unmount (user-unmount-service known-fs)) (unmount (user-unmount-service known-fs))
(swaps (swap-services os)) (swaps (swap-services os))
(procs (user-processes-service)) (procs (service user-processes-service-type))
(host-name (host-name-service (operating-system-host-name os))) (host-name (host-name-service (operating-system-host-name os)))
(entries (operating-system-directory-base-entries (entries (operating-system-directory-base-entries
os #:container? container?))) os #:container? container?)))

5
gnu/system/examples/beaglebone-black.tmpl
View file

@ -15,6 +15,11 @@
(bootloader (bootloader-configuration (bootloader (bootloader-configuration
(bootloader u-boot-beaglebone-black-bootloader) (bootloader u-boot-beaglebone-black-bootloader)
(target "/dev/mmcblk1"))) (target "/dev/mmcblk1")))
(initrd (lambda (fs . rest)
(apply base-initrd fs
;; This module is required to mount the sd card.
#:extra-modules (list "omap_hsmmc")
rest)))
(file-systems (cons (file-system (file-systems (cons (file-system
(device "my-root") (device "my-root")
(title 'label) (title 'label)

65
gnu/system/file-systems.scm
View file

@ -279,46 +279,47 @@ TARGET in the other system."
;; parent directory. ;; parent directory.
(dependencies (list parent)))) (dependencies (list parent))))
'("cpuset" "cpu" "cpuacct" "memory" "devices" "freezer" '("cpuset" "cpu" "cpuacct" "memory" "devices" "freezer"
"blkio" "perf_event" "hugetlb"))))) "blkio" "perf_event")))))
(define %elogind-file-systems (define %elogind-file-systems
;; We don't use systemd, but these file systems are needed for elogind, ;; We don't use systemd, but these file systems are needed for elogind,
;; which was extracted from systemd. ;; which was extracted from systemd.
(list (file-system (append
(device "none") (list (file-system
(mount-point "/run/systemd") (device "none")
(type "tmpfs") (mount-point "/run/systemd")
(check? #f) (type "tmpfs")
(flags '(no-suid no-dev no-exec)) (check? #f)
(options "mode=0755") (flags '(no-suid no-dev no-exec))
(create-mount-point? #t)) (options "mode=0755")
(file-system (create-mount-point? #t))
(device "none") (file-system
(mount-point "/run/user") (device "none")
(type "tmpfs") (mount-point "/run/user")
(check? #f) (type "tmpfs")
(flags '(no-suid no-dev no-exec)) (check? #f)
(options "mode=0755") (flags '(no-suid no-dev no-exec))
(create-mount-point? #t)) (options "mode=0755")
;; Elogind uses cgroups to organize processes, allowing it to map PIDs (create-mount-point? #t))
;; to sessions. Elogind's cgroup hierarchy isn't associated with any ;; Elogind uses cgroups to organize processes, allowing it to map PIDs
;; resource controller ("subsystem"). ;; to sessions. Elogind's cgroup hierarchy isn't associated with any
(file-system ;; resource controller ("subsystem").
(device "cgroup") (file-system
(mount-point "/sys/fs/cgroup/elogind") (device "cgroup")
(type "cgroup") (mount-point "/sys/fs/cgroup/elogind")
(check? #f) (type "cgroup")
(options "none,name=elogind") (check? #f)
(create-mount-point? #t) (options "none,name=elogind")
(dependencies (list (car %control-groups)))))) (create-mount-point? #t)
(dependencies (list (car %control-groups)))))
%control-groups))
(define %base-file-systems (define %base-file-systems
;; List of basic file systems to be mounted. Note that /proc and /sys are ;; List of basic file systems to be mounted. Note that /proc and /sys are
;; currently mounted by the initrd. ;; currently mounted by the initrd.
(append (list %pseudo-terminal-file-system (list %pseudo-terminal-file-system
%shared-memory-file-system %shared-memory-file-system
%immutable-store) %immutable-store))
%control-groups))
;; File systems for Linux containers differ from %base-file-systems in that ;; File systems for Linux containers differ from %base-file-systems in that
;; they impose additional restrictions such as no-exec or need different ;; they impose additional restrictions such as no-exec or need different

34
gnu/system/mapped-devices.scm
View file

@ -22,23 +22,32 @@
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix records) #:use-module (guix records)
#:use-module (guix modules) #:use-module (guix modules)
#:use-module (guix i18n)
#:use-module ((guix utils)
#:select (source-properties->location
&error-location))
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu services shepherd) #:use-module (gnu services shepherd)
#:use-module (gnu system uuid) #:use-module (gnu system uuid)
#:autoload (gnu build file-systems) (find-partition-by-luks-uuid)
#:autoload (gnu packages cryptsetup) (cryptsetup-static) #:autoload (gnu packages cryptsetup) (cryptsetup-static)
#:autoload (gnu packages linux) (mdadm-static) #:autoload (gnu packages linux) (mdadm-static)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-35)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:export (mapped-device #:export (mapped-device
mapped-device? mapped-device?
mapped-device-source mapped-device-source
mapped-device-target mapped-device-target
mapped-device-type mapped-device-type
mapped-device-location
mapped-device-kind mapped-device-kind
mapped-device-kind? mapped-device-kind?
mapped-device-kind-open mapped-device-kind-open
mapped-device-kind-close mapped-device-kind-close
mapped-device-kind-check
device-mapping-service-type device-mapping-service-type
device-mapping-service device-mapping-service
@ -58,14 +67,18 @@
mapped-device? mapped-device?
(source mapped-device-source) ;string | list of strings (source mapped-device-source) ;string | list of strings
(target mapped-device-target) ;string (target mapped-device-target) ;string
(type mapped-device-type)) ;<mapped-device-kind> (type mapped-device-type) ;<mapped-device-kind>
(location mapped-device-location
(default (current-source-location)) (innate)))
(define-record-type* <mapped-device-type> mapped-device-kind (define-record-type* <mapped-device-type> mapped-device-kind
make-mapped-device-kind make-mapped-device-kind
mapped-device-kind? mapped-device-kind?
(open mapped-device-kind-open) ;source target -> gexp (open mapped-device-kind-open) ;source target -> gexp
(close mapped-device-kind-close ;source target -> gexp (close mapped-device-kind-close ;source target -> gexp
(default (const #~(const #f))))) (default (const #~(const #f))))
(check mapped-device-kind-check ;source -> Boolean
(default (const #t))))
;;; ;;;
@ -138,11 +151,26 @@
#~(zero? (system* #$(file-append cryptsetup-static "/sbin/cryptsetup") #~(zero? (system* #$(file-append cryptsetup-static "/sbin/cryptsetup")
"close" #$target))) "close" #$target)))
(define (check-luks-device md)
"Ensure the source of MD is valid."
(let ((source (mapped-device-source md)))
(or (not (uuid? source))
(not (zero? (getuid)))
(find-partition-by-luks-uuid (uuid-bytevector source))
(raise (condition
(&message
(message (format #f (G_ "no LUKS partition with UUID '~a'")
(uuid->string source))))
(&error-location
(location (source-properties->location
(mapped-device-location md)))))))))
(define luks-device-mapping (define luks-device-mapping
;; The type of LUKS mapped devices. ;; The type of LUKS mapped devices.
(mapped-device-kind (mapped-device-kind
(open open-luks-device) (open open-luks-device)
(close close-luks-device))) (close close-luks-device)
(check check-luks-device)))
(define (open-raid-device sources target) (define (open-raid-device sources target)
"Return a gexp that assembles SOURCES (a list of devices) to the RAID device "Return a gexp that assembles SOURCES (a list of devices) to the RAID device

110
gnu/tests/networking.scm
View file

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -26,7 +27,9 @@
#:use-module (guix store) #:use-module (guix store)
#:use-module (guix monads) #:use-module (guix monads)
#:use-module (gnu packages bash) #:use-module (gnu packages bash)
#:export (%test-inetd)) #:use-module (gnu packages networking)
#:use-module (gnu services shepherd)
#:export (%test-inetd %test-openvswitch))
(define %inetd-os (define %inetd-os
;; Operating system with 2 inetd services. ;; Operating system with 2 inetd services.
@ -135,3 +138,108 @@ port 7, and a dict service on port 2628."
(name "inetd") (name "inetd")
(description "Connect to a host with an INETD server.") (description "Connect to a host with an INETD server.")
(value (run-inetd-test)))) (value (run-inetd-test))))
;;;
;;; Open vSwitch
;;;
(define setup-openvswitch
#~(let ((ovs-vsctl (lambda (str)
(zero? (apply system*
#$(file-append openvswitch "/bin/ovs-vsctl")
(string-tokenize str)))))
(add-native-port (lambda (if)
(string-append "--may-exist add-port br0 " if
" vlan_mode=native-untagged"
" -- set Interface " if
" type=internal"))))
(and (ovs-vsctl "--may-exist add-br br0")
;; Connect eth0 as an "untagged" port (no VLANs).
(ovs-vsctl "--may-exist add-port br0 eth0 vlan_mode=native-untagged")
(ovs-vsctl (add-native-port "ovs0")))))
(define openvswitch-configuration-service
(simple-service 'openvswitch-configuration shepherd-root-service-type
(list (shepherd-service
(provision '(openvswitch-configuration))
(requirement '(vswitchd))
(start #~(lambda ()
#$setup-openvswitch))
(respawn? #f)))))
(define %openvswitch-os
(simple-operating-system
(static-networking-service "ovs0" "10.1.1.1"
#:netmask "255.255.255.252"
#:requirement '(openvswitch-configuration))
(service openvswitch-service-type
(openvswitch-configuration
(package openvswitch)))
openvswitch-configuration-service))
(define (run-openvswitch-test)
(define os
(marionette-operating-system %openvswitch-os
#:imported-modules '((gnu services herd))))
(define test
(with-imported-modules '((gnu build marionette))
#~(begin
(use-modules (gnu build marionette)
(ice-9 popen)
(ice-9 rdelim)
(srfi srfi-64))
(define marionette
(make-marionette (list #$(virtual-machine os))))
(mkdir #$output)
(chdir #$output)
(test-begin "openvswitch")
;; Make sure the bridge is created.
(test-assert "br0 exists"
(marionette-eval
'(zero? (system* "ovs-vsctl" "br-exists" "br0"))
marionette))
;; Make sure eth0 is connected to the bridge.
(test-equal "eth0 is connected to br0"
"br0"
(marionette-eval
'(begin
(use-modules (ice-9 popen) (ice-9 rdelim))
(let* ((port (open-pipe*
OPEN_READ
(string-append #$openvswitch "/bin/ovs-vsctl")
"port-to-br" "eth0"))
(output (read-line port)))
(close-pipe port)
output))
marionette))
;; Make sure the virtual interface got a static IP.
(test-assert "networking has started on ovs0"
(marionette-eval
'(begin
(use-modules (gnu services herd)
(srfi srfi-1))
(live-service-running
(find (lambda (live)
(memq 'networking-ovs0
(live-service-provision live)))
(current-services))))
marionette))
(test-end)
(exit (= (test-runner-fail-count (test-runner-current)) 0)))))
(gexp->derivation "openvswitch-test" test))
(define %test-openvswitch
(system-test
(name "openvswitch")
(description "Test a running OpenvSwitch configuration.")
(value (run-openvswitch-test))))

12
guix/build/dub-build-system.scm
View file

@ -91,11 +91,19 @@
(grep* "sourceLibrary" "dub.sdl") ; note: format is different! (grep* "sourceLibrary" "dub.sdl") ; note: format is different!
(grep* "sourceLibrary" "dub.json")) (grep* "sourceLibrary" "dub.json"))
#t #t
(zero? (apply system* `("dub" "build" ,@dub-build-flags))))) (let ((status (zero? (apply system* `("dub" "build" ,@dub-build-flags)))))
(substitute* ".dub/dub.json"
(("\"lastUpgrade\": \"[^\"]*\"")
"\"lastUpgrade\": \"1970-01-01T00:00:00.0000000\""))
status)))
(define* (check #:key tests? #:allow-other-keys) (define* (check #:key tests? #:allow-other-keys)
(if tests? (if tests?
(zero? (system* "dub" "test")) (let ((status (zero? (system* "dub" "test"))))
(substitute* ".dub/dub.json"
(("\"lastUpgrade\": \"[^\"]*\"")
"\"lastUpgrade\": \"1970-01-01T00:00:00.0000000\""))
status)
#t)) #t))
(define* (install #:key inputs outputs #:allow-other-keys) (define* (install #:key inputs outputs #:allow-other-keys)

3
guix/man-db.scm
View file

@ -187,7 +187,8 @@
(define (man-files directory) (define (man-files directory)
"Return the list of man pages found under DIRECTORY, recursively." "Return the list of man pages found under DIRECTORY, recursively."
(find-files directory "\\.[0-9][a-z]?(\\.gz)?$")) ;; Filter the list to ensure that broken symlinks are excluded.
(filter file-exists? (find-files directory "\\.[0-9][a-z]?(\\.gz)?$")))
(define (mandb-entries directory) (define (mandb-entries directory)
"Return mandb entries for the man pages found under DIRECTORY, recursively." "Return mandb entries for the man pages found under DIRECTORY, recursively."

85
guix/scripts/build.scm
View file

@ -25,9 +25,12 @@
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix grafts) #:use-module (guix grafts)
#:use-module (guix utils)
;; Use the procedure that destructures "NAME-VERSION" forms. ;; Use the procedure that destructures "NAME-VERSION" forms.
#:use-module ((guix utils) #:hide (package-name->name+version)) #:use-module ((guix build utils)
#:use-module ((guix build utils) #:select (package-name->name+version)) #:select ((package-name->name+version
. hyphen-package-name->name+version)))
#:use-module (guix monads) #:use-module (guix monads)
#:use-module (guix gexp) #:use-module (guix gexp)
@ -127,33 +130,37 @@ found. Return #f if no build log was found."
(define register-root* (define register-root*
(store-lift register-root)) (store-lift register-root))
(define (package-with-source store p uri) (define (numeric-extension? file-name)
"Return true if FILE-NAME ends with digits."
(string-every char-set:hex-digit (file-extension file-name)))
(define (tarball-base-name file-name)
"Return the \"base\" of FILE-NAME, removing '.tar.gz' or similar
extensions."
;; TODO: Factorize.
(cond ((not (file-extension file-name))
file-name)
((numeric-extension? file-name)
file-name)
((string=? (file-extension file-name) "tar")
(file-sans-extension file-name))
((file-extension file-name)
=>
(match-lambda
("scm" file-name)
(else (tarball-base-name (file-sans-extension file-name)))))
(else
file-name)))
(define* (package-with-source store p uri #:optional version)
"Return a package based on P but with its source taken from URI. Extract "Return a package based on P but with its source taken from URI. Extract
the new package's version number from URI." the new package's version number from URI."
(define (numeric-extension? file-name)
;; Return true if FILE-NAME ends with digits.
(string-every char-set:hex-digit (file-extension file-name)))
(define (tarball-base-name file-name)
;; Return the "base" of FILE-NAME, removing '.tar.gz' or similar
;; extensions.
;; TODO: Factorize.
(cond ((not (file-extension file-name))
file-name)
((numeric-extension? file-name)
file-name)
((string=? (file-extension file-name) "tar")
(file-sans-extension file-name))
((file-extension file-name)
(tarball-base-name (file-sans-extension file-name)))
(else
file-name)))
(let ((base (tarball-base-name (basename uri)))) (let ((base (tarball-base-name (basename uri))))
(let-values (((name version) (let-values (((_ version*)
(package-name->name+version base))) (hyphen-package-name->name+version base)))
(package (inherit p) (package (inherit p)
(version (or version (package-version p))) (version (or version version*
(package-version p)))
;; Use #:recursive? #t to allow for directories. ;; Use #:recursive? #t to allow for directories.
(source (download-to-store store uri (source (download-to-store store uri
@ -173,8 +180,23 @@ the new package's version number from URI."
matching URIs given in SOURCES." matching URIs given in SOURCES."
(define new-sources (define new-sources
(map (lambda (uri) (map (lambda (uri)
(cons (package-name->name+version (basename uri)) (match (string-index uri #\=)
uri)) (#f
;; Determine the package name and version from URI.
(call-with-values
(lambda ()
(hyphen-package-name->name+version
(tarball-base-name (basename uri))))
(lambda (name version)
(list name version uri))))
(index
;; What's before INDEX is a "PKG@VER" or "PKG" spec.
(call-with-values
(lambda ()
(package-name->name+version (string-take uri index)))
(lambda (name version)
(list name version
(string-drop uri (+ 1 index))))))))
sources)) sources))
(lambda (store obj) (lambda (store obj)
@ -182,10 +204,11 @@ matching URIs given in SOURCES."
(result '())) (result '()))
(match obj (match obj
((? package? p) ((? package? p)
(let ((source (assoc-ref sources (package-name p)))) (match (assoc-ref sources (package-name p))
(if source ((version source)
(package-with-source store p source) (package-with-source store p source version))
p))) (#f
p)))
(_ (_
obj))))) obj)))))

24
guix/scripts/system.scm
View file

@ -44,6 +44,7 @@
#:use-module (gnu system) #:use-module (gnu system)
#:use-module (gnu bootloader) #:use-module (gnu bootloader)
#:use-module (gnu system file-systems) #:use-module (gnu system file-systems)
#:use-module (gnu system mapped-devices)
#:use-module (gnu system linux-container) #:use-module (gnu system linux-container)
#:use-module (gnu system uuid) #:use-module (gnu system uuid)
#:use-module (gnu system vm) #:use-module (gnu system vm)
@ -621,6 +622,22 @@ any, are available. Raise an error if they're not."
;; Better be safe than sorry. ;; Better be safe than sorry.
(exit 1)))) (exit 1))))
(define (check-mapped-devices mapped-devices)
"Check that each of MAPPED-DEVICES is valid according to the 'check'
procedure of its type."
(for-each (lambda (md)
(let ((check (mapped-device-kind-check
(mapped-device-type md))))
;; We expect CHECK to raise an exception with a detailed
;; '&message' if something goes wrong, but handle the case
;; where it just returns #f.
(unless (check md)
(leave (G_ "~a: invalid '~a' mapped device~%")
(location->string
(source-properties->location
(mapped-device-location md)))))))
mapped-devices))
;;; ;;;
;;; Action. ;;; Action.
@ -710,9 +727,10 @@ output when building a system derivation, such as a disk image."
;; Check whether the declared file systems exist. This is better than ;; Check whether the declared file systems exist. This is better than
;; instantiating a broken configuration. Assume that we can only check if ;; instantiating a broken configuration. Assume that we can only check if
;; running as root. ;; running as root.
(when (and (memq action '(init reconfigure)) (when (memq action '(init reconfigure))
(zero? (getuid))) (when (zero? (getuid))
(check-file-system-availability (operating-system-file-systems os))) (check-file-system-availability (operating-system-file-systems os)))
(check-mapped-devices (operating-system-mapped-devices os)))
(mlet* %store-monad (mlet* %store-monad
((sys (system-derivation-for-action os action ((sys (system-derivation-for-action os action

29
tests/scripts-build.scm
View file

@ -96,6 +96,35 @@
(string-contains (get-output-string port) (string-contains (get-output-string port)
"had no effect")))))) "had no effect"))))))
(test-assert "options->transformation, with-source, PKG=URI"
(let* ((p (dummy-package "foo"))
(s (search-path %load-path "guix.scm"))
(f (string-append "foo=" s))
(t (options->transformation `((with-source . ,f)))))
(with-store store
(let ((new (t store p)))
(and (not (eq? new p))
(string=? (package-name new) (package-name p))
(string=? (package-version new)
(package-version p))
(string=? (package-source new)
(add-to-store store (basename s) #t
"sha256" s)))))))
(test-assert "options->transformation, with-source, PKG@VER=URI"
(let* ((p (dummy-package "foo"))
(s (search-path %load-path "guix.scm"))
(f (string-append "foo@42.0=" s))
(t (options->transformation `((with-source . ,f)))))
(with-store store
(let ((new (t store p)))
(and (not (eq? new p))
(string=? (package-name new) (package-name p))
(string=? (package-version new) "42.0")
(string=? (package-source new)
(add-to-store store (basename s) #t
"sha256" s)))))))
(test-assert "options->transformation, with-input" (test-assert "options->transformation, with-input"
(let* ((p (dummy-package "guix.scm" (let* ((p (dummy-package "guix.scm"
(inputs `(("foo" ,(specification->package "coreutils")) (inputs `(("foo" ,(specification->package "coreutils"))