me
/
guix
Archived
1
0
Fork 0
Code

Merge branch 'master' into staging

master
Marius Bakke 2020-02-24 19:37:03 +01:00
parent d85f8e46db 7daae3c9d0
commit 3941af527d
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
169 changed files with 11197 additions and 2266 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile.am
View File

@ -122,6 +122,7 @@ MODULES = \
guix/build-system/meson.scm \
guix/build-system/minify.scm \
guix/build-system/asdf.scm \
guix/build-system/copy.scm \
guix/build-system/glib-or-gtk.scm \
guix/build-system/gnu.scm \
guix/build-system/guile.scm \
@ -169,6 +170,7 @@ MODULES = \
guix/build/go-build-system.scm \
guix/build/asdf-build-system.scm \
guix/build/bzr.scm \
guix/build/copy-build-system.scm \
guix/build/git.scm \
guix/build/hg.scm \
guix/build/glib-or-gtk-build-system.scm \

2
bootstrap
View File

@ -16,7 +16,7 @@ for lang in ${langs}; do
fi
done
langs=`find po/doc -type f -name 'guix-cookbook*.po' \
| sed -e 's,guix-manual\.,,' \
| sed -e 's,guix-cookbook\.,,' \
| xargs -n 1 -I{} basename {} .po`
for lang in ${langs}; do
if [ ! -e "doc/guix-cookbook.${lang}.texi" ]; then

3
build-aux/build-self.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -420,6 +420,7 @@ files."
;; $GUILE_LOAD_PATH & co.
(with-clean-environment
(setenv "GUILE_WARN_DEPRECATED" "no") ;be quiet and drive
(setenv "COLUMNS" "120") ;show wider backtraces
(when home
;; Inherit HOME so that 'xdg-directory' works.
(setenv "HOME" home))

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

@ -134,7 +134,8 @@
("lsl88"
"2AE3 1395 932B E642 FC0E D99C 9BED 6EDA 32E5 B0BC")
("mab"
"BE62 7373 8E61 6D6D 1B3A 08E8 A21A 0202 4881 6103")
;; primary: "BE62 7373 8E61 6D6D 1B3A 08E8 A21A 0202 4881 6103"
"39B3 3C8D 9448 0D2D DCC2 A498 8B44 A0CD C7B9 56F2")
("marusich"
"CBF5 9755 CBE7 E7EF EF18 3FB1 DD40 9A15 D822 469D")
("mbakke"

62
doc/contributing.texi
View File

@ -274,6 +274,33 @@ trigger string @code{origin...}, which can be expanded further. The
@code{origin} snippet in turn may insert other trigger strings ending on
@code{...}, which also can be expanded further.
@cindex insert or update copyright
@cindex @code{M-x guix-copyright}
@cindex @code{M-x copyright-update}
Additionaly we provide insertion and automatic update of a copyright in
@file{etc/copyright.el}. You may want to set your full name, mail, and
load a file.
@lisp
(setq user-full-name "Alice Doe")
(setq user-mail-address "alice@@mail.org")
;; @r{Assuming the Guix checkout is in ~/src/guix.}
(load-file "~/src/guix/etc/copyright.el")
@end lisp
To insert a copyright at the current line invoke @code{M-x guix-copyright}.
To update a copyright you need to specify a @code{copyright-names-regexp}.
@lisp
(setq copyright-names-regexp
(format "%s <%s>" user-full-name user-mail-address))
@end lisp
You can check if your copyright is up to date by evaluating @code{M-x
copyright-update}. If you want to do it automatically after each buffer
save then add @code{(add-hook 'after-save-hook 'copyright-update)} in
Emacs.
@node Packaging Guidelines
@section Packaging Guidelines
@ -347,6 +374,7 @@ needed is to review and apply the patch.
* Python Modules:: A touch of British comedy.
* Perl Modules:: Little pearls.
* Java Packages:: Coffee break.
* Rust Crates:: Beware of oxidation.
* Fonts:: Fond of fonts.
@end menu
@ -685,6 +713,40 @@ dashes and prepend the prefix @code{java-}. So the class
@code{java-apache-commons-cli}.
@node Rust Crates
@subsection Rust Crates
@cindex rust
Rust programs standing for themselves are named as any other package, using the
lowercase upstream name.
To prevent namespace collisions we prefix all other Rust packages with the
@code{rust-} prefix. The name should be changed to lowercase as appropriate and
dashes should remain in place.
In the rust ecosystem it is common for multiple incompatible versions of a
package to be used at any given time, so all packages should have a versioned
suffix. If a package has passed version 1.0.0 then just the major version
number is sufficient (e.g.@: @code{rust-clap-2}), otherwise the version suffix
should contain both the major and minor version (e.g.@: @code{rust-rand-0.6}).
Because of the difficulty in reusing rust packages as pre-compiled inputs for
other packages the Cargo build system (@pxref{Build Systems,
@code{cargo-build-system}}) presents the @code{#:cargo-inputs} and
@code{cargo-development-inputs} keywords as build system arguments. It would be
helpful to think of these as similar to @code{propagated-inputs} and
@code{native-inputs}. Rust @code{dependencies} and @code{build-dependencies}
should go in @code{#:cargo-inputs}, and @code{dev-dependencies} should go in
@code{#:cargo-development-inputs}. If a Rust package links to other libraries
then the standard placement in @code{inputs} and the like should be used.
Care should be taken to ensure the correct version of dependencies are used; to
this end we try to refrain from skipping the tests or using @code{#:skip-build?}
when possible. Of course this is not always possible, as the package may be
developed for a different Operating System, depend on features from the Nightly
Rust compiler, or the test suite may have atrophied since it was released.
@node Fonts
@subsection Fonts

127
doc/guix.texi
View File

@ -73,6 +73,7 @@ Copyright @copyright{} 2020 Leo Prikler@*
Copyright @copyright{} 2019, 2020 Simon Tournier@*
Copyright @copyright{} 2020 Wiktor Żelazny@*
Copyright @copyright{} 2020 Damien Cassou@*
Copyright @copyright{} 2020 Jakub Kądziołka@*
Permission is granted to copy, distribute and/or modify this document
under the terms of the GNU Free Documentation License, Version 1.3 or
@ -771,11 +772,11 @@ The following dependencies are optional:
@itemize
@item
@c Note: We need at least 0.10.2 for 'channel-send-eof'.
@c Note: We need at least 0.12.0 for 'userauth-gssapi!'.
Support for build offloading (@pxref{Daemon Offload Setup}) and
@command{guix copy} (@pxref{Invoking guix copy}) depends on
@uref{https://github.com/artyom-poptsov/guile-ssh, Guile-SSH},
version 0.10.2 or later.
version 0.12.0 or later.
@item
When @url{https://www.nongnu.org/lzip/lzlib.html, lzlib} is available, lzlib
@ -2440,6 +2441,11 @@ your system includes the latest security updates (@pxref{Security Updates}).
Note that @command{sudo guix} runs your user's @command{guix} command and
@emph{not} root's, because @command{sudo} leaves @code{PATH} unchanged. To
explicitly run root's @command{guix}, type @command{sudo -i guix @dots{}}.
The difference matters here, because @command{guix pull} updates
the @command{guix} command and package definitions only for the user it is ran
as. This means that if you choose to use @command{guix system reconfigure} in
root's login shell, you'll need to @command{guix pull} separately.
@end quotation
Join us on @code{#guix} on the Freenode IRC network or on
@ -4958,8 +4964,10 @@ shared and will change to the user's home directory within the container
instead. See also @code{--user}.
@item --expose=@var{source}[=@var{target}]
For containers, expose the file system @var{source} from the host system
as the read-only file system @var{target} within the container. If
@itemx --share=@var{source}[=@var{target}]
For containers, @code{--expose} (resp. @code{--share}) exposes the file
system @var{source} from the host system as the read-only
(resp. writable) file system @var{target} within the container. If
@var{target} is not specified, @var{source} is used as the target mount
point in the container.
@ -4971,19 +4979,6 @@ directory:
guix environment --container --expose=$HOME=/exchange --ad-hoc guile -- guile
@end example
@item --share=@var{source}[=@var{target}]
For containers, share the file system @var{source} from the host system
as the writable file system @var{target} within the container. If
@var{target} is not specified, @var{source} is used as the target mount
point in the container.
The example below spawns a Guile REPL in a container in which the user's
home directory is accessible for both reading and writing via the
@file{/exchange} directory:
@example
guix environment --container --share=$HOME=/exchange --ad-hoc guile -- guile
@end example
@end table
@command{guix environment}
@ -6159,6 +6154,70 @@ parameters available to cargo. It will also remove an included
if they are defined by the crate.
@end defvr
@defvr {Scheme Variable} copy-build-system
@cindex (copy build system)
This variable is exported by @code{(guix build-system copy)}. It
supports builds of simple packages that don't require much compiling,
mostly just moving files around.
It adds much of the @code{gnu-build-system} packages to the set of
inputs. Because of this, the @code{copy-build-system} does not require
all the boilerplate code often needed for the
@code{trivial-build-system}.
To further simplify the file installation process, an
@code{#:install-plan} argument is exposed to let the packager specify
which files go where. The install plan is a list of @code{(@var{source}
@var{target} [@var{filters}])}. @var{filters} are optional.
@itemize
@item When @var{source} matches a file or directory without trailing slash, install it to @var{target}.
@itemize
@item If @var{target} has a trailing slash, install @var{source} basename beneath @var{target}.
@item Otherwise install @var{source} as @var{target}.
@end itemize
@item When @var{source} is a directory with a trailing slash, or when @var{filters} are used,
the trailing slash of @var{target} is implied with the same meaning
as above.
@itemize
@item Without @var{filters}, install the full @var{source} @emph{content} to @var{target}.
@item With @var{filters} among @code{#:include}, @code{#:include-regexp}, @code{#:exclude},
@code{#:exclude-regexp}, only select files are installed depending on
the filters. Each filters is specified by a list of strings.
@itemize
@item With @code{#:include}, install all the files which the path suffix matches
at least one of the elements in the given list.
@item With @code{#:include-regexp}, install all the files which the
subpaths match at least one of the regular expressions in the given
list.
@item The @code{#:exclude} and @code{#:exclude-regexp} filters
are the complement of their inclusion counterpart. Without @code{#:include} flags,
install all files but those matching the exclusion filters.
If both inclusions and exclusions are specified, the exclusions are done
on top of the inclusions.
@end itemize
@end itemize
In all cases, the paths relative to @var{source} are preserved within
@var{target}.
@end itemize
Examples:
@itemize
@item @code{("foo/bar" "share/my-app/")}: Install @file{bar} to @file{share/my-app/bar}.
@item @code{("foo/bar" "share/my-app/baz")}: Install @file{bar} to @file{share/my-app/baz}.
@item @code{("foo/" "share/my-app")}: Install the content of @file{foo} inside @file{share/my-app},
e.g., install @file{foo/sub/file} to @file{share/my-app/sub/file}.
@item @code{("foo/" "share/my-app" #:include ("sub/file"))}: Install only @file{foo/sub/file} to
@file{share/my-app/sub/file}.
@item @code{("foo/sub" "share/my-app" #:include ("file"))}: Install @file{foo/sub/file} to
@file{share/my-app/file}.
@end itemize
@end defvr
@cindex Clojure (programming language)
@cindex simple Clojure build system
@defvr {Scheme Variable} clojure-build-system
@ -6815,9 +6874,11 @@ instruct it to listen for TCP connections (@pxref{Invoking guix-daemon,
@item ssh
@cindex SSH access to build daemons
These URIs allow you to connect to a remote daemon over
SSH@footnote{This feature requires Guile-SSH (@pxref{Requirements}).}.
A typical URL might look like this:
These URIs allow you to connect to a remote daemon over SSH. This
feature requires Guile-SSH (@pxref{Requirements}) and a working
@code{guile} binary in @code{PATH} on the destination machine. It
supports public key and GSSAPI authentication. A typical URL might look
like this:
@example
ssh://charlie@@guix.example.org:22
@ -14463,7 +14524,7 @@ Command to run when halting.
Command to run when rebooting.
@item @code{theme} (default "maldives")
Theme to use. Default themes provided by SDDM are "elarun" or "maldives".
Theme to use. Default themes provided by SDDM are "elarun", "maldives" or "maya".
@item @code{themes-directory} (default "/run/current-system/profile/share/sddm/themes")
Directory to look for themes.
@ -14538,7 +14599,7 @@ Relogin after logout.
@cindex X11 login
@defvr {Scheme Variable} sddm-service-type
This is the type of the service to run the
@uref{https://github.com/sddm/sddm,SSDM display manager}. Its value
@uref{https://github.com/sddm/sddm,SDDM display manager}. Its value
must be a @code{sddm-configuration} record (see below).
Here's an example use:
@ -21799,6 +21860,13 @@ Defaults to @samp{#t}.
@end deftypevr
@deftypevr {@code{openvpn-client-configuration} parameter} boolean fast-io?
(Experimental) Optimize TUN/TAP/UDP I/O writes by avoiding a call to
poll/epoll/select prior to the write operation.
Defaults to @samp{#f}.
@end deftypevr
@deftypevr {@code{openvpn-client-configuration} parameter} number verbosity
Verbosity level.
@ -21814,6 +21882,14 @@ Defaults to @samp{#f}.
@end deftypevr
@deftypevr {@code{openvpn-client-configuration} parameter} maybe-string auth-user-pass
Authenticate with server using username/password. The option is a file
containing username/password on 2 lines. Do not use a file-like object as it
would be added to the store and readable by any user.
Defaults to @samp{'disabled}.
@end deftypevr
@deftypevr {@code{openvpn-client-configuration} parameter} key-usage verify-key-usage?
Whether to check the server certificate has server usage extension.
@ -21935,6 +22011,13 @@ Defaults to @samp{#t}.
@end deftypevr
@deftypevr {@code{openvpn-server-configuration} parameter} boolean fast-io?
(Experimental) Optimize TUN/TAP/UDP I/O writes by avoiding a call to
poll/epoll/select prior to the write operation.
Defaults to @samp{#f}.
@end deftypevr
@deftypevr {@code{openvpn-server-configuration} parameter} number verbosity
Verbosity level.

6
doc/local.mk
View File

@ -27,7 +27,8 @@ info_TEXINFOS = %D%/guix.texi \
%D%/guix.fr.texi \
%D%/guix.ru.texi \
%D%/guix.zh_CN.texi \
%D%/guix-cookbook.texi
%D%/guix-cookbook.texi \
%D%/guix-cookbook.de.texi
%C%_guix_TEXINFOS = \
%D%/contributing.texi \
@ -69,7 +70,8 @@ TRANSLATED_INFO = \
%D%/contributing.es.texi \
%D%/contributing.fr.texi \
%D%/contributing.ru.texi \
%D%/contributing.zh_CN.texi
%D%/contributing.zh_CN.texi \
%D%/guix-cookbook.de.texi
# Bundle this file so that makeinfo finds it in out-of-source-tree builds.
BUILT_SOURCES += $(OS_CONFIG_EXAMPLES_TEXI) $(TRANSLATED_INFO)

34
etc/copyright.el 100644
View File

@ -0,0 +1,34 @@
;;; copyright.el --- Insert a Guix copyright.
;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
;; 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 this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; This package provides skeleton to insert a copyright with `guix-copyright'.
;;; Code:
(define-skeleton guix-copyright
"Insert a copyright by $USER notice at cursor."
"FULL_NAME <MAIL_ADDRESS>: "
comment-start
";; Copyright © " `(format-time-string "%Y") " "
(or (format "%s <%s>" user-full-name user-mail-address) str)
comment-end)
;;; copyright.el ends here

8
gnu/build/marionette.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Chris Marusich <cmmarusich@gmail.com>
;;;
;;; This file is part of GNU Guix.
@ -204,6 +204,7 @@ MARIONETTE. Raise an error on failure."
(catch 'system-error
(lambda ()
(connect sock AF_INET INADDR_LOOPBACK ,port)
(close-port sock)
'success)
(lambda args
(if (< i ,timeout)
@ -227,6 +228,7 @@ accept connections in MARIONETTE. Raise an error on failure."
(catch 'system-error
(lambda ()
(connect sock AF_UNIX ,file-name)
(close-port sock)
'success)
(lambda args
(if (< i ,timeout)
@ -315,8 +317,8 @@ PREDICATE, whichever comes first. Raise an error when TIMEOUT is exceeded."
(#\( . "shift-9")
(#\) . "shift-0")
(#\/ . "slash")
(#\< . "less")
(#\> . "shift-less")
(#\< . "shift-comma")
(#\> . "shift-dot")
(#\. . "dot")
(#\, . "comma")
(#\; . "semicolon")

5
gnu/installer.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
@ -26,6 +26,7 @@
#:use-module (guix utils)
#:use-module (guix ui)
#:use-module ((guix self) #:select (make-config.scm))
#:use-module (gnu installer utils)
#:use-module (gnu packages admin)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
@ -395,6 +396,8 @@ selected keymap."
#f)))
(const #f)
(lambda (key . args)
(syslog "crashing due to uncaught exception: ~s ~s~%"
key args)
(let ((error-file "/tmp/last-installer-error"))
(call-with-output-file error-file
(lambda (port)

7
gnu/installer/parted.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018, 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
@ -1070,6 +1070,8 @@ USER-PARTITION if it is encrypted, or the plain file-name otherwise."
(call-with-luks-key-file
password
(lambda (key-file)
(syslog "formatting and opening LUKS entry ~s at ~s~%"
label file-name)
(system* "cryptsetup" "-q" "luksFormat" file-name key-file)
(system* "cryptsetup" "open" "--type" "luks"
"--key-file" key-file file-name label)))))
@ -1077,6 +1079,7 @@ USER-PARTITION if it is encrypted, or the plain file-name otherwise."
(define (luks-close user-partition)
"Close the encrypted partition pointed by USER-PARTITION."
(let ((label (user-partition-crypt-label user-partition)))
(syslog "closing LUKS entry ~s~%" label)
(system* "cryptsetup" "close" label)))
(define (format-user-partitions user-partitions)
@ -1150,6 +1153,7 @@ respective mount-points."
(file-name
(user-partition-upper-file-name user-partition)))
(mkdir-p target)
(syslog "mounting ~s on ~s~%" file-name target)
(mount file-name target mount-type)))
sorted-partitions)))
@ -1165,6 +1169,7 @@ respective mount-points."
(target
(string-append (%installer-target-dir)
mount-point)))
(syslog "unmounting ~s~%" target)
(umount target)
(when crypt-label
(luks-close user-partition))))

1
gnu/installer/steps.scm
View File

@ -177,6 +177,7 @@ return the accumalated result so far."
#:done-steps '())))))
((installer-step-break? c)
(reverse result)))
(syslog "running step '~a'~%" (installer-step-id step))
(let* ((id (installer-step-id step))
(compute (installer-step-compute step))
(res (compute result done-steps)))

47
gnu/installer/utils.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -24,12 +24,16 @@
#:use-module (srfi srfi-34)
#:use-module (ice-9 rdelim)
#:use-module (ice-9 regex)
#:use-module (ice-9 format)
#:use-module (ice-9 textual-ports)
#:export (read-lines
read-all
nearest-exact-integer
read-percentage
run-shell-command))
run-shell-command
syslog-port
syslog))
(define* (read-lines #:optional (port (current-input-port)))
"Read lines from PORT and return them as a list."
@ -85,9 +89,48 @@ COMMAND exited successfully, #f otherwise."
(format (current-error-port)
(G_ "Command failed with exit code ~a.~%")
(invoke-error-exit-status c))
(syslog "command ~s failed with exit code ~a"
command (invoke-error-exit-status c))
(pause)
#f))
(syslog "running command ~s~%" command)
(invoke "bash" "--init-file" file)
(syslog "command ~s succeeded~%" command)
(newline)
(pause)
#t))))
;;;
;;; Logging.
;;;
(define (open-syslog-port)
"Return an open port (a socket) to /dev/log or #f if that wasn't possible."
(let ((sock (socket AF_UNIX SOCK_DGRAM 0)))
(catch 'system-error
(lambda ()
(connect sock AF_UNIX "/dev/log")
(setvbuf sock 'line)
sock)
(lambda args
(close-port sock)
#f))))
(define syslog-port
(let ((port #f))
(lambda ()
"Return an output port to syslog."
(unless port
(set! port (open-syslog-port)))
(or port (%make-void-port "w")))))
(define-syntax syslog
(lambda (s)
"Like 'format', but write to syslog."
(syntax-case s ()
((_ fmt args ...)
(string? (syntax->datum #'fmt))
(with-syntax ((fmt (string-append "installer[~d]: "
(syntax->datum #'fmt))))
#'(format (syslog-port) fmt (getpid) args ...))))))

7
gnu/local.mk
View File

@ -774,7 +774,6 @@ dist_patch_DATA = \
%D%/packages/patches/ceph-disable-cpu-optimizations.patch \
%D%/packages/patches/ceph-volume-respect-PATH.patch \
%D%/packages/patches/chmlib-inttypes.patch \
%D%/packages/patches/choqok-Fix-building-under-Qt-5.13.patch \
%D%/packages/patches/clamav-config-llvm-libs.patch \
%D%/packages/patches/clamav-system-tomsfastmath.patch \
%D%/packages/patches/clang-3.5-libc-search-path.patch \
@ -782,6 +781,7 @@ dist_patch_DATA = \
%D%/packages/patches/clang-3.8-libc-search-path.patch \
%D%/packages/patches/clang-6.0-libc-search-path.patch \
%D%/packages/patches/clang-7.0-libc-search-path.patch \
%D%/packages/patches/clang-9.0-libc-search-path.patch \
%D%/packages/patches/clang-runtime-asan-build-fixes.patch \
%D%/packages/patches/clang-runtime-esan-build-fixes.patch \
%D%/packages/patches/classpath-aarch64-support.patch \
@ -794,6 +794,7 @@ dist_patch_DATA = \
%D%/packages/patches/coda-use-system-libs.patch \
%D%/packages/patches/combinatorial-blas-awpm.patch \
%D%/packages/patches/combinatorial-blas-io-fix.patch \
%D%/packages/patches/containerd-test-with-go1.13.patch \
%D%/packages/patches/cpufrequtils-fix-aclocal.patch \
%D%/packages/patches/crawl-upgrade-saves.patch \
%D%/packages/patches/crda-optional-gcrypt.patch \
@ -809,6 +810,8 @@ dist_patch_DATA = \
%D%/packages/patches/debops-constants-for-external-program-names.patch \
%D%/packages/patches/debops-debops-defaults-fall-back-to-less.patch \
%D%/packages/patches/deja-dup-use-ref-keyword-for-iter.patch \
%D%/packages/patches/desmume-gcc6-fixes.patch \
%D%/packages/patches/desmume-gcc7-fixes.patch \
%D%/packages/patches/dfu-programmer-fix-libusb.patch \
%D%/packages/patches/diffutils-gets-undeclared.patch \
%D%/packages/patches/dkimproxy-add-ipv6-support.patch \
@ -1351,6 +1354,7 @@ dist_patch_DATA = \
%D%/packages/patches/qrcodegen-cpp-make-install.patch \
%D%/packages/patches/qt4-ldflags.patch \
%D%/packages/patches/qtbase-use-TZDIR.patch \
%D%/packages/patches/qtbase-QTBUG-81715.patch \
%D%/packages/patches/qtscript-disable-tests.patch \
%D%/packages/patches/quagga-reproducible-build.patch \
%D%/packages/patches/quickswitch-fix-dmenu-check.patch \
@ -1463,7 +1467,6 @@ dist_patch_DATA = \
%D%/packages/patches/ustr-fix-build-with-gcc-5.patch \
%D%/packages/patches/util-linux-tests.patch \
%D%/packages/patches/upower-builddir.patch \
%D%/packages/patches/upx-fix-CVE-2017-15056.patch \
%D%/packages/patches/valgrind-enable-arm.patch \
%D%/packages/patches/vboot-utils-fix-format-load-address.patch \
%D%/packages/patches/vboot-utils-fix-tests-show-contents.patch \

49
gnu/packages/admin.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2014, 2015, 2016, 2018, 2019 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018 Eric Bavier <bavier@member.fsf.org>
@ -196,14 +196,14 @@ and provides a \"top-like\" mode (monitoring).")
(define-public shepherd
(package
(name "shepherd")
(version "0.6.1")
(version "0.7.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/shepherd/shepherd-"
version ".tar.gz"))
(sha256
(base32
"1xn6mb5bh8bpfgdrh09ja31jk0ln7bmxbbf0vjcqxkkixs2wl6sk"))))
"07j3vd0y8zab2nwbrwj0ahrfif1ldm5sjssn7m3dw4s307fsrfzx"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags '("--localstatedir=/var")))
@ -228,6 +228,16 @@ interface and is based on GNU Guile.")
(license license:gpl3+)
(home-page "https://www.gnu.org/software/shepherd/")))
(define-public guile3.0-shepherd
(package
(inherit shepherd)
(name "guile3.0-shepherd")
(native-inputs
`(("pkg-config" ,pkg-config)
("guile" ,guile-next)))
(inputs
`(("guile" ,guile-next)))))
(define-public cloud-utils
(package
(name "cloud-utils")
@ -2226,7 +2236,7 @@ displays a table of current bandwidth usage by pairs of hosts.")
(define-public munge
(package
(name "munge")
(version "0.5.13")
(version "0.5.14")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/dun/munge/releases/"
@ -2234,20 +2244,45 @@ displays a table of current bandwidth usage by pairs of hosts.")
version ".tar.xz"))
(sha256
(base32
"1nj486bbg1adfg298zck96vgx57kchcypc1zdz1n7w540vyksxcr"))
"0h06sghb4rqvv1ywyd6mzsmbcgh712v6ygrff0gzm440y4ca41k6"))
(modules '((guix build utils)))
(snippet
'(begin
;; Don't insist on write access to /var.
(substitute* "src/etc/Makefile.in"
(("\\$\\(INSTALL\\)(.*)localstatedir" _ middle)
(string-append "-$(INSTALL)" middle "localstatedir")))
(string-append "-$(INSTALL)" middle "localstatedir"))
(("\\$\\(MKDIR_P\\) .*(local|run)statedir.*")
""))
#t))))
(inputs
`(("openssl" ,openssl)
("libgcrypt" ,libgcrypt)))
(build-system gnu-build-system)
(arguments '(#:configure-flags '("--localstatedir=/var")))
(arguments
'(#:configure-flags
(list "--localstatedir=/var"
(string-append "--with-pkgconfigdir="
(assoc-ref %outputs "out") "/lib/pkgconfig"))
#:phases
(modify-phases %standard-phases
;; XXX Many test series fail. Some might be fixable, others do no-no
;; things like invoking ‘sudo’.
(add-after 'unpack 'skip-failing-tests
(lambda _
(for-each (lambda (test)
(substitute* "t/Makefile.in"
(((string-append test "\\.t ")) "")))
(list "0100-munged-lock"
"0010-basic"
"0011-munged-cmdline"
"0012-munge-cmdline"
"0013-unmunge-cmdline"
"0101-munged-security-socket"
"0102-munged-security-keyfile"
"0103-munged-security-logfile"
"0110-munged-origin-addr"))
#t)))))
(home-page "https://dun.github.io/munge/")
(synopsis "Cluster computing authentication service")
(description

4
gnu/packages/algebra.scm
View File

@ -91,7 +91,7 @@ implement the floating point approach to complex multiplication are
implemented. On the other hand, these comprise asymptotically fast
multiplication routines such as Toom–Cook and the FFT.")
(license license:lgpl3+)
(home-page "http://mpfrcx.multiprecision.org/")))
(home-page "http://www.multiprecision.org/mpfrcx/")))
(define-public gf2x
(package
@ -140,7 +140,7 @@ multiplication via floating point approximations. It consists of libraries
that can be called from within a C program and of executable command
line applications.")
(license license:gpl3+)
(home-page "http://cm.multiprecision.org/")))
(home-page "http://www.multiprecision.org/cm/")))
(define-public fplll
(package

21
gnu/packages/android.scm
View File

@ -9,6 +9,7 @@
;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -716,7 +717,7 @@ to be passed to the @code{udev} service.")
(define-public git-repo
(package
(name "git-repo")
(version "1.12.37")
(version "2.3")
(source
(origin
(method git-fetch)
@ -725,11 +726,10 @@ to be passed to the @code{udev} service.")
(commit (string-append "v" version))))
(file-name (string-append "git-repo-" version "-checkout"))
(sha256
(base32 "0qp7jqhblv7xblfgpcq4n18dyjdv8shz7r60c3vnjxx2fngkj2jd"))))
(base32 "0jrll0mjfwakyjvlhbxwsdi32jhgss9mwz8c8h24n1qbqqxysrk4"))))
(build-system python-build-system)
(arguments
`(#:python ,python-2 ; code says: "Python 3 support is … experimental."
#:phases
`(#:phases
(modify-phases %standard-phases
(add-before 'build 'set-executable-paths
(lambda* (#:key inputs outputs #:allow-other-keys)
@ -738,8 +738,8 @@ to be passed to the @code{udev} service.")
(gpg (assoc-ref inputs "gnupg"))
(ssh (assoc-ref inputs "ssh")))
(substitute* '("repo" "git_command.py")
(("^GIT = 'git' ")
(string-append "GIT = '" git "/bin/git' ")))
(("^GIT = 'git'")
(string-append "GIT = '" git "/bin/git'")))
(substitute* "repo"
((" cmd = \\['gpg',")
(string-append " cmd = ['" gpg "/bin/gpg',")))
@ -777,9 +777,14 @@ def _FindRepo():
((" rev = _Verify\\(.*\\)") " rev = None"))
#t)))
(delete 'build) ; nothing to build
(add-before 'check 'configure-git
(lambda _
(setenv "HOME" (getcwd))
(invoke "git" "config" "--global" "user.email" "you@example.com")
(invoke "git" "config" "--global" "user.name" "Your Name")))
(replace 'check
(lambda _
(invoke "python" "-m" "nose")))
(invoke "./run_tests")))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
@ -798,7 +803,7 @@ def _FindRepo():
("gnupg" ,gnupg)
("ssh" ,openssh)))
(native-inputs
`(("nose" ,python2-nose)))
`(("pytest" ,python-pytest)))
(home-page "https://code.google.com/p/git-repo/")
(synopsis "Helps to manage many Git repositories.")
(description "Repo is a tool built on top of Git. Repo helps manage many

5
gnu/packages/aspell.scm
View File

@ -183,11 +183,10 @@ dictionaries, including personal ones.")
(define-public aspell-dict-da
(aspell-dictionary "da" "Danish"
#:version "1.4.42-1"
#:prefix "aspell5-"
#:version "1.6.36-11-0"
#:sha256
(base32
"1hfkmiyhgrx5lgrb2mffjbdn1hivrm73wcg7x0iid74p2yb0fjpp")))
"1xz2haayvwlxgss9jf1x2311a1ixbk75q2vgfprjhibsmb7cpinv")))
(define-public aspell-dict-el
(aspell-dictionary "el" "Greek"

6
gnu/packages/assembly.scm
View File

@ -148,14 +148,14 @@ to the clients.")
(define-public fasm
(package
(name "fasm")
(version "1.73.21")
(version "1.73.22")
(source
(origin
(method url-fetch)
(uri (string-append "https://flatassembler.net/fasm-"
version ".tgz"))
(sha256
(base32 "143zh7x3q0r2kclshh8n5w4i5pw4lh60si7rspvc725xxjpjkvcv"))))
(base32 "1pb0rcfdsb0h89khjjrbikz5wjdllavj3ajim0rcyh7x12xr1hw5"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no tests exist
@ -232,7 +232,7 @@ assembler, a C compiler and a linker. The assembler uses Intel syntax
(uri (git-reference
(url "https://git.savannah.gnu.org/r/libjit.git")
(commit commit)))
(file-name (string-append name "-" version "-checkout"))
(file-name (git-file-name name version))
(sha256
(base32
"0p6wklslkkp3s4aisj3w5a53bagqn5fy4m6088ppd4fcfxgqkrcd"))))

20
gnu/packages/audio.scm
View File

@ -1988,7 +1988,7 @@ software.")
(list (search-path-specification
(variable "LV2_PATH")
(files '("lib/lv2")))))
(home-page "http://elephly.net/lv2/mdapiano.html")
(home-page "https://elephly.net/lv2/mdapiano.html")
(synopsis "LV2 port of the mda Piano plugin")
(description "An LV2 port of the mda Piano VSTi.")
(license license:gpl3+)))
@ -2002,7 +2002,7 @@ software.")
(string-append "PREFIX=" (assoc-ref %outputs "out")))
#:tests? #f ; no check target
#:phases (modify-phases %standard-phases (delete 'configure))))
(home-page "http://elephly.net/lv2/mdaepiano.html")
(home-page "https://elephly.net/lv2/mdaepiano.html")
(synopsis "LV2 port of the mda EPiano plugin")
(description "An LV2 port of the mda EPiano VSTi.")))
@ -3523,7 +3523,7 @@ the Snd sources), Ruby, or Forth.")
(define-public noise-repellent
(package
(name "noise-repellent")
(version "0.1.4")
(version "0.1.5")
(source (origin
(method git-fetch)
(uri (git-reference
@ -3532,16 +3532,12 @@ the Snd sources), Ruby, or Forth.")
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
"0rd3dlmk3vivjmcr6x2x860y0j1d49c2j95j6ny50v184mwvn11j"))))
(build-system gnu-build-system)
"0hb89x9i2knzan46q4nwscf5zmnb2nwf4w13xl2c0y1mx1ls1mwl"))))
(build-system meson-build-system)
(arguments
`(#:make-flags
(list "CC=gcc"
(string-append "PREFIX=" (assoc-ref %outputs "out")))
#:tests? #f ; there are none
#:phases
(modify-phases %standard-phases
(delete 'configure))))
`(#:configure-flags
(list (string-append "--prefix=" (assoc-ref %outputs "out")
"/lib/lv2"))))
(inputs
`(("lv2" ,lv2)
("fftwf" ,fftwf)))

3
gnu/packages/autotools.scm
View File

@ -60,8 +60,7 @@
;; XXX: testsuite: 209 and 279 failed. The latter is an impurity. It
;; should use our own "cpp" instead of "/lib/cpp".
(arguments `(#:tests? #f))
(home-page
"http://www.gnu.org/software/autoconf/")
(home-page "https://www.gnu.org/software/autoconf/")
(synopsis "Create source code configuration scripts")
(description
"Autoconf offers the developer a robust set of M4 macros which expand

2
gnu/packages/backup.scm
View File

@ -451,7 +451,7 @@ rdiff-backup is easy to use and settings have sensible defaults.")
(inputs
`(("perl" ,perl)
("rsync" ,rsync)))
(home-page "http://rsnapshot.org")
(home-page "https://rsnapshot.org")
(synopsis "Deduplicating snapshot backup utility based on rsync")
(description "rsnapshot is a file system snapshot utility based on rsync.
rsnapshot makes it easy to make periodic snapshots of local machines, and

4
gnu/packages/benchmark.scm
View File

@ -44,14 +44,14 @@
(define-public fio
(package
(name "fio")
(version "3.17")
(version "3.18")
(source (origin
(method url-fetch)
(uri (string-append "https://brick.kernel.dk/snaps/"
"fio-" version ".tar.bz2"))
(sha256
(base32
"1hvh8syjz6l0q9bm5p7rf0yrmpkfcx5zj5d47mf6335w1i0h5gqf"))))
"12wzi40hn0ylkdiqwjjljdjmiq78nhwsv3qqa0fad7h3x08w6w6b"))))
(build-system gnu-build-system)
(arguments
'(#:test-target "test"

104
gnu/packages/bioconductor.scm
View File

@ -722,6 +722,49 @@ the weighted combination of published signatures that, when summed, most
closely reconstructs the mutational profile.")
(license license:gpl2+)))
;; This is a CRAN package, but it depends on Bioconductor packages.
(define-public r-nmf
(package
(name "r-nmf")
(version "0.22.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "NMF" version))
(sha256
(base32
"0b2ls3x1nkrnam45hagpys624nzxj3v7kxnp0q216yakvx5h57cq"))))
(properties `((upstream-name . "NMF")))
(build-system r-build-system)
(propagated-inputs
`(("r-cluster" ,r-cluster)
("r-biobase" ,r-biobase)
("r-biocmanager" ,r-biocmanager)
("r-bigmemory" ,r-bigmemory) ; suggested
("r-synchronicity" ,r-synchronicity) ; suggested
("r-colorspace" ,r-colorspace)
("r-digest" ,r-digest)
("r-doparallel" ,r-doparallel)
("r-foreach" ,r-foreach)
("r-ggplot2" ,r-ggplot2)
("r-gridbase" ,r-gridbase)
("r-pkgmaker" ,r-pkgmaker)
("r-rcolorbrewer" ,r-rcolorbrewer)
("r-registry" ,r-registry)
("r-reshape2" ,r-reshape2)
("r-rngtools" ,r-rngtools)
("r-stringr" ,r-stringr)))
(home-page "http://renozao.github.io/NMF")
(synopsis "Algorithms and framework for nonnegative matrix factorization")
(description
"This package provides a framework to perform Non-negative Matrix
Factorization (NMF). The package implements a set of already published
algorithms and seeding methods, and provides a framework to test, develop and
plug new or custom algorithms. Most of the built-in algorithms have been
optimized in C++, and the main interface function provides an easy way of
performing parallel computations on multicore machines.")
(license license:gpl2+)))
(define-public r-do-db
(package
(name "r-do-db")
@ -1526,6 +1569,30 @@ expressed genes in DNA microarray experiments.")
"This package implements some simple graph handling capabilities for R.")
(license license:artistic2.0)))
;; This is a CRAN package, but it depends on a Bioconductor package.
(define-public r-ggm
(package
(name "r-ggm")
(version "2.5")
(source
(origin
(method url-fetch)
(uri (cran-uri "ggm" version))
(sha256
(base32
"11wc6k2kj2ydy0dyks5mbvbhxm1r43id87anl1jg6dn0yv4m78di"))))
(properties `((upstream-name . "ggm")))
(build-system r-build-system)
(propagated-inputs
`(("r-graph" ,r-graph)
("r-igraph" ,r-igraph)))
(home-page "https://cran.r-project.org/package=ggm")
(synopsis "Functions for graphical Markov models")
(description
"This package provides functions and datasets for maximum likelihood
fitting of some classes of graphical Markov models.")
(license license:gpl2+)))
(define-public r-codedepends
(package
(name "r-codedepends")
@ -1867,14 +1934,14 @@ experiments.")
(define-public r-genomicinteractions
(package
(name "r-genomicinteractions")
(version "1.20.0")
(version "1.20.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "GenomicInteractions" version))
(sha256
(base32
"10kwb70c9aq0bfqpq48h186lsbwgrg18m14r9z8x6n8l7cds5azc"))))
"140bp7c8p079xh5wwxmrq3a73pm6mdc9czq5w2gzjml7dgrca38a"))))
(properties
`((upstream-name . "GenomicInteractions")))
(build-system r-build-system)
@ -2028,14 +2095,14 @@ genes or proteins in these datasets.")
(define-public r-inspect
(package
(name "r-inspect")
(version "1.16.2")
(version "1.16.3")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "INSPEcT" version))
(sha256
(base32
"1g8la7k4pnyr2hvk4yjd1bwvjy6nqbbb0fwxrrh2ifgqf4h21x2p"))))
"0y4gpvrbmcipdnyz9lz9ywn0317xnpcriiisqvxygin05vgcpilp"))))
(properties `((upstream-name . "INSPEcT")))
(build-system r-build-system)
(propagated-inputs
@ -2156,14 +2223,14 @@ achieved for all methods using the BiocParallel framework.")
(define-public r-biocsingular
(package
(name "r-biocsingular")
(version "1.2.1")
(version "1.2.2")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "BiocSingular" version))
(sha256
(base32
"0fjfmmpda7pszsck2hm7bp4509pl3xaz02q2q03d5vla62h1h81k"))))
"1282fdwxrpga87y8xflr0sl8ajwawgn2i9i65my8mbg5vrixs407"))))
(properties `((upstream-name . "BiocSingular")))
(build-system r-build-system)
(propagated-inputs
@ -3284,14 +3351,14 @@ gmapR.")
(define-public r-heatplus
(package
(name "r-heatplus")
(version "2.32.0")
(version "2.32.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "Heatplus" version))
(sha256
(base32
"0hx5gqgh4xrkx37ccprq7azj9jziff137bdk0gvrixcx52ws6h89"))))
"1ldxj2hasg6ysh70sc73mz2v4h3n8gf3lii09c3sqc4wmz5h7rp1"))))
(properties `((upstream-name . "Heatplus")))
(build-system r-build-system)
(propagated-inputs
@ -3942,14 +4009,14 @@ position-specific scores within R and Bioconductor.")
(define-public r-atacseqqc
(package
(name "r-atacseqqc")
(version "1.10.1")
(version "1.10.2")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "ATACseqQC" version))
(sha256
(base32
"12ix0bvwk50d48z85f3453k7szm1j27gk4qgw56az4fxra472rlh"))))
"0dzrizacy3br8fiy1vnsl5zf242lg1hqv9dyv5ayqh2n480is57f"))))
(properties `((upstream-name . "ATACseqQC")))
(build-system r-build-system)
(propagated-inputs
@ -5305,14 +5372,14 @@ annotations.")
(define-public r-rsubread
(package
(name "r-rsubread")
(version "2.0.0")
(version "2.0.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "Rsubread" version))
(sha256
(base32
"0l8q9y2a4m1di0w5nlxhq9jgliinhgr2fwjpm5ixnqx5j3iprlwd"))))
"0pdkx9mhvzw3a4ff725qvda9bxvs9vh2ppb29cc5jrivgjndv5cy"))))
(properties `((upstream-name . "Rsubread")))
(build-system r-build-system)
(inputs `(("zlib" ,zlib)))
@ -5817,14 +5884,14 @@ self-organizing map clustering and minimal spanning trees.")
(define-public r-mixomics
(package
(name "r-mixomics")
(version "6.10.6")
(version "6.10.8")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "mixOmics" version))
(sha256
(base32
"18jwrdyc4pnx917y1kskxz3fqvlrkyy4ny0xqrfcidz0j7p0b7wr"))))
"0307vhx9ck24rxqbvq15815ssxcc226sl2la060n204b51wi9jaa"))))
(properties `((upstream-name . "mixOmics")))
(build-system r-build-system)
(propagated-inputs
@ -5859,14 +5926,14 @@ delete entire rows with missing data.")
(define-public r-depecher
(package
(name "r-depecher")
(version "1.2.0")
(version "1.2.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "DepecheR" version))
(sha256
(base32
"1f6zbc0fq7xjflh3mkjx1n83mpppw663dj22rlpxzwp1kpmf6wm5"))))
"08ja6ayvbax9m3x9w3xzi72z97miiha2nbsild1gp77n6sgn5i35"))))
(properties `((upstream-name . "DepecheR")))
(build-system r-build-system)
(propagated-inputs
@ -5937,14 +6004,14 @@ genes in the gene-set that are ranked above the leading edge).")
(define-public r-cicero
(package
(name "r-cicero")
(version "1.4.0")
(version "1.4.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "cicero" version))
(sha256
(base32
"0mmm7vvzq50b5fayid0bw82b5lar3xm9fwl2ya30q0p4db2y6wnz"))))
"07g6r335zqqy3r5v4x4glxdrcsq9bjhs9jmgvppiggv1h630a22w"))))
(build-system r-build-system)
(propagated-inputs
`(("r-assertthat" ,r-assertthat)
@ -5966,6 +6033,7 @@ genes in the gene-set that are ranked above the leading edge).")
("r-s4vectors" ,r-s4vectors)
("r-stringr" ,r-stringr)
("r-tibble" ,r-tibble)
("r-tidyr" ,r-tidyr)
("r-vgam" ,r-vgam)))
(home-page "https://bioconductor.org/packages/cicero/")
(synopsis "Predict cis-co-accessibility from single-cell data")

45
gnu/packages/bioinformatics.scm
View File

@ -2744,7 +2744,7 @@ quantitative phenotypes.")
(define-public edirect
(package
(name "edirect")
(version "12.1.20190819")
(version "12.1.20190829")
(source (origin
(method url-fetch)
(uri (string-append "ftp://ftp.ncbi.nlm.nih.gov/entrez/entrezdirect"
@ -2752,7 +2752,7 @@ quantitative phenotypes.")
"/edirect-" version ".tar.gz"))
(sha256
(base32
"1i9s9mppcfqd60pfywpm8vdyz5vpnyslw22nd7dv0bhykrdnkz9g"))))
"1xb330z28dgp7slrvp8r7rgncsasv9lpcpqim571yg728dq7xdik"))))
(build-system perl-build-system)
(arguments
`(#:phases
@ -6935,14 +6935,14 @@ testing and other simple calculations.")
(define-public r-shortread
(package
(name "r-shortread")
(version "1.44.1")
(version "1.44.3")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "ShortRead" version))
(sha256
(base32
"1dh3q83hmi4l72vpif6dn51dzbi9ljrjgkq2zxg4sqy2jxv4vwza"))))
"0ykyrj4g6vc67d5s46sp4659qvar2iavflzhggm79w4p50hxia4s"))))
(properties `((upstream-name . "ShortRead")))
(build-system r-build-system)
(inputs
@ -7532,13 +7532,13 @@ coding changes and predict coding outcomes.")
(define-public r-limma
(package
(name "r-limma")
(version "3.42.0")
(version "3.42.2")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "limma" version))
(sha256
(base32
"0cfynv6qbnar5rl7vjh5lvddd381g9wqx1zd6a7l130hf59mwswn"))))
"1nd01r7rd7jb5qz84vbgfnyrmgm9wiq7fsdji68537kjgvrzmm9z"))))
(build-system r-build-system)
(home-page "http://bioinf.wehi.edu.au/limma")
(synopsis "Package for linear models for microarray and RNA-seq data")
@ -7751,13 +7751,13 @@ biological sequences or sets of sequences.")
(define-public r-rsamtools
(package
(name "r-rsamtools")
(version "2.2.1")
(version "2.2.2")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "Rsamtools" version))
(sha256
(base32
"0hpdc88prpq1gcja89n5s1ndcg81523qrkbkm9gbhm7rm8wmi8cl"))))
"1larx1a9cngmcsm2n7yyxrlnk69zi8m9dp3b90jva0ynspyi76v7"))))
(properties
`((upstream-name . "Rsamtools")))
(build-system r-build-system)
@ -7939,13 +7939,13 @@ as well as query and modify the browser state, such as the current viewport.")
(define-public r-genomicfeatures
(package
(name "r-genomicfeatures")
(version "1.38.1")
(version "1.38.2")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "GenomicFeatures" version))
(sha256
(base32
"1c1x29f447dv0i1wi88paji645lfsgmg4ckn19hyhlra72smhzqc"))))
"0dd226kgks50jdx5w35f3wmg95hy8aibi4kcn8p5kmqp5i8j580b"))))
(properties
`((upstream-name . "GenomicFeatures")))
(build-system r-build-system)
@ -8236,7 +8236,7 @@ throughput genetic sequencing data sets using regression methods.")
(define-public r-qtl
(package
(name "r-qtl")
(version "1.44-9")
(version "1.45-11")
(source
(origin
(method url-fetch)
@ -8244,7 +8244,7 @@ throughput genetic sequencing data sets using regression methods.")
version ".tar.gz"))
(sha256
(base32
"03lmvydln8b7666b6w46qbryhf83vsd11d4y2v95rfgvqgq66l1i"))))
"1d6qgj602fm6zia3djl4hmca0ri4v57ffp3g93p2yc3cabx2hq90"))))
(build-system r-build-system)
(home-page "https://rqtl.org/")
(synopsis "R package for analyzing QTL experiments in genetics")
@ -8332,14 +8332,14 @@ secondary structure and comparative analysis in R.")
(define-public r-rhtslib
(package
(name "r-rhtslib")
(version "1.18.0")
(version "1.18.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "Rhtslib" version))
(sha256
(base32
"04inkq44lxwymqv51mxgaphasqjcdc9rl5p58imnrdm0kszs8prm"))))
"0gkbrmrcg55c9s5166ifljlx0v25rv4ijdyp4wf4c292xd6chy2l"))))
(properties `((upstream-name . "Rhtslib")))
(build-system r-build-system)
;; Without this a temporary directory ends up in the Rhtslib.so binary,
@ -9504,13 +9504,13 @@ and irregular enzymatic cleavages, mass measurement accuracy, etc.")
(define-public r-seurat
(package
(name "r-seurat")
(version "3.1.2")
(version "3.1.3")
(source (origin
(method url-fetch)
(uri (cran-uri "Seurat" version))
(sha256
(base32
"0m1qi39snbmkkv1p07bzg1r7snc9x6a1y0dghvpk1nzgcfpmnsj4"))))
"0962mfgqk1di3wy1j0xdkvnw0q5m3q4xzd67d1l6dijlqiz8nfal"))))
(properties `((upstream-name . "Seurat")))
(build-system r-build-system)
(propagated-inputs
@ -9549,7 +9549,6 @@ and irregular enzymatic cleavages, mass measurement accuracy, etc.")
("r-rtsne" ,r-rtsne)
("r-scales" ,r-scales)
("r-sctransform" ,r-sctransform)
("r-sdmtools" ,r-sdmtools)
("r-tsne" ,r-tsne)
("r-uwot" ,r-uwot)))
(home-page "http://www.satijalab.org/seurat")
@ -10326,14 +10325,14 @@ family of feature/genome hypotheses.")
(define-public r-gviz
(package
(name "r-gviz")
(version "1.30.1")
(version "1.30.3")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "Gviz" version))
(sha256
(base32
"03jj193fzmhvkjw8f5zk6wgflkvm3phny0q38scawcplfsyb8z64"))))
"0c9i26h5czm60n1bxzmdxxpywcj0sig6wcj913pb41mr83bbgra3"))))
(properties `((upstream-name . "Gviz")))
(build-system r-build-system)
(propagated-inputs
@ -10478,14 +10477,14 @@ provided.")
(define-public r-hdf5array
(package
(name "r-hdf5array")
(version "1.14.1")
(version "1.14.2")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "HDF5Array" version))
(sha256
(base32
"04hd02zd5jix5p2zg10asmwjg1fynqgmclbhbmk7fb6arx5hm11f"))))
"0mbx9rsr2571k4k4hmx3dr49rhqb31dhwy2r2bkrd4dbhvriqgld"))))
(properties `((upstream-name . "HDF5Array")))
(build-system r-build-system)
(inputs
@ -10675,14 +10674,14 @@ quality control.")
(define-public r-scran
(package
(name "r-scran")
(version "1.14.5")
(version "1.14.6")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "scran" version))
(sha256
(base32
"0ydy6gvpgpvrs4ryk1qvmmxp6cpaizs294jwg42jawxndkds1l3y"))))
"1y8wlgk5zbv7c7gcp0ahfpbh9lifab7y3zwf0093fzaw7vr1y6cr"))))
(build-system r-build-system)
(propagated-inputs
`(("r-beachmat" ,r-beachmat)

4
gnu/packages/bittorrent.scm
View File

@ -380,7 +380,7 @@ and will take advantage of multiple processor cores where possible.")
(define-public libtorrent-rasterbar
(package
(name "libtorrent-rasterbar")
(version "1.1.13")
(version "1.1.14")
(source (origin
(method url-fetch)
(uri
@ -390,7 +390,7 @@ and will take advantage of multiple processor cores where possible.")
"/libtorrent-rasterbar-" version ".tar.gz"))
(sha256
(base32
"1mza92ljjqvlz9582pmls3n45srqhxvw3q348xihcg4fhlchf11h"))))
"0sn3ingmk1lk9p56f9ifgdwhjg0qizcfgv15wyc9s71nm5fya7sc"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags

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

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Corentin Bocquillon <corentin@nybble.fr>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com>
;;; Copyright © 2018 Tomáš Čech <sleep_walker@gnu.org>
;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com>
@ -80,7 +80,7 @@ makes a few sacrifices to acquire fast full and incremental build times.")
(define-public bear
(package
(name "bear")
(version "2.4.2")
(version "2.4.3")
(source (origin
(method git-fetch)
(uri (git-reference
@ -89,7 +89,7 @@ makes a few sacrifices to acquire fast full and incremental build times.")
(file-name (git-file-name name version))
(sha256
(base32
"1w1kyjzvvy5lj16kn3yyf7iil2cqlfkszi8kvagql7f5h5l6w9b1"))))
"19fk4flfykbzhb89ppmzqf0zlrkbjm6ajl9fsayndj9km5ys0041"))))
(build-system cmake-build-system)
(inputs
`(("python" ,python-wrapper)))

6
gnu/packages/c.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
@ -132,7 +132,7 @@ compiler while still keeping it small, simple, fast and understandable.")
(define-public libbytesize
(package
(name "libbytesize")
(version "2.1")
(version "2.2")
(source (origin
(method url-fetch)
(uri (string-append
@ -140,7 +140,7 @@ compiler while still keeping it small, simple, fast and understandable.")
"download/" version "/libbytesize-" version ".tar.gz"))
(sha256
(base32
"1bpz9cpb8s47kqplkkiz6ryfahas2ma95g9rh2axnfjp6w1d9ixc"))))
"1aivwypmnqcaj2230pifvf3jcgl5chja8rspkxf0j3480asm8g5r"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f))

4
gnu/packages/cedille.scm
View File

@ -30,7 +30,7 @@
(define-public cedille
(package
(name "cedille")
(version "1.1.1")
(version "1.1.2")
(source
(origin
(method git-fetch)
@ -40,7 +40,7 @@
(file-name (git-file-name name version))
(sha256
(base32
"07kv9wncyipfjf5w4ax8h2p35g70zb1qw6zc4afd7c225xia55wp"))))
"1h5s6ayh3s76z184jai3jidcs4cjk8s4nvkkv2am8dg4gfsybq22"))))
(inputs
`(("agda" ,agda)
("agda-ial" ,agda-ial)

6
gnu/packages/certs.scm
View File

@ -185,7 +185,7 @@ taken from the NSS package and thus ultimately from the Mozilla project.")
(uri "https://letsencrypt.org/certs/isrgrootx1.pem")
(sha256
(base32
"0zycy85ff9ga53z1q03df89ka9iihb9p8bjhw056rq2y4rn3b6ac"))))
"1la36n2f31j9s03v847ig6ny9lr875q3g7smnq33dcsmf2i5gd92"))))
;; "Let’s Encrypt Authority X3", the active Let's Encrypt intermediate
;; certificate.
("letsencryptauthorityx3.pem"
@ -194,7 +194,7 @@ taken from the NSS package and thus ultimately from the Mozilla project.")
(uri "https://letsencrypt.org/certs/letsencryptauthorityx3.pem")
(sha256
(base32
"1kvac1dhm1d02bhrfj6l1cz1dpldz6ishb78zzvy8245zgvh7pdn"))))
"100lxxvqv4fj563bm03zzk5r36hq5jx9nnrajzs38g825c5k0cg2"))))
;; "Let’s Encrypt Authority X4", the backup Let's Encrypt intermediate
;; certificate. This will be used for disaster recovery and will only be
;; used should Let's Encrypt lose the ability to issue with "Let’s
@ -205,7 +205,7 @@ taken from the NSS package and thus ultimately from the Mozilla project.")
(uri "https://letsencrypt.org/certs/letsencryptauthorityx4.pem")
(sha256
(base32
"0giiixknr0mls2ir6qqzb42mq7x9a7vz79gbn7fjszbf87pqhpzm"))))))
"0d5256gwf73drq6q6jala28rfzhrgbk5pjfq27vc40ly91pdyh8m"))))))
(home-page "https://letsencrypt.org/certificates/")
(synopsis "Let's Encrypt root and intermediate certificates")
(description "This package provides a certificate store containing only the

34
gnu/packages/compression.scm
View File

@ -1908,15 +1908,14 @@ decompression is a little bit slower.")
(define-public upx
(package
(name "upx")
(version "3.94")
(version "3.96")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/upx/upx/releases/download/v"
version "/" name "-" version "-src.tar.xz"))
version "/upx-" version "-src.tar.xz"))
(sha256
(base32
"08anybdliqsbsl6x835iwzljahnm9i7v26icdjkcv33xmk6p5vw1"))
(patches (search-patches "upx-fix-CVE-2017-15056.patch"))))
"051pk5jk8fcfg5mpgzj43z5p4cn7jy5jbyshyn78dwjqr7slsxs7"))))
(build-system gnu-build-system)
(native-inputs
`(("perl" ,perl)))
@ -1925,36 +1924,25 @@ decompression is a little bit slower.")
("zlib" ,zlib)))
(arguments
`(#:make-flags
(list "all"
;; CHECK_WHITESPACE does not seem to work.
;; See https://git.archlinux.org/svntogit/community.git/tree/trunk/PKGBUILD?h=packages/upx.
"CHECK_WHITESPACE=true")
(list "all")
#:phases
(modify-phases %standard-phases
(delete 'configure)
(delete 'check)
(delete 'install)
(delete 'configure) ; no configure script
(delete 'check) ; no test suite
(add-before 'build 'patch-exec-bin-sh
(lambda _
(substitute* (find-files "Makefile")
(("/bin/sh") (which "sh")))
(substitute* "src/Makefile"
(substitute* (list "Makefile"
"src/Makefile")
(("/bin/sh") (which "sh")))
#t))
(add-after 'build 'install-upx
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(bin (string-append out "/bin")))
(mkdir-p bin)
(copy-file "src/upx.out" (string-append bin "/upx")))
#t))
)))
#t)))))
(home-page "https://upx.github.io/")
;; CVE-2017-16869 is about Mach-O files which is not of a big concern for Guix.
;; See https://github.com/upx/upx/issues/146 and
;; https://nvd.nist.gov/vuln/detail?vulnId=CVE-2017-16869.
;; The issue will be fixed after version 3.94.
(properties `((lint-hidden-cve . ("CVE-2017-16869"))))
(synopsis "Compression tool for executables")
(description
"The Ultimate Packer for eXecutables (UPX) is an executable file

7
gnu/packages/connman.scm
View File

@ -3,7 +3,7 @@
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -44,14 +44,14 @@
(define-public connman
(package
(name "connman")
(version "1.37")
(version "1.38")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kernel.org/linux/network/connman/"
"connman-" version ".tar.xz"))
(sha256
(base32 "05kfjiqhqfmbbwc4snnyvi5hc4zxanac62f6gcwaf5mvn0z9pqkc"))))
(base32 "0awkqigvhwwxiapw0x6yd4whl465ka8a4al0v2pcqy9ggjlsqc6b"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -74,6 +74,7 @@
("glib" ,glib)
("gnutls" ,gnutls)
("iptables" ,iptables)
("libmnl" ,libmnl)
("readline" ,readline)
;; These inputs are needed for connman to include the interface to
;; these technologies so IF they are installed they can be used.

29
gnu/packages/cpp.scm
View File

@ -6,6 +6,7 @@
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019 Jan Wielkiewicz <tona_kosmicznego_smiecia@interia.pl>
;;; Copyright © 2020 Nicolò Balzarotti <nicolo@nixo.xyz>
;;;
;;; This file is part of GNU Guix.
;;;
@ -410,3 +411,31 @@ SObjectizer supports not only the Actor Model but also the Publish-Subscribe
Model and CSP-like channels. The goal of SObjectizer is to simplify
development of concurrent and multithreaded applications in C++.")
(license license:bsd-3)))
(define-public tweeny
(package
(name "tweeny")
(version "3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mobius3/tweeny.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1adm4c17pi7xf3kf6sjyxibz5rdg1ka236p72xsm6js4j9gzlbp4"))))
(arguments
'(#:tests? #f)) ;no check target
(build-system cmake-build-system)
(home-page "https://mobius3.github.io/tweeny/")
(synopsis "Modern C++ tweening library")
(description "@code{Tweeny} is an inbetweening library designed for the
creation of complex animations for games and other beautiful interactive
software. It leverages features of modern @code{C++} to empower developers with
an intuitive API for declaring tweenings of any type of value, as long as they
support arithmetic operations. The goal of @code{Tweeny} is to provide means to
create fluid interpolations when animating position, scale, rotation, frames or
other values of screen objects, by setting their values as the tween starting
point and then, after each tween step, plugging back the result.")
(license license:expat)))

1341
gnu/packages/cran.scm
View File

File diff suppressed because it is too large Load Diff

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

File diff suppressed because it is too large Load Diff

28
gnu/packages/crypto.scm
View File

@ -70,6 +70,7 @@
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system perl)
#:use-module (guix utils)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26))
@ -600,7 +601,7 @@ data on your platform, so the seed itself will be as random as possible.
(define-public crypto++
(package
(name "crypto++")
(version "8.0.0")
(version "8.2.0")
(source (origin
(method url-fetch/zipbomb)
(uri (string-append "https://cryptopp.com/cryptopp"
@ -608,7 +609,7 @@ data on your platform, so the seed itself will be as random as possible.
".zip"))
(sha256
(base32
"0b5qrsm4jhy4nzxgrm13nixhvbswr242plx1jw6r4sw492rqkzdv"))))
"0n40hlz5jkvlcp9vxrj0fsrcfp7dm0zmmv6h52dx3f8i5qjf5w03"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags
@ -626,19 +627,25 @@ data on your platform, so the seed itself will be as random as possible.
((" -march=native") ""))
#t))
(delete 'configure)
(add-after 'build 'build-shared
(lambda _
;; By default, only the static library is built.
(invoke "make" "shared")))
(replace 'build
;; By default, only the static library is built.
(lambda* (#:key (make-flags '()) #:allow-other-keys)
(apply invoke "make" "shared"
"-j" (number->string (parallel-job-count))
make-flags)))
(add-after 'install 'install-shared-library-links
;; By default, only .so and .so.x.y.z are installed.
;; Create all the ‘intermediates’ expected by dependent packages.
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib")))
(lib (string-append out "/lib"))
(prefix "libcryptopp.so.")
(target (string-append prefix ,version)))
(with-directory-excursion lib
(symlink "libcryptopp.so.8.0.0" "libcryptopp.so.8.0")
(symlink "libcryptopp.so.8.0.0" "libcryptopp.so.8")
(symlink target
(string-append prefix ,(version-major+minor version)))
(symlink target
(string-append prefix ,(version-major version)))
#t))))
(add-after 'install 'install-pkg-config
(lambda* (#:key outputs #:allow-other-keys)
@ -656,7 +663,8 @@ data on your platform, so the seed itself will be as random as possible.
"Description: Class library of cryptographic schemes"
"Version: " ,version "\n"
"Libs: -L${libdir} -lcryptopp\n"
"Cflags: -I${includedir}\n"))))))))))
"Cflags: -I${includedir}\n"))
#t))))))))
(native-inputs
`(("unzip" ,unzip)))
(home-page "https://cryptopp.com/")

39
gnu/packages/databases.scm
View File

@ -19,7 +19,7 @@
;;; Copyright © 2016 Danny Milosavljevic <dannym+a@scratchpost.org>
;;; Copyright © 2016, 2017, 2018, 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017, 2018 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017, 2020 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017 Jelle Licht <jlicht@fsfe.org>
;;; Copyright © 2017 Adriano Peluso <catonano@gmail.com>
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
@ -39,6 +39,7 @@
;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2020 Nicolò Balzarotti <nicolo@nixo.xyz>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1065,9 +1066,10 @@ Most public APIs are compatible with @command{mysqlclient} and MySQLdb.")
"0gmpvhn02pkq280ffmn4da1g4mdr1xxz7l80b7y4n7km1mrzwrml"))))
(build-system gnu-build-system)
(arguments
`( #:configure-flags (list (string-append "LDFLAGS=-Wl,-rpath="
(assoc-ref %outputs "out")
"/lib"))))
`(#:configure-flags (list (string-append "LDFLAGS=-Wl,-rpath="
(assoc-ref %outputs "out")
"/lib"))
#:make-flags (list "CFLAGS=-fPIC")))
(home-page "http://fallabs.com/qdbm")
(synopsis "Key-value database")
(description "QDBM is a library of routines for managing a
@ -2110,6 +2112,35 @@ multiple cores. The size of each database is limited only by the size of the
virtual address space — not physical RAM.")
(license license:openldap2.8)))
(define-public lmdbxx
(package
(name "lmdbxx")
(version "0.9.14.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/drycpp/lmdbxx.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1jmb9wg2iqag6ps3z71bh72ymbcjrb6clwlkgrqf1sy80qwvlsn6"))))
(arguments
`(#:make-flags
(list (string-append "PREFIX=" (assoc-ref %outputs "out")))
#:phases
(modify-phases %standard-phases
(delete 'configure))))
(build-system gnu-build-system)
(inputs `(("lmdb" ,lmdb)))
(home-page "http://lmdbxx.sourceforge.net")
(synopsis "C++11 wrapper for the LMDB embedded B+ tree database library")
(description "@code{lmdbxx} is a comprehensive @code{C++} wrapper for the
@code{LMDB} embedded database library, offering both an error-checked
procedural interface and an object-oriented resource interface with RAII
semantics.")
(license license:unlicense)))
(define-public libpqxx
(package
(name "libpqxx")

2
gnu/packages/dav.scm
View File

@ -54,7 +54,7 @@ and edited by calendar and contact clients on mobile phones or computers.
Radicale intentionally does not fully comply with the CalDAV and CardDAV RFCs.
Instead, it supports the CalDAV and CardDAV implementations of popular
clients.")
(home-page "http://radicale.org/")
(home-page "https://radicale.org/")
(license gpl3+)))
(define-public vdirsyncer

4
gnu/packages/debian.scm
View File

@ -117,7 +117,7 @@ contains the archive keys used for that.")
(define-public debootstrap
(package
(name "debootstrap")
(version "1.0.114")
(version "1.0.118")
(source
(origin
(method git-fetch)
@ -127,7 +127,7 @@ contains the archive keys used for that.")
(file-name (git-file-name name version))
(sha256
(base32
"147308flz9y8g6f972izi3szmsywf5f8xm64z2smy1cayd340i63"))))
"07x1x67dli6qwrlaribi07wgjp7fs1gzwkqgq1xy6lq1xz1xfdl2"))))
(build-system gnu-build-system)
(arguments
`(#:phases

59
gnu/packages/dictionaries.scm
View File

@ -3,7 +3,7 @@
;;; Copyright © 2016, 2017, 2018, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2017, 2018, 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr>
;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com>
@ -31,6 +31,7 @@
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
#:use-module (guix build-system trivial)
#:use-module (guix build-system copy)
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
@ -109,25 +110,10 @@ acronyms distributed as an info document.")
(sha256
(base32
"1n3bp91sik66z3ca7mjqbr9nck3hg5ck0c8g84xc0qnfpx5vznh2"))))
(build-system trivial-build-system)
(build-system copy-build-system)
(arguments
'(#:builder (begin
(use-modules (guix build utils))
(let* ((src (assoc-ref %build-inputs "source"))
(tar (assoc-ref %build-inputs "tar"))
(xz (assoc-ref %build-inputs "xz"))
(out (assoc-ref %outputs "out"))
(datadir (string-append out "/share/gcide")))
(set-path-environment-variable "PATH" '("bin")
(list tar xz))
(mkdir-p datadir)
(invoke "tar" "-C" datadir
"--strip-components=1"
"-xvf" src)))
#:modules ((guix build utils))))
(native-inputs
`(("tar" ,tar)
("xz" ,xz)))
'(#:install-plan
'(("." "share/gcide/" #:exclude ("COPYING")))))
(synopsis "GNU Collaborative International Dictionary of English")
(description
"GCIDE is a free dictionary based on a combination of sources. It can
@ -140,14 +126,14 @@ http://gcide.gnu.org.ua/")
;; Not quite a dictionary, not quite a spell checker either…
(package
(name "diction")
(version "1.11")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/diction/diction-"
version ".tar.gz"))
(sha256
(base32
"1xi4l1x1vvzmzmbhpx0ghmfnwwrhabjwizrpyylmy3fzinzz3him"))))
(version "1.14")
(source
(origin
(method url-fetch)
(uri (string-append "http://www.moria.de/~michael/diction/diction-"
version ".tar.gz"))
(sha256
(base32 "1z6p5x3l1a00h4v4s33qa82fznzc1jdqdnlc4dnmd9nblnrjy0fs"))))
(build-system gnu-build-system)
(synopsis "Identifies wordy and commonly misused phrases")
(description
@ -312,7 +298,7 @@ translation engines from your terminal.")
(define-public lttoolbox
(package
(name "lttoolbox")
(version "3.5.0")
(version "3.5.1")
(source
(origin
(method url-fetch)
@ -320,14 +306,23 @@ translation engines from your terminal.")
"https://github.com/apertium/lttoolbox/releases/download/v"
version "/lttoolbox-" version ".tar.gz"))
(sha256
(base32
"08y6pf1hl7prwygy1g8h6ndqww18pmb9f3r5988q0pcrp8w6xz6b"))
(file-name (string-append name "-" version ".tar.gz"))))
(base32 "14yyrkzyqlsrii3v3ggg4dyvwlrcqcqc0aprphz5781a44jsrcwz"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(replace 'bootstrap
;; The included ./autogen.sh unconditionally runs ./configure before
;; its shebangs have been patched.
(lambda _
(invoke "autoreconf" "-vfi"))))))
(inputs
`(("libxml2" ,libxml2)))
(native-inputs
`(("pkg-config" ,pkg-config)))
`(("autoconf" ,autoconf)
("automake" ,automake)
("libtool" ,libtool)
("pkg-config" ,pkg-config)))
(home-page "http://wiki.apertium.org/wiki/Lttoolbox")
(synopsis "Lexical processing toolbox")
(description "Lttoolbox is a toolbox for lexical processing, morphological

6
gnu/packages/diffoscope.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2018, 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2019 Vagrant Cascadian <vagrant@reproducible-builds.org>
@ -68,7 +68,7 @@
#:use-module (ice-9 match))
(define-public diffoscope
(let ((version "136"))
(let ((version "137"))
(package
(name "diffoscope")
(version version)
@ -80,7 +80,7 @@
(file-name (git-file-name name version))
(sha256
(base32
"1wp4fnmwcsgv17dmvk9xr3h63gp4nmmpysr248qvxs8s5qy5xlyk"))))
"11llnh2h2mx3xygj4482ld1rnjnhszk4828pmcbi75kanxfrqzq6"))))
(build-system python-build-system)
(arguments
`(#:phases (modify-phases %standard-phases

8
gnu/packages/distributed.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Brant Gardner <brantcgardner@brantware.com>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -43,7 +43,7 @@
(define-public boinc-client
(package
(name "boinc-client")
(version "7.16.3")
(version "7.16.4")
(source (origin
(method git-fetch)
(uri (git-reference
@ -54,7 +54,7 @@
(file-name (git-file-name "boinc" version))
(sha256
(base32
"1l181s7wnx0xd7m62qjixdjw4ri87q47xi0x662m2jsh9lzb8khf"))))
"08xx2kzb7c46k1zb91w74kyig3b5kilxdw5ilfs67r8p55mxk0g1"))))
(build-system gnu-build-system)
(arguments '(#:configure-flags '("--disable-server")))
(inputs `(("openssl" ,openssl)
@ -71,7 +71,7 @@
("automake" ,automake)
("libtool" ,libtool)
("pkg-config" ,pkg-config)))
(synopsis "BOINC lets you help cutting-edge science research using your computer")
(synopsis "Help cutting-edge science research using your computer")
(description "BOINC is a platform for high-throughput computing on a large
scale (thousands or millions of computers). It can be used for volunteer
computing (using consumer devices) or grid computing (using organizational

126
gnu/packages/dns.scm
View File

@ -114,32 +114,32 @@ and BOOTP/TFTP for network booting of diskless machines.")
(define-public isc-bind
(package
(name "bind")
(version "9.14.10")
(version "9.16.0")
(source (origin
(method url-fetch)
(uri (string-append
"https://ftp.isc.org/isc/bind9/" version
"/bind-" version ".tar.gz"))
"/bind-" version ".tar.xz"))
(sha256
(base32
"0nkkc2phkkzwgl922xg41gx5pc5f4safabqslaw3880hwdf8vfaa"))))
"0a1f1wrlbnmq79q6s15fny36ip81malg6wlr8acp7amimsyxjjxg"))))
(build-system gnu-build-system)
(outputs `("out" "utils"))
(inputs
;; It would be nice to add GeoIP and gssapi once there are packages.
`(("libcap" ,libcap)
("libuv" ,libuv)
("libxml2" ,libxml2)
("openssl" ,openssl)
("p11-kit" ,p11-kit)
("python" ,python)
("python-ply" ,python-ply)))
(native-inputs `(("perl" ,perl)
("net-tools" ,net-tools)))
(native-inputs
`(("perl" ,perl)
("pkg-config" ,pkg-config)))
(arguments
`(#:configure-flags
(list (string-append "--with-openssl="
(assoc-ref %build-inputs "openssl"))
(string-append "--with-pkcs11="
(list (string-append "--with-pkcs11="
(assoc-ref %build-inputs "p11-kit")))
#:phases
(modify-phases %standard-phases
@ -278,22 +278,18 @@ the two.")
(define-public libasr
(package
(name "libasr")
(version "1.0.3")
(version "1.0.4")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.opensmtpd.org/archives/"
"libasr-" version ".tar.gz"))
(sha256
(base32 "13fn4sr4vlcx1xijpl26nmnxawyls4lr5q3mi11jdm76f80qxn4w"))))
(base32 "1d6s8njqhvayx2gp47409sp1fn8m608ws26hr1srfp6i23nnpyqr"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(replace 'bootstrap
;; ‘GNU build system bootstrapping not needed’, the default lies.
(lambda _
(invoke "sh" "./bootstrap")))
(add-after 'install 'install-documentation
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
@ -390,14 +386,14 @@ to result in system-wide compromise.")
(define-public unbound
(package
(name "unbound")
(version "1.9.5")
(version "1.9.6")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.unbound.net/downloads/unbound-"
version ".tar.gz"))
(sha256
(base32 "0myv8l886gmlh9nh4j3q5549idxnl51hf9cw20yxfqbwd47l13ca"))))
(base32 "1w5aylh2gfvfvqkgrq46aw427x9c0a3hwm0f985s55wim5pgr60x"))))
(build-system gnu-build-system)
(outputs '("out" "python"))
(native-inputs
@ -741,20 +737,20 @@ LuaJIT, both a resolver library and a daemon.")
(define-public ddclient
(package
(name "ddclient")
(version "3.9.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/ddclient/ddclient/ddclient-"
version "/ddclient-" version ".tar.gz"))
(sha256
(base32
"0fwyhab8yga2yi1kdfkbqxa83wxhwpagmj1w1mwkg2iffh1fjjlw"))))
(version "3.9.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ddclient/ddclient.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0hf377g4j9r9sac75xp17nk2h58mazswz4vkg4g2gl2yyhvzq91w"))))
(build-system trivial-build-system) ; no Makefile.PL
(native-inputs
`(("bash" ,bash)
("gzip" ,gzip)
("perl" ,perl)
("tar" ,tar)))
("perl" ,perl)))
(inputs
`(("inetutils" ,inetutils) ; logger
("net-tools" ,net-tools)
@ -770,48 +766,46 @@ LuaJIT, both a resolver library and a daemon.")
(use-modules (guix build utils)
(ice-9 match)
(srfi srfi-26))
;; bootstrap
(setenv "PATH" (string-append
(assoc-ref %build-inputs "bash") "/bin" ":"
(assoc-ref %build-inputs "tar") "/bin" ":"
(assoc-ref %build-inputs "gzip") "/bin" ":"
(assoc-ref %build-inputs "perl") "/bin"))
;; extract source
(invoke "tar" "xvf" (assoc-ref %build-inputs "source"))
;; package
(with-directory-excursion (string-append ,name "-" ,version)
(let* ((out (assoc-ref %outputs "out"))
(bin (string-append out "/bin")))
(let ((file "ddclient"))
(substitute* file
(("/usr/bin/perl") (which "perl"))
;; Strictly use ‘/etc/ddclient/ddclient.conf’.
(("\\$\\{program\\}\\.conf") "/etc/ddclient/ddclient.conf")
(("\\$etc\\$program.conf") "/etc/ddclient/ddclient.conf")
;; Strictly use ‘/var/cache/ddclient/ddclient.cache’
(("\\$cachedir\\$program\\.cache")
"/var/cache/ddclient/ddclient.cache"))
(install-file file bin)
(wrap-program (string-append bin "/" file)
`("PATH" ":" =
("$PATH"
,@(map (lambda (input)
(match input
((name . store)
(string-append store "/bin"))))
%build-inputs)))
`("PERL5LIB" ":" =
,(delete
""
(map (match-lambda
(((? (cut string-prefix? "perl-" <>) name) . dir)
(string-append dir "/lib/perl5/site_perl"))
(_ ""))
%build-inputs)))))
(for-each (cut install-file <> (string-append out
"/share/ddclient"))
(find-files "." "sample.*$")))))))
(home-page "https://sourceforge.net/projects/ddclient/")
;; Copy the (read-only) source into the (writable) build directory.
(copy-recursively (assoc-ref %build-inputs "source") ".")
;; Install.
(let* ((out (assoc-ref %outputs "out"))
(bin (string-append out "/bin")))
(let ((file "ddclient"))
(substitute* file
(("/usr/bin/perl") (which "perl"))
;; Strictly use ‘/etc/ddclient/ddclient.conf’.
(("\\$\\{program\\}\\.conf") "/etc/ddclient/ddclient.conf")
(("\\$etc\\$program.conf") "/etc/ddclient/ddclient.conf")
;; Strictly use ‘/var/cache/ddclient/ddclient.cache’
(("\\$cachedir\\$program\\.cache")
"/var/cache/ddclient/ddclient.cache"))
(install-file file bin)
(wrap-program (string-append bin "/" file)
`("PATH" ":" =
("$PATH"
,@(map (lambda (input)
(match input
((name . store)
(string-append store "/bin"))))
%build-inputs)))
`("PERL5LIB" ":" =
,(delete
""
(map (match-lambda
(((? (cut string-prefix? "perl-" <>) name) . dir)
(string-append dir "/lib/perl5/site_perl"))
(_ ""))
%build-inputs)))))
(for-each (cut install-file <> (string-append out
"/share/ddclient"))
(find-files "." "sample.*$"))))))
(home-page "https://ddclient.net/")
(synopsis "Address updating utility for dynamic DNS services")
(description "This package provides a client to update dynamic IP
addresses with several dynamic DNS service providers, such as

6
gnu/packages/docker.scm
View File

@ -183,7 +183,9 @@ Python without keeping their credentials in a Docker configuration file.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0npbzixf3c0jvzm159vygvkydrr8h36c9sq50yv0mdinrys2bvg0"))))
(base32 "0npbzixf3c0jvzm159vygvkydrr8h36c9sq50yv0mdinrys2bvg0"))
(patches
(search-patches "containerd-test-with-go1.13.patch"))))
(build-system go-build-system)
(arguments
`(#:import-path "github.com/containerd/containerd"
@ -236,7 +238,7 @@ Python without keeping their credentials in a Docker configuration file.")
(description "This package provides the container daemon for Docker.
It includes image transfer and storage, container execution and supervision,
network attachments.")
(home-page "http://containerd.io/")
(home-page "https://containerd.io/")
(license license:asl2.0)))
;;; Private package that shouldn't be used directly; its purposes is to be

2
gnu/packages/ebook.scm
View File

@ -227,7 +227,7 @@
(delete-file-recursively font-dest)
(symlink font-src font-dest))
#t)))))
(home-page "http://calibre-ebook.com/")
(home-page "https://calibre-ebook.com/")
(synopsis "E-book library management software")
(description "Calibre is an e-book library manager. It can view, convert
and catalog e-books in most of the major e-book formats. It can also talk

6
gnu/packages/education.scm
View File

@ -3,7 +3,7 @@
;;; Copyright © 2016, 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Robert Smith <robertsmith@posteo.net>
;;;
@ -132,7 +132,7 @@ of categories with some of the activities available in that category.
(define-public gcompris-qt
(package
(name "gcompris-qt")
(version "0.97")
(version "0.98")
(source
(origin
(method url-fetch)
@ -140,7 +140,7 @@ of categories with some of the activities available in that category.
"https://gcompris.net/download/qt/src/gcompris-qt-"
version ".tar.xz"))
(sha256
(base32 "0hl3a1jjnrpnbqkpx3rl3fl86yfv503lh48djb888hplvr4nf747"))))
(base32 "1jmjykn0lpk0v6hs2flmch8v4da5bgxl891nav7szxw9l7aqnf4y"))))
(build-system cmake-build-system)
(arguments
`(#:phases

7
gnu/packages/efi.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Danny Milosavljevic <dannym@scratchpost.org>
;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -64,7 +64,7 @@ environment presented by Intel's EFI.")
(define-public sbsigntools
(package
(name "sbsigntools")
(version "0.9.2")
(version "0.9.3")
(source
(origin
(method git-fetch)
@ -75,8 +75,7 @@ environment presented by Intel's EFI.")
(recursive? #t)))
(file-name (git-file-name name version))
(sha256
(base32
"116649ixr6gvw9fqiljfflxsv4293hgm73bmba5ilxrzn4kpbzvb"))))
(base32 "0gc3xmp73xl7z4nkwz4qy960rdflmx7k4ksgyblcnia9smvsir6y"))))
(build-system gnu-build-system)
(arguments
`(#:phases

4
gnu/packages/elixir.scm
View File

@ -33,7 +33,7 @@
(define-public elixir
(package
(name "elixir")
(version "1.9.4")
(version "1.10.0")
(source
(origin
(method git-fetch)
@ -42,7 +42,7 @@
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1l4318g35y4h0vi2w07ayc3jizw1xc3s7hdb47w6j3iw33y06g6b"))
(base32 "1fz22c2jqqm2jvzxar11bh1djg3kqdn5rbxdddlz0cv6mfz7hvgv"))
(patches (search-patches "elixir-path-length.patch"))))
(build-system gnu-build-system)
(arguments

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

@ -58,6 +58,7 @@
;;; Copyright © 2019 Leo Prikler <leo.prikler@student.tugraz.at>
;;; Copyright © 2019 David Wilson <david@daviwil.com>
;;; Copyright © 2020 Paul Garlick <pgarlick@tourbillion-technology.com>
;;; Copyright © 2020 Robert Smith <robertsmith@posteo.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -134,6 +135,7 @@
#:use-module (gnu packages package-management)
#:use-module (gnu packages perl)
#:use-module (gnu packages pdf)
#:use-module (gnu packages rust-apps)
#:use-module (gnu packages scheme)
#:use-module (gnu packages speech)
#:use-module (gnu packages xiph)
@ -2778,6 +2780,43 @@ column by drawing a thin line down the length of the editing window.")
"This Emacs package allows managing multiple grep buffers.")
(license license:gpl3+)))
(define-public emacs-rg
(package
(name "emacs-rg")
(version "1.8.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/dajva/rg.el.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0k7x5z7mh9flwih35cqy8chs54rack3nswdcpw5wcpgv6xim227y"))))
(build-system emacs-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'hardcode-rg-path
;; Hardcode the path to ripgrep.
(lambda _
(let ((file "rg.el"))
(chmod file #o644)
(emacs-substitute-sexps file
("(defcustom rg-executable" (which "rg")))))))))
(propagated-inputs
`(("emacs-s" ,emacs-s)
("emacs-wgrep" ,emacs-wgrep)))
(inputs
`(("ripgrep" ,ripgrep)))
(home-page "https://rgel.readthedocs.io/en/latest/")
(synopsis "Search tool based on @code{ripgrep}")
(description
"@code{rg} is an Emacs search package based on the @code{ripgrep} command
line tool. It allows one to interactively search based on the editing context
then refine or modify the search results.")
(license license:gpl3+)))
(define-public emacs-inf-ruby
(package
(name "emacs-inf-ruby")
@ -5258,6 +5297,28 @@ perspective only its buffers are available by default.")
;; the Expat license.
(license license:gpl3+)))
(define-public emacs-persp-mode
(package
(name "emacs-persp-mode")
(version "2.9.8")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Bad-ptr/persp-mode.el.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0b4y7a6j70s9lvr37riyy9k5kh3yvmx0m6nd9c0c8572ji4ij65g"))))
(build-system emacs-build-system)
(home-page "https://github.com/Bad-ptr/persp-mode.el")
(synopsis "Switch between named \"perspectives\" shared among frames")
(description
"This package extends @code{perspective.el} to enable perspectives that
can be saved to and restored from a file.")
(license license:gpl2+)))
(define-public emacs-test-simple
(package
(name "emacs-test-simple")
@ -6308,7 +6369,7 @@ provides the following features:
(base32
"1zm1j4w0f3h01bmmpsv4j4mh6i13nnl8fcqlj2hsa1ncy1lgi8q7"))))
(build-system emacs-build-system)
(home-page "http://jblevins.org/projects/markdown-mode/")
(home-page "https://jblevins.org/projects/markdown-mode/")
(synopsis "Emacs Major mode for Markdown files")
(description
"Markdown-mode is a major mode for editing Markdown-formatted text files
@ -8078,13 +8139,13 @@ passive voice.")
(name "emacs-org")
;; emacs-org-contrib inherits from this package. Please update it as
;; well.
(version "9.3.3")
(version "9.3.6")
(source
(origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/org-" version ".tar"))
(sha256
(base32 "0yafckcx5ka2rpmv24x7ns6f3s1h216x2lbgaxsf1dmklbjcfvwv"))))
(base32 "0jwpgfzjvf1hd3mx582pw86hysdryaqzp69hk6azi9kmq4bzk87d"))))
(build-system emacs-build-system)
(home-page "https://orgmode.org/")
(synopsis "Outline-based notes management and organizer")
@ -8098,14 +8159,14 @@ programming and reproducible research.")
(package
(inherit emacs-org)
(name "emacs-org-contrib")
(version "20200206")
(version "20200213")
(source
(origin
(method url-fetch)
(uri (string-append "https://orgmode.org/elpa/"
"org-plus-contrib-" version ".tar"))
(sha256
(base32 "1fdxh8zgjnb500wkcl0bc0fdzbsln6p044b4s4nz85wkfw0jkfs5"))))
(base32 "0g6rrrwplrifz4ip0jg638m4kvpvdg03hwnyghd813w0lm935mh5"))))
(arguments
`(#:modules ((guix build emacs-build-system)
(guix build utils)
@ -9762,8 +9823,7 @@ and supports the use of a mouse.")
(build-system gnu-build-system)
(native-inputs `(("emacs" ,emacs-minimal)))
(arguments
(let ((elisp-dir (string-append "/share/emacs/site-lisp/guix.d"
"/gnuplot-" version)))
(let ((elisp-dir "/share/emacs/site-lisp"))
`(#:modules ((guix build gnu-build-system)
(guix build utils)
(guix build emacs-utils))
@ -10956,8 +11016,8 @@ through them using @key{C-c C-SPC}.")
(license license:gpl3+)))
(define-public emacs-slack
(let ((commit "10fbb81f567b44647ad125a48ecd72df106fb624")
(revision "6"))
(let ((commit "b7b9eada0bf62d40dfe764b00f55913a2d3d742e")
(revision "7"))
(package
(name "emacs-slack")
(version (git-version "0.0.2" revision commit))
@ -10969,7 +11029,7 @@ through them using @key{C-c C-SPC}.")
(file-name (git-file-name name commit))
(sha256
(base32
"01ln9rbalgpxw6rbr4czhy6bd8wrrpyf0qgn2chcq3zmmrn4sy1z"))))
"0cqr7jnfxzb0z2wy79pdwpv9cvmawjif1kin3zbp8q7zhwrq09v0"))))
(build-system emacs-build-system)
(arguments
`(#:phases
@ -14299,8 +14359,8 @@ perform regression test for packages that provide font-lock rules.")
(license license:gpl3+))))
(define-public emacs-racket-mode
(let ((commit "2a9a102a097d04fbcd2a443fec84078036c2e277")
(revision "4"))
(let ((commit "5f396fa91fc22310f5c519aa658436a1a5251846")
(revision "5"))
(package
(name "emacs-racket-mode")
(version (git-version "0.0.2" revision commit))
@ -14313,15 +14373,15 @@ perform regression test for packages that provide font-lock rules.")
(file-name (git-file-name name version))
(sha256
(base32
"1n71dxxh62jixq20b5haapv651dxc0zyrxpl1d0yqsg8ncp726bl"))))
"1214y08i0c51d1vzw9jzyf79vyfqizdy6m0980qs13qbdwsj32v0"))))
(build-system emacs-build-system)
(arguments
`(#:include '("\\.el$" "\\.rkt$")))
(propagated-inputs
`(("emacs-faceup" ,emacs-faceup)
("emacs-s" ,emacs-s)))
(home-page "https://github.com/greghendershott/racket-mode")
(synopsis "Major mode for Racket language")
(home-page "https://www.racket-mode.com/")
(synopsis "Major mode for the Racket language")
(description "@code{racket-mode} provides:
@itemize
@ -14685,14 +14745,14 @@ modes of SLIME.")
(define-public emacs-sml-mode
(package
(name "emacs-sml-mode")
(version "6.9")
(version "6.10")
(source
(origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/sml-mode-"
version ".el"))
(sha256
(base32 "1bdg9ywpvj85hxqah9w1raxlcrhkyx67nw22jwd1bd5j0fhmgqij"))))
(base32 "01yf0s474r9xhj6nbs14ljn9ccxb5yy758i17c8nmgmqvm8fx7sb"))))
(build-system emacs-build-system)
(home-page "https://elpa.gnu.org/packages/sml-mode.html")
(synopsis "Major mode for editing (Standard) ML")
@ -16055,7 +16115,7 @@ wiki.")
(revision "1"))
(package
(name "emacs-recent-addresses")
(home-page "http://nschum.de/src/emacs/recent-addresses/")
(home-page "https://nschum.de/src/emacs/recent-addresses/")
(version (git-version "0.1" revision commit))
(source (origin
(method git-fetch)
@ -19471,7 +19531,7 @@ It is a fork of https://github.com/cofi/evil-numbers, which is unmaintained.")
(base32
"1cgxv4aibkvv6lnssynn0438a615fz3zq8hg9sb0lhfgsr99pxln"))))
(build-system emacs-build-system)
(home-page "http://nschum.de/src/emacs/rotate-text/")
(home-page "https://nschum.de/src/emacs/rotate-text/")
(synopsis "Cycle through words, symbols and patterns in Emacs")
(description "@code{rotate-text} allows you rotate to commonly
interchanged text with a single keystroke. For example, you can toggle
@ -21455,3 +21515,24 @@ Flyspell's on-the-fly spell checking and extends these checks to also detect
language. Auto-dictionary then sets @code{ispell-dictionary} to use the
detected language.")
(license license:gpl2+)))
(define-public emacs-persist
(package
(name "emacs-persist")
(version "0.4")
(source
(origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/"
"persist-" version ".tar"))
(sha256
(base32 "0gpxy41qawzss2526j9a7lys60vqma1lvamn4bfabwza7gfhac0q"))))
(build-system emacs-build-system)
(home-page "http://elpa.gnu.org/packages/persist.html")
(synopsis "Persist variables between Emacs sessions")
(description
"This package provides variables which persist across sessions.
Values are stored in a directory in @code{user-emacs-directory}, using
one file per value. This makes it easy to delete or remove unused
variables.")
(license license:gpl3+)))

2
gnu/packages/embedded.scm
View File

@ -175,7 +175,7 @@
`(("xbinutils" ,(cross-binutils "arm-none-eabi"))
("xgcc" ,gcc-arm-none-eabi-4.9)
("texinfo" ,texinfo)))
(home-page "http://www.sourceware.org/newlib/")
(home-page "https://www.sourceware.org/newlib/")
(synopsis "C library for use on embedded systems")
(description "Newlib is a C library intended for use on embedded
systems. It is a conglomeration of several library parts that are easily

123
gnu/packages/emulators.scm
View File

@ -102,7 +102,9 @@
version "/desmume-" version ".tar.gz"))
(sha256
(base32
"15l8wdw3q61fniy3h93d84dnm6s4pyadvh95a0j6d580rjk4pcrs"))))
"15l8wdw3q61fniy3h93d84dnm6s4pyadvh95a0j6d580rjk4pcrs"))
(patches (search-patches "desmume-gcc6-fixes.patch"
"desmume-gcc7-fixes.patch"))))
(build-system gnu-build-system)
(arguments
;; Enable support for WiFi and microphone.
@ -274,19 +276,21 @@ older games.")
(license license:gpl2+)))
(define-public emulation-station
(let ((commit "646bede3d9ec0acf0ae378415edac136774a66c5"))
;; No release for a long time, new commits fix build issues
(let ((commit "9cc42adff67946175d2b7e25c6ae69cc374e98a0")
(revision "1"))
(package
(name "emulation-station")
(version "2.0.1")
(version (git-version "2.0.1" revision commit))
(source (origin
(method git-fetch) ; no tarball available
(uri (git-reference
(url "https://github.com/Aloshi/EmulationStation.git")
(commit commit))) ; no version tag
(file-name (string-append name "-" version "-checkout"))
(file-name (git-file-name name version))
(sha256
(base32
"0cm0sq2wri2l9cvab1l0g02za59q7klj0h3p028vr96n6njj4w9v"))))
"1cva0ns650v17lfn8in095zci6lc43d23f1x3mlzc41qfqa6mbd1"))))
(build-system cmake-build-system)
(arguments
'(#:tests? #f)) ; no tests
@ -307,19 +311,27 @@ and a game metadata scraper.")
(home-page "http://www.emulationstation.org")
(license license:expat))))
;; Note: higan v107 has been released, but as explained by the dialog that
;; appears after starting the new version, it's an experimental release. The
;; author recommends v106 for general use.
;;
;; When updating to v107 (or probably beyond), sdl will have to be replaced
;; with sdl2, and libxrandr will need to be added to inputs. The patch
;; `higan-remove-march-native-flag.patch' will not be necessary, since the flag
;; is now being added only for `platform=local', which is not the default.
(define-public higan
(package
(name "higan")
(version "106")
(source
(origin
(method url-fetch)
(uri (string-append
"https://gitlab.com/higan/higan/repository/archive.tar.gz?ref=v"
version))
(file-name (string-append name "-" version ".tar.gz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/byuu/higan/")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0y42pra0dxzlbkyzcp3r8a39pji2bj3p9fl40425f60af2igr4rw"))
(base32 "1mxivf8124vz4hl0b0xa1yqv0z9m3i12v9psmbpqkprrbq0wbgn1"))
(patches (search-patches "higan-remove-march-native-flag.patch"))))
(build-system gnu-build-system)
(native-inputs
@ -344,15 +356,18 @@ and a game metadata scraper.")
(delete 'configure)
(add-before 'build 'chdir-to-higan
(lambda _
(chdir "higan")))
(chdir "higan")
#t))
(add-before 'install 'create-/share/applications
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
;; It seems the author forgot to do this in the Makefile.
(mkdir-p (string-append out "/share/applications")))))
(mkdir-p (string-append out "/share/applications"))
#t)))
(add-after 'install 'chdir-to-icarus
(lambda _
(chdir "../icarus")))
(chdir "../icarus")
#t))
(add-after 'chdir-to-icarus 'build-icarus build-phase)
(add-after 'build-icarus 'install-icarus install-phase)
(add-after 'install-icarus 'wrap-higan-executable
@ -383,7 +398,8 @@ and a game metadata scraper.")
(chmod higan #o555)
;; Second, make sure higan will find icarus in PATH.
(wrap-program higan
`("PATH" ":" prefix (,bin))))))))
`("PATH" ":" prefix (,bin)))
#t)))))
#:make-flags
(list "compiler=g++"
(string-append "prefix=" (assoc-ref %outputs "out")))
@ -405,7 +421,7 @@ Super Game Boy, BS-X Satellaview, and Sufami Turbo.")
(define-public mgba
(package
(name "mgba")
(version "0.8.0")
(version "0.8.1")
(source
(origin
(method git-fetch)
@ -414,7 +430,7 @@ Super Game Boy, BS-X Satellaview, and Sufami Turbo.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0m3rgcdv32ms98j7rrmk2hphvn462bwsd6xfz2ssy05398pj4ljh"))
(base32 "1if82mfaak3696w5d5yshynpzywrxgvg3ifdfi2rwlpvq1gpd429"))
(modules '((guix build utils)))
(snippet
;; Make sure we don't use the bundled software.
@ -431,7 +447,8 @@ Super Game Boy, BS-X Satellaview, and Sufami Turbo.")
#:configure-flags
(list "-DUSE_LZMA=OFF" ;do not use bundled LZMA
"-DUSE_LIBZIP=OFF"))) ;use "zlib" instead
(native-inputs `(("pkg-config" ,pkg-config)))
(native-inputs `(("pkg-config" ,pkg-config)
("qttools" ,qttools)))
(inputs `(("ffmpeg" ,ffmpeg)
("imagemagick" ,imagemagick)
("libedit" ,libedit)
@ -443,7 +460,6 @@ Super Game Boy, BS-X Satellaview, and Sufami Turbo.")
("ncurses" ,ncurses)
("qtbase" ,qtbase)
("qtmultimedia" ,qtmultimedia)
("qttools" ,qttools)
("sdl2" ,sdl2)
("sqlite" ,sqlite)
("zlib" ,zlib)))
@ -454,9 +470,9 @@ Super Game Boy, BS-X Satellaview, and Sufami Turbo.")
faster and more accurate than many existing Game Boy Advance emulators, as
well as adding features that other emulators lack. It also supports Game Boy
and Game Boy Color games.")
;; Code is mainly MPL 2.0. "blip_buf.c" is LGPL 2.1+ and "inih.c" is
;; BSD-3.
(license (list license:mpl2.0 license:lgpl2.1+ license:bsd-3))))
;; Code is mainly MPL 2.0. "blip_buf.c" is LGPL 2.1+, "inih.c" is
;; BSD-3, and "discord-rpc" is Expat.
(license (list license:mpl2.0 license:lgpl2.1+ license:bsd-3 license:expat))))
(define-public sameboy
(package
@ -1449,6 +1465,69 @@ functions. The source code to MAME serves as this documentation.")
;; keymaps, languages and samples are under CC0.
(license (list license:gpl2+ license:expat license:cc0))))
(define-public gnome-arcade
(package
(name "gnome-arcade")
(version "0.218.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/strippato/gnome-arcade")
(commit (string-append "v." version))))
(file-name (git-file-name name version))
(sha256
(base32
"1qc01a62p65qb6mwjfmxqsd6n3rglsfwrjhsp25nr7q54107n55l"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ; No tests.
#:configure-flags (list
(string-append "-DMAME_BIN=\""
(assoc-ref %build-inputs "mame")
"/bin/mame\"")
(string-append "-DAPP_RES=\""
(assoc-ref %outputs "out")
"/share/gnome-arcade/\""))
#:phases
(modify-phases %standard-phases
(add-before 'build 'fix-paths
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(pk 'cwd (getcwd))
(substitute* "../source/src/config.c"
(("/usr/share") (string-append out "/share"))))
#t))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(rom (string-append out "/share/gnome-arcade/data/rom"))
(tile (string-append out "/share/gnome-arcade/data/tile")))
(mkdir-p bin)
(install-file "../gnome-arcade" bin)
(copy-recursively "../source/res"
(string-append out "/share/gnome-arcade/res"))
(mkdir-p rom)
(install-file "../source/data/rom/ROM.TXT" rom)
(mkdir-p tile)
(install-file "../source/data/tile/TILE.TXT" tile))
#t)))))
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("mame" ,mame)
("gtk" ,gtk+)
("libevdev" ,libevdev)
("libvlc" ,vlc)
("libarchive" ,libarchive)))
(home-page "https://github.com/strippato/gnome-arcade")
(synopsis "Minimal MAME frontend")
(description
"A minimal GTK+ frontend for MAME, the multi-purpose arcade and console
emulator.")
(license license:gpl3+)))
(define-public pcsxr
;; No release since 2017.
(let ((commit "6484236cb0281e8040ff6c8078c87899a3407534"))

23
gnu/packages/engineering.scm
View File

@ -44,6 +44,7 @@
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
#:use-module (guix build-system qt)
#:use-module (gnu packages)
#:use-module (gnu packages algebra)
#:use-module (gnu packages autotools)
@ -1310,12 +1311,20 @@ bindings for Python, Java, OCaml and more.")
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "https://radare.org/")
(synopsis "Portable reversing framework")
(synopsis "Reverse engineering framework")
(description
"Radare project started as a forensics tool, a scriptable commandline
hexadecimal editor able to open disk files, but later support for analyzing
binaries, disassembling code, debugging programs, attaching to remote gdb
servers, ...")
"Radare2 is a complete framework for reverse-engineering, debugging, and
analyzing binaries. It is composed of a set of small utilities that can be
used together or independently from the command line.
Radare2 is built around a scriptable disassembler and hexadecimal editor that
support a variety of executable formats for different processors and operating
systems, through multiple back ends for local and remote files and disk
images.
It can also compare (@dfn{diff}) binaries with graphs and extract information
like relocation symbols. It is able to deal with malformed binaries, making
it suitable for security research and analysis.")
(license license:lgpl3)))
(define-public asco
@ -2248,7 +2257,7 @@ full programmatic control over your models.")
(sha256
(base32
"170hk1kgrvsddrwykp24wyj0cha78zzmzbf50gn98x7ngqqs395s"))))
(build-system cmake-build-system)
(build-system qt-build-system)
(native-inputs
`(("doxygen" ,doxygen)
("graphviz" ,graphviz)
@ -2274,7 +2283,7 @@ full programmatic control over your models.")
("python-pyside-2-tools" ,python-pyside-2-tools)
("python-shiboken-2" ,python-shiboken-2)
("python-wrapper" ,python-wrapper)
("qtbase" ,qtbase)
("qtbase" ,qtbase-patched)
("qtsvg" ,qtsvg)
("qtx11extras" ,qtx11extras)
("qtxmlpatterns" ,qtxmlpatterns)

8
gnu/packages/finance.scm
View File

@ -573,7 +573,11 @@ other machines/servers. Electroncash does not download the Bitcoin Cash blockch
;; Only try tests that don't need access to network or system
(replace 'check
(lambda _
(invoke "make" "ARGS=-R 'hash|core_tests' --verbose" "test")))
;; Core tests sometimes fail, at least on i686-linux.
;; Let's disable them for now and just try hash tests
;; and unit tests.
;; (invoke "make" "ARGS=-R 'hash|core_tests' --verbose" "test")))
(invoke "make" "ARGS=-R 'hash' --verbose" "test")))
(add-after 'check 'unit-tests
(lambda _
(let ((excluded-unit-tests
@ -1122,7 +1126,7 @@ Grisbi can manage multiple accounts, currencies and users. It manages
third party, expenditure and receipt categories, budgetary lines,
financial years, budget estimates, bankcard management and other
information.")
(home-page "http://grisbi.org")
(home-page "https://grisbi.org")
(license license:gpl2+)))
(define-public trezord

4
gnu/packages/firmware.scm
View File

@ -52,7 +52,7 @@
(sha256
(base32
"16jbj8avg5jkgvq5lxm0hdxxn4c3zn7fx8b4nxllvr024apk9w23"))
(file-name (string-append name "-" version "-checkout"))
(file-name (git-file-name name version))
(patches (search-patches "ath9k-htc-firmware-objcopy.patch"))))
(build-system gnu-build-system)
(arguments
@ -106,7 +106,7 @@ Linux-libre.")
(uri (git-reference
(url "http://git.bues.ch/git/b43-tools.git")
(commit commit)))
(file-name (string-append name "-" version "-checkout"))
(file-name (git-file-name name version))
(sha256
(base32
"1wgmj4d65izbhprwb5bcwimc2ryv19b9066lqzy4sa5m6wncm9cn"))))

10
gnu/packages/flashing-tools.scm
View File

@ -6,7 +6,7 @@
;;; Copyright © 2016, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Jonathan Brielmaier <jonathan.brielmaier@web.de>
;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -48,7 +48,7 @@
(define-public flashrom
(package
(name "flashrom")
(version "1.1")
(version "1.2")
(source (origin
(method url-fetch)
(uri (string-append
@ -56,7 +56,7 @@
version ".tar.bz2"))
(sha256
(base32
"06afq680n9p34hi3vrkn12vd1pfyq2062db9qqbi4hi21k3skbdf"))))
"0ax4kqnh7kd3z120ypgp73qy1knz47l6qxsqzrfkd97mh5cdky71"))))
(build-system gnu-build-system)
(inputs `(("dmidecode" ,dmidecode)
("pciutils" ,pciutils)
@ -447,7 +447,7 @@ ME as far as possible (it only edits ME firmware image files).")
(define-public uefitool
(package
(name "uefitool")
(version "0.26.0")
(version "0.27.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -455,7 +455,7 @@ ME as far as possible (it only edits ME firmware image files).")
(commit version)))
(sha256
(base32
"1ka7i12swm9r5bmyz5vjr82abd2f3lj8p35f4208byalfbx51yq7"))
"1i1p823qld927p4f1wcphqcnivb9mq7fi5xmzibxc3g9zzgnyc2h"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(arguments

2
gnu/packages/fltk.scm
View File

@ -109,7 +109,7 @@ UI builder called FLUID that can be used to create applications in minutes.")
(sha256
(base32
"0j38mhnfqy6swcrnc5zxcwlqi8b1pgklyghxk6qs1lf4japv2zc0"))
(file-name (string-append name "-" version "-checkout"))))
(file-name (git-file-name name version))))
(build-system waf-build-system)
(arguments
`(#:tests? #f ;no "check" target

42
gnu/packages/fonts.scm
View File

@ -29,6 +29,7 @@
;;; Copyright © 2019 Alva <alva@skogen.is>
;;; Copyright © 2019 Alexandros Theodotou <alex@zrythm.org>
;;; Copyright © 2020 Damien Cassou <damien@cassou.me>
;;; Copyright © 2020 Amin Bandali <mab@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1221,7 +1222,7 @@ monospace, slab-serif fonts.")
(base32
"17q5brcqyyc8gbjdgpv38p89s60cwxjlwy2ljnrvas5cj0s62np0"))))
(build-system font-build-system)
(home-page "http://google.github.io/material-design-icons")
(home-page "https://google.github.io/material-design-icons")
(synopsis "Icon font of Google Material Design icons")
(description
"Material design system icons are simple, modern, friendly, and sometimes
@ -1585,3 +1586,42 @@ This package provides the TrueType fonts.")
Mono’s typeface forms are simple and free from unnecessary details. Rendered
in small sizes, the text looks crisper.")
(license license:asl2.0)))
(define-public font-vazir
(package
(name "font-vazir")
(version "22.1.0")
(source
(origin
(method url-fetch/zipbomb)
(uri
(string-append "https://github.com/rastikerdar/vazir-font/"
"releases/download/v" version
"/vazir-font-v" version ".zip"))
(sha256
(base32
"0w3gwb5q33x5llw7cfs8qhaxr4ssg6rsx4b9day3993zn24xq031"))))
(build-system font-build-system)
(home-page "https://rastikerdar.github.io/vazir-font/")
(synopsis "Vazir Persian typeface")
(description
"Vazir is a beautiful and elegant Persian typeface originally based on
DejaVu, and comes in six variants: Thin, Light, Normal, Medium, Bold, and
Black. This package provides four versions of Vazir:
@itemize
@item @code{Vazir}: The main version; includes Latin glyphs from Roboto.
@item @code{Vazir-FD}: Like @code{Vazir}, but (always) uses Farsi digit glyphs
instead of Latin ones.
@item @code{Vazir-WOL}: Like @code{Vazir}, but without Roboto's Latin glyphs.
@item @code{Vazir-FD-WOL}: Combination of @code{Vazir-FD} and @code{Vazir-WOL}:
always uses Farsi digits, and does not include Latin glyphs from Roboto.
@end itemize\n")
(license
;; See https://github.com/rastikerdar/vazir-font/blob/master/LICENSE for
;; details.
(list license:public-domain ; the Vazir modifications to DejaVu
; and the DejaVu modifications to...
(license:x11-style ; ...the Bitstream Vera typeface
"file://LICENSE" "Bitstream Vera License")
license:asl2.0)))) ; Latin glyphs from Roboto

14
gnu/packages/fpga.scm
View File

@ -51,15 +51,15 @@
(revision "1"))
(package
(name "abc")
(version (string-append "0.0-" revision "-" (string-take commit 9)))
(version (git-version "0.0" revision commit))
(source (origin
(method url-fetch)
(uri
(string-append "https://bitbucket.org/alanmi/abc/get/" commit ".zip"))
(file-name (string-append name "-" version "-checkout.zip"))
(sha256
(base32
"1syygi1x40rdryih3galr4q8yg1w5bvdzl75hd27v1xq0l5bz3d0"))))
(base32
"1syygi1x40rdryih3galr4q8yg1w5bvdzl75hd27v1xq0l5bz3d0"))))
(build-system gnu-build-system)
(native-inputs
`(("unzip" ,unzip)))
@ -75,7 +75,7 @@
(let* ((out (assoc-ref outputs "out"))
(out-bin (string-append out "/bin")))
(install-file "abc" out-bin)))))))
(home-page "http://people.eecs.berkeley.edu/~alanmi/abc/")
(home-page "https://people.eecs.berkeley.edu/~alanmi/abc/")
(synopsis "Sequential logic synthesis and formal verification")
(description "ABC is a program for sequential logic synthesis and
formal verification.")
@ -216,13 +216,13 @@ For synthesis, the compiler generates netlists in the desired format.")
(revision "2"))
(package
(name "icestorm")
(version (string-append "0.0-" revision "-" (string-take commit 9)))
(version (git-version "0.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/cliffordwolf/icestorm.git")
(commit commit)))
(file-name (string-append name "-" version "-checkout"))
(file-name (git-file-name name version))
(sha256
(base32
"0bqm0rpywm64yvbq75klpyzb1g9sdsp1kvdlyqg4hvm8jw9w8lya"))))
@ -267,7 +267,7 @@ Includes the actual FTDI connector.")
(uri (git-reference
(url "https://github.com/YosysHQ/arachne-pnr.git")
(commit commit)))
(file-name (string-append name "-" version "-checkout"))
(file-name (git-file-name name version))
(sha256
(base32
"1dqvjvgvsridybishv4pnigw9gypxh7r7nrqp9z9qq92v7c5rxzl"))))

163
gnu/packages/freedesktop.scm
View File

@ -11,12 +11,13 @@
;;; Copyright © 2017, 2018, 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2017 Brendan Tildesley <mail@brendan.scot>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2018 Stefan Stefanović <stefanx2ovic@gmail.com>
;;; Copyright © 2019 Reza Alizadeh Majd <r.majd@pantherx.org>
;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2020 Rene Saavedra <pacoon@protonmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -505,7 +506,7 @@ with localed. This package is extracted from the broader systemd package.")
(define-public packagekit
(package
(name "packagekit")
(version "1.1.12")
(version "1.1.13")
(source (origin
(method url-fetch)
(uri (string-append
@ -514,7 +515,7 @@ with localed. This package is extracted from the broader systemd package.")
"PackageKit-" version ".tar.xz"))
(sha256
(base32
"00css16dv3asaxrklvyxy9dyjzhw82wmfrqxqpca9w2xryz58i8z"))))
"1dr1laic65ld95abp2yxbwvijnngh0dwyb1x49x4wjm5rhq43dl8"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f
@ -934,6 +935,11 @@ message bus.")
"--enable-elogind")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-/bin/cat
(lambda _
(substitute* "src/user.c"
(("/bin/cat") (which "cat")))
#t))
(add-before
'configure 'pre-configure
(lambda* (#:key inputs #:allow-other-keys)
@ -1205,28 +1211,36 @@ wish to perform colour calibration.")
(define-public libfprint
(package
(name "libfprint")
(version "0.6.0")
(source (origin
(method url-fetch)
(uri (string-append "https://people.freedesktop.org/~hadess/"
name "-" version ".tar.xz"))
(sha256
(base32
"1giwh2z63mn45galsjb59rhyrvgwcy01hvvp4g01iaa2snvzr0r5"))))
(build-system gnu-build-system)
(version "1.90.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.freedesktop.org/libfprint/libfprint")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0fdaak7qjr9b4482g7fhhqpyfdqpxq5kpmyzkp7f5i7qq2ynb78a"))))
(build-system meson-build-system)
(arguments
'(#:configure-flags (list (string-append "--with-udev-rules-dir="
(assoc-ref %outputs "out")
"/lib/udev/rules.d"))))
'(#:configure-flags
(list (string-append "-Dudev_rules_dir=" (assoc-ref %outputs "out")
"/lib/udev/rules.d"))))
(native-inputs
`(("pkg-config" ,pkg-config)))
`(("eudev" ,eudev)
("glib:bin" ,glib "bin") ; for {glib-,}mkenums
("gobject-introspection" ,gobject-introspection)
("gtk-doc" ,gtk-doc) ; for 88 KiB of API documentation
("pkg-config" ,pkg-config)))
(inputs
`(("libusb" ,libusb)
("nss" ,nss)
("glib" ,glib)
("eudev" ,eudev)
`(("glib" ,glib)
("gusb" ,gusb)
("nss" ,nss) ; for the URU4x00 driver
;; Replacing this with cairo works but just results in a reference
;; (only) to pixman in the end.
("pixman" ,pixman)))
(home-page "https://www.freedesktop.org/wiki/Software/fprint/libfprint/")
(home-page "https://fprint.freedesktop.org/")
(synopsis "Library to access fingerprint readers")
(description
"libfprint is a library designed to make it easy for application
@ -1237,37 +1251,90 @@ software.")
(define-public fprintd
(package
(name "fprintd")
(version "0.7.0")
(source (origin
(method url-fetch)
(uri (string-append
"https://people.freedesktop.org/~hadess/fprintd-"
version ".tar.xz"))
(sha256
(base32
"05915i0bv7q62fqrs5diqwr8dz3pwqa1c1ivcgggkjyw0xk4ldp5"))))
(build-system gnu-build-system)
(version "1.90.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.freedesktop.org/libfprint/fprintd")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0mbzk263x7f58i9cxhs44mrngs7zw5wkm62j5r6xlcidhmfn03cg"))))
(build-system meson-build-system)
(arguments
'(#:phases (modify-phases %standard-phases
(add-before 'build 'set-sysconfdir
(lambda* (#:key outputs #:allow-other-keys)
;; Work around a bug whereby the 'SYSCONFDIR' macro
;; expands literally to '${prefix}/etc'.
(let ((out (assoc-ref outputs "out")))
(substitute* "src/main.c"
(("SYSCONFDIR, \"fprintd.conf\"")
(string-append "\"" out "/etc\", "
"\"fprintd.conf\"")))
#t))))))
`(#:configure-flags
(list "-Dsystemd_system_unit_dir=/tmp"
(string-append "-Ddbus_service_dir=" (assoc-ref %outputs "out")
"/share/dbus-1/system-services")
(string-append "-Dpam_modules_dir=" (assoc-ref %outputs "out")
"/lib/security"))
#:phases
(modify-phases %standard-phases
(add-before 'configure 'patch-output-directories
;; Install files to our output, not that of the ‘owner’ package.
;; These are not exposed as Meson options and must be patched.
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(substitute* "meson.build"
(("(dbus_interfaces_dir = ).*" _ set)
(string-append set "'" out "/share/dbus-1/interfaces'\n"))
(("(polkit_policy_directory = ).*" _ set)
(string-append set "'" out "/share/polkit-1/actions/'\n"))
(("(dbus_data_dir = ).*" _ set)
(string-append set "get_option('prefix')"
" / get_option('datadir')\n")))
#t)))
(add-before 'configure 'patch-mistake
(lambda _
(substitute* "meson.build"
(("(storage_path = )(get_option\\('prefix'\\))(.*)"
_ set mistake value)
(string-append set "''" value "\n")))
#t))
(add-before 'configure 'patch-systemd-dependencies
(lambda _
(substitute* "meson.build"
(("'(libsystemd|systemd)'") "'libelogind'"))
#t))
(add-before 'configure 'ignore-test-dependencies
(lambda _
(substitute* "meson.build"
(("pam_wrapper_dep .*") "")
((".*'(cairo|dbus|dbusmock|gi|pypamtest)': .*,.*") ""))
#t))
(add-before 'install 'no-polkit-magic
;; Meson ‘magically’ invokes pkexec, which fails (not setuid).
(lambda _
(setenv "PKEXEC_UID" "something")
#t)))
#:tests? #f)) ; XXX depend on unpackaged packages
(native-inputs
`(("pkg-config" ,pkg-config)
("intltool" ,intltool)))
`(("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin") ; for glib-genmarshal
("libxslt" ,libxslt) ; for xsltproc
("perl" ,perl) ; for pod2man
("pkg-config" ,pkg-config)))
;; For tests.
;;("pam_wrapper" ,pam_wrapper)
;;("python-pycairo" ,python-pycairo)
;;("python-dbus" ,python-dbus)
;;("python-dbusmock" ,python-dbusmock)
;;("python-pygobject" ,python-pygobject)
;;("python-pypamtest" ,python-pypamtest)
(inputs
`(("libfprint" ,libfprint)
("dbus-glib" ,dbus-glib)
`(("dbus-glib" ,dbus-glib)
("elogind" ,elogind)
("libfprint" ,libfprint)
("linux-pam" ,linux-pam)
("polkit" ,polkit)
("linux-pam" ,linux-pam))) ;for pam_fprintd
(home-page "https://www.freedesktop.org/wiki/Software/fprint/fprintd/")
;; XXX These are in libfprint's Requires.private. Meson refuses to grant
;; the ‘libfprint-2’ dependency if they are not provided here.
("gusb" ,gusb)
("nss" ,nss)
("pixman" ,pixman)))
(home-page "https://fprint.freedesktop.org/")
(synopsis "D-Bus daemon that exposes fingerprint reader functionality")
(description
"fprintd is a D-Bus daemon that offers functionality of libfprint, a

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

@ -585,6 +585,34 @@ sounds from presets such as \"explosion\" or \"powerup\".")
(home-page "http://www.drpetter.se/project_sfxr.html")
(license license:expat)))
(define-public surgescript
(package
(name "surgescript")
(version "0.5.4.3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/alemart/surgescript.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "13q81439zg1bn7gskligskjgcfq0rdapp6f3llmrlk48vnyq49s0"))))
(build-system cmake-build-system)
(arguments
'(#:configure-flags
(let ((share (string-append (assoc-ref %outputs "out") "/share")))
(list (string-append "-DICON_PATH=" share "/pixmaps")
(string-append "-DMETAINFO_PATH=" share "/metainfo")))
#:tests? #f))
(home-page "https://docs.opensurge2d.org")
(synopsis "Scripting language for games")
(description "@code{SurgeScript} is a dynamically typed object-oriented
scripting language designed for games. Each object is a state machine that
can be customized by attaching other objects. The language supports automatic
garbage collection and can be extended with plugins.")
(license license:asl2.0)))
(define-public physfs
(package
(name "physfs")

121
gnu/packages/games.scm
View File

@ -798,7 +798,7 @@ automata. The following features are available:
(define-public julius
(package
(name "julius")
(version "1.2.0")
(version "1.3.0")
(source
(origin
(method git-fetch)
@ -807,7 +807,7 @@ automata. The following features are available:
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0kgyzfjii4dhpy2h05977alwdmxyxb4jxznnrhlgb21m0ybncmvp"))))
(base32 "1ws5lmwdhla73676fj0w26v859n47s0wyxa0mgd0dmkx0x91qriy"))))
(build-system cmake-build-system)
(inputs
`(("sdl2" ,sdl2)
@ -856,6 +856,74 @@ 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 opensurge
(package
(name "opensurge")
(version "0.5.1.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/alemart/opensurge.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0ih7hlqjnp9rv0m4lqf7c0s1ai532way5i4pk45jq1gqm8325dbv"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ;there are no tests
#:configure-flags
(let* ((out (assoc-ref %outputs "out"))
(share (string-append out "/share")))
(list (string-append "-DCMAKE_INSTALL_PREFIX=" out "/bin")
(string-append "-DGAME_DATADIR=" share "/" ,name)
(string-append "-DDESKTOP_ENTRY_PATH=" share "/applications")
(string-append "-DDESKTOP_ICON_PATH=" share "/pixmaps")
(string-append "-DDESKTOP_METAINFO_PATH=" share "/metainfo")))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-xdg-open-path
(lambda* (#:key inputs #:allow-other-keys)
;; Look for xdg-open in the store.
(substitute* "src/core/web.c"
(("/usr(/bin/xdg-open)" _ bin)
(string-append (assoc-ref inputs "xdg-utils") bin)))
#t))
(add-after 'unpack 'unbundle-fonts
(lambda* (#:key inputs #:allow-other-keys)
;; Replace bundled Roboto fonts with links to the store.
(with-directory-excursion "fonts"
(let ((roboto-dir (string-append
(assoc-ref inputs "font-google-roboto")
"/share/fonts/truetype/")))
(for-each
(lambda (font)
(delete-file font)
(symlink (string-append roboto-dir font) font))
'("Roboto-Black.ttf" "Roboto-Bold.ttf" "Roboto-Medium.ttf")))
#t))))))
(inputs
`(("allegro" ,allegro)
("font-google-roboto" ,font-google-roboto)
("surgescript" ,surgescript)
("xdg-utils" ,xdg-utils)))
(home-page "https://opensurge2d.org")
(synopsis "2D retro side-scrolling game")
(description "@code{Open Surge} is a 2D retro side-scrolling platformer
inspired by the Sonic games. The player runs at high speeds through each
level while collecting items and avoiding obstacles. The game includes a
built-in level editor.")
(license
;; Code is under GPL 3+, assets are under various licenses.
;; See src/misc/credits.c for details.
(list license:gpl3+
license:cc0
license:cc-by3.0
license:cc-by-sa3.0
license:expat
license:public-domain
license:silofl1.1))))
(define-public knights
(package
(name "knights")
@ -1050,7 +1118,7 @@ watch your CPU playing while enjoying a cup of tea!")
(define-public nethack
(package
(name "nethack")
(version "3.6.4")
(version "3.6.5")
(source
(origin
(method url-fetch)
@ -1058,7 +1126,7 @@ watch your CPU playing while enjoying a cup of tea!")
(string-append "https://www.nethack.org/download/" version "/nethack-"
(string-join (string-split version #\.) "") "-src.tgz"))
(sha256
(base32 "0ndxgnsprwgjnk0qb24iljkpijnfncgvfb3h3zb129h3cs2anc85"))))
(base32 "0xifs8pqfffnmkbpmrcd1xf14yakcj06nl2bbhy4dyacg8myysmv"))))
(inputs
`(("ncurses" ,ncurses)
("bison" ,bison)
@ -1320,7 +1388,7 @@ utilizing the art assets from the @code{SuperTux} project.")
(define-public roguebox-adventures
(package
(name "roguebox-adventures")
(version "2.2.1")
(version "3.0.1")
(source
(origin
(method url-fetch)
@ -1330,7 +1398,7 @@ utilizing the art assets from the @code{SuperTux} project.")
(file-name (string-append name "-" version ".zip"))
(sha256
(base32
"0kmzdgnik8fsf3bg55546l77p3mfxn2awkzfzzdn20n82rd2babw"))))
"05zd03s5w9kcpklfgcggbaa6rwf59nm0q9vcj6gh9v2lh402k067"))))
(build-system python-build-system)
(arguments
`(#:tests? #f ; no check target
@ -1356,6 +1424,9 @@ utilizing the art assets from the @code{SuperTux} project.")
(string-append "'" data "'"))
(("^basic_path.*$")
(string-append "basic_path ='" data "'\n")))
(substitute* "LIB/dialog.py"
(("d_path = os\\.path\\.dirname\\(.*\\)\\)")
(string-append "d_path = '" data "'")))
(substitute* "LIB/gra_files.py"
(("basic_path = b_path\\.replace\\('/LIB',''\\)")
(string-append "basic_path ='" data "'\n")))
@ -2582,7 +2653,7 @@ falling, themeable graphics and sounds, and replays.")
(define-public wesnoth
(package
(name "wesnoth")
(version "1.14.9")
(version "1.14.11")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/wesnoth/wesnoth-"
@ -2591,7 +2662,7 @@ falling, themeable graphics and sounds, and replays.")
"wesnoth-" version ".tar.bz2"))
(sha256
(base32
"1mhdrlflxxyknf54lwdbvs7fazlc1scf7z6vxxa3j746fks533ga"))))
"1i8mz6gw3qar09bscczhki0g4scj8pl58v85rp0g55r4bcq41l5v"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ;no check target
@ -4020,7 +4091,7 @@ colors, pictures, and sounds.")
(inputs
`(("bash" ,bash)
("love" ,love)))
(home-page "http://tangramgames.dk/games/mrrescue")
(home-page "https://tangramgames.dk/games/mrrescue")
(synopsis "Arcade-style fire fighting game")
(description
"Mr. Rescue is an arcade styled 2d action game centered around evacuating
@ -4190,7 +4261,7 @@ for Un*x systems with X11.")
(define-public freeciv
(package
(name "freeciv")
(version "2.6.1")
(version "2.6.2")
(source
(origin
(method url-fetch)
@ -4202,7 +4273,7 @@ for Un*x systems with X11.")
(version-major+minor version) "/" version
"/freeciv-" version ".tar.bz2")))
(sha256
(base32 "1qmrhrwm0ryvsh1zsxcxj128lhyvaxap7k39sam3hh8rl0fq9rnc"))))
(base32 "13vc2xg1cf19rhbnr7k38b56b2hdapqymq5vma1l69kn7hyyz0b1"))))
(build-system gnu-build-system)
(inputs
`(("curl" ,curl)
@ -4723,10 +4794,10 @@ with the mouse isn’t always trivial.")
(synopsis "Abstract puzzle game")
(description "Chroma is an abstract puzzle game. A variety of colourful
shapes are arranged in a series of increasingly complex patterns, forming
fiendish traps that must be disarmed and mysterious puzzles that must be
manipulated in order to give up their subtle secrets. Initially so
straightforward that anyone can pick it up and begin to play, yet gradually
becoming difficult enough to tax even the brightest of minds.")
fiendish traps that must be disarmed and mysterious puzzles that must be
manipulated in order to give up their subtle secrets. Initially so
straightforward that anyone can pick it up and begin to play, yet gradually
becoming difficult enough to tax even the brightest of minds.")
(license license:gpl2+)))
(define-public fillets-ng
@ -8146,23 +8217,15 @@ win.")
(define-public freeorion
(package
(name "freeorion")
(version "0.4.8")
(version "0.4.9")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/freeorion/freeorion.git")
;; Most recent stable release uses boost_signals (v1) which was
;; later replaced with boost-signals2 and no longer exists. This
;; commit builds and runs.
;;
;; TODO: Update this when the next stable release when it is
;; available.
(commit "470d0711537804df3c2ca25532f674ab4bec58af")))
(file-name (git-file-name name version))
(method url-fetch)
(uri (string-append "https://github.com/freeorion/freeorion/releases/"
"download/v" version "/FreeOrion_v" version
"_2020-02-02.db53471_Source.tar.gz"))
(sha256
(base32
"1wsw632l1cj17px6i88nqjzs0dngp5rsr67n6qkkjlfjfxi69j0f"))
(base32 "1qfnqkysagh8dw26plk229qh17mv4prjxs6qhfyczrmrrakb72an"))
(modules '((guix build utils)))
(snippet
'(begin

2
gnu/packages/geo.scm
View File

@ -393,7 +393,7 @@ functionality of proj in their own software.")
#t)))))
(inputs
`(("glib" ,glib)))
(home-page "http://proj4.org/")
(home-page "https://proj.org/")
(synopsis "Cartographic Projections Library")
(description
"Proj.4 is a library for converting coordinates between cartographic

4
gnu/packages/gl.scm
View File

@ -268,7 +268,7 @@ also known as DXTn or DXTC) for Mesa.")
("libxvmc" ,libxvmc)
,@(match (%current-system)
((or "x86_64-linux" "i686-linux")
`(("llvm" ,llvm)))
`(("llvm" ,llvm-8)))
(_
`()))
("makedepend" ,makedepend)
@ -435,7 +435,7 @@ from software emulation to complete hardware acceleration for modern GPUs.")
`(("libclc" ,libclc)
,@(package-inputs mesa)))
(native-inputs
`(("clang" ,clang)
`(("clang" ,clang-8)
,@(package-native-inputs mesa)))))
(define-public mesa-opencl-icd

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

@ -2,6 +2,8 @@
;;; Copyright © 2019 Leo Prikler <leo.prikler@student.tugraz.at>
;;; Copyright © 2019 Alexandros Theodotou <alex@zrythm.org>
;;; Copyright © 2019 Giacomo Leidi <goodoldpaul@autistici.org>
;;; Copyright © 2020 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2020 Jack Hill <jackhill@jackhill.us>
;;;
;;; This file is part of GNU Guix.
;;;
@ -21,6 +23,7 @@
(define-module (gnu packages gnome-xyz)
#:use-module (guix build-system trivial)
#:use-module (guix build-system gnu)
#:use-module (guix build-system copy)
#:use-module (guix git-download)
#:use-module (guix packages)
#:use-module ((guix licenses) #:prefix license:)
@ -304,6 +307,43 @@ It uses ES6 syntax and claims to be more actively maintained than others.")
(home-page "https://extensions.gnome.org/extension/2182/noannoyance/")
(license license:gpl2)))
(define-public gnome-shell-extension-paperwm
(package
(name "gnome-shell-extension-paperwm")
(version "34.3")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/paperwm/PaperWM.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1qry75f696pgmd9yzqvwhq5h6cipin2fvk7h881g29cjcpxim37a"))
(snippet
'(begin (delete-file "schemas/gschemas.compiled")))))
(build-system copy-build-system)
(arguments
'(#:install-plan
'(("." "share/gnome-shell/extensions/paperwm@hedning:matrix.org"
#:include-regexp ("\\.js(on)?$" "\\.css$" "\\.ui$" "\\.png$"
"\\.xml$" "\\.compiled$")))
#:phases
(modify-phases %standard-phases
(add-before 'install 'compile-schemas
(lambda _
(with-directory-excursion "schemas"
(invoke "make"))
#t)))))
(native-inputs
`(("glib:bin" ,glib "bin"))) ; for glib-compile-schemas
(home-page "https://github.com/paperwm/PaperWM")
(synopsis "Tiled scrollable window management for GNOME Shell")
(description "PaperWM is an experimental GNOME Shell extension providing
scrollable tiling of windows and per monitor workspaces. It's inspired by paper
notebooks and tiling window managers.")
(license license:gpl3)))
(define-public numix-theme
(package
(name "numix-theme")

53
gnu/packages/gnome.scm
View File

@ -2181,7 +2181,15 @@ from forcing GEXP-PROMISE."
;; The following crate(s) are needed in addition to the ones replaced:
(begin
(invoke
"tar" "xvf" #+(package-source rust-autocfg-0.1) "-C" "vendor"))
"tar" "xvf" #+(package-source rust-autocfg-0.1) "-C" "vendor")
(invoke
"tar" "xvf" #+(package-source rust-proc-macro2-0.4) "-C" "vendor")
(invoke
"tar" "xvf" #+(package-source rust-quote-0.6) "-C" "vendor")
(invoke
"tar" "xvf" #+(package-source rust-unicode-xid-0.1) "-C" "vendor")
(invoke
"tar" "xvf" #+(package-source rust-maybe-uninit-2.0) "-C" "vendor"))
(for-each
(lambda (crate)
(delete-file-recursively (string-append "vendor/" (car crate)))
@ -2246,7 +2254,7 @@ from forcing GEXP-PROMISE."
;; locale_config 0.3
("log" . #+(package-source rust-log-0.4))
("mac" . #+(package-source rust-mac-0.1))
;; malloc_buf 0.0
("malloc_buf" . #+(package-source rust-malloc-buf-0.0))
;; markup5ever 0.9
("matches" . #+(package-source rust-matches-0.1))
;; matrixmultiply 0.2
@ -2257,12 +2265,12 @@ from forcing GEXP-PROMISE."
("nodrop" . #+(package-source rust-nodrop-0.1))
("num-complex" . #+(package-source rust-num-complex-0.2))
("num-integer" . #+(package-source rust-num-integer-0.1))
;; num-rational 0.2
("num-rational" . #+(package-source rust-num-rational-0.2))
("num-traits" . #+(package-source rust-num-traits-0.2))
("num_cpus" . #+(package-source rust-num-cpus-1.10))
;; objc 0.2
;; objc-foundation 0.1
;; objc_id 0.1
("objc" . #+(package-source rust-objc-0.2))
("objc-foundation" . #+(package-source rust-objc-foundation-0.1))
("objc_id" . #+(package-source rust-objc-id-0.1))
;; pango 0.7
;; pango-sys 0.9
;; pangocairo 0.8
@ -2308,7 +2316,7 @@ from forcing GEXP-PROMISE."
("siphasher" . #+(package-source rust-siphasher-0.2))
("smallvec" . #+(package-source rust-smallvec-0.6))
("string_cache" . #+(package-source rust-string-cache-0.7))
;("string_cache_codegen" . #+(package-source rust-string-cache-codegen-0.4))
("string_cache_codegen" . #+(package-source rust-string-cache-codegen-0.4))
("string_cache_shared" . #+(package-source rust-string-cache-shared-0.3))
("syn" . #+(package-source rust-syn-1.0))
("tendril" . #+(package-source rust-tendril-0.4))
@ -2327,8 +2335,7 @@ from forcing GEXP-PROMISE."
("winapi-i686-pc-windows-gnu" . #+(package-source rust-winapi-i686-pc-windows-gnu-0.4))
("winapi-util" . #+(package-source rust-winapi-util-0.1))
("winapi-x86_64-pc-windows-gnu" . #+(package-source rust-winapi-x86-64-pc-windows-gnu-0.4))
;; xml-rs 0.8
)))
("xml-rs" . #+(package-source rust-xml-rs-0.8)))))
(format #t "Replacing vendored crates in the tarball and repacking ...~%")
(force-output)
(invoke "tar" "cfa" #$output
@ -5330,7 +5337,7 @@ USB transfers with your high-level application or system daemon.")
(define-public simple-scan
(package
(name "simple-scan")
(version "3.34.2")
(version "3.34.4")
(source
(origin
(method url-fetch)
@ -5338,7 +5345,7 @@ USB transfers with your high-level application or system daemon.")
(version-major+minor version) "/"
"simple-scan-" version ".tar.xz"))
(sha256
(base32 "1fk3g4f9slckqfwm576jrjq1d1qihw0dlgzdf00ns7qbhzb0kxsp"))))
(base32 "0xvy672zyl6jsdlnxma8nc2aqsx9k92jhp6wfxs0msj9ppp1nd3z"))))
(build-system meson-build-system)
;; TODO: Fix icons in home screen, About dialogue, and scan menu.
(arguments
@ -7906,7 +7913,29 @@ world.")
("yelp" ,yelp)
;; Others
("hicolor-icon-theme" ,hicolor-icon-theme)
("gnome-online-accounts" ,gnome-online-accounts)))
("gnome-online-accounts" ,gnome-online-accounts)
;; Packages not part of GNOME proper but that are needed for a good
;; experience. See <https://bugs.gnu.org/39646>.
;; XXX: Find out exactly which ones are needed and why.
("font-cantarell" ,font-cantarell)
("font-dejavu" ,font-dejavu)
("at-spi2-core" ,at-spi2-core)
("dbus" ,dbus)
("dconf" ,dconf)
("desktop-file-utils" ,desktop-file-utils)
("gnome-default-applications" ,gnome-default-applications)
("gnome-themes-standard" ,gnome-themes-standard)
("gst-plugins-base" ,gst-plugins-base)
("gst-plugins-good" ,gst-plugins-good)
("gucharmap" ,gucharmap)
("pinentry-gnome3" ,pinentry-gnome3)
("pulseaudio" ,pulseaudio)
("shared-mime-info" ,shared-mime-info)
("system-config-printer" ,system-config-printer)
("xdg-user-dirs" ,xdg-user-dirs)
("yelp" ,yelp)
("zenity" ,zenity)))
(synopsis "The GNU desktop environment")
(home-page "https://www.gnome.org/")
(description

6
gnu/packages/gnunet.scm
View File

@ -6,7 +6,7 @@
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016, 2017, 2018, 2019 ng0 <ng0@n0.is>
;;; Copyright © 2016, 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2019 Brett Gilio <brettg@gnu.org>
;;;
@ -150,14 +150,14 @@ tool to extract metadata from a file and print the results.")
(define-public libmicrohttpd
(package
(name "libmicrohttpd")
(version "0.9.69")
(version "0.9.70")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/libmicrohttpd/libmicrohttpd-"
version ".tar.gz"))
(sha256
(base32
"0zp34zgcahym5kp2r83gfb5wnr8yf643a26k6zk96x3qica6p6zv"))))
"01vkjy89b1ylmh22dy5yza2r414nfwcfixxh3v29nvzrjv9s7l4h"))))
(build-system gnu-build-system)
(inputs
`(("curl" ,curl)

16
gnu/packages/gnupg.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2014, 2018 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2015, 2016, 2017, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org>
;;; Copyright © 2016, 2017 ng0 <ng0@n0.is>
@ -466,7 +466,7 @@ gpgpme starting with version 1.7.")
(sha256
(base32
"0n232iyayc46f7hywmjw0jr7pbmmz5h4b04jskhkzz9gxz0ci99c"))
(file-name (string-append name "-" version "-checkout"))))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
@ -1090,15 +1090,17 @@ over.")
(define-public jetring
(package
(name "jetring")
(version "0.27")
(version "0.29")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://debian/pool/main/j/" name "/"
name "_" version ".tar.xz"))
(method git-fetch)
(uri (git-reference
(url "https://salsa.debian.org/debian/jetring")
(commit (string-append "debian/" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0jy0x5zj7v87xgyldlsx1knzp0mv10wzamblrw1b61i2m1ii4pxz"))))
"1acbx2vnbkms1c0wgcnh05d4g359sg5z0aiw541vx2qq9sgdhlv6"))))
(build-system gnu-build-system)
(arguments
'(#:phases

6
gnu/packages/gnustep.scm
View File

@ -179,7 +179,7 @@ interface. It is fast, feature rich, easy to configure, and easy to use.")
`(("autoconf" ,autoconf)
("automake" ,automake)
("pkg-config" ,pkg-config)))
(home-page "http://www.dockapps.net/wmbattery")
(home-page "https://www.dockapps.net/wmbattery")
(synopsis "Display laptop battery info")
(description
"Wmbattery displays the status of your laptop's battery in a small icon.
@ -233,7 +233,7 @@ other compatible window managers.")
("libxpm" ,libxpm)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "http://www.dockapps.net/wmcpuload")
(home-page "https://www.dockapps.net/wmcpuload")
(synopsis "Monitor CPU usage")
(description
"Wmcpuload displays the current CPU usage, expressed as a percentile and a
@ -265,7 +265,7 @@ on.")
`(("autoconf" ,autoconf)
("automake" ,automake)
("pkg-config" ,pkg-config)))
(home-page "http://www.dockapps.net/wmclock")
(home-page "https://www.dockapps.net/wmclock")
(synopsis "Display the date and time")
(description
"wmclock is an applet for Window Maker which displays the date and time in

33
gnu/packages/graph.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018 Joshua Sierles, Nextjournal <joshua@nextjournal.com>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
@ -56,15 +56,15 @@
(define-public igraph
(package
(name "igraph")
(version "0.7.1")
(version "0.8.0")
(source
(origin
(method url-fetch)
(uri (string-append "http://igraph.org/nightly/get/c/igraph-"
version ".tar.gz"))
(uri (string-append "https://github.com/igraph/igraph/releases/"
"download/" version "/igraph-" version ".tar.gz"))
(sha256
(base32
"1pxh8sdlirgvbvsw8v65h6prn7hlm45bfsl1yfcgd6rn4w706y6r"))))
"0jcnfvahrlj08y46vnax5y5bb294v4b9n00qsy7pbx0cc0sp6qvj"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -90,20 +90,35 @@ more.")
(define-public python-igraph
(package (inherit igraph)
(name "python-igraph")
(version "0.7.1.post6")
(version "0.8.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "python-igraph" version))
(sha256
(base32
"0xp61zz710qlzhmzbfr65d5flvsi8zf2xy78s6rsszh719wl5sm5"))))
"13mbrlmnbgbzw6y8ws7wj0a3ly3in8j4l1ngi6yxvgvxxi4bprj7"))))
(build-system python-build-system)
(arguments '())
(arguments
'(#:configure-flags
(list "--use-pkg-config")
#:phases
(modify-phases %standard-phases
(replace 'build
(lambda _
(invoke "python" "./setup.py" "build" "--use-pkg-config")))
(delete 'check)
(add-after 'install 'check
(lambda* (#:key inputs outputs #:allow-other-keys)
(add-installed-pythonpath inputs outputs)
(invoke "pytest" "-v"))))))
(inputs
`(("igraph" ,igraph)))
(propagated-inputs
`(("python-texttable" ,python-texttable)))
(native-inputs
`(("pkg-config" ,pkg-config)))
`(("pkg-config" ,pkg-config)
("python-pytest" ,python-pytest)))
(home-page "http://pypi.python.org/pypi/python-igraph")
(synopsis "Python bindings for the igraph network analysis library")))

116
gnu/packages/graphics.scm
View File

@ -88,14 +88,14 @@
(define-public blender
(package
(name "blender")
(version "2.81a")
(version "2.82")
(source (origin
(method url-fetch)
(uri (string-append "https://download.blender.org/source/"
"blender-" version ".tar.xz"))
(sha256
(base32
"1zl0ar95qkxsrbqw9miz2hrjijlqjl06vg3clfk9rm7krr2l3b2j"))))
"0rgw8nilvn6k6r7p28y2l1rwpami1cc8xz473jaahn7wa4ndyah0"))))
(build-system cmake-build-system)
(arguments
(let ((python-version (version-major+minor (package-version python))))
@ -127,11 +127,11 @@
(modify-phases %standard-phases
;; XXX This file doesn't exist in the Git sources but will probably
;; exist in the eventual 2.80 source tarball.
; (add-after 'unpack 'fix-broken-import
; (lambda _
; (substitute* "release/scripts/addons/io_scene_fbx/json2fbx.py"
; (("import encode_bin") "from . import encode_bin"))
; #t))
(add-after 'unpack 'fix-broken-import
(lambda _
(substitute* "release/scripts/addons/io_scene_fbx/json2fbx.py"
(("import encode_bin") "from . import encode_bin"))
#t))
(add-after 'set-paths 'add-ilmbase-include-path
(lambda* (#:key inputs #:allow-other-keys)
;; OpenEXR propagates ilmbase, but its include files do not appear
@ -176,95 +176,6 @@ compositing and motion tracking, even video editing and game creation. The
application can be customized via its API for Python scripting.")
(license license:gpl2+)))
(define-public blender-2.79
(package
(name "blender")
(version "2.79b")
(source (origin
(method url-fetch)
(uri (string-append "https://download.blender.org/source/"
"blender-" version ".tar.gz"))
(sha256
(base32
"1g4kcdqmf67srzhi3hkdnr4z1ph4h9sza1pahz38mrj998q4r52c"))
(patches (search-patches "blender-2.79-newer-ffmpeg.patch"
"blender-2.79-python-3.7-fix.patch"))))
(build-system cmake-build-system)
(arguments
(let ((python-version (version-major+minor (package-version python))))
`(;; Test files are very large and not included in the release tarball.
#:tests? #f
#:configure-flags
(list "-DWITH_CODEC_FFMPEG=ON"
"-DWITH_CODEC_SNDFILE=ON"
"-DWITH_CYCLES=ON"
"-DWITH_DOC_MANPAGE=ON"
"-DWITH_FFTW3=ON"
"-DWITH_GAMEENGINE=ON"
"-DWITH_IMAGE_OPENJPEG=ON"
"-DWITH_INPUT_NDOF=ON"
"-DWITH_INSTALL_PORTABLE=OFF"
"-DWITH_JACK=ON"
"-DWITH_MOD_OCEANSIM=ON"
"-DWITH_PLAYER=ON"
"-DWITH_PYTHON_INSTALL=OFF"
"-DWITH_PYTHON_INSTALL=OFF"
"-DWITH_SYSTEM_OPENJPEG=ON"
(string-append "-DPYTHON_LIBRARY=python" ,python-version "m")
(string-append "-DPYTHON_LIBPATH=" (assoc-ref %build-inputs "python")
"/lib")
(string-append "-DPYTHON_INCLUDE_DIR=" (assoc-ref %build-inputs "python")
"/include/python" ,python-version "m")
(string-append "-DPYTHON_VERSION=" ,python-version))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-broken-import
(lambda _
(substitute* "release/scripts/addons/io_scene_fbx/json2fbx.py"
(("import encode_bin") "from . import encode_bin"))
#t))
(add-after 'set-paths 'add-ilmbase-include-path
(lambda* (#:key inputs #:allow-other-keys)
;; OpenEXR propagates ilmbase, but its include files do not appear
;; in the CPATH, so we need to add "$ilmbase/include/OpenEXR/" to
;; the CPATH to satisfy the dependency on "half.h".
(setenv "CPATH"
(string-append (assoc-ref inputs "ilmbase")
"/include/OpenEXR"
":" (or (getenv "CPATH") "")))
#t))))))
(inputs
`(("boost" ,boost)
("jemalloc" ,jemalloc)
("libx11" ,libx11)
("openimageio" ,openimageio-1.7)
("openexr" ,openexr)
("ilmbase" ,ilmbase)
("openjpeg" ,openjpeg-1)
("libjpeg" ,libjpeg)
("libpng" ,libpng)
("libtiff" ,libtiff)
("ffmpeg" ,ffmpeg)
("fftw" ,fftw)
("jack" ,jack-1)
("libsndfile" ,libsndfile)
("freetype" ,freetype)
("glew" ,glew)
("openal" ,openal)
("python" ,python)
("zlib" ,zlib)))
(home-page "https://blender.org/")
(synopsis "3D graphics creation suite")
(description
"Blender is a 3D graphics creation suite. It supports the entirety of
the 3D pipeline—modeling, rigging, animation, simulation, rendering,
compositing and motion tracking, even video editing and game creation. The
application can be customized via its API for Python scripting.
NOTE: This older version of Blender is the last release that does not require
OpenGL 3. It is retained for use with older computers.")
(license license:gpl2+)))
(define-public assimp
(package
(name "assimp")
@ -530,7 +441,7 @@ visual effects work for film.")
(define-public openscenegraph
(package
(name "openscenegraph")
(version "3.6.4")
(version "3.6.5")
(source
(origin
(method git-fetch)
@ -538,14 +449,13 @@ visual effects work for film.")
(url "https://github.com/openscenegraph/OpenSceneGraph")
(commit (string-append "OpenSceneGraph-" version))))
(sha256
(base32
"0x8hdbzw0b71j91fzp9cwmy9a7ava8v8wwyj8nxijq942vdx1785"))
(base32 "00i14h82qg3xzcyd8p02wrarnmby3aiwmz0z43l50byc9f8i05n1"))
(file-name (git-file-name name version))))
(properties
`((upstream-name . "OpenSceneGraph")))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ; no test target available
`(#:tests? #f ; no test target available
;; Without this flag, 'rd' will be added to the name of the
;; library binaries and break linking with other programs.
#:build-type "Release"
@ -558,15 +468,15 @@ visual effects work for film.")
("unzip" ,unzip)))
(inputs
`(("giflib" ,giflib)
("libjpeg" ,libjpeg) ; Required for the JPEG texture plugin.
("libjpeg" ,libjpeg) ; required by the JPEG texture plugin
("jasper" ,jasper)
("librsvg" ,librsvg)
("libxrandr" ,libxrandr)
("ffmpeg" ,ffmpeg)
("mesa" ,mesa)))
(synopsis "High performance real-time graphics toolkit")
(synopsis "High-performance real-time graphics toolkit")
(description
"The OpenSceneGraph is a high performance 3D graphics toolkit
"The OpenSceneGraph is a high-performance 3D graphics toolkit
used by application developers in fields such as visual simulation, games,
virtual reality, scientific visualization and modeling.")
(home-page "http://www.openscenegraph.org")

2
gnu/packages/gtk.scm
View File

@ -986,7 +986,7 @@ images onto Cairo surfaces.")
`(("guile-lib" ,guile-lib)
("guile-cairo" ,guile-cairo)
("guile-rsvg" ,guile-rsvg)))
(home-page "http://wingolog.org/software/guile-present/")
(home-page "https://wingolog.org/software/guile-present/")
(synopsis "Create SVG or PDF presentations in Guile")
(description
"Guile-Present defines a declarative vocabulary for presentations,

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

@ -2960,18 +2960,17 @@ tests being run, resulting clearer and more specific output.")
(define-public guile-semver
(package
(name "guile-semver")
(version "0.1.0")
(version "0.1.1")
(source (origin
(method url-fetch)
(uri (string-append "https://files.ngyro.com/guile-semver/"
"guile-semver-" version ".tar.gz"))
(sha256
(base32
"06b66rj7nyhr6i3dpkwvfw1xb10w2pngrsw2hxfxkznwsbh9byfz"))))
"109p4n39ln44cxvwdccf9kgb96qx54makvd2ir521ssz6wchjyag"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
("srfi-64-driver" ,srfi-64-driver)))
`(("pkg-config" ,pkg-config)))
(inputs
`(("guile" ,guile-2.2)))
(home-page "https://ngyro.com/software/guile-semver.html")
@ -3038,3 +3037,75 @@ SHA-512).")
(name "guile3.0-hashing")
(native-inputs
`(("guile" ,guile-next)))))
(define-public guile-webutils
(let ((commit "8541904f761066dc9c27b1153e9a838be9a55299")
(revision "0"))
(package
(name "guile-webutils")
(version (git-version "0.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://notabug.org/cwebber/guile-webutils.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1s9n3hbxd7lfpdi0x8wr0cfvlsf6g62ird9gbspxdrp5p05rbi64"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("pkg-config" ,pkg-config)
("texinfo" ,texinfo)))
(inputs
`(("guile" ,guile-2.2)))
(propagated-inputs
`(("guile-irregex" ,guile-irregex)
("guile-gcrypt" ,guile-gcrypt)))
(home-page "https://notabug.org/cwebber/guile-webutils")
(synopsis "Web application authoring utilities for Guile")
(description
"This package provides tooling to write web applications in Guile, such
as signed sessions, multipart message support, etc.")
(license license:gpl3+))))
(define-public guile-lens
(let ((commit "14b15d07255f9d3f55d40a3b750d13c9ee3a154f")
(revision "0"))
(package
(name "guile-lens")
(version (git-version "0.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/a-sassmannshausen/guile-lens.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0w8jzqyla56yrgj7acsgd4nspyir6zgp3vgxid4xmwhg9wmf1ida"))))
(build-system gnu-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'run-hall
(lambda _
(setenv "HOME" "/tmp") ; for ~/.hall
(invoke "hall" "dist" "-x"))))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("guile" ,guile-2.2)
("guile-hall" ,guile-hall)
("pkg-config" ,pkg-config)
("texinfo" ,texinfo)))
(home-page "https://gitlab.com/a-sassmannshausen/guile-lens.git")
(synopsis "Composable lenses for data structures in Guile")
(description
"Guile-Lens is a library implementing lenses in Guile. The library is
currently a re-implementation of the lentes library for Clojure. Lenses
provide composable procedures, which can be used to focus, apply functions
over, or update a value in arbitrary data structures.")
(license license:gpl3+))))

4
gnu/packages/guile.scm
View File

@ -654,7 +654,9 @@ type system, elevating types to first-class status.")
"0c5i3d16hp7gp9rd78vk9zc45js8bphf92m4lbb5gyi4l1yl7kkm"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
`(("pkg-config" ,pkg-config)
("guile" ,guile-2.2)
("guile-bytestructures" ,guile-bytestructures)))
(inputs
`(("guile" ,guile-2.2)
("libgit2" ,libgit2)))

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

@ -113,8 +113,7 @@ installation of Haskell libraries and programs.")
(uri (git-reference
(url "https://github.com/jameysharp/corrode.git")
(commit "b6699fb2fa552a07c6091276285a44133e5c9789")))
(file-name
(string-append name "-" version "-checkout"))
(file-name (git-file-name name version))
(sha256
(base32 "02v0yyj6sk4gpg2222wzsdqjxn8w66scbnf6b20x0kbmc69qcz4r"))))
(build-system haskell-build-system)
@ -270,14 +269,14 @@ unique algebra of patches called @url{http://darcs.net/Theory,Patchtheory}.
(define-public git-annex
(package
(name "git-annex")
(version "7.20200202.7")
(version "7.20200219")
(source
(origin
(method url-fetch)
(uri (string-append "https://hackage.haskell.org/package/"
"git-annex/git-annex-" version ".tar.gz"))
(sha256
(base32 "1dj1ss7kp82wa0ybilhl88q6w49rj70qh61k2q8qfyx4ghliiigh"))))
(base32 "0pzwjh98jpirgssbd7pqfk7mzraibrk277dn34s2mrah8zy75b58"))))
(build-system haskell-build-system)
(arguments
`(#:configure-flags
@ -442,7 +441,7 @@ used to keep a folder in sync between computers.")
("ghc-aeson" ,ghc-aeson)
("ghc-lib-parser" ,ghc-lib-parser)
("hscolour" ,hscolour)))
(home-page "http://community.haskell.org/~ndm/hlint/")
(home-page "https://github.com/ndmitchell/hlint")
(synopsis "Suggest improvements for Haskell source code")
(description "HLint reads Haskell programs and suggests changes that
hopefully make them easier to read. HLint also makes it easy to disable

2
gnu/packages/haskell-crypto.scm
View File

@ -827,7 +827,7 @@ implementation of SSL.")
`(("ghc-hunit" ,ghc-hunit)
("ghc-test-framework" ,ghc-test-framework)
("ghc-test-framework-hunit" ,ghc-test-framework-hunit)))
(home-page "http://hackage.haskell.org/package/openssl-streams")
(home-page "https://hackage.haskell.org/package/openssl-streams")
(synopsis "OpenSSL network support for io-streams")
(description "This library contains io-streams routines for secure
networking using OpenSSL (by way of HsOpenSSL).")

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

@ -52,7 +52,7 @@
(build-system haskell-build-system)
(native-inputs
`(("ghc-quickcheck" ,ghc-quickcheck)))
(home-page "http://community.haskell.org/~ndm/tagsoup/")
(home-page "https://github.com/ndmitchell/tagsoup")
(synopsis
"Parsing and extracting information from (possibly malformed) HTML/XML
documents")
@ -620,7 +620,7 @@ based WAI (Web Application Interface in Haskell).")
("ghc-clock" ,ghc-clock)
("ghc-psqueues" ,ghc-psqueues)
("ghc-tls" ,ghc-tls)))
(home-page "http://hackage.haskell.org/package/tls-session-manager")
(home-page "https://hackage.haskell.org/package/tls-session-manager")
(synopsis "In-memory TLS session manager")
(description "This Haskell library provides a TLS session manager with
limitation, automatic pruning, energy saving and replay resistance.")

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

@ -790,7 +790,7 @@ pragmas in your code.")
(arguments
`(#:cabal-revision
("1" "15sn2qc8k0hxbb2nai341kkrci98hlhzcj2ci087m0zxcg5jcdbp")))
(home-page "http://hackage.haskell.org/package/base-compat-batteries")
(home-page "https://hackage.haskell.org/package/base-compat-batteries")
(synopsis "base-compat with extra batteries")
(description "This library provides functions available in later
versions of @code{base} to a wider range of compilers, without requiring
@ -3577,7 +3577,7 @@ Double.")
`(("ghc-quickcheck" ,ghc-quickcheck)
("ghc-hspec" ,ghc-hspec)
("hspec-discover" ,hspec-discover)))
(home-page "http://hackage.haskell.org/package/errorcall-eq-instance")
(home-page "https://hackage.haskell.org/package/errorcall-eq-instance")
(synopsis "Orphan Eq instance for ErrorCall")
(description
"Prior to @code{base-4.7.0.0} there was no @code{Eq} instance for @code{ErrorCall}.
@ -3693,7 +3693,7 @@ generated SQL and optimize it for your backend.")
("ghc-silently" ,ghc-silently)
("ghc-filemanip" ,ghc-filemanip)))
(home-page
"http://hackage.haskell.org/package/ghc-exactprint")
"https://hackage.haskell.org/package/ghc-exactprint")
(synopsis "ExactPrint for GHC")
(description
"Using the API Annotations available from GHC 7.10.2, this library
@ -4018,7 +4018,7 @@ file contents, and more.")
(build-system haskell-build-system)
(native-inputs
`(("ghc-quickcheck" ,ghc-quickcheck)))
(home-page "http://hackage.haskell.org/package/filepath-bytestring")
(home-page "https://hackage.haskell.org/package/filepath-bytestring")
(synopsis "Library for manipulating RawFilePaths in a cross-platform way")
(description "This package provides a drop-in replacement for the standard
@code{filepath} library, operating on @code{RawFilePath} values rather than
@ -5056,7 +5056,7 @@ a set of wrappers to use the hash tables in the IO monad.")
(sha256
(base32 "1wyxd8x33x4v5vxyzkhm610pl86gbkc8y439092fr1735q9g7kfq"))))
(build-system haskell-build-system)
(home-page "http://hackage.haskell.org/package/haskell-lexer")
(home-page "https://hackage.haskell.org/package/haskell-lexer")
(synopsis "Fully compliant Haskell 98 lexer")
(description
"This package provides a fully compliant Haskell 98 lexer.")
@ -5792,7 +5792,7 @@ for general types.")
(base32
"1kfx1bwfjczj93a8yqz1n8snqiq5655qgzwv1lrycry8wb1vzlwa"))))
(build-system haskell-build-system)
(home-page "http://hackage.haskell.org/package/IfElse")
(home-page "https://hackage.haskell.org/package/IfElse")
(synopsis "Monadic control flow with anaphoric variants")
(description "This library provides functions for control flow inside of
monads with anaphoric variants on @code{if} and @code{when} and a C-like
@ -5845,7 +5845,7 @@ lines continued at an indented level below.")
(native-inputs
`(("ghc-hspec" ,ghc-hspec)
("hspec-discover" ,hspec-discover)))
(home-page "http://hackage.haskell.org/package/infer-license")
(home-page "https://hackage.haskell.org/package/infer-license")
(synopsis "Infer software license from a given license file")
(description "This library provides tools to infer a software
license from a given license file.")
@ -5876,7 +5876,7 @@ license from a given license file.")
("ghc-hspec" ,ghc-hspec)
("ghc-raw-strings-qq" ,ghc-raw-strings-qq)
("ghc-regex-posix" ,ghc-regex-posix)))
(home-page "http://hackage.haskell.org/package/inline-c")
(home-page "https://hackage.haskell.org/package/inline-c")
(synopsis "Write Haskell source files including C code inline")
(description
"inline-c lets you seamlessly call C libraries and embed high-performance
@ -6100,7 +6100,7 @@ functors). For more information, see Edward Kmett's article
("ghc-test-framework-hunit" ,ghc-test-framework-hunit)
("ghc-test-framework-quickcheck2" ,ghc-test-framework-quickcheck2)
("ghc-zlib" ,ghc-zlib)))
(home-page "http://hackage.haskell.org/package/io-streams")
(home-page "https://hackage.haskell.org/package/io-streams")
(synopsis "Simple and composable stream I/O")
(description "This library contains simple and easy-to-use
primitives for I/O using streams.")
@ -6341,7 +6341,7 @@ and a large set of GNU extensions.")
`(#:tests? #f
#:cabal-revision
("1" "10ac9pk4jy75k03j1ns4b5136l4kw8krr2d2nw2fdmpm5jzyghc5")))
(home-page "http://hackage.haskell.org/package/language-glsl")
(home-page "https://hackage.haskell.org/package/language-glsl")
(synopsis "GLSL abstract syntax tree, parser, and pretty-printer")
(description "This package is a Haskell library for the
representation, parsing, and pretty-printing of GLSL 1.50 code.")
@ -6445,7 +6445,7 @@ indexed variants.")
(build-system haskell-build-system)
(native-inputs `(("pkg-config" ,pkg-config)))
(inputs `(("libffi" ,libffi)))
(home-page "http://hackage.haskell.org/package/libffi")
(home-page "https://hackage.haskell.org/package/libffi")
(synopsis "Haskell binding to libffi")
(description
"A binding to libffi, allowing C functions of types only known at runtime
@ -6899,7 +6899,7 @@ compression algorithm used in the @code{.xz} file format.")
(base32
"10p0gjjjwr1dda7hahwrwn5njbfhl67arq3v3nf1jr3vymlkn75j"))))
(build-system haskell-build-system)
(home-page "http://hackage.haskell.org/package/magic")
(home-page "https://hackage.haskell.org/package/magic")
(synopsis "Interface to C file/magic library")
(description
"This package provides a full-featured binding to the C libmagic library.
@ -7786,7 +7786,7 @@ network database (<netdb.h>) API.")
(build-system haskell-build-system)
(native-inputs
`(("ghc-doctest" ,ghc-doctest)))
(home-page "http://hackage.haskell.org/package/network-byte-order")
(home-page "https://hackage.haskell.org/package/network-byte-order")
(synopsis "Network byte order utilities")
(description "This library provides peek and poke functions for network
byte order.")
@ -8568,7 +8568,7 @@ the parsers provided by @code{parsec}, @code{attoparsec} and @code{base}'s
("ghc-hspec" ,ghc-hspec)
("ghc-validity" ,ghc-validity)))
(home-page
"http://hackage.haskell.org/package/path")
"https://hackage.haskell.org/package/path")
(synopsis "Support for well-typed paths")
(description "This package introduces a type for paths upholding useful
invariants.")
@ -8851,7 +8851,7 @@ dependencies
"16xsrzqql7i4z6a3xy07sqnbyqdmcar1jiacla58y4mvkkwb0g3l"))))
(build-system haskell-build-system)
(home-page
"http://hackage.haskell.org/package/pointedlist")
"https://hackage.haskell.org/package/pointedlist")
(synopsis
"Zipper-like comonad which works as a list, tracking a position")
(description
@ -8946,7 +8946,7 @@ reduce @code{UndecidableInstances}.")
(base32
"11l9ajci7nh1r547hx8hgxrhq8mh5gdq30pdf845wvilg9p48dz5"))))
(build-system haskell-build-system)
(home-page "http://hackage.haskell.org/package/prettyclass")
(home-page "https://hackage.haskell.org/package/prettyclass")
(synopsis "Pretty printing class similar to Show")
(description "This package provides a pretty printing class similar
to @code{Show}, based on the HughesPJ pretty printing library. It
@ -9313,7 +9313,7 @@ containers and a general map/reduce framework for Haskell.")
(base32
"0v0zxcx29b8jxs2kgy9csykqcp8kzhdvyylw2xfwmj4pfxr2kl0a"))))
(build-system haskell-build-system)
(home-page "http://hackage.haskell.org/package/refact")
(home-page "https://hackage.haskell.org/package/refact")
(synopsis "Specify refactorings to perform with apply-refact")
(description
"This library provides a datatype which can be interpreted by
@ -9581,7 +9581,7 @@ inspired by libtre.")
`(("ghc-regex-base" ,ghc-regex-base)
("ghc-regex-tdfa" ,ghc-regex-tdfa)))
(home-page
"http://hackage.haskell.org/package/regex-tdfa-text")
"https://hackage.haskell.org/package/regex-tdfa-text")
(synopsis "Text interface for regex-tdfa")
(description
"This provides an extra text interface for regex-tdfa.")
@ -10098,7 +10098,7 @@ programming.")
("sdl2-image" ,sdl2-image)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "http://hackage.haskell.org/package/sdl2-image")
(home-page "https://hackage.haskell.org/package/sdl2-image")
(synopsis "Bindings to SDL2_image")
(description "This package provides Haskell bindings to
@code{SDL2_image}.")
@ -10126,7 +10126,7 @@ programming.")
("sdl2-mixer" ,sdl2-mixer)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "http://hackage.haskell.org/package/sdl2-mixer")
(home-page "https://hackage.haskell.org/package/sdl2-mixer")
(synopsis "Bindings to SDL2 mixer")
(description "This package provides Haskell bindings to
@code{SDL2_mixer}.")
@ -10630,7 +10630,7 @@ automatically by SmallCheck.")
(base32
"07ci2mh8cbjvipb576rxsj3iyhkj5c5dnsns4xkdppp2p3pv10d3"))))
(build-system haskell-build-system)
(home-page "http://hackage.haskell.org/package/sop-core")
(home-page "https://hackage.haskell.org/package/sop-core")
(synopsis "True Sums of Products")
(description "This package provides an implementation of
@math{n}-ary sums and @math{n}-ary products. The module @code{Data.SOP}
@ -10689,7 +10689,7 @@ mainstream languages.")
("ghc-base-compat-batteries" ,ghc-base-compat-batteries)
("ghc-tf-random" ,ghc-tf-random)
("ghc-vector" ,ghc-vector)))
(home-page "http://hackage.haskell.org/package/splitmix")
(home-page "https://hackage.haskell.org/package/splitmix")
(synopsis "Fast and splittable pseudorandom number generator")
(description "This package provides a Pure Haskell implementation of the
SplitMix pseudorandom number generator. SplitMix is a \"splittable\"
@ -11084,7 +11084,7 @@ literals.")
(build-system haskell-build-system)
(native-inputs
`(("ghc-hunit" ,ghc-hunit)))
(home-page "http://hackage.haskell.org/package/string-qq")
(home-page "https://hackage.haskell.org/package/string-qq")
(synopsis
"QuasiQuoter for non-interpolated strings, texts and bytestrings.")
(description
@ -12213,7 +12213,7 @@ upon it.")
#:cabal-revision
("1"
"09pqi867wskwgc5lpn197f895mbn1174ydgllvcppcsmrz2b6yr6")))
(home-page "http://hackage.haskell.org/package/unagi-chan")
(home-page "https://hackage.haskell.org/package/unagi-chan")
(synopsis "Fast concurrent queues with a Chan-like API, and more")
(description
"This library provides implementations of concurrent FIFO queues (for
@ -13224,7 +13224,7 @@ parts.")
(base32
"0g814lj7vaxvib2g3r734221k80k7ap9czv9hinifn8syals3l9j"))))
(build-system haskell-build-system)
(home-page "http://code.galois.com")
(home-page "https://github.com/GaloisInc/xml")
(synopsis "Simple XML library for Haskell")
(description "This package provides a simple XML library for Haskell.")
(license license:bsd-3)))

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

@ -7,7 +7,7 @@
;;; Copyright © 2017 ng0 <ng0@n0.is>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2017 nee <nee-git@hidamari.blue>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2019 Guy Fleury Iteriteka <hoonandon@gmail.com>
@ -216,7 +216,7 @@ It is the default image viewer on LXDE desktop environment.")
(define-public sxiv
(package
(name "sxiv")
(version "25")
(version "26")
(source (origin
(method git-fetch)
(uri (git-reference
@ -225,15 +225,15 @@ It is the default image viewer on LXDE desktop environment.")
(file-name (git-file-name name version))
(sha256
(base32
"13s1lfar142hq1j7xld0ri616p4bqs57b17yr4d0b9a9w7liz4hp"))))
"0xaawlfdy7b277m38mgg4423kd7p1ffn0dq4hciqs6ivbb3q9c4f"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no check target
#:make-flags
(list (string-append "PREFIX=" %output)
"CC=gcc"
;; Xft.h #includes <ft2build.h> (without ‘freetype2/’). The sxiv
;; Makefile works around this by hard-coding /usr/include instead.
;; Xft.h #includes <ft2build.h> without ‘freetype2/’. The Makefile
;; works around this by hard-coding /usr/include & $PREFIX.
(string-append "CPPFLAGS=-I"
(assoc-ref %build-inputs "freetype")
"/include/freetype2")

3
gnu/packages/image.scm
View File

@ -1009,6 +1009,9 @@ graphics image formats like PNG, BMP, JPEG, TIFF and others.")
(sha256 (base32
"1bqs8vx5i1bzamvv563i24gx2xxdidqyxh9iaj46mbznhc84wmm5"))))
(build-system cmake-build-system)
;; Otherwise it fails on <ci.guix.gnu.org> in the check phase after 3600
;; seconds of silence.
(properties '((max-silent-time . 7200)))
(inputs
`(("boost" ,boost)
("fftw" ,fftw)

4
gnu/packages/ipfs.scm
View File

@ -212,7 +212,7 @@ written in Go.")
(define-public go-ipfs
(package
(name "go-ipfs")
(version "0.4.22")
(version "0.4.23")
(source
(origin
(method url-fetch/tarbomb)
@ -220,7 +220,7 @@ written in Go.")
"https://dist.ipfs.io/go-ipfs/v" version
"/go-ipfs-source.tar.gz"))
(sha256
(base32 "1gyz9yqb4y7p6vdjbcm66nvm6gjs4mdrjygdn79z3misv1pb5nkg"))
(base32 "191ir4h6c76xcnbwx9fj8j2lzzqyp10inmqd8sa393b5y0jmhi5a"))
(file-name (string-append name "-" version "-source"))))
(build-system go-build-system)
(arguments

38
gnu/packages/irc.scm
View File

@ -2,10 +2,10 @@
;;; Copyright © 2013 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2014 Kevin Lemonnier <lemonnierk@ulrar.net>
;;; Copyright © 2015, 2017 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 ng0 <ng0@n0.is>
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;;
;;; This file is part of GNU Guix.
@ -170,36 +170,40 @@ SILC and ICB protocols via plugins.")
(define-public weechat
(package
(name "weechat")
(version "2.6")
(version "2.7.1")
(source (origin
(method url-fetch)
(uri (string-append "https://weechat.org/files/src/weechat-"
version ".tar.xz"))
(sha256
(base32
"0j2iflnfvv31q2l9r67r8aj3ipggqfm2r2dpy7pvdpxgwwq337ps"))))
"0haw0c35mf4r47j24issc9caq0da3fy7gjfq3454fm3ap3n2yxcx"))))
(build-system cmake-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("pkg-config" ,pkg-config)
;; For tests.
("cpputest" ,cpputest)))
(inputs `(("ncurses" ,ncurses)
("libgcrypt" ,libgcrypt "out")
("zlib" ,zlib)
("aspell" ,aspell)
("curl" ,curl)
("gnutls" ,gnutls)
(inputs
`(("aspell" ,aspell)
("curl" ,curl)
("gnutls" ,gnutls)
("libgcrypt" ,libgcrypt "out")
("ncurses" ,ncurses)
("zlib" ,zlib)
;; Scripting language plug-ins.
("guile" ,guile-2.0)
("lua" ,lua-5.1)
("python" ,python)
("perl" ,perl)
("tcl" ,tcl)))
;; Scripting language plug-ins.
("guile" ,guile-2.2)
("lua" ,lua-5.1)
("perl" ,perl)
("python" ,python)
("tcl" ,tcl)))
(arguments
`(#:configure-flags
(list "-DENABLE_TESTS=ON") ; ‘make test’ fails otherwise
(list "-DENABLE_JAVASCRIPT=OFF"
"-DENABLE_PHP=OFF"
"-DENABLE_RUBY=OFF"
"-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)))

6
gnu/packages/java.scm
View File

@ -3578,7 +3578,7 @@ cli/shell/BourneShell.java"
(native-inputs
`(("java-hamcrest-core" ,java-hamcrest-core)
("java-junit" ,java-junit)))
(home-page "http://codehaus-plexus.github.io/plexus-utils/")
(home-page "https://codehaus-plexus.github.io/plexus-utils/")
(synopsis "Common utilities for the Plexus framework")
(description "This package provides various Java utility classes for the
Plexus framework to ease working with strings, files, command lines, XML and
@ -4929,7 +4929,7 @@ file filters and endian classes.")
(replace 'install (install-jars "target")))))
(native-inputs
`(("java-junit" ,java-junit)))
(home-page "http://commons.apache.org/proper/commons-exec/")
(home-page "https://commons.apache.org/proper/commons-exec/")
(synopsis "Common program execution related classes")
(description "Commons-Exec simplifies executing external processes.")
(license license:asl2.0)))
@ -6634,7 +6634,7 @@ This is a part of the Apache Commons Project.")
(native-inputs
`(("java-junit" ,java-junit)
("java-hamcrest-core" ,java-hamcrest-core)))
(home-page "http://commons.apache.org/codec/")
(home-page "https://commons.apache.org/codec/")
(synopsis "Common encoders and decoders such as Base64, Hex, Phonetic and URLs")
(description "The codec package contains simple encoder and decoders for
various formats such as Base64 and Hexadecimal. In addition to these widely

2
gnu/packages/javascript.scm
View File

@ -333,7 +333,7 @@ Worker, but it can be used in other JavaScript environments.")
"15gichl8wi6yxag2ps723nxrgyan15976dzsnvw9h9py8sbyyzjn"))))
(build-system minify-build-system)
(arguments `(#:javascript-files '("src/selectize.js")))
(home-page "http://selectize.github.io/selectize.js/")
(home-page "https://selectize.github.io/selectize.js/")
(synopsis "Hybrid widget between a textbox and <select> box")
(description "Selectize is the hybrid of a textbox and @code{<select>}
box. It's jQuery based and it has autocomplete and native-feeling keyboard

7
gnu/packages/kde-internet.scm
View File

@ -51,7 +51,7 @@
(define-public choqok
(package
(name "choqok")
(version "1.6.0")
(version "1.7.0")
(source
(origin
(method url-fetch)
@ -59,8 +59,7 @@
(version-major+minor version)
"/src/choqok-" version ".tar.xz"))
(sha256
(base32 "03ri4y1wzyqlixnhczsls5gmy7jzzm67bb5gz8bav51ngc32fxca"))
(patches (search-patches "choqok-Fix-building-under-Qt-5.13.patch"))))
(base32 "0zm4nkpmvd181xlkis7ydzx54p3vn0zgpdzgh54f1hsjy6ahsq16"))))
(build-system qt-build-system)
(native-inputs
`(("extra-cmake-modules" ,extra-cmake-modules)
@ -86,9 +85,11 @@
("kxmlgui" ,kxmlgui)
;; TODO: telepathy
("oxygen-icons" ,oxygen-icons) ; default icon set
("purpose" ,purpose)
("qca" ,qca)
("qoauth" ,qoauth)
("qtbase" ,qtbase)
("qtnetworkauth" ,qtnetworkauth)
("qtwebkit" ,qtwebkit)
("sonnet" ,sonnet)))
(home-page "https://kde.org/applications/internet/org.kde.choqok")

2
gnu/packages/key-mon.scm
View File

@ -47,7 +47,7 @@
`(("python2-xlib" ,python2-xlib)
("python2-pygtk" ,python2-pygtk)
("python2-rsvg" ,python2-rsvg)))
(home-page "http://code.google.com/p/key-mon")
(home-page "https://code.google.com/p/key-mon")
(synopsis "Show keyboard and mouse status")
(description
"The key-mon utility displays the current keyboard and mouse status.

1
gnu/packages/libevent.scm
View File

@ -51,6 +51,7 @@
(base32
"0g988zqm45sj1hlhhz4il5z4dpi5dl74hzjwzl4md37a09iaqnx6"))))
(build-system gnu-build-system)
(outputs '("out" "bin"))
(arguments
;; This skips some of the tests which fail on armhf and aarch64.
'(#:configure-flags '("--disable-libevent-regress")))

86
gnu/packages/libreoffice.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2016, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
;;; Copyright © 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017, 2018, 2019 Marius Bakke <mbakke@fastmail.com>
@ -31,11 +31,12 @@
(define-module (gnu packages libreoffice)
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
#:use-module (guix build-system trivial)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module ((guix licenses)
#:select (gpl2+ lgpl2.1+ lgpl3+ mpl1.1 mpl2.0
#:select (gpl2 gpl2+ lgpl2.1+ lgpl3+ mpl1.1 mpl2.0
non-copyleft x11-style bsd-3))
#:use-module (guix packages)
#:use-module (guix utils)
@ -118,8 +119,8 @@ their dependencies automatically upon calculation.")
(source
(origin
(method url-fetch)
(uri (string-append "http://kohei.us/files/" name "/src/lib"
name "-" version ".tar.xz"))
(uri (string-append "http://kohei.us/files/orcus/src/lib"
"orcus-" version ".tar.xz"))
(sha256
(base32
"14gbnqsv5n2fm4sxa17014f440clrzls6p2w2ixk9wipg4950v9s"))))
@ -141,6 +142,63 @@ Plain Text, Gnumeric XML, Generic XML. It also includes low-level parsers for
CSV, CSS and XML.")
(license mpl2.0)))
(define-public unoconv
(package
(name "unoconv")
(version "0.9.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "unoconv" version))
(sha256
(base32 "0cb0bvyxib3xrj0jdgizhp6p057lr8kqnd3n921rin37ivcvz3ih"))))
(build-system python-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'stop-hash-sniffing
;; Fixes <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=39647#11>.
;; Submitted upsteam: <https://github.com/unoconv/unoconv/pull/531>.
(lambda _
(substitute* "unoconv"
(("sys.argv\\[0\\]\\.split\\('2'\\)")
"os.path.basename(sys.argv[0]).split('2')"))
#t))
(add-after 'unpack 'patch-find_offices
;; find_offices is a convoluted cross-platform treasure hunt.
;; Keep things simple and return the correct paths immediately.
(lambda* (#:key inputs #:allow-other-keys)
(let* ((libreoffice (assoc-ref inputs "libreoffice")))
(substitute* "unoconv"
(("def find_offices\\(\\):" match)
(string-append
match "\n"
" return [Office("
"'" libreoffice "/lib/libreoffice', "
"'" libreoffice "/lib/libreoffice/program', "
"'" libreoffice "/lib/libreoffice/program', "
"'" libreoffice "/lib/libreoffice/program/pyuno.so', "
"'" libreoffice "/bin/soffice', "
"sys.executable, "
"None)]\n")))
#t))))))
(inputs
`(("libreoffice" ,libreoffice)))
(home-page "http://dag.wiee.rs/home-made/unoconv/")
(synopsis "Convert between any document format supported by LibreOffice")
(description
"Unoconv is a command-line utility to convert documents from any format
that LibreOffice can import, to any format it can export. It can be used for
batch processing and can apply custom style templates and filters.
Unoconv converts between over a hundred formats, including Open Document
Format (@file{.odt}, @file{.ods}, @file{.odp})), Portable Document Format
(@file{.pdf}), HTML and XHTML, RTF, DocBook (@file{.xml}), @file{.doc} and
@file{.docx}), @file{.xls} and @file{.xlsx}).
All required fonts must be installed on the converting system.")
(license gpl2)))
(define-public librevenge
(package
(name "librevenge")
@ -148,8 +206,8 @@ CSV, CSS and XML.")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/libwpd/" name "/" name "-"
version "/" name "-" version ".tar.xz"))
(uri (string-append "mirror://sourceforge/libwpd/librevenge/librevenge-"
version "/librevenge-" version ".tar.xz"))
(sha256 (base32
"1cj76cz4mqcy2mgv9l5xlc95bypyk8zbq0ls9cswqrs2y0lhfgwk"))))
(build-system gnu-build-system)
@ -428,22 +486,20 @@ Apple Keynote documents. It currently supports Keynote versions 2 to 5.")
(define-public liblangtag
(package
(name "liblangtag")
(version "0.6.2")
(version "0.6.3")
(source
(origin
(method url-fetch)
(uri (string-append "https://bitbucket.org/tagoh/liblangtag/downloads/"
name "-" version ".tar.bz2"))
"liblangtag-" version ".tar.bz2"))
(sha256
(base32
"0bnm4hllr8cfrybm8rw7b8n0nlhzhnv73bkg1bxk452g6a82f96n"))))
(base32 "1g9kwxx60q0hpwvs66ys1cb9qg54hfvbivadwli8sfpc085a44hz"))))
(build-system gnu-build-system)
(native-inputs
`(("libtool" ,libtool)
("pkg-config" ,pkg-config)))
(inputs
`(("libxml2" ,libxml2)))
;; 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")
(description "Liblangtag implements an interface to work with tags
@ -1036,6 +1092,14 @@ converting QuarkXPress file format. It supports versions 3.1 to 4.1.")
"solenv/gbuild/platform/unxgcc.mk")
(("/bin/sh") (which "sh")))
;; Use store references for strictly necessary commands,
;; but not for optional tools like ‘gdb’ and ‘valgrind’.
(for-each (lambda (command)
(substitute* "desktop/scripts/soffice.sh"
(((format #f"~a " command))
(format #f "~a " (which command)))))
(list "dirname" "grep" "uname"))
;; GPGME++ headers are installed in a gpgme++ subdirectory, but
;; files in "xmlsecurity/source/gpg/" and elsewhere expect to
;; find them on the include path without a prefix.

195
gnu/packages/linux.scm
View File

@ -191,31 +191,31 @@ defconfig. Return the appropriate make target if applicable, otherwise return
(define deblob-scripts-5.4
(linux-libre-deblob-scripts
"5.4.14"
"5.4.19"
(base32 "0ckxn7k5zgcqk30dq943bnamr6a6zjbw2aqjl3x30f4kvh5f6k25")
(base32 "121px6030s89jh975sw0whwq315al6px1s7ildz3asql97bjdgc8")))
(base32 "1ajzwyy6vgmihxpz3sbshzfzd0w8yzj0fihv0d5rjpr4z3gm48bk")))
(define deblob-scripts-4.19
(linux-libre-deblob-scripts
"4.19.98"
"4.19.103"
(base32 "02zs405awaxydbapka4nz8h6lmnc0dahgczqsrs5s2bmzjyyqkcy")
(base32 "1w2wgxblpq09i33qmqgw5v3r5rm9vkkygr6m0sgv4zgczk9s29wr")))
(define deblob-scripts-4.14
(linux-libre-deblob-scripts
"4.14.167"
"4.14.170"
(base32 "091jk9jkn9jf39bxpc7395bhcb7p96nkg3a8047380ki06lnfxh6")
(base32 "1qij18inijj6c3ma8hv98yjagnzxdxyn134da9fd23ky8q6hbvky")))
(define deblob-scripts-4.9
(linux-libre-deblob-scripts
"4.9.211"
"4.9.213"
(base32 "1wvldzlv7q2xdbadas87dh593nxr4a8p5n0f8zpm72lja6w18hmg")
(base32 "0fxajshb75siq39lj5h8xvhdj8lcmddkslwlyj65rhlwk6g2r4b2")))
(define deblob-scripts-4.4
(linux-libre-deblob-scripts
"4.4.211"
"4.4.213"
(base32 "0x2j1i88am54ih2mk7gyl79g25l9zz4r08xhl482l3fvjj2irwbw")
(base32 "0hhin1jpfkd6nwrb6xqxjzl3hdxy4pn8a15hy2d3d83yw6pflbsf")))
@ -359,42 +359,42 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
"linux-" version ".tar.xz"))
(sha256 hash)))
(define-public linux-libre-5.4-version "5.4.19")
(define-public linux-libre-5.4-version "5.4.22")
(define-public linux-libre-5.4-pristine-source
(let ((version linux-libre-5.4-version)
(hash (base32 "1f3pzg8vai5qz19gy9gf3rxs2z4dsw78zjkkfnha8iiy2mqvk14m")))
(hash (base32 "06kx9bmrrk1brici8wvvd6dxqawgcig4i59pwllcq39rgs6wn6v6")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.4)))
(define-public linux-libre-4.19-version "4.19.103")
(define-public linux-libre-4.19-version "4.19.106")
(define-public linux-libre-4.19-pristine-source
(let ((version linux-libre-4.19-version)
(hash (base32 "0hxvqkjy63370sr9j4j0a1kzqwxxdn3i8i6wwc5c2gbzpmqlay5l")))
(hash (base32 "1nlwgs15mc3hlfhqw95pz7wisg8yshzrxzzq2a0y30mjm5vbvj33")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.19)))
(define-public linux-libre-4.14-version "4.14.170")
(define-public linux-libre-4.14-version "4.14.171")
(define-public linux-libre-4.14-pristine-source
(let ((version linux-libre-4.14-version)
(hash (base32 "1hqp3spi4cqgkqkzx5g2nbp6isz0kdcsj56ilsp6siqiglj662ll")))
(hash (base32 "181jadiwfix23xmqfvg7hpacjd0523v7vy0frzn8g8dlwj4j9q2g")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.14)))
(define-public linux-libre-4.9-version "4.9.213")
(define-public linux-libre-4.9-version "4.9.214")
(define-public linux-libre-4.9-pristine-source
(let ((version linux-libre-4.9-version)
(hash (base32 "0r7bqpvbpiiniwsm338b38mv6flfgm1r09avxqsakhkh8rvgz1dg")))
(hash (base32 "10z4n792g88p46csla2g9b0m7vz40ln0901ffb2cfd3hmhyhjzxl")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.9)))
(define-public linux-libre-4.4-version "4.4.213")
(define-public linux-libre-4.4-version "4.4.214")
(define-public linux-libre-4.4-pristine-source
(let ((version linux-libre-4.4-version)
(hash (base32 "1cmwn9zvz14jqjy6qkszglhs2p5h6yh82b2269cbzvibg8y3rxq0")))
(hash (base32 "0v575wl85fg9c3ksdj570hxjcl9p1dxwzag3fm0qcrq75kp6bamn")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.4)))
@ -932,6 +932,52 @@ It grants direct and undocumented access to your hardware that may cause damage
and should be used with caution, especially on untested models.")
(license license:gpl3+))) ; see README.md (no licence headers)
(define-public rtl8812au-aircrack-ng-linux-module
(let ((commit "945d6ed6505c32f0993b1dba576388e92e78101b")
(revision "0"))
(package
(name "rtl8812au-aircrack-ng-linux-module")
(version (git-version "5.6.4.2" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/aircrack-ng/rtl8812au.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1pjws7qb5l4z9k80vgz4zdxmqhbwxjjrmkpf0hijf821byyddvi7"))
(modules '((guix build utils)))
(snippet
'(begin
;; Remove bundled tarballs, APKs, word lists, speadsheets,
;; and other unnecessary unlicenced things.
(for-each delete-file-recursively (list "android"
"docs"
"tools"))
#t))))
(build-system linux-module-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(replace 'build
(lambda* (#:key inputs make-flags #:allow-other-keys)
(apply invoke "make"
(string-append "KSRC="
(assoc-ref inputs "linux-module-builder")
"/lib/modules/build")
(or make-flags '())))))
#:tests? #f)) ; no test suite
(supported-systems '("x86_64-linux" "i686-linux"))
(home-page "https://github.com/aircrack-ng/rtl8812au")
(synopsis "Linux driver for Realtek USB wireless network adapters")
(description
"This is Realtek's rtl8812au Linux driver for USB 802.11n wireless
network adapters, modified by the aircrack-ng project to support monitor mode
and frame injection. It provides a @code{88XXau} kernel module that supports
RTL8812AU, RTL8821AU, and RTL8814AU chips.")
(license license:gpl2+))))
(define-public vhba-module
(package
(name "vhba-module")
@ -1229,6 +1275,62 @@ The Discordian calendar was made popular by the \"Illuminatus!\" trilogy
by Robert Shea and Robert Anton Wilson.")
(license license:public-domain)))
(define-public fbset
(package
(name "fbset")
(version "2.1")
(source
(origin
(method url-fetch)
(uri (string-append "http://users.telenet.be/geertu/Linux/fbdev/fbset-"
version ".tar.gz"))
(sha256
(base32 "080wnisi0jq7dp0jcwdp83rq8q8s3kw41vc712516xbv4jq4mzs0"))))
(build-system gnu-build-system)
(arguments
'(#:modules ((guix build gnu-build-system)
(guix build utils)
(srfi srfi-26))
#:phases
(modify-phases %standard-phases
(delete 'configure) ; no configure script
(add-before 'install 'pre-install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(substitute* "Makefile"
(("mknod ") "true ")
;; The Makefile doesn't honour PREFIX or similar.
(("/usr") out))
(mkdir out)
(with-directory-excursion out
(for-each mkdir-p (list "sbin"
"man/man5"
"man/man8")))
#t)))
(add-after 'install 'install-fb.modes
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(etc (string-append out "/etc")))
(for-each (cut install-file <> etc)
(find-files "etc" "^fb\\.modes"))
(symlink "fb.modes.ATI"
(string-append etc "/fb.modes"))
#t))))
;; Parallel building races to create modes.tab.c.
#:parallel-build? #f
#:tests? #f)) ; no test suite
(native-inputs
`(("bison" ,bison)
("flex" ,flex)))
(home-page "http://users.telenet.be/geertu/Linux/fbdev/")
(synopsis "Show and modify Linux frame buffer settings")
(description
"The kernel Linux's @dfn{frame buffers} provide a simple interface to
different kinds of graphic displays. The @command{fbset} utility can query and
change various device settings such as depth, virtual resolution, and timing
parameters.")
(license license:gpl2)))
(define-public procps
(package
(name "procps")
@ -1741,51 +1843,21 @@ Both commands are targeted at system administrators.")
(define-public ebtables
(package
(name "ebtables")
(version "2.0.10-4")
(version "2.0.11")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://netfilter.org/ebtables/ebtables-v"
"mirror://netfilter.org/ebtables/ebtables-"
version ".tar.gz"))
(sha256
(base32
"0pa5ljlk970yfyhpf3iqwfpbc30j8mgn90fapw9cfz909x47nvyw"))))
"0apxgmkhsk3vxn9q3libxn3dgrdljrxyy4mli2gk49m7hi3na7xp"))))
(build-system gnu-build-system)
(arguments
'(#:tests? #f ; no test suite
#:make-flags
(let* ((out (assoc-ref %outputs "out"))
(bin (string-append out "/sbin"))
(lib (string-append out "/lib"))
(man (string-append out "/share/man"))
(iptables (assoc-ref %build-inputs "iptables"))
(ethertypes (string-append iptables "/etc/ethertypes")))
(list (string-append "LIBDIR=" lib)
(string-append "MANDIR=" man)
(string-append "BINDIR=" bin)
(string-append "ETHERTYPESFILE=" ethertypes)
;; With the default CFLAGS, it falis with:
;; communication.c:259:58: error: variable ‘ret’ set but not
;; used [-Werror=unused-but-set-variable]
"CFLAGS=-Wall"))
#:phases
(modify-phases %standard-phases
(replace 'configure
;; no configure script
(lambda _
(substitute* "Makefile"
;; Remove user and group options from install commands,
;; otherwise it fails with: invalid user 'root'.
(("-o root -g root") "")
;; Remove 'ethertypes' from the install target.
(("install: .*")
"install: $(MANDIR)/man8/ebtables.8 exec scripts\n"))
#t)))))
(inputs
`(("perl" ,perl)
("iptables" ,iptables)))
(synopsis "Ethernet bridge frame table administration")
(home-page "http://ebtables.netfilter.org/")
(home-page "https://ebtables.netfilter.org/")
(description
"ebtables is an application program used to set up and maintain the
tables of rules (inside the Linux kernel) that inspect Ethernet frames. It is
@ -4038,7 +4110,7 @@ and copy/paste text in the console and in xterm.")
(define-public btrfs-progs
(package
(name "btrfs-progs")
(version "5.4")
(version "5.4.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kernel.org/linux/kernel/"
@ -4046,12 +4118,19 @@ and copy/paste text in the console and in xterm.")
"btrfs-progs-v" version ".tar.xz"))
(sha256
(base32
"1ykhasv0jc3qi3xrm5841mzkmlbkjw6rm70gl4aww90jj6ak55qg"))))
"0scxg9p6z0wss92gmv5a8yxdmr8x449kb5v3bfnvs26n92r7zq7k"))))
(build-system gnu-build-system)
(outputs '("out"
"static")) ; static versions of the binaries in "out"
(arguments
'(#:phases (modify-phases %standard-phases
(add-after 'unpack 'patch-makefile
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "Makefile"
(("\\$\\(DESTDIR\\)\\$\\(udevruledir\\)")
(string-append (assoc-ref outputs "out")
"/lib/udev/rules.d")))
#t))
(add-after 'build 'build-static
(lambda _ (invoke "make" "static")))
(add-after 'install 'install-bash-completion
@ -4072,7 +4151,7 @@ and copy/paste text in the console and in xterm.")
#:tests? #f ; XXX: require the 'btrfs' kernel module.
#:test-target "test"
#:parallel-tests? #f)) ; tests fail when run in parallel
(inputs `(("e2fsprogs" ,e2fsprogs)
(inputs `(("e2fsprogs" ,e2fsprogs) ; for btrfs-convert
("libblkid" ,util-linux)
("libblkid:static" ,util-linux "static")
("libuuid" ,util-linux)
@ -4092,6 +4171,8 @@ and copy/paste text in the console and in xterm.")
;; For tests.
("acl" ,acl)
("which" ,which)
("dmsetup" ,lvm2)
("udevadm" ,eudev)
;; The tests need 'grep' with perl regexp support.
("grep" ,grep)))
(home-page "https://btrfs.wiki.kernel.org/index.php/Main_Page")
@ -4669,7 +4750,7 @@ cpufreq sub-system is enabled or not.")
(define-public haveged
(package
(name "haveged")
(version "1.9.6")
(version "1.9.8")
(source
(origin
(method git-fetch)
@ -4678,7 +4759,7 @@ cpufreq sub-system is enabled or not.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "11kr19n2f87izsj341lv5amhd1wc2ckfmqr9pq5fxix8pkbs94rh"))))
(base32 "1znr58fb3faq4nmrvc3c5whkc1f3chivm4vhicdwr9pdsyqqsd51"))))
(build-system gnu-build-system)
(home-page "https://www.issihosts.com/haveged")
(synopsis "Entropy source for the Linux random number generator")
@ -5560,14 +5641,14 @@ available in the kernel Linux.")
(define-public cpuid
(package
(name "cpuid")
(version "20200116")
(version "20200211")
(source (origin
(method url-fetch)
(uri (string-append "http://www.etallen.com/cpuid/cpuid-"
version ".src.tar.gz"))
(sha256
(base32
"1gxi4iwy6j366l6bkj1yyxhrk1rxmwfp498gikfxn8xwhij9dn0a"))))
"06sjbqqp80l7nhsp6khglkzdp9qy4vhbvjxbfilznhsmrqiwlw55"))))
(build-system gnu-build-system)
(arguments
'(#:make-flags '("CC=gcc")

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

@ -17,6 +17,7 @@
;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2020 Konrad Hinsen <konrad.hinsen@fastmail.net>
;;; Copyright © 2020 Dimakis Dimakakos <me@bendersteed.tech>
;;;
;;; This file is part of GNU Guix.
;;;
@ -57,6 +58,7 @@
#:use-module (gnu packages libffi)
#:use-module (gnu packages lisp)
#:use-module (gnu packages maths)
#:use-module (gnu packages networking)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
@ -218,7 +220,7 @@ support.")
ANSI CL by David N. Gray. The proposal did not make it into ANSI CL, but most
popular CL implementations implement it. This package provides an extremely
thin compatibility layer for gray streams.")
(home-page "http://www.cliki.net/trivial-gray-streams")
(home-page "https://www.cliki.net/trivial-gray-streams")
(license license:x11))))
(define-public cl-trivial-gray-streams
@ -602,7 +604,7 @@ files.")
(build-system asdf-build-system/sbcl)
(native-inputs
`(("fiasco" ,sbcl-fiasco)))
(home-page "http://www.cliki.net/portable-clx")
(home-page "https://www.cliki.net/portable-clx")
(synopsis "X11 client library for Common Lisp")
(description "CLX is an X11 client library for Common Lisp. The code was
originally taken from a CMUCL distribution, was modified somewhat in order to
@ -962,18 +964,15 @@ else @code{parse-number} signals an error of type @code{invalid-number}.")
(define-public sbcl-iterate
(package
(name "sbcl-iterate")
;; The latest official release (1.4.3) fails to build so we have to take
;; the current darcs tarball from quicklisp.
(version "20160825")
(version "1.5")
(source
(origin
(method url-fetch)
(uri (string-append "http://beta.quicklisp.org/archive/iterate/"
"2016-08-25/iterate-"
version "-darcs.tgz"))
(uri (string-append "https://common-lisp.net/project/iterate/releases/"
"iterate-" version ".tar.gz"))
(sha256
(base32
"0kvz16gnxnkdz0fy1x8y5yr28nfm7i2qpvix7mgwccdpjmsb4pgm"))))
"1lqsbhrkfl0yif46aymvb7l3nb9wdcmj4jyw485blj32jb4famzn"))))
(build-system asdf-build-system/sbcl)
(native-inputs
`(("rt" ,sbcl-rt)))
@ -1133,7 +1132,7 @@ utilities that make it even easier to manipulate text in Common Lisp. It has
(base32 "0ccv7dqyrk55xga78i5vzlic7mdwp28in3g1a8fqhlk6626scsq9"))))
(build-system asdf-build-system/sbcl)
(arguments '(#:tests? #f))
(home-page "http://cliki.net/trivial-features")
(home-page "https://cliki.net/trivial-features")
(synopsis "Ensures consistency of @code{*FEATURES*} in Common Lisp")
(description "Trivial-features ensures that @code{*FEATURES*} is
consistent across multiple Common Lisp implementations.")
@ -1599,23 +1598,26 @@ Common Lisp.")
(sbcl-package->ecl-package sbcl-cl-fad))
(define-public sbcl-rt
(package
(name "sbcl-rt")
(version "1990.12.19")
(source
(origin
(method url-fetch)
(uri (string-append "http://beta.quicklisp.org/archive/rt/2010-10-06/rt-"
"20101006-git" ".tgz"))
(sha256
(base32
"1jncar0xwkqk8yrc2dln389ivvgzs7ijdhhs3zpfyi5d21f0qa1v"))))
(build-system asdf-build-system/sbcl)
(synopsis "MIT Regression Tester")
(description
"RT provides a framework for writing regression test suites.")
(home-page "https://github.com/sharplispers/nibbles")
(license license:unlicense)))
(let ((commit "a6a7503a0b47953bc7579c90f02a6dba1f6e4c5a")
(revision "1"))
(package
(name "sbcl-rt")
(version (git-version "1990.12.19" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "http://git.kpe.io/rt.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "13si2rrxaagbr0bkvg6sqicxxpyshabx6ad6byc9n2ik5ysna69b"))))
(build-system asdf-build-system/sbcl)
(synopsis "MIT Regression Tester")
(description
"RT provides a framework for writing regression test suites.")
(home-page "https://www.cliki.net/rt")
(license license:expat))))
(define-public cl-rt
(sbcl-package->cl-source-package sbcl-rt))
@ -2298,27 +2300,27 @@ utilities that make it even easier to manipulate text in Common Lisp. It has
(sbcl-package->ecl-package sbcl-cl-string-match))
(define-public sbcl-ptester
(package
(name "sbcl-ptester")
(version "20160929")
(source
(origin
(method url-fetch)
(uri (string-append "http://beta.quicklisp.org/archive/ptester/"
(date->string (string->date version "~Y~m~d") "~Y-~m-~d")
"/ptester-"
version
"-git.tgz"))
(sha256
(base32
"04rlq1zljhxc65pm31bah3sq3as24l0sdivz440s79qlnnyh13hz"))))
(build-system asdf-build-system/sbcl)
(home-page "http://quickdocs.org/ptester/")
(synopsis "Portable test harness package")
(description
"@command{ptester} is a portable testing framework based on Franz's
(let ((commit "fe69fde54f4bce00ce577feb918796c293fc7253")
(revision "1"))
(package
(name "sbcl-ptester")
(version (git-version "2.1.3" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "http://git.kpe.io/ptester.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1l0lfl7cdnr2qf4zh38hi4llxg22c49zkm639bdkmvlkzwj3ndwf"))))
(build-system asdf-build-system/sbcl)
(home-page "http://quickdocs.org/ptester/")
(synopsis "Portable test harness package")
(description
"@command{ptester} is a portable testing framework based on Franz's
tester module.")
(license license:lgpl3+)))
(license license:llgpl))))
(define-public cl-ptester
(sbcl-package->cl-source-package sbcl-ptester))
@ -2327,30 +2329,29 @@ tester module.")
(sbcl-package->ecl-package sbcl-ptester))
(define-public sbcl-puri
(package
(name "sbcl-puri")
(version "20180228")
(source
(origin
(method url-fetch)
(uri (string-append "http://beta.quicklisp.org/archive/puri/"
(date->string (string->date version "~Y~m~d") "~Y-~m-~d")
"/puri-"
version
"-git.tgz"))
(sha256
(base32
"1s4r5adrjy5asry45xbcbklxhdjydvf6n55z897nvyw33bigrnbz"))))
(build-system asdf-build-system/sbcl)
;; REVIEW: Webiste down?
(native-inputs
`(("ptester" ,sbcl-ptester)))
(home-page "http://files.kpe.io/puri/")
(synopsis "Portable URI Library")
(description
"This is portable Universal Resource Identifier library for Common Lisp
programs. It parses URI according to the RFC 2396 specification")
(license license:lgpl3+)))
(let ((commit "ef5afb9e5286c8e952d4344f019c1a636a717b97")
(revision "1"))
(package
(name "sbcl-puri")
(version (git-version "1.5.7" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "http://git.kpe.io/puri.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1vm25pdl92laj72p5vyd538kf3cjy2655z6bdc99h20ana2p231s"))))
(build-system asdf-build-system/sbcl)
(native-inputs
`(("ptester" ,sbcl-ptester)))
(home-page "http://quickdocs.org/puri/")
(synopsis "Portable URI Library")
(description
"This is a portable Universal Resource Identifier library for Common
Lisp programs. It parses URI according to the RFC 2396 specification.")
(license license:llgpl))))
(define-public cl-puri
(sbcl-package->cl-source-package sbcl-puri))
@ -4610,7 +4611,7 @@ performance and simplicity in mind.")
`(("stefil" ,sbcl-hu.dwim.stefil)))
(inputs
`(("sbcl-cl-fad" ,sbcl-cl-fad)))
(home-page "http://shinmera.github.io/trivial-mimes/")
(home-page "https://shinmera.github.io/trivial-mimes/")
(synopsis "Tiny Common Lisp library to detect mime types in files")
(description
"This is a teensy library that provides some functions to determine the
@ -4754,7 +4755,7 @@ performance and simplicity in mind.")
("sbcl-lack-component" ,sbcl-lack-component)
("sbcl-alexandria" ,sbcl-alexandria)
("sbcl-babel" ,sbcl-babel)))
(home-page "http://8arrow.org/ningle/")
(home-page "https://8arrow.org/ningle/")
(synopsis "Super micro framework for Common Lisp")
(description
"Ningle is a lightweight web application framework for Common Lisp.")
@ -4953,33 +4954,37 @@ the CFFI approach used by burgled-batteries, but has the same goal.")
(sbcl-package->ecl-package sbcl-py4cl))
(define-public sbcl-parse-declarations
(package
(name "sbcl-parse-declarations")
(version "1.0.0")
(source
(origin
(method url-fetch)
(uri (string-append
"http://beta.quicklisp.org/archive/parse-declarations/"
"2010-10-06/parse-declarations-20101006-darcs.tgz"))
(sha256
(base32
"0r85b0jfacd28kr65kw9c13dx4i6id1dpmby68zjy63mqbnyawrd"))))
(build-system asdf-build-system/sbcl)
(arguments
`(#:asd-file "parse-declarations-1.0.asd"
#:asd-system-name "parse-declarations-1.0"))
(home-page "https://common-lisp.net/project/parse-declarations/")
(synopsis "Parse, filter, and build declarations")
(description
"Parse-Declarations is a Common Lisp library to help writing
(let ((commit "549aebbfb9403a7fe948654126b9c814f443f4f2")
(revision "1"))
(package
(name "sbcl-parse-declarations")
(version (git-version "1.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url (string-append
"https://gitlab.common-lisp.net/parse-declarations/"
"parse-declarations.git"))
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "03g5qks4c59nmxa48pbslxkfh77h8hn8566jddp6m9pl15dzzpxd"))))
(build-system asdf-build-system/sbcl)
(arguments
`(#:asd-file "parse-declarations-1.0.asd"
#:asd-system-name "parse-declarations-1.0"))
(home-page "https://common-lisp.net/project/parse-declarations/")
(synopsis "Parse, filter, and build declarations")
(description
"Parse-Declarations is a Common Lisp library to help writing
macros which establish bindings. To be semantically correct, such
macros must take user declarations into account, as these may affect
the bindings they establish. Yet the ANSI standard of Common Lisp does
not provide any operators to work with declarations in a convenient,
high-level way. This library provides such operators.")
;; MIT License
(license license:expat)))
;; MIT License
(license license:expat))))
(define-public cl-parse-declarations
(sbcl-package->cl-source-package sbcl-parse-declarations))
@ -5889,41 +5894,44 @@ optimizing techniques widely used in the functional programming world.")
(sbcl-package->cl-source-package sbcl-optima))
(define-public sbcl-fare-quasiquote
(package
(name "sbcl-fare-quasiquote")
(build-system asdf-build-system/sbcl)
(version "20171130")
(home-page "http://common-lisp.net/project/fare-quasiquote")
(source
(origin
(method url-fetch)
(uri (string-append "http://beta.quicklisp.org/archive/fare-quasiquote/"
(date->string (string->date version "~Y~m~d") "~Y-~m-~d")
"/fare-quasiquote-"
version
"-git.tgz"))
(sha256
(base32
"00brmh7ndsi0c97nibi8cy10j3l4gmkyrfrr5jr5lzkfb7ngyfqa"))))
(inputs
`(("fare-utils" ,sbcl-fare-utils)))
(arguments
;; XXX: Circular dependencies: Tests depend on subsystems, which depend on the main systems.
`(#:tests? #f
#:phases
(modify-phases %standard-phases
;; XXX: Require 1.0.0 version of fare-utils, and we package some
;; commits after 1.0.0.5, but ASDF fails to read the
;; "-REVISION-COMMIT" part generated by Guix.
(add-after 'unpack 'patch-requirement
(lambda _
(substitute* "fare-quasiquote.asd"
(("\\(:version \"fare-utils\" \"1.0.0\"\\)") "\"fare-utils\"")))))))
(synopsis "Pattern-matching friendly implementation of quasiquote for Common Lisp")
(description "The main purpose of this n+2nd reimplementation of
(let ((commit "640d39a0451094071b3e093c97667b3947f43639")
(revision "1"))
(package
(name "sbcl-fare-quasiquote")
(build-system asdf-build-system/sbcl)
(version (git-version "1.0.1" revision commit))
(home-page "https://gitlab.common-lisp.net/frideau/fare-quasiquote")
(source
(origin
(method git-fetch)
(uri (git-reference
(url (string-append "https://gitlab.common-lisp.net/frideau/"
"fare-quasiquote.git"))
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1g6q11l50kgija9f55lzqpcwvaq0ljiw8v1j265hnyg6nahjwjvg"))))
(inputs
`(("fare-utils" ,sbcl-fare-utils)))
(arguments
;; XXX: Circular dependencies: Tests depend on subsystems,
;; which depend on the main systems.
`(#:tests? #f
#:phases
(modify-phases %standard-phases
;; XXX: Require 1.0.0 version of fare-utils, and we package some
;; commits after 1.0.0.5, but ASDF fails to read the
;; "-REVISION-COMMIT" part generated by Guix.
(add-after 'unpack 'patch-requirement
(lambda _
(substitute* "fare-quasiquote.asd"
(("\\(:version \"fare-utils\" \"1.0.0\"\\)")
"\"fare-utils\"")))))))
(synopsis "Pattern-matching friendly implementation of quasiquote")
(description "The main purpose of this n+2nd reimplementation of
quasiquote is enable matching of quasiquoted patterns, using Optima or
Trivia.")
(license license:expat)))
(license license:expat))))
(define-public cl-fare-quasiquote
(sbcl-package->cl-source-package sbcl-fare-quasiquote))
@ -5982,6 +5990,8 @@ This package uses fare-quasiquote with named-readtable.")))
(lib (string-append out "/lib/" (%lisp-type))))
(mkdir-p lib)
(install-file "fare-quasiquote-extras.asd" lib)
(make-file-writable
(string-append lib "/fare-quasiquote-extras.asd"))
#t)))
(add-after 'create-asd-file 'fix-asd-file
(lambda* (#:key outputs #:allow-other-keys)
@ -9638,7 +9648,7 @@ Common Lisp. It uses the libuv library as backend.")
(description
"This is a standalone promise implementation for Common Lisp. It is
the successor to the now-deprecated cl-async-future project.")
(home-page "http://orthecreedence.github.io/blackbird/")
(home-page "https://orthecreedence.github.io/blackbird/")
(license license:expat))))
(define-public cl-blackbird
@ -9673,7 +9683,7 @@ the successor to the now-deprecated cl-async-future project.")
(description
"This is futures implementation for Common Lisp. It plugs in nicely
to cl-async.")
(home-page "http://orthecreedence.github.io/cl-async/future")
(home-page "https://orthecreedence.github.io/cl-async/future")
(license license:expat))))
(define-public cl-async-future
@ -10590,3 +10600,121 @@ and usefulness, not speed. Track the progress at
(define-public cl-numcl
(sbcl-package->cl-source-package sbcl-numcl))
(define-public sbcl-pzmq
(let ((commit "7c7390eedc469d033c72dc497984d1536ee75826")
(revision "1"))
(package
(name "sbcl-pzmq")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/orivej/pzmq.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0gmwzf7h90wa7v4wnk49g0hv2mdalljpwhyigxcb967wzv8lqci9"))))
(build-system asdf-build-system/sbcl)
(native-inputs
`(("bordeaux-threads" ,sbcl-bordeaux-threads)
("fiveam" ,sbcl-fiveam)
("let-plus" ,sbcl-let-plus)))
(inputs
`(("cffi" ,sbcl-cffi)
("cffi-grovel" ,sbcl-cffi-grovel)
("zeromq" ,zeromq)))
(arguments
`(#:phases (modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "c-api.lisp"
(("\"libzmq")
(string-append "\""
(assoc-ref inputs "zeromq")
"/lib/libzmq")))
#t)))))
(synopsis "Common Lisp bindings for the ZeroMQ library")
(description "This Common Lisp library provides bindings for the ZeroMQ
lightweight messaging kernel.")
(home-page "https://github.com/orivej/pzmq")
(license license:unlicense))))
(define-public cl-pzmq
(sbcl-package->cl-source-package sbcl-pzmq))
(define-public ecl-pzmq
(sbcl-package->ecl-package sbcl-pzmq))
(define-public sbcl-clss
(let ((revision "1")
(commit "2a8e8615ab55870d4ca01928f3ed3bbeb4e75c8d"))
(package
(name "sbcl-clss")
(version (git-version "0.3.1" revision commit))
(source
(origin
(method git-fetch)
(uri
(git-reference
(url "https://github.com/Shinmera/clss.git")
(commit commit)))
(sha256
(base32 "0la4dbcda78x29szanylccrsljqrn9d1mhh569sqkyp44ni5fv91"))
(file-name (git-file-name name version))))
(inputs
`(("array-utils" ,sbcl-array-utils)
("plump" ,sbcl-plump)))
(build-system asdf-build-system/sbcl)
(synopsis "DOM tree searching engine based on CSS selectors")
(description "CLSS is a DOM traversal engine based on CSS
selectors. It makes use of the Plump-DOM and is used by lQuery.")
(home-page "https://github.com/Shinmera/clss")
(license license:zlib))))
(define-public cl-clss
(sbcl-package->cl-source-package sbcl-clss))
(define-public ecl-clss
(sbcl-package->ecl-package sbcl-clss))
(define-public sbcl-lquery
(let ((revision "1")
(commit "8048111c6b83956daa632e7a3ffbd8c9c203bd8d"))
(package
(name "sbcl-lquery")
(version (git-version "3.2.1" revision commit))
(source
(origin
(method git-fetch)
(uri
(git-reference
(url "https://github.com/Shinmera/lquery.git")
(commit commit)))
(sha256
(base32 "0520mcpxc2d6fdm8z61arpgd2z38kan7cf06qs373n5r64rakz6w"))
(file-name (git-file-name name version))))
(native-inputs
`(("fiveam" ,sbcl-fiveam)))
(inputs
`(("array-utils" ,sbcl-array-utils)
("form-fiddle" ,sbcl-form-fiddle)
("plump" ,sbcl-plump)
("clss" ,sbcl-clss)))
(build-system asdf-build-system/sbcl)
(synopsis "Library to allow jQuery-like HTML/DOM manipulation")
(description "@code{lQuery} is a DOM manipulation library written in
Common Lisp, inspired by and based on the jQuery syntax and
functions. It uses Plump and CLSS as DOM and selector engines. The
main idea behind lQuery is to provide a simple interface for crawling
and modifying HTML sites, as well as to allow for an alternative
approach to templating.")
(home-page "https://github.com/Shinmera/lquery")
(license license:zlib))))
(define-public cl-lquery
(sbcl-package->cl-source-package sbcl-lquery))
(define-public ecl-lquery
(sbcl-package->ecl-package sbcl-lquery))

535
gnu/packages/llvm.scm
View File

@ -5,7 +5,7 @@
;;; Copyright © 2016 Dennis Mungai <dmngaie@gmail.com>
;;; Copyright © 2016, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Roel Janssen <roel@gnu.org>
;;; Copyright © 2018, 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2018, 2019, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
@ -76,18 +76,24 @@ as \"x86_64-linux\"."
("x86_64" => "X86")
("i686" => "X86"))))
(define-public llvm-8
(define (llvm-download-uri component version)
(if (version>=? version "9.0.1")
(string-append "https://github.com/llvm/llvm-project/releases/download"
"/llvmorg-" version "/" component "-" version ".src.tar.xz")
(string-append "https://releases.llvm.org/" version "/" component "-"
version ".src.tar.xz")))
(define-public llvm
(package
(name "llvm")
(version "8.0.0")
(version "9.0.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://llvm.org/releases/"
version "/llvm-" version ".src.tar.xz"))
(uri (llvm-download-uri "llvm" version))
(sha256
(base32
"0k124sxkfhfi1rca6kzkdraf4axhx99x3cw2rk55056628dvwwl8"))))
"16hwp3qa54c3a3v7h8nlw0fh5criqh0hlr1skybyk0cz70gyx880"))))
(build-system cmake-build-system)
(native-inputs
`(("python" ,python-2) ;bytes->str conversion in clang>=3.7 needs python-2
@ -125,9 +131,7 @@ languages. It currently supports compilation of C and C++ programs, using
front-ends derived from GCC 4.0.1. A new front-end for the C family of
languages is in development. The compiler infrastructure includes mirror sets
of programming tools as well as libraries with equivalent functionality.")
(license license:ncsa)))
(define-public llvm llvm-8)
(license license:asl2.0))) ;with LLVM exceptions, see LICENSE.txt
(define* (clang-runtime-from-llvm llvm hash
#:optional (patches '()))
@ -137,8 +141,7 @@ of programming tools as well as libraries with equivalent functionality.")
(source
(origin
(method url-fetch)
(uri (string-append "https://llvm.org/releases/"
version "/compiler-rt-" version ".src.tar.xz"))
(uri (llvm-download-uri "compiler-rt" version))
(sha256 (base32 hash))
(patches (map search-patch patches))))
(build-system cmake-build-system)
@ -156,7 +159,7 @@ of programming tools as well as libraries with equivalent functionality.")
functions for C and C++ programs. It also provides header files that allow C
and C++ source code to interface with the \"sanitization\" passes of the clang
compiler. In LLVM this library is called \"compiler-rt\".")
(license license:ncsa)
(license (package-license llvm))
;; <https://compiler-rt.llvm.org/> doesn't list MIPS as supported.
(supported-systems (delete "mips64el-linux" %supported-systems))))
@ -169,8 +172,10 @@ compiler. In LLVM this library is called \"compiler-rt\".")
(source
(origin
(method url-fetch)
(uri (string-append "https://llvm.org/releases/"
version "/cfe-" version ".src.tar.xz"))
(uri (llvm-download-uri (if (version>=? version "9.0.1")
"clang"
"cfe")
version))
(sha256 (base32 hash))
(patches (map search-patch patches))))
;; Using cmake allows us to treat llvm as an external library. There
@ -300,7 +305,9 @@ compiler. In LLVM this library is called \"compiler-rt\".")
Objective-C++ programming languages. It uses LLVM as its back end. The Clang
project includes the Clang front end, the Clang static analyzer, and several
code analysis tools.")
(license license:ncsa)))
(license (if (version>=? version "9.0")
license:asl2.0 ;with LLVM exceptions
license:ncsa))))
(define (make-clang-toolchain clang)
(package
@ -347,18 +354,237 @@ output), and Binutils.")
("libc-debug" ,glibc "debug")
("libc-static" ,glibc "static")))))
(define-public libcxx
(define-public clang-runtime
(clang-runtime-from-llvm
llvm
"0xwh79g3zggdabxgnd0bphry75asm1qz7mv3hcqihqwqr6aspgy2"))
(define-public clang
(clang-from-llvm llvm clang-runtime
"0ls2h3iv4finqyflyhry21qhc9cm9ga7g1zq21020p065qmm2y2p"
#:patches '("clang-9.0-libc-search-path.patch")))
(define-public clang-toolchain
(make-clang-toolchain clang))
(define-public llvm-9 llvm)
(define-public clang-runtime-9 clang-runtime)
(define-public clang-9 clang)
(define-public clang-toolchain-9 clang-toolchain)
(define-public llvm-8
(package
(name "libcxx")
(version (package-version llvm))
(inherit llvm)
(version "8.0.0")
(source (origin
(method url-fetch)
(uri (llvm-download-uri "llvm" version))
(sha256
(base32
"0k124sxkfhfi1rca6kzkdraf4axhx99x3cw2rk55056628dvwwl8"))))
(license license:ncsa)))
(define-public clang-runtime-8
(clang-runtime-from-llvm
llvm-8
"1c919wsm17xnv7lr8bhpq2wkq8113lzlw6hzhfr737j59x3wfddl"))
(define-public clang-8
(clang-from-llvm llvm-8 clang-runtime-8
"0svk1f70hvpwrjp6x5i9kqwrqwxnmcrw5s7f4cxyd100mdd12k08"
#:patches '("clang-7.0-libc-search-path.patch")))
(define-public clang-toolchain-8
(make-clang-toolchain clang-8))
(define-public llvm-7
(package
(inherit llvm-8)
(version "7.0.1")
(source (origin
(method url-fetch)
(uri (llvm-download-uri "llvm" version))
(sha256
(base32
"16s196wqzdw4pmri15hadzqgdi926zln3an2viwyq0kini6zr3d3"))))))
(define-public clang-runtime-7
(clang-runtime-from-llvm
llvm-7
"065ybd8fsc4h2hikbdyricj6pyv4r7r7kpcikhb2y5zf370xybkq"))
(define-public clang-7
(clang-from-llvm llvm-7 clang-runtime-7
"067lwggnbg0w1dfrps790r5l6k8n5zwhlsw7zb6zvmfpwpfn4nx4"
#:patches '("clang-7.0-libc-search-path.patch")))
(define-public clang-toolchain-7
(make-clang-toolchain clang-7))
(define-public llvm-6
(package
(inherit llvm-7)
(version "6.0.1")
(source (origin
(method url-fetch)
(uri (llvm-download-uri "llvm" version))
(sha256
(base32
"1qpls3vk85lydi5b4axl0809fv932qgsqgdgrk098567z4jc7mmn"))))))
(define-public clang-runtime-6
(clang-runtime-from-llvm
llvm-6
"1fcr3jn24yr8lh36nc0c4ikli4744i2q9m1ik67p1jymwwaixkgl"))
(define-public clang-6
(clang-from-llvm llvm-6 clang-runtime-6
"0rxn4rh7rrnsqbdgp4gzc8ishbkryhpl1kd3mpnxzpxxhla3y93w"
#:patches '("clang-6.0-libc-search-path.patch")))
(define-public clang-toolchain-6
(make-clang-toolchain clang-6))
(define-public llvm-3.9.1
(package (inherit llvm-6)
(name "llvm")
(version "3.9.1")
(source
(origin
(method url-fetch)
(uri (llvm-download-uri "llvm" version))
(sha256
(base32
"1vi9sf7rx1q04wj479rsvxayb6z740iaz3qniwp266fgp5a07n8z"))))))
(define-public clang-runtime-3.9.1
(clang-runtime-from-llvm
llvm-3.9.1
"16gc2gdmp5c800qvydrdhsp0bzb97s8wrakl6i8a4lgslnqnf2fk"
'("clang-runtime-asan-build-fixes.patch"
"clang-runtime-esan-build-fixes.patch"
"clang-3.5-libsanitizer-ustat-fix.patch")))
(define-public clang-3.9.1
(clang-from-llvm llvm-3.9.1 clang-runtime-3.9.1
"0qsyyb40iwifhhlx9a3drf8z6ni6zwyk3bvh0kx2gs6yjsxwxi76"
#:patches '("clang-3.8-libc-search-path.patch")))
(define-public llvm-3.8
(package (inherit llvm-3.9.1)
(name "llvm")
(version "3.8.1")
(source
(origin
(method url-fetch)
(uri (llvm-download-uri "llvm" version))
(sha256
(base32
"1ybmnid4pw2hxn12ax5qa5kl1ldfns0njg8533y3mzslvd5cx0kf"))))))
(define-public clang-runtime-3.8
(clang-runtime-from-llvm
llvm-3.8
"0p0y85c7izndbpg2l816z7z7558axq11d5pwkm4h11sdw7d13w0d"
'("clang-runtime-asan-build-fixes.patch"
"clang-3.5-libsanitizer-ustat-fix.patch")))
(define-public clang-3.8
(clang-from-llvm llvm-3.8 clang-runtime-3.8
"1prc72xmkgx8wrzmrr337776676nhsp1qd3mw2bvb22bzdnq7lsc"
#:patches '("clang-3.8-libc-search-path.patch")))
(define-public llvm-3.7
(package (inherit llvm-3.8)
(version "3.7.1")
(source
(origin
(method url-fetch)
(uri (string-append "http://llvm.org/releases/"
version "/libcxx-" version ".src.tar.xz"))
(uri (llvm-download-uri "llvm" version))
(sha256
(base32
"1qlx3wlxrnc5cwc1fcfc2vhfsl7j4294hi8y5kxj8hy8wxsjd462"))))
"1masakdp9g2dan1yrazg7md5am2vacbkb3nahb3dchpc1knr8xxy"))))))
(define-public clang-runtime-3.7
(clang-runtime-from-llvm
llvm-3.7
"10c1mz2q4bdq9bqfgr3dirc6hz1h3sq8573srd5q5lr7m7j6jiwx"
'("clang-runtime-asan-build-fixes.patch"
"clang-3.5-libsanitizer-ustat-fix.patch")))
(define-public clang-3.7
(clang-from-llvm llvm-3.7 clang-runtime-3.7
"0x065d0w9b51xvdjxwfzjxng0gzpbx45fgiaxpap45ragi61dqjn"
#:patches '("clang-3.5-libc-search-path.patch")))
(define-public llvm-3.6
(package (inherit llvm-3.7)
(version "3.6.2")
(source
(origin
(method url-fetch)
(uri (llvm-download-uri "llvm" version))
(sha256
(base32
"153vcvj8gvgwakzr4j0kndc0b7wn91c2g1vy2vg24s6spxcc23gn"))))))
(define-public clang-runtime-3.6
(clang-runtime-from-llvm
llvm-3.6
"11qx8d3pbfqjaj2x207pvlvzihbs1z2xbw4crpz7aid6h1yz6bqg"
'("clang-runtime-asan-build-fixes.patch")))
(define-public clang-3.6
(clang-from-llvm llvm-3.6 clang-runtime-3.6
"1wwr8s6lzr324hv4s1k6na4j5zv6n9kdhi14s4kb9b13d93814df"
#:patches '("clang-3.5-libc-search-path.patch")))
(define-public llvm-3.5
(package (inherit llvm-3.6)
(version "3.5.2")
(source
(origin
(method url-fetch)
(uri (llvm-download-uri "llvm" version))
(patches
(search-patches "llvm-3.5-fix-clang-build-with-gcc5.patch"))
(sha256
(base32
"0xf5q17kkxsrm2gsi93h4pwlv663kji73r2g4asb97klsmb626a4"))))))
(define-public clang-runtime-3.5
(clang-runtime-from-llvm
llvm-3.5
"1hsdnzzdr5kglz6fnv3lcsjs222zjsy14y8ax9dy6zqysanplbal"
'("clang-runtime-asan-build-fixes.patch"
"clang-3.5-libsanitizer-ustat-fix.patch")))
(define-public clang-3.5
(clang-from-llvm llvm-3.5 clang-runtime-3.5
"0846h8vn3zlc00jkmvrmy88gc6ql6014c02l4jv78fpvfigmgssg"
#:patches '("clang-3.5-libc-search-path.patch")))
(define-public llvm-for-extempore
(package (inherit llvm-3.7)
(name "llvm-for-extempore")
(source
(origin
(inherit (package-source llvm-3.7))
(patches (list (search-patch "llvm-for-extempore.patch")))))
;; Extempore refuses to build on architectures other than x86_64
(supported-systems '("x86_64-linux"))))
(define-public libcxx
(package
(name "libcxx")
(version "9.0.1")
(source
(origin
(method url-fetch)
(uri (llvm-download-uri "libcxx" version))
(sha256
(base32
"0d2bj5i6mk4caq7skd5nsdmz8c2m5w5anximl5wz3x32p08zz089"))))
(build-system cmake-build-system)
(native-inputs
`(("clang" ,clang)
@ -370,10 +596,26 @@ output), and Binutils.")
use with Clang, targeting C++11, C++14 and above.")
(license license:expat)))
;; Libcxx files specifically used by PySide2.
(define-public libcxx-6
(package
(inherit libcxx)
(version (package-version llvm-6))
(source
(origin
(inherit (package-source libcxx))
(uri (llvm-download-uri "libcxx" version))
(sha256
(base32
"0rzw4qvxp6qx4l4h9amrq02gp7hbg8lw4m0sy3k60f50234gnm3n"))))
(native-inputs
`(("clang" ,clang-6)
("llvm" ,llvm-6)))))
(define-public libclc
(package
(name "libclc")
(version (package-version llvm))
(version "9.0.1")
(source
(origin
(method git-fetch)
@ -383,7 +625,7 @@ use with Clang, targeting C++11, C++14 and above.")
(file-name (git-file-name name version))
(sha256
(base32
"052h16wjcnqginzp7ki4il2xmm25v9nyk0wcz7cg03gbryhl7aqa"))))
"1d1qayvrvvc1di7s7jfxnjvxq2az4lwq1sw1b2gq2ic0nksvajz0"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags
@ -412,15 +654,13 @@ requirements according to version 1.1 of the OpenCL specification.")
(define-public libomp
(package
(name "libomp")
(version (package-version llvm))
(version "9.0.1")
(source (origin
(method url-fetch)
(uri (string-append "https://releases.llvm.org/"
version "/openmp-" version
".src.tar.xz"))
(uri (llvm-download-uri "openmp" version))
(sha256
(base32
"1mf9cpgvix34xlpv0inkgl3qmdvgvp96f7sksqizri0n5xfp1cgp"))
"1knafnpp0f7hylx8q20lkd6g1sf0flly572dayc5d5kghh7hd52w"))
(file-name (string-append "libomp-" version ".tar.xz"))))
(build-system cmake-build-system)
;; XXX: Note this gets built with GCC because building with Clang itself
@ -446,245 +686,6 @@ notably provides @file{libgomp.so}, which is has a binary interface compatible
with that of libgomp, the GNU Offloading and Multi Processing Library.")
(license license:expat)))
(define-public clang-runtime
(clang-runtime-from-llvm
llvm
"1c919wsm17xnv7lr8bhpq2wkq8113lzlw6hzhfr737j59x3wfddl"))
(define-public clang
(clang-from-llvm llvm clang-runtime
"0svk1f70hvpwrjp6x5i9kqwrqwxnmcrw5s7f4cxyd100mdd12k08"
#:patches '("clang-7.0-libc-search-path.patch")))
(define-public clang-toolchain
(make-clang-toolchain clang))
(define-public llvm-9
(package
(inherit llvm)
(version "9.0.0")
(source (origin
(method url-fetch)
(uri (string-append "https://llvm.org/releases/"
version "/llvm-" version ".src.tar.xz"))
(sha256
(base32
"117ymdz1by2nkfq1c2p9m4050dp848kbjbiv6nsfj8hzy9f5d86n"))))
(license license:asl2.0)))
(define-public clang-runtime-9
(clang-runtime-from-llvm
llvm-9
"03ni43lbkp63lr3p6sc94dphqmvnz5av5mml0xmk930xvnbcvr2n"))
(define-public clang-9
(clang-from-llvm llvm-9 clang-runtime-9
"0426ma80i41qsgzm1qdz81mjskck426diygxi2k5vji2gkpixa3v"))
(define-public clang-toolchain-9
(make-clang-toolchain clang-9))
(define-public llvm-7
(package
(inherit llvm)
(version "7.0.1")
(source (origin
(method url-fetch)
(uri (string-append "https://llvm.org/releases/"
version "/llvm-" version ".src.tar.xz"))
(sha256
(base32
"16s196wqzdw4pmri15hadzqgdi926zln3an2viwyq0kini6zr3d3"))))))
(define-public clang-runtime-7
(clang-runtime-from-llvm
llvm-7
"065ybd8fsc4h2hikbdyricj6pyv4r7r7kpcikhb2y5zf370xybkq"))
(define-public clang-7
(clang-from-llvm llvm-7 clang-runtime
"067lwggnbg0w1dfrps790r5l6k8n5zwhlsw7zb6zvmfpwpfn4nx4"
#:patches '("clang-7.0-libc-search-path.patch")))
(define-public clang-toolchain-7
(make-clang-toolchain clang-7))
(define-public llvm-6
(package
(inherit llvm)
(version "6.0.1")
(source (origin
(method url-fetch)
(uri (string-append "https://llvm.org/releases/"
version "/llvm-" version ".src.tar.xz"))
(sha256
(base32
"1qpls3vk85lydi5b4axl0809fv932qgsqgdgrk098567z4jc7mmn"))))))
(define-public clang-runtime-6
(clang-runtime-from-llvm
llvm-6
"1fcr3jn24yr8lh36nc0c4ikli4744i2q9m1ik67p1jymwwaixkgl"))
(define-public clang-6
(clang-from-llvm llvm-6 clang-runtime
"0rxn4rh7rrnsqbdgp4gzc8ishbkryhpl1kd3mpnxzpxxhla3y93w"
#:patches '("clang-6.0-libc-search-path.patch")))
(define-public clang-toolchain-6
(make-clang-toolchain clang-6))
;; Libcxx files specifically used by PySide2.
(define-public libcxx-6
(package
(inherit libcxx)
(version (package-version llvm-6))
(source
(origin
(inherit (package-source libcxx))
(uri (string-append "http://llvm.org/releases/"
version "/libcxx-" version ".src.tar.xz"))
(sha256
(base32
"0rzw4qvxp6qx4l4h9amrq02gp7hbg8lw4m0sy3k60f50234gnm3n"))))
(native-inputs
`(("clang" ,clang-6)
("llvm" ,llvm-6)))))
(define-public llvm-3.9.1
(package (inherit llvm)
(name "llvm")
(version "3.9.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://llvm.org/releases/"
version "/llvm-" version ".src.tar.xz"))
(sha256
(base32
"1vi9sf7rx1q04wj479rsvxayb6z740iaz3qniwp266fgp5a07n8z"))))))
(define-public clang-runtime-3.9.1
(clang-runtime-from-llvm
llvm-3.9.1
"16gc2gdmp5c800qvydrdhsp0bzb97s8wrakl6i8a4lgslnqnf2fk"
'("clang-runtime-asan-build-fixes.patch"
"clang-runtime-esan-build-fixes.patch"
"clang-3.5-libsanitizer-ustat-fix.patch")))
(define-public clang-3.9.1
(clang-from-llvm llvm-3.9.1 clang-runtime-3.9.1
"0qsyyb40iwifhhlx9a3drf8z6ni6zwyk3bvh0kx2gs6yjsxwxi76"
#:patches '("clang-3.8-libc-search-path.patch")))
(define-public llvm-3.8
(package (inherit llvm)
(name "llvm")
(version "3.8.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://llvm.org/releases/"
version "/llvm-" version ".src.tar.xz"))
(sha256
(base32
"1ybmnid4pw2hxn12ax5qa5kl1ldfns0njg8533y3mzslvd5cx0kf"))))))
(define-public clang-runtime-3.8
(clang-runtime-from-llvm
llvm-3.8
"0p0y85c7izndbpg2l816z7z7558axq11d5pwkm4h11sdw7d13w0d"
'("clang-runtime-asan-build-fixes.patch"
"clang-3.5-libsanitizer-ustat-fix.patch")))
(define-public clang-3.8
(clang-from-llvm llvm-3.8 clang-runtime-3.8
"1prc72xmkgx8wrzmrr337776676nhsp1qd3mw2bvb22bzdnq7lsc"
#:patches '("clang-3.8-libc-search-path.patch")))
(define-public llvm-3.7
(package (inherit llvm)
(version "3.7.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://llvm.org/releases/"
version "/llvm-" version ".src.tar.xz"))
(sha256
(base32
"1masakdp9g2dan1yrazg7md5am2vacbkb3nahb3dchpc1knr8xxy"))))))
(define-public clang-runtime-3.7
(clang-runtime-from-llvm
llvm-3.7
"10c1mz2q4bdq9bqfgr3dirc6hz1h3sq8573srd5q5lr7m7j6jiwx"
'("clang-runtime-asan-build-fixes.patch"
"clang-3.5-libsanitizer-ustat-fix.patch")))
(define-public clang-3.7
(clang-from-llvm llvm-3.7 clang-runtime-3.7
"0x065d0w9b51xvdjxwfzjxng0gzpbx45fgiaxpap45ragi61dqjn"
#:patches '("clang-3.5-libc-search-path.patch")))
(define-public llvm-3.6
(package (inherit llvm)
(version "3.6.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://llvm.org/releases/"
version "/llvm-" version ".src.tar.xz"))
(sha256
(base32
"153vcvj8gvgwakzr4j0kndc0b7wn91c2g1vy2vg24s6spxcc23gn"))))))
(define-public clang-runtime-3.6
(clang-runtime-from-llvm
llvm-3.6
"11qx8d3pbfqjaj2x207pvlvzihbs1z2xbw4crpz7aid6h1yz6bqg"
'("clang-runtime-asan-build-fixes.patch")))
(define-public clang-3.6
(clang-from-llvm llvm-3.6 clang-runtime-3.6
"1wwr8s6lzr324hv4s1k6na4j5zv6n9kdhi14s4kb9b13d93814df"
#:patches '("clang-3.5-libc-search-path.patch")))
(define-public llvm-3.5
(package (inherit llvm)
(version "3.5.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://llvm.org/releases/"
version "/llvm-" version ".src.tar.xz"))
(patches
(search-patches "llvm-3.5-fix-clang-build-with-gcc5.patch"))
(sha256
(base32
"0xf5q17kkxsrm2gsi93h4pwlv663kji73r2g4asb97klsmb626a4"))))))
(define-public clang-runtime-3.5
(clang-runtime-from-llvm
llvm-3.5
"1hsdnzzdr5kglz6fnv3lcsjs222zjsy14y8ax9dy6zqysanplbal"
'("clang-runtime-asan-build-fixes.patch"
"clang-3.5-libsanitizer-ustat-fix.patch")))
(define-public clang-3.5
(clang-from-llvm llvm-3.5 clang-runtime-3.5
"0846h8vn3zlc00jkmvrmy88gc6ql6014c02l4jv78fpvfigmgssg"
#:patches '("clang-3.5-libc-search-path.patch")))
(define-public llvm-for-extempore
(package (inherit llvm-3.7)
(name "llvm-for-extempore")
(source
(origin
(inherit (package-source llvm-3.7))
(patches (list (search-patch "llvm-for-extempore.patch")))))
;; Extempore refuses to build on architectures other than x86_64
(supported-systems '("x86_64-linux"))))
(define-public python-llvmlite
(package
(name "python-llvmlite")

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

@ -144,7 +144,7 @@ sparsely connected networks.")
"svm-predict"
"svm-scale")))
#t)))))
(home-page "http://www.csie.ntu.edu.tw/~cjlin/libsvm/")
(home-page "https://www.csie.ntu.edu.tw/~cjlin/libsvm/")
(synopsis "Library for Support Vector Machines")
(description
"LIBSVM is a machine learning library for support vector

8
gnu/packages/mail.scm
View File

@ -1388,7 +1388,7 @@ facilities for checking incoming mail.")
(define-public dovecot
(package
(name "dovecot")
(version "2.3.9.2")
(version "2.3.9.3")
(source
(origin
(method url-fetch)
@ -1396,7 +1396,7 @@ facilities for checking incoming mail.")
(version-major+minor version) "/"
"dovecot-" version ".tar.gz"))
(sha256
(base32 "1yc6hi4hqg4hcc4495sf4m5f1lnargphi6dawj43if21vncgp127"))))
(base32 "0lcnqib63nv32xr3nr4s3x8k77mbgrhc13swjl2xqnzw4fabd7zq"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
@ -2306,14 +2306,14 @@ transfer protocols.")
(define-public opensmtpd
(package
(name "opensmtpd")
(version "6.6.3p1")
(version "6.6.4p1")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.opensmtpd.org/archives/"
"opensmtpd-" version ".tar.gz"))
(sha256
(base32 "1dqysjlyl0x3qzdzc9sjrla0063vpmlyq735lzf88p7wgzmw1xwy"))))
(base32 "1kyph9ycq0j21dl9n1sq5fns9p4gckdi0fmnf8awrcwrdcm9dyg2"))))
(build-system gnu-build-system)
(inputs
`(("bdb" ,bdb)

59
gnu/packages/maths.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2019 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2013, 2014, 2015, 2016, 2019, 2020 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
;;; Copyright © 2014, 2016, 2017 John Darrington <jmd@gnu.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Eric Bavier <bavier@posteo.net>
@ -33,6 +33,7 @@
;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2019 Steve Sprang <scs@stevesprang.com>
;;; Copyright © 2019 Robert Smith <robertsmith@posteo.net>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -523,6 +524,51 @@ in memory, so even problems with very large output sizes can sometimes
be solved.")
(license license:gpl2+)))
(define-public vinci
(package
(name "vinci")
(version "1.0.5")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.math.u-bordeaux.fr/~aenge/software/"
"vinci/vinci-" version ".tar.gz"))
(sha256
(base32
"1aq0qc1y27iw9grhgnyji3290wwfznsrk3sg6ynqpxwjdda53h4m"))))
(build-system gnu-build-system)
(inputs
`(("lrslib" ,lrslib)))
(arguments
`(#:tests? #f ; no check phase
#:phases
(modify-phases %standard-phases
(replace 'configure
;; register the lrs location in the config file
(lambda* (#:key inputs #:allow-other-keys)
(let* ((lrs (assoc-ref inputs "lrslib"))
(lrsexec (string-append lrs "/bin/lrs")))
(substitute* "vinci.h"
(("#define LRS_EXEC \"lrs\"")
(string-append "#define LRS_EXEC \"" lrsexec "\""))))
#t))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(install-file "vinci" bin))
#t)))))
(home-page
"https://www.math.u-bordeaux.fr/~aenge/?category=software&page=vinci")
(synopsis "Volume computation for polytopes")
(description
"Vinci implements a number of volume computation algorithms for convex
polytopes in arbitrary dimension. The polytopes can be given by their
V-representation (as the convex hull of a finite number of vertices), by
their H-representation (as the bounded intersection of a finite number of
halfspaces) or by their double description with both representations.")
(license license:gpl2+)))
(define-public arpack-ng
(package
(name "arpack-ng")
@ -4136,7 +4182,12 @@ as equations, scalars, vectors, and matrices.")
"0hprcdwhhyjigmhhk6514m71bnmvqci9r8gglrqilgx424r6ff7q"))))
(build-system gnu-build-system)
(arguments
`(#:phases
`(#:imported-modules ((guix build python-build-system)
,@%gnu-build-system-modules)
#:modules (((guix build python-build-system) #:select (site-packages))
(guix build gnu-build-system)
(guix build utils))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-compatability
;; Versions after 4.8.3 have immintrin.h IFDEFed for Windows only.
@ -4153,7 +4204,9 @@ as equations, scalars, vectors, and matrices.")
(replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys)
(invoke "./configure"
(string-append "--prefix=" (assoc-ref outputs "out")))))
"--python"
(string-append "--prefix=" (assoc-ref outputs "out"))
(string-append "--pypkgdir=" (site-packages inputs outputs)))))
(add-after 'configure 'change-directory
(lambda _
(chdir "build")

132
gnu/packages/messaging.scm
View File

@ -18,6 +18,7 @@
;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org>
;;; Copyright © 2019, 2020 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2019, 2020 Timotej Lazar <timotej.lazar@araneo.si>
;;; Copyright © 2020 Nicolò Balzarotti <nicolo@nixo.xyz>
;;;
;;; This file is part of GNU Guix.
;;;
@ -48,6 +49,7 @@
#:use-module (gnu packages boost)
#:use-module (gnu packages check)
#:use-module (gnu packages compression)
#:use-module (gnu packages cpp)
#:use-module (gnu packages crypto)
#:use-module (gnu packages curl)
#:use-module (gnu packages cyrus-sasl)
@ -68,8 +70,10 @@
#:use-module (gnu packages libcanberra)
#:use-module (gnu packages libidn)
#:use-module (gnu packages linux)
#:use-module (gnu packages logging)
#:use-module (gnu packages lua)
#:use-module (gnu packages man)
#:use-module (gnu packages markup)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages networking)
#:use-module (gnu packages pcre)
@ -1634,14 +1638,14 @@ are both supported).")
(define-public profanity
(package
(name "profanity")
(version "0.7.1")
(version "0.8.1")
(source (origin
(method url-fetch)
(uri (string-append "https://profanity-im.github.io/profanity-"
version ".tar.gz"))
(sha256
(base32
"0nxh81j8ky0fzv47pip1jb7rs5rrin3jx0f3h632bvpjiya45r1z"))))
"15yrx2ir2bilxpjfaxpjb93yjpvpvcvh5r7wbsjx6kmmy7qg2zvb"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags
@ -1787,6 +1791,130 @@ implementation. Quaternion and libqmatrixclient together form the
QMatrixClient project.")
(license license:lgpl2.1+)))
(define-public mtxclient
(package
(name "mtxclient")
(version "0.2.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Nheko-Reborn/mtxclient.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0pycznrvj57ff6gbwfn1xj943d2dr4vadl79hii1z16gn0nzxpmj"))))
(arguments
`(#:configure-flags
(list
;; Disable example binaries (not installed)
"-DBUILD_LIB_EXAMPLES=OFF")
#:phases
(modify-phases %standard-phases
(add-before 'configure 'disable-network-tests
(lambda _
(substitute* "CMakeLists.txt"
(("add_test\\((BasicConnectivity|ClientAPI|MediaAPI|Encryption)")
"# add_test"))
#t))
(add-before 'configure 'set-home
(lambda _
;; Tries to create package registry file
;; So, set HOME.
(setenv "HOME" "/tmp")
#t)))))
(build-system cmake-build-system)
(inputs
`(("boost" ,boost)
("json-modern-cxx" ,json-modern-cxx)
("libolm" ,libolm)
("libsodium" ,libsodium)
("openssl" ,openssl)
("spdlog" ,spdlog)
("zlib" ,zlib)))
(native-inputs
`(("googletest" ,googletest)
("pkg-config" ,pkg-config)))
(home-page "https://github.com/Nheko-Reborn/mtxclient")
(synopsis "Client API library for the Matrix protocol")
(description "@code{mtxclient} is a C++ library that implements client API
for the Matrix protocol. It is built on to of @code{Boost.Asio}.")
(license license:expat)))
(define-public nheko
(package
(name "nheko")
(version "0.6.4")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Nheko-Reborn/nheko.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "19dkc98l1q4070v6mli4ybqn0ip0za607w39hjf0x8rqdxq45iwm"))))
(arguments
`(#:tests? #f ;no test target
#:configure-flags
(list
"-DCMAKE_BUILD_TYPE=Release"
"-DCMAKE_CXX_FLAGS=-fpermissive")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'remove-Werror
(lambda _
(substitute* "CMakeLists.txt"
(("-Werror") ""))
#t))
(add-after 'unpack 'fix-determinism
(lambda _
;; Make Qt deterministic.
(setenv "QT_RCC_SOURCE_DATE_OVERRIDE" "1")
#t)))))
(build-system qt-build-system)
(inputs
`(("boost" ,boost)
("cmark" ,cmark)
("json-modern-cxx" ,json-modern-cxx)
("libolm" ,libolm)
("lmdb" ,lmdb)
("lmdbxx" ,lmdbxx)
("mtxclient" ,mtxclient)
("openssl" ,openssl)
("qtbase" ,qtbase)
("qtsvg" ,qtsvg)
("qtmultimedia" ,qtmultimedia)
("spdlog" ,spdlog)
("tweeny" ,tweeny)
("zlib" ,zlib)))
(native-inputs
`(("pkg-config" ,pkg-config)
("qtlinguist" ,qttools)))
(home-page "https://github.com/Nheko-Reborn/nheko")
(synopsis "Desktop client for Matrix using Qt and C++14")
(description "@code{Nheko} want to provide a native desktop app for the
Matrix protocol that feels more like a mainstream chat app and less like an IRC
client.
There is support for:
@itemize
@item E2E encryption (text messages only: attachments are currently sent unencrypted).
@item User registration.
@item Creating, joining & leaving rooms.
@item Sending & receiving invites.
@item Sending & receiving files and emoji.
@item Typing notifications.
@item Username auto-completion.
@item Message & mention notifications.
@item Redacting messages.
@item Read receipts.
@item Basic communities support.
@item Room switcher (@key{ctrl-K}).
@item Light, Dark & System themes.
@end itemize")
(license license:gpl3+)))
(define-public quaternion
(package
(name "quaternion")

49
gnu/packages/mono.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz>
;;;
;;; This file is part of GNU Guix.
;;;
@ -18,9 +19,14 @@
(define-module (gnu packages mono)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages gettext)
#:use-module (gnu packages glib)
#:use-module (gnu packages gtk)
#:use-module (gnu packages image)
#:use-module (gnu packages perl)
#:use-module (gnu packages photo)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages xml)
#:use-module (gnu packages)
@ -124,3 +130,46 @@ C#, a C-style programming language from Microsoft that is very similar to
Java.")
(home-page "https://www.mono-project.com/")
(license license:x11)))
(define-public libgdiplus
(package
(name "libgdiplus")
(version "6.0.4")
(source
(origin
(method url-fetch)
(uri (string-append
"http://download.mono-project.com/sources/libgdiplus/libgdiplus-"
version
".tar.gz"))
(sha256
(base32
"0adz5813f881z65lpyf0g0w9hcn7d7qkai6sncpkwnsxfv4khp5p"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("glib" ,glib)
("cairo" ,cairo)
("fontconfig" ,fontconfig)
("libtiff" ,libtiff)
("libjpeg" ,libjpeg)
("libexif" ,libexif)
("libungif" ,libungif)))
(arguments
`(#:phases
(modify-phases %standard-phases
;; TODO: See with upstream why they fail.
;; https://github.com/mono/mono/issues/18934
(add-before 'configure 'remove-buggy-tests
(lambda _
(substitute* "tests/Makefile.in"
(("testicocodec\\$\\(EXEEXT\\) ") " ")
(("testfont\\$\\(EXEEXT\\) ") " "))
#t)))))
(home-page "https://www.mono-project.com/docs/gui/libgdiplus/")
(synopsis "Mono library that provides a GDI+-compatible API")
(description "Libgdiplus is the Mono library that provides a
GDI+-compatible API on non-Windows operating systems. The implementation uses
Cairo to do most of the heavy lifting.")
(license license:gpl3+)))

12
gnu/packages/mpd.scm
View File

@ -60,7 +60,7 @@
(define-public libmpdclient
(package
(name "libmpdclient")
(version "2.17")
(version "2.18")
(source (origin
(method url-fetch)
(uri
@ -69,7 +69,7 @@
"/libmpdclient-" version ".tar.xz"))
(sha256
(base32
"0n9mrrmk20p4mfsz782jziax9z3bn7vxlm53327mrdlmgqf8z6zf"))))
"1yl123xr25gcd3vlsfmn6p7gbrq029pgnxa8m6n6j0byaqgixc2c"))))
(build-system meson-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
@ -92,7 +92,7 @@ interfacing MPD in the C, C++ & Objective C languages.")
(define-public mpd
(package
(name "mpd")
(version "0.21.18")
(version "0.21.20")
(source (origin
(method url-fetch)
(uri
@ -101,7 +101,7 @@ interfacing MPD in the C, C++ & Objective C languages.")
"/mpd-" version ".tar.xz"))
(sha256
(base32
"0hllkq426hql1s80xxvy28ypvw3dbfrrclbjc0lckmmgsmnfd0l7"))))
"1q8hwl3i0a4qzdwfh44r0nh5zd2mm3rraqw5qvmz6qfrjslz0bj2"))))
(build-system meson-build-system)
(arguments
`(#:configure-flags '("-Ddocumentation=true"))) ;the default is 'false'...
@ -183,7 +183,7 @@ player daemon.")
(define-public ncmpc
(package
(name "ncmpc")
(version "0.36")
(version "0.37")
(source (origin
(method url-fetch)
(uri
@ -192,7 +192,7 @@ player daemon.")
"/ncmpc-" version ".tar.xz"))
(sha256
(base32
"0b1yg93is9057p9d7vfv5nz85d11p6jq94fw07jn3zlfzhyqfcj6"))))
"0p31jpv1vj01bqf1589mnfpv9618cfsv259rlnbqybg1yqkvg3kw"))))
(build-system meson-build-system)
(arguments
`(#:configure-flags

88
gnu/packages/mpi.scm
View File

@ -26,14 +26,15 @@
(define-module (gnu packages mpi)
#:use-module (guix packages)
#:use-module ((guix licenses)
#:hide (expat))
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix download)
#:use-module (guix utils)
#:use-module (guix deprecation)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
#:use-module (gnu packages)
#:use-module (gnu packages base)
#:use-module (gnu packages compression)
#:use-module (gnu packages fabric-management)
#:use-module (gnu packages gcc)
#:use-module (gnu packages java)
@ -128,7 +129,7 @@ exploit it accordingly and efficiently.
hwloc may display the topology in multiple convenient formats. It also offers
a powerful programming interface to gather information about the hardware,
bind processes, and much more.")
(license bsd-3)))
(license license:bsd-3)))
(define-public hwloc-2
;; Note: 2.0 isn't the default yet, see above.
@ -273,7 +274,7 @@ from all across the High Performance Computing community in order to build the
best MPI library available. Open MPI offers advantages for system and
software vendors, application developers and computer science researchers.")
;; See file://LICENSE
(license bsd-2)))
(license license:bsd-2)))
;; TODO: javadoc files contain timestamps.
(define-public java-openmpi
@ -392,4 +393,81 @@ object oriented interface which closely follows MPI-2 C++ bindings. It
supports point-to-point and collective communications of any picklable Python
object as well as optimized communications of Python objects (such as NumPy
arrays) that expose a buffer interface.")
(license bsd-3)))
(license license:bsd-3)))
(define-public mpich
(package
(name "mpich")
(version "3.3.2")
(source (origin
(method url-fetch)
(uri (string-append "http://www.mpich.org/static/downloads/"
version "/mpich-" version ".tar.gz"))
(sha256
(base32
"1farz5zfx4cd0c3a0wb9pgfypzw0xxql1j1294z1sxslga1ziyjb"))))
(build-system gnu-build-system)
(inputs
`(("zlib" ,zlib)
("hwloc" ,hwloc-2 "lib")
("slurm" ,slurm)
,@(if (and (not (%current-target-system))
(member (%current-system) (package-supported-systems ucx)))
`(("ucx" ,ucx))
'())))
(native-inputs
`(("perl" ,perl)
("which" ,which)
("gfortran" ,gfortran)))
(outputs '("out" "debug"))
(arguments
`(#:configure-flags
(list "--disable-silent-rules" ;let's see what's happening
"--enable-debuginfo"
;; "--with-device=ch4:ucx" ; --with-device=ch4:ofi segfaults in tests
(string-append "--with-hwloc-prefix="
(assoc-ref %build-inputs "hwloc"))
,@(if (assoc "ucx" (package-inputs this-package))
`((string-append "--with-ucx="
(assoc-ref %build-inputs "ucx")))
'()))
#:phases (modify-phases %standard-phases
(add-after 'unpack 'patch-sources
(lambda _
(substitute* "./maint/gen_subcfg_m4"
(("/usr/bin/env") (which "env")))
(substitute* "src/glue/romio/all_romio_symbols"
(("/usr/bin/env") (which "env")))
(substitute* (find-files "." "buildiface")
(("/usr/bin/env") (which "env")))
(substitute* "maint/extracterrmsgs"
(("/usr/bin/env") (which "env")))
(substitute* (find-files "." "f77tof90")
(("/usr/bin/env") (which "env")))
(substitute* (find-files "." "\\.sh$")
(("/bin/sh") (which "sh")))
#t))
(add-before 'configure 'fix-makefile
(lambda _
;; Remove "@hwloclib@" from 'pmpi_convenience_libs'.
;; This fixes "No rule to make target '-lhwloc', needed
;; by 'lib/libmpi.la'".
(substitute* "Makefile.in"
(("^pmpi_convenience_libs = (.*) @hwloclib@ (.*)$" _
before after)
(string-append "pmpi_convenience_libs = "
before " " after)))
#t)))))
(home-page "https://www.mpich.org/")
(synopsis "Implementation of the Message Passing Interface (MPI)")
(description
"MPICH is a high-performance and portable implementation of the Message
Passing Interface (MPI) standard (MPI-1, MPI-2 and MPI-3). MPICH provides an
MPI implementation that efficiently supports different computation and
communication platforms including commodity clusters, high-speed networks (10
Gigabit Ethernet, InfiniBand, Myrinet, Quadrics), and proprietary high-end
computing systems (Blue Gene, Cray). It enables research in MPI through a
modular framework for other derived implementations.")
(license license:bsd-2)))

2
gnu/packages/multiprecision.scm
View File

@ -131,7 +131,7 @@ correct rounding.")
for performing arithmetic on complex numbers. It supports arbitrarily high
precision and correctly rounds the results.")
(license lgpl3+)
(home-page "http://multiprecision.org/mpc/")))
(home-page "http://www.multiprecision.org/mpc/")))
(define-public mpfi
(package

19
gnu/packages/music.scm
View File

@ -13,7 +13,7 @@
;;; Copyright © 2017, 2018, 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2017, 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 nee <nee.git@hidamari.blue>
;;; Copyright © 2018 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
@ -876,11 +876,6 @@ interface. It is implemented as a frontend to @code{klick}.")
(build-system cmake-build-system)
(arguments
'(#:tests? #f)) ; no check target
(native-inputs
`(;; Use gcc-4.9 to work around an internal compiler error that happens
;; when using gcc-5.5.0. FIXME: Try removing this when the default
;; compiler is no longer gcc-5.5.0.
("gcc" ,gcc-4.9)))
(home-page "https://bitbucket.org/mpyne/game-music-emu")
(synopsis "Video game music file playback library")
(description
@ -2284,7 +2279,7 @@ improves on support for JACK features, such as JACK MIDI.")
("libsndfile" ,libsndfile)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "http://linuxsampler.org/libgig/")
(home-page "https://linuxsampler.org/libgig/")
(synopsis "C++ library for working with Gigasampler (.gig) files")
(description
"Libgig is a C++ library for loading, modifying existing and creating new
@ -2621,7 +2616,7 @@ tune-in sender list from @url{http://opml.radiotime.com}.")
(define-public pianobar
(package
(name "pianobar")
(version "2016.06.02")
(version "2019.02.14")
(source (origin
(method git-fetch)
(uri (git-reference
@ -2630,10 +2625,10 @@ tune-in sender list from @url{http://opml.radiotime.com}.")
(file-name (git-file-name name version))
(sha256
(base32
"058fbdxp7n35hxwy3b8slfy4pb4n63cb173vfmywqa06wh1dv6f6"))))
"1bfabkj3m9kmhxl64w4azmi0xf7w52fmqfbw2ag28hbb5yy01k1m"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no tests
`(#:tests? #f ; no tests
#:make-flags (list "CC=gcc" "CFLAGS=-std=c99"
(string-append "PREFIX=" %output))
#:phases (modify-phases %standard-phases
@ -2643,10 +2638,10 @@ tune-in sender list from @url{http://opml.radiotime.com}.")
("curl" ,curl)
("libgcrypt" ,libgcrypt)
("json-c" ,json-c)
("ffmpeg" ,ffmpeg-3.4)))
("ffmpeg" ,ffmpeg)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "http://6xq.net/projects/pianobar/")
(home-page "https://6xq.net/pianobar/")
(synopsis "Console-based pandora.com player")
(description "pianobar is a console-based music player for the
personalized online radio pandora.com. It has configurable keys for playing

6
gnu/packages/ncdu.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 John Darrington <jmd@gnu.org>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -28,14 +28,14 @@
(define-public ncdu
(package
(name "ncdu")
(version "1.14.1")
(version "1.14.2")
(source (origin
(method url-fetch)
(uri (string-append "https://dev.yorhel.nl/download/ncdu-"
version ".tar.gz"))
(sha256
(base32
"0gp1aszzrh8b6fhv8fspvkmr0qwc55z6z4w6l7r8j09sq7lf0cdy"))))
"1cf6a9qw7ljaw09b0g7c5i252dl7wb2mnkrbwwwf7m0c3mf7yyll"))))
(build-system gnu-build-system)
(inputs `(("ncurses" ,ncurses)))
(synopsis "Ncurses based disk usage analyzer")

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