futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' into staging

Browse Source
This commit is contained in:
Marius Bakke 2020-02-05 22:08:06 +01:00
commit f10921c5ad
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
39 changed files with 1429 additions and 512 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
doc/guix.texi
View File

@ -3292,8 +3292,10 @@ $ guix build emacs --dry-run
@end example @end example
@noindent @noindent
This indicates that substitutes from @code{@value{SUBSTITUTE-SERVER}} are usable and The text changed from ``The following derivations would be built'' to
will be downloaded, when possible, for future builds. ``112.3 MB would be downloaded''. This indicates that substitutes from
@code{@value{SUBSTITUTE-SERVER}} are usable and will be downloaded, when
possible, for future builds.
@cindex substitutes, how to disable @cindex substitutes, how to disable
The substitute mechanism can be disabled globally by running The substitute mechanism can be disabled globally by running
@ -4158,7 +4160,7 @@ say, on another machine, by providing a channel specification in
(channel (channel
(name 'my-personal-packages) (name 'my-personal-packages)
(url "https://example.org/personal-packages.git") (url "https://example.org/personal-packages.git")
(branch "dd3df5e2c8818760a8fc0bd699e55d3b69fef2bb"))) (commit "dd3df5e2c8818760a8fc0bd699e55d3b69fef2bb")))
@end lisp @end lisp
The @command{guix describe --format=channels} command can even generate this The @command{guix describe --format=channels} command can even generate this
@ -5057,12 +5059,21 @@ Alternatively, you can produce a pack in the Docker image format using
the following command: the following command:
@example @example
guix pack -f docker guile emacs geiser guix pack -f docker -S /bin=bin guile guile-readline
@end example @end example
@noindent @noindent
The result is a tarball that can be passed to the @command{docker load} The result is a tarball that can be passed to the @command{docker load}
command. See the command, followed by @code{docker run}:
@example
docker load < @var{file}
docker run -ti guile-guile-readline /bin/guile
@end example
@noindent
where @var{file} is the image returned by @var{guix pack}, and
@code{guile-guile-readline} is its ``image tag''. See the
@uref{https://docs.docker.com/engine/reference/commandline/load/, Docker @uref{https://docs.docker.com/engine/reference/commandline/load/, Docker
documentation} for more information. documentation} for more information.

2
gnu/local.mk
View File

@ -502,6 +502,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/tor.scm \ %D%/packages/tor.scm \
%D%/packages/tv.scm \ %D%/packages/tv.scm \
%D%/packages/uml.scm \ %D%/packages/uml.scm \
%D%/packages/unicode.scm \
%D%/packages/unrtf.scm \ %D%/packages/unrtf.scm \
%D%/packages/upnp.scm \ %D%/packages/upnp.scm \
%D%/packages/usb-modeswitch.scm \ %D%/packages/usb-modeswitch.scm \
@ -1349,6 +1350,7 @@ dist_patch_DATA = \
%D%/packages/patches/python-unittest2-remove-argparse.patch \ %D%/packages/patches/python-unittest2-remove-argparse.patch \
%D%/packages/patches/python-waitress-fix-tests.patch \ %D%/packages/patches/python-waitress-fix-tests.patch \
%D%/packages/patches/qemu-glibc-2.27.patch \ %D%/packages/patches/qemu-glibc-2.27.patch \
%D%/packages/patches/qemu-CVE-2020-1711.patch \
%D%/packages/patches/qemu-CVE-2020-7039.patch \ %D%/packages/patches/qemu-CVE-2020-7039.patch \
%D%/packages/patches/qemu-CVE-2020-7211.patch \ %D%/packages/patches/qemu-CVE-2020-7211.patch \
%D%/packages/patches/qemu-fix-documentation-build-failure.patch \ %D%/packages/patches/qemu-fix-documentation-build-failure.patch \

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

@ -444,8 +444,30 @@ ArrayVec and ArrayString.")
"This package provides a simple interface for querying atty.") "This package provides a simple interface for querying atty.")
(license license:expat))) (license license:expat)))
(define-public rust-autocfg-1.0
(package
(name "rust-autocfg")
(version "1.0.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "autocfg" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"17cv6pwb4q08s0ynpr4n8hv5299hcmhdgvdchzixfpw8y5qcgapq"))))
(build-system cargo-build-system)
(home-page "https://github.com/cuviper/autocfg")
(synopsis
"Automatic cfg for Rust compiler features")
(description
"Automatic cfg for Rust compiler features.")
(license (list license:asl2.0 license:expat))))
(define-public rust-autocfg-0.1 (define-public rust-autocfg-0.1
(package (package
(inherit rust-autocfg-1.0)
(name "rust-autocfg") (name "rust-autocfg")
(version "0.1.7") (version "0.1.7")
(source (source
@ -456,16 +478,7 @@ ArrayVec and ArrayString.")
(sha256 (sha256
(base32 (base32
"1chwgimpx5z7xbag7krr9d8asxfqbh683qhgl9kn3hxk2l0djj8x")))) "1chwgimpx5z7xbag7krr9d8asxfqbh683qhgl9kn3hxk2l0djj8x"))))
(build-system cargo-build-system) (arguments '(#:skip-build? #t))))
(arguments '(#:skip-build? #t))
(home-page "https://github.com/cuviper/autocfg")
(synopsis "Automatic cfg for Rust compiler features")
(description "Rust library for build scripts to automatically configure
code based on compiler support. Code snippets are dynamically tested to see
if the @code{rustc} will accept them, rather than hard-coding specific version
support.")
(license (list license:asl2.0
license:expat))))
(define-public rust-backtrace-0.3 (define-public rust-backtrace-0.3
(package (package
@ -5167,6 +5180,29 @@ immutable interval tree.")
(license (list license:asl2.0 (license (list license:asl2.0
license:expat)))) license:expat))))
(define-public rust-iso8601-0.1
(package
(name "rust-iso8601")
(version "0.1.1")
(source
(origin
(method url-fetch)
(uri (crate-uri "iso8601" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"0xy48qyfmirslaj4dy6n4g8b564jap3cjiql35fmj5vgii7ldp0i"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-clippy" ,rust-clippy-0.0)
("rust-nom" ,rust-nom-1.2))))
(home-page "https://github.com/badboy/iso8601")
(synopsis "Parsing ISO8601 dates using nom")
(description "Parsing ISO8601 dates using nom.")
(license license:expat)))
(define-public rust-itertools-0.8 (define-public rust-itertools-0.8
(package (package
(name "rust-itertools") (name "rust-itertools")
@ -5700,6 +5736,45 @@ allows loading dynamic libraries (also known as shared libraries) as well as use
functions and static variables these libraries contain.") functions and static variables these libraries contain.")
(license license:isc))) (license license:isc)))
(define-public rust-libm-0.2
(package
(name "rust-libm")
(version "0.2.1")
(source
(origin
(method url-fetch)
(uri (crate-uri "libm" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"0akh56sh51adhagmk9l84dyrlz60gv8ri05xhr13i1b18czkpmy7"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-rand" ,rust-rand-0.6))
#:cargo-development-inputs
(("rust-no-panic" ,rust-no-panic-0.1))))
(home-page "https://github.com/rust-lang/libm")
(synopsis "Libm in pure Rust")
(description "This package provides an implementation of libm in pure Rust.")
(license (list license:expat license:asl2.0))))
(define-public rust-libm-0.1
(package
(inherit rust-libm-0.2)
(name "rust-libm")
(version "0.1.4")
(source
(origin
(method url-fetch)
(uri (crate-uri "libm" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"16pc0gx4gkg0q2s1ssq8268brn14j8344623vwhadmivc4lsmivz"))))))
(define-public rust-libssh2-sys-0.2 (define-public rust-libssh2-sys-0.2
(package (package
(name "rust-libssh2-sys") (name "rust-libssh2-sys")
@ -5745,6 +5820,28 @@ functions and static variables these libraries contain.")
(license (list license:asl2.0 (license (list license:asl2.0
license:expat)))) license:expat))))
(define-public rust-locale-0.2
(package
(name "rust-locale")
(version "0.2.2")
(source
(origin
(method url-fetch)
(uri (crate-uri "locale" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"1z87wc7z6889x1pqlrwjw8f1crshzi15q5m102lqs8y0m69f9nsz"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs (("rust-libc" ,rust-libc-0.2))))
(home-page "https://github.com/rust-locale/rust-locale")
(synopsis "Library for basic localisation")
(description
"This package provides a library for basic localisation.")
(license license:expat)))
(define-public rust-lock-api-0.3 (define-public rust-lock-api-0.3
(package (package
(name "rust-lock-api") (name "rust-lock-api")
@ -6681,6 +6778,34 @@ release (fork of debug_unreachable)")
"Rust friendly bindings to *nix APIs.") "Rust friendly bindings to *nix APIs.")
(license license:expat))) (license license:expat)))
(define-public rust-no-panic-0.1
(package
(name "rust-no-panic")
(version "0.1.12")
(source
(origin
(method url-fetch)
(uri (crate-uri "no-panic" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"0xan5v9ac1aklinc8aw16raq36pb4idjrl502np8gy32gfs6s751"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-proc-macro2" ,rust-proc-macro2-1.0)
("rust-quote" ,rust-quote-1.0)
("rust-syn" ,rust-syn-1.0))
#:cargo-development-inputs
(("rust-tempfile" ,rust-tempfile-3.1))))
(home-page "https://github.com/dtolnay/no-panic")
(synopsis "Prove a function can't ever panic")
(description
"This package provides a rust attribute macro to require that the compiler
prove a function can't ever panic.")
(license (list license:expat license:asl2.0))))
(define-public rust-nodrop-0.1 (define-public rust-nodrop-0.1
(package (package
(name "rust-nodrop") (name "rust-nodrop")
@ -6760,6 +6885,24 @@ implementation (which is unstable / requires nightly).")
combinators library.") combinators library.")
(license license:expat))) (license license:expat)))
(define-public rust-nom-1.2
(package
(inherit rust-nom-4.2)
(name "rust-nom")
(version "1.2.4")
(source
(origin
(method url-fetch)
(uri (crate-uri "nom" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"1kjh42w67z1hh1dw3jrilgqrf54jk2xcvhw4rcdm4wclzmbc5f55"))))
(arguments
;; This is an ancient version and all inputs are optional.
`(#:skip-build? #t))))
(define-public rust-num-complex-0.2 (define-public rust-num-complex-0.2
(package (package
(name "rust-num-complex") (name "rust-num-complex")
@ -6862,7 +7005,7 @@ combinators library.")
(define-public rust-num-traits-0.2 (define-public rust-num-traits-0.2
(package (package
(name "rust-num-traits") (name "rust-num-traits")
(version "0.2.8") (version "0.2.11")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -6871,13 +7014,15 @@ combinators library.")
(string-append name "-" version ".crate")) (string-append name "-" version ".crate"))
(sha256 (sha256
(base32 (base32
"0clvrm34rrqc8p6gq5ps5fcgws3kgq5knh7nlqxf2ayarwks9abb")))) "15khrlm1bra50nd48ijl1vln13m9xg4fxzghf28jp16ic5zf8ay6"))))
(build-system cargo-build-system) (build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-autocfg" ,rust-autocfg-1.0)
("rust-libm" ,rust-libm-0.2))))
(home-page "https://github.com/rust-num/num-traits") (home-page "https://github.com/rust-num/num-traits")
(synopsis "Numeric traits for generic mathematics") (synopsis "Numeric traits for generic mathematics")
(description "Numeric traits for generic mathematics.") (description "Numeric traits for generic mathematics.")
(properties '((hidden? . #t)))
;; Dual licensed.
(license (list license:asl2.0 (license (list license:asl2.0
license:expat)))) license:expat))))
@ -6894,7 +7039,9 @@ combinators library.")
(sha256 (sha256
(base32 (base32
"0c9whknf2dm74a3cqirafy6gj83a76gl56g4v3g19k6lkwz13rcj")))) "0c9whknf2dm74a3cqirafy6gj83a76gl56g4v3g19k6lkwz13rcj"))))
(build-system cargo-build-system))) (arguments
`(#:cargo-inputs
(("rust-num-traits" , rust-num-traits-0.2))))))
(define-public rust-numtoa-0.1 (define-public rust-numtoa-0.1
(package (package
@ -7253,6 +7400,29 @@ normally prevent moving a type that has been borrowed from.")
(description "Portable Packed SIMD vectors.") (description "Portable Packed SIMD vectors.")
(license (list license:asl2.0 license:expat)))) (license (list license:asl2.0 license:expat))))
(define-public rust-pad-0.1
(package
(name "rust-pad")
(version "0.1.6")
(source
(origin
(method url-fetch)
(uri (crate-uri "pad" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"1qy0r26r52gp034fv252mmg0s599a55h9nr4xswy04hvky49pbfj"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-unicode-width" ,rust-unicode-width-0.1))))
(home-page "https://github.com/ogham/rust-pad")
(synopsis "Library for padding strings at runtime")
(description
"This package provides a library for padding strings at runtime.")
(license license:expat)))
(define-public rust-parking-lot-0.9 (define-public rust-parking-lot-0.9
(package (package
(name "rust-parking-lot") (name "rust-parking-lot")

113
gnu/packages/education.scm
View File

@ -5,6 +5,7 @@
;;; Copyright © 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2018, 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Robert Smith <robertsmith@posteo.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -24,6 +25,7 @@
(define-module (gnu packages education) (define-module (gnu packages education)
#:use-module (ice-9 regex) #:use-module (ice-9 regex)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages audio)
#:use-module (gnu packages base) #:use-module (gnu packages base)
#:use-module (gnu packages bash) #:use-module (gnu packages bash)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
@ -40,14 +42,18 @@
#:use-module (gnu packages javascript) #:use-module (gnu packages javascript)
#:use-module (gnu packages kde) #:use-module (gnu packages kde)
#:use-module (gnu packages kde-frameworks) ; extra-cmake-modules #:use-module (gnu packages kde-frameworks) ; extra-cmake-modules
#:use-module (gnu packages mp3)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
#:use-module (gnu packages python) #:use-module (gnu packages python)
#:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt) #:use-module (gnu packages qt)
#:use-module (gnu packages sdl) #:use-module (gnu packages sdl)
#:use-module (gnu packages sqlite) #:use-module (gnu packages sqlite)
#:use-module (gnu packages texinfo) #:use-module (gnu packages texinfo)
#:use-module (gnu packages tls) #:use-module (gnu packages tls)
#:use-module (gnu packages video)
#:use-module (gnu packages xorg) #:use-module (gnu packages xorg)
#:use-module (gnu packages xml) #:use-module (gnu packages xml)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
@ -126,7 +132,7 @@ of categories with some of the activities available in that category.
(define-public gcompris-qt (define-public gcompris-qt
(package (package
(name "gcompris-qt") (name "gcompris-qt")
(version "0.96") (version "0.97")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -134,11 +140,16 @@ of categories with some of the activities available in that category.
"https://gcompris.net/download/qt/src/gcompris-qt-" "https://gcompris.net/download/qt/src/gcompris-qt-"
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 "06483il59l46ny2w771sg45dgzjwv1ph7vidzzbj0wb8wbk2rg52")))) (base32 "0hl3a1jjnrpnbqkpx3rl3fl86yfv503lh48djb888hplvr4nf747"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'disable-failing-test
(lambda _
(substitute* "tests/core/CMakeLists.txt"
(("DownloadManagerTest\\.cpp") "#"))
#t))
(add-before 'check 'start-xorg-server (add-before 'check 'start-xorg-server
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; The test suite requires a running X server. ;; The test suite requires a running X server.
@ -167,6 +178,7 @@ of categories with some of the activities available in that category.
(native-inputs (native-inputs
`(("extra-cmake-modules" ,extra-cmake-modules) `(("extra-cmake-modules" ,extra-cmake-modules)
("gettext" ,gettext-minimal) ("gettext" ,gettext-minimal)
("kdoctools" ,kdoctools)
("perl" ,perl) ("perl" ,perl)
("qttools" ,qttools) ("qttools" ,qttools)
("xorg-server" ,xorg-server-for-tests))) ("xorg-server" ,xorg-server-for-tests)))
@ -715,6 +727,103 @@ languages and keyboard layouts, and typing statistics are used to dynamically
adjust the level of difficulty.") adjust the level of difficulty.")
(license license:gpl2))) (license license:gpl2)))
(define-public anki
(package
(name "anki")
;; Later versions have dependencies on npm packages not yet in Guix.
(version "2.1.16")
(source
(origin
(method url-fetch)
(uri (string-append "https://apps.ankiweb.net/downloads/archive/anki-"
version "-source.tgz"))
(sha256
(base32 "1gfr51rnllkyzli73p4r51h5ypzfa3m7lic3m3rzpywmqwrxs07k"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags (list (string-append "PREFIX=" %output))
#:tests? #f ;no check target
#:modules ((guix build gnu-build-system)
(guix build utils)
(ice-9 match))
#:phases
(modify-phases %standard-phases
(delete 'configure) ;no configure script
(add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out") "/bin"))
;; List of paths to the site-packages directories of Python
;; library inputs.
(site-packages
(map (lambda (pyinput)
(string-append
(cdr pyinput)
"/lib/python"
;; Calculate the python version to avoid breaking
;; with future 3.X releases.
,(version-major+minor
(package-version python-wrapper))
"/site-packages"))
(filter (match-lambda
((label . _)
(string-prefix? "python-" label)))
inputs)))
(qtwebengineprocess
(string-append (assoc-ref inputs "qtwebengine")
"/lib/qt5/libexec/QtWebEngineProcess")))
;; The program fails to find the QtWebEngineProcess program, so
;; we set QTWEBENGINEPROCESS_PATH to help it. PYTHONPATH is
;; wrapped to avoid declaring Python libraries as propagated
;; inputs.
(for-each (lambda (program)
(wrap-program program
`("QTWEBENGINEPROCESS_PATH" =
(,qtwebengineprocess))
`("PYTHONPATH" = ,site-packages)))
(find-files bin ".")))
#t)))))
(native-inputs
`(("xdg-utils" ,xdg-utils)))
(inputs
`(("lame" ,lame)
("mpv" ,mpv)
("python" ,python-wrapper)
("python-beautifulsoup4" ,python-beautifulsoup4)
("python-decorator" ,python-decorator)
("python-distro" ,python-distro)
("python-jsonschema" ,python-jsonschema)
("python-markdown" ,python-markdown)
("python-pyaudio" ,python-pyaudio)
;; `python-pyqtwebengine' must precede `python-pyqt' in PYTHONPATH.
("python-pyqtwebengine" ,python-pyqtwebengine)
("python-pyqt" ,python-pyqt)
("python-requests" ,python-requests)
("python-send2trash" ,python-send2trash)
("python-sip" ,python-sip)
;; `qtwebengine' is included in `pyqtwebengine', included here for easy
;; wrapping.
("qtwebengine" ,qtwebengine)))
(home-page "https://apps.ankiweb.net/")
(synopsis "Powerful, intelligent flash cards")
(description "Anki is a program which makes remembering things
easy. Because it's a lot more efficient than traditional study
methods, you can either greatly decrease your time spent studying, or
greatly increase the amount you learn.
Anyone who needs to remember things in their daily life can benefit
from Anki. Since it is content-agnostic and supports images, audio,
videos and scientific markup (via LaTeX), the possibilities are
endless. For example:
@itemize
@item Learning a language
@item Studying for medical and law exams
@item Memorizing people's names and faces
@item Brushing up on geography
@item Mastering long poems
@item Even practicing guitar chords!
@end itemize")
(license license:agpl3+)))
(define-public t4k-common (define-public t4k-common
(package (package
(name "t4k-common") (name "t4k-common")

24
gnu/packages/elf.scm
View File

@ -6,6 +6,7 @@
;;; Copyright © 2017 Leo Famulari <leo@famulari.name> ;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2020 Mark Wielaard <mark@klomp.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -54,9 +55,10 @@
(build-system gnu-build-system) (build-system gnu-build-system)
;; Separate programs because that's usually not what elfutils users want, ;; Separate programs because that's usually not what elfutils users want,
;; and because they duplicate what Binutils provides. ;; and because they duplicate what Binutils provides (but are named
;; differently, using the eu- prefix and can be installed in parallel).
(outputs '("out" ; libelf.so, elfutils/*.h, etc. (outputs '("out" ; libelf.so, elfutils/*.h, etc.
"bin")) ; ld, nm, objdump, etc. "bin")) ; eu-nm, eu-objdump, etc.
(arguments (arguments
;; Programs don't have libelf.so in their RUNPATH and libraries don't ;; Programs don't have libelf.so in their RUNPATH and libraries don't
@ -84,11 +86,21 @@
(native-inputs `(("m4" ,m4))) (native-inputs `(("m4" ,m4)))
(inputs `(("zlib" ,zlib))) (inputs `(("zlib" ,zlib)))
(home-page "https://sourceware.org/elfutils/") (home-page "https://sourceware.org/elfutils/")
(synopsis "Linker and ELF manipulation tools") (synopsis "Collection of utilities and libraries to handle ELF files and
DWARF data")
(description (description
"This package provides command-line tools to manipulate binaries in the "Elfutils is a collection of utilities and libraries to read, create and
Executable and Linkable Format (@dfn{ELF}). This includes @command{ld}, modify Executable and Linkable Format (@dfn{ELF}) binary files, find and
@command{ar}, @command{objdump}, @command{addr2line}, and more.") handle Debugging With Arbitrary Record Formats (@dfn{DWARF}) debug data,
symbols, thread state and stacktraces for processes and core files on
GNU/Linux. Elfutils includes @file{libelf} for manipulating ELF files,
@file{libdw} for inspecting DWARF data and process state and utilities like
@command{eu-stack} (to show backtraces), @command{eu-nm} (for listing symbols
from object files), @command{eu-size} (for listing the section sizes of an
object or archive file), @command{eu-strip} (for discarding symbols),
@command{eu-readelf} (to see the raw ELF file structures),
@command{eu-elflint} (to check for well-formed ELF files),
@command{eu-elfcompress} (to compress or decompress ELF sections), and more.")
;; Libraries are dual-licensed LGPLv3.0+ | GPLv2, and programs are GPLv3+. ;; Libraries are dual-licensed LGPLv3.0+ | GPLv2, and programs are GPLv3+.
(license lgpl3+))) (license lgpl3+)))

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

@ -6942,29 +6942,26 @@ Dust.js, React/JSX, Angularjs, ejs, etc.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public emacs-wgrep (define-public emacs-wgrep
;; Tag is missing, so we use the commit directly. (package
;; https://github.com/mhayashi1120/Emacs-wgrep/issues/64 (name "emacs-wgrep")
(let ((commit "379afd89ebd76f63842c8589127d66096a8bb595")) (version "2.3.2")
(package (source (origin
(name "emacs-wgrep") (method git-fetch)
(version "2.3.1") (uri (git-reference
(source (origin (url "https://github.com/mhayashi1120/Emacs-wgrep")
(method git-fetch) (commit version)))
(uri (git-reference (file-name (git-file-name name version))
(url "https://github.com/mhayashi1120/Emacs-wgrep") (sha256
(commit commit))) (base32
(file-name (git-file-name name version)) "00cwqzb94jlq4mwgv8z7r3mn0a6mhq95z6j189kacq9g4473zh8d"))))
(sha256 (build-system emacs-build-system)
(base32 (home-page "https://github.com/mhayashi1120/Emacs-wgrep")
"0v1qx8z1xj9qzirlycbihnkpwcklyi3a0j8lil78pmdpixdbgh47")))) (synopsis "Edit a grep buffer and apply those changes to the files")
(build-system emacs-build-system) (description
(home-page "https://github.com/mhayashi1120/Emacs-wgrep") "Emacs wgrep allows you to edit a grep buffer and apply those changes
(synopsis "Edit a grep buffer and apply those changes to the files")
(description
"Emacs wgrep allows you to edit a grep buffer and apply those changes
to the file buffer. Several backends are supported beside the classic grep: to the file buffer. Several backends are supported beside the classic grep:
ack, ag, helm and pt.") ack, ag, helm and pt.")
(license license:gpl3+)))) (license license:gpl3+)))
(define-public emacs-helm (define-public emacs-helm
(package (package
@ -8577,35 +8574,35 @@ been adapted to work with mu4e.")
(define-public emacs-yasnippet (define-public emacs-yasnippet
(package (package
(name "emacs-yasnippet") (name "emacs-yasnippet")
(version "0.13.0") (version "0.14.0")
(source (origin (source
(method git-fetch) (origin
(uri (git-reference (method git-fetch)
(url "https://github.com/joaotavora/yasnippet.git") (uri (git-reference
(commit version))) (url "https://github.com/joaotavora/yasnippet.git")
(file-name (string-append name "-" version ".tar.gz")) (commit version)))
(sha256 (file-name (string-append name "-" version ".tar.gz"))
(base32 (sha256
"0fkkplycrw8f8r30hjjxl1wm7p2irq2ipzzc1g7cc52abaal796p")) (base32 "0via9dzw8m5lzymg1h78xkwjssh39zr3g6ccyamlf1rjzjsyxknv"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(begin '(begin
;; YASnippet expects a "snippets" subdirectory in the same ;; YASnippet expects a "snippets" subdirectory in the same
;; directory as yasnippet.el, but we don't install it ;; directory as yasnippet.el, but we don't install it because it's
;; because it's a git submodule pointing to an external ;; a git submodule pointing to an external repository. Adjust
;; repository. Adjust `yas-snippet-dirs' to prevent ;; `yas-snippet-dirs' to prevent warnings about a missing
;; warnings about a missing directory. ;; directory.
(substitute* "yasnippet.el" (substitute* "yasnippet.el"
(("^ +'yas-installed-snippets-dir\\)\\)\n") (("^ +'yas-installed-snippets-dir\\)\\)\n")
"))\n")) "))\n"))
#t)))) #t))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments (arguments
`(#:tests? #t `(#:tests? #t
#:test-command '("emacs" "--batch" #:test-command '("emacs" "--batch"
"-l" "yasnippet-tests.el" "-l" "yasnippet-tests.el"
"-f" "ert-run-tests-batch-and-exit") "-f" "ert-run-tests-batch-and-exit")
;; FIXME: one failing test ;; FIXME: one failing test.
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-before 'check 'make-tests-writable (add-before 'check 'make-tests-writable
@ -8615,11 +8612,10 @@ been adapted to work with mu4e.")
(add-before 'check 'delete-rebinding-test (add-before 'check 'delete-rebinding-test
(lambda _ (lambda _
(emacs-batch-edit-file "yasnippet-tests.el" (emacs-batch-edit-file "yasnippet-tests.el"
`(progn (progn (goto-char (point-min)) `(progn (goto-char (point-min))
(re-search-forward (re-search-forward "ert-deftest test-rebindings")
"ert-deftest test-rebindings") (beginning-of-line)
(beginning-of-line) (kill-sexp)
(kill-sexp))
(basic-save-buffer))) (basic-save-buffer)))
#t))))) #t)))))
(home-page "https://github.com/joaotavora/yasnippet") (home-page "https://github.com/joaotavora/yasnippet")
@ -8630,50 +8626,40 @@ abbreviation and automatically expand it into function templates.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public emacs-yasnippet-snippets (define-public emacs-yasnippet-snippets
(let ((commit "885050d34737e2fb36a3e7759d60c09347bd4ce0") (package
(revision "1")) (name "emacs-yasnippet-snippets")
(package (version "0.20")
(name "emacs-yasnippet-snippets") (source
(version (string-append "1-" revision "." (string-take commit 8))) (origin
(source (method git-fetch)
(origin (uri (git-reference
(method git-fetch) (url "https://github.com/AndreaCrotti/yasnippet-snippets")
(uri (git-reference (commit version)))
(url "https://github.com/AndreaCrotti/yasnippet-snippets") (file-name (git-file-name name version))
(commit commit))) (sha256
(file-name (git-file-name name version)) (base32 "095w7cdmfwmmr6426mbq15n0a5izgbmv9408m9yh1pqz5x3v3vsx"))))
(sha256 (build-system trivial-build-system)
(base32 (arguments
"1m935zgglw0iakzrixld5rcjz3wnj84f8wy2mvc3pggjri9l0qr9")))) `(#:modules ((guix build utils))
(build-system trivial-build-system) #:builder
(arguments (begin
`(#:modules ((ice-9 ftw) (use-modules (guix build utils))
(ice-9 regex) (let* ((source (assoc-ref %build-inputs "source"))
(guix build utils)) (out (assoc-ref %outputs "out"))
#:builder (snippet-dir
(begin (string-append out "/share/emacs/yasnippet-snippets/")))
(use-modules (ice-9 ftw) (with-directory-excursion source
(ice-9 regex) (mkdir-p snippet-dir)
(guix build utils)) (copy-recursively "snippets" snippet-dir)))
(with-directory-excursion (assoc-ref %build-inputs "source") #t)))
(for-each (lambda (dir) (home-page "https://github.com/AndreaCrotti/yasnippet-snippets")
(copy-recursively (synopsis "Collection of YASnippet snippets for many languages")
dir (description
(string-append %output "Provides Andrea Crotti's collection of YASnippet snippets. After installation,
"/share/emacs/yasnippet-snippets/"
dir)))
(scandir "." (lambda (fname)
(and (string-match "-mode$" fname)
(directory-exists? fname))))))
#t)))
(home-page "https://github.com/AndreaCrotti/yasnippet-snippets")
(synopsis "Collection of YASnippet snippets for many languages")
(description
"Provides Andrea Crotti's collection of YASnippet snippets. After installation,
the snippets will be in \"~/.guix-profile/share/emacs/yasnippet-snippets/\". the snippets will be in \"~/.guix-profile/share/emacs/yasnippet-snippets/\".
To make YASnippet aware of these snippets, add the above directory to To make YASnippet aware of these snippets, add the above directory to
@code{yas-snippet-dirs}.") @code{yas-snippet-dirs}.")
(license license:expat)))) (license license:gpl3+)))
(define-public emacs-helm-c-yasnippet (define-public emacs-helm-c-yasnippet
(let ((commit "65ca732b510bfc31636708aebcfe4d2d845b59b0") (let ((commit "65ca732b510bfc31636708aebcfe4d2d845b59b0")

4
gnu/packages/ftp.scm
View File

@ -46,7 +46,7 @@
(define-public lftp (define-public lftp
(package (package
(name "lftp") (name "lftp")
(version "4.8.4") (version "4.9.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
;; See https://lftp.tech/get.html for mirrors. ;; See https://lftp.tech/get.html for mirrors.
@ -58,7 +58,7 @@
"ftp/lftp/lftp-" version ".tar.xz"))) "ftp/lftp/lftp-" version ".tar.xz")))
(sha256 (sha256
(base32 (base32
"0qks22357xv9y6ripmf5j2n5svh8j5z0yniphfk89sjwkqg2gg2f")))) "0jq2g8h1bx06ya9fsja748vwb2qrca4wsfrgi3fmaa8hznpgqsar"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))

6
gnu/packages/games.scm
View File

@ -4033,7 +4033,7 @@ throwing people around in pseudo-randomly generated buildings.")
(define-public hyperrogue (define-public hyperrogue
(package (package
(name "hyperrogue") (name "hyperrogue")
(version "11.2d") (version "11.2q")
;; When updating this package, be sure to update the "hyperrogue-data" ;; When updating this package, be sure to update the "hyperrogue-data"
;; origin in native-inputs. ;; origin in native-inputs.
(source (origin (source (origin
@ -4044,7 +4044,7 @@ throwing people around in pseudo-randomly generated buildings.")
"-src.tgz")) "-src.tgz"))
(sha256 (sha256
(base32 (base32
"1b532s94zv1jsni7bvh848m42arxcclsr0x3n7c689iamwqzrxmn")))) "1w4khi2limxhgiq7xnz0rc9nzbk86bhbyzrcd5hdghnhsviaiggq"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; no check target `(#:tests? #f ; no check target
@ -4122,7 +4122,7 @@ throwing people around in pseudo-randomly generated buildings.")
"-win.zip")) "-win.zip"))
(sha256 (sha256
(base32 (base32
"0vq4l1xaqpjj3hmxn1vn2b3bbkn1hrag42ck9f30blinv347bwhf")))) "1k81zrbq5gmrccjac1i5c6v8j2iilfg2vwrnm8snjmmcnh5z1fgj"))))
("unzip" ,unzip))) ("unzip" ,unzip)))
(inputs (inputs
`(("font-dejavu" ,font-dejavu) `(("font-dejavu" ,font-dejavu)

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

@ -114,6 +114,40 @@ which haven't been updated for some years. The new app icons are ported from
the Obsidian icon theme.") the Obsidian icon theme.")
(license license:gpl3))) (license license:gpl3)))
(define-public gnome-shell-extension-appindicator
(package
(name "gnome-shell-extension-appindicator")
(version "30")
(source (origin
(method git-fetch)
(uri (git-reference
(url
"https://github.com/ubuntu/gnome-shell-extension-appindicator.git")
(commit (string-append "v" version))))
(sha256
(base32
"1fjhx23jqwv3d0smwhnjvc35gqhwk9p5f96ic22pfax653cn5vh8"))
(file-name (git-file-name name version))))
(build-system trivial-build-system)
(arguments
'(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let* ((source (assoc-ref %build-inputs "source"))
(install-dir (string-append (assoc-ref %outputs "out")
"/share/gnome-shell/extensions"
"/appindicatorsupport@rgcjonas.gmail.com")))
(mkdir-p install-dir)
(copy-recursively source install-dir)
#t))))
(synopsis "Adds KStatusNotifierItem support to GNOME Shell")
(description "This extension integrates Ubuntu AppIndicators
and KStatusNotifierItems (KDE's successor of the systray) into
GNOME Shell.")
(home-page "https://github.com/ubuntu/gnome-shell-extension-appindicator/")
(license license:gpl2+)))
(define-public gnome-shell-extension-dash-to-dock (define-public gnome-shell-extension-dash-to-dock
(package (package
(name "gnome-shell-extension-dash-to-dock") (name "gnome-shell-extension-dash-to-dock")

8
gnu/packages/gnome.scm
View File

@ -2178,6 +2178,10 @@ from forcing GEXP-PROMISE."
#+(canonical-package tar))) #+(canonical-package tar)))
(invoke "tar" "xvf" #+upstream-source) (invoke "tar" "xvf" #+upstream-source)
(with-directory-excursion (string-append "librsvg-" #$version) (with-directory-excursion (string-append "librsvg-" #$version)
;; The following crate(s) are needed in addition to the ones replaced:
(begin
(invoke
"tar" "xvf" #+(package-source rust-autocfg-0.1) "-C" "vendor"))
(for-each (for-each
(lambda (crate) (lambda (crate)
(delete-file-recursively (string-append "vendor/" (car crate))) (delete-file-recursively (string-append "vendor/" (car crate)))
@ -2187,7 +2191,7 @@ from forcing GEXP-PROMISE."
("approx" . #+(package-source rust-approx-0.3)) ("approx" . #+(package-source rust-approx-0.3))
("arrayvec" . #+(package-source rust-arrayvec-0.4)) ("arrayvec" . #+(package-source rust-arrayvec-0.4))
("atty" . #+(package-source rust-atty-0.2)) ("atty" . #+(package-source rust-atty-0.2))
("autocfg" . #+(package-source rust-autocfg-0.1)) ("autocfg" . #+(package-source rust-autocfg-1.0))
("bitflags" . #+(package-source rust-bitflags-1)) ("bitflags" . #+(package-source rust-bitflags-1))
;; block 0.1 ;; block 0.1
("bstr" . #+(package-source rust-bstr-0.2)) ("bstr" . #+(package-source rust-bstr-0.2))
@ -2238,7 +2242,7 @@ from forcing GEXP-PROMISE."
("language-tags" . #+(package-source rust-language-tags-0.2)) ("language-tags" . #+(package-source rust-language-tags-0.2))
("lazy_static" . #+(package-source rust-lazy-static-1.3)) ("lazy_static" . #+(package-source rust-lazy-static-1.3))
("libc" . #+(package-source rust-libc-0.2)) ("libc" . #+(package-source rust-libc-0.2))
;; libm 0.1 ("libm" . #+(package-source rust-libm-0.1))
;; locale_config 0.3 ;; locale_config 0.3
("log" . #+(package-source rust-log-0.4)) ("log" . #+(package-source rust-log-0.4))
("mac" . #+(package-source rust-mac-0.1)) ("mac" . #+(package-source rust-mac-0.1))

6
gnu/packages/gpodder.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2019, 2020 Pierre Langlois <pierre.langlois@gmx.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -37,7 +37,7 @@
(define-public gpodder (define-public gpodder
(package (package
(name "gpodder") (name "gpodder")
(version "3.10.11") (version "3.10.13")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -46,7 +46,7 @@
(commit version))) (commit version)))
(sha256 (sha256
(base32 (base32
"15f5z3cnch9lpzbz73l4wjykv9n74y8djz5db53la2ql4ihaxfz9")) "1h542syaxsx1hslfzlk3fx1nbp190zjw35kigw7a1kx1jwvfwapg"))
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(build-system python-build-system) (build-system python-build-system)
(native-inputs (native-inputs

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

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017, 2018, 2019 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2017, 2018, 2019 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2019 Evan Straw <evan.straw99@gmail.com> ;;; Copyright © 2019, 2020 Evan Straw <evan.straw99@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -22,6 +22,8 @@
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages image) #:use-module (gnu packages image)
#:use-module (gnu packages libusb) #:use-module (gnu packages libusb)
@ -29,6 +31,7 @@
#:use-module (gnu packages pulseaudio) #:use-module (gnu packages pulseaudio)
#:use-module (gnu packages python) #:use-module (gnu packages python)
#:use-module (gnu packages python-xyz) #:use-module (gnu packages python-xyz)
#:use-module (gnu packages sdr)
#:use-module (gnu packages xml) #:use-module (gnu packages xml)
#:use-module (guix build-system cmake) #:use-module (guix build-system cmake)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
@ -127,3 +130,49 @@ satellites, the POES NOAA weather satellite series. These transmissions are
on a frequency of 137 MHz. They can be received using an inexpensive antenna on a frequency of 137 MHz. They can be received using an inexpensive antenna
and a dedicated receiver.") and a dedicated receiver.")
(license license:gpl2+))) (license license:gpl2+)))
(define-public redsea
(package
(name "redsea")
(version "0.18")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/windytan/redsea")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1y96g0ra2krjb2kypm8s5gdfia45yci4f36klsvyzg8d53v5cwhn"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
;; The configure.ac file does not explicitly link against libiconv
;; except on Mac OS, causing the build to fail. This phase comments
;; out the original AC_SUBST macro (located inside a conditional) and
;; adds an explicit use of it underneath, so that libiconv is always
;; linked against.
(add-after 'unpack 'patch-libiconv
(lambda _
(substitute* "configure.ac"
(("^ +AC_SUBST")
"# AC_SUBST")
(("esac")
"esac\nAC_SUBST([ICONV], [\"-liconv\"])"))
#t)))))
(inputs
`(("libiconv" ,libiconv)
("libsndfile" ,libsndfile)
("liquid-dsp" ,liquid-dsp)))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)))
(home-page "https://github.com/windytan/redsea")
(synopsis "Lightweight RDS to JSON decoder")
(description "redsea is a lightweight command-line @dfn{FM Radio Data
System} (FM-RDS) decoder. Redsea can be used with any RTL-SDR USB radio stick
with the rtl_fm tool, or any other @dfn{software-defined radio} (SDR) via
csdr, for example. It can also decode raw ASCII bitstream, the hex format
used by RDS Spy, and audio files containing @dfn{multiplex} signals (MPX).")
(license license:expat)))

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

@ -270,14 +270,14 @@ unique algebra of patches called @url{http://darcs.net/Theory,Patchtheory}.
(define-public git-annex (define-public git-annex
(package (package
(name "git-annex") (name "git-annex")
(version "7.20191230") (version "7.20200202.7")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://hackage.haskell.org/package/" (uri (string-append "https://hackage.haskell.org/package/"
"git-annex/git-annex-" version ".tar.gz")) "git-annex/git-annex-" version ".tar.gz"))
(sha256 (sha256
(base32 "1xsd4vhiv3zkcqjh2pxhbkjx75hcalcc9bpdlfc27wzxsxyrwz12")))) (base32 "1dj1ss7kp82wa0ybilhl88q6w49rj70qh61k2q8qfyx4ghliiigh"))))
(build-system haskell-build-system) (build-system haskell-build-system)
(arguments (arguments
`(#:configure-flags `(#:configure-flags

43
gnu/packages/ibus.scm
View File

@ -53,6 +53,7 @@
#:use-module (gnu packages serialization) #:use-module (gnu packages serialization)
#:use-module (gnu packages sqlite) #:use-module (gnu packages sqlite)
#:use-module (gnu packages textutils) #:use-module (gnu packages textutils)
#:use-module (gnu packages unicode)
#:use-module (gnu packages xorg)) #:use-module (gnu packages xorg))
(define-public ibus (define-public ibus
@ -70,19 +71,22 @@
(build-system glib-or-gtk-build-system) (build-system glib-or-gtk-build-system)
(arguments (arguments
`(#:tests? #f ; tests fail because there's no connection to dbus `(#:tests? #f ; tests fail because there's no connection to dbus
#:configure-flags `("--disable-emoji-dict" ; cannot find emoji.json path #:parallel-build? #f ; race condition discovered with emoji support
"--enable-python-library" #:configure-flags (list "--enable-python-library"
,(string-append "--with-ucd-dir=" (string-append
(getcwd) "/ucd") "--with-unicode-emoji-dir="
"--enable-wayland") (assoc-ref %build-inputs "unicode-emoji")
"/share/unicode/emoji")
(string-append
"--with-emoji-annotation-dir="
(assoc-ref %build-inputs "unicode-cldr-common")
"/share/unicode/cldr/common/annotations")
(string-append "--with-ucd-dir="
(assoc-ref %build-inputs "ucd")
"/share/ucd")
"--enable-wayland")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'prepare-ucd-dir
(lambda* (#:key inputs #:allow-other-keys)
(mkdir-p "../ucd")
(symlink (assoc-ref inputs "unicode-blocks") "../ucd/Blocks.txt")
(symlink (assoc-ref inputs "unicode-nameslist") "../ucd/NamesList.txt")
#t))
(add-after 'unpack 'patch-python-target-directories (add-after 'unpack 'patch-python-target-directories
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((root (string-append (assoc-ref outputs "out") (let ((root (string-append (assoc-ref outputs "out")
@ -149,20 +153,9 @@
(native-inputs (native-inputs
`(("glib" ,glib "bin") ; for glib-genmarshal `(("glib" ,glib "bin") ; for glib-genmarshal
("gobject-introspection" ,gobject-introspection) ; for g-ir-compiler ("gobject-introspection" ,gobject-introspection) ; for g-ir-compiler
("ucd" ,ucd)
;; XXX TODO: Move Unicode data to its own (versioned) package. ("unicode-emoji" ,unicode-emoji)
("unicode-nameslist" ("unicode-cldr-common" ,unicode-cldr-common)
,(origin
(method url-fetch)
(uri "https://www.unicode.org/Public/12.0.0/ucd/NamesList.txt")
(sha256
(base32 "0vsq8gx7hws8mvxy3nlglpwxw7ky57q0fs09d7w9xgb2ylk7fz61"))))
("unicode-blocks"
,(origin
(method url-fetch)
(uri "https://www.unicode.org/Public/12.0.0/ucd/Blocks.txt")
(sha256
(base32 "041sk54v6rjzb23b9x7yjdwzdp2wc7gvfz7ybavgg4gbh51wm8x1"))))
("vala" ,vala) ("vala" ,vala)
("pkg-config" ,pkg-config))) ("pkg-config" ,pkg-config)))
(native-search-paths (native-search-paths

4
gnu/packages/libreoffice.scm
View File

@ -362,14 +362,14 @@ AbiWord documents.")
(define-public libcdr (define-public libcdr
(package (package
(name "libcdr") (name "libcdr")
(version "0.1.5") (version "0.1.6")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://dev-www.libreoffice.org/src/" name "/" (uri (string-append "https://dev-www.libreoffice.org/src/" name "/"
name "-" version ".tar.xz")) name "-" version ".tar.xz"))
(sha256 (base32 (sha256 (base32
"0j1skr11jwvafn0l6p37v3i4lqc8wcn489g8f7c4mqwbk94mrkka")))) "0qgqlw6i25zfq1gf7f6r5hrhawlrgh92sg238kjpf2839aq01k81"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("cppunit" ,cppunit) `(("cppunit" ,cppunit)

12
gnu/packages/libusb.scm
View File

@ -455,24 +455,26 @@ over USB.")
(define-public libmtp (define-public libmtp
(package (package
(name "libmtp") (name "libmtp")
(version "1.1.16") (version "1.1.17")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://sourceforge/libmtp/libmtp/" version (uri (string-append "mirror://sourceforge/libmtp/libmtp/" version
"/libmtp-" version ".tar.gz")) "/libmtp-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"185vh9bds6dcy00ycggg69g4v7m3api40zv8vrcfb3fk3vfzjs2v")))) "1p3r38nvdip40ab1h4scj3mzfjkx6kd14szjqyw9r6wz5pslr8zq"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))
(inputs
`(("libgcrypt" ,libgcrypt)))
(propagated-inputs (propagated-inputs
;; libmtp.pc refers to all these. ;; libmtp.pc refers to all these.
`(("libgcrypt" ,libgcrypt) `(("libusb" ,libusb)))
("libusb" ,libusb)))
(arguments (arguments
`(#:configure-flags `(#:configure-flags
(list (string-append "--with-udev=" (list "--disable-static"
(string-append "--with-udev="
(assoc-ref %outputs "out") (assoc-ref %outputs "out")
"/lib/udev")))) "/lib/udev"))))
(home-page "http://libmtp.sourceforge.net/") (home-page "http://libmtp.sourceforge.net/")

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

@ -16,6 +16,7 @@
;;; Copyright © 2019 Jesse Gildersleve <jessejohngildersleve@protonmail.com> ;;; Copyright © 2019 Jesse Gildersleve <jessejohngildersleve@protonmail.com>
;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net> ;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2019 Brett Gilio <brettg@gnu.org> ;;; Copyright © 2019 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2020 Konrad Hinsen <konrad.hinsen@fastmail.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -166,29 +167,27 @@ interactive development model in mind.")
(sbcl-package->ecl-package sbcl-fiveam)) (sbcl-package->ecl-package sbcl-fiveam))
(define-public sbcl-bordeaux-threads (define-public sbcl-bordeaux-threads
(let ((commit "5dce49fbc829f4d136a734f5ef4f5d599660984f") (package
(revision "1")) (name "sbcl-bordeaux-threads")
(package (version "0.8.7")
(name "sbcl-bordeaux-threads") (source (origin
(version (git-version "0.8.6" revision commit)) (method git-fetch)
(source (origin (uri (git-reference
(method git-fetch) (url "https://github.com/sionescu/bordeaux-threads.git")
(uri (git-reference (commit (string-append "v" version))))
(url "https://github.com/sionescu/bordeaux-threads.git") (sha256
(commit commit))) (base32 "1whpfmyxp2fsw6viqj45fqgsifgr534c575bfh5vaqw5m84b6alp"))
(sha256 (file-name
(base32 "1gkh9rz7zw57n3110ikcf4835950wr4hgp8l79id5ai6nd86x7wv")) (git-file-name "bordeaux-threads" version))))
(file-name (inputs `(("alexandria" ,sbcl-alexandria)))
(git-file-name "bordeaux-threads" version)))) (native-inputs `(("fiveam" ,sbcl-fiveam)))
(inputs `(("alexandria" ,sbcl-alexandria))) (build-system asdf-build-system/sbcl)
(native-inputs `(("fiveam" ,sbcl-fiveam))) (synopsis "Portable shared-state concurrency library for Common Lisp")
(build-system asdf-build-system/sbcl) (description "BORDEAUX-THREADS is a proposed standard for a minimal
(synopsis "Portable shared-state concurrency library for Common Lisp")
(description "BORDEAUX-THREADS is a proposed standard for a minimal
MP/Threading interface. It is similar to the CLIM-SYS threading and lock MP/Threading interface. It is similar to the CLIM-SYS threading and lock
support.") support.")
(home-page "https://common-lisp.net/project/bordeaux-threads/") (home-page "https://common-lisp.net/project/bordeaux-threads/")
(license license:x11)))) (license license:x11)))
(define-public cl-bordeaux-threads (define-public cl-bordeaux-threads
(sbcl-package->cl-source-package sbcl-bordeaux-threads)) (sbcl-package->cl-source-package sbcl-bordeaux-threads))
@ -267,7 +266,7 @@ logical continuation of Stefil. It focuses on interactive debugging.")
(define-public sbcl-flexi-streams (define-public sbcl-flexi-streams
(package (package
(name "sbcl-flexi-streams") (name "sbcl-flexi-streams")
(version "1.0.16") (version "1.0.18")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -276,7 +275,7 @@ logical continuation of Stefil. It focuses on interactive debugging.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name "flexi-streams" version)) (file-name (git-file-name "flexi-streams" version))
(sha256 (sha256
(base32 "0gvykjlmja060zqq6nn6aqxlshh6r6ijahmmgf20q0d839rwpgxc")))) (base32 "0bjv7fd2acknidc5dyi3h85pn10krxv5jyxs1xg8jya2rlfv7f1j"))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(arguments (arguments
`(#:phases `(#:phases
@ -304,7 +303,7 @@ streams which are similar to string streams.")
(define-public sbcl-cl-ppcre (define-public sbcl-cl-ppcre
(package (package
(name "sbcl-cl-ppcre") (name "sbcl-cl-ppcre")
(version "2.0.11") (version "2.1.1")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -313,7 +312,7 @@ streams which are similar to string streams.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name "cl-ppcre" version)) (file-name (git-file-name "cl-ppcre" version))
(sha256 (sha256
(base32 "0q3iany07vgqm144lw6pj0af2d3vsikpbkwcxr30fci3kzsq4f49")))) (base32 "0dwvr29diqzcg5n6jvbk2rnd90i05l7n828hhw99khmqd0kz7xsi"))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(native-inputs `(("flexi-streams" ,sbcl-flexi-streams))) (native-inputs `(("flexi-streams" ,sbcl-flexi-streams)))
(synopsis "Portable regular expression library for Common Lisp") (synopsis "Portable regular expression library for Common Lisp")
@ -330,32 +329,30 @@ compatible with ANSI-compliant Common Lisp implementations.")
(sbcl-package->ecl-package sbcl-cl-ppcre)) (sbcl-package->ecl-package sbcl-cl-ppcre))
(define sbcl-cl-unicode-base (define sbcl-cl-unicode-base
(let ((revision "1") (package
(commit "9fcd06fba1ddc9e66aed2f2d6c32dc9b764f03ea")) (name "sbcl-cl-unicode-base")
(package (version "0.1.6")
(name "sbcl-cl-unicode-base") (source (origin
(version (string-append "0.1.5-" revision "." (string-take commit 7))) (method git-fetch)
(source (origin (uri (git-reference
(method git-fetch) (url "https://github.com/edicl/cl-unicode.git")
(uri (git-reference (commit (string-append "v" version))))
(url "https://github.com/edicl/cl-unicode.git") (file-name (git-file-name name version))
(commit commit))) (sha256
(file-name (string-append "cl-unicode-" version "-checkout")) (base32
(sha256 "0ykx2s9lqfl74p1px0ik3l2izd1fc9jd1b4ra68s5x34rvjy0hza"))))
(base32 (build-system asdf-build-system/sbcl)
"1jicprb5b3bv57dy1kg03572gxkcaqdjhak00426s76g0plmx5ki")))) (arguments
(build-system asdf-build-system/sbcl) '(#:asd-file "cl-unicode.asd"
(arguments #:asd-system-name "cl-unicode/base"))
'(#:asd-file "cl-unicode.asd" (inputs
#:asd-system-name "cl-unicode/base")) `(("cl-ppcre" ,sbcl-cl-ppcre)))
(inputs (home-page "http://weitz.de/cl-unicode/")
`(("cl-ppcre" ,sbcl-cl-ppcre))) (synopsis "Portable Unicode library for Common Lisp")
(home-page "http://weitz.de/cl-unicode/") (description "CL-UNICODE is a portable Unicode library Common Lisp, which
(synopsis "Portable Unicode library for Common Lisp")
(description "CL-UNICODE is a portable Unicode library Common Lisp, which
is compatible with perl. It is pretty fast, thread-safe, and compatible with is compatible with perl. It is pretty fast, thread-safe, and compatible with
ANSI-compliant Common Lisp implementations.") ANSI-compliant Common Lisp implementations.")
(license license:bsd-2)))) (license license:bsd-2)))
(define-public sbcl-cl-unicode (define-public sbcl-cl-unicode
(package (package
@ -629,6 +626,9 @@ from other CLXes around the net.")
`(("sbcl-cl-ppcre" ,sbcl-cl-ppcre) `(("sbcl-cl-ppcre" ,sbcl-cl-ppcre)
("sbcl-cl-unicode" ,sbcl-cl-unicode))))) ("sbcl-cl-unicode" ,sbcl-cl-unicode)))))
(define-public ecl-cl-ppcre-unicode
(sbcl-package->ecl-package sbcl-cl-ppcre-unicode))
;; The slynk that users expect to install includes all of slynk's contrib ;; The slynk that users expect to install includes all of slynk's contrib
;; modules. Therefore, we build the base module and all contribs first; then ;; modules. Therefore, we build the base module and all contribs first; then
;; we expose the union of these as `sbcl-slynk'. The following variable ;; we expose the union of these as `sbcl-slynk'. The following variable
@ -1417,7 +1417,7 @@ In addition to regular Packrat / Parsing Grammar / TDPL features ESRAP supports:
(define-public sbcl-split-sequence (define-public sbcl-split-sequence
(package (package
(name "sbcl-split-sequence") (name "sbcl-split-sequence")
(version "1.4.1") (version "2.0.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -1426,13 +1426,11 @@ In addition to regular Packrat / Parsing Grammar / TDPL features ESRAP supports:
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(sha256 (sha256
(base32 (base32
"0c3zp6b7fmmp93sfhq112ind4zkld49ycw68z409xpnz3gc0wpf0")) "0jcpnx21hkfwqj5fvp7kc6pn1qcz9hk7g2s5x8h0349x1j2irln0"))
(file-name (git-file-name "split-sequence" version)))) (file-name (git-file-name "split-sequence" version))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(arguments (native-inputs
;; TODO: Tests seem to be broken. `(("fiveam" ,sbcl-fiveam)))
;; https://github.com/sharplispers/split-sequence/issues/8
`(#:tests? #f))
(synopsis "Member of the Common Lisp Utilities family of programs") (synopsis "Member of the Common Lisp Utilities family of programs")
(description (description
"Splits sequence into a list of subsequences delimited by objects "Splits sequence into a list of subsequences delimited by objects
@ -1570,7 +1568,7 @@ with @command{colorize} support."))))
(define-public sbcl-cl-fad (define-public sbcl-cl-fad
(package (package
(name "sbcl-cl-fad") (name "sbcl-cl-fad")
(version "0.7.5") (version "0.7.6")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -1579,7 +1577,7 @@ with @command{colorize} support."))))
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(sha256 (sha256
(base32 (base32
"1l1qmk9z57q84bz5r04sxsksggsnd7dgkxlybzh9imz6ma7sm52m")) "1gc8i82v6gks7g0lnm54r4prk2mklidv2flm5fvbr0a7rsys0vpa"))
(file-name (string-append "cl-fad" version "-checkout")))) (file-name (string-append "cl-fad" version "-checkout"))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(inputs (inputs
@ -1821,8 +1819,11 @@ processes that doesn't run under Emacs. Lisp processes created by
("cl-fad" ,sbcl-cl-fad) ("cl-fad" ,sbcl-cl-fad)
("ironclad" ,sbcl-ironclad) ("ironclad" ,sbcl-ironclad)
("named-readtables" ,sbcl-named-readtables) ("named-readtables" ,sbcl-named-readtables)
("pythonic-string-reader" ,sbcl-pythonic-string-reader) ("pythonic-string-reader" ,sbcl-pythonic-string-reader)))
("swank" ,cl-slime-swank))) (propagated-inputs
;; Packages having mgl-pax as input complain that it can't find
;; swank if we put it in inputs, so let's put it in propageted-inputs.
`(("swank" ,cl-slime-swank)))
(synopsis "Exploratory programming environment and documentation generator") (synopsis "Exploratory programming environment and documentation generator")
(description (description
"PAX provides an extremely poor man's Explorable Programming "PAX provides an extremely poor man's Explorable Programming
@ -2473,7 +2474,7 @@ non-consing thread safe queues and fibonacci priority queues.")
(define sbcl-cffi-bootstrap (define sbcl-cffi-bootstrap
(package (package
(name "sbcl-cffi-bootstrap") (name "sbcl-cffi-bootstrap")
(version "0.19.0") (version "0.21.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -2482,7 +2483,7 @@ non-consing thread safe queues and fibonacci priority queues.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name "cffi-bootstrap" version)) (file-name (git-file-name "cffi-bootstrap" version))
(sha256 (sha256
(base32 "09sfgc6r7ihmbkwfpvkq5fxc7h45cabpvgbvs47i5cvnmv3k72xy")))) (base32 "1qalargz9bhp850qv60ffwpdqi4xirzar4l3g6qcg8yc6xqf2cjk"))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(inputs (inputs
`(("libffi" ,libffi) `(("libffi" ,libffi)
@ -3177,44 +3178,43 @@ Lisp (from GBBopen project).")
(define-public ecl-portable-threada (define-public ecl-portable-threada
(sbcl-package->ecl-package sbcl-portable-threads)) (sbcl-package->ecl-package sbcl-portable-threads))
(define-public sbcl-usocket-boot0 (define sbcl-usocket-boot0
;; usocket's test rely on usocket-server which depends on usocket itself. ;; usocket's test rely on usocket-server which depends on usocket itself.
;; We break this cyclic dependency with -boot0 that packages usocket. ;; We break this cyclic dependency with -boot0 that packages usocket.
(let ((commit "86e7efbfe50101931edf4b67cdcfa7e221ecfde9")) (package
(package (name "sbcl-usocket-boot0")
(name "sbcl-usocket-boot0") (version "0.8.3")
(version (git-version "0.7.1" "1" commit)) (source
(source (origin
(origin (method git-fetch)
(method git-fetch) (uri (git-reference
(uri (git-reference (url "https://github.com/usocket/usocket/")
(url "https://github.com/usocket/usocket/") (commit (string-append "v" version))))
(commit commit))) (file-name (git-file-name "usocket" version))
(file-name (git-file-name "usocket" version)) (sha256
(sha256 (base32
(base32 "0x746wr2324l6bn7skqzgkzcbj5kd0zp2ck0c8rldrw0rzabg826"))))
"1lk6ipakrib7kdgzw44hrgmls9akp5pz4h35yynw0k5zwmmq6374")))) (build-system asdf-build-system/sbcl)
(build-system asdf-build-system/sbcl) (inputs
(inputs `(("split-sequence" ,sbcl-split-sequence)))
`(("split-sequence" ,sbcl-split-sequence))) (arguments
(arguments `(#:tests? #f
`(#:tests? #f #:asd-system-name "usocket"))
#:asd-system-name "usocket")) (home-page "https://common-lisp.net/project/usocket/")
(home-page "https://common-lisp.net/project/usocket/") (synopsis "Universal socket library for Common Lisp (server side)")
(synopsis "Universal socket library for Common Lisp (server side)") (description
(description "This library strives to provide a portable TCP/IP and UDP/IP socket
"This library strives to provide a portable TCP/IP and UDP/IP socket
interface for as many Common Lisp implementations as possible, while keeping interface for as many Common Lisp implementations as possible, while keeping
the abstraction and portability layer as thin as possible.") the abstraction and portability layer as thin as possible.")
(license license:expat)))) (license license:expat)))
(define-public sbcl-usocket-server (define-public sbcl-usocket-server
(package (package
(inherit sbcl-usocket-boot0) (inherit sbcl-usocket-boot0)
(name "sbcl-usocket-server") (name "sbcl-usocket-server")
(inputs (inputs
`(("usocket" ,sbcl-usocket-boot0) `(("bordeaux-threads" ,sbcl-bordeaux-threads)
("portable-threads" ,sbcl-portable-threads))) ("usocket" ,sbcl-usocket-boot0)))
(arguments (arguments
'(#:asd-system-name "usocket-server")) '(#:asd-system-name "usocket-server"))
(synopsis "Universal socket library for Common Lisp (server side)"))) (synopsis "Universal socket library for Common Lisp (server side)")))
@ -3240,7 +3240,7 @@ the abstraction and portability layer as thin as possible.")
(define-public cl-usocket (define-public cl-usocket
(sbcl-package->cl-source-package sbcl-usocket)) (sbcl-package->cl-source-package sbcl-usocket))
(define-public ecl-socket (define-public ecl-usocket
(sbcl-package->ecl-package sbcl-usocket)) (sbcl-package->ecl-package sbcl-usocket))
(define-public sbcl-s-xml (define-public sbcl-s-xml
@ -3663,45 +3663,45 @@ the format used by the popular compression tool bzip2.")
(sbcl-package->cl-source-package sbcl-chipz)) (sbcl-package->cl-source-package sbcl-chipz))
(define-public sbcl-drakma (define-public sbcl-drakma
(let ((version "2.0.4") (package
(commit "7647c0ae842ff2058624e53979c7f297760c97a7") (name "sbcl-drakma")
(revision "1")) (version "2.0.7")
(package (source
(name "sbcl-drakma") (origin
(version (git-version version revision commit)) (method git-fetch)
(source (uri (git-reference
(origin (url "https://github.com/edicl/drakma.git")
(method git-fetch) (commit (string-append "v" version))))
(uri (git-reference (file-name (git-file-name name version))
(url "https://github.com/edicl/drakma.git") (sha256
(commit commit))) (base32
(file-name (git-file-name name version)) "1441idnyif9xzx3ln1p3fg36k2v9h4wasjqrzc8y52j61420qpci"))))
(sha256 (build-system asdf-build-system/sbcl)
(base32 (inputs
"1c4i9wakhj5pxfyyykxshdmv3180sbkrx6fcyynikmc0jd0rh84r")))) `(("sbcl-puri" ,sbcl-puri)
(build-system asdf-build-system/sbcl) ("sbcl-cl-base64" ,sbcl-cl-base64)
(inputs ("sbcl-chunga" ,sbcl-chunga)
`(("sbcl-puri" ,sbcl-puri) ("sbcl-flexi-streams" ,sbcl-flexi-streams)
("sbcl-cl-base64" ,sbcl-cl-base64) ("sbcl-cl-ppcre" ,sbcl-cl-ppcre)
("sbcl-chunga" ,sbcl-chunga) ("sbcl-chipz" ,sbcl-chipz)
("sbcl-flexi-streams" ,sbcl-flexi-streams) ("sbcl-usocket" ,sbcl-usocket)
("sbcl-cl-ppcre" ,sbcl-cl-ppcre) ("sbcl-cl+ssl" ,sbcl-cl+ssl)))
("sbcl-chipz" ,sbcl-chipz) (native-inputs
("sbcl-usocket" ,sbcl-usocket) `(("sbcl-fiveam" ,sbcl-fiveam)))
("sbcl-cl+ssl" ,sbcl-cl+ssl))) (home-page "https://edicl.github.io/drakma/")
(native-inputs (synopsis "HTTP client written in Common Lisp")
`(("sbcl-fiveam" ,sbcl-fiveam))) (description
(home-page "https://edicl.github.io/drakma/") "Drakma is a full-featured HTTP client implemented in Common Lisp. It
(synopsis "HTTP client written in Common Lisp")
(description
"Drakma is a full-featured HTTP client implemented in Common Lisp. It
knows how to handle HTTP/1.1 chunking, persistent connections, re-usable knows how to handle HTTP/1.1 chunking, persistent connections, re-usable
sockets, SSL, continuable uploads, file uploads, cookies, and more.") sockets, SSL, continuable uploads, file uploads, cookies, and more.")
(license license:bsd-2)))) (license license:bsd-2)))
(define-public cl-drakma (define-public cl-drakma
(sbcl-package->cl-source-package sbcl-drakma)) (sbcl-package->cl-source-package sbcl-drakma))
(define-public ecl-drakma
(sbcl-package->ecl-package sbcl-drakma))
(define-public sbcl-hunchentoot (define-public sbcl-hunchentoot
(package (package
(name "sbcl-hunchentoot") (name "sbcl-hunchentoot")
@ -4102,36 +4102,37 @@ Lisp.")
(sbcl-package->cl-source-package sbcl-fast-http)) (sbcl-package->cl-source-package sbcl-fast-http))
(define-public sbcl-static-vectors (define-public sbcl-static-vectors
(let ((commit "0681eac1f49370cde03e64b077251e8abf47d702") (package
(revision "1")) (name "sbcl-static-vectors")
(package (version "1.8.4")
(name "sbcl-static-vectors") (source
(version (git-version "1.8.3" revision commit)) (origin
(source
(origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/sionescu/static-vectors.git") (url "https://github.com/sionescu/static-vectors.git")
(commit commit))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "138nlsq14hv8785ycjm6jw3i6ablhq8vcwys7q09y80arcgrg6r3")))) (base32 "0qvf9z6bhwhm8n45fjwkm7j8dcb58szfvndky65cyn4lpdval7m1"))))
(native-inputs (native-inputs
`(("sbcl-fiveam" ,sbcl-fiveam))) `(("sbcl-fiveam" ,sbcl-fiveam)))
(inputs (inputs
`(("sbcl-cffi-grovel" ,sbcl-cffi-grovel) `(("sbcl-cffi-grovel" ,sbcl-cffi-grovel)
("sbcl-cffi" ,sbcl-cffi))) ("sbcl-cffi" ,sbcl-cffi)))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(home-page "http://common-lisp.net/projects/iolib/") (home-page "http://common-lisp.net/projects/iolib/")
(synopsis "Allocate SIMPLE-ARRAYs in static memory") (synopsis "Allocate SIMPLE-ARRAYs in static memory")
(description (description
"With @code{static-vectors}, you can create vectors allocated in static "With @code{static-vectors}, you can create vectors allocated in static
memory.") memory.")
(license license:expat)))) (license license:expat)))
(define-public cl-static-vectors (define-public cl-static-vectors
(sbcl-package->cl-source-package sbcl-static-vectors)) (sbcl-package->cl-source-package sbcl-static-vectors))
(define-public ecl-static-vectors
(sbcl-package->ecl-package sbcl-static-vectors))
(define-public sbcl-marshal (define-public sbcl-marshal
(let ((commit "eff1b15f2b0af2f26f71ad6a4dd5c4beab9299ec") (let ((commit "eff1b15f2b0af2f26f71ad6a4dd5c4beab9299ec")
(revision "1")) (revision "1"))
@ -5222,7 +5223,7 @@ decoding routines for IDNA, the International Domain Names in Applications.")
(package (package
(name "sbcl-swap-bytes") (name "sbcl-swap-bytes")
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(version "1.1") (version "1.2")
(home-page "https://github.com/sionescu/swap-bytes") (home-page "https://github.com/sionescu/swap-bytes")
(source (source
(origin (origin
@ -5233,14 +5234,11 @@ decoding routines for IDNA, the International Domain Names in Applications.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1qysbv0jngdfkv53y874qjhcxc4qi8ixaqq6j8bzxh5z0931wv55")))) "1hw1v1lw26rifyznpnj1csphha9jgzwpiic16ni3pvs6hcsni9rz"))))
(inputs (inputs
`(("trivial-features" ,sbcl-trivial-features))) `(("trivial-features" ,sbcl-trivial-features)))
(native-inputs (native-inputs
`(("fiveam" ,sbcl-fiveam))) `(("fiveam" ,sbcl-fiveam)))
(arguments
;; TODO: Tests fail, why?
`(#:tests? #f))
(synopsis "Efficient endianness conversion for Common Lisp") (synopsis "Efficient endianness conversion for Common Lisp")
(description "This Common Lisp library provides optimized byte-swapping (description "This Common Lisp library provides optimized byte-swapping
primitives. The library can change endianness of unsigned integers of length primitives. The library can change endianness of unsigned integers of length
@ -6874,8 +6872,8 @@ compression/decompression using bindings to the lzlib C library.")
(sbcl-package->ecl-package sbcl-lzlib)) (sbcl-package->ecl-package sbcl-lzlib))
(define-public sbcl-chanl (define-public sbcl-chanl
(let ((commit "2362b57550c2c9238cc882d03553aaa1040b7340") (let ((commit "56e90a126c78b39bb621a01585e8d3b985238e8c")
(revision "0")) (revision "1"))
(package (package
(name "sbcl-chanl") (name "sbcl-chanl")
(version (git-version "0.4.1" revision commit)) (version (git-version "0.4.1" revision commit))
@ -6888,7 +6886,7 @@ compression/decompression using bindings to the lzlib C library.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0ag3wz7yrqwp0s5069wwda98z3rrqd25spg8sa8rdqghj084w28w")))) "0b1cf6c12qx5cy1fw2z42jgh566rp3l8nv5qf0qqc569s7bgmrh4"))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(native-inputs (native-inputs
`(("fiveam" ,sbcl-fiveam))) `(("fiveam" ,sbcl-fiveam)))
@ -6906,26 +6904,7 @@ threads.")
(sbcl-package->cl-source-package sbcl-chanl)) (sbcl-package->cl-source-package sbcl-chanl))
(define-public ecl-chanl (define-public ecl-chanl
(let ((base (sbcl-package->ecl-package sbcl-chanl))) (sbcl-package->ecl-package sbcl-chanl))
(package
(inherit base)
(arguments
(substitute-keyword-arguments (package-arguments base)
;; The CHANL.ACTORS package uses the :ARGUMENTS option of
;; DEFINE-METHOD-COMBINATION, which is not implemented in ECL yet
;; (see https://gitlab.com/embeddable-common-lisp/ecl/issues/305).
;; So let's disable it for now, as it allows compiling the library
;; and using the rest of it.
((#:phases phases '%standard-phases)
`(modify-phases ,phases
(add-after 'unpack 'disable-chanl-actors
(lambda _
(substitute* "chanl.asd"
(("\\(:file \"actors\"\\)") ""))
#t))))
;; Disable the tests for now, as the SEND-SEQUENCE test seems to
;; never end.
((#:tests? _ #f) #f))))))
(define-public sbcl-cl-store (define-public sbcl-cl-store
(let ((commit "c787337a16ea8cf8a06227f35933a4ec774746b3") (let ((commit "c787337a16ea8cf8a06227f35933a4ec774746b3")
@ -7435,7 +7414,7 @@ interactive development.")
("metabang-bind" ,sbcl-metabang-bind) ("metabang-bind" ,sbcl-metabang-bind)
("named-readtables" ,sbcl-named-readtables))) ("named-readtables" ,sbcl-named-readtables)))
(arguments (arguments
'(#:test-asd-file "graph.test.asd")) '(#:test-asd-file "graph-test.asd"))
(synopsis "Graph data structure and algorithms for Common Lisp") (synopsis "Graph data structure and algorithms for Common Lisp")
(description (description
"The GRAPH Common Lisp library provides a data structures to represent "The GRAPH Common Lisp library provides a data structures to represent
@ -7460,7 +7439,7 @@ path, maximum flow, minimum spanning tree, etc.).")
("named-readtables" ,sbcl-named-readtables))) ("named-readtables" ,sbcl-named-readtables)))
(arguments (arguments
(substitute-keyword-arguments (package-arguments sbcl-graph) (substitute-keyword-arguments (package-arguments sbcl-graph)
((#:asd-file _ "") "graph.dot.asd") ((#:asd-file _ "") "graph-dot.asd")
((#:asd-system-name _ #f) "graph-dot"))) ((#:asd-system-name _ #f) "graph-dot")))
(synopsis "Serialize graphs to and from DOT format"))) (synopsis "Serialize graphs to and from DOT format")))
@ -7477,7 +7456,7 @@ path, maximum flow, minimum spanning tree, etc.).")
("yason" ,sbcl-yason))) ("yason" ,sbcl-yason)))
(arguments (arguments
(substitute-keyword-arguments (package-arguments sbcl-graph) (substitute-keyword-arguments (package-arguments sbcl-graph)
((#:asd-file _ "") "graph.json.asd") ((#:asd-file _ "") "graph-json.asd")
((#:asd-system-name _ #f) "graph-json"))) ((#:asd-system-name _ #f) "graph-json")))
(synopsis "Serialize graphs to and from JSON format"))) (synopsis "Serialize graphs to and from JSON format")))
@ -10043,3 +10022,183 @@ ones.")
(define-public ecl-nodgui (define-public ecl-nodgui
(sbcl-package->ecl-package sbcl-nodgui)) (sbcl-package->ecl-package sbcl-nodgui))
(define-public sbcl-salza2
(package
(name "sbcl-salza2")
(version "2.0.9")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/xach/salza2.git")
(commit (string-append "release-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0p38rj4gq7j5k807php7hrz7l2zyyfshv8i9yms7i8lkgg3433ki"))))
(build-system asdf-build-system/sbcl)
(synopsis "Common Lisp library for zlib, deflate and gzip compression")
(description
"Salza2 is a Common Lisp library for creating compressed data in the zlib,
deflate, or gzip data formats, described in RFC 1950, RFC 1951, and RFC 1952,
respectively.")
(home-page "https://www.xach.com/lisp/salza2/")
(license license:bsd-2)))
(define-public cl-salza2
(sbcl-package->cl-source-package sbcl-salza2))
(define-public ecl-salza2
(sbcl-package->ecl-package sbcl-salza2))
(define-public sbcl-png-read
(let ((commit "ec29f38a689972b9f1373f13bbbcd6b05deada88")
(revision "1"))
(package
(name "sbcl-png-read")
(version (git-version "0.3.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Ramarren/png-read.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0vyczbcwskrygrf1hgrsnk0jil8skmvf1kiaalw5jps4fjrfdkw0"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("babel" ,sbcl-babel)
("chipz" ,sbcl-chipz)
("iterate" ,sbcl-iterate)))
(synopsis "PNG decoder for Common Lisp")
(description "This is a Common Lisp library for reading PNG images.")
(home-page "https://github.com/Ramarren/png-read")
(license license:bsd-3))))
(define-public cl-png-read
(sbcl-package->cl-source-package sbcl-png-read))
(define-public ecl-png-read
(sbcl-package->ecl-package sbcl-png-read))
(define-public sbcl-zpng
(package
(name "sbcl-zpng")
(version "1.2.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/xach/zpng.git")
(commit (string-append "release-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0b3ag3jhl3z7kdls3ahdsdxsfhhw5qrizk769984f4wkxhb69rcm"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("salza2" ,sbcl-salza2)))
(synopsis "PNG encoder for Common Lisp")
(description "This is a Common Lisp library for creating PNG images.")
(home-page "https://www.xach.com/lisp/zpng/")
(license license:bsd-2)))
(define-public cl-zpng
(sbcl-package->cl-source-package sbcl-zpng))
(define-public ecl-zpng
(sbcl-package->ecl-package sbcl-zpng))
(define-public sbcl-cl-qrencode
(package
(name "sbcl-cl-qrencode")
(version "0.1.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jnjcc/cl-qrencode.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1l5k131dchbf6cj8a8xqa731790p01p3qa1kdy2wa9dawy3ymkxr"))))
(build-system asdf-build-system/sbcl)
(native-inputs
`(("lisp-unit" ,sbcl-lisp-unit)))
(inputs
`(("zpng" ,sbcl-zpng)))
(synopsis "QR code encoder for Common Lisp")
(description
"This Common Lisp library provides function to make QR codes and to save
them as PNG files.")
(home-page "https://github.com/jnjcc/cl-qrencode")
(license license:gpl2+)))
(define-public cl-qrencode
(sbcl-package->cl-source-package sbcl-cl-qrencode))
(define-public ecl-cl-qrencode
(sbcl-package->ecl-package sbcl-cl-qrencode))
(define-public sbcl-hdf5-cffi
(let ((commit "5b5c88f191e470e4fe96b462334e3ce0806eed5c")
(revision "1"))
(package
(name "sbcl-hdf5-cffi")
(version (git-version "1.8.18" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hdfgroup/hdf5-cffi.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0vda3075423xz83qky998lpac5b04dwfv7bwgh9jq8cs5v0zrxjf"))))
(build-system asdf-build-system/sbcl)
(synopsis "Common Lisp bindings for the HDF5 library")
(description
"@code{hdf5-cffi} is a CFFI wrapper for the HDF5 library.")
(home-page "https://github.com/hdfgroup/hdf5-cffi")
(license (license:non-copyleft
(string-append "https://github.com/HDFGroup/hdf5-cffi/raw/"
commit
"/LICENSE")))
(inputs
`(("cffi" ,sbcl-cffi)
("cffi-grovel" ,sbcl-cffi-grovel)
("hdf5" ,hdf5-1.10)))
(native-inputs
`(("fiveam" ,sbcl-fiveam)))
(arguments
`(#:asd-system-name "hdf5-cffi"
#:asd-file "hdf5-cffi.asd"
#:test-asd-file "hdf5-cffi.test.asd"
;; Tests depend on hdf5-cffi.examples.asd in addition to hdf5-cffi.asd,
;; I don't know if there is a way to tell asdf-build-system to load
;; an additional system first, so tests are disabled.
#:tests? #f
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/library.lisp"
(("libhdf5.so")
(string-append
(assoc-ref inputs "hdf5")
"/lib/libhdf5.so")))))
(add-after 'unpack 'fix-dependencies
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "hdf5-cffi.asd"
((":depends-on \\(:cffi\\)")
":depends-on (:cffi :cffi-grovel)"))
(substitute* "hdf5-cffi.test.asd"
((":depends-on \\(:cffi :hdf5-cffi")
":depends-on (:cffi :cffi-grovel :hdf5-cffi"))))))))))
(define-public cl-hdf5-cffi
(sbcl-package->cl-source-package sbcl-hdf5-cffi))
(define-public ecl-hdf5-cffi
(sbcl-package->ecl-package sbcl-hdf5-cffi))

10
gnu/packages/lxqt.scm
View File

@ -8,6 +8,7 @@
;;; Copyright © 2018, 2019 Meiyo Peng <meiyo@riseup.net> ;;; Copyright © 2018, 2019 Meiyo Peng <meiyo@riseup.net>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019, 2020 Reza Alizadeh Majd <r.majd@pantherx.org> ;;; Copyright © 2019, 2020 Reza Alizadeh Majd <r.majd@pantherx.org>
;;; Copyright © 2020 Fakhri Sajadi <f.sajadi@pantherx.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -379,6 +380,7 @@ the operating system LXQt is running on.")
("qtx11extras" ,qtx11extras) ("qtx11extras" ,qtx11extras)
("solid" ,solid) ("solid" ,solid)
("xf86-input-libinput" ,xf86-input-libinput) ("xf86-input-libinput" ,xf86-input-libinput)
("xkeyboard-config" ,xkeyboard-config)
("zlib" ,zlib))) ("zlib" ,zlib)))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
@ -394,6 +396,14 @@ the operating system LXQt is running on.")
(("DESTINATION \"\\$\\{LXQT_ETC_XDG_DIR\\}") (("DESTINATION \"\\$\\{LXQT_ETC_XDG_DIR\\}")
"DESTINATION \"etc/xdg")) "DESTINATION \"etc/xdg"))
#t)) #t))
(add-after 'unpack 'set-xkeyboard-config-file-name
(lambda* (#:key inputs #:allow-other-keys)
;; Set the file name to xkeyboard-config.
(let ((xkb (assoc-ref inputs "xkeyboard-config")))
(substitute* "lxqt-config-input/keyboardlayoutconfig.h"
(("/usr/share/X11/xkb/rules/base.lst")
(string-append xkb "/share/X11/xkb/rules/base.lst")))
#t)))
(add-after 'unpack 'patch-translations-dir (add-after 'unpack 'patch-translations-dir
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(substitute* '("lxqt-config-file-associations/CMakeLists.txt" (substitute* '("lxqt-config-file-associations/CMakeLists.txt"

7
gnu/packages/mail.scm
View File

@ -397,9 +397,11 @@ aliasing facilities to work just as they would on normal mail.")
`(("cyrus-sasl" ,cyrus-sasl) `(("cyrus-sasl" ,cyrus-sasl)
("gdbm" ,gdbm) ("gdbm" ,gdbm)
("gpgme" ,gpgme) ("gpgme" ,gpgme)
("libidn2" ,libidn2)
("ncurses" ,ncurses) ("ncurses" ,ncurses)
("openssl" ,openssl) ("openssl" ,openssl)
("perl" ,perl))) ("perl" ,perl)
("sqlite" ,sqlite)))
(arguments (arguments
`(#:configure-flags '("--enable-smtp" `(#:configure-flags '("--enable-smtp"
"--enable-imap" "--enable-imap"
@ -407,8 +409,11 @@ aliasing facilities to work just as they would on normal mail.")
"--enable-gpgme" "--enable-gpgme"
"--enable-hcache" ; for header caching "--enable-hcache" ; for header caching
"--enable-sidebar" "--enable-sidebar"
"--enable-autocrypt"
"--with-ssl" "--with-ssl"
"--with-sasl" "--with-sasl"
"--with-sqlite3" ; required for Autocrypt
"--with-idn2" ; recommended for Autocrypt
;; so that mutt does not check whether the path ;; so that mutt does not check whether the path
;; exists, which it does not in the chroot ;; exists, which it does not in the chroot
"--with-mailpath=/var/mail"))) "--with-mailpath=/var/mail")))

20
gnu/packages/music.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2019 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2014, 2019 Eric Bavier <bavier@member.fsf.org>
;;; 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 Paul van der Walt <paul@denknerd.org> ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
;;; Copyright © 2016 Al McElrath <hello@yrns.org> ;;; Copyright © 2016 Al McElrath <hello@yrns.org>
;;; Copyright © 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il>
@ -2213,7 +2213,7 @@ capabilities, custom envelopes, effects, etc.")
(define-public yoshimi (define-public yoshimi
(package (package
(name "yoshimi") (name "yoshimi")
(version "1.6.1") (version "1.7.0.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://sourceforge/yoshimi/" (uri (string-append "mirror://sourceforge/yoshimi/"
@ -2221,7 +2221,7 @@ capabilities, custom envelopes, effects, etc.")
"/yoshimi-" version ".tar.bz2")) "/yoshimi-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"1shnz429zgl0b4y5bpb61frk1747jwqfahq4hx44c972580zghzh")))) "1pkqrrr51vlxh96vy0c0rf5ijjvymys4brsw9rv1bdp1bb8izw6c"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:tests? #f ; there are no tests `(#:tests? #f ; there are no tests
@ -5142,7 +5142,7 @@ and as an LV2 plugin.")
(define-public zrythm (define-public zrythm
(package (package
(name "zrythm") (name "zrythm")
(version "0.7.345") (version "0.7.474")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -5150,13 +5150,21 @@ and as an LV2 plugin.")
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"1csiwq38a1ckx23lairfpl7qjkz71wsa7a9vsxl3k58f9ybibiil")))) "0qq9v8y27zhamcb7nq7pl76874ws8x8cxhp5r685b8binvl9p0az"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
`(#:glib-or-gtk? #t `(#:glib-or-gtk? #t
#:configure-flags #:configure-flags
`("-Denable_tests=true" "-Dmanpage=true" `("-Denable_tests=true" "-Dmanpage=true"
"-Dinstall_dseg_font=false" "-Denable_ffmpeg=true"))) "-Dinstall_dseg_font=false" "-Denable_ffmpeg=true")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-xdg-open
(lambda _
(substitute* "src/utils/io.c"
(("OPEN_DIR_CMD")
(string-append "\"" (which "xdg-open") "\"")))
#t)))))
(inputs (inputs
`(("alsa-lib" ,alsa-lib) `(("alsa-lib" ,alsa-lib)
("jack" ,jack-1) ("jack" ,jack-1)

69
gnu/packages/patches/qemu-CVE-2020-1711.patch Normal file
View File

@ -0,0 +1,69 @@
Fix CVE-2020-1711:
https://cve.mitre.org/cgi-bin/cvename.cgi?name=CVE-2020-1711
Patch copied from upstream source repository:
https://git.qemu.org/?p=qemu.git;a=commitdiff;h=693fd2acdf14dd86c0bf852610f1c2cca80a74dc
From 693fd2acdf14dd86c0bf852610f1c2cca80a74dc Mon Sep 17 00:00:00 2001
From: Felipe Franciosi <felipe@nutanix.com>
Date: Thu, 23 Jan 2020 12:44:59 +0000
Subject: [PATCH] iscsi: Cap block count from GET LBA STATUS (CVE-2020-1711)
When querying an iSCSI server for the provisioning status of blocks (via
GET LBA STATUS), Qemu only validates that the response descriptor zero's
LBA matches the one requested. Given the SCSI spec allows servers to
respond with the status of blocks beyond the end of the LUN, Qemu may
have its heap corrupted by clearing/setting too many bits at the end of
its allocmap for the LUN.
A malicious guest in control of the iSCSI server could carefully program
Qemu's heap (by selectively setting the bitmap) and then smash it.
This limits the number of bits that iscsi_co_block_status() will try to
update in the allocmap so it can't overflow the bitmap.
Fixes: CVE-2020-1711
Cc: qemu-stable@nongnu.org
Signed-off-by: Felipe Franciosi <felipe@nutanix.com>
Signed-off-by: Peter Turschmid <peter.turschm@nutanix.com>
Signed-off-by: Raphael Norwitz <raphael.norwitz@nutanix.com>
Signed-off-by: Kevin Wolf <kwolf@redhat.com>
---
block/iscsi.c | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/block/iscsi.c b/block/iscsi.c
index 2aea7e3f13..cbd57294ab 100644
--- a/block/iscsi.c
+++ b/block/iscsi.c
@@ -701,7 +701,7 @@ static int coroutine_fn iscsi_co_block_status(BlockDriverState *bs,
struct scsi_get_lba_status *lbas = NULL;
struct scsi_lba_status_descriptor *lbasd = NULL;
struct IscsiTask iTask;
- uint64_t lba;
+ uint64_t lba, max_bytes;
int ret;
iscsi_co_init_iscsitask(iscsilun, &iTask);
@@ -721,6 +721,7 @@ static int coroutine_fn iscsi_co_block_status(BlockDriverState *bs,
}
lba = offset / iscsilun->block_size;
+ max_bytes = (iscsilun->num_blocks - lba) * iscsilun->block_size;
qemu_mutex_lock(&iscsilun->mutex);
retry:
@@ -764,7 +765,7 @@ retry:
goto out_unlock;
}
- *pnum = (int64_t) lbasd->num_blocks * iscsilun->block_size;
+ *pnum = MIN((int64_t) lbasd->num_blocks * iscsilun->block_size, max_bytes);
if (lbasd->provisioning == SCSI_PROVISIONING_TYPE_DEALLOCATED ||
lbasd->provisioning == SCSI_PROVISIONING_TYPE_ANCHORED) {
--
2.25.0

12
gnu/packages/patches/sbcl-graph-asdf-definitions.patch
View File

@ -24,11 +24,11 @@ index 193b6e3..56afc8f 100644
-(register-system-packages "femlisp-matlisp" '(:fl.matlisp)) -(register-system-packages "femlisp-matlisp" '(:fl.matlisp))
+ cl-heap) + cl-heap)
+ :components ((:file "graph"))) + :components ((:file "graph")))
diff --git a/graph.dot.asd b/graph.dot.asd diff --git a/graph-dot.asd b/graph-dot.asd
new file mode 100644 new file mode 100644
index 0000000..12aec7e index 0000000..12aec7e
--- /dev/null --- /dev/null
+++ b/graph.dot.asd +++ b/graph-dot.asd
@@ -0,0 +1,8 @@ @@ -0,0 +1,8 @@
+(defsystem :graph-dot +(defsystem :graph-dot
+ :depends-on (alexandria + :depends-on (alexandria
@ -38,11 +38,11 @@ index 0000000..12aec7e
+ cl-ppcre + cl-ppcre
+ graph) + graph)
+ :components ((:file "dot"))) + :components ((:file "dot")))
diff --git a/graph.json.asd b/graph.json.asd diff --git a/graph-json.asd b/graph-json.asd
new file mode 100644 new file mode 100644
index 0000000..e7d091f index 0000000..e7d091f
--- /dev/null --- /dev/null
+++ b/graph.json.asd +++ b/graph-json.asd
@@ -0,0 +1,8 @@ @@ -0,0 +1,8 @@
+(defsystem :graph-json +(defsystem :graph-json
+ :depends-on (alexandria + :depends-on (alexandria
@ -52,11 +52,11 @@ index 0000000..e7d091f
+ yason + yason
+ graph) + graph)
+ :components ((:file "json"))) + :components ((:file "json")))
diff --git a/graph.test.asd b/graph.test.asd diff --git a/graph-test.asd b/graph-test.asd
new file mode 100644 new file mode 100644
index 0000000..1e811e1 index 0000000..1e811e1
--- /dev/null --- /dev/null
+++ b/graph.test.asd +++ b/graph-test.asd
@@ -0,0 +1,10 @@ @@ -0,0 +1,10 @@
+(defsystem :graph-test +(defsystem :graph-test
+ :depends-on (alexandria + :depends-on (alexandria

37
gnu/packages/pulseaudio.scm
View File

@ -9,6 +9,7 @@
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2018 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2019 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2019 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2020 Amin Bandali <mab@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -37,6 +38,7 @@
#:use-module (gnu packages audio) #:use-module (gnu packages audio)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
#:use-module (gnu packages avahi) #:use-module (gnu packages avahi)
#:use-module (gnu packages boost)
#:use-module (gnu packages check) #:use-module (gnu packages check)
#:use-module (gnu packages dbm) #:use-module (gnu packages dbm)
#:use-module (gnu packages glib) #:use-module (gnu packages glib)
@ -365,3 +367,38 @@ install one or more of the following packages alongside pulseaudio-dlna:
@item vorbis-tools - Vorbis transcoding support @item vorbis-tools - Vorbis transcoding support
@end itemize") @end itemize")
(license l:gpl3+)))) (license l:gpl3+))))
(define-public pamixer
(package
(name "pamixer")
(version "1.4")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/cdemoulins/pamixer.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1i14550n8paijwwnhksv5izgfqm3s5q2773bdfp6vyqybkll55f7"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; There is no test suite.
#:make-flags
(list (string-append "PREFIX=" (assoc-ref %outputs "out")))
#:phases
(modify-phases %standard-phases
(delete 'configure) ; There's no configure phase.
(add-before 'install 'mkdir-bin
(lambda _
(mkdir-p (string-append (assoc-ref %outputs "out") "/bin"))
#t)))))
(inputs
`(("boost" ,boost)
("pulseaudio" ,pulseaudio)))
(home-page "https://github.com/cdemoulins/pamixer")
(synopsis "PulseAudio command line mixer")
(description
"pamixer is like amixer but for PulseAudio, allowing easy control of the
volume levels of the sinks (get, set, decrease, increase, toggle mute, etc).")
(license l:gpl3+)))

79
gnu/packages/python-web.scm
View File

@ -31,6 +31,7 @@
;;; Copyright © 2019 Brendan Tildesley <mail@brendan.scot> ;;; Copyright © 2019 Brendan Tildesley <mail@brendan.scot>
;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org> ;;; Copyright © 2019 Tanguy Le Carrour <tanguy@bioneland.org>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -3494,3 +3495,81 @@ is part of the Weblate translation platform.")
(description "This package provides an extended library for interacting (description "This package provides an extended library for interacting
with GitLab instances through their API.") with GitLab instances through their API.")
(license license:lgpl3+))) (license license:lgpl3+)))
(define-public python-path-and-address
(package
(name "python-path-and-address")
(version "2.0.1")
(source
(origin
;; The source distributed on PyPI doesn't include tests.
(method git-fetch)
(uri (git-reference
(url "https://github.com/joeyespo/path-and-address")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0b0afpsaim06mv3lhbpm8fmawcraggc11jhzr6h72kdj1cqjk5h6"))))
(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 "py.test"))))))
(native-inputs
`(("python-pytest" ,python-pytest)))
(home-page "https://github.com/joeyespo/path-and-address")
(synopsis "Functions for command-line server tools used by humans")
(description "Path-and-address resolves ambiguities of command-line
interfaces, inferring which argument is the path, and which is the address.")
(license license:expat)))
(define-public grip
;; No release by upstream for quite some time, some bugs fixed since. See:
;; https://github.com/joeyespo/grip/issues/304
(let ((commit "27a4d6d87ea1d0ea7f7f120de55baabee3de73e3"))
(package
(name "grip")
(version (git-version "4.5.2" "1" commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/joeyespo/grip")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0kx5hgb3q19i4l18a4vqdq9af390xgpk88lp2ay75qi96k0dc68w"))))
(build-system python-build-system)
(propagated-inputs
`(("python-docopt" ,python-docopt)
("python-flask" ,python-flask)
("python-markdown" ,python-markdown)
("python-path-and-address" ,python-path-and-address)
("python-pygments" ,python-pygments)
("python-requests" ,python-requests)))
(native-inputs
`(("python-pytest" ,python-pytest)
("python-responses" ,python-responses)))
(arguments
`(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda* (#:key inputs outputs #:allow-other-keys)
(add-installed-pythonpath inputs outputs)
(setenv "PATH" (string-append
(getenv "PATH") ":"
(assoc-ref %outputs "out") "/bin"))
(invoke "py.test" "-m" "not assumption"))))))
(home-page "https://github.com/joeyespo/grip")
(synopsis "Preview Markdown files using the GitHub API")
(description "Grip is a command-line server application written in Python
that uses the GitHub Markdown API to render a local Markdown file. The styles
and rendering come directly from GitHub, so you'll know exactly how it will
appear. Changes you make to the file will be instantly reflected in the browser
without requiring a page refresh.")
(license license:expat))))

17
gnu/packages/python-xyz.scm
View File

@ -3079,14 +3079,14 @@ Server (PLS).")
(define-public python-language-server (define-public python-language-server
(package (package
(name "python-language-server") (name "python-language-server")
(version "0.31.6") (version "0.31.7")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "python-language-server" version)) (uri (pypi-uri "python-language-server" version))
(sha256 (sha256
(base32 (base32
"0cqrffd5272p2hifa35rf1h1g6dss741jmjkwa43jninifmbz0df")))) "0f8rljff4h2ay9m2n9ang7axai37nzd39zd7m6c90rci5wh8cmxh"))))
(build-system python-build-system) (build-system python-build-system)
(propagated-inputs (propagated-inputs
`(("python-pluggy" ,python-pluggy) `(("python-pluggy" ,python-pluggy)
@ -10432,13 +10432,13 @@ Wikipedia code samples at
(define-public python-cleo (define-public python-cleo
(package (package
(name "python-cleo") (name "python-cleo")
(version "0.6.8") (version "0.7.6")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "cleo" version)) (uri (pypi-uri "cleo" version))
(sha256 (sha256
(base32 (base32
"06zp695hq835rkaq6irr1ds1dp2qfzyf32v60vxpd8rcnxv319l5")))) "02dlc0rn43zgvw0s5v4j80bca9n1jfpwy3r78gn9qjgk0qj39kwr"))))
(build-system python-build-system) (build-system python-build-system)
(native-inputs (native-inputs
`( ;; For testing `( ;; For testing
@ -10447,6 +10447,7 @@ Wikipedia code samples at
("python-pytest" ,python-pytest))) ("python-pytest" ,python-pytest)))
(propagated-inputs (propagated-inputs
`(("python-backpack" ,python-backpack) `(("python-backpack" ,python-backpack)
("python-clikit" ,python-clikit)
("python-pastel" ,python-pastel) ("python-pastel" ,python-pastel)
("python-pylev" ,python-pylev))) ("python-pylev" ,python-pylev)))
(home-page "https://github.com/sdispater/cleo") (home-page "https://github.com/sdispater/cleo")
@ -10462,14 +10463,14 @@ docstring and colored output.")
(define-public python-tomlkit (define-public python-tomlkit
(package (package
(name "python-tomlkit") (name "python-tomlkit")
(version "0.5.7") (version "0.5.8")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "tomlkit" version)) (uri (pypi-uri "tomlkit" version))
(sha256 (sha256
(base32 (base32
"18820ga5z3if1w8dvykxrfm000akracq01ic402xrbljgbn5grn4")))) "0sf2a4q61kf344hjbw8kb6za1hlccl89j9lzqw0l2zpddp0hrh9j"))))
(build-system python-build-system) (build-system python-build-system)
(native-inputs (native-inputs
`(("python-pytest" ,python-pytest))) `(("python-pytest" ,python-pytest)))
@ -10529,14 +10530,14 @@ more, possibly remote, memcached servers.")
(define-public python-clikit (define-public python-clikit
(package (package
(name "python-clikit") (name "python-clikit")
(version "0.2.4") (version "0.4.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "clikit" version)) (uri (pypi-uri "clikit" version))
(sha256 (sha256
(base32 (base32
"0dc8czib5f4j9px1ivcpqnmivnx2zjpc0xb00ldrhsqylks7r06n")))) "10gab65pq0jdf589n33sj2513pxal2lisl4xwf1ijysdjxmpdr4a"))))
(build-system python-build-system) (build-system python-build-system)
(propagated-inputs (propagated-inputs
`(("python-pastel" ,python-pastel) `(("python-pastel" ,python-pastel)

26
gnu/packages/samba.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org> ;;; Copyright © 2016 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017, 2018 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017, 2018, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
@ -423,26 +423,16 @@ key-value pair databases and a real LDAP database.")
(define-public ppp (define-public ppp
(package (package
(name "ppp") (name "ppp")
(version "2.4.7") (version "2.4.8")
(source (origin (source (origin
(method url-fetch) (method git-fetch)
(uri (string-append "https://www.samba.org/ftp/ppp/ppp-" (uri (git-reference
version ".tar.gz")) (url "https://github.com/paulusmack/ppp")
(patches (commit (string-append "ppp-" version))))
(list (origin (file-name (git-file-name name version))
;; Use OpenSSL for cryptography instead of the obsolete glibc
;; crypto functions that were removed in glibc 2.28.
(method url-fetch)
(uri (string-append "https://github.com/paulusmack/ppp/commit/"
"3c7b86229f7bd2600d74db14b1fe5b3896be3875"
".patch"))
(file-name "ppp-use-openssl-crypto.patch")
(sha256
(base32
"0qlbi247lx3injpy8a1gcij9yilik0vfaibkpvdp88k3sa1rs69z")))))
(sha256 (sha256
(base32 (base32
"0c7vrjxl52pdwi4ckrvfjr08b31lfpgwf3pp0cqy76a77vfs7q02")))) "1i88m79h6g3fzsb4yw3k8bq1grsx3hsyawm7id2vcaab0gfqzjjv"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:tests? #f ; no check target '(#:tests? #f ; no check target

3
gnu/packages/sdr.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Christopher Howard <christopher@librehacker.com> ;;; Copyright © 2019 Christopher Howard <christopher@librehacker.com>
;;; Copyright © 2019, 2020 Evan Straw <evan.straw99@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -19,11 +20,9 @@
(define-module (gnu packages sdr) (define-module (gnu packages sdr)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (gnu packages)
#:use-module (gnu packages algebra) #:use-module (gnu packages algebra)
#:use-module (gnu packages autotools)) #:use-module (gnu packages autotools))

11
gnu/packages/stb.scm
View File

@ -101,3 +101,14 @@ decoding from file or memory. A variety of formats are supported."))
"stb-image-write" "1.13" "stb-image-write" "1.13"
"stb-image-write is a small library for writing image files to the "stb-image-write is a small library for writing image files to the
C@tie{}@code{stdio} interface.")) C@tie{}@code{stdio} interface."))
(define-public stb-sprintf
(make-stb-header-package
"stb-sprintf" "1.06"
"stb-sprintf implements fast @code{sprintf}, @code{snprintf} for C/C++."))
(define-public stb-truetype
(make-stb-header-package
"stb-truetype" "1.22"
"stb-truetype is a library for parsing, decoding, and rasterizing
characters from TrueType fonts."))

6
gnu/packages/tor.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017, 2018, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017 ng0 <ng0@n0.is> ;;; Copyright © 2016, 2017 ng0 <ng0@n0.is>
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018, 2019 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2017, 2018, 2019 Eric Bavier <bavier@member.fsf.org>
@ -50,14 +50,14 @@
(define-public tor (define-public tor
(package (package
(name "tor") (name "tor")
(version "0.4.2.5") (version "0.4.2.6")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://dist.torproject.org/tor-" (uri (string-append "https://dist.torproject.org/tor-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1hnqg6psf7shcmlvfk44mkpaz7v66mify3cnx7mzl23q5s37anad")))) "1i766s211nrbjvwvkd2375mjsbbc28yrg46564rbx6w46cj10005"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)

149
gnu/packages/unicode.scm Normal file
View File

@ -0,0 +1,149 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Leo Prikler <leo.prikler@student.tugraz.at>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages unicode)
#:use-module (guix licenses)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix utils)
#:use-module (guix build-system trivial))
(define-public ucd
(package
(name "ucd")
(version "12.0.0")
(source
(origin
(method url-fetch/zipbomb)
(uri (string-append "https://www.unicode.org/Public/zipped/" version
"/UCD.zip"))
(sha256
(base32
"1ighy39cjkmqnv1797wrxjz76mv1fdw7zp5j04q55bkwxsdkvrmh"))))
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils))
#:builder
(let ((out (string-append %output "/share/ucd")))
(use-modules (guix build utils))
(mkdir-p out)
(copy-recursively (assoc-ref %build-inputs "source") out)
#t)))
(home-page "https://www.unicode.org")
(synopsis "Unicode Character Database")
(description
"The @dfn{Unicode Character Database} (UCD) consists of a number of data
files listing Unicode character properties and related data. It also includes
test data for conformance to several important Unicode algorithms.")
(license unicode)))
(define (unicode-emoji-file name version hash)
(origin
(method url-fetch)
(uri (string-append "https://www.unicode.org/Public/emoji/"
version
"/emoji-" name ".txt"))
(sha256 (base32 hash))))
(define-public unicode-emoji
(package
(name "unicode-emoji")
(version "12.0")
(source #f)
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils))
#:builder
(let ((out (string-append %output "/share/unicode/emoji")))
(use-modules (guix build utils))
(mkdir-p out)
(for-each
(lambda (input)
(copy-file
(cdr input)
(string-append out "/"
(substring (car input) 8) ; strip "unicode-"
".txt")))
%build-inputs)
#t)))
(inputs
`(("unicode-emoji-data"
,(unicode-emoji-file
"data" version
"03sf7h1d6kb9m5s02lif88jsi5kjszpkfvcymaqxj8ds70ar9pgv"))
("unicode-emoji-sequences"
,(unicode-emoji-file
"sequences" version
"1hghki2rn3n7m4lwpwi2a5wrsf2nij4bxga9ldabx4g0g2k23svs"))
("unicode-emoji-test"
,(unicode-emoji-file
"test" version
"1dqd0fh999mh6naj816ni113m9dimfy3ih9nffjq2lrv9mmlgdck"))
("unicode-emoji-variation-sequences"
,(unicode-emoji-file
"variation-sequences" version
"1cccwx5bl79w4c19vi5dhjqxrph92s8hihp9y8s2cqvdzmgbln7a"))
("unicode-emoji-zwj-sequences"
,(unicode-emoji-file
"zwj-sequences" version
"1l791nbijmmhwa7kmvfn8gp26ban512l6mgqpz1mnbq3xm19181n"))))
(home-page "https://www.unicode.org")
(synopsis "Unicode Emoji data")
(description
"This package includes data files listing characters and sequences, that
Unicode emoji supporting fonts or keyboards should support according to the
Unicode Technological Standard #51.")
(license unicode)))
(define-public unicode-cldr-common
(package
(name "unicode-cldr-common")
(version "36.0")
(source
(origin
(method url-fetch/zipbomb)
(uri (string-append "https://unicode.org/Public/cldr/"
(version-major version)
"/cldr-common-" version ".zip"))
(sha256
(base32
"0hxsc3j5zb32hmiaj0r3ajchmklx6zng6zlh1ca6s9plq5b9w9q7"))))
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils))
#:builder
(let ((out (string-append %output "/share/unicode/cldr/common")))
(use-modules (guix build utils))
(mkdir-p out)
(copy-recursively (string-append (assoc-ref %build-inputs "source")
"/common")
out)
#t)))
(home-page "https://www.unicode.org")
(synopsis "Locale data repository")
(description
"The Unicode Common Locale Data Repository (CLDR) is a large repository
of locale data, including among others
@itemize
@item patterns for formatting and parsing,
@item name translations,
@item and various informations on languages, scripts and country-specific
conventions.
@end itemize\n")
(license unicode)))

5
gnu/packages/video.scm
View File

@ -36,6 +36,7 @@
;;; Copyright © 2019 Arne Babenhauserheide <arne_bab@web.de> ;;; Copyright © 2019 Arne Babenhauserheide <arne_bab@web.de>
;;; Copyright © 2019 Riku Viitanen <riku.viitanen@protonmail.com> ;;; Copyright © 2019 Riku Viitanen <riku.viitanen@protonmail.com>
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2020 Josh Holland <josh@inv.alid.pw>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -2182,14 +2183,14 @@ and custom quantization matrices.")
(define-public streamlink (define-public streamlink
(package (package
(name "streamlink") (name "streamlink")
(version "1.3.0") (version "1.3.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "streamlink" version)) (uri (pypi-uri "streamlink" version))
(sha256 (sha256
(base32 (base32
"0593ffjpz82jrljnzxfafkcmcqad3r1ijjan0hm04xjcnxc9cr00")))) "0cnlg3ra3g6dml4xfy9ysy9b4qwyn458fadd8ac44cfwi3v4gq6y"))))
(build-system python-build-system) (build-system python-build-system)
(home-page "https://github.com/streamlink/streamlink") (home-page "https://github.com/streamlink/streamlink")
(native-inputs (native-inputs

3
gnu/packages/virtualization.scm
View File

@ -115,7 +115,8 @@
(method url-fetch) (method url-fetch)
(uri (string-append "https://download.qemu.org/qemu-" (uri (string-append "https://download.qemu.org/qemu-"
version ".tar.xz")) version ".tar.xz"))
(patches (search-patches "qemu-CVE-2020-7039.patch" (patches (search-patches "qemu-CVE-2020-1711.patch"
"qemu-CVE-2020-7039.patch"
"qemu-CVE-2020-7211.patch" "qemu-CVE-2020-7211.patch"
"qemu-fix-documentation-build-failure.patch")) "qemu-fix-documentation-build-failure.patch"))
(sha256 (sha256

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

@ -276,7 +276,7 @@ access.")
(define-public qutebrowser (define-public qutebrowser
(package (package
(name "qutebrowser") (name "qutebrowser")
(version "1.9.0") (version "1.10.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -285,7 +285,7 @@ access.")
"qutebrowser-" version ".tar.gz")) "qutebrowser-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1y0yq1qfr6g1s7kf3w2crd0b025dv2dfknhlz3v0001ns3rgwj17")))) "1prvd3cysmcjfybn0dmr3ih0bl6lm5ml9i7wd09fn8hb7047mkby"))))
(build-system python-build-system) (build-system python-build-system)
(native-inputs (native-inputs
`(("python-attrs" ,python-attrs))) ; for tests `(("python-attrs" ,python-attrs))) ; for tests

83
gnu/packages/web.scm
View File

@ -1,16 +1,16 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2013 Aljosha Papsch <misc@rpapsch.de> ;;; Copyright © 2013 Aljosha Papsch <misc@rpapsch.de>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2014, 2015, 2016 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018 Raoul Jean Pierre Bonnal <ilpuccio.febo@gmail.com> ;;; Copyright © 2018 Raoul Jean Pierre Bonnal <ilpuccio.febo@gmail.com>
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com> ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Eric Bavier <bavier@posteo.net>
;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr> ;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com> ;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2016 Jelle Licht <jlicht@fsfe.org> ;;; Copyright © 2016 Jelle Licht <jlicht@fsfe.org>
;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Rene Saavedra <rennes@openmailbox.org> ;;; Copyright © 2016 Rene Saavedra <rennes@openmailbox.org>
;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com> ;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2016 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2016 Clément Lassieur <clement@lassieur.org>
@ -4612,7 +4612,7 @@ tools they trust (e.g. wget).")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://download.netsurf-browser.org/libs/releases/" (uri (string-append "https://download.netsurf-browser.org/libs/releases/"
"buildsystem-" version ".tar.gz")) "buildsystem-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
@ -4625,7 +4625,7 @@ tools they trust (e.g. wget).")
#:phases (modify-phases %standard-phases #:phases (modify-phases %standard-phases
(delete 'configure) (delete 'configure)
(delete 'build)))) (delete 'build))))
(home-page "http://www.netsurf-browser.org") (home-page "https://www.netsurf-browser.org")
(synopsis "Build system for the Netsurf project") (synopsis "Build system for the Netsurf project")
(description (description
"This package provides the shared build system for Netsurf project "This package provides the shared build system for Netsurf project
@ -4651,7 +4651,7 @@ libraries.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://download.netsurf-browser.org/libs/releases/" (uri (string-append "https://download.netsurf-browser.org/libs/releases/"
name "-" version "-src.tar.gz")) name "-" version "-src.tar.gz"))
(sha256 (sha256
(base32 (base32
@ -4662,7 +4662,7 @@ libraries.")
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
("perl" ,perl))) ;for test harness ("perl" ,perl))) ;for test harness
(arguments netsurf-buildsystem-arguments) (arguments netsurf-buildsystem-arguments)
(home-page "http://www.netsurf-browser.org/projects/libparserutils/") (home-page "https://www.netsurf-browser.org/projects/libparserutils/")
(synopsis "Parser building library") (synopsis "Parser building library")
(description (description
"LibParserUtils is a library for building efficient parsers, written in "LibParserUtils is a library for building efficient parsers, written in
@ -4676,7 +4676,7 @@ C. It is developed as part of the NetSurf project.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://download.netsurf-browser.org/libs/releases/" (uri (string-append "https://download.netsurf-browser.org/libs/releases/"
"libhubbub-" version "-src.tar.gz")) "libhubbub-" version "-src.tar.gz"))
(sha256 (sha256
(base32 (base32
@ -4692,7 +4692,7 @@ C. It is developed as part of the NetSurf project.")
(propagated-inputs (propagated-inputs
`(("libparserutils" ,libparserutils))) ;for libhubbub.pc `(("libparserutils" ,libparserutils))) ;for libhubbub.pc
(arguments netsurf-buildsystem-arguments) (arguments netsurf-buildsystem-arguments)
(home-page "http://www.netsurf-browser.org/projects/hubbub/") (home-page "https://www.netsurf-browser.org/projects/hubbub/")
(synopsis "HTML5 compliant parsing library") (synopsis "HTML5 compliant parsing library")
(description (description
"Hubbub is an HTML5 compliant parsing library, written in C, which can "Hubbub is an HTML5 compliant parsing library, written in C, which can
@ -4782,7 +4782,7 @@ commenting.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://download.netsurf-browser.org/libs/releases/" (uri (string-append "https://download.netsurf-browser.org/libs/releases/"
"libwapcaplet-" version "-src.tar.gz")) "libwapcaplet-" version "-src.tar.gz"))
(sha256 (sha256
(base32 (base32
@ -4793,7 +4793,7 @@ commenting.")
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
("check" ,check))) ;for tests ("check" ,check))) ;for tests
(arguments netsurf-buildsystem-arguments) (arguments netsurf-buildsystem-arguments)
(home-page "http://www.netsurf-browser.org/projects/libwapcaplet/") (home-page "https://www.netsurf-browser.org/projects/libwapcaplet/")
(synopsis "String internment library") (synopsis "String internment library")
(description (description
"LibWapcaplet provides a reference counted string internment system "LibWapcaplet provides a reference counted string internment system
@ -4808,7 +4808,7 @@ developed as part of the Netsurf project.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://download.netsurf-browser.org/libs/releases/" (uri (string-append "https://download.netsurf-browser.org/libs/releases/"
"libcss-" version "-src.tar.gz")) "libcss-" version "-src.tar.gz"))
(sha256 (sha256
(base32 (base32
@ -4822,7 +4822,7 @@ developed as part of the Netsurf project.")
`(("libparserutils" ,libparserutils) `(("libparserutils" ,libparserutils)
("libwapcaplet" ,libwapcaplet))) ("libwapcaplet" ,libwapcaplet)))
(arguments netsurf-buildsystem-arguments) (arguments netsurf-buildsystem-arguments)
(home-page "http://www.netsurf-browser.org/projects/libcss/") (home-page "https://www.netsurf-browser.org/projects/libcss/")
(synopsis "CSS parser and selection library") (synopsis "CSS parser and selection library")
(description (description
"LibCSS is a CSS (Cascading Style Sheet) parser and selection engine, "LibCSS is a CSS (Cascading Style Sheet) parser and selection engine,
@ -4836,7 +4836,7 @@ written in C. It is developed as part of the NetSurf project.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://download.netsurf-browser.org/libs/releases/" (uri (string-append "https://download.netsurf-browser.org/libs/releases/"
"libdom-" version "-src.tar.gz")) "libdom-" version "-src.tar.gz"))
(sha256 (sha256
(base32 (base32
@ -4858,7 +4858,7 @@ written in C. It is developed as part of the NetSurf project.")
(arguments (arguments
`(#:tests? #f ;TODO: re-enable. tests take a looong time. `(#:tests? #f ;TODO: re-enable. tests take a looong time.
,@netsurf-buildsystem-arguments)) ,@netsurf-buildsystem-arguments))
(home-page "http://www.netsurf-browser.org/projects/libdom/") (home-page "https://www.netsurf-browser.org/projects/libdom/")
(synopsis "Implementation of the W3C DOM") (synopsis "Implementation of the W3C DOM")
(description (description
"LibDOM is an implementation of the W3C DOM, written in C. It is "LibDOM is an implementation of the W3C DOM, written in C. It is
@ -4872,7 +4872,7 @@ developed as part of the NetSurf project.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://download.netsurf-browser.org/libs/releases/" (uri (string-append "https://download.netsurf-browser.org/libs/releases/"
name "-" version "-src.tar.gz")) name "-" version "-src.tar.gz"))
(sha256 (sha256
(base32 (base32
@ -4887,7 +4887,7 @@ developed as part of the NetSurf project.")
(propagated-inputs (propagated-inputs
`(("libdom" ,libdom))) ;for libsvgtiny.pc `(("libdom" ,libdom))) ;for libsvgtiny.pc
(arguments netsurf-buildsystem-arguments) (arguments netsurf-buildsystem-arguments)
(home-page "http://www.netsurf-browser.org/projects/libsvgtiny/") (home-page "https://www.netsurf-browser.org/projects/libsvgtiny/")
(synopsis "Library for parsing SVG files") (synopsis "Library for parsing SVG files")
(description (description
"Libsvgtiny takes some SVG as input and returns a list of paths and texts "Libsvgtiny takes some SVG as input and returns a list of paths and texts
@ -4903,7 +4903,7 @@ project.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://download.netsurf-browser.org/libs/releases/" (uri (string-append "https://download.netsurf-browser.org/libs/releases/"
name "-" version "-src.tar.gz")) name "-" version "-src.tar.gz"))
(sha256 (sha256
(base32 (base32
@ -4912,7 +4912,7 @@ project.")
(native-inputs (native-inputs
`(("netsurf-buildsystem" ,netsurf-buildsystem))) `(("netsurf-buildsystem" ,netsurf-buildsystem)))
(arguments netsurf-buildsystem-arguments) (arguments netsurf-buildsystem-arguments)
(home-page "http://www.netsurf-browser.org/projects/libnsbmp/") (home-page "https://www.netsurf-browser.org/projects/libnsbmp/")
(synopsis "Decoding library for BMP and ICO files") (synopsis "Decoding library for BMP and ICO files")
(description (description
"Libnsbmp is a decoding library for BMP and ICO image file formats, "Libnsbmp is a decoding library for BMP and ICO image file formats,
@ -4926,7 +4926,7 @@ written in C. It is developed as part of the NetSurf project.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://download.netsurf-browser.org/libs/releases/" (uri (string-append "https://download.netsurf-browser.org/libs/releases/"
name "-" version "-src.tar.gz")) name "-" version "-src.tar.gz"))
(sha256 (sha256
(base32 (base32
@ -4935,7 +4935,7 @@ written in C. It is developed as part of the NetSurf project.")
(native-inputs (native-inputs
`(("netsurf-buildsystem" ,netsurf-buildsystem))) `(("netsurf-buildsystem" ,netsurf-buildsystem)))
(arguments netsurf-buildsystem-arguments) (arguments netsurf-buildsystem-arguments)
(home-page "http://www.netsurf-browser.org/projects/libnsgif/") (home-page "https://www.netsurf-browser.org/projects/libnsgif/")
(synopsis "Decoding library for GIF files") (synopsis "Decoding library for GIF files")
(description (description
"Libnsgif is a decoding library for the GIF image file format, written in "Libnsgif is a decoding library for the GIF image file format, written in
@ -4949,7 +4949,7 @@ C. It is developed as part of the NetSurf project.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://download.netsurf-browser.org/libs/releases/" (uri (string-append "https://download.netsurf-browser.org/libs/releases/"
"libnslog-" version "-src.tar.gz")) "libnslog-" version "-src.tar.gz"))
(sha256 (sha256
(base32 (base32
@ -4962,7 +4962,7 @@ C. It is developed as part of the NetSurf project.")
("bison" ,bison) ("bison" ,bison)
("flex" ,flex))) ("flex" ,flex)))
(arguments netsurf-buildsystem-arguments) (arguments netsurf-buildsystem-arguments)
(home-page "http://www.netsurf-browser.org/") (home-page "https://www.netsurf-browser.org/")
(synopsis "Logging library") (synopsis "Logging library")
(description (description
"Libnslog provides a category-based logging library which supports "Libnslog provides a category-based logging library which supports
@ -4977,7 +4977,7 @@ client applications. It is developed as part of the NetSurf project.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://download.netsurf-browser.org/libs/releases/" (uri (string-append "https://download.netsurf-browser.org/libs/releases/"
name "-" version "-src.tar.gz")) name "-" version "-src.tar.gz"))
(sha256 (sha256
(base32 (base32
@ -4986,7 +4986,7 @@ client applications. It is developed as part of the NetSurf project.")
(native-inputs (native-inputs
`(("netsurf-buildsystem" ,netsurf-buildsystem))) `(("netsurf-buildsystem" ,netsurf-buildsystem)))
(arguments netsurf-buildsystem-arguments) (arguments netsurf-buildsystem-arguments)
(home-page "http://www.netsurf-browser.org/") (home-page "https://www.netsurf-browser.org/")
(synopsis "Utility library for NetSurf") (synopsis "Utility library for NetSurf")
(description (description
"Libnsutils provides a small number of useful utility routines. It is "Libnsutils provides a small number of useful utility routines. It is
@ -5000,7 +5000,7 @@ developed as part of the NetSurf project.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://download.netsurf-browser.org/libs/releases/" (uri (string-append "https://download.netsurf-browser.org/libs/releases/"
"libnspsl-" version "-src.tar.gz")) "libnspsl-" version "-src.tar.gz"))
(sha256 (sha256
(base32 (base32
@ -5009,7 +5009,7 @@ developed as part of the NetSurf project.")
(native-inputs (native-inputs
`(("netsurf-buildsystem" ,netsurf-buildsystem))) `(("netsurf-buildsystem" ,netsurf-buildsystem)))
(arguments netsurf-buildsystem-arguments) (arguments netsurf-buildsystem-arguments)
(home-page "http://www.netsurf-browser.org/") (home-page "https://www.netsurf-browser.org/")
(synopsis "Library to generate a static Public Suffix List") (synopsis "Library to generate a static Public Suffix List")
(description (description
"Libnspsl is a library to generate a static code representation of the "Libnspsl is a library to generate a static code representation of the
@ -5023,7 +5023,7 @@ Public Suffix List. It is developed as part of the NetSurf project.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://download.netsurf-browser.org/libs/releases/" (uri (string-append "https://download.netsurf-browser.org/libs/releases/"
"nsgenbind-" version "-src.tar.gz")) "nsgenbind-" version "-src.tar.gz"))
(sha256 (sha256
(base32 (base32
@ -5037,7 +5037,7 @@ Public Suffix List. It is developed as part of the NetSurf project.")
(substitute-keyword-arguments netsurf-buildsystem-arguments (substitute-keyword-arguments netsurf-buildsystem-arguments
((#:make-flags flags) ((#:make-flags flags)
`(delete "COMPONENT_TYPE=lib-shared" ,flags)))) `(delete "COMPONENT_TYPE=lib-shared" ,flags))))
(home-page "http://www.netsurf-browser.org/") (home-page "https://www.netsurf-browser.org/")
(synopsis "Generate JavaScript to DOM bindings") (synopsis "Generate JavaScript to DOM bindings")
(description (description
"@code{nsgenbind} is a tool to generate JavaScript to DOM bindings from "@code{nsgenbind} is a tool to generate JavaScript to DOM bindings from
@ -5051,7 +5051,7 @@ w3c webidl files and a binding configuration file.")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://download.netsurf-browser.org/netsurf/" (uri (string-append "https://download.netsurf-browser.org/netsurf/"
"releases/source/netsurf-" version "-src.tar.gz")) "releases/source/netsurf-" version "-src.tar.gz"))
(sha256 (sha256
(base32 (base32
@ -5072,7 +5072,7 @@ w3c webidl files and a binding configuration file.")
("xxd" ,xxd))) ("xxd" ,xxd)))
(inputs (inputs
`(("curl" ,curl) `(("curl" ,curl)
("gtk+" ,gtk+-2) ("gtk+" ,gtk+)
("openssl" ,openssl) ("openssl" ,openssl)
("utf8proc" ,utf8proc) ("utf8proc" ,utf8proc)
("libpng" ,libpng) ("libpng" ,libpng)
@ -5088,6 +5088,7 @@ w3c webidl files and a binding configuration file.")
("miscfiles" ,miscfiles))) ("miscfiles" ,miscfiles)))
(arguments (arguments
`(#:make-flags `("CC=gcc" "BUILD_CC=gcc" `(#:make-flags `("CC=gcc" "BUILD_CC=gcc"
"TARGET=gtk3"
,(string-append "PREFIX=" %output) ,(string-append "PREFIX=" %output)
,(string-append "NSSHARED=" ,(string-append "NSSHARED="
(assoc-ref %build-inputs (assoc-ref %build-inputs
@ -5120,12 +5121,19 @@ w3c webidl files and a binding configuration file.")
;; Leave the DOCTYPE header as is. ;; Leave the DOCTYPE header as is.
(display (read-line in 'concat) out) (display (read-line in 'concat) out)
(sxml->xml (sxml->xml
(let rec ((sxml (xml->sxml in))) (let rec ((sxml (xml->sxml in
#:default-entity-handler
(lambda (port name)
(string-append "<ENTITY>"
(symbol->string name)
"</ENTITY>")))))
;; We'd like to use sxml-match here, but it can't ;; We'd like to use sxml-match here, but it can't
;; match against generic tag symbols... ;; match against generic tag symbols...
(match sxml (match sxml
(`(div (@ (class "links")) . ,rest) (`(div (@ (class "links")) . ,rest)
'()) '())
(`(ENTITY ,ent)
`(*ENTITY* ,ent))
((x ...) ((x ...)
(map rec x)) (map rec x))
(x x))) (x x)))
@ -5152,7 +5160,7 @@ w3c webidl files and a binding configuration file.")
(install-file "docs/netsurf-gtk.1" (install-file "docs/netsurf-gtk.1"
(string-append out "/share/man/man1/")) (string-append out "/share/man/man1/"))
#t)))))) #t))))))
(home-page "http://www.netsurf-browser.org") (home-page "https://www.netsurf-browser.org")
(synopsis "Web browser") (synopsis "Web browser")
(description (description
"NetSurf is a lightweight web browser that has its own layout and "NetSurf is a lightweight web browser that has its own layout and
@ -5357,13 +5365,13 @@ deployments.")
(package (package
(name "varnish") (name "varnish")
(home-page "https://varnish-cache.org/") (home-page "https://varnish-cache.org/")
(version "6.3.1") (version "6.3.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append home-page "_downloads/varnish-" version ".tgz")) (uri (string-append home-page "_downloads/varnish-" version ".tgz"))
(sha256 (sha256
(base32 (base32
"0xa14pd68zpi5hxcax3arl14rcmh5d1cdwa8gv4l5f23mmynr8ni")))) "1f5ahzdh3am6fij5jhiybv3knwl11rhc5r3ig1ybzw55ai7788q8"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:configure-flags (list (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib") `(#:configure-flags (list (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib")
@ -6843,14 +6851,13 @@ features include:
"0s7b5whqsmfa57prbgl66ym551kg6ly0z14h5dgrlx4lqm70y2yw")))) "0s7b5whqsmfa57prbgl66ym551kg6ly0z14h5dgrlx4lqm70y2yw"))))
(build-system trivial-build-system) (build-system trivial-build-system)
(arguments (arguments
`(#:modules ((guix build utils) `(#:modules ((guix build utils))
(srfi srfi-1)
(srfi srfi-26))
#:builder #:builder
(begin (begin
(use-modules (guix build utils) (use-modules (guix build utils)
(srfi srfi-1) (srfi srfi-1)
(srfi srfi-26)) (srfi srfi-26))
(let ((source (assoc-ref %build-inputs "source")) (let ((source (assoc-ref %build-inputs "source"))
(php-dir (string-append %output "/share/web/" ,name "/"))) (php-dir (string-append %output "/share/web/" ,name "/")))
;; The cache directory must not be in the store, but in a writable ;; The cache directory must not be in the store, but in a writable

147
guix/import/gem.scm
View File

@ -2,6 +2,7 @@
;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com> ;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com>
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2020 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -20,28 +21,68 @@
(define-module (guix import gem) (define-module (guix import gem)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (ice-9 pretty-print)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (rnrs bytevectors) #:use-module (guix json)
#:use-module (json)
#:use-module (web uri)
#:use-module ((guix download) #:prefix download:) #:use-module ((guix download) #:prefix download:)
#:use-module (guix import utils) #:use-module (guix import utils)
#:use-module (guix import json) #:use-module (guix import json)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix upstream) #:use-module (guix upstream)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix base16)
#:use-module (guix base32) #:use-module (guix base32)
#:use-module (guix build-system ruby) #:use-module ((guix build-system ruby) #:select (rubygems-uri))
#:export (gem->guix-package #:export (gem->guix-package
%gem-updater %gem-updater
gem-recursive-import)) gem-recursive-import))
;; Gems as defined by the API at <https://rubygems.org/api/v1/gems>.
(define-json-mapping <gem> make-gem gem?
json->gem
(name gem-name) ;string
(platform gem-platform) ;string
(version gem-version) ;string
(authors gem-authors) ;string
(licenses gem-licenses "licenses" ;list of strings
(lambda (licenses)
;; This is sometimes #nil (the JSON 'null' value). Arrange
;; to always return a list.
(cond ((not licenses) '())
((vector? licenses) (vector->list licenses))
(else '()))))
(info gem-info)
(sha256 gem-sha256 "sha" ;bytevector
base16-string->bytevector)
(home-page gem-home-page "homepage_uri") ;string
(dependencies gem-dependencies "dependencies" ;<gem-dependencies>
json->gem-dependencies))
(define-json-mapping <gem-dependencies> make-gem-dependencies
gem-dependencies?
json->gem-dependencies
(development gem-dependencies-development ;list of <gem-dependency>
"development"
json->gem-dependency-list)
(runtime gem-dependencies-runtime ;list of <gem-dependency>
"runtime"
json->gem-dependency-list))
(define (json->gem-dependency-list vector)
(if vector
(map json->gem-dependency (vector->list vector))
'()))
(define-json-mapping <gem-dependency> make-gem-dependency gem-dependency?
json->gem-dependency
(name gem-dependency-name) ;string
(requirements gem-dependency-requirements)) ;string
(define (rubygems-fetch name) (define (rubygems-fetch name)
"Return an alist representation of the RubyGems metadata for the package NAME, "Return a <gem> record for the package NAME, or #f on failure."
or #f on failure." (and=> (json-fetch
(json-fetch (string-append "https://rubygems.org/api/v1/gems/" name ".json"))
(string-append "https://rubygems.org/api/v1/gems/" name ".json"))) json->gem))
(define (ruby-package-name name) (define (ruby-package-name name)
"Given the NAME of a package on RubyGems, return a Guix-compliant name for "Given the NAME of a package on RubyGems, return a Guix-compliant name for
@ -50,41 +91,6 @@ the package."
(snake-case name) (snake-case name)
(string-append "ruby-" (snake-case name)))) (string-append "ruby-" (snake-case name))))
(define (hex-string->bytevector str)
"Convert the hexadecimal encoded string STR to a bytevector."
(define hex-char->int
(match-lambda
(#\0 0)
(#\1 1)
(#\2 2)
(#\3 3)
(#\4 4)
(#\5 5)
(#\6 6)
(#\7 7)
(#\8 8)
(#\9 9)
(#\a 10)
(#\b 11)
(#\c 12)
(#\d 13)
(#\e 14)
(#\f 15)))
(define (read-byte i)
(let ((j (* 2 i)))
(+ (hex-char->int (string-ref str (1+ j)))
(* (hex-char->int (string-ref str j)) 16))))
(let* ((len (/ (string-length str) 2))
(bv (make-bytevector len)))
(let loop ((i 0))
(if (= i len)
bv
(begin
(bytevector-u8-set! bv i (read-byte i))
(loop (1+ i)))))))
(define (make-gem-sexp name version hash home-page synopsis description (define (make-gem-sexp name version hash home-page synopsis description
dependencies licenses) dependencies licenses)
"Return the `package' s-expression for a Ruby package with the given NAME, "Return the `package' s-expression for a Ruby package with the given NAME,
@ -97,8 +103,7 @@ VERSION, HASH, HOME-PAGE, DESCRIPTION, DEPENDENCIES, and LICENSES."
(uri (rubygems-uri ,name version)) (uri (rubygems-uri ,name version))
(sha256 (sha256
(base32 (base32
,(bytevector->nix-base32-string ,(bytevector->nix-base32-string hash)))))
(hex-string->bytevector hash))))))
(build-system ruby-build-system) (build-system ruby-build-system)
,@(if (null? dependencies) ,@(if (null? dependencies)
'() '()
@ -120,31 +125,25 @@ VERSION, HASH, HOME-PAGE, DESCRIPTION, DEPENDENCIES, and LICENSES."
(define* (gem->guix-package package-name #:optional (repo 'rubygems) version) (define* (gem->guix-package package-name #:optional (repo 'rubygems) version)
"Fetch the metadata for PACKAGE-NAME from rubygems.org, and return the "Fetch the metadata for PACKAGE-NAME from rubygems.org, and return the
`package' s-expression corresponding to that package, or #f on failure." `package' s-expression corresponding to that package, or #f on failure."
(let ((package (rubygems-fetch package-name))) (let ((gem (rubygems-fetch package-name)))
(and package (if gem
(let* ((name (assoc-ref package "name")) (let* ((dependencies-names (map gem-dependency-name
(version (assoc-ref package "version")) (gem-dependencies-runtime
(hash (assoc-ref package "sha")) (gem-dependencies gem))))
(synopsis (assoc-ref package "info")) ; nothing better to use (dependencies (map (lambda (dep)
(description (beautify-description (if (string=? dep "bundler")
(assoc-ref package "info"))) "bundler" ; special case, no prefix
(home-page (assoc-ref package "homepage_uri")) (ruby-package-name dep)))
(dependencies-names (map (lambda (dep) (assoc-ref dep "name")) dependencies-names))
(vector->list (licenses (map string->license (gem-licenses gem))))
(assoc-ref* package (values (make-gem-sexp (gem-name gem) (gem-version gem)
"dependencies" (gem-sha256 gem) (gem-home-page gem)
"runtime")))) (gem-info gem)
(dependencies (map (lambda (dep) (beautify-description (gem-info gem))
(if (string=? dep "bundler") dependencies
"bundler" ; special case, no prefix licenses)
(ruby-package-name dep))) dependencies-names))
dependencies-names)) (values #f '()))))
(licenses (map string->license
(vector->list
(assoc-ref package "licenses")))))
(values (make-gem-sexp name version hash home-page synopsis
description dependencies licenses)
dependencies-names)))))
(define (guix-package->gem-name package) (define (guix-package->gem-name package)
"Given a PACKAGE built from rubygems.org, return the name of the "Given a PACKAGE built from rubygems.org, return the name of the
@ -185,9 +184,9 @@ package on RubyGems."
(define (latest-release package) (define (latest-release package)
"Return an <upstream-source> for the latest release of PACKAGE." "Return an <upstream-source> for the latest release of PACKAGE."
(let* ((gem-name (guix-package->gem-name package)) (let* ((gem-name (guix-package->gem-name package))
(metadata (rubygems-fetch gem-name)) (gem (rubygems-fetch gem-name))
(version (assoc-ref metadata "version")) (version (gem-version gem))
(url (rubygems-uri gem-name version))) (url (rubygems-uri gem-name version)))
(upstream-source (upstream-source
(package (package-name package)) (package (package-name package))
(version version) (version version)

34
guix/import/pypi.scm
View File

@ -5,6 +5,7 @@
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -363,7 +364,11 @@ VERSION, SOURCE-URL, HOME-PAGE, SYNOPSIS, DESCRIPTION, and LICENSE."
(receive (guix-dependencies upstream-dependencies) (receive (guix-dependencies upstream-dependencies)
(compute-inputs source-url wheel-url temp) (compute-inputs source-url wheel-url temp)
(match guix-dependencies (match guix-dependencies
((required-inputs test-inputs) ((required-inputs native-inputs)
(when (string-suffix? ".zip" source-url)
(set! native-inputs (cons
'("unzip" ,unzip)
native-inputs)))
(values (values
`(package `(package
(name ,(python->package-name name)) (name ,(python->package-name name))
@ -371,20 +376,29 @@ VERSION, SOURCE-URL, HOME-PAGE, SYNOPSIS, DESCRIPTION, and LICENSE."
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
;; PyPI URL are case sensitive, but sometimes a project (uri (pypi-uri
;; named using mixed case has a URL using lower case, so ;; PyPI URL are case sensitive, but sometimes
;; we must work around this inconsistency. For actual ;; a project named using mixed case has a URL
;; examples, compare the URLs of the "Deprecated" and ;; using lower case, so we must work around this
;; "uWSGI" PyPI packages. ;; inconsistency. For actual examples, compare
(uri ,(if (string-contains source-url name) ;; the URLs of the "Deprecated" and "uWSGI" PyPI
`(pypi-uri ,name version) ;; packages.
`(pypi-uri ,(string-downcase name) version))) ,(if (string-contains source-url name)
name
(string-downcase name))
version
;; Some packages have been released as `.zip`
;; instead of the more common `.tar.gz`. For
;; example, see "path-and-address".
,@(if (string-suffix? ".zip" source-url)
'(".zip")
'())))
(sha256 (sha256
(base32 (base32
,(guix-hash-url temp))))) ,(guix-hash-url temp)))))
(build-system python-build-system) (build-system python-build-system)
,@(maybe-inputs required-inputs 'propagated-inputs) ,@(maybe-inputs required-inputs 'propagated-inputs)
,@(maybe-inputs test-inputs 'native-inputs) ,@(maybe-inputs native-inputs 'native-inputs)
(home-page ,home-page) (home-page ,home-page)
(synopsis ,synopsis) (synopsis ,synopsis)
(description ,description) (description ,description)

6
guix/licenses.scm
View File

@ -85,6 +85,7 @@
silofl1.1 silofl1.1
sleepycat sleepycat
tcl/tk tcl/tk
unicode
unlicense unlicense
vim vim
w3c w3c
@ -584,6 +585,11 @@ at URI, which may be a file:// URI pointing the package's tree."
"http://directory.fsf.org/wiki/License:Vim7.2" "http://directory.fsf.org/wiki/License:Vim7.2"
"http://www.gnu.org/licenses/license-list.html#Vim")) "http://www.gnu.org/licenses/license-list.html#Vim"))
(define unicode
(license "Unicode"
"https://directory.fsf.org/wiki/License:Unicode"
"http://www.gnu.org/licenses/license-list.html#Unicode"))
(define unlicense (define unlicense
(license "Unlicense" (license "Unlicense"
"https://unlicense.org/" "https://unlicense.org/"

4
tests/gem.scm
View File

@ -55,7 +55,7 @@
{ \"name\": \"bundler\" }, { \"name\": \"bundler\" },
] ]
}, },
\"licenses\": [\"MIT\", \"Apache 2.0\"] \"licenses\": null
}") }")
(define test-bundler-json (define test-bundler-json
@ -138,7 +138,7 @@
('synopsis "Another cool gem") ('synopsis "Another cool gem")
('description "Another cool gem") ('description "Another cool gem")
('home-page "https://example.com") ('home-page "https://example.com")
('license ('list 'license:expat 'license:asl2.0))) ('license #f)) ;no licensing info
('package ('package
('name "ruby-bundler") ('name "ruby-bundler")
('version "1.14.2") ('version "1.14.2")

4
tests/graph.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -195,7 +195,7 @@ edges."
(let-values (((dune bap ocaml-base) (let-values (((dune bap ocaml-base)
(values (specification->package "dune") (values (specification->package "dune")
(specification->package "bap") (specification->package "bap")
(specification->package "ocaml-base"))) (specification->package "ocaml4.07-base")))
((backend nodes+edges) (make-recording-backend))) ((backend nodes+edges) (make-recording-backend)))
(run-with-store %store (run-with-store %store
(export-graph (list dune) 'port (export-graph (list dune) 'port