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

Merge branch 'master' into core-updates

Browse source
This commit is contained in:
Marius Bakke 2020-03-18 19:41:08 +01:00
commit c4d769d359
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
87 changed files with 2468 additions and 951 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
doc/guix.texi
View file

@ -32,7 +32,7 @@ Copyright @copyright{} 2015, 2016, 2017, 2019, 2020 Leo Famulari@*
Copyright @copyright{} 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus@*
Copyright @copyright{} 2016 Ben Woodcroft@*
Copyright @copyright{} 2016, 2017, 2018 Chris Marusich@*
Copyright @copyright{} 2016, 2017, 2018, 2019 Efraim Flashner@*
Copyright @copyright{} 2016, 2017, 2018, 2019, 2020 Efraim Flashner@*
Copyright @copyright{} 2016 John Darrington@*
Copyright @copyright{} 2016, 2017 ng0@*
Copyright @copyright{} 2016, 2017, 2018, 2019 Jan Nieuwenhuizen@*
@ -18152,7 +18152,7 @@ record as in this example:
@lisp
(service prosody-service-type
(prosody-configuration
(modules-enabled (cons "groups" "mam" %default-modules-enabled))
(modules-enabled (cons* "groups" "mam" %default-modules-enabled))
(int-components
(list
(int-component-configuration
@ -20272,6 +20272,17 @@ names of loadable modules, as in this example:
/etc/nginx/modules/ngx_http_accept_language_module.so")))
@end lisp
@item @code{global-directives} (default: @code{'((events . ()))})
Association list of global directives for the top level of the nginx
configuration. Values may themselves be association lists.
@lisp
(global-directives
`((worker_processes . 16)
(pcre_jit . on)
(events . ((worker_connections . 1024)))))
@end lisp
@item @code{extra-content} (default: @code{""})
Extra content for the @code{http} block. Should be string or a string
valued G-expression.
@ -26985,8 +26996,28 @@ login over SSH may be forbidden in some cases. To work around this,
@command{guix deploy} can log in as an unprivileged user and employ
@code{sudo} to escalate privileges. This will only work if @code{sudo} is
currently installed on the remote and can be invoked non-interactively as
@code{user}. That is: the line in @code{sudoers} granting @code{user} the
ability to use @code{sudo} must contain the @code{NOPASSWD} tag.
@code{user}. That is, the line in @code{sudoers} granting @code{user} the
ability to use @code{sudo} must contain the @code{NOPASSWD} tag. This can
be accomplished with the following operating system configuration snippet:
@lisp
(use-modules ...
(gnu system)) ;for %sudoers-specification
(define %user "username")
(operating-system
...
(sudoers-file
(plain-file "sudoers"
(string-append (plain-file-content %sudoers-specification)
(format #f "~a ALL = NOPASSWD: ALL~%"
%username)))))
@end lisp
For more information regarding the format of the @file{sudoers} file,
consult @command{man sudoers}.
@deftp {Data Type} machine
This is the data type representing a single machine in a heterogeneous Guix

51
gnu/bootloader/grub.scm
View file

@ -4,6 +4,7 @@
;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -35,6 +36,7 @@
#:use-module (ice-9 match)
#:use-module (ice-9 regex)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-2)
#:export (grub-image
grub-image?
grub-image-aspect-ratio
@ -148,37 +150,26 @@ STORE-MOUNT-POINT is its mount point; these are used to determine where the
background image and fonts must be searched for. SYSTEM must be the target
system string---e.g., \"x86_64-linux\"."
(define setup-gfxterm-body
;; Intel and EFI systems need to be switched into graphics mode, whereas
;; most other modern architectures have no other mode and therefore don't
;; need to be switched.
(if (string-match "^(x86_64|i[3-6]86)-" system)
(string-append
"
"
(let ((gfxmode (and=>
(and=> config bootloader-configuration-theme)
grub-gfxmode)))
(if gfxmode
(string-append "set gfxmode=" (string-join gfxmode ";"))
"# Leave 'gfxmode' to 'auto'."))
"
insmod video_bochs
insmod video_cirrus
insmod gfxterm
(let ((gfxmode
(or (and-let* ((theme (bootloader-configuration-theme config))
(gfxmode (grub-gfxmode theme)))
(string-join gfxmode ";"))
"auto")))
if [ \"${grub_platform}\" == efi ]; then
# This is for (U)EFI systems (these modules are unavailable in the
# non-EFI GRUB.) If we don't load them, GRUB boots in \"blind mode\",
# which isn't convenient.
insmod efi_gop
insmod efi_uga
else
# These are specific to non-EFI Intel machines.
insmod vbe
insmod vga
fi
")
""))
;; Intel and EFI systems need to be switched into graphics mode, whereas
;; most other modern architectures have no other mode and therefore
;; don't need to be switched.
;; XXX: Do we really need to restrict to x86 systems? We could imitate
;; what the GRUB default configuration does and decide based on whether
;; a user provided 'gfxterm' in the terminal-outputs field of their
;; bootloader-configuration record.
(if (string-match "^(x86_64|i[3-6]86)-" system)
(format #f "
set gfxmode=~a
insmod all_video
insmod gfxterm~%" gfxmode)
"")))
(define (setup-gfxterm config font-file)
(if (memq 'gfxterm (bootloader-configuration-terminal-outputs config))

6
gnu/local.mk
View file

@ -756,9 +756,11 @@ dist_patch_DATA = \
%D%/packages/patches/bastet-change-source-of-unordered_set.patch \
%D%/packages/patches/bazaar-CVE-2017-14176.patch \
%D%/packages/patches/bc-fix-cross-compilation.patch \
%D%/packages/patches/beets-werkzeug-compat.patch \
%D%/packages/patches/beignet-correct-file-names.patch \
%D%/packages/patches/benchmark-unbundle-googletest.patch \
%D%/packages/patches/biber-fix-encoding-write.patch \
%D%/packages/patches/bidiv-update-fribidi.patch \
%D%/packages/patches/binutils-boot-2.20.1a.patch \
%D%/packages/patches/binutils-loongson-workaround.patch \
%D%/packages/patches/blender-2.79-newer-ffmpeg.patch \
@ -833,6 +835,7 @@ dist_patch_DATA = \
%D%/packages/patches/dstat-fix-crash-when-specifying-delay.patch \
%D%/packages/patches/dstat-skip-devices-without-io.patch \
%D%/packages/patches/dvd+rw-tools-add-include.patch \
%D%/packages/patches/eigen-stabilise-sparseqr-test.patch \
%D%/packages/patches/einstein-build.patch \
%D%/packages/patches/elfutils-tests-ptrace.patch \
%D%/packages/patches/elixir-path-length.patch \
@ -1327,16 +1330,19 @@ dist_patch_DATA = \
%D%/packages/patches/python-3-fix-tests.patch \
%D%/packages/patches/python-3.8-fix-tests.patch \
%D%/packages/patches/python-CVE-2018-14647.patch \
%D%/packages/patches/python-alembic-exceptions-cause.patch \
%D%/packages/patches/python-axolotl-AES-fix.patch \
%D%/packages/patches/python-cairocffi-dlopen-path.patch \
%D%/packages/patches/python-cross-compile.patch \
%D%/packages/patches/python2-larch-coverage-4.0a6-compatibility.patch \
%D%/packages/patches/python-configobj-setuptools.patch \
%D%/packages/patches/python-faker-fix-build-32bit.patch \
%D%/packages/patches/python-flask-restful-werkzeug-compat.patch \
%D%/packages/patches/python-keras-integration-test.patch \
%D%/packages/patches/python-pep8-stdlib-tokenize-compat.patch \
%D%/packages/patches/python-pyfakefs-remove-bad-test.patch \
%D%/packages/patches/python-flint-includes.patch \
%D%/packages/patches/python-jedi-deleted-variables.patch \
%D%/packages/patches/python-libxml2-utf8.patch \
%D%/packages/patches/python-mox3-python3.6-compat.patch \
%D%/packages/patches/python-testtools.patch \

6
gnu/packages/admin.scm
View file

@ -716,7 +716,7 @@ IPv6, proxies, and Unix sockets.")
(base32
"0mv3wndj4z2bsshh2k8d5sy3j8wxzgf8mzmmkvj1k8gpcz37dm6g"))))
(build-system gnu-build-system)
(home-page "http://www.routemeister.net/projects/sipcalc/")
(home-page "https://www.routemeister.net/projects/sipcalc/")
(synopsis "Command-line IP subnet calculator")
(description
"Sipcalc is an advanced command-line IP subnet calculator. It can take
@ -1206,7 +1206,7 @@ system administrator.")
(define-public sudo
(package
(name "sudo")
(version "1.8.31")
(version "1.8.31p1")
(source (origin
(method url-fetch)
(uri
@ -1216,7 +1216,7 @@ system administrator.")
version ".tar.gz")))
(sha256
(base32
"0ks5mm9hda5idivncyfpiz4lrd8fv0dpmsl711788k7f7ixdka3y"))
"1n0mdmgcs92af34xxsnsh1arrngymhdmwd9srjgjbk65q7xzsg67"))
(modules '((guix build utils)))
(snippet
'(begin

2
gnu/packages/agda.scm
View file

@ -126,7 +126,7 @@
(for-each (cut invoke agda-compiler <>)
(find-files (string-append out "/share") "\\.agda$"))
#t))))))
(home-page "http://wiki.portal.chalmers.se/agda/")
(home-page "https://wiki.portal.chalmers.se/agda/")
(synopsis
"Dependently typed functional programming language and proof assistant")
(description

7
gnu/packages/algebra.scm
View file

@ -5,7 +5,7 @@
;;; Copyright © 2014, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017, 2019 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
@ -919,15 +919,16 @@ Sine Transform} (DST) and @dfn{Discrete Hartley Transform} (DHT).")
(define-public eigen
(package
(name "eigen")
(version "3.3.5")
(version "3.3.7")
(source (origin
(method url-fetch)
(uri (string-append "https://bitbucket.org/eigen/eigen/get/"
version ".tar.bz2"))
(sha256
(base32
"1qh3yrwn78ms5yhwbpl5wvblk4gbz02cacdygxylr7i9xbrvylkk"))
"1km3fyfzyqfdvmnl79drps3fjwnz3zbh0c7l34mfbqyvvs8cy4wz"))
(file-name (string-append name "-" version ".tar.bz2"))
(patches (search-patches "eigen-stabilise-sparseqr-test.patch"))
(modules '((guix build utils)))
(snippet
;; There are 3 test failures in the "unsupported" directory,

86
gnu/packages/audio.scm
View file

@ -58,6 +58,7 @@
#:use-module (gnu packages curl)
#:use-module (gnu packages dbm)
#:use-module (gnu packages documentation)
#:use-module (gnu packages elf)
#:use-module (gnu packages emacs)
#:use-module (gnu packages file)
#:use-module (gnu packages flex)
@ -1442,7 +1443,7 @@ patches that can be used with softsynths such as Timidity and WildMidi.")
(list (search-path-specification
(variable "LV2_PATH")
(files '("lib/lv2")))))
(home-page "http://guitarix.org/")
(home-page "https://guitarix.org/")
(synopsis "Virtual guitar amplifier")
(description "Guitarix is a virtual guitar amplifier running JACK.
Guitarix takes the signal from your guitar as a mono-signal from your sound
@ -3691,38 +3692,35 @@ using ALSA, MPD, PulseAudio, or a FIFO buffer as its input.")
(license license:expat))))
(define-public libfdk
(let ((commit "2326faaf8f2cdf2c3a9108ccdaf1d7551aec543e")
(revision "0"))
(package
(name "libfdk")
;; The latest upstream revision, with many bug fixes.
(version (git-version "0.1.6" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mstorsjo/fdk-aac")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0yy6ndd9d61bwl283vl1r5kva2a4acc0f4r9g0sza156f2abr9ws"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("libtool" ,libtool)))
(home-page "https://github.com/mstorsjo/fdk-aac")
(synopsis "Fraunhofer FDK AAC library")
(description "FDK is a library for encoding and decoding Advanced Audio
(package
(name "libfdk")
(version "2.0.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mstorsjo/fdk-aac")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1fkrnzs78fmj11n9z3l0w53i2fl16jcfiyavwidck9bzmkmsf486"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("libtool" ,libtool)))
(home-page "https://github.com/mstorsjo/fdk-aac")
(synopsis "Fraunhofer FDK AAC library")
(description "FDK is a library for encoding and decoding Advanced Audio
Coding (AAC) format audio, developed by Fraunhofer IIS, and included as part of
Android. It supports several Audio Object Types including MPEG-2 and MPEG-4 AAC
LC, HE-AAC (AAC LC + SBR), HE-AACv2 (LC + SBR + PS) as well AAC-LD (low delay)
and AAC-ELD (enhanced low delay) for real-time communication. The encoding
library supports sample rates up to 96 kHz and up to eight channels (7.1
surround).")
(license (license:fsf-free "https://github.com/mstorsjo/fdk-aac/blob/master/NOTICE"
"https://www.gnu.org/licenses/license-list.html#fdk")))))
surround).")
(license (license:fsf-free "https://github.com/mstorsjo/fdk-aac/blob/master/NOTICE"
"https://www.gnu.org/licenses/license-list.html#fdk"))))
(define-public libopenshot-audio
(package
@ -4044,3 +4042,35 @@ libsamplerate for reading and resampling audio files, based on Robin Gareus'
@code{audio_decoder} code.")
(home-page "https://git.zrythm.org/cgit/libaudec")
(license license:agpl3+)))
(define-public lv2lint
(package
(name "lv2lint")
(version "0.4.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://git.open-music-kontrollers.ch/lv2/lv2lint")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1pspwqpzl2dw1hd9ra9yr53arqbbqjn7d7j0f7p9g3iqa76vblpi"))))
(build-system meson-build-system)
(arguments
`(#:configure-flags
`("-Delf-tests=true" ; for checking symbol visibility
"-Donline-tests=true"))) ; for checking URI existence
(inputs
`(("curl", curl)
("libelf", libelf)
("lilv", lilv)))
(native-inputs
`(("pkg-config", pkg-config)))
(synopsis "LV2 plugin lint tool")
(description "lv2lint is an LV2 lint-like tool that checks whether a
given plugin and its UI(s) match up with the provided metadata and adhere
to well-known best practices.")
(home-page "https://open-music-kontrollers.ch/lv2/lv2lint/")
(license license:artistic2.0)))

6
gnu/packages/benchmark.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017 Dave Love <fx@gnu.org>
;;; 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 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2019 Gábor Boskovits <boskovits@gmail.com>
@ -46,14 +46,14 @@
(define-public fio
(package
(name "fio")
(version "3.18")
(version "3.19")
(source (origin
(method url-fetch)
(uri (string-append "https://brick.kernel.dk/snaps/"
"fio-" version ".tar.bz2"))
(sha256
(base32
"12wzi40hn0ylkdiqwjjljdjmiq78nhwsv3qqa0fad7h3x08w6w6b"))))
"01nc7igmcc6hda32d1y8vidd9x9pdlxvf3i1pwrzvmi6xvmbfvab"))))
(build-system gnu-build-system)
(arguments
'(#:test-target "test"

3
gnu/packages/bioconductor.scm
View file

@ -6630,7 +6630,8 @@ measures.")
("r-gplots" ,r-gplots)
("r-limma" ,r-limma)
("r-rcolorbrewer" ,r-rcolorbrewer)))
(home-page "http://www.ebi.ac.uk/bertone/software")
(home-page (string-append "https://www.ebi.ac.uk/sites/ebi.ac.uk/files/"
"groups/bertone/software/HTqPCR.pdf"))
(synopsis "Automated analysis of high-throughput qPCR data")
(description
"Analysis of Ct values from high throughput quantitative real-time

10
gnu/packages/bioinformatics.scm
View file

@ -6322,16 +6322,16 @@ application of SortMeRNA is filtering rRNA from metatranscriptomic data.")
(define-public star
(package
(name "star")
(version "2.7.1a")
(version "2.7.3a")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/alexdobin/STAR.git")
(commit version)))
(file-name (string-append name "-" version "-checkout"))
(file-name (git-file-name name version))
(sha256
(base32
"0n6g4s4hgw7qygs1z97j7a2dgz8gfaa4cv5pjvvvmarvk0x07hyg"))
"1hgiqw5qhs0pc1xazzihcfd92na02xyq2kb469z04y1v51kpvvjq"))
(modules '((guix build utils)))
(snippet
'(begin
@ -12815,7 +12815,7 @@ methylation and segmentation.")
(define-public pigx-scrnaseq
(package
(name "pigx-scrnaseq")
(version "1.1.3")
(version "1.1.4")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/BIMSBbioinfo/pigx_scrnaseq/"
@ -12823,7 +12823,7 @@ methylation and segmentation.")
"/pigx_scrnaseq-" version ".tar.gz"))
(sha256
(base32
"0ga2jr4968qzwml6aycky4603q64lny3y7lzw6dmafch5pydl1qi"))))
"1d5l3gywypi67yz9advxq5xkgfhr4733gj0bwnngm723i3hdf5w9"))))
(build-system gnu-build-system)
(inputs
`(("coreutils" ,coreutils)

8
gnu/packages/check.scm
View file

@ -393,7 +393,7 @@ and it supports a very flexible form of test discovery.")
(define-public doctest
(package
(name "doctest")
(version "2.3.6")
(version "2.3.7")
(home-page "https://github.com/onqtam/doctest")
(source (origin
(method git-fetch)
@ -401,7 +401,7 @@ and it supports a very flexible form of test discovery.")
(file-name (git-file-name name version))
(sha256
(base32
"070gkwffi73i2p0azga9yxj8km32bp8bw4jvkvz1vzlpavyii5kn"))))
"134lx7pjnglrl4wdmyr9dz3rjb6d4ir6rvapg00gp52n44dbhnrq"))))
(build-system cmake-build-system)
(synopsis "C++ test framework")
(description
@ -701,14 +701,14 @@ have been used.")
(define-public python-nose2
(package
(name "python-nose2")
(version "0.6.5")
(version "0.9.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "nose2" version))
(sha256
(base32
"1x4zjq1zlyrh8b9ba0cmafd3w94pxhid408kibyjd3s6h1lap6s7"))))
"0pmbb6nk31yhgh4zkcblzxsznml7f7pf5q1ihgrwvbxv4mwzfql7"))))
(build-system python-build-system)
(arguments `(#:tests? #f)) ; 'module' object has no attribute 'collector'
(propagated-inputs

3
gnu/packages/cook.scm
View file

@ -73,7 +73,8 @@
;; This test is therefore just skipped.
;; ("inetutils" ,inetutils)
("ed" ,ed)))
(home-page "http://miller.emu.id.au/pmiller/software/cook")
(home-page (string-append "https://web.archive.org/web/20140727122520/"
"http://miller.emu.id.au/pmiller/software/cook/"))
(synopsis "Tool for constructing files")
(description "Cook is a tool for constructing files. It is given a set of
files to create, and recipes of how to create them. In any non-trivial program

46
gnu/packages/cran.scm
View file

@ -3,7 +3,7 @@
;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2016, 2017 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2016, 2017, 2018 Roel Janssen <roel@gnu.org>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Raoul Bonnal <ilpuccio.febo@gmail.com>
;;; Copyright © 2018 Vijayalakshmi Vedantham <vijimay12@gmail.com>
;;; Copyright © 2018 Sahithi Yarlagadda <sahi@swecha.net>
@ -1351,7 +1351,7 @@ applications. That is, compute distances and related measures for angular
"1a8mi70x79a691r40yiw684jkg1mr9n8agkxlcksxcnrdybs9c0x"))))
(build-system r-build-system)
(inputs `(("libjpeg" ,libjpeg-turbo)))
(home-page "http://www.rforge.net/jpeg/")
(home-page "https://www.rforge.net/jpeg/")
(synopsis "Read and write JPEG images with R")
(description "This package provides a way to read, write and display
bitmap images stored in the JPEG format with R. It can read and write both
@ -1592,7 +1592,7 @@ error stream.")
(sha256
(base32 "121byimd6bg7jbrq5wz5fpi0vxq0vh8g724vkhnjzszbvcv1xsb7"))))
(build-system r-build-system)
(home-page "http://mevik.net/work/software/pls.html")
(home-page "https://mevik.net/work/software/pls.html")
(synopsis "Partial Least Squares and Principal Component Regression")
(description
"The pls package implements multivariate regression methods: Partial Least
@ -1979,7 +1979,7 @@ use in R. It also provides a simple way for variable interpolation in R.")
(base32
"0z80jxkygmzn11sq0c2iz357s9bpki548lg926g85gldhfj1md90"))))
(build-system r-build-system)
(home-page "http://www.rforge.net/fastmatch")
(home-page "https://www.rforge.net/fastmatch")
(synopsis "Fast match function")
(description
"This package provides a fast @code{match} replacement for cases that
@ -4141,7 +4141,7 @@ terminals.")
(base32
"0gm9ii7ncvllxbvyk6srsiinjmqyj7lmh84w43x4nhqpvafj9q4q"))))
(build-system r-build-system)
(home-page "http://www.rforge.net/uuid")
(home-page "https://www.rforge.net/uuid")
(synopsis "Tools for generating and handling of UUIDs")
(description
"This package provides tools for generating and handling of
@ -4513,7 +4513,7 @@ University Press, 2000.")
`(("r-leaps" ,r-leaps)
("r-locfit" ,r-locfit)
("r-mgcv" ,r-mgcv)))
(home-page "http://www.stat.uiowa.edu/~kchan/TSA.htm")
(home-page "https://homepage.divms.uiowa.edu/~kchan/TSA.htm")
(synopsis "Time series analysis")
(description
"This package contains R functions and datasets detailed in the book
@ -4926,7 +4926,7 @@ files.")
(propagated-inputs
`(("r-shiny" ,r-shiny)
("r-jsonlite" ,r-jsonlite)))
(home-page "http://cran.r-project.org/web/packages/shinyAce")
(home-page "https://cran.r-project.org/web/packages/shinyAce/")
(synopsis "Ace editor bindings for Shiny")
(description
"This package provides Ace editor bindings to enable a rich text editing
@ -5077,7 +5077,7 @@ It also includes interpolation functions.")
"00j6b8b6xsx6v370h220x233rpk6asca78165y3d48jpwvwisdc9"))))
(build-system r-build-system)
(propagated-inputs `(("r-proto" ,r-proto)))
(home-page "http://gsubfn.googlecode.com")
(home-page "https://code.google.com/archive/p/gsubfn/")
(synopsis "Utilities for strings and function arguments.")
(description
"This package provides @code{gsubfn} which is like @code{gsub} but can
@ -6878,7 +6878,7 @@ containing one or more SNPs that evolved under directional selection.")
(propagated-inputs
`(("r-plyr" ,r-plyr)
("r-rcpp" ,r-rcpp)))
(home-page "http://expasy.org/tools/pROC/")
(home-page "https://web.expasy.org/pROC/")
(synopsis "Display and analyze ROC curves")
(description
"This package provides tools for visualizing, smoothing and comparing
@ -9253,7 +9253,7 @@ package provides a minimal R interface by relying on the Rcpp package.")
"1mhd6vp47xmfw533h0pkvydv96m57fspvd85g8m7iqb5rcxvhhdb"))))
(properties `((upstream-name . "RcppParallel")))
(build-system r-build-system)
(home-page "http://rcppcore.github.io/RcppParallel")
(home-page "https://rcppcore.github.io/RcppParallel/")
(synopsis "Parallel programming tools for Rcpp")
(description
"This package provides high level functions for parallel programming with
@ -9579,7 +9579,7 @@ related functions.")
(base32
"0scar396wiq6wkbkvwp4qrxqc1m075y56p37i6iry5rw796p1i86"))))
(build-system r-build-system)
(home-page "http://www.rmetrics.org")
(home-page "https://www.rmetrics.org")
(synopsis "Stable distribution functions")
(description
"This package provides density, probability and quantile functions, and
@ -9698,7 +9698,7 @@ redundant complex conjugate when the input is real data.")
`(("libtiff" ,libtiff)
("libjpeg" ,libjpeg-turbo)
("zlib" ,zlib)))
(home-page "http://www.rforge.net/tiff/")
(home-page "https://www.rforge.net/tiff/")
(synopsis "Read and write TIFF images")
(description
"This package provides an easy and simple way to read, write and display
@ -10317,7 +10317,7 @@ conditional reporting based on the current \"output level\".")
("r-reportr" ,r-reportr)
("r-rnifti" ,r-rnifti)
("r-shades" ,r-shades)))
(home-page "http://www.tractor-mri.org.uk")
(home-page "https://www.tractor-mri.org.uk")
(synopsis "Read, manipulate and visualize magnetic resonance images")
(description
"This package provides functions for working with magnetic resonance
@ -10440,7 +10440,7 @@ the combination of non-negative and non-positive constraints.")
(properties `((upstream-name . "Iso")))
(build-system r-build-system)
(native-inputs `(("gfortran" ,gfortran)))
(home-page "http://www.stat.auckland.ac.nz/~rolf/")
(home-page "https://www.stat.auckland.ac.nz/~rolf/")
(synopsis "Functions to perform isotonic regression")
(description
"This package provides support for linear order and unimodal
@ -11492,7 +11492,7 @@ model with finite state space using the Aalen-Johansen estimator.")
("r-plyr" ,r-plyr)
("r-survival" ,r-survival)
("r-zoo" ,r-zoo)))
(home-page "http://BendixCarstensen.com/Epi/")
(home-page "https://BendixCarstensen.com/Epi/")
(synopsis "Statistical analysis in epidemiology")
(description
"This package provides functions for demographic and epidemiological
@ -12929,7 +12929,7 @@ Hubbell's @dfn{Unified Neutral Theory of Biodiversity} (UNTB).")
(base32
"1lbx1bxwkf9dw6q46w40pp7h5nkxgghmx8rkpaymm6iybc7gyir2"))))
(build-system r-build-system)
(home-page "http://stat.sfu.ca/statgen/research/stepwise.html")
(home-page "https://stat.sfu.ca/statgen/research/stepwise.html")
(synopsis "Stepwise detection of recombination breakpoints")
(description
"This package provides a stepwise approach to identifying recombination
@ -13535,7 +13535,7 @@ inbred lines, F2 intercrosses, and association mapping populations.")
`(("r-genetics" ,r-genetics)
("r-rcpp" ,r-rcpp)
("r-snpstats" ,r-snpstats)))
(home-page "http://stat.sfu.ca/statgen/research/ldheatmap.html")
(home-page "https://stat.sfu.ca/statgen/research/ldheatmap.html")
(synopsis "Graphical display of pairwise linkage disequilibria between SNPs")
(description
"This package provides tools to produce a graphical display, as a heat
@ -13752,7 +13752,7 @@ variance components, using the likelihood-ratio statistics G.")
(base32
"0qs5jl0snzfchgpp6pabncwywxcmi743g91jvjiyyzw0lw85yv4s"))))
(build-system r-build-system)
(home-page "http://stat.sfu.ca/statgen/research/hapassoc.html")
(home-page "https://stat.sfu.ca/statgen/research/hapassoc.html")
(synopsis "Inference of trait associations with SNP haplotypes")
(description
"Hapassoc performs likelihood inference of trait associations with
@ -13848,7 +13848,7 @@ the corresponding outputs (tables and graphs).")
("jdk" ,icedtea-8 "jdk")
("pcre" ,pcre)
("zlib" ,zlib)))
(home-page "http://www.rforge.net/rJava/")
(home-page "https://www.rforge.net/rJava/")
(synopsis "Low-Level R to Java interface")
(description
"This package provides a low-level interface to the Java VM very much
@ -16880,7 +16880,7 @@ data.")
(build-system r-build-system)
(propagated-inputs
`(("r-lars" ,r-lars)))
(home-page "http://www.stat.umn.edu/~hzou")
(home-page "http://users.stat.umn.edu/~zouxx019/")
(synopsis "Elastic-Net for sparse estimation and sparse PCA")
(description
"This package provides functions for fitting the entire solution path of
@ -17768,7 +17768,7 @@ errors.")
("r-rcpp" ,r-rcpp)
("r-stringr" ,r-stringr)
("r-xml" ,r-xml)))
(home-page "http://dusp.mit.edu/faculty/ezra-glenn")
(home-page "https://dusp.mit.edu/faculty/ezra-haber-glenn")
(synopsis "Work with data from the US Census")
(description
"This package provides a general toolkit for downloading, managing,
@ -18345,7 +18345,7 @@ number embedded in the file rather than the file extension.")
("r-readbitmap" ,r-readbitmap)
("r-stringr" ,r-stringr)))
(native-inputs `(("pkg-config" ,pkg-config)))
(home-page "http://dahtah.github.io/imager")
(home-page "https://dahtah.github.io/imager/")
(synopsis "Image processing library")
(description
"This is a package for fast image processing for images in up to 4
@ -19044,7 +19044,7 @@ OpenMP.")
(build-system r-build-system)
(propagated-inputs
`(("r-quantreg" ,r-quantreg)))
(home-page "http://www.ms.uky.edu/~mai/EmpLik.html")
(home-page "https://www.ms.uky.edu/~mai/EmpLik.html")
(synopsis "Empirical likelihood ratio for censored/truncated data")
(description
"This package provides empirical likelihood ratio tests for

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

@ -476,12 +476,18 @@ text or blue underlined text, on ANSI terminals.")
"14mkgkrjd4b4zy92pflz6yb4j1wn2chbd8jczxknxbkdm2vb0rrz"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
`(#:cargo-inputs
(("rust-blake2-rfc" ,rust-blake2-rfc-0.2)
("rust-scoped-threadpool" ,rust-scoped-threadpool-0.1))
#:cargo-development-inputs
(("rust-cargon" ,rust-cargon-0.0))))
(("rust-cargon" ,rust-cargon-0.0))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-cargo-toml
(lambda _
(substitute* "Cargo.toml"
(("\\{ path =.*,") "{"))
#t)))))
(home-page "https://github.com/bryant/argon2rs")
(synopsis "Rust password hashing library that runs on Argon2")
(description "This package provides a pure Rust password hashing library
@ -1745,8 +1751,7 @@ capabilities")
"1cszlab7jk736p0lb50ag4l9nv72m7j41bwrmygl0lr4iz0350w2"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-development-inputs
`(#:cargo-inputs
(("rust-gcc" ,rust-gcc-0.3))))
(home-page "https://github.com/bryant/argon2rs")
(synopsis "Thin wrapper around the Argon2 C library")
@ -13094,8 +13099,7 @@ useful types and distributions, and some randomness-related algorithms.")
(base32
"14qjfv3gggzhnma20k0sc1jf8y6pplsaq7n1j9ls5c8kf2wl0a2m"))))
(arguments
`(#:skip-build? #t
#:cargo-inputs
`(#:cargo-inputs
(("rust-fuchsia-cprng" ,rust-fuchsia-cprng-0.1)
("rust-rand-core" ,rust-rand-core-0.3)
("rust-rdrand" ,rust-rdrand-0.4)
@ -13116,8 +13120,7 @@ useful types and distributions, and some randomness-related algorithms.")
(base32
"0v679h38pjjqj5h4md7v2slsvj6686qgcn7p9fbw3h43iwnk1b34"))))
(arguments
`(#:skip-build? #t
#:cargo-inputs
`(#:cargo-inputs
(("rust-libc" ,rust-libc-0.2)
("rust-rand" ,rust-rand-0.4))))))
@ -13469,8 +13472,7 @@ generator based on timing jitter.")
"1a6wy76lc5fimm1n9n8fzhp4cfjwfwxh4hx63bg3vlh1d2w1dm3p"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
`(#:cargo-inputs
(("rust-rand-core" ,rust-rand-core-0.5)
("rust-serde" ,rust-serde-1.0))
#:cargo-development-inputs
@ -13613,7 +13615,6 @@ random number generators.")
(base32
"06ghpm9y7gacks78s3maakha07kbnwrxif5q37r2l7z1sali3b7b"))))
(build-system cargo-build-system)
(arguments '(#:skip-build? #t))
(home-page "https://github.com/bluss/rawpointer/")
(synopsis "Extra methods for raw pointers")
(description "Extra methods for raw pointers. For example

22
gnu/packages/databases.scm
View file

@ -1070,7 +1070,7 @@ Most public APIs are compatible with @command{mysqlclient} and MySQLdb.")
(assoc-ref %outputs "out")
"/lib"))
#:make-flags (list "CFLAGS=-fPIC")))
(home-page "http://fallabs.com/qdbm")
(home-page "https://fallabs.com/qdbm/")
(synopsis "Key-value database")
(description "QDBM is a library of routines for managing a
database. The database is a simple data file containing key-value
@ -1892,7 +1892,7 @@ similar to BerkeleyDB, LevelDB, etc.")
(description "Redis is an advanced key-value cache and store. Redis
supports many data structures including strings, hashes, lists, sets, sorted
sets, bitmaps and hyperloglogs.")
(home-page "http://redis.io/")
(home-page "https://redis.io/")
(license license:bsd-3)))
(define-public kyotocabinet
@ -2530,13 +2530,13 @@ Database API 2.0T.")
(define-public python-sqlalchemy
(package
(name "python-sqlalchemy")
(version "1.3.3")
(version "1.3.15")
(source
(origin
(method url-fetch)
(uri (pypi-uri "SQLAlchemy" version))
(sha256
(base32 "06c3lcv7nijsgqsjaaa4djrwlzgh9f910zlqxkmgq22h6jl4rici"))))
(base32 "0iglkvymfp35zm5pxy5kzqvcv96kkas0chqdx7xpla86sspa9k64"))))
(build-system python-build-system)
(native-inputs
`(("python-cython" ,python-cython) ; for C extensions
@ -2613,15 +2613,21 @@ You might also want to install the following optional dependencies:
(define-public python-alembic
(package
(name "python-alembic")
(version "1.0.11")
(version "1.4.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "alembic" version))
(patches (search-patches "python-alembic-exceptions-cause.patch"))
(sha256
(base32
"1k5hag0vahd5vrf9abx8fdj2whrwaw2iq2yp736mmxnbsn5xkdyd"))))
"0a4hzn76csgbf1px4f5vfm256byvjrqkgi9869nkcjrwjn35c6kr"))))
(build-system python-build-system)
(arguments
'(#:phases (modify-phases %standard-phases
(replace 'check
(lambda _
(invoke "pytest" "-vv"))))))
(native-inputs
`(("python-mock" ,python-mock)
("python-pytest-cov" ,python-pytest-cov)))
@ -2768,13 +2774,13 @@ designed to be easy and intuitive to use.")
(define-public python-psycopg2
(package
(name "python-psycopg2")
(version "2.7.7")
(version "2.8.4")
(source
(origin
(method url-fetch)
(uri (pypi-uri "psycopg2" version))
(sha256
(base32 "0zjbabb4qjx9dm07imhf8y5a9rpa06d5zah80myiimgdi83nslpl"))))
(base32 "1djvh98pi4hjd8rxbq8qzc63bg8v78k33yg6pl99wak61b6fb67q"))))
(build-system python-build-system)
(arguments
;; Tests would require a postgresql database "psycopg2_test"

54
gnu/packages/debug.scm
View file

@ -171,15 +171,16 @@ tools that process C/C++ code.")
(_ "UNSUPPORTED"))))
(package
(name "american-fuzzy-lop")
(version "2.52b") ;It seems all releases have the 'b' suffix
(version "2.56b") ;It seems all releases have the 'b' suffix
(source
(origin
(method url-fetch)
(uri (string-append "http://lcamtuf.coredump.cx/afl/releases/"
"afl-" version ".tgz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/google/AFL")
(commit (string-append "v" version))))
(sha256
(base32
"0ig0ij4n1pwry5dw1hk4q88801jzzy2cric6y2gd6560j55lnqa3"))))
(base32 "1q1g59gkm48aa4cg9h70jx4i2gapmypgp5rzs156b2avd95vwkn1"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(inputs
`(("custom-qemu"
@ -204,24 +205,33 @@ tools that process C/C++ code.")
(add-after
'unpack 'apply-afl-patches
(lambda* (#:key inputs #:allow-other-keys)
(let* ((afl-dir (string-append "afl-" ,version))
(patch-dir
(string-append afl-dir
"/qemu_mode/patches")))
(invoke "tar" "xf"
(assoc-ref inputs "afl-src"))
(install-file (string-append patch-dir
"/afl-qemu-cpu-inl.h")
".")
(copy-file (string-append afl-dir "/config.h")
(let* ((afl-src (assoc-ref inputs "afl-src"))
(patch-dir "qemu_mode/patches"))
(copy-recursively (string-append afl-src "/"
patch-dir)
patch-dir)
(install-file
(string-append patch-dir
"/afl-qemu-cpu-inl.h")
".")
(copy-file (string-append afl-src "/config.h")
"./afl-config.h")
(install-file (string-append afl-dir "/types.h")
(install-file (string-append afl-src "/types.h")
".")
(substitute* "afl-qemu-cpu-inl.h"
(("\\.\\./\\.\\./config.h") "afl-config.h"))
(substitute* (string-append patch-dir
"/cpu-exec.diff")
(("\\.\\./patches/") ""))
;; These were already applied to qemu-minimal-2.10.
(for-each (lambda (obsolete-patch)
(delete-file (string-append
patch-dir "/"
obsolete-patch)))
(list "configure.diff"
"memfd.diff"))
(for-each (lambda (patch-file)
(invoke "patch" "--force" "-p1"
"--input" patch-file))
@ -230,8 +240,14 @@ tools that process C/C++ code.")
#t))))))))))))
(arguments
`(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
(string-append "DOC_PATH=$(PREFIX)/share/doc/"
,name "-" ,version)
"CC=gcc")
#:phases (modify-phases %standard-phases
(add-after 'unpack 'make-git-checkout-writable
(lambda _
(for-each make-file-writable (find-files "."))
#t))
(delete 'configure)
,@(if (string=? (%current-system) (or "x86_64-linux"
"i686-linux"))
@ -256,8 +272,8 @@ tools that process C/C++ code.")
(symlink (string-append qemu "/bin/qemu-" ,machine)
(string-append out "/bin/afl-qemu-trace"))
#t)))
(delete 'check)))) ; Tests are run during 'install phase.
(home-page "http://lcamtuf.coredump.cx/afl")
(delete 'check)))) ; tests are run during 'install phase
(home-page "https://lcamtuf.coredump.cx/afl/")
(synopsis "Security-oriented fuzzer")
(description
"American fuzzy lop is a security-oriented fuzzer that employs a novel

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

@ -42,7 +42,7 @@
;;; Copyright © 2018 Thorsten Wilms <t_w_@freenet.de>
;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2018, 2019, 2020 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2019 Dimakakos Dimos <bendersteed@teknik.io>
;;; Copyright © 2019, 2020 Dimakakos Dimos <bendersteed@teknik.io>
;;; Copyright © 2019 Brian Leung <bkleung89@gmail.com>
;;; Copyright © 2019 mikadoZero <mikadozero@yandex.com>
;;; Copyright © 2019 Gabriel Hondet <gabrielhondet@gmail.com>
@ -62,6 +62,8 @@
;;; Copyright © 2020 Evan Straw <evan.straw99@gmail.com>
;;; Copyright © 2020 Masaya Tojo <masaya@tojo.tokyo>
;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net>
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
;;;
;;; This file is part of GNU Guix.
;;;
@ -3606,14 +3608,14 @@ source code using IPython.")
(define-public emacs-debbugs
(package
(name "emacs-debbugs")
(version "0.21")
(version "0.22")
(source (origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/debbugs-"
version ".tar"))
(sha256
(base32
"1xx1wjfpsnwx2fpydqhwy9k1b5kjk8dqbkzf8lqaj9c4rvjbn50a"))))
"05ik9qv539b5c1nzxkk3lk23bqj4vqgmfmd8x367abhb7c9gix2z"))))
(build-system emacs-build-system)
(arguments '(#:include '("\\.el$" "\\.wsdl$" "\\.info$")))
(propagated-inputs
@ -10399,7 +10401,7 @@ or @code{treemacs}, but leveraging @code{Dired} to do the job of display.")
(define-public emacs-which-key
(package
(name "emacs-which-key")
(version "3.3.1")
(version "3.4.0")
(source
(origin
(method git-fetch)
@ -10408,7 +10410,7 @@ or @code{treemacs}, but leveraging @code{Dired} to do the job of display.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1dh6kr00wmql46whjkvnl953zngiv5j99ypvr1b3cb2174623afb"))))
(base32 "1ahgb7dqdc75farkl0fg0a6hvx2067gdvjq99cd3z2dz56km0p05"))))
(build-system emacs-build-system)
(arguments
`(#:tests? #t
@ -18170,7 +18172,7 @@ processes for Emacs")
(define-public emacs-lsp-ui
(package
(name "emacs-lsp-ui")
(version "6.0")
(version "6.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -18179,7 +18181,7 @@ processes for Emacs")
(file-name (git-file-name name version))
(sha256
(base32
"1r4327fd8cvjxfwkddp5c4bdskyncbs4sx9m3z2w4d773y2jrakc"))))
"024753bi0p1jyjhw7wk8k6s16kbwab5ar4cfasvbn8g08acf293b"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-dash" ,emacs-dash)
@ -21758,6 +21760,30 @@ records can be browsed and searched from the Emacs Calendar for convenience.
All entries in a specified TODO state will be carried over to the next day.")
(license license:bsd-3)))
(define-public emacs-org-static-blog
(package
(name "emacs-org-static-blog")
(version "1.3.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/bastibe/org-static-blog")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "15iy3z8rglaqbx1fz14inh18ksgjsmq30b8hyv3lgjvcc9ssaiw0"))))
(build-system emacs-build-system)
(home-page "https://github.com/bastibe/org-static-blog")
(synopsis
"Simple Org mode based static blog generator")
(description
"@code{emacs-org-static-blog} is one more static blog generator, it
focuses on being simple. All file are simple Org files in a directory. The
only requirement is that every Org file must have a @samp{title} and
a @samp{date} keywords, and optionally, a @samp{filetags} keyword.")
(license license:bsd-3)))
(define-public emacs-ddskk
;; XXX: Upstream adds code names to their release tags, so version and code
;; name below need to be updated together.

2
gnu/packages/embedded.scm
View file

@ -450,7 +450,7 @@ languages are C and C++.")
("pkg-config" ,pkg-config)))
(inputs
`(("libusb" ,libusb)))
(home-page "http://repo.or.cz/w/libjaylink.git")
(home-page "https://repo.or.cz/w/libjaylink.git")
(synopsis "Library to interface Segger J-Link devices")
(description "libjaylink is a shared library written in C to access
SEGGER J-Link and compatible devices.")

4
gnu/packages/engineering.scm
View file

@ -648,7 +648,7 @@ multipole-accelerated algorithm.")
(sha256
(base32
"1d2v8k7p176j0lczx4vx9n9gbg3vw09n2c4b6w0wj5wqmifywhc1"))))))
(home-page "http://fritzing.org")
(home-page "https://fritzing.org")
(synopsis "Electronic circuit design")
(description
"The Fritzing application is @dfn{Electronic Design Automation} (EDA)
@ -2432,7 +2432,7 @@ interpolation toolkit.")
(inputs `(("boost" ,boost)
("python-wrapper" ,python-wrapper)))
(native-inputs
`(("cmake" ,cmake)))
`(("cmake" ,cmake-minimal)))
(arguments
`(#:tests? #f
#:phases

11
gnu/packages/finance.scm
View file

@ -982,15 +982,22 @@ agent.")
(define-public python-stdnum
(package
(name "python-stdnum")
(version "1.8.1")
(version "1.13")
(source
(origin
(method url-fetch)
(uri (pypi-uri "python-stdnum" version))
(sha256
(base32
"0hvr47q32xbyiznpmbg4r8rcvxhnf0lwf33hcpnynyik57djy5np"))))
"0q4128rjdgavywhzlm2gz2n5ybc9b9sxs81g50dvxf5q7z9q63qj"))))
(build-system python-build-system)
(arguments
'(#:phases (modify-phases %standard-phases
(replace 'check
(lambda _
(invoke "nosetests"))))))
(native-inputs
`(("python-nose" ,python-nose)))
(home-page
"https://arthurdejong.org/python-stdnum/")
(synopsis

54
gnu/packages/fribidi.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Marek Benc <merkur32@gmail.com>
;;; Copyright © 2016, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
@ -46,3 +46,55 @@ Algorithm. This algorithm is used to properly display text in left-to-right
or right-to-left ordering as necessary.")
(home-page "https://github.com/fribidi/fribidi")
(license lgpl2.1+)))
(define-public bidiv
(package
(name "bidiv")
(version "1.5")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://debian/pool/main/b/bidiv/bidiv_"
version ".orig.tar.gz"))
(sha256
(base32
"05p5m2ihxbmc1qsgs8rjlww08fy9859fhl7xf196p8g5qygqd7cv"))
(patches (search-patches "bidiv-update-fribidi.patch"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(delete 'configure) ; no configure
(add-after 'unpack 'misc-fixes
(lambda _
(substitute* "bidiv.c"
(("FriBidiCharType") "FriBidiParType")
(("&c") "(char *)&c"))
#t))
;; We don't want to use the handwritten makefile
(replace 'build
(lambda* (#:key inputs #:allow-other-keys)
(let ((fribidi (assoc-ref inputs "fribidi")))
(invoke "gcc" "-o" "bidiv" "bidiv.c"
;; pkg-config --cflags fribidi
(string-append "-I" fribidi "/include/fribidi")
;; pkg-config --libs fribidi
(string-append "-L" fribidi "/lib") "-lfribidi"))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(man (string-append out "/share/man/man1")))
(install-file "bidiv" bin)
(install-file "bidiv.1" man))
#t)))
#:tests? #f)) ; no tests
(inputs
`(("fribidi" ,fribidi)))
(home-page "https://tracker.debian.org/pkg/bidiv")
(synopsis "BiDi viewer - command-line tool displaying logical Hebrew/Arabic")
(description "bidiv is a simple utility for converting logical-Hebrew input
to visual-Hebrew output. This is useful for reading Hebrew mail messages,
viewing Hebrew texts, etc. It was written for Hebrew but Arabic (or other BiDi
languages) should work equally well.")
(license gpl2+)))

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

@ -1536,7 +1536,7 @@ games.")
(define-public godot
(package
(name "godot")
(version "3.2")
(version "3.2.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1545,7 +1545,7 @@ games.")
(file-name (git-file-name name version))
(sha256
(base32
"0f15izjl4i2xlz1xj5pcslzl9gm3rmr3c21gh256ynpi2zhhkcdd"))
"1kndls0rklha7kz9l4i2ivjxab4jpk3b2j7dcgcg2qc3s81yd0r6"))
(modules '((guix build utils)
(ice-9 ftw)
(srfi srfi-1)))
@ -1766,6 +1766,42 @@ built on top of SDL2 and OpenGL. Chickadee aims to provide all the features
that parenthetically inclined game developers need to make 2D (and eventually
3D) games in Scheme, such as:
@enumerate
@item extensible, fixed-timestep game loop
@item OpenGL-based rendering engine
@item keyboard, mouse, controller input
@item REPL-driven development model
@end enumerate\n")
(license license:gpl3+)))
(define-public guile3.0-chickadee
(package
(inherit guile-chickadee)
(name "guile-chickadee")
(version "0.4.0")
(source (origin
(method url-fetch)
(uri (string-append "https://files.dthompson.us/chickadee/"
"chickadee-" version ".tar.gz"))
(sha256
(base32
"1fdicsgls5cp0yffcm5vjmav67gv9bxhz1s3jvdvinspxb485x7l"))))
(build-system gnu-build-system)
(propagated-inputs
`(("guile-opengl" ,guile3.0-opengl)
("guile-sdl2" ,guile3.0-sdl2)))
(inputs
`(("guile" ,guile-3.0)))
(native-inputs
`(("pkg-config" ,pkg-config)
("texinfo" ,texinfo)))
(home-page "https://dthompson.us/projects/chickadee.html")
(synopsis "Game development toolkit for Guile Scheme with SDL2 and OpenGL")
(description "Chickadee is a game development toolkit for Guile Scheme
built on top of SDL2 and OpenGL. Chickadee aims to provide all the features
that parenthetically inclined game developers need to make 2D (and eventually
3D) games in Scheme, such as:
@enumerate
@item extensible, fixed-timestep game loop
@item OpenGL-based rendering engine

17
gnu/packages/games.scm
View file

@ -1688,8 +1688,8 @@ level's exit. The game is presented in a 2D side view.")
(source
(origin
(method url-fetch)
(uri (string-append "http://www.hyperrealm.com/" name "/"
name "-" version ".tar.gz"))
(uri (string-append "http://www.hyperrealm.com/talkfilters/"
"talkfilters-" version ".tar.gz"))
(sha256
(base32 "19nc5vq4bnkjvhk8srqddzhcs93jyvpm9r6lzjzwc1mgf08yg0a6"))))
(build-system gnu-build-system)
@ -3906,7 +3906,7 @@ a style similar to the original Super Mario games.")
(define-public tintin++
(package
(name "tintin++")
(version "2.02.00")
(version "2.02.02")
(source
(origin
(method url-fetch)
@ -3914,8 +3914,7 @@ a style similar to the original Super Mario games.")
(string-drop-right version 1)
"/tintin-" version ".tar.gz"))
(sha256
(base32
"02qmbhzhh2sdy5b37v54gihs9k4bxmlz3j96gyx7icvx2grkbg5i"))))
(base32 "11ylbp8ip7dwmh4gzb53z147pcfxkl3lwhyy8ngyn2zc634vdn65"))))
(inputs
`(("gnutls" ,gnutls)
("pcre" ,pcre)
@ -4095,7 +4094,7 @@ throwing people around in pseudo-randomly generated buildings.")
(define-public hyperrogue
(package
(name "hyperrogue")
(version "11.2q")
(version "11.3a")
;; When updating this package, be sure to update the "hyperrogue-data"
;; origin in native-inputs.
(source (origin
@ -4106,7 +4105,7 @@ throwing people around in pseudo-randomly generated buildings.")
"-src.tgz"))
(sha256
(base32
"1w4khi2limxhgiq7xnz0rc9nzbk86bhbyzrcd5hdghnhsviaiggq"))))
"1yxabbswq02fc5frigvs43f83m5vlxybc7n5mynkwzj2c70lfp2k"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no check target
@ -4184,7 +4183,7 @@ throwing people around in pseudo-randomly generated buildings.")
"-win.zip"))
(sha256
(base32
"1k81zrbq5gmrccjac1i5c6v8j2iilfg2vwrnm8snjmmcnh5z1fgj"))))
"11yhbia45f1w9z0j67h9nynwjqmvakr9l6rnrmdrdkzin6lvzzj4"))))
("unzip" ,unzip)))
(inputs
`(("font-dejavu" ,font-dejavu)
@ -5648,7 +5647,7 @@ elements to achieve a simple goal in the most complex way possible.")
#:configure-flags (list "-DUSE_SYSTEM_LIBLUA:BOOL=YES"
(string-append "-DPIONEER_DATA_DIR="
%output "/share/games/pioneer"))))
(home-page "http://pioneerspacesim.net")
(home-page "https://pioneerspacesim.net")
(synopsis "Game of lonely space adventure")
(description
"Pioneer is a space adventure game set in our galaxy at the turn of the

33
gnu/packages/gcc.scm
View file

@ -7,6 +7,7 @@
;;; Copyright © 2016 Carlos Sánchez de La Lama <csanchezdll@gmail.com>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2020 Joseph LaFreniere <joseph@lafreniere.xyz>
;;;
;;; This file is part of GNU Guix.
;;;
@ -550,14 +551,14 @@ It also includes runtime support libraries for these languages.")))
(define-public gcc-9
(package
(inherit gcc-8)
(version "9.2.0")
(version "9.3.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/gcc/gcc-"
version "/gcc-" version ".tar.xz"))
(sha256
(base32
"01mj3yk7z49i49168hg2cg7qs4bsccrrnv7pjmbdlf8j2a7z0vpa"))
"1la2yy27ziasyf0jvzk58y1i5b5bq2h176qil550bxhifs39gqbi"))
(patches (search-patches "gcc-9-strmov-store-file-names.patch"
"gcc-9-libsanitizer-mode-size.patch"
"gcc-9-asan-fix-limits-include.patch"
@ -718,6 +719,34 @@ as the 'native-search-paths' field."
;; report two gfortran@5 that are in fact identical.
gfortran-7)
(define-public libgccjit
(package
(inherit gcc-9)
(name "libgccjit")
(outputs (delete "lib" (package-outputs gcc)))
(properties (alist-delete 'hidden? (package-properties gcc)))
(arguments
(substitute-keyword-arguments `(#:modules ((guix build gnu-build-system)
(guix build utils)
(ice-9 regex)
(srfi srfi-1)
(srfi srfi-26))
,@(package-arguments gcc))
((#:configure-flags flags)
`(append `("--enable-host-shared"
,(string-append "--enable-languages=jit"))
(remove (cut string-match "--enable-languages.*" <>)
,flags)))
((#:phases phases)
`(modify-phases ,phases
(add-after 'install 'remove-broken-or-conflicting-files
(lambda* (#:key outputs #:allow-other-keys)
(for-each delete-file
(find-files (string-append (assoc-ref outputs "out") "/bin")
".*(c\\+\\+|cpp|g\\+\\+|gcov|gcc|gcc-.*)"))
#t))))))))
(define-public gccgo-4.9
(custom-gcc gcc-4.9 "gccgo" '("go")
%generic-search-paths

76
gnu/packages/geo.scm
View file

@ -47,15 +47,21 @@
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages astronomy)
#:use-module (gnu packages audio)
#:use-module (gnu packages autotools)
#:use-module (gnu packages backup)
#:use-module (gnu packages boost)
#:use-module (gnu packages check)
#:use-module (gnu packages compression)
#:use-module (gnu packages curl)
#:use-module (gnu packages databases)
#:use-module (gnu packages datastructures)
#:use-module (gnu packages documentation)
#:use-module (gnu packages elf)
#:use-module (gnu packages fonts)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages gettext)
#:use-module (gnu packages gl)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gtk)
@ -66,8 +72,10 @@
#:use-module (gnu packages maths)
#:use-module (gnu packages pcre)
#:use-module (gnu packages perl)
#:use-module (gnu packages photo)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages protobuf)
#:use-module (gnu packages pulseaudio)
#:use-module (gnu packages python)
#:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz)
@ -1541,3 +1549,71 @@ exchanged form one Spatial DBMS and the other.")
(license (list license:gpl2+
license:lgpl2.1+
license:mpl1.1))))
(define-public opencpn
(package
(name "opencpn")
(version "5.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/OpenCPN/OpenCPN.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1xv3h6svw9aay5ixpql231md3pf00qxvhg62z88daraf18hlkfja"))))
(build-system cmake-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("pkg-config" ,pkg-config)))
(inputs
`(("bzip2" ,bzip2)
("cairo" ,cairo)
("curl" ,curl)
("glu" ,glu)
("gtk+" ,gtk+)
("libarchive" ,libarchive)
("libelf" ,libelf)
("libexif" ,libexif)
("libsndfile" ,libsndfile)
("lz4" ,lz4)
("mesa" ,mesa)
("pango" ,pango)
("portaudio" ,portaudio)
("sqlite" ,sqlite)
("tinyxml" ,tinyxml)
("wxsvg" ,wxsvg)
("wxwidgets" ,wxwidgets)
("xz" ,xz)
("zlib" ,zlib)))
(arguments
`(#:configure-flags '("-DENABLE_PORTAUDIO=ON"
"-DENABLE_SNDFILE=ON"
"-DBUNDLE_TCDATA=ON"
"-DBUNDLE_GSHHS=CRUDE")
#:tests? #f ; No tests defined
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-build
(lambda _
(substitute* "CMakeLists.txt"
(("set\\(wxWidgets_CONFIG_OPTIONS.*--toolkit=gtk3" all)
(string-append all " --libs all")))
#t)))))
(synopsis "Chart plotter and marine GPS navigation software")
(description
"OpenCPN is a chart plotter and marine navigation software designed to be
used at the helm station of your boat while underway. Chart a course and
track your position right from your laptop.")
(home-page "https://opencpn.org/")
(license (list license:asl2.0
license:cc0
license:bsd-2
license:bsd-3
license:expat
license:gpl3+
license:lgpl2.1+
license:lgpl3+
license:sgifreeb2.0
license:zlib))))

27
gnu/packages/gl.scm
View file

@ -4,7 +4,7 @@
;;; Copyright © 2014, 2016 David Thompson <davet@gnu.org>
;;; Copyright © 2014, 2015, 2016, 2017 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 ng0 <ng0@n0.is>
;;; Copyright © 2016, 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017, 2018, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016 David Thompson <davet@gnu.org>
;;; Copyright © 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
@ -268,6 +268,7 @@ also known as DXTn or DXTC) for Mesa.")
("libxvmc" ,libxvmc)
,@(match (%current-system)
((or "x86_64-linux" "i686-linux")
;; Note: update the 'clang' input of mesa-opencl when bumping this.
`(("llvm" ,llvm-9)))
(_
`()))
@ -435,7 +436,7 @@ from software emulation to complete hardware acceleration for modern GPUs.")
`(("libclc" ,libclc)
,@(package-inputs mesa)))
(native-inputs
`(("clang" ,clang-8)
`(("clang" ,clang-9)
,@(package-native-inputs mesa)))))
(define-public mesa-opencl-icd
@ -603,6 +604,26 @@ extension functionality is exposed in a single header file.")
OpenGL graphics API.")
(license license:lgpl3+)))
(define-public guile3.0-opengl
(package
(inherit guile-opengl)
(name "guile3.0-opengl")
(arguments
(substitute-keyword-arguments (package-arguments guile-opengl)
((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'build-with-guile-3.0
(lambda _
(substitute* "configure"
(("_guile_versions_to_search=\"")
"_guile_versions_to_search=\"3.0 "))
#t))))))
(inputs
`(("guile" ,guile-3.0)
("mesa" ,mesa)
("glu" ,glu)
("freeglut" ,freeglut)))))
(define-public libepoxy
(package
(name "libepoxy")
@ -712,7 +733,7 @@ OpenGL.")
("libxinerama" ,libxinerama)
("libxcursor" ,libxcursor)
("libxxf86vm" ,libxxf86vm)))
(home-page "http://www.glfw.org")
(home-page "https://www.glfw.org")
(synopsis "OpenGL application development library")
(description
"GLFW is a library for OpenGL, OpenGL ES and Vulkan development for

4
gnu/packages/gnome-xyz.scm
View file

@ -123,7 +123,7 @@ the Obsidian icon theme.")
(define-public gnome-shell-extension-appindicator
(package
(name "gnome-shell-extension-appindicator")
(version "30")
(version "33")
(source (origin
(method git-fetch)
(uri (git-reference
@ -132,7 +132,7 @@ the Obsidian icon theme.")
(commit (string-append "v" version))))
(sha256
(base32
"1fjhx23jqwv3d0smwhnjvc35gqhwk9p5f96ic22pfax653cn5vh8"))
"0qm77s080nbf4gqnfzpwp8a7jf7lliz6fxbsd3lasvrr11pgsk87"))
(file-name (git-file-name name version))))
(build-system copy-build-system)
(arguments

126
gnu/packages/gnome.scm
View file

@ -8,7 +8,7 @@
;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org>
;;; Copyright © 2015, 2017 Andy Wingo <wingo@igalia.com>
;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
@ -47,6 +47,7 @@
;;; Copyright © 2019 Leo Prikler <leo.prikler@student.tugraz.at>
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2020 raingloom <raingloom@riseup.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -118,6 +119,7 @@
#:use-module (gnu packages kerberos)
#:use-module (gnu packages libcanberra)
#:use-module (gnu packages libunistring)
#:use-module (gnu packages libunwind)
#:use-module (gnu packages libusb)
#:use-module (gnu packages linux)
#:use-module (gnu packages lirc)
@ -3844,16 +3846,15 @@ and other secrets. It communicates with the \"Secret Service\" using DBus.")
(define-public five-or-more
(package
(name "five-or-more")
(version "3.32.0")
(version "3.32.1")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/" name "/"
(uri (string-append "mirror://gnome/sources/five-or-more/"
(version-major+minor version) "/"
name "-" version ".tar.xz"))
"five-or-more-" version ".tar.xz"))
(sha256
(base32
"0v52i22ygv6y4zqs8nyb1qmacmj9whhqrw7qss6vn7by4nsikhrn"))))
(base32 "0xw05dd2dwi9vsph9h158b4n89s5k07xrh6bjz1icm0pdmjwhpgk"))))
(build-system meson-build-system)
(arguments
'(#:glib-or-gtk? #t
@ -4558,7 +4559,7 @@ throughout GNOME for API documentation).")
(assoc-ref inputs "xorg-server")))
(setenv "DISPLAY" ":1")
#t)))))
(home-page "http://www.cogl3d.org")
(home-page "https://www.cogl3d.org")
(synopsis "Object oriented GL/GLES Abstraction/Utility Layer")
(description
"Cogl is a small library for using 3D graphics hardware to draw pretty
@ -5396,15 +5397,14 @@ almost all of them.")
(define-public eolie
(package
(name "eolie")
(version "0.9.63")
(version "0.9.98.1")
(source (origin
(method url-fetch)
(uri (string-append "https://gitlab.gnome.org/World/eolie/"
"uploads/d42b466752729a0d3fa828a721e25043/"
"eolie-" version ".tar.xz"))
(uri (string-append "https://adishatz.org/eolie/eolie-"
version ".tar.xz"))
(sha256
(base32
"11pp8g0w22h1q0bbj9517l5838gcymvvp8fp9kh6h2dmgir2ssih"))))
"1d844zva5w4p9pnp9c2g7zyb4vayr2g2drf78spxsdlc5lbd7lqr"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t
@ -7420,7 +7420,7 @@ easy, safe, and automatic.")
(define-public tracker
(package
(name "tracker")
(version "2.3.2")
(version "2.3.4")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/tracker/"
@ -7428,7 +7428,7 @@ easy, safe, and automatic.")
"tracker-" version ".tar.xz"))
(sha256
(base32
"1nzbnvwwsk6kv6kqbxwlz8vk70l9ai6b4r9qypw51vp4qy72ny54"))))
"0vai0qz9jn3z5dlzysynwhbbmslp84ygdql81f5wfxxr98j54yap"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t
@ -7490,7 +7490,7 @@ endpoint and it understands SPARQL. ")
(define-public tracker-miners
(package
(name "tracker-miners")
(version "2.3.2")
(version "2.3.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/tracker-miners/"
@ -7498,7 +7498,7 @@ endpoint and it understands SPARQL. ")
"/tracker-miners-" version ".tar.xz"))
(sha256
(base32
"1kizavw9gbdjkw4wykgv0fcl2y6fj788nycx9p4byn6ylb1277h6"))))
"06abxrnrz7xayykrabn135rpsm6z0fqw7gibrb9j09l6swlalwkl"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t
@ -8910,7 +8910,8 @@ that support the Assistive Technology Service Provider Interface (AT-SPI).")
(patches (search-patches "gspell-dash-test.patch"))))
(build-system glib-or-gtk-build-system)
(arguments
'(#:phases
'(#:configure-flags (list "--enable-vala")
#:phases
(modify-phases %standard-phases
(add-before 'check 'pre-check
(lambda* (#:key inputs #:allow-other-keys)
@ -8935,6 +8936,7 @@ that support the Assistive Technology Service Provider Interface (AT-SPI).")
`(("glib" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("pkg-config" ,pkg-config)
("vala" ,vala) ;for VAPI, needed by Geary
("xmllint" ,libxml2)
;; For tests.
@ -9918,3 +9920,93 @@ manage remote and virtual systems.")
license:cc-by2.0
;; For all others.
license:lgpl2.0+))))
(define-public geary
(package
(name "geary")
(version "3.34.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.gnome.org/GNOME/geary")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"01cc921kyh3zxz07biqbdzkjgmdcc36kwjyajm4y382a75cl5zg7"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t
#:phases (modify-phases %standard-phases
(add-after 'unpack 'disable-failing-tests
(lambda _
(substitute* "test/meson.build"
(("test\\('client-tests', geary_test_client_bin\\)")
""))
#t))
(add-after 'unpack 'disable-postinstall-script
(lambda _
(substitute* "meson.build"
(("meson.add_install_script\\(\
join_paths\\('build-aux', 'post_install.py'\\)\\)")
""))
#t))
(add-before 'check 'setup-xvfb
(lambda _
(system "Xvfb :1 &")
(setenv "DISPLAY" ":1")
#t)))))
(inputs
`(("enchant" ,enchant)
("folks" ,folks)
("gcr" ,gcr)
("glib" ,glib)
("gmime" ,gmime-2.6)
("gnome-online-accounts:lib"
,gnome-online-accounts "lib")
("gspell" ,gspell)
("gtk+" ,gtk+)
("iso-codes" ,iso-codes)
("json-glib" ,json-glib)
("libcanberra" ,libcanberra)
("libgee" ,libgee)
("libhandy" ,libhandy)
("libpeas" ,libpeas)
("libsecret" ,libsecret)
("libunwind" ,libunwind)
("sqlite" ,sqlite)
("webkitgtk" ,webkitgtk)
("ytnef" ,ytnef)))
(native-inputs
`(("appstream-glib" ,appstream-glib)
("cmake-minimal" ,cmake-minimal)
("desktop-file-utils" ,desktop-file-utils)
("gettext" ,gnu-gettext)
("glib:bin" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("itstool" ,itstool)
("libarchive" ,libarchive)
("libxml2" ,libxml2)
("pkg-config" ,pkg-config)
("vala" ,vala)
("xvfb" ,xorg-server-for-tests)))
(synopsis "GNOME email application built around conversations")
(description
"Geary collects related messages together into conversations,
making it easy to find and follow your discussions. Full-text and keyword
search makes it easy to find the email you are looking for. Geary's
full-featured composer lets you send rich, styled text with images, links, and
lists, but also send lightweight, easy to read text messages. Geary
automatically picks up your existing GNOME Online Accounts, and adding more is
easy. Geary has a clean, fast, modern interface that works like you want it
to.")
(home-page "https://wiki.gnome.org/Apps/Geary")
(license (list
;; geary
license:lgpl2.1+
;; icons
license:cc-by3.0
license:cc-by-sa3.0
license:public-domain
;; snowball
license:bsd-2))))

36
gnu/packages/gnunet.scm
View file

@ -9,6 +9,7 @@
;;; 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>
;;; Copyright © 2020 Tanguy Le Carrour <tanguy@bioneland.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -249,7 +250,7 @@ supports HTTP, HTTPS and GnuTLS.")
(define-public gnunet
(package
(name "gnunet")
(version "0.11.8")
(version "0.12.2")
(source
(origin
(method url-fetch)
@ -257,7 +258,7 @@ supports HTTP, HTTPS and GnuTLS.")
".tar.gz"))
(sha256
(base32
"1zkmcq75sfr3iyg8rgxp9dbl7fwsvc1a71rc0vgisghcbrx1n7yj"))))
"1mwcy7fj1rpd39w7j7k3jdwlil5s889b2qlhfdggqmhigl28na5c"))))
(build-system gnu-build-system)
(inputs
`(("bluez" ,bluez)
@ -269,6 +270,7 @@ supports HTTP, HTTPS and GnuTLS.")
("libextractor" ,libextractor)
("libidn" ,libidn2)
("libgcrypt" ,libgcrypt)
("libjpeg" ,libjpeg-turbo)
("libltdl" ,libltdl)
("libmicrohttpd" ,libmicrohttpd)
("libogg" ,libogg)
@ -289,11 +291,30 @@ supports HTTP, HTTPS and GnuTLS.")
#:phases
(modify-phases %standard-phases
(add-after 'configure 'remove-failing-tests
;; These tests fail in Guix's building envrionment.
;; These tests fail in Guix's building environment.
(lambda _
(substitute* "src/cadet/Makefile"
(("test_cadet_2_reopen\\$\\(EXEEXT\\) \\\\\n") "test_cadet_2_reopen$(EXEEXT)")
(("test_cadet_5_forward\\$\\(EXEEXT\\) \\\\\n") "")
(("test_cadet_5_signal\\$\\(EXEEXT\\) \\\\\n") "")
(("test_cadet_5_keepalive\\$\\(EXEEXT\\) \\\\\n") "")
(("test_cadet_5_speed\\$\\(EXEEXT\\) \\\\\n") "")
(("test_cadet_5_speed_ack\\$\\(EXEEXT\\) \\\\\n") "")
(("test_cadet_5_speed_reliable\\$\\(EXEEXT\\) \\\\\n") "")
(("test_cadet_5_speed_reliable_backwards\\$\\(EXEEXT\\) \\\\\n") "")
(("test_cadet_5_speed_backwards\\$\\(EXEEXT\\) \\\\\n") "")
(("test_cadet_5_reopen\\$\\(EXEEXT\\)") ""))
(substitute* "src/transport/Makefile"
(("\\$\\(am__EXEEXT_15\\)") "") ; test_transport_api_https
(("test_transport_api_manipulation_cfg\\$\\(EXEEXT\\) \\\\\n") "")
(("test_transport_api_udp_nat\\$\\(EXEEXT\\) \\\\\n") "")
(("test_transport_api_manipulation_cfg\\$\\(EXEEXT\\) \\\\\n") ""))
(("test_transport_blacklisting_multiple_plugins\\$\\(EXEEXT\\) \\\\\n") ""))
(substitute* "src/testbed/Makefile"
(("test_testbed_api_2peers_1controller\\$\\(EXEEXT\\) \\\\\n") "")
(("test_testbed_api_test\\$\\(EXEEXT\\) \\\\\n") "")
(("test_testbed_api_statistics\\$\\(EXEEXT\\) \\\\\n") "")
(("test_testbed_api_topology\\$\\(EXEEXT\\) \\\\\n") "")
(("test_testbed_api_topology_clique\\$\\(EXEEXT\\) \\\\\n") ""))
(substitute* "src/topology/Makefile"
(("^check_PROGRAMS.*") "\n")
(("test_gnunet_daemon_topology\\$\\(EXEEXT\\)\n") ""))
@ -308,6 +329,9 @@ supports HTTP, HTTPS and GnuTLS.")
"src/transport/gnunet-transport-certificate-creation.in")
(("gnutls-certtool") "certtool"))
#t))
(add-before 'check 'set-env-var-for-tests
(lambda _
(setenv "LANG" "en_US.UTF-8")))
;; Swap 'check and 'install phases and add installed binaries to $PATH.
(add-before 'check 'set-path-for-check
(lambda* (#:key outputs #:allow-other-keys)
@ -364,14 +388,14 @@ services.")
(define-public gnunet-gtk
(package (inherit gnunet)
(name "gnunet-gtk")
(version "0.11.7")
(version "0.12.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/gnunet/gnunet-gtk-"
version ".tar.gz"))
(sha256
(base32
"061ifhqk6q9kx71z5404fm4d60yj2dihlwwmdqmhkn5nn4bvcwb5"))))
"08a43ayv1rhajdklfcv78w2h76jfaz64kgp5krqgj1w1sq8xm6fb"))))
(arguments
`(#:configure-flags
(list "--with-libunique"

96
gnu/packages/golang.scm
View file

@ -2131,32 +2131,30 @@ increase approaching hashing speeds of 1GB/sec on a single core.")
(license license:asl2.0))))
(define-public go-github-com-spaolacci-murmur3
(let ((commit "f09979ecbc725b9e6d41a297405f65e7e8804acc")
(revision "0"))
(package
(name "go-github-com-spaolacci-murmur3")
(version (git-version "1.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/spaolacci/murmur3.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1lv3zyz3jy2d76bhvvs8svygx66606iygdvwy5cwc0p5z8yghq25"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/spaolacci/murmur3"))
(home-page "https://github.com/spaolacci/murmur3")
(synopsis "Native MurmurHash3 Go implementation")
(description "Native Go implementation of Austin Appleby's third
MurmurHash revision (aka MurmurHash3).
(package
(name "go-github-com-spaolacci-murmur3")
(version "1.1.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/spaolacci/murmur3.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1lv3zyz3jy2d76bhvvs8svygx66606iygdvwy5cwc0p5z8yghq25"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/spaolacci/murmur3"))
(home-page "https://github.com/spaolacci/murmur3")
(synopsis "Native MurmurHash3 Go implementation")
(description "Native Go implementation of Austin Appleby's third MurmurHash
revision (aka MurmurHash3).
Reference algorithm has been slightly hacked as to support the streaming mode
required by Go's standard Hash interface.")
(license license:bsd-3))))
(license license:bsd-3)))
(define-public go-github-com-multiformats-go-multihash
(let ((commit "97cdb562a04c6ef66d8ed40cd62f8fbcddd396d6")
@ -3067,7 +3065,7 @@ network protocol.")
(define-public go-github-com-pkg-errors
(package
(name "go-github-com-pkg-errors")
(version "0.9.0")
(version "0.9.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -3076,7 +3074,7 @@ network protocol.")
(file-name (git-file-name name version))
(sha256
(base32
"1hlivqlcnm9wrj0v7h43gamw7mvg6svz9sm31fx28zn4ll25ablh"))))
"1761pybhc2kqr6v5fm8faj08x9bql8427yqg6vnfv6nhrasx1mwq"))))
(build-system go-build-system)
(arguments
`(#:import-path "github.com/pkg/errors"))
@ -3396,3 +3394,51 @@ data serialization format.")
(description " A glob library that implements descending into other
directories. It is optimized for filewalking. ")
(license license:expat)))
(define-public go-github-com-willf-bitset
(package
(name "go-github-com-willf-bitset")
(version "1.1.10")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/willf/bitset")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0wpaxg6va3qwd0hq0b8rpb1hswvzzbfm2h8sjmcsdpbkydjjx9zg"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/willf/bitset"))
(synopsis "Bitsets in Go")
(description "This package provides a Go implementation of bitsets, which
are a mapping between non-negative integers and boolean values focused on
efficient space usage.")
(home-page "https://github.com/willf/bitset")
(license license:bsd-3)))
(define-public go-github-com-willf-bloom
(package
(name "go-github-com-willf-bloom")
(version "2.0.3")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/willf/bloom")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0ygan8pgcay7wx3cs3ja8rdqj7nly7v3and97ddcc66020jxchzg"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/willf/bloom"))
(propagated-inputs
`(("go-github-com-spaolacci-murmur3" ,go-github-com-spaolacci-murmur3)
("go-github-com-willf-bitset" ,go-github-com-willf-bitset)))
(synopsis "Bloom filters in Go")
(description "This package provides a Go implementation of bloom filters,
based on murmurhash.")
(home-page "https://github.com/willf/bloom")
(license license:bsd-2)))

94
gnu/packages/gps.scm
View file

@ -27,7 +27,9 @@
#:use-module (guix build-system gnu)
#:use-module (guix build-system scons)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages algebra)
#:use-module (gnu packages base)
#:use-module (gnu packages compression)
#:use-module (gnu packages docbook)
@ -39,6 +41,7 @@
#:use-module (gnu packages ncurses)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages xml))
@ -227,64 +230,57 @@ such as elevation, speed, heart rate, power, temperature, and gear shifts.")
(base32 "0faz2mvk82hi7ispxxih07lhpyz5dazs4gcknym9piiabga29p97"))))
(build-system scons-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
("python" ,python)))
`(("bc" ,bc)
("pkg-config" ,pkg-config)))
(inputs
`(("bluez" ,bluez)
("dbus" ,dbus)
("libcap" ,libcap)
("libusb" ,libusb)
("ncurses" ,ncurses)))
("ncurses" ,ncurses)
("python" ,python)
("python-pycairo" ,python-pycairo)
("python-pygobject" ,python-pygobject)
("python-pyserial" ,python-pyserial)
("python-wrapper" ,python-wrapper)
("qtbase" ,qtbase)))
(arguments
`(#:scons-flags (list (string-append "prefix=" %output)
;; TODO: Install python bindings.
"python=no")
`(#:scons-flags
(list (string-append "prefix=" %output)
(let ((version ,(version-major+minor (package-version python))))
(string-append "python_libdir=" %output
"/lib/python" version
"/site-packages"))
"qt_versioned=5")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(let ((python3 (string-append (assoc-ref inputs "python")
"/bin/python3")))
(substitute* '("contrib/gpsData.py"
"contrib/ntpshmviz"
"contrib/skyview2svg"
"contrib/webgps.py"
"devtools/ais.py"
"devtools/aivdmtable"
"devtools/cycle_analyzer"
"devtools/flocktest"
"devtools/identify_failing_build_options.py"
"devtools/regress-builder"
"devtools/regressdiff"
"devtools/sizes"
"devtools/striplog"
"devtools/tablegen.py"
"devtools/test_json_validity.py"
"devtools/uninstall_cleanup.py"
"gegps"
"gps/gps.py"
"gpscat"
"gpsfake"
"gpsprof"
"jsongen.py"
"leapsecond.py"
"maskaudit.py"
"test_maidenhead.py"
"test_misc.py"
"test_xgps_deps.py"
"ubxtool"
"valgrind-audit.py"
"xgps"
"xgpsspeed"
"zerk")
(("/usr/bin/python") python3)
(("/usr/bin/env python") python3)))
#t))
(add-after 'fix-paths 'fix-build
(lambda _
(add-after 'unpack 'fix-build
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "SConstruct"
(("'PATH'")
"'PATH','CPATH','LIBRARY_PATH'"))
(("envs = \\{\\}")
"envs = os.environ"))
#t))
(add-after 'install 'wrap-python-scripts
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(pycairo (assoc-ref inputs "python-pycairo"))
(pygobject (assoc-ref inputs "python-pygobject"))
(pyserial (assoc-ref inputs "python-pyserial"))
(sitedir (lambda (package)
(string-append package
"/lib/python"
,(version-major+minor
(package-version python))
"/site-packages")))
(pythonpath (string-join (map sitedir
(list out pycairo pygobject
pyserial))
":")))
(for-each (lambda (script)
(wrap-program (string-append out "/bin/" script)
`("PYTHONPATH" ":" prefix (,pythonpath))))
'("gegps" "gpscat" "gpsfake" "gpsprof"
"ubxtool" "xgps" "xgpsspeed" "zerk")))
#t)))))
(synopsis "GPS service daemon")
(description

39
gnu/packages/graphics.scm
View file

@ -18,6 +18,7 @@
;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -419,7 +420,7 @@ storage of the \"EXR\" file format for storing 16-bit floating-point images.")
related classes, utilities, and applications. There is a particular emphasis
on formats and functionality used in professional, large-scale animation and
visual effects work for film.")
(home-page "http://www.openimageio.org")
(home-page "https://www.openimageio.org")
(license license:bsd-3)))
;; This older version of OpenImageIO is required for Blender 2.79.
@ -978,7 +979,7 @@ requirements.")
("libxi" ,libxi)
("zlib" ,zlib)
("glfw" ,glfw)))
(home-page "http://graphics.pixar.com/opensubdiv/")
(home-page "https://graphics.pixar.com/opensubdiv/")
(synopsis "High performance subdivision surface evaluation")
(description "OpenSubdiv is a set of libraries that implement high
performance subdivision surface (subdiv) evaluation on massively parallel CPU
@ -1075,3 +1076,37 @@ interaction library, written in C++, which has become the de facto
standard graphics library for 3D visualization and visual simulation
software in the scientific and engineering community.")
(license license:bsd-3))))
(define-public superfamiconv
(package
(name "superfamiconv")
(version "0.8.8")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Optiroc/SuperFamiconv")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0848szv6a2b8wdganh6mw5i8vn8cqvn1kbwzx7mb9wlrf5wzqn37"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no tests
#:phases
(modify-phases %standard-phases
(delete 'configure)
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((outdir (assoc-ref outputs "out"))
(bindir (string-append outdir "/bin")))
(install-file "bin/superfamiconv" bindir)
#t))))))
(home-page "https://github.com/Optiroc/SuperFamiconv")
(synopsis "Tile graphics converter supporting SNES, Game Boy Color
and PC Engine formats")
(description "SuperFamiconv is a converter for tiled graphics, supporting
the graphics formats of the SNES, Game Boy Color and PC Engine game consoles.
Automated palette selection is supported.")
(license license:expat)))

2
gnu/packages/gtk.scm
View file

@ -1153,7 +1153,7 @@ library.")
("cairomm" ,cairomm)
("glibmm" ,glibmm)
("pango" ,pango)))
(home-page "http://www.pango.org/")
(home-page "https://pango.gnome.org//")
(synopsis "C++ interface to the Pango text rendering library")
(description
"Pangomm provides a C++ programming interface to the Pango text rendering

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

@ -2555,8 +2555,35 @@ list of components. This module takes care of that for you.")
(build-system gnu-build-system)
(arguments
`(#:configure-flags '("--with-gnu-filesystem-hierarchy")
#:modules ((guix build gnu-build-system)
(guix build utils)
(ice-9 popen)
(ice-9 rdelim))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-references-to-extension
(lambda* (#:key outputs #:allow-other-keys)
(let ((effective (read-line
(open-pipe* OPEN_READ
"guile" "-c"
"(display (effective-version))"))))
(substitute* '("module/gi.scm"
"module/gi/oop.scm"
"module/gi/documentation.scm"
"module/gi/types.scm"
"module/gi/repository.scm")
(("\\(load-extension \"libguile-gi\" \"(.*)\"\\)" m arg)
(format #f "~s"
`(load-extension
(format #f "~alibguile-gi"
(if (getenv "GUILE_GI_UNINSTALLED")
""
,(format #f "~a/lib/guile/~a/"
(assoc-ref outputs "out")
effective)))
,arg)))))
(setenv "GUILE_GI_UNINSTALLED" "1")
#t))
(add-before 'check 'start-xorg-server
(lambda* (#:key inputs #:allow-other-keys)
;; The init_check test requires a running X server.
@ -3231,3 +3258,35 @@ models and also supports a rich set of boolean query operators.")
@code{.torrent} or metainfo files. Implements a bencode reader and writer
according to Bitorrent BEP003.")
(license license:gpl3+)))
(define-public guile-irc
(let ((commit "375d3bde9c6ae7ccc9d7cc65817966b6fda8f26a")
(revision "0"))
(package
(name "guile-irc")
(version (git-version "0.3.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/rekado/guile-irc.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"113lcckcywrz9060w1c3fnvr8d7crdsjgsv4h47hgmr1slgadl4y"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags '("--enable-gnutls=yes")))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("texinfo" ,texinfo)))
(inputs
`(("gnutls" ,gnutls)
("guile" ,guile-2.2)))
(home-page "https://github.com/rekado/guile-irc")
(synopsis "IRC library for Guile")
(description "This package provides a Guile library for @dfn{Internet
Relay Chat} (IRC).")
;; Some file headers incorrectly say LGPLv2+.
(license license:lgpl2.1+))))

35
gnu/packages/haskell-apps.scm
View file

@ -13,6 +13,7 @@
;;; Copyright © 2015 John Soo <jsoo1@asu.edu>
;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2020 Alexandru-Sergiu Marton <brown121407@member.fsf.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -266,6 +267,40 @@ unique algebra of patches called @url{http://darcs.net/Theory,Patchtheory}.
@end enumerate")
(license license:gpl2)))
(define-public ghcid
(package
(name "ghcid")
(version "0.8.4")
(source
(origin
(method url-fetch)
(uri (string-append "https://hackage.haskell.org/package/ghcid/"
"ghcid-" version ".tar.gz"))
(sha256
(base32
"0wpm4ikrm1krz1ckzwk0srng091yh2skjal4fh95iz1hq3dw6qlw"))))
(build-system haskell-build-system)
(inputs
`(("ghc-extra" ,ghc-extra)
("ghc-ansi-terminal" ,ghc-ansi-terminal)
("ghc-cmdargs" ,ghc-cmdargs)
("ghc-fsnotify" ,ghc-fsnotify)
("ghc-terminal-size" ,ghc-terminal-size)))
(native-inputs
`(("ghc-tasty" ,ghc-tasty)
("ghc-tasty-hunit" ,ghc-tasty-hunit)))
(home-page
"https://github.com/ndmitchell/ghcid#readme")
(synopsis "GHCi based bare bones IDE")
(description
"Either \"GHCi as a daemon\" or \"GHC + a bit of an IDE\". A very simple Haskell
development tool which shows you the errors in your project and updates them whenever
you save. Run @code{ghcid --topmost --command=ghci}, where @code{--topmost} makes the
window on top of all others (Windows only) and @code{--command} is the command to start
GHCi on your project (defaults to @code{ghci} if you have a @file{.ghci} file, or else
to @code{cabal repl}).")
(license license:bsd-3)))
(define-public git-annex
(package
(name "git-annex")

15
gnu/packages/image.scm
View file

@ -922,6 +922,10 @@ more modular, simple, and flexible.")
(string-append
"http://linuxbrit.co.uk/downloads/giblib-"
version ".tar.gz")
(string-append
"https://src.fedoraproject.org/repo/pkgs/giblib/giblib-"
version ".tar.gz/c810ef5389baf24882a1caca2954385e/giblib-"
version ".tar.gz")
(string-append
"https://sourceforge.net/projects/slackbuildsdirectlinks/"
"files/giblib/giblib-" version ".tar.gz")))
@ -932,7 +936,11 @@ more modular, simple, and flexible.")
(inputs
`(("libx11" ,libx11)
("imlib2" ,imlib2)))
(home-page "http://linuxbrit.co.uk/software/") ; no real home-page
(home-page
;; This vanished page is universally accepted as giblib's home despite not
;; mentioning the package once.
(string-append "https://web.archive.org/web/20140907071208"
"https://linuxbrit.co.uk/software/"))
(synopsis "Wrapper library for imlib2")
(description
"Giblib is a simple library which wraps imlib2's context API, avoiding
@ -1032,9 +1040,6 @@ 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)
@ -1188,7 +1193,7 @@ channels.")
`(("lcms" ,lcms)
("libjpeg" ,libjpeg-turbo)
("zlib" ,zlib)))
(home-page "http://www.libmng.com/")
(home-page "https://www.libmng.com/")
(synopsis "Library for handling MNG files")
(description
"Libmng is the MNG (Multiple-image Network Graphics) reference library.")

100
gnu/packages/java.scm
View file

@ -330,7 +330,7 @@ JNI.")
("jamvm" ,jamvm-1-bootstrap)
("unzip" ,unzip)
("zip" ,zip)))
(home-page "http://ant.apache.org")
(home-page "https://ant.apache.org")
(synopsis "Build tool for Java")
(description
"Ant is a platform-independent build tool for Java. It is similar to
@ -3301,7 +3301,7 @@ decompression and random access decompression have been fully implemented.")
(version "1.12.1")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/"
(uri (string-append "https://repo1.maven.org/maven2/"
"com/thoughtworks/qdox/qdox/" version
"/qdox-" version "-sources.jar"))
(sha256
@ -3325,7 +3325,7 @@ decompression and random access decompression have been fully implemented.")
(lambda _
(delete-file-recursively "src/com/thoughtworks/qdox/junit")
#t)))))
(home-page "http://qdox.codehaus.org/")
(home-page "https://github.com/codehaus/qdox")
(synopsis "Parse definitions from Java source files")
(description
"QDox is a high speed, small footprint parser for extracting
@ -3334,6 +3334,35 @@ class/interface/method definitions from source files complete with JavaDoc
documentation tools.")
(license license:asl2.0)))
(define-public java-qdox
(package
(name "java-qdox")
; Newer version exists, but this version is required by java-plexus-component-metadata
(version "2.0-M2")
(source (origin
(method url-fetch)
;; 2.0-M4, -M5 at https://github.com/paul-hammant/qdox
;; Older releases at https://github.com/codehaus/qdox/
;; Note: The release at maven is pre-generated. The release at
;; github requires jflex.
(uri (string-append "https://repo1.maven.org/maven2/"
"com/thoughtworks/qdox/qdox/" version
"/qdox-" version "-sources.jar"))
(sha256
(base32
"10xxrcaicq6axszcr2jpygisa4ch4sinyx5q7kqqxv4lknrmxp5x"))))
(build-system ant-build-system)
(arguments
`(#:jar-name "qdox.jar"
#:tests? #f)); no tests
(home-page "https://github.com/codehaus/qdox")
(synopsis "Parse definitions from Java source files")
(description "QDox is a high speed, small footprint parser for extracting
class/interface/method definitions from source files complete with JavaDoc
@code{@@tags}. It is designed to be used by active code generators or
documentation tools.")
(license license:asl2.0)))
(define-public java-jarjar
(package
(name "java-jarjar")
@ -7361,7 +7390,7 @@ used to generate this API.")
(version "6.0.0")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/"
(uri (string-append "https://repo1.maven.org/maven2/"
"org/osgi/osgi.cmpn/" version "/osgi.cmpn-"
version "-sources.jar"))
(sha256
@ -7392,7 +7421,7 @@ in compiling bundles.")
(version "1.3.0")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/org/osgi/"
(uri (string-append "https://repo1.maven.org/maven2/org/osgi/"
"org.osgi.service.component.annotations/"
version "/org.osgi.service.component.annotations-"
version "-sources.jar"))
@ -7419,7 +7448,7 @@ the support annotations for osgi-service-component.")
(version "1.0.0")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/org/osgi/"
(uri (string-append "https://repo1.maven.org/maven2/org/osgi/"
"org.osgi.dto/" version "/org.osgi.dto-"
version "-sources.jar"))
(sha256
@ -7448,7 +7477,7 @@ objects of the listed types or aggregates.")
(version "1.0.0")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/org/osgi/"
(uri (string-append "https://repo1.maven.org/maven2/org/osgi/"
"org.osgi.resource/"
version "/org.osgi.resource-"
version "-sources.jar"))
@ -7504,7 +7533,7 @@ the names for the attributes and directives for a namespace with contracts.")
(version "1.0.1")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/org/osgi/"
(uri (string-append "https://repo1.maven.org/maven2/org/osgi/"
"org.osgi.namespace.extender/"
version "/org.osgi.namespace.extender-"
version "-sources.jar"))
@ -7532,7 +7561,7 @@ the names for the attributes and directives for an extender namespace.")
(version "1.0.0")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/org/osgi/"
(uri (string-append "https://repo1.maven.org/maven2/org/osgi/"
"org.osgi.namespace.service/"
version "/org.osgi.namespace.service-"
version "-sources.jar"))
@ -7560,7 +7589,7 @@ the names for the attributes and directives for a service namespace.")
(version "1.0.0")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/org/osgi/"
(uri (string-append "https://repo1.maven.org/maven2/org/osgi/"
"org.osgi.util.function/"
version "/org.osgi.util.function-"
version "-sources.jar"))
@ -7587,7 +7616,7 @@ an interface for a function that accepts a single argument and produces a result
(version "1.0.0")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/org/osgi/"
(uri (string-append "https://repo1.maven.org/maven2/org/osgi/"
"org.osgi.util.promise/"
version "/org.osgi.util.promise-"
version "-sources.jar"))
@ -7616,7 +7645,7 @@ value. It handles the interactions for asynchronous processing.")
(version "1.3.0")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/org/osgi/"
(uri (string-append "https://repo1.maven.org/maven2/org/osgi/"
"org.osgi.service.metatype.annotations/"
version "/org.osgi.service.metatype.annotations-"
version "-sources.jar"))
@ -7643,7 +7672,7 @@ the support annotations for metatype.")
(version "1.1.0")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/org/osgi/"
(uri (string-append "https://repo1.maven.org/maven2/org/osgi/"
"org.osgi.service.repository/"
version "/org.osgi.service.repository-"
version "-sources.jar"))
@ -7672,7 +7701,7 @@ a repository service that contains resources.")
(version "1.8.0")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/org/osgi/"
(uri (string-append "https://repo1.maven.org/maven2/org/osgi/"
"org.osgi.framework/" version "/org.osgi.framework-"
version "-sources.jar"))
(sha256
@ -7699,7 +7728,7 @@ and service platform for the Java programming language.")
(version "1.3.0")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/org/osgi/"
(uri (string-append "https://repo1.maven.org/maven2/org/osgi/"
"org.osgi.service.log/"
version "/org.osgi.service.log-"
version "-sources.jar"))
@ -7726,7 +7755,7 @@ the log service.")
(version "1.0.0")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/org/osgi/"
(uri (string-append "https://repo1.maven.org/maven2/org/osgi/"
"org.osgi.service.jdbc/"
version "/org.osgi.service.jdbc-"
version "-sources.jar"))
@ -7758,7 +7787,7 @@ factories for getting JDBC connections:
(version "1.0.1")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/org/osgi/"
(uri (string-append "https://repo1.maven.org/maven2/org/osgi/"
"org.osgi.service.resolver/"
version "/org.osgi.service.resolver-"
version "-sources.jar"))
@ -7787,7 +7816,7 @@ by the caller.")
(version "1.5.1")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/org/osgi/"
(uri (string-append "https://repo1.maven.org/maven2/org/osgi/"
"org.osgi.util.tracker/"
version "/org.osgi.util.tracker-"
version "-sources.jar"))
@ -7815,7 +7844,7 @@ bundle tracking utility classes.")
(version "1.5.0")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/org/osgi/"
(uri (string-append "https://repo1.maven.org/maven2/org/osgi/"
"org.osgi.service.cm/"
version "/org.osgi.service.cm-"
version "-sources.jar"))
@ -7843,7 +7872,7 @@ utility classes for the configuration of services.")
(version "1.2.0")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/org/osgi/"
(uri (string-append "https://repo1.maven.org/maven2/org/osgi/"
"org.osgi.service.packageadmin/"
version "/org.osgi.service.packageadmin-"
version "-sources.jar"))
@ -8503,7 +8532,7 @@ of deserialization.")
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"0rf5ha6w0waz50jz2479jsrbgmd0dnx0gs337m126j5z7zlmg7mg"))))
"0474cqcv46zgv9bhms2vgawakq1vyj0hp3h3f1bfys46msia90bh"))))
(build-system ant-build-system)
(arguments
`(#:jar-name "java-snakeyaml.jar"
@ -11384,35 +11413,6 @@ Moreover, @code{logback-classic} natively implements the slf4j API so that you
can readily switch back and forth between logback and other logging frameworks
such as log4j or @code{java.util.logging} (JUL).")))
(define-public java-qdox
(package
(name "java-qdox")
; Newer version exists, but this version is required by java-plexus-component-metadata
(version "2.0-M2")
(source (origin
(method url-fetch)
;; 2.0-M4, -M5 at https://github.com/paul-hammant/qdox
;; Older releases at https://github.com/codehaus/qdox/
;; Note: The release at maven is pre-generated. The release at
;; github requires jflex.
(uri (string-append "http://central.maven.org/maven2/"
"com/thoughtworks/qdox/qdox/" version
"/qdox-" version "-sources.jar"))
(sha256
(base32
"10xxrcaicq6axszcr2jpygisa4ch4sinyx5q7kqqxv4lknrmxp5x"))))
(build-system ant-build-system)
(arguments
`(#:jar-name "qdox.jar"
#:tests? #f)); no tests
(home-page "http://qdox.codehaus.org/")
(synopsis "Parse definitions from Java source files")
(description "QDox is a high speed, small footprint parser for extracting
class/interface/method definitions from source files complete with JavaDoc
@code{@@tags}. It is designed to be used by active code generators or
documentation tools.")
(license license:asl2.0)))
(define-public java-jgit
(package
(name "java-jgit")

4
gnu/packages/libreoffice.scm
View file

@ -998,7 +998,7 @@ converting QuarkXPress file format. It supports versions 3.1 to 4.1.")
(define-public libreoffice
(package
(name "libreoffice")
(version "6.4.0.3")
(version "6.4.1.2")
(source
(origin
(method url-fetch)
@ -1008,7 +1008,7 @@ converting QuarkXPress file format. It supports versions 3.1 to 4.1.")
(version-prefix version 3) "/libreoffice-" version ".tar.xz"))
(sha256
(base32
"09ra8a3ylb08xhy8wy233fs0f87klkpsbi9n3zss0c688afxjcf5"))))
"02iz94flpxgkvlipk3psddzw2gdq2j4nv7z01kphs5107sfs0r0d"))))
(build-system glib-or-gtk-build-system)
(native-inputs
`(("bison" ,bison)

39
gnu/packages/linux.scm
View file

@ -370,10 +370,10 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(%upstream-linux-source version hash)
deblob-scripts-5.4)))
(define-public linux-libre-4.19-version "4.19.109")
(define-public linux-libre-4.19-version "4.19.110")
(define-public linux-libre-4.19-pristine-source
(let ((version linux-libre-4.19-version)
(hash (base32 "0kwnlv5336vqdf38dzn077ic17zkb4rl5khxmc47syzd9zm4fhnh")))
(hash (base32 "15kbgj13vsr74c61vzs96a72k86x205jjq5bz9pbn70698n3s4fa")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.19)))
@ -2114,8 +2114,7 @@ Linux-based operating systems.")
#t)))
#:tests? #f)) ; no 'check' target
(home-page
"http://www.linuxfoundation.org/collaborate/workgroups/networking/bridge")
(home-page "https://wiki.linuxfoundation.org/networking/bridge")
(synopsis "Manipulate Ethernet bridges")
(description
"Utilities for Linux's Ethernet bridging facilities. A bridge is a way
@ -3101,7 +3100,7 @@ Linux Wireless Extensions; consider using @code{iw} instead. The Wireless
Extension was an interface allowing you to set Wireless LAN specific
parameters and get the specific stats. It is deprecated in favor the nl80211
interface.")
(home-page "http://www.hpl.hp.com/personal/Jean_Tourrilhes/Linux/Tools.html")
(home-page "https://www.hpl.hp.com/personal/Jean_Tourrilhes/Linux/Tools.html")
;; wireless.21.h and wireless.22.h are distributed under lgpl2.1+, the
;; other files are distributed under gpl2.
(license (list license:gpl2 license:lgpl2.1+))))
@ -3630,6 +3629,36 @@ IDE driver subsystem. Many external USB drive enclosures with SCSI-ATA Command
Translation (@dfn{SAT}) are also supported.")
(license (license:non-copyleft "file://LICENSE.TXT"))))
(define-public nvme-cli
(package
(name "nvme-cli")
(version "1.10.1")
(home-page "https://github.com/linux-nvme/nvme-cli")
(source (origin
(method git-fetch)
(uri (git-reference
(url home-page)
(commit (string-append "v" version))))
(sha256
(base32 "12wp2wxmsw2v8m9bhvwvdbhdgx1md8iilhbl19sfzz2araiwi2x8"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(arguments
`(#:make-flags (list "CC=gcc")
#:phases (modify-phases %standard-phases
(delete 'configure) ; No ./configure script
(replace 'install
(lambda _
(invoke "make" "install-spec" "PREFIX="
(string-append "DESTDIR=" %output)))))
#:tests? #f)) ; The tests require sysfs, which is not accessible from
; the build environment
(synopsis "NVM-Express user space tooling for Linux")
(description "Nvme-cli is a utility to provide standards compliant tooling
for NVM-Express drives. It was made specifically for Linux as it relies on the
IOCTLs defined by the mainline kernel driver.")
(license license:gpl2+)))
(define-public rfkill
(package
(name "rfkill")

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

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2016, 2017, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Kei Kebreau <kkebreau@posteo.net>
@ -566,7 +566,7 @@ optimizing, and searching weighted finite-state transducers (FSTs).")
;; Non-portable SSE instructions are used so building fails on platforms
;; other than x86_64.
(supported-systems '("x86_64-linux"))
(home-page "http://shogun-toolbox.org/")
(home-page "https://shogun-toolbox.org/")
(synopsis "Machine learning toolbox")
(description
"The Shogun Machine learning toolbox provides a wide range of unified and
@ -847,10 +847,25 @@ computing environments.")
(description
"Scikit-learn provides simple and efficient tools for data mining and
data analysis.")
(properties `((python2-variant . ,(delay python2-scikit-learn))))
(license license:bsd-3)))
;; scikit-learn 0.22 and later only supports Python 3, so we stick with
;; an older version here.
(define-public python2-scikit-learn
(package-with-python2 python-scikit-learn))
(let ((base (package-with-python2 (strip-python2-variant python-scikit-learn))))
(package
(inherit base)
(version "0.20.4")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/scikit-learn/scikit-learn.git")
(commit version)))
(file-name (git-file-name "python-scikit-learn" version))
(sha256
(base32
"08zbzi8yx5wdlxfx9jap61vg1malc9ajf576w7a0liv6jvvrxlpj")))))))
(define-public python-autograd
(let* ((commit "442205dfefe407beffb33550846434baa90c4de7")

9
gnu/packages/mail.scm
View file

@ -1390,11 +1390,12 @@ facilities for checking incoming mail.")
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("openssl" ,openssl)
("zlib" ,zlib)
("bzip2" ,bzip2)
`(("bzip2" ,bzip2)
("linux-pam" ,linux-pam)
("lz4" ,lz4)
("openssl" ,openssl)
("sqlite" ,sqlite)
("linux-pam" ,linux-pam)))
("zlib" ,zlib)))
(arguments
`(#:configure-flags '("--sysconfdir=/etc"
"--localstatedir=/var")

92
gnu/packages/maths.scm
View file

@ -3356,7 +3356,7 @@ access to BLIS implementations via traditional BLAS routine calls.")
;; no configure script
(modify-phases %standard-phases (delete 'configure))
#:tests? #f)) ;the tests are part of the default target
(home-page "http://openlibm.org/")
(home-page "https://openlibm.org/")
(synopsis "Portable C mathematical library (libm)")
(description
"OpenLibm is an effort to have a high quality, portable, standalone C
@ -4591,13 +4591,10 @@ linear algebra primitives specifically targeting graph analytics.")
(modify-phases %standard-phases
(add-after 'build 'build-tests
(lambda* (#:key make-flags #:allow-other-keys)
(apply invoke "make" "build_tests" make-flags)))
(add-before 'check 'mpi-setup
,%openmpi-setup))))
(apply invoke "make" "build_tests" make-flags))))))
(inputs
`(("gmp" ,gmp)
("metis" ,metis)
("openmpi" ,openmpi)
("openblas" ,openblas)
("python" ,python)
("superlu" ,superlu)))
@ -4635,7 +4632,6 @@ Differences} (FD).")
(apply invoke "make" "build_tests" make-flags))))))
(inputs
`(("dune-common" ,dune-common)
("openmpi" ,openmpi)
;; Optional
("openblas" ,openblas)
("gmp" ,gmp)
@ -4675,8 +4671,7 @@ This package contains the basic DUNE geometry classes.")
(lambda* (#:key make-flags #:allow-other-keys)
(apply invoke "make" "build_tests" make-flags))))))
(inputs
`(("dune-common" ,dune-common)
("openmpi" ,openmpi)))
`(("dune-common" ,dune-common)))
(native-inputs
`(("gfortran" ,gfortran)
("pkg-config" ,pkg-config)))
@ -4709,16 +4704,13 @@ This package contains the DUNE UG grid classes.")
(modify-phases %standard-phases
(add-after 'build 'build-tests
(lambda* (#:key make-flags #:allow-other-keys)
(apply invoke "make" "build_tests" make-flags)))
(add-before 'check 'mpi-setup
,%openmpi-setup))))
(apply invoke "make" "build_tests" make-flags))))))
(inputs
`(("dune-common" ,dune-common)
("dune-geometry" ,dune-geometry)
("gmp" ,gmp)
("metis" ,metis)
("openblas" ,openblas)
("openmpi" ,openmpi)
("python" ,python)))
(propagated-inputs
`(("dune-uggrid" ,dune-uggrid)))
@ -4755,12 +4747,9 @@ This package contains the basic DUNE grid classes.")
(modify-phases %standard-phases
(add-after 'build 'build-tests
(lambda* (#:key make-flags #:allow-other-keys)
(apply invoke "make" "build_tests" make-flags)))
(add-before 'check 'mpi-setup
,%openmpi-setup))))
(apply invoke "make" "build_tests" make-flags))))))
(inputs
`(("dune-common" ,dune-common)
("openmpi" ,openmpi)
;; Optional
("metis" ,metis)
("suitesparse" ,suitesparse)
@ -4808,7 +4797,6 @@ aggregation-based algebraic multigrid.")
(inputs
`(("dune-common" ,dune-common)
("dune-geometry" ,dune-geometry)
("openmpi" ,openmpi)
;; Optional
("metis" ,metis)
("superlu" ,superlu)
@ -4856,14 +4844,11 @@ assemble global function spaces on finite-element grids.")
(lambda* (#:key inputs make-flags #:allow-other-keys)
(setenv "CPLUS_INCLUDE_PATH"
(string-append (assoc-ref inputs "dune-grid") "/share"))
(apply invoke "make" "build_tests" make-flags)))
(add-before 'check 'mpi-setup
,%openmpi-setup))))
(apply invoke "make" "build_tests" make-flags))))))
(inputs
`(("dune-common" ,dune-common)
("dune-geometry" ,dune-geometry)
("dune-grid" ,dune-grid)
("openmpi" ,openmpi)
;; Optional
("metis" ,metis)
("openblas" ,openblas)
@ -4901,14 +4886,11 @@ cubes.")
(modify-phases %standard-phases
(add-after 'build 'build-tests
(lambda* (#:key make-flags #:allow-other-keys)
(apply invoke "make" "build_tests" make-flags)))
(add-before 'check 'mpi-setup
,%openmpi-setup))))
(apply invoke "make" "build_tests" make-flags))))))
(inputs
`(("dune-common" ,dune-common)
("dune-geometry" ,dune-geometry)
("dune-grid" ,dune-grid)
("openmpi" ,openmpi)
;; Optional
("metis" ,metis)
("openblas" ,openblas)
@ -4947,7 +4929,6 @@ provides the full grid interface including adaptive mesh refinement.")
(apply invoke "make" "build_tests" make-flags))))))
(inputs
`(("dune-common" ,dune-common)
("openmpi" ,openmpi)
;; Optional
("openblas" ,openblas)
("python" ,python)
@ -4990,9 +4971,7 @@ operating on statically typed trees of objects.")
#t))
(add-after 'build 'build-tests
(lambda* (#:key make-flags #:allow-other-keys)
(apply invoke "make" "build_tests" make-flags)))
(add-before 'check 'mpi-setup
,%openmpi-setup))))
(apply invoke "make" "build_tests" make-flags))))))
(inputs
`(("dune-common" ,dune-common)
("dune-istl" ,dune-istl)
@ -5000,7 +4979,6 @@ operating on statically typed trees of objects.")
("dune-grid" ,dune-grid)
("dune-geometry" ,dune-geometry)
("dune-typetree" ,dune-typetree)
("openmpi" ,openmpi)
("openblas" ,openblas)
("metis" ,metis)
("python" ,python)
@ -5041,7 +5019,6 @@ implemented as callable objects, and bases of finite element spaces.")
("dune-grid" ,dune-grid)
("dune-typetree" ,dune-typetree)
("dune-functions" ,dune-functions)
("openmpi" ,openmpi)
;; Optional
("openblas" ,openblas)
("eigen" ,eigen)
@ -5059,6 +5036,59 @@ built on top of DUNE, the Distributed and Unified Numerics Environment.")
;; Either GPL version 2 with "runtime exception" or LGPLv3+.
(license (list license:lgpl3+ license:gpl2))))
(define add-openmpi-to-dune-package
(let ((dune-package?
(lambda (p) (string-prefix? "dune-" (package-name p)))))
(package-mapping
(lambda (p)
(if (dune-package? p)
(package (inherit p)
(name (string-append (package-name p) "-openmpi"))
(inputs `(,@(package-inputs p)
("openmpi" ,openmpi)))
(arguments
(substitute-keyword-arguments (package-arguments p)
((#:phases phases '%standard-phases)
`(modify-phases ,phases
(add-before 'check 'mpi-setup
,%openmpi-setup)))))
(synopsis (string-append (package-synopsis p) " (with MPI support)")))
p))
(negate dune-package?))))
(define-public dune-common-openmpi
(add-openmpi-to-dune-package dune-common))
(define-public dune-geometry-openmpi
(add-openmpi-to-dune-package dune-geometry))
(define-public dune-istl-openmpi
(add-openmpi-to-dune-package dune-istl))
(define-public dune-typetree-openmpi
(add-openmpi-to-dune-package dune-typetree))
(define-public dune-uggrid-openmpi
(add-openmpi-to-dune-package dune-uggrid))
(define-public dune-grid-openmpi
(add-openmpi-to-dune-package dune-grid))
(define-public dune-alugrid-openmpi
(add-openmpi-to-dune-package dune-alugrid))
(define-public dune-subgrid-openmpi
(add-openmpi-to-dune-package dune-subgrid))
(define-public dune-localfunctions-openmpi
(add-openmpi-to-dune-package dune-localfunctions))
(define-public dune-functions-openmpi
(add-openmpi-to-dune-package dune-functions))
(define-public dune-pdelab-openmpi
(add-openmpi-to-dune-package dune-pdelab))
(define-public mlucas
(package
(name "mlucas")

6
gnu/packages/monitoring.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Sou Bunnbu <iyzsong@member.fsf.org>
;;; Copyright © 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2018, 2019 Oleg Pykhalov <go.wigust@gmail.com>
@ -152,7 +152,7 @@ etc. via a Web interface. Features include:
(define-public zabbix-agentd
(package
(name "zabbix-agentd")
(version "4.4.1")
(version "4.4.6")
(source
(origin
(method url-fetch)
@ -161,7 +161,7 @@ etc. via a Web interface. Features include:
"/zabbix-" version ".tar.gz"))
(sha256
(base32
"0jjn2przn9s25slrcxmq8iqdgqkgxnqs45zy0n1ma6nlgmclxxqb"))))
"03mf4sklnw1x0ixp41vnibkz0794yi9jhws7ixld8jj2czk2ifr2"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags

1
gnu/packages/music.scm
View file

@ -2941,6 +2941,7 @@ Songs can be searched by artist, name or even by a part of the song text.")
(source (origin
(method url-fetch)
(uri (pypi-uri "beets" version))
(patches (search-patches "beets-werkzeug-compat.patch"))
(sha256
(base32
"0m40rjimvfgy1dv04p8f8d5dvi2855v4ix99a9xr900cmcn476yj"))))

10
gnu/packages/networking.scm
View file

@ -984,15 +984,15 @@ non-existing entropy of some access points.")
(define-public reaver
(package
(name "reaver")
(version "1.6.5")
(version "1.6.6")
(source (origin
(method url-fetch)
(uri (string-append
"https://github.com/t6x/reaver-wps-fork-t6x/releases/"
"download/v" version "/" name "-" version ".tar.xz"))
"download/v" version "/reaver-" version ".tar.xz"))
(sha256
(base32
"0sva3g0kwgv143n9l3lg4qp5iiqz7nk76nr0hwivsnglbhk9sbil"))))
"00k7mc81ifv0wma7k4v18mj498badbw5yls6c28qin3d1gda0ag3"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -1015,7 +1015,7 @@ non-existing entropy of some access points.")
(find-files "." "README.*"))
(install-file "reaver.1" man1)
#t))))
#:tests? #f)) ; there are no tests
#:tests? #f)) ; there are no tests
(inputs
`(("libpcap" ,libpcap)))
(propagated-inputs
@ -1718,7 +1718,7 @@ speedtest.net.")
"This is a tftp client derived from OpenBSD tftp with some extra options
added and bugs fixed. The source includes readline support but it is not
enabled due to license conflicts between the BSD advertising clause and the GPL.")
(home-page "http://git.kernel.org/cgit/network/tftp/tftp-hpa.git/about/")
(home-page "https://git.kernel.org/cgit/network/tftp/tftp-hpa.git/about/")
;; Some source files are distributed under a 3-clause BSD license, and
;; others under a 4-clause BSD license. Refer to the files in the source
;; distribution for clarification.

12
gnu/packages/opencog.scm
View file

@ -276,7 +276,17 @@ combination.")
"/include/guile/2.2/")
(string-append "-DGUILE_SITE_DIR="
(assoc-ref %outputs "out")
"/share/guile/site/2.2/"))))
"/share/guile/site/2.2/"))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-unqualified-load
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "bioscience/bioscience.scm"
(("\\(load \"bioscience/types/bioscience_types.scm\"\\)")
(format #f "(load \"~a/bioscience/types/bioscience_types.scm\")"
(string-append (assoc-ref outputs "out")
"/share/guile/site/2.2/opencog"))))
#t)))))
(inputs
`(("atomspace" ,atomspace)
("cogutil" ,cogutil)

49
gnu/packages/openstack.scm
View file

@ -87,9 +87,6 @@ appropriate plugins against the AST nodes. Once Bandit has finished scanning
all the files it generates a report.")
(license asl2.0)))
(define-public python2-bandit
(package-with-python2 python-bandit))
(define-public python-debtcollector
(package
(name "python-debtcollector")
@ -376,9 +373,6 @@ extensions.")
common features used in Tempest.")
(license asl2.0)))
(define-public python2-tempest-lib
(package-with-python2 python-tempest-lib))
;; Packages from the Oslo library
(define-public python-oslo.config
(package
@ -419,9 +413,6 @@ common features used in Tempest.")
.ini style configuration files.")
(license asl2.0)))
(define-public python2-oslo.config
(package-with-python2 python-oslo.config))
(define-public python-oslo.context
(package
(name "python-oslo.context")
@ -523,9 +514,6 @@ configuration for all OpenStack projects. It also provides custom formatters,
handlers and support for context specific logging (like resource id’s etc).")
(license asl2.0)))
(define-public python2-oslo.log
(package-with-python2 python-oslo.log))
(define-public python-oslo.serialization
(package
(name "python-oslo.serialization")
@ -555,18 +543,8 @@ handlers and support for context specific logging (like resource id’s etc).")
(description
"The oslo.serialization library provides support for representing objects
in transmittable and storable formats, such as JSON and MessagePack.")
(properties `((python2-variant . ,(delay python2-oslo.serialization))))
(license asl2.0)))
(define-public python2-oslo.serialization
(let ((base (package-with-python2 (strip-python2-variant
python-oslo.serialization))))
(package
(inherit base)
(native-inputs
`(("python2-ipaddress" ,python2-ipaddress)
,@(package-native-inputs base))))))
(define-public python-reno
(package
(name "python-reno")
@ -722,9 +700,6 @@ functions, such as encoding, exception handling, string manipulation, and time
handling.")
(license asl2.0)))
(define-public python2-oslo.utils
(package-with-python2 python-oslo.utils))
(define-public python-keystoneclient
(package
(name "python-keystoneclient")
@ -786,21 +761,6 @@ SQLite for its identity store database, with the option to connect to external
LDAP.")
(license asl2.0)))
(define-public python2-keystoneclient
(let ((keystoneclient (package-with-python2 python-keystoneclient)))
(package (inherit keystoneclient)
(propagated-inputs
`(("python2-requests" ,python2-requests)
,@(alist-delete "python-requests"
(package-propagated-inputs keystoneclient))))
(native-inputs
`(("python2-oauthlib" ,python2-oauthlib)
("python2-oslosphinx" ,python2-oslosphinx)
("python2-requests-mock" ,python2-requests-mock)
("python2-tempest-lib" ,python2-tempest-lib)
,@(fold alist-delete (package-native-inputs keystoneclient)
'("python-oauthlib" "python-oslosphinx" "python-requests-mock" "python-tempest-lib")))))))
(define-public python-swiftclient
(package
(name "python-swiftclient")
@ -840,17 +800,8 @@ data that best fit this type of storage model are virtual machine images, photo
storage, email storage and backup archiving. Having no central \"brain\" or
master point of control provides greater scalability, redundancy and
permanence.")
(properties `((python2-variant . ,(delay python2-swiftclient))))
(license asl2.0)))
(define-public python2-swiftclient
(let ((swiftclient (package-with-python2
(strip-python2-variant python-swiftclient))))
(package (inherit swiftclient)
(propagated-inputs
`(("python2-futures" ,python2-futures)
,@(package-propagated-inputs swiftclient))))))
(define-public python-git-review
(package
(name "python-git-review")

18
gnu/packages/patches/beets-werkzeug-compat.patch Normal file
View file

@ -0,0 +1,18 @@
Be compatible with python-werkzeug 1.0.0.
Taken from upstream:
https://github.com/beetbox/beets/commit/d43d54e21cde97f57f19486925ab56b419254cc8
diff --git a/beetsplug/web/__init__.py b/beetsplug/web/__init__.py
index f53fb3a954..21ff5d94ed 100644
--- a/beetsplug/web/__init__.py
+++ b/beetsplug/web/__init__.py
@@ -169,7 +169,7 @@ def to_python(self, value):
return ids
def to_url(self, value):
- return ','.join(value)
+ return ','.join(str(v) for v in value)
class QueryConverter(PathConverter):

50
gnu/packages/patches/bidiv-update-fribidi.patch Normal file
View file

@ -0,0 +1,50 @@
https://sources.debian.org/data/main/b/bidiv/1.5-6/debian/patches/fribidi_019
Description: Fix building with fribidi 1.9
Author: أحمد المحمودي <aelmahmoudy@users.sourceforge.net>
Bug-Debian: http://bugs.debian.org/568130
--- a/bidiv.c
+++ b/bidiv.c
@@ -141,8 +141,9 @@ bidiv(FILE *fp)
*/
if(c1<0x80||c1>0xbf){
ungetc(c1, fp);
- unicode_in[len]=
- fribidi_iso8859_8_to_unicode_c(c);
+ fribidi_charset_to_unicode(
+ FRIBIDI_CHAR_SET_ISO8859_8,
+ &c, 1, &unicode_in[len]);
} else
unicode_in[len]=((c & 037) << 6) + (c1 & 077);
newline=0;
@@ -153,8 +154,9 @@ bidiv(FILE *fp)
In the future we will have a language
option, which will control this (as well
as the output encoding). */
- unicode_in[len]=
- fribidi_iso8859_8_to_unicode_c(c);
+ fribidi_charset_to_unicode(
+ FRIBIDI_CHAR_SET_ISO8859_8,
+ &c, 1, &unicode_in[len]);
#else
in[len]=c;
#endif
@@ -206,11 +208,11 @@ bidiv(FILE *fp)
rtl_line=0;
if(out_utf8)
- fribidi_unicode_to_utf8(unicode_out, len,
- out);
+ fribidi_unicode_to_charset(FRIBIDI_CHAR_SET_UTF8,
+ unicode_out, len, out);
else
- fribidi_unicode_to_iso8859_8(unicode_out, len,
- out);
+ fribidi_unicode_to_charset(FRIBIDI_CHAR_SET_ISO8859_8,
+ unicode_out, len, out);
/* if rtl_line (i.e., base_dir is RL), and we didn't fill the
entire width, we need to pad with spaces. Maybe in the
future this should be an option.
--

74
gnu/packages/patches/eigen-stabilise-sparseqr-test.patch Normal file
View file

@ -0,0 +1,74 @@
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Mon, 16 Mar 2020 22:51:37 +0000
Subject: gnu: eigen: Stabilise sparseqr test.
Taken verbatim from this[0] upstream commit.
[0]: https://gitlab.com/libeigen/eigen/-/commit/3b5deeb546d4017b24846f5b0dc3296a50a039fe
From 3b5deeb546d4017b24846f5b0dc3296a50a039fe Mon Sep 17 00:00:00 2001
From: Gael Guennebaud <g.gael@free.fr>
Date: Tue, 19 Feb 2019 22:57:51 +0100
Subject: [PATCH] bug #899: make sparseqr unit test more stable by 1) trying
with larger threshold and 2) relax rank computation for rank-deficient
problems.
---
test/sparseqr.cpp | 31 ++++++++++++++++++++++++++-----
1 file changed, 26 insertions(+), 5 deletions(-)
diff --git a/test/sparseqr.cpp b/test/sparseqr.cpp
index 3ffe62314..3576cc626 100644
--- a/test/sparseqr.cpp
+++ b/test/sparseqr.cpp
@@ -43,6 +43,7 @@ int generate_sparse_rectangular_problem(MatrixType& A, DenseMat& dA, int maxRows
template<typename Scalar> void test_sparseqr_scalar()
{
+ typedef typename NumTraits<Scalar>::Real RealScalar;
typedef SparseMatrix<Scalar,ColMajor> MatrixType;
typedef Matrix<Scalar,Dynamic,Dynamic> DenseMat;
typedef Matrix<Scalar,Dynamic,1> DenseVector;
@@ -91,14 +92,34 @@ template<typename Scalar> void test_sparseqr_scalar()
exit(0);
return;
}
-
- VERIFY_IS_APPROX(A * x, b);
-
- //Compare with a dense QR solver
+
+ // Compare with a dense QR solver
ColPivHouseholderQR<DenseMat> dqr(dA);
refX = dqr.solve(b);
- VERIFY_IS_EQUAL(dqr.rank(), solver.rank());
+ bool rank_deficient = A.cols()>A.rows() || dqr.rank()<A.cols();
+ if(rank_deficient)
+ {
+ // rank deficient problem -> we might have to increase the threshold
+ // to get a correct solution.
+ RealScalar th = RealScalar(20)*dA.colwise().norm().maxCoeff()*(A.rows()+A.cols()) * NumTraits<RealScalar>::epsilon();
+ for(Index k=0; (k<16) && !test_isApprox(A*x,b); ++k)
+ {
+ th *= RealScalar(10);
+ solver.setPivotThreshold(th);
+ solver.compute(A);
+ x = solver.solve(b);
+ }
+ }
+
+ VERIFY_IS_APPROX(A * x, b);
+
+ // For rank deficient problem, the estimated rank might
+ // be slightly off, so let's only raise a warning in such cases.
+ if(rank_deficient) ++g_test_level;
+ VERIFY_IS_EQUAL(solver.rank(), dqr.rank());
+ if(rank_deficient) --g_test_level;
+
if(solver.rank()==A.cols()) // full rank
VERIFY_IS_APPROX(x, refX);
// else
--
2.24.1

69
gnu/packages/patches/python-alembic-exceptions-cause.patch Normal file
View file

@ -0,0 +1,69 @@
Fix a test failure with newer versions of SQLalchemy due to missing
"causes" for some exceptions.
diff --git a/alembic/operations/ops.py b/alembic/operations/ops.py
index 5ec2762..7129472 100644
--- a/alembic/operations/ops.py
+++ b/alembic/operations/ops.py
@@ -108,6 +108,7 @@ def from_constraint(cls, constraint):
"primary_key_constraint": "primary",
"check_constraint": "check",
"column_check_constraint": "check",
+ "table_or_column_check_constraint": "check",
}
constraint_table = sqla_compat._table_for_constraint(constraint)
@@ -707,6 +708,7 @@ def batch_create_foreign_key(
"create_check_constraint", "batch_create_check_constraint"
)
@AddConstraintOp.register_add_constraint("check_constraint")
+@AddConstraintOp.register_add_constraint("table_or_column_check_constraint")
@AddConstraintOp.register_add_constraint("column_check_constraint")
class CreateCheckConstraintOp(AddConstraintOp):
"""Represent a create check constraint operation."""
diff --git a/alembic/testing/assertions.py b/alembic/testing/assertions.py
index 3dc08f0..a78e5e8 100644
--- a/alembic/testing/assertions.py
+++ b/alembic/testing/assertions.py
@@ -2,10 +2,9 @@
import re
+from sqlalchemy import util
from sqlalchemy.engine import default
from sqlalchemy.testing.assertions import _expect_warnings
-from sqlalchemy.testing.assertions import assert_raises # noqa
-from sqlalchemy.testing.assertions import assert_raises_message # noqa
from sqlalchemy.testing.assertions import eq_ # noqa
from sqlalchemy.testing.assertions import is_ # noqa
from sqlalchemy.testing.assertions import is_false # noqa
@@ -17,6 +16,29 @@
from ..util.compat import py3k
+def assert_raises(except_cls, callable_, *args, **kw):
+ try:
+ callable_(*args, **kw)
+ success = False
+ except except_cls:
+ success = True
+
+ # assert outside the block so it works for AssertionError too !
+ assert success, "Callable did not raise an exception"
+
+
+def assert_raises_message(except_cls, msg, callable_, *args, **kwargs):
+ try:
+ callable_(*args, **kwargs)
+ assert False, "Callable did not raise an exception"
+ except except_cls as e:
+ assert re.search(msg, util.text_type(e), re.UNICODE), "%r !~ %s" % (
+ msg,
+ e,
+ )
+ print(util.text_type(e).encode("utf-8"))
+
+
def eq_ignore_whitespace(a, b, msg=None):
# sqlalchemy.testing.assertion has this function
# but not with the special "!U" detection part

36
gnu/packages/patches/python-flask-restful-werkzeug-compat.patch Normal file
View file

@ -0,0 +1,36 @@
We need one patch on top of 0.3.8 for compatibility with Werkzeug 1.0.
Taken from upstream:
https://github.com/flask-restful/flask-restful/commit/73376a488907af3042b52678ac4c23f8a8911e5b
diff --git a/tests/test_api.py b/tests/test_api.py
index f7f8e661..6795d362 100644
--- a/tests/test_api.py
+++ b/tests/test_api.py
@@ -445,7 +445,9 @@ def test_handle_non_api_error(self):
resp = app.get("/foo")
self.assertEquals(resp.status_code, 404)
- self.assertEquals('text/html', resp.headers['Content-Type'])
+ # in newer versions of werkzeug this is `text/html; charset=utf8`
+ content_type, _, _ = resp.headers['Content-Type'].partition(';')
+ self.assertEquals('text/html', content_type)
def test_non_api_error_404_catchall(self):
app = Flask(__name__)
diff --git a/tests/test_reqparse.py b/tests/test_reqparse.py
index 2f1fbedf..9776f17c 100644
--- a/tests/test_reqparse.py
+++ b/tests/test_reqparse.py
@@ -2,9 +2,9 @@
import unittest
from mock import Mock, patch
from flask import Flask
-from werkzeug import exceptions, MultiDict
+from werkzeug import exceptions
from werkzeug.wrappers import Request
-from werkzeug.datastructures import FileStorage
+from werkzeug.datastructures import FileStorage, MultiDict
from flask_restful.reqparse import Argument, RequestParser, Namespace
import six
import decimal

38
gnu/packages/patches/python-jedi-deleted-variables.patch Normal file
View file

@ -0,0 +1,38 @@
Fix test failure in some environments, including Guix.
Taken from upstream:
https://github.com/davidhalter/jedi/commit/bec87f7ff82b0731713c6520a14c213341b4cecf
diff --git a/test/completion/basic.py b/test/completion/basic.py
index b40068179..3ff919ca6 100644
--- a/test/completion/basic.py
+++ b/test/completion/basic.py
@@ -209,11 +209,11 @@ def global_as_import():
deleted_var = 3
del deleted_var
-#? int()
+#?
deleted_var
-#? ['deleted_var']
+#? []
deleted_var
-#! ['deleted_var = 3']
+#! []
deleted_var
# -----------------
diff --git a/test/test_api/test_full_name.py b/test/test_api/test_full_name.py
index 4fdb861b0..6858b6ca8 100644
--- a/test/test_api/test_full_name.py
+++ b/test/test_api/test_full_name.py
@@ -112,7 +112,8 @@ def test_os_path(Script):
def test_os_issues(Script):
"""Issue #873"""
- assert [c.name for c in Script('import os\nos.nt''').complete()] == ['nt']
+ # nt is not found, because it's deleted
+ assert [c.name for c in Script('import os\nos.nt''').complete()] == []
def test_param_name(Script):

6
gnu/packages/perl-check.scm
View file

@ -10,7 +10,7 @@
;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2017 Christopher Baines <mail@cbaines.net>
;;; Copyright © 2017 Petter <petter@mykolab.ch>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2018 Kei Kebreau <kkebreau@posteo.net>
@ -1237,14 +1237,14 @@ makes fork(2) safe to use in test cases.")
(define-public perl-test-simple
(package
(name "perl-test-simple")
(version "1.302171")
(version "1.302172")
(source (origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/E/EX/EXODIST/"
"Test-Simple-" version ".tar.gz"))
(sha256
(base32
"12in730hr51h42dwd3c5k7ysyp0xyk17583mfvx6zg56nb990zz2"))))
"1z1l8dgssf0mqbgik33sc5j48iiapppkwmacwah990hj0j7pd23k"))))
(build-system perl-build-system)
(synopsis "Basic utilities for writing tests")
(description

94
gnu/packages/photo.scm
View file

@ -6,6 +6,7 @@
;;; Copyright © 2017 Roel Janssen <roel@gnu.org>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Leo Famulari <leo@famulari.name>
;;; Copyright © 2020 Sebastian Schott <sschott@mailbox.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -26,6 +27,7 @@
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system perl)
#:use-module (guix build-system python)
#:use-module (guix download)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
@ -37,12 +39,15 @@
#:use-module (gnu packages boost)
#:use-module (gnu packages compression)
#:use-module (gnu packages curl)
#:use-module (gnu packages file)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gettext)
#:use-module (gnu packages ghostscript)
#:use-module (gnu packages gl)
#:use-module (gnu packages gnome)
#:use-module (gnu packages glib)
#:use-module (gnu packages graphics)
#:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk)
#:use-module (gnu packages image)
#:use-module (gnu packages imagemagick)
@ -56,9 +61,13 @@
#:use-module (gnu packages popt)
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages python-web)
#:use-module (gnu packages qt)
#:use-module (gnu packages readline)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages tex)
#:use-module (gnu packages time)
#:use-module (gnu packages video)
#:use-module (gnu packages web)
#:use-module (gnu packages wxwidgets)
#:use-module (gnu packages xfig)
@ -67,6 +76,91 @@
#:use-module ((srfi srfi-1) #:hide (zip))
#:use-module (srfi srfi-26))
(define-public rapid-photo-downloader
(package
(name "rapid-photo-downloader")
(version "0.9.18")
(source (origin
(method url-fetch)
(uri (string-append "https://launchpad.net/rapid/pyqt/"
version "/+download/" name "-"
version ".tar.gz"))
(sha256
(base32
"15p7sssg6vmqbm5xnc4j5dr89d7gl7y5qyq44a240yl5aqkjnybw"))))
(build-system python-build-system)
(native-inputs
`(("file" ,file)
("intltool" ,intltool)
("gobject-introspection" ,gobject-introspection)))
(inputs
`(("gdk-pixbuf" ,gdk-pixbuf)
("gexiv2" ,gexiv2)
("gst-libav" ,gst-libav)
("gst-plugins-base" ,gst-plugins-base)
("gst-plugins-good" ,gst-plugins-good)
("gstreamer" ,gstreamer)
("libgudev" ,libgudev)
("libnotify" ,libnotify)
("libmediainfo" ,libmediainfo)
("usdisks" ,udisks)
("python-pyqt" ,python-pyqt)
("python-pygobject" ,python-pygobject)
("python-gphoto2" ,python-gphoto2)
("python-pyzmq" ,python-pyzmq)
("python-tornado" ,python-tornado)
("python-psutil" ,python-psutil)
("python-pyxdg" ,python-pyxdg)
("python-arrow" ,python-arrow)
("python-dateutil" ,python-dateutil)
("python-easygui" ,python-easygui)
("python-colour" ,python-colour)
("python-pymediainfo" ,python-pymediainfo)
("python-sortedcontainers" ,python-sortedcontainers)
("python-rawkit" ,python-rawkit)
("python-requests" ,python-requests)
("python-colorlog" ,python-colorlog)
("python-pyprind" ,python-pyprind)
("python-tenacity" ,python-tenacity)
("perl-image-exiftool" ,perl-image-exiftool)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-libmediainfo
(lambda _
(substitute* "raphodo/metadatavideo.py"
(("pymedia_library_file = 'libmediainfo.so.0'")
(string-append "pymedia_library_file = '"
(assoc-ref %build-inputs "libmediainfo")
"/lib/libmediainfo.so.0'")))
#t))
(add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(path (string-join
(list (string-append
(assoc-ref inputs "perl-image-exiftool")
"/bin"))
":"))
(gi-typelib-path (getenv "GI_TYPELIB_PATH"))
(python-path (getenv "PYTHONPATH")))
(for-each
(lambda (program)
(wrap-program program
`("PATH" ":" prefix (,path))
`("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))
`("PYTHONPATH" ":" prefix (,python-path))))
(map (lambda (name)
(string-append out "/bin/" name))
'("analyze-pv-structure"
"rapid-photo-downloader"))))
#t)))))
(home-page "https://www.damonlynch.net/rapid/")
(synopsis "Import photos and videos from cameras, phones and memory cards")
(description "Import photos and videos from cameras, phones and memory
cards and generate meaningful file and folder names.")
(license license:gpl2+)))
(define-public libraw
(package
(name "libraw")

2
gnu/packages/profiling.scm
View file

@ -311,7 +311,7 @@ with calls to the POMP2 measurement interface.")
(("^source .*frontend.*$") "")
(((assoc-ref outputs "out")) lib))
#t))))))
(home-page "http://www.scalasca.org/software/cube-4.x/download.html")
(home-page "https://www.scalasca.org/software/cube-4.x/download.html")
(synopsis "Performance report explorer for parallel programs")
(description
"CUBE (CUBE Uniform Behavioral Encoding) is a tool to display a variety

34
gnu/packages/python-check.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2019 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu>
@ -30,6 +30,7 @@
#:use-module (guix utils)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix git-download)
#:use-module (guix download)
#:use-module (guix build-system python))
@ -109,6 +110,37 @@ detect the absence of a cassette file and once again record all HTTP
interactions, which will update them to correspond to the new API.")
(license license:expat)))
(define-public python-pytest-vcr
(package
(name "python-pytest-vcr")
(version "1.0.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ktosiek/pytest-vcr")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1i6fin91mklvbi8jzfiswvwf1m91f43smpj36a17xrzk4gisfs6i"))))
(build-system python-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda* (#:key inputs outputs #:allow-other-keys)
(add-installed-pythonpath inputs outputs)
(invoke "pytest" "tests/"))))))
(propagated-inputs
`(("python-pytest" ,python-pytest)
("python-vcrpy" ,python-vcrpy)))
(home-page "https://github.com/ktosiek/pytest-vcr")
(synopsis "Plugin for managing VCR.py cassettes")
(description
"Plugin for managing VCR.py cassettes.")
(license license:expat)))
(define-public python-pytest-checkdocs
(package
(name "python-pytest-checkdocs")

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

@ -788,6 +788,40 @@ key), SSH public key, ASC-encoded OpenPGP key, APK Android application, LDIFF
file, and more.")
(license license:gpl3)))
(define-public python-blurhash
(package
(name "python-blurhash")
(version "1.1.4")
(source
(origin
;; Tests not included in pypi release and releases not tagged in git repo.
(method git-fetch)
(uri (git-reference
(url "https://github.com/halcy/blurhash-python")
(commit "22e081ef1c24da1bb5c5eaa2c1d6649724deaef8")))
(file-name (git-file-name name version))
(sha256
(base32
"1qq6mhydlp7q3na4kmaq3871h43wh3pyfyxr4b79bia73wjdylxf"))))
(build-system python-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda _
(delete-file "setup.cfg")
(invoke "pytest"))))))
(native-inputs
`(("python-numpy" ,python-numpy)
("python-pillow" ,python-pillow)
("python-pytest" ,python-pytest)))
(home-page "https://github.com/halcy/blurhash-python")
(synopsis
"Pure-Python implementation of the blurhash algorithm")
(description
"Pure-Python implementation of the blurhash algorithm.")
(license license:expat)))
(define-public python-ecpy
(package
(name "python-ecpy")

29
gnu/packages/python-science.scm
View file

@ -4,7 +4,7 @@
;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017, 2018, 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2019 Giacomo Leidi <goodoldpaul@autistici.org>
@ -277,12 +277,21 @@ doing practical, real world data analysis in Python.")
(define-public python2-pandas
(let ((pandas (package-with-python2
(strip-python2-variant python-pandas))))
(package/inherit
pandas
(version "0.24.2")
(source (origin
(method url-fetch)
(uri (pypi-uri "pandas" version))
(sha256
(base32
"18imlm8xbhcbwy4wa957a1fkamrcb0z988z006jpfda3ki09z4ag")))))))
(package
(inherit pandas)
(version "0.24.2")
(source (origin
(method url-fetch)
(uri (pypi-uri "pandas" version))
(sha256
(base32
"18imlm8xbhcbwy4wa957a1fkamrcb0z988z006jpfda3ki09z4ag"))
(modules '((guix build utils)))
(snippet
'(begin
;; Adjust for renamed error message in Python 2.7.17. Taken
;; from <https://github.com/pandas-dev/pandas/pull/29294>.
(substitute* "pandas/io/parsers.py"
(("if 'NULL byte' in msg:")
"if 'NULL byte' in msg or 'line contains NUL' in msg:"))
#t)))))))

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

@ -440,15 +440,21 @@ between a web browser and web server.")
(define-public python-flask-babel
(package
(name "python-flask-babel")
(version "0.11.2")
(version "1.0.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "Flask-Babel" version))
(sha256
(base32
"0ff9n165vhf1nhv6807ckhpp224jw7k7sd7jz5kfh3sbpl85gmy0"))))
"0gmb165vkwv5v7dxsxa2i3zhafns0fh938m2zdcrv4d8z5l099yn"))))
(build-system python-build-system)
(arguments
'(#:phases (modify-phases %standard-phases
(replace 'check
(lambda _
(with-directory-excursion "tests"
(invoke "python" "tests.py")))))))
(propagated-inputs
`(("python-flask" ,python-flask)
("python-babel" ,python-babel)
@ -986,14 +992,14 @@ dispatching systems can be built.")
(define-public python-zope-interface
(package
(name "python-zope-interface")
(version "4.6.0")
(version "4.7.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "zope.interface" version))
(sha256
(base32
"1rgh2x3rcl9r0v0499kf78xy86rnmanajf4ywmqb943wpk50sg8v"))))
"0r9kvb1q3lxrdhxabliv9nwhjsdmn1n0vcjv93rlqkyb7yyh24gx"))))
(build-system python-build-system)
(native-inputs
`(("python-zope-event" ,python-zope-event)))
@ -1011,14 +1017,14 @@ conforming to a given API or contract.")
(define-public python-zope-exceptions
(package
(name "python-zope-exceptions")
(version "4.0.8")
(version "4.3")
(source
(origin
(method url-fetch)
(uri (pypi-uri "zope.exceptions" version))
(sha256
(base32
"0zwxaaa66sqxg5k7zcrvs0fbg9ym1njnxnr28dfmchzhwjvwnfzl"))))
"04bjskwas17yscl8bs3l44maxspw1gdji0zcmr499fs420y9r9az"))))
(build-system python-build-system)
(arguments
'(#:tests? #f)) ; circular dependency with zope.testrunner
@ -1036,20 +1042,14 @@ that have uses outside of the Zope framework.")
(define-public python-zope-testing
(package
(name "python-zope-testing")
(version "4.6.2")
(version "4.7")
(source
(origin
(method url-fetch)
(uri (pypi-uri "zope.testing" version))
(sha256
(base32
"0iiq54hjhkk2gpvzfjac70vyn4r0kw0ngvicshxbdwrkgf2gjq3g"))
(modules '((guix build utils)))
(snippet
'(begin
;; Remove pre-compiled .pyc files backup files from source.
(for-each delete-file (find-files "." "(\\.pyc|~)$"))
#t))))
"1sh3c3i0m8n8fnhqiry0bk3rr356i56ry7calmn57s1pvv8yhsyn"))))
(build-system python-build-system)
(home-page "https://pypi.org/project/zope.testing/")
(synopsis "Zope testing helpers")
@ -1063,25 +1063,23 @@ forms, HTTP servers, regular expressions, and more.")
(define-public python-zope-testrunner
(package
(name "python-zope-testrunner")
(version "4.4.9")
(version "5.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "zope.testrunner" version ".zip"))
(uri (pypi-uri "zope.testrunner" version))
(sha256
(base32
"1r7iqknhh55y45f64mz5hghgvzx34h1i11k350s0avx6q8gznja1"))))
"0w3q66cy4crpj7c0hw0vvvvwf3g931rnvw7wwa20av7yqvv6ajim"))))
(build-system python-build-system)
(arguments
'(#:tests? #f)) ; FIXME: Tests can't find zope.interface.
(native-inputs
`(("python-six" ,python-six)
;("python-zope-interface" ,python-zope-interface)
("python-zope-exceptions" ,python-zope-exceptions)
("python-zope-testing" ,python-zope-testing)
("unzip" ,unzip)))
`(("python-zope-testing" ,python-zope-testing)))
(propagated-inputs
`(("python-zope-interface" ,python-zope-interface)))
`(("python-six" ,python-six)
("python-zope-exceptions" ,python-zope-exceptions)
("python-zope-interface" ,python-zope-interface)))
(home-page "https://pypi.org/project/zope.testrunner/")
(synopsis "Zope testrunner script")
(description "Zope.testrunner provides a script for running Python
@ -1089,26 +1087,25 @@ tests.")
(license license:zpl2.1)))
(define-public python2-zope-testrunner
(let ((base (package-with-python2 python-zope-testrunner)))
(package
(inherit base)
(native-inputs
(append (package-native-inputs base)
`(("python2-subunit" ,python2-subunit)
("python2-mimeparse" ,python2-mimeparse)))))))
(package-with-python2 python-zope-testrunner))
(define-public python-zope-i18nmessageid
(package
(name "python-zope-i18nmessageid")
(version "4.0.3")
(version "5.0.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "zope.i18nmessageid" version))
(sha256
(base32
"1rslyph0klk58dmjjy4j0jxy21k03azksixc3x2xhqbkv97cmzml"))))
"0ndhn4w1qgwkfbwf9vm2bgq418z5g0wmfsgl0d9nz62cd0mi8d4m"))))
(build-system python-build-system)
(native-inputs
`(("python-coverage" ,python-coverage)
("python-zope-testrunner" ,python-zope-testrunner)))
(propagated-inputs
`(("python-six" ,python-six)))
(home-page "https://pypi.org/project/zope.i18nmessageid/")
(synopsis "Message identifiers for internationalization")
(description "Zope.i18nmessageid provides facilities for declaring
@ -1121,25 +1118,24 @@ internationalized messages within program source text.")
(define-public python-zope-schema
(package
(name "python-zope-schema")
(version "4.4.2")
(version "5.0.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "zope.schema" version))
(sha256
(base32
"1p943jdxb587dh7php4vx04qvn7b2877hr4qs5zyckvp5afhhank"))))
"0q93j0x52a42khw12al90jw2bk0wly3jwghql3a25zpwwxvn24ya"))))
(build-system python-build-system)
(arguments
'(#:tests? #f)) ; FIXME: Tests can't find zope.event.
(propagated-inputs
`(("python-zope-event" ,python-zope-event)
("python-zope-exceptions" ,python-zope-exceptions)
("python-zope-interface" ,python-zope-interface)))
(native-inputs
`(("python-zope-testing" ,python-zope-testing)
("python-coverage" ,python-coverage)
("python-nose" ,python-nose)))
`(("python-zope-i18nmessageid" ,python-zope-i18nmessageid)
("python-zope-testing" ,python-zope-testing)
("python-zope-testrunner" ,python-zope-testrunner)))
(home-page "https://pypi.org/project/zope.schema/")
(synopsis "Zope data schemas")
(description "Zope.scheme provides extensions to zope.interface for
@ -1152,18 +1148,22 @@ defining data schemas.")
(define-public python-zope-configuration
(package
(name "python-zope-configuration")
(version "4.0.3")
(version "4.3.1")
(source (origin
(method url-fetch)
(uri (pypi-uri "zope.configuration" version))
(sha256
(base32
"1x9dfqypgympnlm25p9m43xh4qv3p7d75vksv9pzqibrb4cggw5n"))))
"1qb88764fd7nkkmqv7fl9bxd1jirynkg5vbqkpqdiffnkxzp85kf"))))
(build-system python-build-system)
(arguments
'(#:tests? #f)) ; FIXME: Tests can't find zope.interface.
(native-inputs
`(("python-zope-testing" ,python-zope-testing)
("python-zope-testrunner" ,python-zope-testrunner)))
(propagated-inputs
`(("python-zope-i18nmessageid" ,python-zope-i18nmessageid)
("python-zope-interface" ,python-zope-interface)
("python-zope-schema" ,python-zope-schema)))
(home-page "https://pypi.org/project/zope.configuration/")
(synopsis "Zope Configuration Markup Language")
@ -1177,17 +1177,19 @@ Markup Language.")
(define-public python-zope-proxy
(package
(name "python-zope-proxy")
(version "4.1.6")
(version "4.3.4")
(source
(origin
(method url-fetch)
(uri (pypi-uri "zope.proxy" version))
(sha256
(base32
"0pqwwmvm1prhwv1ziv9lp8iirz7xkwb6n2kyj36p2h0ppyyhjnm4"))))
"1g0rcfnbchpvqhm76aixqlz544dawrgmy8gw9zwmijhk6wfl9f26"))))
(build-system python-build-system)
(arguments
'(#:tests? #f)) ; FIXME: Tests can't find zope.interface.
(native-inputs
`(("python-zope-testrunner" ,python-zope-testrunner)))
(propagated-inputs
`(("python-zope-interface" ,python-zope-interface)))
(home-page "https://pypi.org/project/zope.proxy/")
@ -1205,19 +1207,22 @@ brokering, etc.) for which the proxy is responsible.")
(define-public python-zope-location
(package
(name "python-zope-location")
(version "4.0.3")
(version "4.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "zope.location" version))
(sha256
(base32
"1nj9da4ksiyv3h8n2vpzwd0pb03mdsh7zy87hfpx72b6p2zcwg74"))))
"1b40pzl8v00d583d3gsxv1qjdw2dhghlgkbgxl3m07d5r3izj857"))))
(build-system python-build-system)
(arguments
'(#:tests? #f)) ; FIXME: Tests can't find zope.interface.
(native-inputs
`(("python-zope-testrunner" ,python-zope-testrunner)))
(propagated-inputs
`(("python-zope-proxy" ,python-zope-proxy)
`(("python-zope-interface" ,python-zope-interface)
("python-zope-proxy" ,python-zope-proxy)
("python-zope-schema" ,python-zope-schema)))
(home-page "https://pypi.org/project/zope.location/")
(synopsis "Zope location library")
@ -1231,26 +1236,26 @@ Zope3, which are are special objects that have a structural location.")
(define-public python-zope-security
(package
(name "python-zope-security")
(version "4.0.3")
(version "5.1.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "zope.security" version))
(sha256
(base32
"14zmf684amc0x32kq05yxnhfqd1cmyhafkw05gn81rn90zjv6ssy"))))
"1npfrgnm202v48wavpwn3450dsn7az12lfww95vbhxyjl11f14yb"))))
(build-system python-build-system)
(arguments
'(#:tests? #f)) ; FIXME: Tests can't find zope.testrunner.
(propagated-inputs
`(("python-zope-i18nmessageid" ,python-zope-i18nmessageid)
`(("python-zope-component" ,python-zope-component)
("python-zope-i18nmessageid" ,python-zope-i18nmessageid)
("python-zope-interface" ,python-zope-interface)
("python-zope-location" ,python-zope-location)
("python-zope-proxy" ,python-zope-proxy)
("python-zope-schema" ,python-zope-schema)))
(native-inputs
`(("python-six" ,python-six)
("python-zope-component" ,python-zope-component)
("python-zope-configuration" ,python-zope-configuration)
("python-zope-location" ,python-zope-location)
`(("python-zope-configuration" ,python-zope-configuration)
("python-zope-testrunner" ,python-zope-testrunner)
("python-zope-testing" ,python-zope-testing)))
(home-page "https://pypi.org/project/zope.security/")
@ -1260,13 +1265,7 @@ security policies on Python objects.")
(license license:zpl2.1)))
(define-public python2-zope-security
(let ((zope-security (package-with-python2 python-zope-security)))
(package (inherit zope-security)
(propagated-inputs
`(("python2-zope-testrunner" ,python2-zope-testrunner)
,@(alist-delete
"python-zope-testrunner"
(package-propagated-inputs zope-security)))))))
(package-with-python2 python-zope-security))
(define-public python-zope-component
(package
@ -1728,20 +1727,22 @@ minimum of WSGI.")
(define-public python-flask
(package
(name "python-flask")
(version "1.0.3")
(version "1.1.1")
(source (origin
(method url-fetch)
(uri (pypi-uri "Flask" version))
(sha256
(base32
"1wxnhjlxwwjhjxmghykjhllpahv5pkdc5hln4ab6nab43s26sz5d"))))
"0ljdjgyjn7vh8ic1n1dc2l1cl421i6pr3kx5sz2w5irhyfbg3y8k"))))
(build-system python-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda _
(invoke "python" "-m" "pytest"))))))
(setenv "PYTHONPATH" (string-append "./build/lib:"
(getenv "PYTHONPATH")))
(invoke "pytest" "-vv" "tests"))))))
(native-inputs
`(("python-pytest" ,python-pytest)))
(propagated-inputs
@ -1762,31 +1763,29 @@ presume or force a developer to use a particular tool or library.")
(define-public python-flask-wtf
(package
(name "python-flask-wtf")
(version "0.13.1")
(version "0.14.3")
(source
(origin
(method url-fetch)
(uri (pypi-uri "Flask-WTF" version))
(sha256
(base32
"04l5743j2dici46038sqlzvf0xzpg8rf7s9ld2x24xv7f4idg990"))))
"086pvg2x69n0nczcq7frknfjd8am1zdy8qqpva1sanwb02hf65yl"))))
(build-system python-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-before 'check 'drop-failing-test
(replace 'check
(lambda _
;; FIXME: This file tries resolving an external server, which
;; fails. Try to patch out the offending section instead of
;; deleting the whole thing.
(delete-file "tests/test_recaptcha.py")
#t)))))
(setenv "PYTHONPATH" (string-append "./build/lib:"
(getenv "PYTHONPATH")))
(invoke "pytest" "-vv"))))))
(propagated-inputs
`(("python-flask-babel" ,python-flask-babel)
("python-babel" ,python-babel)
("python-wtforms" ,python-wtforms)))
(native-inputs
`(("python-nose" ,python-nose)))
`(("python-pytest" ,python-pytest)))
(home-page "https://github.com/lepture/flask-wtf")
(synopsis "Simple integration of Flask and WTForms")
(description "Flask-WTF integrates Flask and WTForms, including CSRF, file
@ -2167,14 +2166,15 @@ pretty printer and a tree visitor.")
(define-public python-flask-restful
(package
(name "python-flask-restful")
(version "0.3.7")
(version "0.3.8")
(source
(origin
(method url-fetch)
(uri (pypi-uri "Flask-RESTful" version))
(patches (search-patches "python-flask-restful-werkzeug-compat.patch"))
(sha256
(base32
"1a9cbwkr6krryyzq4sd3f415nkkc6dyfls5i3pgyibs94g0hw97q"))))
"05b9lzx5yc3wgml2bcq50lq35h66m8zpj6dc9advcb5z3acsbaay"))))
(build-system python-build-system)
(propagated-inputs
`(("python-aniso8601" ,python-aniso8601)
@ -2185,8 +2185,7 @@ pretty printer and a tree visitor.")
`(;; Optional dependency of Flask. Tests need it.
("python-blinker" ,python-blinker)
("python-mock" ,python-mock) ; For tests
("python-nose" ,python-nose) ; For tests
("python-sphinx" ,python-sphinx)))
("python-nose" ,python-nose))) ;for tests
(home-page
"https://www.github.com/flask-restful/flask-restful/")
(synopsis
@ -2303,15 +2302,16 @@ documentation builder.")
(define-public python-flask-restful-swagger
(package
(name "python-flask-restful-swagger")
(version "0.19")
(version "0.20.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "flask-restful-swagger" version))
(sha256
(base32
"16msl8hd5xjmj833bpy264v98cpl5hkw5bgl5gf5vgndxbv3rm6v"))))
"1p66f98b5zpypnnz56pxpbirchqj6aniw6qyrp8h572l0dn9xlvq"))))
(build-system python-build-system)
(arguments '(#:tests? #f)) ;no tests
(propagated-inputs
`(("python-flask-restful" ,python-flask-restful)))
(home-page "https://github.com/rantav/flask-restful-swagger")
@ -2392,7 +2392,7 @@ on the command line.")
(define-public python-flask-login
(package
(name "python-flask-login")
(version "0.4.1")
(version "0.5.0")
(source
(origin
(method git-fetch)
@ -2401,25 +2401,18 @@ on the command line.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1rj0qwyxapxnp84fi4lhmvh3d91fdiwz7hibw77x3d5i72knqaa9"))))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'check 'avoid-yanc
;; Work around '.nosetests-real: error: no such option: --with-yanc'.
(lambda _
(setenv "NOCOLOR" "set")
#t)))))
(base32 "11ac924w0y4m0kf3mxnxdlidy88jfa7njw5yyrq16dvnx4iwd8gg"))))
(build-system python-build-system)
(propagated-inputs
`(("python-flask" ,python-flask)))
(native-inputs
;; For tests.
`(("python-blinker" ,python-blinker)
("python-coverage" ,python-coverage)
("python-mock" ,python-mock)
("python-nose" ,python-nose)
("python-pep8" ,python-pep8)
("python-pycodestyle" ,python-pycodestyle)
("python-pyflakes" ,python-pyflakes)
("python-pytest" ,python-pytest)
("python-semantic-version" ,python-semantic-version)
("python-werkzeug" ,python-werkzeug)))
(home-page "https://github.com/maxcountryman/flask-login")
@ -2606,14 +2599,14 @@ itself.")
(define-public python-flask-migrate
(package
(name "python-flask-migrate")
(version "2.0.3")
(version "2.5.3")
(source
(origin
(method url-fetch)
(uri (pypi-uri "Flask-Migrate" version))
(sha256
(base32
"107x78lkqsnbg92dld3dkagg07jvchp3ib3y0sivc4ipz6n1y7rk"))))
"1vip9ww6l18dxffjsggm83k71zkvihxpnhaswpv8klh95s6517d6"))))
(build-system python-build-system)
(propagated-inputs
`(("python-flask" ,python-flask)
@ -2628,9 +2621,6 @@ Alembic")
for Flask programs that are using @code{python-alembic}.")
(license license:expat)))
(define-public python2-flask-migrate
(package-with-python2 python-flask-migrate))
(define-public python-genshi
(package
(name "python-genshi")
@ -2783,14 +2773,14 @@ List. Forked from and using the same API as the publicsuffix package.")
(define-public python-werkzeug
(package
(name "python-werkzeug")
(version "0.14.1")
(version "1.0.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "werkzeug" version))
(uri (pypi-uri "Werkzeug" version))
(sha256
(base32
"0z2m4snn1vc9518r2vzgdj1nc90kcgi60wijvd29yvcp85ypmzf3"))))
"15kh0z61klp62mrc1prka13xsshxn0rsp1j1s2964iw86yisi6qn"))))
(build-system python-build-system)
(arguments
'(#:phases
@ -2803,7 +2793,8 @@ List. Forked from and using the same API as the publicsuffix package.")
(propagated-inputs
`(("python-requests" ,python-requests)))
(native-inputs
`(("python-pytest" ,python-pytest)))
`(("python-pytest" ,python-pytest)
("python-pytest-timeout" ,python-pytest-timeout)))
(home-page "https://www.palletsprojects.org/p/werkzeug/")
(synopsis "Utilities for WSGI applications")
(description "One of the most advanced WSGI utility modules. It includes a

495
gnu/packages/python-xyz.scm
View file

@ -70,6 +70,7 @@
;;; Copyright © 2020 Riku Viitanen <riku.viitanen@protonmail.com>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2020 sirgazil <sirgazil@zoho.com>
;;; Copyright © 2020 Sebastian Schott <sschott@mailbox.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -129,6 +130,7 @@
#:use-module (gnu packages openstack)
#:use-module (gnu packages pcre)
#: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 python-check)
@ -170,6 +172,237 @@
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26))
(define-public python-tenacity
(package
(name "python-tenacity")
(version "6.1.0")
(source (origin
(method url-fetch)
(uri (pypi-uri "tenacity" version))
(sha256
(base32
"1j36v9fcpmmd4985ix0cwnvcq71rkrn5cjiiv0id9vkl4kpxh0gv"))))
(build-system python-build-system)
(native-inputs
`(("python-setuptools-scm" ,python-setuptools-scm)
("python-sphinx" ,python-sphinx)
("python-tornado" ,python-tornado)
("python-pytest" ,python-pytest)))
(propagated-inputs
`(("python-six" ,python-six)))
(arguments
`(#:phases (modify-phases %standard-phases
(replace 'check
(lambda _
(invoke "pytest")
#t)))))
(home-page "https://github.com/jd/tenacity")
(synopsis "Retrying library for python")
(description "Tenacity is a general-purpose python library to simplify the
task of adding retry behavior to just about anything.")
(license license:asl2.0)))
(define-public python-colorlog
(package
(name "python-colorlog")
(version "4.1.0")
(source (origin
(method url-fetch)
(uri (pypi-uri "colorlog" version))
(sha256
(base32
"1lpk8zmfv8vz090h5d0hzb4n39wgasxdd3x3bpn3v1x1n9dfzaih"))))
(build-system python-build-system)
(native-inputs
`(("python-pytest" ,python-pytest)))
(arguments
`(#:phases (modify-phases %standard-phases
(replace 'check
(lambda _
;; Extend PYTHONPATH so the built package will be found.
(setenv "PYTHONPATH"
(string-append (getcwd) "/build/lib:"
(getenv "PYTHONPATH")))
(invoke "pytest" "-p" "no:logging")
#t)))))
(home-page "https://github.com/borntyping/python-colorlog")
(synopsis "Log formatting with colors for python")
(description "The @code{colorlog.ColoredFormatter} is a formatter for use
with Python's logging module that outputs records using terminal colors.")
(license license:expat)))
(define-public python-pyprind
(package
(name "python-pyprind")
(version "2.11.2")
(source (origin
(method url-fetch)
(uri (pypi-uri "PyPrind" version))
(sha256
(base32
"0xg6m5hr33h9bdlrr42kc58jm2m87a9zsagy7n2m4n407d2snv64"))))
(build-system python-build-system)
(propagated-inputs
`(("python-psutil" ,python-psutil)))
(home-page "https://github.com/rasbt/pyprind")
(synopsis "Python Progress Bar and Percent Indicator Utility")
(description "The PyPrind (Python Progress Indicator) module provides a
progress bar and a percentage indicator object that let you track the progress
of a loop structure or other iterative computation.")
(license license:bsd-3)))
(define-public python-gphoto2
(package
(name "python-gphoto2")
(version "2.2.1")
(source (origin
(method url-fetch)
(uri (pypi-uri "gphoto2" version))
(sha256
(base32
"118zm25c8mlajfl0pzssnwz4b8lamj9dgymla9rn4nla7l244a0r"))))
(build-system python-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("libgphoto2" ,libgphoto2)))
(home-page "https://github.com/jim-easterbrook/python-gphoto2")
(synopsis "Python interface to libgphoto2")
(description "@code{python-gphoto2} is a comprehensive Python interface
(or binding) to @code{libgphoto2}. It is built using @code{SWIG} to
automatically generate the interface code.")
(license license:gpl3+)))
(define-public python-colour
(package
(name "python-colour")
(version "0.1.5")
(source (origin
(method url-fetch)
(uri (pypi-uri "colour" version))
(sha256
(base32
"1visbisfini5j14bdzgs95yssw6sm4pfzyq1n3lfvbyjxw7i485g"))))
(build-system python-build-system)
(native-inputs
`(("python-d2to1" ,python-d2to1)))
(home-page "https://github.com/vaab/colour")
(synopsis "Convert and manipulate various color representations")
(description "Pythonic way to manipulate color representations (HSL, RVB,
web, X11, ...).")
(license license:expat)))
(define-public python-d2to1
(package
(name "python-d2to1")
(version "0.2.12.post1")
(source (origin
(method url-fetch)
(uri (pypi-uri "d2to1" version))
(sha256
(base32
"09fq7pq1z8d006xh5z75rm2lk61v6yn2xhy53z4gsgibhqb2vvs9"))))
(build-system python-build-system)
(native-inputs
`(("python-nose" ,python-nose)))
(home-page "https://github.com/embray/d2to1")
(synopsis "Allows for distutils2-like setup.cfg files as package metadata
in python")
(description "The python package d2to1 (the d is for distutils) allows
using distutils2-like setup.cfg files for a package's metadata with a
distribute/setuptools setup.py script.")
(license license:bsd-2)))
(define-public python-rawkit
(package
(name "python-rawkit")
(version "0.6.0")
(source (origin
(method url-fetch)
(uri (pypi-uri "rawkit" version))
(sha256
(base32
"0vrhrpr70i61y5q5ysk341x1539ff1q1k82g59zq69lv16s0f76s"))))
(build-system python-build-system)
(native-inputs
`(("python-pytest" ,python-pytest)
("python-mock" ,python-mock)))
(inputs
`(("libraw" ,libraw)))
(home-page "https://rawkit.readthedocs.io")
(synopsis "Ctypes-based LibRaw binding for Python")
(description "The rawkit package provides two modules: rawkit and libraw.
The rawkit module provides a high-level Pythonic interface for developing raw
photos, while the libraw module provides a CTypes based interface for
interacting with the low-level LibRaw C APIs.")
(license license:expat)))
(define-public python-easygui
(package
(name "python-easygui")
(version "0.98.1")
(source (origin
(method url-fetch)
(uri (pypi-uri "easygui" version))
(sha256
(base32
"1zmvmwgxyzvm83818skhn8b4wrci4kmnixaax8q3ia5cn7xrmj6v"))))
(build-system python-build-system)
(propagated-inputs
`(("python-tkinter" ,python "tk")))
(home-page "https://github.com/robertlugg/easygui")
(synopsis "GUI programming module for Python")
(description "EasyGUI is a module for very simple, very easy GUI
programming in Python. EasyGUI is different from other GUI generators in that
EasyGUI is NOT event-driven. Instead, all GUI interactions are invoked by
simple function calls.")
(license license:bsd-3)))
(define-public python-pymediainfo
(package
(name "python-pymediainfo")
(version "4.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "pymediainfo" version))
(sha256
(base32
"0mhpxs7vlqx8w75z93dy7nnvx89kwfdjkla03l19an15rlyqyspd"))))
(build-system python-build-system)
(native-inputs
`(("python-setuptools-scm" ,python-setuptools-scm)
("python-pytest" ,python-pytest)))
(inputs
`(("libmediainfo" ,libmediainfo)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-libmediainfo
(lambda _
(substitute* "pymediainfo/__init__.py"
(("libmediainfo.so.0")
(string-append (assoc-ref %build-inputs "libmediainfo")
"/lib/libmediainfo.so.0")))
#t))
(replace 'check
(lambda _
;; Extend PYTHONPATH so the built package will be found.
(setenv "PYTHONPATH"
(string-append (getcwd) "/build/lib:"
(getenv "PYTHONPATH")))
;; Skip the only failing test "test_parse_url"
(invoke "pytest" "-vv" "-k" "not test_parse_url")
#t)))))
(home-page
"https://github.com/sbraz/pymediainfo")
(synopsis
"Python wrapper for the mediainfo library")
(description
"Python wrapper for the mediainfo library to access the technical and tag
data for video and audio files.")
(license license:expat)))
(define-public python-psutil
(package
(name "python-psutil")
@ -1819,14 +2052,14 @@ from git information.
(define-public python-pyrsistent
(package
(name "python-pyrsistent")
(version "0.14.11")
(version "0.15.7")
(home-page "https://github.com/tobgu/pyrsistent")
(source (origin
(method url-fetch)
(uri (pypi-uri "pyrsistent" version))
(sha256
(base32
"1qkh74bm296mp5g3r11lgsksr6bh4w1bf8pji4nmxdlfj542ga1w"))))
"103j63g6lb5dfspph96zxjdpnq9h991kazd4f09ddgkpxpivbiyd"))))
(build-system python-build-system)
(native-inputs
`(("python-hypothesis" ,python-hypothesis)
@ -2596,13 +2829,13 @@ logic-free templating system Mustache.")
(define-public python-joblib
(package
(name "python-joblib")
(version "0.13.0")
(version "0.14.1")
(source (origin
(method url-fetch)
(uri (pypi-uri "joblib" version))
(sha256
(base32
"0612nazad8dxmn3xghfrmjax6456l4xy6hn9cngs7vydi14ds7v5"))))
"1j464w137w6s367gl697j1l63g52akydrxgv4czlck36ynjfwc06"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -6146,29 +6379,52 @@ interfaces in an easy and portable manner.")
(define-public python-networkx
(package
(name "python-networkx")
(version "2.2")
(version "2.4")
(source
(origin
(method url-fetch)
(uri (pypi-uri "networkx" version ".zip"))
(uri (pypi-uri "networkx" version))
(sha256
(base32 "12swxb15299v9vqjsq4z8rgh5sdhvpx497xwnhpnb0gynrx6zra5"))))
(base32 "0r2wr7aqay9fwjrgk35fkjzk8lvvb4i4df7ndaqzkr4ndw5zzx7q"))))
(build-system python-build-system)
(arguments
'(#:phases (modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(if tests?
(invoke "pytest" "-vv" "--pyargs" "networkx")
(format #t "test suite not run~%"))
#t)))))
;; python-decorator is needed at runtime.
(propagated-inputs
`(("python-decorator" ,python-decorator)))
(native-inputs
`(("python-nose" ,python-nose)
("unzip" ,unzip)))
`(("python-pytest" ,python-pytest)))
(home-page "https://networkx.github.io/")
(synopsis "Python module for creating and manipulating graphs and networks")
(description
"NetworkX is a Python package for the creation, manipulation, and study
of the structure, dynamics, and functions of complex networks.")
(properties `((python2-variant . ,(delay python2-networkx))))
(license license:bsd-3)))
;; NetworkX 2.2 is the last version with support for Python 2.
(define-public python2-networkx
(package-with-python2 python-networkx))
(let ((base (package-with-python2 (strip-python2-variant python-networkx))))
(package
(inherit base)
(version "2.2")
(source (origin
(method url-fetch)
(uri (pypi-uri "networkx" version ".zip"))
(sha256
(base32
"12swxb15299v9vqjsq4z8rgh5sdhvpx497xwnhpnb0gynrx6zra5"))))
(arguments
`(#:python ,python-2))
(native-inputs
`(("python-nose" ,python2-nose)
("unzip" ,unzip))))))
(define-public python-datrie
(package
@ -6265,25 +6521,13 @@ SVG, EPS, PNG and terminal output.")
(define-public python-seaborn
(package
(name "python-seaborn")
(version "0.9.0")
(version "0.10.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "seaborn" version))
(sha256
(base32 "0bqysi3fxfjl1866m5jq8z7mynhqbqnikim74dmzn8539iwkzj3n"))
(patches
(list (origin
(method url-fetch)
;; This has already been merged, but there is no new
;; release including this patch. It fixes problems
;; with axis rotation that would lead to test
;; failures.
(uri "https://patch-diff.githubusercontent.com/raw/mwaskom/seaborn/pull/1716.diff")
(sha256
(base32
"1lm870z316n9ivsyr86hpk1gxaraw0mrjvq42lqsm0znhjdp9q9w"))
(file-name "seaborn-0.9.0-axis-rotation.patch"))))))
(base32 "1ffbms4kllihfycf6j57dziq4imgdjw03sqgifh5wzcd2d743zjr"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -6296,12 +6540,6 @@ SVG, EPS, PNG and terminal output.")
(system (format #f "~a/bin/Xvfb :1 &" xorg-server))
(setenv "DISPLAY" ":1")
#t)))
(add-after 'unpack 'fix-tests
(lambda _
;; test_cbar_ticks fails probably because of matplotlib's
;; expectation of using an older version of FreeType.
(delete-file "seaborn/tests/test_matrix.py")
#t))
(replace 'check (lambda _ (invoke "pytest" "seaborn") #t)))))
(propagated-inputs
`(("python-pandas" ,python-pandas)
@ -6318,10 +6556,21 @@ SVG, EPS, PNG and terminal output.")
graphics in Python. It is built on top of matplotlib and tightly integrated
with the PyData stack, including support for numpy and pandas data structures
and statistical routines from scipy and statsmodels.")
(properties `((python2-variant . ,(delay python2-seaborn))))
(license license:bsd-3)))
;; 0.9.1 is the last release with support for Python 2.
(define-public python2-seaborn
(package-with-python2 python-seaborn))
(let ((base (package-with-python2 (strip-python2-variant python-seaborn))))
(package
(inherit base)
(version "0.9.1")
(source (origin
(method url-fetch)
(uri (pypi-uri "seaborn" version))
(sha256
(base32
"1bjnshjz4d6z3vrwfwall1a3yh8h3a1h47c3fg7458x9426alcys")))))))
(define-public python-mpmath
(package
@ -9688,19 +9937,19 @@ ISO 8859, etc.).")
(define-public python-editor
(package
(name "python-editor")
(version "0.5")
(version "1.0.4")
(source
(origin
(method url-fetch)
(uri (pypi-uri "python-editor" version))
(sha256
(base32
"1ypnpgvzpkbwsg4rdvy4sy51j28b5xq9v8pnkwxncn07vqz06p7n"))))
"0yrjh8w72ivqxi4i7xsg5b1vz15x8fg51xra7c3bgfyxqnyadzai"))))
(build-system python-build-system)
(home-page
"https://github.com/fmoo/python-editor")
(synopsis
"Programmatically open an editor, capture the result")
(arguments
'(#:tests? #f)) ;XXX: needs a TTY and an editor
(home-page "https://github.com/fmoo/python-editor")
(synopsis "Programmatically open an editor, capture the result")
(description
"python-editor is a library that provides the editor module for
programmatically interfacing with your system's $EDITOR.")
@ -10311,24 +10560,17 @@ own code, responding to click events and updating clock every second.")
(define-public python-tblib
(package
(name "python-tblib")
(version "1.3.2")
(version "1.6.0")
(source (origin
(method url-fetch)
(uri (pypi-uri "tblib" version))
(sha256 (base32
"1rsg8h069kqgncyv8fgzyj6qflk6j10cb78pa5jk34ixwq044vj3"))))
(sha256
(base32
"0i136n5pydmd202254wzrdbspkw0br0c9mbxhfs9hpfbahvyx6r2"))))
(build-system python-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'check 'adjust-tests
(lambda _
(when (which "python3")
;; Adjust the example output to match that of Python 3.7:
;; <https://github.com/ionelmc/python-tblib/issues/36>.
(substitute* "README.rst"
(("Exception\\('fail',") "Exception('fail'"))
#t)))
(replace 'check
(lambda _
;; Upstream runs tests after installation and the package itself
@ -10411,13 +10653,13 @@ graphviz.")
(define-public python-gevent
(package
(name "python-gevent")
(version "1.3.7")
(version "1.4.0")
(source (origin
(method url-fetch)
(uri (pypi-uri "gevent" version))
(sha256
(base32
"0b0fr04qdk1p4sniv87fh8z5psac60x01pv054kpgi94520g81iz"))
"1lchr4akw2jkm5v4kz7bdm4wv3knkfhbfn9vkkz4s5yrkcxzmdqy"))
(modules '((guix build utils)))
(snippet
'(begin
@ -10444,10 +10686,7 @@ graphviz.")
#t))
(add-before 'build 'do-not-use-bundled-sources
(lambda* (#:key inputs #:allow-other-keys)
(setenv "CONFIG_SHELL" (which "bash"))
(setenv "LIBEV_EMBED" "false")
(setenv "CARES_EMBED" "false")
(setenv "EMBED" "false")
(setenv "GEVENTSETUP_EMBED" "0")
;; Prevent building bundled libev.
(substitute* "setup.py"
@ -10462,15 +10701,65 @@ graphviz.")
(string-prefix? "python" item)))
((python)
(setenv "C_INCLUDE_PATH"
(string-append greenlet "/" python)))))
(string-append greenlet "/" python ":"
(or (getenv "C_INCLUDE_PATH")
""))))))
#t))
(add-before 'check 'skip-timer-test
(add-before 'check 'pretend-to-be-CI
(lambda _
;; XXX: Skip 'TestTimerResolution', which appears to be
;; unreliable.
(substitute* "src/greentest/test__core_timer.py"
(("not greentest.RUNNING_ON_CI") "False"))
;; A few tests are skipped due to network constraints or
;; get longer timeouts when running in a CI environment.
;; Piggy-back on that, as we need the same adjustments.
(setenv "TRAVIS" "1")
(setenv "APPVEYOR" "1")
#t))
(add-before 'check 'adjust-tests
(lambda _
(let ((disabled-tests
'(;; These tests rely on networking which is not
;; available in the build container.
"test_urllib2net.py"
"test__server.py"
"test__server_pywsgi.py"
"test_socket.py"
"test__socket.py"
"test__socket_ssl.py"
"test__socket_dns.py"
"test__socket_dns6.py"
"test___example_servers.py"
"test__getaddrinfo_import.py"
"test__examples.py"
"test_httplib.py"
"test_https.py"
"test_urllib2_localnet.py"
"test_ssl.py"
"test__ssl.py"
;; XXX: These tests borrow functionality from the
;; Python builtin 'test' module, but it is not
;; installed with the Guix Python distribution.
"test_smtpd.py"
"test_wsgiref.py"
"test_urllib2.py"
"test_thread.py"
"test_threading.py"
"test__threading_2.py"
;; FIXME: test_patch_twice_warning_events fails for
;; no apparent reason. Needs more investigation!
"test__monkey.py"
;; These tests rely on KeyboardInterrupts which do not
;; work inside the build container for some reason
;; (lack of controlling terminal?).
"test_subprocess.py"
"test__issues461_471.py"
;; TODO: Patch out the tests that use getprotobyname, etc
;; instead of disabling all the tests from these files.
"test__all__.py"
"test___config.py"
"test__execmodules.py")))
(call-with-output-file "skipped_tests.txt"
(lambda (port)
(display (string-join disabled-tests "\n") port)))
#t)))
(replace 'check
(lambda _
;; Make sure the build directory is on PYTHONPATH.
@ -10479,21 +10768,23 @@ graphviz.")
(getenv "PYTHONPATH") ":"
(getcwd) "/build/"
(car (scandir "build" (cut string-prefix? "lib." <>)))))
(with-directory-excursion "src/greentest"
;; XXX: Many tests require network access. Instead we only
;; run known-good tests. Unfortunately we cannot use
;; recursion here since this directory also contains
;; Python-version-specific subfolders.
(apply invoke "python" "testrunner.py" "--config"
"known_failures.py"
(scandir "." (cut regexp-exec
(make-regexp "test_+(subprocess|core)")
<>)))))))))
;; Use the build daemons configured number of workers.
(setenv "NWORKERS" (number->string (parallel-job-count)))
(invoke "python" "-m" "gevent.tests" "--config"
"known_failures.py" "--ignore" "skipped_tests.txt"))))))
(propagated-inputs
`(("python-greenlet" ,python-greenlet)
("python-objgraph" ,python-objgraph)))
(native-inputs
`(("python-six" ,python-six)))
`(("python-six" ,python-six)
;; For tests.
("python-dnspython" ,python-dnspython)
("python-psutil" ,python-psutil)
("python-zope.event" ,python-zope-event)
("python-zope.interface" ,python-zope-interface)))
(inputs
`(("c-ares" ,c-ares)
("libev" ,libev)))
@ -10510,7 +10801,7 @@ to provide a high-level synchronous API on top of the libev event loop.")
(strip-python2-variant python-gevent))))
(package
(inherit base)
(native-inputs `(,@(package-native-inputs python-gevent)
(native-inputs `(,@(package-native-inputs base)
("python-mock" ,python2-mock))))))
(define-public python-fastimport
@ -11274,25 +11565,19 @@ characters, mouse support, and auto suggestions.")
(define-public python-jedi
(package
(name "python-jedi")
(version "0.15.1")
(version "0.16.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "jedi" version))
(patches (search-patches "python-jedi-deleted-variables.patch"))
(sha256
(base32
"0bp4pxhsynaarbvzblsn5x32lzp29svy3sxfy8i6m5iwz9s9r1ds"))))
"1mb5kmrk9bkc3kwzx02j62cdan1jqd92q1z7h7wi9d30jg5p3j6m"))))
(build-system python-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'disable-file-completion-test
;; A single parameterized test currently fail (see:
;; https://github.com/davidhalter/jedi/issues/1395). Remove it.
(lambda _
(substitute* "test/test_api/test_completion.py"
((".*'example.py', 'rb\"' \\+ join\\('\\.\\.'.*") ""))
#t))
(replace 'check
(lambda _
(setenv "HOME" "/tmp")
@ -11353,14 +11638,14 @@ etc.")
(define-public python-stem
(package
(name "python-stem")
(version "1.7.1")
(version "1.8.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "stem" version))
(sha256
(base32
"18lc95pmc7i089nlsb06dsxyjl5wbhxfqgdxbjcia35ndh8z7sn9"))))
"1hk8alc0r4m669ggngdfvryndd0fbx0w62sclcmg55af4ak8xd50"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -11439,8 +11724,7 @@ and/or Xon/Xoff. The port is accessed in RAW mode.")
"/include/SDL2"))
#t)))))
(native-inputs
`(("git" ,git)
("pkg-config" ,pkg-config)
`(("pkg-config" ,pkg-config)
("python-cython" ,python-cython)))
(inputs
`(("gstreamer" ,gstreamer)
@ -11678,13 +11962,13 @@ Python to manipulate OpenDocument 1.2 files.")
(define-public python-natsort
(package
(name "python-natsort")
(version "5.4.1")
(version "7.0.1")
(source (origin
(method url-fetch)
(uri (pypi-uri "natsort" version))
(sha256
(base32
"0i732amg6yzkx4g4c9j09jmqq39q377x9cl2nbkm5hax2c2v0wxf"))))
"1ksqfai72dbcfbwx43pxl658j59mx2rvqypjy1fk0ax2qd6lccx6"))))
(build-system python-build-system)
(arguments
`(#:modules ((guix build utils)
@ -11729,9 +12013,17 @@ command @command{natsort} that exposes this functionality in the command line.")
(license license:expat)
(properties `((python2-variant . ,(delay python2-natsort))))))
;; Natsort 6.x are the last versions with support for Python 2.
(define-public python2-natsort
(let ((base (package-with-python2 (strip-python2-variant python-natsort))))
(package (inherit base)
(version "6.2.1")
(source (origin
(method url-fetch)
(uri (pypi-uri "natsort" version))
(sha256
(base32
"1mc9hbh6fv76xyz13frm7dgi05cf74f9j5wvcyjiy5234gylz565"))))
(native-inputs
`(("python2-pathlib" ,python2-pathlib)
,@(package-native-inputs base))))))
@ -14305,34 +14597,35 @@ ignoring formatting changes.")
(define-public python-tqdm
(package
(name "python-tqdm")
(version "4.19.6")
(version "4.43.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "tqdm" version))
(sha256
(base32
"1pw0ngm0zn9papdmkwipi3yih5c3di6d0w849bdmrraq4d2d9h2y"))))
"093v4c2x5hpigv47zvyxl8wh10y2yd2gvz3l9vchn0zsp8hv2pzk"))))
(build-system python-build-system)
(arguments
'(#:phases (modify-phases %standard-phases
(replace 'check
(lambda* (#:key inputs outputs #:allow-other-keys)
(add-installed-pythonpath inputs outputs)
;; This invokation is taken from tox.ini.
(invoke "nosetests" "--ignore-files=\"test_perf.py\""
"-d" "-v" "tqdm/"))))))
(native-inputs
`(("python-flake8" ,python-flake8)
("python-nose" ,python-nose)
("python-coverage" ,python-coverage)))
`(("python-nose" ,python-nose)))
(home-page "https://github.com/tqdm/tqdm")
(synopsis "Fast, extensible progress meter")
(description
"Make loops show a progress bar on the console by just wrapping any
iterable with @code{|tqdm(iterable)|}. Offers many options to define
design and layout.")
(license (list license:mpl2.0 license:expat))
(properties `((python2-variant . ,(delay python2-tqdm))))))
(license (list license:mpl2.0 license:expat))))
(define-public python2-tqdm
(let ((tqdm (package-with-python2
(strip-python2-variant python-tqdm))))
(package (inherit tqdm)
(native-inputs `(("python2-functools32" ,python2-functools32)
,@(package-native-inputs tqdm))))))
(package-with-python2 python-tqdm))
(define-public python-pkginfo
(package
@ -15568,14 +15861,14 @@ time-based (TOTP) passwords.")
(define-public python-parso
(package
(name "python-parso")
(version "0.5.2")
(version "0.6.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "parso" version))
(sha256
(base32
"1qgvrkpma7vylrk047mxxvqd66nwqk978n3ig2w8iz9m3bgjbksm"))))
"0mr1j4ijqnrihz1yap34g6i8vjldg5lz814sz4v0d8pbqvh5jmhc"))))
(native-inputs
`(("python-pytest" ,python-pytest)))
(build-system python-build-system)

301
gnu/packages/qt.scm
View file

@ -2515,168 +2515,157 @@ color-related widgets.")
(license license:lgpl3+))))
(define-public python-shiboken-2
(let ((revision "1")
;; Pinned to branches with support for qt 5.11.3
(commit "4018787a3cc01d632fdca7891ac8aa9487110c26"))
(package
(name "python-shiboken-2")
(version (git-version "v5.11.3" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
;; The latest versions of Shiboken live in the pyside repo.
;; There is another standalone repo only for Shiboken
;; but it is outdated
(url "https://code.qt.io/pyside/pyside-setup")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0g8jacm2iqd7lw2m7f1dp1nnrsk38bl3m8pihm8zz9gxs8d31sf5"))))
(build-system cmake-build-system)
(inputs
`(("clang-toolchain" ,clang-toolchain-6)
("libxml2" ,libxml2)
("libxslt" ,libxslt)
("python-wrapper" ,python-wrapper)
("qtbase" ,qtbase)
("qtxmlpatterns" ,qtxmlpatterns)))
(arguments
`(#:tests? #f
;; FIXME: Building tests fails
#:configure-flags '("-DBUILD_TESTS=off")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'use-shiboken-dir-only
(lambda _ (chdir "sources/shiboken2") #t))
(add-before 'configure 'set-build-env
(lambda* (#:key inputs #:allow-other-keys)
(let ((llvm (assoc-ref inputs "clang-toolchain")))
(setenv "CLANG_INSTALL_DIR" llvm)
#t))))))
(home-page "https://wiki.qt.io/Qt_for_Python")
(synopsis
"Shiboken generates bindings for C++ libraries using CPython source code")
(description
"Shiboken generates bindings for C++ libraries using CPython source code")
(license
(list
;; The main code is GPL3 or LGPL3.
;; Examples are BSD-3.
license:gpl3
license:lgpl3
license:bsd-3)))))
(package
(name "python-shiboken-2")
(version "5.12.6")
(source (origin
(method url-fetch)
(uri (string-append "https://download.qt.io/official_releases"
"/QtForPython/pyside2/PySide2-" version
"-src/pyside-setup-everywhere-src-"
version ".tar.xz"))
(sha256
(base32
"1n45l6xxyxs6cfp2l4rp8qs1c2fyfwyrdxa4qcpwfsqsi51rydsk"))))
(build-system cmake-build-system)
(inputs
`(("clang-toolchain" ,clang-toolchain-6)
("libxml2" ,libxml2)
("libxslt" ,libxslt)
("python-wrapper" ,python-wrapper)
("qtbase" ,qtbase)
("qtxmlpatterns" ,qtxmlpatterns)))
(arguments
`(#:tests? #f
;; FIXME: Building tests fails
#:configure-flags '("-DBUILD_TESTS=off")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'use-shiboken-dir-only
(lambda _ (chdir "sources/shiboken2") #t))
(add-before 'configure 'make-files-writable-and-update-timestamps
(lambda _
;; The build scripts need to modify some files in
;; the read-only source directory, and also attempts
;; to create Zip files which fails because the Zip
;; format does not support timestamps before 1980.
(let ((circa-1980 (* 10 366 24 60 60)))
(for-each (lambda (file)
(make-file-writable file)
(utime file circa-1980 circa-1980))
(find-files ".")))
#t))
(add-before 'configure 'set-build-env
(lambda* (#:key inputs #:allow-other-keys)
(let ((llvm (assoc-ref inputs "clang-toolchain")))
(setenv "CLANG_INSTALL_DIR" llvm)
#t))))))
(home-page "https://wiki.qt.io/Qt_for_Python")
(synopsis
"Shiboken generates bindings for C++ libraries using CPython source code")
(description
"Shiboken generates bindings for C++ libraries using CPython source code")
(license
(list
;; The main code is GPL3 or LGPL3.
;; Examples are BSD-3.
license:gpl3
license:lgpl3
license:bsd-3))))
(define-public python-pyside-2
(let ((revision "1")
;; Pinned to branches with support for qt 5.11.3
(commit "4018787a3cc01d632fdca7891ac8aa9487110c26"))
(package
(name "python-pyside-2")
(version (git-version "v5.11.3" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://code.qt.io/pyside/pyside-setup")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0g8jacm2iqd7lw2m7f1dp1nnrsk38bl3m8pihm8zz9gxs8d31sf5"))))
(build-system cmake-build-system)
(inputs
`(("libcxx" ,libcxx-6)
("libxml2" ,libxml2)
("libxslt" ,libxslt)
("clang-toolchain" ,clang-toolchain-6)
("qtbase" ,qtbase)
("qtdatavis3d" ,qtdatavis3d)
("qtlocation" ,qtlocation)
("qtmultimedia" ,qtmultimedia)
("qtquickcontrols" ,qtquickcontrols)
("qtscript" ,qtscript)
("qtscxml" ,qtscxml)
("qtsensors" ,qtsensors)
("qtspeech" ,qtspeech)
("qtsvg" ,qtsvg)
("qtwebchannel" ,qtwebchannel)
("qtwebsockets" ,qtwebsockets)
("qtx11extras" ,qtx11extras)
("qtxmlpatterns" ,qtxmlpatterns)))
(native-inputs
`(("cmake" ,cmake)
("python-shiboken-2" ,python-shiboken-2)
("python-wrapper" ,python-wrapper)
("qttools" ,qttools)
("which" ,which)))
(arguments
`(#:tests? #f
;; FIXME: Building tests fail.
#:configure-flags '("-DBUILD_TESTS=FALSE")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'go-to-source-dir
(lambda _ (chdir "sources/pyside2") #t))
(add-before 'configure 'set-clang-dir
(lambda* (#:key inputs #:allow-other-keys)
(let ((clang (assoc-ref inputs "clang-toolchain"))
(libcxx (assoc-ref inputs "libcxx")))
(setenv "CLANG_INSTALL_DIR" clang)
(substitute* "cmake/Macros/PySideModules.cmake"
(("--include-paths=")
(string-append "--include-paths=" libcxx "/include/c++/v1:")))
#t))))))
(home-page "https://wiki.qt.io/Qt_for_Python")
(synopsis
"The Qt for Python product enables the use of Qt5 APIs in Python applications")
(description
"The Qt for Python product enables the use of Qt5 APIs in Python
(package
(name "python-pyside-2")
(version (package-version python-shiboken-2))
(source (package-source python-shiboken-2))
(build-system cmake-build-system)
(inputs
`(("libxml2" ,libxml2)
("libxslt" ,libxslt)
("clang-toolchain" ,clang-toolchain-6)
("qtbase" ,qtbase)
("qtdatavis3d" ,qtdatavis3d)
("qtlocation" ,qtlocation)
("qtmultimedia" ,qtmultimedia)
("qtquickcontrols" ,qtquickcontrols)
("qtscript" ,qtscript)
("qtscxml" ,qtscxml)
("qtsensors" ,qtsensors)
("qtspeech" ,qtspeech)
("qtsvg" ,qtsvg)
("qtwebchannel" ,qtwebchannel)
("qtwebsockets" ,qtwebsockets)
("qtx11extras" ,qtx11extras)
("qtxmlpatterns" ,qtxmlpatterns)))
(native-inputs
`(("cmake" ,cmake-minimal)
("python-shiboken-2" ,python-shiboken-2)
("python" ,python-wrapper)
("qttools" ,qttools)
("which" ,which)))
(arguments
`(#:tests? #f
;; FIXME: Building tests fail.
#:configure-flags
(list "-DBUILD_TESTS=FALSE"
(string-append "-DPYTHON_EXECUTABLE="
(assoc-ref %build-inputs "python")
"/bin/python"))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'go-to-source-dir
(lambda _ (chdir "sources/pyside2") #t))
(add-before 'configure 'set-clang-dir
(lambda* (#:key inputs #:allow-other-keys)
(let ((clang (assoc-ref inputs "clang-toolchain")))
(setenv "CLANG_INSTALL_DIR" clang)
#t))))))
(home-page "https://wiki.qt.io/Qt_for_Python")
(synopsis
"The Qt for Python product enables the use of Qt5 APIs in Python applications")
(description
"The Qt for Python product enables the use of Qt5 APIs in Python
applications. It lets Python developers utilize the full potential of Qt,
using the PySide2 module. The PySide2 module provides access to the
individual Qt modules such as QtCore, QtGui,and so on. Qt for Python also
comes with the Shiboken2 CPython binding code generator, which can be used to
generate Python bindings for your C or C++ code.")
(license (list
license:lgpl3
;;They state that:
;; this file may be used under the terms of the GNU General
;; Public License version 2.0 or (at your option) the GNU
;; General Public license version 3 or any later version
;; approved by the KDE Free Qt Foundation.
;; Thus, it is currently v2 or v3, but no "+".
license:gpl3
license:gpl2)))))
(license (list
license:lgpl3
;;They state that:
;; this file may be used under the terms of the GNU General
;; Public License version 2.0 or (at your option) the GNU
;; General Public license version 3 or any later version
;; approved by the KDE Free Qt Foundation.
;; Thus, it is currently v2 or v3, but no "+".
license:gpl3
license:gpl2))))
(define-public python-pyside-2-tools
(let ((revision "1")
;; Pinned to branches with support for qt 5.11.3
(commit "f1b775537e7fbd718516749583b2abf1cb6adbce"))
(package
(name "python-pyside-2-tools")
(version (git-version "v5.11.2" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://code.qt.io/pyside/pyside-tools")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1w2g5afvww9r89wmdm9jx8sz67x4bzy9difkh72n4c73ya1n91ry"))))
(build-system cmake-build-system)
(inputs
`(("python-pyside-2" ,python-pyside-2)
("python-shiboken-2" ,python-shiboken-2)
("qtbase" ,qtbase)))
(arguments
`(#:tests? #f
#:configure-flags '("-DBUILD_TESTS=off")))
(home-page "https://wiki.qt.io/Qt_for_Python")
(synopsis
"Contains command line tools for PySide2")
(description
"Contains lupdate, rcc and uic tools for PySide2")
(license license:gpl2))))
(package
(name "python-pyside-2-tools")
(version (package-version python-shiboken-2))
(source (package-source python-shiboken-2))
(build-system cmake-build-system)
(inputs
`(("python-pyside-2" ,python-pyside-2)
("python-shiboken-2" ,python-shiboken-2)
("qtbase" ,qtbase)))
(native-inputs
`(("python" ,python-wrapper)))
(arguments
`(#:tests? #f
#:configure-flags
(list "-DBUILD_TESTS=off"
(string-append "-DPYTHON_EXECUTABLE="
(assoc-ref %build-inputs "python")
"/bin/python"))
#:phases (modify-phases %standard-phases
(add-after 'unpack 'go-to-source-dir
(lambda _ (chdir "sources/pyside2-tools") #t)))))
(home-page "https://wiki.qt.io/Qt_for_Python")
(synopsis
"Contains command line tools for PySide2")
(description
"Contains lupdate, rcc and uic tools for PySide2")
(license license:gpl2)))

6
gnu/packages/sawfish.scm
View file

@ -43,8 +43,8 @@
(version "0.92.7")
(source (origin
(method url-fetch)
(uri (string-append "http://download.tuxfamily.org/" name "/"
name "_" version ".tar.xz"))
(uri (string-append "http://download.tuxfamily.org/librep/"
"librep_" version ".tar.xz"))
(sha256
(base32
"1bmcjl1x1rdh514q9z3hzyjmjmwwwkziipjpjsl301bwmiwrd8a8"))))
@ -65,7 +65,7 @@
(list (search-path-specification
(variable "REP_DL_LOAD_PATH")
(files '("lib/rep")))))
(home-page "http://sawfish.wikia.com/wiki/Librep")
(home-page "https://sawfish.fandom.com/wiki/Librep")
(synopsis "Lisp system for sawfish")
(description
"Librep is a dialect of Lisp, designed to be used both as an extension

2
gnu/packages/scheme.scm
View file

@ -1008,7 +1008,7 @@ The core is 12 builtin special forms and 33 builtin functions.")
(package
(name "gauche")
(version "0.9.9")
(home-page "http://practical-scheme.net/gauche/index.html")
(home-page "https://practical-scheme.net/gauche/index.html")
(source
(origin
(method url-fetch)

10
gnu/packages/sdl.scm
View file

@ -6,7 +6,7 @@
;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com>
@ -650,6 +650,14 @@ The bindings are written in pure Scheme using Guile's foreign function
interface.")
(license lgpl3+)))
(define-public guile3.0-sdl2
(package
(inherit guile-sdl2)
(name "guile3.0-sdl2")
(native-inputs
`(("guile" ,guile-3.0)
("pkg-config" ,pkg-config)))))
(define-public sdl2-cs
(let ((commit "1a3556441e1394eb0b5d46aeb514b8d1090b93f8"))
(package

2
gnu/packages/ssh.scm
View file

@ -489,7 +489,7 @@ particularly useful for embedded systems, such as wireless routers.")
(base32
"1q0p1l72pq9k3bi7a366j2rishv7dzzkg3i6r2npsfg7cnnidbsn"))))
(build-system gnu-build-system)
(home-page "http://www.lysator.liu.se/liboop/")
(home-page "https://www.lysator.liu.se/liboop/")
(synopsis "Event loop library")
(description "Liboop is a low-level event loop management library for
POSIX-based operating systems. It supports the development of modular,

10
gnu/packages/statistics.scm
View file

@ -3179,7 +3179,7 @@ Shiny). The @code{DataTables} library has been included in this R package.")
(base32
"13b89fhg1nx7zds82a0biz847ixphg9byf5zl2cw9kab6s56v1bd"))))
(build-system r-build-system)
(home-page "http://www.rforge.net/base64enc")
(home-page "https://www.rforge.net/base64enc")
(synopsis "Tools for Base64 encoding")
(description
"This package provides tools for handling Base64 encoding. It is more
@ -4328,7 +4328,7 @@ within a category based on their density using quasirandom noise.")
(base32
"0hy89bwv7jixlg91li1fywa77916am2whqp1m1fx1khd45g44581"))))
(build-system r-build-system)
(home-page "http://www.cbs.dtu.dk/~eklund/beeswarm/")
(home-page "https://www.cbs.dtu.dk/~eklund/beeswarm/")
(synopsis "Implementation of bee swarm plots")
(description
"This package provides an implementation of bee swarm plots. The bee
@ -4563,7 +4563,7 @@ mixture models.")
(build-system r-build-system)
(inputs
`(("gfortran" ,gfortran)))
(home-page "http://www-stat.stanford.edu/~hastie/Papers/#LARS")
(home-page "https://web.stanford.edu/~hastie/Papers/LARS/")
(synopsis "Least angle regression software")
(description
"Least Angle Regression (\"LAR\") is a model selection algorithm; a
@ -4698,7 +4698,7 @@ models, generalized linear models and model-based clustering.")
(build-system r-build-system)
(native-inputs
`(("gfortran" ,gfortran)))
(home-page "http://www.stat.washington.edu/mclust/")
(home-page "https://www.stat.washington.edu/mclust/")
(synopsis "Gaussian mixture modelling for model-based clustering etc.")
(description
"This package provides Gaussian finite mixture models fitted via EM
@ -5499,7 +5499,7 @@ and the corresponding decision threshold.")
("r-magrittr" ,r-magrittr)
("r-tibble" ,r-tibble)
("r-rlang" ,r-rlang)))
(home-page "http://forcats.tidyverse.org")
(home-page "https://forcats.tidyverse.org")
(synopsis "Tools for working with factors")
(description "This package provides helpers for reordering factor
levels (including moving specified levels to front, ordering by first

5
gnu/packages/syncthing.scm
View file

@ -30,7 +30,7 @@
(define-public syncthing
(package
(name "syncthing")
(version "1.3.4")
(version "1.4.0")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/syncthing/syncthing"
@ -38,7 +38,7 @@
"/syncthing-source-v" version ".tar.gz"))
(sha256
(base32
"025fhfqzcl5qd38zak8485pd67iqkzsf6frm02cl25s3ggv2f0p4"))
"1p9y943kd09pxmsaahbdml2mn2qlwbx23hvbsm1sqbbm8ma9ai8c"))
(modules '((guix build utils)))
;; Delete bundled ("vendored") free software source code.
(snippet '(begin
@ -95,6 +95,7 @@
("go-github-com-ccding-go-stun" ,go-github-com-ccding-go-stun)
("go-github-com-audriusbutkevicius-pfilter" ,go-github-com-audriusbutkevicius-pfilter)
("go-github-com-lucas-clemente-quic-go" ,go-github-com-lucas-clemente-quic-go)
("go-github-com-willf-bloom" ,go-github-com-willf-bloom)
;; For tests
("go-github-com-d4l3k-messagediff" ,go-github-com-d4l3k-messagediff)))

4
gnu/packages/text-editors.scm
View file

@ -661,14 +661,14 @@ and Octave. TeXmacs is completely extensible via Guile.")
(define-public scintilla
(package
(name "scintilla")
(version "4.3.0")
(version "4.3.2")
(source
(origin
(method url-fetch)
(uri (let ((v (apply string-append (string-split version #\.))))
(string-append "https://www.scintilla.org/scintilla" v ".tgz")))
(sha256
(base32 "0c52b2wg0y55kv3w7rnzp0nbd1yn2kksy0w8bjdp3gkl0v28wwx5"))))
(base32 "0d8ssl0d8r6bslbzd507l9c5g8mwn1zriak3fnf85936pdmkhq9h"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags (list "GTK3=1" "CC=gcc" "-Cgtk")

6
gnu/packages/tor.scm
View file

@ -3,7 +3,7 @@
;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016, 2017, 2018, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017 ng0 <ng0@n0.is>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
@ -50,14 +50,14 @@
(define-public tor
(package
(name "tor")
(version "0.4.2.6")
(version "0.4.2.7")
(source (origin
(method url-fetch)
(uri (string-append "https://dist.torproject.org/tor-"
version ".tar.gz"))
(sha256
(base32
"1i766s211nrbjvwvkd2375mjsbbc28yrg46564rbx6w46cj10005"))))
"0v82ngwwmmcb7i9563bgsmrjy6xp83xyhqhaljygd0pkvlsxi886"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)

93
gnu/packages/version-control.scm
View file

@ -1048,9 +1048,6 @@ with performance and scalability in mind. It operates exclusively on streams,
allowing to handle large objects with a small memory footprint.")
(license license:bsd-3)))
(define-public python2-gitdb
(package-with-python2 python-gitdb))
(define-public python-gitpython
(package
(name "python-gitpython")
@ -1092,9 +1089,6 @@ either a pure Python implementation, or the faster, but more resource intensive
@command{git} command implementation.")
(license license:bsd-3)))
(define-public python2-gitpython
(package-with-python2 python-gitpython))
(define-public shflags
(package
(name "shflags")
@ -2100,36 +2094,6 @@ supports a large number of version control systems: Git, Subversion,
Mercurial, Bazaar, Darcs, CVS, Fossil, and Veracity.")
(license license:gpl2+)))
(define-public git-annex-remote-hubic
(package
(name "git-annex-remote-hubic")
(version "0.3.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Schnouki/git-annex-remote-hubic.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "16y9sk67hfi17h9n2kkffyabfccksh5rab40hhk69v6cxmbpn2sx"))))
(build-system python-build-system)
(arguments `(#:python ,python-2))
(native-inputs
`(;; for the tests
("python2-six" ,python2-six)))
(propagated-inputs
`(("python2-dateutil" ,python2-dateutil)
("python2-futures" ,python2-futures)
("python2-rauth" ,python2-rauth)
("python2-swiftclient" ,python2-swiftclient)))
(home-page "https://github.com/Schnouki/git-annex-remote-hubic/")
(synopsis "Use hubic as a git-annex remote")
(description
"This package allows you to use your hubic account as a \"special
repository\" with git-annex.")
(license license:gpl3+)))
(define-public git-annex-remote-rclone
(package
(name "git-annex-remote-rclone")
@ -2474,3 +2438,60 @@ interrupted, published, and collaborated on while in progress.")
videos, datasets, and graphics with text pointers inside Git, while storing the
file contents on a remote server.")
(license license:expat)))
(define-public tla
(package
(name "gnu-arch")
(version "1.3.5")
(source (origin
(method url-fetch)
(uri (string-append "https://ftp.gnu.org/old-gnu/gnu-arch/"
"tla-" version ".tar.gz"))
(sha256
(base32
"01mfzj1i6p4s8191cgd5850hds1zls88hkf9rb6qx1vqjv585aj0"))
(modules '((guix build utils)))
(snippet
'(begin
;; In tar 1.32, '--preserve' is ambiguous and leads to an
;; error, so address that.
(substitute* "src/tla/libarch/archive.c"
(("\"--preserve\"")
"\"--preserve-permissions\""))
#t))))
(build-system gnu-build-system)
(arguments
'(#:phases (modify-phases %standard-phases
(replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(chdir "src")
(mkdir "=build")
(chdir "=build")
;; For libneon's 'configure' script.
;; XXX: There's a bundled copy of neon.
(setenv "CONFIG_SHELL" (which "sh"))
(invoke "../configure" "--prefix" out
"--config-shell" (which "sh")
"--with-posix-shell" (which "sh")
"--with-cc" "gcc")))))
;; There are build failures when building in parallel.
#:parallel-build? #f
#:parallel-tests? #f
#:test-target "test"))
(native-inputs
`(("which" ,which)))
(synopsis "Historical distributed version-control system")
(description
"GNU Arch, aka. @code{tla}, was one of the first free distributed
version-control systems (DVCS). It saw its last release in 2006. This
package is provided for users who need to recover @code{tla} repositories and
for historians.")
(home-page "https://www.gnu.org/software/gnu-arch/")
(license license:gpl2))) ;version 2 only

87
gnu/packages/video.scm
View file

@ -123,6 +123,7 @@
#:use-module (gnu packages networking)
#:use-module (gnu packages ocr)
#:use-module (gnu packages perl)
#:use-module (gnu packages perl-check)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages popt)
#:use-module (gnu packages pretty-print)
@ -511,6 +512,90 @@ H.264 (MPEG-4 AVC) video streams.")
(@command{mkvmerge}).")
(license license:gpl2)))
(define-public straw-viewer
(package
(name "straw-viewer")
(version "0.0.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/trizen/straw-viewer")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "067j8wdfy29bi5ahky10xzzs8cr3mn95wl4kyqqjvjzri77a25j3"))))
(build-system perl-build-system)
(native-inputs
`(("perl-module-build" ,perl-module-build)
("perl-test-pod" ,perl-test-pod)))
(inputs
`(("perl-data-dump" ,perl-data-dump)
("perl-json" ,perl-json)
("perl-libwww" ,perl-libwww)
("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
("perl-lwp-useragent-cached" ,perl-lwp-useragent-cached)
("perl-mozilla-ca" ,perl-mozilla-ca)
("perl-term-readline-gnu" ,perl-term-readline-gnu)
("perl-unicode-linebreak" ,perl-unicode-linebreak)
("xdg-utils" ,xdg-utils)
;; Some videos play without youtube-dl, but others silently fail to.
("youtube-dl" ,youtube-dl)))
;; Required only when building the graphical interface (--gtk).
;;("perl-file-sharedir" ,perl-file-sharedir)
(arguments
`(#:modules ((guix build perl-build-system)
(guix build utils)
(srfi srfi-26))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'refer-to-inputs
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "lib/WWW/StrawViewer.pm"
(("'youtube-dl'")
(format #f "'~a/bin/youtube-dl'"
(assoc-ref inputs "youtube-dl"))))
(substitute* "bin/gtk-straw-viewer"
(("'xdg-open'")
(format #f "'~a/bin/xdg-open'"
(assoc-ref inputs "xdg-utils"))))
#t))
(add-after 'install 'install-desktop
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(sharedir (string-append out "/share")))
(install-file "share/gtk-straw-viewer.desktop"
(string-append sharedir "/applications"))
(install-file "share/icons/gtk-straw-viewer.png"
(string-append sharedir "/pixmaps"))
#t)))
(add-after 'install 'wrap-program
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin-dir (string-append out "/bin/"))
(site-dir (string-append out "/lib/perl5/site_perl/"))
(lib-path (getenv "PERL5LIB")))
(for-each (cut wrap-program <>
`("PERL5LIB" ":" prefix (,lib-path ,site-dir)))
(find-files bin-dir))
#t))))))
(synopsis
"Light-weight application for searching and streaming videos from YouTube")
(description
"Straw-viewer searches for YouTube videos using @uref{https://invidio.us/,
invidio.us} and plays them locally in a native media player like @command{vlc}
or @command{mpv}.
You can search for videos, playlists, and/or channels. The videos are streamed
directly to the player at the best chosen resolution and with closed captions if
available.")
;; XXX Add #:module-build-flags '("--gtk") dependencies and this sentence.
;; Both a command-line and a graphical interface are available.
(home-page "https://github.com/trizen/youtube-viewer")
(license license:perl-license)))
(define-public x265
(package
(name "x265")
@ -2546,7 +2631,7 @@ making @dfn{screencasts}.")
(list "-DWITH_QT5=TRUE")
#:tests? #f)) ; no test suite
;; Using HTTPS causes part of the page to be displayed improperly.
(home-page "http://www.maartenbaert.be/simplescreenrecorder/")
(home-page "https://www.maartenbaert.be/simplescreenrecorder/")
(synopsis "Screen recorder")
(description "SimpleScreenRecorder is an easy to use screen recorder with
a graphical user interface. It supports recording the entire screen, or a

2
gnu/packages/web.scm
View file

@ -7194,7 +7194,7 @@ the Internet to a local directory, building recursively all directories,
getting HTML, images, and other files from the server to your computer.
HTTrack arranges the original site's relative link-structure. Simply open
a page of the @code{mirrored} website in your browser, and you can browse the
a page of the @emph{mirrored} website in your browser, and you can browse the
site from link to link, as if you were viewing it online. HTTrack can also
update an existing mirrored site, and resume interrupted downloads.

16
gnu/packages/wxwidgets.scm
View file

@ -6,7 +6,7 @@
;;; Copyright © 2017 Rene Saavedra <rennes@openmailbox.org>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Arun Isaac <arunisaac@systemreboot.net>
;;;
;;; This file is part of GNU Guix.
@ -35,6 +35,7 @@
#:use-module (gnu packages)
#:use-module (gnu packages compression)
#:use-module (gnu packages databases)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gl)
#:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk)
@ -73,7 +74,8 @@
("libtiff" ,libtiff)
("mesa" ,mesa)
("webkitgtk" ,webkitgtk)
("sdl" ,sdl)))
("sdl" ,sdl)
("xdg-utils" ,xdg-utils)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(arguments
@ -91,7 +93,15 @@
(list (string-append "LDFLAGS=-Wl,-rpath="
(assoc-ref %outputs "out") "/lib"))
;; No 'check' target.
#:tests? #f))
#:tests? #f
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'refer-to-inputs
(lambda _
(substitute* "src/unix/utilsx11.cpp"
(("wxExecute\\(xdg_open \\+")
(string-append "wxExecute(\"" (which "xdg-open") "\"")))
#t)))))
(home-page "https://www.wxwidgets.org/")
(synopsis "Widget toolkit for creating graphical user interfaces")
(description

5
gnu/packages/xml.scm
View file

@ -1673,7 +1673,7 @@ that strives for correctness and simplicity.")
(version "2013.2")
(source (origin
(method url-fetch)
(uri (string-append "http://central.maven.org/maven2/com/sun/msv/"
(uri (string-append "https://repo1.maven.org/maven2/com/sun/msv/"
"datatype/xsd/xsdlib/" version "/xsdlib-"
version "-sources.jar"))
(sha256
@ -1686,7 +1686,8 @@ that strives for correctness and simplicity.")
#:jdk ,icedtea-8))
(inputs
`(("java-xerces" ,java-xerces)))
(home-page "http://central.maven.org/maven2/com/sun/msv/datatype/xsd/xsdlib/")
(home-page (string-append "https://web.archive.org/web/20161127144537/"
"https://msv.java.net//"))
(synopsis "Sun Multi-Schema Validator")
(description "Xsdlib contains an implementation of sun.com.msv, an XML
validator.")

4
gnu/services/mail.scm
View file

@ -1670,7 +1670,9 @@ match from local for any action outbound
;; Create mbox and spool directories.
(mkdir-p "/var/mail")
(mkdir-p "/var/spool/smtpd")
(chmod "/var/spool/smtpd" #o711))))))
(chmod "/var/spool/smtpd" #o711)
(mkdir-p "/var/spool/mail")
(chmod "/var/spool/mail" #o711))))))
(define %opensmtpd-pam-services
(list (unix-pam-service "smtpd")))

4
gnu/services/networking.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 John Darrington <jmd@gnu.org>
@ -313,7 +313,7 @@ Protocol (DHCP) client, on all the non-loopback network interfaces."
(with-output-to-file #$lease-file
(lambda _ (display ""))))
;; Validate the config.
(invoke
(invoke/quiet
#$(file-append package "/sbin/dhcpd") "-t" "-cf"
#$config-file))))))

38
gnu/services/nfs.scm
View file

@ -360,31 +360,31 @@
#t))
(respawn? #f)))))
(define %nfs-activation
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils))
;; directory containing monitor list
(mkdir-p "/var/lib/nfs/sm")
;; Needed for client recovery tracking
(mkdir-p "/var/lib/nfs/v4recovery")
(let ((user (getpw "nobody")))
(chown "/var/lib/nfs"
(passwd:uid user)
(passwd:gid user))
(chown "/var/lib/nfs/v4recovery"
(passwd:uid user)
(passwd:gid user)))
#t)))
(define nfs-service-type
(service-type
(name 'nfs)
(extensions
(list
(service-extension shepherd-root-service-type nfs-shepherd-services)
(service-extension activation-service-type
(const #~(begin
(use-modules (guix build utils))
(system* "mount" "-t" "nfsd"
"nfsd" "/proc/fs/nfsd")
(mkdir-p "/var/lib/nfs")
;; directory containing monitor list
(mkdir-p "/var/lib/nfs/sm")
;; Needed for client recovery tracking
(mkdir-p "/var/lib/nfs/v4recovery")
(let ((user (getpw "nobody")))
(chown "/var/lib/nfs"
(passwd:uid user)
(passwd:gid user))
(chown "/var/lib/nfs/v4recovery"
(passwd:uid user)
(passwd:gid user)))
#t)))
(service-extension activation-service-type (const %nfs-activation))
(service-extension etc-service-type
(lambda (config)
`(("exports"

16
gnu/services/web.scm
View file

@ -11,6 +11,7 @@
;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2019 Florian Pelz <pelzflorian@pelzflorian.de>
;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -99,6 +100,7 @@
nginx-configuration-server-names-hash-bucket-size
nginx-configuration-server-names-hash-bucket-max-size
nginx-configuration-modules
nginx-configuration-global-directives
nginx-configuration-extra-content
nginx-configuration-file
@ -529,6 +531,8 @@
(server-names-hash-bucket-max-size nginx-configuration-server-names-hash-bucket-max-size
(default #f))
(modules nginx-configuration-modules (default '()))
(global-directives nginx-configuration-global-directives
(default '((events . ()))))
(extra-content nginx-configuration-extra-content
(default ""))
(file nginx-configuration-file ;#f | string | file-like
@ -552,6 +556,13 @@ of index files."
(define (emit-load-module module)
(list "load_module " module ";\n"))
(define emit-global-directive
(match-lambda
((key . (? list? alist))
(format #f "~a { ~{~a~}}~%" key (map emit-global-directive alist)))
((key . value)
(format #f "~a ~a;~%" key value))))
(define emit-nginx-location-config
(match-lambda
(($ <nginx-location-configuration> uri body)
@ -626,12 +637,14 @@ of index files."
server-names-hash-bucket-size
server-names-hash-bucket-max-size
modules
global-directives
extra-content)
(apply mixed-text-file "nginx.conf"
(flatten
"user nginx nginx;\n"
"pid " run-directory "/pid;\n"
"error_log " log-directory "/error.log info;\n"
(map emit-global-directive global-directives)
(map emit-load-module modules)
"http {\n"
" client_body_temp_path " run-directory "/client_body_temp;\n"
@ -657,8 +670,7 @@ of index files."
(map emit-nginx-upstream-config upstream-blocks)
(map emit-nginx-server-config server-blocks)
extra-content
"\n}\n"
"events {}\n"))))
"\n}\n"))))
(define %nginx-accounts
(list (user-group (name "nginx") (system? #t))

1
gnu/system.scm
View file

@ -138,6 +138,7 @@
local-host-aliases
%root-account
%setuid-programs
%sudoers-specification
%base-packages
%base-firmware))

27
gnu/tests/mail.scm
View file

@ -99,8 +99,8 @@ match from any for local action inbound
(test-assert "mbox is empty"
(marionette-eval
'(and (file-exists? "/var/mail")
(not (file-exists? "/var/mail/root")))
'(and (file-exists? "/var/spool/mail")
(not (file-exists? "/var/spool/mail/root")))
marionette))
(test-eq "accept an email"
@ -140,16 +140,21 @@ match from any for local action inbound
(ice-9 rdelim))
(define (queue-empty?)
(eof-object?
(read-line
(open-input-pipe
(string-append #$(file-append opensmtpd "/sbin/smtpctl")
" show queue")))))
(let* ((pipe (open-pipe* OPEN_READ
#$(file-append opensmtpd
"/sbin/smtpctl")
"show" "queue"))
(line (read-line pipe)))
(close-pipe pipe)
(eof-object? line)))
(let wait ()
(if (queue-empty?)
(file-exists? "/var/mail/root")
(begin (sleep 1) (wait)))))
(let wait ((n 20))
(cond ((queue-empty?)
(file-exists? "/var/spool/mail/root"))
((zero? n)
(error "root mailbox didn't show up"))
(else
(sleep 1) (wait (- n 1))))))
marionette))
(test-end)

4
gnu/tests/networking.scm
View file

@ -270,11 +270,11 @@ subnet 192.168.1.0 netmask 255.255.255.0 {
(dhcpd-configuration
(config-file minimal-dhcpd-v4-config-file)
(version "4")
(interfaces '("eth0"))))
(interfaces '("ens3"))))
(define %dhcpd-os
(simple-operating-system
(static-networking-service "eth0" "192.168.1.4"
(static-networking-service "ens3" "192.168.1.4"
#:netmask "255.255.255.0"
#:gateway "192.168.1.1"
#:name-servers '("192.168.1.2" "192.168.1.3"))

36
gnu/tests/nfs.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2017 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2017, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 John Darrington <jmd@gnu.org>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
@ -101,6 +101,10 @@
(marionette-eval
'(begin
(use-modules (gnu services herd))
;; Ensure 'rpcinfo' can be found below.
(setenv "PATH" "/run/current-system/profile/bin")
(start-service 'rpcbind-daemon))
marionette))
@ -192,18 +196,6 @@
(define marionette
(make-marionette (list #$(virtual-machine os))))
(define (wait-for-file file)
;; Wait until FILE exists in the guest
(marionette-eval
`(let loop ((i 10))
(cond ((file-exists? ,file)
#t)
((> i 0)
(sleep 1)
(loop (- i 1)))
(else
(error "File didn't show up: " ,file))))
marionette))
(mkdir #$output)
(chdir #$output)
@ -227,22 +219,8 @@
marionette))
(test-assert "nscd is listening on its socket"
(marionette-eval
;; XXX: Work around a race condition in nscd: nscd creates its
;; PID file before it is listening on its socket.
'(let ((sock (socket PF_UNIX SOCK_STREAM 0)))
(let try ()
(catch 'system-error
(lambda ()
(connect sock AF_UNIX "/var/run/nscd/socket")
(close-port sock)
(format #t "nscd is ready~%")
#t)
(lambda args
(format #t "waiting for nscd...~%")
(usleep 500000)
(try)))))
marionette))
(wait-for-unix-socket "/var/run/nscd/socket"
marionette))
(test-assert "network is up"
(marionette-eval

4
gnu/tests/rsync.scm
View file

@ -64,6 +64,10 @@ PORT."
(marionette-eval
'(begin
(use-modules (gnu services herd))
;; Make sure the 'rsync' command is found.
(setenv "PATH" "/run/current-system/profile/bin")
(start-service 'rsync))
marionette))

9
guix/build-system/linux-module.scm
View file

@ -78,7 +78,8 @@
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(out-lib-build (string-append out "/lib/modules/build")))
; TODO: Only preserve the minimum, i.e. [Kbuild], Kconfig, scripts, include, ".config".
;; TODO: Only preserve the minimum, i.e. [Kbuild], Kconfig,
;; scripts, include, ".config".
(copy-recursively "." out-lib-build)
(let* ((linux (assoc-ref inputs "linux")))
(install-file (string-append linux "/System.map")
@ -111,7 +112,11 @@
("linux-module-builder"
,(make-linux-module-builder linux))
,@native-inputs
;; TODO: Remove "gmp", "mpfr", "mpc" since they are only needed to compile the gcc plugins. Maybe remove "flex", "bison", "elfutils", "perl", "openssl". That leaves very little ("bc", "gcc", "kmod").
;; TODO: Remove "gmp", "mpfr", "mpc" since they are
;; only needed to compile the gcc plugins. Maybe
;; remove "flex", "bison", "elfutils", "perl",
;; "openssl". That leaves very little ("bc", "gcc",
;; "kmod").
,@(package-native-inputs linux)))
(outputs outputs)
(build linux-module-build)

2
guix/import/opam.scm
View file

@ -250,7 +250,7 @@ path to the repository."
(substring version 1)
version)))))
(define* (opam->guix-package name #:key repository)
(define* (opam->guix-package name #:key (repository (get-opam-repository)))
"Import OPAM package NAME from REPOSITORY (a directory name) or, if
REPOSITORY is #f, from the official OPAM repository. Return a 'package' sexp
or #f on failure."

32
guix/store.scm
View file

@ -2,6 +2,7 @@
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2019, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Florian Pelz <pelzflorian@pelzflorian.de>
;;;
;;; This file is part of GNU Guix.
;;;
@ -43,7 +44,6 @@
#:use-module (srfi srfi-35)
#:use-module (srfi srfi-39)
#:use-module (ice-9 match)
#:use-module (ice-9 regex)
#:use-module (ice-9 vlist)
#:use-module (ice-9 popen)
#:use-module (ice-9 threads)
@ -174,6 +174,7 @@
store-path?
direct-store-path?
derivation-path?
store-path-base
store-path-package-name
store-path-hash-part
direct-store-path
@ -1989,29 +1990,26 @@ valid inputs."
"Return #t if PATH is a derivation path."
(and (store-path? path) (string-suffix? ".drv" path)))
(define store-regexp*
;; The substituter makes repeated calls to 'store-path-hash-part', hence
;; this optimization.
(mlambda (store)
"Return a regexp matching a file in STORE."
(make-regexp (string-append "^" (regexp-quote store)
"/([0-9a-df-np-sv-z]{32})-([^/]+)$"))))
(define (store-path-base path)
"Return the base path of a path in the store."
(and (string-prefix? (%store-prefix) path)
(let ((base (string-drop path (+ 1 (string-length (%store-prefix))))))
(and (> (string-length base) 33)
(not (string-index base #\/))
base))))
(define (store-path-package-name path)
"Return the package name part of PATH, a file name in the store."
(let ((path-rx (store-regexp* (%store-prefix))))
(and=> (regexp-exec path-rx path)
(cut match:substring <> 2))))
(let ((base (store-path-base path)))
(string-drop base (+ 32 1)))) ;32 hash part + 1 hyphen
(define (store-path-hash-part path)
"Return the hash part of PATH as a base32 string, or #f if PATH is not a
syntactically valid store path."
(and (string-prefix? (%store-prefix) path)
(let ((base (string-drop path (+ 1 (string-length (%store-prefix))))))
(and (> (string-length base) 33)
(let ((hash (string-take base 32)))
(and (string-every %nix-base32-charset hash)
hash))))))
(let* ((base (store-path-base path))
(hash (string-take base 32)))
(and (string-every %nix-base32-charset hash)
hash)))
(define (derivation-log-file drv)
"Return the build log file for DRV, a derivation file name, or #f if it