diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-05-15 22:55:24 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-05-15 22:55:24 +0200 |
| commit | 25487c3fe6a41dd62f6e53f256392224a3be2a08 (patch) | |
| tree | 1051a1716d962ba0a7bbbf9dc8f7b67aa2674400 /gnu | |
| parent | 4a9597e4516ec5ca58df3e007fcd5ef1d3fd2e54 (diff) | |
| parent | 46eac03e720e9b21d225e2ec1c41299c09202d18 (diff) | |
| download | guix-25487c3fe6a41dd62f6e53f256392224a3be2a08.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'gnu')
59 files changed, 2175 insertions, 926 deletions
diff --git a/gnu/local.mk b/gnu/local.mk index 0e1e83b3d5..d8ae0bd517 100644 --- a/gnu/local.mk +++ b/gnu/local.mk @@ -1087,6 +1087,7 @@ dist_patch_DATA = \ %D%/packages/patches/ghostscript-no-header-id.patch \ %D%/packages/patches/ghostscript-no-header-uuid.patch \ %D%/packages/patches/ghostscript-no-header-creationdate.patch \ + %D%/packages/patches/giara-fix-login.patch \ %D%/packages/patches/glib-appinfo-watch.patch \ %D%/packages/patches/glib-skip-failing-test.patch \ %D%/packages/patches/glibc-CVE-2018-11236.patch \ @@ -1199,7 +1200,6 @@ dist_patch_DATA = \ %D%/packages/patches/hubbub-sort-entities.patch \ %D%/packages/patches/hurd-cross.patch \ %D%/packages/patches/hurd-xattr.patch \ - %D%/packages/patches/hplip-remove-imageprocessor.patch \ %D%/packages/patches/hydra-disable-darcs-test.patch \ %D%/packages/patches/icecat-makeicecat.patch \ %D%/packages/patches/icecat-avoid-bundled-libraries.patch \ @@ -1660,6 +1660,7 @@ dist_patch_DATA = \ %D%/packages/patches/slim-login.patch \ %D%/packages/patches/slim-display.patch \ %D%/packages/patches/snappy-add-O2-flag-in-CmakeLists.txt.patch \ + %D%/packages/patches/snappy-add-inline-for-GCC.patch \ %D%/packages/patches/sphinxbase-fix-doxygen.patch \ %D%/packages/patches/sssd-fix-samba.patch \ %D%/packages/patches/sssd-system-directories.patch \ diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index 2cb093b471..60a624fbd1 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -1601,7 +1601,7 @@ system administrator.") (define-public sudo (package (name "sudo") - (version "1.9.6p1") + (version "1.9.7") (source (origin (method url-fetch) (uri @@ -1611,7 +1611,7 @@ system administrator.") version ".tar.gz"))) (sha256 (base32 - "146alf6cwnzjcckia8m0ibcj9ram2z469f5z7v6vkzpsb30cvsd9")) + "0jg5vf6hc0j2bh4vqwsb4jybhryrsh4kz97r1salvf4rcqnprgib")) (modules '((guix build utils))) (snippet '(begin @@ -4092,7 +4092,7 @@ Logitech Unifying Receiver.") (package (name "lynis") ;; Also update the ‘lynis-sdk’ input to the commit matching this release. - (version "3.0.3") + (version "3.0.4") (source (origin (method git-fetch) @@ -4101,7 +4101,7 @@ Logitech Unifying Receiver.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "0sdjh2f1563qalp740vkaaxdxl56ny98h168cggpm10h2yq366gr")) + (base32 "1i556d8xpas6k5k3ad0xvc6ihxnw27nzrjkf14759jkcqrbpb4gy")) (modules '((guix build utils))) (snippet '(begin @@ -4118,10 +4118,10 @@ Logitech Unifying Receiver.") (method git-fetch) (uri (git-reference (url "https://github.com/CISOfy/lynis-sdk") - (commit "ea7a39774fbd71113a1955cf1a4937b489935174"))) + (commit "a4087770b7ee794901c5135673e006e8f84bfd3d"))) (file-name (git-file-name "lynis-sdk" version)) (sha256 - (base32 "0q5j2myshjkz9qwvcg8n7c33yw2cp80yvzhckd60qmzabv4g4qb5")))))) + (base32 "00wikqydhrjcn0ampgr4qjg30y12as1gm23z94bs72ff035lhcpw")))))) (arguments `(#:phases (modify-phases %standard-phases diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm index 2c003a1359..6ccecef3c0 100644 --- a/gnu/packages/audio.scm +++ b/gnu/packages/audio.scm @@ -2718,15 +2718,15 @@ different audio devices such as ALSA or PulseAudio.") (define-public qjackctl (package (name "qjackctl") - (version "0.9.1") + (version "0.9.3") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/qjackctl/qjackctl/" version "/qjackctl-" version ".tar.gz")) (sha256 (base32 - "0m72kglwwvn91dxnka4lx765p3r0bcpqw251svymxr2wxjc4rgjg")))) - (build-system gnu-build-system) + "065x66rr1mb2bkqr88l50rcn5c8rsiq4hp5hrlyqqg46371gzhp9")))) + (build-system cmake-build-system) (arguments '(#:tests? #f)) ; no check target (inputs diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm index 335649bfff..adbc735201 100644 --- a/gnu/packages/backup.scm +++ b/gnu/packages/backup.scm @@ -1096,14 +1096,14 @@ backup.") (define-public disarchive (package (name "disarchive") - (version "0.2.0") + (version "0.2.1") (source (origin (method url-fetch) (uri (string-append "https://files.ngyro.com/disarchive/" "disarchive-" version ".tar.gz")) (sha256 (base32 - "12d4r4i7vi8fxilr2aww6kzq56jax5ymhjfm3cpgx26vj4c70kb6")))) + "1jypk0gdwxqbqxiblww863nzq0kwnc676q68j32sprqd7ilnq02s")))) (build-system gnu-build-system) (native-inputs `(("autoconf" ,autoconf) diff --git a/gnu/packages/bdw-gc.scm b/gnu/packages/bdw-gc.scm index 0d82889bac..52725238b4 100644 --- a/gnu/packages/bdw-gc.scm +++ b/gnu/packages/bdw-gc.scm @@ -89,6 +89,17 @@ C or C++ programs, though that is not its primary goal.") (license (x11-style (string-append home-page "license.txt"))))) +(define-public libgc/disable-munmap + ;; TODO: Use '--disable-munmap' by default on next rebuild cycle. + (package/inherit libgc + (arguments + ;; Work around <https://github.com/ivmai/bdwgc/issues/353>. + (substitute-keyword-arguments (package-arguments libgc) + ((#:configure-flags flags ''()) + `(cons "--disable-munmap" ,flags)))) + (properties `((hidden? . #t) + ,@(package-properties libgc))))) + ;; TODO: Add a static output in libgc in the next rebuild cycle. (define-public libgc/static-libs (package/inherit diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm index 0d09a98dc5..36a7038b82 100644 --- a/gnu/packages/bioinformatics.scm +++ b/gnu/packages/bioinformatics.scm @@ -7554,14 +7554,18 @@ experience substantial biological insertions and deletions.") (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin"))) + (bin (string-append out "/bin")) + (scripts (find-files "." "prinseq.*.pl"))) + (substitute* scripts + (("\"perl -pe") + (string-append "\"" (which "perl") " -pe"))) (for-each (lambda (file) (chmod file #o555) (install-file file bin) (wrap-script (string-append bin "/" (basename file)) `("PERL5LIB" ":" prefix (,(getenv "PERL5LIB"))))) - (find-files "." "prinseq.*.pl")))))))) + scripts))))))) (inputs `(("guile" ,guile-3.0) ; for wrapper scripts ("perl" ,perl) diff --git a/gnu/packages/boost.scm b/gnu/packages/boost.scm index 33f05cff15..c6cf452f09 100644 --- a/gnu/packages/boost.scm +++ b/gnu/packages/boost.scm @@ -17,6 +17,7 @@ ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2021 Greg Hogan <code@greghogan.com> ;;; Copyright © 2021 Franck Pérignon <franck.perignon@univ-grenoble-alpes.fr> +;;; Copyright © 2021 Greg Hogan <code@greghogan.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -68,7 +69,7 @@ (version "1.75.0") (source (origin (method url-fetch) - (uri (string-append "https://dl.bintray.com/boostorg/release/" + (uri (string-append "https://boostorg.jfrog.io/artifactory/main/release/" version "/source/boost_" (version-with-underscores version) ".tar.bz2")) ; Should be included in next Boost update diff --git a/gnu/packages/build-tools.scm b/gnu/packages/build-tools.scm index 9a18b77ff0..88247cc911 100644 --- a/gnu/packages/build-tools.scm +++ b/gnu/packages/build-tools.scm @@ -218,8 +218,7 @@ programs and other files depend.") (add-before 'configure 'set-build-environment (lambda _ (setenv "CC" "gcc") (setenv "CXX" "g++") - (setenv "AR" "ar") - #t)) + (setenv "AR" "ar"))) (replace 'configure (lambda _ (invoke "python" "build/gen.py" @@ -234,16 +233,15 @@ programs and other files depend.") (string-append "#define LAST_COMMIT_POSITION_NUM ~a\n" "#define LAST_COMMIT_POSITION \"~a (~a)\"\n") - ,revision ,revision ,(string-take commit 8)) - #t)))) + ,revision ,revision ,(string-take commit 8)))))) (replace 'build (lambda _ (invoke "ninja" "-C" "out" "gn" "-j" (number->string (parallel-job-count))))) (replace 'check - (lambda* (#:key (tests? #t) #:allow-other-keys) + (lambda* (#:key tests? #:allow-other-keys) (if tests? - (lambda () + (begin (invoke "ninja" "-C" "out" "gn_unittests" "-j" (number->string (parallel-job-count))) (invoke "./out/gn_unittests")) @@ -251,11 +249,10 @@ programs and other files depend.") (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) - (install-file "out/gn" (string-append out "/bin")) - #t)))))) + (install-file "out/gn" (string-append out "/bin")))))))) (native-inputs `(("ninja" ,ninja) - ("python" ,python-2))) + ("python" ,python-wrapper))) (synopsis "Generate Ninja build files") (description "GN is a tool that collects information about a project from @file{.gn} diff --git a/gnu/packages/ccache.scm b/gnu/packages/ccache.scm index 112f613c88..4ff0fb2ae0 100644 --- a/gnu/packages/ccache.scm +++ b/gnu/packages/ccache.scm @@ -1,7 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014, 2015, 2016, 2018 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il> -;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2021 Greg Hogan <code@greghogan.com> ;;; ;;; This file is part of GNU Guix. @@ -31,14 +31,14 @@ (define-public ccache (package (name "ccache") - (version "4.2") + (version "4.3") (source (origin (method url-fetch) (uri (string-append "https://github.com/ccache/ccache/releases/download/v" version "/ccache-" version ".tar.xz")) (sha256 - (base32 "0kx9ggbbm899zwyyxvm4dgzn1b95zi1niz0l734pi5y3i0cb251g")))) + (base32 "1d4995lkmqshzfxlmbyn101m1rxs02yb8dgh4rl30p26hhhhyjjh")))) (build-system cmake-build-system) (native-inputs `(("perl" ,perl) ; for test/run ("which" ,(@ (gnu packages base) which)))) @@ -52,8 +52,8 @@ (substitute* '("unittest/test_hashutil.cpp" "test/suites/base.bash") (("#!/bin/sh") (string-append "#!" (which "sh")))) #t)) - ;; tests require a writable HOME (add-before 'check 'set-home + ;; Tests require a writable HOME. (lambda _ (setenv "HOME" (getenv "TMPDIR")) #t))))) diff --git a/gnu/packages/chromium.scm b/gnu/packages/chromium.scm index ea7b242788..f06767f305 100644 --- a/gnu/packages/chromium.scm +++ b/gnu/packages/chromium.scm @@ -320,7 +320,7 @@ (string-append "ungoogled-chromium-" category "-" name)))) (sha256 (base32 hash)))) -(define %chromium-version "90.0.4430.93") +(define %chromium-version "90.0.4430.212") (define %debian-revision "debian/90.0.4430.85-1") (define %ungoogled-revision "90.0.4430.85-1-11-g3184907") @@ -481,7 +481,7 @@ %chromium-version ".tar.xz")) (sha256 (base32 - "0zimr975vp0v12zz1nqjwag3f0q147wrmdhpzgi4yf089rgwfbjk")) + "17nmhrkl81qqvzbh861k2mmifncx4wg1mv1fmn52f8gzn461vqdb")) (modules '((guix build utils))) (snippet (force ungoogled-chromium-snippet)))) (build-system gnu-build-system) diff --git a/gnu/packages/compression.scm b/gnu/packages/compression.scm index 05e442a971..11fc339ee5 100644 --- a/gnu/packages/compression.scm +++ b/gnu/packages/compression.scm @@ -67,6 +67,7 @@ #:use-module (gnu packages autotools) #:use-module (gnu packages backup) #:use-module (gnu packages base) + #:use-module (gnu packages benchmark) #:use-module (gnu packages boost) #:use-module (gnu packages check) #:use-module (gnu packages curl) @@ -1001,7 +1002,7 @@ tarballs.") (define-public libjcat (package (name "libjcat") - (version "0.1.6") + (version "0.1.7") (source (origin (method git-fetch) @@ -1011,7 +1012,7 @@ tarballs.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "1a2z34m8611xvna9kwch8ralxx7c9mk4rm9vrxx7p9hr8sbqbsaz")))) + (base32 "110c8h3p7m4ibrfvgja592z7j5h88qqanllxsvmxkjz3b129i02r")))) (build-system meson-build-system) (native-inputs `(("gobject-introspection" ,gobject-introspection) @@ -1109,7 +1110,7 @@ well as bzip2.") (define-public snappy (package (name "snappy") - (version "1.1.8") + (version "1.1.9") (source (origin (method git-fetch) @@ -1118,11 +1119,35 @@ well as bzip2.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "1j0kslq2dvxgkcxl1gakhvsa731yrcvcaipcp5k8k7ayicvkv9jv")) - (patches (search-patches "snappy-add-O2-flag-in-CmakeLists.txt.patch")))) + (base32 "03zz56h79z0sgvi5sangjqn9dahhzvf645v26n1y0gwmfbmsax95")) + (patches + (search-patches "snappy-add-O2-flag-in-CmakeLists.txt.patch" + "snappy-add-inline-for-GCC.patch")))) (build-system cmake-build-system) (arguments - `(#:configure-flags '("-DBUILD_SHARED_LIBS=ON"))) + `(#:configure-flags + (list "-DBUILD_SHARED_LIBS=ON" + ;; These would be installed alongside Snappy otherwise. + "-DBENCHMARK_ENABLE_INSTALL=OFF" + "-DINSTALL_GTEST=OFF") + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'unpack-third_party-subprojects + (lambda* (#:key inputs #:allow-other-keys) + (with-directory-excursion "third_party" + (for-each (lambda (subproject) + (let* ((input (string-append subproject "-source")) + (source (assoc-ref inputs input))) + (with-directory-excursion subproject + ;; Take advantage of the coincidence that both + ;; use GIT-FETCH, which creates a directory. + (copy-recursively source ".")))) + (list "benchmark" + "googletest")) + #;punt)))))) + (native-inputs + `(("benchmark-source" ,(package-source benchmark)) + ("googletest-source" ,(package-source googletest)))) (home-page "https://github.com/google/snappy") (synopsis "Fast compressor/decompressor") (description "Snappy is a compression/decompression library. It does not diff --git a/gnu/packages/crates-io.scm b/gnu/packages/crates-io.scm index 8a286738f8..c488a769f6 100644 --- a/gnu/packages/crates-io.scm +++ b/gnu/packages/crates-io.scm @@ -1581,17 +1581,17 @@ using AES-NI for high performance.") "This package provides a failure resistant deserialization derive.") (license (list license:expat license:asl2.0)))) -(define-public rust-alacritty-terminal-0.12 +(define-public rust-alacritty-terminal-0.13 (package (name "rust-alacritty-terminal") - (version "0.12.0") + (version "0.13.0") (source (origin (method url-fetch) (uri (crate-uri "alacritty_terminal" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1q7sm7rm5yny4lka8w4vji2v2crkkbwj3y8l5qnq01qlwmkjmkfd")))) + (base32 "13f0pzy9jci57pmmvdd9qcbiycs2fsjqda4qgafxjm6s27sphdx7")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t @@ -2198,7 +2198,7 @@ ArrayVec and ArrayString.") (define-public rust-as-slice-0.1 (package (name "rust-as-slice") - (version "0.1.4") + (version "0.1.5") (source (origin (method url-fetch) @@ -2206,7 +2206,7 @@ ArrayVec and ArrayString.") (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 - "1rmhdfj11va424163d6r79wbgf2043i2p37s59ky6x2v8wiiqkdv")))) + "1q3a9494ikaq38zjg5px5gwwrbdgnyj23b505224njlmwd4knh25")))) (build-system cargo-build-system) (arguments `(#:cargo-inputs @@ -5538,23 +5538,24 @@ system calls. Second, exposing the internal buffer allows the user to work with data in place, which avoids another copy.") (license license:gpl3))) -(define-public rust-bugreport-0.3 +(define-public rust-bugreport-0.4 (package (name "rust-bugreport") - (version "0.3.0") + (version "0.4.0") (source (origin (method url-fetch) (uri (crate-uri "bugreport" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1n5f1nkqbc5yf9bckjap49pwnqnvdczm6x9y23caaghpgw0n4rqi")))) + (base32 "0gday6f2brqgzl12a0vf7fx1hh1mim6gdjxc6dfwk9v4i19pxsd0")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs - (("rust-snailquote" ,rust-snailquote-0.3) - ("rust-sys-info" ,rust-sys-info-0.7)))) + (("rust-git-version" ,rust-git-version-0.3) + ("rust-shell-escape" ,rust-shell-escape-0.1) + ("rust-sys-info" ,rust-sys-info-0.9)))) (home-page "https://github.com/sharkdp/bugreport") (synopsis "Collect system and environment information for bug reports") (description @@ -5563,6 +5564,24 @@ automatically collect information about the system and the environment that users can send along with a bug report.") (license (list license:expat license:asl2.0)))) +(define-public rust-bugreport-0.3 + (package + (inherit rust-bugreport-0.4) + (name "rust-bugreport") + (version "0.3.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "bugreport" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "1n5f1nkqbc5yf9bckjap49pwnqnvdczm6x9y23caaghpgw0n4rqi")))) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-snailquote" ,rust-snailquote-0.3) + ("rust-sys-info" ,rust-sys-info-0.7)))))) + (define-public rust-build-const-0.2 (package (name "rust-build-const") @@ -7737,6 +7756,25 @@ combinator.") and 1.0.") (license (list license:expat license:asl2.0)))) +(define-public rust-common-path-1 + (package + (name "rust-common-path") + (version "1.0.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "common-path" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "00firjly5xpb5hhmivnnhwakr1cwbqv8ckzyj0vbxczl89czg0i3")))) + (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) + (home-page "https://gitlab.com/pwoolcoc/common-path") + (synopsis "Find the common prefix between a set of paths") + (description + "Common path finds the common prefix between a set of paths.") + (license (list license:expat license:asl2.0)))) + ;; This package requires features which are unavailable ;; on the stable releases of Rust. (define-public rust-compiler-builtins-0.1 @@ -7924,14 +7962,14 @@ this to write Rust programs which can be customized by end users easily.") (define-public rust-console-0.14 (package (name "rust-console") - (version "0.14.0") + (version "0.14.1") (source (origin (method url-fetch) (uri (crate-uri "console" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1ajnr0rga4vya0fza12ighf3ffkm86w1rv8p5wf443s8nd30kj3w")))) + (base32 "0i8z1bdbv8is1lamd81jdsf4pa1ww2jl3h0yjdshc5mabd2fd4rr")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t @@ -12403,14 +12441,14 @@ programs.") (define-public rust-dyn-clone-1 (package (name "rust-dyn-clone") - (version "1.0.2") + (version "1.0.4") (source (origin (method url-fetch) (uri (crate-uri "dyn-clone" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "10idzzq2sad7dhrfhrhcx7yckzj8il2bzr16204683ryclxdqlsc")))) + (base32 "1kxb16nxiixn558gn82yaq2fl6271jay4rqkrw31lmnprjpjc9pf")))) (arguments `(#:skip-build? #t)) (build-system cargo-build-system) @@ -12632,7 +12670,7 @@ signing, and verification in pure Rust.") (define-public rust-either-1 (package (name "rust-either") - (version "1.5.3") + (version "1.6.1") (source (origin (method url-fetch) @@ -12641,7 +12679,7 @@ signing, and verification in pure Rust.") (string-append name "-" version ".tar.gz")) (sha256 (base32 - "1qyz1b1acad6w0k5928jw5zaq900zhsk7p8dlcp4hh61w4f6n7xv")))) + "0mwl9vngqf5jvrhmhn9x60kr5hivxyjxbmby2pybncxfqhf4z3g7")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t @@ -15941,7 +15979,7 @@ API library @code{gdi32}.") (define-public rust-generic-array-0.14 (package (name "rust-generic-array") - (version "0.14.2") + (version "0.14.4") (source (origin (method url-fetch) @@ -15950,7 +15988,7 @@ API library @code{gdi32}.") (string-append name "-" version ".tar.gz")) (sha256 (base32 - "107r1fpm8zcab3lzci4x9par6ik8bra390c60rhxvnmz7dgnlx5c")))) + "05qqwm9v5asbil9z28wjkmpfvs1c5c99n8n9gwxis3d3r3n6c52h")))) (build-system cargo-build-system) (arguments `(#:cargo-inputs @@ -15971,7 +16009,7 @@ API library @code{gdi32}.") (package (inherit rust-generic-array-0.14) (name "rust-generic-array") - (version "0.13.2") + (version "0.13.3") (source (origin (method url-fetch) @@ -15980,7 +16018,7 @@ API library @code{gdi32}.") (string-append name "-" version ".tar.gz")) (sha256 (base32 - "1kddwxpd58y807y1r3lijg7sw3gxm6nczl6wp57gamhv6mhygl8f")))) + "02g3zhqc086zmsb6kcmjs2fiprz8gq12g0xbm9g23215ydxfd5zp")))) (arguments `(#:cargo-inputs (("rust-serde" ,rust-serde-1) @@ -15993,7 +16031,7 @@ API library @code{gdi32}.") (package (inherit rust-generic-array-0.13) (name "rust-generic-array") - (version "0.12.3") + (version "0.12.4") (source (origin (method url-fetch) @@ -16002,7 +16040,7 @@ API library @code{gdi32}.") (string-append name "-" version ".tar.gz")) (sha256 (base32 - "1v5jg7djicq34nbiv1dwaki71gkny002wyy9qfn3y0hfmrs053y6")))))) + "1gfpay78vijl9vrwl1k9v7fbvbhkhcmnrk4kfg9l6x24y4s9zpzz")))))) (define-public rust-generic-array-0.9 (package @@ -16462,6 +16500,55 @@ debugging format.") DWARF debugging format.") (license (list license:asl2.0 license:expat)))) +(define-public rust-git-version-0.3 + (package + (name "rust-git-version") + (version "0.3.4") + (source + (origin + (method url-fetch) + (uri (crate-uri "git-version" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "1qj1rd19v8vg094b3fj0gy6ca53v93lhrl31wg1fs7g0y61qx4cl")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-git-version-macro" ,rust-git-version-macro-0.3) + ("rust-proc-macro-hack" ,rust-proc-macro-hack-0.5)))) + (home-page "https://github.com/fusion-engineering/rust-git-version") + (synopsis "Embed git information in your code at compile-time") + (description + "This crates compiles the git version (tag name, or hash otherwise) and +dirty state into your program.") + (license license:bsd-2))) + +(define-public rust-git-version-macro-0.3 + (package + (name "rust-git-version-macro") + (version "0.3.4") + (source + (origin + (method url-fetch) + (uri (crate-uri "git-version-macro" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "0mynlf8sfaa4xx7qff0qgnr339fbf1svgr569yip067fzm97ma9l")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-proc-macro-hack" ,rust-proc-macro-hack-0.5) + ("rust-proc-macro2" ,rust-proc-macro2-1) + ("rust-quote" ,rust-quote-1) + ("rust-syn" ,rust-syn-1)))) + (home-page "https://github.com/fusion-engineering/rust-git-version") + (synopsis "Internal macro crate for git-version") + (description + "This is an internal macro crate for git-version.") + (license license:bsd-2))) + (define-public rust-git2-0.13 (package (name "rust-git2") @@ -16563,6 +16650,24 @@ reading and writing git repositories.") ("rust-thread-id" ,rust-thread-id-3) ("rust-time" ,rust-time-0.1)))))) +(define-public rust-gjson-0.7 + (package + (name "rust-gjson") + (version "0.7.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "gjson" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "0vhary4ha77scriaw6r4nv16ha9pfzirm84sjc240csqwb542p10")))) + (build-system cargo-build-system) + (arguments `(#:skip-build? #t)) + (home-page "https://github.com/tidwall/gjson.rs") + (synopsis "JSON parser for Rust") + (description "Gjson is a JSON parser for Rust.") + (license license:expat))) + (define-public rust-glium-0.25 (package (name "rust-glium") @@ -17644,8 +17749,36 @@ their key-value pairs in a user controllable order.") (("rust-bytes" ,rust-bytes-0.4) ("rust-http" ,rust-http-0.1)))))) +(define-public rust-heapless-0.6 + (package + (name "rust-heapless") + (version "0.6.1") + (source + (origin + (method url-fetch) + (uri (crate-uri "heapless" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "08il083hcffis6km4is24kf2j0cnqs0bzz2b196l495zkk9d8jv3")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-as-slice" ,rust-as-slice-0.1) + ("rust-generic-array" ,rust-generic-array-0.14) + ("rust-hash32" ,rust-hash32-0.1) + ("rust-serde" ,rust-serde-1) + ("rust-stable-deref-trait" ,rust-stable-deref-trait-1) + ("rust-ufmt-write" ,rust-ufmt-write-0.1)))) + (home-page "https://github.com/japaric/heapless") + (synopsis "@code{statice} friendly data structures") + (description "This package provides @code{static} friendly data structures +that don't require dynamic memory allocation.") + (license (list license:expat license:asl2.0)))) + (define-public rust-heapless-0.5 (package + (inherit rust-heapless-0.6) (name "rust-heapless") (version "0.5.5") (source @@ -17656,7 +17789,6 @@ their key-value pairs in a user controllable order.") (sha256 (base32 "1h1d6s1f9zn0rz2vkdn0b42kcnkmlpd90yhfyqqhpirv38ws5a3k")))) - (build-system cargo-build-system) (arguments `(#:cargo-inputs (("rust-as-slice" ,rust-as-slice-0.1) @@ -17667,12 +17799,7 @@ their key-value pairs in a user controllable order.") ("rust-ufmt-write" ,rust-ufmt-write-0.1)) #:cargo-development-inputs (("rust-scoped-threadpool" ,rust-scoped-threadpool-0.1) - ("rust-ufmt" ,rust-ufmt-0.1)))) - (home-page "https://github.com/japaric/heapless") - (synopsis "@code{statice} friendly data structures") - (description "This package provides @code{static} friendly data structures -that don't require dynamic memory allocation.") - (license (list license:expat license:asl2.0)))) + ("rust-ufmt" ,rust-ufmt-0.1)))))) (define-public rust-heapsize-0.4 (package @@ -41170,17 +41297,17 @@ syntax extension expansion.") (description "This package provides a backport of libsyntax.") (license (list license:expat license:asl2.0)))) -(define-public rust-sys-info-0.7 +(define-public rust-sys-info-0.9 (package (name "rust-sys-info") - (version "0.7.0") + (version "0.9.0") (source (origin (method url-fetch) (uri (crate-uri "sys-info" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "0facyh6hswp1i7airri8ly5kl6sv5bvkkd21vs51k2b3z22bvkz5")))) + (base32 "0fiqhnj1rk69rahz4077lzs8x72gv4zcyknqdg7k359k97pfrz1k")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t @@ -41193,6 +41320,19 @@ syntax extension expansion.") "This Rust crate gathers system information.") (license license:expat))) +(define-public rust-sys-info-0.7 + (package + (inherit rust-sys-info-0.9) + (name "rust-sys-info") + (version "0.7.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "sys-info" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "0facyh6hswp1i7airri8ly5kl6sv5bvkkd21vs51k2b3z22bvkz5")))))) + (define-public rust-sysctl-0.4 (package (name "rust-sysctl") @@ -41245,27 +41385,26 @@ syntax extension expansion.") (define-public rust-sysinfo-0.16 (package (name "rust-sysinfo") - (version "0.16.1") + (version "0.16.5") (source (origin (method url-fetch) (uri (crate-uri "sysinfo" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1rj3rdy1jd9la9a5xzwk0gcimln7qvzqf1sqwg9xi6cf0vvy453w")))) + (base32 "06x5kvd4glq35jjy23xj8p7nd64dk8g4kc0v9qdfhyr0y0792zjn")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs - (("rust-cc" ,rust-cc-1) - ("rust-cfg-if" ,rust-cfg-if-1) - ("rust-core-foundation-sys" ,rust-core-foundation-sys-0.8) - ("rust-doc-comment" ,rust-doc-comment-0.3) - ("rust-libc" ,rust-libc-0.2) - ("rust-ntapi" ,rust-ntapi-0.3) - ("rust-once-cell" ,rust-once-cell-1) - ("rust-rayon" ,rust-rayon-1) - ("rust-winapi" ,rust-winapi-0.3)))) + (("rust-cfg-if" ,rust-cfg-if-1) + ("rust-core-foundation-sys" ,rust-core-foundation-sys-0.8) + ("rust-doc-comment" ,rust-doc-comment-0.3) + ("rust-libc" ,rust-libc-0.2) + ("rust-ntapi" ,rust-ntapi-0.3) + ("rust-once-cell" ,rust-once-cell-1) + ("rust-rayon" ,rust-rayon-1) + ("rust-winapi" ,rust-winapi-0.3)))) (home-page "https://github.com/GuillaumeGomez/sysinfo") (synopsis "System handler to interact with processes") (description @@ -48469,6 +48608,32 @@ WebAssembly binary files.") "Bindings for all Web APIs, a procedurally generated crate from WebIDL.") (license (list license:expat license:asl2.0)))) +(define-public rust-webbrowser-0.5 + (package + (name "rust-webbrowser") + (version "0.5.5") + (source + (origin + (method url-fetch) + (uri (crate-uri "webbrowser" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "12hmi768mnpssfh9w61ys75v706jj3pcy4fliqq21dnnj1j1bbgc")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-web-sys" ,rust-web-sys-0.3) + ("rust-widestring" ,rust-widestring-0.4) + ("rust-winapi" ,rust-winapi-0.3)))) + (home-page + "https://github.com/amodm/webbrowser-rs") + (synopsis "Open URLs in web browsers available on a platform") + (description + "Webbrowser-rs is a Rust library to open URLs in the web browsers +available on a platform.") + (license (list license:expat license:asl2.0)))) + (define-public rust-webpki-0.21 (package (name "rust-webpki") @@ -48762,20 +48927,20 @@ using @code{bindgen}.") (define-public rust-which-4 (package (name "rust-which") - (version "4.0.2") + (version "4.1.0") (source (origin (method url-fetch) (uri (crate-uri "which" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1vqih4glz0kh3p08bl8mdzk4c02195ws7v6mfpyfrf5qw7vlxhc7")))) + (base32 "1zixp9631knhnvd8c3si4wn01fldq063s86jxlmwxwmx5kj52mdm")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs - (("rust-libc" ,rust-libc-0.2) - ("rust-thiserror" ,rust-thiserror-1)))) + (("rust-either" ,rust-either-1) + ("rust-libc" ,rust-libc-0.2)))) (home-page "https://github.com/harryfei/which-rs.git") (synopsis "Rust equivalent of Unix command @command{which}") (description diff --git a/gnu/packages/cups.scm b/gnu/packages/cups.scm index 2ae3e5e0fd..bbeb565657 100644 --- a/gnu/packages/cups.scm +++ b/gnu/packages/cups.scm @@ -487,16 +487,15 @@ should only be used as part of the Guix cups-pk-helper service.") (define-public hplip (package (name "hplip") - (version "3.21.2") + (version "3.21.4") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/hplip/hplip/" version "/hplip-" version ".tar.gz")) (sha256 (base32 - "0hbwx9d4c8177vi0gavz9pxi7rc97jciacndp90ms8327shj2121")) + "1lsa0g8lafnmfyia0vy9x1j9q2l80xjjm7clkrawrbg53y3x7ixx")) (modules '((guix build utils))) - (patches (search-patches "hplip-remove-imageprocessor.patch")) (snippet '(begin ;; Delete non-free blobs: .so files, pre-compiled @@ -505,7 +504,14 @@ should only be used as part of the Guix cups-pk-helper service.") (find-files "." (lambda (file stat) (elf-file? file)))) + + ;; Now remove some broken references to them. (delete-file "prnt/hpcups/ImageProcessor.h") + (substitute* "Makefile.in" + ((" -lImageProcessor ") " ") + (("(\\@HPLIP_BUILD_TRUE\\@[[:blank:]]*).*libImageProcessor.*" + _ prefix) + (string-append prefix ":; \\\n"))) ;; Install binaries under libexec/hplip instead of ;; share/hplip; that'll at least ensure they get stripped. @@ -530,7 +536,8 @@ should only be used as part of the Guix cups-pk-helper service.") ;; TODO install apparmor profile files eventually. (arguments `(#:configure-flags - `("--disable-network-build" + `("--disable-imageProcessor-build" + "--disable-network-build" ,(string-append "--prefix=" (assoc-ref %outputs "out")) ,(string-append "--sysconfdir=" (assoc-ref %outputs "out") "/etc") ,(string-append "LDFLAGS=-Wl,-rpath=" diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm index b41a68e4fb..3a9c8c7ad4 100644 --- a/gnu/packages/databases.scm +++ b/gnu/packages/databases.scm @@ -50,6 +50,7 @@ ;;; Copyright © 2021 Greg Hogan <code@greghogan.com> ;;; Copyright © 2021 David Larsson <david.larsson@selfhosted.xyz> ;;; Copyright © 2021 Pjotr Prins <pjotr.guix@thebird.nl> +;;; Copyright © 2021 Bonface Munyoki Kilyungi <me@bonfacemunyoki.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -114,6 +115,7 @@ #:use-module (gnu packages popt) #:use-module (gnu packages protobuf) #:use-module (gnu packages python) + #:use-module (gnu packages python-check) #:use-module (gnu packages python-crypto) #:use-module (gnu packages python-science) #:use-module (gnu packages python-web) @@ -2907,6 +2909,28 @@ simple and Pythonic domain language.") (define-public python2-sqlalchemy (package-with-python2 python-sqlalchemy)) +(define-public python-sqlalchemy-stubs + (package + (name "python-sqlalchemy-stubs") + (version "0.4") + (source + (origin + (method url-fetch) + (uri (pypi-uri "sqlalchemy-stubs" version)) + (sha256 + (base32 + "1bppjmv7v7m0q8gwg791pgxbx4ay7mna0zq204pn9vw28kfxcrf6")))) + (build-system python-build-system) + (propagated-inputs + `(("python-mypy" ,python-mypy) + ("python-typing-extensions" ,python-typing-extensions))) + (home-page "https://github.com/dropbox/sqlalchemy-stubs") + (synopsis "SQLAlchemy stubs and mypy plugin") + (description "This package contains type stubs and a mypy plugin to +provide more precise static types and type inference for SQLAlchemy +framework.") + (license license:asl2.0))) + (define-public python-sqlalchemy-utils (package (name "python-sqlalchemy-utils") diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm index 652bb22f21..040aa38ebf 100644 --- a/gnu/packages/disk.scm +++ b/gnu/packages/disk.scm @@ -19,6 +19,7 @@ ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com> ;;; Copyright © 2020 Raghav Gururajan <raghavgururajan@disroot.org> ;;; Copyright © 2021 Michael Rohleder <mike@rohleder.de> +;;; Copyright © 2021 Mathieu Othacehe <othacehe@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -1067,19 +1068,27 @@ since they are better handled by external tools.") (define-public xfe (package (name "xfe") - (version "1.43.2") + (version "1.44") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/xfe/xfe/" version "/" - "xfe-" version ".tar.gz")) + "xfe-" version ".tar.xz")) (sha256 - (base32 "1fl51k5jm2vrfc2g66agbikzirmp0yb0lqhmsssixfb4mky3hpzs")))) + (base32 "1dihq03jqjllb69r78d9ihjjadi39v7sgzdf68qpxz5xhp8i8k2r")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases + (add-after 'unpack 'patch-potfiles + (lambda _ + ;; To add missing entry 'intl/plural.c' to potfiles list. + ;; Refer to https://sourceforge.net/p/xfe/bugs/257/ + (substitute* "po/POTFILES.in" + (("src/help.h") + (string-append "src/help.h\n" + "intl/plural.c"))))) (add-after 'unpack 'patch-bin-dirs (lambda* (#:key inputs #:allow-other-keys) (let* ((bash (assoc-ref inputs "bash")) @@ -1253,3 +1262,39 @@ and a partitioning of the heap between kinds of memory (for NUMA).") (description "mmc-utils is a command-line tool for configuring and inspecting MMC storage devices from userspace.") (license license:gpl2)))) + +(define-public bmaptools + (package + (name "bmaptools") + (version "3.6") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/intel/bmap-tools") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "01xzrv5nvd2nvj91lz4x9s91y9825j9pj96z0ap6yvy3w2dgvkkl")))) + (build-system python-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda _ + ;; XXX: Remove failing test. + (invoke "nosetests" "-v" + "--exclude" "test_bmap_helpers")))))) + (native-inputs + `(("python-mock" ,python-mock) + ("python-nose" ,python-nose))) + (propagated-inputs + `(("python-six" ,python-six))) + (home-page "https://github.com/intel/bmap-tools") + (synopsis "Create block map for a file or copy a file using block map") + (description "Bmaptool is a tool for creating the block map (bmap) for a +file and copying files using the block map. The idea is that large files, +like raw system image files, can be copied or flashed a lot faster and more +reliably with @code{bmaptool} than with traditional tools, like @code{dd} or +@code{cp}.") + (license license:gpl2))) diff --git a/gnu/packages/dns.scm b/gnu/packages/dns.scm index 6d1d7d20f6..fce150f24f 100644 --- a/gnu/packages/dns.scm +++ b/gnu/packages/dns.scm @@ -813,7 +813,7 @@ Extensions} (DNSSEC).") (define-public knot (package (name "knot") - (version "3.0.5") + (version "3.0.6") (source (origin (method git-fetch) @@ -822,7 +822,7 @@ Extensions} (DNSSEC).") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "16rgcmgj21w2niyz45d3zjlci9i22gxcvfzqw7g5zwsjdy9610nx")) + (base32 "0mjgjx43yb3w688jw16g5m1724wb0wnv4y7di2rslrp0s11wl2a9")) (modules '((guix build utils))) (snippet '(begin diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index d1c4481cad..9375fe7b4b 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -97,6 +97,7 @@ ;;; Copyright © 2021 Stefan Reichör <stefan@xsteve.at> ;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com> ;;; Copyright © 2021 Eugene Klimov <lipklim@mailbox.org> +;;; Copyright © 2021 Zheng Junjie <873216071@qq.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -1881,14 +1882,14 @@ incrementally confined in Isearch manner.") (define emacs-emms-print-metadata (package (name "emacs-emms-print-metadata") - (version "7.1") + (version "7.2") (source (origin (method url-fetch) (uri (string-append "https://elpa.gnu.org/packages/" "emms-" version ".tar")) (sha256 - (base32 "1dng8dy0w0wsdvvnjnrllwv5a8wq3kj20jik994b7prdx5dn6y52")))) + (base32 "11vqqh9rnzibsfw7wx62rgzl8i8ldpf0hv1sj43nhl5c6dlc8d5z")))) (build-system gnu-build-system) (arguments `(#:make-flags '("emms-print-metadata") @@ -12779,13 +12780,13 @@ containing words from the Rime project.") (define-public emacs-pyim (package (name "emacs-pyim") - (version "3.7.3") + (version "3.7.6") (source (origin (method url-fetch) (uri (string-append "https://elpa.gnu.org/packages/pyim-" version ".tar")) (sha256 - (base32 "0h6cp48hjdfnwbi799hrar5hlcag2339ygdq8qfds2iawrzk6y74")))) + (base32 "1crimmvyppjmds9shfvxy9j5zi3mk133bv5av0fgicm7ddkivksr")))) (build-system emacs-build-system) (propagated-inputs `(("emacs-async" ,emacs-async) @@ -25720,7 +25721,8 @@ REPL appropriate to the current major mode.") (base32 "1a50cziwg7lpgh26yvwxs46jfyfq1m0l6igbg5g5m288mz4d3an9")))) (build-system emacs-build-system) (arguments - '(#:phases + '(#:include (cons "\\.so$" %default-include) + #:phases (modify-phases %standard-phases (add-after 'unpack 'patch-rime-data-path (lambda* (#:key inputs #:allow-other-keys) @@ -25732,13 +25734,7 @@ REPL appropriate to the current major mode.") #t)) (add-before 'install 'build-emacs-module (lambda _ - (invoke "make" "lib"))) - (add-after 'install 'install-emacs-module - (lambda* (#:key outputs #:allow-other-keys) - (install-file "librime-emacs.so" - (string-append (assoc-ref outputs "out") - "/share/emacs/site-lisp")) - #t))))) + (invoke "make" "lib")))))) (inputs `(("librime" ,librime) ("rime-data" ,rime-data))) diff --git a/gnu/packages/embedded.scm b/gnu/packages/embedded.scm index 480bbf7835..901afba29b 100644 --- a/gnu/packages/embedded.scm +++ b/gnu/packages/embedded.scm @@ -1467,7 +1467,7 @@ handling communication with eBUS devices connected to a 2-wire bus system (define-public ucsim (package (name "ucsim") - (version "0.6-pre67") + (version "0.6-pre68") (source (origin (method url-fetch) (uri (string-append @@ -1475,7 +1475,7 @@ handling communication with eBUS devices connected to a 2-wire bus system "devel/ucsim-" version ".tar.gz")) (sha256 (base32 - "0aahj9pbfjphjrm4hgs9pfmp6d5aikaq4yvxlrvhywjinnnf0qp1")))) + "1bfj21f5pcfcg1xqqynlcfr8mn6qj5705cgc2lfr2s3n97qsd9df")))) (build-system gnu-build-system) (arguments `(#:configure-flags '("--enable-avr-port" @@ -1547,6 +1547,12 @@ and Zilog Z80 families, plus many of their variants.") (lambda _ (substitute* (find-files "." "(\\.mk$|\\.in$)") (("/bin/sh") (which "sh"))) + ;; --disable-ucsim disables sdcc-misc, patch it back in. + (substitute* "Makefile.in" + (("debugger/mcs51" line) + (string-append line "\n" + "TARGETS += sdcc-misc\n" + "PKGS += $(SDCC_MISC)"))) #t))))) (home-page "http://sdcc.sourceforge.net") (synopsis "C compiler suite for 8-bit microcontrollers") diff --git a/gnu/packages/file-systems.scm b/gnu/packages/file-systems.scm index c05ca90c2b..97519775c1 100644 --- a/gnu/packages/file-systems.scm +++ b/gnu/packages/file-systems.scm @@ -39,6 +39,7 @@ #:use-module (guix utils) #:use-module (gnu packages) #:use-module (gnu packages acl) + #:use-module (gnu packages admin) #:use-module (gnu packages attr) #:use-module (gnu packages autotools) #:use-module (gnu packages base) @@ -56,12 +57,14 @@ #:use-module (gnu packages glib) #:use-module (gnu packages gnupg) #:use-module (gnu packages golang) + #:use-module (gnu packages guile) #:use-module (gnu packages kerberos) #:use-module (gnu packages libffi) #:use-module (gnu packages linux) #:use-module (gnu packages nfs) #:use-module (gnu packages onc-rpc) #:use-module (gnu packages openldap) + #:use-module (gnu packages perl) #:use-module (gnu packages photo) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) @@ -72,6 +75,7 @@ #:use-module (gnu packages rsync) #:use-module (gnu packages sssd) #:use-module (gnu packages sqlite) + #:use-module (gnu packages time) #:use-module (gnu packages tls) #:use-module (gnu packages valgrind) #:use-module (gnu packages version-control) @@ -854,6 +858,161 @@ APFS.") (home-page "https://github.com/sgan81/apfs-fuse") (license license:gpl2+)))) +(define-public xfstests + ;; The last release (1.1.0) is from 2011. + (let ((revision "0") + (commit "1c18b9ec2fcc94bd05ecdd136aa51c97bf3fa70d")) + (package + (name "xfstests") + (version (git-version "1.1.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "git://git.kernel.org/pub/scm/fs/xfs/xfstests-dev.git") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0rrv0rs9nhaza0jk5k0bj27w4lcd1s4a1ls8nr679qi02bgx630x")))) + (build-system gnu-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-tool-locations + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "common/config" + ;; Make absolute file names relative. + (("(MKFS_PROG=\").*(\")" _ pre post) + (string-append pre "mkfs" post))) + (for-each (lambda (file) + (substitute* file + (("( -s|#.|[= ])(/bin/sh|/bin/bash)" _ pre match) + (string-append pre + (assoc-ref inputs "bash") + match)) + (("/bin/(rm|true)" match) + (string-append (assoc-ref inputs "coreutils") + match)) + (("/usr(/bin/time)" _ match) + (string-append (assoc-ref inputs "time") + match)))) + (append (find-files "common" ".*") + (find-files "tests" ".*") + (find-files "tools" ".*") + (find-files "src" "\\.(c|sh)$"))))) + (replace 'bootstrap + (lambda* (#:key make-flags #:allow-other-keys) + (substitute* "Makefile" + ;; Avoid a mysterious (to me) ‘permission denied’ error. + (("cp ") "cp -f ")) + (substitute* "m4/package_utilies.m4" + ;; Fix the bogus hard-coded paths for every single binary. + (("(AC_PATH_PROG\\(.*, ).*(\\))" _ pre post) + (string-append pre (getenv "PATH") post))) + (apply invoke "make" "configure" make-flags))) + (add-after 'install 'wrap-xfstests/check + ;; Keep wrapping distinct from 'create-helper-script below: users + ;; must be able to invoke xfstests/check directly if they prefer. + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out"))) + (wrap-program (string-append out "/xfstests/check") + ;; Prefix the user's PATH with the minimum required tools. + ;; The suite has many other optional dependencies and will + ;; automatically select tests based on the original PATH. + `("PATH" ":" prefix + ,(map (lambda (name) + (let ((input (assoc-ref inputs name))) + (string-append input "/bin:" + input "/sbin"))) + (list "acl" + "attr" + "coreutils" + "inetutils" + "xfsprogs"))))))) + (add-after 'install 'create-helper + ;; Upstream installs only a ‘check’ script that's not in $PATH and + ;; would try to write to the store without explaining how to change + ;; that. Install a simple helper script to make it discoverable. + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (check (string-append out "/xfstests/check")) + (bin (string-append out "/bin")) + (helper (string-append bin "/xfstests-check"))) + (mkdir-p bin) + (with-output-to-file helper + (lambda _ + (format #t "#!~a --no-auto-compile\n!#\n" + (string-append (assoc-ref inputs "guile") + "/bin/guile")) + (write + `(begin + (define (try proc dir) + "Try to PROC DIR. Return DIR on success, else #f." + (with-exception-handler (const #f) + (lambda _ (proc dir) dir) + #:unwind? #t)) + + (define args + (cdr (command-line))) + + (when (or (member "--help" args) + (member "-h" args)) + (format #t "Usage: ~a [OPTION]... +This Guix helper sets up a new writable RESULT_BASE if it's unset, then executes +xfstest's \"~a\" command (with any OPTIONs) as documented below.\n\n" + ,(basename helper) + ,(basename check))) + + (let* ((gotenv-base (getenv "RESULT_BASE")) + (base (or gotenv-base + (let loop ((count 0)) + (or (try mkdir + (format #f "xfstests.~a" + count)) + (loop (+ 1 count)))))) + (result-base (if (string-prefix? "/" base) + base + (string-append (getcwd) "/" + base)))) + (setenv "RESULT_BASE" result-base) + ;; CHECK must run in its own directory or will fail. + (chdir ,(dirname check)) + (let ((status + (status:exit-val (apply system* ,check args)))) + (unless gotenv-base + (try rmdir result-base)) + status)))))) + (chmod helper #o755))))))) + (native-inputs + `(("autoconf" ,autoconf) + ("automake" ,automake) + ("libtool" ,libtool))) + (inputs + `(("acl" ,acl) + ("attr" ,attr) + ("guile" ,guile-3.0) ; for our xfstests-check helper script + ("inetutils" ,inetutils) ; for ‘hostname’ + ("libuuid" ,util-linux "lib") + ("perl" ,perl) ; to automagically patch shebangs + ("time" ,time) + ("xfsprogs" ,xfsprogs))) + (home-page "https://git.kernel.org/pub/scm/fs/xfs/xfstests-dev.git") + (synopsis "File system @acronym{QA, Quality Assurance} test suite") + (description + "The @acronym{FSQA, File System Quality Assurance} regression test suite, +more commonly known as xfstests, comprises over 1,500 tests that exercise +(@dfn{torture}) both the user- and kernel-space parts of many different file +systems. + +As the package's name subtly implies, it was originally developed to test the +XFS file system. Today, xfstests is the primary test suite for all major file +systems supported by the kernel Linux including XFS, ext4, and Btrfs, but also +virtual and network file systems such as NFS, 9P, and the overlay file system. + +The packaged @command{check} script is not in @env{PATH} but can be invoked +with the included @command{xfstests-check} helper.") + (license license:gpl2)))) + (define-public zfs (package (name "zfs") @@ -983,6 +1142,84 @@ originally developed for Solaris and is now maintained by the OpenZFS community.") (license license:cddl1.0))) +(define-public zfs-auto-snapshot + (package + (name "zfs-auto-snapshot") + (version "1.2.4") + (source + (origin + (method git-fetch) + (uri (git-reference + (url + (string-append "https://github.com/zfsonlinux/" name)) + (commit + (string-append "upstream/" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0m4xw7h5qlbn5zdf9wb137pcr5l7hyrr7w2dgr16dfm5ay64vvfq")))) + (build-system gnu-build-system) + (inputs + ;; Note: if you are inheriting from the above zfs package in order + ;; to provide a specific stable kernel version, you should also + ;; inherit this package and replace the sole input below. + `(("zfs" ,zfs))) + (arguments + `(#:tests? #f ; No tests + #:phases + (modify-phases %standard-phases + (delete 'configure) + (delete 'build) + ;; Guix System may not have a traditional cron system, but + ;; the cron scripts installed by this package are convenient + ;; to use as targets for an mcron job specification, so make + ;; sure they can be run in-store. + (add-before 'install 'fix-scripts + (lambda* (#:key outputs inputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (zfs-auto-snapshot (string-append + out + "/sbin/zfs-auto-snapshot")) + (zfs-package (assoc-ref inputs "zfs")) + (zpool (string-append + zfs-package + "/sbin/zpool")) + (zfs (string-append + zfs-package + "/sbin/zfs"))) + (substitute* '("etc/zfs-auto-snapshot.cron.daily" + "etc/zfs-auto-snapshot.cron.frequent" + "etc/zfs-auto-snapshot.cron.hourly" + "etc/zfs-auto-snapshot.cron.monthly" + "etc/zfs-auto-snapshot.cron.weekly") + (("zfs-auto-snapshot") + zfs-auto-snapshot)) + (substitute* "src/zfs-auto-snapshot.sh" + (("LC_ALL=C zfs list") + (string-append "LC_ALL=C " zfs " list")) + (("LC_ALL=C zpool status") + (string-append "LC_ALL=C " zpool " status")) + (("zfs snapshot") + (string-append zfs " snapshot")) + (("zfs destroy") + (string-append zfs " destroy")))))) + ;; Provide DESTDIR and PREFIX on make command. + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (invoke "make" "install" + "PREFIX=" + (string-append "DESTDIR=" out))) + #t))))) + (home-page "https://github.com/zfsonlinux/zfs-auto-snapshot") + (synopsis "Automatically create, rotate and destroy ZFS snapshots") + (description "An alternative implementation of the zfs-auto-snapshot +service for Linux that is compatible with zfs-linux (now OpenZFS) and +zfs-fuse. + +On Guix System, you will need to invoke the included shell scripts as +@code{job} definitions in your @code{operating-system} declaration.") + (license license:gpl2+))) + (define-public mergerfs (package (name "mergerfs") diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm index 081cae50e7..24e8544db7 100644 --- a/gnu/packages/freedesktop.scm +++ b/gnu/packages/freedesktop.scm @@ -23,6 +23,7 @@ ;;; Copyright © 2020 Anders Thuné <asse.97@gmail.com> ;;; Copyright © 2020 Raghav Gururajan <raghavgururajan@disroot.org> ;;; Copyright © 2021 Brendan Tildesley <mail@brendan.scot> +;;; Copyright © 2021 pineapples <guixuser6392@protonmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -95,6 +96,7 @@ #:use-module (gnu packages python) #:use-module (gnu packages python-crypto) #:use-module (gnu packages python-xyz) + #:use-module (gnu packages samba) #:use-module (gnu packages sqlite) #:use-module (gnu packages valgrind) #:use-module (gnu packages video) @@ -827,6 +829,36 @@ GNOME Shell. The @command{localectl} command-line tool allows you to interact with localed. This package is extracted from the broader systemd package.") (license license:lgpl2.1+))) +(define-public seatd + (package + (name "seatd") + (version "0.5.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://git.sr.ht/~kennylevinsen/seatd") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1kglq8v4rnr3415mfaghyv2s2f8mxsy5s881gmm2908ig4n4j297")))) + (build-system meson-build-system) + (arguments + `(#:configure-flags '("-Dlogind=enabled"))) + (native-inputs + `(("pkg-config" ,pkg-config) + ("scdoc" ,scdoc))) + (inputs + `(("elogind" ,elogind))) + (home-page "https://sr.ht/~kennylevinsen/seatd") + (synopsis "Seat management daemon and library") + (description + "This package provides a minimal seat management daemon whose task is to +mediate access to shared devices, such as graphics and input, for applications +that require it. It also provides a universal seat management library that +allows applications to use whatever seat management is available.") + (license license:expat))) + (define-public packagekit (package (name "packagekit") @@ -2358,3 +2390,35 @@ which uses GTK+ and various pieces of GNOME infrastructure, such as the @code{org.gnome.Shell.Screenshot} or @code{org.gnome.SessionManager} D-Bus interfaces.") (license license:lgpl2.1+))) + +(define-public xdg-desktop-portal-wlr + (package + (name "xdg-desktop-portal-wlr") + (version "0.3.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/emersion/xdg-desktop-portal-wlr") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "18nlkqqxgxh7k0r2nk867wnp2nmaiinl6z67lrfv7rmiym0x82p8")))) + (build-system meson-build-system) + (native-inputs + `(("cmake" ,cmake) + ("pkg-config" ,pkg-config))) + (inputs + `(("elogind" ,elogind) + ("iniparser" ,iniparser) + ("pipewire" ,pipewire-0.3) + ("wayland" ,wayland) + ("wayland-protocols" ,wayland-protocols))) + (home-page "https://github.com/emersion/xdg-desktop-portal-wlr") + (synopsis "@code{xdg-desktop-portal} backend for wlroots") + (description + "This package provides @code{xdg-desktop-portal-wlr}. This project +seeks to add support for the screenshot, screencast, and possibly +remote-desktop @code{xdg-desktop-portal} interfaces for wlroots based +compositors.") + (license license:expat))) diff --git a/gnu/packages/game-development.scm b/gnu/packages/game-development.scm index 6abc63f314..3998312db1 100644 --- a/gnu/packages/game-development.scm +++ b/gnu/packages/game-development.scm @@ -348,14 +348,14 @@ files) into @file{.grf} and/or @file{.nfo} files.") (define-public python-sge (package (name "python-sge") - (version "1.7") + (version "2.0.post0") (source (origin (method url-fetch) (uri (pypi-uri "sge" version)) (sha256 (base32 - "02fn6v6bxk3sngwd4kd3mglrp0jlnhx7x6h8nnkik6wdv150a0wv")))) + "0s5d5qzlzfmqb10iyrqi62n36ll94d99xjaznp5ca6dz1b91qkvr")))) (build-system python-build-system) (propagated-inputs `(("python-pygame" ,python-pygame) diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index eb2563387f..e2c6a7ebc4 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -19,7 +19,7 @@ ;;; Copyright © 2016 Albin Söderqvist <albin@fripost.org> ;;; Copyright © 2016, 2017, 2018, 2019, 2020 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com> -;;; Copyright © 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016 Steve Webber <webber.sl@gmail.com> ;;; Copyright © 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@hyperbola.info> @@ -2086,8 +2086,8 @@ Every puzzle has a complete solution, although there may be more than one.") (license license:gpl2+))) (define-public retux - (let ((release "1.4.1") - (revision 1)) + (let ((release "1.5") + (revision 0)) (package (name "retux") (version (if (zero? revision) @@ -2099,10 +2099,10 @@ Every puzzle has a complete solution, although there may be more than one.") (uri (string-append "https://github.com/retux-game/retux/" "releases/download/v" version "/retux-" - release "-src.tar.gz")) + release "-src.zip")) (sha256 (base32 - "1vrldg2qh2gqfswj7vkpc589ldrrjd903j6cnfdik9zh0jhlq4h2")))) + "1yima7s36hn2kh5h08lczc5iid8jbdxk7x1g5ms6knaznzj7rll3")))) (build-system python-build-system) (arguments `(#:tests? #f ; no check target @@ -2125,6 +2125,8 @@ Every puzzle has a complete solution, although there may be more than one.") (copy-file "retux.py" (string-append bin "/retux")) (copy-recursively "data" data) #t)))))) + (native-inputs + `(("unzip" ,unzip))) (inputs `(("python-sge-pygame" ,python-sge-pygame) ("python-six" ,python-six) @@ -3154,7 +3156,7 @@ asynchronously and at a user-defined speed.") (define-public chess (package (name "chess") - (version "6.2.7") + (version "6.2.8") (source (origin (method url-fetch) @@ -3162,7 +3164,7 @@ asynchronously and at a user-defined speed.") ".tar.gz")) (sha256 (base32 - "0ilq4bfl0lwyzf11q7n2skydjhalfn3bgxhrp5hjxs5bc5d6fdp5")))) + "0irqb0wl30c2i1rs8f6mm1c89l7l9nxxv7533lr408h1m36lc16m")))) (build-system gnu-build-system) (arguments '(#:phases diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index a883f5bb55..4e6dac83e7 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -58,6 +58,7 @@ ;;; Copyright © 2020 Tim Gesthuizen <tim.gesthuizen@yahoo.de> ;;; Copyright © 2020, 2021 Andy Tai <atai@atai.org> ;;; Copyright © 2020, 2021 Sébastien Lerique <sl@eauchat.org> +;;; Copyright © 2021 Trevor Hass <thass@okstate.edu> ;;; ;;; This file is part of GNU Guix. ;;; @@ -10451,7 +10452,7 @@ apply fancy special effects and lets you share the fun with others.") (define-public passwordsafe (package (name "passwordsafe") - (version "3.99.2") + (version "5.0") (source (origin (method git-fetch) @@ -10460,7 +10461,7 @@ apply fancy special effects and lets you share the fun with others.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "0pi2l4gwf8paxm858mxrcsk5nr0c0zw5ycax40mghndb6b1qmmhf")))) + (base32 "1xh64bbg10gnfzlck5jvqy2zk6hbk9cyqgv85xc9kbdvs8n4lhgh")))) (build-system meson-build-system) (arguments `(#:glib-or-gtk? #t @@ -10490,7 +10491,7 @@ apply fancy special effects and lets you share the fun with others.") `(("glib" ,glib) ("gsettings-desktop-schemas" ,gsettings-desktop-schemas) ("gtk+" ,gtk+) - ("libhandy" ,libhandy-0.0) + ("libhandy" ,libhandy) ("libpwquality" ,libpwquality) ("python-pygobject" ,python-pygobject) ("python-pykeepass" ,python-pykeepass))) diff --git a/gnu/packages/gnuzilla.scm b/gnu/packages/gnuzilla.scm index 6ab2b75d68..212f684a58 100644 --- a/gnu/packages/gnuzilla.scm +++ b/gnu/packages/gnuzilla.scm @@ -3,7 +3,7 @@ ;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com> -;;; Copyright © 2016, 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il> +;;; Copyright © 2016, 2017, 2018, 2019, 2021 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com> ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2017, 2018 Nikita <nikita@n0.is> @@ -948,12 +948,6 @@ from forcing GEXP-PROMISE." `(#:tests? #f ; no check target #:out-of-source? #t ; must be built outside of the source directory - ;; XXX: There are RUNPATH issues such as - ;; $prefix/lib/icecat-31.6.0/plugin-container NEEDing libmozalloc.so, - ;; which is not in its RUNPATH, but they appear to be harmless in - ;; practice somehow. See <http://hydra.gnu.org/build/378133>. - #:validate-runpath? #f - #:configure-flags `("--enable-default-toolkit=cairo-gtk3-wayland" "--with-distribution-id=org.gnu" @@ -1201,6 +1195,9 @@ from forcing GEXP-PROMISE." (setenv "AUTOCONF" (which "autoconf")) ; must be autoconf-2.13 (setenv "CC" "gcc") ; apparently needed when Stylo is enabled (setenv "MOZ_BUILD_DATE" ,%icecat-build-id) ; avoid timestamp + (setenv "LDFLAGS" (string-append "-Wl,-rpath=" + (assoc-ref outputs "out") + "/lib/icecat")) (mkdir "../build") (chdir "../build") (format #t "build directory: ~s~%" (getcwd)) diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 7bbba8ff70..797210ee04 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -36,6 +36,8 @@ ;;; Copyright © 2021 Bonface Munyoki Kilyungi <me@bonfacemunyoki.com> ;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz> ;;; Copyright © 2021 Leo Le Bouter <lle-bout@zaclys.net> +;;; Copyright © 2021 Zelphir Kaltstahl <zelphirkaltstahl@posteo.de> +;;; Copyright © 2021 Oleg Pykhalov <go.wigust@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -361,13 +363,13 @@ $(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n")) dictionary and suggesting spelling corrections.") (license license:gpl3+))) -(define-public guile-bash +(define-public guile2.0-bash ;; This project is currently retired. It was initially announced here: ;; <https://lists.gnu.org/archive/html/guile-user/2015-02/msg00003.html>. (let ((commit "1eabc563ca5692b3e08d84f1f0e6fd2283284469") (revision "0")) (package - (name "guile-bash") + (name "guile2.0-bash") (version (string-append "0.1.6-" revision "." (string-take commit 7))) (home-page "https://anonscm.debian.org/cgit/users/kaction-guest/retired/dev.guile-bash.git") @@ -430,6 +432,25 @@ enable -f ~/.guix-profile/lib/bash/libguile-bash.so scm and then run @command{scm example.scm}.") (license license:gpl3+)))) +(define-public guile-bash + (package + (inherit guile2.0-bash) + (name "guile-bash") + (inputs + `(("guile" ,guile-3.0-latest) + ,@(assoc-remove! (package-inputs guile2.0-bash) "guile"))) + (arguments + `(#:tests? #f + #:phases (modify-phases %standard-phases + (add-after 'install 'install-guile + (lambda* (#:key inputs outputs #:allow-other-keys) + (copy-recursively + (string-append (assoc-ref outputs "out") + (assoc-ref inputs "guile") "/share") + (string-append (assoc-ref outputs "out") "/share")) + #t))) + ,@(package-arguments guile2.0-bash))))) + (define-public guile-8sync (package (name "guile-8sync") @@ -2106,6 +2127,38 @@ microAdapton. Both miniAdapton and microAdapton are designed to be easy to understand, extend, and port to host languages other than Scheme.") (license license:expat)))) +(define-public guile-raw-strings + (let ((commit "aa1cf783f2542811b473f797e12490920b779baa") + (revision "0")) + (package + (name "guile-raw-strings") + (version (git-version "0.0.0" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/lloda/guile-raw-strings") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1r2gx86zw5hb6byllra3nap3fw9p7q7rvdmg6qn9myrdxyjpns3l")))) + (build-system guile-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'build 'check + (lambda* (#:key tests? #:allow-other-keys) + (when tests? + (invoke "guile" "-L" "." "-s" "test.scm"))))))) + (native-inputs + `(("guile" ,guile-3.0))) + (home-page "https://github.com/lloda/guile-raw-strings") + (synopsis "Guile reader extension for `raw strings'") + (description "This package provides A Guile reader extension for `raw +strings', it lets you write verbatim strings without having to escape double +quotes. ") + (license license:public-domain)))) + (define-public guile-reader (package (name "guile-reader") @@ -4665,3 +4718,27 @@ properties inspired by ghc-quickcheck. You can use it to express properties, which functions should satisfy, as Scheme code and then check whether they hold in a large number of randomly generated test cases.") (license license:gpl3+))) + +(define-public guile-fslib + (package + (name "guile-fslib") + (version "0.2.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://notabug.org/ZelphirKaltstahl/guile-fslib/") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "118d84p443w7hrslv8hjyhgws631ia08mggiyklkmk0b9plfdsvz")))) + (build-system guile-build-system) + (inputs + `(("guile" ,guile-3.0))) + (home-page "https://notabug.org/ZelphirKaltstahl/guile-fslib") + (synopsis "Helper functions for working with locations in file systems") + (description + "This package contains helper functions for working with file system +locations.") + (license license:agpl3+))) diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm index 955bf2e88d..32f96747c9 100644 --- a/gnu/packages/guile.scm +++ b/gnu/packages/guile.scm @@ -316,8 +316,42 @@ without requiring the source code to be rewritten.") "share/guile/site/3.0"))))))) (define-public guile-3.0-latest - ;; The latest 3.0.x version. - guile-3.0) + ;; TODO: Make this 'guile-3.0' on the next rebuild cycle. + (package + (inherit guile-3.0) + (version "3.0.7") + (source (origin + (inherit (package-source guile-3.0)) ;preserve snippet + (patches '()) + (uri (string-append "mirror://gnu/guile/guile-" + version ".tar.xz")) + (sha256 + (base32 + "1dwiwsrpm4f96alfnz6wibq378242z4f16vsxgy1n9r00v3qczgm")))) + + ;; Build with the bundled mini-GMP to avoid interference with GnuTLS' own + ;; use of GMP via Nettle: <https://issues.guix.gnu.org/46330>. Use + ;; LIBGC/DISABLE-MUNMAP to work around <https://bugs.gnu.org/40525>. + ;; Remove libltdl, which is no longer used. + (propagated-inputs + `(("bdw-gc" ,libgc/disable-munmap) + ,@(srfi-1:fold srfi-1:alist-delete (package-propagated-inputs guile-3.0) + '("gmp" "libltdl" "bdw-gc")))) + (arguments + (substitute-keyword-arguments (package-arguments guile-3.0) + ((#:configure-flags flags ''()) + `(cons "--enable-mini-gmp" ,flags)))))) + +(define-public guile-3.0/libgc-7 + ;; Using libgc-7 avoid crashes that can occur, particularly when loading + ;; data in to the Guix Data Service: + ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=40525 + (hidden-package + (package + (inherit guile-3.0-latest) + (propagated-inputs + `(("bdw-gc" ,libgc-7) + ,@(srfi-1:alist-delete "bdw-gc" (package-propagated-inputs guile-3.0))))))) (define-public guile-3.0/fixed ;; A package of Guile that's rarely changed. It is the one used in the diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index f0ce039080..c454e40bda 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -356,7 +356,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS." ;; The current "stable" kernels. That is, the most recently released major ;; versions that are still supported upstream. -(define-public linux-libre-5.12-version "5.12.2") +(define-public linux-libre-5.12-version "5.12.3") (define deblob-scripts-5.12 (linux-libre-deblob-scripts linux-libre-5.12-version @@ -364,12 +364,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS." (base32 "1qp25fd4wgjyk7dzdq9yirm1z5w68sd1p3wv8lch8259i51gwjnf"))) (define-public linux-libre-5.12-pristine-source (let ((version linux-libre-5.12-version) - (hash (base32 "03gp5vq8vkwvksjsa1birds37rmrr73s9ik6m1wvgz8mdncvk64c"))) + (hash (base32 "13c7jbizf254rh4arvlgzk87vx7sz6psba47jnax23lbgal18dqk"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-5.12))) -(define-public linux-libre-5.11-version "5.11.19") +(define-public linux-libre-5.11-version "5.11.20") (define deblob-scripts-5.11 (linux-libre-deblob-scripts linux-libre-5.11-version @@ -377,7 +377,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS." (base32 "0yvr80g200hdryz54gdnzj4fl38pf7g4qbgj475rhcfwixhp1j7n"))) (define-public linux-libre-5.11-pristine-source (let ((version linux-libre-5.11-version) - (hash (base32 "0jrb8wbxj0dadyadggcn49hlxzxgz8mz8xr0ckgbnnvb8snikvjs"))) + (hash (base32 "15q7pw1wvl6ndvb6154p6vjr4qa4fa6lpbqpxvwy2kywc2jyxykk"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-5.11))) @@ -385,7 +385,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS." ;; The "longterm" kernels — the older releases with long-term upstream support. ;; Here are the support timelines: ;; <https://www.kernel.org/category/releases.html> -(define-public linux-libre-5.10-version "5.10.35") +(define-public linux-libre-5.10-version "5.10.36") (define deblob-scripts-5.10 (linux-libre-deblob-scripts linux-libre-5.10-version @@ -393,12 +393,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS." (base32 "0hh27ccqimagr3aij7ygwikxw66y63sqwd0xlf49bhpjd090r9a7"))) (define-public linux-libre-5.10-pristine-source (let ((version linux-libre-5.10-version) - (hash (base32 "1zcqsjzqgcvlhkjwhzs6sxgbhzkfg898pbisivjqfymp8nfs2dxc"))) + (hash (base32 "0s5jw7y17hnl66iybw6f4pbc5j5rilphqbv3iql22wq053vyg749"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-5.10))) -(define-public linux-libre-5.4-version "5.4.117") +(define-public linux-libre-5.4-version "5.4.118") (define deblob-scripts-5.4 (linux-libre-deblob-scripts linux-libre-5.4-version @@ -406,7 +406,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS." (base32 "1xghbbnaisjd0k1klbyn1p7r6r4x5a1bpmkm56a3gh2zvw4s7mj8"))) (define-public linux-libre-5.4-pristine-source (let ((version linux-libre-5.4-version) - (hash (base32 "0w679qymqh8dlb1mh2vxr382m1pzxdjwlp3bqzjr4043fmbrp62f"))) + (hash (base32 "06w2vhw6pdy49n3dcnq12bn50glbg9pwaqvs4nlzbljg4yf50w6r"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-5.4))) @@ -4416,14 +4416,14 @@ isolation or root privileges.") (define-public hdparm (package (name "hdparm") - (version "9.61") + (version "9.62") (source (origin (method url-fetch) (uri (string-append "mirror://sourceforge/hdparm/hdparm/" "hdparm-" version ".tar.gz")) (sha256 (base32 - "0hskvzsg58hw8abkkmxh5kky0hhilv516870x2bq62zihww1q6ns")))) + "0zvppv8qw0y1shlhn34iq1g4883i1cywsa514n595nmyrmsrs3rc")))) (build-system gnu-build-system) (arguments `(#:make-flags @@ -5163,7 +5163,7 @@ and copy/paste text in the console and in xterm.") (define-public btrfs-progs (package (name "btrfs-progs") - (version "5.11.1") + (version "5.12") (source (origin (method url-fetch) (uri (string-append "mirror://kernel.org/linux/kernel/" @@ -5171,7 +5171,7 @@ and copy/paste text in the console and in xterm.") "btrfs-progs-v" version ".tar.xz")) (sha256 (base32 - "1zpbpmq8qndwls40yg2c9xj9ca6mcxdziadj5i8fbi3ffp2crap3")))) + "0mgdcqyww20fvh0js717yvla1hkky12c6dfhascicmrfw5fdcfcf")))) (build-system gnu-build-system) (outputs '("out" "static")) ; static versions of the binaries in "out" @@ -5216,6 +5216,9 @@ and copy/paste text in the console and in xterm.") ("asciidoc" ,asciidoc) ("python" ,python) ("xmlto" ,xmlto) + ;; Remove this input entirely when the default headers + ;; version provides blk_zone.capacity (>= 5.9). + ("linux-libre-headers" ,linux-libre-headers-5.10) ;; For building documentation. ("libxml2" ,libxml2) ("docbook-xsl" ,docbook-xsl) diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm index 0824fa1d82..2df35d2500 100644 --- a/gnu/packages/lisp-xyz.scm +++ b/gnu/packages/lisp-xyz.scm @@ -67,6 +67,7 @@ #:use-module (gnu packages fontutils) #:use-module (gnu packages gl) #:use-module (gnu packages glib) + #:use-module (gnu packages gnome) #:use-module (gnu packages gtk) #:use-module (gnu packages image) #:use-module (gnu packages imagemagick) @@ -16434,3 +16435,145 @@ operations in 3D space.") (define-public cl-3d-matrices (sbcl-package->cl-source-package sbcl-3d-matrices)) + +(define-public sbcl-messagebox + (let ((commit "ea3688d9a9954bee7079c0173bc7b3f327021e9f") + (revision "1")) + (package + (name "sbcl-messagebox") + (version (git-version "1.0.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Shinmera/messagebox") + (commit commit))) + (file-name (git-file-name "messagebox" version)) + (sha256 + (base32 "0jkbzlca0wvspgsfj0b0hjwlyyy8jlywsldsbkp79q48fc3aa8jd")))) + (build-system asdf-build-system/sbcl) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-zenity-path + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "zenity.lisp" + (("\"zenity\"") + (string-append "\"" (assoc-ref inputs "zenity") + "/bin/zenity\"")))))))) + (inputs + `(("documentation-utils" ,sbcl-documentation-utils) + ("trivial-features" ,sbcl-trivial-features) + ("zenity" ,zenity))) + (home-page "https://shinmera.github.io/messagebox/") + (synopsis "Display a native GUI message box") + (description + "This is a small library to display a native GUI message box. This can be +useful to show error messages and other informational pieces should the +application fail and be unable to do so using its standard UI.") + (license license:zlib)))) + +(define-public ecl-messagebox + (sbcl-package->ecl-package sbcl-messagebox)) + +(define-public cl-messagebox + (sbcl-package->cl-source-package sbcl-messagebox)) + +(define-public sbcl-glsl-toolkit + (let ((commit "d00ba1906e3b5eb08ea346ac300a1e77bb999d04") + (revision "1")) + (package + (name "sbcl-glsl-toolkit") + (version (git-version "1.0.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Shirakumo/glsl-toolkit") + (commit commit))) + (file-name (git-file-name "glsl-toolkit" version)) + (sha256 + (base32 "0as5796yazchq1qkna3srxlz5v7cf7ffny9cbqi41wsa2s20vbh9")))) + (build-system asdf-build-system/sbcl) + (inputs + `(("cl-ppcre" ,sbcl-cl-ppcre) + ("documentation-utils" ,sbcl-documentation-utils) + ("parse-float" ,sbcl-parse-float) + ("trivial-indent" ,sbcl-trivial-indent))) + (home-page "https://shirakumo.github.io/glsl-toolkit/") + (synopsis "Parser for OpenGL Shader Language source files") + (description + "This package provides a Common Lisp system collecting tools written to +allow to wrangle OpenGL Shader Language (GLSL) source files.") + (license license:zlib)))) + +(define-public ecl-glsl-toolkit + (sbcl-package->ecl-package sbcl-glsl-toolkit)) + +(define-public cl-glsl-toolkit + (sbcl-package->cl-source-package sbcl-glsl-toolkit)) + +(define-public sbcl-simple-tasks + (let ((commit "745d4b54eac9bf5d6909792e63ecd2ef8d303cf2") + (revision "1")) + (package + (name "sbcl-simple-tasks") + (version (git-version "1.3.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Shinmera/simple-tasks") + (commit commit))) + (file-name (git-file-name "simple-tasks" version)) + (sha256 + (base32 "1ls1pij7dvb65g4nam7nvik1218jvfk5iplr48vy290fw3lq7v98")))) + (build-system asdf-build-system/sbcl) + (inputs + `(("array-utils" ,sbcl-array-utils) + ("bordeaux-threads" ,sbcl-bordeaux-threads) + ("dissect" ,sbcl-dissect))) + (home-page "https://shinmera.github.io/simple-tasks/") + (synopsis "Simple task scheduling framework") + (description "This is a task scheduling framework for Common Lisp.") + (license license:zlib)))) + +(define-public ecl-simple-tasks + (sbcl-package->ecl-package sbcl-simple-tasks)) + +(define-public cl-simple-tasks + (sbcl-package->cl-source-package sbcl-simple-tasks)) + +(define-public sbcl-trivial-main-thread + (let ((commit "25f114973bb69eb63e01d0bbfead31f8e682846a") + (revision "1")) + (package + (name "sbcl-trivial-main-thread") + (version (git-version "1.0.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Shinmera/trivial-main-thread") + (commit commit))) + (file-name (git-file-name "trivial-main-thread" version)) + (sha256 + (base32 "0bw1887i7396lqg75qvmgjfzz4xbiq9w5dp8wxdgrcsm0qwlraw7")))) + (build-system asdf-build-system/sbcl) + (inputs + `(("bordeaux-threads" ,sbcl-bordeaux-threads) + ("simple-tasks" ,sbcl-simple-tasks) + ("trivial-features" ,sbcl-trivial-features))) + (home-page "https://shinmera.github.io/trivial-main-thread/") + (synopsis "Compatibility library to run things in the main thread") + (description + "This package provides a Common Lisp system which wraps the +BORDEAUX-THREADS system to be able to run things in the main thread of the +implementation, for example drawing calls of GUI applications.") + (license license:zlib)))) + +(define-public ecl-trivial-main-thread + (sbcl-package->ecl-package sbcl-trivial-main-thread)) + +(define-public cl-trivial-main-thread + (sbcl-package->cl-source-package sbcl-trivial-main-thread)) diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm index a3f34f9bb0..e71ada9733 100644 --- a/gnu/packages/networking.scm +++ b/gnu/packages/networking.scm @@ -1698,14 +1698,14 @@ TCP connection, TLS handshake and so on) in the terminal.") (define-public squid (package (name "squid") - (version "4.14") + (version "4.15") (source (origin (method url-fetch) (uri (string-append "http://www.squid-cache.org/Versions/v4/squid-" version ".tar.xz")) (sha256 - (base32 "1z4zf98q24ps19fq840n0hwh6z1la65rf061kcapr29lcjm7s2gi")))) + (base32 "09aaz0hi7q4s5jalgl5i5fakmgzv5akf03gnajlah498mgjs94xn")))) (build-system gnu-build-system) (arguments '(#:configure-flags diff --git a/gnu/packages/ntp.scm b/gnu/packages/ntp.scm index 6d046eed1b..ecad2854a7 100644 --- a/gnu/packages/ntp.scm +++ b/gnu/packages/ntp.scm @@ -4,7 +4,7 @@ ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com> ;;; Copyright © 2015, 2018 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il> -;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; ;;; This file is part of GNU Guix. @@ -43,14 +43,14 @@ (define-public chrony (package (name "chrony") - (version "4.0") + (version "4.1") (source (origin (method url-fetch) (uri (string-append "https://download.tuxfamily.org/chrony/" "chrony-" version ".tar.gz")) (sha256 - (base32 "09f6w2x5h5kamb4rhcbaz911q1f730qdalgsn8s48yjyqlafl9xy")))) + (base32 "0k0nf5qqzl01106lkmwc32n6a1fxagalpbci38iccyilz79z4xpd")))) (build-system gnu-build-system) (arguments `(#:modules ((srfi srfi-26) diff --git a/gnu/packages/onc-rpc.scm b/gnu/packages/onc-rpc.scm index aeb2f6e115..aa49f5fb6a 100644 --- a/gnu/packages/onc-rpc.scm +++ b/gnu/packages/onc-rpc.scm @@ -2,7 +2,7 @@ ;;; Copyright © 2014, 2017, 2018 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016 John Darrington <jmd@gnu.org> ;;; Copyright © 2017, 2018 Leo Famulari <leo@famulari.name> -;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2018, 2021 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net> ;;; @@ -86,7 +86,7 @@ IPv4 and IPv6. ONC RPC is notably used by the network file system (NFS).") (define-public rpcbind (package (name "rpcbind") - (version "1.2.5") + (version "1.2.6") (source (origin (method url-fetch) @@ -95,8 +95,7 @@ IPv4 and IPv6. ONC RPC is notably used by the network file system (NFS).") name "-" version ".tar.bz2")) (patches (search-patches "rpcbind-CVE-2017-8779.patch")) (sha256 - (base32 - "0ynszy5hpc7wbz8xngqwyhgbi9cay73y43izqhcmrcv375l61qrc")))) + (base32 "1pp8xvprsfz8nlmmvxf829gilx0ibb08bfs3lhisxrfai5j784sn")))) (build-system gnu-build-system) (arguments `(#:configure-flags diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm index 09fa7208dc..c72c2211b3 100644 --- a/gnu/packages/package-management.scm +++ b/gnu/packages/package-management.scm @@ -131,9 +131,9 @@ ;; Latest version of Guix, which may or may not correspond to a release. ;; Note: the 'update-guix-package.scm' script expects this definition to ;; start precisely like this. - (let ((version "1.2.0") - (commit "4dff6ecde85eec473ab231cf75f51e98e8aca1e9") - (revision 21)) + (let ((version "1.3.0") + (commit "771b866c55e5f992df60f6c32f5fdd78b64e17f6") + (revision 1)) (package (name "guix") @@ -149,7 +149,7 @@ (commit commit))) (sha256 (base32 - "1n16j7rb4n4pjmp8ck5g206rphmzxii2mbyz1nk4qk70zc3mwszq")) + "0w8w05w6v3lc6478vfw67jzn0hbd9nsncpx9i9ch1lck53r8vs44")) (file-name (string-append "guix-" version "-checkout")))) (build-system gnu-build-system) (arguments @@ -312,9 +312,11 @@ $(prefix)/etc/openrc\n"))) "guile-bytestructures")) (ssh (assoc-ref inputs "guile-ssh")) (gnutls (assoc-ref inputs "gnutls")) + (disarchive (assoc-ref inputs "disarchive")) (locales (assoc-ref inputs "glibc-utf8-locales")) (deps (list gcrypt json sqlite gnutls git - bs ssh zlib lzlib zstd guile-lib)) + bs ssh zlib lzlib zstd guile-lib + disarchive)) (deps* (if avahi (cons avahi deps) deps)) (effective (read-line @@ -416,6 +418,8 @@ $(prefix)/etc/openrc\n"))) ("bootstrap/tar" ,(bootstrap-executable "tar" (%current-system))) ("bootstrap/xz" ,(bootstrap-executable "xz" (%current-system))) + ("disarchive" ,disarchive) ;for 'guix perform-download' + ("glibc-utf8-locales" ,glibc-utf8-locales))) (propagated-inputs `(("gnutls" ,gnutls) diff --git a/gnu/packages/patches/giara-fix-login.patch b/gnu/packages/patches/giara-fix-login.patch new file mode 100644 index 0000000000..f15caaf559 --- /dev/null +++ b/gnu/packages/patches/giara-fix-login.patch @@ -0,0 +1,27 @@ +From f4adc1f52d777cea3331b4acae0c3bdec4d0eb70 Mon Sep 17 00:00:00 2001 +From: Paper <paper@tilde.institute> +Date: Fri, 12 Mar 2021 21:10:34 +0000 +Subject: [PATCH] fix login by removing everything after # from URL + +--- + giara/__main__.py | 3 ++- + 1 file changed, 2 insertions(+), 1 deletion(-) + +diff --git a/giara/__main__.py b/giara/__main__.py +index 10b9ae2..d235332 100644 +--- a/giara/__main__.py ++++ b/giara/__main__.py +@@ -53,8 +53,9 @@ class GApplication(Gtk.Application): + def open(self, app, files, *args): + target = files[0].get_uri() + print(target) ++ code = target.split('=')[-1].split('#')[0] + get_authorized_client( +- reddit=self._unauth_reddit, code=target.split('=')[-1] ++ reddit=self._unauth_reddit, code=code + ) + self.continue_activate(self._unauth_reddit) + +-- +GitLab + diff --git a/gnu/packages/patches/hplip-remove-imageprocessor.patch b/gnu/packages/patches/hplip-remove-imageprocessor.patch deleted file mode 100644 index c9d27a4d1d..0000000000 --- a/gnu/packages/patches/hplip-remove-imageprocessor.patch +++ /dev/null @@ -1,245 +0,0 @@ -This patch is based heavily on the Debian patch, but was updated to -apply to subsequent upstream changes not yet in Debian. - -https://salsa.debian.org/printing-team/hplip/raw/debian/3.18.10+dfsg0-1/debian/patches/0025-Remove-all-ImageProcessor-functionality-which-is-clo.patch - ---- - Makefile.am | 22 +++------------------- - Makefile.in | 33 +++++---------------------------- - prnt/hpcups/HPCupsFilter.cpp | 21 --------------------- - 3 files changed, 8 insertions(+), 68 deletions(-) - -diff --git a/Makefile.am b/Makefile.am -index ef6480f..ecada5c 100644 ---- a/Makefile.am -+++ b/Makefile.am -@@ -166,7 +166,7 @@ if !HPLIP_CLASS_DRIVER - dist_hplip_SCRIPTS = hpssd.py __init__.py hpdio.py - endif #HPLIP_CLASS_DRIVER - --dist_noinst_DATA += prnt/drv/hpijs.drv.in.template prnt/drv/hpcups.drv.in.template prnt/hpcups/libImageProcessor-x86_64.so prnt/hpcups/libImageProcessor-x86_32.so -+dist_noinst_DATA += prnt/drv/hpijs.drv.in.template prnt/drv/hpcups.drv.in.template - dist_noinst_SCRIPTS += dat2drv.py install.py hplip-install init-suse-firewall init-iptables-firewall class_rpm_build.sh hplipclassdriver.spec createPPD.sh Makefile_dat2drv hpijs-drv - - if !HPLIP_CLASS_DRIVER -@@ -590,11 +590,10 @@ hpcups_SOURCES = prnt/hpcups/HPCupsFilter.cpp prnt/hpcups/HPCupsFilter.h prnt/hp - prnt/hpcups/flate_colorspace.h prnt/hpcups/RunLenEncoding.h prnt/hpcups/common_defines.h \ - prnt/hpcups/genPCLm.h \ - common/utils.c common/utils.h prnt/hpcups/Hbpl1_Wrapper.cpp prnt/hpcups/genPCLm.cpp \ -- prnt/hpcups/genJPEGStrips.cpp prnt/hpcups/RunLenEncoding.cpp \ -- prnt/hpcups/ImageProcessor.h -+ prnt/hpcups/genJPEGStrips.cpp prnt/hpcups/RunLenEncoding.cpp - - hpcups_CXXFLAGS = $(APDK_ENDIAN_FLAG) $(DBUS_CFLAGS) --hpcups_LDADD = -L./prnt/hpcups/ -ljpeg -ldl -lImageProcessor -lcups -lcupsimage -lz $(DBUS_LIBS) -+hpcups_LDADD = -L./prnt/hpcups/ -ljpeg -ldl -lcups -lcupsimage -lz $(DBUS_LIBS) - #else - #hpcupsdir = $(cupsfilterdir) - #hpcups_PROGRAMS = hpcups -@@ -679,21 +678,10 @@ printpluginsdir=$(cupsfilterdir) - - - dist_filter_DATA = hpcups hpps dat2drv --dist_printplugins_DATA = prnt/plugins/hbpl1-arm32.so prnt/plugins/hbpl1-arm64.so prnt/plugins/hbpl1-x86_32.so prnt/plugins/hbpl1-x86_64.so prnt/plugins/lj-arm32.so prnt/plugins/lj-arm64.so prnt/plugins/lj-x86_32.so prnt/plugins/lj-x86_64.so - endif #HPLIP_CLASS_DRIVER - - install-data-hook: - if HPLIP_BUILD -- if [ \( "$(UNAME)" = "x86_64" -a -d "$(libdir)/" \) ]; then \ -- cp prnt/hpcups/libImageProcessor-x86_64.so $(libdir)/ ; \ -- chmod 775 $(libdir)/libImageProcessor-x86_64.so ; \ -- ln -sf $(libdir)/libImageProcessor-x86_64.so $(libdir)/libImageProcessor.so ; \ -- fi; \ -- if [ \( \( "$(UNAME)" = "i686" -o "$(UNAME)" = "i386" \) -a -d "$(libdir)/" \) ]; then \ -- cp prnt/hpcups/libImageProcessor-x86_32.so $(libdir)/ ; \ -- chmod 775 $(libdir)/libImageProcessor-x86_32.so ; \ -- ln -sf $(libdir)/libImageProcessor-x86_32.so $(libdir)/libImageProcessor.so ; \ -- fi - if !HPLIP_CLASS_DRIVER - # If scanner build, add hpaio entry to sane dll.conf. - if [ "$(scan_build)" = "yes" ]; then \ -@@ -874,10 +862,6 @@ if HPLIP_CLASS_DRIVER - rm -rf $(distdir)/setup.py - rm -rf $(distdir)/systray.py - rm -rf $(distdir)/timedate.py -- rm -rf $(distdir)/prnt/plugins/lj-arm32.so -- rm -rf $(distdir)/prnt/plugins/lj-arm64.so -- rm -rf $(distdir)/prnt/plugins/lj-x86_32.so -- rm -rf $(distdir)/prnt/plugins/lj-x86_64.so - rm -rf $(distdir)/hpijs-drv - rm -rf $(distdir)/prnt/hpcups/ - rm -rf $(distdir)/prnt/ps/ -diff --git a/Makefile.in b/Makefile.in -index 910a268..cd44203 100644 ---- a/Makefile.in -+++ b/Makefile.in -@@ -103,7 +103,7 @@ DIST_COMMON = $(am__configure_deps) \ - - # ip library - @HPLIP_BUILD_TRUE@am__append_12 = libhpip.la --@FULL_BUILD_TRUE@@HPLIP_BUILD_TRUE@am__append_13 = prnt/drv/hpijs.drv.in.template prnt/drv/hpcups.drv.in.template prnt/hpcups/libImageProcessor-x86_64.so prnt/hpcups/libImageProcessor-x86_32.so -+@FULL_BUILD_TRUE@@HPLIP_BUILD_TRUE@am__append_13 = prnt/drv/hpijs.drv.in.template prnt/drv/hpcups.drv.in.template - @FULL_BUILD_TRUE@@HPLIP_BUILD_TRUE@am__append_14 = dat2drv.py install.py hplip-install init-suse-firewall init-iptables-firewall class_rpm_build.sh hplipclassdriver.spec createPPD.sh Makefile_dat2drv hpijs-drv - @FULL_BUILD_TRUE@@HPLIP_BUILD_TRUE@@HPLIP_CLASS_DRIVER_FALSE@am__append_15 = scan/sane/hpaio.desc \ - @FULL_BUILD_TRUE@@HPLIP_BUILD_TRUE@@HPLIP_CLASS_DRIVER_FALSE@ installer/text_install.py \ -@@ -500,8 +500,7 @@ am__hpcups_SOURCES_DIST = prnt/hpcups/HPCupsFilter.cpp \ - prnt/hpcups/RunLenEncoding.h prnt/hpcups/common_defines.h \ - prnt/hpcups/genPCLm.h common/utils.c common/utils.h \ - prnt/hpcups/Hbpl1_Wrapper.cpp prnt/hpcups/genPCLm.cpp \ -- prnt/hpcups/genJPEGStrips.cpp prnt/hpcups/RunLenEncoding.cpp \ -- prnt/hpcups/ImageProcessor.h -+ prnt/hpcups/genJPEGStrips.cpp prnt/hpcups/RunLenEncoding.cpp - @HPCUPS_INSTALL_TRUE@am_hpcups_OBJECTS = \ - @HPCUPS_INSTALL_TRUE@ hpcups-HPCupsFilter.$(OBJEXT) \ - @HPCUPS_INSTALL_TRUE@ hpcups-dbuscomm.$(OBJEXT) \ -@@ -723,8 +722,7 @@ am__dist_locatedriver_DATA_DIST = locatedriver - am__dist_models_DATA_DIST = data/models/models.dat - am__dist_noinst_DATA_DIST = prnt/drv/hpijs.drv.in.template \ - prnt/drv/hpcups.drv.in.template \ -- prnt/hpcups/libImageProcessor-x86_64.so \ -- prnt/hpcups/libImageProcessor-x86_32.so scan/sane/hpaio.desc \ -+ scan/sane/hpaio.desc \ - installer/text_install.py data/localization/hplip_de.ts \ - data/localization/hplip_es.ts data/localization/hplip_fr.ts \ - data/localization/hplip_it.ts data/localization/hplip_pt.ts \ -@@ -1932,11 +1930,6 @@ am__dist_ppd_DATA_DIST = prnt/ps/hp-designjet_z6810ps_42in-ps.ppd.gz \ - ppd/classppd/ps/hp-postscript-inkjet.ppd.gz \ - ppd/classppd/ps/hp-postscript-laserjet-pro.ppd.gz \ - ppd/classppd/ps/hp-postscript-laserjet.ppd.gz --am__dist_printplugins_DATA_DIST = prnt/plugins/hbpl1-arm32.so \ -- prnt/plugins/hbpl1-arm64.so prnt/plugins/hbpl1-x86_32.so \ -- prnt/plugins/hbpl1-x86_64.so prnt/plugins/lj-arm32.so \ -- prnt/plugins/lj-arm64.so prnt/plugins/lj-x86_32.so \ -- prnt/plugins/lj-x86_64.so - am__dist_prnt_DATA_DIST = prnt/cups.py prnt/__init__.py prnt/ldl.py \ - prnt/pcl.py prnt/colorcal.py - am__dist_rules_DATA_DIST = data/rules/56-hpmud.rules \ -@@ -4665,11 +4658,10 @@ libapdk_la_CFLAGS = $(libapdk_la_CXXFLAGS) -Iprnt/hpijs - @HPCUPS_INSTALL_TRUE@ prnt/hpcups/flate_colorspace.h prnt/hpcups/RunLenEncoding.h prnt/hpcups/common_defines.h \ - @HPCUPS_INSTALL_TRUE@ prnt/hpcups/genPCLm.h \ - @HPCUPS_INSTALL_TRUE@ common/utils.c common/utils.h prnt/hpcups/Hbpl1_Wrapper.cpp prnt/hpcups/genPCLm.cpp \ --@HPCUPS_INSTALL_TRUE@ prnt/hpcups/genJPEGStrips.cpp prnt/hpcups/RunLenEncoding.cpp \ --@HPCUPS_INSTALL_TRUE@ prnt/hpcups/ImageProcessor.h -+@HPCUPS_INSTALL_TRUE@ prnt/hpcups/genJPEGStrips.cpp prnt/hpcups/RunLenEncoding.cpp - - @HPCUPS_INSTALL_TRUE@hpcups_CXXFLAGS = $(APDK_ENDIAN_FLAG) $(DBUS_CFLAGS) --@HPCUPS_INSTALL_TRUE@hpcups_LDADD = -L./prnt/hpcups/ -ljpeg -ldl -lImageProcessor -lcups -lcupsimage -lz $(DBUS_LIBS) -+@HPCUPS_INSTALL_TRUE@hpcups_LDADD = -L./prnt/hpcups/ -ljpeg -ldl -lcups -lcupsimage -lz $(DBUS_LIBS) - #else - #hpcupsdir = $(cupsfilterdir) - #hpcups_PROGRAMS = hpcups -@@ -4717,7 +4709,6 @@ ppddir = $(hpppddir) - @HPLIP_CLASS_DRIVER_TRUE@filterdir = $(cupsfilterdir) - @HPLIP_CLASS_DRIVER_TRUE@printpluginsdir = $(cupsfilterdir) - @HPLIP_CLASS_DRIVER_TRUE@dist_filter_DATA = hpcups hpps dat2drv --@HPLIP_CLASS_DRIVER_TRUE@dist_printplugins_DATA = prnt/plugins/hbpl1-arm32.so prnt/plugins/hbpl1-arm64.so prnt/plugins/hbpl1-x86_32.so prnt/plugins/hbpl1-x86_64.so prnt/plugins/lj-arm32.so prnt/plugins/lj-arm64.so prnt/plugins/lj-x86_32.so prnt/plugins/lj-x86_64.so - all: all-am - - .SUFFIXES: -@@ -9380,16 +9371,6 @@ uninstall-am: uninstall-apparmor_abstractionDATA \ - - - install-data-hook: --@HPLIP_BUILD_TRUE@ if [ \( "$(UNAME)" = "x86_64" -a -d "$(libdir)/" \) ]; then \ --@HPLIP_BUILD_TRUE@ cp prnt/hpcups/libImageProcessor-x86_64.so $(libdir)/ ; \ --@HPLIP_BUILD_TRUE@ chmod 775 $(libdir)/libImageProcessor-x86_64.so ; \ --@HPLIP_BUILD_TRUE@ ln -sf $(libdir)/libImageProcessor-x86_64.so $(libdir)/libImageProcessor.so ; \ --@HPLIP_BUILD_TRUE@ fi; \ --@HPLIP_BUILD_TRUE@ if [ \( \( "$(UNAME)" = "i686" -o "$(UNAME)" = "i386" \) -a -d "$(libdir)/" \) ]; then \ --@HPLIP_BUILD_TRUE@ cp prnt/hpcups/libImageProcessor-x86_32.so $(libdir)/ ; \ --@HPLIP_BUILD_TRUE@ chmod 775 $(libdir)/libImageProcessor-x86_32.so ; \ --@HPLIP_BUILD_TRUE@ ln -sf $(libdir)/libImageProcessor-x86_32.so $(libdir)/libImageProcessor.so ; \ --@HPLIP_BUILD_TRUE@ fi - # If scanner build, add hpaio entry to sane dll.conf. - @HPLIP_BUILD_TRUE@@HPLIP_CLASS_DRIVER_FALSE@ if [ "$(scan_build)" = "yes" ]; then \ - @HPLIP_BUILD_TRUE@@HPLIP_CLASS_DRIVER_FALSE@ $(mkinstalldirs) $(DESTDIR)/etc/sane.d; \ -@@ -9556,10 +9537,6 @@ dist-hook: - @HPLIP_CLASS_DRIVER_TRUE@ rm -rf $(distdir)/setup.py - @HPLIP_CLASS_DRIVER_TRUE@ rm -rf $(distdir)/systray.py - @HPLIP_CLASS_DRIVER_TRUE@ rm -rf $(distdir)/timedate.py --@HPLIP_CLASS_DRIVER_TRUE@ rm -rf $(distdir)/prnt/plugins/lj-arm32.so --@HPLIP_CLASS_DRIVER_TRUE@ rm -rf $(distdir)/prnt/plugins/lj-arm64.so --@HPLIP_CLASS_DRIVER_TRUE@ rm -rf $(distdir)/prnt/plugins/lj-x86_32.so --@HPLIP_CLASS_DRIVER_TRUE@ rm -rf $(distdir)/prnt/plugins/lj-x86_64.so - @HPLIP_CLASS_DRIVER_TRUE@ rm -rf $(distdir)/hpijs-drv - @HPLIP_CLASS_DRIVER_TRUE@ rm -rf $(distdir)/prnt/hpcups/ - @HPLIP_CLASS_DRIVER_TRUE@ rm -rf $(distdir)/prnt/ps/ -diff --git a/prnt/hpcups/HPCupsFilter.cpp b/prnt/hpcups/HPCupsFilter.cpp -index 5b282d8..0bacfaf 100644 ---- a/prnt/hpcups/HPCupsFilter.cpp -+++ b/prnt/hpcups/HPCupsFilter.cpp -@@ -31,7 +31,6 @@ - \*****************************************************************************/ - - #include "HPCupsFilter.h" --#include "ImageProcessor.h" - - #include <signal.h> - #include <sys/wait.h> -@@ -651,21 +650,8 @@ - - sprintf(hpPreProcessedRasterFile, "%s/hp_%s_cups_SwapedPagesXXXXXX",CUPS_TMP_DIR, m_JA.user_name); - -- image_processor_t* imageProcessor=NULL; -- IMAGE_PROCESSOR_ERROR result; -- //added if condition to check if pinter language is "ljzjstream" -- //If so, then bypass imageprocessing functions while running HPCUPS filter. -- if(strncmp(m_JA.printer_platform, "ljzjstream",10) == 0){ -- imageProcessor = imageProcessorCreate(); -- } - while (cupsRasterReadHeader2(cups_raster, &cups_header)) - { -- if(strncmp(m_JA.printer_platform, "ljzjstream",10) == 0){ -- result = imageProcessorStartPage(imageProcessor, &cups_header); -- if (result != IPE_SUCCESS){ -- dbglog("DEBUG: imageProcessorStartPage failed result = %d\n", result); -- } -- } - current_page_number++; - - if (current_page_number == 1) { -@@ -764,14 +750,6 @@ - color_raster = rgbRaster; - black_raster = kRaster; - -- if(strncmp(m_JA.printer_platform, "ljzjstream",10) == 0) -- { -- result = imageProcessorProcessLine(imageProcessor, m_pPrinterBuffer, cups_header.cupsBytesPerLine); -- if (result != IPE_SUCCESS){ -- dbglog("DEBUG: imageProcessorProcessLine failed result = %d\n", result); -- } -- } -- - if ((y == 0) && !is_ljmono) { - //For ljmono, make sure that first line is not a blankRaster line.Otherwise printer - //may not skip blank lines before actual data -@@ -801,14 +779,6 @@ - } - } // for() loop end - -- if(strncmp(m_JA.printer_platform, "ljzjstream",10) == 0) -- { -- result = imageProcessorEndPage(imageProcessor); -- if (result != IPE_SUCCESS){ -- dbglog("DEBUG: imageProcessorEndPage failed result = %d\n", result); -- } -- } -- - m_Job.NewPage(); - if (err != NO_ERROR) { - break; -@@ -823,11 +793,6 @@ - rgbRaster = NULL; - } - -- -- if(strncmp(m_JA.printer_platform, "ljzjstream",10) == 0) -- { -- imageProcessorDestroy(imageProcessor); -- } - unlink(hpPreProcessedRasterFile); - return ret_status; - } --- -2.19.1 - diff --git a/gnu/packages/patches/snappy-add-inline-for-GCC.patch b/gnu/packages/patches/snappy-add-inline-for-GCC.patch new file mode 100644 index 0000000000..04d35f56ee --- /dev/null +++ b/gnu/packages/patches/snappy-add-inline-for-GCC.patch @@ -0,0 +1,67 @@ +From 0c716d435abe65250100c2caea0e5126ac4e14bd Mon Sep 17 00:00:00 2001 +From: "Georgi D. Sotirov" <gdsotirov@gmail.com> +Date: Wed, 5 May 2021 14:16:46 +0300 +Subject: [PATCH] Add inline with SNAPPY_ATTRIBUTE_ALWAYS_INLINE + +Add inline with SNAPPY_ATTRIBUTE_ALWAYS_INLINE on AdvanceToNextTag to +fix the following compilation errors and a warning with GCC: + +[ 2%] Building CXX object CMakeFiles/snappy.dir/snappy.cc.o +/usr/bin/c++ -DHAVE_CONFIG_H -Dsnappy_EXPORTS +-I/tmp/snappy-1.1.9/build -I/tmp/snappy-1.1.9 -O3 +-march=i586 -mtune=i686 -Wall -Wextra -fno-exceptions -fno-rtti -O3 +-DNDEBUG -fPIC -std=c++11 -o CMakeFiles/snappy.dir/snappy.cc.o -c +/tmp/snappy-1.1.9/snappy.cc +/tmp/snappy-1.1.9/snappy.cc:1017:8: warning: always_inline +function might not be inlinable [-Wattributes] + size_t AdvanceToNextTag(const uint8_t** ip_p, size_t* tag) { + ^ +/tmp/snappy-1.1.9/snappy.cc: In function 'std::pair<const +unsigned char*, int> snappy::DecompressBranchless(const uint8_t*, const +uint8_t*, ptrdiff_t, T, ptrdiff_t) [with T = char*; uint8_t = unsigned +char; ptrdiff_t = int]': +/tmp/snappy-1.1.9/snappy.cc:1017:8: error: inlining failed in +call to always_inline 'size_t snappy::AdvanceToNextTag(const uint8_t**, +size_t*)': function body can be overwritten at link time +/tmp/snappy-1.1.9/snappy.cc:1097:53: error: called from here + size_t tag_type = AdvanceToNextTag(&ip, &tag); + ^ +/tmp/snappy-1.1.9/snappy.cc:1017:8: error: inlining failed in +call to always_inline 'size_t snappy::AdvanceToNextTag(const uint8_t**, +size_t*)': function body can be overwritten at link time + size_t AdvanceToNextTag(const uint8_t** ip_p, size_t* tag) { + ^ +/tmp/snappy-1.1.9/snappy.cc:1097:53: error: called from here + size_t tag_type = AdvanceToNextTag(&ip, &tag); + ^ +/tmp/snappy-1.1.9/snappy.cc:1017:8: error: inlining failed in +call to always_inline 'size_t snappy::AdvanceToNextTag(const uint8_t**, +size_t*)': function body can be overwritten at link time + size_t AdvanceToNextTag(const uint8_t** ip_p, size_t* tag) { + ^ +/tmp/snappy-1.1.9/snappy.cc:1097:53: error: called from here + size_t tag_type = AdvanceToNextTag(&ip, &tag); + ^ +CMakeFiles/snappy.dir/build.make:137: recipe for target +'CMakeFiles/snappy.dir/snappy.cc.o' failed + +Just like with other functions using SNAPPY_ATTRIBUTE_ALWAYS_INLINE +macro (i.e. __attribute__((always_inline)) ) it is necessary to use C++ +inline specifier. +--- + snappy.cc | 2 +- + 1 file changed, 1 insertion(+), 1 deletion(-) + +diff --git a/snappy.cc b/snappy.cc +index 79dc0e8..51157be 100644 +--- a/snappy.cc ++++ b/snappy.cc +@@ -1014,7 +1014,7 @@ void MemMove(ptrdiff_t dst, const void* src, size_t size) { + } + + SNAPPY_ATTRIBUTE_ALWAYS_INLINE +-size_t AdvanceToNextTag(const uint8_t** ip_p, size_t* tag) { ++inline size_t AdvanceToNextTag(const uint8_t** ip_p, size_t* tag) { + const uint8_t*& ip = *ip_p; + // This section is crucial for the throughput of the decompression loop. + // The latency of an iteration is fundamentally constrained by the diff --git a/gnu/packages/pdf.scm b/gnu/packages/pdf.scm index 123fef92b6..8f163bdd37 100644 --- a/gnu/packages/pdf.scm +++ b/gnu/packages/pdf.scm @@ -1101,13 +1101,13 @@ the PDF pages.") (define-public img2pdf (package (name "img2pdf") - (version "0.4.0") + (version "0.4.1") (source (origin (method url-fetch) (uri (pypi-uri "img2pdf" version)) (sha256 - (base32 "1jdhmpzgj8815bhargb3xp3ydlqxwkz0mcadrflx2ga0p056kvpa")))) + (base32 "0ljmxp7myxccfdy4kxpn4jzq35qs4pbmmmnih9vis8abm2f2589q")))) (build-system python-build-system) (propagated-inputs `(("python-pikepdf" ,python-pikepdf) diff --git a/gnu/packages/python-web.scm b/gnu/packages/python-web.scm index 8b31368424..85c57e9f17 100644 --- a/gnu/packages/python-web.scm +++ b/gnu/packages/python-web.scm @@ -41,6 +41,7 @@ ;;; Copyright © 2020 Konrad Hinsen <konrad.hinsen@fastmail.net> ;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org> ;;; Copyright © 2021 Ekaitz Zarraga <ekaitz@elenq.tech> +;;; Copyright © 2021 Greg Hogan <code@greghogan.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -1189,8 +1190,7 @@ Amazon S3 compatible object storage server.") (source (origin (method url-fetch) - (uri (string-append "https://dl.bintray.com/pycurl/pycurl/pycurl-" - version ".tar.gz")) + (uri (pypi-uri "pycurl" version)) (sha256 (base32 "1cwlb76vddqp2mxqvjbhf367caddzy82rhangddjjhjqaj8x4zgc")))) (build-system python-build-system) diff --git a/gnu/packages/python-xyz.scm b/gnu/packages/python-xyz.scm index eebb44b9dc..05aa54c09c 100644 --- a/gnu/packages/python-xyz.scm +++ b/gnu/packages/python-xyz.scm @@ -99,6 +99,7 @@ ;;; Copyright © 2021 Sharlatan Hellseher <sharlatanus@gmail.com> ;;; Copyright © 2021 Ellis Kenyő <me@elken.dev> ;;; Copyright © 2021 LibreMiami <packaging-guix@libremiami.org> +;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz> ;;; ;;; This file is part of GNU Guix. ;;; @@ -181,6 +182,7 @@ #:use-module (gnu packages qt) #:use-module (gnu packages rdf) #:use-module (gnu packages readline) + #:use-module (gnu packages regex) #:use-module (gnu packages sdl) #:use-module (gnu packages search) #:use-module (gnu packages scanner) @@ -1287,6 +1289,30 @@ conventions and aliases in the same expression.") API for locking files.") (license license:expat))) +(define-public python-fb-re2 + (package + (name "python-fb-re2") + (version "1.0.7") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/facebook/pyre2") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0snprxdnh3m45r3b0az4v0l28h90ycmfbybzla6xg1qviwv9w1ak")))) + (build-system python-build-system) + (inputs + `(("re2" ,re2))) + (home-page "https://github.com/facebook/pyre2") + (synopsis "Python wrapper for RE2") + (description "This package provides a Python extension that wraps Google's +RE2 regular expression library. It implements many of the features of +Python's built-in @code{re} module with compatible interfaces.") + (license license:bsd-3))) + (define-public python-filelock (package (name "python-filelock") @@ -6089,13 +6115,13 @@ the OleFileIO module from PIL, the Python Image Library.") (define-public python-pikepdf (package (name "python-pikepdf") - (version "2.11.4") + (version "2.12.0") (source (origin (method url-fetch) (uri (pypi-uri "pikepdf" version)) (sha256 - (base32 "0kd5ydnsmlikkg69r255wvq4vy7plh7dx077s2saly5s5vdcqlkk")))) + (base32 "1fgk93v5zac38ak00nw94mi44z9701kn20dkdfpwqr3588vnxfzw")))) (build-system python-build-system) (arguments `(#:tests? #false)) ;require python-xmp-toolkit @@ -7557,7 +7583,18 @@ without using the configuration machinery.") "env = {'PATH': '', 'PYTHONPATH': os.environ['PYTHONPATH']}") (("env = \\{'PATH': str\\(b\\)\\}") "env = {'PATH': str(b), 'PYTHONPATH': os.environ['PYTHONPATH']}")) - #t))))) + #t)) + ;; Migration is running whenever etc/jupyter exists, but the + ;; Guix-managed directory will never contain any migratable IPython + ;; config files and cannot be written to anyway, so just pretend we + ;; already did that. + (add-after 'install 'disable-migration + (lambda* (#:key outputs #:allow-other-keys) + (mkdir-p (string-append (assoc-ref outputs "out") "/etc/jupyter")) + (invoke "touch" + (string-append + (assoc-ref outputs "out") + "/etc/jupyter/migrated"))))))) (propagated-inputs `(("python-traitlets" ,python-traitlets))) (native-inputs @@ -8342,13 +8379,13 @@ interfaces in an easy and portable manner.") (define-public python-networkx (package (name "python-networkx") - (version "2.5") + (version "2.5.1") (source (origin (method url-fetch) (uri (pypi-uri "networkx" version)) (sha256 - (base32 "00hnii2lplig2s324k1hvi29pyfab6z7i22922f67jgv4da9ay3r")))) + (base32 "0ni3pdisdr8vfp5m9sw8jzr7jwzgqqmc9hq327vrf4n4ra2xb70h")))) (build-system python-build-system) (arguments '(#:phases (modify-phases %standard-phases diff --git a/gnu/packages/racket.scm b/gnu/packages/racket.scm index f2bbf28564..18af14b2ec 100644 --- a/gnu/packages/racket.scm +++ b/gnu/packages/racket.scm @@ -66,14 +66,14 @@ (define-public racket-minimal (package (name "racket-minimal") - (version "8.0") ; note: remember to also update racket! + (version "8.1") ; note: remember to also update racket! (source (origin (method url-fetch) (uri (map (lambda (base) (string-append base version "/racket-minimal-src.tgz")) %installer-mirrors)) - (sha256 "0mwyffw4gcci8wmzxa3j28h03h0gsz55aard8qrk3lri8r2xyg21") + (sha256 "04zzqybpxss50n1jrwwq98539gw0y0ygpw9civl2sq3s4ww7m8l3") (patches (search-patches "racket-sh-via-rktio.patch")))) (home-page "https://racket-lang.org") @@ -100,36 +100,6 @@ (srfi srfi-1)) #:phases (modify-phases %standard-phases - (add-after 'unpack 'patch-chez-configure - (lambda* (#:key inputs outputs #:allow-other-keys) - (substitute* "src/cs/c/Makefile.in" - (("/bin/sh") (which "sh"))) - ;; TODO: Racket CS uses a fork of Chez Scheme. - ;; Most of this is copy-pasted from the "chez.scm", - ;; but maybe there's a way to reuse more directly. - (with-directory-excursion "src/ChezScheme" - (substitute* (find-files "mats" "Mf-.*") - (("^[[:space:]]+(cc ) *") "\tgcc ")) - (substitute* - (find-files "." (string-append - "(" - "Mf-[a-zA-Z0-9.]+" - "|Makefile[a-zA-Z0-9.]*" - "|checkin" - "|stex\\.stex" - "|newrelease" - "|workarea" - "|unix\\.ms" - "|^6\\.ms" - ;;"|[a-zA-Z0-9.]+\\.ms" ; guile can't read - ")")) - (("/bin/rm") (which "rm")) - (("/bin/ln") (which "ln")) - (("/bin/cp") (which "cp")) - (("/bin/echo") (which "echo"))) - (substitute* "makefiles/installsh" - (("/bin/true") (which "true")))) - #t)) (add-before 'configure 'pre-configure-minimal (lambda* (#:key inputs #:allow-other-keys) (chdir "src") @@ -215,7 +185,7 @@ DrRacket IDE, are not included.") %installer-mirrors)) (sha256 (base32 - "047wpjblfzmf1msz7snrp2c2h0zxyzlmbsqr9bwsyvz3frcg0888")))) + "0xdqwrwm604bbnr97h75dps2ixxz2svlw0fn0f674bn04dcfd60f")))) (inputs `(;; sqlite and libraries for `racket/draw' are needed to build the doc. ("cairo" ,cairo) diff --git a/gnu/packages/radio.scm b/gnu/packages/radio.scm index e008b23a59..b7647ea1ae 100644 --- a/gnu/packages/radio.scm +++ b/gnu/packages/radio.scm @@ -497,7 +497,6 @@ environment.") `(("doxygen" ,doxygen) ("pkg-config" ,pkg-config) ("pybind11" ,pybind11) - ("python" ,python) ("python-mako" ,python-mako) ("python-six" ,python-six))) (inputs @@ -509,8 +508,21 @@ environment.") ("hackrf" ,hackrf) ("libsndfile" ,libsndfile) ("log4cpp" ,log4cpp) + ("python" ,python) + ("python-numpy" ,python-numpy) + ("python-pyqt" ,python-pyqt) ("rtl-sdr" ,rtl-sdr) ("volk" ,volk))) + (arguments + `(#:modules ((guix build cmake-build-system) + ((guix build python-build-system) #:prefix python:) + (guix build utils)) + #:imported-modules (,@%cmake-build-system-modules + (guix build python-build-system)) + #:phases + (modify-phases %standard-phases + (add-after 'install 'wrap-python + (assoc-ref python:%standard-phases 'wrap))))) (synopsis "GNU Radio block for interfacing with various radio hardware") (description "This is a block for GNU Radio allowing to use a common API to access different radio hardware.") diff --git a/gnu/packages/ruby.scm b/gnu/packages/ruby.scm index 31ce3a0d00..34c0a6f79f 100644 --- a/gnu/packages/ruby.scm +++ b/gnu/packages/ruby.scm @@ -2793,6 +2793,33 @@ high-level toolkit for building cryptographic systems and protocols.") (home-page "https://github.com/crypto-rb/rbnacl") (license license:expat))) +(define-public ruby-hkdf + (package + (name "ruby-hkdf") + (version "1.0.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/jtdowney/hkdf") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1xqwdmxfnhagivwgb5v9ilwpb4jxlsqwj7pnj43d65zzg5m8p9r5")))) + (build-system ruby-build-system) + (arguments + `(#:test-target "default")) + (native-inputs + `(("ruby-rspec" ,ruby-rspec))) + (synopsis "HMAC-based Key Derivation Function") + (description + "This package provides a Ruby implementation of RFC5869: @acronym{HKDF, +HMAC-based Extract-and-Expand Key Derivation Function}. The goal of HKDF is to +take some source key material and generate suitable cryptographic keys from it.") + (home-page "https://github.com/jtdowney/hkdf") + (license license:expat))) + (define-public ruby-nenv (package (name "ruby-nenv") @@ -11270,6 +11297,40 @@ indentation will probably be an issue and hence this gem.") YAML.load suitable for accepting user input in Ruby applications.") (license license:expat))) +(define-public ruby-yaml-lint + (package + (name "ruby-yaml-lint") + (version "0.0.10") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Pryz/yaml-lint") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1jz26mxjkdyjbgqp7f9isnzd1i6vkizsswyj1v639nmq31hwfh0d")))) + (build-system ruby-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (replace 'check + (lambda* (#:key tests? #:allow-other-keys) + (when tests? + (invoke "rspec")) + #t))))) + (native-inputs + `(("ruby-coveralls" ,ruby-coveralls) + ("ruby-rspec" ,ruby-rspec) + ("ruby-simplecov" ,ruby-simplecov))) + (synopsis "Simple YAML check tool") + (description + "@code{yaml-lint} will simply try to load the YAML file with the built-in +Ruby yaml library.") + (home-page "https://github.com/Pryz/yaml-lint") + (license license:expat))) + (define-public ruby-mercenary (package (name "ruby-mercenary") diff --git a/gnu/packages/rust-apps.scm b/gnu/packages/rust-apps.scm index dc9526b267..d31f95ca05 100644 --- a/gnu/packages/rust-apps.scm +++ b/gnu/packages/rust-apps.scm @@ -83,21 +83,22 @@ low-end hardware and serving many concurrent requests.") (define-public bat (package (name "bat") - (version "0.18.0") + (version "0.18.1") (source (origin (method url-fetch) (uri (crate-uri "bat" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1hr6vzkw8mdy9v0sg1pg9gibamabhip05s7zdkwzwlv69qnhgs1z")))) + (base32 "0nvqkddpjxsmd27gqn8czql07faad50mihin5ivb9sxxnni28wnc")))) (build-system cargo-build-system) (arguments `(#:cargo-inputs (("rust-ansi-colours" ,rust-ansi-colours-1) ("rust-ansi-term" ,rust-ansi-term-0.12) ("rust-atty" ,rust-atty-0.2) - ("rust-bugreport" ,rust-bugreport-0.3) + ("rust-bugreport" ,rust-bugreport-0.4) + ("rust-clap" ,rust-clap-2) ("rust-clap" ,rust-clap-2) ("rust-clircle" ,rust-clircle-0.3) ("rust-console" ,rust-console-0.14) @@ -118,7 +119,7 @@ low-end hardware and serving many concurrent requests.") ("rust-wild" ,rust-wild-2)) #:cargo-development-inputs (("rust-assert-cmd" ,rust-assert-cmd-1) - ("rust-nix" ,rust-nix-0.19) + ("rust-nix" ,rust-nix-0.20) ("rust-predicates" ,rust-predicates-1) ("rust-serial-test" ,rust-serial-test-0.5) ("rust-tempfile" ,rust-tempfile-3) diff --git a/gnu/packages/shells.scm b/gnu/packages/shells.scm index 57b1a41111..ccee1506bf 100644 --- a/gnu/packages/shells.scm +++ b/gnu/packages/shells.scm @@ -956,7 +956,7 @@ files and text.") (define-public nushell (package (name "nushell") - (version "0.29.0") + (version "0.31.0") (source (origin (method git-fetch) @@ -965,7 +965,7 @@ files and text.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "0x7r8ipvypf6py2h03pdqr8pal6vyp6mskvss1rr8f0bcy3gr725")))) + (base32 "1dpbc6m0pxizkh4r02nw1i1fx9v43llylqnd28naqkklwc15pb2w")))) (build-system cargo-build-system) (arguments `(#:tests? #false ;missing files @@ -976,39 +976,40 @@ files and text.") ("rust-futures" ,rust-futures-0.3) ("rust-itertools" ,rust-itertools-0.10) ("rust-log" ,rust-log-0.4) - ("rust-nu-cli" ,rust-nu-cli-0.29) - ("rust-nu-command" ,rust-nu-command-0.29) - ("rust-nu-data" ,rust-nu-data-0.29) - ("rust-nu-engine" ,rust-nu-engine-0.29) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-parser" ,rust-nu-parser-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) - ("rust-nu-value-ext" ,rust-nu-value-ext-0.29) - ("rust-nu-plugin-binaryview" ,rust-nu-plugin-binaryview-0.29) - ("rust-nu-plugin-chart" ,rust-nu-plugin-chart-0.29) - ("rust-nu-plugin-fetch" ,rust-nu-plugin-fetch-0.29) - ("rust-nu-plugin-from-bson" ,rust-nu-plugin-from-bson-0.29) - ("rust-nu-plugin-from-sqlite" ,rust-nu-plugin-from-sqlite-0.29) - ("rust-nu-plugin-inc" ,rust-nu-plugin-inc-0.29) - ("rust-nu-plugin-match" ,rust-nu-plugin-match-0.29) - ("rust-nu-plugin-post" ,rust-nu-plugin-post-0.29) - ("rust-nu-plugin-ps" ,rust-nu-plugin-ps-0.29) - ("rust-nu-plugin-s3" ,rust-nu-plugin-s3-0.29) - ("rust-nu-plugin-selector" ,rust-nu-plugin-selector-0.29) - ("rust-nu-plugin-start" ,rust-nu-plugin-start-0.29) - ("rust-nu-plugin-sys" ,rust-nu-plugin-sys-0.29) - ("rust-nu-plugin-textview" ,rust-nu-plugin-textview-0.29) - ("rust-nu-plugin-to-bson" ,rust-nu-plugin-to-bson-0.29) - ("rust-nu-plugin-to-sqlite" ,rust-nu-plugin-to-sqlite-0.29) - ("rust-nu-plugin-tree" ,rust-nu-plugin-tree-0.29) - ("rust-nu-plugin-xpath" ,rust-nu-plugin-xpath-0.29) + ("rust-nu-cli" ,rust-nu-cli-0.31) + ("rust-nu-command" ,rust-nu-command-0.31) + ("rust-nu-data" ,rust-nu-data-0.31) + ("rust-nu-engine" ,rust-nu-engine-0.31) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-parser" ,rust-nu-parser-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) + ("rust-nu-value-ext" ,rust-nu-value-ext-0.31) + ("rust-nu-plugin-binaryview" ,rust-nu-plugin-binaryview-0.31) + ("rust-nu-plugin-chart" ,rust-nu-plugin-chart-0.31) + ("rust-nu-plugin-fetch" ,rust-nu-plugin-fetch-0.31) + ("rust-nu-plugin-from-bson" ,rust-nu-plugin-from-bson-0.31) + ("rust-nu-plugin-from-sqlite" ,rust-nu-plugin-from-sqlite-0.31) + ("rust-nu-plugin-inc" ,rust-nu-plugin-inc-0.31) + ("rust-nu-plugin-match" ,rust-nu-plugin-match-0.31) + ("rust-nu-plugin-post" ,rust-nu-plugin-post-0.31) + ("rust-nu-plugin-ps" ,rust-nu-plugin-ps-0.31) + ("rust-nu-plugin-query-json" ,rust-nu-plugin-query-json-0.31) + ("rust-nu-plugin-s3" ,rust-nu-plugin-s3-0.31) + ("rust-nu-plugin-selector" ,rust-nu-plugin-selector-0.31) + ("rust-nu-plugin-start" ,rust-nu-plugin-start-0.31) + ("rust-nu-plugin-sys" ,rust-nu-plugin-sys-0.31) + ("rust-nu-plugin-textview" ,rust-nu-plugin-textview-0.31) + ("rust-nu-plugin-to-bson" ,rust-nu-plugin-to-bson-0.31) + ("rust-nu-plugin-to-sqlite" ,rust-nu-plugin-to-sqlite-0.31) + ("rust-nu-plugin-tree" ,rust-nu-plugin-tree-0.31) + ("rust-nu-plugin-xpath" ,rust-nu-plugin-xpath-0.31) ("rust-pretty-env-logger" ,rust-pretty-env-logger-0.4)) #:cargo-development-inputs (("rust-dunce" ,rust-dunce-1) ("rust-hamcrest2" ,rust-hamcrest2-0.3) - ("rust-nu-test-support" ,rust-nu-test-support-0.29) + ("rust-nu-test-support" ,rust-nu-test-support-0.31) ("rust-serial-test" ,rust-serial-test-0.5)))) (native-inputs `(("pkg-config" ,pkg-config) @@ -1032,17 +1033,17 @@ directory. These values can be piped through a series of steps, in a series of commands called a ``pipeline''.") (license license:expat))) -(define-public rust-nu-ansi-term-0.29 +(define-public rust-nu-ansi-term-0.31 (package (name "rust-nu-ansi-term") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu-ansi-term" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "0zlcma4kg6rsfp5sgfp3yy717bdrn9nq32rdi2nabpwg3qa9mmkb")))) + (base32 "193nwg7j3p7mw2282vsx8ylfxg0wyydrgxd78ph3rqfqi83468n6")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t @@ -1056,24 +1057,36 @@ of commands called a ``pipeline''.") underline).") (license license:expat))) -(define-public rust-nu-cli-0.29 +(define-public rust-nu-ansi-term-0.29 (package - (name "rust-nu-cli") + (inherit rust-nu-ansi-term-0.31) + (name "rust-nu-ansi-term") (version "0.29.0") (source (origin (method url-fetch) + (uri (crate-uri "nu-ansi-term" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "0zlcma4kg6rsfp5sgfp3yy717bdrn9nq32rdi2nabpwg3qa9mmkb")))))) + +(define-public rust-nu-cli-0.31 + (package + (name "rust-nu-cli") + (version "0.31.0") + (source + (origin + (method url-fetch) (uri (crate-uri "nu-cli" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "0ya95r54k59h0gyz2wgj8y2lhddnk3aw7ww1npzcbfsy1xi1zvi5")))) + (base32 "1kg68san8p3nnhhfsld21hv5s6dx1kadlsc71l661p4f8pjcqp3r")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-arboard" ,rust-arboard-1) - ("rust-async-recursion" - ,rust-async-recursion-0.3) + ("rust-async-recursion" ,rust-async-recursion-0.3) ("rust-async-trait" ,rust-async-trait-0.1) ("rust-base64" ,rust-base64-0.13) ("rust-bigdecimal" ,rust-bigdecimal-0.2) @@ -1083,13 +1096,11 @@ underline).") ("rust-chrono" ,rust-chrono-0.4) ("rust-chrono-tz" ,rust-chrono-tz-0.5) ("rust-clap" ,rust-clap-2) - ("rust-codespan-reporting" - ,rust-codespan-reporting-0.11) + ("rust-codespan-reporting" ,rust-codespan-reporting-0.11) ("rust-csv" ,rust-csv-1) ("rust-ctrlc" ,rust-ctrlc-3) ("rust-derive-new" ,rust-derive-new-0.5) - ("rust-directories-next" - ,rust-directories-next-2) + ("rust-directories-next" ,rust-directories-next-2) ("rust-dirs-next" ,rust-dirs-next-2) ("rust-dtparse" ,rust-dtparse-1) ("rust-dunce" ,rust-dunce-1) @@ -1104,40 +1115,37 @@ underline).") ("rust-glob" ,rust-glob-0.3) ("rust-htmlescape" ,rust-htmlescape-0.3) ("rust-ical" ,rust-ical-0.7) - ("rust-ichwh" ,rust-ichwh-0.3) ("rust-indexmap" ,rust-indexmap-1) ("rust-inflector" ,rust-inflector-0.11) ("rust-itertools" ,rust-itertools-0.10) ("rust-lazy-static" ,rust-lazy-static-1) ("rust-log" ,rust-log-0.4) ("rust-meval" ,rust-meval-0.2) - ("rust-nu-ansi-term" ,rust-nu-ansi-term-0.29) - ("rust-nu-command" ,rust-nu-command-0.29) - ("rust-nu-data" ,rust-nu-data-0.29) - ("rust-nu-engine" ,rust-nu-engine-0.29) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-json" ,rust-nu-json-0.29) - ("rust-nu-parser" ,rust-nu-parser-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) - ("rust-nu-stream" ,rust-nu-stream-0.29) - ("rust-nu-table" ,rust-nu-table-0.29) - ("rust-nu-test-support" - ,rust-nu-test-support-0.29) - ("rust-nu-value-ext" ,rust-nu-value-ext-0.29) + ("rust-nu-ansi-term" ,rust-nu-ansi-term-0.31) + ("rust-nu-command" ,rust-nu-command-0.31) + ("rust-nu-data" ,rust-nu-data-0.31) + ("rust-nu-engine" ,rust-nu-engine-0.31) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-json" ,rust-nu-json-0.31) + ("rust-nu-parser" ,rust-nu-parser-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-pretty-hex" ,rust-nu-pretty-hex-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) + ("rust-nu-stream" ,rust-nu-stream-0.31) + ("rust-nu-table" ,rust-nu-table-0.31) + ("rust-nu-test-support" ,rust-nu-test-support-0.31) + ("rust-nu-value-ext" ,rust-nu-value-ext-0.31) ("rust-num-bigint" ,rust-num-bigint-0.3) ("rust-num-format" ,rust-num-format-0.4) ("rust-num-traits" ,rust-num-traits-0.2) ("rust-parking-lot" ,rust-parking-lot-0.11) ("rust-pin-utils" ,rust-pin-utils-0.1) - ("rust-pretty-hex" ,rust-pretty-hex-0.2) ("rust-ptree" ,rust-ptree-0.3) - ("rust-query-interface" - ,rust-query-interface-0.3) + ("rust-query-interface" ,rust-query-interface-0.3) + ("rust-quick-xml" ,rust-quick-xml-0.21) ("rust-quickcheck" ,rust-quickcheck-1) ("rust-quickcheck-macros" ,rust-quickcheck-macros-1) - ("rust-quick-xml" ,rust-quick-xml-0.21) ("rust-rand" ,rust-rand-0.8) ("rust-rayon" ,rust-rayon-1) ("rust-regex" ,rust-regex-1) @@ -1149,15 +1157,13 @@ underline).") ("rust-serde-bytes" ,rust-serde-bytes-0.11) ("rust-serde-ini" ,rust-serde-ini-0.2) ("rust-serde-json" ,rust-serde-json-1) - ("rust-serde-urlencoded" - ,rust-serde-urlencoded-0.7) + ("rust-serde-urlencoded" ,rust-serde-urlencoded-0.7) ("rust-serde-yaml" ,rust-serde-yaml-0.8) ("rust-sha2" ,rust-sha2-0.9) ("rust-shadow-rs" ,rust-shadow-rs-0.5) ("rust-shadow-rs" ,rust-shadow-rs-0.5) ("rust-shellexpand" ,rust-shellexpand-2) - ("rust-strip-ansi-escapes" - ,rust-strip-ansi-escapes-0.1) + ("rust-strip-ansi-escapes" ,rust-strip-ansi-escapes-0.1) ("rust-sxd-document" ,rust-sxd-document-0.3) ("rust-sxd-xpath" ,rust-sxd-xpath-0.4) ("rust-tempfile" ,rust-tempfile-3) @@ -1168,8 +1174,7 @@ underline).") ("rust-toml" ,rust-toml-0.5) ("rust-trash" ,rust-trash-1) ("rust-umask" ,rust-umask-1) - ("rust-unicode-segmentation" - ,rust-unicode-segmentation-1) + ("rust-unicode-segmentation" ,rust-unicode-segmentation-1) ("rust-url" ,rust-url-2) ("rust-users" ,rust-users-0.11) ("rust-uuid" ,rust-uuid-0.8) @@ -1180,25 +1185,22 @@ underline).") (description "CLI for nushell") (license license:expat))) -(define-public rust-nu-command-0.29 +(define-public rust-nu-command-0.31 (package (name "rust-nu-command") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu-command" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "0nydc7vyrhfw99bimjs6061zgcqqi8hjjx20sq3qn2njgk1p730l")))) + (base32 "079izj7fwdrdi9zi2260gkbqma7bm3lnx57hdlcslyg41mxka44c")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-arboard" ,rust-arboard-1) - ("rust-async-recursion" - ,rust-async-recursion-0.3) - ("rust-async-trait" ,rust-async-trait-0.1) ("rust-base64" ,rust-base64-0.13) ("rust-bigdecimal" ,rust-bigdecimal-0.2) ("rust-byte-unit" ,rust-byte-unit-4) @@ -1223,13 +1225,10 @@ underline).") ("rust-filesize" ,rust-filesize-0.2) ("rust-fs-extra" ,rust-fs-extra-1) ("rust-futures" ,rust-futures-0.3) - ("rust-futures-util" ,rust-futures-util-0.3) - ("rust-futures-codec" ,rust-futures-codec-0.4) ("rust-getset" ,rust-getset-0.1) ("rust-glob" ,rust-glob-0.3) ("rust-htmlescape" ,rust-htmlescape-0.3) ("rust-ical" ,rust-ical-0.7) - ("rust-ichwh" ,rust-ichwh-0.3) ("rust-indexmap" ,rust-indexmap-1) ("rust-inflector" ,rust-inflector-0.11) ("rust-itertools" ,rust-itertools-0.10) @@ -1238,26 +1237,26 @@ underline).") ("rust-md5" ,rust-md5-0.7) ("rust-meval" ,rust-meval-0.2) ("rust-minus" ,rust-minus-3) - ("rust-nu-ansi-term" ,rust-nu-ansi-term-0.29) - ("rust-nu-data" ,rust-nu-data-0.29) - ("rust-nu-engine" ,rust-nu-engine-0.29) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-json" ,rust-nu-json-0.29) - ("rust-nu-parser" ,rust-nu-parser-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) - ("rust-nu-stream" ,rust-nu-stream-0.29) - ("rust-nu-table" ,rust-nu-table-0.29) + ("rust-nu-ansi-term" ,rust-nu-ansi-term-0.31) + ("rust-nu-data" ,rust-nu-data-0.31) + ("rust-nu-engine" ,rust-nu-engine-0.31) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-json" ,rust-nu-json-0.31) + ("rust-nu-parser" ,rust-nu-parser-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-pretty-hex" ,rust-nu-pretty-hex-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) + ("rust-nu-stream" ,rust-nu-stream-0.31) + ("rust-nu-table" ,rust-nu-table-0.31) ("rust-nu-test-support" - ,rust-nu-test-support-0.29) - ("rust-nu-value-ext" ,rust-nu-value-ext-0.29) + ,rust-nu-test-support-0.31) + ("rust-nu-value-ext" ,rust-nu-value-ext-0.31) ("rust-num-bigint" ,rust-num-bigint-0.3) ("rust-num-format" ,rust-num-format-0.4) ("rust-num-traits" ,rust-num-traits-0.2) ("rust-parking-lot" ,rust-parking-lot-0.11) ("rust-pin-utils" ,rust-pin-utils-0.1) - ("rust-pretty-hex" ,rust-pretty-hex-0.2) ("rust-ptree" ,rust-ptree-0.3) ("rust-query-interface" ,rust-query-interface-0.3) @@ -1303,17 +1302,17 @@ underline).") (description "CLI for nushell") (license license:expat))) -(define-public rust-nu-data-0.29 +(define-public rust-nu-data-0.31 (package (name "rust-nu-data") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu-data" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1niljv9vm42py1hmf8na03xbxb4vvypmrxk765ih9m2jg2zq9386")))) + (base32 "0sdl6s7j4bx03lmc65x3mnyn75mckq4gb96kr46a0g74mmds1j73")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t @@ -1321,6 +1320,7 @@ underline).") (("rust-bigdecimal" ,rust-bigdecimal-0.2) ("rust-byte-unit" ,rust-byte-unit-4) ("rust-chrono" ,rust-chrono-0.4) + ("rust-common-path" ,rust-common-path-1) ("rust-derive-new" ,rust-derive-new-0.5) ("rust-directories-next" ,rust-directories-next-2) @@ -1328,20 +1328,21 @@ underline).") ("rust-getset" ,rust-getset-0.1) ("rust-indexmap" ,rust-indexmap-1) ("rust-log" ,rust-log-0.4) - ("rust-nu-ansi-term" ,rust-nu-ansi-term-0.29) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) - ("rust-nu-table" ,rust-nu-table-0.29) + ("rust-nu-ansi-term" ,rust-nu-ansi-term-0.31) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) + ("rust-nu-table" ,rust-nu-table-0.31) ("rust-nu-test-support" - ,rust-nu-test-support-0.29) - ("rust-nu-value-ext" ,rust-nu-value-ext-0.29) + ,rust-nu-test-support-0.31) + ("rust-nu-value-ext" ,rust-nu-value-ext-0.31) ("rust-num-bigint" ,rust-num-bigint-0.3) ("rust-num-format" ,rust-num-format-0.4) ("rust-num-traits" ,rust-num-traits-0.2) ("rust-query-interface" ,rust-query-interface-0.3) ("rust-serde" ,rust-serde-1) + ("rust-sha2" ,rust-sha2-0.9) ("rust-toml" ,rust-toml-0.5) ("rust-users" ,rust-users-0.11)))) (home-page "https://www.nushell.sh") @@ -1349,30 +1350,34 @@ underline).") (description "CLI for nushell") (license license:expat))) -(define-public rust-nu-engine-0.29 +(define-public rust-nu-engine-0.31 (package (name "rust-nu-engine") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu-engine" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1wz033zamlakpca5k2bgal2ykd5ia76g5fw3r5xzb6jb63q7xqhf")))) + (base32 "10jw88xiv7hnvrngjfsih147zipnxcmax3a0az064cnf00kx8bkl")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs - (("rust-async-recursion" + (("rust-ansi-term" ,rust-ansi-term-0.12) + ("rust-async-recursion" ,rust-async-recursion-0.3) ("rust-async-trait" ,rust-async-trait-0.1) + ("rust-bigdecimal" ,rust-bigdecimal-0.2) ("rust-bytes" ,rust-bytes-0.5) + ("rust-chrono" ,rust-chrono-0.4) ("rust-codespan-reporting" ,rust-codespan-reporting-0.11) ("rust-derive-new" ,rust-derive-new-0.5) ("rust-dirs-next" ,rust-dirs-next-2) ("rust-dunce" ,rust-dunce-1) + ("rust-dyn-clone" ,rust-dyn-clone-1) ("rust-encoding-rs" ,rust-encoding-rs-0.8) ("rust-filesize" ,rust-filesize-0.2) ("rust-fs-extra" ,rust-fs-extra-1) @@ -1384,15 +1389,18 @@ underline).") ("rust-indexmap" ,rust-indexmap-1) ("rust-itertools" ,rust-itertools-0.10) ("rust-log" ,rust-log-0.4) - ("rust-nu-ansi-term" ,rust-nu-ansi-term-0.29) - ("rust-nu-data" ,rust-nu-data-0.29) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-parser" ,rust-nu-parser-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) - ("rust-nu-stream" ,rust-nu-stream-0.29) - ("rust-nu-value-ext" ,rust-nu-value-ext-0.29) + ("rust-nu-ansi-term" ,rust-nu-ansi-term-0.31) + ("rust-nu-data" ,rust-nu-data-0.31) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-parser" ,rust-nu-parser-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) + ("rust-nu-stream" ,rust-nu-stream-0.31) + ("rust-nu-value-ext" ,rust-nu-value-ext-0.31) + ("rust-num-bigint" ,rust-num-bigint-0.3) + ("rust-num-format" ,rust-num-format-0.4) + ("rust-num-traits" ,rust-num-traits-0.2) ("rust-parking-lot" ,rust-parking-lot-0.11) ("rust-rayon" ,rust-rayon-1) ("rust-serde" ,rust-serde-1) @@ -1409,17 +1417,17 @@ underline).") (description "Core commands for nushell") (license license:expat))) -(define-public rust-nu-errors-0.29 +(define-public rust-nu-errors-0.31 (package (name "rust-nu-errors") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu-errors" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1xxdirdd57x20irn1z1p2987cyyi8l6k6shlblikjjf97d8kjk0n")))) + (base32 "0hkkx66gcj6nail9r65yf92zxz8f8mdxv4y8by3vijqmv22kshgb")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t @@ -1430,8 +1438,8 @@ underline).") ("rust-derive-new" ,rust-derive-new-0.5) ("rust-getset" ,rust-getset-0.1) ("rust-glob" ,rust-glob-0.3) - ("rust-nu-ansi-term" ,rust-nu-ansi-term-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) + ("rust-nu-ansi-term" ,rust-nu-ansi-term-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) ("rust-num-bigint" ,rust-num-bigint-0.3) ("rust-num-traits" ,rust-num-traits-0.2) ("rust-serde" ,rust-serde-1) @@ -1443,17 +1451,17 @@ underline).") (description "Core error subsystem for Nushell") (license license:expat))) -(define-public rust-nu-json-0.29 +(define-public rust-nu-json-0.31 (package (name "rust-nu-json") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu-json" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1c1xj96gmyznqys3mxgnir4jf88npg4jkcwh9xa420agb03n9gzh")))) + (base32 "1jr0314xhz2jfksr6wiq1x30dh1k63bx92li9ls1k3nw6s4pjdlv")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t @@ -1469,17 +1477,17 @@ underline).") (description "This package is a fork of @code{serde-hjson}.") (license license:expat))) -(define-public rust-nu-parser-0.29 +(define-public rust-nu-parser-0.31 (package (name "rust-nu-parser") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu-parser" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1cmqx4gw7xg6ag58y7pq94prwkagc40wcrxbk2vzqj206h97xvmi")))) + (base32 "0apiq41vvaglxbfhf8mil0amqjsm3lx00kcjshjlsxmpp6gyc951")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t @@ -1494,11 +1502,11 @@ underline).") ("rust-indexmap" ,rust-indexmap-1) ("rust-itertools" ,rust-itertools-0.10) ("rust-log" ,rust-log-0.4) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) ("rust-nu-test-support" - ,rust-nu-test-support-0.29) + ,rust-nu-test-support-0.31) ("rust-num-bigint" ,rust-num-bigint-0.3) ("rust-num-traits" ,rust-num-traits-0.2) ("rust-serde" ,rust-serde-1) @@ -1509,10 +1517,10 @@ underline).") (description "Nushell parser") (license license:expat))) -(define-public rust-nu-plugin-0.29 +(define-public rust-nu-plugin-0.31 (package (name "rust-nu-plugin") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) @@ -1520,19 +1528,19 @@ underline).") (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "03qqvh4jhpzwb1mh4f8pz2m88sa825giz5g7lr2l96nb0qfya19j")))) + (base32 "108sak4c0kym8pmgdja06yzfb45q2r67b5xy1lb3pf5067rcl0sn")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-bigdecimal" ,rust-bigdecimal-0.2) ("rust-indexmap" ,rust-indexmap-1) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) ("rust-nu-test-support" - ,rust-nu-test-support-0.29) - ("rust-nu-value-ext" ,rust-nu-value-ext-0.29) + ,rust-nu-test-support-0.31) + ("rust-nu-value-ext" ,rust-nu-value-ext-0.31) ("rust-num-bigint" ,rust-num-bigint-0.3) ("rust-serde" ,rust-serde-1) ("rust-serde-json" ,rust-serde-json-1)))) @@ -1541,17 +1549,17 @@ underline).") (description "Nushell Plugin") (license license:expat))) -(define-public rust-nu-plugin-binaryview-0.29 +(define-public rust-nu-plugin-binaryview-0.31 (package (name "rust-nu-plugin-binaryview") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu_plugin_binaryview" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "0x7g9lncglbpdjxk1r47k49ha9yir03znis6zs7i25qwsb2sgynz")))) + (base32 "15ifd9j9r131912mmschd9w4br82h305rabz62lc1x2aw5qdp094")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t @@ -1559,12 +1567,12 @@ underline).") (("rust-crossterm" ,rust-crossterm-0.19) ("rust-image" ,rust-image-0.22) ("rust-neso" ,rust-neso-0.5) - ("rust-nu-ansi-term" ,rust-nu-ansi-term-0.29) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) - ("rust-pretty-hex" ,rust-pretty-hex-0.2) + ("rust-nu-ansi-term" ,rust-nu-ansi-term-0.31) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-pretty-hex" ,rust-nu-pretty-hex-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) ("rust-rawkey" ,rust-rawkey-0.1)))) (home-page "https://www.nushell.sh") (synopsis "Binary viewer plugin for Nushell") @@ -1572,29 +1580,29 @@ underline).") "This package provides a binary viewer plugin for Nushell.") (license license:expat))) -(define-public rust-nu-plugin-chart-0.29 +(define-public rust-nu-plugin-chart-0.31 (package (name "rust-nu-plugin-chart") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu_plugin_chart" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1b4zqnm788728jzqxcipik4x3lgj8yf0cjpxznbb10bgyfdp0jxk")))) + (base32 "02a0gyibbmkhzbqasx648jwhw6g4056ngsjdnh54wfk9mxzwb37v")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-crossterm" ,rust-crossterm-0.19) - ("rust-nu-cli" ,rust-nu-cli-0.29) - ("rust-nu-data" ,rust-nu-data-0.29) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) - ("rust-nu-value-ext" ,rust-nu-value-ext-0.29) + ("rust-nu-cli" ,rust-nu-cli-0.31) + ("rust-nu-data" ,rust-nu-data-0.31) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) + ("rust-nu-value-ext" ,rust-nu-value-ext-0.31) ("rust-tui" ,rust-tui-0.14)))) (home-page "https://www.nushell.sh") (synopsis "Plugin to display charts") @@ -1602,17 +1610,17 @@ underline).") "This package provides a plugin to display charts in Nushell.") (license license:expat))) -(define-public rust-nu-plugin-fetch-0.29 +(define-public rust-nu-plugin-fetch-0.31 (package (name "rust-nu-plugin-fetch") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu_plugin_fetch" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "086z2a2fmi4v95kg6bgzp1ylilbbflxnf242vnkmw6ys5gs8g4dy")))) + (base32 "0w6739dznxympqv775621r5mgfi5f7i56s6irgpmfpzkvl4xvk53")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t @@ -1620,10 +1628,10 @@ underline).") (("rust-base64" ,rust-base64-0.13) ("rust-futures" ,rust-futures-0.3) ("rust-mime" ,rust-mime-0.3) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) ("rust-surf" ,rust-surf-2) ("rust-url" ,rust-url-2)))) (home-page "https://www.nushell.sh") @@ -1631,28 +1639,28 @@ underline).") (description "This package provides a URL fetch plugin for Nushell.") (license license:expat))) -(define-public rust-nu-plugin-from-bson-0.29 +(define-public rust-nu-plugin-from-bson-0.31 (package (name "rust-nu-plugin-from-bson") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu_plugin_from_bson" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "02932wzrqrg4777cm1lpncig9cxn7s80fmlrkavrkw9dh2lnbbms")))) + (base32 "03v3r77c7ghg1asjllvipvfffilx2l9wqb38qzd8rp7hb9dj01g6")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-bigdecimal" ,rust-bigdecimal-0.2) ("rust-bson" ,rust-bson-0.14) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) - ("rust-nu-value-ext" ,rust-nu-value-ext-0.29) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) + ("rust-nu-value-ext" ,rust-nu-value-ext-0.31) ("rust-num-traits" ,rust-num-traits-0.2)))) (home-page "https://www.nushell.sh") (synopsis "Converter plugin to the bson format for Nushell") @@ -1661,27 +1669,27 @@ underline).") Nushell.") (license license:expat))) -(define-public rust-nu-plugin-from-sqlite-0.29 +(define-public rust-nu-plugin-from-sqlite-0.31 (package (name "rust-nu-plugin-from-sqlite") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu_plugin_from_sqlite" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1mnavx7pa5isic2rnrxd8462axh826rimscjpjxq4nk77wkzp5s8")))) + (base32 "1gs88cbs55hx4vjbr286b8xckigfgm2908aaa87dv87bhxfmjqim")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-bigdecimal" ,rust-bigdecimal-0.2) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) - ("rust-nu-value-ext" ,rust-nu-value-ext-0.29) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) + ("rust-nu-value-ext" ,rust-nu-value-ext-0.31) ("rust-num-traits" ,rust-num-traits-0.2) ("rust-rusqlite" ,rust-rusqlite-0.24) ("rust-tempfile" ,rust-tempfile-3)))) @@ -1692,28 +1700,28 @@ Nushell.") Nushell.") (license license:expat))) -(define-public rust-nu-plugin-inc-0.29 +(define-public rust-nu-plugin-inc-0.31 (package (name "rust-nu-plugin-inc") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu_plugin_inc" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "0w0dmqa6rv12whpmsvli5nb7pnazrhdp08x2fzrabz60rq1qsfx9")))) + (base32 "0qfi48rh813vbmlaj0idkkcjy6dkx0jz7k023dwdf47v0m6c34hq")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs - (("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) + (("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) ("rust-nu-test-support" - ,rust-nu-test-support-0.29) - ("rust-nu-value-ext" ,rust-nu-value-ext-0.29) + ,rust-nu-test-support-0.31) + ("rust-nu-value-ext" ,rust-nu-value-ext-0.31) ("rust-semver" ,rust-semver-0.11)))) (home-page "https://www.nushell.sh") (synopsis "Version incrementer plugin for Nushell") @@ -1722,25 +1730,25 @@ Nushell.") Nushell.") (license license:expat))) -(define-public rust-nu-plugin-match-0.29 +(define-public rust-nu-plugin-match-0.31 (package (name "rust-nu-plugin-match") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu_plugin_match" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "0hmxhd3z7p88xg5g75kljl0g6rp5k22ff0k9f2a6j9j7y3rrdlmb")))) + (base32 "175wcqjzpchhcmgpwk15xhbrbq63wzcpgldrz5m97z5qirwgskpj")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs - (("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) + (("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) ("rust-regex" ,rust-regex-1)))) (home-page "https://www.nushell.sh") (synopsis "Regex match plugin for Nushell") @@ -1748,27 +1756,27 @@ Nushell.") "This package provides a regex match plugin for Nushell.") (license license:expat))) -(define-public rust-nu-plugin-post-0.29 +(define-public rust-nu-plugin-post-0.31 (package (name "rust-nu-plugin-post") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu_plugin_post" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1d2198ks2cw6phg1hdsz75rqh5l49whcsl5hl21g86y2j5sl0hpd")))) + (base32 "1sr9aaqfqxpq16yh0sc9m83cj9xgackqbk7hmy2j97kj3vjmwd4w")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-base64" ,rust-base64-0.13) ("rust-futures" ,rust-futures-0.3) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) ("rust-num-traits" ,rust-num-traits-0.2) ("rust-serde-json" ,rust-serde-json-1) ("rust-surf" ,rust-surf-1) @@ -1778,27 +1786,27 @@ Nushell.") (description "This package is an HTTP POST plugin for Nushell.") (license license:expat))) -(define-public rust-nu-plugin-ps-0.29 +(define-public rust-nu-plugin-ps-0.31 (package (name "rust-nu-plugin-ps") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu_plugin_ps" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "00dy60fnii1iifv0rh1xm77jn37l068np46fp3izbsbq642vzf7m")))) + (base32 "1a60pjl9ihlppx9ssmfw4sy3d8rxpp513ydhvq57fc6rcilrxjz9")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-futures" ,rust-futures-0.3) ("rust-futures-timer" ,rust-futures-timer-3) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) ("rust-num-bigint" ,rust-num-bigint-0.3) ("rust-sysinfo" ,rust-sysinfo-0.16)))) (home-page "https://www.nushell.sh") @@ -1807,82 +1815,108 @@ Nushell.") "This package provides a process list plugin for Nushell.") (license license:expat))) -(define-public rust-nu-plugin-s3-0.29 +(define-public rust-nu-plugin-query-json-0.31 + (package + (name "rust-nu-plugin-query-json") + (version "0.31.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "nu_plugin_query_json" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "1f23chy7mglympvs5dcr5d5c3prxhci9lb51ajfmgcai3z334i7v")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-gjson" ,rust-gjson-0.7) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31)))) + (home-page "https://www.nushell.sh") + (synopsis "Query JSON files with Gjson") + (description "query json files with gjson") + (license license:expat))) + +(define-public rust-nu-plugin-s3-0.31 (package (name "rust-nu-plugin-s3") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu_plugin_s3" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "00856l98gmmnv5bfg1vd6mqyk0zpkdrd1xgxqfi2c9nmsy2b1qfa")))) + (base32 "0khzvi9gsgv5zqikdx34ndgjw7168r9ckmik9z3wfzhsi2sjfz4k")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-futures" ,rust-futures-0.3) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) ("rust-s3handler" ,rust-s3handler-0.6)))) (home-page "https://www.nushell.sh") (synopsis "S3 plugin for Nushell") (description "This package is an S3 plugin for Nushell.") (license license:expat))) -(define-public rust-nu-plugin-selector-0.29 +(define-public rust-nu-plugin-selector-0.31 (package (name "rust-nu-plugin-selector") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu_plugin_selector" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "14hn8plcax4kljq5kw96881pngs7w2gy11k3hs1pmaxhr0bi6c8h")))) + (base32 "1lvxkxmknv18fc2whsib8qjrqydv7jz1xlijss2yyc8i0p9m0rxv")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-nipper" ,rust-nipper-0.1) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29)))) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31)))) (home-page "https://www.nushell.sh") (synopsis "Web scraping using CSS selector") (description "This package provides web scraping using CSS selector.") (license license:expat))) -(define-public rust-nu-plugin-start-0.29 +(define-public rust-nu-plugin-start-0.31 (package (name "rust-nu-plugin-start") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu_plugin_start" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "002cjbdh4zn81zhc5a0gklfxdjslqbcbp1wcx5ijzpch40c5dyzj")))) + (base32 "1v5k4h6vw3ws1mvgjsgj2rr7zl7ab9zhfixai94wixs0vlwdfjic")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-glob" ,rust-glob-0.3) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) ("rust-open" ,rust-open-1) - ("rust-url" ,rust-url-2)))) + ("rust-url" ,rust-url-2) + ("rust-webbrowser" ,rust-webbrowser-0.5)))) (home-page "https://www.nushell.sh") (synopsis "Plugin to open files/URLs directly from Nushell") (description @@ -1890,10 +1924,10 @@ Nushell.") Nushell.") (license license:expat))) -(define-public rust-nu-plugin-sys-0.29 +(define-public rust-nu-plugin-sys-0.31 (package (name "rust-nu-plugin-sys") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) @@ -1901,17 +1935,17 @@ Nushell.") (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "0s2jyaff4lngm1c5446618r5761d8dcbpsrs7p7vzp6g2dic1w69")))) + (base32 "049h5lar2f5mf3yx93pdzyjvydk0yfm5qp8brmyyrr6a23pk2c0b")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-futures" ,rust-futures-0.3) ("rust-futures-util" ,rust-futures-util-0.3) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) ("rust-num-bigint" ,rust-num-bigint-0.3) ("rust-sysinfo" ,rust-sysinfo-0.16)))) (home-page "https://www.nushell.sh") @@ -1919,28 +1953,28 @@ Nushell.") (description "This package provides a system info plugin for Nushell.") (license license:expat))) -(define-public rust-nu-plugin-textview-0.29 +(define-public rust-nu-plugin-textview-0.31 (package (name "rust-nu-plugin-textview") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu_plugin_textview" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "19kwh6rn0xk340yk0w1r3dfm328s9jqln8hgfqw5m3lld1hh1a4v")))) + (base32 "1qzpjmld8isin224cf7ss79radps983dw34m1sh7r5czzgwnf89m")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-bat" ,rust-bat-0.17) - ("rust-nu-ansi-term" ,rust-nu-ansi-term-0.29) - ("rust-nu-data" ,rust-nu-data-0.29) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) + ("rust-nu-ansi-term" ,rust-nu-ansi-term-0.31) + ("rust-nu-data" ,rust-nu-data-0.31) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) ("rust-term-size" ,rust-term-size-0.3) ("rust-url" ,rust-url-2)))) (home-page "https://www.nushell.sh") @@ -1949,27 +1983,27 @@ Nushell.") Nushell.") (license license:expat))) -(define-public rust-nu-plugin-to-bson-0.29 +(define-public rust-nu-plugin-to-bson-0.31 (package (name "rust-nu-plugin-to-bson") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu_plugin_to_bson" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1j019frp663s511b7z9sz5vh77pvz0nn3w2asrk50xlyj5hfig55")))) + (base32 "19kj3m6a0xshi7fg3smaapag0mj7a2ddci6611dnlasnzj9f9gr3")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-bson" ,rust-bson-0.14) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) - ("rust-nu-value-ext" ,rust-nu-value-ext-0.29) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) + ("rust-nu-value-ext" ,rust-nu-value-ext-0.31) ("rust-num-traits" ,rust-num-traits-0.2)))) (home-page "https://www.nushell.sh") (synopsis "Converter plugin to the bson format for Nushell") @@ -1978,27 +2012,27 @@ Nushell.") Nushell.") (license license:expat))) -(define-public rust-nu-plugin-to-sqlite-0.29 +(define-public rust-nu-plugin-to-sqlite-0.31 (package (name "rust-nu-plugin-to-sqlite") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu_plugin_to_sqlite" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "0p86iyag0ci15i1nqyb74kp1lax9mgm73w5g3qkp2v97lihv12pf")))) + (base32 "19k427hwpllsyrdsh6qcclwx18nsq3zimz1z9b6kva0s32jzsdg6")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-hex" ,rust-hex-0.4) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) - ("rust-nu-value-ext" ,rust-nu-value-ext-0.29) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) + ("rust-nu-value-ext" ,rust-nu-value-ext-0.31) ("rust-num-traits" ,rust-num-traits-0.2) ("rust-rusqlite" ,rust-rusqlite-0.24) ("rust-tempfile" ,rust-tempfile-3)))) @@ -2009,26 +2043,26 @@ Nushell.") Nushell.") (license license:expat))) -(define-public rust-nu-plugin-tree-0.29 +(define-public rust-nu-plugin-tree-0.31 (package (name "rust-nu-plugin-tree") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu_plugin_tree" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "096l86ci540v0aj9xrvwd4ccgg388kabz4rbg88nrpw0rlacrbc3")))) + (base32 "17vgnqdws522ng373lg4cha5l136hs0zwvxf0393xjyr9i88q9jp")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-derive-new" ,rust-derive-new-0.5) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) ("rust-ptree" ,rust-ptree-0.3)))) (home-page "https://www.nushell.sh") (synopsis "Tree viewer plugin for Nushell") @@ -2036,27 +2070,27 @@ Nushell.") Nushell.") (license license:expat))) -(define-public rust-nu-plugin-xpath-0.29 +(define-public rust-nu-plugin-xpath-0.31 (package (name "rust-nu-plugin-xpath") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu_plugin_xpath" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "0459awkffb2sydd2l5gbcx1kz466qkigb1bxn5ka208y9k5qz54v")))) + (base32 "0zgpbmsx5036c6a5cr2nmi5vv2jyra2a4gnpqq4pazw432h5m48a")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-bigdecimal" ,rust-bigdecimal-0.2) ("rust-indexmap" ,rust-indexmap-1) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-plugin" ,rust-nu-plugin-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-plugin" ,rust-nu-plugin-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) ("rust-sxd-document" ,rust-sxd-document-0.3) ("rust-sxd-xpath" ,rust-sxd-xpath-0.4)))) (home-page "https://www.nushell.sh") @@ -2064,17 +2098,42 @@ Nushell.") (description "Traverses XML") (license license:expat))) -(define-public rust-nu-protocol-0.29 +(define-public rust-nu-pretty-hex-0.31 + (package + (name "rust-nu-pretty-hex") + (version "0.31.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "nu-pretty-hex" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "1crsmihbil68p3qb345d33m5p6xa7dkbdxrbxfxh7km4hflc2pq4")))) + (build-system cargo-build-system) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-heapless" ,rust-heapless-0.6) + ("rust-nu-ansi-term" ,rust-nu-ansi-term-0.29) + ("rust-rand" ,rust-rand-0.8)))) + (home-page "https://www.nushell.sh") + (synopsis "Pretty hex dump of bytes slice in the common style") + (description + "This crate provides pretty hex dump of bytes slice in the common +style.") + (license license:expat))) + +(define-public rust-nu-protocol-0.31 (package (name "rust-nu-protocol") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu-protocol" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1iii3r37dcl7sf870qrzfkdc1iylbbkcycp1k5ifjvd5yxlkfpxx")))) + (base32 "1gsnd2p9mbc8b8bhirx8im65nhsbd8mfz655qk1mrl87s3sqiybh")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t @@ -2086,8 +2145,8 @@ Nushell.") ("rust-getset" ,rust-getset-0.1) ("rust-indexmap" ,rust-indexmap-1) ("rust-log" ,rust-log-0.4) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) ("rust-num-bigint" ,rust-num-bigint-0.3) ("rust-num-integer" ,rust-num-integer-0.1) ("rust-num-traits" ,rust-num-traits-0.2) @@ -2101,17 +2160,17 @@ Nushell.") (description "Core values and protocols for Nushell") (license license:expat))) -(define-public rust-nu-source-0.29 +(define-public rust-nu-source-0.31 (package (name "rust-nu-source") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu-source" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1m8phdw9iwawsq0ip4zn2w8ggjjr45z1ny2sgdb3h1y1awpnvdbq")))) + (base32 "1bpihjq3dfrry0mxdgg32sx8663rd2gxqkmnqgs4q7lj17ny2a9g")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t @@ -2128,46 +2187,46 @@ Nushell.") Nushell.") (license license:expat))) -(define-public rust-nu-stream-0.29 +(define-public rust-nu-stream-0.31 (package (name "rust-nu-stream") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu-stream" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "15zx16s4wb23316ih4wqnnpajh1qz5vckpzk3k41qqkmar1w4sah")))) + (base32 "0ylmfqhhj4aaspwq51yb5wmsn7zhh19035yb0mr28ajygf38s1g7")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-futures" ,rust-futures-0.3) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29)))) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31)))) (home-page "https://www.nushell.sh") (synopsis "Nushell stream") (description "This package provides Nushell stream.") (license license:expat))) -(define-public rust-nu-table-0.29 +(define-public rust-nu-table-0.31 (package (name "rust-nu-table") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu-table" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1ihrr2406v5yjdfm699q6alx5bh49q8d04x1dzvn6qydgmf6r8z6")))) + (base32 "0sma2i78naf813kw3mlzzbvs27fhz9z8flv7iqgk9pf52g4b6w0p")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs - (("rust-nu-ansi-term" ,rust-nu-ansi-term-0.29) + (("rust-nu-ansi-term" ,rust-nu-ansi-term-0.31) ("rust-regex" ,rust-regex-1) ("rust-unicode-width" ,rust-unicode-width-0.1)))) (home-page "https://www.nushell.sh") @@ -2175,17 +2234,17 @@ Nushell.") (description "Nushell table printing") (license license:expat))) -(define-public rust-nu-test-support-0.29 +(define-public rust-nu-test-support-0.31 (package (name "rust-nu-test-support") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) (uri (crate-uri "nu-test-support" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "0dlmhrskpdp82a6064srx1c4bqvfz66madx2i6cgxg56d7x38km6")))) + (base32 "0n5crvk40vy28f81lp5dyj9clfmslc9al5dvrq3b0gqz11d5y2ab")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t @@ -2197,10 +2256,10 @@ Nushell.") ("rust-glob" ,rust-glob-0.3) ("rust-hamcrest2" ,rust-hamcrest2-0.3) ("rust-indexmap" ,rust-indexmap-1) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) - ("rust-nu-value-ext" ,rust-nu-value-ext-0.29) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) + ("rust-nu-value-ext" ,rust-nu-value-ext-0.31) ("rust-num-bigint" ,rust-num-bigint-0.3) ("rust-tempfile" ,rust-tempfile-3)))) (home-page "https://www.nushell.sh") @@ -2209,10 +2268,10 @@ Nushell.") tests.") (license license:expat))) -(define-public rust-nu-value-ext-0.29 +(define-public rust-nu-value-ext-0.31 (package (name "rust-nu-value-ext") - (version "0.29.0") + (version "0.31.0") (source (origin (method url-fetch) @@ -2220,16 +2279,16 @@ tests.") (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1riq3xg6cqwrfb55bwva13m5dn4d7d71g2825dn7z2i96f6vylwi")))) + (base32 "0wy0zs76f1k0xlm8s7fw34v7rqc592ggzvdgh17fjh4ynnhvr42y")))) (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-indexmap" ,rust-indexmap-1) ("rust-itertools" ,rust-itertools-0.10) - ("rust-nu-errors" ,rust-nu-errors-0.29) - ("rust-nu-protocol" ,rust-nu-protocol-0.29) - ("rust-nu-source" ,rust-nu-source-0.29) + ("rust-nu-errors" ,rust-nu-errors-0.31) + ("rust-nu-protocol" ,rust-nu-protocol-0.31) + ("rust-nu-source" ,rust-nu-source-0.31) ("rust-num-traits" ,rust-num-traits-0.2)))) (home-page "https://www.nushell.sh") (synopsis "@code{Extension} traits for values in Nushell") diff --git a/gnu/packages/spice.scm b/gnu/packages/spice.scm index 3fe970497f..c1e9e173a2 100644 --- a/gnu/packages/spice.scm +++ b/gnu/packages/spice.scm @@ -265,7 +265,7 @@ Internet and from a wide variety of machine architectures.") (define-public spice-vdagent (package (name "spice-vdagent") - (version "0.20.0") + (version "0.21.0") (source (origin (method url-fetch) (uri (string-append @@ -273,11 +273,14 @@ Internet and from a wide variety of machine architectures.") "spice-vdagent-" version ".tar.bz2")) (sha256 (base32 - "0n9k2kna2gd1zi6jv45zsp2jlv439nz5l5jjijirxqaycwi74srf")))) + "0n8jlc1pv6mkry161y656b1nk9hhhminjq6nymzmmyjl7k95ymzx")))) (build-system gnu-build-system) (arguments `(#:configure-flags '("--localstatedir=/var") + ;; The test-session-info test fails for unknown reasons (see: + ;; https://gitlab.freedesktop.org/spice/linux/vd_agent/-/issues/24). + #:make-flags '("XFAIL_TESTS=tests/test-session-info") #:phases (modify-phases %standard-phases (add-after 'unpack 'patch-makefile.in @@ -285,19 +288,27 @@ Internet and from a wide variety of machine architectures.") (substitute* "Makefile.in" (((string-append "\\$\\(mkdir_p\\) \\$\\(DESTDIR\\)" "\\$\\(localstatedir\\)/run/spice-vdagentd")) - "-$(mkdir_p) $(DESTDIR)$(localstatedir)/run/spice-vdagentd")) - #t)) + "-$(mkdir_p) $(DESTDIR)$(localstatedir)/run/spice-vdagentd")))) (add-after 'unpack 'patch-spice-vdagent.desktop (lambda* (#:key outputs #:allow-other-keys) (substitute* "data/spice-vdagent.desktop" (("Exec=/usr/bin/spice-vdagent") (string-append "Exec=" (assoc-ref outputs "out") - "/bin/spice-vdagent"))) - #t))))) + "/bin/spice-vdagent"))))) + (add-after 'unpack 'fix-test-termination + (lambda _ + ;; The termination tests depend on finding the socket file name + ;; in the spice-vdagent command line it launched, but by default + ;; ps truncates its output, which causes the test to fail (see: + ;; https://gitlab.freedesktop.org/spice/linux/vd_agent/-/merge_requests/36). + (substitute* "tests/test-termination.c" + (("ps -ef") + "ps -efww"))))))) (inputs `(("alsa-lib" ,alsa-lib) ("dbus" ,dbus) ("glib" ,glib) + ("gtk+" ,gtk+) ("libdrm" ,libdrm) ("libpciaccess" ,libpciaccess) ("libx11" ,libx11) @@ -307,7 +318,8 @@ Internet and from a wide variety of machine architectures.") ("libxrandr" ,libxrandr) ("spice-protocol" ,spice-protocol))) (native-inputs - `(("pkg-config" ,pkg-config))) + `(("pkg-config" ,pkg-config) + ("procps" ,procps))) ;tests use 'ps' (synopsis "Spice agent for Linux") (description "Spice-vdagent enables sharing the clipboard and guest display resolution scaling on graphical console window resize.") diff --git a/gnu/packages/syndication.scm b/gnu/packages/syndication.scm index e4915b2496..7ec2435522 100644 --- a/gnu/packages/syndication.scm +++ b/gnu/packages/syndication.scm @@ -23,6 +23,7 @@ #:use-module (guix download) #:use-module (guix git-download) #:use-module (guix packages) + #:use-module (guix utils) #:use-module (guix build-system cargo) #:use-module (guix build-system glib-or-gtk) #:use-module (guix build-system gnu) @@ -36,6 +37,7 @@ #:use-module (gnu packages crates-io) #:use-module (gnu packages curl) #:use-module (gnu packages documentation) + #:use-module (gnu packages freedesktop) #:use-module (gnu packages gettext) #:use-module (gnu packages glib) #:use-module (gnu packages gnome) @@ -57,8 +59,162 @@ #:use-module (gnu packages web) #:use-module (gnu packages webkit) #:use-module (gnu packages xml) + #:use-module (gnu packages xorg) #:use-module (srfi srfi-1)) +(define-public cawbird + (package + (name "cawbird") + (version "1.4.1") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/IBBoard/cawbird") + (commit (string-append "v"version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0lmrgcj1ky1vhzynl36k6ba3ws089x4qdrnkjk3lbr334kicx9na")))) + (build-system meson-build-system) + (arguments + `(#:glib-or-gtk? #t + #:configure-flags + ;; Cawbirds's default key and secret for OAuth process with twitter. + (list + "-Dconsumer_key_base64=VmY5dG9yRFcyWk93MzJEZmhVdEk5Y3NMOA==" + "-Dconsumer_secret_base64=MThCRXIxbWRESDQ2Y0podzVtVU13SGUyVGlCRXhPb3BFRHhGYlB6ZkpybG5GdXZaSjI=") + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'disable-failing-tests + (lambda _ + ;; These tests require networking. + (substitute* "tests/meson.build" + (("[ \t]*.*avatardownload.*$") "") + (("[ \t]*.*filters.*$") "") + (("[ \t]*.*friends.*$") "") + (("[ \t]*.*inlinemediadownloader.*$") "") + (("[ \t]*.*tweetparsing.*$") "") + (("[ \t]*.*usercounter.*$") "")))) + (delete 'check) + (add-after 'install 'custom-check + (lambda* (#:key outputs tests? #:allow-other-keys) + (when tests? + ;; Tests require a running X server. + (system "Xvfb :1 +extension GLX &") + (setenv "DISPLAY" ":1") + ;; Tests write to $HOME. + (setenv "HOME" (getcwd)) + ;; Tests look for gsettings-schemas installed by the package. + (setenv "XDG_DATA_DIRS" + (string-append (getenv "XDG_DATA_DIRS") + ":" (assoc-ref outputs "out") "/share")) + (invoke "meson" "test")) + #t)) + (add-after 'glib-or-gtk-wrap 'wrap-paths + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin/")) + (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")) + (gi-typelib-path (getenv "GI_TYPELIB_PATH"))) + (wrap-program (string-append bin "cawbird") + `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)) + `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))) + #t))))) + (native-inputs + `(("gettext" ,gettext-minimal) + ("glib:bin" ,glib "bin") + ("gobject-introspection" ,gobject-introspection) + ("gtk+:bin" ,gtk+ "bin") + ("pkg-config" ,pkg-config) + ("vala" ,vala) + ("xmllint" ,libxml2) + ("xorg-server" ,xorg-server-for-tests))) + (inputs + `(("glib" ,glib) + ("gsettings-desktop-schemas" ,gsettings-desktop-schemas) + ("gspell" ,gspell) + ("gstreamer" ,gstreamer) + ("gst-libav" ,gst-libav) + ("gst-plugins-bad" ,gst-plugins-bad) + ("gst-plugins-base" ,gst-plugins-base) + ("gst-plugins-good" ,gst-plugins-good) + ("gtk+" ,gtk+) + ("json-glib" ,json-glib) + ("liboauth" ,liboauth) + ("libsoup" ,libsoup) + ("rest" ,rest) + ("sqlite" ,sqlite) + ("x11" ,libx11))) + (propagated-inputs + `(("dconf" ,dconf))) + (synopsis "Client for Twitter") + (description "Cawbird is a Twitter client built with GTK and Vala. +It supports all features except non-mention notifications, polls, threads and +cards.") + (home-page "https://ibboard.co.uk/cawbird/") + (license license:gpl3+))) + +(define-public giara + (package + (name "giara") + (version "0.3") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.gnome.org/World/giara") + (commit version))) + (file-name (git-file-name name version)) + ;; To fix authentication while adding accounts. + (patches (search-patches "giara-fix-login.patch")) + (sha256 + (base32 "004qmkfrgd37axv0b6hfh6v7nx4pvy987k5yv4bmlmkj9sbqm6f9")))) + (build-system meson-build-system) + (arguments + `(#:glib-or-gtk? #t + #:phases + (modify-phases %standard-phases + (add-after 'glib-or-gtk-wrap 'wrap-paths + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin/")) + (lib (string-append out "/lib/python" + ,(version-major+minor + (package-version python)) + "/site-packages"))) + (wrap-program (string-append bin "giara") + `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH") ,lib)) + `("GI_TYPELIB_PATH" ":" prefix (,(getenv "GI_TYPELIB_PATH"))))) + #t))))) + (native-inputs + `(("gettext" ,gettext-minimal) + ("glib:bin" ,glib "bin") + ("gobject-introspection" ,gobject-introspection) + ("gtk+:bin" ,gtk+ "bin") + ("pkg-config" ,pkg-config) + ("xmllint" ,libxml2))) + (inputs + `(("glib" ,glib) + ("gtk+" ,gtk+) + ("gtksourceview" ,gtksourceview) + ("libhandy" ,libhandy) + ("python" ,python) + ("python-beautifulsoup" ,python-beautifulsoup4) + ("python-dateutil" ,python-dateutil) + ("python-mistune" ,python-mistune) + ("python-pillow" ,python-pillow) + ("python-praw" ,python-praw) + ("python-pycairo" ,python-pycairo) + ("python-pygobject" ,python-pygobject) + ("python-requests" ,python-requests) + ("webkitgtk" ,webkitgtk))) + (propagated-inputs + `(("dconf" ,dconf))) + (synopsis "Client for Reddit") + (description "Giara is a reddit app, built with Python, GTK and Handy.") + (home-page "https://giara.gabmus.org/") + (license license:gpl3+))) + (define-public newsboat (package (name "newsboat") diff --git a/gnu/packages/terminals.scm b/gnu/packages/terminals.scm index 14774a5843..37636c7cdc 100644 --- a/gnu/packages/terminals.scm +++ b/gnu/packages/terminals.scm @@ -1265,7 +1265,7 @@ basic input/output.") (define-public alacritty (package (name "alacritty") - (version "0.7.1") + (version "0.7.2") (source (origin ;; XXX: The crate at "crates.io" has limited contents. In particular, @@ -1276,14 +1276,14 @@ basic input/output.") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "1b9hy3ya72hhpl8nkayc7dy4f97xp75np48dm5na5pgyv8b45agi")))) + (base32 "1isa61rivqchzfms8aakr4nks4kflwnfr9f2pik91157hg1plxam")))) (build-system cargo-build-system) (arguments `(#:install-source? #f ; virtual manifest #:cargo-test-flags '("--release" "--" "--skip=config_read_eof") #:cargo-inputs (("rust-alacritty-config-derive" ,rust-alacritty-config-derive-0.1) - ("rust-alacritty-terminal" ,rust-alacritty-terminal-0.12) + ("rust-alacritty-terminal" ,rust-alacritty-terminal-0.13) ("rust-clap" ,rust-clap-2) ("rust-cocoa" ,rust-cocoa-0.24) ("rust-copypasta" ,rust-copypasta-0.7) diff --git a/gnu/packages/tor.scm b/gnu/packages/tor.scm index d85c11aec0..bd11dd3a75 100644 --- a/gnu/packages/tor.scm +++ b/gnu/packages/tor.scm @@ -54,14 +54,14 @@ (define-public tor (package (name "tor") - (version "0.4.5.7") + (version "0.4.5.8") (source (origin (method url-fetch) (uri (string-append "https://dist.torproject.org/tor-" version ".tar.gz")) (sha256 (base32 - "0x7hhl0svfc4yh9xvq7kkzgmwjcw1ak9i0794wjg4biy2fmclzs4")))) + "09z22gc01yh5zms7i31md6qpr0ir8i5fzrrz06qfpp5wx28x1pjp")))) (build-system gnu-build-system) (arguments `(#:configure-flags diff --git a/gnu/packages/upnp.scm b/gnu/packages/upnp.scm index 358514f9d0..cc20ca3e21 100644 --- a/gnu/packages/upnp.scm +++ b/gnu/packages/upnp.scm @@ -96,14 +96,14 @@ over IRC, instant messaging, network games, and most server software.") (define-public libupnp (package (name "libupnp") - (version "1.14.6") + (version "1.14.7") (source (origin (method url-fetch) (uri (string-append "https://github.com/pupnp/pupnp/releases/download" "/release-" version "/libupnp-" version".tar.bz2")) (sha256 - (base32 "00x5y1a7ygyjzc1ljfamynclqrzd44vhdsnnmx2nwaif6mvgcs1i")))) + (base32 "093wmhk7rdmg2ixyam4hpxa43g25555jgb3i4y7223mwhr5aqrkv")))) (native-inputs `(("pkg-config" ,pkg-config))) (build-system gnu-build-system) diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index 6726bc339b..05b7494f22 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -29,7 +29,7 @@ ;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re> ;;; Copyright © 2020 John D. Boy <jboy@bius.moe> ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> -;;; Copyright © 2020 Vinicius Monego <monego@posteo.net> +;;; Copyright © 2020, 2021 Vinicius Monego <monego@posteo.net> ;;; Copyright © 2020 Tanguy Le Carrour <tanguy@bioneland.org> ;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de> ;;; Copyright © 2021 Greg Hogan <code@greghogan.com> @@ -1518,7 +1518,7 @@ control to Git repositories.") (define-public pre-commit (package (name "pre-commit") - (version "2.8.1") + (version "2.12.1") (source (origin ;; No tests in the PyPI tarball. @@ -1528,12 +1528,12 @@ control to Git repositories.") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "0b3ks6viccq3n4p8i8zgfd40vp1k5nkhmmlz7p4nxcdizw8zxgn8")))) + (base32 "0gwy5bnjnlj6yjcmghsibrcijvz9isxcygln7ihvi728p04rgymf")))) (build-system python-build-system) (arguments `(#:phases (modify-phases %standard-phases - (add-before 'check 'set-up-git + (add-before 'check 'prepare-check-env (lambda _ ;; Change from /homeless-shelter to /tmp for write permission. (setenv "HOME" "/tmp") @@ -1542,72 +1542,36 @@ control to Git repositories.") (setenv "GIT_COMMITTER_NAME" "Your Name") (setenv "GIT_AUTHOR_EMAIL" "you@example.com") (setenv "GIT_COMMITTER_EMAIL" "you@example.com") + ;; Some tests still fail with PermissionError. Make the source + ;; tree writable. + (for-each make-file-writable (find-files ".")) + ;; Some tests will need a working git repository. + (invoke "git" "init") (invoke "git" "config" "--global" "user.name" "Your Name") (invoke "git" "config" "--global" "user.email" "you@example.com") - #t)) + #t)) (replace 'check (lambda* (#:key inputs outputs #:allow-other-keys) (add-installed-pythonpath inputs outputs) - (invoke "pytest" "tests" "-k" + ;; The file below contains about 30 tests that fail because they + ;; depend on tools from multiple languages (cargo, npm, cpan, + ;; Rscript, etc). There are other tests that pass, but it's more + ;; convenient to skip the whole file than list 30 tests to skip. + (invoke "pytest" "--ignore=tests/repository_test.py" + ;; Ruby and Node tests require node and gem. + "--ignore=tests/languages/node_test.py" + "--ignore=tests/languages/ruby_test.py" + ;; FIXME: Python tests fail because of distlib version + ;; mismatch. Even with python-distlib/next it is + ;; pulling version 0.3.0, while 0.3.1 is required. + "--ignore=tests/languages/python_test.py" "-k" (string-append - ;; Disable conda tests. - "not test_conda_hook" - " and not test_conda_with_additional_dependencies_hook" - " and not test_local_conda_additional_dependencies" - ;; Disable cpan tests. - " and not test_local_perl_additional_dependencies" - " and not test_perl_hook" - ;; Disable Ruby tests. - " and not test_additional_ruby_dependencies_installed" - " and not test_install_rbenv" - " and not test_install_rbenv_with_version" - " and not test_run_a_ruby_hook" - " and not test_run_ruby_hook_with_disable_shared_gems" - " and not test_run_versioned_ruby_hook" - ;; Disable Cargo tests. - " and not test_additional_rust_cli_dependencies_installed" - " and not test_additional_rust_lib_dependencies_installed" - " and not test_local_rust_additional_dependencies" - " and not test_rust_hook" - ;; Disable dotnet tests. - " and not test_dotnet_hook" - ;; Disable nodejs tests. - " and not test_unhealthy_if_system_node_goes_missing" - " and not test_installs_without_links_outside_env" - " and not test_healthy_system_node" - ;; Disable python2 test. - " and not test_switch_language_versions_doesnt_clobber" - ;; These tests try to open a network socket. - " and not test_additional_golang_dependencies_installed" - " and not test_additional_node_dependencies_installed" - " and not test_golang_hook" - " and not test_golang_hook_still_works_when_gobin_is_set" - " and not test_local_golang_additional_dependencies" - " and not test_main" - " and not test_node_hook_with_npm_userconfig_set" - " and not test_run_a_node_hook" - " and not test_run_versioned_node_hook" - ;; Tests failing with a permission error. - ;; They try to write to the filesystem. - " and not test_autoupdate_hook_disappearing_repo" - " and not test_hook_disppearing_repo_raises" - " and not test_img_conflict" - " and not test_img_something_unstaged" - " and not test_installed_from_venv" - " and not test_too_new_version" - " and not test_try_repo_uncommitted_changes" - " and not test_versions_ok" - ;; This test tries to activate a virtualenv. - " and not test_healthy_venv_creator" - ;; Fatal error: Not a Git repository. - " and not test_all_cmds" - " and not test_try_repo" - ;; No module named 'pip._internal.cli.main'. - " and not test_additional_dependencies_roll_forward" - ;; Assertion errors. - " and not test_install_existing_hooks_no_overwrite" - " and not test_uninstall_restores_legacy_hooks")))) - (add-before 'reset-gzip-timestamps 'make-files-writable + ;; TODO: these tests fail with AssertionError. It may + ;; be possible to fix them. + "not test_install_existing_hooks_no_overwrite" + " and not test_uninstall_restores_legacy_hooks" + " and not test_installed_from_venv")))) + (add-before 'reset-gzip-timestamps 'make-gz-writable (lambda* (#:key outputs #:allow-other-keys) ;; Make sure .gz files are writable so that the ;; 'reset-gzip-timestamps' phase can do its work. @@ -1617,8 +1581,13 @@ control to Git repositories.") #t)))))) (native-inputs `(("git" ,git-minimal) + ("python-covdefaults" ,python-covdefaults) + ("python-coverage" ,python-coverage) + ("python-distlib" ,python-distlib/next) ("python-pytest" ,python-pytest) - ("python-re-assert" ,python-re-assert))) + ("python-pytest-env" ,python-pytest-env) + ("python-re-assert" ,python-re-assert) + ("which" ,which))) ;; Propagate because pre-commit is also used as a module. (propagated-inputs `(("python-cfgv" ,python-cfgv) @@ -1638,18 +1607,21 @@ execution of any hook written in any language before every commit.") (define-public mercurial (package (name "mercurial") - (version "5.6.1") + (version "5.8") (source (origin (method url-fetch) (uri (string-append "https://www.mercurial-scm.org/" "release/mercurial-" version ".tar.gz")) (sha256 (base32 - "1bgz8f1a7lnmh6lzcvwg6q1yx6i7yibhwy06l4k55i04957jap75")))) - (build-system python-build-system) + "17rhlmmkqz5ll3k68jfzpcifg3nndbcbc2nx7kw8xn3qcj7nlpgw")))) + (build-system gnu-build-system) (arguments - `(#:phases + `(#:make-flags + (list (string-append "PREFIX=" (assoc-ref %outputs "out"))) + #:phases (modify-phases %standard-phases + (delete 'configure) (add-after 'unpack 'patch-tests (lambda _ (substitute* '("tests/test-extdiff.t" @@ -1702,17 +1674,20 @@ execution of any hook written in any language before every commit.") ;; The test suite takes a long time and produces little ;; output by default. Prevent timeouts due to silence. "-v")))))))) - ;; The following inputs are only needed to run the tests. (native-inputs - `(("python-nose" ,python-nose) + `(("python-docutils", python-docutils) + ;; The following inputs are only needed to run the tests. + ("python-nose" ,python-nose) ("unzip" ,unzip) ("which" ,which))) + (inputs + `(("python" ,python))) (home-page "https://www.mercurial-scm.org/") (synopsis "Decentralized version control system") (description - "Mercurial is a free, distributed source control management tool. -It efficiently handles projects of any size -and offers an easy and intuitive interface.") + "Mercurial is a free, distributed source control management tool. It +efficiently handles projects of any size and offers an easy and intuitive +interface.") (license license:gpl2+))) (define-public python-hg-evolve diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm index 5109c798fd..717491e913 100644 --- a/gnu/packages/video.scm +++ b/gnu/packages/video.scm @@ -3816,7 +3816,7 @@ practically any type of media.") (define-public libmediainfo (package (name "libmediainfo") - (version "20.09") + (version "21.03") (source (origin (method url-fetch) (uri (string-append "https://mediaarea.net/download/source/" @@ -3824,7 +3824,7 @@ practically any type of media.") name "_" version ".tar.xz")) (sha256 (base32 - "15ni9pnch6688m72swwax109a7mg4a08yx75qknrx7qa6dbyhz6h")))) + "1jm4mk539wf3crgpcddgwdixshwdzm37mkb5441lifhcz2mykdsn")))) ;; TODO add a Big Buck Bunny webm for tests. (native-inputs `(("autoconf" ,autoconf) @@ -3874,7 +3874,7 @@ MPEG-2, MPEG-4, DVD (VOB)... (define-public mediainfo (package (name "mediainfo") - (version "20.09") + (version "21.03") (source (origin (method url-fetch) ;; Warning: This source has proved unreliable 1 time at least. @@ -3885,7 +3885,7 @@ MPEG-2, MPEG-4, DVD (VOB)... name "_" version ".tar.xz")) (sha256 (base32 - "0rqg9z7s5bk7vlvjrs4gackzg7ib05a0dffi2ihsjf5a7kw7wcir")))) + "07h2a1lbw5ak6c9bcn8qydchl0wpgk945rf9sfcqjyv05h5wll6y")))) (native-inputs `(("autoconf" ,autoconf) ("automake" ,automake) @@ -4756,7 +4756,7 @@ transcode or reformat the videos in any way, producing perfect backups.") (define-public svt-av1 (package (name "svt-av1") - (version "0.8.6") + (version "0.8.7") (source (origin (method git-fetch) @@ -4765,7 +4765,7 @@ transcode or reformat the videos in any way, producing perfect backups.") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "1wzamg89azi1f93wxvdy7silsgklckc754ca066k33drvyacicyw")))) + (base32 "1xlxb6kn6hqz9dxz0nd905m4i2mwjwq1330rbabwzmg4b66cdslg")))) (build-system cmake-build-system) ;; SVT-AV1 only supports 64-bit Intel-compatible CPUs. (supported-systems '("x86_64-linux")) diff --git a/gnu/packages/vnc.scm b/gnu/packages/vnc.scm index b8979b2921..6ff3e38b0a 100644 --- a/gnu/packages/vnc.scm +++ b/gnu/packages/vnc.scm @@ -29,22 +29,130 @@ #:use-module (guix utils) #:use-module (gnu packages) #:use-module (gnu packages autotools) + #:use-module (gnu packages avahi) #:use-module (gnu packages base) #:use-module (gnu packages cmake) #:use-module (gnu packages commencement) #:use-module (gnu packages compression) + #:use-module (gnu packages crypto) + #:use-module (gnu packages cups) #:use-module (gnu packages fltk) + #:use-module (gnu packages freedesktop) #:use-module (gnu packages gettext) + #:use-module (gnu packages glib) + #:use-module (gnu packages gnome) #:use-module (gnu packages gnupg) + #:use-module (gnu packages gtk) #:use-module (gnu packages image) #:use-module (gnu packages linux) + #:use-module (gnu packages pcre) #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) + #:use-module (gnu packages rdesktop) #:use-module (gnu packages sdl) + #:use-module (gnu packages spice) + #:use-module (gnu packages ssh) #:use-module (gnu packages tls) + #:use-module (gnu packages video) + #:use-module (gnu packages webkit) #:use-module (gnu packages xdisorg) #:use-module (gnu packages xorg)) +(define-public remmina + (package + (name "remmina") + (version "1.4.16") + (source + (origin + (method git-fetch) + (uri + (git-reference + (url "https://gitlab.com/Remmina/Remmina") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "09sjsgvh13jnhs6mhj9icyka0ad3qlnkbzvg7djj9rajzaf1y048")))) + (build-system cmake-build-system) + (arguments + `(#:tests? #f ; No target + #:configure-flags + (list + ;; Disable online version checking. + "-DWITH_NEWS=OFF") + #:imported-modules + ((guix build glib-or-gtk-build-system) + ,@%cmake-build-system-modules) + #:modules + (((guix build glib-or-gtk-build-system) + #:prefix glib-or-gtk:) + (guix build cmake-build-system) + (guix build utils)) + #:phases + (modify-phases %standard-phases + (add-after 'install 'glib-or-gtk-compile-schemas + (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas)) + (add-after 'glib-or-gtk-compile-schemas 'glib-or-gtk-wrap + (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)) + (add-after 'glib-or-gtk-wrap 'wrap-typelibs + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (for-each + (lambda (name) + (let ((file (string-append out "/bin/" name)) + (gi-typelib-path (getenv "GI_TYPELIB_PATH"))) + (wrap-program file + `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path))))) + '("remmina" "remmina-file-wrapper"))) + #t))))) + (native-inputs + `(("gettext" ,gettext-minimal) + ("glib:bin" ,glib "bin") + ("gobject-introspection" ,gobject-introspection) + ("gtk+:bin" ,gtk+ "bin") + ("intl" ,intltool) + ("pkg-config" ,pkg-config))) + (inputs + `(("app-indicator" ,libappindicator) + ("atk" ,atk) + ("avahi" ,avahi) + ("cairo" ,cairo) + ("cups" ,cups) + ("ffmpeg" ,ffmpeg) + ("freerdp" ,freerdp) ; for rdp plugin + ("gcrypt" ,libgcrypt) + ("gdk-pixbuf" ,gdk-pixbuf+svg) + ("glib" ,glib) + ("gnome-keyring" ,gnome-keyring) + ("gsettings-desktop-schemas" ,gsettings-desktop-schemas) + ("gtk+" ,gtk+) + ("harfbuzz" ,harfbuzz) + ("json-glib" ,json-glib) + ("libsecret" ,libsecret) ; for secret plugin + ("libsoup" ,libsoup) + ("libssh" ,libssh) ; for ssh plugin + ("libvnc" ,libvnc) ; for vnc plugin + ("openssl" ,openssl) + ("pango" ,pango) + ("pcre2" ,pcre2) ; for exec plugin + ("shared-mime-info" ,shared-mime-info) + ("sodium" ,libsodium) + ("spice-client-gtk" ,spice-gtk) ; for spice plugin + ("telepathy" ,telepathy-glib) + ("vte" ,vte) ; for st plugin + ("wayland" ,wayland) + ("webkitgtk" ,webkitgtk) ; for www plugin + ("x11" ,libx11) + ("xext" ,libxext) ; for xdmcp plugin + ("xdg-utils" ,xdg-utils) + ("xkbfile" ,libxkbfile))) ; for nx plugin + (propagated-inputs + `(("dconf" ,dconf))) + (home-page "https://remmina.org/") + (synopsis "Remote Desktop Client") + (description "Remmina is a client to use other desktops remotely. +RDP, VNC, SPICE, NX, XDMCP, SSH and EXEC network protocols are supported.") + (license license:gpl2+))) + (define-public tigervnc-client (package (name "tigervnc-client") diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm index 39aa38e34c..d3d626c7dc 100644 --- a/gnu/packages/web.scm +++ b/gnu/packages/web.scm @@ -49,6 +49,7 @@ ;;; Copyright © 2020 Alexandru-Sergiu Marton <brown121407@posteo.ro> ;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2021 Stefan Reichör <stefan@xsteve.at> +;;; Copyright © 2021 la snesne <lasnesne@lagunposprasihopre.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -6534,7 +6535,7 @@ snippets on @url{https://commandlinefu.com}.") (define-public rss-bridge (package (name "rss-bridge") - (version "2019-09-12") + (version "2020-11-10") (source (origin (method git-fetch) @@ -6543,19 +6544,23 @@ snippets on @url{https://commandlinefu.com}.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "1mx7f3l45nqhcrng531l4cq8kpzm164hhbwn26g5akb2pamdlnra")))) - (build-system trivial-build-system) + (base32 "1mir6mcm37sbdrhl5kgs6schpp3l4r5mfamhiic0yfbz4hqwmg44")))) + (build-system copy-build-system) (arguments - '(#:modules ((guix build utils)) - #:builder - (begin - (use-modules (guix build utils) - (ice-9 match)) - (let* ((out (assoc-ref %outputs "out")) - (share-rss-bridge (string-append out "/share/rss-bridge"))) - (mkdir-p share-rss-bridge) - (copy-recursively (assoc-ref %build-inputs "source") share-rss-bridge) - #t)))) + '(#:install-plan + '(("." "share/rss-bridge")) + #:phases + (modify-phases %standard-phases + ;;Change paths to not use source directory. + (add-before 'install 'patch-paths + (lambda _ + (substitute* "lib/rssbridge.php" + (("PATH_ROOT . 'cache/'") + "'/var/cache/rss-bridge/'") + (("PATH_ROOT . 'whitelist.txt'") + "'/etc/rss-bridge/whitelist.txt'") + (("PATH_ROOT . 'config.ini.php'") + "'/etc/rss-bridge/config.ini.php'"))))))) (home-page "https://github.com/RSS-Bridge/rss-bridge") (synopsis "Generate Atom feeds for social networking websites") (description "rss-bridge generates Atom feeds for social networking diff --git a/gnu/packages/webkit.scm b/gnu/packages/webkit.scm index 74ffe92b84..f5c0a74ec5 100644 --- a/gnu/packages/webkit.scm +++ b/gnu/packages/webkit.scm @@ -226,14 +226,14 @@ acceleration in mind, leveraging common 3D graphics APIs for best performance.") (define-public webkitgtk (package (name "webkitgtk") - (version "2.32.0") + (version "2.32.1") (source (origin (method url-fetch) (uri (string-append "https://www.webkitgtk.org/releases/" "webkitgtk-" version ".tar.xz")) (sha256 (base32 - "1w3b0w8izp0i070grhv19j631sdcd0mcqnjnax13k8mdx7dg8zcx")) + "05v9hgpkc6mi2klrd8nqql1n8xzq8rgdz3hvyy369xkhgwqifq8k")) (patches (search-patches "webkitgtk-share-store.patch" "webkitgtk-bind-all-fonts.patch")))) (build-system cmake-build-system) diff --git a/gnu/services.scm b/gnu/services.scm index e7da0a026d..8d413e198e 100644 --- a/gnu/services.scm +++ b/gnu/services.scm @@ -3,6 +3,7 @@ ;;; Copyright © 2016 Chris Marusich <cmmarusich@gmail.com> ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020, 2021 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2021 raid5atemyhomework <raid5atemyhomework@protonmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -34,6 +35,8 @@ #:use-module (guix diagnostics) #:autoload (guix openpgp) (openpgp-format-fingerprint) #:use-module (guix modules) + #:use-module (guix packages) + #:use-module (guix utils) #:use-module (gnu packages base) #:use-module (gnu packages bash) #:use-module (gnu packages hurd) @@ -107,6 +110,12 @@ profile-service-type firmware-service-type gc-root-service-type + linux-builder-service-type + linux-builder-configuration + linux-builder-configuration? + linux-builder-configuration-kernel + linux-builder-configuration-modules + linux-loadable-module-service-type %boot-service %activation-service @@ -883,6 +892,87 @@ as Wifi cards."))) will not be reclaimed by the garbage collector.") (default-value '()))) +;; Configuration for the Linux kernel builder. +(define-record-type* <linux-builder-configuration> + linux-builder-configuration + make-linux-builder-configuration + linux-builder-configuration? + this-linux-builder-configuration + + (kernel linux-builder-configuration-kernel) ; package + (modules linux-builder-configuration-modules (default '()))) ; list of packages + +(define (package-for-kernel target-kernel module-package) + "Return a package like MODULE-PACKAGE, adapted for TARGET-KERNEL, if +possible (that is if there's a LINUX keyword argument in the build system)." + (package + (inherit module-package) + (arguments + (substitute-keyword-arguments (package-arguments module-package) + ((#:linux kernel #f) + target-kernel))))) + +(define (linux-builder-configuration->system-entry config) + "Return the kernel entry of the 'system' directory." + (let* ((kernel (linux-builder-configuration-kernel config)) + (modules (linux-builder-configuration-modules config)) + (kernel (profile + (content (packages->manifest + (cons kernel + (map (lambda (module) + (cond + ((package? module) + (package-for-kernel kernel module)) + ;; support (,package "kernel-module-output") + ((and (list? module) (package? (car module))) + (cons (package-for-kernel kernel + (car module)) + (cdr module))) + (else + module))) + modules)))) + (hooks (list linux-module-database))))) + (with-monad %store-monad + (return `(("kernel" ,kernel)))))) + +(define linux-builder-service-type + (service-type (name 'linux-builder) + (extensions + (list (service-extension system-service-type + linux-builder-configuration->system-entry))) + (default-value '()) + (compose identity) + (extend (lambda (config modifiers) + (if (null? modifiers) + config + ((apply compose modifiers) config)))) + (description "Builds the linux-libre kernel profile, containing +the kernel itself and any linux-loadable kernel modules. This can be extended +with a function that accepts the current configuration and returns a new +configuration."))) + +(define (linux-loadable-module-builder-modifier modules) + "Extends linux-builder-service-type by appending the given MODULES to the +configuration of linux-builder-service-type." + (lambda (config) + (linux-builder-configuration + (inherit config) + (modules (append (linux-builder-configuration-modules config) + modules))))) + +(define linux-loadable-module-service-type + (service-type (name 'linux-loadable-modules) + (extensions + (list (service-extension linux-builder-service-type + linux-loadable-module-builder-modifier))) + (default-value '()) + (compose concatenate) + (extend append) + (description "Adds packages and package outputs as modules +included in the booted linux-libre profile. Other services can extend this +service type to add particular modules to the set of linux-loadable modules."))) + + ;;; ;;; Service folding. diff --git a/gnu/services/spice.scm b/gnu/services/spice.scm index fd85dc234f..3b88e29043 100644 --- a/gnu/services/spice.scm +++ b/gnu/services/spice.scm @@ -34,41 +34,42 @@ (spice-vdagent spice-vdagent-configuration-spice-vdagent (default spice-vdagent))) -(define (spice-vdagent-activation config) - "Return the activation gexp for CONFIG." - #~(begin - (use-modules (guix build utils)) - (mkdir-p "/var/run/spice-vdagentd"))) - (define (spice-vdagent-shepherd-service config) "Return a <shepherd-service> for spice-vdagentd with CONFIG." (define spice-vdagent (spice-vdagent-configuration-spice-vdagent config)) (define spice-vdagentd-command (list - (file-append spice-vdagent "/sbin/spice-vdagentd") - "-x")) + (file-append spice-vdagent "/sbin/spice-vdagentd") + "-x")) (list - (shepherd-service - (documentation "Spice vdagentd service") - (requirement '(udev)) - (provision '(spice-vdagentd)) - (start #~(make-forkexec-constructor '#$spice-vdagentd-command)) - (stop #~(make-kill-destructor))))) + (shepherd-service + (documentation "Spice vdagentd service") + (requirement '(dbus-system)) + (provision '(spice-vdagentd)) + (start #~(lambda args + ;; spice-vdagentd supports being activated upon the client + ;; connecting to its socket; when not using such feature, the + ;; socket should not exist before vdagentd creates it itself. + (mkdir-p "/run/spice-vdagentd") + (false-if-exception + (delete-file "/run/spice-vdagentd/spice-vdagent-sock")) + (fork+exec-command '#$spice-vdagentd-command))) + (stop #~(make-kill-destructor))))) (define spice-vdagent-profile (compose list spice-vdagent-configuration-spice-vdagent)) (define spice-vdagent-service-type - (service-type (name 'spice-vdagent) - (extensions - (list (service-extension shepherd-root-service-type - spice-vdagent-shepherd-service) - (service-extension activation-service-type - spice-vdagent-activation) - (service-extension profile-service-type - spice-vdagent-profile))))) + (service-type + (name 'spice-vdagent) + (default-value (spice-vdagent-configuration)) + (extensions + (list (service-extension shepherd-root-service-type + spice-vdagent-shepherd-service) + (service-extension profile-service-type + spice-vdagent-profile))))) (define* (spice-vdagent-service #:optional (config (spice-vdagent-configuration))) diff --git a/gnu/system.scm b/gnu/system.scm index 5bf2a85272..8a3ae27d04 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -13,6 +13,7 @@ ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <jannek@gnu.org> ;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be> +;;; Copyright © 2021 raid5atemyhomework <raid5atemyhomework@protonmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -62,6 +63,7 @@ #:use-module (gnu packages package-management) #:use-module (gnu packages pciutils) #:use-module (gnu packages texinfo) + #:use-module (gnu packages wget) #:use-module (gnu packages zile) #:use-module (gnu services) #:use-module (gnu services shepherd) @@ -601,16 +603,6 @@ OS." (file-append (operating-system-kernel os) "/" (system-linux-image-file-name)))) -(define (package-for-kernel target-kernel module-package) - "Return a package like MODULE-PACKAGE, adapted for TARGET-KERNEL, if -possible (that is if there's a LINUX keyword argument in the build system)." - (package - (inherit module-package) - (arguments - (substitute-keyword-arguments (package-arguments module-package) - ((#:linux kernel #f) - target-kernel))))) - (define %default-modprobe-blacklist ;; List of kernel modules to blacklist by default. '("usbmouse" ;races with bcm5974, see <https://bugs.gnu.org/35574> @@ -628,23 +620,12 @@ value of the SYSTEM-SERVICE-TYPE service." (let* ((locale (operating-system-locale-directory os)) (kernel (operating-system-kernel os)) (hurd (operating-system-hurd os)) - (modules (operating-system-kernel-loadable-modules os)) - (kernel (if hurd - kernel - (profile - (content (packages->manifest - (cons kernel - (map (lambda (module) - (if (package? module) - (package-for-kernel kernel - module) - module)) - modules)))) - (hooks (list linux-module-database))))) (initrd (and (not hurd) (operating-system-initrd-file os))) (params (operating-system-boot-parameters-file os))) - `(("kernel" ,kernel) - ,@(if hurd `(("hurd" ,hurd)) '()) + `(,@(if hurd + `(("hurd" ,hurd) + ("kernel" ,kernel)) + '()) ("parameters" ,params) ,@(if initrd `(("initrd" ,initrd)) '()) ("locale" ,locale)))) ;used by libc @@ -664,6 +645,10 @@ bookkeeping." (host-name (host-name-service (operating-system-host-name os))) (entries (operating-system-directory-base-entries os))) (cons* (service system-service-type entries) + (service linux-builder-service-type + (linux-builder-configuration + (kernel (operating-system-kernel os)) + (modules (operating-system-kernel-loadable-modules os)))) %boot-service ;; %SHEPHERD-ROOT-SERVICE must come last so that the gexp that @@ -806,6 +791,7 @@ of PROVENANCE-SERVICE-TYPE to its services." ;; Default set of networking packages. (list inetutils isc-dhcp iproute + wget ;; wireless-tools is deprecated in favor of iw, but it's still what ;; many people are familiar with, so keep it around. iw wireless-tools)) diff --git a/gnu/system/examples/vm-image.tmpl b/gnu/system/examples/vm-image.tmpl index bcb2ba614c..697019e877 100644 --- a/gnu/system/examples/vm-image.tmpl +++ b/gnu/system/examples/vm-image.tmpl @@ -5,7 +5,7 @@ ;; (use-modules (gnu) (guix) (srfi srfi-1)) -(use-service-modules desktop networking ssh xorg) +(use-service-modules desktop mcron networking spice ssh xorg) (use-package-modules bootloaders certs fonts nvi package-management wget xorg) @@ -24,6 +24,18 @@ Run '\x1b[1;37minfo guix\x1b[0m' to browse documentation. accounts.\x1b[0m ")) +;;; XXX: Xfce does not implement what is needed for the SPICE dynamic +;;; resolution to work (see: +;;; https://gitlab.xfce.org/xfce/xfce4-settings/-/issues/142). Workaround it +;;; by manually invoking xrandr every second. +(define auto-update-resolution-crutch + #~(job '(next-second) + (lambda () + (setenv "DISPLAY" ":0.0") + (setenv "XAUTHORITY" "/home/guest/.Xauthority") + (execl (string-append #$xrandr "/bin/xrandr") "xrandr" "-s" "0")) + #:user "guest")) + (operating-system (host-name "gnu") (timezone "Etc/UTC") @@ -75,11 +87,23 @@ root ALL=(ALL) ALL (default-user "guest") (xorg-configuration (xorg-configuration + ;; The QXL virtual GPU driver is added to provide + ;; a better SPICE experience. + (modules (cons xf86-video-qxl + %default-xorg-modules)) (keyboard-layout keyboard-layout))))) ;; Uncomment the line below to add an SSH server. ;;(service openssh-service-type) + ;; Add support for the SPICE protocol, which enables dynamic + ;; resizing of the guest screen resolution, clipboard + ;; integration with the host, etc. + (service spice-vdagent-service-type) + + (simple-service 'cron-jobs mcron-service-type + (list auto-update-resolution-crutch)) + ;; Use the DHCP client service rather than NetworkManager. (service dhcp-client-service-type)) diff --git a/gnu/system/locale.scm b/gnu/system/locale.scm index 4771192cfb..dcbc93e3bf 100644 --- a/gnu/system/locale.scm +++ b/gnu/system/locale.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2014, 2015, 2016, 2017, 2019, 2020 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2014, 2015, 2016, 2017, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018 Mark H Weaver <mhw@netris.org> ;;; ;;; This file is part of GNU Guix. diff --git a/gnu/tests/linux-modules.scm b/gnu/tests/linux-modules.scm index 953b132ef7..30d8eae03b 100644 --- a/gnu/tests/linux-modules.scm +++ b/gnu/tests/linux-modules.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2019 Jakob L. Kreuze <zerodaysfordays@sdf.org> ;;; Copyright © 2020 Danny Milosavljevic <dannym@scratchpost.org> ;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re> +;;; Copyright © 2021 raid5atemyhomework <raid5atemyhomework@protonmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -34,7 +35,10 @@ #:use-module (guix utils) #:export (%test-loadable-kernel-modules-0 %test-loadable-kernel-modules-1 - %test-loadable-kernel-modules-2)) + %test-loadable-kernel-modules-2 + %test-loadable-kernel-modules-service-0 + %test-loadable-kernel-modules-service-1 + %test-loadable-kernel-modules-service-2)) ;;; Commentary: ;;; @@ -66,17 +70,11 @@ that MODULES are actually loaded." (member module modules string=?)) '#$modules)))))) -(define* (run-loadable-kernel-modules-test module-packages module-names) - "Run a test of an OS having MODULE-PACKAGES, and verify that MODULE-NAMES -are loaded in memory." +(define* (run-loadable-kernel-modules-test-base base-os module-names) + "Run a test of BASE-OS, verifying that MODULE-NAMES are loaded in memory." (define os (marionette-operating-system - (operating-system - (inherit (simple-operating-system)) - (services (cons (service kernel-module-loader-service-type module-names) - (operating-system-user-services - (simple-operating-system)))) - (kernel-loadable-modules module-packages)) + base-os #:imported-modules '((guix combinators)))) (define vm (virtual-machine os)) (define (test script) @@ -98,6 +96,36 @@ are loaded in memory." (gexp->derivation "loadable-kernel-modules" (test (modules-loaded?-program os module-names)))) +(define* (run-loadable-kernel-modules-test module-packages module-names) + "Run a test of an OS having MODULE-PACKAGES, and verify that MODULE-NAMES +are loaded in memory." + (run-loadable-kernel-modules-test-base + (operating-system + (inherit (simple-operating-system)) + (services (cons (service kernel-module-loader-service-type module-names) + (operating-system-user-services + (simple-operating-system)))) + (kernel-loadable-modules module-packages)) + module-names)) + +(define* (run-loadable-kernel-modules-service-test module-packages module-names) + "Run a test of an OS having MODULE-PACKAGES, which are loaded by creating a +service that extends LINUXL-LOADABLE-MODULE-SERVICE-TYPE. Then verify that +MODULE-NAMES are loaded in memory." + (define module-installing-service-type + (service-type + (name 'module-installing-service) + (extensions (list (service-extension linux-loadable-module-service-type + (const module-packages)))) + (default-value #f))) + (run-loadable-kernel-modules-test-base + (operating-system + (inherit (simple-operating-system)) + (services (cons* (service module-installing-service-type) + (operating-system-user-services + (simple-operating-system))))) + module-names)) + (define %test-loadable-kernel-modules-0 (system-test (name "loadable-kernel-modules-0") @@ -129,3 +157,35 @@ with two extra modules.") (package-arguments ddcci-driver-linux)))))) '("acpi_call" "ddcci"))))) + +(define %test-loadable-kernel-modules-service-0 + (system-test + (name "loadable-kernel-modules-service-0") + (description "Tests loadable kernel modules extensible service with no +extra modules.") + (value (run-loadable-kernel-modules-service-test '() '())))) + +(define %test-loadable-kernel-modules-service-1 + (system-test + (name "loadable-kernel-modules-service-1") + (description "Tests loadable kernel modules extensible service with one +extra module.") + (value (run-loadable-kernel-modules-service-test + (list ddcci-driver-linux) + '("ddcci"))))) + +(define %test-loadable-kernel-modules-service-2 + (system-test + (name "loadable-kernel-modules-service-2") + (description "Tests loadable kernel modules extensible service with two +extra modules.") + (value (run-loadable-kernel-modules-service-test + (list acpi-call-linux-module + (package + (inherit ddcci-driver-linux) + (arguments + `(#:linux #f + ,@(strip-keyword-arguments '(#:linux) + (package-arguments + ddcci-driver-linux)))))) + '("acpi_call" "ddcci"))))) |