diff options
Diffstat (limited to 'gnu')
107 files changed, 5309 insertions, 2067 deletions
diff --git a/gnu/build/marionette.scm b/gnu/build/marionette.scm index 5ebf783892..f4b219e842 100644 --- a/gnu/build/marionette.scm +++ b/gnu/build/marionette.scm @@ -22,6 +22,7 @@ #:use-module (srfi srfi-9) #:use-module (srfi srfi-26) #:use-module (srfi srfi-64) + #:use-module (srfi srfi-71) #:use-module (rnrs io ports) #:use-module (ice-9 match) #:use-module (ice-9 popen) @@ -33,7 +34,6 @@ wait-for-tcp-port wait-for-unix-socket marionette-control - marionette-screen-text wait-for-screen-text %qwerty-us-keystrokes marionette-type @@ -312,40 +312,61 @@ Monitor\")." (define* (marionette-screen-text marionette #:key (ocr "ocrad")) "Take a screenshot of MARIONETTE, perform optical character -recognition (OCR), and return the text read from the screen as a string. Do -this by invoking OCR, which should be the file name of GNU Ocrad's -@command{ocrad} or Tesseract OCR's @command{tesseract} command." +recognition (OCR), and return the text read from the screen as a string, along +the screen dump image used. Do this by invoking OCR, which should be the file +name of GNU Ocrad's@command{ocrad} or Tesseract OCR's @command{tesseract} +command. The screen dump image returned as the second value should be deleted +if it is not needed." (define image (string-append (tmpnam) ".ppm")) ;; Use the QEMU Monitor to save an image of the screen to the host. (marionette-control (string-append "screendump " image) marionette) ;; Process it via the OCR. (cond ((string-contains ocr "ocrad") - (invoke-ocrad-ocr image #:ocrad ocr)) + (values (invoke-ocrad-ocr image #:ocrad ocr) image)) ((string-contains ocr "tesseract") - (invoke-tesseract-ocr image #:tesseract ocr)) + (values (invoke-tesseract-ocr image #:tesseract ocr) image)) (else (error "unsupported ocr command")))) (define* (wait-for-screen-text marionette predicate #:key (ocr "ocrad") - (timeout 30)) + (timeout 30) + pre-action + post-action) "Wait for TIMEOUT seconds or until the screen text on MARIONETTE matches -PREDICATE, whichever comes first. Raise an error when TIMEOUT is exceeded." +PREDICATE, whichever comes first. Raise an error when TIMEOUT is exceeded. +The error contains the recognized text along the preserved file name of the +screen dump, which is relative to the current working directory. If +PRE-ACTION is provided, it should be a thunk to call before each OCR attempt. +Likewise for POST-ACTION, except it runs at the end of a successful OCR." (define start (car (gettimeofday))) (define end (+ start timeout)) - (let loop ((last-text #f)) + (let loop ((last-text #f) + (last-screendump #f)) (if (> (car (gettimeofday)) end) - (error "'wait-for-screen-text' timeout" 'ocr-text: last-text) - (let ((text (marionette-screen-text marionette #:ocr ocr))) - (or (predicate text) - (begin - (sleep 1) - (loop text))))))) + (let ((screendump-backup (string-drop last-screendump 5))) + ;; Move the file from /tmp/fileXXXXXX.pmm to the current working + ;; directory, so that it is preserved in the test derivation output. + (copy-file last-screendump screendump-backup) + (delete-file last-screendump) + (error "'wait-for-screen-text' timeout" + 'ocr-text: last-text + 'screendump: screendump-backup)) + (let* ((_ (and (procedure? pre-action) (pre-action))) + (text screendump (marionette-screen-text marionette #:ocr ocr)) + (_ (and (procedure? post-action) (post-action))) + (result (predicate text))) + (cond (result + (delete-file screendump) + result) + (else + (sleep 1) + (loop text screendump))))))) (define %qwerty-us-keystrokes ;; Maps "special" characters to their keystrokes. @@ -367,8 +388,10 @@ PREDICATE, whichever comes first. Raise an error when TIMEOUT is exceeded." (#\> . "shift-dot") (#\. . "dot") (#\, . "comma") + (#\: . "shift-semicolon") (#\; . "semicolon") (#\' . "apostrophe") + (#\! . "shift-1") (#\" . "shift-apostrophe") (#\` . "grave_accent") (#\bs . "backspace") diff --git a/gnu/ci.scm b/gnu/ci.scm index 19a48bdbf1..884dd84469 100644 --- a/gnu/ci.scm +++ b/gnu/ci.scm @@ -38,6 +38,7 @@ #:use-module ((guix licenses) #:select (gpl3+ license? license-name)) #:use-module ((guix utils) #:select (%current-system)) + #:use-module ((guix scripts system) #:select (read-operating-system)) #:use-module ((guix scripts pack) #:select (self-contained-tarball)) #:use-module (gnu bootloader) diff --git a/gnu/home/services/pm.scm b/gnu/home/services/pm.scm new file mode 100644 index 0000000000..5f09941827 --- /dev/null +++ b/gnu/home/services/pm.scm @@ -0,0 +1,145 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2022 ( <paren@disroot.org> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify +;;; it under the terms of the GNU General Public License as published by +;;; the Free Software Foundation, either version 3 of the License, or +;;; (at your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu home services pm) + #:use-module (guix gexp) + #:use-module (guix packages) + #:use-module (guix records) + #:use-module (gnu home services) + #:use-module (gnu home services shepherd) + #:use-module (gnu packages monitoring) + #:use-module (gnu services shepherd) + + #:export (home-batsignal-configuration + home-batsignal-service-type)) + +;;; +;;; batsignal +;;; +;;; Daemon for running commands and displaying notifications on +;;; battery events. +;;; + +(define-record-type* <home-batsignal-configuration> + home-batsignal-configuration make-home-batsignal-configuration + home-batsignal-configuration? + (warning-level batsignal-warning-level ;integer + (default 15)) + (warning-message batsignal-warning-message ;string | #f + (default #f)) + (critical-level batsignal-critical-level ;integer + (default 5)) + (critical-message batsignal-critical-message ;string | #f + (default #f)) + (danger-level batsignal-danger-level ;integer + (default 2)) + (danger-command batsignal-danger-command ;file-like | string | #f + (default #f)) + (full-level batsignal-full-level ;integer | #f + (default #f)) + (full-message batsignal-full-message ;string | #f + (default #f)) + (batteries batsignal-batteries ;list of string + (default '())) + (poll-delay batsignal-poll-delay ;integer + (default 60)) + (icon batsignal-icon ;file-like | #f + (default #f)) + (notifications? batsignal-notifications? ;boolean + (default #t)) + (notifications-expire? batsignal-notifications-expire? ;boolean + (default #f)) + (notification-command batsignal-notification-command ;string | #f + (default #f)) + (ignore-missing? batsignal-ignore-missing? ;boolean + (default #f))) + +(define (home-batsignal-shepherd-services config) + (let ((warning-level (batsignal-warning-level config)) + (warning-message (batsignal-warning-message config)) + (critical-level (batsignal-critical-level config)) + (critical-message (batsignal-critical-message config)) + (danger-level (batsignal-danger-level config)) + (danger-command (batsignal-danger-command config)) + (full-level (batsignal-full-level config)) + (full-message (batsignal-full-message config)) + (batteries (batsignal-batteries config)) + (poll-delay (batsignal-poll-delay config)) + (icon (batsignal-icon config)) + (notifications? (batsignal-notifications? config)) + (notifications-expire? (batsignal-notifications-expire? config)) + (notification-command (batsignal-notification-command config)) + (ignore-missing? (batsignal-ignore-missing? config))) + (list (shepherd-service + (provision '(batsignal)) + (documentation "Run the batsignal battery-watching daemon.") + (start #~(make-forkexec-constructor + (append (list #$(file-append batsignal "/bin/batsignal") + "-w" (number->string #$warning-level) + "-c" (number->string #$critical-level) + "-d" (number->string #$danger-level) + "-m" (number->string #$poll-delay)) + (if #$warning-message + (list "-W" #$warning-message) + (list)) + (if #$critical-message + (list "-C" #$critical-message) + (list)) + (if #$danger-command + (list "-D" #$danger-command) + (list)) + (if #$full-level + (list "-f" (number->string #$full-level)) + (list)) + (if #$full-message + (list "-F" #$full-message) + (list)) + (if (null? (list #$@batteries)) + (list) + (list "-n" (string-join (list #$@batteries) ","))) + (if #$icon + (list "-I" #$icon) + (list)) + (if #$notifications? + (list) + (list "-N")) + (if #$notifications-expire? + (list "-e") + (list)) + (if #$notification-command + (list "-M" #$notification-command) + (list)) + (if #$ignore-missing? + (list "-i") + (list))) + #:log-file (string-append + (or (getenv "XDG_LOG_HOME") + (format #f "~a/.local/var/log" + (getenv "HOME"))) + "/batsignal.log"))) + (stop #~(make-kill-destructor)))))) + +(define home-batsignal-service-type + (service-type + (name 'home-batsignal) + (extensions + (list (service-extension home-shepherd-service-type + home-batsignal-shepherd-services))) + (default-value (home-batsignal-configuration)) + (description + "Run batsignal, a battery watching and notification daemon."))) diff --git a/gnu/local.mk b/gnu/local.mk index 3ba6e55792..a33acd78a0 100644 --- a/gnu/local.mk +++ b/gnu/local.mk @@ -54,6 +54,7 @@ # Copyright © 2022 muradm <mail@muradm.net> # Copyright © 2022 Hilton Chain <hako@ultrarare.space> # Copyright © 2022 Alex Griffin <a@ajgrf.com> +# Copyright © 2022 ( <paren@disroot.org> # # This file is part of GNU Guix. # @@ -89,6 +90,7 @@ GNU_SYSTEM_MODULES = \ %D%/home/services/symlink-manager.scm \ %D%/home/services/fontutils.scm \ %D%/home/services/guix.scm \ + %D%/home/services/pm.scm \ %D%/home/services/shells.scm \ %D%/home/services/shepherd.scm \ %D%/home/services/ssh.scm \ @@ -145,6 +147,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/browser-extensions.scm \ %D%/packages/build-tools.scm \ %D%/packages/busybox.scm \ + %D%/packages/bqn.scm \ %D%/packages/c.scm \ %D%/packages/calcurse.scm \ %D%/packages/ccache.scm \ @@ -309,6 +312,7 @@ GNU_SYSTEM_MODULES = \ %D%/packages/haxe.scm \ %D%/packages/heads.scm \ %D%/packages/hexedit.scm \ + %D%/packages/high-availability.scm \ %D%/packages/hugs.scm \ %D%/packages/hunspell.scm \ %D%/packages/hurd.scm \ @@ -692,6 +696,7 @@ GNU_SYSTEM_MODULES = \ %D%/services/sysctl.scm \ %D%/services/telephony.scm \ %D%/services/version-control.scm \ + %D%/services/vnc.scm \ %D%/services/vpn.scm \ %D%/services/web.scm \ %D%/services/xorg.scm \ @@ -773,6 +778,7 @@ GNU_SYSTEM_MODULES = \ %D%/tests/telephony.scm \ %D%/tests/version-control.scm \ %D%/tests/virtualization.scm \ + %D%/tests/vnc.scm \ %D%/tests/web.scm INSTALLER_MODULES = \ @@ -1184,6 +1190,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/giac-pari-gp-anyarg.patch \ %D%/packages/patches/giara-fix-login.patch \ %D%/packages/patches/glib-appinfo-watch.patch \ %D%/packages/patches/glib-networking-gnutls-binding.patch \ @@ -1309,7 +1316,6 @@ dist_patch_DATA = \ %D%/packages/patches/i7z-gcc-10.patch \ %D%/packages/patches/icecat-makeicecat.patch \ %D%/packages/patches/icecat-avoid-bundled-libraries.patch \ - %D%/packages/patches/icecat-use-older-reveal-hidden-html.patch \ %D%/packages/patches/icecat-use-system-graphite2+harfbuzz.patch \ %D%/packages/patches/icecat-use-system-media-libs.patch \ %D%/packages/patches/icedtea-7-hotspot-aarch64-use-c++98.patch\ @@ -1612,6 +1618,7 @@ dist_patch_DATA = \ %D%/packages/patches/ppsspp-disable-upgrade-and-gold.patch \ %D%/packages/patches/pthreadpool-system-libraries.patch \ %D%/packages/patches/python-chai-drop-python2.patch \ + %D%/packages/patches/python-louvain-fix-test.patch \ %D%/packages/patches/python-random2-getrandbits-test.patch \ %D%/packages/patches/python-poppler-qt5-fix-build.patch \ %D%/packages/patches/python-w3lib-fix-test-failure.patch \ @@ -1646,7 +1653,6 @@ dist_patch_DATA = \ %D%/packages/patches/phoronix-test-suite-fsdg.patch \ %D%/packages/patches/php-bug-74093-test.patch \ %D%/packages/patches/php-curl-compat.patch \ - %D%/packages/patches/picard-fix-id3-rename-test.patch \ %D%/packages/patches/picprog-non-intel-support.patch \ %D%/packages/patches/pidgin-add-search-path.patch \ %D%/packages/patches/pinball-system-ltdl.patch \ @@ -1670,7 +1676,6 @@ dist_patch_DATA = \ %D%/packages/patches/psm-disable-memory-stats.patch \ %D%/packages/patches/psm-ldflags.patch \ %D%/packages/patches/psm-repro.patch \ - %D%/packages/patches/public-inbox-fix-spawn-test.patch \ %D%/packages/patches/pulseaudio-fix-mult-test.patch \ %D%/packages/patches/pulseaudio-longer-test-timeout.patch \ %D%/packages/patches/pulseview-qt515-compat.patch \ @@ -1815,8 +1820,6 @@ dist_patch_DATA = \ %D%/packages/patches/scalapack-gcc-10-compilation.patch \ %D%/packages/patches/scheme48-tests.patch \ %D%/packages/patches/scons-test-environment.patch \ - %D%/packages/patches/scotch-build-parallelism.patch \ - %D%/packages/patches/scotch-integer-declarations.patch \ %D%/packages/patches/screen-hurd-path-max.patch \ %D%/packages/patches/sdl-libx11-1.6.patch \ %D%/packages/patches/seed-webkit.patch \ diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index 1a213adfdd..13d582403b 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -53,6 +53,7 @@ ;;; Copyright © 2022 Roman Riabenko <roman@riabenko.com> ;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com> ;;; Copyright © 2022 Andreas Rammhold <andreas@rammhold.de> +;;; Copyright © 2022 ( <paren@disroot.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -99,6 +100,7 @@ #:use-module (gnu packages c) #:use-module (gnu packages check) #:use-module (gnu packages compression) + #:use-module (gnu packages crates-graphics) #:use-module (gnu packages crates-io) #:use-module (gnu packages cross-base) #:use-module (gnu packages crypto) @@ -109,6 +111,7 @@ #:use-module (gnu packages elf) #:use-module (gnu packages file) #:use-module (gnu packages flex) + #:use-module (gnu packages fonts) #:use-module (gnu packages freedesktop) #:use-module (gnu packages gawk) #:use-module (gnu packages gettext) @@ -5224,6 +5227,74 @@ greetd-pam-mount is used in configuration of greetd to provide auto-(mounting/unmounting) of XDG_RUNTIME_DIR in the way that it will not interfere with default pam-mount configuration."))) +(define-public wlgreet + (package + (name "wlgreet") + (version "0.4") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://git.sr.ht/~kennylevinsen/wlgreet") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "00grp63n9nrgqls3knxfv9wjbc7p0jwr7i2vzxy750dz85gi2kzn")))) + (build-system cargo-build-system) + (arguments + (list #:cargo-inputs + `(("rust-chrono" ,rust-chrono-0.4) + ("rust-getopts" ,rust-getopts-0.2) + ("rust-greetd-ipc" ,rust-greetd-ipc-0.8) + ("rust-lazy-static" ,rust-lazy-static-1) + ("rust-memmap2" ,rust-memmap2-0.3) + ("rust-nix" ,rust-nix-0.15) + ("rust-os-pipe" ,rust-os-pipe-0.8) + ("rust-rusttype" ,rust-rusttype-0.7) + ("rust-serde" ,rust-serde-1) + ("rust-smithay-client-toolkit" + ,rust-smithay-client-toolkit-0.15) + ("rust-toml" ,rust-toml-0.5) + ("rust-wayland-client" ,rust-wayland-client-0.29) + ("rust-wayland-protocols" ,rust-wayland-protocols-0.29) + ("rust-xml-rs" ,rust-xml-rs-0.8)) + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'remove-bundled-fonts + (lambda _ + (delete-file-recursively "fonts"))) + (add-after 'remove-bundled-fonts 'fix-font-references + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "src/draw.rs" + (("\\.\\./fonts/dejavu/DejaVuSansMono\\.ttf" _) + (search-input-file + inputs + "share/fonts/truetype/DejaVuSansMono.ttf")) + (("\\.\\./fonts/Roboto-Regular\\.ttf" _) + (search-input-file + inputs + "share/fonts/truetype/Roboto-Regular.ttf"))))) + (add-after 'configure 'fix-library-references + (lambda* (#:key inputs vendor-dir #:allow-other-keys) + (substitute* (find-files vendor-dir "\\.rs$") + (("lib(wayland-.*|xkbcommon)\\.so" so-file) + (search-input-file + inputs + (string-append "lib/" so-file))))))))) + (inputs + (list font-dejavu + font-google-roboto + libxkbcommon + wayland)) + (home-page "https://git.sr.ht/~kennylevinsen/wlgreet") + (synopsis "Bare-bones Wayland-based greeter for @command{greetd}") + (description + "@command{wlgreet} provides a @command{greetd} greeter +that runs on a Wayland compositor such as @command{sway}. It +is implemented with pure Wayland APIs, so it does not depend +on a GUI toolkit.") + (license license:gpl3))) + (define-public libseat (package (name "libseat") diff --git a/gnu/packages/algebra.scm b/gnu/packages/algebra.scm index 183d84c549..d4b7810308 100644 --- a/gnu/packages/algebra.scm +++ b/gnu/packages/algebra.scm @@ -14,6 +14,7 @@ ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com> ;;; Copyright © 2020, 2021 Vinicius Monego <monego@posteo.net> ;;; Copyright © 2021 Lars-Dominik Braun <ldb@leibniz-psychology.org> +;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -106,24 +107,26 @@ multiplication routines such as Toom–Cook and the FFT.") (define-public gf2x (package - (name "gf2x") - (version "1.2") - (source (origin - (method url-fetch) - (uri (string-append - "https://gforge.inria.fr/frs/download.php/file/36934/gf2x-" - version ".tar.gz")) - (sha256 - (base32 - "0d6vh1mxskvv3bxl6byp7gxxw3zzpkldrxnyajhnl05m0gx7yhk1")))) - (build-system gnu-build-system) - (synopsis "Arithmetic of polynomials over binary finite fields") - (description - "The gf2x library provides arithmetic of polynomials over finite fields + (name "gf2x") + (version "1.3.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.inria.fr/gf2x/gf2x") + (commit (string-append name "-" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "04g5jg0i4vz46b4w2dvbmahwzi3k6b8g515mfw7im1inc78s14id")))) + (build-system gnu-build-system) + (native-inputs (list autoconf automake libtool)) + (synopsis "Arithmetic of polynomials over binary finite fields") + (description + "The gf2x library provides arithmetic of polynomials over finite fields of characteristic 2. It implements the multiplication, squaring and greatest common divisor operations.") - (license license:gpl3+) - (home-page "https://gforge.inria.fr/projects/gf2x/"))) + (home-page "https://gitlab.inria.fr/gf2x/gf2x") + (license license:gpl3+))) (define-public cm (package @@ -336,7 +339,12 @@ precision.") "~parisse/debian/dists/stable/main/source/" "giac_" version ".tar.gz")) (sha256 - (base32 "1zh7bf0ag4vbyyj5n8lbvy2ivp0kshms40ra5lq1ff035rpx230j")))) + (base32 "1zh7bf0ag4vbyyj5n8lbvy2ivp0kshms40ra5lq1ff035rpx230j")) + (patches + ;; Patch borrowed from Sage math team. Giac 1.9.0-21 does not build + ;; since Pari-GP 2.15 upgrade. Reported upstream here: + ;; <https://xcas.univ-grenoble-alpes.fr/forum/viewtopic.php?f=3&t=2800>. + (search-patches "giac-pari-gp-anyarg.patch")))) (build-system gnu-build-system) (arguments (list @@ -352,9 +360,10 @@ precision.") (find-files "doc" "^Makefile")) (("/bin/cp") (which "cp"))))) (add-after 'unpack 'disable-failing-test - ;; FIXME: Test failing. Not sure why. + ;; FIXME: Tests failing. Not sure why. (lambda _ (substitute* "check/Makefile.in" + (("chk_fhan4") "") (("chk_fhan11") "")))) (add-after 'install 'fix-doc (lambda _ @@ -629,35 +638,42 @@ geometry and singularity theory.") (define-public gmp-ecm (package - (name "gmp-ecm") - (version "7.0.4") - (source (origin - (method url-fetch) - (uri - (let ((hash "00c4c691a1ef8605b65bdf794a71539d")) - (string-append "https://gitlab.inria.fr/zimmerma/ecm/" - "uploads/" hash "/ecm-" version - ".tar.gz"))) - (sha256 (base32 - "0hxs24c2m3mh0nq1zz63z3sb7dhy1rilg2s1igwwcb26x3pb7xqc")))) - (build-system gnu-build-system) - (inputs - (list gmp)) - (arguments - `(#:configure-flags '("--enable-shared" - ;; Disable specific assembly routines, which depend - ;; on the subarchitecture of the build machine, - ;; and use gmp instead. - "--disable-asm-redc"))) - (synopsis "Integer factorization library using the elliptic curve method") - (description - "GMP-ECM factors integers using the elliptic curve method (ECM) as well + (name "gmp-ecm") + (version "7.0.5") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.inria.fr/zimmerma/ecm") + (commit (string-append "git-" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "013sfsd5kyh7phhf4namcdndpcp2jnibzxf10f4g89qabr8av63m")))) + (build-system gnu-build-system) + (inputs + (list gmp)) + (arguments + (list + #:configure-flags #~(list "--enable-shared" + ;; Disable specific assembly routines, which + ;; depend on the subarchitecture of the build + ;; machine, and use gmp instead. + "--disable-asm-redc") + #:phases #~(modify-phases %standard-phases + (add-after 'unpack 'patch-paths + (lambda _ + (substitute* "test.ecm" + (("/bin/rm") (which "rm")))))))) + (native-inputs (list autoconf automake libtool)) + (synopsis "Integer factorization library using the elliptic curve method") + (description + "GMP-ECM factors integers using the elliptic curve method (ECM) as well as the P-1 and P+1 algorithms. It provides a library and a stand-alone binary.") - ;; Most files are under lgpl3+, but some are under gpl3+ or gpl2+, - ;; so the combined work is under gpl3+. - (license license:gpl3+) - (home-page "http://ecm.gforge.inria.fr/"))) + (home-page "https://gitlab.inria.fr/zimmerma/ecm") + ;; Most files are under lgpl3+, but some are under gpl3+ or gpl2+, so the + ;; combined work is under gpl3+. + (license license:gpl3+))) (define-public bc (package @@ -1393,42 +1409,45 @@ objects.") (define-public gappa (package - (name "gappa") - (version "1.4.0") - (source (origin - (method url-fetch) - (uri (string-append "https://gappa.gitlabpages.inria.fr/releases/" - "gappa-" version ".tar.gz")) - (sha256 - (base32 - "12x42z901pr05ldmparqdi8sq9s7fxbavhzk2dbq3l6hy247dwbb")))) - (build-system gnu-build-system) - (inputs - (list boost gmp mpfr)) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-remake-shell - (lambda _ - (substitute* "remake.cpp" - (("/bin/sh") (which "sh"))) - #t)) - (replace 'build - (lambda _ (invoke "./remake" "-s" "-d"))) - (replace 'install - (lambda _ (invoke "./remake" "-s" "-d" "install"))) - (replace 'check - (lambda _ (invoke "./remake" "check")))))) - (home-page "http://gappa.gforge.inria.fr/") - (synopsis "Proof generator for arithmetic properties") - (description "Gappa is a tool intended to help verifying and formally + (name "gappa") + (version "1.4.1") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.inria.fr/gappa/gappa") + (commit (string-append name "-" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0vfggzilc0gicrhqypmlx30ccrdkmyg22zzn46988c28xi9rcicj")))) + (build-system gnu-build-system) + (arguments + (list #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch-remake-shell + (lambda _ + (substitute* "remake.cpp" + (("/bin/sh") (which "sh"))))) + (replace 'build + (lambda _ (invoke "./remake" "-s" "-d"))) + (replace 'install + (lambda _ (invoke "./remake" "-s" "-d" "install"))) + (replace 'check + (lambda* (#:key tests? #:allow-other-keys) + (when tests? + (invoke "./remake" "check"))))))) + (native-inputs (list autoconf automake bison flex libtool)) + (inputs (list boost gmp mpfr)) + (home-page "https://gitlab.inria.fr/gappa/gappa") + (synopsis "Proof generator for arithmetic properties") + (description "Gappa is a tool intended to help verifying and formally proving properties on numerical programs dealing with floating-point or fixed-point arithmetic. It has been used to write robust floating-point filters for CGAL and it is used to certify elementary functions in CRlibm. While Gappa is intended to be used directly, it can also act as a backend prover for the Why3 software verification platform or as an automatic tactic for the Coq proof assistant.") - (license (list license:gpl3+ license:cecill)))) ; either/or + (license (list license:gpl3+ license:cecill)))) ; either/or (define-public givaro (package diff --git a/gnu/packages/astronomy.scm b/gnu/packages/astronomy.scm index 13ffdd74d3..aaa9207e0e 100644 --- a/gnu/packages/astronomy.scm +++ b/gnu/packages/astronomy.scm @@ -591,6 +591,50 @@ large scale galaxy-survey data, it can perform reasonably well on moderately crowded star fields.") (license license:gpl3+))) +(define-public splash + (package + (name "splash") + (version "3.5.1") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/danieljprice/splash") + (commit (string-append "v" version)))) + (sha256 + (base32 + "12s3w96wzd4zpxw4adzhalkr57fgdk7cjp6bj596jnd87pz3rhyd")) + (file-name (git-file-name name version)))) + (build-system gnu-build-system) + (arguments + ;; FIXME: Tests failed + ;; Issue submited upstream https://github.com/danieljprice/splash/issues/67 + ;; + ;; make: *** No rule to make target 'test_interpolate3D.o', needed by 'test1'. Stop. + ;; + (list #:tests? #f + #:parallel-build? #f ;parallel build fails + #:make-flags #~(list "SYSTEM=gfortran" "PREFIX=" + (string-append "GIZA_DIR=" + #$(this-package-input "giza")) + (string-append "DESTDIR=" + #$output)) + #:phases #~(modify-phases %standard-phases + (delete 'configure) + (add-before 'install 'create-install-dirrectories + (lambda _ + (mkdir-p (string-append #$output "/bin"))))))) + (native-inputs (list gfortran pkg-config perl python-wrapper)) + (inputs (list cairo cfitsio giza)) + (home-page "https://users.monash.edu.au/~dprice/splash/") + (synopsis + "Astrophysical visualisation tool for smoothed particle hydrodynamics") + (description + "SPLASH is visualisation tool for Smoothed Particle Hydrodynamics (SPH) +simulations in one, two and three dimensions, developed mainly for +astrophysics. It uses a command-line menu but data can be manipulated +interactively in the plotting window.") + (license license:gpl2+))) + (define-public skymaker (package (name "skymaker") diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm index fd27c1cc71..f57c22240a 100644 --- a/gnu/packages/audio.scm +++ b/gnu/packages/audio.scm @@ -366,7 +366,12 @@ Linux kernel.") "07857vdkak306d9s5g6fhmjyxk7vijzjhkmqb15s7ihfxx9lx8xb")))) (build-system cmake-build-system) (arguments - '(#:tests? #f)) ; no check target + '(#:tests? #f ;no check target + + ;; XXX: Building with '-fsanitize=undefined' leads to embedded C++ STL + ;; header file names in libgme.so, meaning that libgme retains a + ;; reference to GCC. Disable UBSAN to avoid that. + #:configure-flags '("-DENABLE_UBSAN=OFF"))) (home-page "https://bitbucket.org/mpyne/game-music-emu") (synopsis "Video game music file playback library") (description @@ -1400,7 +1405,7 @@ object library.") (define-public csound (package (name "csound") - (version "6.14.0") + (version "6.16.2") (source (origin (method git-fetch) @@ -1409,7 +1414,7 @@ object library.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "1sr9knfhbm2m0wpkjq2l5n471vnl51wy4p6j4m95zqybimzb4s2j")))) + (base32 "1lgasyk8j4cl9178vci1dph63nks3cgwhf8y1d04z9dc8gg15dyn")))) (build-system cmake-build-system) (native-inputs (list bison flex gettext-minimal zlib)) diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm index 0d03d2e87f..3725e3ff01 100644 --- a/gnu/packages/backup.scm +++ b/gnu/packages/backup.scm @@ -1091,14 +1091,14 @@ interactive mode.") (define-public btrbk (package (name "btrbk") - (version "0.32.2") + (version "0.32.4") (source (origin (method url-fetch) (uri (string-append "https://digint.ch/download/btrbk/releases/" "btrbk-" version ".tar.xz")) (sha256 (base32 - "0gi0j09fm4pgw3dq0z27lkpyvrs3ssyqg9b46v5ba794z63w753z")))) + "1nl6cbzqkc2srwi1428vijq69rp5cdx7484zcx61ph0rnhg9srfc")))) (build-system gnu-build-system) (arguments (list diff --git a/gnu/packages/bash.scm b/gnu/packages/bash.scm index 86af26d648..7545f331e6 100644 --- a/gnu/packages/bash.scm +++ b/gnu/packages/bash.scm @@ -483,8 +483,7 @@ you to call routines in shared libraries from within Bash.") (lambda _ (substitute* "ble.pp" (("PATH=/bin:/usr/bin readlink") - (search-input-file %build-inputs - "/bin/readlink"))))) + "readlink")))) (delete 'configure) ;no configure (add-before 'check 'use-LANG-for-tests (lambda _ diff --git a/gnu/packages/bioconductor.scm b/gnu/packages/bioconductor.scm index 10b70bab06..ecb60f2e24 100644 --- a/gnu/packages/bioconductor.scm +++ b/gnu/packages/bioconductor.scm @@ -2370,14 +2370,14 @@ used visualizations.") (define-public r-dearseq (package (name "r-dearseq") - (version "1.8.1") + (version "1.8.4") (source (origin (method url-fetch) (uri (bioconductor-uri "dearseq" version)) (sha256 (base32 - "1f144k5gsclcmsnlsbisr2mivk91dbkci83wx1kznw6i15p4cpj1")))) + "1zsqsgf243gq1k57mw11d6apzccnq531mwg2wzw9mjrs1m0jsfzl")))) (build-system r-build-system) (propagated-inputs (list r-compquadform @@ -3279,14 +3279,14 @@ used by @code{ensembldb}, @code{Organism.dplyr}, and other packages.") (define-public r-annotationforge (package (name "r-annotationforge") - (version "1.38.0") + (version "1.38.1") (source (origin (method url-fetch) (uri (bioconductor-uri "AnnotationForge" version)) (sha256 (base32 - "18rcfadxdaggyjj3rj17nbvgddlqs6zlr5jmq9a02kin59czvzz8")))) + "0lcr79a3570h7zg4z691gxg2vlyqnars5811q0clzinbmq7b4x3v")))) (properties `((upstream-name . "AnnotationForge"))) (build-system r-build-system) @@ -3566,13 +3566,13 @@ objects.") (define-public r-biostrings (package (name "r-biostrings") - (version "2.64.0") + (version "2.64.1") (source (origin (method url-fetch) (uri (bioconductor-uri "Biostrings" version)) (sha256 (base32 - "1sz52hz89l9w2y2bvyis7kczslk1xnskls9l2bn1s3dhnjzdzhg8")))) + "1wk8nlmp6f6fsjrcb4fb48s3ay38yywwad748i6lfkkcw2pdfw33")))) (properties `((upstream-name . "Biostrings"))) (build-system r-build-system) @@ -3698,13 +3698,13 @@ analysis.") (define-public r-chipseeker (package (name "r-chipseeker") - (version "1.32.0") + (version "1.32.1") (source (origin (method url-fetch) (uri (bioconductor-uri "ChIPseeker" version)) (sha256 (base32 - "001f85nk4myk9vgs05inlj2dfby4802p1iyzkfqg332yk52gsbl7")))) + "0l2514wvlc8q7n1zjzfrghdg372sp73z39204bkif3g6pdkcvbcf")))) (build-system r-build-system) (native-inputs (list r-knitr)) @@ -3718,6 +3718,7 @@ analysis.") r-genomicranges r-genomicfeatures r-ggplot2 + r-ggvenndiagram r-gplots r-gtools r-dplyr @@ -3770,14 +3771,14 @@ experiments.") (define-public r-complexheatmap (package (name "r-complexheatmap") - (version "2.12.0") + (version "2.12.1") (source (origin (method url-fetch) (uri (bioconductor-uri "ComplexHeatmap" version)) (sha256 (base32 - "15b49vlkl89prcw70mlw066z0gxhs26x8dpfn6qr3gz7hihygs65")))) + "0b4p3ijhdcydfp0j58xlb5dn7d3m2x420n91rl9diqpg4r2gl0s8")))) (properties `((upstream-name . "ComplexHeatmap"))) (build-system r-build-system) @@ -4210,14 +4211,14 @@ microarrays or GRanges for sequencing data.") (define-public r-gage (package (name "r-gage") - (version "2.46.0") + (version "2.46.1") (source (origin (method url-fetch) (uri (bioconductor-uri "gage" version)) (sha256 (base32 - "03hx188h98qrbpjlf8v9sg2vqyfv49rp4c18ir11pg6hwqqrxh7b")))) + "01y04jcy7a9fksyhj0nq37n1inkrpqf4qv117lflvipbx0dsw4gl")))) (build-system r-build-system) (propagated-inputs (list r-annotationdbi r-go-db r-graph r-keggrest)) @@ -4328,13 +4329,13 @@ genomic intervals. In addition, it can use BAM or BigWig files as input.") (define-public r-genomeinfodb (package (name "r-genomeinfodb") - (version "1.32.3") + (version "1.32.4") (source (origin (method url-fetch) (uri (bioconductor-uri "GenomeInfoDb" version)) (sha256 (base32 - "17nwcq2ivj3bdibdywfyjq4n6z0djispbh9ahqa55sp31ksq41xh")))) + "0z2bqr0zrl3r2kcqs72ny8p1psf8w1sgbr7qjjknxdv1qp8m2j7v")))) (properties `((upstream-name . "GenomeInfoDb"))) (build-system r-build-system) @@ -4388,13 +4389,13 @@ alignments.") (define-public r-genomicfeatures (package (name "r-genomicfeatures") - (version "1.48.3") + (version "1.48.4") (source (origin (method url-fetch) (uri (bioconductor-uri "GenomicFeatures" version)) (sha256 (base32 - "0f14p1ma2y8l60p9sxmh5j0axws9by1cznczb2jxipphpb4slpl1")))) + "15kn5lmdqp7rsh2zlixj7ashsqnv50bs36hapw36qbaz9vgvim4v")))) (properties `((upstream-name . "GenomicFeatures"))) (build-system r-build-system) @@ -4692,13 +4693,13 @@ Binomial data via estimation of latent structure in the natural parameter.") (define-public r-limma (package (name "r-limma") - (version "3.52.2") + (version "3.52.4") (source (origin (method url-fetch) (uri (bioconductor-uri "limma" version)) (sha256 (base32 - "0m8p8pqmf48f2zdf3qs66hmychbc58g2hfg1wyxzsv180m6xkk65")))) + "14xy3qyra2crz31sxgz768mhnhhvcpfhfcigf4xsii643lqcz75h")))) (build-system r-build-system) (home-page "http://bioinf.wehi.edu.au/limma") (synopsis "Package for linear models for microarray and RNA-seq data") @@ -6568,13 +6569,13 @@ libraries for systems that do not have these available via other means.") (define-public r-zellkonverter (package (name "r-zellkonverter") - (version "1.6.3") + (version "1.6.5") (source (origin (method url-fetch) (uri (bioconductor-uri "zellkonverter" version)) (sha256 - (base32 "0l6v7a2zyxpq2w3vm85z439ldi3ld3pkc3wx95a1vxzbr31cpdzz")))) + (base32 "0rxpjkisjj1xjchjjm72k8za5hn48wbdahmbllljvxm5ii6k36k6")))) (properties `((upstream-name . "zellkonverter"))) (build-system r-build-system) (propagated-inputs @@ -6805,14 +6806,14 @@ signal in the input, that lead to spurious peaks during peak calling.") (define-public r-diffbind (package (name "r-diffbind") - (version "3.6.1") + (version "3.6.4") (source (origin (method url-fetch) (uri (bioconductor-uri "DiffBind" version)) (sha256 (base32 - "0izlk8vmmal4dj0bjxhgzr25arfa9zgdv06rm70w7ylr0gl84pzr")))) + "035xczcir4q7yj6x9m3yq3dpvbfas9la925avni8147cwhybagqr")))) (properties `((upstream-name . "DiffBind"))) (build-system r-build-system) (propagated-inputs @@ -7667,14 +7668,14 @@ achieved for all methods using the BiocParallel framework.") (define-public r-scaledmatrix (package (name "r-scaledmatrix") - (version "1.4.0") + (version "1.4.1") (source (origin (method url-fetch) (uri (bioconductor-uri "ScaledMatrix" version)) (sha256 (base32 - "0p6065mbn77hphpjfchz3r3raspl127f11n39mwh9bih4zg375cl")))) + "05gxr41nb1jqhv357rfha4062kszvrmkr36mhkjsf7kgnzf0p8hz")))) (properties `((upstream-name . "ScaledMatrix"))) (build-system r-build-system) (propagated-inputs @@ -7693,14 +7694,14 @@ multiplication.") (define-public r-treeio (package (name "r-treeio") - (version "1.20.0") + (version "1.20.2") (source (origin (method url-fetch) (uri (bioconductor-uri "treeio" version)) (sha256 (base32 - "1hc5m0b2qqxrh3z0inny2jizrpn9d4yn9pn3k1h18xb4ggyijyla")))) + "1jymbyl82n88ckw0nkbj72rvlxbk5m7xmcmq3fyi885z7aasc0x1")))) (properties `((upstream-name . "treeio"))) (build-system r-build-system) (propagated-inputs @@ -7725,14 +7726,14 @@ platform for merging tree with associated data and converting file formats.") (define-public r-ggtree (package (name "r-ggtree") - (version "3.4.0") + (version "3.4.4") (source (origin (method url-fetch) (uri (bioconductor-uri "ggtree" version)) (sha256 (base32 - "033r748npv0l72yb9sk6lqnj0l7cd36ykf788145qv8ck5i2gyk4")))) + "0h1qlhn4rj7jgd9vrja7lykaglyfvnzwkghvsqj1mvp4niwli7y5")))) (properties `((upstream-name . "ggtree"))) (build-system r-build-system) (propagated-inputs @@ -8215,14 +8216,14 @@ interactive exploration of results.") (define-public r-residualmatrix (package (name "r-residualmatrix") - (version "1.6.0") + (version "1.6.1") (source (origin (method url-fetch) (uri (bioconductor-uri "ResidualMatrix" version)) (sha256 (base32 - "1pjr3gva0jwj2pgqr4k4nl1ir1153hhrk1d400r30w0di472hns4")))) + "1530706c7b53h9m8smgnaj63rgdbm3hd09n7jwy6zc0y6qcffckd")))) (properties `((upstream-name . "ResidualMatrix"))) (build-system r-build-system) @@ -9349,14 +9350,14 @@ to multiple hypothesis correction.") (define-public r-dose (package (name "r-dose") - (version "3.22.0") + (version "3.22.1") (source (origin (method url-fetch) (uri (bioconductor-uri "DOSE" version)) (sha256 (base32 - "11lg4ql0bi54p2wg3z1dw9rwqai37khgcqbs4cb7zf67ml8jadwp")))) + "1mch26kddrhhzgi4bssnyy7bvdhprrncmvxl6zn1cq7g07p5765i")))) (properties `((upstream-name . "DOSE"))) (build-system r-build-system) (propagated-inputs @@ -9384,14 +9385,14 @@ data.") (define-public r-enrichplot (package (name "r-enrichplot") - (version "1.16.1") + (version "1.16.2") (source (origin (method url-fetch) (uri (bioconductor-uri "enrichplot" version)) (sha256 (base32 - "17ln1wbkq8sp7jw0dpkccj5qcsl382sgd7zic04dk99z9ag3mh02")))) + "0qh7bci3rn6y2fl45izrdb62jcm6j0zxxg4pyp4mvvgjvka5lnss")))) (build-system r-build-system) (propagated-inputs (list r-aplot @@ -9806,14 +9807,14 @@ fitting a three-component normal mixture on z-scores.") (define-public r-rgadem (package (name "r-rgadem") - (version "2.44.0") + (version "2.44.1") (source (origin (method url-fetch) (uri (bioconductor-uri "rGADEM" version)) (sha256 (base32 - "013xdwz0c3n0n9hxf8kkx570qry961pgdjsp023531pl5ww2ing4")))) + "052z9iavnmkaz9jzz7ycpb8z7qqq3s5k6a04icrwl00wff7zqa2q")))) (properties `((upstream-name . "rGADEM"))) (build-system r-build-system) (propagated-inputs @@ -11501,14 +11502,14 @@ annotations.") (define-public r-rsubread (package (name "r-rsubread") - (version "2.10.4") + (version "2.10.5") (source (origin (method url-fetch) (uri (bioconductor-uri "Rsubread" version)) (sha256 (base32 - "155h25gbagqns7wpriil17li0jkdd1z1pcz0dlnikdqj4saf97rl")))) + "0n9qqbkj2lgxkia6kfpfz06wbc1lvw24qyvn88f48zw5nh0rsrs2")))) (properties `((upstream-name . "Rsubread"))) (build-system r-build-system) (inputs (list zlib)) @@ -11703,14 +11704,14 @@ change point detection.") (define-public r-ncdfflow (package (name "r-ncdfflow") - (version "2.42.0") + (version "2.42.1") (source (origin (method url-fetch) (uri (bioconductor-uri "ncdfFlow" version)) (sha256 (base32 - "18ba8rygcd1ys150pk38r4w5lxwm6sl76zkd294yg847dygsqa4m")))) + "0759xvkp22dnbhq5wpgvpk8p61w0d50r5jrbh9n7sj8sga4lvvv7")))) (properties `((upstream-name . "ncdfFlow"))) (build-system r-build-system) (propagated-inputs @@ -11734,14 +11735,14 @@ manipulation of flow cytometry data.") (define-public r-ggcyto (package (name "r-ggcyto") - (version "1.24.0") + (version "1.24.1") (source (origin (method url-fetch) (uri (bioconductor-uri "ggcyto" version)) (sha256 (base32 - "0sycyvdpa77mykzr709a7padh6478zmnzapibbq90qkc7bxnj359")))) + "1cw60x78vqzjmgb5xd3sxyz6zwdaffp3byk34z8d4b3wkh530325")))) (properties `((upstream-name . "ggcyto"))) (build-system r-build-system) (propagated-inputs @@ -11771,14 +11772,14 @@ statistics to the plot.") (define-public r-flowviz (package (name "r-flowviz") - (version "1.60.0") + (version "1.60.2") (source (origin (method url-fetch) (uri (bioconductor-uri "flowViz" version)) (sha256 (base32 - "175ygncrv6q6mb8pahixs89m9wm6hdpzx489gc9s8lgad2vrvz8f")))) + "08rwzc26jns0wwjsqqmf60bpxsckr5x8skdn9iwl8grp81npcc95")))) (properties `((upstream-name . "flowViz"))) (build-system r-build-system) (propagated-inputs @@ -11919,14 +11920,14 @@ matches the flowJo analysis.") (define-public r-flowstats (package (name "r-flowstats") - (version "4.8.0") + (version "4.8.2") (source (origin (method url-fetch) (uri (bioconductor-uri "flowStats" version)) (sha256 (base32 - "1jbc92ah2mlpnd7v3k0207v4qz3rg9g9yy6r6y0s0cc5nifdyhwj")))) + "1x01gg5ifxh3wp0cp5a23lr9v6l9q5qg8145q2pgn904jkx5wldc")))) (properties `((upstream-name . "flowStats"))) (build-system r-build-system) (propagated-inputs @@ -11957,14 +11958,14 @@ package.") (define-public r-opencyto (package (name "r-opencyto") - (version "2.8.0") + (version "2.8.4") (source (origin (method url-fetch) (uri (bioconductor-uri "openCyto" version)) (sha256 (base32 - "1nz5fra0jf70jwyfbcz5ksnz5xb62vfnfwfasr0zwwvjvmmvrs1y")))) + "0fa3hbbrjw458dhmxdjypcjgyxmphp9kdr3r62qqf803i4wsxfk0")))) (properties `((upstream-name . "openCyto"))) (build-system r-build-system) (propagated-inputs @@ -12001,14 +12002,14 @@ sequential way to mimic the manual gating strategy.") (define-public r-cytoml (package (name "r-cytoml") - (version "2.8.0") + (version "2.8.1") (source (origin (method url-fetch) (uri (bioconductor-uri "CytoML" version)) (sha256 (base32 - "0vp7advfh1d8596hjpzayasjhga4mx0l104sgz2asscbrjm4v7rr")))) + "01yzdljpyq92bv318b5qs29f190226zwbqjnckvxmbb0k8m7s5hw")))) (properties `((upstream-name . "CytoML"))) (build-system r-build-system) (inputs @@ -13760,13 +13761,13 @@ monograph.") (define-public r-bioccheck (package (name "r-bioccheck") - (version "1.32.0") + (version "1.32.1") (source (origin (method url-fetch) (uri (bioconductor-uri "BiocCheck" version)) (sha256 (base32 - "1k1gxzmxx26hmwdxgagv93mv4jwyygkk8703ds6nvryzhqffzkbc")))) + "0bq4xrz1spp0bmbccxydkw6yw03by5dysz85mn152ab6xixm52lw")))) (properties `((upstream-name . "BiocCheck"))) (build-system r-build-system) @@ -13835,13 +13836,13 @@ functionality.") (define-public r-biocviews (package (name "r-biocviews") - (version "1.64.0") + (version "1.64.1") (source (origin (method url-fetch) (uri (bioconductor-uri "biocViews" version)) (sha256 (base32 - "1lahla53awdqiglfiygbxg5pkzfabym7n5abgyp1nvqsvsj0g126")))) + "0ixcx9qqpmwmnhml3klk5z075km8g2l4q0iqc1dbniga87qgyl38")))) (properties `((upstream-name . "biocViews"))) (build-system r-build-system) @@ -14031,14 +14032,14 @@ gene selection, testing relationships, and so on.") (define-public r-biocpkgtools (package (name "r-biocpkgtools") - (version "1.14.0") + (version "1.14.1") (source (origin (method url-fetch) (uri (bioconductor-uri "BiocPkgTools" version)) (sha256 (base32 - "1v0824vmg49q9lh0igdyniryyknw6vmh462rn25kmg9hdna0w99h")))) + "0akryshjdn227a8ir8r0lb59v060h58rhy5vjmdxax8p81ajzxkd")))) (properties `((upstream-name . "BiocPkgTools"))) (build-system r-build-system) (propagated-inputs @@ -14577,14 +14578,14 @@ provided.") (define-public r-hdf5array (package (name "r-hdf5array") - (version "1.24.1") + (version "1.24.2") (source (origin (method url-fetch) (uri (bioconductor-uri "HDF5Array" version)) (sha256 (base32 - "1r1lg7k60qgb489xkypd4gvm1fmdlihvylb5va6xj58ipndbfday")))) + "1dzx5463ig3ag72a47slc4jbq5id11w77cj0zgzr85h0dbxklrr9")))) (properties `((upstream-name . "HDF5Array"))) (build-system r-build-system) (inputs @@ -14978,14 +14979,14 @@ cell types to infer the cell of origin of each single cell independently.") (define-public r-scuttle (package (name "r-scuttle") - (version "1.6.2") + (version "1.6.3") (source (origin (method url-fetch) (uri (bioconductor-uri "scuttle" version)) (sha256 (base32 - "0nnmq3wf436xaw4arc4y3ldvn6ilsg52xzbccmid0icb8z3y2kzn")))) + "1w1jy5fqkp2d03lp84d49fsksnl0pcg0wgqyd49d5k1mipdw4671")))) (properties `((upstream-name . "scuttle"))) (build-system r-build-system) (propagated-inputs @@ -15055,14 +15056,14 @@ quality control.") (define-public r-scran (package (name "r-scran") - (version "1.24.0") + (version "1.24.1") (source (origin (method url-fetch) (uri (bioconductor-uri "scran" version)) (sha256 (base32 - "0xg7dl35915a65pmzkxdacsm4iqf97ayljdjljcvqx1ycmn7x68w")))) + "1a6vlq8i5gh7zxm6igmy75187pkx42z28qjag50m49xy5valw3ni")))) (build-system r-build-system) (propagated-inputs (list r-beachmat @@ -15123,14 +15124,14 @@ data in the column sparse format.") (define-public r-delayedmatrixstats (package (name "r-delayedmatrixstats") - (version "1.18.0") + (version "1.18.1") (source (origin (method url-fetch) (uri (bioconductor-uri "DelayedMatrixStats" version)) (sha256 (base32 - "1qlwv69c0r2w3zkmsr8r7w6sr3hf1ha0sfcrsjx4ks8f0ww7aqsv")))) + "1kq643fmfzq1qjvpj3kc092ahc3qamqgx53layqsyvz5mil55jjv")))) (properties `((upstream-name . "DelayedMatrixStats"))) (build-system r-build-system) @@ -15805,13 +15806,13 @@ other functional sequencing data.") (define-public r-pathview (package (name "r-pathview") - (version "1.36.0") + (version "1.36.1") (source (origin (method url-fetch) (uri (bioconductor-uri "pathview" version)) (sha256 - (base32 "1472k107f21cflbx2fip92g8gl9wlwxgwfvgvl73ma0y0jzs0qdq")))) + (base32 "11g4zhy4qfq0gmy588334f7s2w1acs2dz9kimax5ya2b8jjibk71")))) (properties `((upstream-name . "pathview"))) (build-system r-build-system) (propagated-inputs @@ -16054,14 +16055,14 @@ real numbers.") (define-public r-bgeecall (package (name "r-bgeecall") - (version "1.12.1") + (version "1.12.2") (source (origin (method url-fetch) (uri (bioconductor-uri "BgeeCall" version)) (sha256 (base32 - "1g12cms66zb45p347h3b358vjhnq76galvwqwq86xby4hnwpdzkh")))) + "0l6smwy55mm4clb71l4bpch3bayyyf87nq1asbrv6s6fd22mmwil")))) (properties `((upstream-name . "BgeeCall"))) (build-system r-build-system) (propagated-inputs @@ -16243,14 +16244,14 @@ package, primarily for creation of the underlying Conda instance.") (define-public r-basilisk (package (name "r-basilisk") - (version "1.8.0") + (version "1.8.1") (source (origin (method url-fetch) (uri (bioconductor-uri "basilisk" version)) (sha256 (base32 - "1p90wq8a9wrpqpgmcy4zgh5skdw65gg2gsb3lnx78zk9khq0yyzh")))) + "134xix2iq5l7783dng2jjklxd3m5lh4snb7bjhslrs2r1j3p8jpk")))) (properties `((upstream-name . "basilisk"))) (build-system r-build-system) (propagated-inputs @@ -16303,14 +16304,14 @@ Bioconductor-friendly.") (define-public r-biocdockermanager (package (name "r-biocdockermanager") - (version "1.8.0") + (version "1.8.1") (source (origin (method url-fetch) (uri (bioconductor-uri "BiocDockerManager" version)) (sha256 (base32 - "0kl6r8ad728a8dvqx0safj7v5gj1rxxcdiw44jkr1pd5ddv0xbi6")))) + "0a4dcga18bw5mvzmsml28bf4zclz32pp9iflnbvps7pdxvhmmg9d")))) (properties `((upstream-name . "BiocDockerManager"))) (build-system r-build-system) @@ -16333,14 +16334,14 @@ the Bioconductor project.") (define-public r-biodb (package (name "r-biodb") - (version "1.4.0") + (version "1.4.2") (source (origin (method url-fetch) (uri (bioconductor-uri "biodb" version)) (sha256 (base32 - "02i0n29bp9d9p1ibslxca5m37qsgny2hlgg7d364lf7kc6y2bqni")))) + "0f3clqmrpaawhjjyb4x5mnbhsam56r0av05b5cl5p4waylp8qbs1")))) (properties `((upstream-name . "biodb"))) (build-system r-build-system) (propagated-inputs @@ -16474,32 +16475,32 @@ using aCGH or sequencing.") (define-public r-bionero (package (name "r-bionero") - (version "1.4.0") + (version "1.4.2") (source (origin (method url-fetch) (uri (bioconductor-uri "BioNERO" version)) (sha256 (base32 - "1nyzjbl0gcwvbj2nxfwykirikf8j3rsx5ny45bqjbcb4r23k65kj")))) + "0dsznfnhidbmf52rv8l26f1ms2k9yy4q4c6cf3x8ylc79c1sjrcp")))) (properties `((upstream-name . "BioNERO"))) (build-system r-build-system) (propagated-inputs (list r-biocparallel r-complexheatmap - r-deseq2 r-dynamictreecut r-genie3 r-ggnetwork r-ggnewscale r-ggplot2 - r-ggpubr + r-ggrepel r-igraph r-intergraph r-matrixstats r-minet r-netrep r-networkd3 + r-patchwork r-rcolorbrewer r-reshape2 r-summarizedexperiment @@ -16742,6 +16743,43 @@ ensemble machine learning for the estimation of nuisance functions.") visualizing bisulfite sequencing data.") (license license:artistic2.0))) +(define-public r-dada2 + (package + (name "r-dada2") + (version "1.24.0") + (source (origin + (method url-fetch) + (uri (bioconductor-uri "dada2" version)) + (sha256 + (base32 + "0nvjnmcjh0i660y8s3rh9b3zl163wxdx7qm2n36m6vf0iy987l4x")))) + (properties `((upstream-name . "dada2"))) + (build-system r-build-system) + (propagated-inputs + (list r-biocgenerics + r-biostrings + r-ggplot2 + r-iranges + r-rcpp + r-rcppparallel + r-reshape2 + r-shortread + r-xvector)) + (native-inputs (list r-knitr)) + (home-page "https://benjjneb.github.io/dada2/") + (synopsis + "Accurate, high-resolution sample inference from amplicon sequencing data") + (description + "The dada2 package infers exact @dfn{amplicon sequence variants} (ASVs) +from high-throughput amplicon sequencing data, replacing the coarser and less +accurate OTU clustering approach. The dada2 pipeline takes as input +demultiplexed fastq files, and outputs the sequence variants and their +sample-wise abundances after removing substitution and chimera errors. +Taxonomic classification is available via a native implementation of the RDP +naive Bayesian classifier, and species-level assignment to 16S rRNA gene +fragments by exact matching.") + (license license:lgpl2.0))) + (define-public r-dmrseq (package (name "r-dmrseq") @@ -17009,14 +17047,14 @@ embeddings and functions to build new reference.") (define-public r-tximeta (package (name "r-tximeta") - (version "1.14.0") + (version "1.14.1") (source (origin (method url-fetch) (uri (bioconductor-uri "tximeta" version)) (sha256 (base32 - "1vq7x1sf5h8iwdalalbrybxzbq47s2ymb75himj5wkv77mgcivfl")))) + "0hxq5lkrdiz0a3xpl88adrv4m55jr6g46a5m9pamc0w4bxddirr8")))) (properties `((upstream-name . "tximeta"))) (build-system r-build-system) (propagated-inputs diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm index a034bf134e..f2de09aa32 100644 --- a/gnu/packages/bioinformatics.scm +++ b/gnu/packages/bioinformatics.scm @@ -1656,7 +1656,27 @@ package provides command line tools using the Bio++ library.") ;; Remove useless msbuild directory (delete-file-recursively "c++/src/build-system/project_tree_builder/msbuild") - #t)))) + + ;; Build reproducibly. + ;; Do not record the kernel version + (substitute* "c++/src/build-system/configure" + (("kver=.*") "kver=\"\"")) + ;; Do not generate random numbers. + (substitute* "c++/scripts/common/impl/define_random_macros.sh" + (("#define NCBI_RANDOM_VALUE_MAX 0xffffffffu" m) + (string-append m " +#define NCBI_RANDOM_VALUE_0 2845495105u +#define NCBI_RANDOM_VALUE_1 2158634051u +#define NCBI_RANDOM_VALUE_2 4072202242u +#define NCBI_RANDOM_VALUE_3 902228395u +#define NCBI_RANDOM_VALUE_4 1353323915u +#define NCBI_RANDOM_VALUE_5 574823513u +#define NCBI_RANDOM_VALUE_6 4119501261u +#define NCBI_RANDOM_VALUE_7 2477640938u +#define NCBI_RANDOM_VALUE_8 2776595395u +#define NCBI_RANDOM_VALUE_9 270550684u +")) + (("cksum") "cksum >/dev/null")))))) (build-system gnu-build-system) (arguments `(;; There are two(!) tests for this massive library, and both fail with @@ -2409,26 +2429,27 @@ are not included due to their size.") (define-public cd-hit (package (name "cd-hit") - (version "4.6.8") + (version "4.8.1") (source (origin (method url-fetch) (uri (string-append "https://github.com/weizhongli/cdhit" "/releases/download/V" version "/cd-hit-v" version - "-2017-0621-source.tar.gz")) + "-2019-0228.tar.gz")) (sha256 (base32 - "1b4mwm2520ixjbw57sil20f9iixzw4bkdqqwgg1fc3pzm6rz4zmn")))) + "1phmfhgcpyfd6kj7jwzw976613lcpv1wc2pzfdfaxla062x2s5r6")))) (build-system gnu-build-system) (arguments - `(#:tests? #f ; there are no tests - #:make-flags - ;; Executables are copied directly to the PREFIX. - ,#~(list (string-append "PREFIX=" #$output "/bin") - ;; Support longer sequences (e.g. Pacbio sequences) - "MAX_SEQ=60000000") - #:phases - (modify-phases %standard-phases + (list + #:tests? #f ; there are no tests + #:make-flags + ;; Executables are copied directly to the PREFIX. + #~(list (string-append "PREFIX=" #$output "/bin") + ;; Support longer sequences (e.g. Pacbio sequences) + "MAX_SEQ=60000000") + #:phases + '(modify-phases %standard-phases ;; No "configure" script (delete 'configure) ;; Remove sources of non-determinism @@ -2438,15 +2459,13 @@ are not included due to their size.") ((" \\(built on \" __DATE__ \"\\)") "")) (substitute* "cdhit-common.c++" (("__DATE__") "\"0\"") - (("\", %s, \" __TIME__ \"\\\\n\", date") "")) - #t)) + (("\", %s, \" __TIME__ \"\\\\n\", date") "")))) ;; The "install" target does not create the target directory. (add-before 'install 'create-target-dir (lambda* (#:key outputs #:allow-other-keys) - (mkdir-p (string-append (assoc-ref outputs "out") "/bin")) - #t))))) + (mkdir-p (string-append (assoc-ref outputs "out") "/bin"))))))) (inputs - (list perl)) + (list perl zlib)) (home-page "http://weizhongli-lab.org/cd-hit/") (synopsis "Cluster and compare protein or nucleotide sequences") (description @@ -2457,6 +2476,26 @@ databases.") ;; version 2 (GPLv2)." (license license:gpl2))) +(define-public cd-hit-auxtools + (package + (inherit cd-hit) + (name "cd-hit-auxtools") + (arguments + (list + #:tests? #f ; there are no tests + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'chdir (lambda _ (chdir "cd-hit-auxtools"))) + ;; No "configure" script + (delete 'configure) + ;; There is no install target. + (replace 'install + (lambda _ + (for-each (lambda (file) + (install-file file (string-append #$output "/bin"))) + '("cd-hit-dup" "cd-hit-lap" "read-linker"))))))) + (inputs '()))) + (define-public clipper (package (name "clipper") @@ -4825,7 +4864,7 @@ data.") (define-public kaiju (package (name "kaiju") - (version "1.6.3") + (version "1.9.0") (source (origin (method git-fetch) (uri (git-reference @@ -4834,24 +4873,45 @@ data.") (file-name (git-file-name name version)) (sha256 (base32 - "119pzi0ddzv9mjg4wwa6han0cwr3k3ssn7kirvsjfcq05mi5ka0x")))) + "1hfmadkfs6jjd7l3byly5xxb0ifm3dm1wis11sjbqfcv6l89snmg")))) (build-system gnu-build-system) (arguments - `(#:tests? #f ; There are no tests. - #:phases - (modify-phases %standard-phases - (delete 'configure) - (add-before 'build 'move-to-src-dir - (lambda _ (chdir "src") #t)) - (replace 'install - (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((bin (string-append (assoc-ref outputs "out") "/bin"))) - (mkdir-p bin) - (chdir "..") - (copy-recursively "bin" bin)) - #t))))) + (list + #:tests? #f ; There are no tests. + #:phases + #~(modify-phases %standard-phases + (delete 'configure) + (add-before 'build 'move-to-src-dir + (lambda _ (chdir "src"))) + (replace 'install + (lambda _ + (let ((bin (string-append #$output "/bin"))) + (mkdir-p bin) + (copy-recursively "../bin" bin) + (let ((path (search-path-as-list '("bin") + '#$(match (package-inputs this-package) + (((_ pkg) ...) pkg))))) + (for-each (lambda (script) + (let ((exe (string-append bin "/" script))) + (chmod exe #o555) + (wrap-script exe + #:guile #$(file-append guile-3.0 "/bin/guile") + `("PATH" ":" prefix ,path)))) + (list "kaiju-convertMAR.py" + "kaiju-gbk2faa.pl" + "kaiju-makedb"))))))))) (inputs - (list perl zlib)) + (list bzip2 + coreutils + curl + gawk + guile-3.0 ;for wrap-script + gzip + perl + python-wrapper + tar + wget + zlib)) (home-page "http://kaiju.binf.ku.dk/") (synopsis "Fast and sensitive taxonomic classification for metagenomics") (description "Kaiju is a program for sensitive taxonomic classification @@ -6236,7 +6296,7 @@ accessed/downloaded on demand across HTTP.") (origin (method url-fetch) (uri (string-append - "http://pngu.mgh.harvard.edu/~purcell/plink/dist/plink-" + "https://zzz.bwh.harvard.edu/plink/dist/plink-" version "-src.zip")) (sha256 (base32 "0as8gxm4pjyc8dxmm1sl873rrd7wn5qs0l29nqfnl31x8i467xaa")) @@ -8444,6 +8504,46 @@ BLAST, KEGG, GenBank, MEDLINE and GO.") ;; (LGPLv2.1+) and scripts in samples (which have GPL2 and GPL2+) (license (list license:ruby license:lgpl2.1+ license:gpl2+ )))) +(define-public centrifuge + (package + (name "centrifuge") + (version "1.0.4") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/DaehwanKimLab/centrifuge.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "167610gbz1rrh6ir3j7jcmhzg3x5msn7x7a3dpv7wmwdndnnqvg0")))) + (build-system gnu-build-system) + (arguments + (list + #:tests? #false ; no check target + #:make-flags + #~(list (string-append "prefix=" #$output)) + #:phases + '(modify-phases %standard-phases + (delete 'configure)))) + (inputs (list python-wrapper)) + (native-inputs + (list pandoc perl ;for documentation + which)) + (home-page "https://github.com/DaehwanKimLab/centrifuge/") + (synopsis "Classifier for metagenomic sequences") + (description "Centrifuge is a microbial classification engine that enables +rapid, accurate and sensitive labeling of reads and quantification of species +on desktop computers. The system uses an indexing scheme based on the +@dfn{Burrows-Wheeler transform} (BWT) and the @dfn{Ferragina-Manzini} (FM) +index, optimized specifically for the metagenomic classification problem. +Centrifuge requires a relatively small index (4.7 GB for all complete +bacterial and viral genomes plus the human genome) and classifies sequences at +very high speed, allowing it to process the millions of reads from a typical +high-throughput DNA sequencing run within a few minutes.") + (license license:gpl3+))) + (define-public bio-vcf (package (name "bio-vcf") @@ -10236,7 +10336,7 @@ The following file formats are supported: (define-public salmon (package (name "salmon") - (version "1.6.0") + (version "1.9.0") (source (origin (method git-fetch) (uri (git-reference @@ -10245,104 +10345,112 @@ The following file formats are supported: (file-name (git-file-name name version)) (sha256 (base32 - "1wb5wl0rc77svbwq6zvak5h7pf9acw3di0vz5i3gqyhg5l6qd736")) + "1370ry3jpj05gplzyny44mqg77a29a6gp8ijmjz135d2igf956r8")) (modules '((guix build utils))) (snippet ;; Delete bundled headers for eigen3. '(delete-file-recursively "include/eigen3/")))) (build-system cmake-build-system) (arguments - `(#:configure-flags - ,#~(list (string-append "-Dlibgff_DIR=" - #$(this-package-input "libgff") "/lib") - "-DCMAKE_CXX_FLAGS=\"-DHAVE_NUMERIC_LIMITS128=1\"" - "-Dlibgff_FOUND=TRUE" - "-DTBB_FOUND=TRUE" - #$(string-append "-DTBB_VERSION=" (package-version tbb-2020)) - "-DTBB_LIBRARIES=tbb -ltbbmalloc" - "-DFETCHED_PUFFERFISH=TRUE" - "-DUSE_SHARED_LIBS=TRUE") + (list + #:configure-flags + #~(list (string-append "-Dlibgff_DIR=" + #$(this-package-input "libgff") "/lib") + "-DCMAKE_CXX_FLAGS=\"-DHAVE_NUMERIC_LIMITS128=1\"" + "-Dlibgff_FOUND=TRUE" + "-DTBB_FOUND=TRUE" + #$(string-append "-DTBB_VERSION=" (package-version tbb)) + "-DFETCHED_PUFFERFISH=TRUE" + "-DUSE_SHARED_LIBS=TRUE") #:phases - (modify-phases %standard-phases - (add-after 'unpack 'prepare-pufferfish - (lambda* (#:key inputs #:allow-other-keys) - (copy-recursively (assoc-ref inputs "pufferfish") - "external/pufferfish") - ;; This test isn't working correctly, so compilation aborts. - (substitute* "external/pufferfish/include/string_view.hpp" - (("#if __has_include\\(<string_view>\\)") - "#if 0")) - (let ((headers "external/install/pufferfish/include/pufferfish") - (source "external/install/src/pufferfish")) - (mkdir-p headers) - (mkdir-p source) - (for-each (lambda (file) - (install-file (string-append "external/pufferfish/include/" file) - headers)) - (list "ProgOpts.hpp" "BooPHF.hpp" "SpinLock.hpp" - "Kmer.hpp" "CanonicalKmer.hpp" "string_view.hpp" - "CanonicalKmerIterator.hpp" - "PufferfishBaseIndex.hpp" - "PufferfishIndex.hpp" - "PufferfishSparseIndex.hpp" - "PufferfishLossyIndex.hpp" - "PufferfishTypes.hpp" - "rank9b.hpp" "rank9sel.hpp" "macros.hpp" - "select.hpp" "Util.hpp" - "PairedAlignmentFormatter.hpp" - "SelectiveAlignmentUtils.hpp" - "PuffAligner.hpp" "MemCollector.hpp" - "MemChainer.hpp" "CommonTypes.hpp" - "SAMWriter.hpp" "PufferfishConfig.hpp" - "BulkChunk.hpp" "BinWriter.hpp")) - (for-each (lambda (dir) - (copy-recursively - (string-append "external/pufferfish/include/" dir) - (string-append headers "/" dir))) - (list "libdivide" - "ksw2pp" - "compact_vector" - "metro" - "chobo" - "sparsepp" - "simde" - "tsl")) - (copy-recursively - (string-append "external/pufferfish/src/metro/") - (string-append source "/metro")) - (install-file - (string-append "external/pufferfish/src/rank9b.cpp") - source) - - ;; Do not complain about not having built libtbb - (substitute* "external/pufferfish/external/twopaco/CMakeLists.txt" - (("add_dependencies.*") ""))))) - (add-after 'unpack 'do-not-phone-home - (lambda _ - (substitute* "src/Salmon.cpp" - (("getVersionMessage\\(\\)") "\"\"")))) - (add-after 'unpack 'use-system-libraries - (lambda* (#:key inputs #:allow-other-keys) - ;; Ensure that all headers can be found - (setenv "CPLUS_INCLUDE_PATH" - (string-append (or (getenv "CPLUS_INCLUDE_PATH") "") - ":" - (getcwd) "/external/install/pufferfish/include:" - (assoc-ref inputs "eigen") - "/include/eigen3")))) - (add-after 'unpack 'fix-error-message-in-tests - (lambda _ - (substitute* "cmake/TestSalmonQuasi.cmake" - (("SALMON_QUASI_INDEX_COMMAND") - "SALMON_QUASI_INDEX_CMD"))))))) + '(modify-phases %standard-phases + (add-after 'unpack 'prepare-pufferfish + (lambda* (#:key inputs #:allow-other-keys) + (copy-recursively (assoc-ref inputs "pufferfish") + "external/pufferfish") + ;; This test isn't working correctly, so compilation aborts. + (substitute* "external/pufferfish/include/string_view.hpp" + (("#if __has_include\\(<string_view>\\)") + "#if 0")) + (let ((headers "external/install/pufferfish/include/pufferfish") + (source "external/install/src/pufferfish")) + (mkdir-p headers) + (mkdir-p source) + (for-each (lambda (file) + (install-file (string-append "external/pufferfish/include/" file) + headers)) + (list "ProgOpts.hpp" "BooPHF.hpp" "SpinLock.hpp" + "Kmer.hpp" "CanonicalKmer.hpp" "string_view.hpp" + "CanonicalKmerIterator.hpp" + "PufferfishBaseIndex.hpp" + "PufferfishIndex.hpp" + "PufferfishSparseIndex.hpp" + "PufferfishLossyIndex.hpp" + "PufferfishTypes.hpp" + "rank9b.hpp" "rank9sel.hpp" "macros.hpp" + "select.hpp" "Util.hpp" + "PairedAlignmentFormatter.hpp" + "SelectiveAlignmentUtils.hpp" + "PuffAligner.hpp" "MemCollector.hpp" + "MemChainer.hpp" "CommonTypes.hpp" + "SAMWriter.hpp" "PufferfishConfig.hpp" + "BulkChunk.hpp" "BinWriter.hpp")) + + (for-each (lambda (dir) + (copy-recursively + (string-append "external/pufferfish/include/" dir) + (string-append headers "/" dir))) + (list "libdivide" + "ksw2pp" + "compact_vector" + "itlib" + "metro" + "chobo" + "sparsepp" + "simde" + "tsl")) + (copy-recursively + (string-append "external/pufferfish/src/metro/") + (string-append source "/metro")) + (install-file + (string-append "external/pufferfish/src/rank9b.cpp") + source) + + ;; Do not complain about not having built libtbb + (substitute* "external/pufferfish/external/twopaco/CMakeLists.txt" + (("add_dependencies.*") ""))))) + (add-after 'unpack 'do-not-phone-home + (lambda _ + (substitute* "src/Salmon.cpp" + (("getVersionMessage\\(\\)") "\"\"")))) + (add-after 'unpack 'use-system-libraries + (lambda* (#:key inputs #:allow-other-keys) + ;; Ensure that all headers can be found + (setenv "CPLUS_INCLUDE_PATH" + (string-append (or (getenv "CPLUS_INCLUDE_PATH") "") + ":" + (getcwd) "/external/install/pufferfish/include:" + (assoc-ref inputs "eigen") + "/include/eigen3")))) + (add-after 'unpack 'fix-error-message-in-tests + (lambda _ + (substitute* "cmake/TestSalmonQuasi.cmake" + (("SALMON_QUASI_INDEX_COMMAND") + "SALMON_QUASI_INDEX_CMD"))))))) (inputs - `(("boost" ,boost) - ("bzip2" ,bzip2) - ("cereal" ,cereal-1.3.0) - ("curl" ,curl) - ("eigen" ,eigen) - ("jemalloc" ,jemalloc) - ("libgff" ,libgff) + (list boost + bzip2 + cereal-1.3.0 + curl + eigen + jemalloc + libgff + tbb + libstadenio-for-salmon + xz + zlib)) + (native-inputs + `(("pkg-config" ,pkg-config) ("pufferfish" ,(origin (method git-fetch) (uri (git-reference @@ -10351,13 +10459,7 @@ The following file formats are supported: (file-name (git-file-name "pufferfish" version)) (sha256 (base32 - "0jakgpbanl6cs23x3g26iab54p7zylcf9v8vc32ps57smp8wql52")))) - ("tbb" ,tbb-2020) - ("libstadenio-for-salmon" ,libstadenio-for-salmon) - ("xz" ,xz) - ("zlib" ,zlib))) - (native-inputs - (list pkg-config)) + "048a006mc2d0h78ym58mv67hl1pj480ilc5ifq0rlzfdyyfs1b8i")))))) (home-page "https://github.com/COMBINE-lab/salmon") (synopsis "Quantification from RNA-seq reads using lightweight alignments") (description "Salmon is a program to produce highly-accurate, @@ -11304,7 +11406,7 @@ based methods.") (define-public pigx-sars-cov-2 (package (name "pigx-sars-cov-2") - (version "0.0.7") + (version "0.0.8") (source (origin (method url-fetch) (uri (string-append "https://github.com/BIMSBbioinfo/pigx_sars-cov-2" @@ -11312,24 +11414,51 @@ based methods.") "/pigx_sars-cov-2-" version ".tar.gz")) (sha256 (base32 - "1bqm03ypf7l8lrkjkydxzn7vy0qlps3v9c5cpz2wb008zw44bi3k")))) + "1yf1y25asnhxz80dajs54wrhr0wyi9fldk7lxsnqrh7gpqp2dvcs")))) (build-system gnu-build-system) (arguments - `(#:tests? #f ;requires huge kraken database - #:phases - (modify-phases %standard-phases - (add-before 'bootstrap 'autoreconf - (lambda _ - ;; https://github.com/BIMSBbioinfo/pigx_sars-cov-2/issues/123 - (substitute* "m4/ax_r_package.m4" - (("if\\(is.na\\(packageDescription\\(\"PKG\"\\)\\)\\)") - "if(system.file(package=\"PKG\") == \"\")")) - (invoke "autoreconf" "-vif"))) + (list + #:phases + '(modify-phases %standard-phases + (add-after 'unpack 'unpack-databases + (lambda* (#:key inputs #:allow-other-keys) + ;; The tests need to be able to write caches to HOME. + ;; They also default to reading the databases from there. + (setenv "HOME" "/tmp") + ;; Unpack the three databases in the expected location. + (let ((root "/tmp/.local/share/pigx/databases") + (use-underscore (lambda (c) (if (equal? c #\-) #\_ c)))) + (for-each (lambda (db) + (let ((where (string-append root "/" + (string-map use-underscore db)))) + (mkdir-p where) + (invoke "tar" "-C" where + "-xf" (assoc-ref inputs db)))) + '("kraken-db" "krona-db" "vep-db"))))) (add-before 'configure 'set-PYTHONPATH (lambda _ (setenv "PYTHONPATH" (getenv "GUIX_PYTHONPATH"))))))) (native-inputs - (list automake autoconf)) + (let ((bimsb-origin + (lambda (name hash) + (origin + (method url-fetch) + (uri + (string-append "https://bimsbstatic.mdc-berlin.de/akalin/AAkalin_pathogenomics" + "/databases_small-20221006/" name)) + (sha256 (base32 hash)))))) + `(("kraken-db" + ,(bimsb-origin + "kraken_db.tar.gz" + "0sdm4xh5npg6c3y2pz8xgphim4qpglm8wdid6rlaaqsn6iikv0mz")) + ("krona-db" + ,(bimsb-origin + "krona_db.tar.gz" + "1rwy4gd3vw1gdjldrgf44c1xaa3vq8i3pgisjhrac81yx63x8f2h")) + ("vep-db" + ,(bimsb-origin + "vep_db.tar.gz" + "0d8hhi43zsw3wqm7gd0z0gpcdsc6h6ra0imn87hifl9a64jxqzxz"))))) (inputs (list bash-minimal bedtools @@ -11345,10 +11474,16 @@ based methods.") python-pyyaml python-wrapper r-base64url + r-data-table + r-deconvr r-dplyr r-dt r-ggplot2 + r-htmltools + r-jsonlite + r-knitr r-magrittr + r-mass r-minimal r-plotly r-qpcr @@ -16229,6 +16364,38 @@ BigWig files, as well as efficient region coverage summary over intervals from both types of files.") (license license:expat))) +(define-public megahit + (package + (name "megahit") + (version "1.2.9") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/voutcn/megahit.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1r5d9nkdmgjsbrpj43q9hy3s8jwsabaz3ji561v18hy47v58923c")))) + (build-system cmake-build-system) + (arguments + (list + #:test-target "simple_test" + #:phases + '(modify-phases %standard-phases + (add-after 'unpack 'fix-tests + (lambda _ + (substitute* "src/megahit" + (("os.path.join\\(script_path, '..'\\)") + "os.path.join(script_path, '../source')"))))))) + (inputs (list python-wrapper zlib)) + (home-page "https://www.ncbi.nlm.nih.gov/pubmed/25609793") + (synopsis "Meta-genome assembler") + (description "Megahit is a fast and memory-efficient NGS assembler. It is +optimized for metagenomes, but also works well on generic single genome +assembly (small or mammalian size) and single-cell assembly.") + (license license:gpl3))) + (define-public mudskipper (package (name "mudskipper") diff --git a/gnu/packages/build-tools.scm b/gnu/packages/build-tools.scm index 84a62d0fd6..376c4d3486 100644 --- a/gnu/packages/build-tools.scm +++ b/gnu/packages/build-tools.scm @@ -14,6 +14,7 @@ ;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2021 qblade <qblade@protonmail.com> ;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com> +;;; Copyright © 2022 Juliana Sims <jtsims@protonmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -763,3 +764,35 @@ Build has features such as: @item Extensible language/compiler framework. @end itemize") (license license:gpl2+))) + +(define-public genie + (let ((commit "b139103697bbb62db895e4cc7bfe202bcff4ff25") + (revision "0")) + (package + (name "genie") + (version (git-version "1167" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/bkaradzic/genie") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "16plshzkyjjzpfcxnwjskrs7i4gg0qn92h2k0rbfl4a79fgmwvwv")))) + (build-system gnu-build-system) + (arguments + (list #:phases #~(modify-phases %standard-phases + (delete 'configure) + (replace 'install + (lambda _ + (install-file "bin/linux/genie" + (string-append #$output "/bin"))))) + #:tests? #f)) ;no tests + (home-page "https://github.com/bkaradzic/genie") + (synopsis "Project generator") + (description + "GENie generates projects from Lua scripts, making it easy to apply the +same settings to multiple projects. It supports generating projects using GNU +Makefiles, JSON Compilation Database, and experimentally Ninja.") + (license license:bsd-3)))) diff --git a/gnu/packages/chromium.scm b/gnu/packages/chromium.scm index f730d69da5..c847e4cac2 100644 --- a/gnu/packages/chromium.scm +++ b/gnu/packages/chromium.scm @@ -319,7 +319,7 @@ ;; run the Blink performance tests, just remove everything to save ~70MiB. '("third_party/blink/perf_tests")) -(define %chromium-version "106.0.5249.61") +(define %chromium-version "106.0.5249.103") (define %ungoogled-revision (string-append %chromium-version "-1")) (define %debian-revision "debian/102.0.5005.61-1") (define %arch-revision "6afedb08139b97089ce8ef720ece5cd14c83948c") @@ -332,7 +332,7 @@ (file-name (git-file-name "ungoogled-chromium" %ungoogled-revision)) (sha256 (base32 - "0mz3f4f2q72zl6m9vxxx084z0a1kfmsqf7fcir5bka85ap2klpjl")))) + "00acfq9hsdjqqlxddr9lr45l4372mpqxj717qpf78z8iyrccjm23")))) (define %debian-origin (origin @@ -516,7 +516,7 @@ %chromium-version ".tar.xz")) (sha256 (base32 - "15qljfg8w124yp65srp1rz3ywrlqhzqzkhimn1h9xz0jkf9cnypj")) + "0k2f3hc6mdmwzw9zzwcv6pnpibdz47a3xxkhfcvdki5gbag6cpr2")) (modules '((guix build utils))) (snippet (force ungoogled-chromium-snippet)))) (build-system gnu-build-system) diff --git a/gnu/packages/cran.scm b/gnu/packages/cran.scm index 6a561473fc..c48ef78f4c 100644 --- a/gnu/packages/cran.scm +++ b/gnu/packages/cran.scm @@ -21328,6 +21328,33 @@ using a lasso (L1) penalty. Facilities are provided for estimates along a path of values for the regularization parameter.") (license license:gpl2))) +(define-public r-gldex + (package + (name "r-gldex") + (version "2.0.0.9") + (source (origin + (method url-fetch) + (uri (cran-uri "GLDEX" version)) + (sha256 + (base32 + "1g0wg6z4ba1n6p2nw3kr734wlgmq0aw1a4spr6xw6djj7idsfi61")))) + (properties `((upstream-name . "GLDEX"))) + (build-system r-build-system) + (propagated-inputs (list r-cluster r-spacefillr)) + (home-page "https://cran.r-project.org/package=GLDEX") + (synopsis "Fitting single and mixture of generalised lambda distributions") + (description + "@code{GLDEX} offers fitting algorithms corresponding to two major +objectives. One is to provide a smoothing device to fit distributions to data +using the weighted and unweighted discretised approach based on the bin width +of the histogram. The other is to provide a definitive fit to the data set +using the maximum likelihood and quantile matching estimation. Other methods +such as moment matching, starship method, and L moment matching are also +provided. Diagnostics on goodness of fit can be done via qqplots, KS-resample +tests and comparing mean, variance, skewness and kurtosis of the data with the +fitted distribution.") + (license license:gpl3+))) + (define-public r-rhpcblasctl (package (name "r-rhpcblasctl") @@ -34733,6 +34760,30 @@ analyses.") for rendering equations in the HTML help files.") (license (list license:asl2.0 license:gpl3)))) +(define-public r-spacefillr + (package + (name "r-spacefillr") + (version "0.3.0") + (source (origin + (method url-fetch) + (uri (cran-uri "spacefillr" version)) + (sha256 + (base32 + "0c4yasc1zizjmhd2ciyz86lg76fsrxvl19yjkb2fmkda9rmnc0bf")))) + (properties `((upstream-name . "spacefillr"))) + (build-system r-build-system) + (propagated-inputs (list r-rcpp)) + (home-page "https://github.com/tylermorganwall/spacefillr") + (synopsis "Space-Filling Random and Quasi-Random Sequences") + (description + "@code{spacefillr} enables generation of random and quasi-random +space-filling sequences. It supports the following sequences: Halton, Sobol, +Owen-scrambled Sobol, Owen-scrambled Sobol with errors distributed as blue +noise, progressive jittered, progressive multi-jittered (PMJ), PMJ with blue +noise, PMJ02, and PMJ02 with blue noise. The package also includes a C++ +API.") + (license license:expat))) + (define-public r-spacetime (package (name "r-spacetime") diff --git a/gnu/packages/crates-io.scm b/gnu/packages/crates-io.scm index 87696f2c79..502972ffc5 100644 --- a/gnu/packages/crates-io.scm +++ b/gnu/packages/crates-io.scm @@ -28,6 +28,7 @@ ;;; Copyright © 2022 Marius Bakke <marius@gnu.org> ;;; Copyright © 2022 Evgenii Lepikhin <e.lepikhin@corp.mail.ru> ;;; Copyright © 2022 Gabriel Arazas <foo.dogsquared@gmail.com> +;;; Copyright © 2022 ( <paren@disroot.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -2929,7 +2930,7 @@ escape codes.") (define-public rust-anyhow-1 (package (name "rust-anyhow") - (version "1.0.46") + (version "1.0.65") (source (origin (method url-fetch) @@ -2938,12 +2939,15 @@ escape codes.") (string-append name "-" version ".tar.gz")) (sha256 (base32 - "0w0zm1bqk5kbk834r4xszlzqiln4vw5k1lnlswyjkh24khi2ia1s")))) + "00jnbylbji1wxvgpk6fcpcxyh4firn223w0lpdvxm1117r71l5lq")))) (build-system cargo-build-system) (arguments - `(#:cargo-development-inputs + `(#:cargo-inputs + (("rust-backtrace" ,rust-backtrace-0.3)) + #:cargo-development-inputs (("rust-futures" ,rust-futures-0.3) ("rust-rustversion" ,rust-rustversion-1) + ("rust-syn" ,rust-syn-1) ("rust-thiserror" ,rust-thiserror-1) ("rust-trybuild" ,rust-trybuild-1)))) (home-page "https://github.com/dtolnay/anyhow") @@ -17070,6 +17074,59 @@ type.") the Debug trait manually.") (license license:expat))) +(define-public rust-debugger-test-0.1 + (package + (name "rust-debugger-test") + (version "0.1.5") + (source (origin + (method url-fetch) + (uri (crate-uri "debugger-test" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "182j5sk71yhbn7f5qkx509bdcjz83n1nshpfgfa8dfrgb5gvanyr")))) + (build-system cargo-build-system) + (arguments + `(#:cargo-inputs + (("rust-anyhow" ,rust-anyhow-1) + ("rust-log" ,rust-log-0.4) + ("rust-quote" ,rust-quote-1) + ("rust-syn" ,rust-syn-1)) + #:cargo-development-inputs + (("rust-debugger-test-parser" ,rust-debugger-test-parser-0.1) + ("rust-regex" ,rust-regex-1)))) + (home-page "https://github.com/microsoft/rust_debugger_test") + (synopsis "Proc macro for writing tests with a debugger") + (description + "This package provides a proc macro for writing tests that launch a +debugger and run commands while verifying the output.") + (license (list license:expat license:asl2.0)))) + +(define-public rust-debugger-test-parser-0.1 + (package + (name "rust-debugger-test-parser") + (version "0.1.3") + (source (origin + (method url-fetch) + (uri (crate-uri "debugger-test-parser" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "0xcyxw0si7j4h701aksdd08j8jmrzc58833g66wm4xvp592kdrgb")))) + (build-system cargo-build-system) + (arguments + `(#:cargo-inputs + (("rust-anyhow" ,rust-anyhow-1) + ("rust-log" ,rust-log-0.4) + ("rust-regex" ,rust-regex-1)))) + (home-page + "https://github.com/microsoft/rust_debugger_test/debugger_test_parser") + (synopsis "Library for parsing debugger output") + (description + "This package provides a library for parsing the output of a debugger and +verifying the contents.") + (license (list license:expat license:asl2.0)))) + (define-public rust-decimal-2 (package (name "rust-decimal") @@ -18658,17 +18715,17 @@ other data.") #:cargo-development-inputs (("rust-bencher" ,rust-bencher-0.1)))))) -(define-public rust-dirs-3 +(define-public rust-dirs-4 (package (name "rust-dirs") - (version "3.0.1") + (version "4.0.0") (source (origin (method url-fetch) (uri (crate-uri "dirs" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1zxrb3anxsh80mnp2il7awccv0s5gvy7djn6gis18nbm0bnraa8l")))) + (base32 "0n8020zl4f0frfnzvgb9agvk4a14i1kjz4daqnxkgslndwmaffna")))) (build-system cargo-build-system) (arguments `(#:cargo-inputs @@ -18680,6 +18737,19 @@ other data.") standard locations of directories for config, cache and other data.") (license (list license:expat license:asl2.0)))) +(define-public rust-dirs-3 + (package + (inherit rust-dirs-4) + (name "rust-dirs") + (version "3.0.2") + (source + (origin + (method url-fetch) + (uri (crate-uri "dirs" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "028kqy0vrbfgrk1yc1flq2fqh8snyg17qlygawm0r79w211s1fih")))))) + (define-public rust-dirs-2 (package (inherit rust-dirs-3) @@ -21955,14 +22025,14 @@ floats.") (define-public rust-fastrand-1 (package (name "rust-fastrand") - (version "1.6.0") + (version "1.8.0") (source (origin (method url-fetch) (uri (crate-uri "fastrand" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "1ci4fcwfwkkpwd8b0zgxgvp4qf84cl53ivnp1r6cr40bd8xh97bp")))) + (base32 "16b4z2rig7zmyxw1hsiydv89h9wcshilds13dfpc919kmb7hg957")))) (build-system cargo-build-system) (arguments `(#:cargo-inputs @@ -23210,19 +23280,18 @@ implementation that is more efficient for smaller hash keys.") (define-public rust-form-urlencoded-1 (package (name "rust-form-urlencoded") - (version "1.0.0") + (version "1.1.0") (source (origin (method url-fetch) (uri (crate-uri "form_urlencoded" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "005yi1319k5bz8g5ylbdiakq5jp5jh90yy6k357zm11fr4aqvrpc")))) + (base32 "1y3bwavygjzv7b0yqsjqk33yi6wz25b7q2aaq9h54vqmc7qq9hx9")))) (build-system cargo-build-system) (arguments `(#:cargo-inputs - (("rust-matches" ,rust-matches-0.1) - ("rust-percent-encoding" ,rust-percent-encoding-2)))) + (("rust-percent-encoding" ,rust-percent-encoding-2)))) (home-page "https://github.com/servo/rust-url") (synopsis "Parser and serializer for the urlencoded syntax") (description @@ -26364,6 +26433,32 @@ and loading crate.") loading crate.") (license license:expat))) +(define-public rust-greetd-ipc-0.8 + (package + (name "rust-greetd-ipc") + (version "0.8.0") + (source (origin + (method url-fetch) + (uri (crate-uri "greetd-ipc" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1dscriv3adjyaxfaax3cmqrzx6q2vwwchbh86dhll783wjc4ivw0")))) + (build-system cargo-build-system) + (arguments + (list #:cargo-inputs + `(("rust-async-trait" ,rust-async-trait-0.1) + ("rust-serde" ,rust-serde-1) + ("rust-serde-json" ,rust-serde-json-1) + ("rust-thiserror" ,rust-thiserror-1) + ("rust-tokio" ,rust-tokio-1)))) + (home-page "https://kl.wtf/projects/greetd") + (synopsis "@command{greetd} IPC protocol library for Rust") + (description + "This package provides library that helps you use the +@command{greetd} JSON-based IPC protocol from Rust.") + (license license:gpl3))) + (define-public rust-grep-0.2 (package (name "rust-grep") @@ -29207,8 +29302,36 @@ with hyper.") "Utility for applying case rules to Rust identifiers.") (license (list license:expat license:asl2.0)))) +(define-public rust-idna-0.3 + (package + (name "rust-idna") + (version "0.3.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "idna" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 "1rh9f9jls0jy3g8rh2bfpjhvvhh4q80348jc4jr2s844133xykg1")))) + (build-system cargo-build-system) + (arguments + `(#:cargo-inputs + (("rust-unicode-bidi" ,rust-unicode-bidi-0.3) + ("rust-unicode-normalization" ,rust-unicode-normalization-0.1)) + #:cargo-development-inputs + (("rust-assert-matches" ,rust-assert-matches-1) + ("rust-bencher" ,rust-bencher-0.1) + ("rust-serde-json" ,rust-serde-json-1) + ("rust-tester" ,rust-tester-0.9)))) + (home-page "https://github.com/servo/rust-url/") + (synopsis "Internationalizing Domain Names in Applications and Punycode") + (description + "IDNA (Internationalizing Domain Names in Applications) and Punycode.") + (license (list license:expat license:asl2.0)))) + (define-public rust-idna-0.2 (package + (inherit rust-idna-0.3) (name "rust-idna") (version "0.2.3") (source @@ -29218,18 +29341,12 @@ with hyper.") (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 "1y7ca2w5qp9msgl57n03zqp78gq1bk2crqzg6kv7a542mdphm2j1")))) - (build-system cargo-build-system) (arguments `(#:skip-build? #t #:cargo-inputs (("rust-matches" ,rust-matches-0.1) ("rust-unicode-bidi" ,rust-unicode-bidi-0.3) - ("rust-unicode-normalization" ,rust-unicode-normalization-0.1)))) - (home-page "https://github.com/servo/rust-url/") - (synopsis "Internationalizing Domain Names in Applications and Punycode") - (description - "IDNA (Internationalizing Domain Names in Applications) and Punycode.") - (license (list license:expat license:asl2.0)))) + ("rust-unicode-normalization" ,rust-unicode-normalization-0.1)))))) (define-public rust-idna-0.1 (package @@ -32082,14 +32199,14 @@ nor a system allocator.") (define-public rust-lexopt-0.2 (package (name "rust-lexopt") - (version "0.2.0") + (version "0.2.1") (source (origin (method url-fetch) (uri (crate-uri "lexopt" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "0w1adb1qwp9rkznq37qvwh01ckxpwcywb6ki9mlw03filyp16xfy")))) + (base32 "1s7k6hra9p9xilhl852qi1a7c2gis59qf4yl1ca5pbxf5bkfk3j7")))) (build-system cargo-build-system) (home-page "https://github.com/blyxxyz/lexopt") (synopsis "Minimalist pedantic command line parser") @@ -40768,7 +40885,7 @@ other crates to create safe wrappers around Oniguruma.") (define-public rust-once-cell-1 (package (name "rust-once-cell") - (version "1.13.0") + (version "1.15.0") (source (origin (method url-fetch) @@ -40776,11 +40893,11 @@ other crates to create safe wrappers around Oniguruma.") (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 - "1qfqvgnwfzzwxd13ybvplzshaqwnjnna9ghcn0zgijaq0zixp9hq")))) + "1q9r8c0ls1qgjp89p4rd36sjv4671pz6710c106ajwcv2c2asbg8")))) (build-system cargo-build-system) (arguments `(#:cargo-inputs - (("rust-atomic-polyfill" ,rust-atomic-polyfill-0.1) + (("rust-atomic-polyfill" ,rust-atomic-polyfill-1) ("rust-parking-lot-core" ,rust-parking-lot-core-0.9)) #:cargo-development-inputs (("rust-crossbeam-utils" ,rust-crossbeam-utils-0.8) @@ -41377,10 +41494,27 @@ under its new name.") "04yjs1hf88jjm17g8a2lr7ibxyyg460rzbgcw9f1yzihq833y8zv")))) (native-inputs (list)))) -(define-public rust-os-pipe-0.5 +(define-public rust-os-pipe-0.8 (package (inherit rust-os-pipe-0.9) (name "rust-os-pipe") + (version "0.8.2") + (source (origin + (method url-fetch) + (uri (crate-uri "os-pipe" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "049ax8shxik7mm68r2nf7xnrcq3z3p7hz54sbrcxwywxqsjdzs41")))) + (arguments + (list #:cargo-inputs + `(("rust-nix" ,rust-nix-0.15) + ("rust-winapi" ,rust-winapi-0.3)))))) + +(define-public rust-os-pipe-0.5 + (package + (inherit rust-os-pipe-0.8) + (name "rust-os-pipe") (version "0.5.1") (source (origin @@ -43458,7 +43592,7 @@ implementation suitable for use with cryptographic private keys.") (define-public rust-percent-encoding-2 (package (name "rust-percent-encoding") - (version "2.1.0") + (version "2.2.0") (source (origin (method url-fetch) @@ -43466,7 +43600,7 @@ implementation suitable for use with cryptographic private keys.") (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 - "0bp3zrsk3kr47fbpipyczidbbx4g54lzxdm77ni1i3qws10mdzfl")))) + "13nrpp6r1f4k14viksga3094krcrxgv4b42kqbriy63k7ln5g327")))) (build-system cargo-build-system) (home-page "https://github.com/servo/rust-url/") (synopsis "Percent encoding and decoding") @@ -48375,7 +48509,7 @@ and Petrick's method, an algorithm to automatically minimize boolean expressions (define-public rust-quote-1 (package (name "rust-quote") - (version "1.0.9") + (version "1.0.21") (source (origin (method url-fetch) @@ -48383,7 +48517,7 @@ and Petrick's method, an algorithm to automatically minimize boolean expressions (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 - "19rjmfqzk26rxbgxy5j2ckqc2v12sw2xw8l4gi8bzpn2bmsbkl63")))) + "0yai5cyd9h95n7hkwjcx8ig3yv0hindmz5gm60g9dmm7fzrlir5v")))) (build-system cargo-build-system) (arguments `(#:cargo-inputs @@ -53835,7 +53969,7 @@ font rendering.") (define-public rust-rustversion-1 (package (name "rust-rustversion") - (version "1.0.2") + (version "1.0.9") (source (origin (method url-fetch) @@ -53844,13 +53978,11 @@ font rendering.") (string-append name "-" version ".tar.gz")) (sha256 (base32 - "1xkr1g792w728py2qpg2zj0vfviv2xzmxkkd9w6035l9d5ss3fxk")))) + "1a6nlrrnfbacn5pzg3m3311anhngcxs8kbvsbynh71ngni47wiwp")))) (build-system cargo-build-system) (arguments - `(#:cargo-inputs - (("rust-proc-macro2" ,rust-proc-macro2-1) - ("rust-quote" ,rust-quote-1) - ("rust-syn" ,rust-syn-1)))) + `(#:cargo-development-inputs + (("rust-trybuild" ,rust-trybuild-1)))) (home-page "https://github.com/dtolnay/rustversion") (synopsis "Conditional compilation according to rustc compiler version") (description @@ -64781,10 +64913,10 @@ one body with different resource input parameters. A test is generated for each resource matching the specific resource location pattern.") (license license:asl2.0))) -(define-public rust-tester-0.5 +(define-public rust-tester-0.9 (package (name "rust-tester") - (version "0.5.0") + (version "0.9.0") (source (origin (method url-fetch) @@ -64793,14 +64925,15 @@ each resource matching the specific resource location pattern.") (string-append name "-" version ".tar.gz")) (sha256 (base32 - "1xkgapz2i4j977f6kh1zp6sa5llbhy5vbnr6kfj8czsrdjr2r0ay")))) + "1svnlmaynfvfqmy7zjvbh2xwzdxxz50cyxbjlliz45a6iw6x2f86")))) (build-system cargo-build-system) (arguments - `(#:skip-build? #t - #:cargo-inputs - (("rust-getopts" ,rust-getopts-0.2) + `(#:cargo-inputs + (("rust-cfg-if" ,rust-cfg-if-1) + ("rust-getopts" ,rust-getopts-0.2) ("rust-libc" ,rust-libc-0.2) - ("rust-term" ,rust-term-0.4)))) + ("rust-num-cpus" ,rust-num-cpus-1) + ("rust-term" ,rust-term-0.7)))) (home-page "https://github.com/messense/rustc-test") (synopsis @@ -64810,6 +64943,27 @@ each resource matching the specific resource location pattern.") unstable language features.") (license (list license:expat license:asl2.0)))) +(define-public rust-tester-0.5 + (package + (inherit rust-tester-0.9) + (name "rust-tester") + (version "0.5.0") + (source + (origin + (method url-fetch) + (uri (crate-uri "tester" version)) + (file-name + (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1xkgapz2i4j977f6kh1zp6sa5llbhy5vbnr6kfj8czsrdjr2r0ay")))) + (arguments + `(#:skip-build? #t + #:cargo-inputs + (("rust-getopts" ,rust-getopts-0.2) + ("rust-libc" ,rust-libc-0.2) + ("rust-term" ,rust-term-0.4)))))) + (define-public rust-text-size-1 (package (name "rust-text-size") @@ -70547,7 +70701,7 @@ boundaries according to Unicode Standard Annex #29 rules.") (define-public rust-unicode-width-0.1 (package (name "rust-unicode-width") - (version "0.1.9") + (version "0.1.10") (source (origin (method url-fetch) @@ -70555,7 +70709,7 @@ boundaries according to Unicode Standard Annex #29 rules.") (file-name (string-append name "-" version ".tar.gz")) (sha256 (base32 - "0wq9wl69wlp6zwlxp660g9p4hm5gk91chwk14dp1gl9bxba45mry")))) + "12vc3wv0qwg8rzcgb9bhaf5119dlmd6lmkhbfy1zfls6n7jx3vf0")))) (build-system cargo-build-system) (arguments `(#:cargo-inputs @@ -70966,7 +71120,7 @@ type-safe zero-cost dimensional analysis.") (define-public rust-url-2 (package (name "rust-url") - (version "2.2.2") + (version "2.3.1") (source (origin (method url-fetch) @@ -70975,19 +71129,18 @@ type-safe zero-cost dimensional analysis.") (string-append name "-" version ".tar.gz")) (sha256 (base32 - "132pzpvfvpw33gjlzqd55n5iag9qddzffq8qbp1myfykna1w61x5")))) + "0hs67jw257y0a7mj2p9wi0n61x8fc2vgwxg37y62nxkmmscwfs0d")))) (build-system cargo-build-system) (arguments - `(#:skip-build? #t - #:cargo-inputs + `(#:cargo-inputs (("rust-form-urlencoded" ,rust-form-urlencoded-1) - ("rust-idna" ,rust-idna-0.2) - ("rust-matches" ,rust-matches-0.1) + ("rust-idna" ,rust-idna-0.3) ("rust-percent-encoding" ,rust-percent-encoding-2) ("rust-serde" ,rust-serde-1)) #:cargo-development-inputs (("rust-bencher" ,rust-bencher-0.1) - ("rust-rustc-test" ,rust-rustc-test-0.3) + ("rust-debugger-test" ,rust-debugger-test-0.1) + ("rust-debugger-test-parser" ,rust-debugger-test-parser-0.1) ("rust-serde-json" ,rust-serde-json-1)))) (home-page "https://github.com/servo/rust-url") (synopsis "URL library for Rust, based on the WHATWG URL Standard") @@ -74131,16 +74284,16 @@ extended attributes.") (define-public rust-xdg-2 (package (name "rust-xdg") - (version "2.4.0") + (version "2.4.1") (source (origin (method url-fetch) (uri (crate-uri "xdg" version)) (file-name (string-append name "-" version ".tar.gz")) (sha256 - (base32 "00sqvl6v0sjdrrmyk2671sshnjlbjdwgb1lw0f3jchbhijazw8rs")))) + (base32 "1xl81zfx5fsc5n06h77s0fvrslzhh2piabfz0c1lqk5xbkdq6i8c")))) (build-system cargo-build-system) - (arguments `(#:cargo-inputs (("rust-dirs" ,rust-dirs-3)))) + (arguments `(#:cargo-inputs (("rust-dirs" ,rust-dirs-4)))) (home-page "https://github.com/whitequark/rust-xdg") (synopsis "Store and retrieve files according to XDG specification") (description diff --git a/gnu/packages/dbm.scm b/gnu/packages/dbm.scm index 8b6804aa92..2d3cce9e15 100644 --- a/gnu/packages/dbm.scm +++ b/gnu/packages/dbm.scm @@ -7,6 +7,7 @@ ;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net> ;;; Copyright © 2021 Leo Le Bouter <lle-bout@zaclys.net> ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be> +;;; Copyright © 2021 LuHui <luhux76@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -65,7 +66,8 @@ ;; for "--build", but not for "--host", so update config.sub. ,@(if (and (%current-target-system) (or (target-ppc64le? (%current-target-system)) - (target-aarch64? (%current-target-system)))) + (target-aarch64? (%current-target-system)) + (target-riscv64? (%current-target-system)))) `((add-after 'unpack 'update-config.sub (lambda* (#:key native-inputs #:allow-other-keys) (delete-file "dist/config.sub") @@ -118,7 +120,8 @@ (native-inputs (if (and (%current-target-system) (or (target-ppc64le? (%current-target-system)) - (target-aarch64? (%current-target-system)))) + (target-aarch64? (%current-target-system)) + (target-riscv64? (%current-target-system)))) `(("config" ,config)) ; for config.sub '())) (synopsis "Berkeley database") diff --git a/gnu/packages/education.scm b/gnu/packages/education.scm index 54cd00d08d..3dfce97eb2 100644 --- a/gnu/packages/education.scm +++ b/gnu/packages/education.scm @@ -582,7 +582,7 @@ a pen-tablet display and a beamer.") (define-public fet (package (name "fet") - (version "6.5.7") + (version "6.6.2") (source (origin (method url-fetch) @@ -591,7 +591,7 @@ a pen-tablet display and a beamer.") (list (string-append directory base) (string-append directory "old/" base)))) (sha256 - (base32 "08j5i3dlp290fz142ljn68j8ssi5f3kabs0dd75ig33kms30hjs7")))) + (base32 "0w3fp367r8gx35qmfcx9v8z2lrwfm0fjqbadyk3lhwf28gb1csxr")))) (build-system gnu-build-system) (arguments (list @@ -1065,15 +1065,36 @@ machine, and more.") (arguments `(#:import-path "github.com/exercism/cli/exercism" #:unpack-path "github.com/exercism/cli" - #:install-source? #f)) + #:install-source? #f + #:phases + (modify-phases %standard-phases + (add-after 'install 'install-completions + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (bash (string-append out "/etc/bash_completion.d/exercism")) + (fish (string-append + out "/share/fish/vendor_completions.d/exercism.fish")) + (zsh (string-append out "/share/zsh/site-functions/_exercism"))) + (mkdir-p (dirname bash)) + (with-output-to-file bash + (lambda () + (invoke (string-append out "/bin/exercism") "completion" "bash"))) + (mkdir-p (dirname fish)) + (with-output-to-file fish + (lambda () + (invoke (string-append out "/bin/exercism") "completion" "fish"))) + (mkdir-p (dirname zsh)) + (with-output-to-file zsh + (lambda () + (invoke (string-append out "/bin/exercism") "completion" "zsh"))))))))) (inputs - `(("github.com/blang/semver" ,go-github-com-blang-semver) - ("github.com/spf13/cobra" ,go-github-com-spf13-cobra) - ("github.com/spf13/pflag" ,go-github-com-spf13-pflag) - ("github.com/spf13/viper" ,go-github-com-spf13-viper) - ("golang.org/x/net" ,go-golang-org-x-net) - ("golang.org/x/text" ,go-golang-org-x-text))) - (home-page "https://exercism.io") + (list go-github-com-blang-semver + go-github-com-spf13-cobra + go-github-com-spf13-pflag + go-github-com-spf13-viper + go-golang-org-x-net + go-golang-org-x-text)) + (home-page "https://exercism.org/") (synopsis "Mentored learning for programming languages") (description "Commandline client for exercism.io, a free service providing mentored learning for programming languages.") diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index c5d49c2925..2ac29e8225 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -1798,35 +1798,33 @@ programs.") (license license:gpl3+)))) (define-public emacs-dante - (let ((commit "38b589417294c7ea44bf65b73b8046d950f9531b") - (revision "1")) - (package - (name "emacs-dante") - (version (git-version "1.6" revision commit)) - (source (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/jyp/dante") - (commit commit))) - (sha256 - (base32 - "1mnmn635552zlwd4zr68jbvdjipl6gi4mi6wiyck28fsmq8kw96h")) - (file-name (git-file-name name version)))) - (build-system emacs-build-system) - (propagated-inputs - (list emacs-dash - emacs-f - emacs-flycheck - emacs-haskell-mode - emacs-s - emacs-company - emacs-lcr)) - (home-page "https://github.com/jyp/dante") - (synopsis "Minor mode for interactive Haskell") - (description - "This package provides a minor mode for Haskell development that + (package + (name "emacs-dante") + (version "1.7") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/jyp/dante") + (commit version))) + (sha256 + (base32 + "0q7hackvaplh1f645ngd76f2ls5mvg93xicr3rkxr07hd36yihag")) + (file-name (git-file-name name version)))) + (build-system emacs-build-system) + (propagated-inputs + (list emacs-company + emacs-dash + emacs-f + emacs-flycheck + emacs-haskell-mode + emacs-lcr + emacs-s)) + (home-page "https://github.com/jyp/dante") + (synopsis "Minor mode for interactive Haskell") + (description + "This package provides a minor mode for Haskell development that supports type hints, definition-jumping, completion, and more.") - (license license:gpl3+)))) + (license license:gpl3+))) (define-public emacs-flycheck (package @@ -2481,14 +2479,14 @@ incrementally confined in Isearch manner.") (define emacs-emms-print-metadata (package (name "emacs-emms-print-metadata") - (version "11") + (version "12") (source (origin (method url-fetch) (uri (string-append "https://elpa.gnu.org/packages/" "emms-" version ".tar")) (sha256 - (base32 "000lqhsafyh1n293ksnlyavxv1pzl5pazds4sgxjcqd45lyn55ii")))) + (base32 "048ijrpw6s4k7zr78fzc3ksjjri6mnyp6c47h5lp5nw5gvm4np7a")))) (build-system gnu-build-system) (arguments (list @@ -3026,23 +3024,27 @@ links.") (base32 "1p918y24vcn2pdliaymd210xp9fvhd4a1srqbv2lfiqrh59yjidx")))) (build-system emacs-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'install 'make-info - (lambda _ - (with-directory-excursion "docs" - (invoke "make" "info")))) - (add-after 'install 'install-info - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (info (string-append out "/share/info"))) - (install-file "docs/_build/texinfo/agel.info" info))))))) + (list + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'substitute-ag-path + (lambda* (#:key inputs #:allow-other-keys) + (make-file-writable "ag.el") + (emacs-substitute-variables "ag.el" + ("ag-executable" (search-input-file inputs "/bin/ag"))))) + (add-before 'install 'make-info + (lambda _ + (with-directory-excursion "docs" + (invoke "make" "info")))) + (add-after 'install 'install-info + (lambda _ + (install-file "docs/_build/texinfo/agel.info" + (string-append #$output "/share/info"))))))) + (inputs (list the-silver-searcher)) ; 'ag' executable (native-inputs (list python-sphinx texinfo)) (propagated-inputs - (list emacs-dash - emacs-s - the-silver-searcher)) ;'ag' executable + (list emacs-dash emacs-s)) (home-page "https://github.com/Wilfred/ag.el") (synopsis "Front-end for ag (the-silver-searcher) for Emacs") (description "This package provides the ability to use the silver @@ -3085,7 +3087,7 @@ while paused.") (package (name "emacs-async") (home-page "https://github.com/jwiegley/emacs-async") - (version "1.9.6") + (version "1.9.7") (source (origin (method git-fetch) (uri (git-reference @@ -3094,7 +3096,7 @@ while paused.") (file-name (git-file-name name version)) (sha256 (base32 - "1q480ss2jgijdpy6pa4xrjni9pf5q6dwf8hv052fhdpi55bmfdn2")))) + "18pysi1pf6hbv6w0nq50j5xclvgd006iqqijh44wck9hxhdwyfr1")))) (build-system emacs-build-system) (synopsis "Asynchronous processing in Emacs") (description @@ -4185,20 +4187,20 @@ type, for example: packages, buffers, files, etc.") (license license:gpl3+))) (define-public emacs-guix - (let ((commit "c9aef52121b458297e70bb50f49f7276b4a8d759") - (revision "5")) + (let ((commit "cf5b7a402ea503c3dcda85a86b9a6c6dd01896e0") + (revision "6")) (package (name "emacs-guix") (version (git-version "0.5.2" revision commit)) (source (origin (method git-fetch) (uri (git-reference - (url "https://gitlab.com/emacs-guix/emacs-guix.git") + (url "https://git.savannah.gnu.org/git/guix/emacs-guix.git") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 - "00xdxadbi9fxpfp60zah9190rcz3w08vl1blbhmaiy7c1hd2gi39")))) + "0wxiipgv91rlk9bhspx370rykywi52rxg5m1f7680vzs3ckc7nyd")))) (build-system gnu-build-system) (arguments (list @@ -4220,9 +4222,8 @@ type, for example: packages, buffers, files, etc.") (native-inputs (list autoconf automake emacs-minimal pkg-config texinfo)) (inputs - `(("guile" - ,@(assoc-ref (package-native-inputs guix) "guile")) - ("guix" ,guix))) + (list (lookup-package-input guix "guile") + guix)) (propagated-inputs (list emacs-bui emacs-dash @@ -4231,7 +4232,7 @@ type, for example: packages, buffers, files, etc.") emacs-geiser-guile emacs-magit-popup guile-gcrypt)) - (home-page "https://emacs-guix.gitlab.io/website/") + (home-page "https://guix.gnu.org") (synopsis "Emacs interface for GNU Guix") (description "Emacs-Guix provides a visual interface, tools and features for the GNU @@ -7102,14 +7103,14 @@ by a query, so both a link can refer to several mails.") (define-public emacs-debbugs (package (name "emacs-debbugs") - (version "0.33") + (version "0.34") (source (origin (method url-fetch) (uri (string-append "https://elpa.gnu.org/packages/debbugs-" version ".tar")) (sha256 - (base32 "1s4p3jf9yrm8pn5pljpkrw05n2p9v6fpl141rh1df7f7l0w80qbk")))) + (base32 "06nxia4myhysiw12vsflgllrp9nyhmjnybrrcl1vyf4pw0fc6yrx")))) (build-system emacs-build-system) (arguments '(#:include '("\\.el$" "\\.wsdl$" "\\.info$"))) (propagated-inputs @@ -8238,7 +8239,7 @@ for compilation, debugging, documentation lookup, and so on.") (define-public emacs-popup (package (name "emacs-popup") - (version "0.5.8") + (version "0.5.9") (source (origin (method git-fetch) @@ -8247,7 +8248,7 @@ for compilation, debugging, documentation lookup, and so on.") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "0qrsz4z9q2bfq9xv4n94mvyslm232v2ql9r1fjycx7rnmpqggiwl")))) + (base32 "13ww7hld5pa32myj9krr6prmc99s7hnpsw8mw9krpxffykkblj2f")))) (build-system emacs-build-system) (home-page "https://github.com/auto-complete/popup-el") (synopsis "Visual Popup User Interface for Emacs") @@ -8455,6 +8456,91 @@ the locations of docstrings, arguments, and functions.") "This package provides a Company backend for Python.") (license license:gpl3+))) +(define-public emacs-elquery + (package + (name "emacs-elquery") + (version "1.1.0") + (source + (origin + (method git-fetch) + (uri + (git-reference + (url "https://github.com/AdamNiederer/elquery") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 "035zjzmd7yfw0rsjpaklc2wwiqw6brkjadch9x8n8n2gjyxg05mn")))) + (build-system emacs-build-system) + (arguments + (list + #:emacs emacs-no-x + #:tests? #t + #:test-command #~(list "ert-runner") + #:phases #~(modify-phases %standard-phases + (add-after 'unpack 'fix-native-compilation + (lambda _ + (substitute* "elquery.el" + (("\\(1- \\(/ length \\(match-data\\)\\) 2\\)") + "(1- (/ (length (match-data)) 2))")))) + (add-before 'check 'disable-failing-tests + (lambda _ + (substitute* "test/elquery-test.el" + (("\\(ert-deftest elquery--write-test .*" all) + (string-append all "(skip-unless nil)\n")))))))) + (native-inputs + (list emacs-ert-runner emacs-undercover)) + (propagated-inputs + (list emacs-dash)) + (home-page "https://github.com/AdamNiederer/elquery/") + (synopsis "Read and manipulate HTML in Emacs") + (description + "Elquery is a library that lets you parse, query, set, and format HTML using +Emacs Lisp. It implements most of the @code{querySelector} API, and can get +and set HTML attributes.") + (license license:gpl3+))) + +(define-public emacs-cov + ;; XXX: Upstream made no release nor any tag so far. + (let ((commit "cd3e1995c596cc227124db9537792d8329ffb696") + (revision "0")) + (package + (name "emacs-cov") + (version (git-version "0.1.0" revision commit)) + (source + (origin + (method git-fetch) + (uri + (git-reference + (url "https://github.com/AdamNiederer/cov") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "1gyc0si60czhgrkm7kink1p1zj1h5j5nzif4ivm5bg78l28skmpm")))) + (build-system emacs-build-system) + (arguments + (list + #:emacs emacs-no-x ;for libxml + #:tests? #t + #:test-command #~(list "ert-runner") + #:phases + #~(modify-phases %standard-phases + (add-before 'check 'disable-failing-tests + (lambda _ + (substitute* "test/cov-test.el" + (("\\(ert-deftest cov--load-coverage-test-mtime-check .*" all) + (string-append all "(skip-unless nil)\n")))))))) + (native-inputs + (list emacs-ert-runner emacs-mocker emacs-undercover)) + (propagated-inputs + (list emacs-elquery emacs-f emacs-s)) + (home-page "https://github.com/AdamNiederer/cov/") + (synopsis "Emacs extension for displaying coverage data") + (description + "Cov shows code coverage data for your program in Emacs. It supports +currently @code{gcov}, @code{lcov}, @code{coverage.py}, and @code{clover} +output, as well as the Coveralls format produced by Undercover.") + (license license:gpl3+)))) + (define-public emacs-puppet-mode (package (name "emacs-puppet-mode") @@ -8511,6 +8597,29 @@ linting of manifests and integration with Puppet Debugger.") (description "This package provides an Emacs major mode for writing Purescript.") (license license:gpl3+)))) +(define-public emacs-new-purescript-mode + (let ((commit "9f7bb73e26340fcd2ea1946dbad165f0406eb3e1") + (revision "0")) + (package + (name "emacs-new-purescript-mode") + (version (git-version "0.0.1" revision commit)) + (source + (origin + (method git-fetch) + (uri + (git-reference + (url "https://github.com/justinwoo/new-purescript-mode") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0b3499df0gfz8yrdxz9dpgwal21h50sciigwz25ri1hwv1c1i7k0")))) + (build-system emacs-build-system) + (home-page "https://github.com/justinwoo/new-purescript-mode/") + (synopsis "Simple PureScript mode for cheap syntax highlighting") + (description "New PureScript mode is a simple PureScript Emacs mode that +just provides syntax highlighting.") + (license license:expat)))) + (define-public emacs-god-mode (package (name "emacs-god-mode") @@ -8754,7 +8863,7 @@ cards created in Org mode.") (define-public emacs-org-mime (package (name "emacs-org-mime") - (version "0.3.1") + (version "0.3.2") (source (origin (method git-fetch) @@ -8763,7 +8872,7 @@ cards created in Org mode.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "17380kpf08j5ai30nn5iks0k3x8sm3kmz8lkyr1v0qvpr5a8s70b")))) + (base32 "1w5z9irzk918mj75z5m0j2h8mms8v27x50kp7r3b01wblf0jd2zc")))) (build-system emacs-build-system) (home-page "https://github.com/org-mime/org-mime") (synopsis "Send HTML email using Org mode HTML export") @@ -10437,11 +10546,12 @@ matched.") "18crb4zh2pjf0cmv3b913m9vfng27girjwfqc3mk7vqd1r5a49yk")))) (build-system emacs-build-system) (propagated-inputs - (list emacs-ivy emacs-password-store password-store)) + (list emacs-ivy emacs-password-store)) (home-page "https://github.com/ecraven/ivy-pass") - (synopsis "Ivy interface for password store (pass)") - (description "This package provides an Ivy interface for working with -the password store @code{pass}.") + (synopsis "Ivy interface to the @code{pass} password store") + (description + "This package provides an Ivy interface for working with the password +store (@code{pass}) in Emacs.") (license license:gpl3)))) (define-public emacs-ivy-yasnippet @@ -12443,7 +12553,7 @@ ack, ag, helm and pt.") (define-public emacs-helm (package (name "emacs-helm") - (version "3.8.7") + (version "3.8.8") (source (origin (method git-fetch) @@ -12452,7 +12562,7 @@ ack, ag, helm and pt.") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "1a8zkp00ahb84ww5072naxwllzbjhi7ccarkk2d7xsykn5lig54c")))) + (base32 "1i8hbdp5sg99h3imqydk4wd7mqsa04113yavk5sx1wgc17jm1l42")))) (build-system emacs-build-system) (propagated-inputs (list emacs-async emacs-popup)) @@ -15762,14 +15872,14 @@ the center of the screen and not at the bottom.") (define-public emacs-posframe (package (name "emacs-posframe") - (version "1.1.7") + (version "1.1.8") (source (origin (method url-fetch) (uri (string-append "https://elpa.gnu.org/packages/" "posframe-" version ".tar")) (sha256 - (base32 "13i2wxx079gfq0vbq0iwmsig5b7x4aspd1q02yqc79846f1dsx4w")))) + (base32 "0560f05c2rh6jkdba4yq9qbazfz6qbdrymqm5zcihvz7cy019dzm")))) (build-system emacs-build-system) ;; emacs-minimal does not include the function font-info. (arguments @@ -16321,15 +16431,25 @@ Emacs.") (define-public emacs-eglot (package (name "emacs-eglot") - (version "1.8") + (version "1.9") (source (origin - (method url-fetch) - (uri (string-append "https://elpa.gnu.org/packages/" - "eglot-" version ".tar")) + (method git-fetch) + (uri (git-reference + (url "https://github.com/joaotavora/eglot") + (commit version))) + (file-name (git-file-name name version)) (sha256 - (base32 "1n04jnf3wwpxafrzfd02l53wf90brjc8p835f84k0n0rjxin99k5")))) + (base32 + "1mx2b7ljwvmfl5d0w9m7i1i900198lsdx1cpi8n7wq58h5df88p9")))) (build-system emacs-build-system) + (arguments + (list + #:tests? #t + #:test-command #~(list "emacs" "--batch" + "-l" "eglot.el" + "-l" "eglot-tests.el" + "-f" "ert-run-tests-batch-and-exit"))) (propagated-inputs (list emacs-eldoc emacs-jsonrpc emacs-project)) (home-page "https://github.com/joaotavora/eglot") @@ -17018,7 +17138,7 @@ which avoids some of the issues with using Emacs’s built-in Url library.") (define-public emacs-ement (package (name "emacs-ement") - (version "0.2.1") + (version "0.3.1") (source (origin (method git-fetch) @@ -17027,7 +17147,7 @@ which avoids some of the issues with using Emacs’s built-in Url library.") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "0kfh0vlsz4qnx4vwkwhkxawk5cpxgnvkar72wha9cxj8s6j51vx0")))) + (base32 "1ap4zxn2ba8bvmzm77aa4bnxgb1hnz5cymcim9jzy7b67bgapmy7")))) (build-system emacs-build-system) (arguments `(#:emacs ,emacs)) ;need libxml support @@ -17087,7 +17207,7 @@ editing RPM spec files.") (define-public emacs-lcr (package (name "emacs-lcr") - (version "1.1") + (version "1.3") (source (origin (method git-fetch) @@ -17096,7 +17216,7 @@ editing RPM spec files.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "0mc55icihxqpf8b05990q1lc2nj2792wcgyr73xsiqx0963sjaj8")))) + (base32 "1xhrjvlx3vbjkwx31w18y854hk15qf7h5ccg8yb3jdxl0pm9f41f")))) (build-system emacs-build-system) (propagated-inputs (list emacs-dash)) @@ -17505,7 +17625,7 @@ groups.") (define-public emacs-taxy-magit-section (package (name "emacs-taxy-magit-section") - (version "0.10") + (version "0.11") (source (origin (method url-fetch) (uri (string-append @@ -17513,7 +17633,7 @@ groups.") ".tar")) (sha256 (base32 - "1g58nvpb04ldhn5qnjw2q5idrv6vhlfa0qmb46cvis6bkz46cxkw")))) + "058z95c0z2hxplr5pfgph1cdq68zcrkmwx1wqyd5fy4a5h43yknq")))) (build-system emacs-build-system) (propagated-inputs (list emacs-magit emacs-taxy)) (home-page "https://github.com/alphapapa/taxy.el") @@ -18357,7 +18477,7 @@ from @code{groovy-mode} for editing Jenkins declarative pipeline files.") (origin (method git-fetch) (uri (git-reference - (url "https://github.com/ieure/scratch-el") + (url "https://codeberg.org/emacs-weirdware/scratch") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 @@ -18376,7 +18496,7 @@ from @code{groovy-mode} for editing Jenkins declarative pipeline files.") (string-append (assoc-ref outputs "out") "/share/info")) #t))))) - (home-page "https://github.com/ieure/scratch-el/") + (home-page "https://codeberg.org/emacs-weirdware/scratch") (synopsis "Create scratch buffers with the same mode as current buffer") (description "Scratch is an extension to Emacs that enables one to create scratch buffers that are in the same mode as the current buffer. This is @@ -18446,7 +18566,7 @@ the format.") (define-public emacs-nov-el (package (name "emacs-nov-el") - (version "0.3.4") + (version "0.4.0") (source (origin (method git-fetch) @@ -18456,18 +18576,18 @@ the format.") (file-name (git-file-name name version)) (sha256 (base32 - "0va9xjrq30cv5kb59a4rq5mcm83ggnv774r8spmskff3hj8012wf")))) + "10507fdfx02wb3j7g34w4ii8rgnjbmriq63ir6x1agf38s3i9p52")))) (build-system emacs-build-system) (arguments - `(#:emacs ,emacs ;need libxml - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'embed-path-to-unzip - (lambda _ - (substitute* "nov.el" - (("\\(executable-find \"unzip\"\\)") - (string-append "\"" (which "unzip") "\""))) - #t))))) + (list + #:emacs emacs ;need libxml + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'embed-path-to-unzip + (lambda _ + (substitute* "nov.el" + (("\\(executable-find \"unzip\"\\)") + (string-append "\"" (which "unzip") "\"")))))))) (propagated-inputs (list emacs-dash emacs-esxml)) (inputs @@ -18808,30 +18928,37 @@ close, copy, cut, paste, undo, redo.") (uri (git-reference (url "git://git.zx2c4.com/password-store") (commit commit))) + (file-name (git-file-name name version)) (sha256 (base32 - "0ni62f4pq96g0i0q66bch1dl9k4zqwhg7xaf746k3gbbqxcdh3vi")) - (file-name (git-file-name name version)))) + "0ni62f4pq96g0i0q66bch1dl9k4zqwhg7xaf746k3gbbqxcdh3vi")))) (build-system emacs-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'extract-el-file - (lambda _ - (copy-file "contrib/emacs/password-store.el" "password-store.el") - (delete-file-recursively "contrib") - (delete-file-recursively "man") - (delete-file-recursively "src") - (delete-file-recursively "tests")))))) + (list #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'extract-el-file + (lambda _ + (copy-file "contrib/emacs/password-store.el" + "password-store.el") + (delete-file-recursively "contrib") + (delete-file-recursively "man") + (delete-file-recursively "src") + (delete-file-recursively "tests"))) + (add-after 'extract-el-file 'patch-executables + (lambda* (#:key inputs #:allow-other-keys) + (emacs-substitute-variables "password-store.el" + ("password-store-executable" + (search-input-file inputs "/bin/pass")))))))) + (inputs + (list password-store)) (propagated-inputs - (list emacs-auth-source-pass emacs-s emacs-with-editor - password-store)) + (list emacs-auth-source-pass emacs-s emacs-with-editor)) (home-page "https://git.zx2c4.com/password-store/tree/contrib/emacs") (synopsis "Password store (pass) support for Emacs") (description "This package provides functions for working with pass (\"the standard Unix password manager\").") - (license license:gpl2+)))) + (license license:gpl3+)))) (define-public emacs-password-store-otp (package @@ -18971,24 +19098,27 @@ match and total match information in the mode-line in various search modes.") (license license:gpl3+))) (define-public emacs-pg - (let ((commit "4f6516ec3946d95dcef49abb6703cc89ecb5183d")) - (package - (name "emacs-pg") - (version (git-version "0.1" "1" commit)) - (source (origin - (method git-fetch) - (uri (git-reference (url "https://github.com/cbbrowne/pg.el") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "1zh7v4nnpzvbi8yj1ynlqlawk5bmlxi6s80b5f2y7hkdqb5q26k0")))) - (build-system emacs-build-system) - (home-page "https://github.com/cbbrowne/pg.el") - (synopsis "Emacs Lisp interface for PostgreSQL") - (description - "This package provides an Emacs Lisp interface for PostgreSQL.") - (license license:gpl3+)))) + (package + (name "emacs-pg") + (version "0.16") + (source (origin + (method git-fetch) + (uri (git-reference (url "https://github.com/emarsden/pg-el") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1jdnslpgdm16klaga02p33g7c8bjzg164kxz3jd7gs5v9gqa6ppz")))) + (build-system emacs-build-system) + (home-page "https://github.com/emarsden/pg-el") + (synopsis "Emacs Lisp interface for PostgreSQL") + (description + "This module lets you access the PostgreSQL object-relational DBMS from +Emacs, using its socket-level frontend/backend protocol. The module is +capable of automatic type coercions from a range of SQL types to the +equivalent Emacs Lisp type. This is a low level API, and won't be useful to +end users.") + (license license:gpl2+))) (define-public emacs-finalize (package @@ -19526,6 +19656,35 @@ tables of contents.") timestamps by providing a @code{ts} struct.") (license license:gpl3+))) +(define-public emacs-circadian + (package + (name "emacs-circadian") + (version "0.3.2") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/guidoschmidt/circadian.el") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0wpsykmai3idz0bgfl07hwl9nr4x9sgprvqgw8jln4dz2wf5gdic")))) + (arguments + (list + #:tests? #t + #:test-command #~(list "ert-runner"))) + (build-system emacs-build-system) + (native-inputs + (list emacs-el-mock emacs-ert-runner)) + (home-page "https://github.com/guidoschmidt/circadian.el") + (synopsis "Theme-switching for Emacs based on daytime") + (description "Circadian may reduce eye strain by automatically switching +between light and dark themes based on daytime. It is inspired by color +temperature shifting tools and brightness adaption software.") + ;; The LICENSE file is expat, but the sole ".el" file is explicitly GPL3+. + (license (list license:gpl3+ + license:expat)))) + (define-public emacs-peg (package (name "emacs-peg") @@ -21236,7 +21395,7 @@ powerful Org contents.") (define-public emacs-org-re-reveal (package (name "emacs-org-re-reveal") - (version "3.15.0") + (version "3.16.1") (source (origin (method git-fetch) @@ -21245,7 +21404,7 @@ powerful Org contents.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "0mn7qn80289gizvnxyjjs00b7qmlf0692kai7qgzgfj6i87pjc38")))) + (base32 "1jzr7xlzinhfb0197anbkrr5zrs13f7kyznr5q3zyxdndhg6a53n")))) (build-system emacs-build-system) (propagated-inputs (list emacs-htmlize emacs-org)) @@ -26065,8 +26224,8 @@ the standard @code{Dockerfile} file format.") (license license:asl2.0))) (define-public emacs-lsp-mode - (let ((commit "4aafe25e03ab7470b8d3c1cb326affa3c5e9930e") - (revision "0")) + (let ((commit "26c4d3e54ad2956623e64132312fe864274d346f") + (revision "1")) (package (name "emacs-lsp-mode") (version (git-version "8.0.1" revision commit)) @@ -26078,7 +26237,7 @@ the standard @code{Dockerfile} file format.") (commit commit))) (file-name (git-file-name name version)) (sha256 - (base32 "01csz4vr3fg1q2py45mxj5j8bkvckn3daam1jafb2gg9gjc9bp7z")))) + (base32 "0klnik69b5y6s2q00vyshxymlg7k4x9x6m7wpsf7z9w12qn27alx")))) (build-system emacs-build-system) (arguments `(#:emacs ,emacs ;need libxml support @@ -27905,14 +28064,14 @@ well as an option for visually flashing evaluated s-expressions.") (define-public emacs-tramp (package (name "emacs-tramp") - (version "2.5.3.2") + (version "2.5.3.3") (source (origin (method url-fetch) (uri (string-append "https://elpa.gnu.org/packages/" "tramp-" version ".tar")) (sha256 - (base32 "1jcicb9f7c1nmaqg20yy2j4wd0qfch4llc26ga7q3ckhx41pvbiw")))) + (base32 "05w04qwk1lk50fzwl6fxyf6pb1jd2lx4as99zm1dpa858jab6w4a")))) (build-system emacs-build-system) (arguments (list @@ -29254,36 +29413,39 @@ Emacs that integrate with major modes like Org-mode.") (license license:expat))) (define-public emacs-modus-themes - (package - (name "emacs-modus-themes") - (version "2.6.0") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://git.sr.ht/~protesilaos/modus-themes") - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 "1zl1gd3jlkanjmlsxmwhqaiwyblp6kzznfjnw9cq8ah2390y9n1c")))) - (native-inputs (list texinfo)) - (build-system emacs-build-system) - (arguments - (list - #:phases - #~(modify-phases %standard-phases - (add-after 'install 'makeinfo - (lambda _ - (invoke "emacs" - "--batch" - "--eval=(require 'ox-texinfo)" - "--eval=(find-file \"doc/modus-themes.org\")" - "--eval=(org-texinfo-export-to-info)") - (install-file "doc/modus-themes.info" (string-append #$output "/share/info"))))))) - (home-page "https://protesilaos.com/modus-themes/") - (synopsis "Accessible themes (WCAG AAA)") - (description - "The Modus themes are designed for accessible readability. They conform + ;; XXX: Upstream did not tag latest version bump, so we use the commit + ;; matching that bump. + (let ((commit "0b42e595fb8c1753039277ab0b068d0f4f107edf")) + (package + (name "emacs-modus-themes") + (version "2.7.1") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://git.sr.ht/~protesilaos/modus-themes") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0iy1psfkhqf9a47pabl1w108niw2d4xnfvlcql2j58qlv5k9h1z7")))) + (native-inputs (list texinfo)) + (build-system emacs-build-system) + (arguments + (list + #:phases + #~(modify-phases %standard-phases + (add-after 'install 'makeinfo + (lambda _ + (invoke "emacs" + "--batch" + "--eval=(require 'ox-texinfo)" + "--eval=(find-file \"doc/modus-themes.org\")" + "--eval=(org-texinfo-export-to-info)") + (install-file "doc/modus-themes.info" (string-append #$output "/share/info"))))))) + (home-page "https://protesilaos.com/modus-themes/") + (synopsis "Accessible themes (WCAG AAA)") + (description + "The Modus themes are designed for accessible readability. They conform with the highest standard for color contrast between any given combination of background and foreground values. This corresponds to the WCAG AAA standard, which specifies a minimum rate of distance in relative luminance of 7:1. @@ -29292,8 +29454,8 @@ Modus Operandi (modus-operandi) is a light theme, while Modus Vivendi (modus-vivendi) is dark. Each theme’s color palette is designed to meet the needs of the numerous interfaces that are possible in the Emacs computing environment.") - (license (list license:gpl3+ - license:fdl1.3+)))) ; GFDLv1.3+ for the manual + (license (list license:gpl3+ + license:fdl1.3+))))) ; GFDLv1.3+ for the manual (define-public emacs-punpun-theme (let ((commit "7026684cd568cb691af3ced5de14c375fe6f5a1a") @@ -29685,7 +29847,7 @@ other @code{helm-type-file} sources such as @code{helm-locate}.") (lambda _ (chdir "..")))) #:test-target "test")) (inputs - (list tdlib libappindicator)) + (list tdlib-1.8.0 libappindicator)) (native-inputs (list python pkg-config)) (home-page "https://zevlg.github.io/telega.el/") diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm index 85912caf7f..38795b703c 100644 --- a/gnu/packages/emulators.scm +++ b/gnu/packages/emulators.scm @@ -773,7 +773,7 @@ and Game Boy Color games.") (define-public sameboy (package (name "sameboy") - (version "0.15.5") + (version "0.15.6") (source (origin (method git-fetch) @@ -782,7 +782,7 @@ and Game Boy Color games.") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "0ly9x6cch0wdcnsp0qmrdl6r2h8805jp8hwji3fwswj8rlhxkpa7")))) + (base32 "0a2fcsnv7ykj4kk2vpq9jjn8yjrx34n5s186rqvgj3dzm8w6xijs")))) (build-system gnu-build-system) (native-inputs (list rgbds pkg-config)) diff --git a/gnu/packages/file-systems.scm b/gnu/packages/file-systems.scm index d326b9cc3d..7a372ce982 100644 --- a/gnu/packages/file-systems.scm +++ b/gnu/packages/file-systems.scm @@ -1192,7 +1192,7 @@ with the included @command{xfstests-check} helper.") (define-public zfs (package (name "zfs") - (version "2.1.5") + (version "2.1.6") (outputs '("out" "module" "src")) (source (origin @@ -1201,7 +1201,7 @@ with the included @command{xfstests-check} helper.") "/download/zfs-" version "/zfs-" version ".tar.gz")) (sha256 - (base32 "0371j5k28cymqngfl76dfxzggvdf8n0ssij37350gzs4bhg084qr")))) + (base32 "0ymxkms1gwf731x61sj54rnnp029724zhywkxd4164yjz0a90cqm")))) (build-system linux-module-build-system) (arguments (list @@ -1457,7 +1457,13 @@ On Guix System, you will need to invoke the included shell scripts as "mount")))) (substitute* '("libfuse/util/mount.mergerfs.c") (("/bin/sh" command) - (string-append (assoc-ref inputs "bash-minimal") command)))))))) + (string-append (assoc-ref inputs "bash-minimal") command)) + ;; mount.mergerfs tries to execute `mergerfs`, which cannot be found + ;; without an absolute path. Hard-coding the path is fine, since we don’t + ;; link mount.mergerfs to mount.fuse anyway. + (("add_arg\\(&command, type\\);") + (string-append "add_arg(&command, \"" (assoc-ref outputs "out") + "/bin/mergerfs\");")))))))) ;; Mergerfs bundles a heavily modified copy of fuse. (inputs (list bash-minimal util-linux)) diff --git a/gnu/packages/finance.scm b/gnu/packages/finance.scm index 9739c5acd5..ac19851a85 100644 --- a/gnu/packages/finance.scm +++ b/gnu/packages/finance.scm @@ -707,7 +707,7 @@ blockchain.") ;; the system's dynamically linked library. (package (name "monero") - (version "0.18.1.1") + (version "0.18.1.2") (source (origin (method git-fetch) @@ -725,7 +725,7 @@ blockchain.") delete-file-recursively '("external/miniupnp" "external/rapidjson")))) (sha256 - (base32 "050rf4c1i42d0vhcb3hqrrndr2l45w1qg4h62cagk0nmq5va6xj7")))) + (base32 "033hfc98gv28x05gc1ln6dmyc45cki4qdylmz35wh4dchyr74pf9")))) (build-system cmake-build-system) (native-inputs (list doxygen @@ -812,7 +812,7 @@ the Monero command line client and daemon.") (define-public monero-gui (package (name "monero-gui") - (version "0.18.1.1") + (version "0.18.1.2") (source (origin (method git-fetch) @@ -828,7 +828,7 @@ the Monero command line client and daemon.") ;; See the 'extract-monero-sources' phase. (delete-file-recursively "monero"))) (sha256 - (base32 "0zh0sf7acr1a4s5kmp9fpjd2wr78qv74z1xhkwrkkn9ainp4qfaz")))) + (base32 "1lwlkqj8liflk0jfzmlclm1xca0x3z8v3kcbzd671rgismm8v332")))) (build-system qt-build-system) (native-inputs `(,@(package-native-inputs monero) diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm index 8e829c6c17..2d653abf32 100644 --- a/gnu/packages/fonts.scm +++ b/gnu/packages/fonts.scm @@ -918,6 +918,50 @@ all languages with a consistent look and aesthetic. Its goal is to properly display all Unicode symbols.") (license license:silofl1.1))) +(define-public font-google-noto-sans-cjk + (package + (name "font-google-noto-sans-cjk") + (version "2.004") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/googlefonts/noto-cjk/releases/download/Sans" + version "/03_NotoSansCJK-OTC.zip")) + (file-name (string-append name "-" version ".zip")) + (sha256 + (base32 "1v9yda7r98g4a3pk0y3cjbgc1i2lv4ax0f0v6aqasfzz4ldlx3sj")))) + (build-system font-build-system) + (home-page "https://www.google.com/get/noto/") + (synopsis "Fonts to cover all languages") + (description "Google Noto Fonts is a family of fonts designed to support +all languages with a consistent look and aesthetic. Its goal is to properly +display all Unicode symbols. This package provides the Sans Serif variant of +CJK fonts.") + (license license:silofl1.1))) + +(define-public font-google-noto-serif-cjk + (package + (name "font-google-noto-serif-cjk") + (version "2.001") + (source + (origin + (method url-fetch) + (uri (string-append + "https://github.com/googlefonts/noto-cjk/releases/download/Serif" + version "/04_NotoSerifCJKOTC.zip")) + (file-name (string-append name "-" version ".zip")) + (sha256 + (base32 "1l6r3sz2s0vcyfx6ria7wqcq45zp40gxgg97lh8hpmajhzw301ig")))) + (build-system font-build-system) + (home-page "https://www.google.com/get/noto/") + (synopsis "Fonts to cover all languages") + (description "Google Noto Fonts is a family of fonts designed to support +all languages with a consistent look and aesthetic. Its goal is to properly +display all Unicode symbols. This package provides the Serif variant of CJK +fonts.") + (license license:silofl1.1))) + (define-public font-google-roboto (package (name "font-google-roboto") @@ -2708,6 +2752,27 @@ This package contains the following outputs: ") (license license:gpl2))) +(define-public font-arphic-ukai + (package + (name "font-arphic-ukai") + (version "0.2.20080216.2") + (source (origin + (method url-fetch) + (uri (string-append "http://deb.debian.org/debian/pool/main" + "/f/fonts-arphic-ukai/fonts-arphic-ukai_" + version ".orig.tar.bz2")) + (sha256 + (base32 + "1lp3i9m6x5wrqjkh1a8vpyhmsrhvsa2znj2mx13qfkwza5rqv5ml")))) + (build-system font-build-system) + (home-page "https://www.freedesktop.org/wiki/Software/CJKUnifonts/") + (synopsis "Truetype fonts for Taiwanese and Hakka") + (description + "This package provides a set of Truetype fonts, which contain all +characters necessary to display Taiwanese and Hakka.") + (license (license:fsdg-compatible + "https://www.freedesktop.org/wiki/Arphic_Public_License/")))) + (define-public font-atui-feather (let ((version "0") (commit "c51fe7cedbcf2cbf4f1b993cef5d8def612dec1d") diff --git a/gnu/packages/fpga.scm b/gnu/packages/fpga.scm index 11c56477a8..082b0c08ed 100644 --- a/gnu/packages/fpga.scm +++ b/gnu/packages/fpga.scm @@ -6,6 +6,7 @@ ;;; Copyright © 2020 Vinicius Monego <monego@posteo.net> ;;; Copyright © 2021 Andrew Miloradovsky <andrew@interpretmath.pw> ;;; Copyright © 2022 Christian Gelinek <cgelinek@radlogic.com.au> +;;; Copyright © 2022 jgart <jgart@dismail.de> ;;; ;;; This file is part of GNU Guix. ;;; @@ -24,6 +25,7 @@ (define-module (gnu packages fpga) #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix gexp) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix git-download) @@ -352,7 +354,7 @@ FOSS FPGA place and route tool.") (define-public gtkwave (package (name "gtkwave") - (version "3.3.111") + (version "3.3.113") (source (origin (method url-fetch) @@ -362,23 +364,20 @@ FOSS FPGA place and route tool.") (string-append "http://gtkwave.sourceforge.net/" "gtkwave-" version ".tar.gz"))) (sha256 - (base32 "15n2gv2hd7h23cci95ij7yr71fkxppb209sfdsmmngh3fik09rpn")))) + (base32 "1zqkfchmns5x90qxa8kg39bfhax3vxf1mrdz3lhyb9fz1gp4difn")))) (build-system gnu-build-system) (native-inputs (list gperf pkg-config)) (inputs - `(("tcl" ,tcl) - ("tk" ,tk) - ("gtk+-2" ,gtk+-2))) + (list tcl tk gtk+-2)) (arguments - `(#:configure-flags - (list (string-append "--with-tcl=" - (assoc-ref %build-inputs "tcl") - "/lib") - (string-append "--with-tk=" - (assoc-ref %build-inputs "tk") - "/lib")))) - + (list #:configure-flags + #~(list (string-append "--with-tcl=" + (assoc-ref %build-inputs "tcl") + "/lib") + (string-append "--with-tk=" + (assoc-ref %build-inputs "tk") + "/lib")))) (synopsis "Waveform viewer for FPGA simulator trace files") (description "This package is a waveform viewer for FPGA simulator trace files (@dfn{FST}).") diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm index 97d8bc3dbc..07ccf9f8f2 100644 --- a/gnu/packages/freedesktop.scm +++ b/gnu/packages/freedesktop.scm @@ -3,7 +3,7 @@ ;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com> ;;; Copyright © 2015, 2017 Andy Wingo <wingo@pobox.com> ;;; Copyright © 2015-2017, 2019, 2021-2022 Ludovic Courtès <ludo@gnu.org> -;;; Copyright © 2015, 2017, 2018, 2019, 2021 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2015, 2017, 2018, 2019, 2021, 2022 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com> ;;; Copyright © 2016, 2017, 2019, 2021, 2022 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net> @@ -1165,66 +1165,67 @@ protocol either in Wayland core, or some other protocol in wayland-protocols.") (define-public weston (package (name "weston") - (version "9.0.0") + (version "10.0.2") (source (origin (method url-fetch) (uri (string-append - "https://wayland.freedesktop.org/releases/" - "weston-" version ".tar.xz")) + "https://gitlab.freedesktop.org/wayland/weston/-/releases/" + version "/downloads/weston-" version ".tar.xz")) (sha256 (base32 - "1zlql0xgiqc3pvgbpnnvj4xvpd91pwva8qf83xfb23if377ddxaw")))) + "1rs92p7sfkw9lqlkfnqh5af19ym3x8l3hp3yfv117m7qv6h6qr49")))) (build-system meson-build-system) (native-inputs - (list mscgen pkg-config xorg-server)) + (list mscgen pkg-config python-3 xorg-server)) (inputs - `(("cairo" ,cairo-xcb) - ("colord" ,colord) - ("dbus" ,dbus) - ("elogind" ,elogind) - ("freerdp" ,freerdp) - ("glib" ,glib) - ("gstreamer" ,gstreamer) - ("gst-plugins-base" ,gst-plugins-base) - ("lcms" ,lcms) - ("libdrm" ,libdrm) - ("libevdev" ,libevdev) - ("libinput" ,libinput-minimal) - ("libjpeg" ,libjpeg-turbo) - ("libpng" ,libpng) - ("libunwind" ,libunwind) - ("libva" ,libva) - ("libwebp" ,libwebp) - ("libx11" ,libx11) - ("libxcb" ,libxcb) - ("libxcursor" ,libxcursor) - ("libxml2" ,libxml2) - ("mesa" ,mesa) - ("mtdev" ,mtdev) - ("linux-pam" ,linux-pam) - ("pango" ,pango) - ("pipewire" ,pipewire) - ("wayland-protocols" ,wayland-protocols) - ("xorg-server-xwayland" ,xorg-server-xwayland))) + (list cairo-xcb + colord + dbus + elogind + freerdp + glib + gstreamer + gst-plugins-base + lcms + libdrm + libevdev + libinput-minimal + libjpeg-turbo + libpng + libunwind + libva + libwebp + libx11 + libxcb + libxcursor + libxml2 + mesa + mtdev + linux-pam + pango + pipewire-0.3 + wayland-protocols-next + xorg-server-xwayland)) (propagated-inputs (list libxkbcommon pixman wayland)) (arguments - `(#:configure-flags - (list - ;; Otherwise, the RUNPATH will lack the final path component. - (string-append "-Dc_link_args=-Wl,-rpath=" - (assoc-ref %outputs "out") "/lib:" - (assoc-ref %outputs "out") "/lib/weston:" - (assoc-ref %outputs "out") "/lib/libweston-" - ,(version-major (package-version this-package))) - "-Dbackend-default=auto" - "-Dsystemd=false" - (string-append "-Dxwayland-path=" - (assoc-ref %build-inputs "xorg-server-xwayland") - "/bin/Xwayland")) - #:parallel-tests? #f ; Parallel tests cause failures. - #:phases - (modify-phases %standard-phases + (list + #:configure-flags + #~(list + ;; Otherwise, the RUNPATH will lack the final path component. + (string-append "-Dc_link_args=-Wl,-rpath=" + #$output "/lib:" + #$output "/lib/weston:" + #$output "/lib/libweston-" + #$(version-major (package-version this-package))) + "-Dbackend-default=auto" + "-Dsystemd=false" + (string-append "-Dxwayland-path=" + #$(this-package-input "xorg-server-xwayland") + "/bin/Xwayland")) + #:parallel-tests? #f ; Parallel tests cause failures. + #:phases + '(modify-phases %standard-phases (add-before 'configure 'use-elogind (lambda _ ;; Use elogind instead of systemd @@ -1233,23 +1234,19 @@ protocol either in Wayland core, or some other protocol in wayland-protocols.") (substitute* '("libweston/launcher-logind.c" "libweston/weston-launch.c") (("#include <systemd/sd-login.h>") - "#include <elogind/sd-login.h>")) - #t)) + "#include <elogind/sd-login.h>")))) (add-after 'configure 'patch-confdefs.h (lambda _ - (system "echo \"#define HAVE_SYSTEMD_LOGIN_209 1\" >> confdefs.h") - #t)) + (system "echo \"#define HAVE_SYSTEMD_LOGIN_209 1\" >> confdefs.h"))) (add-before 'check 'setup (lambda _ (setenv "HOME" (getcwd)) - (setenv "XDG_RUNTIME_DIR" (getcwd)) - #t)) + (setenv "XDG_RUNTIME_DIR" (getcwd)))) (add-before 'check 'start-xorg-server (lambda* (#:key inputs #:allow-other-keys) ;; The test suite requires a running X server. (system "Xvfb :1 &") - (setenv "DISPLAY" ":1") - #t))))) + (setenv "DISPLAY" ":1")))))) (home-page "https://wayland.freedesktop.org") (synopsis "Reference implementation of a Wayland compositor") (description "Weston is the reference implementation of a Wayland diff --git a/gnu/packages/game-development.scm b/gnu/packages/game-development.scm index 889b435cfb..513ed31bc0 100644 --- a/gnu/packages/game-development.scm +++ b/gnu/packages/game-development.scm @@ -1210,7 +1210,7 @@ to create fully featured games and multimedia programs in the python language.") (define-public python-pygame-sdl2 (let ((real-version "2.1.0") - (renpy-version "8.0.0")) + (renpy-version "8.0.3")) (package (inherit python-pygame) (name "python-pygame-sdl2") @@ -1220,7 +1220,7 @@ to create fully featured games and multimedia programs in the python language.") (method url-fetch) (uri (string-append "https://www.renpy.org/dl/" renpy-version "/pygame_sdl2-" version ".tar.gz")) - (sha256 (base32 "0majf64pdfba5byjlv41pgsdmwvy09hw3m7143jz3kc1wjd2gaw8")) + (sha256 (base32 "1nq78mybkvshshdjy5bly6nfq6dnwll648ng62fwmksxpni17486")) (modules '((guix build utils))) (snippet '(begin @@ -1261,13 +1261,13 @@ developed mainly for Ren'py.") (define-public python-renpy (package (name "python-renpy") - (version "8.0.0") + (version "8.0.3") (source (origin (method url-fetch) (uri (string-append "https://www.renpy.org/dl/" version "/renpy-" version "-source.tar.bz2")) - (sha256 (base32 "09z3r16j4cxddkb50ghmi4xp0s05s15q4pzdmfajy85ignwqhjdi")) + (sha256 (base32 "1b49y60pi6304fg06lw5gajzrgg9w80swpfkn6pw0lxbr6djgjgn")) (modules '((guix build utils))) (patches (search-patches diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index 5623bdde7d..75af645dac 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -1555,7 +1555,7 @@ Joy-Con controllers.") (define-public julius (package (name "julius") - (version "1.6.0") + (version "1.7.0") (source (origin (method git-fetch) @@ -1564,7 +1564,7 @@ Joy-Con controllers.") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "0nfdn8n6ywhm69ckz9a1chl5xxiqyaj3l337wadsbppnpscjihrc")) + (base32 "0w7kmgz9ya0ck9cxhsyralarg7y6ydx4plmh33r4mkxkamlr7493")) ;; Remove unused bundled libraries. (modules '((guix build utils))) (snippet @@ -1589,7 +1589,7 @@ does not include game data.") (package (inherit julius) (name "augustus") - (version "2.0.1") + (version "3.2.0") (source (origin (method git-fetch) @@ -1598,17 +1598,19 @@ does not include game data.") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "0czazw8mc3fbvdazs2nzvgxd1dpzjc8z5fwiv89vv4nd7laz3jkj")) + (base32 "0d1k5279imc17mk3lxn8amc4ljgcj4v6x6lj2w3bph1z0a7a4bim")) ;; Remove unused bundled libraries. (modules '((guix build utils))) (snippet '(begin (with-directory-excursion "ext" - (for-each delete-file-recursively '("dirent" "png" "SDL2" "zlib"))) - #t)))) + (for-each delete-file-recursively + '("dirent" "expat" "png" "SDL2" "zlib"))))))) (arguments ;; No tests. See https://github.com/Keriew/augustus/issues/82. `(#:tests? #f)) + (inputs (modify-inputs (package-inputs julius) + (prepend expat))) (home-page "https://github.com/Keriew/augustus") (synopsis "Re-implementation of Caesar III game engine with gameplay changes") (description @@ -6938,7 +6940,7 @@ at their peak of economic growth and military prowess. (define-public open-adventure (package (name "open-adventure") - (version "1.9") + (version "1.11") (source (origin (method git-fetch) @@ -6947,40 +6949,39 @@ at their peak of economic growth and military prowess. (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "123svzy7xczdklx6plbafp22yv9bcvwfibjk0jv2c9i22dfsr07f")))) + (base32 "1n0fzrdlbc6px88qr574ww2q85xk43bv09jpmsskzv1l2cncwm37")))) (build-system gnu-build-system) (arguments - `(#:make-flags (list "CC=gcc") - #:phases - (modify-phases %standard-phases - (delete 'configure) ;no configure script - (add-before 'build 'use-echo - (lambda _ - (substitute* "tests/Makefile" - (("/bin/echo") (which "echo"))) - #t)) - (add-after 'build 'build-manpage - (lambda _ - ;; This target is missing a dependency - (substitute* "Makefile" - ((".adoc.6:" line) - (string-append line " advent.adoc"))) - (invoke "make" ".adoc.6"))) - ;; There is no install target. - (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin")) - (man (string-append out "/share/man/man6"))) - (install-file "advent" bin) - (install-file "advent.6" man)) - #t))))) + (list + #:make-flags #~(list (string-append "CC=" #$(cc-for-target))) + #:parallel-tests? #f ;some tests fail non-deterministically + #:phases + #~(modify-phases %standard-phases + (delete 'configure) ;no configure script + (add-before 'build 'use-echo + (lambda _ + (substitute* (list "tests/Makefile" "tests/tapview") + (("/bin/echo") (which "echo"))))) + (add-after 'build 'build-manpage + (lambda _ + ;; This target is missing a dependency + (substitute* "Makefile" + ((".adoc.6:" line) + (string-append line " advent.adoc"))) + (invoke "make" ".adoc.6"))) + ;; There is no install target. + (replace 'install + (lambda _ + (let ((bin (string-append #$output "/bin")) + (man (string-append #$output "/share/man/man6"))) + (install-file "advent" bin) + (install-file "advent.6" man))))))) (native-inputs - `(("asciidoc" ,asciidoc) - ("libedit" ,libedit) - ("pkg-config" ,pkg-config) - ("python" ,python-wrapper) - ("python-pyyaml" ,python-pyyaml))) + (list asciidoc + libedit + pkg-config + python-pyyaml + python-wrapper)) (home-page "https://gitlab.com/esr/open-adventure") (synopsis "Colossal Cave Adventure") (description diff --git a/gnu/packages/gcc.scm b/gnu/packages/gcc.scm index bb8a922d53..30b2be1f5a 100644 --- a/gnu/packages/gcc.scm +++ b/gnu/packages/gcc.scm @@ -1242,7 +1242,6 @@ provides the GNU compiler for the Go programming language.")) (version "0.23") (source (origin (method url-fetch) - ;; Used to be at isl.gforge.inria.fr. (uri (list (string-append "mirror://sourceforge/libisl/isl-" version ".tar.bz2") (string-append %gcc-infrastructure diff --git a/gnu/packages/geo.scm b/gnu/packages/geo.scm index 43b37c8d7e..5e484c6e1c 100644 --- a/gnu/packages/geo.scm +++ b/gnu/packages/geo.scm @@ -255,7 +255,7 @@ topology functions.") (define-public gnome-maps (package (name "gnome-maps") - (version "43.rc") ;for libsoup 3 support + (version "43.0") ;for libsoup 3 support (source (origin (method url-fetch) (uri (string-append "mirror://gnome/sources/" name "/" @@ -263,27 +263,33 @@ topology functions.") name "-" version ".tar.xz")) (sha256 (base32 - "16a3j896fwxgnvrmx27jnrvhxzh3v22paaq87ad57yp8wkq946il")))) + "1r1l6ajs6zz316m8zac5r0l3qgdv616xh376bfn2fflcnz7wys08")))) (build-system meson-build-system) (arguments (list #:glib-or-gtk? #t + #:meson meson-0.63 #:phases #~(modify-phases %standard-phases - (add-after 'unpack 'skip-gtk-update-icon-cache - ;; Don't create 'icon-theme.cache'. + (add-after 'unpack 'skip-cache-and-database-updates (lambda _ - (substitute* "meson_post_install.py" - (("gtk-update-icon-cache") "true")))) - (add-after 'unpack 'patch-dbus-service - (lambda _ - (substitute* "data/org.gnome.Maps.service.in" - (("@pkgdatadir@/org.gnome.Maps") - (string-append #$output "/bin/gnome-maps"))))) + (substitute* "meson.build" + (("([a-z_]*): true" all option) + (cond ; cond rather than match saves an import + ((member option '("gtk_update_icon_cache" + "update_desktop_database")) + (string-append option ": false")) + (else all)))))) (add-after 'install 'wrap (lambda _ - (wrap-program (string-append #$output "/bin/gnome-maps") - `("GI_TYPELIB_PATH" ":" prefix (,(getenv "GI_TYPELIB_PATH"))))))))) + (let ((gi-typelib-path (getenv "GI_TYPELIB_PATH"))) + (substitute* (string-append #$output "/share/gnome-maps/" + "org.gnome.Maps") + (("imports\\.package\\.init" all) + (string-append "'" gi-typelib-path "'.split(':').forEach(" + "path => imports.gi.GIRepository.Repository." + "prepend_search_path(path));\n" + all))))))))) (native-inputs (list gettext-minimal `(,glib "bin") @@ -307,7 +313,7 @@ topology functions.") libhandy librsvg libsecret - libshumate + libshumate libsoup libxml2 pango-next ;TODO: remove when it's the default diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index 10c7f604df..0c9cf40c65 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -44,7 +44,7 @@ ;;; Copyright © 2019 David Wilson <david@daviwil.com> ;;; Copyright © 2019, 2020 Raghav Gururajan <raghavgururajan@disroot.org> ;;; Copyright © 2019, 2020 Jonathan Brielmaier <jonathan.brielmaier@web.de> -;;; Copyright © 2019, 2020, 2021 Liliana Marie Prikler <liliana.prikler@gmail.com> +;;; Copyright © 2019-2022 Liliana Marie Prikler <liliana.prikler@gmail.com> ;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2020 raingloom <raingloom@riseup.net> @@ -1763,7 +1763,11 @@ client devices can handle.") "0h095a26w3sgbspsf7wzz8ddg62j3jb9ckrrv41k7cdp0k2dkhsg")))) (build-system meson-build-system) (arguments - `(#:configure-flags (list "-Dlibnma_gtk4=true") + ;; GTK 4.x depends on Rust (indirectly) so pull it only on platforms + ;; where it is supported. + `(#:configure-flags ,(if (supported-package? gtk) + `(list "-Dlibnma_gtk4=true") + `(list "-Dlibnma_gtk4=false")) #:phases (modify-phases %standard-phases (add-after 'unpack 'patch-docbook-xml @@ -1782,7 +1786,7 @@ client devices can handle.") vala)) (inputs (list gcr - gtk + (if (supported-package? gtk) gtk gtk+) iso-codes mobile-broadband-provider-info network-manager)) @@ -3276,6 +3280,25 @@ the GNOME desktop environment.") (base32 "0hj7f4xhwjc4x32r3lswwclbw37fw3spy806g4plkmym25hz4ydy")))) (build-system meson-build-system) + (arguments + (list + #:imported-modules + `(,@%meson-build-system-modules + (guix build python-build-system)) + #:modules + `((guix build meson-build-system) + ((guix build python-build-system) #:prefix python:) + (guix build utils)) + #:phases + #~(modify-phases %standard-phases + (add-after 'wrap 'wrap-python + (assoc-ref python:%standard-phases 'wrap)) + (add-after 'wrap-python 'wrap-gi + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out")) + (gi-typelib-path (getenv "GI_TYPELIB_PATH"))) + (wrap-program (string-append out "/bin/blueprint-compiler") + `("GI_TYPELIB_PATH" ":" suffix (,gi-typelib-path))))))))) (native-inputs (list gtk python-pygobject python)) (inputs (list python)) (synopsis "Template markup language") @@ -4719,33 +4742,39 @@ and RDP protocols.") (base32 "0cs5nayg080y8pb9b7qccm1ni8wkicdmqp1jsgc22110r6j24zyg")))) (build-system meson-build-system) + (arguments + (list + #:glib-or-gtk? #t + ;; Configure sysconfdir to /etc so that gconf profiles can be written + ;; there and loaded without having to set GCONF_PROFILE, which cannot be + ;; safely set globally (as a gconf profile is a per-user thing). + #:configure-flags #~(list "--sysconfdir=/etc" + "-Dgtk_doc=true") + #:phases #~(modify-phases %standard-phases + (add-after 'unpack 'increase-test-timeout + (lambda _ + ;; On big-memory systems, the engine test may take + ;; much longer than the default of 30 seconds. + (substitute* "tests/meson.build" + (("test\\(unit_test\\[0\\], exe" all) + (string-append all ", timeout: 300")))))))) + (native-inputs + (list bash-completion + libxslt ;for xsltproc + libxml2 ;for XML_CATALOG_FILES + docbook-xml-4.2 + docbook-xsl + `(,glib "bin") + gtk-doc/stable + pkg-config + python + vala)) + (inputs + (list gtk+ + dbus)) (propagated-inputs ;; In Requires of dconf.pc. (list glib)) - (inputs - (list gtk+ dbus)) - (native-inputs - `(("bash-completion" ,bash-completion) - ("libxslt" ,libxslt) ;for xsltproc - ("libxml2" ,libxml2) ;for XML_CATALOG_FILES - ("docbook-xml" ,docbook-xml-4.2) - ("docbook-xsl" ,docbook-xsl) - ("glib:bin" ,glib "bin") - ("gtk-doc" ,gtk-doc/stable) - ("pkg-config" ,pkg-config) - ("python" ,python) - ("vala" ,vala))) - (arguments - `(#:glib-or-gtk? #t - #:configure-flags '("-Dgtk_doc=true") - #:phases (modify-phases %standard-phases - (add-after 'unpack 'increase-test-timeout - (lambda _ - ;; On big-memory systems, the engine test may take - ;; much longer than the default of 30 seconds. - (substitute* "tests/meson.build" - (("test\\(unit_test\\[0\\], exe" all) - (string-append all ", timeout: 300")))))))) (home-page "https://developer.gnome.org/dconf/") (synopsis "Low-level GNOME configuration system") (description "Dconf is a low-level configuration system. Its main purpose @@ -4976,7 +5005,10 @@ libxml to ease remote use of the RESTful API.") (arguments (substitute-keyword-arguments (package-arguments rest) ((#:tests? _ #f) #t) ((#:configure-flags _) - #~(list)) + ;; Do not build the optional 'librest-demo' program as it + ;; depends on gtksourceview and libadwaita and thus, + ;; indirectly, on Rust. + #~(list "-Dexamples=false")) ((#:phases phases '%standard-phases) #~(modify-phases #$phases (add-after 'unpack 'disable-problematic-tests @@ -4993,7 +5025,7 @@ libxml to ease remote use of the RESTful API.") (append gettext-minimal gi-docgen gsettings-desktop-schemas))) - (inputs (list gtksourceview json-glib libadwaita)) + (inputs (list json-glib)) (propagated-inputs (modify-inputs (package-propagated-inputs rest) (replace "libsoup" libsoup) @@ -5806,7 +5838,19 @@ faster results and to avoid unnecessary server load.") ;; If not specified, udev will try putting history information ;; in /gnu/store. "-Dhistorydir=/var/lib/upower" - (string-append "-Dudevrulesdir=" #$output "/bin/udev/rules.d")))) + (string-append "-Dudevrulesdir=" #$output "/bin/udev/rules.d")) + #:phases (if (target-x86-32?) + #~(modify-phases %standard-phases + (add-after 'unpack 'adjust-test-for-excess-precision + (lambda _ + ;; Address test failure caused by excess precision + ;; on i686: + ;; <https://gitlab.freedesktop.org/upower/upower/-/issues/214>. + (substitute* "src/linux/integration-test.py" + (("assertEqual(.*)40\\.0" _ middle) + (string-append + "assertAlmostEqual" middle "40.0")))))) + #~%standard-phases))) (native-inputs (list `(,glib "bin") ; for gdbus-codegen gobject-introspection @@ -6904,7 +6948,7 @@ supports image conversion, rotation, and slideshows.") (source (origin (method url-fetch) (uri (string-append "mirror://gnome/sources/eog-plugins/" - (version-major+minor version) "/" + (version-major version) "/" "eog-plugins-" version ".tar.xz")) (sha256 (base32 @@ -8855,7 +8899,10 @@ library.") "gdm_session_set_environment_variable " "(self, \"" name "\"," "g_getenv (\"" name "\"));\n")) - propagate))))) + propagate))) + ;; This is used by remote sessions, such as when using VNC. + (("\\(GDMCONFDIR \"/Xsession \\\\\"%s\\\\\"\", command)") + "(\"%s \\\"%s\\\"\", g_getenv (\"GDM_X_SESSION\"), command)"))) ;; Find the configuration file using an environment variable. (substitute* '("common/gdm-settings.c") (("GDM_CUSTOM_CONF") @@ -10399,9 +10446,12 @@ desktop. It supports multiple calendars, month, week and year view.") libpeas libportal python-pygobject - evolution-data-server gnome-online-accounts gsettings-desktop-schemas)) + (propagated-inputs + ;; This is so that the Guix System D-Bus service can find the Evolution + ;; Data Server schemas. + (list evolution-data-server)) (home-page "https://wiki.gnome.org/Apps/Todo") (synopsis "GNOME's ToDo Application") (description "GNOME To Do is a simplistic personal task manager designed @@ -13010,7 +13060,7 @@ profiler via Sysprof, debugging support, and more.") (define-public komikku (package (name "komikku") - (version "0.41.0") + (version "1.1.0") (source (origin (method git-fetch) @@ -13020,32 +13070,38 @@ profiler via Sysprof, debugging support, and more.") (file-name (git-file-name name version)) (sha256 (base32 - "17r059srxrx26w40swy47pdpyigyjdczp8550g4rfh86qs3ld4il")))) + "0ik3dwyq3r44d0h7r7x8j2sah9fhzilyvds1d6bbgbccqxzw4lnh")))) (build-system meson-build-system) (arguments - `(#:glib-or-gtk? #t - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-sources - (lambda _ - (substitute* "komikku/utils.py" - (("from komikku\\.servers import get_servers_list") - ;; code following that line should migrate old databases - ;; but the line itself results in an import error - "return data_dir_path")))) - (add-after 'unpack 'skip-gtk-update-icon-cache - (lambda _ - (substitute* "meson_post_install.py" - (("gtk-update-icon-cache") (which "true"))))) - (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap - (lambda* (#:key outputs #:allow-other-keys) - (wrap-program (search-input-file outputs "bin/komikku") - `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH"))) - `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))) + (list + #:glib-or-gtk? #t + #:meson meson-0.63 + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch-sources + (lambda _ + (substitute* "komikku/utils.py" + (("from komikku\\.servers import get_servers_list") + ;; code following that line should migrate old databases + ;; but the line itself results in an import error + "return data_dir_path")))) + (add-after 'unpack 'skip-gtk-update-icon-cache + (lambda _ + (substitute* "meson.build" + (("([a-z_]*): true" all option) + (cond ; cond rather than match saves an import + ((string=? option "gtk_update_icon_cache") + (string-append option ": false")) + (else all)))))) + (add-after 'glib-or-gtk-wrap 'python-and-gi-wrap + (lambda* (#:key outputs #:allow-other-keys) + (wrap-program (search-input-file outputs "bin/komikku") + `("GUIX_PYTHONPATH" = (,(getenv "GUIX_PYTHONPATH"))) + `("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))))))) (inputs (list bash-minimal - gtk+ - libhandy + gtk + libadwaita libnotify libsecret python @@ -13063,7 +13119,7 @@ profiler via Sysprof, debugging support, and more.") python-pygobject python-requests python-unidecode - webkitgtk-with-libsoup2)) + webkitgtk-next)) (native-inputs (list desktop-file-utils gettext-minimal @@ -13241,7 +13297,7 @@ Document Analysis and Recognition program.") (define-public libadwaita (package (name "libadwaita") - (version "1.2.rc") + (version "1.2.0") (source (origin (method url-fetch) (uri (string-append "mirror://gnome/sources/libadwaita/" @@ -13249,7 +13305,7 @@ Document Analysis and Recognition program.") "libadwaita-" version ".tar.xz")) (sha256 (base32 - "1syg7fkpcsw0q6fy3g79myb9m9bvrnh3rjrm6g4bfg1pnlqf1w22")))) + "0326qs0zhfi6zv52p90axnicmv0qb2l2hwpyv60pk9lvwcdkwbrj")))) (build-system meson-build-system) (arguments `(#:phases diff --git a/gnu/packages/gnuzilla.scm b/gnu/packages/gnuzilla.scm index aee9a16576..d8a729c395 100644 --- a/gnu/packages/gnuzilla.scm +++ b/gnu/packages/gnuzilla.scm @@ -1243,224 +1243,224 @@ standards of the IceCat project.") (cpe-version . ,(first (string-split version #\-))))))) ;; Update this together with icecat! -(define %icedove-build-id "20220920000000") ;must be of the form YYYYMMDDhhmmss +(define %icedove-build-id "20220928000000") ;must be of the form YYYYMMDDhhmmss (define-public icedove (package (name "icedove") - (version "102.3.0") + (version "102.3.1") (source icecat-source) (properties `((cpe-name . "thunderbird_esr"))) (build-system gnu-build-system) (arguments - `(#:tests? #f ; no check target - #:imported-modules ,%cargo-utils-modules ;for `generate-all-checksums' - #:modules ((guix build utils) ;find-files + (list + #:tests? #f ;no check target + #:imported-modules %cargo-utils-modules ;for `generate-all-checksums' + #:modules `((guix build utils) ;find-files (sxml simple) (ice-9 regex) ,@%gnu-build-system-modules) - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'prepare-thunderbird-sources - (lambda* (#:key inputs #:allow-other-keys) - (mkdir "comm") - (copy-recursively (assoc-ref inputs "thunderbird-sources") - "comm") - (delete-file "sourcestamp.txt"))) - (add-after 'patch-source-shebangs 'patch-cargo-checksums - (lambda _ - (use-modules (guix build cargo-utils)) - (let ((null-hash "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855")) - (for-each (lambda (file) - (format #t "patching checksums in ~a~%" file) - (substitute* file - (("^checksum = \".*\"") - (string-append "checksum = \"" null-hash "\"")))) - (find-files "." "Cargo.lock$")) - (for-each generate-all-checksums - '("third_party/rust" - "toolkit/library/rust"))))) - (add-after 'patch-cargo-checksums 'remove-cargo-frozen-flag + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'prepare-thunderbird-sources + (lambda* (#:key inputs #:allow-other-keys) + (mkdir "comm") + (copy-recursively (assoc-ref inputs "thunderbird-sources") + "comm") + (delete-file "sourcestamp.txt"))) + (add-after 'patch-source-shebangs 'patch-cargo-checksums + (lambda _ + (use-modules (guix build cargo-utils)) + (let ((null-hash "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934\ +ca495991b7852b855")) + (for-each (lambda (file) + (format #t "patching checksums in ~a~%" file) + (substitute* file + (("^checksum = \".*\"") + (string-append "checksum = \"" null-hash "\"")))) + (find-files "." "Cargo.lock$")) + (for-each generate-all-checksums + '("third_party/rust" + "toolkit/library/rust"))))) + (add-after 'patch-cargo-checksums 'remove-cargo-frozen-flag (lambda _ ;; Remove --frozen flag from cargo invokation, otherwise it'll ;; complain that it's not able to change Cargo.lock. ;; https://bugzilla.mozilla.org/show_bug.cgi?id=1726373 (substitute* "build/RunCbindgen.py" (("\"--frozen\",") "")))) - ;; Fixes issue where each installation directory generates its own profile. - ;; See e.g. https://trac.torproject.org/projects/tor/ticket/31457 - (add-after 'patch-source-shebangs 'fix-profile-setting - (lambda _ - (substitute* "comm/mail/moz.configure" - (("MOZ_DEDICATED_PROFILES, True") - "MOZ_DEDICATED_PROFILES, False")))) - (add-after 'prepare-thunderbird-sources 'rename-to-icedove - (lambda _ - (substitute* "comm/mail/confvars.sh" - (("MOZ_APP_NAME=thunderbird") - "MOZ_APP_NAME=icedove") - (("MOZ_UPDATER=1") - "MOZ_UPDATER=0")) - ;; Remove branding to comply with Mozilla's trademark policy - (with-directory-excursion "comm/mail/branding/nightly" - (delete-file "content/about-wordmark.svg") - (call-with-output-file "content/about-wordmark.svg" - (lambda (port) - (sxml->xml '(svg (@ (xmlns "http://www.w3.org/2000/svg") - (viewBox "0 0 789.1 90.78") - (width "333") - (height "48") - (fill "#fff")) - (text (@ (x "400") (y "70") - (text-anchor "middle") - (font-size "90")) - "Icedove Daily")) - port))) - (substitute* '("locales/en-US/brand.properties" - "locales/en-US/brand.ftl" - "locales/en-US/brand.dtd" - "configure.sh") - (("Thunderbird") "Icedove") - (("mozilla.org") "guix.gnu.org"))) - ;; Remove other mentions of Thunderbird in user-visible text. - (with-directory-excursion "comm/mail/base/content" - (substitute* '("overrides/app-license-name.html") - (("Thunderbird") "Icedove"))) - (with-directory-excursion "comm/mail/components/" - (substitute* '("MailGlue.jsm" - "extensions/schemas/addressBook.json" - "extensions/schemas/tabs.json" - "extensions/schemas/cloudFile.json" - "extensions/schemas/chrome_settings_overrides.json" - "extensions/schemas/windows.json" - "extensions/parent/ext-mail.js" - "im/messages/mail/Info.plist" - "enterprisepolicies/moz.build" - "enterprisepolicies/helpers/moz.build" - "enterprisepolicies/schemas/moz.build") - (("Thunderbird") "Icedove"))) - (substitute* '("comm/mailnews/base/prefs/content/accountUtils.js" - "comm/mail/base/content/customizeToolbar.js" - "comm/suite/components/customizeToolbar.js") - (("AppConstants.MOZ_APP_NAME (.)= \"thunderbird" _ e) - (format #f "AppConstants.MOZ_APP_NAME ~a= \"icedove" e))) - - ;; Override addon URLs and settings - (substitute* "comm/mail/app/profile/all-thunderbird.js" - (("(pref\\(\"extensions.webservice.discoverURL\").*" _ m) - (string-append m ", \"https://directory.fsf.org/wiki/Icedove\");")) - (("(pref\\(\"extensions.getAddons.search.url\").*" _ m) - (string-append m ", \"https://guix.gnu.org/packages\");")) - (("(pref\\(\"extensions.update.enabled\").*" _ m) - (string-append m ", false);")) - (("(pref\\(\"extensions.systemAddon.update.enabled\").*" _ m) - (string-append m ", false);")) - (("(pref\\(\"lightweightThemes.update.enabled\").*" _ m) - (string-append m ", false);"))))) - (add-after 'build 'neutralize-store-references - (lambda _ - ;; Mangle the store references to compilers & other build tools in - ;; about:buildconfig, reducing Icedove's closure significant. - ;; The resulting files are saved in lib/thunderbird/omni.ja - (substitute* - ;; Use find because the path "obj-x86_64-pc-linux-gnu" contains - ;; the architecture and the system -> more complicated. - (find-files "." "buildconfig.html") - (((format #f "(~a/)([0-9a-df-np-sv-z]{32})" - (regexp-quote (%store-directory))) - _ store hash) - (string-append store - (string-take hash 8) - "<!-- Guix: not a runtime dependency -->" - (string-drop hash 8)))))) - (delete 'bootstrap) - (replace 'configure - (lambda* (#:key inputs outputs configure-flags #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (bash (which "bash")) - (abs-srcdir (getcwd)) - (srcdir (string-append "../" (basename abs-srcdir))) - (flags `(,(string-append "--prefix=" out) - ,@configure-flags)) - (mozconfig (string-append (getcwd) "/.mozconfig"))) - (setenv "SHELL" bash) - (setenv "CONFIG_SHELL" bash) - (setenv "QA_CONFIGURE_OPTIONS" ".*") - (setenv "MOZBUILD_STATE_PATH" - (string-append (getcwd) "/mach_state")) - (setenv "MOZCONFIG" - (string-append (getcwd) "/.mozconfig")) - - (setenv "AR" "llvm-ar") - (setenv "NM" "llvm-nm") - (setenv "CC" "clang") - (setenv "CXX" "clang++") - - (setenv "MOZ_NOSPAM" "1") - (setenv "MACH_USE_SYSTEM_PYTHON" "1") - (setenv "PYTHON" - (search-input-file inputs "/bin/python")) - (setenv "MOZ_BUILD_DATE" ,%icedove-build-id) ; avoid timestamp - (setenv "MOZ_APP_NAME" "icedove") - (setenv "LDFLAGS" (string-append "-Wl,-rpath=" - (assoc-ref outputs "out") - "/lib/icedove")) - (mkdir-p (string-append (getcwd) "/builddir")) - (with-output-to-file mozconfig - (lambda () - (display - (string-append - "ac_add_options --disable-crashreporter\n" - "ac_add_options --disable-debug\n" - "ac_add_options --disable-debug-symbols\n" - "ac_add_options --disable-elf-hack\n" - "ac_add_options --disable-jit\n" - "ac_add_options --disable-necko-wifi\n" - "ac_add_options --disable-official-branding\n" - "ac_add_options --disable-tests\n" - "ac_add_options --disable-updater\n" - "ac_add_options --disable-webrtc\n" - "ac_add_options --enable-application=comm/mail\n" - "ac_add_options --enable-default-toolkit=\"cairo-gtk3\"\n" - "ac_add_options --enable-optimize\n" - "ac_add_options --enable-pulseaudio\n" - "ac_add_options --enable-release\n" - "ac_add_options --enable-strip\n" - "ac_add_options --enable-system-ffi\n" - "ac_add_options --enable-system-pixman\n" - "ac_add_options --prefix=" out "\n" - "ac_add_options --with-clang-path=" (assoc-ref %build-inputs "clang") "/bin/clang\n" - "ac_add_options --with-distribution-id=org.gnu\n" - "ac_add_options --with-libclang-path=" (assoc-ref %build-inputs "clang") "/lib\n" - "ac_add_options --with-system-bz2\n" - "ac_add_options --with-system-icu\n" - "ac_add_options --with-system-jpeg\n" - "ac_add_options --with-system-libevent\n" - "ac_add_options --with-system-nspr\n" - ;"ac_add_options --with-system-nss\n" - "ac_add_options --with-system-zlib\n" - "ac_add_options --without-wasm-sandboxed-libraries\n" - "mk_add_options MOZ_MAKE_FLAGS=-j" - (number->string (parallel-job-count)) "\n")))) - (display (getcwd)) - (newline) - (display "mach configure") - (invoke "./mach" "configure")))) - (replace 'build - (lambda _ (invoke "./mach" "build"))) - (replace 'install - (lambda _ (invoke "./mach" "install"))) - ;; Thunderbird doesn't provide any .desktop file. - ;; See https://bugzilla.mozilla.org/show_bug.cgi?id=1637575 - (add-after 'install 'install-desktop-file - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (apps (string-append out "/share/applications"))) - (mkdir-p apps) - (with-output-to-file (string-append apps "/icedove.desktop") - (lambda _ - (format #t - "[Desktop Entry]~@ + ;; Fixes issue where each installation directory generates its own + ;; profile (see: + ;; https://trac.torproject.org/projects/tor/ticket/31457). + (add-after 'patch-source-shebangs 'fix-profile-setting + (lambda _ + (substitute* "comm/mail/moz.configure" + (("MOZ_DEDICATED_PROFILES, True") + "MOZ_DEDICATED_PROFILES, False")))) + (add-after 'prepare-thunderbird-sources 'rename-to-icedove + (lambda _ + (substitute* "comm/mail/confvars.sh" + (("MOZ_APP_NAME=thunderbird") + "MOZ_APP_NAME=icedove") + (("MOZ_UPDATER=1") + "MOZ_UPDATER=0")) + ;; Remove branding to comply with Mozilla's trademark policy + (with-directory-excursion "comm/mail/branding/nightly" + (delete-file "content/about-wordmark.svg") + (call-with-output-file "content/about-wordmark.svg" + (lambda (port) + (sxml->xml '(svg (@ (xmlns "http://www.w3.org/2000/svg") + (viewBox "0 0 789.1 90.78") + (width "333") + (height "48") + (fill "#fff")) + (text (@ (x "400") (y "70") + (text-anchor "middle") + (font-size "90")) + "Icedove Daily")) + port))) + (substitute* '("locales/en-US/brand.properties" + "locales/en-US/brand.ftl" + "locales/en-US/brand.dtd" + "configure.sh") + (("Thunderbird") "Icedove") + (("mozilla.org") "guix.gnu.org"))) + ;; Remove other mentions of Thunderbird in user-visible text. + (with-directory-excursion "comm/mail/base/content" + (substitute* '("overrides/app-license-name.html") + (("Thunderbird") "Icedove"))) + (with-directory-excursion "comm/mail/components/" + (substitute* '("MailGlue.jsm" + "extensions/schemas/addressBook.json" + "extensions/schemas/tabs.json" + "extensions/schemas/cloudFile.json" + "extensions/schemas/chrome_settings_overrides.json" + "extensions/schemas/windows.json" + "extensions/parent/ext-mail.js" + "im/messages/mail/Info.plist" + "enterprisepolicies/moz.build" + "enterprisepolicies/helpers/moz.build" + "enterprisepolicies/schemas/moz.build") + (("Thunderbird") "Icedove"))) + (substitute* '("comm/mailnews/base/prefs/content/accountUtils.js" + "comm/mail/base/content/customizeToolbar.js" + "comm/suite/components/customizeToolbar.js") + (("AppConstants.MOZ_APP_NAME (.)= \"thunderbird" _ e) + (format #f "AppConstants.MOZ_APP_NAME ~a= \"icedove" e))) + + ;; Override addon URLs and settings + (substitute* "comm/mail/app/profile/all-thunderbird.js" + (("(pref\\(\"extensions.webservice.discoverURL\").*" _ m) + (string-append m ", \"https://directory.fsf.org/wiki/Icedove\");")) + (("(pref\\(\"extensions.getAddons.search.url\").*" _ m) + (string-append m ", \"https://guix.gnu.org/packages\");")) + (("(pref\\(\"extensions.update.enabled\").*" _ m) + (string-append m ", false);")) + (("(pref\\(\"extensions.systemAddon.update.enabled\").*" _ m) + (string-append m ", false);")) + (("(pref\\(\"lightweightThemes.update.enabled\").*" _ m) + (string-append m ", false);"))))) + (add-after 'build 'neutralize-store-references + (lambda _ + ;; Mangle the store references to compilers & other build tools in + ;; about:buildconfig, reducing Icedove's closure significant. + ;; The resulting files are saved in lib/thunderbird/omni.ja + (substitute* + ;; Use find because the path "obj-x86_64-pc-linux-gnu" contains + ;; the architecture and the system -> more complicated. + (find-files "." "buildconfig.html") + (((format #f "(~a/)([0-9a-df-np-sv-z]{32})" + (regexp-quote (%store-directory))) + _ store hash) + (string-append store + (string-take hash 8) + "<!-- Guix: not a runtime dependency -->" + (string-drop hash 8)))))) + (delete 'bootstrap) + (replace 'configure + (lambda* (#:key inputs configure-flags #:allow-other-keys) + (let* ((bash (which "bash")) + (abs-srcdir (getcwd)) + (srcdir (string-append "../" (basename abs-srcdir))) + (flags `(,(string-append "--prefix=" #$output) + ,@configure-flags)) + (mozconfig (string-append (getcwd) "/.mozconfig"))) + (setenv "SHELL" bash) + (setenv "CONFIG_SHELL" bash) + (setenv "QA_CONFIGURE_OPTIONS" ".*") + (setenv "MOZBUILD_STATE_PATH" + (string-append (getcwd) "/mach_state")) + (setenv "MOZCONFIG" + (string-append (getcwd) "/.mozconfig")) + + (setenv "AR" "llvm-ar") + (setenv "NM" "llvm-nm") + (setenv "CC" "clang") + (setenv "CXX" "clang++") + + (setenv "MOZ_NOSPAM" "1") + (setenv "MACH_USE_SYSTEM_PYTHON" "1") + (setenv "PYTHON" + (search-input-file inputs "/bin/python")) + (setenv "MOZ_BUILD_DATE" #$%icedove-build-id) ; avoid timestamp + (setenv "MOZ_APP_NAME" "icedove") + (setenv "LDFLAGS" (string-append "-Wl,-rpath=" #$output + "/lib/icedove")) + (mkdir-p (string-append (getcwd) "/builddir")) + (with-output-to-file mozconfig + (lambda () + (display + (string-append + "ac_add_options --disable-crashreporter\n" + "ac_add_options --disable-debug\n" + "ac_add_options --disable-debug-symbols\n" + "ac_add_options --disable-elf-hack\n" + "ac_add_options --disable-jit\n" + "ac_add_options --disable-necko-wifi\n" + "ac_add_options --disable-official-branding\n" + "ac_add_options --disable-tests\n" + "ac_add_options --disable-updater\n" + "ac_add_options --disable-webrtc\n" + "ac_add_options --enable-application=comm/mail\n" + "ac_add_options --enable-default-toolkit=\"cairo-gtk3\"\n" + "ac_add_options --enable-optimize\n" + "ac_add_options --enable-pulseaudio\n" + "ac_add_options --enable-release\n" + "ac_add_options --enable-strip\n" + "ac_add_options --enable-system-ffi\n" + "ac_add_options --enable-system-pixman\n" + "ac_add_options --prefix=" #$output "\n" + "ac_add_options --with-clang-path=" (assoc-ref %build-inputs "clang") "/bin/clang\n" + "ac_add_options --with-distribution-id=org.gnu\n" + "ac_add_options --with-libclang-path=" (assoc-ref %build-inputs "clang") "/lib\n" + "ac_add_options --with-system-bz2\n" + "ac_add_options --with-system-icu\n" + "ac_add_options --with-system-jpeg\n" + "ac_add_options --with-system-libevent\n" + "ac_add_options --with-system-nspr\n" + ;"ac_add_options --with-system-nss\n" + "ac_add_options --with-system-zlib\n" + "ac_add_options --without-wasm-sandboxed-libraries\n" + "mk_add_options MOZ_MAKE_FLAGS=-j" + (number->string (parallel-job-count)) "\n")))) + (display (getcwd)) + (newline) + (display "mach configure") + (invoke "./mach" "configure")))) + (replace 'build + (lambda _ (invoke "./mach" "build"))) + (replace 'install + (lambda _ (invoke "./mach" "install"))) + ;; Thunderbird doesn't provide any .desktop file. + ;; See https://bugzilla.mozilla.org/show_bug.cgi?id=1637575 + (add-after 'install 'install-desktop-file + (lambda _ + (let ((apps (string-append #$output "/share/applications"))) + (mkdir-p apps) + (with-output-to-file (string-append apps "/icedove.desktop") + (lambda _ + (format #t + "[Desktop Entry]~@ Name=Icedove~@ Exec=~a/bin/icedove~@ Icon=icedove~@ @@ -1474,20 +1474,19 @@ standards of the IceCat project.") [Desktop Action ComposeMessage]~@ Name=Write new message~@ Exec=~@*~a/bin/icedove -compose~%" - out)))))) - (add-after 'install 'wrap-program - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (lib (string-append out "/lib")) - (gtk (assoc-ref inputs "gtk+")) - (gtk-share (string-append gtk "/share")) - (pulseaudio (assoc-ref inputs "pulseaudio")) - (pulseaudio-lib (string-append pulseaudio "/lib")) - (eudev (assoc-ref inputs "eudev")) - (eudev-lib (string-append eudev "/lib"))) - (wrap-program (car (find-files lib "^icedove$")) - `("XDG_DATA_DIRS" prefix (,gtk-share)) - `("LD_LIBRARY_PATH" prefix (,pulseaudio-lib ,eudev-lib))))))))) + #$output)))))) + (add-after 'install 'wrap-program + (lambda* (#:key inputs #:allow-other-keys) + (let* ((lib (string-append #$output "/lib")) + (gtk #$(this-package-input "gtk+")) + (gtk-share (string-append gtk "/share")) + (pulseaudio #$(this-package-input "pulseaudio")) + (pulseaudio-lib (string-append pulseaudio "/lib")) + (eudev #$(this-package-input "eudev")) + (eudev-lib (string-append eudev "/lib"))) + (wrap-program (car (find-files lib "^icedove$")) + `("XDG_DATA_DIRS" prefix (,gtk-share)) + `("LD_LIBRARY_PATH" prefix (,pulseaudio-lib ,eudev-lib))))))))) (inputs (list alsa-lib bzip2 @@ -1534,7 +1533,7 @@ standards of the IceCat project.") ;; in the Thunderbird release tarball. We don't use the release ;; tarball because it duplicates the Icecat sources and only adds the ;; "comm" directory, which is provided by this repository. - ,(let ((changeset "04f60827c1b53ab86121c7d122d3a8216219ff9f")) + ,(let ((changeset "07a17b101f904a686bbdf798ba2e820079a8323f")) (origin (method hg-fetch) (uri (hg-reference diff --git a/gnu/packages/golang.scm b/gnu/packages/golang.scm index 29a11a4ec1..767f2dcd7f 100644 --- a/gnu/packages/golang.scm +++ b/gnu/packages/golang.scm @@ -35,6 +35,7 @@ ;;; Copyright © 2021 Lu Hui <luhux76@gmail.com> ;;; Copyright © 2022 Pier-Hugues Pellerin <phpellerin@gmail.com> ;;; Copyright © 2022 muradm <mail@muradm.net> +;;; Copyright © 2022 Dhruvin Gandhi <contact@dhruvin.dev> ;;; ;;; This file is part of GNU Guix. ;;; @@ -841,6 +842,49 @@ in the style of communicating sequential processes (@dfn{CSP}).") (alist-replace "go" (list go-1.16) (package-native-inputs go-1.16)) (package-native-inputs go-1.16))))) +(define-public go-1.18 + (package + (inherit go-1.17) + (name "go") + (version "1.18.6") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/golang/go") + (commit (string-append "go" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1s2xwgd3mfbjdf7ls9gyj7n1lbqc4276qkr3znyq9694isj1ak20")))))) + +(define-public go-1.19 + (package + (inherit go-1.18) + (name "go") + (version "1.19.1") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/golang/go") + (commit (string-append "go" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1gah4zhbkgbwrrryfmzdv2qwi1rgxk10q2r3hnlcb1dybf9c1i1w")))) + (arguments + (substitute-keyword-arguments (package-arguments go-1.18) + ((#:phases phases) + #~(modify-phases #$phases + (replace 'install-doc-files + (lambda _ + (for-each (lambda (file) + (install-file file (string-append + #$output "/share/doc/go"))) + '("CONTRIBUTING.md" "PATENTS" "README.md" + "SECURITY.md")))))))))) + (define-public go go-1.17) (define make-go-std @@ -880,6 +924,8 @@ in the style of communicating sequential processes (@dfn{CSP}).") (define-public go-std-1.14 (make-go-std go-1.14)) (define-public go-std-1.16 (make-go-std go-1.16)) (define-public go-std-1.17 (make-go-std go-1.17)) +(define-public go-std-1.18 (make-go-std go-1.18)) +(define-public go-std-1.19 (make-go-std go-1.19)) (define-public go-0xacab-org-leap-shapeshifter (let ((commit "0aa6226582efb8e563540ec1d3c5cfcd19200474") @@ -3584,7 +3630,7 @@ middleware for Go web applications and services.") (define-public go-github-com-spf13-cobra (package (name "go-github-com-spf13-cobra") - (version "1.4.0") + (version "1.5.0") (source (origin (method git-fetch) @@ -3594,7 +3640,7 @@ middleware for Go web applications and services.") (file-name (git-file-name name version)) (sha256 (base32 - "0ijhnk9pcks1v1cxri4kf6v1h26ym3jikmkgv4fdfrmm7sqgva13")))) + "0qavvyljh509w5xb46lfkak670szp6v4jswwar1hx13cpid8gk5d")))) (build-system go-build-system) (arguments `(#:import-path "github.com/spf13/cobra")) @@ -6036,6 +6082,29 @@ network protocol.") (home-page "https://github.com/lucas-clemente/quic-go") (license license:expat))) +(define-public go-github-com-lunixbochs-vtclean + (package + (name "go-github-com-lunixbochs-vtclean") + (version "1.0.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/lunixbochs/vtclean") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0jqn33l1kzy4dk66zbvxz7rlgkgg34s9mhc8z0lrz0i88466zhd8")))) + (build-system go-build-system) + (arguments (list #:import-path "github.com/lunixbochs/vtclean")) + (home-page "https://github.com/lunixbochs/vtclean") + (synopsis "Filter out terminal escape sequences") + (description + "The @code{vtclean} provides the @command{vtclean} command and a library +designed to clean up raw terminal output by stripping escape sequences, +optionally preserving color.") + (license license:expat))) + (define-public go-github-com-francoispqt-gojay (package (name "go-github-com-francoispqt-gojay") @@ -7780,6 +7849,33 @@ file system operations.") extensions.") (license license:expat)))) +(define-public go-github-com-juju-ansiterm + (package + (name "go-github-com-juju-ansiterm") + (version "0.0.0-20210929141451-8b71cc96ebdc") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/juju/ansiterm") + (commit (go-version->git-ref version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "05mk7mlvg11dd6b0j0wlq547ghbmx2ywwrlbcb4kddpg7qaqp1va")))) + (build-system go-build-system) + (arguments (list #:import-path "github.com/juju/ansiterm")) + (propagated-inputs + (list go-gopkg-in-check-v1 + go-github-com-mattn-go-isatty + go-github-com-mattn-go-colorable + go-github-com-lunixbochs-vtclean)) + (home-page "https://github.com/juju/ansiterm") + (synopsis "Writer to output ANSI escape codes for color and styles") + (description + "The ansiterm package provides a writer to output the ANSI escape codes +for color and styles.") + (license license:lgpl3))) + (define-public go-github-com-kevinburke-ssh-config (package (name "go-github-com-kevinburke-ssh-config") @@ -9916,6 +10012,50 @@ kubernetes-sigs/yaml is a permanent fork of @url{https://github.com/ghodss/yaml,ghodss/yaml}.") (license (list license:expat license:bsd-3)))) +(define-public go-git-sr-ht-emersion-go-scfg + (package + (name "go-git-sr-ht-emersion-go-scfg") + (version "0.0.0-20211215104734-c2c7a15d6c99") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://git.sr.ht/~emersion/go-scfg") + (commit (go-version->git-ref version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "02gn8hz8zfv8y0krysx2wv951gw8hmhdfqf1ysidwm7i293365w4")))) + (build-system go-build-system) + (arguments (list #:import-path "git.sr.ht/~emersion/go-scfg")) + (propagated-inputs + (list go-github-com-google-shlex + go-github-com-davecgh-go-spew)) + (home-page "https://git.sr.ht/~emersion/go-scfg") + (synopsis "Go library for simple configuration file format") + (description "Package go-scfg parses scfg files.") + (license license:expat))) + +(define-public go-git-sr-ht-emersion-gqlclient + (package + (name "go-git-sr-ht-emersion-gqlclient") + (version "0.0.0-20220202181617-4e6e9c763dd2") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://git.sr.ht/~emersion/gqlclient") + (commit (go-version->git-ref version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "1d9hmaz7yy02bk455gmaav818xi49sw69jyx6dxzymv6ln7r1cv1")))) + (build-system go-build-system) + (arguments (list #:import-path "git.sr.ht/~emersion/gqlclient")) + (home-page "https://git.sr.ht/~emersion/gqlclient") + (synopsis "GraphQL client and code generator") + (description + "This package provides a GraphQL client and code generator for Go.") + (license license:expat))) + (define-public go-github-com-google-go-jsonnet (package (name "go-github-com-google-go-jsonnet") @@ -9945,6 +10085,28 @@ production-ready implementation, compatible with the original Jsonnet C++ implementation.") (license license:asl2.0))) +(define-public go-github-com-google-shlex + (package + (name "go-github-com-google-shlex") + (version "0.0.0-20191202100458-e7afc7fbc510") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/google/shlex") + (commit (go-version->git-ref version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "14z8hqyik910wk2qwnzgz8mjsmiamxa0pj55ahbv0jx6j3dgvzfm")))) + (build-system go-build-system) + (arguments (list #:import-path "github.com/google/shlex")) + (home-page "https://github.com/google/shlex") + (synopsis "Simple lexer for Go") + (description + "@code{shlex} implements a simple lexer which splits input into tokens +using shell-style rules for quoting and commenting.") + (license license:asl2.0))) + (define-public go-github-com-gorilla-websocket (package (name "go-github-com-gorilla-websocket") diff --git a/gnu/packages/graph.scm b/gnu/packages/graph.scm index 109ba68675..02c80f0682 100644 --- a/gnu/packages/graph.scm +++ b/gnu/packages/graph.scm @@ -290,6 +290,7 @@ subplots, multiple-axes, polar charts, and bubble charts.") (origin (method url-fetch) (uri (pypi-uri "python-louvain" version)) + (patches (search-patches "python-louvain-fix-test.patch")) (sha256 (base32 "0sx53l555rwq0z7if8agirjgw4ddp8r9b949wwz8vlig03sjvfmp")))) (build-system python-build-system) diff --git a/gnu/packages/graphics.scm b/gnu/packages/graphics.scm index 4a404953a0..1d19e1b388 100644 --- a/gnu/packages/graphics.scm +++ b/gnu/packages/graphics.scm @@ -192,36 +192,36 @@ framebuffer graphics, audio output and input event.") (native-inputs (list autoconf automake libtool perl pkg-config)) (inputs - `(("alsa" ,alsa-lib) - ("ffmpeg" ,ffmpeg) - ("freetype" ,freetype) - ("glu" ,glu) - ("gstreamer" ,gstreamer) - ("imlib2" ,imlib2) - ("jasper" ,jasper) - ("jpeg" ,libjpeg-turbo) - ("libcddb" ,libcddb) - ("libdrm" ,libdrm) - ("libtimidity" ,libtimidity) - ("mad" ,libmad) - ("mng" ,libmng) - ("mpeg2" ,libmpeg2) - ("mpeg3" ,libmpeg3) - ("opengl" ,mesa) - ("png" ,libpng) - ("sdl" ,sdl) - ("svg" ,(librsvg-for-system)) - ("tiff" ,libtiff) - ("tslib" ,tslib) - ("vdpau" ,libvdpau) - ("vorbisfile" ,libvorbis) - ("wayland" ,wayland) - ("webp" ,libwebp) - ("x11" ,libx11) - ("xcomposite" ,libxcomposite) - ("xext" ,libxext) - ("xproto" ,xorgproto) - ("zlib" ,zlib))) + (list alsa-lib + ffmpeg + freetype + glu + gstreamer + imlib2 + jasper + libjpeg-turbo + libcddb + libdrm + libtimidity + libmad + libmng + libmpeg2 + libmpeg3 + mesa + libpng + sdl + (librsvg-for-system) + libtiff + tslib + libvdpau + libvorbis + wayland + libwebp + libx11 + libxcomposite + libxext + xorgproto + zlib)) (propagated-inputs (list flux)) (synopsis "DFB Graphics Library") @@ -1118,29 +1118,53 @@ graphics.") (package (name "openexr") (version "3.1.3") - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://github.com/AcademySoftwareFoundation/openexr") - (commit (string-append "v" version)))) - (file-name (git-file-name name version)) - (sha256 - (base32 "0c9vla0kbsbbhkk42jlbf94nzfb1anqh7dy9b0b3nna1qr6v4bh6")))) + (source (origin + (method git-fetch) + (uri (git-reference + (url + "https://github.com/AcademySoftwareFoundation/openexr") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0c9vla0kbsbbhkk42jlbf94nzfb1anqh7dy9b0b3nna1qr6v4bh6")))) (build-system cmake-build-system) (arguments - '(#:phases - (modify-phases %standard-phases - ;; /var/tmp does not exist in the Guix build environment - (add-after 'unpack 'patch-test-directory - (lambda _ - (substitute* '("src/test/OpenEXRUtilTest/tmpDir.h" - "src/test/OpenEXRFuzzTest/tmpDir.h" - "src/test/OpenEXRTest/tmpDir.h" - "src/test/OpenEXRCoreTest/main.cpp") - (("/var/tmp") "/tmp"))))))) - (inputs - (list imath zlib)) + (list #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch-test-directory + (lambda _ + (substitute* (list + "src/test/OpenEXRUtilTest/tmpDir.h" + "src/test/OpenEXRFuzzTest/tmpDir.h" + "src/test/OpenEXRTest/tmpDir.h" + "src/test/OpenEXRCoreTest/main.cpp") + (("/var/tmp") + "/tmp")))) + #$@(if (target-64bit?) + #~() + #~((add-after 'patch-test-directory 'disable-broken-tests + (lambda _ + ;; Disable tests that fail at least on i686-linux. + (substitute* '("src/test/OpenEXRCoreTest/main.cpp" + "src/test/OpenEXRTest/main.cpp") + (("TEST \\(testCompression, \"basic\"\\);") + "") + (("TEST\\( testNoCompression, \"core_compression\" \\);") + "") + (("TEST\\( testRLECompression, \"core_compression\" \\);") + "") + (("TEST\\( testZIPCompression, \"core_compression\" \\);") + "") + (("TEST\\( testZIPSCompression, \"core_compression\" \\);") + "") + (("TEST\\( testB44Compression, \"core_compression\" \\);") + "") + (("TEST\\( testB44ACompression, \"core_compression\" \\);") + "") + (("TEST \\(testOptimizedInterleavePatterns, \"basic\"\\);") + ""))))))))) + (inputs (list imath zlib)) (home-page "https://www.openexr.com/") (synopsis "High-dynamic-range file format library") (description @@ -2202,6 +2226,75 @@ Features include: ") (license license:gpl3+))) +(define-public discregrid + (let ((commit "4c27e1cc88be828c6ac5b8a05759ac7e01cf79e9") + (revision "0")) + (package + (name "discregrid") + (version (git-version "0.0.0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/InteractiveComputerGraphics/Discregrid") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "01cwfpw19rc9k5glx9dhnqpihd0is28a9b53qvzp5kgjmdq2v1p0")) + (modules '((guix build utils))) + (snippet + #~(begin + (delete-file-recursively "extern/cxxopts") + (substitute* '("cmd/discrete_field_to_bitmap/main.cpp" + "cmd/generate_density_map/main.cpp" + "cmd/generate_sdf/main.cpp") + (("^#include <cxxopts/cxxopts\\.hpp>") + "#include <cxxopts.hpp>")))))) + (build-system cmake-build-system) + (outputs '("out" "bin")) + (arguments + (list #:tests? #f ; No tests + #:configure-flags + #~(list (string-append "-DCMAKE_INSTALL_BINDIR=" + #$output:bin "/bin") + ;; Bespoke version of BUILD_SHARED_LIBS. + "-DBUILD_AS_SHARED_LIBS=ON") + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch-cmake + (lambda _ + (let ((port (open-file "cmd/CMakeLists.txt" "a"))) + (display "install(TARGETS + DiscreteFieldToBitmap + GenerateDensityMap + GenerateSDF) +" + port) + (close-port port))))))) + (inputs + (list cxxopts eigen)) + (home-page "https://github.com/InteractiveComputerGraphics/Discregrid") + (synopsis "Discretize functions on regular grids") + (description "Discregrid is a C++ library for the parallel discretization +of (preferably smooth) functions on regular grids. It generates a (cubic) +polynomial discretization given a box-shaped domain, a grid resolution, and a +3D scalar field. The library can also serialize and deserialize the generated +discrete grid, and compute and discretize the signed distance field +corresponding to a triangle mesh. The following programs are included with +Discregrid: + +@itemize +@item @code{GenerateSDF}: Computes a discrete (cubic) signed distance field +from a triangle mesh in OBJ format. + +@item @code{DiscreteFieldToBitmap}: Generates an image in bitmap format of a +two-dimensional slice of a previously computed discretization. + +@item @code{GenerateDensityMap}: Generates a density map from a previously +generated discrete signed distance field using the cubic spline kernel. +@end itemize") + (license license:expat)))) + (define-public mmg (package (name "mmg") @@ -2280,7 +2373,8 @@ Features include: ;; TODO: Fix failing LaTeX invocation (which results in equations ;; being inserted literally into PNGs rather than being typeset). ;;texlive-tiny - )) + + perl)) ;used to generate Fortran headers (inputs (list scotch)) (home-page "http://www.mmgtools.org/") diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm index c55767d4b0..972064182d 100644 --- a/gnu/packages/gtk.scm +++ b/gnu/packages/gtk.scm @@ -31,6 +31,7 @@ ;;; Copyright © 2021 Wamm K. D. <jaft.r@outlook.com> ;;; Copyright © 2022 Zhu Zihao <all_but_last@163.com> ;;; Copyright © 2022 Benjamin Slade <slade@lambda-y.net> +;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -1181,7 +1182,7 @@ application suites.") (define-public gtk (package (name "gtk") - (version "4.8.0") + (version "4.8.1") (source (origin (method url-fetch) @@ -1189,7 +1190,7 @@ application suites.") (version-major+minor version) "/" name "-" version ".tar.xz")) (sha256 - (base32 "0zxxvjnbmaahvm9lwm007dzgc0yl8qamkp1467c5kqyi6ws21mn8")) + (base32 "1za2nyqqs2lrbss61gfw17qba2f0w6a119m1xk4d0fx2k3gdis2w")) (patches (search-patches "gtk4-respect-GUIX_GTK4_PATH.patch")))) (build-system meson-build-system) diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 2e7094cfff..2877b7d199 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -4500,15 +4500,15 @@ tools.") (define-public guile-eris (package (name "guile-eris") - (version "0.2.0") + (version "1.0.0") (source (origin (method git-fetch) (uri (git-reference - (url "https://inqlab.net/git/eris.git") + (url "https://codeberg.org/eris/guile-eris.git") (commit (string-append "v" version)))) (file-name (git-file-name name version)) - (sha256 (base32 "1ijglmwkdy1l87gj429qfjis0v8b1zlxhbyfhx5za8664h68nqka")))) + (sha256 (base32 "0d4wbjwwaxk0zn5gjhl86qhvk1aisgzp1vnvy4xbvrv5ydqpgyqm")))) (build-system gnu-build-system) (arguments '()) (native-inputs @@ -4517,17 +4517,18 @@ tools.") pkg-config texinfo ;; test dependency - guile-srfi-180)) + guile-srfi-180 + guile-quickcheck)) (inputs (list guile-3.0)) (propagated-inputs (list guile-sodium)) (synopsis "Guile implementation of the Encoding for Robust Immutable Storage (ERIS)") (description - "Guile-ERIS is the reference implementation of the Encoding for Robust -Immutable Storage (ERIS). ERIS allows arbitrary content to be encoded into -uniformly sized, encrypted blocks that can be reassembled using a short -read-capability.") - (home-page "https://inqlab.net/git/eris.git") + "Guile-ERIS is a Guile implementation of the @url{http://purl.org/eris, +Encoding for Robust Immutable Storage (ERIS)}. ERIS allows arbitrary content +to be encoded into uniformly sized, encrypted blocks that can be reassembled +using a short read-capability.") + (home-page "https://codeberg.org/eris/guile-eris") (license license:gpl3+))) (define-public guile-r6rs-protobuf diff --git a/gnu/packages/hardware.scm b/gnu/packages/hardware.scm index d47be7a55d..41519440fd 100644 --- a/gnu/packages/hardware.scm +++ b/gnu/packages/hardware.scm @@ -56,6 +56,7 @@ #:use-module (gnu packages gnome) #:use-module (gnu packages gtk) #:use-module (gnu packages guile) + #:use-module (gnu packages high-availability) #:use-module (gnu packages libusb) #:use-module (gnu packages linux) #:use-module (gnu packages lxqt) @@ -1117,33 +1118,6 @@ supported by the Linux kernel.") as the Pinebook Pro.") (license license:gpl2+)))) -(define-public libqb - (package - (name "libqb") - ;; NOTE: We are using a Release Candidate version (for 2.0) here because - ;; of the linker issues with the previous release. - (version "1.9.1") - (source (origin - (method url-fetch) - (uri (string-append - "https://github.com/ClusterLabs/libqb/releases/download/v" - version "/libqb-" version ".tar.xz")) - (sha256 - (base32 - "008vvw504kh40br5v2xkqavnp9vpmjvf768faqzv1d00fd53ingn")))) - (build-system gnu-build-system) - (native-inputs - (list pkg-config libxml2)) - (home-page "https://clusterlabs.github.io/libqb/") - (synopsis "Library providing high performance logging, tracing, ipc, and poll") - (description "Libqb is a library with the primary purpose of providing -high-performance, reusable features for client-server architecture, such as -logging, tracing, inter-process communication (IPC), and polling. Libqb is -not intended to be an all-encompassing library, but instead provide focused -APIs that are highly tuned for maximum performance for client-server -applications.") - (license license:lgpl2.1))) - (define-public usbguard (package (name "usbguard") diff --git a/gnu/packages/haskell-web.scm b/gnu/packages/haskell-web.scm index 1c2538b45e..0e82d65e27 100644 --- a/gnu/packages/haskell-web.scm +++ b/gnu/packages/haskell-web.scm @@ -12,6 +12,7 @@ ;;; Copyright © 2020, 2022 Kyle Meyer <kyle@kyleam.com> ;;; Copyright © 2020 Alexandru-Sergiu Marton <brown121407@member.fsf.org> ;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org> +;;; Copyright © 2022 Alice Brenon <alice.brenon@ens-lyon.fr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -1541,6 +1542,26 @@ derivations of regular expressions.") introduces a more general approach for processing XML with Haskell.") (license license:expat))) +(define-public ghc-hxt-xpath + (package + (name "ghc-hxt-xpath") + (version "9.1.2.2") + (source (origin + (method url-fetch) + (uri (hackage-uri "hxt-xpath" version)) + (sha256 + (base32 + "0wlq9s01icalnvjkkilx5zaqp3ff4v5limj1xy8i18qpzjspqdsh")))) + (build-system haskell-build-system) + (inputs (list ghc-hxt)) + (home-page "https://github.com/UweSchmidt/hxt") + (synopsis "The XPath modules for HXT.") + (description + "This extension for the Haskell XML Toolbox defines data types to +represent XPath, navigation trees and primitives to select and edit subtrees +from them. Some primitives have both a functional and an arrow interface.") + (license license:expat))) + (define-public ghc-http-common (package (name "ghc-http-common") diff --git a/gnu/packages/haskell.scm b/gnu/packages/haskell.scm index 8a3c8d44c7..343c8d3d77 100644 --- a/gnu/packages/haskell.scm +++ b/gnu/packages/haskell.scm @@ -935,6 +935,42 @@ interactive environment for the functional language Haskell.") (define-public ghc-8 ghc-8.10) +(define-public ghc-9.0 + (package + (inherit ghc-8.10) + (name "ghc-next") + (version "9.0.2") + (source (origin + (method url-fetch) + (uri (string-append "https://www.haskell.org/ghc/dist/" version + "/ghc-" version "-src.tar.xz")) + (sha256 + (base32 + "15wii8can2r3dcl6jjmd50h2jvn7rlmn05zb74d2scj6cfwl43hl")))) + (native-inputs + `(;; GHC 9.0.2 must be built with GHC >= 8.8 + ("ghc-bootstrap" ,ghc-8.10) + ("ghc-testsuite" + ,(origin + (method url-fetch) + (uri (string-append + "https://www.haskell.org/ghc/dist/" + version "/ghc-" version "-testsuite.tar.xz")) + (sha256 + (base32 + "1m5fzhr4gjn9ni8gxx7ag3fkbw1rspjzgv39mnfb0nkm5mw70v3s")))) + ,@(filter (match-lambda + (("ghc-bootstrap" . _) #f) + (("ghc-testsuite" . _) #f) + (_ #t)) + (package-native-inputs ghc-8.10)))) + (native-search-paths + (list (search-path-specification + (variable "GHC_PACKAGE_PATH") + (files (list (string-append "lib/ghc-" version))) + (file-pattern ".*\\.conf\\.d$") + (file-type 'directory)))))) + (define-public ghc ghc-8) ;;; haskell.scm ends here diff --git a/gnu/packages/high-availability.scm b/gnu/packages/high-availability.scm new file mode 100644 index 0000000000..108ea553ef --- /dev/null +++ b/gnu/packages/high-availability.scm @@ -0,0 +1,242 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2022 Sharlatan Hellseher <sharlatanus@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; This program is free software: you can redistribute it and/or modify +;;; it under the terms of the GNU General Public License as published by +;;; the Free Software Foundation, either version 3 of the License, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with this program. If not, see <http://www.gnu.org/licenses/>. + +;;; Commentary: + +;; This module provides package definitions related for High Availability (HA) +;; software, which come as foundation to create clusterization and load +;; balancing of services. + +;;; Code: + +(define-module (gnu packages high-availability) + #:use-module (gnu packages autotools) + #:use-module (gnu packages check) + #:use-module (gnu packages compression) + #:use-module (gnu packages documentation) + #:use-module (gnu packages gcc) + #:use-module (gnu packages gettext) + #:use-module (gnu packages glib) + #:use-module (gnu packages hardware) + #:use-module (gnu packages linux) + #:use-module (gnu packages networking) + #:use-module (gnu packages nss) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages python) + #:use-module (gnu packages rsync) + #:use-module (gnu packages tls) + #:use-module (gnu packages valgrind) + #:use-module (gnu packages version-control) + #:use-module (gnu packages xml) + #:use-module (gnu packages) + #:use-module (guix build-system gnu) + #:use-module (guix gexp) + #:use-module (guix download) + #:use-module (guix git-download) + #:use-module (guix packages) + #:use-module ((guix licenses) + #:prefix license:)) + +(define-public libqb + (package + (name "libqb") + (version "2.0.6") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/ClusterLabs/libqb/releases/download/v" + version "/libqb-" version ".tar.xz")) + (sha256 + (base32 + "071k916vz9ppyb69rpk792fzjs3nf3chakn10i496scgiqh49rzi")))) + (build-system gnu-build-system) + (native-inputs (list autoconf automake libtool libxml2 pkg-config)) + (home-page "https://clusterlabs.github.io/libqb/") + (synopsis + "Library providing high performance logging, tracing, ipc, and poll") + (description + "Libqb is a library with the primary purpose of providing +high-performance, reusable features for client-server architecture, such as +logging, tracing, inter-process communication (IPC), and polling. Libqb is +not intended to be an all-encompassing library, but instead provide focused +APIs that are highly tuned for maximum performance for client-server +applications.") + (license license:lgpl2.1))) + +(define-public kronosnet + (package + (name "kronosnet") + (version "1.24") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/kronosnet/kronosnet") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1b8rz7f2h3scrq0xcqz58ckzsvv08g31j5jgy2v4i6w87r9c75lw")))) + (build-system gnu-build-system) + (arguments + ;; XXX: Multiple tests failed. Tests + ;; require very complex environment and for some of them root privileges to + ;; set network configuration. It has it's own CI based on Jenkis + ;; https://ci.kronosnet.org/. + (list #:tests? #f + #:configure-flags #~'("--disable-static") + #:phases #~(modify-phases %standard-phases + (add-before 'bootstrap 'fix-version-gen + (lambda _ + (call-with-output-file ".tarball-version" + (lambda (port) + (display #$version port)))))))) + (native-inputs (list autoconf + automake + doxygen + libtool + net-tools + pkg-config)) + (inputs (list lksctp-tools + libnl + libqb + libxml2 + lz4 + lzo + nss + nspr + openssl + xz + zlib + `(,zstd "lib"))) + (home-page "https://kronosnet.org/") + (synopsis "Network abstraction layer designed for High Availability") + (description + "Kronosnet, often referred to as @code{knet}, is a network + abstraction layer designed for High Availability use cases, where redundancy, + security, fault tolerance and fast fail-over are the core requirements of + your application. + + Kronosnet is the new underlying network protocol for Linux HA components + (Corosync), that features ability to use multiple links between nodes, + active/active and active/passive link failover policies, automatic link + recovery, FIPS compliant encryption (nss and/or openssl), automatic PMTUd and + in general better performances compared to the old network protocol.") + (license (list license:gpl2+ license:lgpl2.1+)))) + +(define-public corosync + (package + (name "corosync") + (version "3.1.6") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/corosync/corosync") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "03g3qnm5acmk7jry6kspvkssbiv8k39749bic2f0cj3ckkwy2li4")))) + (build-system gnu-build-system) + (arguments + (list #:configure-flags #~'("--disable-static") + #:phases #~(modify-phases %standard-phases + (add-before 'bootstrap 'fix-version-gen + (lambda _ + (call-with-output-file ".tarball-version" + (lambda (port) + (display #$version port)))))))) + (native-inputs (list autoconf automake libtool pkg-config)) + (inputs (list kronosnet libqb)) + (home-page "https://corosync.github.io/corosync/") + (synopsis + "Group communication system for implementing High Availability in applications") + (description + "The Corosync Cluster Engine is a Group Communication System with additional +features for implementing high availability within applications. The project +provides four C Application Programming Interface features: + +@itemize + +@item A closed process group communication model with extended virtual synchrony +guarantees for creating replicated state machines. + +@item A simple availability manager that restarts the application process when +it has failed. + +@item A configuration and statistics in-memory database that provide the ability +to set, retrieve, and receive change notifications of information. + +@item A quorum system that notifies applications when quorum is achieved or +lost. + +@end itemize") + (license (list license:bsd-0 license:gpl3+)))) + +(define-public pacemaker + (package + (name "pacemaker") + (version "2.1.4") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ClusterLabs/pacemaker") + (commit (string-append "Pacemaker-" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "04gfd7i3w0zbzv7vi7728lgbyjq7cbqpr7jsp501piwg3z5j4mvb")))) + (build-system gnu-build-system) + (arguments + (list #:configure-flags #~(list "--with-corosync" "--disable-static" + (string-append "--with-initdir=" + #$output "/etc/init.d") + (string-append "--with-ocfdir=" + #$output "/lib")))) + (native-inputs (list autoconf + automake + cmocka + gettext-minimal + libtool + pkg-config + rsync + util-linux + valgrind)) + (inputs (list dbus + corosync + glib + gnutls + libqb + libxml2 + libxslt + python + `(,util-linux "lib"))) + (home-page "https://www.clusterlabs.org/pacemaker/") + (synopsis "Scalable High-Availability cluster resource manager") + (description + "Pacemaker is a high-availability cluster resource manager. + +It achieves maximum availability for your cluster services (a.k.a. resources) by +detecting and recovering from node- and resource-level failures by making use of +the messaging and membership capabilities provided by Corosync. + +It can do this for clusters of practically any size and comes with a powerful +dependency model that allows the administrator to accurately express the +relationships (both ordering and location) between the cluster resources. + +Virtually anything that can be scripted can be managed as part of a Pacemaker cluster.") + (license (list license:cc-by4.0 license:gpl2+ license:lgpl2.1+)))) diff --git a/gnu/packages/ibus.scm b/gnu/packages/ibus.scm index 4be80ecbe0..29bfc44e4a 100644 --- a/gnu/packages/ibus.scm +++ b/gnu/packages/ibus.scm @@ -67,9 +67,10 @@ #:use-module (gnu packages textutils) #:use-module (gnu packages unicode) #:use-module (gnu packages xorg) - #:use-module (gnu packages xdisorg)) + #:use-module (gnu packages xdisorg) + #:use-module (srfi srfi-1)) -(define-public ibus +(define-public ibus-minimal (package (name "ibus") (version "1.5.27") @@ -233,7 +234,17 @@ input method user interface. It comes with multilingual input support. It may also simplify input method development.") (home-page "https://github.com/ibus/ibus/wiki") - (license lgpl2.1+))) + (license lgpl2.1+) + (properties '((hidden? . #t))))) + +(define-public ibus + (package/inherit ibus-minimal + (arguments (substitute-keyword-arguments (package-arguments ibus-minimal) + ((#:configure-flags flags) + #~(cons* "--enable-gtk4" #$flags)))) + (inputs (modify-inputs (package-inputs ibus-minimal) + (prepend gtk pango-next))) + (properties (alist-delete 'hidden? (package-properties ibus-minimal))))) (define-public ibus-libpinyin (package diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm index 87c9884284..20b30066a2 100644 --- a/gnu/packages/kde-frameworks.scm +++ b/gnu/packages/kde-frameworks.scm @@ -730,7 +730,7 @@ replace the other outdated Graphviz tools.") (native-inputs (list extra-cmake-modules pkg-config)) (inputs - (list qtbase-5 qtwayland qtx11extras plasma-wayland-protocols wayland)) + (list qtbase-5 qtwayland-5 qtx11extras plasma-wayland-protocols wayland)) (home-page "https://community.kde.org/Frameworks") (synopsis "Utilities for graphical user interfaces") (description "The KDE GUI addons provide utilities for graphical user @@ -1051,7 +1051,7 @@ protocols used in KDE Plasma.") (native-inputs (list extra-cmake-modules pkg-config)) (inputs - (list qtbase-5 plasma-wayland-protocols qtwayland wayland wayland-protocols)) + (list qtbase-5 plasma-wayland-protocols qtwayland-5 wayland wayland-protocols)) (arguments `(#:phases (modify-phases %standard-phases diff --git a/gnu/packages/kde-plasma.scm b/gnu/packages/kde-plasma.scm index 634a44eecf..2b88ea2afe 100644 --- a/gnu/packages/kde-plasma.scm +++ b/gnu/packages/kde-plasma.scm @@ -179,7 +179,7 @@ call it if it is not associated to a terminal.") (list libxkbcommon qtbase-5 qtdeclarative-5 - qtwayland + qtwayland-5 wayland wayland-protocols)) (home-page "https://invent.kde.org/plasma/layer-shell-qt") @@ -270,7 +270,7 @@ call it if it is not associated to a terminal.") dbus)) (inputs (list kwayland libxrandr plasma-wayland-protocols - qtbase-5 qtwayland wayland qtx11extras)) + qtbase-5 qtwayland-5 wayland qtx11extras)) (arguments '(#:tests? #f)) ; FIXME: 55% tests passed, 5 tests failed out of 11 (home-page "https://community.kde.org/Solid/Projects/ScreenManagement") @@ -355,7 +355,7 @@ with a ksysguardd daemon, which may also run on a remote system.") (inputs (list plasma-wayland-protocols qtbase-5 - qtwayland + qtwayland-5 kwayland wayland wayland-protocols-next)) diff --git a/gnu/packages/kde-systemtools.scm b/gnu/packages/kde-systemtools.scm index 5515c58d49..96ed5cb777 100644 --- a/gnu/packages/kde-systemtools.scm +++ b/gnu/packages/kde-systemtools.scm @@ -273,7 +273,7 @@ This package is part of the KDE base applications module.") pipewire-0.3 plasma-wayland-protocols qtbase-5 - qtwayland + qtwayland-5 qtx11extras wayland xcb-util-image diff --git a/gnu/packages/kde.scm b/gnu/packages/kde.scm index e83470bc53..1d4321237a 100644 --- a/gnu/packages/kde.scm +++ b/gnu/packages/kde.scm @@ -751,7 +751,7 @@ different notification systems.") qtquickcontrols-5 qtquickcontrols2-5 qtx11extras - qtwayland + qtwayland-5 wayland)) (home-page "https://community.kde.org/KDEConnect") (synopsis "Enable your devices to communicate with each other") @@ -902,6 +902,33 @@ charts.") partitions, floppy and CD drives, etc.) along with information on their capacity, free space, type and mount point. It also allows you to mount and unmount drives and view them in a file manager.") +(license license:gpl2+))) + +(define-public ktimer + (package + (name "ktimer") + (version "20.12.0") + (source (origin + (method url-fetch) + (uri (string-append "mirror://kde/stable/release-service/" version + "/src/ktimer-" version ".tar.xz")) + (sha256 + (base32 + "12fz5v5ky03h18jl75fnq1zagjq8qzi1s1q7phjz5d1rbhwc57ls")))) + (build-system qt-build-system) + (native-inputs + (list extra-cmake-modules + kdoctools)) + (inputs + (list kdbusaddons + ki18n + kio + knotifications)) + (home-page "https://kde.org/applications/utilities/ktimer") + (synopsis "Countdown Launcher") + (description "KTimer is a little tool to execute programs after some time. +It allows you to enter several tasks and to set a timer for each of them. The +timers for each task can be started, stopped, changed, or looped.") (license license:gpl2+))) (define-public kcachegrind diff --git a/gnu/packages/language.scm b/gnu/packages/language.scm index 182ef2f8c2..937954a1ad 100644 --- a/gnu/packages/language.scm +++ b/gnu/packages/language.scm @@ -5,6 +5,7 @@ ;;; Copyright © 2019 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu> +;;; Copyright © 2022 Milran <milranmike@protonmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -923,3 +924,31 @@ noun phrases, verb phrases, etc.).") analysis (pitch, formant, intensity, ...), speech synthesis, labelling, segmenting and manipulation.") (license license:gpl2+))) + +(define-public libskk + (package + (name "libskk") + (version "1.0.5") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/ueno/libskk") + (commit version))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0y279pcgs3jrsi9vzx086xhz9jbz23dqqijp4agygc9ackp9sxy5")))) + (build-system gnu-build-system) + (native-inputs (list autoconf + automake + gettext-minimal + gobject-introspection + libtool + pkg-config + vala)) + (inputs (list libgee json-glib libxkbcommon)) + (home-page "https://github.com/ueno/libskk") + (synopsis "Dealing with Japanese kana-to-kanji conversion") + (description + "libskk is a library to deal with Japanese kana-to-kanji conversion method.") + (license license:gpl3+))) diff --git a/gnu/packages/libdaemon.scm b/gnu/packages/libdaemon.scm index 9dc851e823..12e4e2dc9c 100644 --- a/gnu/packages/libdaemon.scm +++ b/gnu/packages/libdaemon.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013, 2014, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be> +;;; Copyright © 2022 LuHui <luhux76@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -49,7 +50,8 @@ (file-name (string-append name "-" version ".tar.gz")))) (build-system gnu-build-system) (native-inputs - (if (and=> (%current-target-system) target-aarch64?) + (if (or (and=> (%current-target-system) target-aarch64?) + (and=> (%current-target-system) target-riscv64?)) `(("config" ,config)) ; for config.sub '())) (arguments @@ -66,7 +68,8 @@ ;; Hurd's console client. "--localstatedir=/var")) '()) - ,@(if (and=> (%current-target-system) target-aarch64?) + ,@(if (or (and=> (%current-target-system) target-aarch64?) + (and=> (%current-target-system) target-riscv64?)) `(#:phases (modify-phases %standard-phases (add-before 'configure 'update-config.sub diff --git a/gnu/packages/libreoffice.scm b/gnu/packages/libreoffice.scm index 46eba12431..b4b51a9d50 100644 --- a/gnu/packages/libreoffice.scm +++ b/gnu/packages/libreoffice.scm @@ -1067,6 +1067,126 @@ converting QuarkXPress file format. It supports versions 3.1 to 4.1.") (sha256 (base32 "14g9873x8m5yakpq7v9f7lhc5fkxh6yhjhgh0pm30cqmxsqhsglv")))) (build-system glib-or-gtk-build-system) + (arguments + (list + #:tests? #f ; Building the tests already fails. + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'insert-external-tarballs + (lambda _ + (mkdir-p "external/tarballs") + (copy-file #$dtoa "external/tarballs/dtoa-20180411.tgz"))) + (add-before 'configure 'prepare-src + (lambda* (#:key inputs #:allow-other-keys) + (substitute* + (list "sysui/CustomTarget_share.mk" + "solenv/gbuild/gbuild.mk" + "solenv/gbuild/platform/unxgcc.mk") + (("/bin/sh") (which "sh"))) + + ;; Use store references for strictly necessary commands, + ;; but not for optional tools like ‘gdb’ and ‘valgrind’. + (for-each (lambda (command) + (substitute* "desktop/scripts/soffice.sh" + (((format #f "~a " command)) + (format #f "~a " (which command))))) + (list "dirname" "grep" "uname")) + + ;; GPGME++ headers are installed in a gpgme++ subdirectory, but + ;; configure is hardcoded to use FHS directories. + (substitute* "configure" + (("GPGMEPP_CFLAGS=-I/usr/include/gpgme\\+\\+") + (string-append "GPGMEPP_CFLAGS=-I" + (search-input-directory inputs + "include/gpgme++")))) + + ;; /usr/bin/xdg-open doesn't exist on Guix System. + (substitute* '("shell/source/unix/exec/shellexec.cxx" + "shell/source/unix/misc/senddoc.sh") + (("/usr/bin/xdg-open") + (search-input-file inputs "/bin/xdg-open"))))) + (add-after 'install 'reset-zip-timestamps + (lambda _ + (for-each (lambda (file) + (invoke "ziptime" file)) + ;; So many different extensions for .zip files. + (find-files #$output "\\.(bau|dat|otp|ott|zip)$")))) + (add-after 'install 'bin-and-desktop-install + ;; Create 'soffice' and 'libreoffice' symlinks to the executable + ;; script. + (lambda _ + (let ((out #$output)) + (define (symlink-output src dst) + (mkdir-p (dirname (string-append out dst))) + (symlink (string-append out src) (string-append out dst))) + (define (install src dst) + (let ((dst (string-append out dst))) + (mkdir-p (dirname dst)) + (copy-file src dst))) + (define (install-desktop-file app) + (let ((src (string-append "/lib/libreoffice/share/xdg/" + app ".desktop")) + (dst (string-append "/share/applications/libreoffice-" + app ".desktop"))) + (substitute* (string-append out src) + (("Exec=libreoffice[0-9]+\\.[0-9]+ ") + (string-append "Exec=" out "/bin/libreoffice ")) + (("Icon=libreoffice.*") + (string-append "Icon=" app "\n")) + (("LibreOffice [0-9]+\\.[0-9]+") + "LibreOffice")) + (symlink-output src dst))) + (define (install-appdata app) + (install-file (string-append + "sysui/desktop/appstream-appdata/" + "libreoffice-" app ".appdata.xml") + (string-append out "/share/appdata"))) + (symlink-output "/lib/libreoffice/program/soffice" + "/bin/soffice") + (symlink-output "/lib/libreoffice/program/soffice" + "/bin/libreoffice") + (install + "workdir/CustomTarget/sysui/share/libreoffice/openoffice.org.xml" + "/share/mime/packages/libreoffice.xml") + (for-each install-desktop-file + '("base" "calc" "draw" "impress" "writer" + "math" "startcenter")) + (for-each install-appdata + '("base" "calc" "draw" "impress" "writer")) + (mkdir-p (string-append out "/share/icons/hicolor")) + (copy-recursively "sysui/desktop/icons/hicolor" + (string-append out "/share/icons/hicolor")))))) + #:configure-flags + #~(list + "--enable-release-build" + "--with-vendor=GNU Guix" + ;; Avoid using all cpu cores by default + (format #f "--with-parallelism=~d" (parallel-job-count)) + "--disable-fetch-external" ; disable downloads + "--with-system-libs" ; enable all --with-system-* flags + (string-append "--with-boost-libdir=" + (dirname + (search-input-file %build-inputs + "lib/libboost_system.so"))) + ;; Avoid a dependency on ucpp. + "--with-idlc-cpp=cpp" + ;; The fonts require an external tarball (crosextrafonts). + ;; They should not be needed when system fonts are available. + "--without-fonts" + ;; With java, the build fails since sac.jar is missing. + "--without-java" + ;; FIXME: Enable once the corresponding inputs are packaged. + "--disable-coinmp" + "--disable-skia" + ;; This could (Debian does this) be a separate output containing only + ;; program/libfirebird_sdbclo.so, if there's a way to point to it. + "--enable-firebird-sdbc" + ;; XXX: PDFium support requires fetching an external tarball and + ;; patching the build scripts to work with GCC5. Try enabling this + ;; when our default compiler is >=GCC 6. + "--disable-pdfium" + "--without-doxygen" + "--enable-build-opensymbol"))) (native-inputs (list bison cppunit @@ -1152,134 +1272,14 @@ converting QuarkXPress file format. It supports versions 3.1 to 4.1.") xmlsec-nss zip zxing-cpp)) - (arguments - (list - #:tests? #f ; Building the tests already fails. - #:phases - #~(modify-phases %standard-phases - (add-after 'unpack 'insert-external-tarballs - (lambda _ - (mkdir-p "external/tarballs") - (copy-file #$dtoa "external/tarballs/dtoa-20180411.tgz"))) - (add-before 'configure 'prepare-src - (lambda* (#:key inputs #:allow-other-keys) - (substitute* - (list "sysui/CustomTarget_share.mk" - "solenv/gbuild/gbuild.mk" - "solenv/gbuild/platform/unxgcc.mk") - (("/bin/sh") (which "sh"))) - - ;; Use store references for strictly necessary commands, - ;; but not for optional tools like ‘gdb’ and ‘valgrind’. - (for-each (lambda (command) - (substitute* "desktop/scripts/soffice.sh" - (((format #f "~a " command)) - (format #f "~a " (which command))))) - (list "dirname" "grep" "uname")) - - ;; GPGME++ headers are installed in a gpgme++ subdirectory, but - ;; configure is hardcoded to use FHS directories. - (substitute* "configure" - (("GPGMEPP_CFLAGS=-I/usr/include/gpgme\\+\\+") - (string-append "GPGMEPP_CFLAGS=-I" - (search-input-directory inputs - "include/gpgme++")))) - - ;; /usr/bin/xdg-open doesn't exist on Guix System. - (substitute* '("shell/source/unix/exec/shellexec.cxx" - "shell/source/unix/misc/senddoc.sh") - (("/usr/bin/xdg-open") - (search-input-file inputs "/bin/xdg-open"))))) - (add-after 'install 'reset-zip-timestamps - (lambda _ - (for-each (lambda (file) - (invoke "ziptime" file)) - ;; So many different extensions for .zip files. - (find-files #$output "\\.(bau|dat|otp|ott|zip)$")))) - (add-after 'install 'bin-and-desktop-install - ;; Create 'soffice' and 'libreoffice' symlinks to the executable - ;; script. - (lambda _ - (let ((out #$output)) - (define (symlink-output src dst) - (mkdir-p (dirname (string-append out dst))) - (symlink (string-append out src) (string-append out dst))) - (define (install src dst) - (let ((dst (string-append out dst))) - (mkdir-p (dirname dst)) - (copy-file src dst))) - (define (install-desktop-file app) - (let ((src (string-append "/lib/libreoffice/share/xdg/" - app ".desktop")) - (dst (string-append "/share/applications/libreoffice-" - app ".desktop"))) - (substitute* (string-append out src) - (("Exec=libreoffice[0-9]+\\.[0-9]+ ") - (string-append "Exec=" out "/bin/libreoffice ")) - (("Icon=libreoffice.*") - (string-append "Icon=" app "\n")) - (("LibreOffice [0-9]+\\.[0-9]+") - "LibreOffice")) - (symlink-output src dst))) - (define (install-appdata app) - (install-file (string-append - "sysui/desktop/appstream-appdata/" - "libreoffice-" app ".appdata.xml") - (string-append out "/share/appdata"))) - (symlink-output "/lib/libreoffice/program/soffice" - "/bin/soffice") - (symlink-output "/lib/libreoffice/program/soffice" - "/bin/libreoffice") - (install - "workdir/CustomTarget/sysui/share/libreoffice/openoffice.org.xml" - "/share/mime/packages/libreoffice.xml") - (for-each install-desktop-file - '("base" "calc" "draw" "impress" "writer" - "math" "startcenter")) - (for-each install-appdata - '("base" "calc" "draw" "impress" "writer")) - (mkdir-p (string-append out "/share/icons/hicolor")) - (copy-recursively "sysui/desktop/icons/hicolor" - (string-append out "/share/icons/hicolor")))))) - #:configure-flags - #~(list - "--enable-release-build" - "--with-vendor=GNU Guix" - ;; Avoid using all cpu cores by default - (format #f "--with-parallelism=~d" (parallel-job-count)) - "--disable-fetch-external" ; disable downloads - "--with-system-libs" ; enable all --with-system-* flags - (string-append "--with-boost-libdir=" - (dirname - (search-input-file %build-inputs - "lib/libboost_system.so"))) - ;; Avoid a dependency on ucpp. - "--with-idlc-cpp=cpp" - ;; The fonts require an external tarball (crosextrafonts). - ;; They should not be needed when system fonts are available. - "--without-fonts" - ;; With java, the build fails since sac.jar is missing. - "--without-java" - ;; FIXME: Enable once the corresponding inputs are packaged. - "--disable-coinmp" - "--disable-skia" - ;; This could (Debian does this) be a separate output containing only - ;; program/libfirebird_sdbclo.so, if there's a way to point to it. - "--enable-firebird-sdbc" - ;; XXX: PDFium support requires fetching an external tarball and - ;; patching the build scripts to work with GCC5. Try enabling this - ;; when our default compiler is >=GCC 6. - "--disable-pdfium" - "--without-doxygen" - "--enable-build-opensymbol"))) - (home-page "https://www.libreoffice.org/") - (synopsis "Office suite") - (description "LibreOffice is a comprehensive office suite. It contains + (home-page "https://www.libreoffice.org/") + (synopsis "Office suite") + (description "LibreOffice is a comprehensive office suite. It contains a number of components: Writer, a word processor; Calc, a spreadsheet application; Impress, a presentation engine; Draw, a drawing and flowcharting application; Base, a database and database frontend; Math for editing mathematics.") - (properties - '((release-monitoring-url - . "https://www.libreoffice.org/download/download-libreoffice/"))) - (license license:mpl2.0))) + (properties + '((release-monitoring-url + . "https://www.libreoffice.org/download/download-libreoffice/"))) + (license license:mpl2.0))) diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 2433677a5a..7ddbb2f8bd 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -354,7 +354,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.19-version "5.19.11") +(define-public linux-libre-5.19-version "5.19.14") (define-public linux-libre-5.19-gnu-revision "gnu") (define deblob-scripts-5.19 (linux-libre-deblob-scripts @@ -364,7 +364,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS." (base32 "092myqjixvy1k3ylcj0hfc4whfxapjvxsxm4gk30a3jv5dnh7mly"))) (define-public linux-libre-5.19-pristine-source (let ((version linux-libre-5.19-version) - (hash (base32 "0wyrwdqm4dypx2jbb7d8c3b7fl7q5j434d6g9x2v6sw01gwx4m2m"))) + (hash (base32 "1h8srn3fw4vw61qi0xxlk9fq0fqq4wl7fbrzz7sivdd8qkhjgv8x"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-5.19))) @@ -373,7 +373,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.15-version "5.15.70") +(define-public linux-libre-5.15-version "5.15.72") (define-public linux-libre-5.15-gnu-revision "gnu") (define deblob-scripts-5.15 (linux-libre-deblob-scripts @@ -383,12 +383,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS." (base32 "048r4synfax2ajyzlmp672b68yshxwlfccdah2vz1kh88rqfmgsc"))) (define-public linux-libre-5.15-pristine-source (let ((version linux-libre-5.15-version) - (hash (base32 "0xhdjz7aqq13pkh1yr7ax3msqdb2xvrcpj464wibn1rl4pq2cz0s"))) + (hash (base32 "1aq75z2spa1jvxv9m89gsaxza29n25k8j1f0pg9yj6j7bcxk5430"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-5.15))) -(define-public linux-libre-5.10-version "5.10.145") +(define-public linux-libre-5.10-version "5.10.147") (define-public linux-libre-5.10-gnu-revision "gnu1") (define deblob-scripts-5.10 (linux-libre-deblob-scripts @@ -398,12 +398,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS." (base32 "1981axxswghza3iadp94q54y8w30h9w9vyq4cbjiiv9alvbv0pb8"))) (define-public linux-libre-5.10-pristine-source (let ((version linux-libre-5.10-version) - (hash (base32 "0qdcqmwvc70hfgj8hb8ccwmnvwl41dvdffqrmyg3cyblwprr0ngw"))) + (hash (base32 "16pdpjmvrdml7am7s2kydrif1l7f4aq0wh4ak0xh3dby16zkl9c5"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-5.10))) -(define-public linux-libre-5.4-version "5.4.214") +(define-public linux-libre-5.4-version "5.4.217") (define-public linux-libre-5.4-gnu-revision "gnu1") (define deblob-scripts-5.4 (linux-libre-deblob-scripts @@ -413,12 +413,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS." (base32 "1vnjbdyssa7dwyjl9kg35alwvf7yh597cl74yr1wy2gk5bc9paw6"))) (define-public linux-libre-5.4-pristine-source (let ((version linux-libre-5.4-version) - (hash (base32 "1ny57g5agk8sq6cbp2crjiay5bfkwqy32i4a5yw7x0lch2s7kg4s"))) + (hash (base32 "0qrfrk0g1dky5apg8gdxczj2ir0g0z41zmdmbwwcxkxjz76jdf1b"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-5.4))) -(define-public linux-libre-4.19-version "4.19.259") +(define-public linux-libre-4.19-version "4.19.261") (define-public linux-libre-4.19-gnu-revision "gnu1") (define deblob-scripts-4.19 (linux-libre-deblob-scripts @@ -428,12 +428,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS." (base32 "00i91lx938nqlgy63hiricqd0fnbbf26vgya9c5lb7m1f4x324im"))) (define-public linux-libre-4.19-pristine-source (let ((version linux-libre-4.19-version) - (hash (base32 "1ska6v95zjjj44h53gi34rnbsrm4507jwxi3kklnky6d0aykiy1z"))) + (hash (base32 "1cicb3zydpka9yjx875hbh305bsdvni2kp674pkvaw04pnc35hxy"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-4.19))) -(define-public linux-libre-4.14-version "4.14.294") +(define-public linux-libre-4.14-version "4.14.295") (define-public linux-libre-4.14-gnu-revision "gnu1") (define deblob-scripts-4.14 (linux-libre-deblob-scripts @@ -443,12 +443,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS." (base32 "00i91lx938nqlgy63hiricqd0fnbbf26vgya9c5lb7m1f4x324im"))) (define-public linux-libre-4.14-pristine-source (let ((version linux-libre-4.14-version) - (hash (base32 "069i11hv4fhwc9dirqbag1g1k3fn21wzpfggah4f1a41whf98apy"))) + (hash (base32 "0svalywqmrhav63vw0ns06c25sgyvzwfngljpham3nm7jjxbkk32"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-4.14))) -(define-public linux-libre-4.9-version "4.9.329") +(define-public linux-libre-4.9-version "4.9.330") (define-public linux-libre-4.9-gnu-revision "gnu1") (define deblob-scripts-4.9 (linux-libre-deblob-scripts @@ -458,7 +458,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS." (base32 "0bib3641dbcqdkx3anna3caxnsg3nw9cnmhcklq0s93g3m57041h"))) (define-public linux-libre-4.9-pristine-source (let ((version linux-libre-4.9-version) - (hash (base32 "168hy7vhgw2sfknflhhf6ykhkp4xs8v0igii6ivjlvs3dmwm21sj"))) + (hash (base32 "0psrl8fcbp1bsanjmllic503dlyhkj8bjzfc20p2ksahlhv1j0mz"))) (make-linux-libre-source version (%upstream-linux-source version hash) deblob-scripts-4.9))) @@ -696,6 +696,10 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration." ("CONFIG_PROC_PID_CPUSET" . #t) ;; Allow disk encryption by default ("CONFIG_DM_CRYPT" . m) + ;; Support zram on all kernel configs + ("CONFIG_ZSWAP" . #t) + ("CONFIG_ZSMALLOC" . #t) + ("CONFIG_ZRAM" . m) ;; Modules required for initrd: ("CONFIG_NET_9P" . m) ("CONFIG_NET_9P_VIRTIO" . m) diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm index 65d8060862..68af3bb353 100644 --- a/gnu/packages/mail.scm +++ b/gnu/packages/mail.scm @@ -4141,7 +4141,7 @@ Git and exports them in maildir format or to an MDA through a pipe.") (define-public public-inbox (package (name "public-inbox") - (version "1.8.0") + (version "1.9.0") (source (origin (method git-fetch) (uri (git-reference @@ -4149,9 +4149,8 @@ Git and exports them in maildir format or to an MDA through a pipe.") (commit (string-append "v" version)))) (sha256 (base32 - "0xni1l54v1z3p0zb52807maay0yqabp8jgf5iras5zmhgjyk3swz")) - (file-name (git-file-name name version)) - (patches (search-patches "public-inbox-fix-spawn-test.patch")))) + "0cgvxg0f32nvb3079x46gjkfis4bc98s6nx6kl8rm90kmb1kxkx9")) + (file-name (git-file-name name version)))) (build-system perl-build-system) (arguments `(#:imported-modules (,@%perl-build-system-modules @@ -4227,33 +4226,39 @@ Git and exports them in maildir format or to an MDA through a pipe.") (list ;; For testing. lsof openssl tini)) (inputs - (list bash-minimal - curl - git - perl-dbd-sqlite - perl-dbi - perl-email-address-xs - perl-email-mime-contenttype - perl-email-mime - perl-email-simple - perl-net-server - perl-plack-middleware-deflater - perl-plack-middleware-reverseproxy - perl-plack - perl-search-xapian - perl-socket-msghdr - perl-timedate - perl-uri-escape - perl-inline-c - perl-parse-recdescent - perl-linux-inotify2 - ;; FIXME: Perl modules are unable to find the config file for highlight - ;; https://issues.guix.gnu.org/48033#4 - ;; ("highlight" ,highlight) - ;; For testing. - perl-ipc-run - perl-xml-feed - xapian)) + (append + (if (not (target-64bit?)) + ;; Required by test t/pop3d.t, otherwise fails with + ;; “sizeof(off_t)=8 requires File::FcntlLock”. + (list perl-file-fcntllock) + '()) + (list bash-minimal + curl + git + perl-dbd-sqlite + perl-dbi + perl-email-address-xs + perl-email-mime-contenttype + perl-email-mime + perl-email-simple + perl-net-server + perl-plack-middleware-deflater + perl-plack-middleware-reverseproxy + perl-plack + perl-search-xapian + perl-socket-msghdr + perl-timedate + perl-uri-escape + perl-inline-c + perl-parse-recdescent + perl-linux-inotify2 + ;; FIXME: Perl modules are unable to find the config file for highlight + ;; https://issues.guix.gnu.org/48033#4 + ;; ("highlight" ,highlight) + ;; For testing. + perl-ipc-run + perl-xml-feed + xapian))) (home-page "https://public-inbox.org/README.html") (synopsis "Archive mailing lists in Git repositories") (description diff --git a/gnu/packages/maths.scm b/gnu/packages/maths.scm index d69770c4be..79664918cb 100644 --- a/gnu/packages/maths.scm +++ b/gnu/packages/maths.scm @@ -368,13 +368,13 @@ programming language.") (define-public units (package (name "units") - (version "2.21") + (version "2.22") (source (origin (method url-fetch) (uri (string-append "mirror://gnu/units/units-" version ".tar.gz")) (sha256 (base32 - "1bybhqs4yrly9myb5maz3kdmf8k4fhk2m1d5cbcryn40z6lq0gkc")))) + "0j2q2a9sgldqwcifsnb7qagsmp8fvj91vfh6v4k7gzi1fwhf24sx")))) (build-system gnu-build-system) (inputs `(("readline" ,readline) diff --git a/gnu/packages/matrix.scm b/gnu/packages/matrix.scm index 2ba6d8ba1f..d5e0060c04 100644 --- a/gnu/packages/matrix.scm +++ b/gnu/packages/matrix.scm @@ -1,7 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2020 Alex ter Weele <alex.ter.weele@gmail.com> ;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr> -;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de> +;;; Copyright © 2020, 2021, 2022 Michael Rohleder <mike@rohleder.de> ;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org> ;;; Copyright © 2022 Aleksandr Vityazev <avityazev@posteo.org> ;;; Copyright © 2022 Morgan Smith <Morgan.J.Smith@outlook.com> @@ -158,13 +158,13 @@ homeserver and generally help bootstrap the ecosystem.") (define-public python-matrix-nio (package (name "python-matrix-nio") - (version "0.18.7") + (version "0.20.0") (source (origin (method url-fetch) (uri (pypi-uri "matrix-nio" version)) (sha256 - (base32 "0cw4y6dx8n8hynxqlzzkj8p34nfbc2xryvmkr5yhmja31y4rks4k")))) + (base32 "1ycrp48b15nm2d3w3qpzps21czl3gbikadl10sncbzr9wdwn44g4")))) (build-system python-build-system) (arguments `(#:phases @@ -191,6 +191,7 @@ homeserver and generally help bootstrap the ecosystem.") ("python-hpack" ,python-hpack) ("python-faker" ,python-faker) ("python-pytest-aiohttp" ,python-pytest-aiohttp) + ("python-pytest-asyncio" ,python-pytest-asyncio) ("python-aioresponses" ,python-aioresponses) ("python-pytest-benchmark" ,python-pytest-benchmark) ("python-toml" ,python-toml) @@ -206,7 +207,7 @@ homeserver and generally help bootstrap the ecosystem.") (file-name (git-file-name name version)) (sha256 (base32 - "152prkndk53pfxm4in4xak4hwzyaxlbp6wv2zbk2xpzgyy9bvn3s")))))) + "10j8g3ns3v1ghdn262dxg50ayaczdp1hj97pj4ydw02bncqhddpd")))))) (propagated-inputs (list python-aiofiles python-aiohttp @@ -216,7 +217,7 @@ homeserver and generally help bootstrap the ecosystem.") python-future python-h11 python-h2 - python-jsonschema + python-jsonschema-next python-logbook python-olm python-peewee @@ -234,7 +235,7 @@ fledged batteries-included asyncio layer using aiohttp.") (define-public pantalaimon (package (name "pantalaimon") - (version "0.10.3") + (version "0.10.5") (source (origin (method git-fetch) @@ -244,7 +245,7 @@ fledged batteries-included asyncio layer using aiohttp.") (file-name (git-file-name name version)) (sha256 (base32 - "153d8083lj3qqirbv5q1d3igzd61a5kyzfk7xmv29sd3jbs8ysm9")))) + "16ask8v00654q307c55q5gnm8hrj40gibpab5zl52v4i0bgl9j68")))) (build-system python-build-system) (arguments `(#:phases diff --git a/gnu/packages/mes.scm b/gnu/packages/mes.scm index 2823297e3f..72cdb503d7 100644 --- a/gnu/packages/mes.scm +++ b/gnu/packages/mes.scm @@ -98,14 +98,14 @@ extensive examples, including parsers for the Javascript and C99 languages.") (define-public nyacc (package (inherit nyacc-0.99) - (version "1.07.0") + (version "1.07.4") (source (origin (method url-fetch) (uri (string-append "mirror://savannah/nyacc/nyacc-" version ".tar.gz")) (sha256 (base32 - "01qb6h6bk684z8xda5d71q5f5l2z3q9jjz36if3jbpjc7b8dxjap")) + "1kr3b88sx0g9zy52algxqpvnkjm76qdyld7pasbbajkph2zhcj92")) (modules '((guix build utils))) (snippet '(substitute* "configure" diff --git a/gnu/packages/messaging.scm b/gnu/packages/messaging.scm index c19ec45a35..6516f46a54 100644 --- a/gnu/packages/messaging.scm +++ b/gnu/packages/messaging.scm @@ -36,6 +36,7 @@ ;;; Copyright © 2022 Jai Vetrivelan <jaivetrivelan@gmail.com> ;;; Copyright © 2022 Jack Hill <jackhill@jackhill.us> ;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com> +;;; Copyright © 2022 Giovanni Biscuolo <g@xelera.eu> ;;; ;;; This file is part of GNU Guix. ;;; @@ -2126,7 +2127,7 @@ is also scriptable and extensible via Guile.") (define-public libstrophe (package (name "libstrophe") - (version "0.12.0") + (version "0.12.2") (source (origin (method git-fetch) @@ -2135,7 +2136,7 @@ is also scriptable and extensible via Guile.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "1apply301lxyjax2677bd5mc0a3233nm5qb7fiqpawq2n7vh17v0")))) + (base32 "1ispq6sf7pq02irrqfga4i1xhrg1pg0f86qvvnix15clm8i1agld")))) (build-system gnu-build-system) (arguments (list #:configure-flags '(list "--disable-static") @@ -2167,7 +2168,7 @@ are both supported).") (define-public profanity (package (name "profanity") - (version "0.12.1") + (version "0.13.0") (source (origin (method url-fetch) @@ -2176,7 +2177,7 @@ are both supported).") version ".tar.gz")) (sha256 (base32 - "0vihmlzxr6n3y6v0vdzzxh5p1i09p0hx6sd1b2pnpcgkgcg4hi73")))) + "14n45zwc6fxjargqhwqan8fyb7x0ql0hmw56rbjkjfkhpba2qmks")))) (build-system glib-or-gtk-build-system) (arguments `(#:configure-flags @@ -2311,7 +2312,7 @@ notifications, and Python scripting support.") (define-public libqmatrixclient (package (name "libqmatrixclient") - (version "0.5.3.2") + (version "0.6.11") (source (origin (method git-fetch) @@ -2320,7 +2321,7 @@ notifications, and Python scripting support.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "0gkwr3yw6k2m0j8cc085b5p2q788rf5nhp1p5hc5d55pc7mci2qs")))) + (base32 "072d3irpdd0p4w77s5pp0baqf74hk7vqggw7ic7i42lzjdwp3yql")))) (build-system cmake-build-system) (inputs (list qtbase-5 qtmultimedia-5)) @@ -2482,7 +2483,7 @@ notification, emojis, E2E encryption, and voip calls.") (define-public quaternion (package (name "quaternion") - (version "0.0.9.4f") + (version "0.0.95.1") (outputs '("out" "debug")) (source (origin @@ -2492,12 +2493,13 @@ notification, emojis, E2E encryption, and voip calls.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "1q9ddz4rs02a0w3lwrsjnh59khv38cq9f0kv09vnwvazvayn87ck")))) + (base32 "10mzcr4rpyq5bl3h8wzxxlk8rdz7slhiq863xs77bmsq2pzf6lp8")))) (build-system qt-build-system) (inputs (list libqmatrixclient qtbase-5 qtdeclarative-5 + qtgraphicaleffects qtmultimedia-5 qtquickcontrols-5 qtquickcontrols2-5 @@ -2685,6 +2687,20 @@ support for high performance Telegram Bot creation.") (home-page "https://core.telegram.org/tdlib") (license license:boost1.0))) +(define-public tdlib-1.8.0 + (package + (inherit tdlib) + (name "tdlib-1.8.0") + (version "1.8.0") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/tdlib/td") + (commit (string-append "v" version)))) + (sha256 + (base32 + "19psqpyh9a2kzfdhgqkirpif4x8pzy89phvi59dq155y30a3661q")))))) + (define-public purple-mm-sms (package (name "purple-mm-sms") @@ -3382,7 +3398,7 @@ Weechat communicate over the Matrix protocol.") (define-public weechat-wee-slack (package (name "weechat-wee-slack") - (version "2.8.0") + (version "2.9.0") (source (origin (method git-fetch) @@ -3392,7 +3408,7 @@ Weechat communicate over the Matrix protocol.") (file-name (git-file-name name version)) (sha256 (base32 - "0xfklr0gsc9jgxfyrrb2j756lclz9g8imcb0pk0xgyj8mhsw23zk")))) + "01h9n6a39sgpczvjywvxb5z5vz3jb3h2xx2vspjkkz06gzwniijq")))) (build-system python-build-system) (arguments `(#:phases diff --git a/gnu/packages/multiprecision.scm b/gnu/packages/multiprecision.scm index 6c0d163a10..b96efed843 100644 --- a/gnu/packages/multiprecision.scm +++ b/gnu/packages/multiprecision.scm @@ -8,6 +8,7 @@ ;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2018, 2019, 2021 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2021 Vinicius Monego <monego@posteo.net> +;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -28,11 +29,15 @@ #:use-module (guix licenses) #:use-module (gnu packages) #:use-module (gnu packages autotools) + #:use-module (gnu packages bison) + #:use-module (gnu packages flex) #:use-module (gnu packages m4) #:use-module (gnu packages gcc) #:use-module (gnu packages texinfo) - #:use-module (guix packages) #:use-module (guix download) + #:use-module (guix gexp) + #:use-module (guix git-download) + #:use-module (guix packages) #:use-module (guix utils) #:use-module (guix build-system gnu)) @@ -156,32 +161,44 @@ precision and correctly rounds the results.") (home-page "http://www.multiprecision.org/mpc/"))) (define-public mpfi - (package - (name "mpfi") - (version "1.5.4") - (source - (origin - (method url-fetch) - (uri (string-append "https://gforge.inria.fr/frs/download.php" - "/latestfile/181/mpfi-" version ".tgz")) - (sha256 - (base32 "0mismr1ll3wp788dq2n22s5irm0dziy75byyfdwz22kjbmckhf9v")))) - (build-system gnu-build-system) - (arguments - `(#:tests? #f ;tests are broken in this release - #:configure-flags '("--enable-static=no"))) - (native-inputs - `(("automake" ,automake) - ("autoreconf" ,autoconf) - ("libtool" ,libtool) - ("texinfo" ,texinfo))) - (propagated-inputs - (list gmp ; <mpfi.h> refers to both - mpfr)) - (home-page "https://gforge.inria.fr/projects/mpfi/") - (synopsis "C library for arbitrary-precision interval arithmetic") - (description - "@acronym{MPFI, Multiple Precision Floating-point Interval} is a portable C + ;; The last release, 1.5.4, lacks source files such as div_ext.c and others + ;; (see: https://gitlab.inria.fr/mpfi/mpfi/-/issues/21721). Use the latest + ;; commit until a new release is made. + (let ((commit "b9825348f1e723ab0988105599b34f1f9cd5ff3e") + (revision "1")) + (package + (name "mpfi") + (version (git-version "1.5.4" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.inria.fr/mpfi/mpfi") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "141pa2ym1azka25bwkx2w1mf6wdcn155ncc45dr5bj5dycw2hj0m")))) + (build-system gnu-build-system) + (arguments + (list #:configure-flags #~(list "--enable-static=no") + #:phases #~(modify-phases %standard-phases + (add-after 'unpack 'chdir + (lambda _ + (chdir "mpfi"))) + (add-after 'unpack 'disable-problematic-tests + (lambda _ + ;; XXX: The tdiv_ext and trec_sqrt tests + ;; segfaults (not reported upstream; accounts on + ;; their gitlab apparently require to be + ;; manually created). + (setenv "XFAIL_TESTS" "tdiv_ext trec_sqrt")))))) + (native-inputs (list automake autoconf libtool texinfo)) + (propagated-inputs + (list gmp mpfr)) ;<mpfi.h> refers to both + (home-page "https://gitlab.inria.fr/mpfi/mpfi") + (synopsis "C library for arbitrary-precision interval arithmetic") + (description + "@acronym{MPFI, Multiple Precision Floating-point Interval} is a portable C library for arbitrary-precision interval arithmetic, with intervals represented using MPFR reliable floating-point numbers. It's based on the @acronym{GMP, GNU Multiple Precision Arithmetic} and GNU@tie{}@acronym{MPFR, Multiple Precision @@ -190,7 +207,7 @@ Floating-Point Reliably} libraries. The purpose of arbitrary-precision interval arithmetic is to get results that are both guaranteed, thanks to interval computation, and accurate, thanks to multiple-precision arithmetic.") - (license lgpl2.1+))) + (license lgpl2.1+)))) (define-public irram (package diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm index bbb58c0241..6b37c79389 100644 --- a/gnu/packages/music.scm +++ b/gnu/packages/music.scm @@ -3524,7 +3524,7 @@ event-based scripts for scrobbling, notifications, etc.") (define-public picard (package (name "picard") - (version "2.4.4") + (version "2.8.3") (source (origin (method url-fetch) (uri (string-append @@ -3532,30 +3532,35 @@ event-based scripts for scrobbling, notifications, etc.") "picard/picard-" version ".tar.gz")) (sha256 (base32 - "1c5l7i43jaj3s4wklc0cba6nn2x9cmpcggk4q4h9m1bci2xilsiy")) - (patches (search-patches "picard-fix-id3-rename-test.patch")))) + "0h4yk1y4k23hkfk7k2in27rd34ani857m0vvn7xa8vxizz951dka")))) (build-system python-build-system) (arguments - '(#:use-setuptools? #f - #:configure-flags - (list "--root=/" - ;; Don't phone home or show ‘Check for Update…’ in the Help menu. - "--disable-autoupdate") - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-source - (lambda* (#:key inputs #:allow-other-keys) - (substitute* "picard/const/__init__.py" - (("pyfpcalc") - (string-append - "pyfpcalc', '" - (assoc-ref inputs "chromaprint") "/bin/fpcalc"))) - #t))))) + (list + #:use-setuptools? #f + #:configure-flags + #~(list "--root=/" + ;; Don't phone home or show ‘Check for Update…’ in the Help menu. + "--disable-autoupdate") + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch-source + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "picard/const/__init__.py" + (("pyfpcalc") + (string-append + "pyfpcalc', '" + (assoc-ref inputs "chromaprint") "/bin/fpcalc")))))))) (native-inputs - `(("gettext" ,gettext-minimal) - ("python-dateutil" ,python-dateutil))) + (list gettext-minimal python-dateutil)) (inputs - (list chromaprint python-discid python-pyqt python-mutagen)) + (list chromaprint + python-discid + python-pyqt-without-qtwebkit + python-mutagen + python-fasteners + python-pyyaml + python-markdown + python-pyjwt)) (home-page "https://picard.musicbrainz.org/") (synopsis "Graphical music tagging application") (description @@ -6784,7 +6789,9 @@ streaming audio server.") "--ignore=tests/test_browsers_iradio.py" ;; broken upstream "--disable-warnings" - "--ignore=tests/quality") + "--ignore=tests/quality" + ;; missing legacy icons in adwaita-icon-theme + "--ignore=tests/plugin/test_trayicon.py") (format #t "test suite not run~%")))) (add-after 'install 'glib-or-gtk-wrap ; ensure icons loaded (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)) diff --git a/gnu/packages/networking.scm b/gnu/packages/networking.scm index 3d9ba4fc8d..def28b6172 100644 --- a/gnu/packages/networking.scm +++ b/gnu/packages/networking.scm @@ -40,6 +40,7 @@ ;;; Copyright © 2020 Jesse Dowell <jessedowell@gmail.com> ;;; Copyright © 2020 Hamzeh Nasajpour <h.nasajpour@pantherx.org> ;;; Copyright © 2020, 2022 Michael Rohleder <mike@rohleder.de> +;;; Copyright © 2021 Fakhri Sajadi <f.sajadi@pantherx.org> ;;; Copyright © 2021 Hartmut Goebel <h.goebel@crazy-compilers.com> ;;; Copyright © 2021 Justin Veilleux <terramorpha@cock.li> ;;; Copyright © 2021 Vinicius Monego <monego@posteo.net> @@ -48,9 +49,11 @@ ;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net> ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be> ;;; Copyright © 2022 Simon South <simon@simonsouth.net> +;;; Copyright © 2022 Pavel Shlyak <p.shlyak@pantherx.org> ;;; Copyright © 2022 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com> ;;; Copyright © 2022 Manolis Fragkiskos Ragkousis <manolis837@gmail.com> +;;; Copyright © 2022 Reza Alizadeh Majd <r.majd@pantherx.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -80,6 +83,7 @@ #:use-module (guix build-system meson) #:use-module (guix build-system perl) #:use-module (guix build-system python) + #:use-module (guix build-system qt) #:use-module (guix build-system trivial) #:use-module (guix utils) #:use-module (gnu packages) @@ -115,6 +119,7 @@ #:use-module (gnu packages gstreamer) #:use-module (gnu packages gtk) #:use-module (gnu packages image) + #:use-module (gnu packages kde-frameworks) #:use-module (gnu packages libevent) #:use-module (gnu packages libidn) #:use-module (gnu packages libusb) @@ -973,6 +978,33 @@ tasks.") (home-page "https://github.com/blueman-project/blueman") (license license:gpl3+))) +(define-public nm-tray + (package + (name "nm-tray") + (version "0.5.0") + (home-page "https://github.com/palinek/nm-tray") + (source (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit version))) + (sha256 + (base32 + "14i8sl0hrnyidlvqnxza0v4018f7p685ksn8419i2w7f9yqpvpiw")) + (file-name (git-file-name name version)))) + (build-system qt-build-system) + (arguments + (list #:tests? #f)) ;There are no tests upstream + (inputs (list qtbase-5 networkmanager-qt)) + (native-inputs (list qttools-5 pkg-config)) + (synopsis + "NetworkManager front-end with information icon residing in system tray") + (description + "nm-tray is a network connection management tool (NetworkManager +front-end) with an information icon residing in the system tray. Unlike +nm-applet, which is part of GNOME, this application is desktop-unaware.") + (license license:gpl2+))) + ;; The gnu.org ‘home’ for this GNU project is a directory listing with 1.6.0 as ;; the latest version. The author's git repository, mentioned in the 1.6.0 ;; README and otherwise legit-looking, contains a proper 1.7.0 release tarball @@ -1728,27 +1760,29 @@ of the same name.") (define-public wireshark (package (name "wireshark") - (version "3.6.7") + (version "4.0.0") (source (origin (method url-fetch) (uri (string-append "https://www.wireshark.org/download/src/wireshark-" version ".tar.xz")) (sha256 - (base32 "1idpxnh8vrvan3g0ymaa24bd4iyxi19xrr76sdrrpxx2r8shmqfc")))) + (base32 "1vddvizywy6kfxg0i3m0627f675i7sdp7k3ld9sjlp78hppjbh9x")))) (build-system cmake-build-system) (arguments `(#:phases (modify-phases %standard-phases - (add-after 'unpack 'remove-failing-test - ;; Skip test suite failing with "Program reassemble_test is not - ;; available" and alike errors. Also skip test suite failing with - ;; "AssertionError: Program extcap/sdjournal is not available" - ;; error.' - (lambda _ - (substitute* "CMakeLists.txt" - (("suite_unittests" all) (string-append "# " all)) - (("suite_extcaps" all) (string-append "# " all)))))) + (replace 'check + (lambda* (#:key tests? #:allow-other-keys) + ;; Skip test suite failing with "Program reassemble_test is not + ;; available" and alike errors. Also skip test suite failing + ;; with "AssertionError: Program extcap/sdjournal is not + ;; available" error.' + (when tests? + (invoke "ctest" + "-E" + (string-join (list "suite_unittests" "suite_extcaps") + "|")))))) ;; Build process chokes during `validate-runpath' phase. ;; ;; Errors are like the following: @@ -1777,6 +1811,7 @@ of the same name.") mit-krb5 `(,nghttp2 "lib") minizip + pcre2 qtbase-5 qtmultimedia-5 qtsvg-5 @@ -2010,7 +2045,7 @@ TCP connection, TLS handshake and so on) in the terminal.") '(#:configure-flags ;; disable -march=native in build for reproducibility; see ;; https://wiki.squid-cache.org/KnowledgeBase/IllegalInstructionError - (list "--disable-arch-native") + (list "--disable-arch-native" "--with-openssl") #:phases (modify-phases %standard-phases (add-before 'build 'fix-true-path diff --git a/gnu/packages/ocaml.scm b/gnu/packages/ocaml.scm index b8f8a6f70b..121b13c115 100644 --- a/gnu/packages/ocaml.scm +++ b/gnu/packages/ocaml.scm @@ -468,7 +468,7 @@ depend: $(STDLIB_MLIS) $(STDLIB_DEPS)")) (define-public ocamlbuild (package (name "ocamlbuild") - (version "0.14.1") + (version "0.14.2") (source (origin (method git-fetch) @@ -477,7 +477,7 @@ depend: $(STDLIB_MLIS) $(STDLIB_DEPS)")) (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "00ma0g6ajll9awp2bp303bawac8ync4k9w2a6vix0k4nw3003gb4")))) + (base32 "16q8s22msyfq66i1sbz99wj04a9x9ad95x458ixxacxsv0qqh2j0")))) (build-system ocaml-build-system) (arguments `(#:make-flags @@ -648,11 +648,14 @@ underlying solvers like Cplex, Gurobi, Lpsolver, Glpk, CbC, SCIP or WBO.") (name "ocaml-dose3") (version "5.0.1") (source (origin - (method url-fetch) - (uri "https://gforge.inria.fr/frs/download.php/file/36063/dose3-5.0.1.tar.gz") + (method git-fetch) + (uri (git-reference + (url "https://gitlab.com/irill/dose3") + (commit version))) + (file-name (git-file-name name version)) (sha256 (base32 - "00yvyfm4j423zqndvgc1ycnmiffaa2l9ab40cyg23pf51qmzk2jm")) + "0dxkw37gj8z45kd0dnrlfgpj8yycq0dphs8kjm9kvq9xc8rikxp3")) (patches (search-patches "ocaml-dose3-add-unix-dependency.patch" @@ -1081,7 +1084,7 @@ the OCaml core distribution.") (define-public emacs-tuareg (package (name "emacs-tuareg") - (version "3.0.0") + (version "3.0.1") (source (origin (method git-fetch) @@ -1090,7 +1093,7 @@ the OCaml core distribution.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "115vm0hq4xkwfd3w0j8xqhkdgcirlxpnwzwxv02c27583hj056is")))) + (base32 "1p3xpk78i8ywgdmc59w05wjjy9dg6gm5gicm08szmrlnx08v2ihm")))) (build-system gnu-build-system) (arguments (list @@ -2503,7 +2506,7 @@ simple (yet expressive) query language to select the tests to run.") (define-public ocaml-ppx-tools (package (name "ocaml-ppx-tools") - (version "6.5") + (version "6.6") (source (origin (method git-fetch) @@ -2513,7 +2516,7 @@ simple (yet expressive) query language to select the tests to run.") (file-name (git-file-name name version)) (sha256 (base32 - "0fwibah2hgllrnbdrmfqil5gr5raf6pb5h2zx6zs1h3d4ykvy8k8")))) + "1ms2i063cwsm8wcw7jixz3qx2f2prrmf0k44gbksvsgqvm1rl6s2")))) (build-system dune-build-system) (arguments ;; No tests @@ -4489,6 +4492,7 @@ sensitive completion, colors, and more.") (build-system dune-build-system) (arguments `(#:test-target "tests")) + (properties `((upstream-name . "ANSITerminal"))) (home-page "https://github.com/Chris00/ANSITerminal") (synopsis "Basic control of ANSI compliant terminals and the windows shell") @@ -5046,39 +5050,6 @@ yojson package. The program @code{atdgen} can be used to derive OCaml-JSON serializers and deserializers from type definitions.") (license license:bsd-3))) -(define-public ocaml-craml - (package - (name "ocaml-craml") - (version "1.0.0") - (home-page "https://github.com/realworldocaml/craml") - (source - (origin - (method git-fetch) - (uri (git-reference - (url (string-append home-page ".git")) - (commit version))) - (file-name (git-file-name name version)) - (sha256 - (base32 - "197xjp4vmzdymf2ndinw271ihpf45h04mx8gqj8ypspxdr5fj1a5")))) - (build-system dune-build-system) - (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'build 'upgrade - (lambda _ - (invoke "dune" "upgrade") - #t))))) - (inputs - (list ocaml-fmt ocaml-astring ocaml-logs ocaml-cmdliner)) - (synopsis - "CRAM-testing framework for testing command line applications") - (description "CRAM is a is functional testing framework for command line -applications. @code{craml} is freely inspired by the -Mercurial's @code{https://www.selenic.com/blog/?p=663, unified test -format}. @code{craml} is released as a single binary (called @code{craml}).") - (license license:isc))) - (define-public ocaml-merlin-lib (package (name "ocaml-merlin-lib") @@ -7860,7 +7831,7 @@ convenience functions for vectors and matrices.") (define-public ocaml-cairo2 (package (name "ocaml-cairo2") - (version "0.6.3") + (version "0.6.4") (source (origin (method git-fetch) (uri (git-reference @@ -7869,7 +7840,7 @@ convenience functions for vectors and matrices.") (file-name (git-file-name name version)) (sha256 (base32 - "1m0wh0s0sqjfa3mgq99lwk0dsg0bwxipaz93hq18m0lz5fqxib1m")))) + "06ag9b88ihhr7yd3s9l0ac7ysig02fmlmsswybbsvz71ni0mb105")))) (build-system dune-build-system) (arguments `(#:test-target "tests")) @@ -8180,7 +8151,7 @@ selection of character properties of the Unicode character database.") (define-public ocaml-uuseg (package (name "ocaml-uuseg") - (version "14.0.0") + (version "15.0.0") (source (origin (method url-fetch) @@ -8188,7 +8159,7 @@ selection of character properties of the Unicode character database.") "uuseg-" version ".tbz")) (sha256 (base32 - "1g9zyzjkhqxgbb9mh3cgaawscwdazv6y8kdqvmy6yhnimmfqv25p")))) + "1qz130wlmnvb6j7kpvgjlqmdm2jqid4wb1dmrsls4hdm4rp7gk5b")))) (build-system ocaml-build-system) (arguments '(#:build-flags '("build" "--tests" "true") diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm index 2d1fe914e3..7b5363aa8c 100644 --- a/gnu/packages/package-management.scm +++ b/gnu/packages/package-management.scm @@ -165,8 +165,8 @@ ;; Note: the 'update-guix-package.scm' script expects this definition to ;; start precisely like this. (let ((version "1.3.0") - (commit "9e4632081ff31bf0d1715edd66f514614c6dc4bb") - (revision 29)) + (commit "31708431c53524f05e6a0c9fed920cb773e7dd21") + (revision 31)) (package (name "guix") @@ -182,7 +182,7 @@ (commit commit))) (sha256 (base32 - "1x32l8szclv8zlwdjr8yfidxxm4n7dgm6j7xypmx5mg5pkakyan5")) + "1j8qq6zgr20d1gi4n5dmvd9afd3d0k2h86ypajfyaa6bxpfj5i1r")) (file-name (string-append "guix-" version "-checkout")))) (build-system gnu-build-system) (arguments @@ -1366,8 +1366,8 @@ environments.") "0k9zkdyyzir3fvlbcfcqy17k28b51i20rpbjwlx2i1mwd2pw9cxc"))))))) (define-public guix-build-coordinator - (let ((commit "31b3ab65da2d9a02f0453d12a81816b25c8ad75d") - (revision "60")) + (let ((commit "2cd06f2cf8a20f719aa3823eeffac8c39b768504") + (revision "62")) (package (name "guix-build-coordinator") (version (git-version "0" revision commit)) @@ -1378,7 +1378,7 @@ environments.") (commit commit))) (sha256 (base32 - "1hh1qy3xqpani3zfbm3wi4zw7f8cnbfjk4q1z7ynailadlfrkblk")) + "0jy7scw1vwgpz54yjzhw0kavws8f54xk287axmfd0dqqvbbb164l")) (file-name (string-append name "-" version "-checkout")))) (build-system gnu-build-system) (arguments diff --git a/gnu/packages/password-utils.scm b/gnu/packages/password-utils.scm index 003e346305..8e29bef484 100644 --- a/gnu/packages/password-utils.scm +++ b/gnu/packages/password-utils.scm @@ -36,6 +36,7 @@ ;;; Copyright © 2021 David Dashyan <mail@davie.li> ;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be> +;;; Copyright © 2022 ( <paren@disroot.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -58,6 +59,7 @@ #:use-module (guix build-system cmake) #:use-module (guix build-system gnu) #:use-module (guix build-system go) + #:use-module (guix build-system python) #:use-module (guix build-system trivial) #:use-module (guix download) #:use-module (guix gexp) @@ -80,6 +82,7 @@ #: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 golang) #:use-module (gnu packages gtk) @@ -109,8 +112,7 @@ #:use-module (gnu packages wxwidgets) #:use-module (gnu packages xdisorg) #:use-module (gnu packages xorg) - #:use-module (gnu packages xml) - #:use-module (guix build-system python)) + #:use-module (gnu packages xml)) (define-public pwgen (package @@ -757,7 +759,7 @@ using password-store through rofi interface: (define-public tessen (package (name "tessen") - (version "2.1.0") + (version "2.1.2") (source (origin (method git-fetch) (uri (git-reference @@ -766,7 +768,7 @@ using password-store through rofi interface: (file-name (git-file-name name version)) (sha256 (base32 - "1ddsjhzp1qy3jfhxlrzcxgp0gza234yc0sdlngwa3xdj0wr40zs0")))) + "01jaxakq847k3v2wid8fzhcmq8mraxz0q1j87s1jv75l1gy4qiij")))) (build-system gnu-build-system) (arguments (list #:tests? @@ -776,13 +778,17 @@ using password-store through rofi interface: (add-after 'unpack 'patch-wtype-path (lambda* (#:key inputs #:allow-other-keys) (substitute* "tessen" - (("wtype") (search-input-file inputs "/bin/wtype"))))) + (("notify-send") (search-input-file inputs + "/bin/notify-send")) + (("wl-copy") (search-input-file inputs "/bin/wl-copy")) + (("wtype") (search-input-file inputs "/bin/wtype")) + (("xdg-open") (search-input-file inputs "/bin/xdg-open"))))) (delete 'configure)) ;no configure script #:make-flags #~(list (string-append "PREFIX=" #$output)))) (native-inputs (list scdoc)) - (inputs (list wtype)) + (inputs (list libnotify wl-clipboard wtype xdg-utils)) (home-page "https://github.com/ayushnix/tessen") (synopsis "Frontend for password-store and gopass") (description "Tessen is a bash script that can autotype and copy data @@ -863,6 +869,39 @@ also install the browser extension for GNU IceCat or ungoogled-chromium separately.") (license license:isc))) +(define-public cpass + (package + (name "cpass") + (version "0.9.4") + (source (origin + (method url-fetch) + (uri (pypi-uri "cpass" version)) + (sha256 + (base32 + "1zp3a8mgqxn916fzj1v2yhgnl7v6s0vnd0qcghqs3qq648qmlwr5")))) + (build-system python-build-system) + (arguments + (list #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch-pass-refs + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "cpass.py" + (("'pass'") + (string-append "'" + (search-input-file inputs + "bin/pass") + "'")) + (("\\.password_store") + ".password-store"))))))) + (inputs (list password-store)) + (propagated-inputs (list python-urwid)) + (home-page "https://github.com/OliverLew/cpass") + (synopsis "Textual interface for @command{pass}") + (description + "@command{cpass} is a terminal user interface for @command{pass}. +It supports both vim-like keybindings and the mouse.") + (license license:expat))) + (define-public argon2 (package (name "argon2") diff --git a/gnu/packages/patches/giac-pari-gp-anyarg.patch b/gnu/packages/patches/giac-pari-gp-anyarg.patch new file mode 100644 index 0000000000..0441f6bcf9 --- /dev/null +++ b/gnu/packages/patches/giac-pari-gp-anyarg.patch @@ -0,0 +1,28 @@ +From 041d16b521d8231e5b441015f08bb386f9d2a51c Mon Sep 17 00:00:00 2001 +From: Vincent Delecroix <20100.delecroix@gmail.com*> +Date: Thu, 15 Sep 2022 12:11:01 +0200 +Subject: ANYARG giac patch + +--- +diff --git a/src/pari.cc b/src/pari.cc +index 76ce8e1..50d08ab 100644 +--- a/src/pari.cc ++++ b/src/pari.cc +@@ -40,6 +40,13 @@ using namespace std; + + #ifdef HAVE_LIBPARI + ++// Anyarg disappeared from PARI 2.15.0 ++#ifdef __cplusplus ++# define ANYARG ... ++#else ++# define ANYARG ++#endif ++ + #ifdef HAVE_PTHREAD_H + #include <pthread.h> + #endif + +-- +cgit v1.0-1-gd88e + diff --git a/gnu/packages/patches/icecat-use-older-reveal-hidden-html.patch b/gnu/packages/patches/icecat-use-older-reveal-hidden-html.patch deleted file mode 100644 index 228adc23f1..0000000000 --- a/gnu/packages/patches/icecat-use-older-reveal-hidden-html.patch +++ /dev/null @@ -1,70 +0,0 @@ -From 2e8618d22568b6e00892a17303d437dd700eca98 Mon Sep 17 00:00:00 2001 -From: Mark H Weaver <mhw@netris.org> -Date: Tue, 5 May 2020 21:27:41 -0400 -Subject: [PATCH] Revert "Update Reveal hidden HTML." - -I prefer the user interface of the old version. - -This reverts commit f6e3adb6b2344ee2c7bb453a305fd2d6fb4c194c. ---- - .../passive_improve_css.js | 23 ++++++++++++++----- - 1 file changed, 17 insertions(+), 6 deletions(-) - -diff --git a/data/extensions/SubmitMe@0xbeef.coffee/passive_improve_css.js b/data/extensions/SubmitMe@0xbeef.coffee/passive_improve_css.js -index 7692990..ca57982 100644 ---- a/data/extensions/SubmitMe@0xbeef.coffee/passive_improve_css.js -+++ b/data/extensions/SubmitMe@0xbeef.coffee/passive_improve_css.js -@@ -10,6 +10,8 @@ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLI - */ - - -+var bad = []; -+ - function escapeHTML (unsafe_str) { - return unsafe_str - .replace(/&/g, '&') -@@ -20,9 +22,14 @@ function escapeHTML (unsafe_str) { - .replace(/\//g, '/') - } - -+function dounhide(){ -+ for(var i = 0; i < bad.length; i++){ -+ bad[i].remove(); -+ } -+} -+ - console.log("passive_improve_css.js"); - function reveal_css(){ -- var bad = []; - - var elements = document.getElementsByTagName("style"); - for(var i = 0; i < elements.length; i++){ -@@ -41,16 +48,20 @@ function reveal_css(){ - - } - } -- if(bad.length > 0 && window.confirm("Hidden HTML detected, would you like to reveal it?")){ -- for(var i = 0; i < bad.length; i++){ -- bad[i].remove(); -- } -+ if(bad.length > 0){ -+ const insertedDiv = document.createElement('div'); -+ insertedDiv.innerHTML= '<p id="unhide" class="button white" style="text-decoration:none!important; color:#000!important; font-size:1em !important; font-family:\'sans-serif\'!important; font-weight:normal !important; background-color:transparent!important; margin:0!important; padding:0!important; font-size:10px!important; line-height:1!important"' + -+ 'alt="Click to reveal hidden elements in this page">' + -+ '<span>Reveal hidden elements</span>' + -+ '</a>'; -+ insertedDiv.style="position:fixed; bottom:1em; right:1em; opacity:0.8; z-index: 2147483647 !important; border-radius: 3px !important; background-color: #fff !important; padding: 0.5em !important; box-shadow: 0 0 3px grey !important; font-color:#bbb!important; cursor: pointer!important;"; -+ insertedDiv.addEventListener("click", dounhide, false); -+ document.body.insertBefore(insertedDiv, document.body.firstChild); - } - } - - reveal_css(); - -- - /* - var a = document.getElementsByTagName("style")[2]; - var btn = document.createElement("style"); // Create a <button> element --- -2.26.2 - diff --git a/gnu/packages/patches/picard-fix-id3-rename-test.patch b/gnu/packages/patches/picard-fix-id3-rename-test.patch deleted file mode 100644 index 3c4fa63c84..0000000000 --- a/gnu/packages/patches/picard-fix-id3-rename-test.patch +++ /dev/null @@ -1,11 +0,0 @@ -Index: b/test/formats/test_id3.py -=================================================================== ---- a/test/formats/test_id3.py -+++ b/test/formats/test_id3.py -@@ -266,5 +266,5 @@ - def test_rename_txxx_tags(self): - file_path = os.path.join('test', 'data', 'test-id3-rename-tags.mp3') -- filename = self.copy_file_tmp(file_path, 'mp3') -+ filename = self.copy_file_tmp(file_path, '.mp3') - raw_metadata = load_raw(filename) - self.assertIn('TXXX:Artists', raw_metadata) diff --git a/gnu/packages/patches/public-inbox-fix-spawn-test.patch b/gnu/packages/patches/public-inbox-fix-spawn-test.patch deleted file mode 100644 index 2739b1974d..0000000000 --- a/gnu/packages/patches/public-inbox-fix-spawn-test.patch +++ /dev/null @@ -1,43 +0,0 @@ -From 5593489d9c3ce22b1942f35c7ebb0e06fcf2bfa8 Mon Sep 17 00:00:00 2001 -From: Thiago Jung Bauermann <bauermann@kolabnow.com> -Date: Fri, 10 Jun 2022 12:39:18 -0300 -Subject: [PATCH] t/spawn: Find invalid PID to try to join its process group - -In the container used to build packages of the GNU Guix distribution, PID 1 -runs as the same user as the test so this spawn that should fail actually -succeeds. - -Fix the problem by going through different PIDs and picking one that -either doesn't exist or we aren't allowed to signal. ---- - -This patch is taken from the public-inbox repository and will appear in the -release after v1.8. - - t/spawn.t | 13 ++++++++++++- - 1 file changed, 12 insertions(+), 1 deletion(-) - -diff --git a/t/spawn.t b/t/spawn.t -index 6168c1f6171c..5fc99a2a101c 100644 ---- a/t/spawn.t -+++ b/t/spawn.t -@@ -24,7 +24,18 @@ SKIP: { - is(waitpid($pid, 0), $pid, 'waitpid succeeds on spawned process'); - is($?, 0, 'true exited successfully'); - pipe(my ($r, $w)) or BAIL_OUT; -- $pid = eval { spawn(['true'], undef, { pgid => 1, 2 => $w }) }; -+ -+ # Find invalid PID to try to join its process group. -+ my $wrong_pgid = 1; -+ for (my $i=0x7fffffff; $i >= 2; $i--) { -+ if (kill(0, $i) == 0) { -+ $wrong_pgid = $i; -+ last; -+ } -+ } -+ -+ # Test spawn behavior when it can't join the requested process group. -+ $pid = eval { spawn(['true'], undef, { pgid => $wrong_pgid, 2 => $w }) }; - close $w; - my $err = do { local $/; <$r> }; - # diag "$err ($@)"; diff --git a/gnu/packages/patches/python-louvain-fix-test.patch b/gnu/packages/patches/python-louvain-fix-test.patch new file mode 100644 index 0000000000..2127df681c --- /dev/null +++ b/gnu/packages/patches/python-louvain-fix-test.patch @@ -0,0 +1,15 @@ +https://github.com/taynaud/python-louvain/commit/638804ae636dc65306900ef6518ca0a1c9202566.diff + +diff --git a/test_community.py b/test_community.py +index 1ee1976..566a4b1 100644 +--- a/test_community.py ++++ b/test_community.py +@@ -203,7 +203,7 @@ def test_karate(self): + self.assertAlmostEqual(co.modularity(part, graph), + co.modularity(part_weight, + graph, +- "test_weight"), places=2) ++ "test_weight"), places=1) + + part_res_low = co.best_partition(graph, resolution=0.1) + self.assertTrue( diff --git a/gnu/packages/patches/scotch-build-parallelism.patch b/gnu/packages/patches/scotch-build-parallelism.patch deleted file mode 100644 index a669f1dbeb..0000000000 --- a/gnu/packages/patches/scotch-build-parallelism.patch +++ /dev/null @@ -1,39 +0,0 @@ -Fixes make with -j, otherwise scotch.h may not be generated by the time make -tries to compile library_graph_diam.o et al. - -Reported upstream at -https://gforge.inria.fr/tracker/index.php?func=detail&aid=21651&group_id=248&atid=1081 - -diff --git a/src/libscotch/Makefile b/src/libscotch/Makefile -index 9898894..b0ee14c 100644 ---- a/src/libscotch/Makefile -+++ b/src/libscotch/Makefile -@@ -2229,6 +2229,28 @@ library_graph_color_f$(OBJ) : library_graph_color_f.c \ - common.h \ - scotch.h - -+library_graph_diam$(OBJ) : library_graph_diam.c \ -+ module.h \ -+ common.h \ -+ graph.h \ -+ scotch.h -+ -+library_graph_diam_f$(OBJ) : library_graph_diam.c \ -+ module.h \ -+ common.h \ -+ scotch.h -+ -+library_graph_induce$(OBJ) : library_graph_diam.c \ -+ module.h \ -+ common.h \ -+ graph.h \ -+ scotch.h -+ -+library_graph_induce_f$(OBJ) : library_graph_diam.c \ -+ module.h \ -+ common.h \ -+ scotch.h -+ - library_graph_io_chac$(OBJ) : library_graph_io_chac.c \ - module.h \ - common.h \ diff --git a/gnu/packages/patches/scotch-integer-declarations.patch b/gnu/packages/patches/scotch-integer-declarations.patch deleted file mode 100644 index 978625c1c0..0000000000 --- a/gnu/packages/patches/scotch-integer-declarations.patch +++ /dev/null @@ -1,37 +0,0 @@ -diff --git a/src/libscotch/library.h b/src/libscotch/library.h -index 1891c19..ecc0533 100644 ---- a/src/libscotch/library.h -+++ b/src/libscotch/library.h -@@ -67,6 +67,8 @@ - - /*+ Integer type. +*/ - -+#include <stdint.h> -+ - typedef DUMMYIDX SCOTCH_Idx; - - typedef DUMMYINT SCOTCH_Num; -diff --git a/src/libscotchmetis/library_metis.h b/src/libscotchmetis/library_metis.h -index e6767e1..04e71c3 100644 ---- a/src/libscotchmetis/library_metis.h -+++ b/src/libscotchmetis/library_metis.h -@@ -99,6 +99,7 @@ typedef enum { - */ - - #ifndef SCOTCH_H /* In case "scotch.h" not included before */ -+#include <stdint.h> - typedef DUMMYINT SCOTCH_Num; - #endif /* SCOTCH_H */ - -diff --git a/src/libscotchmetis/library_parmetis.h b/src/libscotchmetis/library_parmetis.h -index 6d2f0b0..3c803fc 100644 ---- a/src/libscotchmetis/library_parmetis.h -+++ b/src/libscotchmetis/library_parmetis.h -@@ -106,6 +106,7 @@ typedef enum { - */ - - #ifndef SCOTCH_H /* In case "scotch.h" not included before */ -+#include <stdint.h> - typedef DUMMYINT SCOTCH_Num; - #endif /* SCOTCH_H */ - diff --git a/gnu/packages/patches/sssd-optional-systemd.patch b/gnu/packages/patches/sssd-optional-systemd.patch index 0784fdc7aa..e6d74e79fa 100644 --- a/gnu/packages/patches/sssd-optional-systemd.patch +++ b/gnu/packages/patches/sssd-optional-systemd.patch @@ -2,7 +2,7 @@ Allow running sss_analyze without Python modules for systemd. Upstream PR: https://github.com/SSSD/sssd/pull/6125 diff --git a/src/tools/analyzer/modules/request.py b/src/tools/analyzer/modules/request.py -index b96a23c05..28ac2f194 100644 +index b9fe3caf8..51ec3a151 100644 --- a/src/tools/analyzer/modules/request.py +++ b/src/tools/analyzer/modules/request.py @@ -1,8 +1,6 @@ @@ -14,7 +14,7 @@ index b96a23c05..28ac2f194 100644 from sssd.parser import SubparsersAction from sssd.parser import Option -@@ -77,8 +75,10 @@ class RequestAnalyzer: +@@ -76,8 +74,10 @@ class RequestAnalyzer: Instantiated source object """ if args.source == "journald": @@ -25,7 +25,7 @@ index b96a23c05..28ac2f194 100644 source = Files(args.logdir) return source -@@ -143,7 +143,7 @@ class RequestAnalyzer: +@@ -142,7 +142,7 @@ class RequestAnalyzer: self.consumed_logs.append(line.rstrip(line[-1])) else: # files source includes newline @@ -34,12 +34,12 @@ index b96a23c05..28ac2f194 100644 print(line, end='') else: print(line) -@@ -225,7 +225,7 @@ class RequestAnalyzer: - source.set_component(component, False) - self.done = "" - for line in self.matched_line(source, patterns): -- if isinstance(source, Journald): -+ if type(source).__name__ == 'Journald': - print(line) - else: - self.print_formatted(line, args.verbose) +@@ -240,7 +240,7 @@ class RequestAnalyzer: + self.print_formatted_verbose(source, patterns) + else: + for line in self.matched_line(source, patterns): +- if isinstance(source, Journald): ++ if type(source).__name__ == 'Journald': + print(line) + else: + self.print_formatted(line) diff --git a/gnu/packages/pdf.scm b/gnu/packages/pdf.scm index d698450656..430857bf30 100644 --- a/gnu/packages/pdf.scm +++ b/gnu/packages/pdf.scm @@ -18,7 +18,7 @@ ;;; Copyright © 2019 Ben Sturmfels <ben@sturm.com.au> ;;; Copyright © 2019,2020 Hartmut Goebel <h.goebel@crazy-compilers.com> ;;; Copyright © 2020-2022 Nicolas Goaziou <mail@nicolasgoaziou.fr> -;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de> +;;; Copyright © 2020, 2022 Michael Rohleder <mike@rohleder.de> ;;; Copyright © 2020 Timotej Lazar <timotej.lazar@araneo.si> ;;; Copyright © 2020, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be> @@ -112,7 +112,7 @@ (define-public extractpdfmark (package (name "extractpdfmark") - (version "1.1.0") + (version "1.1.1") (source (origin (method git-fetch) @@ -121,21 +121,21 @@ (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "14aa6zly53j8gx5d32caiabk2j4b102xha0v9149yahz6kbn5b80")))) + (base32 "0yzc3ajgdfb4ssxp49g2vrki45kl144j39bg0wdn6h9dc14kzmx4")))) (build-system gnu-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'check 'start-xorg-server - ;; The test suite wants to write to /homeless-shelter - (lambda _ (setenv "HOME" (getcwd))))))) + (list #:phases + #~(modify-phases %standard-phases + (add-before 'check 'set-home + ;; The test suite wants to write to /homeless-shelter + (lambda _ (setenv "HOME" (getcwd))))))) (native-inputs - `(("autoconf" ,autoconf) - ("automake" ,automake) - ("gettext" ,gettext-minimal) - ("ghostscript" ,ghostscript) - ("pkg-config" ,pkg-config) - ("texlive" ,texlive-tiny))) + (list autoconf + automake + gettext-minimal + ghostscript + pkg-config + texlive-tiny)) (inputs (list poppler)) (home-page "https://github.com/trueroad/extractpdfmark") @@ -727,24 +727,36 @@ extracting content or merging files.") (define-public python-pydyf (package (name "python-pydyf") - (version "0.1.2") + (version "0.3.0") (source (origin (method url-fetch) (uri (pypi-uri "pydyf" version)) (sha256 - (base32 "0b30g3hhxw1bg18r9ax85i1dkg8vy1y1wzas0bg0bxblh7j5sbqy")))) + (base32 "18q43g5d9455msipcgd5fvnh8m4a2rz189slzfg80yycjw66rshs")))) (build-system python-build-system) (arguments (list #:phases #~(modify-phases %standard-phases + (replace 'build + (lambda _ + (invoke "python" "-m" "build" "--wheel" "--no-isolation" "."))) + (replace 'install + (lambda _ + (let ((whl (car (find-files "dist" "\\.whl$")))) + (invoke "pip" "--no-cache-dir" "--no-input" + "install" "--no-deps" "--prefix" #$output whl)))) (replace 'check (lambda* (#:key tests? #:allow-other-keys) (when tests? (invoke "pytest" "-vv" "-c" "/dev/null"))))))) (propagated-inputs (list python-pillow)) - (native-inputs (list ghostscript python-pytest)) + (native-inputs + (list ghostscript + python-flit-core + python-pypa-build + python-pytest)) (home-page "https://github.com/CourtBouillon/pydyf") (synopsis "Low-level PDF generator") (description "@code{pydyf} is a low-level PDF generator written in Python @@ -1276,7 +1288,7 @@ manage or manipulate PDFs.") (define-public pdfarranger (package (name "pdfarranger") - (version "1.8.2") + (version "1.9.1") (source (origin (method git-fetch) @@ -1285,19 +1297,19 @@ manage or manipulate PDFs.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "18bpnnwjx72d5ps06dr89mkixiwzc9hf5gr75k8qcnrkshl038v2")))) + (base32 "1s0ysg8kfbrvwcr80vrsx7150ixa9v7pb4xm49s97nkiq5k69hal")))) (build-system python-build-system) (arguments - '(#:tests? #f ;no tests - #:phases - (modify-phases %standard-phases - (add-after 'install 'wrap-for-typelib - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (program (string-append out "/bin/pdfarranger"))) - (wrap-program program - `("GI_TYPELIB_PATH" ":" prefix - (,(getenv "GI_TYPELIB_PATH")))))))))) + (list + #:tests? #f ;no tests + #:phases + #~(modify-phases %standard-phases + (add-after 'install 'wrap-for-typelib + (lambda _ + (let ((program (string-append #$output "/bin/pdfarranger"))) + (wrap-program program + `("GI_TYPELIB_PATH" ":" prefix + (,(getenv "GI_TYPELIB_PATH")))))))))) (native-inputs (list intltool python-distutils-extra)) (inputs diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm index 6eab98ab74..b5944eb0dc 100644 --- a/gnu/packages/perl.scm +++ b/gnu/packages/perl.scm @@ -11641,6 +11641,28 @@ method calls. Furthermore, a partial sequence can be created and held, and used as the head of many different sequences.") (license license:perl-license))) +(define-public perl-file-fcntllock + (package + (name "perl-file-fcntllock") + (version "0.22") + (source (origin + (method url-fetch) + (uri (string-append + "mirror://cpan/authors/id/J/JT/JTT/File-FcntlLock-" version + ".tar.gz")) + (sha256 + (base32 + "1pxwknq4lw0wqpkh8pf18qsjf9g503vx6a5184vvffprzwpbp6ls")))) + (build-system perl-build-system) + (home-page "https://metacpan.org/release/File-FcntlLock") + (synopsis "File locking with fcntl(2)") + (description "File locking in Perl is usually done using the @code{flock} +function. Unfortunately, this only allows locks on whole files and is often +implemented in terms of the @code{flock(2)} system function which has some +shortcomings (especially concerning locks on remotely mounted file systems) +and slightly different behaviour than @code{fcntl(2)}.") + (license license:perl-license))) + (define-public perl-font-ttf (package (name "perl-font-ttf") diff --git a/gnu/packages/python-crypto.scm b/gnu/packages/python-crypto.scm index dfc0bad7a0..7b7aac6201 100644 --- a/gnu/packages/python-crypto.scm +++ b/gnu/packages/python-crypto.scm @@ -1246,13 +1246,13 @@ been constructed to maintain extensive documentation on how to use (define-public python-pyotp (package (name "python-pyotp") - (version "2.4.1") + (version "2.7.0") (source (origin (method url-fetch) (uri (pypi-uri "pyotp" version)) (sha256 - (base32 "0jsqfmx9i7j8z81r4zazv76xzy1fcq8v9s2r4kvx7ajfndq3z2h3")))) + (base32 "1dbcgpf576kmrpkx3ly8jq4g5g22r9n1rra55c1xqxyzl2mrz66f")))) (build-system python-build-system) (home-page "https://github.com/pyauth/pyotp") (synopsis "Python One Time Password Library") @@ -1760,3 +1760,33 @@ supply a handful of python functions as methods to a class.") (description "This package provides a Python ECDSA library, optimized for speed but without C extensions.") (license license:expat))) + +(define-public python-zxcvbn + (package + (name "python-zxcvbn") + (version "4.4.28") + (source (origin + (method git-fetch) ;for tests + (uri (git-reference + (url "https://github.com/dwolfhub/zxcvbn-python") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0xzlsqc9h0llfy19w4m39jgfcnvzqviv8jhgwn3r75kip97i5mvs")))) + (build-system python-build-system) + (home-page "https://github.com/dwolfhub/zxcvbn-python") + (synopsis "Realistic password strength estimator Python library") + (description "This is a Python implementation of the @code{zxcvbn} library +created at Dropbox. The original library, written for JavaScript, can be +found @url{https://github.com/dropbox/zxcvbn, here}. This port includes +features such as: +@enumerate +@item Accepts user data to be added to the dictionaries that are tested +against (name, birthdate, etc.) +@item Gives a score to the password, from 0 (terrible) to 4 (great). +@item Provides feedback on the password and ways to improve it. +@item Returns time estimates on how long it would take to guess the password +in different situations. +@end enumerate") + (license license:expat))) diff --git a/gnu/packages/python-web.scm b/gnu/packages/python-web.scm index 41a72089ec..f5625cc305 100644 --- a/gnu/packages/python-web.scm +++ b/gnu/packages/python-web.scm @@ -56,6 +56,8 @@ ;;; Copyright © 2022 Nicolas Graves <ngraves@ngraves.fr> ;;; Copyright © 2022 Tomasz Jeneralczyk <tj@schwi.pl> ;;; Copyright © 2022 msimonin <matthieu.simonin@inria.fr> +;;; Copyright © 2022 Michael Rohleder <mike@rohleder.de> +;;; Copyright © 2022 Baptiste Strazzulla <bstrazzull@hotmail.fr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -432,14 +434,14 @@ Callback Hell. (define-public python-aiohttp-socks (package (name "python-aiohttp-socks") - (version "0.6.0") + (version "0.7.1") (source (origin (method url-fetch) (uri (pypi-uri "aiohttp_socks" version)) (sha256 (base32 - "04w010bvi719ifpc3sshav95k10hf9nq8czn9yglkj206yxcypdr")))) + "06il43dv6qm858af841vq9qadw6h7qsfs06nnwagmwqyi72cl592")))) (build-system python-build-system) (propagated-inputs (list python-aiohttp python-attrs python-socks)) @@ -563,13 +565,13 @@ WSGI. This package includes libraries for implementing ASGI servers.") (define-public python-aws-sam-translator (package (name "python-aws-sam-translator") - (version "1.40.0") + (version "1.51.0") (source (origin (method url-fetch) (uri (pypi-uri "aws-sam-translator" version)) (sha256 (base32 - "1hq5ggbzcq4k3ks439hki493w4sasgaxns6j5x57xsj822acalmf")))) + "1ywzchc3nk13xh593j7b14qp3y0fdx7cfbdhnm34p39av66xffac")))) (build-system python-build-system) (arguments `(;; XXX: Tests are not distributed with the PyPI archive, and would @@ -710,7 +712,7 @@ decode and default on encode. (define-public python-cfn-lint (package (name "python-cfn-lint") - (version "0.54.3") + (version "0.65.0") (home-page "https://github.com/aws-cloudformation/cfn-lint") (source (origin (method git-fetch) @@ -720,11 +722,16 @@ decode and default on encode. (file-name (git-file-name name version)) (sha256 (base32 - "106qf19n2k6sdjkb4006aidibd24qqiw901c1613xgjpnyw4dyl6")))) + "1rfacp39jssrbchrzb49vwrqyzhx5v7jfcgngqnb9r7qfs4bwi3w")))) (build-system python-build-system) (arguments `(#:phases (modify-phases %standard-phases + (add-after 'unpack 'skip-network-test + (lambda _ + ;; This test requires networking. + (substitute* "test/unit/module/formatters/test_formatters.py" + (("def test_sarif_formatter") "def _test_sarif_formatter")))) (replace 'check (lambda* (#:key inputs outputs tests? #:allow-other-keys) (when tests? @@ -744,11 +751,14 @@ decode and default on encode. (list python-pydot python-mock)) (propagated-inputs (list python-aws-sam-translator + python-importlib-resources + python-jschema-to-python python-jsonpatch python-jsonschema python-junit-xml python-networkx python-pyyaml + python-sarif-om python-six)) (synopsis "Validate CloudFormation templates") (description @@ -757,6 +767,45 @@ the CloudFormation spec and additional checks. Includes checking valid values for resource properties and best practices.") (license license:expat))) +(define-public python-jschema-to-python + (package + (name "python-jschema-to-python") + (version "1.2.3") + (source (origin + (method url-fetch) + (uri (pypi-uri "jschema_to_python" version)) + (sha256 + (base32 + "14cvaiwm56g0v6p7zviikaa5i9ln3yqy910jmp60hirhbpz19zvn")))) + (build-system python-build-system) + (propagated-inputs (list python-attrs python-jsonpickle python-pbr)) + (native-inputs (list python-pytest)) + (home-page "https://github.com/microsoft/jschema-to-python") + (synopsis "Generate Python classes from a JSON schema.") + (description "This package generates source code for Python classes from a +@url{http://jschema.org,JSchema} JSON schema.") + (license license:expat))) + +(define-public python-sarif-om + (package + (name "python-sarif-om") + (version "1.0.4") + (source (origin + (method url-fetch) + (uri (pypi-uri "sarif_om" version)) + (sha256 + (base32 + "167gb8xjm0310km3w1s12bqldbv7zyklkr4j5900vq4361ml2pyd")))) + (build-system python-build-system) + (propagated-inputs (list python-attrs)) + (native-inputs (list python-pbr)) + (home-page "https://github.com/microsoft/sarif-python-om") + (synopsis "Python implementation of the SARIF 2.1.0 object model.") + (description "This module contains classes for the object model defined +by the @url{https://sarifweb.azurewebsites.net,Static Analysis Results +Interchange Format (SARIF)} file format.") + (license license:expat))) + (define-public python-falcon (package (name "python-falcon") @@ -3214,6 +3263,26 @@ supports url redirection and retries, and also gzip and deflate decoding.") Amazon Web Services (AWS) API.") (license license:asl2.0))) +(define-public awscli-2 + (package + (inherit awscli) + (name "awscli") + (version "2.2.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri (string-append name "v2") version)) + (sha256 + (base32 + "0g1icsy2l4n540gnhliypy830dfp08hpfc3rk12dlxgc9v3ra4wl")))) + (arguments + ;; FIXME: The 'pypi' release does not contain tests. + '(#:tests? #f)) + (inputs + (list python-importlib-resources + python-executor)))) + + (define-public python-wsgiproxy2 (package (name "python-wsgiproxy2") @@ -6561,14 +6630,14 @@ your code non-blocking and speedy.") (define-public python-socks (package (name "python-socks") - (version "1.2.4") + (version "2.0.3") (source (origin (method url-fetch) (uri (pypi-uri "python-socks" version)) (sha256 (base32 - "1n6xb18jy41ybgkmamakg6psp3qididd45qknxiggngaiibz43kx")))) + "12msk06c0glljcrx1byd78xgv05lxw81vknqwhn8ccs7an7cmag3")))) (build-system python-build-system) (arguments `(#:tests? #f ; tests not included @@ -6577,8 +6646,7 @@ your code non-blocking and speedy.") (replace 'check (lambda* (#:key tests? #:allow-other-keys) (when tests? - (invoke "pytest" "tests/" "-s")) - #t))))) + (invoke "pytest" "tests/" "-s"))))))) (propagated-inputs (list python-async-timeout python-curio python-trio)) (native-inputs diff --git a/gnu/packages/python-xyz.scm b/gnu/packages/python-xyz.scm index 74c4104d7a..c45e6019b5 100644 --- a/gnu/packages/python-xyz.scm +++ b/gnu/packages/python-xyz.scm @@ -130,6 +130,7 @@ ;;; Copyright © 2022 Tomasz Jeneralczyk <tj@schwi.pl> ;;; Copyright © 2022 Mathieu Laparie <mlaparie@disr.it> ;;; Copyright © 2022 Garek Dyszel <garekdyszel@disroot.org> +;;; Copyright © 2022 Baptiste Strazzulla <bstrazzull@hotmail.fr> ;;; ;;; This file is part of GNU Guix. ;;; @@ -554,6 +555,37 @@ decorators, including variants of the Python standard library's @code{lru_cache} function decorator.") (license license:expat))) +(define-public python-cobib + (package + (name "python-cobib") + (version "3.5.2") + (source (origin + (method url-fetch) + (uri (pypi-uri "cobib" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "16nbrbvascbf6cb7yvn9q793dy8zx703pqrmk3mswib9a19mnx3n")))) + (build-system python-build-system) + (propagated-inputs + (list python-beautifulsoup4 + python-bibtexparser + python-pylatexenc + python-requests + python-requests-oauthlib + python-ruamel.yaml)) + (native-inputs + (list python-future + python-pyte + python-pytest)) + (home-page "https://gitlab.com/mrossinek/cobib") + (synopsis "Terminal-based bibliography management tool") + (description + "@command{cobib} is a command-line based bibliography management tool. +It uses a plain-text database, a location-independent library, and features +git integration, command-line support, and a curses-based TUI.") + (license license:expat))) + (define-public python-colorful (package (name "python-colorful") @@ -1619,6 +1651,25 @@ concepts.") approximate nearest neighbor search with Python bindings.") (license license:asl2.0))) +(define-public python-pylatexenc + (package + (name "python-pylatexenc") + (version "2.10") + (source (origin + (method url-fetch) + (uri (pypi-uri "pylatexenc" version)) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1ls09z47b5md71gkxcj7fd87ynpvv2walgp2w6z31p26xf2gvn1x")))) + (build-system python-build-system) + (home-page "https://github.com/phfaist/pylatexenc") + (synopsis "LaTeX parser for Unicode/LaTeX conversion") + (description + "@code{python-pylatexenc} is a LaTeX parser providing LaTeX-to-Unicode and +Unicode-to-LaTeX conversion.") + (license license:expat))) + (define-public python-pyls-black (package (name "python-pyls-black") @@ -7278,6 +7329,30 @@ buffer transformation, compression, and decompression functions for use in the tifffile, czifile, and other scientific image input/output modules.") (license license:bsd-3))) +(define-public python-property-manager + (package + (name "python-property-manager") + (version "3.0") + (source + (origin + (method url-fetch) + (uri (pypi-uri "property-manager" version)) + (sha256 + (base32 "0m3w4spr8f39xnm65naw29ncal4r453kn7ndqb63rwbsmslnvrwk")))) + (build-system python-build-system) + (native-inputs + (list python-pytest-cov)) + (propagated-inputs + (list python-verboselogs + python-humanfriendly + python-coloredlogs)) + (home-page "https://github.com/xolox/python-property-manager") + (synopsis "Useful property variants for Python programming") + (description "The @code{property-manager} package defines several custom +property variants for Python programming including required properties, +writable properties, cached properties, etc.") + (license license:expat))) ; MIT license + (define-public python-executing (package (name "python-executing") @@ -7299,6 +7374,32 @@ tifffile, czifile, and other scientific image input/output modules.") currently doing, particularly the AST node being executed.") (license license:expat))) +(define-public python-executor + (package + (name "python-executor") + (version "23.2") + (source + (origin + (method url-fetch) + (uri (pypi-uri "executor" version)) + (sha256 + (base32 "0g83yr54j0vcwhy6h7n0jsd7q0q630kwa6v9kqzlzrm9xj6c3ip1")))) + (build-system python-build-system) + (arguments + `(#:tests? #f)) ; TODO: tests require root/sudo + (propagated-inputs + (list python-six + python-property-manager + python-fasteners + python-virtualenv)) + (home-page "https://github.com/xolox/python-executor") + (synopsis "Programmer friendly subprocess wrapper") + (description "The @code{executor} package is a simple wrapper for Python’s +subprocess module that makes it very easy to handle subprocesses on UNIX +systems with proper escaping of arguments and error checking currently doing, +particularly the AST node being executed.") + (license license:expat))) ; MIT license + (define-public python-roifile (package (name "python-roifile") @@ -9479,13 +9580,13 @@ interfaces in an easy and portable manner.") (define-public python-networkx (package (name "python-networkx") - (version "2.6.2") + (version "2.8.6") (source (origin (method url-fetch) (uri (pypi-uri "networkx" version)) (sha256 - (base32 "1fqrq7gc0nn4rd4zqibw96cap75vb5nlixapkajwawp71jaz21i3")))) + (base32 "19h18f5j79l7kmwm5cvm75fadjgmkzw5m3pyvb9cnq0860q7faxx")))) (build-system python-build-system) (arguments '(#:phases (modify-phases %standard-phases @@ -11198,6 +11299,23 @@ checksums. It implement more than a hundred checksum routines.") blocks or callables with two context managers and two decorators.") (license license:expat))) +(define-public python-timeout-decorator + (package + (name "python-timeout-decorator") + (version "0.5.0") + (source (origin + (method url-fetch) + (uri (pypi-uri "timeout-decorator" version)) + (sha256 + (base32 + "1mxk2qyydhzncm93z08kvj5ssxq3fr2n7pkrrji28nqwvdc2ybva")))) + (build-system python-build-system) + (home-page "https://github.com/pnpnpn/timeout-decorator") + (synopsis "Timeout decorator") + (description "This package provides a decorator that raises an error +when an operation takes longer than expected.") + (license license:expat))) + (define-public python-straight-plugin (package (name "python-straight-plugin") @@ -15957,6 +16075,49 @@ is made as zipfile like as possible.") syntax highlighting, markdown and more to the terminal.") (license license:expat))) +(define-public python-textual + (package + (name "python-textual") + (version "0.1.18") + (source (origin + (method url-fetch) + (uri (pypi-uri "textual" version)) + (sha256 + (base32 + "08yg5a51hz1axfj5hx28hx31gq5apcj6vpkkmawmiplisa73z25j")))) + (build-system python-build-system) + (arguments + (let ((tests + ;; The release on pypi comes without tests. We can't build + ;; from this checkout, though, because installation requires + ;; an invocation of poetry. + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/Textualize/textual") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0b3ycwqhp21mg9fvmadgxhgbvkwq6fd784l2xcmvy77rravrnnax"))))) + (list #:phases + #~(modify-phases %standard-phases + (replace 'check + (lambda* (#:key tests? #:allow-other-keys) + (when tests? + (copy-recursively #$(file-append tests "/tests") + "tests") + (invoke "python" "-m" "pytest" "-vv")))))))) + (propagated-inputs + (list python-rich python-typing-extensions)) + (native-inputs + (list python-pytest)) + (home-page "https://github.com/Textualize/textual") + (synopsis "Build text user interfaces in Python") + (description "Textual is a @acronym{TUI, Text User Interface} framework +for Python inspired by modern web development.") + (license license:expat))) + (define-public python-magic (package (name "python-magic") @@ -24237,7 +24398,7 @@ time-or-computationally-expensive properties quick and easy and works in Python (define-public python-folium (package (name "python-folium") - (version "0.12.1") + (version "0.13.0") (source (origin ;; PyPI has a ".whl" file but not a proper source release. @@ -24248,7 +24409,7 @@ time-or-computationally-expensive properties quick and easy and works in Python (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "1q05pzca3wfwgnbg03l3bagnhh348yx68w4aa91rg3g8zlviwjz1")))) + (base32 "00adpdi1890zzzg7ffp04hmx59igdcdpyqa129vnmwqh54b5a006")))) (build-system python-build-system) (propagated-inputs (list python-branca python-jinja2 python-numpy python-requests)) @@ -27931,6 +28092,38 @@ characteristics. These measures are basically linear regressions based on the number of words, syllables, and sentences.") (license license:asl2.0))) +(define-public python-readability-lxml + (package + (name "python-readability-lxml") + (version "0.8.1") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/buriy/python-readability") + (commit (string-append "v" version)))) + (sha256 + (base32 + "13nfy2v0pbbf62jn9qwgi489gg97hbb22q6w3f78mnvjxd2m19rh")) + (snippet + #~(begin (delete-file "readability/compat/two.py"))))) + (build-system python-build-system) + (arguments + (list + #:phases + #~(modify-phases %standard-phases + (replace 'check + (lambda* (#:key tests? #:allow-other-keys) + (when tests? + (invoke "python" "-m" "pytest" "-v" "tests/"))))))) + (propagated-inputs (list python-chardet python-cssselect python-lxml)) + (native-inputs (list python-timeout-decorator python-pytest)) + (home-page "http://github.com/buriy/python-readability") + (synopsis "HTML to text parser") + (description + "This package provides classes and function that strip gratuitous markup +from web pages to make them easier to read.") + (license license:asl2.0))) + (define-public python-listparser (package (name "python-listparser") diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm index 64db8ea67c..134215ebeb 100644 --- a/gnu/packages/qt.scm +++ b/gnu/packages/qt.scm @@ -220,7 +220,7 @@ window managers, that don't provide Qt integration by themselves.") (list cmake-shared extra-cmake-modules pkg-config)) (inputs `(("qtbase" ,qtbase-5) - ("qtwayland" ,qtwayland) + ("qtwayland" ,qtwayland-5) ("wayland" ,wayland) ("xkbcommon" ,libxkbcommon))) (synopsis "Material Decoration for Qt") @@ -1448,7 +1448,7 @@ record media, and manage a collection of media content. It also contains a set of plugins for interacting with pulseaudio and GStreamer.") (license (package-license qtbase)))) -(define-public qtwayland +(define-public qtwayland-5 (package (inherit qtsvg-5) (name "qtwayland") (version "5.15.5") @@ -1496,6 +1496,56 @@ set of plugins for interacting with pulseaudio and GStreamer.") (description "The Qt Wayland module provides the QtWayland client and compositor libraries."))) +(define-public qtwayland + (package + (name "qtwayland") + (version "6.3.1") + (source + (origin + (method url-fetch) + (uri (qt-urls name version)) + (sha256 + (base32 "1w60p1did7awdlzq5k8vnq2ncpskb07cpvz31cbv99bjs6igw53g")))) + (build-system cmake-build-system) + (arguments + (list #:configure-flags #~(list "-DQT_BUILD_TESTS=ON") + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'disable-failing-tests + (lambda _ + ;; FIXME: tst_seatv4::animatedCursor() fails here. + ;; See also: <https://bugreports.qt.io/browse/QTBUG-78317> + (substitute* "tests/auto/client/seatv4/tst_seatv4.cpp" + (((string-append + "QVERIFY\\(!cursorSurface\\(\\)->" + "m_waitingFrameCallbacks\\.empty\\(\\)\\);")) "") + (("QTRY_COMPARE\\(bufferSpy\\.count\\(\\), 1\\);") "")))) + (add-before 'check 'set-test-environment + (lambda _ + ;; Do not fail just because /etc/machine-id is missing. + (setenv "DBUS_FATAL_WARNINGS" "0") + ;; Make Qt render "offscreen", required for tests. + (setenv "QT_QPA_PLATFORM" "offscreen")))))) + (native-inputs (list glib perl pkg-config qtdeclarative)) + (inputs + (list fontconfig + freetype + libx11 + libxcomposite + libxext + libxkbcommon + libxrender + mesa + mtdev + qtbase + vulkan-headers + wayland)) + (synopsis "Qt Wayland module") + (description "The Qt Wayland module provides the QtWayland client and +compositor libraries.") + (home-page (package-home-page qtbase)) + (license (package-license qtbase)))) + (define-public qtserialport (package (inherit qtsvg-5) (name "qtserialport") diff --git a/gnu/packages/radio.scm b/gnu/packages/radio.scm index 2968f9d390..f466678289 100644 --- a/gnu/packages/radio.scm +++ b/gnu/packages/radio.scm @@ -11,6 +11,7 @@ ;;; Copyright © 2022 Jai Vetrivelan <jaivetrivelan@gmail.com> ;;; Copyright © 2022 Sheng Yang <styang@fastmail.com> ;;; Copyright © 2022 Greg Hogan <code@greghogan.com> +;;; Copyright © 2022 Ryan Tolboom <ryan@using.tech> ;;; ;;; This file is part of GNU Guix. ;;; @@ -89,6 +90,7 @@ #:use-module (gnu packages readline) #:use-module (gnu packages ruby) #:use-module (gnu packages sdl) + #:use-module (gnu packages serialization) #:use-module (gnu packages sphinx) #:use-module (gnu packages swig) #:use-module (gnu packages tcl) @@ -1642,7 +1644,7 @@ modes: (define-public nanovna-saver (package (name "nanovna-saver") - (version "0.3.9") + (version "0.5.3") (source (origin (method git-fetch) @@ -1651,7 +1653,7 @@ modes: (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "1h5k402wjlj7xjniggwf0x7a5srlgglc2x4hy6lz6c30zwa7z8fm")))) + (base32 "1h0wzva8j7fqnpf0qy42bw9rdclgq3jdq902ajvd9v5iqcqs78n0")))) (build-system python-build-system) (native-inputs (list python-cython)) @@ -2668,3 +2670,40 @@ the navigation message, computation of observables and, finally, computation of position fixes) the signals of the BeiDou, Galileo, GLONASS and GPS Global Navigation Satellite System.") (license license:gpl3+))) + +(define-public qdmr + (package + (name "qdmr") + (version "0.10.3") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/hmatuschek/qdmr") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "037vkwk974zrwacxafslkb3mbw9258v9sdpwdvb23msjzbc3snrn")))) + (build-system cmake-build-system) + (arguments + (list #:tests? #f ;no tests + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch-paths + (lambda _ + (substitute* "lib/CMakeLists.txt" + (("(DESTINATION \")/etc/udev/" _ directive) + (string-append directive #$output "/lib/udev/")))))))) + (inputs (list libusb qtbase-5 qtlocation qtserialport yaml-cpp)) + (native-inputs (list qttools-5)) + (home-page "https://dm3mat.darc.de/qdmr/") + (synopsis "GUI application and command line tool to program DMR radios") + (description + "qdmr is a graphical user interface (GUI) application that allows one to +program several types of DMR radios. It is comparable to the Customer +Programming Software (CPS) bundled with these radios but aims to be a more +universal tool. + +To install the qdmr udev rules, you must extend @code{udev-service-type} with this +package. E.g.: @code{(udev-rules-service 'qdmr qdmr)}") + (license license:gpl3+))) diff --git a/gnu/packages/ratpoison.scm b/gnu/packages/ratpoison.scm index 0c0687032d..799e4e0a8a 100644 --- a/gnu/packages/ratpoison.scm +++ b/gnu/packages/ratpoison.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2013, 2014, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org> ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com> +;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -19,8 +20,9 @@ ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (gnu packages ratpoison) - #:use-module (guix packages) #:use-module (guix download) + #:use-module (guix gexp) + #:use-module (guix packages) #:use-module (guix build-system gnu) #:use-module ((guix licenses) #:select (gpl2+)) #:use-module (gnu packages) @@ -44,42 +46,48 @@ (patches (search-patches "ratpoison-shell.patch")))) (build-system gnu-build-system) (arguments - `(#:modules ((ice-9 format) + (list + #:modules `((ice-9 format) ,@%gnu-build-system-modules) - #:phases - (modify-phases %standard-phases - (add-after 'install 'install-xsession - (lambda* (#:key outputs #:allow-other-keys) - ;; Add a .desktop file to xsessions. - (let* ((output (assoc-ref outputs "out")) - (xsessions (string-append output "/share/xsessions"))) - (mkdir-p xsessions) - (call-with-output-file (string-append xsessions - "/ratpoison.desktop") - (lambda (port) - (format port - "[Desktop Entry]~@ + ;; Specify the absolute location of xterm, as the user experience sucks + ;; when no terminal is available (can't consult help with 'C-t ?', for + ;; example). + #:configure-flags #~(list (string-append "--with-xterm=" + #$(this-package-input "xterm"))) + #:phases + #~(modify-phases %standard-phases + (add-after 'install 'install-xsession + (lambda _ + ;; Add a .desktop file to xsessions. + (let ((xsessions (string-append #$output "/share/xsessions"))) + (mkdir-p xsessions) + (call-with-output-file (string-append xsessions + "/ratpoison.desktop") + (lambda (port) + (format port + "[Desktop Entry]~@ Name=ratpoison~@ Comment=Tiling window manager: say goodbye to the rodent!~@ Exec=~a/bin/ratpoison~@ TryExec=~@*~a/bin/ratpoison~@ Type=Application~%" - output))) - #t)))))) + #$output))))))))) (inputs - `(("fontconfig" ,fontconfig) - ("freetype" ,freetype) - ("libXft" ,libxft) - ("libXi" ,libxi) - ("libxrandr" ,libxrandr) - ("libXpm" ,libxpm) - ("libXt" ,libxt) - ("libXtst" ,libxtst) - ("libX11" ,libx11) - ("readline" ,readline) - ("xorgproto" ,xorgproto))) + (list fontconfig + freetype + libxft + libxi + libxrandr + libxpm + libxt + libxtst + libx11 + readline + xorgproto + xterm)) (native-inputs - (list perl pkg-config)) + (list perl + pkg-config)) (home-page "https://www.nongnu.org/ratpoison/") (synopsis "Simple mouse-free tiling window manager") (description diff --git a/gnu/packages/sdl.scm b/gnu/packages/sdl.scm index 2523889a8d..674eee8f6c 100644 --- a/gnu/packages/sdl.scm +++ b/gnu/packages/sdl.scm @@ -148,13 +148,27 @@ joystick, and graphics hardware.") eudev ;for discovering input devices fcitx ;helps with CJK input glib - ibus + ibus-minimal libxkbcommon libxcursor ;enables X11 cursor support wayland wayland-protocols))) (license license:bsd-3))) +(define-public sdl2-2.0 + (package + (inherit sdl2) + (name "sdl2") + (version "2.0.14") + (source (origin + (method url-fetch) + (uri + (string-append "https://libsdl.org/release/SDL2-" + version ".tar.gz")) + (sha256 + (base32 + "1g1jahknv5r4yhh1xq5sf0md20ybdw1zh1i15lry26sq39bmn8fq")))))) + (define-public libmikmod (package (name "libmikmod") diff --git a/gnu/packages/selinux.scm b/gnu/packages/selinux.scm index b4f074b695..d898b55129 100644 --- a/gnu/packages/selinux.scm +++ b/gnu/packages/selinux.scm @@ -42,6 +42,7 @@ #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-xyz) + #:use-module (gnu packages qt) #:use-module (gnu packages swig) #:use-module (gnu packages xml)) @@ -305,16 +306,16 @@ based on required access.") (define-public python-setools (package (name "python-setools") - (version "4.1.1") + (version "4.4.0") (source (origin (method git-fetch) (uri (git-reference - (url "https://github.com/TresysTechnology/setools") + (url "https://github.com/SELinuxProject/setools") (commit version))) (file-name (string-append name "-" version "-checkout")) (sha256 (base32 - "0459xxly6zzqc5azcwk3rbbcxvj60dq08f8z6xr05y7dsbb16cg6")))) + "1qvd5j6zwq4fmlahg45swjplhif2z89x7s6pnp07gvcp2fbqdsh5")))) (build-system python-build-system) (arguments `(#:tests? #f ; the test target causes a rebuild @@ -339,10 +340,10 @@ based on required access.") (propagated-inputs (list python-networkx)) (inputs - (list libsepol libselinux)) + (list libsepol libselinux python-pyqt)) (native-inputs - (list bison flex swig)) - (home-page "https://github.com/TresysTechnology/setools") + (list bison flex python-cython swig)) + (home-page "https://github.com/SELinuxProject/setools") (synopsis "Tools for SELinux policy analysis") (description "SETools is a collection of graphical tools, command-line tools, and libraries designed to facilitate SELinux policy analysis.") diff --git a/gnu/packages/sssd.scm b/gnu/packages/sssd.scm index 98b819070f..dbeb0ee143 100644 --- a/gnu/packages/sssd.scm +++ b/gnu/packages/sssd.scm @@ -154,7 +154,7 @@ fundamental object types for C.") (define-public sssd (package (name "sssd") - (version "2.7.3") + (version "2.7.4") (source (origin (method git-fetch) @@ -163,7 +163,7 @@ fundamental object types for C.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "18kcg82gcf5wgmaq5w9fszv9sg3d93yqm39p1npr8kw8b9203n4r")) + (base32 "1946pfwyv1ci0m4flrhwkksq42p14n7kcng6fbq6sy4lcn5g3yml")) (patches (search-patches "sssd-optional-systemd.patch" "sssd-system-directories.patch")))) (build-system gnu-build-system) diff --git a/gnu/packages/statistics.scm b/gnu/packages/statistics.scm index 6e57eb2f4f..7a9c4414b1 100644 --- a/gnu/packages/statistics.scm +++ b/gnu/packages/statistics.scm @@ -12,7 +12,7 @@ ;;; Copyright © 2017 Alex Kost <alezost@gmail.com> ;;; Copyright © 2018 Alex Branham <alex.branham@gmail.com> ;;; Copyright © 2020 Tim Howes <timhowes@lavabit.com> -;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com> +;;; Copyright © 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; Copyright © 2021 Bonface Munyoki Kilyungi <me@bonfacemunyoki.com> ;;; Copyright © 2021 Lars-Dominik Braun <lars@6xq.net> ;;; Copyright © 2021 Frank Pursel <frank.pursel@gmail.com> @@ -73,6 +73,7 @@ #:use-module (gnu packages maths) #:use-module (gnu packages multiprecision) #:use-module (gnu packages ncurses) + #:use-module (gnu packages ocaml) #:use-module (gnu packages pcre) #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) @@ -83,6 +84,7 @@ #:use-module (gnu packages shells) #:use-module (gnu packages sphinx) #:use-module (gnu packages ssh) + #:use-module (gnu packages swig) #:use-module (gnu packages tcl) #:use-module (gnu packages tex) #:use-module (gnu packages texinfo) @@ -4407,31 +4409,55 @@ from within R.") (define-public r-spams (package (name "r-spams") - (version "2.6-2017-03-22") - (source - (origin - (method url-fetch) - ;; Use the ‘Latest version’ link for a stable URI across releases. - (uri (string-append "https://gforge.inria.fr/frs/download.php/" - "latestfile/4531/spams-R-v" version ".tar.gz")) - (sha256 - (base32 - "13z2293jixf1r9g8dyy856xrhvpjr2ln2n9smn6644126r9hmhkx")))) + (version "2.6.1") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.inria.fr/thoth/spams-devel") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0qvj87fw4sm54c7dvhxjgmgvnyyrrz9fk6dqp3ak0gwgb42gqh60")))) (build-system r-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'chdir - (lambda _ (chdir "spams") #t)) - ;; Don't tune for the building machine. - (add-after 'chdir 'no-mtune - (lambda _ - (substitute* "src/Makevars" - (("-mtune=native") "")) - #t))))) + (list + #:phases + #~(modify-phases %standard-phases + (add-after 'patch-generated-file-shebangs 'patch-paths + (lambda _ + (substitute* (cons* "swig/setRelease" + "swig/R/docmatlab2R" + "swig/R/mkdist" + (find-files "." "(^mk|\\.sh$)")) + (("/bin/pwd") "pwd") + (("/bin/rm") "rm")))) + (add-after 'patch-paths 'mkdist + (lambda _ + (chdir "swig/R") + (setenv "TEXINPUTS" (string-append (getcwd) "/../../doc:")) + (substitute* "mkdist" + (("^SWIG=.*") + (string-append "SWIG=" (which "swig"))) + (("^../mkdoc") "")) ;requires texlive-aeguill + (invoke "./mkdist") + (chdir "dist/spams-R/spams"))) + ;; Don't tune for the building machine. + (add-after 'mkdist 'no-mtune + (lambda _ + (substitute* "src/Makevars" + (("-mtune=native") ""))))))) + (native-inputs + (list hevea + perl + swig + ;;texlive-aeguill ;;FIXME: package me! + texlive-base + texlive-jknappen)) (propagated-inputs - (list r-lattice r-matrix)) - (home-page "https://spams-devel.gforge.inria.fr") + (list r-lattice + r-matrix)) + (home-page "https://gitlab.inria.fr/thoth/spams-devel/") (synopsis "Toolbox for solving sparse estimation problems") (description "SPAMS (SPArse Modeling Software) is an optimization toolbox for solving various sparse estimation problems. It includes tools for the diff --git a/gnu/packages/syndication.scm b/gnu/packages/syndication.scm index 6eb88afb8f..c30d16c870 100644 --- a/gnu/packages/syndication.scm +++ b/gnu/packages/syndication.scm @@ -4,6 +4,7 @@ ;;; Copyright © 2020 Vinicius Monego <monego@posteo.net> ;;; Copyright © 2021 Felix Gruber <felgru@posteo.net> ;;; Copyright © 2022 Luis Felipe López Acevedo <luis.felipe.la@protonmail.com> +;;; Copyright © 2022 Liliana Marie Prikler <liliana.prikler@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -26,6 +27,7 @@ #:use-module (guix git-download) #:use-module (guix packages) #:use-module (guix utils) + #:use-module (guix gexp) #:use-module (guix build-system cargo) #:use-module (guix build-system glib-or-gtk) #:use-module (guix build-system gnu) @@ -35,7 +37,10 @@ #:use-module (gnu packages) #:use-module (gnu packages autotools) #:use-module (gnu packages base) + #:use-module (gnu packages bash) + #:use-module (gnu packages build-tools) #:use-module (gnu packages check) + #:use-module (gnu packages cmake) #:use-module (gnu packages crates-io) #:use-module (gnu packages curl) #:use-module (gnu packages documentation) @@ -48,6 +53,7 @@ #:use-module (gnu packages kde-frameworks) #:use-module (gnu packages ncurses) #:use-module (gnu packages pkg-config) + #:use-module (gnu packages pretty-print) #:use-module (gnu packages python) #:use-module (gnu packages python-check) #:use-module (gnu packages python-xyz) @@ -218,14 +224,14 @@ cards.") (define-public newsboat (package (name "newsboat") - (version "2.26") + (version "2.29") (source (origin (method url-fetch) (uri (string-append "https://newsboat.org/releases/" version "/newsboat-" version ".tar.xz")) (sha256 - (base32 "061w86jffyi49m4d9n974a3pd1svbw3azmh0qx8h2v7h0178791l")))) + (base32 "0szx4pivkaja8v399m6v7ycp1xprm4cz7n5z929g4j191hg81f8q")))) (build-system cargo-build-system) (native-inputs `(("gettext" ,gettext-minimal) @@ -252,6 +258,7 @@ cards.") ("rust-chrono" ,rust-chrono-0.4) ("rust-curl-sys" ,rust-curl-sys-0.4) ("rust-cxx" ,rust-cxx-1) + ("rust-cxx-build" ,rust-cxx-build-1) ("rust-fastrand" ,rust-fastrand-1) ("rust-gettext-rs" ,rust-gettext-rs-0.7) ("rust-lexopt" ,rust-lexopt-0.2) @@ -265,8 +272,7 @@ cards.") ("rust-unicode-width" ,rust-unicode-width-0.1) ("rust-xdg" ,rust-xdg-2)) #:cargo-development-inputs - (("rust-cxx-build" ,rust-cxx-build-1) - ("rust-tempfile" ,rust-tempfile-3) + (("rust-tempfile" ,rust-tempfile-3) ("rust-proptest" ,rust-proptest-1) ("rust-section-testing" ,rust-section-testing-0.0)) #:phases @@ -491,67 +497,93 @@ a simple interface that makes it easy to organize and browse feeds.") (license (list license:expat license:gpl3+)))) ; tuir/packages/praw +(define-public syndication-domination + (let ((revision "1") + (commit "f64caabd6f46be14fdb92085971a7f2d6fa5e61e")) + (package + (name "syndication-domination") + (version (git-version "0.0" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.com/gabmus/syndication-domination") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "1i0llzzm3lc2kw7rjhb46c7wlknsb6r9bdrf61chi2pk6hpjyscv")))) + (build-system meson-build-system) + (arguments + (list #:meson meson-0.63)) + (inputs (list fmt tidy-html pybind11 python pugixml)) + (native-inputs (list cmake pkg-config)) ; need cmake to find pybind11 + (home-page "https://gitlab.com/gabmus/syndication-domination") + (synopsis "RSS/Atom feed parser") + (description "This package provides an experimental RSS/Atom feed +parser. It is \"not fit for use at this point\", but gfeeds uses it anyway.") + (license license:agpl3)))) + (define-public gfeeds (package (name "gfeeds") - (version "0.16.2") + (version "1.0.3") (source (origin - (method url-fetch) - (uri - (string-append - "https://gitlab.gnome.org/World/gfeeds/-/archive/" version - "/gfeeds-" version ".tar.bz2")) + (method git-fetch) + (uri (git-reference + (url "https://gitlab.gnome.org/World/gfeeds") + (commit version))) (sha256 (base32 - "05gwwzqfz29m477imd5vh84jfla1wnklwpc2sdxnqli72wg08fli")))) + "1lkvhff7pl1y4brqsix6sar5yl8flyhfp3w96fx0klhk3586bvhg")))) (build-system meson-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-mpv-path - (lambda* (#:key inputs #:allow-other-keys) - (substitute* "gfeeds/confManager.py" - (("mpv") (search-input-file inputs "/bin/mpv"))) - #t)) - (add-after 'unpack 'patch-webkit2-version - (lambda* (#:key inputs #:allow-other-keys) - (substitute* "bin/gfeeds.in" - (("gi\\.require_version\\('WebKit2', '4\\.0'\\)") - "gi.require_version('WebKit2', '4.1')")))) - (add-after 'install 'wrap-gfeeds - (lambda* (#:key outputs #:allow-other-keys) - (wrap-program (string-append - (assoc-ref outputs "out") "/bin/gfeeds") - `("PYTHONPATH" ":" prefix (,(getenv "GUIX_PYTHONPATH"))) - `("GI_TYPELIB_PATH" ":" prefix (,(getenv "GI_TYPELIB_PATH"))) - `("XDG_DATA_DIRS" ":" prefix (,(getenv "XDG_DATA_DIRS")))) - #t))))) + (list + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch-mpv-path + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "gfeeds/confManager.py" + (("mpv") (search-input-file inputs "/bin/mpv"))))) + (add-after 'unpack 'skip-icon-cache + (lambda _ + (substitute* "meson_post_install.py" + (("gtk-update-icon-cache") "true")))) + (add-after 'install 'wrap-gfeeds + (lambda* (#:key outputs #:allow-other-keys) + (wrap-program (string-append + (assoc-ref outputs "out") "/bin/gfeeds") + `("PYTHONPATH" ":" prefix (,(getenv "GUIX_PYTHONPATH"))) + `("GI_TYPELIB_PATH" ":" prefix (,(getenv "GI_TYPELIB_PATH"))) + `("XDG_DATA_DIRS" ":" prefix (,(getenv "XDG_DATA_DIRS"))))))))) (native-inputs - `(("glib:bin" ,glib "bin") - ("gobject-introspection" ,gobject-introspection) - ("gtk+:bin" ,gtk+ "bin") - ("pkg-config" ,pkg-config))) + (list `(,glib "bin") + blueprint-compiler + gobject-introspection + pkg-config)) (inputs - (list glib + (list bash-minimal + glib gsettings-desktop-schemas - gtk+ + gtk hicolor-icon-theme - libhandy + libadwaita mpv python python-beautifulsoup4 python-dateutil python-feedparser python-html5lib + python-humanize python-listparser python-lxml + python-magic python-pillow python-pygments + python-pygobject python-pytz - python-readability + python-readability-lxml python-requests - webkitgtk - python-pygobject)) + syndication-domination + webkitgtk-next)) (home-page "https://gfeeds.gabmus.org/") (synopsis "Easy-to-use GTK+ RSS/Atom feed reader") (description "Feeds is an RSS/Atom feed reader made with GTK+ diff --git a/gnu/packages/telegram.scm b/gnu/packages/telegram.scm index 2df68ccca7..82c9227ba8 100644 --- a/gnu/packages/telegram.scm +++ b/gnu/packages/telegram.scm @@ -502,7 +502,7 @@ Telegram project, for its use in telegram desktop client.") qtbase-5 qtimageformats qtsvg-5 - qtwayland + qtwayland-5 range-v3 rlottie-for-telegram-desktop rnnoise diff --git a/gnu/packages/terminals.scm b/gnu/packages/terminals.scm index 9ece3043e0..f29d7e3773 100644 --- a/gnu/packages/terminals.scm +++ b/gnu/packages/terminals.scm @@ -640,7 +640,7 @@ should be thread-safe.") (define-public libvterm (package (name "libvterm") - (version "0.1.4") + (version "0.3") (source (origin (method url-fetch) @@ -648,7 +648,7 @@ should be thread-safe.") "libvterm-" version ".tar.gz")) (sha256 (base32 - "1pfkhbbihd2kvaza707vl2nvk7bxaawmb37wf9v6d72mjng38w5w")))) + "0n1k923ii618ffkbifi8a89ag8c6m9l49z8dj01dyay551k0vsv1")))) (build-system gnu-build-system) (arguments `(#:make-flags diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm index 883a1f6f45..382cbb47fb 100644 --- a/gnu/packages/tex.scm +++ b/gnu/packages/tex.scm @@ -6562,6 +6562,26 @@ Adobe's basic set.") ;; No license version specified. (license license:gpl3+))) +(define-public texlive-zhspacing + (package + (inherit + (simple-texlive-package "texlive-zhspacing" + (list "doc/generic/zhspacing/" + "tex/context/third/zhspacing/" + "tex/generic/zhspacing/" + "tex/xelatex/zhspacing/") + (base32 + "02hwa7yjwb6wxkkib83mjdbara5zcsixbp5xlawri8n9ah54vxjm") + #:trivial? #t)) + (home-page "https://ctan.org/macros/xetex/generic/zhspacing") + (synopsis "Spacing for mixed CJK-English documents in XeTeX") + (description + "The package manages spacing in a CJK document; between consecutive Chinese +letters, spaces are ignored, but a consistent space is inserted between Chinese +text and English (or mathematics). The package may be used by any document +format under XeTeX.") + (license license:lppl1.3+))) + (define-public texlive-zref (package (inherit (simple-texlive-package @@ -6781,6 +6801,23 @@ splines, and filled circles and ellipses. The package uses @code{tpic} provides means for easy customization of the list of notes.") (license license:lppl1.3c+))) +(define-public texlive-endnotes + (package + (inherit (simple-texlive-package + "texlive-endnotes" + (list "doc/latex/endnotes/" + "tex/latex/endnotes/") + (base32 + "1s7j5sg8fbhifng0gfqnghbvalbbh0p7j9v06r660w089364ypwz") + #:trivial? #t)) + (home-page "https://www.ctan.org/pkg/endnotes") + (synopsis "Deal with endnotesings in strings") + (description + "Accumulates notes (using the @code{\\endnote} command, which can be used +as a replacement for @code{\\footnote}), and places them at the end of +the section, chapter or document.") + (license license:lppl1.0+))) + (define-public texlive-enumitem (package (inherit @@ -11090,6 +11127,20 @@ and selecting references used in a publication.") (base32 "08jn8piyaad4zln33c0gikyhdkcsk2s3ms9l992riq2hbpbm9lcf") #:trivial? #t)) + (propagated-inputs (list texlive-apacite + texlive-babel + texlive-booktabs + texlive-endnotes + texlive-etoolbox + texlive-generic-xstring + texlive-latex-draftwatermark + texlive-latex-fancyhdr + texlive-latex-float + texlive-latex-graphics + texlive-lm + texlive-substr + texlive-times + texlive-tools)) (home-page "https://www.ctan.org/pkg/apa6") (synopsis "Format documents in APA style (6th edition)") (description "The class formats documents in APA style (6th @@ -11103,6 +11154,28 @@ The class is a development of the apa class (which is no longer maintained).") (license license:lppl1.3c+))) +(define-public texlive-apacite + (package + (inherit (simple-texlive-package + "texlive-apacite" + (list "tex/latex/apacite/") + (base32 + "0bcfpcmflhvxwzmdj8dgf43mzaywx2asahp52nqn3wwvq64bqym6") + #:trivial? #t)) + (propagated-inputs (list texlive-latex-natbib + texlive-tools)) + (home-page "https://www.ctan.org/pkg/apacite") + (synopsis "Citation style following the rules of the APA") + (description "Apacite provides a BibTeX style and a LaTeX package which +are designed to match the requirements of the American Psychological +Association’s style for citations. The package follows the 6th edition +of the APA manual, and is designed to work with the apa6 class. A test +document is provided. The package is compatible with chapterbib and +(to some extent) with hyperref (for limits of compatibility, see the +documentation). The package also includes a means of generating an author +index for a document.") + (license license:lppl1.3+))) + (define-public texlive-endfloat (package (inherit (simple-texlive-package @@ -11875,6 +11948,49 @@ syllable. The package itself does not support UTF-8 input in ordinary (PDF)LaTeX; some UTF-8 support is offered by package @code{soulutf8}.") (license license:lppl)))) +(define-public texlive-generic-xstring + (let ((template (simple-texlive-package + "texlive-generic-xstring" + (list "/doc/generic/xstring/" + "/tex/generic/xstring/") + (base32 + "1azpq855kq1l4686bjp8haxim5c8wycz1b6lcg5q7x8kb4g9sppn") + #:trivial? #t))) + (package + (inherit template) + (home-page "http://www.ctan.org/pkg/xstring") + (synopsis "String manipulation for (La)TeX") + (description + "@code{xstring} package provides macros for manipulating strings -- +testing a string's contents, extracting substrings, substitution of substrings +and providing numbers such as string length, position of, or number of +recurrences of, a substring. The package works equally in Plain TeX and LaTeX +(though e-TeX is always required). The strings to be processed may contain +(expandable) macros.") + (license license:lppl1.3c)))) + +(define-public texlive-substr + (package + (inherit (simple-texlive-package + "texlive-substr" + (list "doc/latex/substr/" + "tex/latex/substr/") + (base32 + "0kfd4kq5yrg65f2mpric1cs1xr416wgj9bdixpibgjsdg5fb73sw") + #:trivial? #t)) + (home-page "https://www.ctan.org/pkg/substr") + (synopsis "Deal with substrings in strings") + (description + "The package provides commands to deal with substrings of strings. Macros +are provided to: + +@itemize +@item determine if one string is a substring of another, +@item return the parts of a string before or after a substring, and +@item count the number of occurrences of a substring. +@end itemize") + (license license:lppl1.0+))) + (define-public texlive-latex-totcount (package (inherit (simple-texlive-package diff --git a/gnu/packages/text-editors.scm b/gnu/packages/text-editors.scm index 0c30a705b9..40d6d28b55 100644 --- a/gnu/packages/text-editors.scm +++ b/gnu/packages/text-editors.scm @@ -19,6 +19,7 @@ ;;; Copyright © 2021 Calum Irwin <calumirwin1@gmail.com> ;;; Copyright © 2022 Luis Henrique Gomes Higino <luishenriquegh2701@gmail.com> ;;; Copyright © 2022 Foo Chuan Wei <chuanwei.foo@hotmail.com> +;;; Copyright © 2022 zamfofex <zamfofex@twdb.moe> ;;; ;;; This file is part of GNU Guix. ;;; @@ -45,6 +46,7 @@ #:use-module (guix build-system cmake) #:use-module (guix build-system gnu) #:use-module (guix build-system glib-or-gtk) + #:use-module (guix build-system meson) #:use-module (guix build-system python) #:use-module ((guix licenses) #:prefix license:) #:use-module (gnu packages) @@ -62,6 +64,7 @@ #:use-module (gnu packages freedesktop) #:use-module (gnu packages gettext) #:use-module (gnu packages glib) + #:use-module (gnu packages graphics) #:use-module (gnu packages gtk) #:use-module (gnu packages guile) #:use-module (gnu packages haskell-xyz) @@ -81,6 +84,7 @@ #:use-module (gnu packages qt) #:use-module (gnu packages regex) #:use-module (gnu packages ruby) + #:use-module (gnu packages sdl) #:use-module (gnu packages sqlite) #:use-module (gnu packages terminals) #:use-module (gnu packages texinfo) @@ -1260,3 +1264,39 @@ scriptable rc file, macros, search and replace (PCRE), window splitting, multiple cursors, and integration with various shell commands.") (license license:asl2.0))) + +(define-public lite-xl + (package + (name "lite-xl") + (version "2.0.5") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/lite-xl/lite-xl") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "0l2i9mvbkc4kqkwk2p17zd1rlm5v41acdyp2xivi53p2hkj4x6pf")) + (modules '((guix build utils))) + (snippet '(substitute* "meson.build" + (("dependency\\('lua5\\.2',") + "dependency('lua-5.2',"))))) + (build-system meson-build-system) + (inputs (list agg + freetype + lua-5.2 + pcre2 + reproc + sdl2)) + (native-inputs (list pkg-config)) + (home-page "https://lite-xl.com") + (synopsis "Lightweight text editor written in Lua") + (description + "Lite XL is derived from lite. It is a lightweight text editor written +mostly in Lua. It aims to provide something practical, pretty, small and fast +easy to modify and extend, or to use without doing either. + +The aim of Lite XL compared to lite is to be more user-friendly, improve the +quality of font rendering, and reduce CPU usage.") + (license license:expat))) diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm index ad3029e814..d8d4a77341 100644 --- a/gnu/packages/version-control.scm +++ b/gnu/packages/version-control.scm @@ -45,6 +45,7 @@ ;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com> ;;; Copyright © 2022 Jai Vetrivelan <jaivetrivelan@gmail.com> ;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be> +;;; Copyright © 2022 Dhruvin Gandhi <contact@dhruvin.dev> ;;; ;;; This file is part of GNU Guix. ;;; @@ -104,6 +105,7 @@ #:use-module (gnu packages image) #:use-module (gnu packages linux) #:use-module (gnu packages mail) + #:use-module (gnu packages man) #:use-module (gnu packages maths) #:use-module (gnu packages nano) #:use-module (gnu packages ncurses) @@ -221,14 +223,14 @@ Python 3.3 and later, rather than on Python 2.") (define-public git (package (name "git") - (version "2.37.3") + (version "2.38.0") (source (origin (method url-fetch) (uri (string-append "mirror://kernel.org/software/scm/git/git-" version ".tar.xz")) (sha256 (base32 - "0yp8hdj0w18jhmmdflzz74z418cw95i08pc22yycyn8nyvbl2il1")))) + "02ij201lyipv1w2zkcq4ng2bga2xkw58xnkbs1wdw50qdgiasglj")))) (build-system gnu-build-system) (native-inputs `(("native-perl" ,perl) @@ -248,7 +250,7 @@ Python 3.3 and later, rather than on Python 2.") version ".tar.xz")) (sha256 (base32 - "053lj9wy8y2yr5jzpb0af4w50gz3ckhgc15wqx7is4z6k9a76lww")))) + "1qyn6rhwblshz0hp0kdc8lk22c1fv8avfr44sia0vzlbd82xj828")))) ;; For subtree documentation. ("asciidoc" ,asciidoc) ("docbook-xsl" ,docbook-xsl) @@ -1497,89 +1499,85 @@ also walk each side of a merge and test those changes individually.") (base32 "05xw1pmagvkrbzga5pgl3xk9qyc6b5x73f842454f3w9ijspa8zy")))) (build-system gnu-build-system) (arguments - '(#:tests? #f ; no tests - #:phases (modify-phases %standard-phases - (delete 'configure) - (delete 'build) - (add-before 'install 'patch-scripts - (lambda* (#:key inputs #:allow-other-keys) - (let ((perl (search-input-file inputs "/bin/perl"))) - ;; This seems to take care of every shell script that - ;; invokes Perl. - (substitute* (find-files ".") - ((" perl -") - (string-append " " perl " -"))) - - (substitute* (find-files "src/triggers" ".*") - ((" sed ") - (string-append " " (which "sed") " "))) - - (substitute* - '("src/triggers/post-compile/update-gitweb-access-list" - "src/triggers/post-compile/ssh-authkeys-split" - "src/triggers/upstream") - ((" grep ") - (string-append " " (which "grep") " "))) - - ;; Avoid references to the store in authorized_keys. - ;; This works because gitolite-shell is in the PATH. - (substitute* "src/triggers/post-compile/ssh-authkeys" - (("\\$glshell \\$user") - "gitolite-shell $user"))))) - (add-before 'install 'patch-source - (lambda* (#:key inputs #:allow-other-keys) - ;; Gitolite uses cat to test the readability of the - ;; pubkey - (substitute* "src/lib/Gitolite/Setup.pm" - (("\"cat ") - (string-append "\"" (which "cat") " ")) - (("\"ssh-keygen") - (string-append "\"" (which "ssh-keygen")))) - - (substitute* '("src/lib/Gitolite/Hooks/PostUpdate.pm" - "src/lib/Gitolite/Hooks/Update.pm") - (("/usr/bin/perl") - (search-input-file inputs "/bin/perl"))) - - (substitute* "src/lib/Gitolite/Common.pm" - (("\"ssh-keygen") - (string-append "\"" (which "ssh-keygen"))) - (("\"logger\"") - (string-append "\"" - (assoc-ref inputs "inetutils") - "/bin/logger\""))) - - (substitute* "src/lib/Gitolite/Cache.pm" - (("/usr/sbin/redis-server") "redis-server")) - - (substitute* "src/commands/svnserve" - (("/usr/bin/svnserve") "svnserve")))) - (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (let* ((output (assoc-ref outputs "out")) - (sharedir (string-append output "/share/gitolite")) - (bindir (string-append output "/bin"))) - (mkdir-p sharedir) - (mkdir-p bindir) - (invoke "./install" "-to" sharedir) - ;; Create symlinks for executable scripts in /bin. - (for-each (lambda (script) - (symlink (string-append sharedir "/" script) - (string-append bindir "/" script))) - '("gitolite" "gitolite-shell"))))) - (add-after 'install 'wrap-scripts - (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out")) - (coreutils (assoc-ref inputs "coreutils")) - (findutils (assoc-ref inputs "findutils")) - (git (assoc-ref inputs "git"))) - (for-each (lambda (file-name) - (wrap-program (string-append out file-name) - `("PATH" ":" prefix - ,(map (lambda (dir) - (string-append dir "/bin")) - (list out coreutils findutils git))))) - '("/bin/gitolite" "/bin/gitolite-shell")))))))) + (list #:tests? #f ; no tests + #:phases + #~(modify-phases %standard-phases + (delete 'configure) + (delete 'build) + (add-before 'install 'patch-scripts + (lambda* _ + ;; This seems to take care of every shell script that + ;; invokes Perl. + (substitute* (find-files ".") + ((" perl -") + (string-append " " #$perl "/bin/perl" " -"))) + + (substitute* (find-files "src/triggers" ".*") + ((" sed ") + (string-append " " #$sed "/bin/sed" " "))) + + (substitute* + '("src/triggers/post-compile/update-gitweb-access-list" + "src/triggers/post-compile/ssh-authkeys-split" + "src/triggers/upstream") + ((" grep ") + (string-append " " #$grep "/bin/grep" " "))) + + ;; Avoid references to the store in authorized_keys. + ;; This works because gitolite-shell is in the PATH. + (substitute* "src/triggers/post-compile/ssh-authkeys" + (("\\$glshell \\$user") + "gitolite-shell $user")))) + (add-before 'install 'patch-source + (lambda* _ + ;; Gitolite uses cat to test the readability of the + ;; pubkey + (substitute* "src/lib/Gitolite/Setup.pm" + (("\"cat ") + (string-append "\"" #$coreutils "/bin/cat" " ")) + (("\"ssh-keygen") + (string-append "\"" #$openssh "/bin/ssh-keygen"))) + + (substitute* '("src/lib/Gitolite/Hooks/PostUpdate.pm" + "src/lib/Gitolite/Hooks/Update.pm") + (("/usr/bin/perl") + (string-append #$perl "/bin/perl"))) + + (substitute* "src/lib/Gitolite/Common.pm" + (("\"ssh-keygen") + (string-append "\"" #$openssh "/bin/ssh-keygen")) + (("\"logger\"") + (string-append "\"" #$inetutils "/bin/logger\""))) + + (substitute* "src/lib/Gitolite/Cache.pm" + (("/usr/sbin/redis-server") "redis-server")) + + (substitute* "src/commands/svnserve" + (("/usr/bin/svnserve") "svnserve")))) + (replace 'install + (lambda* _ + (let* ((sharedir (string-append #$output "/share/gitolite")) + (bindir (string-append #$output "/bin"))) + (mkdir-p sharedir) + (mkdir-p bindir) + (invoke "./install" "-to" sharedir) + ;; Create symlinks for executable scripts in /bin. + (for-each (lambda (script) + (symlink (string-append sharedir "/" script) + (string-append bindir "/" script))) + '("gitolite" "gitolite-shell"))))) + (add-after 'install 'wrap-scripts + (lambda* _ + (for-each (lambda (file-name) + (wrap-program (string-append #$output file-name) + `("PATH" ":" prefix + ,(map (lambda (dir) + (string-append dir "/bin")) + (list #$output + #$coreutils + #$findutils + #$git))))) + '("/bin/gitolite" "/bin/gitolite-shell"))))))) (inputs (list bash-minimal coreutils findutils git inetutils openssh perl)) (home-page "https://gitolite.com") @@ -3460,3 +3458,69 @@ Git project instead of @command{git filter-branch}.") "Gitlint is a Git commit message linter written in Python: it checks your commit messages for style.") (license license:expat))) + +(define-public hut + (package + (name "hut") + (version "0.2.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://git.sr.ht/~emersion/hut") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "0ybngrwwmkm00dlkdhvkfcvcjhp5xzs8fh90zqr0h12ssqx9pll3")))) + (build-system go-build-system) + (arguments + (list + #:import-path "git.sr.ht/~emersion/hut" + #:phases + #~(modify-phases %standard-phases + (replace 'build + (lambda* (#:key import-path #:allow-other-keys) + (with-directory-excursion (string-append "src/" import-path) + ;; The flags are copied from (guix build go-build-system). + (setenv "CGO_LDFLAGS" "-s -w") + (invoke "make" "all" "GOFLAGS=-v -x")))) + (replace 'install + (lambda* (#:key import-path #:allow-other-keys) + (with-directory-excursion (string-append "src/" import-path) + (invoke "make" "install" + (string-append "PREFIX=" #$output)))))))) + (native-inputs + (list scdoc)) + (inputs + (list go-git-sr-ht-emersion-go-scfg + go-git-sr-ht-emersion-gqlclient + go-github-com-juju-ansiterm + go-github-com-spf13-cobra + go-golang-org-x-oauth2 + go-golang-org-x-term)) + (home-page "https://git.sr.ht/~emersion/hut") + (synopsis "CLI tool for sr.ht") + (description "@command{hut} is a CLI tool for +@uref{https://sr.ht/~sircmpwn/sourcehut/, sr.ht}. It helps you interact with +sr.ht's public services: +@table @asis +@item builds +submit and manage build jobs +@item git +create, and manage git repositories and artifacts +@item hg +list Mercurial repositories +@item lists +manage mailing lists and patches +@item meta +manage PGP, and SSH keys +@item pages +publish and manage hosted websites +@item paste +create and manage pastes +@item todo +create and manage trackers, tickets +@item graphql +interact with GraphQL APIs directly +@end table") + (license license:agpl3))) diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm index 17bad8e641..01627bf583 100644 --- a/gnu/packages/video.scm +++ b/gnu/packages/video.scm @@ -786,12 +786,18 @@ old-fashioned output methods with powerful ascii-art renderer.") (sha256 (base32 "0ns9xh582c8kajw4v2x5ap5jfiba3gxywqc2klc0v6fc3id1gqii")))) (build-system meson-build-system) + (arguments + (list + #:glib-or-gtk? #t + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'disable-postinstall-script + (lambda _ + (setenv "DESTDIR" "/")))))) (native-inputs (list - desktop-file-utils ; for update-desktop-database intltool `(,glib "bin") ; for glib-compile-resources - `(,gtk "bin") ; for gtk-update-icon-cache pkg-config python-wrapper)) ; for generate-authors.py (inputs @@ -1774,6 +1780,8 @@ audio/video codec library.") (sha256 (base32 "14xadxm1yaamp216nq09xwasxg5g133v86dbb33mdg5di1zrlhdg")))) + (inputs (modify-inputs (package-inputs ffmpeg-5) + (replace "sdl2" sdl2-2.0))) (arguments (substitute-keyword-arguments (package-arguments ffmpeg-5) ((#:configure-flags flags ''()) @@ -3387,7 +3395,7 @@ be used for realtime video capture via Linux-specific APIs.") qtbase-5 qtsvg-5 qtx11extras - qtwayland + qtwayland-5 speexdsp v4l-utils wayland @@ -5287,6 +5295,12 @@ result in several formats: (substitute* "Cargo.toml" ;; Allow using more recent versions of (("~3.1.2") "~3")))) + (add-after 'configure 'force-rust-edition-2018 + (lambda* (#:key vendor-dir #:allow-other-keys) + ;; Force all the dependencies to not be higher than edition 2018. + (with-fluids ((%default-port-encoding #f)) + (substitute* (find-files vendor-dir "Cargo.toml") + (("edition = \\\"2021\\\"") "edition = \"2018\""))))) (replace 'build (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) diff --git a/gnu/packages/vim.scm b/gnu/packages/vim.scm index c6bfbb5c6b..ed24c39be2 100644 --- a/gnu/packages/vim.scm +++ b/gnu/packages/vim.scm @@ -77,7 +77,7 @@ (define-public vim (package (name "vim") - (version "9.0.0594") + (version "9.0.0719") (source (origin (method git-fetch) (uri (git-reference @@ -86,7 +86,7 @@ (file-name (git-file-name name version)) (sha256 (base32 - "0rb1385pwz75z342b4915gp8212xipp38z9qlaxdqdy3x5m16lcp")))) + "1fmy2yf83w9429dp3hyx2l24mffjqmaxqcabdyyjcvmgx7zp3bii")))) (build-system gnu-build-system) (arguments `(#:test-target "test" @@ -99,6 +99,7 @@ "src/testdir/test_filetype.vim" "src/testdir/test_normal.vim" "src/testdir/test_popupwin.vim" + "src/testdir/test_prompt_buffer.vim" "src/testdir/test_shell.vim" "src/testdir/test_suspend.vim" "src/testdir/test_terminal.vim" @@ -125,6 +126,9 @@ ;; actions. The path of the bash binary is shown, which results in ;; a difference being detected. Patching the expected result is ;; non-trivial due to the special format used, so skip the test. + (substitute* "src/testdir/test_messages.vim" + ((".*Test_echo_verbose_system.*" line) + (string-append line "return\n"))) (substitute* "src/testdir/test_terminal.vim" ((".*Test_open_term_from_cmd.*" line) (string-append line "return\n")) @@ -685,7 +689,7 @@ are detected, the user is notified."))) (define-public neovim (package (name "neovim") - (version "0.7.2") + (version "0.8.0") (source (origin (method git-fetch) (uri (git-reference @@ -694,7 +698,7 @@ are detected, the user is notified."))) (file-name (git-file-name name version)) (sha256 (base32 - "1jn4i4ral79ys06i50bimylm515sfh41z503gj50a74h1ylg0z4w")))) + "0hkd49wkxfi6k1xa92hdd4b9z356r32hbpr78z1cigcln1wr0z7j")))) (build-system cmake-build-system) (arguments (list #:modules diff --git a/gnu/packages/vnc.scm b/gnu/packages/vnc.scm index 84c84aec76..8bbccfb498 100644 --- a/gnu/packages/vnc.scm +++ b/gnu/packages/vnc.scm @@ -25,6 +25,7 @@ (define-module (gnu packages vnc) #:use-module (guix build-system cmake) #:use-module (guix download) + #:use-module (guix gexp) #:use-module (guix git-download) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix gexp) @@ -207,61 +208,74 @@ and TLS encryption. This package installs only the VNC client, the application which is needed to connect to VNC servers.") (license license:gpl2)))) -;; A VNC server is, in fact, an X server so it seems like a good idea -;; to build on the work already done for xorg-server package. This is -;; not entirely compatible with the recommendation in BUILDING.txt -;; where the client is built first, then the source code of the X -;; server is copied into a subdir of the build directory, patched with -;; VNC additions and then build and installed as Xvnc. The procedure -;; was turned around, where TigerVNC code is downloaded and built -;; inside the Guix X server build dir. Also, the VNC patching process -;; for the X server is automated in a straightforward manner. +(define %tigervnc-client-source (package-source tigervnc-client)) + +;; A VNC server is, in fact, an X server so it seems like a good idea to build +;; on the work already done for xorg-server package. This is not entirely +;; compatible with the recommendation in BUILDING.txt where the client is +;; built first, then the source code of the X server is copied into a subdir +;; of the build directory, patched with VNC additions and then build and +;; installed as Xvnc. The procedure was turned around, where TigerVNC code is +;; downloaded and built inside the Guix X server build dir. Also, the VNC +;; patching process for the X server is automated in a straightforward manner. (define-public tigervnc-server (package (inherit xorg-server) (name "tigervnc-server") (version (package-version tigervnc-client)) - (native-inputs - `(("tigervnc-src" ,(package-source tigervnc-client)) - ("autoconf" ,autoconf) - ("automake" ,automake) - ("libtool" ,libtool) - ("gettext-minimal" ,gettext-minimal) - ("font-util" ,font-util) - ("cmake" ,cmake) - ("perl" ,perl) - ,@(package-native-inputs tigervnc-client) - ,@(package-inputs tigervnc-client) - ,@(package-native-inputs xorg-server))) - (inputs - (modify-inputs (package-inputs xorg-server) - (prepend perl coreutils xauth))) - (propagated-inputs - (modify-inputs (package-propagated-inputs xorg-server) - (prepend xauth))) + (source + (origin + (inherit (package-source xorg-server)) + (modules '((guix build utils))) + (snippet + #~(begin + ;; Copy the VNC extension into the xorg-server sources. + (copy-recursively #$(file-append %tigervnc-client-source + "/unix/xserver") + ".") + ;; Include a full copy of tigervnc-client sources, so that the + ;; complete sources involved are available and can be edited during + ;; the build. + (copy-recursively #$%tigervnc-client-source "tigervnc-client") + ;; Adjust the VNC extension build system files so that it refers + ;; to it. + (substitute* "hw/vnc/Makefile.am" + (("(TIGERVNC_SRCDIR=).*" _ head) + (string-append head "$(CURDIR)/../../tigervnc-client\n")) + (("(TIGERVNC_BUILDDIR=).*" _ head) + (string-append head + "$(CURDIR)/../../tigervnc-client/build\n"))) + ;; Ensure the Autotools build system gets re-bootstrapped. + (delete-file "configure"))) + ;; Patch the xorg-server build system so that it builds the VNC + ;; extension. + (patches (cons (file-append %tigervnc-client-source + "/unix/xserver21.1.1.patch") + (origin-patches (package-source xorg-server)))) + (file-name (string-append name "-" version ".tar.xz")))) (arguments (substitute-keyword-arguments (package-arguments xorg-server) + ((#:tests? #f #f) + #f) ((#:configure-flags flags) - `(append '("--with-pic" ; Taken from BUILDING.txt - "--without-dtrace" - "--disable-static" - "--disable-dri2" - "--disable-xinerama" - "--disable-xvfb" - "--disable-xnest" - "--disable-xorg" - "--disable-dmx" - "--disable-xwin" - "--disable-xephyr" - "--disable-kdrive" - ;; "--disable-config-dbus" ; This was a warning. - "--disable-config-hal" - "--disable-config-udev" - "--disable-dri2" - ;; "--enable-install-libxf86config" ; This, too, was a warning. - "--enable-glx") - (delete "--enable-xephyr" ,flags))) + #~(cons* "--with-pic" ; Taken from BUILDING.txt + "--without-dtrace" + "--disable-static" + "--disable-dri2" + "--disable-xinerama" + "--disable-xvfb" + "--disable-xnest" + "--disable-xorg" + "--disable-dmx" + "--disable-xwin" + "--disable-xephyr" + "--disable-kdrive" + "--disable-config-hal" + "--disable-config-udev" + "--disable-dri2" + "--enable-glx" + (delete "--enable-xephyr" #$flags))) ((#:modules modules) `(append '((ice-9 ftw) (ice-9 match) @@ -269,55 +283,91 @@ application which is needed to connect to VNC servers.") (guix build gnu-build-system)) modules)) ((#:phases phases) - `(modify-phases ,phases - (delete 'check) ;) - (add-after 'unpack 'copy-tvnc-xserver - (lambda _ - (let* - ((tvnc-src (assoc-ref %build-inputs "tigervnc-src")) - (tvnc-xserver (string-append tvnc-src "/unix/xserver"))) - (copy-recursively tvnc-xserver ".")))) - (add-after 'copy-tvnc-xserver 'patch-xserver - (lambda _ - (invoke "patch" "-p1" "-i" - (string-append (assoc-ref %build-inputs "tigervnc-src") - "/unix/xserver21.1.1.patch")) - (invoke "autoreconf" "-fiv"))) - (add-before 'build 'build-tigervnc - (lambda _ - (let* ((out (assoc-ref %outputs "out")) - (tvnc-src (assoc-ref %build-inputs "tigervnc-src")) - (tvnc-build (string-append (getcwd) "/tigervnc-build"))) - (mkdir-p tvnc-build) - (with-directory-excursion tvnc-build - (invoke "cmake" "-G" "Unix Makefiles" - (string-append "-DCMAKE_INSTALL_PREFIX=" out) - tvnc-src) - (invoke "make" "-j" (number->string (parallel-job-count))))))) - (replace 'build - (lambda _ - (let* ((tvnc-src (assoc-ref %build-inputs "tigervnc-src")) - (tvnc-build (string-append (getcwd) "/tigervnc-build")) - (srcarg (string-append "TIGERVNC_SRCDIR=" tvnc-src)) - (buildarg (string-append "TIGERVNC_BUILDDIR=" tvnc-build))) - (invoke "make" srcarg buildarg "-j" - (number->string (parallel-job-count)))))) - (add-before 'install 'install-tigervnc-aux - (lambda _ - (let* ((out (assoc-ref %outputs 'out)) - (tvnc-src (assoc-ref %build-inputs "tigervnc-src")) - (tvnc-build (string-append (getcwd) "/tigervnc-build")) - (srcarg (string-append "TIGERVNC_SRCDIR=" tvnc-src)) - (buildarg (string-append "TIGERVNC_BUILDDIR=" tvnc-build))) - (with-directory-excursion (string-append tvnc-build "/unix") - (invoke "make" srcarg buildarg "install"))))) - (replace 'install - (lambda* _ - (let* ((tvnc-src (assoc-ref %build-inputs "tigervnc-src")) - (tvnc-build (string-append (getcwd) "/tigervnc-build")) - (srcarg (string-append "TIGERVNC_SRCDIR=" tvnc-src)) - (buildarg (string-append "TIGERVNC_BUILDDIR=" tvnc-build))) - (invoke "make" "install" srcarg buildarg)))))))) + #~(modify-phases #$phases + (add-after 'unpack 'adjust-pam-config + (lambda _ + (substitute* "tigervnc-client/unix/vncserver/tigervnc.pam" + (("pam_systemd.so") + "pam_elogind.so")))) + (add-after 'unpack 'patch-paths + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "tigervnc-client/unix/vncserver/vncserver.in" + (("`mcookie`") + (format #f "`~a`" (search-input-file inputs "bin/mcookie"))) + ;; Adjust the places where the vncserver script looks for + ;; X11 fonts. + (("'/usr/share/X11/fonts'" all) + (format #f "'~a', '~a', ~a" + "/run/current-system/profile/share/fonts/X11" + (string-append #$(this-package-input "font-alias") + "share/fonts/X11") + all)) + ;; Adjust the location used to locate of the .desktop files. + (("/usr/share/xsessions") + "/run/current-system/profile/share/xsessions") + ;; Do not require a system-provided Xsession shell script, + ;; as Guix System has none. This causes the foreach loop to + ;; iterate an empty list (disabled). + (("\"/etc/X11/xinit/Xsession\", \"/etc/X11/Xsession\"") + "()") + (("if \\(not defined \\$Xsession)") + "if (0)") + (("@cmd, \\$Xsession,") + "@cmd,")))) + (add-before 'build 'build-tigervnc + (lambda* (#:key parallel-build? #:allow-other-keys) + (mkdir-p "tigervnc-client/build") + (with-directory-excursion "tigervnc-client/build" + (invoke "cmake" "-G" "Unix Makefiles" + (string-append "-DCMAKE_INSTALL_PREFIX=" #$output) + "..") + (invoke "make" "-j" (number->string (if parallel-build? + (parallel-job-count) + 1)))))) + (replace 'build + (lambda* (#:key parallel-build? #:allow-other-keys) + (invoke "make" "-j" (number->string (if parallel-build? + (parallel-job-count) + 1))))) + (add-before 'install 'install-tigervnc-aux + (lambda _ + (invoke "make" "-C" "tigervnc-client/build/unix" "install"))) + (replace 'install + (lambda _ + (invoke "make" "install"))) + (add-after 'install 'wrap-vncserver + (lambda* (#:key inputs outputs #:allow-other-keys) + (wrap-script (search-input-file outputs "libexec/vncserver") + (list "PATH" 'prefix + (map (lambda (p) + (dirname (search-input-file inputs p))) + '("bin/uname" + "bin/xauth" + "bin/xinit")))))))))) + (native-inputs + (modify-inputs (append (package-native-inputs xorg-server) + (package-native-inputs tigervnc-client)) + (append %tigervnc-client-source + autoconf + automake + libtool + gettext-minimal + font-util + cmake + perl))) + (inputs + (modify-inputs (append (package-inputs xorg-server) + (package-inputs tigervnc-client)) + (prepend coreutils + font-alias + guile-3.0 + perl + util-linux + xauth + xinit))) + (propagated-inputs + (modify-inputs (package-propagated-inputs xorg-server) + (prepend xauth))) (description "TigerVNC is a client/server implementation of VNC (Virtual Network Computing). It provides enough performance to run even 3D and video applications. It also provides extensions for advanced authentication methods diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm index 3262dbbb10..967d4328b5 100644 --- a/gnu/packages/web.scm +++ b/gnu/packages/web.scm @@ -58,6 +58,7 @@ ;;; Copyright © 2022 cage <cage-dev@twistfold.it> ;;; Copyright © 2022 Pradana Aumars <paumars@courrier.dev> ;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com> +;;; Copyright © 2022 jgart <jgart@dismail.de> ;;; ;;; This file is part of GNU Guix. ;;; @@ -8184,6 +8185,33 @@ provided by a TLS reverse proxy (e.g. tlstunnel, hitch or stunnel).") ;; to account for "vendor names". (properties '((lint-hidden-cve . ("CVE-2019-15520"))))))) +(define-public go-webring + (let ((commit "6786a27b0c57df75323217453369c83a4d9f4dea") + (revision "0")) + (package + (name "go-webring") + (version (git-version "20220426" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://git.sr.ht/~amolith/go-webring") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1xra0mapdmda8n0z6zsgcqppdzvxc47p0fahsdyig5qmpk89ar8l")))) + (build-system go-build-system) + (arguments + (list #:import-path "git.sr.ht/~amolith/go-webring" + #:install-source? #f)) + (inputs (list go-github-com-spf13-pflag)) + (home-page "https://git.sr.ht/~amolith/go-webring") + (synopsis "Simple webring implementation") + (description +"@code{go--webring} provides a simple webring implementation as used by +the Fediring.") + (license (list license:cc0 license:bsd-2))))) + (define-public archivebox (package (name "archivebox") diff --git a/gnu/packages/webkit.scm b/gnu/packages/webkit.scm index 58e8314292..481cb00cde 100644 --- a/gnu/packages/webkit.scm +++ b/gnu/packages/webkit.scm @@ -283,14 +283,14 @@ propagated by default) such as @code{gst-plugins-good} and (package (inherit webkitgtk) (name "webkitgtk") - (version "2.37.91") ;webkit2gtk5 + (version "2.38.0") ;webkit2gtk5 (source (origin (inherit (package-source webkitgtk)) (method url-fetch) (uri (string-append "https://www.webkitgtk.org/releases/" name "-" version ".tar.xz")) (sha256 - (base32 "0r2d1dbx6s8bad011dkmx7j34gcxlz9bs14pip1qn7n1rhgxb3qi")))) + (base32 "1g8gpi1scbmbcywkfjr2srxdq9r63s94d7v01fdk5qdnldsn7kpr")))) (build-system cmake-build-system) (arguments (substitute-keyword-arguments (package-arguments webkitgtk) diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm index 5699e42540..af406ed2ed 100644 --- a/gnu/packages/wm.scm +++ b/gnu/packages/wm.scm @@ -57,6 +57,7 @@ ;;; Copyright © 2022 muradm <mail@muradm.net> ;;; Copyright © 2022 Elais Player <elais@fastmail.com> ;;; Copyright © 2022 Trevor Richards <trev@trevdev.ca> +;;; Copyright © 2022 Fredrik Salomonsson <plattfot@posteo.net> ;;; ;;; This file is part of GNU Guix. ;;; @@ -1753,6 +1754,34 @@ display a clock or apply image manipulation techniques to the background image." Wlroots based compositors.") (license license:expat))) ; MIT license +(define-public waybar-cpu-histogram + (package + (name "waybar-cpu-histogram") + (version "0.4.2") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://git.sr.ht/~plattfot/waybar-cpu-histogram") + (commit (string-append version)))) + (sha256 + (base32 + "001pyf1jdmf2478plnggd7dkfi688qwi89db2jwfp4zza3640na6")) + (file-name (git-file-name name version)))) + (build-system meson-build-system) + (native-inputs + (list pkg-config)) + (inputs + (list jsoncpp + fmt)) + (synopsis "CPU histogram for waybar") + (description + "Custom module for waybar to show CPU usage as a histogram. A compact way +to see how many cores are active, compared to having a bar for each +core/thread.") + (home-page "https://github.com/plattfot/cpu-histogram/") + (license license:expat))) + (define-public wlr-randr (package (name "wlr-randr") diff --git a/gnu/packages/xdisorg.scm b/gnu/packages/xdisorg.scm index 9908f29191..2533744633 100644 --- a/gnu/packages/xdisorg.scm +++ b/gnu/packages/xdisorg.scm @@ -2437,7 +2437,7 @@ binary to setuid-binaries: (define-public wl-clipboard (package (name "wl-clipboard") - (version "2.0.0") + (version "2.1.0") (source (origin (method git-fetch) @@ -2446,20 +2446,25 @@ binary to setuid-binaries: (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 - (base32 "0c4w87ipsw09aii34szj9p0xfy0m00wyjpll0gb0aqmwa60p0c5d")))) + (base32 "1g6hcsn4klapvz3bw0k8syixwyyi4cl1c7vbc6f1a2hjpcf4pawn")))) (build-system meson-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'unpack 'patch-file-names - (lambda* (#:key inputs #:allow-other-keys) - (substitute* (find-files "src" "\\.c$") - (("\"(cat|rm)\"" _ command) - (string-append "\"" (assoc-ref inputs "coreutils") - "/bin/" command "\"")) - (("\"xdg-mime\"") - (string-append "\"" (assoc-ref inputs "xdg-utils") - "/bin/xdg-mime\"")))))))) + (list #:configure-flags + #~(list (string-append "-Dzshcompletiondir=" #$output + "/share/zsh/site-functions") + (string-append "-Dfishcompletiondir=" #$output + "/share/fish/completions")) + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'patch-file-names + (lambda* (#:key inputs #:allow-other-keys) + (substitute* (find-files "src" "\\.c$") + (("\"(cat|rm)\"" _ command) + (string-append "\"" (assoc-ref inputs "coreutils") + "/bin/" command "\"")) + (("\"xdg-mime\"") + (string-append "\"" (assoc-ref inputs "xdg-utils") + "/bin/xdg-mime\"")))))))) (native-inputs (list pkg-config)) (inputs diff --git a/gnu/packages/xml.scm b/gnu/packages/xml.scm index 42d76bef53..53c3f496d5 100644 --- a/gnu/packages/xml.scm +++ b/gnu/packages/xml.scm @@ -1067,14 +1067,14 @@ the form of functions.") (define-public pugixml (package (name "pugixml") - (version "1.11") + (version "1.12.1") (source (origin (method url-fetch) (uri (string-append "https://github.com/zeux/pugixml/releases/download/v" version "/pugixml-" version ".tar.gz")) (sha256 - (base32 "0b5apqiisq8yk51x0cwks4h2m0zd2zgjdy0w80qp9h5rccz3v496")))) + (base32 "1ixg6fpr7vhkg9bn2g2qmmwpy974z7nx7zq81whm2h6c36lp3xnw")))) (build-system cmake-build-system) (arguments `(#:configure-flags '("-DBUILD_SHARED_LIBS=ON") diff --git a/gnu/packages/xorg.scm b/gnu/packages/xorg.scm index 4cde48aa1b..e1df103666 100644 --- a/gnu/packages/xorg.scm +++ b/gnu/packages/xorg.scm @@ -5331,7 +5331,7 @@ application-facing EGL functions.") (define-public egl-wayland (package (name "egl-wayland") - (version "1.1.10") + (version "1.1.11") (source (origin (method git-fetch) @@ -5340,7 +5340,7 @@ application-facing EGL functions.") (commit version))) (file-name (git-file-name name version)) (sha256 - (base32 "13hdczhsicp4bfkcjg2npslwjaqrajjv867gxjnmvk77scr09dvm")))) + (base32 "11a3j2rjai2vsway9ki5y3ncvhrwd300pz2zcq36mq3brbr1vgf5")))) (build-system meson-build-system) (native-inputs (list libglvnd ;needed for headers diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 3f662f1a6c..d3e3335030 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -19,6 +19,7 @@ ;;; Copyright © 2021 muradm <mail@muradm.net> ;;; Copyright © 2022 Guillaume Le Vaillant <glv@posteo.net> ;;; Copyright © 2022 Justin Veilleux <terramorpha@cock.li> +;;; Copyright © 2022 ( <paren@disroot.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -71,6 +72,7 @@ #:use-module ((gnu packages file-systems) #:select (bcachefs-tools exfat-utils jfsutils zfs)) #:use-module (gnu packages terminals) + #:use-module ((gnu packages wm) #:select (sway)) #:use-module ((gnu build file-systems) #:select (mount-flags->bit-mask swap-space->flags-bit-mask)) @@ -237,6 +239,8 @@ greetd-configuration greetd-terminal-configuration greetd-agreety-session + greetd-wlgreet-session + greetd-wlgreet-sway-session %base-services)) @@ -2902,6 +2906,109 @@ to handle." "agreety-command" #~(execl #$agreety #$agreety "-c" #$command)))) +(define-record-type* <greetd-wlgreet-session> + greetd-wlgreet-session make-greetd-wlgreet-session + greetd-wlgreet-session? + (wlgreet greetd-wlgreet (default wlgreet)) + (command greetd-wlgreet-command + (default (file-append sway "/bin/sway"))) + (command-args greetd-wlgreet-command-args (default '())) + (output-mode greetd-wlgreet-output-mode (default "all")) + (scale greetd-wlgreet-scale (default 1)) + (background greetd-wlgreet-background (default '(0 0 0 0.9))) + (headline greetd-wlgreet-headline (default '(1 1 1 1))) + (prompt greetd-wlgreet-prompt (default '(1 1 1 1))) + (prompt-error greetd-wlgreet-prompt-error (default '(1 1 1 1))) + (border greetd-wlgreet-border (default '(1 1 1 1))) + (extra-env greetd-wlgreet-extra-env (default '()))) + +(define (greetd-wlgreet-wayland-session-command session) + (program-file "wlgreet-session-command" + #~(let* ((username (getenv "USER")) + (useruid (number->string + (passwd:uid (getpwuid username)))) + (command #$(greetd-wlgreet-command session))) + (use-modules (ice-9 match)) + (setenv "XDG_SESSION_TYPE" "wayland") + (setenv "XDG_RUNTIME_DIR" (string-append "/run/user/" useruid)) + (for-each (lambda (env) (setenv (car env) (cdr env))) + '(#$@(greetd-wlgreet-extra-env session))) + (apply execl command command + (list #$@(greetd-wlgreet-command-args session)))))) + +(define (make-wlgreet-config-color section-name color) + (match color + ((red green blue opacity) + (string-append + "[" section-name "]\n" + "red = " (number->string red) "\n" + "green = " (number->string green) "\n" + "blue = " (number->string blue) "\n" + "opacity = " (number->string opacity) "\n")))) + +(define (make-wlgreet-configuration-file session) + (let ((command (greetd-wlgreet-wayland-session-command session)) + (output-mode (greetd-wlgreet-output-mode session)) + (scale (greetd-wlgreet-scale session)) + (background (greetd-wlgreet-background session)) + (headline (greetd-wlgreet-headline session)) + (prompt (greetd-wlgreet-prompt session)) + (prompt-error (greetd-wlgreet-prompt-error session)) + (border (greetd-wlgreet-border session))) + (mixed-text-file "wlgreet.toml" + "command = \"" command "\"\n" + "outputMode = \"" output-mode "\"\n" + "scale = " (number->string scale) "\n" + (apply string-append + (map (match-lambda + ((section-name . color) + (make-wlgreet-config-color section-name color))) + `(("background" . ,background) + ("headline" . ,headline) + ("prompt" . ,prompt) + ("prompt-error" . ,prompt-error) + ("border" . ,border))))))) + +(define-record-type* <greetd-wlgreet-sway-session> + greetd-wlgreet-sway-session make-greetd-wlgreet-sway-session + greetd-wlgreet-sway-session? + (wlgreet-session greetd-wlgreet-sway-session-wlgreet-session ;<greetd-wlgreet-session> + (default (greetd-wlgreet-session))) + (sway greetd-wlgreet-sway-session-sway (default sway)) ;<package> + (sway-configuration greetd-wlgreet-sway-session-sway-configuration ;file-like + (default (plain-file "wlgreet-sway-config" "")))) + +(define (make-wlgreet-sway-configuration-file session) + (let* ((wlgreet-session (greetd-wlgreet-sway-session-wlgreet-session session)) + (wlgreet-config (make-wlgreet-configuration-file wlgreet-session)) + (wlgreet (file-append (greetd-wlgreet wlgreet-session) "/bin/wlgreet")) + (sway-config (greetd-wlgreet-sway-session-sway-configuration session)) + (swaymsg (file-append (greetd-wlgreet-sway-session-sway session) + "/bin/swaymsg"))) + (mixed-text-file "wlgreet-sway.conf" + "include " sway-config "\n" + "xwayland disable\n" + "exec \"" wlgreet " --config " wlgreet-config "; " + swaymsg " exit\"\n"))) + +(define (greetd-wlgreet-sway-session-command session) + (let ((sway (file-append (greetd-wlgreet-sway-session-sway session) + "/bin/sway")) + (config (make-wlgreet-sway-configuration-file session))) + (program-file "wlgreet-sway-session-command" + #~(let* ((log-file (open-output-file + (string-append "/tmp/sway-greeter." + (number->string (getpid)) + ".log"))) + (username (getenv "USER")) + (useruid (number->string (passwd:uid (getpwuid username))))) + ;; redirect stdout/err to log-file + (dup2 (fileno log-file) 1) + (dup2 1 2) + (sleep 1) ;give seatd/logind some time to start up + (setenv "XDG_RUNTIME_DIR" (string-append "/run/user/" useruid)) + (execl #$sway #$sway "-d" "-c" #$config))))) + (define (make-greetd-default-session-command config-or-command) (cond ((greetd-agreety-session? config-or-command) (cond ((greetd-agreety-xdg-env? config-or-command) @@ -2912,6 +3019,8 @@ to handle." (make-greetd-agreety-session-command config-or-command (greetd-agreety-tty-session-command config-or-command))))) + ((greetd-wlgreet-sway-session? config-or-command) + (greetd-wlgreet-sway-session-command config-or-command)) (#t config-or-command))) (define-record-type* <greetd-terminal-configuration> diff --git a/gnu/services/certbot.scm b/gnu/services/certbot.scm index 1c819bef48..7dfdad9874 100644 --- a/gnu/services/certbot.scm +++ b/gnu/services/certbot.scm @@ -154,6 +154,7 @@ (define (certbot-activation config) (let* ((certbot-directory "/var/lib/certbot") + (certbot-cert-directory "/etc/letsencrypt/live") (script (in-vicinity certbot-directory "renew-certificates")) (message (format #f (G_ "~a may need to be run~%") script))) (match config @@ -164,6 +165,7 @@ (use-modules (guix build utils)) (mkdir-p #$webroot) (mkdir-p #$certbot-directory) + (mkdir-p #$certbot-cert-directory) (copy-file #$(certbot-command config) #$script) (display #$message))))))) diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm index dac1e5841a..907824ac61 100644 --- a/gnu/services/guix.scm +++ b/gnu/services/guix.scm @@ -59,6 +59,7 @@ guix-build-coordinator-agent-configuration-authentication guix-build-coordinator-agent-configuration-systems guix-build-coordinator-agent-configuration-max-parallel-builds + guix-build-coordinator-agent-configuration-max-allocated-builds guix-build-coordinator-agent-configuration-max-1min-load-average guix-build-coordinator-agent-configuration-derivation-substitute-urls guix-build-coordinator-agent-configuration-non-derivation-substitute-urls @@ -177,6 +178,9 @@ (max-parallel-builds guix-build-coordinator-agent-configuration-max-parallel-builds (default 1)) + (max-allocated-builds + guix-build-coordinator-agent-configuration-max-allocated-builds + (default #f)) (max-1min-load-average guix-build-coordinator-agent-configuration-max-1min-load-average (default #f)) @@ -406,6 +410,7 @@ (define (guix-build-coordinator-agent-shepherd-services config) (match-record config <guix-build-coordinator-agent-configuration> (package user coordinator authentication max-parallel-builds + max-allocated-builds max-1min-load-average derivation-substitute-urls non-derivation-substitute-urls systems) @@ -439,6 +444,10 @@ token-file)))) #$(simple-format #f "--max-parallel-builds=~A" max-parallel-builds) + #$@(if max-allocated-builds + #~(#$(simple-format #f "--max-allocated-builds=~A" + max-allocated-builds)) + #~()) #$@(if max-1min-load-average #~(#$(simple-format #f "--max-1min-load-average=~A" max-1min-load-average)) diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm index 9d85728371..19aba8c266 100644 --- a/gnu/services/networking.scm +++ b/gnu/services/networking.scm @@ -66,6 +66,9 @@ #:use-module (guix modules) #:use-module (guix packages) #:use-module (guix deprecation) + #:use-module (guix diagnostics) + #:autoload (guix ui) (display-hint) + #:use-module (guix i18n) #:use-module (rnrs enums) #:use-module (srfi srfi-1) #:use-module (srfi srfi-9) @@ -77,6 +80,10 @@ static-networking-service-type) #:export (%facebook-host-aliases dhcp-client-service-type + dhcp-client-configuration + dhcp-client-configuration? + dhcp-client-configuration-package + dhcp-client-configuration-interfaces dhcpd-service-type dhcpd-configuration @@ -259,52 +266,78 @@ fe80::1%lo0 connect.facebook.net fe80::1%lo0 www.connect.facebook.net fe80::1%lo0 apps.facebook.com\n") + +(define-record-type* <dhcp-client-configuration> + dhcp-client-configuration make-dhcp-client-configuration + dhcp-client-configuration? + (package dhcp-client-configuration-package ;file-like + (default isc-dhcp)) + (interfaces dhcp-client-configuration-interfaces + (default 'all))) ;'all | list of strings + +(define dhcp-client-shepherd-service + (match-lambda + (($ <dhcp-client-configuration> package interfaces) + (let ((pid-file "/var/run/dhclient.pid")) + (list (shepherd-service + (documentation "Set up networking via DHCP.") + (requirement '(user-processes udev)) + + ;; XXX: Running with '-nw' ("no wait") avoids blocking for a minute when + ;; networking is unavailable, but also means that the interface is not up + ;; yet when 'start' completes. To wait for the interface to be ready, one + ;; should instead monitor udev events. + (provision '(networking)) + + (start #~(lambda _ + (define dhclient + (string-append #$package "/sbin/dhclient")) + + ;; When invoked without any arguments, 'dhclient' discovers all + ;; non-loopback interfaces *that are up*. However, the relevant + ;; interfaces are typically down at this point. Thus we perform + ;; our own interface discovery here. + (define valid? + (lambda (interface) + (and (arp-network-interface? interface) + (not (loopback-network-interface? interface)) + ;; XXX: Make sure the interfaces are up so that + ;; 'dhclient' can actually send/receive over them. + ;; Ignore those that cannot be activated. + (false-if-exception + (set-network-interface-up interface))))) + (define ifaces + (filter valid? + #$(match interfaces + ('all + #~(all-network-interface-names)) + (_ + #~'#$interfaces)))) + + (false-if-exception (delete-file #$pid-file)) + (let ((pid (fork+exec-command + (cons* dhclient "-nw" + "-pf" #$pid-file ifaces)))) + (and (zero? (cdr (waitpid pid))) + (read-pid-file #$pid-file))))) + (stop #~(make-kill-destructor)))))) + (package + (warning (G_ "'dhcp-client' service now expects a \ +'dhcp-client-configuration' record~%")) + (display-hint (G_ "The value associated with instances of +@code{dhcp-client-service-type} must now be a @code{dhcp-client-configuration} +record instead of a package. Please adjust your configuration accordingly.")) + (dhcp-client-shepherd-service + (dhcp-client-configuration + (package package)))))) + (define dhcp-client-service-type - (shepherd-service-type - 'dhcp-client - (lambda (dhcp) - (define dhclient - (file-append dhcp "/sbin/dhclient")) - - (define pid-file - "/var/run/dhclient.pid") - - (shepherd-service - (documentation "Set up networking via DHCP.") - (requirement '(user-processes udev)) - - ;; XXX: Running with '-nw' ("no wait") avoids blocking for a minute when - ;; networking is unavailable, but also means that the interface is not up - ;; yet when 'start' completes. To wait for the interface to be ready, one - ;; should instead monitor udev events. - (provision '(networking)) - - (start #~(lambda _ - ;; When invoked without any arguments, 'dhclient' discovers all - ;; non-loopback interfaces *that are up*. However, the relevant - ;; interfaces are typically down at this point. Thus we perform - ;; our own interface discovery here. - (define valid? - (lambda (interface) - (and (arp-network-interface? interface) - (not (loopback-network-interface? interface)) - ;; XXX: Make sure the interfaces are up so that - ;; 'dhclient' can actually send/receive over them. - ;; Ignore those that cannot be activated. - (false-if-exception - (set-network-interface-up interface))))) - (define ifaces - (filter valid? (all-network-interface-names))) - - (false-if-exception (delete-file #$pid-file)) - (let ((pid (fork+exec-command - (cons* #$dhclient "-nw" - "-pf" #$pid-file ifaces)))) - (and (zero? (cdr (waitpid pid))) - (read-pid-file #$pid-file))))) - (stop #~(make-kill-destructor)))) - isc-dhcp - (description "Run @command{dhcp}, a Dynamic Host Configuration + (service-type (name 'dhcp-client) + (extensions + (list (service-extension shepherd-root-service-type + dhcp-client-shepherd-service))) + (default-value (dhcp-client-configuration)) + (description "Run @command{dhcp}, a Dynamic Host Configuration Protocol (DHCP) client, on all the non-loopback network interfaces."))) (define-record-type* <dhcpd-configuration> diff --git a/gnu/services/shepherd.scm b/gnu/services/shepherd.scm index 61f759a19d..7110e5aa89 100644 --- a/gnu/services/shepherd.scm +++ b/gnu/services/shepherd.scm @@ -107,14 +107,15 @@ (symlink (canonicalize-path "/run/current-system") "/run/booted-system") - ;; Close any remaining open file descriptors to be on the safe - ;; side. This must be the very last thing we do, because - ;; Guile has internal FDs such as 'sleep_pipe' that need to be - ;; alive. + ;; Ensure open file descriptors are close-on-exec so shepherd doesn't + ;; inherit them. (let loop ((fd 3)) (when (< fd 1024) - (false-if-exception (close-fdes fd)) - (loop (+ 1 fd)))) + (false-if-exception + (let ((flags (fcntl fd F_GETFD))) + (when (zero? (logand flags FD_CLOEXEC)) + (fcntl fd F_SETFD (logior FD_CLOEXEC flags))))) + (loop (+ fd 1)))) ;; Start shepherd. (execl #$(file-append shepherd "/bin/shepherd") diff --git a/gnu/services/vnc.scm b/gnu/services/vnc.scm new file mode 100644 index 0000000000..15c3c14fee --- /dev/null +++ b/gnu/services/vnc.scm @@ -0,0 +1,247 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com> +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu services vnc) + #:use-module (gnu packages vnc) + #:use-module ((gnu services) #:hide (delete)) + #:use-module (gnu system shadow) + #:use-module (gnu services configuration) + #:use-module (gnu services shepherd) + #:use-module (guix gexp) + #:use-module (guix records) + + #:export (xvnc-configuration + xvnc-configuration-xvnc + xvnc-configuration-display-number + xvnc-configuration-geometry + xvnc-configuration-depth + xvnc-configuration-port + xvnc-configuration-ipv4? + xvnc-configuration-ipv6? + xvnc-configuration-password-file + xvnc-configuration-xdmcp? + xvnc-configuration-inetd? + xvnc-configuration-frame-rate + xvnc-configuration-security-types + xvnc-configuration-localhost? + xvnc-configuration-log-level + xvnc-configuration-extra-options + + xvnc-service-type)) + +;;; +;;; Xvnc. +;;; + +(define (color-depth? x) + (member x '(16 24 32))) + +(define (port? x) + (and (number? x) + (and (>= x 0) (<= x 65535)))) + +(define-maybe/no-serialization port) + +(define-maybe/no-serialization string) + +(define %security-types '("None" "VncAuth" "Plain" "TLSNone" "TLSVnc" "TLSPlain" + "X509None" "X509Vnc")) + +(define (security-type? x) + (member x %security-types)) + +(define (security-types? x) + (and (list? x) + (and-map security-type? x))) + +(define (log-level? x) + (and (number? x) + (and (>= x 0) (<= x 100)))) + +(define (strings? x) + (and (list? x) + (and-map string? x))) + +(define-configuration/no-serialization xvnc-configuration + (xvnc + (file-like tigervnc-server) + "The package that provides the Xvnc binary.") + (display-number + (number 0) + "The display number used by Xvnc. You should set this to a number not +already used by a Xorg server. When remoting a complete desktop session via +XDMCP and using a compatible VNC viewer as provided by the +@code{tigervnc-client} or @code{turbovnc} packages, the geometry is +automatically adjusted.") + (geometry + (string "1024x768") + "The size of the desktop to be created.") + (depth + (color-depth 24) + "The pixel depth in bits of the desktop to be created. Accepted values are +16, 24 or 32.") + (port + maybe-port + "The port on which to listen for connections from viewers. When left +unspecified, it defaults to 5900 plus the display number.") + (ipv4? + (boolean #t) + "Use IPv4 for incoming and outgoing connections.") + (ipv6? + (boolean #t) + "Use IPv6 for incoming and outgoing connections.") + (password-file + maybe-string + "The password file to use, if any. Refer to vncpasswd(1) to learn how to +generate such a file.") + (xdmcp? + (boolean #f) + "Query the XDMCP server for a session. This enables users to log in a +desktop session from the login manager screen. For a multiple users scenario, +you'll want to enable the @code{inetd?} option as well, so that each +connection to the VNC server is handled separately rather than shared.") + (inetd? + (boolean #f) + "Use an Inetd-style service, which runs the Xvnc server on demand.") + (frame-rate + (number 60) + "The maximum number of updates per second sent to each client.") + (security-types + (security-types (list "None")) + (format #f "The allowed security schemes to use for incoming connections. +The default is \"None\", which is safe given that Xvnc is configured to +authenticate the user via the display manager, and only for local connections. +Accepted values are any of the following: ~s" %security-types)) + (localhost? + (boolean #t) + "Only allow connections from the same machine. It is set to @code{#true} +by default for security, which means SSH or another secure means should be +used to expose the remote port.") + (log-level + (log-level 30) + "The log level, a number between 0 and 100, 100 meaning most verbose +output. The log messages are output to syslog.") + (extra-options + (strings '()) + "This can be used to provide extra Xvnc options not exposed via this +<xvnc-configuration> record.")) + +(define (xvnc-configuration->command-line-arguments config) + "Derive the command line arguments to used to launch the Xvnc daemon from +CONFIG, a <xvnc-configuration> object." + (match-record config <xvnc-configuration> + (xvnc display-number geometry depth port ipv4? ipv6? password-file xdmcp? + inetd? frame-rate security-types localhost? log-level extra-options) + #~(list #$(file-append xvnc "/bin/Xvnc") + #$(format #f ":~a" display-number) + "-geometry" #$geometry + "-depth" #$(number->string depth) + #$@(if inetd? + (list "-inetd") + '()) + #$@(if (not inetd?) + (if (maybe-value-set? port) + (list "-rfbport" (number->string port)) + '()) + '()) + #$@(if (not inetd?) + (if ipv4? + (list "-UseIPv4") + '()) + '()) + #$@(if (not inetd?) + (if ipv6? + (list "-UseIPv6") + '()) + '()) + #$@(if (maybe-value-set? password-file) + (list "-PasswordFile" password-file) + '()) + "-FrameRate" #$(number->string frame-rate) + "-SecurityTypes" #$(string-join security-types ",") + #$@(if localhost? + (list "-localhost") + '()) + "-Log" #$(format #f "*:syslog:~a" log-level) + #$@(if xdmcp? + (list "-query" "localhost" "-once") + '()) + #$@extra-options))) + +(define %xvnc-accounts + (list (user-group + (name "xvnc") + (system? #t)) + (user-account + (name "xvnc") + (group "xvnc") + (system? #t) + (comment "User for Xvnc server")))) + +(define (xvnc-shepherd-service config) + "Return a <shepherd-service> for Xvnc with CONFIG." + (let* ((display-number (xvnc-configuration-display-number config)) + (port (if (maybe-value-set? (xvnc-configuration-port config)) + (xvnc-configuration-port config) + #f)) + (port* (or port (+ 5900 display-number)))) + (shepherd-service + (provision '(xvnc vncserver)) + (documentation "Run the Xvnc server.") + (requirement '(networking syslogd)) + (start (if (xvnc-configuration-inetd? config) + #~(let* ((inaddr (if #$(xvnc-configuration-localhost? config) + INADDR_LOOPBACK + INADDR_ANY)) + (in6addr (if #$(xvnc-configuration-localhost? config) + IN6ADDR_LOOPBACK + IN6ADDR_ANY)) + (ipv4-socket (and #$(xvnc-configuration-ipv4? config) + (make-socket-address AF_INET inaddr + #$port*))) + (ipv6-socket (and #$(xvnc-configuration-ipv6? config) + (make-socket-address AF_INET6 in6addr + #$port*)))) + (make-inetd-constructor + #$(xvnc-configuration->command-line-arguments config) + `(,@(if ipv4-socket + (list (endpoint ipv4-socket)) + '()) + ,@(if ipv6-socket + (list (endpoint ipv6-socket)) + '())) + #:user "xvnc" + #:group "xvnc")) + #~(make-forkexec-constructor + #$(xvnc-configuration->command-line-arguments config) + #:user "xvnc" + #:group "xvnc"))) + (stop #~(make-inetd-destructor))))) + +(define xvnc-service-type + (service-type + (name 'xvnc) + (default-value (xvnc-configuration)) + (description "Run the Xvnc server, which creates a virtual X11 session and +allow remote clients connecting to it via the remote framebuffer (RFB) +protocol.") + (extensions (list (service-extension + shepherd-root-service-type + (compose list xvnc-shepherd-service)) + (service-extension account-service-type + (const %xvnc-accounts)))))) diff --git a/gnu/services/web.scm b/gnu/services/web.scm index e347f5dbcc..e5ab1a1180 100644 --- a/gnu/services/web.scm +++ b/gnu/services/web.scm @@ -1438,32 +1438,40 @@ files.") (documentation "Anonimyze the given log file location with anonip.") (start - #~(lambda _ - (unless (file-exists? #$input) - (mknod #$input 'fifo #o600 0)) - (let ((pid - (fork+exec-command - (append - (list #$(file-append (anonip-configuration-anonip config) - "/bin/anonip") - (string-append "--input=" #$input) - (string-append "--output=" #$output)) - (if #$(anonip-configuration-skip-private? config) - '("--skip-private") (list)) - '#$(optional anonip-configuration-column "--column") - '#$(optional anonip-configuration-ipv4mask "--ipv4mask") - '#$(optional anonip-configuration-ipv6mask "--ipv6mask") - '#$(optional anonip-configuration-increment "--increment") - '#$(optional anonip-configuration-replacement - "--replacement") - '#$(optional anonip-configuration-delimiter "--delimiter") - '#$(optional anonip-configuration-regex "--regex")) - ;; Run in a UTF-8 locale - #:environment-variables - (list (string-append "GUIX_LOCPATH=" #$glibc-utf8-locales - "/lib/locale") - "LC_ALL=en_US.utf8")))) - pid))) + #~(lambda () + (define (spawn) + (fork+exec-command + (append + (list #$(file-append (anonip-configuration-anonip config) + "/bin/anonip") + (string-append "--input=" #$input) + (string-append "--output=" #$output)) + (if #$(anonip-configuration-skip-private? config) + '("--skip-private") (list)) + '#$(optional anonip-configuration-column "--column") + '#$(optional anonip-configuration-ipv4mask "--ipv4mask") + '#$(optional anonip-configuration-ipv6mask "--ipv6mask") + '#$(optional anonip-configuration-increment "--increment") + '#$(optional anonip-configuration-replacement + "--replacement") + '#$(optional anonip-configuration-delimiter "--delimiter") + '#$(optional anonip-configuration-regex "--regex")) + ;; Run in a UTF-8 locale + #:environment-variables + (list (string-append "GUIX_LOCPATH=" #$glibc-utf8-locales + "/lib/locale") + "LC_ALL=en_US.utf8"))) + + (let ((stat (stat #$input #f))) + (cond ((not stat) + (mknod #$input 'fifo #o600 0) + (spawn)) + ((eq? 'fifo (stat:type stat)) + (spawn)) + (else + (format #t "'~a' is not a FIFO; bailing out~%" + #$input) + #f))))) (stop #~(make-kill-destructor)))))) (define anonip-service-type diff --git a/gnu/services/xorg.scm b/gnu/services/xorg.scm index 3ff290c197..7f1f0bb581 100644 --- a/gnu/services/xorg.scm +++ b/gnu/services/xorg.scm @@ -12,6 +12,7 @@ ;;; Copyright © 2021 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2021 Josselin Poiret <josselin.poiret@protonmail.ch> ;;; Copyright © 2022 Chris Marusich <cmmarusich@gmail.com> +;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -32,6 +33,7 @@ #:autoload (gnu services sddm) (sddm-service-type) #:use-module (gnu artwork) #:use-module (gnu services) + #:use-module (gnu services configuration) #:use-module (gnu services shepherd) #:use-module (gnu system pam) #:use-module (gnu system setuid) @@ -63,6 +65,7 @@ #:use-module (srfi srfi-1) #:use-module (srfi srfi-9) #:use-module (srfi srfi-26) + #:use-module (ice-9 format) #:use-module (ice-9 match) #:export (xorg-configuration xorg-configuration? @@ -113,6 +116,13 @@ localed-configuration? localed-service-type + dconf-keyfile + dconf-profile + dconf-profile-name + dconf-profile-content + dconf-profile-keyfile + dconf-service-type + gdm-configuration gdm-service-type @@ -663,13 +673,7 @@ reboot_cmd " shepherd "/sbin/reboot\n" (list (service-extension shepherd-root-service-type slim-shepherd-service) (service-extension pam-root-service-type - slim-pam-service) - - ;; Unconditionally add xterm to the system profile, to - ;; avoid bad surprises. - (service-extension profile-service-type - (const (list xterm))))) - + slim-pam-service))) (default-value (slim-configuration)) (description "Run the SLiM graphical login manager for X11.")))) @@ -804,6 +808,106 @@ the GNOME desktop environment.") ;;; +;;; Dconf. +;;; + +(define-maybe text-config) + +(define-configuration/no-serialization dconf-keyfile + (name string + "The file name of the associated keyfile, e.g. \"00-login-screen\".") + (content text-config "The content of the associated keyfile.")) + +(define-configuration/no-serialization dconf-profile + (name string "The file name of the dconf system profile, which should match +the name of a user for which the profile is to be used with. To have the +profile used, the environment variable \"DCONF_PROFILE\" should be set to the +profile file, e.g.: +@example + export DCONF_PROFILE=/etc/dconf/profile/gdm +@end example") + (content maybe-text-config "The content of the Dconf profile. Unless +provided, it defaults to include the user database (\"user-db:NAME\") as well +as the system database (\"system-db:NAME\"), which corresponds to the +generated database, @file{/etc/dconf/db/NAME}.") + (keyfile dconf-keyfile "The keyfile associated with the profile")) + +(define dconf-profiles? + (list-of dconf-profile?)) + +(define-configuration/no-serialization dconf-configuration + (profiles dconf-profiles "The list of <dconf-profile> objects to populate.")) + +(define (dconf-profile->profile-file profile) + "Given PROFILE, a <dconf-profile> object, return a dconf profile file." + (let ((name (dconf-profile-name profile)) + (content (dconf-profile-content profile))) + (apply mixed-text-file + name + (if (maybe-value-set? content) + (interpose content "\n" 'suffix) + (interpose (list (string-append "user-db:" name) + (string-append "system-db:" name)) + "\n" 'suffix))))) + +(define (dconf-profile->db-keyfile profile) + "Given PROFILE, a <dconf-profile> object, return a dconf profile file." + (let ((keyfile (dconf-profile-keyfile profile))) + (apply mixed-text-file (dconf-keyfile-name keyfile) + (interpose (dconf-keyfile-content keyfile) "\n" 'suffix)))) + +(define (dconf-profile->db-keyfile-dir profile) + "Wrap the keyfile in a directory, to satisfy 'dconf compile'." + (let ((name (dconf-profile-name profile)) + (keyfile-name (dconf-keyfile-name (dconf-profile-keyfile profile)))) + (computed-file name + #~(begin + (mkdir #$output) + (symlink #$(dconf-profile->db-keyfile profile) + (string-append #$output "/" #$keyfile-name)))))) + +(define (dconf-profile->db profile) + "Compile the a <dconf-profile> object into a GVariant Database file." + (let ((name (dconf-profile-name profile))) + (computed-file + name + (with-imported-modules '((guix build utils)) + #~(begin + (use-modules (guix build utils)) + (setenv "DCONF_PROFILE" #$(dconf-profile->profile-file profile)) + (invoke #$(file-append dconf "/bin/dconf") "compile" + #$output #$(dconf-profile->db-keyfile-dir profile))))))) + +(define (dconf-profile->files profile) + "Given PROFILE, a <dconf-profile> object, return a dconf directory +containing the associated profile, keyfile and database files to be assembled +under /etc." + (let ((name (dconf-profile-name profile)) + (keyfile-name (dconf-keyfile-name (dconf-profile-keyfile profile)))) + (list (list (string-append "dconf/profile/" name) + (dconf-profile->profile-file profile)) + (list (string-append "dconf/db/" name ".d/" keyfile-name) + (dconf-profile->db-keyfile profile)) + (list (string-append "dconf/db/" name) + (dconf-profile->db profile))))) + +(define dconf-service-type + (service-type + (name 'dconf-profile) + (extensions + (list (service-extension etc-service-type + (lambda (dconf-profiles) + (append-map dconf-profile->files + dconf-profiles))))) + (compose concatenate) + (extend append) + (default-value '()) + (description "Extend the @code{etc-service-type} to populate the file +hierarchy under @file{/etc/dconf} with the <dconf-profile> objects provided as +argument."))) + + +;;; ;;; GNOME Desktop Manager. ;;; @@ -876,6 +980,7 @@ the GNOME desktop environment.") (gdm gdm-configuration-gdm (default gdm)) (allow-empty-passwords? gdm-configuration-allow-empty-passwords? (default #t)) (auto-login? gdm-configuration-auto-login? (default #f)) + (auto-suspend? gdm-configuration-auto-suspend? (default #t)) (dbus-daemon gdm-configuration-dbus-daemon (default dbus-daemon-wrapper)) (debug? gdm-configuration-debug? (default #f)) (default-user gdm-configuration-default-user (default #f)) @@ -885,10 +990,36 @@ the GNOME desktop environment.") (default (xorg-configuration))) (x-session gdm-configuration-x-session (default (xinitrc))) + (xdmcp? gdm-configuration-xdmcp? + (default #f)) (wayland? gdm-configuration-wayland? (default #f)) (wayland-session gdm-configuration-wayland-session (default gdm-wayland-session-wrapper))) +(define (gdm-dconf-profiles config) + (if (gdm-configuration-auto-suspend? config) + '() + ;; This custom gconf profile works around a lack of configuration option + ;; to disable auto-suspend when no users are physically logged in (see: + ;; https://gitlab.gnome.org/GNOME/gnome-control-center/-/issues/22). + (list (dconf-profile + (name "gdm") + (content (list #~(begin + (use-modules (ice-9 textual-ports)) + (string-trim + (call-with-input-file + #$(file-append gdm "/share/dconf/profile/gdm") + get-string-all))) + "system-db:gdm")) + (keyfile (dconf-keyfile + (name "00-disable-suspend") + (content + (list "[org/gnome/settings-daemon/plugins/power]" + "sleep-inactive-ac-type='nothing'" + "sleep-inactive-battery-type='nothing'" + "sleep-inactive-ac-timeout=0" + "sleep-inactive-battery-timeout=0")))))))) + (define (gdm-configuration-file config) (mixed-text-file "gdm-custom.conf" "[daemon]\n" @@ -913,18 +1044,20 @@ the GNOME desktop environment.") ;; See also ;; <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=39281>. "InitialSetupEnable=false\n" - "WaylandEnable=" (if (gdm-configuration-wayland? config) - "true" - "false") "\n" + (format #f "WaylandEnable=~:[false~;true~]~%" + (gdm-configuration-wayland? config)) "\n" "[debug]\n" - "Enable=" (if (gdm-configuration-debug? config) - "true" - "false") "\n" + (format #f "Enable=~:[false~;true~]~%" + (gdm-configuration-debug? config)) "\n" "[security]\n" "#DisallowTCP=true\n" - "#AllowRemoteAutoLogin=false\n")) + "#AllowRemoteAutoLogin=false\n" + "\n" + "[xdmcp]\n" + (format #f "Enable=~:[false~;true~]~%" + (gdm-configuration-xdmcp? config)))) (define (gdm-pam-service config) "Return a PAM service for @command{gdm}." @@ -959,7 +1092,10 @@ the GNOME desktop environment.") (list #$(file-append (gdm-configuration-gdm config) "/bin/gdm")) #:environment-variables - (list (string-append + (list #$@(if (gdm-configuration-auto-suspend? config) + #~() + #~("DCONF_PROFILE=/etc/dconf/profile/gdm")) + (string-append "GDM_CUSTOM_CONF=" #$(gdm-configuration-file config)) (string-append @@ -995,6 +1131,41 @@ the GNOME desktop environment.") (stop #~(make-kill-destructor)) (respawn? #t)))) +(define gdm-polkit-rules + (lambda (config) + (if (gdm-configuration-xdmcp? config) + ;; Allow remote (XDMCP) users to use colord; otherwise an + ;; authentication dialog would appear on the GDM screen (see the + ;; upstream bug: + ;; https://gitlab.gnome.org/GNOME/gnome-settings-daemon/-/issues/273). + (list (computed-file + "02-allow-colord.rules" + (with-imported-modules '((guix build utils)) + #~(begin + (use-modules (guix build utils)) + + (let* ((rules.d + (string-append #$output + "/share/polkit-1" + "/rules.d")) + (allow-colord.rules (string-append + rules.d + "/02-allow-colord.rules"))) + (mkdir-p rules.d) + (call-with-output-file allow-colord.rules + (lambda (port) + ;; This workaround enables any local or remote in + ;; the "users" group to use colord (see: + ;; https://c-nergy.be/blog/?p=12073). + (format port "\ +polkit.addRule(function(action, subject) { + if (action.id.match(\"org.freedesktop.color-manager\")) { + polkit.log(\"POLKIT DEBUG returning YES for action: \" + action); + return polkit.Result.YES; + } +});~%")))))))) + '()))) + (define gdm-service-type (handle-xorg-configuration gdm-configuration (service-type (name 'gdm) @@ -1003,8 +1174,12 @@ the GNOME desktop environment.") gdm-shepherd-service) (service-extension account-service-type (const %gdm-accounts)) + (service-extension dconf-service-type + gdm-dconf-profiles) (service-extension pam-root-service-type gdm-pam-service) + (service-extension polkit-service-type + gdm-polkit-rules) (service-extension profile-service-type gdm-configuration-gnome-shell-assets) (service-extension dbus-root-service-type diff --git a/gnu/system.scm b/gnu/system.scm index 66ca629d63..b7f19d741a 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -265,7 +265,8 @@ VERSION is the target version of the boot-parameters record." (packages operating-system-packages ; list of (PACKAGE OUTPUT...) (default %base-packages)) ; or just PACKAGE - (timezone operating-system-timezone) ; string + (timezone operating-system-timezone + (default "Etc/UTC")) ; string (locale operating-system-locale ; string (default "en_US.utf8")) (locale-definitions operating-system-locale-definitions ; list of <locale-definition> diff --git a/gnu/tests/base.scm b/gnu/tests/base.scm index 636b127fb8..64cd6a911a 100644 --- a/gnu/tests/base.scm +++ b/gnu/tests/base.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2022 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> +;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -509,18 +510,18 @@ info --version") (file-exists? capture)))) (test-assert "screen text" - (let ((text (marionette-screen-text marionette - #:ocr - #$(file-append ocrad - "/bin/ocrad")))) - ;; Check whether the welcome message and shell prompt are - ;; displayed. Note: OCR confuses "y" and "V" for instance, so - ;; we cannot reliably match the whole text. - (and (string-contains text "This is the GNU") - (string-contains text - (string-append - "root@" - #$(operating-system-host-name os)))))) + (wait-for-screen-text + marionette + (lambda (text) + ;; Check whether the welcome message and shell prompt are + ;; displayed. Note: OCR confuses "y" and "V" for instance, so + ;; we cannot reliably match the whole text. + (and (string-contains text "This is the GNU") + (string-contains text + (string-append + "root@" + #$(operating-system-host-name os))))) + #:ocr #$(file-append ocrad "/bin/ocrad"))) (test-end)))) diff --git a/gnu/tests/install.scm b/gnu/tests/install.scm index 4e0e274e66..30a9026d5f 100644 --- a/gnu/tests/install.scm +++ b/gnu/tests/install.scm @@ -471,6 +471,8 @@ reboot\n") (mlet* %store-monad ((images (run-install %minimal-os-on-vda %minimal-os-on-vda-source + #:packages + (list e2fsprogs) #:script %simple-installation-script-for-/dev/vda #:installation-image-type diff --git a/gnu/tests/vnc.scm b/gnu/tests/vnc.scm new file mode 100644 index 0000000000..5c4bd43fa3 --- /dev/null +++ b/gnu/tests/vnc.scm @@ -0,0 +1,203 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>. +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. + +(define-module (gnu tests vnc) + #:use-module (gnu bootloader) + #:use-module (gnu bootloader grub) + #:use-module (gnu packages) + #:use-module (gnu packages ocr) + #:use-module (gnu packages glib) + #:use-module (gnu packages gnome) + #:use-module (gnu packages ratpoison) + #:use-module (gnu packages vnc) + #:use-module (gnu packages xorg) + #:use-module (gnu services) + #:use-module (gnu services dbus) + #:use-module (gnu services desktop) + #:use-module (gnu services networking) + #:use-module (gnu services ssh) + #:use-module (gnu services vnc) + #:use-module (gnu services xorg) + #:use-module (gnu system) + #:use-module (gnu system file-systems) + #:use-module (gnu system shadow) + #:use-module (gnu system vm) + #:use-module (gnu tests) + #:use-module (guix gexp) + #:use-module (guix modules) + #:export (%test-xvnc)) + +(define %xvnc-os + (operating-system + ;; Usual boilerplate. + (host-name "komputilo") + (timezone "Europe/Berlin") + (locale "en_US.UTF-8") + (bootloader (bootloader-configuration + (bootloader grub-bootloader) + (targets '("/dev/sdX")))) + (file-systems (cons (file-system + (device (file-system-label "my-root")) + (mount-point "/") + (type "ext4")) + %base-file-systems)) + + (users (cons (user-account + (name "dummy") + (group "users") + (supplementary-groups '("wheel" "netdev" + "audio" "video"))) + %base-user-accounts)) + (packages (cons* dbus ;for dbus-run-session + dconf + `(,glib "bin") + glib + gnome-settings-daemon ;for schemas + ratpoison + tigervnc-client + xterm + %base-packages)) + (services (cons* + (service openssh-service-type (openssh-configuration + (permit-root-login #t) + (allow-empty-passwords? #t))) + (service xvnc-service-type (xvnc-configuration + (display-number 5) + (security-types (list "None")) + (log-level 100) + (localhost? #f) + (xdmcp? #t) + (inetd? #t))) + (modify-services %desktop-services + (gdm-service-type config => (gdm-configuration + (inherit config) + (auto-login? #t) + (auto-suspend? #f) + (default-user "root") + (debug? #t) + (xdmcp? #t)))))))) + +(define (run-xvnc-test) + "Run tests in %XVNC-OS." + + (define os (marionette-operating-system + %xvnc-os + #:imported-modules (source-module-closure + '((gnu services herd))))) + + (define vm (virtual-machine + (operating-system os) + (memory-size 1024))) + + (define test + (with-imported-modules (source-module-closure + '((gnu build marionette) + (guix build utils))) + #~(begin + (use-modules (gnu build marionette) + (guix build utils) + (srfi srfi-26) + (srfi srfi-64)) + + (let ((marionette (make-marionette (list #$vm)))) + + (test-runner-current (system-test-runner #$output)) + (test-begin "xvnc") + + (test-assert "service running" + (marionette-eval + '(begin + (use-modules (gnu services herd)) + (start-service 'xvnc)) + marionette)) + + (test-assert "wait for port 5905, IPv4" + (wait-for-tcp-port 5905 marionette)) + + (test-assert "wait for port 5905, IPv6" + (wait-for-tcp-port 5905 marionette + #:address + '(make-socket-address + AF_INET6 (inet-pton AF_INET6 "::1") 5905))) + + (test-assert "gdm auto-suspend is disabled" + ;; More a GDM than a Xvnc test, but since it's a cross-cutting + ;; concern and we have everything set up here, we might as well + ;; check it here. + (marionette-eval + '(begin + ;; Check that DCONF_PROFILE is set... + (invoke "/bin/sh" "-lc" "\ +pgrep gdm | head -n1 | xargs -I{} grep -Fq DCONF_PROFILE /proc/{}/environ") + + ;; ... and that + (invoke "/bin/sh" "-lc" "\ +sudo -E -u gdm env DCONF_PROFILE=/etc/dconf/profile/gdm dbus-run-session \ +gsettings get org.gnome.settings-daemon.plugins.power sleep-inactive-ac-type \ +| grep -Fq nothing")) + marionette)) + + (test-assert "vnc lands on the gdm login screen" + ;; This test runs vncviewer on the local VM and verifies that it + ;; manages to access the GDM login screen (via XDMCP). + (begin + (define (ratpoison-abort) + (marionette-control "sendkey ctrl-g" marionette)) + + (define (ratpoison-help) + (marionette-control "sendkey ctrl-t" marionette) + (marionette-type "?" marionette) + (sleep 1)) ;wait for help screen to appear + + (define (ratpoison-exec command) + (marionette-control "sendkey ctrl-t" marionette) + (marionette-type "!" marionette) + (marionette-type (string-append command "\n") marionette)) + + ;; Wait until the ratpoison help screen can be displayed; this + ;; means the window manager is ready. + (wait-for-screen-text marionette + (cut string-contains <> "key bindings") + #:ocr #$(file-append tesseract-ocr + "/bin/tesseract") + #:pre-action ratpoison-help + #:post-action ratpoison-abort) + + ;; Run vncviewer and expect the GDM login screen (accessed via + ;; XDMCP). This can take a while to appear on slower machines. + (ratpoison-exec "vncviewer localhost:5905") + ;; XXX: tesseract narrowly recognizes "Guix" as "uix" from the + ;; background image; ocrad fares worst. Sadly, 'Username' is + ;; not recognized at all. + (wait-for-screen-text marionette + (cut string-contains <> "uix") + #:ocr #$(file-append tesseract-ocr + "/bin/tesseract") + #:timeout 120))) + + (test-end))))) + + (gexp->derivation "xvnc-test" test)) + +(define %test-xvnc + (system-test + (name "xvnc") + (description "Basic tests for the Xvnc service. One of the tests validate +that XDMCP works with GDM, and is therefore heavy in terms of disk and memory +requirements.") + (value (run-xvnc-test)))) |