me
/
guix
Archived
1
0
Fork 0
Code

Merge branch 'master' into core-updates

master
Christopher Baines 2021-03-05 22:56:40 +00:00
parent 4f4b749e75 a714af38d5
commit a8448da0f4
No known key found for this signature in database
GPG Key ID: 5E28A33B0B84F577
245 changed files with 62932 additions and 4624 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.guix-authorizations
View File

@ -86,6 +86,8 @@
(;; primary: "4F71 6F9A 8FA2 C80E F1B5 E1BA 5E35 F231 DE1A C5E0"
"B051 5948 F1E7 D3C1 B980 38A0 2646 FA30 BACA 7F08"
(name "lfam"))
("148B CB8B D80B FB16 B1DE 0E91 45A8 B1E8 6BCD 10A6"
(name "lle_bout"))
("2AE3 1395 932B E642 FC0E D99C 9BED 6EDA 32E5 B0BC"
(name "lsl88"))
("8887 84C4 1459 ACCB 83E7 E84C 634C 6E89 79FA BEC2"

6
Makefile.am
View File

@ -114,6 +114,7 @@ MODULES = \
guix/channels.scm \
guix/gnu-maintenance.scm \
guix/self.scm \
guix/substitutes.scm \
guix/upstream.scm \
guix/licenses.scm \
guix/lint.scm \
@ -359,6 +360,10 @@ AUX_FILES = \
gnu/packages/aux-files/chromium/master-preferences.json \
gnu/packages/aux-files/emacs/guix-emacs.el \
gnu/packages/aux-files/guix.vim \
gnu/packages/aux-files/linux-libre/5.11-arm.conf \
gnu/packages/aux-files/linux-libre/5.11-arm64.conf \
gnu/packages/aux-files/linux-libre/5.11-i686.conf \
gnu/packages/aux-files/linux-libre/5.11-x86_64.conf \
gnu/packages/aux-files/linux-libre/5.10-arm.conf \
gnu/packages/aux-files/linux-libre/5.10-arm64.conf \
gnu/packages/aux-files/linux-libre/5.10-i686.conf \
@ -476,6 +481,7 @@ SCM_TESTS = \
tests/scripts.scm \
tests/search-paths.scm \
tests/services.scm \
tests/services/file-sharing.scm \
tests/services/linux.scm \
tests/sets.scm \
tests/size.scm \

10
doc/contributing.texi
View File

@ -1086,10 +1086,12 @@ everything has been successfully built. This allows us to fix issues
before they hit users, and to reduce the window during which pre-built
binaries are not available.
Generally, branches other than @code{master} are considered
@emph{frozen} if there has been a recent evaluation, or there is a
corresponding @code{-next} branch. Please ask on the mailing list or
IRC if unsure where to place a patch.
When we decide to start building the @code{staging} or
@code{core-updates} branches, they will be forked and renamed with the
suffix @code{-frozen}, at which time only bug fixes may be pushed to the
frozen branches. The @code{core-updates} and @code{staging} branches
will remain open to accept patches for the next cycle. Please ask on
the mailing list or IRC if unsure where to place a patch.
@c TODO: It would be good with badges on the website that tracks these
@c branches. Or maybe even a status page.

1281
doc/guix.texi
View File

File diff suppressed because it is too large Load Diff

7
etc/completion/fish/guix.fish
View File

@ -133,7 +133,7 @@ complete -f -c guix -n '__fish_guix_using_command pull' -l url -d 'download the
complete -f -c guix -n '__fish_guix_using_command pull' -l bootstrap -d 'use the bootstrap Guile to build the new Guix'
#### system
set -l remotecommands reconfigure roll-back switch-generation list-generations build container vm vm-image disk-image init extension-graph shepherd-graph load-path keep-failed keep-going dry-run fallback no-substitutes substitutes-urls no-grafts no-offload max-silent-time timeout verbosity rounds cores max-jobs derivation on-error image-size no-grub share expose full-boot
set -l remotecommands reconfigure roll-back switch-generation list-generations build container vm image init extension-graph shepherd-graph load-path keep-failed keep-going dry-run fallback no-substitutes substitutes-urls no-grafts no-offload max-silent-time timeout verbosity rounds cores max-jobs derivation on-error image-size no-grub share expose full-boot
complete -f -c guix -n '__fish_guix_needs_command' -a system -d 'Build the operating system declared in FILE according to ACTION.'
complete -f -c guix -n '__fish_guix_using_command system' -l reconfigure -d 'switch to a new operating system configuration'
complete -f -c guix -n '__fish_guix_using_command system' -l roll-back -d 'switch to the previous operating system configuration'
@ -142,8 +142,7 @@ complete -f -c guix -n '__fish_guix_using_command system' -l list-generations -d
complete -f -c guix -n '__fish_guix_using_command system' -l build -d 'build the operating system without installing anything'
complete -f -c guix -n '__fish_guix_using_command system' -l container -d 'build a container that shares the host\'s store'
complete -f -c guix -n '__fish_guix_using_command system' -l vm -d 'build a virtual machine image that shares the host\'s store'
complete -f -c guix -n '__fish_guix_using_command system' -l vm-image -d 'build a freestanding virtual machine image'
complete -f -c guix -n '__fish_guix_using_command system' -l disk-image -d 'build a disk image, suitable for a USB stick'
complete -f -c guix -n '__fish_guix_using_command system' -l image -d 'build a disk image, suitable for a USB stick'
complete -f -c guix -n '__fish_guix_using_command system' -l init -d 'initialize a root file system to run GNU'
complete -f -c guix -n '__fish_guix_using_command system' -l extension-graph -d 'emit the service extension graph in Dot format'
complete -f -c guix -n '__fish_guix_using_command system' -l shepherd-graph -d 'emit the graph of shepherd services in Dot format'
@ -167,7 +166,7 @@ complete -f -c guix -n '__fish_guix_using_command system' -s M -d 'allow at most
complete -f -c guix -n '__fish_guix_using_command system' -a "--max-jobs=" -d 'allow at most N build jobs'
complete -f -c guix -n '__fish_guix_using_command system' -s d -l derivation -d 'return the derivation of the given system'
complete -f -c guix -n '__fish_guix_using_command system' -a "--on-error=" -d 'apply STRATEGY when an error occurs while reading FILE'
complete -f -c guix -n '__fish_guix_using_command system' -a "--image-size=" -d 'for \'vm-image\', produce an image of SIZE'
complete -f -c guix -n '__fish_guix_using_command system' -a "--image-size=" -d 'for \'image\', produce an image of SIZE'
complete -f -c guix -n '__fish_guix_using_command system' -l no-grub -d 'for \'init\', do not install GRUB'
complete -f -c guix -n '__fish_guix_using_command system' -a "--share=" -d 'for \'vm\', share host file system according to SPEC'
complete -f -c guix -n '__fish_guix_using_command system' -a "--expose=" -d 'for \'vm\', expose host file system according to SPEC'

2
etc/completion/zsh/_guix
View File

@ -383,7 +383,7 @@ _guix_list_installed_packages()
'--max-jobs=[allow at most N build jobs]:N' \
'--derivation[return the derivation of the given system]' \
'--on-error=[apply STRATEGY when an error occurs while reading FILE]:STRATEGY' \
'--image-size=[for "vm-image", produce an image of SIZE]:SIZE' \
'--image-size=[for "image", produce an image of SIZE]:SIZE' \
'--no-grub[for "init", do not install GRUB]' \
'--share=[for "vm", share host file system according to SPEC]:SPEC' \
'--expose=[for "vm", expose host file system according to SPEC]:SPEC' \

80
etc/news.scm
View File

@ -7,9 +7,10 @@
;; Copyright © 2019, 2020 Julien Lepiller <julien@lepiller.eu>
;; Copyright © 2019, 2020, 2021 Florian Pelz <pelzflorian@pelzflorian.de>
;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;; Copyright © 2020, 2021 Mathieu Othacehe <m.othacehe@gmail.com>
;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;; Copyright © 2021 Leo Famulari <leo@famulari.name>
;;
;; Copying and distribution of this file, with or without modification, are
;; permitted in any medium without royalty provided the copyright notice and
@ -18,11 +19,72 @@
(channel-news
(version 0)
(entry (commit "1b5b882120daf7d111aa351a919a90e818324347")
(title
(en "The @code{linux-libre} kernel is updated to 5.11.2")
(de "Der Kernel @code{linux-libre} wird auf 5.11.2 aktualisiert")
(fr "Le noyau @code{linux-libre} est mis à jour vers la 5.11.2")
(nl "De @code{linux-libre}-kernel werd bijgewertk naar 5.11.2"))
(body
(en "The default @code{linux-libre} kernel is now based on the 5.11
stable kernel series, beginning with version 5.11.2. Promiment features include
improved Wine performance, unprivileged Overlayfs mounts, support for Intel SGX,
support for new graphics hardware, and improved performance of the Btrfs
file system.")
(de "Der standardmäßig verwendete @code{linux-libre}-Kernel basiert
jetzt auf der 5.11-„stable“-Versionsreihe, angefangen mit Version 5.11.2. Zu
den markanten Neuerungen gehören bessere Wine-Unterstützung, Einbinden per
Overlayfs für Nutzer ohne erweiterte Rechte, Unterstützung für Intel SGX, für
neue Grafikhardware und bessere Leistung beim Btrfs-Dateisystem.")
(fr "Le noyau @code{linux-libre} par défaut est maintenant basé sur la
lignée stable 5.11 du noyau, à commencer par la version 5.11.2. Parmi les
fonctionnalités notables on trouve des performances améliorées pour Wine, le
montage Overlayfs non privilégié, la prise en charge d'Intel SGX, celle des
nouveaux périphériques graphiques et de meilleures performances du système de
fichiers Btrfs.")
(nl "De standaard @code{linux-libre}-kernel is nu geëent op de
stabiele 5.11-reeks, te beginnen met versie 5.11.2. Deze update biedt onder
andere verbeterde prestaties voor Wine en het Btfrs-bestandssysteem, laat
gewone gebruikers toe om met Overlayfs bestandssystemen te combineren, en
ondersteunt Intel SGX en nieuwe grafische apparatuur.")))
(entry (commit "6e8cdf1d26092cb9654e179b04730fff7c15c94f")
(title
(en "The @command{guix system image} command can now operate on image records")
(de "Der Befehl @command{guix system image} kann jetzt auch mit @code{image}-Verbundsobjekten umgehen")
(fr "La commande @command{guix system image} peut désormais fonctionner sur des images"))
(body
(en "The @command{guix system image} command can now operate on
@code{image} records. This means that the file parameter or the expression
passed to this command can return @code{image} or @code{operating-system}
records.
The @file{gnu/system/images} directory contains default images that can be
built by running @command{guix system image gnu/system/images/pine64.scm} for
instance.")
(de "Sie können den Befehl @command{guix system image} jetzt auch auf
Verbundsobjekte vom Typ @code{image} anwenden. Das heißt, wenn Sie eine Datei
oder einen Ausdruck als Parameter übergeben, darf dieser ein Verbundsobjekt
vom Typ @code{image} oder @code{operating-system} zurückliefern.
Im Verzeichnis @file{gnu/system/images} finden Sie vorkonfigurierte Abbilder
als @code{image}-Verbundsobjekte. Sie können zum Beispiel @command{guix system
image gnu/system/images/pine64.scm} ausführen, um das Abbild zu erstellen.")
(fr "La commande @command{guix system image} peut désormais
fonctionner sur des images. Cela signifie que le fichier ou l'expression
passé en paramètre de cette commande peuvent retourner une structure de type
@code{image} ou @code{operating-system}.
Le dossier @file{gnu/system/images} contient des images par défaut qui peuvent
être construites en lançant la commande @command{guix system image
gnu/system/images/pine64.scm} par exemple.")))
(entry (commit "aa8de806252e3835d57fab351b02d13db762deac")
(title
(en "Risk of local privilege escalation @i{via} setuid programs")
(de "Risiko lokaler Rechteausweitung bei setuid-Programmen")
(fr "Risque de gain local de privilèges @i{via} les programmes setuid"))
(fr "Risque de gain local de privilèges @i{via} les programmes setuid")
(zh "存在通过 setuid 程序进行本地提权的风险"))
(body
(en "On Guix System, setuid programs were, until now, installed as
setuid-root @emph{and} setgid-root (in the @file{/run/setuid-programs}
@ -70,7 +132,19 @@ guix system reconfigure /run/current-system/configuration.scm
Les usagers de Guix sur une distrib externe ne sont pas touché·es. Plus
d'informations sont disponibles à @url{https://issues.guix.gnu.org/46395} (en
anglais).")))
anglais).")
(zh "到目前为止，Guix 系统上的 setuid 程序（位于 @file{/run/setuid-programs}）
同时具有 setuid-root @emph{和} setgid-root 权限。然而，此类程序大多被设计为在拥有
setuid 权限而非 setgid 权限时运行。因此，这样的设置可能会使系统受到本地提权攻击。
此漏洞已经被修复，同时建议用户使用下列命令升级他们的系统：
@example
guix system reconfigure /run/current-system/configuration.scm
@end example
在 ``第三方宿主系统'' 上使用 Guix 的用户不受此漏洞影响，详情请参阅
@url{https://issues.guix.gnu.org/46395}。")))
(entry (commit "aedbc5ff32a62f45aeed74c6833399a6cf2c22dc")
(title

45
gnu/build/file-systems.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2017 David Craven <david@craven.ch>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
@ -909,12 +909,27 @@ corresponds to the symbols listed in FLAGS."
(if options
(string-append "," options)
"")))))
(let ((type (file-system-type fs))
(options (file-system-options fs))
(source (canonicalize-device-spec (file-system-device fs)))
(mount-point (string-append root "/"
(file-system-mount-point fs)))
(flags (mount-flags->bit-mask (file-system-flags fs))))
(let* ((type (file-system-type fs))
(source (canonicalize-device-spec (file-system-device fs)))
(target (string-append root "/"
(file-system-mount-point fs)))
(flags (logior (mount-flags->bit-mask (file-system-flags fs))
;; For bind mounts, preserve the original flags such
;; as MS_NOSUID, etc. Failing to do that, the
;; MS_REMOUNT call below fails with EPERM.
;; See <https://bugs.gnu.org/46292>
(if (memq 'bind-mount (file-system-flags fs))
(or (and=> (find (let ((devno (stat:dev
(lstat source))))
(lambda (mount)
(= (mount-device-number mount)
devno)))
(mounts))
mount-flags)
0)
0)))
(options (file-system-options fs)))
(when (file-system-check? fs)
(check-file-system source type))
@ -925,24 +940,24 @@ corresponds to the symbols listed in FLAGS."
;; needed.
(if (and (= MS_BIND (logand flags MS_BIND))
(not (file-is-directory? source)))
(unless (file-exists? mount-point)
(mkdir-p (dirname mount-point))
(call-with-output-file mount-point (const #t)))
(mkdir-p mount-point))
(unless (file-exists? target)
(mkdir-p (dirname target))
(call-with-output-file target (const #t)))
(mkdir-p target))
(cond
((string-prefix? "nfs" type)
(mount-nfs source mount-point type flags options))
(mount-nfs source target type flags options))
(else
(mount source mount-point type flags options)))
(mount source target type flags options)))
;; For read-only bind mounts, an extra remount is needed, as per
;; <http://lwn.net/Articles/281157/>, which still applies to Linux
;; 4.0.
(when (and (= MS_BIND (logand flags MS_BIND))
(= MS_RDONLY (logand flags MS_RDONLY)))
(let ((flags (logior MS_BIND MS_REMOUNT MS_RDONLY)))
(mount source mount-point type flags #f))))
(let ((flags (logior MS_REMOUNT flags)))
(mount source target type flags options))))
(lambda args
(or (file-system-mount-may-fail? fs)
(apply throw args))))))

1
gnu/image.scm
View File

@ -31,6 +31,7 @@
partition-initializer
image
image?
image-name
image-format
image-target

26
gnu/local.mk
View File

@ -437,6 +437,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/perl.scm \
%D%/packages/perl-check.scm \
%D%/packages/perl-compression.scm \
%D%/packages/perl-maths.scm \
%D%/packages/perl-web.scm \
%D%/packages/perl6.scm \
%D%/packages/photo.scm \
@ -535,6 +536,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/synergy.scm \
%D%/packages/syndication.scm \
%D%/packages/task-management.scm \
%D%/packages/task-runners.scm \
%D%/packages/tbb.scm \
%D%/packages/tcl.scm \
%D%/packages/telegram.scm \
@ -607,6 +609,7 @@ GNU_SYSTEM_MODULES = \
%D%/services/dns.scm \
%D%/services/docker.scm \
%D%/services/authentication.scm \
%D%/services/file-sharing.scm \
%D%/services/games.scm \
%D%/services/ganeti.scm \
%D%/services/getmail.scm \
@ -663,6 +666,7 @@ GNU_SYSTEM_MODULES = \
%D%/system/images/novena.scm \
%D%/system/images/pine64.scm \
%D%/system/images/pinebook-pro.scm \
%D%/system/images/rock64.scm \
\
%D%/machine.scm \
\
@ -973,8 +977,6 @@ dist_patch_DATA = \
%D%/packages/patches/evolution-data-server-locales.patch \
%D%/packages/patches/evolution-data-server-libical-compat.patch \
%D%/packages/patches/exercism-disable-self-update.patch \
%D%/packages/patches/exiv2-CVE-2017-14860.patch \
%D%/packages/patches/exiv2-CVE-2017-14859-14862-14864.patch \
%D%/packages/patches/extempore-unbundle-external-dependencies.patch \
%D%/packages/patches/extundelete-e2fsprogs-1.44.patch \
%D%/packages/patches/farstream-make.patch \
@ -1164,7 +1166,7 @@ dist_patch_DATA = \
%D%/packages/patches/hdf-eos5-remove-gctp.patch \
%D%/packages/patches/hdf-eos5-fix-szip.patch \
%D%/packages/patches/hdf-eos5-fortrantests.patch \
%D%/packages/patches/http-parser-fix-assertion-on-armhf.patch \
%D%/packages/patches/http-parser-CVE-2020-8287.patch \
%D%/packages/patches/hubbub-sort-entities.patch \
%D%/packages/patches/hurd-cross.patch \
%D%/packages/patches/hurd-xattr.patch \
@ -1322,7 +1324,6 @@ dist_patch_DATA = \
%D%/packages/patches/llvm-9-fix-scev-miscompilation.patch \
%D%/packages/patches/lm-sensors-hwmon-attrs.patch \
%D%/packages/patches/lrcalc-includes.patch \
%D%/packages/patches/lrzip-CVE-2017-8842.patch \
%D%/packages/patches/lsh-fix-x11-forwarding.patch \
%D%/packages/patches/lsof-fatal-test-failures.patch \
%D%/packages/patches/lua-CVE-2014-5461.patch \
@ -1377,6 +1378,7 @@ dist_patch_DATA = \
%D%/packages/patches/mumps-shared-mumps.patch \
%D%/packages/patches/mumps-shared-pord.patch \
%D%/packages/patches/mupdf-fix-linkage.patch \
%D%/packages/patches/mupdf-CVE-2021-3407.patch \
%D%/packages/patches/mupen64plus-ui-console-notice.patch \
%D%/packages/patches/mupen64plus-video-z64-glew-correct-path.patch \
%D%/packages/patches/musl-cross-locale.patch \
@ -1421,10 +1423,8 @@ dist_patch_DATA = \
%D%/packages/patches/openfoam-4.1-cleanup.patch \
%D%/packages/patches/openjdk-10-idlj-reproducibility.patch \
%D%/packages/patches/openmpi-mtl-priorities.patch \
%D%/packages/patches/openssh-fix-ssh-copy-id.patch \
%D%/packages/patches/openssh-hurd.patch \
%D%/packages/patches/openresolv-restartcmd-guix.patch \
%D%/packages/patches/openscad-parser-boost-1.72.patch \
%D%/packages/patches/opensles-add-license-file.patch \
%D%/packages/patches/openssl-runpath.patch \
%D%/packages/patches/openssl-1.1-c-rehash-in.patch \
@ -1512,11 +1512,16 @@ dist_patch_DATA = \
%D%/packages/patches/python-2.7-search-paths.patch \
%D%/packages/patches/python-2.7-site-prefixes.patch \
%D%/packages/patches/python-2.7-source-date-epoch.patch \
%D%/packages/patches/python-2.7-CVE-2021-3177.patch \
%D%/packages/patches/python-3-arm-alignment.patch \
%D%/packages/patches/python-3-deterministic-build-info.patch \
%D%/packages/patches/python-3-search-paths.patch \
%D%/packages/patches/python-3-fix-tests.patch \
%D%/packages/patches/python-3-hurd-configure.patch \
%D%/packages/patches/python-3.8-CVE-2021-3177.patch \
%D%/packages/patches/python-3.9-fix-tests.patch \
%D%/packages/patches/python-CVE-2018-14647.patch \
%D%/packages/patches/python-CVE-2020-26116.patch \
%D%/packages/patches/python-aionotify-0.2.0-py3.8.patch \
%D%/packages/patches/python-argcomplete-1.11.1-fish31.patch \
%D%/packages/patches/python-axolotl-AES-fix.patch \
@ -1531,6 +1536,7 @@ dist_patch_DATA = \
%D%/packages/patches/python-flint-includes.patch \
%D%/packages/patches/python-libxml2-python39-compat.patch \
%D%/packages/patches/python-libxml2-utf8.patch \
%D%/packages/patches/python-matplotlib-run-under-wayland-gtk3.patch \
%D%/packages/patches/python-mediafile-wavpack.patch \
%D%/packages/patches/python-memcached-syntax-warnings.patch \
%D%/packages/patches/python-mox3-python3.6-compat.patch \
@ -1553,6 +1559,7 @@ dist_patch_DATA = \
%D%/packages/patches/python-waitress-fix-tests.patch \
%D%/packages/patches/pypy3-7.3.1-fix-tests.patch \
%D%/packages/patches/qemu-build-info-manual.patch \
%D%/packages/patches/qemu-CVE-2021-20203.patch \
%D%/packages/patches/qemu-glibc-2.27.patch \
%D%/packages/patches/qpdfview-qt515-compat.patch \
%D%/packages/patches/qrcodegen-cpp-make-install.patch \
@ -1584,14 +1591,11 @@ dist_patch_DATA = \
%D%/packages/patches/rtags-separate-rct.patch \
%D%/packages/patches/racket-store-checksum-override.patch \
%D%/packages/patches/remake-impure-dirs.patch \
%D%/packages/patches/retroarch-disable-online-updater.patch \
%D%/packages/patches/retroarch-LIBRETRO_DIRECTORY.patch \
%D%/packages/patches/rnp-add-version.cmake.patch \
%D%/packages/patches/rnp-disable-ruby-rnp-tests.patch \
%D%/packages/patches/rnp-unbundle-googletest.patch \
%D%/packages/patches/ruby-rack-ignore-failing-test.patch \
%D%/packages/patches/ruby-rubocop-break-dependency-cycle.patch\
%D%/packages/patches/ruby-sanitize-system-libxml.patch \
%D%/packages/patches/ruby-tzinfo-data-ignore-broken-test.patch\
%D%/packages/patches/runc-CVE-2019-5736.patch \
%D%/packages/patches/rust-coresimd-doctest.patch \
%D%/packages/patches/rust-ndarray-remove-blas-src-dep.patch \
@ -1606,6 +1610,7 @@ dist_patch_DATA = \
%D%/packages/patches/scheme48-tests.patch \
%D%/packages/patches/scotch-build-parallelism.patch \
%D%/packages/patches/scotch-integer-declarations.patch \
%D%/packages/patches/screen-CVE-2021-26937.patch \
%D%/packages/patches/screen-hurd-path-max.patch \
%D%/packages/patches/sdl-libx11-1.6.patch \
%D%/packages/patches/seed-webkit.patch \
@ -1719,6 +1724,7 @@ dist_patch_DATA = \
%D%/packages/patches/wordnet-CVE-2008-2149.patch \
%D%/packages/patches/wordnet-CVE-2008-3908-pt1.patch \
%D%/packages/patches/wordnet-CVE-2008-3908-pt2.patch \
%D%/packages/patches/wpa-supplicant-CVE-2021-27803.patch \
%D%/packages/patches/x265-arm-flags.patch \
%D%/packages/patches/xf86-video-ark-remove-mibstore.patch \
%D%/packages/patches/xf86-video-mach64-glibc-2.20.patch \

6
gnu/machine/ssh.scm
View File

@ -270,11 +270,9 @@ not available in the initrd."
(remote-let ((missing remote-exp))
(unless (null? missing)
(raise (condition
(&message
(message (format #f (G_ "missing modules for ~a:~{ ~a~}~%")
(raise (formatted-message (G_ "missing modules for ~a:~{ ~a~}~%")
(file-system-device fs)
missing))))))))
missing)))))
(map missing-modules file-systems))

180
gnu/packages/admin.scm
View File

@ -32,10 +32,14 @@
;;; Copyright © 2019, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2020 Morgan Smith <Morgan.J.Smith@outlook.com>
;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2021 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2021 qblade <qblade@protonmail.com>
;;; Copyright © 2021 Hyunseok Kim <lasnesne@lagunposprasihopre.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -459,7 +463,7 @@ graphs and can export its output to different formats.")
(define-public facter
(package
(name "facter")
(version "4.0.49")
(version "4.0.51")
(source (origin
(method git-fetch)
(uri (git-reference
@ -468,7 +472,7 @@ graphs and can export its output to different formats.")
(file-name (git-file-name name version))
(sha256
(base32
"0l7gic5ql5xiy5s6rb0j9ydyaal5bcxl10bx45khcgdr9zg16pb1"))))
"1s98rq2wjmh8bqdfdibvfp9j2ynd97k0c4hairryrzl9nna3j542"))))
(build-system ruby-build-system)
(arguments
`(#:phases
@ -527,6 +531,42 @@ or via the @code{facter} Ruby library.")
(home-page "https://github.com/puppetlabs/facter-ng")
(license license:expat)))
(define-public ttyload
(let ((revision "1")
(commit "f9495372801ce4b4dad98ad854203e694c31c1eb"))
(package
(name "ttyload")
(version (git-version "0.5.3" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/lindes/ttyload")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0ldb7a13b9v876c6cbrs78pkizj64drnqx95z5shfbwgpwfhr4im"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no tests
#:make-flags
(list (string-append "CC=" ,(cc-for-target)))
#:phases
(modify-phases %standard-phases
(delete 'configure)
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(install-file "ttyload" bin)))))))
(home-page "https://www.daveltd.com/src/util/ttyload/")
(synopsis "Console based color-coded graphs of CPU load average")
(description
"Show graphs for 1 minute, 5 minute, 15 minute load averages on the
console.")
;; This package uses a modified version of the "ISC License".
(license (license:non-copyleft "file://LICENSE")))))
(define-public htop
(package
(name "htop")
@ -578,6 +618,40 @@ application (for console or X terminals) and requires ncurses.")
memory, disks, network and processes.")
(license license:asl2.0)))
(define-public bpytop
(package
(name "bpytop")
(version "1.0.63")
(source
(origin
(method url-fetch)
(uri (pypi-uri "bpytop" version))
(sha256
(base32
"0ql72s842g56rnzdqja6m53lw5y68c4gb540ihp1bjg7x9ycim11"))))
(build-system python-build-system)
(inputs
`(("python-psutil" ,python-psutil)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'install-themes
(lambda* (#:key outputs #:allow-other-keys)
(let ((themes (string-append (assoc-ref outputs "out")
"/lib/python"
,(version-major+minor
(package-version python))
"/site-packages/bpytop-themes")))
(mkdir-p themes)
(copy-recursively "bpytop-themes" themes)))))))
(home-page
"https://github.com/aristocratos/bpytop")
(synopsis "Resource monitor")
(description "Resource monitor that shows usage and stats for processor,
memory, disks, network and processes. It's a Python port of
@command{bashtop}.")
(license license:asl2.0)))
(define-public pies
(package
(name "pies")
@ -978,7 +1052,7 @@ connection alive.")
(define-public isc-dhcp
(let* ((bind-major-version "9")
(bind-minor-version "11")
(bind-patch-version "22")
(bind-patch-version "28")
(bind-release-type "") ; for patch release, use "-P"
(bind-release-version "") ; for patch release, e.g. "6"
(bind-version (string-append bind-major-version
@ -1115,7 +1189,7 @@ connection alive.")
"/bind-" bind-version ".tar.gz"))
(sha256
(base32
"1j9a4r83a77mp8k1y8z524c9rzdqgd8rzwczd6zwmw86a00xiimg"))))
"0x2yjy0d8p7i5mr2s5y65fdax0jjgvd8fn07s42c8dxsrbkcp40h"))))
("coreutils*" ,coreutils)
("sed*" ,sed)))
@ -1132,14 +1206,14 @@ tools: server, client, and relay agent.")
(define-public libpcap
(package
(name "libpcap")
(version "1.9.1")
(version "1.10.0")
(source (origin
(method url-fetch)
(uri (string-append "https://www.tcpdump.org/release/libpcap-"
version ".tar.gz"))
(sha256
(base32
"153h1378diqyc27jjgz6gg5nxmb4ddk006d9xg69nqavgiikflk3"))))
"07ibr6zzfh1wk5gqcbnlyh6v0dfmhpfd0fqj5y3yxvzf4ckb84ld"))))
(build-system gnu-build-system)
(native-inputs
`(("bison" ,bison)
@ -1160,14 +1234,14 @@ network statistics collection, security monitoring, network debugging, etc.")
(define-public tcpdump
(package
(name "tcpdump")
(version "4.9.3")
(version "4.99.0")
(source (origin
(method url-fetch)
(uri (string-append "https://www.tcpdump.org/release/tcpdump-"
version ".tar.gz"))
(sha256
(base32
"0434vdcnbqaia672rggjzdn4bb8p8dchz559yiszzdk0sjrprm1c"))))
"0hmqh2fx8rgs9v1mk3vpywj61xvkifz260q685xllxr8jmxg3wlc"))))
(build-system gnu-build-system)
(inputs `(("libpcap" ,libpcap)
("openssl" ,openssl)))
@ -1587,7 +1661,9 @@ features of sudo with a fraction of the codebase.")
;; Disable D-Bus to save ~14MiB on the closure size.
(("^CONFIG_CTRL_IFACE_DBUS" line _)
(string-append "#" line)))
#t))))
#t))
(patches
(search-patches "wpa-supplicant-CVE-2021-27803.patch"))))
(build-system gnu-build-system)
(arguments
`(#:phases
@ -1751,7 +1827,9 @@ command.")
".tar.gz"))
(sha256
(base32
"1mrbvg4v7vm7mknf0n29mf88k3s4a4qj6r4d51wq8hmjj1m7s7c8"))))
"1mrbvg4v7vm7mknf0n29mf88k3s4a4qj6r4d51wq8hmjj1m7s7c8"))
(patches
(search-patches "wpa-supplicant-CVE-2021-27803.patch"))))
(build-system gnu-build-system)
(arguments
`(#:phases
@ -2057,6 +2135,33 @@ environment variable is set and output is to tty.")
(home-page "http://mama.indstate.edu/users/ice/tree/")
(license license:gpl2+)))
(define-public lr
(package
(name "lr")
(version "1.5.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://git.vuxu.org/lr/")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1wv2acm4r5y5gg6f64v2hiwpg1f3lnr4fy1a9zssw77fmdc7ys3j"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f
#:make-flags (list (string-append "CC=" ,(cc-for-target))
(string-append "PREFIX=" %output))
#:phases (modify-phases %standard-phases
(delete 'configure))))
(synopsis "Tool to generate customized file listings")
(description
"lr is a tool for generating file listings, which includes the best
features of ls(1), find(1), stat(1) and du(1).")
(home-page "https://git.vuxu.org/lr/about")
(license license:expat)))
(define-public direvent
(package
(name "direvent")
@ -2219,13 +2324,13 @@ of supported upstream metrics systems simultaneously.")
(define-public ansible
(package
(name "ansible")
(version "2.9.16")
(version "2.9.18")
(source
(origin
(method url-fetch)
(uri (pypi-uri "ansible" version))
(sha256
(base32 "0j1icfqff25zm9sq6j41ipl6gcj3i67mb5bqbjf2f2q1yx6rm8sk"))))
(base32 "0g6rsnh02zq5nizamgakl2wvgz7hk1lpnjn9akldrcpa55vygzjm"))))
(build-system python-build-system)
(native-inputs
`(("python-bcrypt" ,python-bcrypt)
@ -3821,6 +3926,38 @@ support forum. It runs with the @code{/exec} command in most IRC clients.")
(description "This package provides @code{udev} bindings for Python.")
(license license:lgpl2.1)))
(define-public vmtouch
(package
(name "vmtouch")
(version "1.3.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hoytech/vmtouch/")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "08da6apzfkfjwasn4dxrlfxqfx7arl28apdzac5nvm0fhvws0dxk"))))
(build-system gnu-build-system)
(native-inputs
`(("perl" ,perl)))
(arguments
`(#:tests? #f ; no tests
#:make-flags
(list
(string-append "CC=" ,(cc-for-target))
(string-append "PREFIX=" (assoc-ref %outputs "out")))
#:phases
(modify-phases %standard-phases
(delete 'configure))))
(home-page "https://github.com/hoytech/vmtouch/")
(synopsis "Portable file system cache diagnostics and control")
(description
"vmtouch is a tool for learning about and controlling the file system
cache of unix and unix-like systems.")
(license license:bsd-3)))
(define-public solaar
(package
(name "solaar")
@ -3843,7 +3980,14 @@ support forum. It runs with the @code{/exec} command in most IRC clients.")
(setenv "PYTHONPATH" "lib"))))))
(propagated-inputs
`(("python-pygobject" ,python-pygobject)
("python-pyudev" ,python-pyudev)))
("python-pyudev" ,python-pyudev)
;; For GUI.
("python-pyyaml" ,python-pyyaml)
("python-psutil" ,python-psutil)
("python-xlib" ,python-xlib)
("gtk+" ,gtk+)
("python-pygobject" ,python-pygobject)))
(home-page "https://smxi.org/docs/inxi.htm")
(synopsis "Linux devices manager for the Logitech Unifying Receiver")
(description "This package provides tools to manage clients of the
@ -3854,7 +3998,7 @@ Logitech Unifying Receiver.")
(package
(name "lynis")
;; Also update the ‘lynis-sdk’ input to the commit matching this release.
(version "2.7.5")
(version "3.0.3")
(source
(origin
(method git-fetch)
@ -3863,7 +4007,7 @@ Logitech Unifying Receiver.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1lkkbvxm0rgrrlx0szaxmf8ghc3d26wal96sgqk84m37mvs1f7p0"))
(base32 "0sdjh2f1563qalp740vkaaxdxl56ny98h168cggpm10h2yq366gr"))
(modules '((guix build utils)))
(snippet
'(begin
@ -3880,10 +4024,10 @@ Logitech Unifying Receiver.")
(method git-fetch)
(uri (git-reference
(url "https://github.com/CISOfy/lynis-sdk")
(commit "bf1c1d95121da9ca79a9eac5a15ed8d81e34094d")))
(commit "ea7a39774fbd71113a1955cf1a4937b489935174")))
(file-name (git-file-name "lynis-sdk" version))
(sha256
(base32 "1ndz5v0039dqa87cva2dk55a8hkw0fibsw8hh2ddmny9qkr4l3dp"))))))
(base32 "0q5j2myshjkz9qwvcg8n7c33yw2cp80yvzhckd60qmzabv4g4qb5"))))))
(arguments
`(#:phases
(modify-phases %standard-phases

28
gnu/packages/algebra.scm
View File

@ -234,7 +234,7 @@ the real span of the lattice.")
(define-public pari-gp
(package
(name "pari-gp")
(version "2.13.0")
(version "2.13.1")
(source (origin
(method url-fetch)
(uri (string-append
@ -242,7 +242,7 @@ the real span of the lattice.")
version ".tar.gz"))
(sha256
(base32
"14xs90wrw8mbdx08hxlbhiahp6kgjq6yh27zjw7fvhfjx5nr84f8"))))
"1cgwdpw8b797883z9y92ixxjkv72kiy65zsw2qqf5and1kbzgv41"))))
(build-system gnu-build-system)
(native-inputs
`(("texlive" ,(texlive-updmap.cfg
@ -307,24 +307,10 @@ GP2C, the GP to C compiler, translates GP scripts to PARI programs.")
(license license:gpl2)
(home-page "https://pari.math.u-bordeaux.fr/")))
(define fplll-4-cmh
(package
(inherit fplll)
(name "fplll")
(version "4.0.4")
(source
(origin
(method url-fetch)
(uri (string-append
"http://perso.ens-lyon.fr/damien.stehle/fplll/libfplll-"
version ".tar.gz"))
(sha256
(base32 "1cbiby7ykis4z84swclpysrljmqhfcllpkcbll1m08rzskgb1a6b"))))))
(define-public cmh
(package
(name "cmh")
(version "1.0")
(version "1.1.0")
(source (origin
(method url-fetch)
;; Git repo at <https://gitlab.inria.fr/cmh/cmh>.
@ -332,14 +318,14 @@ GP2C, the GP to C compiler, translates GP scripts to PARI programs.")
version ".tar.gz"))
(sha256
(base32
"1a28xr9bs0igms0ik99x0w8lnb0jyfcmvyi26pbyh9ggcdivd33p"))))
"1ws2yhzxmm2l5xqqqcjcimmg40f9qq5l9i6d4i5434an9v9s8531"))))
(build-system gnu-build-system)
(inputs
`(("gmp" ,gmp)
("mpfr" ,mpfr)
("mpc" ,mpc)
("mpfrcx" ,mpfrcx)
("fplll" ,fplll-4-cmh)
("fplll" ,fplll)
("pari-gp" ,pari-gp)))
(synopsis "Igusa class polynomial computations")
(description
@ -571,7 +557,7 @@ arithmetic). It supports integers, rationals, modular integers,
real and complex ball arithmetic, polynomials and matrices over all
these types and other mathematical functions.")
(license license:expat)
(home-page "http://fredrikj.net/python-flint/")))
(home-page "https://fredrikj.net/python-flint/")))
(define-public ntl
(package
@ -665,7 +651,7 @@ geometry and singularity theory.")
;; libraries with which it links are licensed under lgpl3+, so the
;; combined work becomes gpl3. See COPYING in the source code.
(license license:gpl3)
(home-page "http://www.singular.uni-kl.de/index.php")))
(home-page "https://www.singular.uni-kl.de/index.php")))
(define-public gmp-ecm
(package

6
gnu/packages/animation.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Pkill -9 <pkill9@runbox.com>
;;; Copyright © 2020 Vinicius Monego <monego@posteo.net>
;;;
@ -392,7 +392,7 @@ waveform until they line up with the proper sounds.")
(define-public pencil2d
(package
(name "pencil2d")
(version "0.6.5")
(version "0.6.6")
(source (origin
(method git-fetch)
(uri (git-reference
@ -401,7 +401,7 @@ waveform until they line up with the proper sounds.")
(file-name (git-file-name name version))
(sha256
(base32
"06l60wawkhb3wrsj79p5f7ka5cgcyly36pbvm95fvwbkmlvmjzf1"))))
"0b1nwiwyg01087q318vymg4si76dw41ykxbn2zwd6dqbxzbpr1dh"))))
(build-system gnu-build-system)
(inputs
`(("qtbase" ,qtbase)

33
gnu/packages/assembly.scm
View File

@ -3,7 +3,7 @@
;;; Copyright © 2013, 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2016, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Guy Fleury Iteriteka <hoonandon@gmail.com>
;;; Copyright © 2019 Andy Tai <atai@atai.org>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
@ -153,23 +153,16 @@ to the clients.")
(define-public simde
(package
(name "simde")
(version "0.7.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/simd-everywhere/simde")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1xf5xfzkk9rj47cichgz5ni8xs9hbpz5p6fmxr4ij721ffd002k3"))
(modules '((guix build utils)))
(snippet
'(begin
;; Fix the version string
(substitute* "meson.build"
(("0.7.0-rc2") "0.7.0"))
#t))))
(version "0.7.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/simd-everywhere/simde")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0xkf21gbkgz6zlxabkmgwvy7py6cdnfqx9aplj90gz25gzrr1mkb"))))
(build-system meson-build-system)
;; We really want this for the headers, and the tests require a bundled library.
(arguments '(#:configure-flags '("-Dtests=false")))
@ -185,14 +178,14 @@ speed on x86, NEON on ARM, etc.).")
(define-public fasm
(package
(name "fasm")
(version "1.73.25")
(version "1.73.27")
(source
(origin
(method url-fetch)
(uri (string-append "https://flatassembler.net/fasm-"
version ".tgz"))
(sha256
(base32 "0k3h61mfwslyb34kf4dnapfwl8jxlmrp4dv666wc057hkj047knn"))))
(base32 "1cghiks49ql77b9l4mwrnlk76kai0fm0z22j71kbdlxngwvlh0b8"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no tests exist

314
gnu/packages/astronomy.scm
View File

@ -48,9 +48,13 @@
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages pretty-print)
#:use-module (gnu packages python-check)
#:use-module (gnu packages python-crypto)
#:use-module (gnu packages python-science)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt)
#:use-module (gnu packages version-control)
#:use-module (gnu packages video)
#:use-module (gnu packages xiph)
#:use-module (gnu packages xorg)
#:use-module (guix build-system cmake)
@ -92,6 +96,51 @@ in FITS files.")
(license (license:non-copyleft "file://License.txt"
"See License.txt in the distribution."))))
(define-public qfits
(package
(name "qfits")
(version "6.2.0")
(source
(origin
(method url-fetch)
(uri
(string-append "ftp://ftp.eso.org/pub/qfits/qfits-" version ".tar.gz"))
(sha256
(base32 "0m2b21mim3a7wgfg3ph2w5hv7mdvr03jmmhzipc0wcahijglcw9j"))))
(build-system gnu-build-system)
(home-page "https://www.eso.org/sci/software/eclipse/qfits/")
(synopsis "C library offering access to astronomical FITS files")
(description
"@code{qfits} is a C library giving access to FITS file internals, both
for reading and writing.")
(license license:gpl2+)))
(define-public erfa
(package
(name "erfa")
(version "1.7.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/liberfa/erfa")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1vsqwvzlk7r8q7nwyb7i710blcfdl5kwcm2va9km07a820nsp84a"))))
(build-system gnu-build-system)
(native-inputs
`(("automake" ,automake)
("autoreconf" ,autoconf)
("libtool" ,libtool)
("pkg-config" ,pkg-config)))
(home-page "https://github.com/liberfa/erfa")
(synopsis "Essential Routines for Fundamental Astronomy")
(description
"ERFA is a C library containing key algorithms for astronomy, and is based
on the SOFA library published by the International Astronomical Union (IAU).")
(license license:bsd-3)))
(define-public eye
(package
(name "eye")
@ -118,7 +167,7 @@ feature detection and cosmetic corrections.")
(define-public wcslib
(package
(name "wcslib")
(version "6.4")
(version "7.4")
(source
(origin
(method url-fetch)
@ -126,7 +175,7 @@ feature detection and cosmetic corrections.")
"ftp://ftp.atnf.csiro.au/pub/software/wcslib/wcslib-" version
".tar.bz2"))
(sha256
(base32 "003h23m6d5wcs29v2vbnl63f3z35k5x70lpsqlz5c9bp1bvizh8k"))))
(base32 "072i1id4zk08mwi2c1zpy8zxrabl8dqyklx9ikbd2nh56r0rc752"))))
(inputs
`(("cfitsio" ,cfitsio)))
(build-system gnu-build-system)
@ -283,6 +332,70 @@ astronomical fields. SkyMaker is part of the EFIGI
(@url{https://www.astromatic.net/projects/efigi}) development project.")
(license license:gpl3+)))
(define-public stackistry
(package
(name "stackistry")
(version "0.3.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/GreatAttractor/stackistry")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0rz29v33n0x0k40hv3v79ym5ylch1v0pbph4i21809gz2al5p7dq"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags
(list
(string-append
"SKRY_INCLUDE_PATH=" (assoc-ref %build-inputs "libskry") "/include")
(string-append
"SKRY_LIB_PATH=-L" (assoc-ref %build-inputs "libskry") "/lib")
(string-append
"LIBAV_INCLUDE_PATH=" (assoc-ref %build-inputs "ffmpeg") "/include"))
#:phases
(modify-phases %standard-phases
;; no configure and tests are provided
(delete 'configure)
(delete 'check)
(add-after 'unpack 'fix-paths
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "src/main.cpp"
(("\"\\.\\.\", \"lang\"")
"\"../share/stackistry\", \"lang\""))
(substitute* "src/utils.cpp"
(("\"\\.\\.\", \"icons\"")
"\"../share/stackistry\", \"icons\""))
#t))
(replace 'install
;; The Makefile lacks an ‘install’ target.
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(icons (string-append out "/share/stackistry/icons"))
(lang (string-append out "/share/stackistry/lang")))
(copy-recursively "bin" bin)
(copy-recursively "icons" icons)
(copy-recursively "lang" lang))
#t)))))
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("gtkmm" ,gtkmm)
("libskry" ,libskry)
("ffmpeg" ,ffmpeg)))
(home-page "https://github.com/GreatAttractor/stackistry")
(synopsis "Astronomical lucky imaging/image stacking tool")
(description
"Stackistry implements the lucky imaging principle of astronomical
imaging: creating a high-quality still image out of a series of many (possibly
thousands) low quality ones (blurred, deformed, noisy). The resulting image
stack typically requires post-processing, including sharpening (e.g. via
deconvolution). Such post-processing is not performed by Stackistry.")
(license license:gpl3+)))
(define-public stellarium
(package
(name "stellarium")
@ -466,6 +579,48 @@ Mechanics, Astrometry and Astrodynamics library.")
(license (list license:lgpl2.0+
license:gpl2+)))) ; examples/transforms.c & lntest/*.c
(define-public libskry
(package
(name "libskry")
(version "0.3.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/GreatAttractor/libskry")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "14kwng0j8wqzlb0gqg3ayq36l15dpz7kvxc56fa47j55b376bwh6"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags
(list
(string-append
"LIBAV_INCLUDE_PATH=" (assoc-ref %build-inputs "ffmpeg") "/include"))
#:phases
(modify-phases %standard-phases
(delete 'configure) ;; no configure provided
(delete 'check) ;; no tests provided
(replace 'install
;; The Makefile lacks an ‘install’ target.
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib"))
(include (string-append out "/include")))
(copy-recursively "bin" lib)
(copy-recursively "include" include))
#t)))))
(inputs
`(("ffmpeg" ,ffmpeg)))
(home-page "https://github.com/GreatAttractor/libskry")
(synopsis "Astronimical lucky imaging library")
(description
"@code{libskry} implements the lucky imaging principle of astronomical
imaging: creating a high-quality still image out of a series of many thousands)
low quality ones")
(license license:gpl3+)))
(define-public libpasastro
;; NOTE: (Sharlatan-20210122T215921+0000): the version tag has a build
;; error on spice which is resolved with the latest commit.
@ -638,7 +793,7 @@ provide you with detailed information about each pass.")
(define-public indi
(package
(name "indi")
(version "1.8.8")
(version "1.8.9")
(source
(origin
(method git-fetch)
@ -647,7 +802,7 @@ provide you with detailed information about each pass.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "19gm7rbnm3295g2i8mdzfslpz0vrcgfmbl59311qpszvlxbmyd2r"))))
(base32 "0nw4b2cdsg244slcm3yf1v11jlxbbjrpvi6ax90svs7rlandz8jv"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags
@ -726,3 +881,154 @@ more.")
"The package is a Python implementation of the mathematics that standard
JPL ephemerides use to predict raw (x,y,z) planetary positions.")
(license license:expat)))
(define-public python-pyerfa
(package
(name "python-pyerfa")
(version "1.7.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "pyerfa" version))
(sha256
(base32 "1s78mdyrxha2jcckfs0wg5ynkf0pwh1bw9mmh99vprinxh9n4xri"))
(modules '((guix build utils)))
(snippet
'(begin
;; Remove bundled submodule library.
(delete-file-recursively "liberfa")
#t))))
(build-system python-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'build 'use-system-liberfa
(lambda _
(setenv "PYERFA_USE_SYSTEM_LIBERFA" "1")
#t)))))
(native-inputs
`(("pytest" ,python-pytest)
("setuptools-scm" ,python-setuptools-scm)
("pytest-doctestplus" ,python-pytest-doctestplus)))
(inputs
`(("liberfa" ,erfa)
("numpy" ,python-numpy)))
(home-page "https://github.com/liberfa/pyerfa")
(synopsis "Python bindings for ERFA")
(description
"PyERFA is the Python wrapper for the ERFA library (Essential
Routines for Fundamental Astronomy), a C library containing key algorithms for
astronomy, which is based on the SOFA library published by the International
Astronomical Union (IAU). All C routines are wrapped as Numpy universal
functions, so that they can be called with scalar or array inputs.")
(license license:bsd-3)))
(define-public python-sep
(package
(name "python-sep")
(version "1.1.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "sep" version))
(sha256
(base32 "0wxdqn92q1grv8k7xi7h88ac6wnznw4xh5bdlz1vz6za2dgsyj4m"))))
(build-system python-build-system)
(native-inputs
`(("cython" ,python-cython)
("pytest" ,python-pytest)))
(inputs
`(("numpy" ,python-numpy)))
(home-page "https://github.com/kbarbary/sep")
(synopsis "Astronomical source extraction and photometry library")
(description
"SEP makes the core algorithms of Source Extractor available as a library
of stand-alone functions and classes.")
(license (list license:bsd-3
license:expat
license:lgpl3+))))
(define-public python-asdf
(package
(name "python-asdf")
(version "2.7.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "asdf" version))
(sha256
(base32 "1y47zhkd90i8wmm2i35amfl0rvjqlb3fcx90xp7n9kr2z0byzyzg"))))
(build-system python-build-system)
(arguments
;; TODO: (Sharlatan-20210207T165820+0000): Tests depend on astropy, astropy
;; depends on asdf. Disable circular dependence.
`(#:tests? #f))
(native-inputs
`(("packaging" ,python-packaging)
("semantic-version" ,python-semantic-version)
("setuptools-scm" ,python-setuptools-scm)))
(inputs
`(("importlib-resources" ,python-importlib-resources)
("jsonschema" ,python-jsonschema)
("numpy" ,python-numpy)
("pyyaml" ,python-pyyaml)))
(home-page "https://github.com/asdf-format/asdf")
(synopsis "Python tools to handle ASDF files")
(description
"The Advanced Scientific Data Format (ASDF) is a next-generation
interchange format for scientific data. This package contains the Python
implementation of the ASDF Standard.")
(license license:bsd-3)))
(define-public python-astroalign
(package
(name "python-astroalign")
(version "2.3.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "astroalign" version))
(sha256
(base32 "19qzv3552lgrd9qmj0rxs51wmx485hw04cbf76ds5pin85kfaiy1"))))
(build-system python-build-system)
(arguments
;; TODO: (Sharlatan-20210213T162940+0000): I could not make tests run
`(#:tests? #f))
(inputs
`(("numpy" ,python-numpy)
("scikit-image" ,python-scikit-image)
("scipy" ,python-scipy)
("sep" ,python-sep)))
(home-page "https://astroalign.readthedocs.io/")
(synopsis "Astrometric Alignment of Images")
(description
"ASTROALIGN is a python module that will try to align two stellar
astronomical images, especially when there is no WCS information available.")
(license license:expat)))
(define-public python-skyfield
(package
(name "python-skyfield")
(version "1.36")
(source
(origin
(method url-fetch)
(uri (pypi-uri "skyfield" version))
(sha256
(base32 "1dm1327a4qv3klj9blrvddbhl72v1fqz52ym9km8qjj9vdkpywh6"))))
(build-system python-build-system)
(arguments
;; NOTE: (Sharlatan-20210207T163305+0000): tests depend on custom test
;; framework https://github.com/brandon-rhodes/assay
`(#:tests? #f))
(inputs
`(("certifi" ,python-certifi)
("jplephem" ,python-jplephem)
("numpy" ,python-numpy)
("sgp4" ,python-sgp4)))
(home-page "https://rhodesmill.org/skyfield/")
(synopsis "Astronomy for Python")
(description
"Skyfield computes positions for the stars, planets, and satellites in
orbit around the Earth.")
(license license:expat)))

117
gnu/packages/audio.scm
View File

@ -19,7 +19,7 @@
;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2018 Brendan Tildesley <mail@brendan.scot>
;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2019 Leo Famulari <leo@famulari.name>
;;; Copyright © 2019, 2021 Leo Famulari <leo@famulari.name>
;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2019 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
@ -27,7 +27,7 @@
;;; Copyright © 2019 Christopher Lemmer Webber <cwebber@dustycloud.org>
;;; Copyright © 2019 Jan Wielkiewicz <tona_kosmicznego_smiecia@interia.pl>
;;; Copyright © 2019 Hartmt Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2019, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2020 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2020 Jonathan Frederickson <jonathan@terracrypt.net>
@ -741,7 +741,7 @@ engineers, musicians, soundtrack editors and composers.")
("gettext" ,gettext-minimal) ;for msgfmt
("libtool" ,libtool)
("pkg-config" ,pkg-config)
("python" ,python-2)
("python" ,python)
("which" ,which)))
(arguments
`(#:configure-flags
@ -750,6 +750,12 @@ engineers, musicians, soundtrack editors and composers.")
"-Daudacity_use_ffmpeg=linked"
"-Daudacity_use_lame=system"
"-Daudacity_use_portsmf=system")
#:imported-modules ((guix build glib-or-gtk-build-system)
,@%cmake-build-system-modules)
#:modules
((guix build utils)
(guix build cmake-build-system)
((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'comment-out-revision-ident
@ -766,7 +772,9 @@ engineers, musicians, soundtrack editors and composers.")
(("../lib-src/portmidi/pm_common/portmidi.h") "portmidi.h")
(("../lib-src/portmidi/porttime/porttime.h") "porttime.h"))
(substitute* "src/prefs/MidiIOPrefs.cpp"
(("../../lib-src/portmidi/pm_common/portmidi.h") "portmidi.h")))))
(("../../lib-src/portmidi/pm_common/portmidi.h") "portmidi.h"))))
(add-after 'wrap-program 'glib-or-gtk-wrap
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))
;; The test suite is not "well exercised" according to the developers,
;; and fails with various errors. See
;; <http://sourceforge.net/p/audacity/mailman/message/33524292/>.
@ -1223,6 +1231,37 @@ object library.")
language and software synthesizer.")
(license license:lgpl2.1+)))
(define-public midicomp
;; The latest tagged release is 9 years old and there have been
;; unreleased fixes, so we take the last commit.
(let ((commit "70f76963cb0cdb3cbe03ec6e7246b1fb885d3c68")
(revision "1"))
(package
(name "midicomp")
(version (git-version "0.0.8" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/markc/midicomp")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"12zh247c6v88ssy4l8v7yirh4bl2jcc1ch7f4gdry79a82kai1gf"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f)) ; no "check" target
(synopsis "Convert SMF MIDI files to and from plain text")
(description
"midicomp can manipulate SMF (Standard MIDI File) files. It can both
read and write SMF files in 0 or format 1 and also read and write its own
plain text format. This means a SMF file can be turned into easily
parseable text, edited with any text editor or filtered through any script
language, and recompiled back into a binary SMF file.")
(home-page "https://github.com/markc/midicomp")
(license license:agpl3))))
(define-public clalsadrv
(package
(name "clalsadrv")
@ -1615,7 +1654,7 @@ follower.")
("glib" ,glib)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "http://www.fluidsynth.org/")
(home-page "https://www.fluidsynth.org/")
(synopsis "SoundFont synthesizer")
(description
"FluidSynth is a real-time software synthesizer based on the SoundFont 2
@ -1911,7 +1950,7 @@ well suited to all musical instruments and vocals.")
(modify-phases %standard-phases
(delete 'configure) ; no configure script
;; See https://github.com/tomszilagyi/ir.lv2/pull/20
(add-after 'unpack 'fix-type
(add-after 'unpack 'fix-type
(lambda _
(substitute* '("ir_gui.cc" "lv2_ui.h")
(("_LV2UI_Descriptor") "LV2UI_Descriptor"))
@ -3211,7 +3250,7 @@ stretching and pitch scaling of audio. This package contains the library.")
`(("autoconf" ,autoconf)
("automake" ,automake)
("libtool" ,libtool)))
(home-page "http://www.wavpack.com/")
(home-page "https://www.wavpack.com/")
(synopsis "Hybrid lossless audio codec")
(description
"WavPack is an audio compression format with lossless, lossy and hybrid
@ -3394,7 +3433,7 @@ conversion. It may be used, for example, to resample PCM-encoded audio.")
(native-inputs
`(("perl" ,perl)
("which" ,which))) ;used in tests/test.pl
(home-page "http://www.twolame.org/")
(home-page "https://www.twolame.org/")
(synopsis "MPEG Audio Layer 2 (MP2) encoder")
(description
"TwoLAME is an optimised MPEG Audio Layer 2 (MP2) encoder based on
@ -4574,20 +4613,20 @@ workstations as well as consumer software such as music players.")
(define-public redkite
(package
(name "redkite")
(version "1.0.3")
(version "1.3.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/geontime/redkite.git")
(url "https://gitlab.com/iurie-sw/redkite")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1m2db7c791fi33snkjwnvlxapmf879g5r8azlkx7sr6vp2s0jq2k"))))
(base32 "16j9zp5i7svq3g38rfb6h257qfgnd2brrxi7cjd2pdax9xxwj40y"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f)) ;no tests included
(inputs
(propagated-inputs
`(("cairo" ,cairo)))
(native-inputs
`(("pkg-config" ,pkg-config)))
@ -5058,3 +5097,57 @@ connected to a local network discover each other automatically and form a musica
session in which each participant can perform independently: anyone can start or stop
while still staying in time.")
(license license:gpl2+)))
(define-public butt
(package
(name "butt")
(version "0.1.28")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/butt/butt/butt-"
version "/butt-" version ".tar.gz"))
(sha256
(base32
"1rbp4v6dlyapld6y4aqbpfmcaiafa06f2zqd1rhk4r3ld3bndafm"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'install-documentation
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(manual (assoc-ref inputs "manual"))
(doc (string-append out "/share/doc/" ,name "-" ,version)))
(install-file "README" doc)
(copy-file manual (string-append doc "/butt-manual.pdf"))))))))
(inputs
`(("dbus" ,dbus)
("flac" ,flac)
("fltk" ,fltk)
("lame" ,lame)
("libfdk" ,libfdk)
("libsamplerate" ,libsamplerate)
("libvorbis" ,libvorbis)
("libx11" ,libx11)
("libxext" ,libxext)
("libxfixes" ,libxfixes)
("libxft" ,libxft)
("libxrender" ,libxrender)
("ogg" ,libogg)
("openssl" ,openssl)
("opus" ,opus)
("portaudio" ,portaudio)))
(native-inputs
`(("pkg-config" ,pkg-config)
("manual" ,(origin
(method url-fetch)
(uri (string-append "https://danielnoethen.de/butt/butt-"
version "_manual.pdf"))
(sha256
(base32
"04wz2sqhk22h9gymwh5r6kp6sxc994mia8rg9lwpmy1r18w4pvsl"))))))
(home-page "https://danielnoethen.de/butt/")
(synopsis "Audio streaming tool")
(description "Butt is a tool to stream audio to a ShoutCast or
Icecast server.")
(license license:gpl2+)))

4
gnu/packages/authentication.scm
View File

@ -33,14 +33,14 @@
(define-public oath-toolkit
(package
(name "oath-toolkit")
(version "2.6.5")
(version "2.6.6")
(source
(origin
(method url-fetch)
(uri (string-append "https://download.savannah.nongnu.org/releases/"
name "/" name "-" version ".tar.gz"))
(sha256
(base32 "06f21smb412xads4lygvyb47fcpvhdns0k6h880m9pbzgq6141yj"))))
(base32 "0v4lrgip08b8xlivsfn3mwql3nv8hmcpzrn6pi3xp88vqwav6s7x"))))
(build-system gnu-build-system)
(arguments
;; TODO ‘--enable-pskc’ causes xmlsec-related test suite failures.

4
gnu/packages/autotools.scm
View File

@ -273,7 +273,7 @@ exec ~a --no-auto-compile \"$0\" \"$@\"
(define-public autoconf-archive
(package
(name "autoconf-archive")
(version "2019.01.06")
(version "2021.02.19")
(source
(origin
(method url-fetch)
@ -281,7 +281,7 @@ exec ~a --no-auto-compile \"$0\" \"$@\"
version ".tar.xz"))
(sha256
(base32
"0gqya7nf4j5k98dkky0c3bnr0paciya91vkqazg7knlq621mq68p"))))
"1gcwqspcxiygnyk02smsk8ivzs9r69ji38izxzzsijyx52fyp9p8"))))
(build-system gnu-build-system)
(home-page "https://www.gnu.org/software/autoconf-archive/")
(synopsis "Collection of freely reusable Autoconf macros")

8
gnu/packages/aux-files/chromium/master-preferences.json
View File

@ -4,12 +4,11 @@
"make_chrome_default": false,
"make_chrome_default_for_user": false,
"verbose_logging": true,
"skip_first_run_ui": true,
"suppress_first_run_default_browser_prompt": true
"skip_first_run_ui": true
},
"browser": {
"has_seen_welcome_page" : true,
"check_default_browser" : false
"default_browser_setting_enabled" : false
},
"dns_prefetching": {
"enabled": false
@ -17,6 +16,9 @@
"alternate_error_pages": {
"enabled": false
},
"settings": {
"first_run_tutorial_shown": true
},
"default_apps": "noinstall",
"hide_web_store_icon": true,
"homepage": "https://www.gnu.org/software/guix/"

9944
gnu/packages/aux-files/linux-libre/5.11-arm.conf 100644
View File

File diff suppressed because it is too large Load Diff

10140
gnu/packages/aux-files/linux-libre/5.11-arm64.conf 100644
View File

File diff suppressed because it is too large Load Diff

10792
gnu/packages/aux-files/linux-libre/5.11-i686.conf 100644
View File

File diff suppressed because it is too large Load Diff

10828
gnu/packages/aux-files/linux-libre/5.11-x86_64.conf 100644
View File

File diff suppressed because it is too large Load Diff

4
gnu/packages/batik.scm
View File

@ -199,7 +199,7 @@ SAC is an interface for CSS parsers.")
(define-public java-xmlgraphics-commons
(package
(name "java-xmlgraphics-commons")
(version "2.4")
(version "2.6")
(source
(origin
(method url-fetch)
@ -207,7 +207,7 @@ SAC is an interface for CSS parsers.")
"mirror://apache/xmlgraphics/commons/source/xmlgraphics-commons-"
version "-src.tar.gz"))
(sha256
(base32 "0zdkngb896cr35jq1v859j2kpqyn6a87k6a893h394hgvnz7yi3v"))
(base32 "18gndjwzdd6vhp59fn8cwn6i6q0v0ym8nmwn65rcykdrzz0nvl72"))
(modules '((guix build utils)))
(snippet
`(begin

28
gnu/packages/benchmark.scm
View File

@ -8,7 +8,7 @@
;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2020 malte Frank Gerdes <malte.f.gerdes@gmail.com>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Greg Hogan <code@greghogan.com>
;;;
;;; This file is part of GNU Guix.
@ -284,14 +284,14 @@ file metadata operations that can be performed per second.")
(define-public python-locust
(package
(name "python-locust")
(version "1.4.1")
(version "1.4.3")
(source
(origin
(method url-fetch)
(uri (pypi-uri "locust" version))
(sha256
(base32
"1q2nza37fwsqf8qdmisfz6bmjpss90shi1bajrclf6gkbslhryxl"))))
"0vmw151xcaznd2j85n96iyv9fniss0bkk91xn4maw2gwzym424xk"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -302,8 +302,7 @@ file metadata operations that can be performed per second.")
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(setenv "PATH" (string-append out "/bin:"
(getenv "PATH"))))
#t))
(getenv "PATH"))))))
(replace 'check
(lambda _
(invoke "python" "-m" "pytest"
@ -313,12 +312,19 @@ file metadata operations that can be performed per second.")
"not test_default_headless_spawn_options"
"not test_default_headless_spawn_options_with_shape"
"not test_headless_spawn_options_wo_run_time"
;; This test depends on networking.
;; These tests depend on networking.
"not test_html_report_option"
"not test_web_options"
;; This test fails because of the warning "System open
;; file limit '1024' is below minimum setting '10000'".
"not test_skip_logging") " and "))
#t)))))
"not test_skip_logging"
;; On some (slow?) machines, the following tests
;; fail, with the processes returning exit code
;; -15 instead of the expected 42 and 0,
;; respectively (see:
;; https://github.com/locustio/locust/issues/1708).
"not test_custom_exit_code"
"not test_webserver") " and ")))))))
(propagated-inputs
`(("python-configargparse" ,python-configargparse)
("python-flask" ,python-flask)
@ -341,5 +347,9 @@ use, scriptable and scalable. The test scenarios are described in plain
Python. It provides a web-based user interface to visualize the results in
real-time, but can also be run non-interactively. Locust is primarily geared
toward testing HTTP-based applications or services, but it can be customized to
test any system or protocol.")
test any system or protocol.
Note: Locust will complain if the available open file descriptors limit for
the user is too low. To raise such limit on a Guix System, refer to
@samp{info guix --index-search=pam-limits-service}.")
(license license:expat)))

347
gnu/packages/bioconductor.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019, 2020 Simon Tournier <zimon.toutoune@gmail.com>
;;; Copyright © 2020 Peter Lo <peterloleungyau@gmail.com>
;;; Copyright © 2020 Mădălin Ionel Patrașcu <madalinionel.patrascu@mdc-berlin.de>
;;; Copyright © 2020, 2021 Mădălin Ionel Patrașcu <madalinionel.patrascu@mdc-berlin.de>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;;
;;; This file is part of GNU Guix.
@ -1796,14 +1796,14 @@ signal in the input, that lead to spurious peaks during peak calling.")
(define-public r-diffbind
(package
(name "r-diffbind")
(version "3.0.8")
(version "3.0.13")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "DiffBind" version))
(sha256
(base32
"11svdfjp4faswrmzwkryzhd0ji2pl9vwsd35lvbfjgakbpxnyn8a"))))
"0kxn59v93hl5pq8d156lnbz0sslpnxyjcfrvq2gzgd91sd587qmn"))))
(properties `((upstream-name . "DiffBind")))
(build-system r-build-system)
(propagated-inputs
@ -2062,13 +2062,13 @@ enrichedGO (addGeneIDs).")
(define-public r-matrixgenerics
(package
(name "r-matrixgenerics")
(version "1.2.0")
(version "1.2.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "MatrixGenerics" version))
(sha256
(base32
"1a3sw79185d6rld3wlrynkzcbp754a7jkracrmvn0ra964ia8zvc"))))
"163f0z33cv6038gcjdxn1hadcg9b09qgvm6zc5zn97y4rc8grkrb"))))
(properties
`((upstream-name . "MatrixGenerics")))
(build-system r-build-system)
@ -4013,14 +4013,14 @@ data.")
(define-public r-enrichplot
(package
(name "r-enrichplot")
(version "1.10.1")
(version "1.10.2")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "enrichplot" version))
(sha256
(base32
"0h0455plh8bxnpizgfxij9625ff32rs1a51yzpnrf5hl27xbfkdd"))))
"0lm5yapd567jxcnz9m4a623aymf3q00svjrxp3rf0r9j77dgyisv"))))
(build-system r-build-system)
(propagated-inputs
`(("r-cowplot" ,r-cowplot)
@ -4049,14 +4049,14 @@ All the visualization methods are developed based on ggplot2 graphics.")
(define-public r-clusterprofiler
(package
(name "r-clusterprofiler")
(version "3.18.0")
(version "3.18.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "clusterProfiler" version))
(sha256
(base32
"07xkc515gp9j4axg0qh39ni65mcbjgxmzjh5wxd86w64lz7xh8b9"))))
"04v1xsxfxxy8rdjfswv4crpzkx9592r2sh3cjh1kb54sd4lyb6si"))))
(properties
`((upstream-name . "clusterProfiler")))
(build-system r-build-system)
@ -5877,14 +5877,14 @@ Markov-Chain-Monte-Carlo is applied to sample the activity states.")
(define-public r-multidataset
(package
(name "r-multidataset")
(version "1.18.0")
(version "1.18.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "MultiDataSet" version))
(sha256
(base32
"025gfgn83ancp0khdmq2y4lwm97v5zqnjksi79rr0w175syznx5w"))))
"0v3ljpkggrpc7zp72z417jkzjq17abwsvsxh33fb8s3i2s4ycaa4"))))
(properties `((upstream-name . "MultiDataSet")))
(build-system r-build-system)
(propagated-inputs
@ -6103,14 +6103,14 @@ cluster count and membership by stability evidence in unsupervised analysis.")
(define-public r-cytolib
(package
(name "r-cytolib")
(version "2.2.0")
(version "2.2.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "cytolib" version))
(sha256
(base32
"1wylzps7wbvm64k62w5bbi8l74gaqca96psfapxfg6mcac5yz4qw"))))
"0y8mxrg3jh9bahsf9rblgyja37m1x1ncxfnrli91xjyg0582kh7r"))))
(properties `((upstream-name . "cytolib")))
(build-system r-build-system)
(arguments
@ -6810,6 +6810,59 @@ accessibility data.")
,@(alist-delete "r-monocle"
(package-propagated-inputs r-cicero)))))))
(define-public r-circrnaprofiler
(package
(name "r-circrnaprofiler")
(version "1.4.0")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "circRNAprofiler" version))
(sha256
(base32
"1rwpl9a5p5242aiapik0vf4ywqh7m6phzl8z8qmzcy0imbx7mpbn"))))
(properties
`((upstream-name . "circRNAprofiler")))
(build-system r-build-system)
(propagated-inputs
`(("r-annotationhub" ,r-annotationhub)
("r-biostrings" ,r-biostrings)
("r-bsgenome" ,r-bsgenome)
("r-bsgenome-hsapiens-ucsc-hg19" ,r-bsgenome-hsapiens-ucsc-hg19)
("r-deseq2" ,r-deseq2)
("r-dplyr" ,r-dplyr)
("r-edger" ,r-edger)
("r-genomeinfodb" ,r-genomeinfodb)
("r-genomicranges" ,r-genomicranges)
("r-ggplot2" ,r-ggplot2)
("r-gwascat" ,r-gwascat)
("r-iranges" ,r-iranges)
("r-magrittr" ,r-magrittr)
("r-r-utils" ,r-r-utils)
("r-readr" ,r-readr)
("r-reshape2" ,r-reshape2)
("r-rlang" ,r-rlang)
("r-rtracklayer" ,r-rtracklayer)
("r-s4vectors" ,r-s4vectors)
("r-seqinr" ,r-seqinr)
("r-stringi" ,r-stringi)
("r-stringr" ,r-stringr)
("r-universalmotif" ,r-universalmotif)))
(native-inputs
`(("r-knitr" ,r-knitr)))
(home-page
"https://github.com/Aufiero/circRNAprofiler")
(synopsis
"Computational framework for the downstream analysis of circular RNA's")
(description
"@code{r-circrnaprofiler} is a computational framework for a comprehensive
in silico analysis of @dfn{circular RNA} (circRNAs). This computational
framework allows to combine and analyze circRNAs previously detected by
multiple publicly available annotation-based circRNA detection tools. It
covers different aspects of circRNAs analysis from differential expression
analysis, evolutionary conservation, biogenesis to functional analysis.")
(license license:gpl3)))
(define-public r-cistopic
(let ((commit "29abd8df9afb60ff27ac3f0a590930debe926950")
(revision "0"))
@ -6965,14 +7018,14 @@ metrics, with methods for objects produced by the @code{methylumi} and
(define-public r-gdsfmt
(package
(name "r-gdsfmt")
(version "1.26.0")
(version "1.26.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "gdsfmt" version))
(sha256
(base32
"0x8ik179sf38ihx2y24cvsa9d8isdmx2z27sjhcwq0r3xpjxpz1a"))
"0f5vn8h5fzzazcv92sgrf85hc4xkkizk2wwml9mzjd8ya2fkwg8n"))
(modules '((guix build utils)))
;; Remove bundled sources of zlib, lz4, and xz. Don't attempt to build
;; them and link with system libraries instead.
@ -7435,6 +7488,56 @@ data. This modified test allows for testing differential expression in qPCR
data.")
(license license:gpl2+)))
(define-public r-universalmotif
(package
(name "r-universalmotif")
(version "1.8.3")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "universalmotif" version))
(sha256
(base32
"1ys2kbayc1rzv8nzi60208yfslm4kzynndfg7vw2n0c30dvzycrc"))))
(properties
`((upstream-name . "universalmotif")))
(build-system r-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-reference-to-strip
(lambda _
(substitute* "src/Makevars"
(("/usr/bin/strip") (which "strip"))))))))
(propagated-inputs
`(("r-biocgenerics" ,r-biocgenerics)
("r-biostrings" ,r-biostrings)
("r-ggplot2" ,r-ggplot2)
("r-ggseqlogo" ,r-ggseqlogo)
("r-iranges" ,r-iranges)
("r-mass" ,r-mass)
("r-rcpp" ,r-rcpp)
("r-rcppthread" ,r-rcppthread)
("r-rdpack" ,r-rdpack)
("r-rlang" ,r-rlang)
("r-s4vectors" ,r-s4vectors)
("r-yaml" ,r-yaml)))
(native-inputs
`(("r-knitr" ,r-knitr)))
(home-page
"https://bioconductor.org/packages/universalmotif/")
(synopsis
"Specific structures importer, modifier, and exporter for R")
(description
"This package allows importing most common @dfn{specific structure}
(motif) types into R for use by functions provided by other Bioconductor
motif-related packages. Motifs can be exported into most major motif formats
from various classes as defined by other Bioconductor packages. A suite of
motif and sequence manipulation and analysis functions are included, including
enrichment, comparison, P-value calculation, shuffling, trimming, higher-order
motifs, and others.")
(license license:gpl3)))
;; This is a CRAN package, but it depends on Bioconductor packages, so we put
;; it here.
(define-public r-activedriverwgs
@ -7812,14 +7915,14 @@ visualizing RNA-sequencing datasets and differentially expressed genes.")
(define-public r-chemminer
(package
(name "r-chemminer")
(version "3.42.0")
(version "3.42.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "ChemmineR" version))
(sha256
(base32
"14q9zhhxgkx5skj424i2rbjdbp5j8jfkxspkhnkwv5i45cvkgh19"))))
"1853w19042c53whdnrfg1v8f07wpswf2si8q4613yrcamzg2zjkx"))))
(properties `((upstream-name . "ChemmineR")))
(build-system r-build-system)
(propagated-inputs
@ -8574,14 +8677,14 @@ generated.")
(define-public r-preprocesscore
(package
(name "r-preprocesscore")
(version "1.52.0")
(version "1.52.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "preprocessCore" version))
(sha256
(base32
"1i5ky3bfbkrz4lgfs72fkckr8q3wq48p38mp05cjmnmh1chmdw38"))))
"1hz7rlpscaczvvcalky2f5bmr70aii455549m7f6wk10aklp3nll"))))
(properties
`((upstream-name . "preprocessCore")))
(build-system r-build-system)
@ -8728,14 +8831,14 @@ provided.")
(define-public r-hdf5array
(package
(name "r-hdf5array")
(version "1.18.0")
(version "1.18.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "HDF5Array" version))
(sha256
(base32
"1hr149q03p09y1cjnx8av854j53041wfyq66xpsjw4mypzjf6f28"))))
"14v2adhwi0yac834g23kvfid740raclhmribzd28k10gsjk9cj7g"))))
(properties `((upstream-name . "HDF5Array")))
(build-system r-build-system)
(arguments
@ -8769,14 +8872,14 @@ block processing.")
(define-public r-rhdf5lib
(package
(name "r-rhdf5lib")
(version "1.12.0")
(version "1.12.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "Rhdf5lib" version))
(sha256
(base32
"0wia85a6dkgibsjcmpqas5068msck3h3bqpgw2x07bk189z4vay2"))
"14fnq4gijxp2l7985pksfk52i6klvy81r3892lnna73c6hh1dj28"))
(modules '((guix build utils)))
(snippet
'(begin
@ -8853,14 +8956,14 @@ packages.")
(define-public r-beachmat
(package
(name "r-beachmat")
(version "2.6.2")
(version "2.6.4")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "beachmat" version))
(sha256
(base32
"1yxm5andf4hsxxsmwrn5vl79707yfqkhzzajq6fvhsmaad3f97n7"))))
"0vbqdkc52j2v1ghygmhy2cbgqm4l99vmv8930wkzkq1pm73pmjji"))))
(build-system r-build-system)
(propagated-inputs
`(("r-biocgenerics" ,r-biocgenerics)
@ -8875,6 +8978,184 @@ variety of commonly used matrix types, including sparse and HDF5-backed
matrices.")
(license license:gpl3)))
;; This package includes files that have been taken from kentutils. Some
;; parts of kentutils are not released under a free license, but this package
;; only uses files that are also found in the free parts of kentutils.
(define-public r-cner
(package
(name "r-cner")
(version "1.26.0")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "CNEr" version))
(sha256
(base32 "0qy4pm23vyy23zwsjkf0mpf2c0p54nq26w9lq7j0ld4bx9l3jc6c"))))
(properties `((upstream-name . "CNEr")))
(build-system r-build-system)
(inputs `(("zlib" ,zlib)))
(propagated-inputs
`(("r-annotate" ,r-annotate)
("r-biocgenerics" ,r-biocgenerics)
("r-biostrings" ,r-biostrings)
("r-dbi" ,r-dbi)
("r-genomeinfodb" ,r-genomeinfodb)
("r-genomicalignments" ,r-genomicalignments)
("r-genomicranges" ,r-genomicranges)
("r-ggplot2" ,r-ggplot2)
("r-go-db" ,r-go-db)
("r-iranges" ,r-iranges)
("r-keggrest" ,r-keggrest)
("r-powerlaw" ,r-powerlaw)
("r-r-utils" ,r-r-utils)
("r-readr" ,r-readr)
("r-reshape2" ,r-reshape2)
("r-rsqlite" ,r-rsqlite)
("r-rtracklayer" ,r-rtracklayer)
("r-s4vectors" ,r-s4vectors)
("r-xvector" ,r-xvector)))
(native-inputs
`(("r-knitr" ,r-knitr)))
(home-page "https://github.com/ge11232002/CNEr")
(synopsis "CNE Detection and Visualization")
(description
"This package provides tools for large-scale identification and
advanced visualization of sets of conserved noncoding elements.")
;; For all files in src/ucsc "license is hereby granted for all use -
;; public, private or commercial"; this includes those files that don't
;; have a license header, because they are included in the free parts of
;; the kentutils package.
(license (list license:gpl2
(license:non-copyleft
"https://raw.githubusercontent.com/ucscGenomeBrowser/kent/v410_base/src/lib/LICENSE")))))
(define-public r-tfbstools
(package
(name "r-tfbstools")
(version "1.28.0")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "TFBSTools" version))
(sha256
(base32
"0p42hnwhipmcvrsqk3s8qfiian1fvh6izfd9m961bsx99r2clnha"))))
(properties `((upstream-name . "TFBSTools")))
(build-system r-build-system)
(propagated-inputs
`(("r-biobase" ,r-biobase)
("r-biocgenerics" ,r-biocgenerics)
("r-biocparallel" ,r-biocparallel)
("r-biostrings" ,r-biostrings)
("r-bsgenome" ,r-bsgenome)
("r-catools" ,r-catools)
("r-cner" ,r-cner)
("r-dbi" ,r-dbi)
("r-dirichletmultinomial" ,r-dirichletmultinomial)
("r-genomeinfodb" ,r-genomeinfodb)
("r-genomicranges" ,r-genomicranges)
("r-gtools" ,r-gtools)
("r-iranges" ,r-iranges)
("r-rsqlite" ,r-rsqlite)
("r-rtracklayer" ,r-rtracklayer)
("r-s4vectors" ,r-s4vectors)
("r-seqlogo" ,r-seqlogo)
("r-tfmpvalue" ,r-tfmpvalue)
("r-xml" ,r-xml)
("r-xvector" ,r-xvector)))
(native-inputs `(("r-knitr" ,r-knitr)))
(home-page "https://github.com/ge11232002/TFBSTools")
(synopsis "Transcription factor binding site (TFBS) analysis")
(description
"TFBSTools is a package for the analysis and manipulation of
transcription factor binding sites. It includes matrices conversion
between @dfn{Position Frequency Matrix} (PFM), @dfn{Position Weight
Matrix} (PWM) and @dfn{Information Content Matrix} (ICM). It can also
scan putative TFBS from sequence/alignment, query JASPAR database and
provides a wrapper of de novo motif discovery software.")
(license license:gpl2)))
(define-public r-motifmatchr
(package
(name "r-motifmatchr")
(version "1.12.0")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "motifmatchr" version))
(sha256
(base32
"0zrpn0hqdg0hm80ydkfpiqncwyb8y0xp6mlin7g955p8zcpcm67z"))))
(properties `((upstream-name . "motifmatchr")))
(build-system r-build-system)
(propagated-inputs
`(("r-biostrings" ,r-biostrings)
("r-bsgenome" ,r-bsgenome)
("r-genomeinfodb" ,r-genomeinfodb)
("r-genomicranges" ,r-genomicranges)
("r-iranges" ,r-iranges)
("r-matrix" ,r-matrix)
("r-rcpp" ,r-rcpp)
("r-rcpparmadillo" ,r-rcpparmadillo)
("r-rsamtools" ,r-rsamtools)
("r-s4vectors" ,r-s4vectors)
("r-summarizedexperiment" ,r-summarizedexperiment)
("r-tfbstools" ,r-tfbstools)))
(native-inputs `(("r-knitr" ,r-knitr)))
(home-page "https://bioconductor.org/packages/motifmatchr")
(synopsis "Fast motif matching in R")
(description
"Quickly find motif matches for many motifs and many sequences.
This package wraps C++ code from the MOODS motif calling library.")
(license license:gpl3)))
(define-public r-chromvar
(package
(name "r-chromvar")
(version "1.12.0")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "chromVAR" version))
(sha256
(base32 "0dn04ijgq8fncn2bkvnd0lnabjg2s4mpb91b3kwvv3nkgjgfx819"))))
(properties `((upstream-name . "chromVAR")))
(build-system r-build-system)
(propagated-inputs
`(("r-biocgenerics" ,r-biocgenerics)
("r-biocparallel" ,r-biocparallel)
("r-biostrings" ,r-biostrings)
("r-bsgenome" ,r-bsgenome)
("r-dt" ,r-dt)
("r-genomeinfodb" ,r-genomeinfodb)
("r-genomicranges" ,r-genomicranges)
("r-ggplot2" ,r-ggplot2)
("r-iranges" ,r-iranges)
("r-matrix" ,r-matrix)
("r-miniui" ,r-miniui)
("r-nabor" ,r-nabor)
("r-plotly" ,r-plotly)
("r-rcolorbrewer" ,r-rcolorbrewer)
("r-rcpp" ,r-rcpp)
("r-rcpparmadillo" ,r-rcpparmadillo)
("r-rsamtools" ,r-rsamtools)
("r-rtsne" ,r-rtsne)
("r-s4vectors" ,r-s4vectors)
("r-shiny" ,r-shiny)
("r-summarizedexperiment" ,r-summarizedexperiment)
("r-tfbstools" ,r-tfbstools)))
(native-inputs `(("r-knitr" ,r-knitr)))
(home-page "https://bioconductor.org/packages/release/bioc/html/chromVAR.html")
(synopsis "Determine chromatin variation across regions")
(description
"This package @code{r-chromvar} determines variation in chromatin
accessibility across sets of annotations or peaks. @code{r-chromvar} is
designed primarily for single-cell or sparse chromatin accessibility data like
single cell assay for transposase-accessible chromatin using
sequencing (@code{scATAC-seq} or sparse bulk ATAC or deoxyribonuclease
sequence (@code{DNAse-seq}) experiments.")
(license license:expat)))
(define-public r-singlecellexperiment
(package
(name "r-singlecellexperiment")
@ -8907,14 +9188,14 @@ libraries.")
(define-public r-scuttle
(package
(name "r-scuttle")
(version "1.0.3")
(version "1.0.4")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "scuttle" version))
(sha256
(base32
"0l2r6fhyd33dllf2mc5a1pd5sawfvcin54pgh9l1nafqzg3sdv2m"))))
"0vfhxyv81y525qgk0s3bxy1yypj16h1bl7sc1a1jdqx11fxxv2l8"))))
(properties `((upstream-name . "scuttle")))
(build-system r-build-system)
(propagated-inputs
@ -8979,14 +9260,14 @@ quality control.")
(define-public r-scran
(package
(name "r-scran")
(version "1.18.1")
(version "1.18.5")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "scran" version))
(sha256
(base32
"1zap12rm61z2hg6ykknbif478nr7g468v8mp50bj5hqgi69ywcww"))))
"0mk4bs7pkzbaiaaap75nzsrlwr883h45xnbpn94fy91i8d9w1xy1"))))
(build-system r-build-system)
(propagated-inputs
`(("r-beachmat" ,r-beachmat)
@ -9022,14 +9303,14 @@ variable and significantly correlated genes.")
(define-public r-sparsematrixstats
(package
(name "r-sparsematrixstats")
(version "1.2.0")
(version "1.2.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "sparseMatrixStats" version))
(sha256
(base32
"0d1idbda1pzhdam9m0i5rn0c6pl7gwv0v3mcrv4wi5760v9qd5qh"))))
"01gnmy9zqd0ygm40vqkmqmiwfqmdawj4m81dysmmcdm7z80rn9ii"))))
(properties
`((upstream-name . "sparseMatrixStats")))
(build-system r-build-system)
@ -9050,14 +9331,14 @@ data in the column sparse format.")
(define-public r-delayedmatrixstats
(package
(name "r-delayedmatrixstats")
(version "1.12.1")
(version "1.12.3")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "DelayedMatrixStats" version))
(sha256
(base32
"1cyvj6ffl10vaiip146dldc1w8if854kpz9nhi50ndhpkmdb8sa0"))))
"1hb8jv5dy3svf7xan6rym7amwdqm5mvl9qx5xhmj1vkb81bizn7h"))))
(properties
`((upstream-name . "DelayedMatrixStats")))
(build-system r-build-system)

354
gnu/packages/bioinformatics.scm
View File

@ -19,6 +19,7 @@
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2020 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2020 Bonface Munyoki Kilyungi <bonfacemunyoki@gmail.com>
;;; Copyright © 2021 Tim Howes <timhowes@lavabit.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1615,14 +1616,14 @@ gapped, local, and paired-end alignment modes.")
(define-public bowtie1
(package
(name "bowtie1")
(version "1.2.3")
(version "1.3.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/bowtie-bio/bowtie/"
version "/bowtie-src-x86_64.zip"))
version "/bowtie-" version "-src.zip"))
(sha256
(base32
"0vmiqdhc9dzyfy9sh6vgi7k9xy2hiw8g87vbamnc6cgpm179zsa4"))
"11dbihdnrizc6qhx9xsw77w3q5ssx642alaqzvhxx32ak9glvq04"))
(modules '((guix build utils)))
(snippet
'(substitute* "Makefile"
@ -1633,7 +1634,7 @@ gapped, local, and paired-end alignment modes.")
(arguments
'(#:tests? #f ; no "check" target
#:make-flags
(list "all"
(list "CC=gcc" "all"
(string-append "prefix=" (assoc-ref %outputs "out")))
#:phases
(modify-phases %standard-phases
@ -3819,7 +3820,7 @@ indexing scheme is called a @dfn{Hierarchical Graph FM index} (HGFM).")
(define-public hmmer
(package
(name "hmmer")
(version "3.2.1")
(version "3.3.2")
(source
(origin
(method url-fetch)
@ -3827,9 +3828,10 @@ indexing scheme is called a @dfn{Hierarchical Graph FM index} (HGFM).")
"http://eddylab.org/software/hmmer/hmmer-" version ".tar.gz"))
(sha256
(base32
"171bivy6xhgjsz5nv53n81pc3frnwz29ylblawk2bv46szwjjqd5"))))
"0s9wf6n0qanbx8qs6igfl3vyjikwbrvh4d9d6mv54yp3xysykzlj"))))
(build-system gnu-build-system)
(native-inputs `(("perl" ,perl)))
(native-inputs `(("perl" ,perl)
("python" ,python))) ; for tests
(home-page "http://hmmer.org/")
(synopsis "Biosequence analysis using profile hidden Markov models")
(description
@ -6730,7 +6732,7 @@ application of SortMeRNA is filtering rRNA from metatranscriptomic data.")
(define-public star
(package
(name "star")
(version "2.7.3a")
(version "2.7.8a")
(source (origin
(method git-fetch)
(uri (git-reference
@ -6739,7 +6741,7 @@ application of SortMeRNA is filtering rRNA from metatranscriptomic data.")
(file-name (git-file-name name version))
(sha256
(base32
"1hgiqw5qhs0pc1xazzihcfd92na02xyq2kb469z04y1v51kpvvjq"))
"0zc5biymja9zml9yizcj1h68fq9c6sxfcav8a0lbgvgsm44rvans"))
(modules '((guix build utils)))
(snippet
'(begin
@ -6815,6 +6817,32 @@ sequences.")
;; STAR is licensed under GPLv3 or later; htslib is MIT-licensed.
(license license:gpl3+)))
(define-public star-for-pigx
(package
(inherit star)
(name "star")
(version "2.7.3a")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/alexdobin/STAR")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1hgiqw5qhs0pc1xazzihcfd92na02xyq2kb469z04y1v51kpvvjq"))
(modules '((guix build utils)))
(snippet
'(begin
(substitute* "source/Makefile"
(("/bin/rm") "rm"))
;; Remove pre-built binaries and bundled htslib sources.
(delete-file-recursively "bin/MacOSX_x86_64")
(delete-file-recursively "bin/Linux_x86_64")
(delete-file-recursively "bin/Linux_x86_64_static")
(delete-file-recursively "source/htslib")
#t))))))
(define-public starlong
(package (inherit star)
(name "starlong")
@ -7054,14 +7082,14 @@ data in the form of VCF files.")
(define-public infernal
(package
(name "infernal")
(version "1.1.3")
(version "1.1.4")
(source (origin
(method url-fetch)
(uri (string-append "http://eddylab.org/software/infernal/"
"infernal-" version ".tar.gz"))
(sha256
(base32
"0pm8bm3s6nfa0av4x6m6h27lsg12b3lz3jm0fyh1mc77l2isd61v"))))
"1z4mgwqg1j4n5ika08ai8mg9yjyjhf4821jp83v2bgwzxrykqjgr"))))
(build-system gnu-build-system)
(native-inputs
`(("perl" ,perl)
@ -7129,6 +7157,55 @@ clustering analysis, differential analysis, motif inference and exploration of
single cell ATAC-seq sequencing data.")
(license license:gpl3)))
(define-public r-archr
(let ((commit "46b519ffb6f73edf132497ac31650d19ef055dc1")
(revision "1"))
(package
(name "r-archr")
(version (git-version "1.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/GreenleafLab/ArchR")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1zj3sdfhgn2q2256fmz61a92vw1wylyck632d7842d6knd0v92v8"))))
(properties `((upstream-name . "ArchR")))
(build-system r-build-system)
(propagated-inputs
`(("r-biocgenerics" ,r-biocgenerics)
("r-biostrings" ,r-biostrings)
("r-chromvar" ,r-chromvar)
("r-complexheatmap" ,r-complexheatmap)
("r-data-table" ,r-data-table)
("r-genomicranges" ,r-genomicranges)
("r-ggplot2" ,r-ggplot2)
("r-ggrepel" ,r-ggrepel)
("r-gridextra" ,r-gridextra)
("r-gtable" ,r-gtable)
("r-gtools" ,r-gtools)
("r-magrittr" ,r-magrittr)
("r-matrix" ,r-matrix)
("r-matrixstats" ,r-matrixstats)
("r-motifmatchr" ,r-motifmatchr)
("r-nabor" ,r-nabor)
("r-plyr" ,r-plyr)
("r-rcpp" ,r-rcpp)
("r-rhdf5" ,r-rhdf5)
("r-rsamtools" ,r-rsamtools)
("r-s4vectors" ,r-s4vectors)
("r-stringr" ,r-stringr)
("r-summarizedexperiment" ,r-summarizedexperiment)
("r-uwot" ,r-uwot)))
(home-page "https://github.com/GreenleafLab/ArchR")
(synopsis "Analyze single-cell regulatory chromatin in R")
(description
"This package is designed to streamline scATAC analyses in R.")
(license license:gpl2+))))
(define-public r-scde
(package
(name "r-scde")
@ -7237,14 +7314,14 @@ includes software to
(define-public r-genefilter
(package
(name "r-genefilter")
(version "1.72.0")
(version "1.72.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "genefilter" version))
(sha256
(base32
"0929g6c4v2qhgipgrh1a5gv6444sm2dp52x9c3qbk03i8wzc6633"))))
"1c6h3qnjvphs977qhv5vafvsb108r0q7xhaayly6qv6adqfn94rn"))))
(build-system r-build-system)
(native-inputs
`(("gfortran" ,gfortran)
@ -7403,14 +7480,14 @@ the graph algorithms contained in the Boost library.")
(define-public r-gseabase
(package
(name "r-gseabase")
(version "1.52.0")
(version "1.52.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "GSEABase" version))
(sha256
(base32
"0lcxbxfg62zdf2nql49asn3555cqrrxpjm2xsxf7vlxv84dl6r44"))))
"0dawh1kjmf6921jm77j2s2phrq5237pjc4sdh8fkln89gf48zx6i"))))
(properties `((upstream-name . "GSEABase")))
(build-system r-build-system)
(propagated-inputs
@ -7537,14 +7614,14 @@ ungapped alignment formats.")
(define-public r-systempiper
(package
(name "r-systempiper")
(version "1.24.2")
(version "1.24.3")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "systemPipeR" version))
(sha256
(base32
"0blvvci57q12sl18yvw07233rfnj47mfadzm0pdpig1ll5z6ld2j"))))
"0ffazyl2q9plbhwlxi04s3fvnli6qj95n7bkjc21535bbi08xfki"))))
(properties `((upstream-name . "systemPipeR")))
(build-system r-build-system)
(propagated-inputs
@ -7702,6 +7779,79 @@ clusters.")
(home-page "https://sourceforge.net/projects/pardre/")
(license license:gpl3+)))
(define-public ngshmmalign
(package
(name "ngshmmalign")
(version "0.1.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/cbg-ethz/ngshmmalign/"
"releases/download/" version
"/ngshmmalign-" version ".tar.bz2"))
(sha256
(base32
"0jryvlssi2r2ii1dxnx39yk6bh4yqgq010fnxrgfgbaj3ykijlzv"))))
(build-system cmake-build-system)
(arguments '(#:tests? #false)) ; there are none
(inputs
`(("boost" ,boost)))
(home-page "https://github.com/cbg-ethz/ngshmmalign/")
(synopsis "Profile HMM aligner for NGS reads")
(description
"ngshmmalign is a profile HMM aligner for NGS reads designed particularly
for small genomes (such as those of RNA viruses like HIV-1 and HCV) that
experience substantial biological insertions and deletions.")
(license license:gpl2+)))
(define-public prinseq
(package
(name "prinseq")
(version "0.20.4")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/prinseq/standalone/"
"prinseq-lite-" version ".tar.gz"))
(sha256
(base32
"0vxmzvmm67whxrqdaaamwgjk7cf0fzfs5s673jgg00kz7g70splv"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #false ; no check target
#:phases
(modify-phases %standard-phases
(delete 'configure)
(delete 'build)
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(for-each (lambda (file)
(chmod file #o555)
(install-file file bin)
(wrap-script (string-append bin "/" (basename file))
`("PERL5LIB" ":" prefix
(,(getenv "PERL5LIB")))))
(find-files "." "prinseq.*.pl"))))))))
(inputs
`(("guile" ,guile-3.0) ; for wrapper scripts
("perl" ,perl)
("perl-cairo" ,perl-cairo)
("perl-data-dumper" ,perl-data-dumper)
("perl-digest-md5" ,perl-digest-md5)
("perl-getopt-long" ,perl-getopt-long)
("perl-json" ,perl-json)
("perl-statistics-pca" ,perl-statistics-pca)))
(home-page "http://prinseq.sourceforge.net/")
(synopsis "Preprocess sequence data in FASTA or FASTQ formats")
(description
"PRINSEQ is a bioinformatics tool to help you preprocess your genomic or
metagenomic sequence data in FASTA or FASTQ formats. The tool is written in
Perl and can be helpful if you want to filter, reformat, or trim your sequence
data. It also generates basic statistics for your sequences.")
(license license:gpl3+)))
(define-public ruby-bio-kseq
(package
(name "ruby-bio-kseq")
@ -7954,13 +8104,13 @@ checks on R packages that are to be submitted to the Bioconductor repository.")
(define-public r-s4vectors
(package
(name "r-s4vectors")
(version "0.28.0")
(version "0.28.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "S4Vectors" version))
(sha256
(base32
"0rfn46g2mfda01s75vpcfn5jc7xkp0jrl5v79gyd40jm37p4j1zv"))))
"0fhf4lsfxrim7glazh6ng46ykzaly5ggwpg170vcz4cc24prv0rh"))))
(properties
`((upstream-name . "S4Vectors")))
(build-system r-build-system)
@ -7981,13 +8131,13 @@ S4Vectors package itself.")
(define-public r-iranges
(package
(name "r-iranges")
(version "2.24.0")
(version "2.24.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "IRanges" version))
(sha256
(base32
"1lfc8xz45v63y3q40im00i944hi0p9idwhx50w3nzkwdpk79315b"))))
"01mx46a82vd3gz705pj0kk4wpxg683s8jqxchzjia3gz00b4qw52"))))
(properties
`((upstream-name . "IRanges")))
(build-system r-build-system)
@ -8063,13 +8213,13 @@ names in their natural, rather than lexicographic, order.")
(define-public r-edger
(package
(name "r-edger")
(version "3.32.0")
(version "3.32.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "edgeR" version))
(sha256
(base32
"0dkjd6li270icy1x5qbzpakk9bx712mdm5k32lrr3yrggq92jhjg"))))
"1gaic8qf6a6sy0bmydh1xzf52w0wnq31aanpvw3a30pfsi218bcp"))))
(properties `((upstream-name . "edgeR")))
(build-system r-build-system)
(propagated-inputs
@ -8266,13 +8416,13 @@ annotation data packages using SQLite data storage.")
(define-public r-biomart
(package
(name "r-biomart")
(version "2.46.0")
(version "2.46.3")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "biomaRt" version))
(sha256
(base32
"1zpdm8nw1d0m31pdmzw1dccbd6iczfhiklhm4d325zkzf3jrkvxf"))))
"0gwmd0ykpv0gyh34c56g5m12lil20fvig49f3ih1jxrxf3q4wmq7"))))
(properties
`((upstream-name . "biomaRt")))
(build-system r-build-system)
@ -8401,13 +8551,13 @@ tab-delimited (tabix) files.")
(define-public r-delayedarray
(package
(name "r-delayedarray")
(version "0.16.0")
(version "0.16.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "DelayedArray" version))
(sha256
(base32
"1564wnradxw15nsnv6w2wd3xngcs3xa1mlibbq3hygi5fcx4fk3g"))))
"1d75zrhha1v7dhbvjp6a4iap441l5k268w0jjxklpqywbqns7l3d"))))
(properties
`((upstream-name . "DelayedArray")))
(build-system r-build-system)
@ -9697,13 +9847,13 @@ number detection tools.")
(define-public r-methylkit
(package
(name "r-methylkit")
(version "1.16.0")
(version "1.16.1")
(source (origin
(method url-fetch)
(uri (bioconductor-uri "methylKit" version))
(sha256
(base32
"11pmn191n0ga28x1w20cm2cmw8kddl29q6h2xfjjba5bspp2g613"))))
"1c9b11gfh3cc37iwym9rgsba3mh2xkp78a1gvnjqhzlkiz667mn3"))))
(properties `((upstream-name . "methylKit")))
(build-system r-build-system)
(propagated-inputs
@ -10037,14 +10187,14 @@ structure (pcaRes) to provide a common interface to the PCA results.")
(define-public r-msnbase
(package
(name "r-msnbase")
(version "2.16.0")
(version "2.16.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "MSnbase" version))
(sha256
(base32
"0cvcdmq1glifga5qwv9j3lgj31dcrcc6ql4kkk83jy4y43v2zxlx"))))
"0hxzs9zzljywqxr7q388hshpy1pdryhl0zkwffqbxpf5pcf92d3h"))))
(properties `((upstream-name . "MSnbase")))
(build-system r-build-system)
(propagated-inputs
@ -10356,14 +10506,14 @@ microarrays or GRanges for sequencing data.")
(define-public r-gage
(package
(name "r-gage")
(version "2.40.0")
(version "2.40.1")
(source
(origin
(method url-fetch)
(uri (bioconductor-uri "gage" version))
(sha256
(base32
"0xm50wgjjjymv71mbv1clnhx4m12nrd1pc6vfplpdqr5q49v3yd5"))))
"1iawa03dy4bl333my69d4sk7d74cjzfg5dpcxga6q5dglan4sp8r"))))
(build-system r-build-system)
(propagated-inputs
`(("r-annotationdbi" ,r-annotationdbi)
@ -10635,6 +10785,72 @@ explore and perform basic analysis of single cell sequencing data coming from
droplet sequencing. It has been particularly tailored for Drop-seq.")
(license license:gpl3))))
(define-public r-cellchat
(let ((commit
"21edd226ca408e4c413408f98562d71ee0b54e5d")
(revision "1"))
(package
(name "r-cellchat")
(version (git-version "1.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/sqjin/CellChat")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0cvzl9mi8jjznpql2gv67swnk1dndn3a2h22z5l84h7lwpwjmh53"))
(snippet
'(for-each delete-file '("src/CellChat.so"
"src/CellChat_Rcpp.o"
"src/RcppExports.o")))))
(properties `((upstream-name . "CellChat")))
(build-system r-build-system)
(propagated-inputs
`(("r-biocgenerics" ,r-biocgenerics)
("r-circlize" ,r-circlize)
("r-colorspace" ,r-colorspace)
("r-complexheatmap" ,r-complexheatmap)
("r-cowplot" ,r-cowplot)
("r-dplyr" ,r-dplyr)
("r-expm" ,r-expm)
("r-fnn" ,r-fnn)
("r-forcats" ,r-forcats)
("r-future" ,r-future)
("r-future-apply" ,r-future-apply)
("r-gg-gap" ,r-gg-gap)
("r-ggalluvial" ,r-ggalluvial)
("r-ggplot2" ,r-ggplot2)
("r-ggrepel" ,r-ggrepel)
("r-igraph" ,r-igraph)
("r-irlba" ,r-irlba)
("r-magrittr" ,r-magrittr)
("r-matrix" ,r-matrix)
("r-nmf" ,r-nmf)
("r-patchwork" ,r-patchwork)
("r-pbapply" ,r-pbapply)
("r-rcolorbrewer" ,r-rcolorbrewer)
("r-rcpp" ,r-rcpp)
("r-rcppeigen" ,r-rcppeigen)
("r-reshape2" ,r-reshape2)
("r-reticulate" ,r-reticulate)
("r-rspectra" ,r-rspectra)
("r-rtsne" ,r-rtsne)
("r-scales" ,r-scales)
("r-shape" ,r-shape)
("r-sna" ,r-sna)
("r-stringr" ,r-stringr)
("r-svglite" ,r-svglite)))
(native-inputs `(("r-knitr" ,r-knitr)))
(home-page "https://github.com/sqjin/CellChat")
(synopsis "Analysis of cell-cell communication from single-cell transcriptomics data")
(description
"This package infers, visualizes and analyzes the cell-cell
communication networks from scRNA-seq data.")
(license license:gpl3))))
(define-public sambamba
(package
(name "sambamba")
@ -11201,7 +11417,7 @@ browser.")
(inputs
`(("perl" ,perl)
("java-commons-cli" ,java-commons-cli)))
(home-page "http://fureylab.web.unc.edu/software/fseq/")
(home-page "https://fureylab.web.unc.edu/software/fseq/")
(synopsis "Feature density estimator for high-throughput sequence tags")
(description
"F-Seq is a software package that generates a continuous tag sequence
@ -11370,7 +11586,7 @@ using nucleotide or amino-acid sequence data.")
(define-public kallisto
(package
(name "kallisto")
(version "0.44.0")
(version "0.46.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -11379,7 +11595,10 @@ using nucleotide or amino-acid sequence data.")
(file-name (git-file-name name version))
(sha256
(base32
"0nj382jiywqnpgvyhichajpkkh5r0bapn43f4dx40zdaq5v4m40m"))))
"0ij5n7v3m90jdfi7sn8nvglfyf58abp1f5xq42r4k73l0lfds6xi"))
(modules '((guix build utils)))
(snippet
'(delete-file-recursively "ext/htslib/"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ; no "check" target
@ -11402,7 +11621,7 @@ using nucleotide or amino-acid sequence data.")
#t)))))
(inputs
`(("hdf5" ,hdf5)
("htslib" ,htslib)
("htslib" ,htslib-1.9)
("zlib" ,zlib)))
(home-page "https://pachterlab.github.io/kallisto/")
(synopsis "Near-optimal RNA-Seq quantification")
@ -12387,7 +12606,7 @@ once. This package provides tools to perform Drop-seq analyses.")
("snakemake" ,snakemake)
("fastqc" ,fastqc)
("multiqc" ,multiqc)
("star" ,star)
("star" ,star-for-pigx)
("trim-galore" ,trim-galore)
("htseq" ,htseq)
("samtools" ,samtools)
@ -12598,7 +12817,7 @@ methylation and segmentation.")
("pandoc-citeproc" ,pandoc-citeproc)
("samtools" ,samtools)
("snakemake" ,snakemake)
("star" ,star)
("star" ,star-for-pigx)
("r-minimal" ,r-minimal)
("r-argparser" ,r-argparser)
("r-cowplot" ,r-cowplot)
@ -14045,18 +14264,24 @@ choosing which reads pass the filter.")
#t)))
(add-after 'install 'wrap-programs
(lambda* (#:key outputs #:allow-other-keys)
(for-each (lambda (file)
(wrap-program file `("GUIX_PYTHONPATH" ":" prefix (,path))))
(find-files "/share/nanopolish/scripts" "\\.py"))
(for-each (lambda (file)
(wrap-program file `("PERL5LIB" ":" prefix (,path))))
(find-files "/share/nanopolish/scripts" "\\.pl"))
#t)))))
(let ((pythonpath (getenv "GUIX_PYTHONPATH"))
(perl5lib (getenv "PERL5LIB"))
(scripts (string-append (assoc-ref outputs "out")
"/share/nanopolish/scripts")))
(for-each (lambda (file)
(wrap-program file `("GUIX_PYTHONPATH" ":" prefix (,pythonpath))))
(find-files scripts "\\.py"))
(for-each (lambda (file)
(wrap-script file `("PERL5LIB" ":" prefix (,perl5lib))))
(find-files scripts "\\.pl"))))))))
(inputs
`(("eigen" ,eigen)
`(("guile" ,guile-3.0) ; for wrappers
("eigen" ,eigen)
("hdf5" ,hdf5)
("htslib" ,htslib)
("perl" ,perl)
("bioperl" ,bioperl-minimal)
("perl-getopt-long" ,perl-getopt-long)
("python" ,python-wrapper)
("python-biopython" ,python-biopython)
("python-numpy" ,python-numpy)
@ -15488,6 +15713,41 @@ manipulation of hierarchical features (e.g., genes, transcripts, and exons)
than is possible with plain-text methods alone.")
(license license:expat))))
(define-public indelfixer
(package
(name "indelfixer")
(version "1.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/cbg-ethz/InDelFixer/")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"10ak05x8i1bx2p7rriv2rglqg1wr7c8wrhjrqlq1wm7ka99w8i79"))))
(build-system ant-build-system)
(arguments
`(#:jar-name "InDelFixer.jar"
#:source-dir "src/main/java"
#:test-dir "src/test"))
(inputs
`(("java-commons-lang2" ,java-commons-lang)
("java-args4j" ,java-args4j)))
(native-inputs
`(("java-junit" ,java-junit)))
(home-page "https://github.com/cbg-ethz/InDelFixer/")
(synopsis "Iterative and sensitive NGS sequence aligner")
(description "InDelFixer is a sensitive aligner for 454, Illumina and
PacBio data, employing a full Smith-Waterman alignment against a reference.
This Java command line application aligns Next-Generation Sequencing (NGS) and
third-generation reads to a set of reference sequences, by a prior fast k-mer
matching and removes indels, causing frame shifts. In addition, only a
specific region can be considered. An iterative refinement of the alignment
can be performed, by alignment against the consensus sequence with wobbles.
The output is in SAM format.")
(license license:gpl3+)))
(define-public libsbml
(package
(name "libsbml")

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

@ -12,6 +12,7 @@
;;; Copyright © 2020 Yuval Kogman <nothingmuch@woobling.org>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2021 qblade <qblade@protonmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -37,6 +38,8 @@
#:use-module (guix build-system cmake)
#:use-module (gnu packages)
#:use-module (gnu packages adns)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages check)
#:use-module (gnu packages compression)
#:use-module (gnu packages cpp)
@ -147,6 +150,53 @@ it is easy to re-run the compilation with alternate programs. Bear is used to
generate such a compilation database.")
(license license:gpl3+)))
(define-public bmake
(package
(name "bmake")
(version "20210206")
(source
(origin
(method url-fetch)
(uri (string-append
"http://www.crufty.net/ftp/pub/sjg/bmake-" version ".tar.gz"))
(sha256
(base32 "07n9avzdg6gifrzyddnyzada5s5rzklvbqfpv5drljpxcgpqpvwg"))))
(build-system gnu-build-system)
(inputs
`(("bash" ,bash-minimal)))
(native-inputs
`(("coreutils" ,coreutils)))
(arguments
`(#:tests? #f ; test during build
#:phases
(modify-phases %standard-phases
(add-after 'configure 'fix-test ; fix from nixpkgs
(lambda _
(substitute* "unit-tests/unexport-env.mk"
(("PATH=\t/bin:/usr/bin:/sbin:/usr/sbin")
"PATH := ${PATH}"))))
(add-after 'configure 'remove-fail-tests
(lambda _
(substitute* "unit-tests/Makefile"
(("cmd-interrupt") "")
(("varmod-localtime") ""))
#t)))
#:configure-flags
(list
(string-append
"--with-defshell=" (assoc-ref %build-inputs "bash") "/bin/bash")
(string-append
"--with-default-sys-path=" (assoc-ref %outputs "out") "/share/mk"))
#:make-flags
(list "INSTALL=install"))) ;; use coreutils install
(home-page "http://www.crufty.net/help/sjg/bmake.htm")
(synopsis "BSD's make")
(description
"bmake is a program designed to simplify the maintenance of other
programs. Its input is a list of specifications as to the files upon which
programs and other files depend.")
(license license:bsd-3)))
(define-public gn
(let ((commit "e327ffdc503815916db2543ec000226a8df45163")
(revision "1819")) ;as returned by `git describe`, used below

6
gnu/packages/calendar.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2016, 2017, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Troy Sankey <sankeytms@gmail.com>
;;; Copyright © 2016 Stefan Reichoer <stefan@xsteve.at>
;;; Copyright © 2016, 2021 Stefan Reichoer <stefan@xsteve.at>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com
;;; Copyright © 2020 Brendan Tildesley <mail@brendan.scot>
@ -226,7 +226,7 @@ able to synchronize with CalDAV servers through vdirsyncer.")
(define-public remind
(package
(name "remind")
(version "3.1.17")
(version "3.3.5")
(source
(origin
(method url-fetch)
@ -237,7 +237,7 @@ able to synchronize with CalDAV servers through vdirsyncer.")
".")
".tar.gz"))
(sha256
(base32 "0lgyc2j69aqqk4knywr8inz4fsnni0zq54dgqh7p4s6kzybc2mf9"))))
(base32 "1hbfsq6444abkiws28xqy0k9cwzgzfi1hwfmd1rgm4yydgc1gvb1"))))
(build-system gnu-build-system)
(arguments
'(#:tests? #f)) ; no "check" target

8
gnu/packages/cdrom.scm
View File

@ -862,14 +862,14 @@ laid out on the image.")
(define-public libburn
(package
(name "libburn")
(version "1.5.2")
(version "1.5.4")
(source (origin
(method url-fetch)
(uri (string-append "http://files.libburnia-project.org/releases/"
"libburn-" version ".tar.gz"))
(sha256
(base32
"09sjrvq8xsj1gnl2wwyv4lbmicyzzl6x1ac2rrn53xnp34bxnckv"))))
"0m1vyry6pi115nysfgb0cg313qqhnlxqdg7f920wpiar0z8mjl2j"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
@ -884,14 +884,14 @@ DVD-RW, DVD-R, DVD-R/DL, BD-R, and BD-RE.")
(define-public libisofs
(package
(name "libisofs")
(version "1.5.2")
(version "1.5.4")
(source (origin
(method url-fetch)
(uri (string-append "http://files.libburnia-project.org/releases/"
"libisofs-" version ".tar.gz"))
(sha256
(base32
"002mcyqwg625a8hqvsrmgm26mhhfwj0j7rahfhsqirmk02b16npg"))))
"13m82l13cb5d7ca53dv3akma1jr9gw0hnnshdwqpj6ahly0fv85a"))))
(build-system gnu-build-system)
(inputs
`(("zlib" ,zlib)

2
gnu/packages/check.scm
View File

@ -1281,7 +1281,7 @@ result back.")
`(("python-pytest" ,python-pytest)))
(native-inputs
`(("python-pexpect" ,python-pexpect)))
(home-page "http://bitbucket.org/pytest-dev/pytest-timeout/")
(home-page "https://github.com/pytest-dev/pytest-timeout")
(synopsis "Plugin for py.test to abort hanging tests")
(description
"This package provides a py.test plugin that aborts hanging tests after a

8
gnu/packages/chromium.scm
View File

@ -310,8 +310,8 @@
(string-append "ungoogled-chromium-" category "-" name))))
(sha256 (base32 hash))))
(define %chromium-version "88.0.4324.150")
(define %ungoogled-revision "f7c33ded1674556b6e9e72d597c706666f490da8")
(define %chromium-version "88.0.4324.182")
(define %ungoogled-revision "b98f2d51406c84a75df96f0da9dee3c0d790963d")
(define %debian-revision "debian/84.0.4147.105-1")
(define %debian-patches
@ -329,7 +329,7 @@
(string-take %ungoogled-revision 7)))
(sha256
(base32
"0hzap19pbnfcskpzbqq7dqrankmlrq9q7m1xrf7aygqiir0ksp4y"))))
"1c9y1dn9s06pskkjw2r8lsbplak8m2rwh4drixvjpif7b4cgdhay"))))
(define %guix-patches
(list (local-file
@ -467,7 +467,7 @@
%chromium-version ".tar.xz"))
(sha256
(base32
"1hrqrggg4g1hjmaajbpydwsij2mfkfj5ccs1lj76nv4qj91yj4mf"))
"10av060ix6lgsvv99lyvyy03r0m3zwdg4hddbi6dycrdxk1iyh9h"))
(modules '((guix build utils)))
(snippet (force ungoogled-chromium-snippet))))
(build-system gnu-build-system)

32
gnu/packages/ci.scm
View File

@ -47,9 +47,27 @@
#:use-module (gnu packages xml)
#:use-module (guix build-system gnu))
(define-public guile-mastodon-dev
(let ((commit "88115d85221876b1baea4accb7c76995da32f479")
(revision "1"))
(package
(inherit guile-mastodon)
(name "guile-mastodon")
(version (git-version "0.0.1" revision commit))
(home-page "https://framagit.org/mothacehe/guile-mastodon.git")
(source (origin
(method git-fetch)
(uri (git-reference
(url home-page)
(commit commit)))
(sha256
(base32
"04dgxliz9bmhn0f7h1n0dj0r5h0fzhg80nxl1rpbxh4zs1yw9qvj"))
(file-name (string-append name "-" version "-checkout")))))))
(define-public cuirass
(let ((commit "23688a0e451e0265ad29e150d6eba497d4291fb6")
(revision "67"))
(let ((commit "543e26addc6e2304611e2feb8dd3a5a0646507b6")
(revision "72"))
(package
(name "cuirass")
(version (git-version "0.0.1" revision commit))
@ -61,7 +79,7 @@
(file-name (git-file-name name version))
(sha256
(base32
"1r90wnj9w3vh3rr48mddp0xi874ffawc9nsb8cdnpw034px62k1k"))))
"01cxg0nwafzfg0phbv1b4cv24w7yaalkkdib3qfwf6jqagbfg85y"))))
(build-system gnu-build-system)
(arguments
'(#:modules ((guix build utils)
@ -85,9 +103,12 @@
(bytes (assoc-ref inputs "guile-bytestructures"))
(fibers (assoc-ref inputs "guile-fibers"))
(zlib (assoc-ref inputs "guile-zlib"))
(matd (assoc-ref inputs "guile-mastodon"))
(tls (assoc-ref inputs "gnutls"))
(mail (assoc-ref inputs "mailutils"))
(guix (assoc-ref inputs "guix"))
(deps (list avahi gcrypt json zmq squee git bytes
fibers zlib guix))
fibers zlib matd tls mail guix))
(guile (assoc-ref %build-inputs "guile"))
(effective (read-line
(open-pipe* OPEN_READ
@ -125,6 +146,9 @@
("guile-squee" ,guile-squee)
("guile-git" ,guile-git)
("guile-zlib" ,guile-zlib)
("guile-mastodon" ,guile-mastodon-dev)
("gnutls" ,gnutls)
("mailutils" ,mailutils)
;; FIXME: this is propagated by "guile-git", but it needs to be among
;; the inputs to add it to GUILE_LOAD_PATH.
("guile-bytestructures" ,guile-bytestructures)

56
gnu/packages/cmake.scm
View File

@ -55,31 +55,39 @@
#:use-module (srfi srfi-1))
(define-public cmake-shared
(package
(name "cmake-shared")
(version "1.1.0")
(source
(origin
(method git-fetch)
(uri
(git-reference
(url "https://github.com/lirios/cmake-shared.git")
(commit
(string-append "v" version))))
(file-name
(git-file-name name version))
(sha256
(base32 "1srd3jmlalf0szgyp88ymhbnwds4qiywmf8lq1pif9g8irjjhdry"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f)) ; No target
(native-inputs
`(("extra-cmake-modules" ,extra-cmake-modules)))
(synopsis "Shared CMake functions and macros")
(description "CMake-Shared are shared functions and macros for projects
(let ((commit "8122f2b96c8da38ea41b653cf69958e75fe2129d")
(revision "32"))
(package
(name "cmake-shared")
(version
(git-version "1.1.0" revision commit))
(source
(origin
(method git-fetch)
(uri
(git-reference
(url "https://github.com/lirios/cmake-shared.git")
(commit commit)))
(file-name
(git-file-name name version))
(sha256
(base32 "05avwzqcnliwx9h7qi1kl0iz4smqmxc4vkavyjbmlc6h2b97i58g"))
(modules '((guix build utils)
(ice-9 ftw)
(srfi srfi-1)))
(snippet
`(begin
(delete-file-recursively "3rdparty")))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f)) ; No target
(native-inputs
`(("extra-cmake-modules" ,extra-cmake-modules)))
(synopsis "Shared CMake functions and macros")
(description "CMake-Shared are shared functions and macros for projects
using the CMake build system.")
(home-page "https://github.com/lirios/cmake-shared/")
(license license:bsd-3)))
(home-page "https://github.com/lirios/cmake-shared/")
(license license:bsd-3))))
;;; Build phases shared between 'cmake-bootstrap' and the later variants
;;; that use cmake-build-system.

29
gnu/packages/compression.scm
View File

@ -31,6 +31,7 @@
;;; Copyright © 2020 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2020 Léo Le Bouter <lle-bout@zaclys.net>
;;; Copyright © 2021 Antoine Côté <antoine.cote@posteo.net>
;;; Copyright © 2021 Vincent Legoll <vincent.legoll@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -890,14 +891,14 @@ extract such file systems.")
(define-public pigz
(package
(name "pigz")
(version "2.4")
(version "2.6")
(source (origin
(method url-fetch)
(uri (string-append "http://zlib.net/pigz/"
name "-" version ".tar.gz"))
(sha256
(base32
"0wsgw5vwl23jrnpsvd8v3xcp5k4waw5mk0164fynjhkv58i1dy54"))))
"0z9avc4mifwcpj3qdsf9m2rjw9jx03b2r9pj0c4xgla9fh6ppv9f"))))
(build-system gnu-build-system)
(arguments
`(#:phases
@ -1037,7 +1038,7 @@ smaller than those produced by @code{Xdelta}.")
(define-public libjcat
(package
(name "libjcat")
(version "0.1.5")
(version "0.1.6")
(source
(origin
(method git-fetch)
@ -1047,7 +1048,7 @@ smaller than those produced by @code{Xdelta}.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0rxyqikdhkh2nq1y0hy05df2kkxf3d2cp6lm5x1s5i717k6y3zy5"))))
(base32 "1a2z34m8611xvna9kwch8ralxx7c9mk4rm9vrxx7p9hr8sbqbsaz"))))
(build-system meson-build-system)
(native-inputs
`(("gobject-introspection" ,gobject-introspection)
@ -1109,16 +1110,15 @@ human-readable output.")
(define-public lrzip
(package
(name "lrzip")
(version "0.631")
(version "0.640")
(source
(origin
(method url-fetch)
(uri (string-append
"http://ck.kolivas.org/apps/lrzip/lrzip-" version ".tar.bz2"))
"http://ck.kolivas.org/apps/lrzip/lrzip-" version ".tar.xz"))
(sha256
(base32
"0mb449vmmwpkalq732jdyginvql57nxyd31sszb108yps1lf448d"))
(patches (search-patches "lrzip-CVE-2017-8842.patch"))))
"175466drfpz8rsfr0pzfn5rqrj3wmcmcs3i2sfmw366w2kbjm4j9"))))
(build-system gnu-build-system)
(native-inputs
`(;; nasm is only required when building for 32-bit x86 platforms
@ -1129,6 +1129,7 @@ human-readable output.")
("perl" ,perl)))
(inputs
`(("bzip2" ,bzip2)
("lz4" ,lz4)
("lzo" ,lzo)
("zlib" ,zlib)))
(home-page "http://ck.kolivas.org/apps/lrzip/")
@ -1798,14 +1799,14 @@ of archives.")
(define-public lunzip
(package
(name "lunzip")
(version "1.11")
(version "1.12")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://savannah/lzip/lunzip/"
"lunzip-" version ".tar.gz"))
(sha256
(base32 "19zq3gmlbia2krq4k4zs1j0xjdv7nsdzqvfb0pyca5n53h2mzb91"))))
(base32 "1liaynyy3qcs29hfk1pnb7i9r1mnmpw557j5v356qsv6qnm4lnz5"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -1825,14 +1826,14 @@ Lunzip is intended to be fully compatible with the regular lzip package.")
(define-public clzip
(package
(name "clzip")
(version "1.11")
(version "1.12")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://savannah/lzip/clzip/"
"clzip-" version ".tar.gz"))
(sha256
(base32 "1h14dmc9fi10gcdpdpbgq1bwvcxvivppilj64pf720x8mw915mfr"))))
(base32 "1s7yidqvmxi61hh569h5aci816l6qkffjgx0zx57qyyq0qq2pjgw"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -2237,7 +2238,7 @@ file compression algorithm.")
(define-public xarchiver
(package
(name "xarchiver")
(version "0.5.4.16")
(version "0.5.4.17")
(source
(origin
(method git-fetch)
@ -2246,7 +2247,7 @@ file compression algorithm.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0nblyk65w1in0zpfbyzy6dw4x0fzx3q7xs85dby5ap4w0gjz9s44"))))
(base32 "00adrjpxqlaccrwjf65w3vhxfswdj0as8aj263c6f9b85llypc5v"))))
(build-system glib-or-gtk-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)

2
gnu/packages/compton.scm
View File

@ -146,7 +146,7 @@ performance).
("xorgproto" ,xorgproto)))
(arguments
`(#:build-type "release"
#:configure-flags '("-Dbuild_docs=true")))
#:configure-flags '("-Dwith_docs=true")))
(home-page "https://github.com/yshui/picom")
(synopsis "Compositor for X11, forked from Compton")
(description

114
gnu/packages/cpp.scm
View File

@ -16,6 +16,7 @@
;;; Copyright © 2020 Alexandros Theodotou <alex@zrythm.org>
;;; Copyright © 2020, 2021 Greg Hogan <code@greghogan.com>
;;; Copyright © 2020 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2020 Milkey Mouse <milkeymouse@meme.institute>
;;;
;;; This file is part of GNU Guix.
;;;
@ -40,6 +41,7 @@
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
#:use-module (guix modules)
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
#:use-module (gnu packages boost)
@ -512,7 +514,7 @@ maintained anymore.")
(define-public gperftools
(package
(name "gperftools")
(version "2.8")
(version "2.8.1")
(source
(origin
(method git-fetch)
@ -520,9 +522,13 @@ maintained anymore.")
(url "https://github.com/gperftools/gperftools")
(commit (string-append "gperftools-" version))))
(sha256
(base32 "1rnc53kaxlljgbpsff906vdsry9jl9gcvcnmxgkprwzxq1wipyd0"))
(base32 "19bj2vlsbfwq7m826v2ccqg47kd7cb5vcz1yw2x0v5qzhaxbakk1"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(arguments
;; The tests are flaky when run in parallel. For more info:
;; https://bugs.gnu.org/46562
'(#:parallel-tests? #f))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
@ -899,3 +905,107 @@ provides a number of utilities to make coding with expected cleaner.")
(description "Magic Enum offers static reflection of enums, with
conversions to and from strings, iteration and related functionality.")
(license license:expat)))
(define-public cli11
(package
(name "cli11")
(version "1.9.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/CLIUtils/CLI11")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0hbch0vk8irgmiaxnfqlqys65v1770rxxdfn3d23m2vqyjh0j9l6"))
(modules '((guix build utils)))
(snippet
'(begin (delete-file-recursively "extern")
#t))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags
'("-DCLI11_SINGLE_FILE=OFF"
"-DCLI11_BUILD_EXAMPLES=OFF")
#:imported-modules ,%cmake-build-system-modules
#:modules ((guix build cmake-build-system)
(guix build utils))
#:phases
(modify-phases %standard-phases
(add-before 'configure 'no-vendor-gtest
(lambda _
(substitute* "tests/CMakeLists.txt"
;; We provide our own googletest, so this is not really a
;; problem.
(("message\\(FATAL_ERROR \"You have requested")
"message(TRACE \"You have requested"))
(substitute* "cmake/AddGoogletest.cmake"
(("^add_subdirectory\\(.*googletest.*$") "find_package(GTest REQUIRED)")
(("^set_target_properties\\(gtest gtest_main gmock gmock_main") "")
(("^ PROPERTIES FOLDER \"Extern\"\\)") ""))
#t)))))
(native-inputs
`(("doxygen" ,doxygen)
("googletest" ,googletest)))
(synopsis "Command line parser for C++11")
(description
"CLI11 is a command line parser for C++11 and beyond that provides a rich
feature set with a simple and intuitive interface.")
(home-page "https://cliutils.github.io/CLI11/book/")
(license license:bsd-3)))
(define-public caf
(package
(name "caf")
(version "0.18.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/actor-framework/actor-framework")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1c3spd6vm1h9qhlk5c4fdwi6nbqx5vwz2zvv6qp0rj1hx6xpq3cx"))))
(build-system cmake-build-system)
(arguments
'(#:configure-flags
'("-DCAF_ENABLE_EXAMPLES=OFF")))
(inputs
`(("openssl" ,openssl)))
(synopsis "C++ implementation of the actor model")
(description "The C++ Actor Framework (CAF) offers a high-level C++17
programming environment using the actor model for concurrent, distributed
computation.")
(home-page "https://www.actor-framework.org/")
(license license:bsd-3)))
(define-public pcg-cpp
(let ((commit "5b5cac8d61339e810c5dbb4692d868a1d7ca1b2d")
(revision "1"))
(package
(name "pcg-cpp")
(version (git-version "0.98.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/imneme/pcg-cpp")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1s9dcd4iydlc1xj9m6f7c52nlyx99klk043sk7arqy6kp7gdaa33"))))
(build-system gnu-build-system)
(arguments
`(#:test-target "test"
#:phases
(modify-phases %standard-phases
(delete 'configure))
#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))))
(synopsis "C++11 header only library for random number generation")
(description "The Permuted Congruential Generator (PCG) extends the
Linear Congruential Generator (LCG) with a permutation function to increase
output randomness while retaining speed, simplicity, and conciseness.")
(home-page "https://www.pcg-random.org")
(license (list license:expat license:asl2.0))))) ; dual licensed

324
gnu/packages/cran.scm
View File

@ -11,7 +11,7 @@
;;; Copyright © 2018 Sandeep Subramanian <sandeepsubramanian94@gmail.com>
;;; Copyright © 2018 Charlie Ritter <chewzeirta@posteo.net>
;;; Copyright © 2018 Konrad Hinsen <konrad.hinsen@fastmail.net>
;;; Copyright © 2018, 2020 Mădălin Ionel Patrașcu <madalinionel.patrascu@mdc-berlin.de>
;;; Copyright © 2018, 2020, 2021 Mădălin Ionel Patrașcu <madalinionel.patrascu@mdc-berlin.de>
;;; Copyright © 2018 Laura Lazzati <laura.lazzati.15@gmail.com>
;;; Copyright © 2018 Leo Famulari <leo@famulari.name>
;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com>
@ -1344,10 +1344,175 @@ are used. Fastmap avoids this memory leak issue by implementing the map using
data structures in C++.")
(license license:expat)))
;; This package includes minified JavaScript files. When upgrading please
;; check that there are no new minified JavaScript files.
(define-public r-jquerylib
(package
(name "r-jquerylib")
(version "0.1.3")
(source
(origin
(method url-fetch)
(uri (cran-uri "jquerylib" version))
(sha256
(base32
"1s0d6mws13hwkx07jqmry7vp30a05b2p9w7ir68bmkhasidwkzdq"))
(snippet
'(for-each delete-file
'("inst/lib/jquery-1.12.4.min.js"
"inst/lib/jquery-2.2.4.min.js"
"inst/lib/jquery-3.5.1.min.js")))))
(properties `((upstream-name . "jquerylib")))
(build-system r-build-system)
(arguments
`(#:modules ((guix build utils)
(guix build r-build-system)
(srfi srfi-1))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'process-javascript
(lambda* (#:key inputs #:allow-other-keys)
(with-directory-excursion "inst/lib/"
(call-with-values
(lambda ()
(unzip2
`(("jquery-1.12.4.js"
"jquery-1.12.4.min.js")
("jquery-2.2.4.js"
"jquery-2.2.4.min.js")
("jquery-3.5.1.js"
"jquery-3.5.1.min.js"))))
(lambda (sources targets)
(for-each (lambda (source target)
(format #t "Processing ~a --> ~a~%"
source target)
(invoke "esbuild" source "--minify"
(string-append "--outfile=" target)))
sources targets)))))))))
(propagated-inputs
`(("r-htmltools" ,r-htmltools)))
(native-inputs
`(("esbuild" ,esbuild)))
(home-page "https://cran.r-project.org/package=jquerylib")
(synopsis "Obtain jQuery as an HTML dependency object")
(description
"Obtain any major version of jQuery and use it in any webpage generated
by htmltools (e.g. shiny, htmlwidgets, and rmarkdown). Most R users don't
need to use this package directly, but other R packages (e.g. shiny,
rmarkdown, etc.) depend on this package to avoid bundling redundant copies of
jQuery.")
(license license:expat)))
(define-public r-sass
(package
(name "r-sass")
(version "0.3.1")
(source
(origin
(method url-fetch)
(uri (cran-uri "sass" version))
(sha256
(base32
"1cxqwsdyz71mgflqqa65mfr161jlv8q9mshs1y19pxp6pz5wnv0s"))))
(properties `((upstream-name . "sass")))
(build-system r-build-system)
(propagated-inputs
`(("r-digest" ,r-digest)
("r-fs" ,r-fs)
("r-htmltools" ,r-htmltools)
("r-r6" ,r-r6)
("r-rappdirs" ,r-rappdirs)
("r-rlang" ,r-rlang)))
(native-inputs `(("r-knitr" ,r-knitr)))
(home-page "https://github.com/rstudio/sass")
(synopsis "Syntactically Awesome Style Sheets (SASS)")
(description
"This package provides an SCSS compiler, powered by the libsass library.
With this, R developers can use variables, inheritance, and functions to
generate dynamic style sheets. The package uses the Sass CSS extension
language, which is stable, powerful, and CSS compatible.")
(license license:expat)))
;; This package includes minified JavaScript files. When upgrading please
;; check that there are no new minified JavaScript files.
(define-public r-bslib
(package
(name "r-bslib")
(version "0.2.4")
(source
(origin
(method url-fetch)
(uri (cran-uri "bslib" version))
(sha256
(base32
"0qlpv2lqr3hjykszmnll7vi4zhmrz4rgcfl0sifxc6cha6jy2nac"))
(snippet
'(for-each delete-file
'("inst/lib/bs-a11y-p/plugins/js/bootstrap-accessibility.min.js"
"inst/lib/bs-colorpicker/js/bootstrap-colorpicker.min.js"
"inst/lib/bs-sass/assets/javascripts/bootstrap.min.js"
"inst/lib/bs/dist/js/bootstrap.bundle.min.js")))))
(properties `((upstream-name . "bslib")))
(build-system r-build-system)
(arguments
`(#:modules ((guix build utils)
(guix build r-build-system)
(srfi srfi-1))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'process-javascript
(lambda* (#:key inputs #:allow-other-keys)
(with-directory-excursion "inst/lib/"
(call-with-values
(lambda ()
(unzip2
`(("bs-a11y-p/plugins/js/bootstrap-accessibility.js"
"bs-a11y-p/plugins/js/bootstrap-accessibility.min.js")
("bs-colorpicker/js/bootstrap-colorpicker.js"
"bs-colorpicker/js/bootstrap-colorpicker.min.js")
("bs-sass/assets/javascripts/bootstrap.js"
"bs-sass/assets/javascripts/bootstrap.min.js")
(,(assoc-ref inputs "js-bootstrap-bundle")
"bs/dist/js/bootstrap.bundle.min.js"))))
(lambda (sources targets)
(for-each (lambda (source target)
(format #t "Processing ~a --> ~a~%"
source target)
(invoke "esbuild" source "--minify"
(string-append "--outfile=" target)))
sources targets)))))))))
(propagated-inputs
`(("r-digest" ,r-digest)
("r-htmltools" ,r-htmltools)
("r-jquerylib" ,r-jquerylib)
("r-jsonlite" ,r-jsonlite)
("r-magrittr" ,r-magrittr)
("r-rlang" ,r-rlang)
("r-sass" ,r-sass)))
(native-inputs
`(("esbuild" ,esbuild)
("js-bootstrap-bundle"
,(origin
(method url-fetch)
(uri "https://raw.githubusercontent.com/twbs/bootstrap/v4.5.3/dist/js/bootstrap.bundle.js")
(sha256
(base32
"1lcsxj7gcm56va3gck47ggpwzjxrzq27sgjzdw6c54qkp0487sak"))))))
(home-page "https://rstudio.github.io/bslib/")
(synopsis "Custom Bootstrap Sass themes for shiny and rmarkdown")
(description
"This package simplifies custom CSS styling of both shiny and rmarkdown
via Bootstrap Sass. It supports both Bootstrap 3 and 4 as well as their
various Bootswatch themes. An interactive widget is also provided for
previewing themes in real time.")
(license license:expat)))
;; This package includes minified JavaScript files. When upgrading please
;; check that there are no new minified JavaScript files.
(define-public r-shiny
(package
(name "r-shiny")
(version "1.4.0.2")
(version "1.6.0")
(source
(origin
(method git-fetch)
@ -1357,7 +1522,23 @@ data structures in C++.")
(file-name (git-file-name name version))
(sha256
(base32
"005wgcxq7f2q9g6wvfk29n2nms262w0abpz93sfvx79yv6qxppzs"))))
"0f6cwx5xyqzs40msq271sqhwl8736rwbm7kd1ldkcvxngzr4vlx9"))
(snippet
'(for-each delete-file
'("inst/www/shared/bootstrap/js/bootstrap.min.js"
"inst/www/shared/bootstrap/accessibility/js/bootstrap-accessibility.min.js" ; TODO
"inst/www/shared/datatables/js/jquery.dataTables.min.js"
"inst/www/shared/datepicker/js/bootstrap-datepicker.min.js"
"inst/www/shared/highlight/highlight.pack.js"
"inst/www/shared/ionrangeslider/js/ion.rangeSlider.min.js"
"inst/www/shared/jquery.min.js"
"inst/www/shared/jqueryui/jquery-ui.min.js"
"inst/www/shared/legacy/jquery.min.js"
"inst/www/shared/selectize/accessibility/js/selectize-plugin-a11y.min.js"
"inst/www/shared/selectize/js/selectize.min.js"
"inst/www/shared/shiny.min.js"
"inst/www/shared/showdown/compressed/showdown.js"
"inst/www/shared/strftime/strftime-min.js")))))
(build-system r-build-system)
(arguments
`(#:modules ((guix build r-build-system)
@ -1372,21 +1553,11 @@ data structures in C++.")
(lambda* (#:key inputs #:allow-other-keys)
(let ((replace-file (lambda (old new)
(format #t "replacing ~a with ~a\n" old new)
(delete-file old)
(symlink new old))))
;; NOTE: Files in ./inst/www/shared/datepicker/js/locales/
;; contain just data. They are not minified code, so we don't
;; replace them.
(with-directory-excursion "inst/www/shared"
(replace-file "bootstrap/shim/respond.min.js"
(string-append (assoc-ref inputs "js-respond")
"/share/javascript/respond.min.js"))
(replace-file "bootstrap/shim/html5shiv.min.js"
(string-append (assoc-ref inputs "js-html5shiv")
"/share/javascript/html5shiv.min.js"))
(replace-file "json2-min.js"
(string-append (assoc-ref inputs "js-json2")
"/share/javascript/json2-min.js"))
(replace-file "strftime/strftime-min.js"
(string-append (assoc-ref inputs "js-strftime")
"/share/javascript/strftime.min.js"))
@ -1399,14 +1570,10 @@ data structures in C++.")
(replace-file "selectize/js/selectize.min.js"
(string-append (assoc-ref inputs "js-selectize")
"/share/javascript/selectize.min.js"))
(replace-file "selectize/js/es5-shim.min.js"
(string-append (assoc-ref inputs "js-es5-shim")
"/share/javascript/es5-shim.min.js"))
(for-each (match-lambda
((source . target)
(delete-file target)
(minify source #:target target)))
'(("jqueryui/jquery-ui.js" .
`(("jqueryui/jquery-ui.js" .
"jqueryui/jquery-ui.min.js")
("datepicker/js/bootstrap-datepicker.js" .
"datepicker/js/bootstrap-datepicker.min.js")
@ -1414,23 +1581,32 @@ data structures in C++.")
"ionrangeslider/js/ion.rangeSlider.min.js")
("bootstrap/js/bootstrap.js" .
"bootstrap/js/bootstrap.min.js")
(,(assoc-ref inputs "js-bootstrap-accessibility") .
"bootstrap/accessibility/js/bootstrap-accessibility.min.js")
("shiny.js" .
"shiny.min.js")
("jquery.js" .
"jquery.min.js")
("legacy/jquery.js" .
"legacy/jquery.min.js")
("selectize/accessibility/js/selectize-plugin-a11y.js" .
"selectize/accessibility/js/selectize-plugin-a11y.min.js")
("showdown/src/showdown.js" .
"showdown/compressed/showdown.js")))))
#t)))))
"showdown/compressed/showdown.js"))))))))))
(propagated-inputs
`(("r-crayon" ,r-crayon)
`(("r-bslib" ,r-bslib)
("r-cachem" ,r-cachem)
("r-commonmark" ,r-commonmark)
("r-crayon" ,r-crayon)
("r-digest" ,r-digest)
("r-ellipsis" ,r-ellipsis)
("r-fastmap" ,r-fastmap)
("r-glue" ,r-glue)
("r-htmltools" ,r-htmltools)
("r-httpuv" ,r-httpuv)
("r-jsonlite" ,r-jsonlite)
("r-later" ,r-later)
("r-lifecycle" ,r-lifecycle)
("r-mime" ,r-mime)
("r-promises" ,r-promises)
("r-r6" ,r-r6)
@ -1440,17 +1616,21 @@ data structures in C++.")
("r-xtable" ,r-xtable)))
(inputs
`(("js-datatables" ,js-datatables)
("js-html5shiv" ,js-html5shiv)
("js-json2" ,js-json2)
("js-respond" ,js-respond)
("js-selectize" ,js-selectize)
("js-strftime" ,js-strftime)
("js-highlight" ,js-highlight)
("js-es5-shim" ,js-es5-shim)))
("js-highlight" ,js-highlight)))
(native-inputs
`(("uglify-js" ,uglify-js)
("gfortran" ,gfortran)))
(home-page "http://shiny.rstudio.com")
("gfortran" ,gfortran)
("js-bootstrap-accessibility"
,(origin
(method url-fetch)
(uri "https://raw.githubusercontent.com/paypal/bootstrap-accessibility-plugin/\
v1.0.7/_site/plugins/js/bootstrap-accessibility.js")
(sha256
(base32
"1489wyzwrpf86y7vhc13n4v3mszmsfybhd3f75jkpnbvyp5sncm8"))))))
(home-page "https://shiny.rstudio.com")
(synopsis "Easy interactive web applications with R")
(description
"Makes it incredibly easy to build interactive web applications
@ -1774,6 +1954,29 @@ in R and Shiny via the D3 visualization library.")
from Wes Anderson movies.")
(license license:expat)))
(define-public r-gg-gap
(package
(name "r-gg-gap")
(version "1.3")
(source
(origin
(method url-fetch)
(uri (cran-uri "gg.gap" version))
(sha256
(base32
"0m66050ryn31xmsmmikjsssllasvjdmp9yjbwfdwfpwdv106zn9h"))))
(properties `((upstream-name . "gg.gap")))
(build-system r-build-system)
(propagated-inputs
`(("r-cowplot" ,r-cowplot)
("r-ggplot2" ,r-ggplot2)))
(home-page "https://github.com/ChrisLou-bioinfo/gg.gap")
(synopsis "Define segments on the y-axis for ggplot2")
(description
"The @code{gg.gap} function enables you to define segments for the y-axis
in a ggplot2 plot.")
(license license:gpl3)))
(define-public r-tablerdash
(package
(name "r-tablerdash")
@ -2129,10 +2332,25 @@ including functions for geolocation and routing.")
(uri (cran-uri "haven" version))
(sha256
(base32
"03cypgqhdkrfbfpl1yx2wb7flczrbak1w654wkicmd5ajwr9zvkf"))))
"03cypgqhdkrfbfpl1yx2wb7flczrbak1w654wkicmd5ajwr9zvkf"))
(modules '((guix build utils)))
(snippet
'(begin
;; unvendor readstat
(delete-file-recursively "src/readstat")
#t))))
(build-system r-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'unbundle-readstat
(lambda _
;; Not required, since we’re not building readstat.
(substitute* "src/Makevars"
(("-lz") "-lreadstat"))
#t)))))
(inputs
`(("zlib" ,zlib)))
`(("readstat" ,readstat)))
(native-inputs
`(("r-knitr" ,r-knitr)))
(propagated-inputs
@ -2286,7 +2504,7 @@ Docstrings (PEP-0257) and Julia's Triple-Quoted String Literals.")
(build-system r-build-system)
(propagated-inputs
`(("r-boot" ,r-boot)))
(home-page "http://www.sciviews.org/pastecs")
(home-page "https://github.com/phgrosjean/pastecs")
(synopsis "Analysis of space-time ecological series")
(description
"This package provides functions for regulation, decomposition and analysis
@ -2473,6 +2691,27 @@ and Francois (2011, JSS), and the book by Eddelbuettel (2013, Springer); see
@code{citation(\"Rcpp\")} for details on these last two.")
(license license:gpl2+)))
(define-public r-rcppthread
(package
(name "r-rcppthread")
(version "1.0.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "RcppThread" version))
(sha256
(base32
"1xfcxrny779kgknlvnc4j02ifprnakndnkhx8bhy50d39vp4hjjl"))))
(properties `((upstream-name . "RcppThread")))
(build-system r-build-system)
(home-page
"https://github.com/tnagler/RcppThread")
(synopsis "R threading in C++")
(description
"This package provides a C++11-style thread class and thread pool that can
safely be interrupted from R.")
(license license:expat)))
(define-public r-bindr
(package
(name "r-bindr")
@ -6841,7 +7080,7 @@ JavaScript library) and interact with the igraph package.")
("r-stringi" ,r-stringi)))
(native-inputs
`(("r-knitr" ,r-knitr)))
(home-page "http://github.com/gluc/data.tree")
(home-page "https://github.com/gluc/data.tree")
(synopsis "General purpose hierarchical data structure")
(description
"Create tree structures from hierarchical data, and traverse the tree in
@ -8270,7 +8509,7 @@ the work.")
("r-tibble" ,r-tibble)))
(native-inputs
`(("r-knitr" ,r-knitr)))
(home-page "http://people.math.aau.dk/~sorenh/software/doBy/")
(home-page "https://people.math.aau.dk/~sorenh/software/doBy/")
(synopsis "Groupwise statistics, LSmeans, linear contrasts, and utilities")
(description
"This package contains:
@ -11089,7 +11328,7 @@ isosurfaces.")
("r-multicool" ,r-multicool)
("r-mvtnorm" ,r-mvtnorm)
("r-plot3d" ,r-plot3d)))
(home-page "http://www.mvstat.net/tduong/")
(home-page "https://www.mvstat.net/tduong/")
(synopsis "Kernel smoothing")
(description
"This package provides kernel smoothers for univariate and multivariate
@ -11116,7 +11355,7 @@ hypothesis testing.")
("r-plot3d" ,r-plot3d)))
(native-inputs
`(("r-knitr" ,r-knitr)))
(home-page "http://www.mvstat.net/tduong/")
(home-page "https://www.mvstat.net/tduong/")
(synopsis "Inferential feature significance for kernel density estimation")
(description
"The feature package contains functions to display and compute kernel
@ -14131,7 +14370,7 @@ probabilities from a standard bivariate normal CDF.")
("r-mnormt" ,r-mnormt)
("r-numderiv" ,r-numderiv)
("r-pbivnorm" ,r-pbivnorm)))
(home-page "http://lavaan.ugent.be")
(home-page "https://lavaan.ugent.be")
(synopsis "Latent variable analysis")
(description
"This package provides tools to fit a variety of latent variable models,
@ -23058,7 +23297,7 @@ as possible (with tests to prove it).")
"04lhqk5qfvaz1jk90glr2yi5vq7cdy0w8m6g2lnzk359l9y41zhp"))))
(properties `((upstream-name . "boa")))
(build-system r-build-system)
(home-page "http://www.jstatsoft.org/v21/i11")
(home-page "https://www.jstatsoft.org/v21/i11")
(synopsis "Library for @dfn{Bayesian Output Analysis Program} (BOA) for MCMC")
(description
"This package provides a menu-driven program and library of functions for
@ -23538,6 +23777,17 @@ download images.")
(base32
"017kkzv9lxlz9qhg3gprrf1wcyflxrif6wjk27x9b4bdzylw6bsx"))))
(build-system r-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'install 'install-server-binary
;; Makevars tries to install to R's store directory.
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(substitute* "src/Makevars.in"
(("\\$\\(R_HOME\\)") out))
(mkdir-p bin)))))))
(propagated-inputs
`(("r-checkmate" ,r-checkmate)
("r-mime" ,r-mime)

344
gnu/packages/crates-graphics.scm
View File

@ -269,6 +269,31 @@ the term library to handle the ANSI nonsense and hence it works on Windows,
Mac, and Unix.")
(license (list license:asl2.0 license:expat))))
(define-public rust-avif-serialize-0.6
(package
(name "rust-avif-serialize")
(version "0.6.5")
(source
(origin
(method url-fetch)
(uri (crate-uri "avif-serialize" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "130wq838lslkcqcp2kjci7q3aq9qpir07pvxndc81xqbn63wvdjg"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-arrayvec" ,rust-arrayvec-0.5))))
(home-page "https://lib.rs/avif-serialize")
(synopsis "Writer for AVIF header structure (MPEG/HEIF/MIAF/ISO-BMFF)")
(description
"This package provides a minimal writer for AVIF header structure. This
is a tiny alternative to @code{libavif}. It creates the jungle of
MPEG/HEIF/MIAF/ISO-BMFF ``boxes'' as appropriate for AVIF files. It supports
alpha channel embedding.")
(license license:bsd-3)))
(define-public rust-cgl-0.3
(package
(name "rust-cgl")
@ -569,6 +594,30 @@ and iOS.")
(description "Geometry primitives written in Rust.")
(license (list license:expat license:asl2.0))))
(define-public rust-eui48-0.3
(package
(name "rust-eui48")
(version "0.3.2")
(source
(origin
(method url-fetch)
(uri (crate-uri "eui48" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "0mmdhczfdxwv5v5h90ydqkx0mdqiv0h2clshm2cm4qlwp0gacw29"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-rustc-serialize" ,rust-rustc-serialize-0.3)
("rust-serde" ,rust-serde-1))))
(home-page "https://github.com/abaumhauer/eui48")
(synopsis "Library to generate and parse IEEE EUI-48 and EUI-64")
(description
"This package provides a library to generate and parse IEEE EUI-48 and
EUI-64, also known as MAC-48 media access control addresses.")
(license (list license:expat license:asl2.0))))
(define-public rust-gfx-0.18
(package
(name "rust-gfx")
@ -672,8 +721,31 @@ and iOS.")
"This package provides OpenGL bindings for gfx, based on gl-rs.")
(license license:asl2.0)))
(define-public rust-gif-0.11
(package
(name "rust-gif")
(version "0.11.1")
(source
(origin
(method url-fetch)
(uri (crate-uri "gif" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "1i4n9fwg3zrp07pi5zsgyza2gl8lqnap6fj6875lfy121xbbmvq2"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-color-quant" ,rust-color-quant-1)
("rust-weezl" ,rust-weezl-0.1))))
(home-page "https://github.com/image-rs/image-gif")
(synopsis "GIF decoder and encoder")
(description "This package provides a GIF decoder and encoder in Rust.")
(license (list license:expat license:asl2.0))))
(define-public rust-gif-0.10
(package
(inherit rust-gif-0.11)
(name "rust-gif")
(version "0.10.3")
(source
@ -685,7 +757,6 @@ and iOS.")
(sha256
(base32
"1bw174f7civdfgryvc8pvyhicpr96hzdajnda4s3y8iv3ch907a7"))))
(build-system cargo-build-system)
(arguments
`(#:tests? #f ; tests not included in release
#:cargo-inputs
@ -693,11 +764,7 @@ and iOS.")
("rust-libc" ,rust-libc-0.2)
("rust-lzw" ,rust-lzw-0.10))
#:cargo-development-inputs
(("rust-glob" ,rust-glob-0.3))))
(home-page "https://github.com/image-rs/image-gif")
(synopsis "GIF decoder and encoder")
(description "This package provides a GIF decoder and encoder in Rust.")
(license (list license:expat license:asl2.0))))
(("rust-glob" ,rust-glob-0.3))))))
(define-public rust-gl-0.11
(package
@ -1043,44 +1110,89 @@ and iOS.")
(description "This package provides wgl bindings for glutin.")
(license license:asl2.0)))
(define-public rust-ical-0.7
(package
(name "rust-ical")
(version "0.7.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "ical" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "1kvk1pgas67rnp0n4424lxxs8y3n1h0fw3ap8jbfcxqdmlap57sa"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-thiserror" ,rust-thiserror-1))))
(home-page "https://github.com/Peltoche/ical-rs")
(synopsis "Ical/Vcard parser for Rust")
(description
"This library parse the ICalendar format defined in RFC5545, as well as
similar formats like VCard.")
(license license:asl2.0)))
(define-public rust-ichwh-0.3
(package
(name "rust-ichwh")
(version "0.3.4")
(source
(origin
(method url-fetch)
(uri (crate-uri "ichwh" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "0m6628yw3l812hjknmh5b5gcvhn6as9gzjz60h54zjxyy4w5ss7a"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-async-std" ,rust-async-std-1)
("rust-cfg-if" ,rust-cfg-if-0.1)
("rust-futures" ,rust-futures-0.3)
("rust-thiserror" ,rust-thiserror-1))))
(home-page "https://gitlab.com/avandesa/ichwh-rs")
(synopsis "Asynchronous implementation of @command{which}")
(description
"@code{ichwh} aims to be a fully-asynchronous clone of GNU which. The
main job of @command{which} is to search for executables on the current
PATH.")
(license license:expat)))
(define-public rust-image-0.23
(package
(name "rust-image")
(version "0.23.6")
(version "0.23.12")
(source
(origin
(method url-fetch)
(uri (crate-uri "image" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"1d2a80k7pwqshliqi5fw1dwkz7q9zd6pjnwpw8zxc1v4xhzmbc5m"))))
(origin
(method url-fetch)
(uri (crate-uri "image" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "1dg9z5sbc389spp7pm23n2b1k0gdd8hjdb8hhsp3k3npx9vl1q3w"))))
(build-system cargo-build-system)
(arguments
`(#:tests? #f ; Some test images are missing from the release.
`(#:skip-build? #t
#:cargo-inputs
(("rust-bytemuck" ,rust-bytemuck-1)
("rust-byteorder" ,rust-byteorder-1)
("rust-gif" ,rust-gif-0.10)
("rust-color-quant" ,rust-color-quant-1)
("rust-gif" ,rust-gif-0.11)
("rust-jpeg-decoder" ,rust-jpeg-decoder-0.1)
("rust-num-iter" ,rust-num-iter-0.1)
("rust-num-rational" ,rust-num-rational-0.3)
("rust-num-traits" ,rust-num-traits-0.2)
("rust-png" ,rust-png-0.16)
("rust-ravif" ,rust-ravif-0.6)
("rust-rgb" ,rust-rgb-0.8)
("rust-scoped-threadpool" ,rust-scoped-threadpool-0.1)
("rust-tiff" ,rust-tiff-0.5))
#:cargo-development-inputs
(("rust-crc32fast" ,rust-crc32fast-1)
("rust-criterion" ,rust-criterion-0.3)
("rust-glob" ,rust-glob-0.3)
("rust-num-complex" ,rust-num-complex-0.3)
("rust-quickcheck" ,rust-quickcheck-0.9))))
("rust-tiff" ,rust-tiff-0.6))))
(home-page "https://github.com/image-rs/image")
(synopsis "Imaging library written in Rust")
(description
"Imaging library written in Rust. Provides basic filters and decoders
for the most common image formats.")
"This package is an imaging library written in Rust. It provides basic
filters and decoders for the most common image formats.")
(license license:expat)))
(define-public rust-image-0.22
@ -1177,6 +1289,26 @@ for the most common image formats.")
("rust-num-complex" ,rust-num-complex-0.2)
("rust-quickcheck" ,rust-quickcheck-0.6))))))
(define-public rust-imgref-1
(package
(name "rust-imgref")
(version "1.7.1")
(source
(origin
(method url-fetch)
(uri (crate-uri "imgref" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "19dd5xss3nd40avv8az2kzicpxx71c2akiqznr616hki30w9vj07"))))
(build-system cargo-build-system)
(arguments `(#:skip-build? #t))
(home-page "https://github.com/kornelski/imgref")
(synopsis "2D slice of a @code{Vec}")
(description
"This package provides a trivial struct for interchange of 2d-dimensional
pixel buffers with width, height and stride.")
(license license:cc0)))
(define-public rust-jpeg-decoder-0.1
(package
(name "rust-jpeg-decoder")
@ -1782,6 +1914,101 @@ interactive applications.")
("rust-glob" ,rust-glob-0.2)
("rust-term" ,rust-term-0.4))))))
(define-public rust-rav1e-0.4
(package
(name "rust-rav1e")
(version "0.4.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "rav1e" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "02cpgzycfgnflnv8sck6ajasa7abfgdzn6b4jv01sf6r21yfipbq"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-aom-sys" ,rust-aom-sys-0.2)
("rust-arbitrary" ,rust-arbitrary-0.4)
("rust-arg-enum-proc-macro" ,rust-arg-enum-proc-macro-0.3)
("rust-arrayvec" ,rust-arrayvec-0.5)
("rust-av-metrics" ,rust-av-metrics-0.6)
("rust-backtrace" ,rust-backtrace-0.3)
("rust-bitstream-io" ,rust-bitstream-io-1)
("rust-byteorder" ,rust-byteorder-1)
("rust-cc" ,rust-cc-1)
("rust-cfg-if" ,rust-cfg-if-1)
("rust-clap" ,rust-clap-2)
("rust-console" ,rust-console-0.14)
("rust-crossbeam" ,rust-crossbeam-0.8)
("rust-dav1d-sys" ,rust-dav1d-sys-0.3)
("rust-fern" ,rust-fern-0.6)
("rust-image" ,rust-image-0.23)
("rust-interpolate-name" ,rust-interpolate-name-0.2)
("rust-itertools" ,rust-itertools-0.10)
("rust-ivf" ,rust-ivf-0.1)
("rust-libc" ,rust-libc-0.2)
("rust-libfuzzer-sys" ,rust-libfuzzer-sys-0.3)
("rust-log" ,rust-log-0.4)
("rust-nasm-rs" ,rust-nasm-rs-0.2)
("rust-noop-proc-macro" ,rust-noop-proc-macro-0.3)
("rust-num-derive" ,rust-num-derive-0.3)
("rust-num-traits" ,rust-num-traits-0.2)
("rust-paste" ,rust-paste-1)
("rust-rand" ,rust-rand-0.8)
("rust-rand-chacha" ,rust-rand-chacha-0.3)
("rust-rayon" ,rust-rayon-1)
("rust-regex" ,rust-regex-1)
("rust-rust-hawktracer" ,rust-rust-hawktracer-0.7)
("rust-rustc-version" ,rust-rustc-version-0.3)
("rust-scan-fmt" ,rust-scan-fmt-0.2)
("rust-serde" ,rust-serde-1)
("rust-signal-hook" ,rust-signal-hook-0.3)
("rust-simd-helpers" ,rust-simd-helpers-0.1)
("rust-thiserror" ,rust-thiserror-1)
("rust-toml" ,rust-toml-0.5)
("rust-v-frame" ,rust-v-frame-0.2)
("rust-vergen" ,rust-vergen-3)
("rust-wasm-bindgen" ,rust-wasm-bindgen-0.2)
("rust-y4m" ,rust-y4m-0.7))))
(home-page "https://github.com/xiph/rav1e")
(synopsis "Fast and safe AV1 encoder")
(description
"@code{rav1e} is an AV1 video encoder. It is designed to eventually
cover all use cases, though in its current form it is most suitable for cases
where libaom (the reference encoder) is too slow.")
(license license:bsd-2)))
(define-public rust-ravif-0.6
(package
(name "rust-ravif")
(version "0.6.4")
(source
(origin
(method url-fetch)
(uri (crate-uri "ravif" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "1gyc7w1fz3qdk95cdpkj185dm6lskxfp329xm69waxc565fcz9rx"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-avif-serialize" ,rust-avif-serialize-0.6)
("rust-imgref" ,rust-imgref-1)
("rust-loop9" ,rust-loop9-0.1)
("rust-num-cpus" ,rust-num-cpus-1)
("rust-rav1e" ,rust-rav1e-0.4)
("rust-rayon" ,rust-rayon-1)
("rust-rgb" ,rust-rgb-0.8))))
(home-page "https://lib.rs/ravif")
(synopsis "Library for encoding images in AVIF format")
(description
"This package is a rav1e-based pure Rust library for encoding images in
AVIF format.")
(license license:bsd-3)))
(define-public rust-raw-window-handle-0.3
(package
(name "rust-raw-window-handle")
@ -1830,7 +2057,7 @@ interactive applications.")
(define-public rust-rgb-0.8
(package
(name "rust-rgb")
(version "0.8.20")
(version "0.8.25")
(source
(origin
(method url-fetch)
@ -1838,7 +2065,7 @@ interactive applications.")
(file-name (string-append name "-" version ".crate"))
(sha256
(base32
"1620mn5dp1rr9fpvd9wbr3b8l2g4zrij8zjri1x34cg1bas59vwh"))))
"1lrv3x5h1lvdzg1qqr8aiysz978m35zpjdkyicnvkarnh8zkqzr8"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
@ -1994,8 +2221,33 @@ applications.")
(inputs
`(("wayland" ,wayland)))))
(define-public rust-tiff-0.6
(package
(name "rust-tiff")
(version "0.6.1")
(source
(origin
(method url-fetch)
(uri (crate-uri "tiff" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "0ds48vs919ccxa3fv1www7788pzkvpg434ilqkq7sjb5dmqg8lws"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-jpeg-decoder" ,rust-jpeg-decoder-0.1)
("rust-miniz-oxide" ,rust-miniz-oxide-0.4)
("rust-weezl" ,rust-weezl-0.1))))
(home-page "https://github.com/image-rs/image-tiff")
(synopsis "TIFF decoding and encoding library in pure Rust")
(description
"This package provides TIFF decoding and encoding library in pure Rust.")
(license license:expat)))
(define-public rust-tiff-0.5
(package
(inherit rust-tiff-0.6)
(name "rust-tiff")
(version "0.5.0")
(source
@ -2007,19 +2259,12 @@ applications.")
(sha256
(base32
"0bzzvxcx21pzryxgd7x7a1himiqs2y4k55754wzlr56sqj3qlfrz"))))
(build-system cargo-build-system)
(arguments
`(#:tests? #f ; not all test files included
#:cargo-inputs
(("rust-byteorder" ,rust-byteorder-1)
("rust-lzw" ,rust-lzw-0.10)
("rust-miniz-oxide" ,rust-miniz-oxide-0.3))))
(home-page "https://github.com/image-rs/image-tiff")
(synopsis
"TIFF decoding and encoding library in pure Rust")
(description
"TIFF decoding and encoding library in pure Rust.")
(license license:expat)))
("rust-miniz-oxide" ,rust-miniz-oxide-0.3))))))
(define-public rust-tiff-0.3
(package
@ -2785,8 +3030,28 @@ the platform-specific getters provided by winit, or another library.")
(description "This package provides X11 library bindings for Rust.")
(license license:cc0)))
(define-public rust-y4m-0.7
(package
(name "rust-y4m")
(version "0.7.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "y4m" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "1bhdgb7hgx7j92nm6ij5n8wisp50j8ff66ks14jzwdw2mwhrjam7"))))
(build-system cargo-build-system)
(arguments `(#:skip-build? #t))
(home-page "https://github.com/image-rs/y4m")
(synopsis "YUV4MPEG2 (@file{.y4m}) encoder and decoder")
(description
"This package provides a YUV4MPEG2 (@file{.y4m}) encoder and decoder.")
(license license:expat)))
(define-public rust-y4m-0.5
(package
(inherit rust-y4m-0.7)
(name "rust-y4m")
(version "0.5.3")
(source
@ -2798,11 +3063,6 @@ the platform-specific getters provided by winit, or another library.")
(sha256
(base32
"1933677by64y06zfgip2yq8b2dza8xnljhaksx93czq90b54kscz"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-development-inputs
(("rust-resize" ,rust-resize-0.3))))
(home-page "https://github.com/image-rs/y4m")
(synopsis "YUV4MPEG2 (.y4m) Encoder/Decoder.")
(description "YUV4MPEG2 (.y4m) Encoder/Decoder.")
(license license:expat)))
(("rust-resize" ,rust-resize-0.3))))))

40
gnu/packages/crates-gtk.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -57,7 +57,7 @@
(inputs
`(("atk" ,atk)
("glib" ,glib)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "FFI bindings to libatk-1")
(description "FFI bindings to libatk-1")
(license license:expat)))
@ -88,7 +88,7 @@
(inputs
`(("atk" ,atk)
("glib" ,glib)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "Rust bindings for the ATK library")
(description "Rust bindings for the ATK library")
(license license:expat)))
@ -120,7 +120,7 @@
(("rust-tempfile" ,rust-tempfile-3))))
(inputs
`(("cairo" ,cairo)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "Rust bindings for the Cairo library")
(description "Rust bindings for the Cairo library")
(license license:expat)))
@ -199,7 +199,7 @@
("rust-x11" ,rust-x11-2))))
(inputs
`(("cairo" ,cairo)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "FFI bindings to libcairo")
(description "This package provides FFI bindings to libcairo.")
(license license:expat)))
@ -260,7 +260,7 @@
("glib" ,glib)
("gtk+" ,gtk+)
("pango" ,pango)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "Rust bindings for the GDK 3 library")
(description "This package provides Rust bindings for the GDK 3 library.")
(license license:expat)))
@ -322,7 +322,7 @@
(("rust-gir-format-check" ,rust-gir-format-check-0.1))))
(inputs
`(("gdk-pixbuf" ,gdk-pixbuf)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "Rust bindings for the GdkPixbuf library")
(description "Rust bindings for the GdkPixbuf library")
(license license:expat)))
@ -406,7 +406,7 @@
("rust-tempfile" ,rust-tempfile-3))))
(inputs
`(("gdk-pixbuf" ,gdk-pixbuf)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "FFI bindings to libgdk_pixbuf-2.0")
(description "This package provides FFI bindings to @code{libgdk_pixbuf-2.0}.")
(license license:expat)))
@ -468,7 +468,7 @@
("gtk+" ,gtk+)
("glib" ,glib)
("pango" ,pango)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "FFI bindings to libgdk-3")
(description "FFI bindings to libgdk-3")
(license license:expat)))
@ -534,7 +534,7 @@
("rust-serial-test" ,rust-serial-test-0.4))))
(inputs
`(("glib" ,glib)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "Rust bindings for the Gio library")
(description "Rust bindings for the Gio library")
(license license:expat)))
@ -622,7 +622,7 @@
("rust-winapi" ,rust-winapi-0.3))))
(inputs
`(("glib" ,glib)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "FFI bindings to libgio-2.0")
(description "This package provides FFI bindings to libgio-2.0.")
(license license:expat)))
@ -698,7 +698,7 @@
("rust-once-cell" ,rust-once-cell-1))))
(inputs
`(("glib" ,glib)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "Rust bindings for the GLib library")
(description "Rust bindings for the GLib library")
(license license:expat)))
@ -781,7 +781,7 @@
("rust-proc-macro2" ,rust-proc-macro2-1)
("rust-quote" ,rust-quote-1)
("rust-syn" ,rust-syn-1))))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "Rust bindings for the GLib library, proc macros crate")
(description "Rust bindings for the GLib library, proc macros crate.")
(license license:expat)))
@ -808,7 +808,7 @@
("rust-tempfile" ,rust-tempfile-3))))
(inputs
`(("glib" ,glib)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "FFI bindings to libglib-2.0")
(description "This package provides FFI bindings to libglib-2.0.")
(license license:expat)))
@ -859,7 +859,7 @@
("rust-tempfile" ,rust-tempfile-3))))
(inputs
`(("glib" ,glib)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "FFI bindings to libgobject-2.0")
(description "This package provides FFI bindings to libgobject-2.0.")
(license license:expat)))
@ -930,7 +930,7 @@
("glib" ,glib)
("gtk+" ,gtk+)
("pango" ,pango)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "Rust bindings for the GTK+ 3 library")
(description "This package provides Rust bindings for the GTK+ 3 library.")
(license license:expat)))
@ -986,7 +986,7 @@
("rust-tempfile" ,rust-tempfile-3))))
(inputs
`(("gtk+" ,gtk+)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "FFI bindings to libgtk-3")
(description "This package provides FFI bindings to libgtk-3.")
(license license:expat)))
@ -1018,7 +1018,7 @@
(("rust-gir-format-check" ,rust-gir-format-check-0.1))))
(inputs
`(("pango" ,pango)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "Rust bindings for the Pango library")
(description "Rust bindings for the Pango library")
(license license:expat)))
@ -1098,7 +1098,7 @@
("rust-system-deps" ,rust-system-deps-1))))
(inputs
`(("pango" ,pango)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "FFI bindings to libpango-1.0")
(description "This package provides FFI bindings to @code{libpango-1.0}.")
(license license:expat)))
@ -1157,7 +1157,7 @@
(("rust-gir-format-check" ,rust-gir-format-check-0.1))))
(inputs
`(("gtk+" ,gtk+)))
(home-page "http://gtk-rs.org/")
(home-page "https://gtk-rs.org/")
(synopsis "Rust bindings for the PangoCairo library")
(description
"Rust bindings for the PangoCairo library.")

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

File diff suppressed because it is too large Load Diff

43
gnu/packages/crypto.scm
View File

@ -19,6 +19,7 @@
;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
;;; Copyright © 2020 Hendur Saga <hendursaga@yahoo.com>
;;; Copyright © 2020 pukkamustard <pukkamustard@posteo.net>
;;; Copyright © 2021 Ellis Kenyő <me@elken.dev>
;;;
;;; This file is part of GNU Guix.
;;;
@ -71,6 +72,7 @@
#:use-module (gnu packages sqlite)
#:use-module (gnu packages tcl)
#:use-module (gnu packages tls)
#:use-module (gnu packages version-control)
#:use-module (gnu packages xml)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
@ -78,6 +80,7 @@
#:use-module (guix git-download)
#:use-module (guix build-system cargo)
#:use-module (guix build-system cmake)
#:use-module (guix build-system copy)
#:use-module (guix build-system gnu)
#:use-module (guix build-system go)
#:use-module (guix build-system perl)
@ -1234,7 +1237,7 @@ Trusted comments are signed, thus verified, before being displayed.")
(define-public libolm
(package
(name "libolm")
(version "3.2.1")
(version "3.2.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1242,7 +1245,7 @@ Trusted comments are signed, thus verified, before being displayed.")
(commit version)))
(sha256
(base32
"14b5cplcnbf2baq0lvz4f97m6swxpb13rvxdajxyw3s4mbvasia4"))
"0qji25wiwmkxyfpraxj96c54hyayqmjkvwh0gsy5gb5pz5bp4mcy"))
(file-name (git-file-name name version))))
(build-system cmake-build-system)
(arguments
@ -1335,3 +1338,39 @@ version 3) onion addresses. It allows one to produce customized vanity .onion
addresses using a brute-force method.")
(home-page "https://github.com/cathugger/mkp224o")
(license license:cc0)))
(define-public transcrypt
(package
(name "transcrypt")
(version "2.1.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/elasticdog/transcrypt")
(commit (string-append "v" version))))
(sha256
(base32 "0bpz1hazbhfb6pqi68x55kq6a31bgh6vwij836slmi4jqiwvnh5a"))
(file-name (git-file-name name version))))
(inputs
`(("git" ,git)
("openssl" ,openssl)))
(build-system copy-build-system)
(arguments
`(#:install-plan
'(("transcrypt" "bin/transcrypt")
("man/transcrypt.1" "share/man/man1/transcrypt.1")
("contrib/bash/transcrypt"
"share/bash-completion/completions/transcrypt")
("contrib/zsh/_transcrypt"
"share/zsh/site-functions/_transcrypt"))))
(home-page "https://github.com/elasticdog/transcrypt")
(synopsis "Transparently encrypt files within a git repository")
(description
"Transcrypt is a script to configure transparent encryption of sensitive
files stored in a Git repository. Files that you choose will be automatically
encrypted when you commit them, and automatically decrypted when you check
them out. The process will degrade gracefully, so even people without your
encryption password can safely commit changes to the repository's
non-encrypted files.")
(license license:expat)))

6
gnu/packages/cybersecurity.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020, 2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -27,13 +27,13 @@
(define-public ropgadget
(package
(name "ropgadget")
(version "6.4")
(version "6.5")
(source
(origin
(method url-fetch)
(uri (pypi-uri "ROPGadget" version))
(sha256
(base32 "1hz6y5a8d4gc2sryz5alpz9mivrk8kj4l3dw00zkz2xca7gwpmsi"))))
(base32 "0p4h8xi27xcicz8sq6xi40hbj99mcsnnla6ar2r17vqapbr5c3jc"))))
(build-system python-build-system)
(propagated-inputs
`(("python-capstone" ,python-capstone)))

64
gnu/packages/databases.scm
View File

@ -47,6 +47,7 @@
;;; Copyright © 2020 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2021 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2021 Greg Hogan <code@greghogan.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1169,7 +1170,7 @@ as a drop-in replacement of MySQL.")
(define-public mariadb-connector-c
(package
(name "mariadb-connector-c")
(version "3.1.11")
(version "3.1.12")
(source
(origin
(method url-fetch)
@ -1177,8 +1178,9 @@ as a drop-in replacement of MySQL.")
"https://downloads.mariadb.org/f/connector-c-" version
"/mariadb-connector-c-" version "-src.tar.gz"
"/from/https%3A//mirrors.ukfast.co.uk/sites/mariadb/?serve"))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "03svzahdf7czjlm695c11r4bfd04qdqgx8r1vkpr1zlkjhwnqvry"))))
(base32 "0qzyahr8x9l1xz0l79wz3iahxz7648n1azc5yr7kx0dl113y2nig"))))
(inputs
`(("openssl" ,openssl)))
(build-system cmake-build-system)
@ -1194,6 +1196,7 @@ developed in C/C++ to MariaDB and MySQL databases.")
(define-public postgresql-13
(package
(name "postgresql")
(replacement postgresql-13.2)
(version "13.1")
(source (origin
(method url-fetch)
@ -1248,42 +1251,56 @@ TIMESTAMP. It also supports storage of binary large objects, including
pictures, sounds, or video.")
(license (license:x11-style "file://COPYRIGHT"))))
(define-public postgresql-13.2
(package
(inherit postgresql-13)
(name "postgresql")
(version "13.2")
(source (origin
(method url-fetch)
(uri (string-append "https://ftp.postgresql.org/pub/source/v"
version "/postgresql-" version ".tar.bz2"))
(sha256
(base32
"1z5d847jnajcfr3wa6jn52a8xjhamvwzmz18xlm5nvxqip8grmsz"))
(patches (search-patches "postgresql-disable-resolve_symlinks.patch"))))))
(define-public postgresql-11
(package
(inherit postgresql-13)
(name "postgresql")
(version "11.6")
(version "11.11")
(source (origin
(inherit (package-source postgresql-13))
(uri (string-append "https://ftp.postgresql.org/pub/source/v"
version "/postgresql-" version ".tar.bz2"))
(sha256
(base32
"0w1iq488kpzfgfnlw4k32lz5by695mpnkq461jrgsr99z5zlz4j9"))))))
"0v0qk298nxmpzpgsxcsxma328hdkyzd7fwjs0zsn6zavl5zpnq20"))))))
(define-public postgresql-10
(package
(inherit postgresql-11)
(version "10.13")
(version "10.16")
(source (origin
(inherit (package-source postgresql-11))
(uri (string-append "https://ftp.postgresql.org/pub/source/v"
version "/postgresql-" version ".tar.bz2"))
(sha256
(base32
"1qal0yp7a90yzya7hl56gsmw5fvacplrdhpn7h9gnbyr1i2iyw2d"))))))
"1cvv8qw0gkkczqhiwx6ns7w88dwkvdz4cvb2d4ff14363f5p2p53"))))))
(define-public postgresql-9.6
(package
(inherit postgresql-10)
(version "9.6.16")
(version "9.6.21")
(source (origin
(inherit (package-source postgresql-10))
(uri (string-append "https://ftp.postgresql.org/pub/source/v"
version "/postgresql-" version ".tar.bz2"))
(sha256
(base32
"1rr2dgv4ams8r2lp13w85c77rkmzpb88fjlc28mvlw6zq2fblv2w"))))))
"0d0ngpadf1i7c0i2psaxcbmiwx8334ibcsn283n9fp4853pyl3wk"))))))
(define-public postgresql postgresql-13)
@ -2255,14 +2272,14 @@ similar to BerkeleyDB, LevelDB, etc.")
(define-public redis
(package
(name "redis")
(version "6.0.10")
(version "6.0.11")
(source (origin
(method url-fetch)
(uri (string-append "http://download.redis.io/releases/redis-"
version".tar.gz"))
(sha256
(base32
"1gc529nfh8frk4pynyjlnmzvwa0j9r5cmqwyd7537sywz6abifvr"))
"0prwqap452m581nyc3cz642d1z3x9nd81896hlqdm3z8238z49y9"))
(modules '((guix build utils)))
(snippet
;; Delete bundled jemalloc, as the package will use the libc one
@ -3773,7 +3790,7 @@ Monitor read/write activity on a mongo server
(define-public apache-arrow
(package
(name "apache-arrow")
(version "0.17.1")
(version "3.0.0")
(source
(origin
(method git-fetch)
@ -3783,7 +3800,7 @@ Monitor read/write activity on a mongo server
(file-name (git-file-name name version))
(sha256
(base32
"02r6yx3yhywzikd3b0vfkjgddhfiriyx2vpm3jf5880wq59x798a"))))
"03ngddh3r1g6f9aja2jlfksgvgyzmxmfy4bxvzjrcv5fvl5x8ii0"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f
@ -3861,23 +3878,24 @@ Monitor read/write activity on a mongo server
;;"-DBENCHMARK_ENABLE_TESTING=OFF"
"-DARROW_BUILD_STATIC=OFF")))
(inputs
`(("boost" ,boost)
`(("apache-thrift" ,apache-thrift "lib")
("boost" ,boost)
("brotli" ,google-brotli)
("bzip2" ,bzip2)
("double-conversion" ,double-conversion)
("snappy" ,snappy)
("gflags" ,gflags)
("glog" ,glog)
("apache-thrift" ,apache-thrift "lib")
("protobuf" ,protobuf)
("rapidjson" ,rapidjson)
("zlib" ,zlib)
("bzip2" ,bzip2)
("lz4" ,lz4)
("zstd" ,zstd "lib")
("re2" ,re2)
("grpc" ,grpc)
("lz4" ,lz4)
("protobuf" ,protobuf)
("python-3" ,python)
("python-numpy" ,python-numpy)))
("python-numpy" ,python-numpy)
("rapidjson" ,rapidjson)
("re2" ,re2)
("snappy" ,snappy)
("utf8proc" ,utf8proc)
("zlib" ,zlib)
("zstd" ,zstd "lib")))
(native-inputs
`(("pkg-config" ,pkg-config)))
(outputs '("out" "lib" "include"))

10
gnu/packages/datastructures.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2016, 2017, 2019–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Meiyo Peng <meiyo.peng@gmail.com>
;;; Copyright © 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020 Mark H Weaver <mhw@netris.org>
@ -140,14 +140,14 @@ in between these sequences may be different in both content and length.")
(define-public liburcu
(package
(name "liburcu")
(version "0.12.1")
(version "0.12.2")
(source (origin
(method url-fetch)
(uri (string-append "https://www.lttng.org/files/urcu/"
"userspace-rcu-" version ".tar.bz2"))
(sha256
(base32
"03nd1gy2c3fdb6xwdrd5lr1jcjxbzffqh3z91mzbjhjn6k8fmymv"))))
"0yx69kbx9zd6ayjzvwvglilhdnirq4f1x1sdv33jy8bc9wgc3vsf"))))
(build-system gnu-build-system)
(native-inputs
`(("perl" ,perl))) ; for tests
@ -286,7 +286,7 @@ equivalent succinct data structure are (most of the time) identical.")
(define-public tllist
(package
(name "tllist")
(version "1.0.4")
(version "1.0.5")
(home-page "https://codeberg.org/dnkl/tllist")
(source (origin
(method git-fetch)
@ -294,7 +294,7 @@ equivalent succinct data structure are (most of the time) identical.")
(file-name (git-file-name name version))
(sha256
(base32
"1a26vwb7ll6mv3h8rbafsdx4vic1f286hiqn8s359sw8b7yjkvzs"))))
"061mkg6hc9x89zya3bw18ymxlzd8fbhjipxpva8x01lh2vp1d4f0"))))
(build-system meson-build-system)
(arguments
`(#:meson ,meson-0.55))

6
gnu/packages/dictionaries.scm
View File

@ -216,14 +216,14 @@ It comes with a German-English dictionary with approximately 270,000 entries.")
(define-public grammalecte
(package
(name "grammalecte")
(version "2.1.0")
(version "2.1.1")
(source
(origin
(method url-fetch/zipbomb)
(uri (string-append "https://grammalecte.net/grammalecte/zip/"
"Grammalecte-fr-v" version ".zip"))
(sha256
(base32 "1j07zpqfvkxf52yhh0yf0xj1rh5whggc6s8fqrh6pbvz05lfdcr8"))))
(base32 "076jv3ywdgqqzg92bfbagc7ypy08xjq5zn4vgna6j9350fkfqhzn"))))
(build-system python-build-system)
(home-page "https://grammalecte.net")
(synopsis "French spelling and grammar checker")
@ -334,7 +334,7 @@ translation engines from your terminal.")
("automake" ,automake)
("libtool" ,libtool)
("pkg-config" ,pkg-config)))
(home-page "http://wiki.apertium.org/wiki/Lttoolbox")
(home-page "https://wiki.apertium.org/wiki/Lttoolbox")
(synopsis "Lexical processing toolbox")
(description "Lttoolbox is a toolbox for lexical processing, morphological
analysis and generation of words. Analysis is the process of splitting a

5
gnu/packages/diffoscope.scm
View File

@ -72,7 +72,7 @@
(define-public diffoscope
(package
(name "diffoscope")
(version "165")
(version "168")
(source (origin
(method git-fetch)
(uri (git-reference
@ -81,7 +81,7 @@
(file-name (git-file-name name version))
(sha256
(base32
"0chi8drkxdwk7mlfgljij0nihnxp9pi5ybhqaq8rc4l1zl6srirb"))))
"18rs4jfx50d7vkaqcc46r7pccgizp0is56267sq13vbfvz758dhh"))))
(build-system python-build-system)
(arguments
`(#:phases (modify-phases %standard-phases
@ -135,7 +135,6 @@
(install-file "doc/diffoscope.1" man)
#t))))))
(inputs `(("rpm" ,rpm) ;for rpm-python
("python-file" ,python-file)
("python-debian" ,python-debian)
("python-libarchive-c" ,python-libarchive-c)
("python-magic" ,python-magic)

19
gnu/packages/disk.scm
View File

@ -376,23 +376,26 @@ to recover data more efficiently by only reading the necessary blocks.")
(define-public dosfstools
(package
(name "dosfstools")
(version "4.1")
(version "4.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/" name "/" name
"/releases/download/v" version "/"
name "-" version ".tar.xz"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/dosfstools/dosfstools")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0wy13i3i4x2bw1hf5m4fd0myh61f9bcrs035fdlf6gyc1jksrcp6"))))
(base32 "1xygsixmmc9l7drxylggnzkqqiks8zmlsbhg3z723ii2ak94236s"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags (list "--enable-compat-symlinks")
#:make-flags (list (string-append "PREFIX=" %output)
"CC=gcc")))
(native-inputs
`(("xxd" ,xxd))) ; for tests
`(("autoconf" ,autoconf)
("automake" ,automake)
;; For tests.
("xxd" ,xxd)))
(home-page "https://github.com/dosfstools/dosfstools")
(synopsis "Utilities for making and checking MS-DOS FAT file systems")
(description

31
gnu/packages/display-managers.scm
View File

@ -9,6 +9,7 @@
;;; Copyright © 2020 L p R n d n <guix@lprndn.info>
;;; Copyright © 2020 Fredrik Salomonsson <plattfot@gmail.com>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2021 Zheng Junjie <873216071@qq.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -158,6 +159,36 @@ Guix's logo. Based on Arch linux's archlinux-simplyblack theme.")
;; Theme under cc-by-sa3.0, guix logo under license:cc-by-sa4.0
(license (list license:cc-by-sa3.0 license:cc-by-sa4.0))))
(define-public chili-sddm-theme
(package
(name "chili-sddm-theme")
(version "0.1.5")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/MarianArlt/sddm-chili")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"036fxsa7m8ymmp3p40z671z163y6fcsa9a641lrxdrw225ssq5f3"))))
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let* ((out (assoc-ref %outputs "out"))
(sddm-themes (string-append out "/share/sddm/themes")))
(mkdir-p sddm-themes)
(copy-recursively (assoc-ref %build-inputs "source")
(string-append sddm-themes "/chili"))))))
(home-page "https://github.com/MarianArlt/sddm-chili")
(synopsis "Chili theme for SDDM")
(description "Chili reduces all the clutter and leaves you with a clean,
easy to use, login interface with a modern yet classy touch.")
(license license:gpl3+)))
(define-public lightdm
(package
(name "lightdm")

2
gnu/packages/distributed.scm
View File

@ -89,7 +89,7 @@ resources). It supports virtualized, parallel, and GPU-based applications.")
#:tests? #f)) ; FIXME: Looks like bad test syntax in the
; source package, 2 tests fail. Disable for
; now.
(inputs `(("openssl" ,openssl-1.0)
(inputs `(("openssl" ,openssl)
("curl" ,curl)
("mariadb:dev" ,mariadb "dev")
("zlib" ,zlib)))

28
gnu/packages/dns.scm
View File

@ -317,7 +317,9 @@ and BOOTP/TFTP for network booting of diskless machines.")
(package
(name "bind")
;; When updating, check whether isc-dhcp's bundled copy should be as well.
(version "9.16.11")
;; The BIND release notes are available here:
;; https://www.isc.org/bind/
(version "9.16.12")
(source (origin
(method url-fetch)
(uri (string-append
@ -325,7 +327,7 @@ and BOOTP/TFTP for network booting of diskless machines.")
"/bind-" version ".tar.xz"))
(sha256
(base32
"1hcr0q6i2mk83yi12zxjs5q21y3gx7683q99l77ibxfqsx6zc481"))))
"0zys8hk08zzrw57x0vmzv6zx0a7vjj6qk5qh8jmrqd7x269sy54r"))))
(build-system gnu-build-system)
(outputs `("out" "utils"))
(inputs
@ -536,14 +538,14 @@ asynchronous fashion.")
(define-public nsd
(package
(name "nsd")
(version "4.3.4")
(version "4.3.5")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.nlnetlabs.nl/downloads/nsd/nsd-"
version ".tar.gz"))
(sha256
(base32 "0l4ba80ihwg3s2ifhnkmk7rjabrcy5zw6sz4hn0vm9sif6lk9s1v"))))
(base32 "0wj490rxqs86z8s4lxjwk06ry5pvkdqqyq1cf83z7mxk60zb98kx"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -606,14 +608,14 @@ to result in system-wide compromise.")
(define-public unbound
(package
(name "unbound")
(version "1.13.0")
(version "1.13.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.unbound.net/downloads/unbound-"
version ".tar.gz"))
(sha256
(base32 "18dj7migq6379hps59793457l81s3z7dll3y0fj6qcmhjlx08m59"))))
(base32 "1f2hky62f4xxnjr0lncrzz4gipg01rp12pf98mrqkgf5ixxxj145"))))
(build-system gnu-build-system)
(outputs '("out" "python"))
(native-inputs
@ -763,16 +765,16 @@ served by AS112. Stub and forward zones are supported.")
(define-public yadifa
(package
(name "yadifa")
(version "2.4.1")
(version "2.4.2")
(source
(let ((build "9916"))
(let ((build "9997"))
(origin
(method url-fetch)
(uri
(string-append "https://www.yadifa.eu/sites/default/files/releases/"
"yadifa-" version "-" build ".tar.gz"))
(sha256
(base32 "1m1j7q1f0682xig8qign5ms52igix8pd45fds7p5j285dvrfa4xd")))))
(base32 "0f1by2c7l39qpsar5nh98f3xypmn2ikv7wr557wmva6m0lwbl3q0")))))
(build-system gnu-build-system)
(native-inputs
`(("which" ,which)))
@ -810,7 +812,7 @@ Extensions} (DNSSEC).")
(define-public knot
(package
(name "knot")
(version "3.0.3")
(version "3.0.4")
(source
(origin
(method git-fetch)
@ -819,7 +821,7 @@ Extensions} (DNSSEC).")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0xzig9l91wj6x23mh75vw2r51ihrgx916c7wxvpcfnwrqsv4f3hy"))
(base32 "1mbjl18zi8yxs7pa3395lqjwdw0agjbfpl32x42i6d9zb8fsblzs"))
(modules '((guix build utils)))
(snippet
'(begin
@ -940,14 +942,14 @@ synthesis, and on-the-fly re-configuration.")
(define-public knot-resolver
(package
(name "knot-resolver")
(version "5.2.1")
(version "5.3.0")
(source (origin
(method url-fetch)
(uri (string-append "https://secure.nic.cz/files/knot-resolver/"
"knot-resolver-" version ".tar.xz"))
(sha256
(base32
"09jqy23q1pgj76y2qd1xfk72wwmypnyawm3span3gx00qi2bfdxa"))))
"0gp3ivv3zccz4b6s1wxbsvvlrc837lw2g089l3cbvzsg7z0b4v7v"))))
(build-system meson-build-system)
(outputs '("out" "doc"))
(arguments

2
gnu/packages/documentation.scm
View File

@ -105,7 +105,7 @@ pages in HTML.")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/asciidoc/asciidoc")
(url "https://github.com/asciidoc-py/asciidoc-py2")
(commit version)))
(file-name (git-file-name name version))
(sha256

6
gnu/packages/education.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2017, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2018, 2019, 2020, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Robert Smith <robertsmith@posteo.net>
;;; Copyright © 2020 Guy Fleury Iteriteka <gfleury@disroot.org>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
@ -614,14 +614,14 @@ Portuguese, Spanish and Italian.")
(define-public fet
(package
(name "fet")
(version "5.48.1")
(version "5.49.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.lalescu.ro/liviu/fet/download/"
"fet-" version ".tar.bz2"))
(sha256
(base32 "0k728l6zi0lkhzyipsb0f2jw53s4xicm7arp33ikhrvc4jlwcp4v"))))
(base32 "011bgr46bfi41hah1gr54va6arvr5zsvkk9zq2gfgavynwfnmny4"))))
(build-system gnu-build-system)
(arguments
`(#:phases

52
gnu/packages/electronics.scm
View File

@ -3,6 +3,7 @@
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2021 Leo Famulari <leo@famulari.name>
;;;
;;; This file is part of GNU Guix.
;;;
@ -27,6 +28,7 @@
#:use-module (guix build-system gnu)
#:use-module (guix build-system cmake)
#:use-module (gnu packages)
#:use-module (gnu packages algebra)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages boost)
@ -37,8 +39,10 @@
#:use-module (gnu packages gawk)
#:use-module (gnu packages glib)
#:use-module (gnu packages graphviz)
#:use-module (gnu packages gtk)
#:use-module (gnu packages libftdi)
#:use-module (gnu packages libusb)
#:use-module (gnu packages linux)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages qt))
@ -279,3 +283,51 @@ format support.")
(description "PulseView is a Qt based logic analyzer, oscilloscope and MSO GUI
for sigrok.")
(license license:gpl3+)))
(define-public comedilib
(package
(name "comedilib")
(version "0.12.0")
(source (origin
(method url-fetch)
(uri (string-append "https://www.comedi.org/download/comedilib-"
version ".tar.gz"))
(sha256
(base32
"0wzh23iyix4xj211fsd8hwrdcjhg2w5jswk9kywb1gpd3h8afajj"))))
(build-system gnu-build-system)
(synopsis "Library for Comedi")
(description "Comedilib is a user-space library that provides a
developer-friendly interface to Comedi devices. Comedi is a collection of
drivers for a variety of common data acquisition plug-in boards. The drivers
are implemented as a core Linux kernel module providing common functionality and
individual low-level driver modules.")
(home-page "https://www.comedi.org/")
(license license:lgpl2.1)))
(define-public xoscope
(package
(name "xoscope")
(version "2.2")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/xoscope/xoscope/"
version "/xoscope-" version ".tar.gz"))
(sha256
(base32
"1b9wxnrwz8qy6qyx5icrklb4720rlxnr1c4h3dr6g0dzj6nkc5av"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("alsa-lib" ,alsa-lib)
("comedilib" ,comedilib)
("fftw" ,fftw)
("gtk+-2" ,gtk+-2)
("gtkdatabox" ,gtkdatabox)))
(synopsis "Digital oscilloscope")
(description "Xoscope is a digital oscilloscope that can acquire signals
from ALSA, ESD, and COMEDI sources. This package currently does not include
support for ESD sources.")
(home-page "http://xoscope.sourceforge.net/")
(license license:gpl2+)))

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

File diff suppressed because it is too large Load Diff

39
gnu/packages/embedded.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2016 David Craven <david@craven.ch>
;;; Copyright © 2017, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2018, 2019, 2021 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2020 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
;;; Copyright © 2021 Julien Lepiller <julien@lepiller.eu>
@ -1547,3 +1547,40 @@ families, plus many of their variants.")
(synopsis "Tool for dealing with AMD binary blobs")
(description "PSPTool is a tool for dealing with AMD binary blobs")
(license license:gpl3+)))
(define-public agent-proxy
(let ((commit "8927798a71d246871ea8fc22b4512296a3fa1765")
(revision "0"))
(package
(name "agent-proxy")
(version (git-version "1.98" revision commit))
(home-page
"https://git.kernel.org/pub/scm/utils/kernel/kgdb/agent-proxy.git")
(source (origin
(method git-fetch)
(uri (git-reference (url home-page) (commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1bxkzwsqfld4pknmiq8j3k55pv90n8s6kzh0xh42bhy2jv1wxz2z"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-after 'build 'build-kdmx
(lambda _
(invoke "make" "-C" "kdmx")
#t))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out") "/bin")))
(install-file "agent-proxy" bin)
(install-file "kdmx/kdmx" bin)
#t))))))
(synopsis "Proxies to run kgdb/gdbserver and console on a serial port")
(description "These programs are proxies allowing to run kgdb/gdbserver
and console on a single serial port. agent-proxy creates network sockets,
whereas kdmx creates pseudo-ttys.")
(license license:gpl2))))

71
gnu/packages/emulators.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
;;; Copyright © 2015, 2016 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2015, 2016, 2021 Sou Bunnbu <iyzsong@member.fsf.org>
;;; Copyright © 2015, 2016 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
;;; Copyright © 2015, 2018 David Thompson <dthompson2@worcester.edu>
;;; Copyright © 2016 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
@ -36,6 +36,7 @@
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix svn-download)
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages algebra)
#:use-module (gnu packages assembly)
@ -1231,10 +1232,48 @@ System (NES/Famicom) emulator Nestopia, with enhancements from members of the
emulation community. It provides highly accurate emulation.")
(license license:gpl2+)))
(define-public libretro-lowresnx
(let ((commit "743ab43a6c4a13e0d5363b0d25ac12c7511c6581")
(revision "1"))
(package
(name "libretro-lowresnx")
(version (git-version "1.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/timoinutilis/lowres-nx")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0r15kb5p5s2jwky6zy4v1j9i95i4rz36p9wxg0g6xdjksf04b5cf"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no tests
#:make-flags (list "-C" "platform/LibRetro"
(string-append "CC=" ,(cc-for-target)))
#:phases
(modify-phases %standard-phases
(delete 'configure) ; no configure script
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(libretrodir (string-append out "/lib/libretro")))
(install-file "platform/LibRetro/lowresnx_libretro.so"
libretrodir)
#t))))))
(home-page "https://lowresnx.inutilis.com/")
(synopsis "Libretro core for LowRES NX")
(description "LowRES NX is a simulated retro game console, which can be
programmed in the classic BASIC language. This package provides a libretro
core allowing the lowRES NX programs to be used with libretro frontends such
as RetroArch.")
(license license:zlib))))
(define-public retroarch
(package
(name "retroarch")
(version "1.8.1")
(version "1.9.0")
(source
(origin
(method git-fetch)
@ -1243,18 +1282,9 @@ emulation community. It provides highly accurate emulation.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0y7rcpz7psf8k3agsrq277jdm651vbnn9xpqvmj2in1a786idya7"))
(base32 "1n0dcv85vqrdr79psnf009hi4r2mvsgsjbghrrc9pm5g7ywwwcvp"))
(patches
(search-patches "retroarch-disable-online-updater.patch"))
(modules '((guix build utils)))
(snippet
'(begin
;; Don't suggest using the Online Updater if available: it never
;; is. This disables translation of this particular message.
(substitute* (find-files "menu/drivers" "\\.c$")
(("msg_hash_to_str\\(MSG_MISSING_ASSETS\\)")
"\"Warning: Missing assets, go get some\""))
#t))))
(search-patches "retroarch-LIBRETRO_DIRECTORY.patch"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no tests
@ -1289,7 +1319,9 @@ emulation community. It provides highly accurate emulation.")
'("--enable-neon" "--enable-floathard")
'())
(string-append "--prefix=" out)
(string-append "--global-config-dir=" etc)
;; Non-free software are available through the core updater,
;; disable it. See <https://issues.guix.gnu.org/38360>.
"--disable-update_cores"
"--disable-builtinminiupnpc")))))))
(inputs
`(("alsa-lib" ,alsa-lib)
@ -1315,6 +1347,11 @@ emulation community. It provides highly accurate emulation.")
`(("pkg-config" ,pkg-config)
("wayland-protocols" ,wayland-protocols)
("which" ,which)))
(native-search-paths
(list (search-path-specification
(variable "LIBRETRO_DIRECTORY")
(separator #f) ; single entry
(files '("lib/libretro")))))
(home-page "https://www.libretro.com/")
(synopsis "Reference frontend for the libretro API")
(description
@ -1552,7 +1589,7 @@ This is a part of the TiLP project.")
(define-public mame
(package
(name "mame")
(version "0.228")
(version "0.229")
(source
(origin
(method git-fetch)
@ -1561,7 +1598,7 @@ This is a part of the TiLP project.")
(commit (apply string-append "mame" (string-split version #\.)))))
(file-name (git-file-name name version))
(sha256
(base32 "1xqd0b8xz9bc6ks9qbnrm7kkjcr81l0ksisvflr6gr6lxg2268xz"))
(base32 "0s5q6fjk739p1bfh72fmh35xi13fwbrgjqrn45i5xzx3v3gadmbg"))
(modules '((guix build utils)))
(snippet
;; Remove bundled libraries.
@ -2036,7 +2073,7 @@ performance, features, and ease of use.")
`(("assembler-for-tests" ,(cross-binutils "i686-unknown-linux-gnu"))))
("cmocka" ,cmocka)
("hexdump-for-tests" ,util-linux)))
(home-page "http://www.unicorn-engine.org")
(home-page "https://www.unicorn-engine.org")
(synopsis "Unicorn CPU emulator framework")
(description
"Unicorn is a lightweight, multi-platform, multi-architecture CPU emulator

170
gnu/packages/engineering.scm
View File

@ -1,9 +1,9 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2016, 2018, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2018, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 David Thompson <davet@gnu.org>
;;; Copyright © 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2017, 2018, 2019, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2017, 2018 Theodoros Foradis <theodoros@foradis.org>
;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
@ -21,6 +21,7 @@
;;; Copyright © 2020 B. Wilson <elaexuotee@wilsonb.com>
;;; Copyright © 2020, 2021 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2020, 2021 Morgan Smith <Morgan.J.Smith@outlook.com>
;;; Copyright © 2021 qblade <qblade@protonmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -106,6 +107,7 @@
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages pretty-print)
#:use-module (gnu packages python)
#:use-module (gnu packages python-crypto)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt)
#:use-module (gnu packages readline)
@ -1215,14 +1217,14 @@ use on a given system.")
(define-public libredwg
(package
(name "libredwg")
(version "0.12")
(version "0.12.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://gnu/libredwg/libredwg-"
version ".tar.xz"))
(sha256
(base32 "0z5algzi3alq166885y0qyj2gnc7gc6vhnz7nw0kwc0d236p6md8"))))
(base32 "1vhm3r3zr8hh0jbvv6qdykh1x14r4c1arl1qj48i4cx2dd3366mk"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags '("--disable-bindings")))
@ -1522,10 +1524,36 @@ bindings for Python, Java, OCaml and more.")
(define-public python2-capstone
(package-with-python2 python-capstone))
(define-public python-esptool-3.0
(package
(name "python-esptool")
(version "3.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "esptool" version))
(sha256
(base32
"0d69rd9h8wrzjvfrc66vmz4qd5hly2fpdcwj2bdrlb7dbwikv5c7"))))
(build-system python-build-system)
(arguments
`(#:tests? #f)) ;XXX: require python-reedsolo
(propagated-inputs
`(("python-ecdsa" ,python-ecdsa)
("python-pyaes" ,python-pyaes)
("python-pyserial" ,python-pyserial)))
(home-page "https://github.com/espressif/esptool")
(synopsis "Bootloader utility for Espressif ESP8266 & ESP32 chips")
(description
"@code{esptool.py} is a Python-based utility to communicate with the ROM
bootloader in Espressif ESP8266 & ESP32 series chips.")
(license license:gpl2+)))
(define-public radare2
(package
(name "radare2")
(version "5.0.0")
(version "5.1.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1533,7 +1561,7 @@ bindings for Python, Java, OCaml and more.")
(commit version)))
(sha256
(base32
"0aa7c27kd0l55fy5qfvxqmakp4pz6240v3hn84095qmqkzcbs420"))
"0hv9x31iabasj12g8f04incr1rbcdkxi3xnqn3ggp8gl4h6pf2f3"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(arguments
@ -2365,6 +2393,21 @@ analysis and AC analysis. The engine is designed to do true mixed-mode
simulation.")
(license license:gpl3+)))
(define-public radare2-for-cutter
(package
(inherit radare2)
(name "radare2")
(version "5.0.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/radareorg/radare2")
(commit version)))
(sha256
(base32
"0aa7c27kd0l55fy5qfvxqmakp4pz6240v3hn84095qmqkzcbs420"))
(file-name (git-file-name name version))))))
(define-public cutter
(package
(name "cutter")
@ -2400,7 +2443,9 @@ simulation.")
`(("qtbase" ,qtbase)
("qtsvg" ,qtsvg)
("openssl" ,openssl)
("radare2" ,radare2)))
;; Depends on radare2 4.5.1 officially, builds and works fine with
;; radare2 5.0.0 but fails to build with radare2 5.1.1.
("radare2" ,radare2-for-cutter)))
(home-page "https://github.com/radareorg/cutter")
(synopsis "GUI for radare2 reverse engineering framework")
(description "Cutter is a GUI for radare2 reverse engineering framework.
@ -2448,7 +2493,7 @@ specification can be downloaded at @url{http://3mf.io/specification/}.")
(define-public openscad
(package
(name "openscad")
(version "2019.05")
(version "2021.01")
(source
(origin
(method url-fetch)
@ -2456,9 +2501,7 @@ specification can be downloaded at @url{http://3mf.io/specification/}.")
".src.tar.gz"))
(sha256
(base32
"0nbgk5q5pgnw53la0kccdcpz2f4xf6d6076rkn0q08z57hkc85ha"))
(patches (search-patches
"openscad-parser-boost-1.72.patch"))))
"0n83szr88h8snccjrslr96mgw3f65x3sq726n6x5vxp5wybw4f6r"))))
(build-system cmake-build-system)
(inputs
`(("boost" ,boost)
@ -2501,7 +2544,17 @@ specification can be downloaded at @url{http://3mf.io/specification/}.")
(with-directory-excursion "tests"
(invoke "cmake" ".")
(invoke "make")
(invoke "ctest"))
(invoke "ctest" "--exclude-regex"
(string-join
(list
"astdumptest_allexpressions"
"echotest_function-literal-compare"
"echotest_function-literal-tests"
"echotest_allexpressions"
"lazyunion-*"
"pdfexporttest_centered"
"pdfexporttest_simple-pdf")
"|")))
;; strip python test files since lib dir ends up in out/share
(for-each delete-file
(find-files "libraries/MCAD" ".*\\.py"))
@ -2894,64 +2947,47 @@ GUI.")
(license license:gpl3+)))
(define-public poke
;; Upstream has yet to tag any releases.
(let ((commit "d33317a46e3b7c48130a471a48cbfea1abab70d8")
(revision "0"))
(package
(name "poke")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "git://git.savannah.gnu.org/poke.git")
(commit commit)
(recursive? #t)))
(sha256
(base32 "1dd0r1x123bqi78lrsk58rvg9c9wka0kywdyzn7g3i4hkh54xb7d"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
;; The GUI, which we elide, requires tcl and tk.
(native-inputs `(("autoconf" ,autoconf)
("automake" ,automake)
("bison" ,bison)
("clisp" ,clisp)
("dejagnu" ,dejagnu)
("flex" ,flex)
("gettext" ,gettext-minimal)
("help2man" ,help2man)
("libtool" ,libtool)
("perl" ,perl)
("pkg-config" ,pkg-config)
("python-2" ,python-2)
("python-3" ,python-3)
("texinfo" ,texinfo)))
;; FIXME: Enable NBD support by adding `libnbd' (currently unpackaged).
;; FIXME: A "hyperlinks-capable" `libtexststyle' needed for the hserver.
(inputs `(("json-c" ,json-c)
("libgc" ,libgc)
("readline" ,readline)))
(arguments
;; To build the GUI, add the `--enable-gui' configure flag.
;; To enable the "hyperlink server", add the `--enable-hserver' flag.
`(#:configure-flags '("--enable-mi")
#:phases (modify-phases %standard-phases
;; This is a non-trivial bootstrap that needs many of the
;; native-inputs and thus must run after `patch-shebangs'.
(delete 'bootstrap)
(add-after 'patch-source-shebangs 'bootstrap
(lambda _
(invoke "./bootstrap" "--no-git"
"--no-bootstrap-sync"
"--gnulib-srcdir=gnulib")
#t)))))
(home-page "http://jemarch.net/poke.html")
(synopsis "Interactive, extensible editor for binary data")
(description "GNU poke is an interactive, extensible editor for binary
(package
(name "poke")
(version "1.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/poke/poke-" version
".tar.gz"))
(sha256
(base32
"02jvla69xd0nnlg2bil2vxxxglqgylswml6h5hy2nxy0023hp4yy"))))
;; XXX: Version 1.0 only supports 64-bit systems.
(supported-systems '("x86_64-linux" "aarch64-linux"))
(build-system gnu-build-system)
;; The GUI, which we elide, requires tcl and tk.
(native-inputs `(("bison" ,bison)
("clisp" ,clisp)
("dejagnu" ,dejagnu)
("flex" ,flex)
("libtool" ,libtool)
("perl" ,perl)
("pkg-config" ,pkg-config)
("python-2" ,python-2)
("python-3" ,python-3)))
;; FIXME: Enable NBD support by adding `libnbd' (currently unpackaged).
(inputs `(("json-c" ,json-c)
("libgc" ,libgc)
("readline" ,readline)
("libtextstyle" ,libtextstyle)))
(arguments
;; To build the GUI, add the `--enable-gui' configure flag.
;; To enable the "hyperlink server", add the `--enable-hserver' flag.
`(#:configure-flags '("--enable-mi")))
(home-page "http://jemarch.net/poke.html")
(synopsis "Interactive, extensible editor for binary data")
(description "GNU poke is an interactive, extensible editor for binary
data. Not limited to editing basic entities such as bits and bytes, it
provides a full-fledged procedural, interactive programming language designed
to describe data structures and to operate on them.")
(license license:gpl3+))))
(license license:gpl3+)))
(define-public pcb2gcode
(package

72
gnu/packages/file-systems.scm
View File

@ -1,12 +1,12 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017, 2018, 2020, 2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017, 2018, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018 Leo Famulari <leo@famulari.name>
;;; Copyright © 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020 Raghav Gururajan <raghavgururajan@disroot.org>
;;; Copyright © 2020 Morgan Smith <Morgan.J.Smith@outlook.com>
;;; Copyright © 2021 raid5atemyhoemwork <raid5atemyhomework@protonmail.com>
;;; Copyright © 2021 raid5atemyhomework <raid5atemyhomework@protonmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -31,6 +31,7 @@
#:use-module (guix build-system cmake)
#:use-module (guix build-system copy)
#:use-module (guix build-system gnu)
#:use-module (guix build-system go)
#:use-module (guix build-system linux-module)
#:use-module (guix build-system python)
#:use-module (guix build-system trivial)
@ -53,6 +54,7 @@
#:use-module (gnu packages gawk)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages golang)
#:use-module (gnu packages kerberos)
#:use-module (gnu packages libffi)
#:use-module (gnu packages linux)
@ -463,7 +465,7 @@ from the bcachefs-tools package. It is meant to be used in initrds.")
(define-public exfatprogs
(package
(name "exfatprogs")
(version "1.0.4")
(version "1.1.0")
(source
(origin
(method git-fetch)
@ -472,7 +474,7 @@ from the bcachefs-tools package. It is meant to be used in initrds.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1braffz1wc4ki3nb42q85l5zg2dl2hwjr64rk27nc85wcsrbavnl"))))
(base32 "1ciy28lx7c1vr1f138qi0mkz88pzlkay6nlwmp1yjzd830x48549"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -847,7 +849,7 @@ APFS.")
(define-public zfs
(package
(name "zfs")
(version "2.0.2")
(version "2.0.3")
(outputs '("out" "module" "src"))
(source
(origin
@ -856,7 +858,7 @@ APFS.")
"/download/zfs-" version
"/zfs-" version ".tar.gz"))
(sha256
(base32 "090b2pp0cgzkjcnbjf8ms28dah5dff8s04q31z62czapwiy0drdx"))))
(base32 "0fg5hz1yy2z5ah0hzjv3xy5vcg1c214rps90dr80lfkalx5gd506"))))
(build-system linux-module-build-system)
(arguments
`(;; The ZFS kernel module should not be downloaded since the license
@ -1129,3 +1131,61 @@ Dropbox API v2.")
"@code{dbxfs} allows you to mount your Dropbox folder as if it were a
local file system using FUSE.")
(license license:gpl3+)))
(define-public go-github-com-hanwen-fuse
(package
(name "go-github-com-hanwen-fuse")
(version "2.0.3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hanwen/go-fuse")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1y44d08fxyis99s6jxdr6dbbw5kv3wb8lkhq3xmr886i4w41lz03"))))
(build-system go-build-system)
(arguments
`(#:import-path "github.com/hanwen/go-fuse"))
(propagated-inputs
`(("go-golang-org-x-sys" ,go-golang-org-x-sys)))
(home-page "https://github.com/hanwen/go-fuse")
(synopsis "FUSE bindings for Go")
(description
"This package provides Go native bindings for the FUSE kernel module.")
(license license:bsd-3)))
(define-public tmsu
(package
(name "tmsu")
(version "0.7.5")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/oniony/TMSU")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0834hah7p6ad81w60ifnxyh9zn09ddfgrll04kwjxwp7ypbv38wq"))))
(build-system go-build-system)
(arguments
`(#:import-path "github.com/oniony/TMSU"
#:unpack-path ".."))
(inputs
`(("go-github-com-mattn-go-sqlite3" ,go-github-com-mattn-go-sqlite3)
("go-github-com-hanwen-fuse" ,go-github-com-hanwen-fuse)))
(home-page "https://github.com/oniony/TMSU")
(synopsis "Tag files and access them through a virtual filesystem")
(description
"TMSU is a tool for tagging your files. It provides a simple
command-line utility for applying tags and a virtual filesystem to give you a
tag-based view of your files from any other program. TMSU does not alter your
files in any way: they remain unchanged on disk, or on the network, wherever
your put them. TMSU maintains its own database and you simply gain an
additional view, which you can mount where you like, based upon the tags you
set up.")
(license license:gpl3+)))

30
gnu/packages/fonts.scm
View File

@ -11,7 +11,7 @@
;;; Copyright © 2016 Jookia <166291@gmail.com>
;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Dmitry Nikolaev <cameltheman@gmail.com>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2016 Toni Reina <areina@riseup.net>
;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr>
@ -199,6 +199,25 @@ package provides the TrueType (TTF) files.")
no copy of one or more of the Font Software typefaces may be sold by
itself."))))
(define-public font-canada1500
(package
(name "font-canada1500")
(version "1.101")
(source (origin
(method url-fetch)
(uri "https://typodermicfonts.com/wp-content/uploads/2017/06/canada1500.zip")
(sha256
(base32
"052rwhyfcz6q0g0nsr21bkbg2qb6sw7wzins5hv80qhdhi77sdaj"))))
(build-system font-build-system)
(home-page "https://typodermicfonts.com/canada1500/")
(synopsis "Canadian typeface that supports English, French and Aboriginal languages")
(description "Canada1500 is a display typeface originally created for the
Canadian sesquicentennial with four weights, italics and space symbols which
includes lining and old-style numerals, tabular and proportional. Greek,
Cyrillic, Canadian Syllabics and most Latin based languages are supported.")
(license license:cc0)))
(define-public font-cantarell
(package
(name "font-abattis-cantarell")
@ -712,7 +731,7 @@ for use at smaller text sizes")))
(define-public font-gnu-unifont
(package
(name "font-gnu-unifont")
(version "13.0.05")
(version "13.0.06")
(source
(origin
(method url-fetch)
@ -722,7 +741,7 @@ for use at smaller text sizes")))
(string-append "mirror://gnu/unifont/unifont-"
version "/unifont-" version ".tar.gz")))
(sha256
(base32 "0kkgagnyhl92pwgnvf1vjrc1ql8lk5khb125sz18ck8vnxk4i3pr"))))
(base32 "09g91g0gv76sadslp70m5xwfk3jf8kh7rpk2pz3l2hpldnjggpk8"))))
(build-system gnu-build-system)
(outputs '("out" ; TrueType version
"pcf" ; PCF (bitmap) version
@ -1806,7 +1825,7 @@ have been designed to be very distinguishable from each other.")
(define-public font-dseg
(package
(name "font-dseg")
(version "0.45")
(version "0.46")
(source
(origin
(method url-fetch/zipbomb)
@ -1817,8 +1836,7 @@ have been designed to be very distinguishable from each other.")
(string-concatenate (string-split version #\.))
".zip"))
(sha256
(base32
"0v8sghh4vl286faf8pvi74znz07pyf0qii8z4wjllisqwc35sx72"))))
(base32 "13133kpa1ndsji9yq5ppkds5yq2y094qvrv2f83ah74p40sz9hm6"))))
(build-system font-build-system)
(arguments
`(#:phases

26
gnu/packages/fontutils.scm
View File

@ -13,6 +13,7 @@
;;; Copyright © 2020 Roel Janssen <roel@gnu.org>
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -57,6 +58,7 @@
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages webkit)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg)
@ -499,7 +501,7 @@ primary means by which end users perform conversions, and they have not
been designed, tested, and debugged to the extent that general-purpose
applications should be.")
(license license:lgpl2.1+)
(home-page "http://scripts.sil.org/cms/scripts/page.php?cat_id=teckit")))
(home-page "https://scripts.sil.org/cms/scripts/page.php?cat_id=teckit")))
(define-public graphite2
(package
@ -875,7 +877,7 @@ generated list of fallback fonts are checked.")
(define-public fontmanager
(package
(name "fontmanager")
(version "0.7.7")
(version "0.8.4")
(source
(origin
(method git-fetch)
@ -885,7 +887,7 @@ generated list of fallback fonts are checked.")
(file-name (git-file-name name version))
(sha256
(base32
"1bzqvspplp1zj0n0869jqbc60wgbjhf0vdrn5bj8dfawxynh8s5f"))))
"09rv0srpj8ann2n1zpv1frlpxz0x10d2y21c5lys7pmfngljlxi9"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t
@ -895,19 +897,21 @@ generated list of fallback fonts are checked.")
(assoc-ref %outputs "out")
"/lib/font-manager"))))
(native-inputs
`(("pkg-config" ,pkg-config)
("vala" ,vala)
("yelp-tools" ,yelp-tools)
`(("desktop-file-utils" ,desktop-file-utils)
("gettext" ,gettext-minimal)
("glib" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("desktop-file-utils" ,desktop-file-utils)))
("pkg-config" ,pkg-config)
("vala" ,vala)
("yelp-tools" ,yelp-tools)))
(inputs
`(("json-glib" ,json-glib)
("sqlite" ,sqlite)
("fonconfig" ,fontconfig)
`(("fonconfig" ,fontconfig)
("freetype" ,freetype)
("gtk+" ,gtk+)))
("gtk+" ,gtk+)
("json-glib" ,json-glib)
("libsoup" ,libsoup)
("sqlite" ,sqlite)
("webkitgtk" ,webkitgtk)))
(home-page "https://fontmanager.github.io/")
(synopsis "Simple font management for GTK+ desktop environments")
(description "Font Manager is intended to provide a way for users to

21
gnu/packages/freedesktop.scm
View File

@ -5,7 +5,7 @@
;;; Copyright © 2015, 2016, 2017, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
;;; Copyright © 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017, 2019, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2017, 2018 Mark H Weaver <mhw@netris.org>
@ -769,14 +769,14 @@ manager for the current system.")
(define-public python-pyxdg
(package
(name "python-pyxdg")
(version "0.25")
(version "0.27")
(source
(origin
(method url-fetch)
(uri (pypi-uri "pyxdg" version))
(sha256
(base32
"179767h8m634ydlm4v8lnz01ba42gckfp684id764zaip7h87s41"))))
"19f5j5mxp7ff0vp33s32qbpdi65iiwha0bj641gl70pdwnm97gc0"))))
(build-system python-build-system)
(arguments
'(#:phases
@ -789,15 +789,16 @@ manager for the current system.")
(substitute* "test/test-icon.py"
(("/usr/share/icons/hicolor/index.theme")
(string-append (assoc-ref inputs "hicolor-icon-theme")
"/share/icons/hicolor/index.theme"))
;; FIXME: This test fails because the theme contains the unknown
;; key "Scale".
(("theme.validate\\(\\)") "#"))
"/share/icons/hicolor/index.theme")))
;; One test fails with:
;; AssertionError: 'x-apple-ios-png' != 'png'
;; These two tests are known to fail in strange ways.
(substitute* "test/test-mime.py"
(("self.check_mimetype\\(imgpng, 'image', 'png'\\)") "#"))
(("def test_get_type\\(self") "def _test_get_type(self")
(("def test_get_type2\\(self") "def _test_get_type2(self"))
;; There are test files not shipped in the release tarball
(substitute* "test/test-icon.py"
(("def test_validate_icon_theme") "def _test_validate_icon_theme"))
(invoke "nosetests" "-v"))))))
(native-inputs
;; For tests.

6
gnu/packages/freeipmi.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2016, 2017, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2015, 2016, 2017, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
@ -28,14 +28,14 @@
(define-public freeipmi
(package
(name "freeipmi")
(version "1.6.6")
(version "1.6.7")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/freeipmi/freeipmi-"
version ".tar.gz"))
(sha256
(base32
"1ava5s0babfwx6dqi87phzyzjjgyah7avhljrxrjwn2cniwh38yg"))))
"1gyyx99q02p3v2nqm3h53mkjd33l0hrapwg4alg6qr9k74qik1dv"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags '("--disable-static")))

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

@ -17,7 +17,7 @@
;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019, 2020, 2021 Leo Prikler <leo.prikler@student.tugraz.at>
;;; Copyright © 2019 Jethro Cao <jethrocao@gmail.com>
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Timotej Lazar <timotej.lazar@araneo.si>
;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org>
;;;
@ -1131,7 +1131,7 @@ to create fully featured games and multimedia programs in the python language.")
,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf)))))
(native-inputs
`(("python2-cython" ,python2-cython)))
(home-page "http://www.renpy.org/")
(home-page "https://www.renpy.org/")
(synopsis "Reimplementation of the Pygame API using SDL2")
(description "Pygame_SDL2 reimplements the Pygame API using SDL2,
staying close to the original, but also adding some SDL2-specific features.

164
gnu/packages/games.scm
View File

@ -11,7 +11,7 @@
;;; Copyright © 2015, 2016 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
;;; Copyright © 2015, 2017, 2018 Christopher Lemmer Webber <cwebber@dustycloud.org>
;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017 Alex Kost <alezost@gmail.com>
;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
;;; Copyright © 2016, 2017 Rodger Fox <thylakoid@openmailbox.org>
@ -51,12 +51,14 @@
;;; Copyright © 2020 Vitaliy Shatrov <D0dyBo0D0dyBo0@protonmail.com>
;;; Copyright © 2020 Jack Hill <jackhill@jackhill.us>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020 Trevor Hass <thass@okstate.edu>
;;; Copyright © 2020, 2021 Leo Prikler <leo.prikler@student.tugraz.at>
;;; Copyright © 2020 Lu hux <luhux@outlook.com>
;;; Copyright © 2020 Tomás Ortín Fernández <tomasortin@mailbox.org>
;;; Copyright © 2021 Olivier Rojon <o.rojon@posteo.net>
;;; Copyright © 2021 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2021 Greg Hogan <code@greghogan.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -545,6 +547,40 @@ Playing bastet can be a painful experience, especially if you usually make
canyons and wait for the long I-shaped block to clear four rows at a time.")
(license license:gpl3+)))
(define-public vitetris
(package
(name "vitetris")
(version "0.59.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/vicgeralds/vitetris")
(commit (string-append "v" version))))
(sha256
(base32 "1ah1c5g7abksif0n8v5rb7r4pn2az20c3mkp4ak13vgs23ddmds5"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ;no test
#:make-flags
(list ,(string-append "CC=" (cc-for-target))
(string-append "DESTDIR=" (assoc-ref %outputs "out")))
#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda _
;; the non standard configure script does not accept
;; standard parameters -> invoke configure by hand
(invoke "./configure" "prefix=")
;; src/src-conf.mk must be writable for the build step
(make-file-writable "src/src-conf.mk"))))))
(home-page "http://victornils.net/tetris/")
(synopsis "Terminal-based Tetris clone")
(description "Vitetris is a classic multiplayer Tetris clone for the
terminal.")
(license license:bsd-2)))
(define-public blobwars
(package
(name "blobwars")
@ -731,14 +767,14 @@ Quizes: arithmetic, and quiz.")
(define-public bzflag
(package
(name "bzflag")
(version "2.4.20")
(version "2.4.22")
(source
(origin
(method url-fetch)
(uri (string-append "https://download.bzflag.org/bzflag/source/"
version "/bzflag-" version ".tar.bz2"))
(sha256
(base32 "16brxqmfiyz4j4lb8ihzjcbwqmpsms6vm3ijbp34lnw0blbwdjb2"))))
(base32 "0kba0011nswc2csqlzkd7bas307zm5813zlnby5vsmxn08rnar4y"))))
(build-system gnu-build-system)
(arguments
`(#:phases
@ -3966,7 +4002,7 @@ also available.")
("python-polib" ,python-polib)
("python-pytest" ,python-pytest)
("python-pytest-mock" ,python-pytest-mock)))
(home-page "http://unknown-horizons.org/")
(home-page "https://unknown-horizons.org/")
(synopsis "Isometric realtime strategy, economy and city building simulation")
(description
"Unknown Horizons is a 2D realtime strategy simulation with an emphasis
@ -8366,6 +8402,45 @@ to download and install them in @file{$HOME/.stepmania-X.Y/Songs} directory.")
(home-page "https://www.stepmania.com")
(license license:expat)))
(define-public oshu
(package
(name "oshu")
(version "2.0.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/fmang/oshu")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1g598incc6zlls876slgwqblwiwiszkmqa4xpzw0z7mbjmmzsizz"))))
(build-system cmake-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'check 'pre-check
;; `make test' doesn't actually build the test executable
(lambda _ (invoke "make" "zerotokei"))))))
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("cairo" ,cairo)
("ffmpeg" ,ffmpeg)
("pango" ,pango)
("sdl2" ,sdl2)
("sdl2-image" ,sdl2-image)))
(home-page "https://github.com/fmang/oshu/")
(synopsis "Rhythm game in which you click on circles")
(description "@i{oshu!} is a minimalist variant of the @i{osu!} rhythm game,
which is played by pressing buttons and following along sliders as they appear
on screen. Its aim is to be able to play any beatmap even on low-end hardware.
This package provides the core application, but no beatmaps. You need to
download and unpack them separately.")
(license license:gpl3+)))
(define-public btanks
(package
(name "btanks")
@ -11707,14 +11782,14 @@ and chess engines.")
(define-public chessx
(package
(name "chessx")
(version "1.5.4")
(version "1.5.6")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/chessx/chessx/"
version "/chessx-" version ".tgz"))
(sha256
(base32 "1a3541vl5hp6jllgx998w9kjh9kp3wrl80yfwkxmq1bc5bzsrnz2"))))
(base32 "01fjchil2h6ry2ywr0dwjw2g7zd29580cr4c74d5z74h999lp6nh"))))
(build-system qt-build-system)
(native-inputs
`(("qttools" ,qttools)))
@ -11732,12 +11807,7 @@ and chess engines.")
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "chessx.pro"
(("\\$\\$\\[QT_INSTALL_BINS\\]/lrelease")
(string-append (assoc-ref inputs "qttools") "/bin/lrelease"))
;; Fix missing translations.
(("TRANSLATIONS = i18n/chessx_de.ts")
"TRANSLATIONS = i18n/chessx_de.ts i18n/chessx_da.ts \\
i18n/chessx_fr.ts i18n/chessx_it.ts i18n/chessx_cz.ts i18n/chessx_ru.ts \\
i18n/chessx_es.ts"))
(string-append (assoc-ref inputs "qttools") "/bin/lrelease")))
#t))
(add-after 'fix-paths 'make-qt-deterministic
(lambda _
@ -11765,7 +11835,7 @@ etc. You can also play games on FICS or against an engine.")
(define-public stockfish
(package
(name "stockfish")
(version "12")
(version "13")
(source
(origin
(method git-fetch)
@ -11774,15 +11844,15 @@ etc. You can also play games on FICS or against an engine.")
(commit (string-append "sf_" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0vcymbwp5nf114pp3ax40s21ki5dckda15vmhr77d1mnq3fn0l32"))))
(base32 "15dfp9fnl3w7dgxhqmsm461amsysn646rj1arnzvwhy2i6ijhg2m"))))
(build-system gnu-build-system)
(inputs
`(("neural-network"
,(origin
(method url-fetch)
(uri "https://tests.stockfishchess.org/api/nn/nn-82215d0fd0df.nnue")
(uri "https://tests.stockfishchess.org/api/nn/nn-62ef826d1a6d.nnue")
(sha256
(base32 "1r4yqrh4di05syyhl84hqcz84djpbd605b27zhbxwg6zs07ms8c2"))))))
(base32 "0qsy9rr4zgxrpgwhwbi96z01a2560am2b00q2klbj4bd39nq5vv2"))))))
(arguments
`(#:tests? #f
#:make-flags (list "-C" "src"
@ -11804,7 +11874,7 @@ etc. You can also play games on FICS or against an engine.")
(add-after 'unpack 'copy-net
(lambda* (#:key inputs #:allow-other-keys)
(copy-file (assoc-ref inputs "neural-network")
"src/nn-82215d0fd0df.nnue")
"src/nn-62ef826d1a6d.nnue")
#t)))))
(synopsis "Strong chess engine")
(description
@ -12158,6 +12228,64 @@ such as GnuGo.
@end itemize")
(license license:gpl2+)))
(define-public passage
(package
(name "passage")
(version "4")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/hcsoftware/Passage/v"
version "/Passage_v" version "_UnixSource.tar.gz"))
(sha256
(base32 "02ky4a4xdjvr71r58339jjrjyz76b5skcnbq4f8707mrln9vhby3"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #false ; there are none
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'chdir
(lambda _
(chdir "gamma256/gameSource")
(system "cat Makefile.GnuLinux Makefile.all > Makefile")))
(replace 'configure
(lambda* (#:key outputs inputs #:allow-other-keys)
(setenv "CPATH"
(string-append
(assoc-ref inputs "sdl") "/include/SDL:"
(or (getenv "CPATH") "")))
(let* ((out (assoc-ref outputs "out"))
(assets (string-append out "/share/passage")))
(substitute* "common.cpp"
(("readTGA\\( \"graphics\"")
(format #false "readTGA(\"~a/graphics\"" assets)))
(substitute* "musicPlayer.cpp"
(("readTGA\\( \"music\"")
(format #false "readTGA(\"~a/music\"" assets))))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(assets (string-append out "/share/passage/")))
(install-file "Passage" bin)
(install-file "../documentation/Readme.txt" assets)
(copy-recursively "graphics" (string-append assets "graphics"))
(copy-recursively "music" (string-append assets "music"))
(copy-recursively "settings" (string-append assets "settings"))))))))
(inputs
`(("sdl" ,(sdl-union (list sdl sdl-mixer)))))
(native-inputs
`(("imagemagick" ,imagemagick)))
(home-page "http://hcsoftware.sourceforge.net/passage/")
(synopsis "Memento mori game")
(description
"Passage is meant to be a memento mori game. It presents an entire life,
from young adulthood through old age and death, in the span of five minutes.
Of course, it's a game, not a painting or a film, so the choices that you make
as the player are crucial. There's no ``right'' way to play Passage, just as
there's no right way to interpret it.")
(license license:public-domain)))
(define-public paperview
(let ((commit "9f8538eb6734c76877b878b8f1e52587f2ae19e6")
(revision "1"))

14
gnu/packages/geo.scm
View File

@ -13,7 +13,7 @@
;;; Copyright © 2019 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2020 Christopher Baines <mail@cbaines.net>
;;; Copyright © 2020 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2020, 2021 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2021 Sharlatan Hellseher <sharlatanus@gmail.com>
;;;
;;; This file is part of GNU Guix.
@ -424,7 +424,7 @@ writing GeoTIFF information tags.")
(define-public libspatialite
(package
(name "libspatialite")
(version "5.0.0")
(version "5.0.1")
(source
(origin
(method url-fetch)
@ -432,7 +432,7 @@ writing GeoTIFF information tags.")
version ".tar.gz"))
(sha256
(base32
"1b3dmkgwbfi43hj3jzy2mh707khavrnw91vdd5sv387m8c1dfzvv"))))
"164y82rw2lrp5glfc0rkn7n6xvx5dvlgmh7bb7815067251wkjzf"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
@ -1723,14 +1723,14 @@ associated attribute file (@file{.dbf}).")
(define-public spatialite-tools
(package
(name "spatialite-tools")
(version "5.0.0")
(version "5.0.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.gaia-gis.it/gaia-sins/"
"spatialite-tools-" version ".tar.gz"))
(sha256
(base32 "0ckddgdpxhy6vkpr9q2hnx5qmanrd8g4pqnifbrq1i5jrj82s2dd"))))
(base32 "070p6pg541wvwb28wkn7k0z1qdyirik2qc2jpj4pf0vzx02w414n"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
@ -1756,14 +1756,14 @@ tools supporting SpatiaLite.")
(define-public virtualpg
(package
(name "virtualpg")
(version "1.0.2")
(version "2.0.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.gaia-gis.it/gaia-sins/"
"virtualpg-" version ".tar.gz"))
(sha256
(base32 "0kjipcd08vvn188xmwbs7sw41xcs06x47n2hbqshpjcr51mxbarp"))))
(base32 "12z0l7368r4116ljzg7nljy5hf425r11vxc540w79wlzikmynamy"))))
(build-system gnu-build-system)
(inputs
`(("postgresql" ,postgresql)

2
gnu/packages/gimp.scm
View File

@ -253,7 +253,7 @@ provided, as well as a framework to add new color models and data types.")
`(("pkg-config" ,pkg-config)
("glib" ,glib "bin") ; for gtester
("intltool" ,intltool)))
(home-page "http://gegl.org")
(home-page "https://gegl.org")
(synopsis "Graph based image processing framework")
(description "GEGL (Generic Graphics Library) provides infrastructure to
do demand based cached non destructive image editing on larger than RAM

4
gnu/packages/gl.scm
View File

@ -777,7 +777,7 @@ OpenGL.")
(define-public glfw
(package
(name "glfw")
(version "3.3.2")
(version "3.3.3")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/glfw/glfw"
@ -785,7 +785,7 @@ OpenGL.")
"/glfw-" version ".zip"))
(sha256
(base32
"1izgc4r0ypxwwklfzj98ab4xqsjpb1wbsfdbivvxpmr95x8km8q8"))))
"0xrrahhbs4sn7sgvdk9sgz5zla4sw3ajq6kxpqrx635l8nnqfc3j"))))
(build-system cmake-build-system)
(arguments
'(#:tests? #f ; no test target

91
gnu/packages/gnome.scm
View File

@ -52,11 +52,12 @@
;;; Copyright © 2020 Naga Malleswari <nagamalli@riseup.net>
;;; Copyright © 2020 Ryan Prior <rprior@protonmail.com>
;;; Copyright © 2020, 2021 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
;;; Copyright © 2020, 2021 Brice Waegeneire <brice@waegenei.re>
;;; Copyright © 2020 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
;;; Copyright © 2020 Andy Tai <atai@atai.org>
;;; Copyright © 2020, 2021 Andy Tai <atai@atai.org>
;;; Copyright © 2020, 2021 Sébastien Lerique <sl@eauchat.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -149,6 +150,7 @@
#:use-module (gnu packages ninja)
#:use-module (gnu packages node)
#:use-module (gnu packages nss)
#:use-module (gnu packages ocr)
#:use-module (gnu packages openldap)
#:use-module (gnu packages package-management)
#:use-module (gnu packages password-utils)
@ -2544,6 +2546,8 @@ GNOME Desktop.")
("libxslt" ,libxslt) ;for documentation
("docbook-xml" ,docbook-xml-4.2)
("docbook-xsl" ,docbook-xsl)))
(propagated-inputs
`(("gcr" ,gcr)))
(home-page "https://www.gnome.org")
(synopsis "Daemon to store passwords and encryption keys")
(description
@ -7875,7 +7879,7 @@ Cisco's AnyConnect SSL VPN.")
(define-public network-manager-applet
(package
(name "network-manager-applet")
(version "1.16.0")
(version "1.20.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/network-manager-applet/"
@ -7883,10 +7887,12 @@ Cisco's AnyConnect SSL VPN.")
"network-manager-applet-" version ".tar.xz"))
(sha256
(base32
"1rf3nm0hjcy9f8ajb4vmvwy503w8yj8d4daxkcb7w7i7b92qmyfn"))))
"0lsjkbv66hn7acl2pg9h6hz4b700zzv4cjwrwjvy7043blw0bcla"))))
(build-system meson-build-system)
(arguments
'(#:glib-or-gtk? #t))
'(#:glib-or-gtk? #t
#:configure-flags
'("-Dappindicator=yes")))
(native-inputs
`(("intltool" ,intltool)
("glib:bin" ,glib "bin") ; for glib-compile-resources, etc.
@ -7902,6 +7908,7 @@ Cisco's AnyConnect SSL VPN.")
("libnma" ,libnma)))
(inputs
`(("gcr" ,gcr)
("libappindicator" ,libappindicator)
("libgudev" ,libgudev)
("libnotify" ,libnotify)
("libsecret" ,libsecret)
@ -10311,6 +10318,7 @@ photo-booth-like software, such as Cheese.")
`(("gnome-desktop" ,gnome-desktop)
("gobject-introspection" ,gobject-introspection)
("gst-plugins-base" ,gst-plugins-base)
("gst-plugins-good" ,gst-plugins-good)
("gst-plugins-bad" ,gst-plugins-bad)
("gtk+" ,gtk+)
("libx11" ,libx11)
@ -11378,7 +11386,7 @@ and toolbars.")
(define-public setzer
(package
(name "setzer")
(version "0.3.9")
(version "0.4.1")
(source
(origin
(method git-fetch)
@ -11387,7 +11395,7 @@ and toolbars.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1qmy2bxl8x6pijjaaj91v6rqdipha6iyy0b6b9y1lk3r2p3azd42"))))
(base32 "1rcx2c07jg1ij81pnvg3px49hfbjmkagn68d3gp79z3gcajbp2av"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t
@ -11419,6 +11427,7 @@ and toolbars.")
("gtksourceview" ,gtksourceview)
("pango" ,pango)
("poppler" ,poppler)
("python-pdfminer" ,python-pdfminer-six)
("python-pycairo" ,python-pycairo)
("python-pygobject" ,python-pygobject)
("python-pyxdg" ,python-pyxdg)
@ -11812,7 +11821,7 @@ integrated profiler via Sysprof, debugging support, and more.")
(define-public komikku
(package
(name "komikku")
(version "0.26.0")
(version "0.26.1")
(source
(origin
(method git-fetch)
@ -11822,7 +11831,7 @@ integrated profiler via Sysprof, debugging support, and more.")
(file-name (git-file-name name version))
(sha256
(base32
"1g5rhp3d97v0s8nk536vqpv6qd4gha4h27bfdkypcqa42h8wyxm2"))))
"1mas409c14p6g0v10w4cf5hsjbs0922h6h9k9pyj9s8y7yi2ikz2"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t
@ -12004,3 +12013,67 @@ for the GNOME 3.x platform with many features. It aims to be a very complete
editing environment for translation issues within the GNU gettext/GNOME desktop
world.")
(license license:gpl3+)))
(define-public ocrfeeder
(package
(name "ocrfeeder")
(version "0.8.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnome/sources/ocrfeeder/"
(version-major+minor version) "/"
"ocrfeeder-" version ".tar.xz"))
(sha256
(base32
"12f5gnq92ffnd5zaj04df7jrnsdz1zn4zcgpbf5p9qnd21i2y529"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after
'install 'wrap-program
(lambda* (#:key outputs #:allow-other-keys)
(let ((prog (string-append (assoc-ref outputs "out")
"/bin/" "ocrfeeder"))
(pylib (string-append (assoc-ref outputs "out")
"/lib/python"
,(version-major+minor
(package-version python))
"/site-packages")))
(wrap-program prog
`("PYTHONPATH" = (,(getenv "PYTHONPATH") ,pylib))
`("GI_TYPELIB_PATH" = (,(getenv "GI_TYPELIB_PATH"))))
#t))))))
(native-inputs
`(("glib:bin" ,glib "bin") ; for glib-compile-resources
("gobject-introspection" ,gobject-introspection)
("gtk+:bin" ,gtk+ "bin") ; for gtk-update-icon-cache
("intltool" ,intltool)
("itstool" ,itstool)
("pkg-config" ,pkg-config)
("xmllint" ,libxml2)))
(inputs
`(("enchant" ,enchant)
("glib" ,glib)
("goocanvas" ,goocanvas)
("gtk" ,gtk+)
("gtkspell3" ,gtkspell3)
("libjpeg" ,libjpeg-turbo)
("libtiff" ,libtiff)
("libraw" ,libraw)
("ocrad" ,ocrad)
("python" ,python-wrapper)
("python-pygobject" ,python-pygobject)
("python-odfpy" ,python-odfpy)
("python-pillow" ,python-pillow)
("python-pyenchant" ,python-pyenchant)
("python-reportlab" ,python-reportlab)
("python-sane" ,python-sane)
("sane-backends" ,sane-backends)
("tesseract-ocr" ,tesseract-ocr)))
(home-page "https://wiki.gnome.org/Apps/OCRFeeder")
(synopsis "Complete OCR Suite")
(description "OCRFeeder is a complete Optical Character Recognition and
Document Analysis and Recognition program.")
(license license:gpl3+)))

14
gnu/packages/gnuzilla.scm
View File

@ -694,8 +694,8 @@ from forcing GEXP-PROMISE."
#:system system
#:guile-for-build guile)))
(define %icecat-version "78.7.0-guix0-preview1")
(define %icecat-build-id "20210126000000") ;must be of the form YYYYMMDDhhmmss
(define %icecat-version "78.8.0-guix0-preview1")
(define %icecat-build-id "20210223000000") ;must be of the form YYYYMMDDhhmmss
;; 'icecat-source' is a "computed" origin that generates an IceCat tarball
;; from the corresponding upstream Firefox ESR tarball, using the 'makeicecat'
@ -717,7 +717,7 @@ from forcing GEXP-PROMISE."
"firefox-" upstream-firefox-version ".source.tar.xz"))
(sha256
(base32
"0hqnc98k4irq0lsp154binrl0c6kxy6xmab3ss9jwx6d53dl380s"))))
"0451hhjrj9hb6limxim7sbhvw4gs6dd2gmnfxjjx07z3wbgdzwhw"))))
(upstream-icecat-base-version "78.7.0") ; maybe older than base-version
;;(gnuzilla-commit (string-append "v" upstream-icecat-base-version))
@ -1305,11 +1305,11 @@ standards of the IceCat project.")
(cpe-version . ,(first (string-split version #\-)))))))
;; Update this together with icecat!
(define %icedove-build-id "20210205000000") ;must be of the form YYYYMMDDhhmmss
(define %icedove-build-id "20210223000000") ;must be of the form YYYYMMDDhhmmss
(define-public icedove
(package
(name "icedove")
(version "78.7.1")
(version "78.8.0")
(source icecat-source)
(properties
`((cpe-name . "thunderbird_esr")))
@ -1589,7 +1589,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 "1ef5b612ee43c806752ca215b142a9733210f3cc"))
,(let ((changeset "d801a94f25867ca5f2f3488c4700532351987999"))
(origin
(method hg-fetch)
(uri (hg-reference
@ -1598,7 +1598,7 @@ standards of the IceCat project.")
(file-name (string-append "thunderbird-" version "-checkout"))
(sha256
(base32
"0kpn6jvymryf2gpj0dl5lpgln8mc3kxi3makms0wb84aajn842jv")))))
"19h1s9qcxzcvbd1m07xajk5lhpikj53k5fp3nwvl38xj7a3s0gxw")))))
("autoconf" ,autoconf-2.13)
("cargo" ,rust "cargo")
("clang" ,clang)

79
gnu/packages/golang.scm
View File

@ -23,6 +23,7 @@
;;; Copyright © 2020 Marius Bakke <marius@gnu.org>
;;; Copyright © 2020 raingloom <raingloom@riseup.net>
;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net>
;;; Copyright © 2021 Ricardo Wurmus <rekado@elephly.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -4849,6 +4850,28 @@ data serialization format.")
directories. It is optimized for filewalking. ")
(license license:expat)))
(define-public go-github-com-mattn-go-sqlite3
(package
(name "go-github-com-mattn-go-sqlite3")
(version "1.14.6")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mattn/go-sqlite3")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"04anvqkc37mmc3z1dy4xfa6cas67zlxnnab0ywii7sylk864mhxz"))))
(build-system go-build-system)
(arguments
`(#:import-path "github.com/mattn/go-sqlite3"))
(home-page "https://github.com/mattn/go-sqlite3")
(synopsis "Sqlite3 driver for Go")
(description "This package provides a Sqlite3 driver for Go using
@code{database/sql}.")
(license license:expat)))
(define-public go-github-com-willf-bitset
(package
(name "go-github-com-willf-bitset")
@ -6644,6 +6667,31 @@ modifying them.")
@end itemize")
(license license:expat)))
(define-public go-github-com-tekwizely-go-parsing
(let ((commit "1548cfb17df54d365ce9febed0677c06a40a8ceb")
(revision "0"))
(package
(name "go-github-com-tekwizely-go-parsing")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/tekwizely/go-parsing")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0bv5amka8hb9crc7qvlzi2kbycqrnh9d46b9wgcs8wqzl0z7w609"))))
(build-system go-build-system)
(arguments
`(#:import-path "github.com/tekwizely/go-parsing"))
(home-page "https://github.com/tekwizely/go-parsing")
(synopsis "Text parsing, with lexers, parsers, and related tools")
(description
"This package provides Go modules focused on text parsing, with lexers,
parsers, and related tools.")
(license license:expat))))
(define-public go-github.com-ulikunitz-xz
(package
(name "go-github.com-ulikunitz-xz")
@ -6691,3 +6739,34 @@ compressed streams in Go.")
(synopsis "Go library to get configuration values from gitconfig")
(description "@{gitconfig} is a package to get configuration values from gitconfig.")
(license license:expat)))
(define-public go-github-com-operatorfoundation-ed25519
(let ((commit "b22b4bd3ddef042eec45f3ee135cd40281fde2b4")
(revision "0"))
(package
(name "go-github-com-operatorfoundation-ed25519")
(version (git-version "0.0.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/OperatorFoundation/ed25519")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0xrzqrjlghkgd1cy5rj4khryn4f59vas2vzrxc6d8jpj5ijf3xkv"))))
(build-system go-build-system)
(arguments
`(#:import-path "github.com/OperatorFoundation/ed25519"
#:phases
(modify-phases %standard-phases
(add-before 'install 'remove-test-data
(lambda* (#:key import-path #:allow-other-keys)
(delete-file-recursively
(string-append "src/" import-path "/testdata"))
#t)))))
(home-page "https://github.com/OperatorFoundation/ed25519")
(synopsis "Ed25519 for go")
(description "Package ed25519 implements the Ed25519 signature
algorithm.")
(license license:bsd-3))))

5
gnu/packages/gps.scm
View File

@ -149,7 +149,7 @@ between two other data points.")
(define-public gama
(package
(name "gama")
(version "2.13")
(version "2.14")
(source
(origin
(method url-fetch)
@ -157,11 +157,12 @@ between two other data points.")
version ".tar.gz"))
(sha256
(base32
"041cprbj4lfs42i7sd1c2zlx3r16g6c5shz3qls79gxb7kqflkgb"))
"04mhbgpqbynnmm8ww4k2yk1w2j66c276dns9xwn8cvrq58kjimln"))
(modules '((guix build utils)))
(snippet
'(begin
(delete-file-recursively "lib/expat")
(for-each delete-file (find-files "doc/fig" "\\.pdf$"))
#t))))
(build-system gnu-build-system)
(arguments '(#:parallel-tests? #f)) ; race condition

31
gnu/packages/graph.scm
View File

@ -2,7 +2,7 @@
;;; Copyright © 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018 Joshua Sierles, Nextjournal <joshua@nextjournal.com>
;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2020 Alexander Krotov <krotov@iitp.ru>
;;; Copyright © 2020 Pierre Langlois <pierre.langlos@gmx.com>
@ -151,7 +151,7 @@ lines.")
(define-public python-plotly
(package
(name "python-plotly")
(version "4.8.1")
(version "4.14.3")
(source (origin
(method git-fetch)
(uri (git-reference
@ -160,7 +160,7 @@ lines.")
(file-name (git-file-name name version))
(sha256
(base32
"08ab677gr85m10zhixr6dnmlfws8q6sra7nhyb8nf3r8dx1ffqhz"))))
"02wlgy7gf3v5ckiq9ab3prm53cckxkavlghqgkk9xw2sfmmrn61q"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -170,12 +170,14 @@ lines.")
(chdir "packages/python/plotly")
#t))
(replace 'check
(lambda _
(invoke "pytest" "-x" "plotly/tests/test_core")
(invoke "pytest" "-x" "plotly/tests/test_io")
;; FIXME: Add optional dependencies and enable their tests.
;; (invoke "pytest" "-x" "plotly/tests/test_optional")
(invoke "pytest" "_plotly_utils/tests")))
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "pytest" "-x" "plotly/tests/test_core")
(invoke "pytest" "-x" "plotly/tests/test_io")
;; FIXME: Add optional dependencies and enable their tests.
;; (invoke "pytest" "-x" "plotly/tests/test_optional")
(invoke "pytest" "_plotly_utils/tests"))
#t))
(add-before 'reset-gzip-timestamps 'make-files-writable
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
@ -183,16 +185,17 @@ lines.")
(find-files out "\\.gz"))
#t))))))
(native-inputs
`(("python-pytest" ,python-pytest)))
`(("python-ipywidgets" ,python-ipywidgets)
("python-pytest" ,python-pytest)
("python-xarray" ,python-xarray)))
(propagated-inputs
`(("python-decorator" ,python-decorator)
("python-ipywidgets" ,python-ipywidgets)
`(("python-ipython" ,python-ipython)
("python-pandas" ,python-pandas)
("python-pillow" ,python-pillow)
("python-requests" ,python-requests)
("python-retrying" ,python-retrying)
("python-six" ,python-six)
("python-statsmodels" ,python-statsmodels)
("python-xarray" ,python-xarray)))
("python-statsmodels" ,python-statsmodels)))
(home-page "https://plotly.com/python/")
(synopsis "Interactive plotting library for Python")
(description "Plotly's Python graphing library makes interactive,

42
gnu/packages/graphics.scm
View File

@ -24,6 +24,7 @@
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Gabriel Arazas <foo.dogsquared@gmail.com>
;;; Copyright © 2021 Antoine Côté <antoine.cote@posteo.net>
;;; Copyright © 2021 Andy Tai <atai@atai.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -74,6 +75,7 @@
#:use-module (gnu packages imagemagick)
#:use-module (gnu packages jemalloc)
#:use-module (gnu packages kde-frameworks)
#:use-module (gnu packages libusb)
#:use-module (gnu packages linux)
#:use-module (gnu packages lua)
#:use-module (gnu packages maths)
@ -97,6 +99,7 @@
#:use-module (gnu packages tbb)
#:use-module (gnu packages upnp)
#:use-module (gnu packages video)
#:use-module (gnu packages vulkan)
#:use-module (gnu packages xiph)
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg)
@ -317,7 +320,7 @@ minimum of resource usage and overhead.")
(synopsis "Interface description language")
(description "Flux is an interface description language used by DirectFB.
Fluxcomp compiles .flux files to .cpp or .c files.")
(home-page "http://www.directfb.org/")
(home-page "https://www.directfb.org/")
(license license:lgpl2.1+))) ; Same as DirectFB
(define-public fox
@ -1914,3 +1917,40 @@ Some feature highlights:
@item Automatic port forwarding with UPnP
@end itemize\n")
(license license:gpl3+))))
(define-public monado
(package
(name "monado")
(version "21.0.0")
(source (origin
(method url-fetch)
(uri (string-append "https://gitlab.freedesktop.org/" name "/"
name "/-/archive/v" version "/"
name "-v" version ".tar.bz2"))
(sha256
(base32
"0n04k7a8b0i8ga0kbzh7qxmvni1ijawgk98s83519vxg4d0yyjbq"))))
(build-system meson-build-system)
(inputs
`(("ffmpeg" ,ffmpeg)
("glslang" ,glslang)
("libudev" ,eudev)
("libusb" ,libusb)
("libxcb" ,libxcb)
("libxrandr" ,libxrandr)
("opengl" ,mesa)
("v4l" ,v4l-utils)
("vulkan-loader" ,vulkan-loader)))
(native-inputs
`(("eigen" ,eigen)
("pkg-config" ,pkg-config)
("vulkan-headers" ,vulkan-headers)))
(arguments
`(#:configure-flags
(list "-Dinstall-active-runtime=false")))
(home-page "https://monado.freedesktop.org/")
(synopsis "OpenXR runtime")
(description "Monado is an OpenXR runtime delivering immersive experiences
such as VR and AR on mobile, PC/desktop, and any other device. Monado aims to be
a complete and conforming implementation of the OpenXR API made by Khronos.")
(license license:boost1.0)))

2
gnu/packages/gstreamer.scm
View File

@ -989,7 +989,7 @@ be used by Python applications using GStreamer.")
("gst-plugins-base" ,gst-plugins-base)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "http://space.twc.de/~stefan/gst123.php")
(home-page "https://space.twc.de/~stefan/gst123.php")
(synopsis "Flexible command line media player based on gstreamer")
(description "The program gst123 is designed to be a more flexible command
line player in the spirit of ogg123 and mpg123, based on the gstreamer media

25
gnu/packages/gtk.scm
View File

@ -25,6 +25,7 @@
;;; Copyright © 2020 Brendan Tildesley <mail@brendan.scot>
;;; Copyright © 2020 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Leo Famulari <leo@famulari.name>
;;;
;;; This file is part of GNU Guix.
;;;
@ -2248,3 +2249,27 @@ foreground and background colors, text justification and more.")
(variable "GLADE_MODULE_SEARCH_PATH")
(files '("lib/glade/modules")))))
(license license:lgpl2.0+)))
(define-public gtkdatabox
(package
(name "gtkdatabox")
(version "0.9.3.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/gtkdatabox/gtkdatabox/"
version "/gtkdatabox-" version ".tar.gz"))
(sha256
(base32
"1rdxnjgh6v3yjqgsfmamyzpfxckzchps4kqvvz88nifmd7ckhjfh"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("gtk+-2" ,gtk+-2)))
(synopsis "Display widget for dynamic data")
(description "GtkDatabox is a widget for live display of large amounts of
fluctuating numerical data. It enables data presentation (for example, on
linear or logarithmic scales, as dots or lines, with markers/labels) as well as
user interaction (e.g. measuring distances).")
(home-page "https://sourceforge.net/projects/gtkdatabox/")
(license license:lgpl2.1+)))

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

@ -32,7 +32,7 @@
;;; Copyright © 2020 Jesse Gibbons <jgibbons2357@gmail.com>
;;; Copyright © 2020 Mike Rosset <mike.rosset@gmail.com>
;;; Copyright © 2020 Leo Prikler <leo.prikler@student.tugraz.at>
;;; Copyright © 2020 pukkamustard <pukkamustard@posteo.net>
;;; Copyright © 2020, 2021 pukkamustard <pukkamustard@posteo.net>
;;; Copyright © 2021 Bonface Munyoki Kilyungi <me@bonfacemunyoki.com>
;;;
;;; This file is part of GNU Guix.
@ -464,16 +464,16 @@ you send to a FIFO file.")
(define-public guile-dsv
(package
(name "guile-dsv")
(version "0.3.0")
(version "0.4.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/artyom-poptsov/guile-dsv")
(commit "6c867915dc4198eacc548a4834ef0e1aef852795")))
(commit (string-append "v" version))))
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
"1mxbbcsmbjfnh4yydqz44ihbkdnzdwz38xanaam128arlb7hwr8n"))))
"1mvyc8i38j56frjh3p6vwziv8lrzlyqndz30663h5nwcp0044sdn"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
@ -489,14 +489,6 @@ you send to a FIFO file.")
#:imported-modules ((guix build guile-build-system)
,@%gnu-build-system-modules)
#:phases (modify-phases %standard-phases
;; Support Guile 3.0 in configure from upstream commit
;; 4c724577ccf19bb88580f72f2f6b166a0447ce3f
(add-before 'bootstrap 'configure-support-guile3.0
(lambda _
(substitute* "configure.ac"
(("GUILE_PKG.*")
"GUILE_PKG([3.0 2.0 2.2])"))
#t))
(add-before 'configure 'set-guilesitedir
(lambda _
(substitute* "Makefile.in"
@ -1009,8 +1001,8 @@ convenient nested tree operations.")
(license license:gpl3+)))
(define-public guile-simple-zmq
(let ((commit "f8b7d81afb38525750f8818ed2956ca18c828ee8")
(revision "5"))
(let ((commit "e9446173280117e98ab4208e2aa5273128650e19")
(revision "8"))
(package
(name "guile-simple-zmq")
(version (git-version "0.0.0" revision commit))
@ -1022,23 +1014,20 @@ convenient nested tree operations.")
(commit commit)))
(sha256
(base32
"1gpzlpcq7bxw7sxyrg8zslwb3631vizw56lgg1aavw4gafh0hxb3"))
"1nhlp5kl1095k1irvv0kgdbc7lp5qki3d3wg9rla6f7822hkmrzw"))
(file-name (git-file-name name version))))
(build-system guile-build-system)
(build-system gnu-build-system)
(arguments
`(#:source-directory "src"
#:phases (modify-phases %standard-phases
(add-after 'unpack 'set-libzmq-file-name
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/simple-zmq.scm"
(("\\(dynamic-link \"libzmq\"\\)")
(format #f "(dynamic-link \"~a/lib/libzmq.so\")"
(assoc-ref inputs "zeromq"))))
#t)))))
'(#:make-flags
'("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
(native-inputs
`(("guile" ,guile-3.0)))
(inputs
`(("zeromq" ,zeromq)))
`(("autoconf" ,autoconf)
("automake" ,automake)
("pkg-config" ,pkg-config)
("zeromq" ,zeromq)))
(home-page "https://github.com/jerry40/guile-simple-zmq")
(synopsis "Guile wrapper over ZeroMQ library")
(description
@ -1308,16 +1297,27 @@ Scheme by using Guile’s foreign function interface.")
(file-name (git-file-name name version))
(sha256
(base32
"1vblf3d1bbwna3l09p2ap5y8ycvl549bz6whgk78imyfmn28ygry"))))
"1vblf3d1bbwna3l09p2ap5y8ycvl549bz6whgk78imyfmn28ygry"))
(modules '((guix build utils)))
(snippet
'(begin
;; Allow builds with Guile 3.0.
(substitute* "configure.ac"
(("^PKG_CHECK.*") "")
(("^GUILE_PKG.*")
"GUILE_PKG([3.0 2.2])\n"))
#t))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("pkg-config" ,pkg-config)))
("emacs" ,emacs-minimal)
("pkg-config" ,pkg-config)
("texinfo" ,texinfo)))
(inputs
`(("guile" ,guile-2.2)
`(("guile" ,guile-3.0)
("gnutls" ,gnutls)
("guile-json" ,guile-json-1)))
("guile-json" ,guile-json-4)))
(home-page "https://framagit.org/prouby/guile-mastodon")
(synopsis "Guile Mastodon REST API module")
(description "This package provides Guile modules to access the
@ -4560,3 +4560,32 @@ ffi-helper from nyacc.")
for C++ code using a simple embedded DSL. Think of it as @code{Boost.Python}
or @code{LuaBind} but for Scheme.")
(license license:boost1.0))))
(define-public guile-cbor
(package
(name "guile-cbor")
(version "0.1.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://inqlab.net/git/guile-cbor.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256 (base32 "0bdqg3ifayf7m2j09lqrgdfprbdaa67azf09bcq9b4k71inxfnxl"))))
(build-system gnu-build-system)
(arguments `())
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("pkg-config" ,pkg-config)
("texinfo" ,texinfo)))
(inputs `(("guile" ,guile-3.0)))
(synopsis "Guile implementation of CBOR")
(description
"The Concise Binary Object Representation (CBOR), as specified by RFC 8949, is
a binary data serialization format. CBOR is similar to JSON but serializes to
binary which is smaller and faster to generate and parse. This package provides
a Guile implementation of CBOR.")
(home-page "https://inqlab.net/git/guile-cbor.git")
(license license:gpl3+)))

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

@ -15,6 +15,8 @@
;;; Copyright © 2019, 2020 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2020 Alexandru-Sergiu Marton <brown121407@member.fsf.org>
;;; Copyright © 2020 Brian Leung <bkleung89@gmail.com>
;;; Copyright © 2021 EuAndreh <eu@euandre.org>
;;; Copyright © 2021 Stefan Reichör <stefan@xsteve.at>
;;;
;;; This file is part of GNU Guix.
;;;
@ -49,7 +51,8 @@
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages rsync)
#:use-module (gnu packages version-control))
#:use-module (gnu packages version-control)
#:use-module (gnu packages xorg))
(define-public apply-refact
(package
@ -339,14 +342,14 @@ to @code{cabal repl}).")
(define-public git-annex
(package
(name "git-annex")
(version "8.20210127")
(version "8.20210223")
(source
(origin
(method url-fetch)
(uri (string-append "https://hackage.haskell.org/package/"
"git-annex/git-annex-" version ".tar.gz"))
(sha256
(base32 "1hsmaw70lfza1g5j6b9zbwqkkr374m18p7qb4nl952pj42a46vv3"))))
(base32 "07wxf44pdh9d1pxqympgyfbkk8vk0pqbgxma0mkadlkdr6c9z832"))))
(build-system haskell-build-system)
(arguments
`(#:configure-flags
@ -690,6 +693,69 @@ By operating at a lower level than most similar tools, it supports X11,
Wayland, and Linux console environments alike.")
(license license:expat)))
(define-public nixfmt
(package
(name "nixfmt")
(version "0.4.0")
(source
(origin
(method url-fetch)
(uri (string-append
"https://hackage.haskell.org/package/nixfmt/nixfmt-"
version
".tar.gz"))
(sha256
(base32 "1ispgl8rc2scr6v8bb6sks7px856jf61x74zj2iyddrn5qamkb3n"))))
(build-system haskell-build-system)
(inputs
`(("ghc-megaparsec" ,ghc-megaparsec)
("ghc-parser-combinators" ,ghc-parser-combinators)
("ghc-cmdargs" ,ghc-cmdargs)
("ghc-safe-exceptions" ,ghc-safe-exceptions)))
(arguments
`(#:cabal-revision
("1" "1hsj0jh6siph3afd9c2wii09sffl48rzqv653n4clpd8qy0rn48d")))
(home-page "https://github.com/serokell/nixfmt")
(synopsis "Opinionated formatter for Nix")
(description
"Nixfmt is a formatter for Nix that ensures consistent and clear
formatting by forgetting all existing formatting during parsing.")
(license license:mpl2.0)))
(define-public greenclip
(package
(name "greenclip")
(version "3.4")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/erebe/greenclip")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1baw360dcnyavacf7a8v6wq4m5g6bcmyybkckv4cz7r4xl5p3qws"))))
(build-system haskell-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))
(inputs
`(("libx11" ,libx11)
("libxext" ,libxext)
("libxscrnsaver" ,libxscrnsaver)
("ghc-x11" ,ghc-x11)
("ghc-exceptions" ,ghc-exceptions)
("ghc-hashable" ,ghc-hashable)
("ghc-microlens" ,ghc-microlens)
("ghc-microlens-mtl" ,ghc-microlens-mtl)
("ghc-protolude" ,ghc-protolude-0.3)
("ghc-vector" ,ghc-vector)
("ghc-wordexp" ,ghc-wordexp)))
(home-page "https://github.com/erebe/greenclip")
(synopsis "Simple Clipboard manager")
(description "@code{greenclip} is a clipboard manager written in
Haskell.")
(license license:bsd-3)))
(define-public raincat
(package
(name "raincat")

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

@ -24,7 +24,7 @@
;;; Copyright © 2019 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2020 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2020 JoJo <jo@jo.zone>
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Alexandru-Sergiu Marton <brown121407@member.fsf.org>
;;; Copyright © 2020 Carlo Holl <carloholl@gmail.com>
;;; Copyright © 2020 Christopher Lemmer Webber <cwebber@dustycloud.org>
@ -6432,7 +6432,7 @@ monads with anaphoric variants on @code{if} and @code{when} and a C-like
(native-inputs
`(("ghc-tasty" ,ghc-tasty)
("ghc-tasty-hunit" ,ghc-tasty-hunit)))
(home-page "http://patch-tag.com/r/salazar/indents")
(home-page "https://github.com/jaspervdj/indents")
(synopsis "Indentation sensitive parser-combinators for parsec")
(description
"This library provides functions for use in parsing indentation sensitive
@ -10559,6 +10559,22 @@ the ideal templating system.")
replace the standard one provided by GHC.")
(license license:expat)))
(define-public ghc-protolude-0.3
(package
(inherit ghc-protolude)
(name "ghc-protolude")
(version "0.3.0")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://hackage/package/protolude/protolude-"
version
".tar.gz"))
(sha256
(base32
"1b6wprbwfdjyvds2bm6na0fbqgzdkj5ikkk33whbkyh3krd3i0s0"))))))
(define-public ghc-psqueue
(package
(name "ghc-psqueue")
@ -15168,6 +15184,30 @@ modernized interface.")
(description "Word8 library to be used with @code{Data.ByteString}.")
(license license:bsd-3)))
(define-public ghc-wordexp
(package
(name "ghc-wordexp")
(version "0.2.2")
(source
(origin
(method url-fetch)
(uri (string-append
"https://hackage.haskell.org/package/wordexp/wordexp-"
version
".tar.gz"))
(sha256
(base32
"1mbcrq89jz0dcibw66w0jdy4f4bfpx4zwjfs98rm3jjgdikwdzb4"))))
(build-system haskell-build-system)
(native-inputs `(("ghc-c2hs" ,ghc-c2hs)))
(inputs
`(("ghc-semigroups" ,ghc-semigroups)))
(home-page "https://hackage.haskell.org/package/wordexp")
(synopsis "Library wrapping @code{wordexp} for Haskell")
(description "@code{wordexp(3)} wrapper library for Haskell to perform
word expansion like a posix-shell.")
(license license:bsd-3)))
(define-public ghc-x11
(package
(name "ghc-x11")

2
gnu/packages/heads.scm
View File

@ -193,5 +193,5 @@ done
(synopsis "@file{dev.cpio} for Heads")
(description "This package provides a @file{dev.cpio} file usable as a
base for heads' initrd.")
(home-page "http://osresearch.net/")
(home-page "https://osresearch.net/")
(license license:bsd-2)))

34
gnu/packages/i2p.scm
View File

@ -30,7 +30,7 @@
(define-public i2pd
(package
(name "i2pd")
(version "2.31.0")
(version "2.36.0")
(source
(origin
(method git-fetch)
@ -39,7 +39,7 @@
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1q2gxz041ha9n5lfn91iy11sdf3z7d806vcq4z43m7lf92m7i4nn"))))
(base32 "0gx7y0vrg9lsl7m1r6c8xyyqmaqn900kms4g0941g0gd5zdb0mvz"))))
(build-system cmake-build-system)
(inputs `(("boost" ,boost)
("miniupnpc" ,miniupnpc)
@ -66,39 +66,13 @@
"./tests")
(with-directory-excursion "tests"
(substitute* "Makefile"
(("../libi2pd/") (string-append source "/libi2pd/"))
;; Disable the x25519 test, which only compiles if
;; openssl doesn't have X25519 support, but the
;; version we use has it.
(("test-base-64 test-x25519 test-aeadchacha20poly1305")
"test-base-64 test-aeadchacha20poly1305"))
(("../libi2pd/") (string-append source "/libi2pd/")))
(apply invoke "make" "all"
`(,@(if parallel-tests?
`("-j" ,(number->string
(parallel-job-count)))
'())
,@make-flags))))))
(add-after 'install 'install-headers
(lambda* (#:key outputs #:allow-other-keys)
(let* ((install-dir (assoc-ref outputs "out"))
(src-dir (string-append install-dir "/src"))
(include-dir
(string-append install-dir "/include")))
(mkdir-p include-dir)
;; This is the only header file that's relevant to the
;; public interface.
;; <https://github.com/PurpleI2P/i2pd/issues/1378>
(install-file (string-append src-dir "/api.h")
include-dir)
#t)))
(add-after 'install-headers 'remove-source
(lambda* (#:key outputs #:allow-other-keys)
(let* ((install-dir (assoc-ref outputs "out"))
(src-dir (string-append install-dir "/src")))
(delete-file-recursively src-dir)
(delete-file (string-append install-dir
"/LICENSE"))
#t))))))
,@make-flags)))))))))
(home-page "https://i2pd.website/")
(synopsis "Router for an end-to-end encrypted and anonymous internet")
(description "i2pd is a client for the anonymous I2P network, upon which

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

@ -16,6 +16,7 @@
;;; Copyright © 2020 R Veera Kumar <vkor@vkten.in>
;;; Copyright © 2020 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2021 Rovanion Luckey <rovanion.luckey@gmail.com>
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;;
;;; This file is part of GNU Guix.
;;;
@ -76,7 +77,7 @@
(define-public feh
(package
(name "feh")
(version "3.6.2")
(version "3.6.3")
(home-page "https://feh.finalrewind.org/")
(source (origin
(method url-fetch)
@ -84,7 +85,7 @@
name "-" version ".tar.bz2"))
(sha256
(base32
"0d66qz9h37pk8h10bc918hbv3j364vyni934rlw2j951s5wznj8n"))))
"1d13x8hmvpdc5f5rj4l29ha7iz7wvqxjlvh6il04wq8igzrj0x23"))))
(build-system gnu-build-system)
(arguments
'(#:phases (modify-phases %standard-phases (delete 'configure))

98
gnu/packages/image.scm
View File

@ -28,7 +28,8 @@
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020 Zhu Zihao <all_but_last@163.com>
;;; Copyright © 2020 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2020, 2021 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2021 Sharlatan Hellseher <sharlatanus@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1369,34 +1370,6 @@ and XMP metadata of images in various formats.")
;; <https://launchpad.net/ubuntu/precise/+source/exiv2/+copyright>.
(license license:gpl2+)))
(define-public exiv2-0.26
(package
(inherit exiv2)
(version "0.26")
(source (origin
(method url-fetch)
(uri (list (string-append "https://www.exiv2.org/builds/exiv2-"
version "-trunk.tar.gz")
(string-append "https://www.exiv2.org/exiv2-"
version ".tar.gz")
(string-append "https://fossies.org/linux/misc/exiv2-"
version ".tar.gz")))
(patches (search-patches "exiv2-CVE-2017-14860.patch"
"exiv2-CVE-2017-14859-14862-14864.patch"))
(sha256
(base32
"1yza317qxd8yshvqnay164imm0ks7cvij8y8j86p1gqi1153qpn7"))))
(build-system gnu-build-system)
(arguments '(#:tests? #f)) ; no `check' target
(propagated-inputs
`(("expat" ,expat)
("zlib" ,zlib)))
(native-inputs
`(("intltool" ,intltool)))
;; People should rely on the newer version, so don't expose it.
(properties `((hidden? . #t)))))
(define-public devil
(package
(name "devil")
@ -1437,7 +1410,7 @@ convert, manipulate, filter and display a wide variety of image formats.")
(define-public jasper
(package
(name "jasper")
(version "2.0.23")
(version "2.0.25")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1446,7 +1419,7 @@ convert, manipulate, filter and display a wide variety of image formats.")
(file-name (git-file-name name version))
(sha256
(base32
"1fccpss5ii9rnsd2pkg6k7mkckwpfi8dgp64qzqv3zp1vs2nffw6"))))
"06s6z7qrcnbi9mbj2d0a6k7lxbjdh3ppjpx8bcdv73lxhm4z7pzr"))))
(build-system cmake-build-system)
(inputs
`(("libjpeg" ,libjpeg-turbo)))
@ -1598,6 +1571,39 @@ PNG, and performs PNG integrity checks and corrections.")
(home-page "http://optipng.sourceforge.net/")
(license license:zlib)))
(define-public imgp
(package
(name "imgp")
(version "2.8")
(source
(origin
(method url-fetch)
(uri (pypi-uri "imgp" version))
(sha256
(base32 "0q99h9wv9rynig0s0flnr9mxi541zzl0gw8vh4y6m5x132diilri"))))
(build-system python-build-system)
(arguments
`(#:tests? #f ;there are no tests
#:phases
(modify-phases %standard-phases
;; setup.py expects the file to be named 'imgp'.
(add-after 'unpack 'rename-imgp
(lambda _
(rename-file "imgp.py" "imgp")
#t)))))
(inputs
`(("python-pillow" ,python-pillow)))
(home-page "https://github.com/jarun/imgp")
(synopsis "High-performance CLI batch image resizer & rotator")
(description
"@code{imgp} is a command line image resizer and rotator for JPEG and PNG
images. It can resize (or thumbnail) and rotate thousands of images in a go
while saving significantly on storage.
This package may optionally be built with @code{python-pillow-simd} in place
of @{python-pillow} for SIMD parallelism.")
(license license:gpl3+)))
(define-public pngsuite
(package
(name "pngsuite")
@ -1838,6 +1844,36 @@ Features:
@end itemize\n")
(license license:gpl3+)))
(define-public swappy
(package
(name "swappy")
(version "1.2.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jtheoof/swappy")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "14ac2jmnak7avcz0jhqjm30vk7pv3gq5aq5rdyh84k8c613kkicf"))))
(build-system meson-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
("scdoc" ,scdoc)
("glib" ,glib "bin"))) ; for 'glib-compile-resources'
(inputs
`(("gtk+" ,gtk+)
("libnotify" ,libnotify)))
(home-page "https://github.com/jtheoof/swappy")
(synopsis "Grab and edit on the fly snapshots of a Wayland compositor")
(description
"@command{swappy} is a command-line utility to take and edit screenshots
of Wayland desktops. Works great with grim, slurp and sway. But can easily
work with other screen copy tools that can output a final PNG image to
stdout.")
(license license:expat)))
(define-public gifsicle
(package
(name "gifsicle")

29
gnu/packages/installers.scm
View File

@ -92,13 +92,23 @@
;; for native toolchain
(setenv env-name
(filter-delimited-string env-val (negate mingw-path?)))
;; Add the removed paths back into
;; CROSS_-prefixed version of env vars
;; Add the removed paths back into CROSS_-prefixed
;; version of env vars
(setenv (string-append "CROSS_" env-name)
(filter-delimited-string env-val mingw-path?))))
'("CPATH" "LIBRARY_PATH"))
'("C_INCLUDE_PATH" "CPLUS_INCLUDE_PATH" "LIBRARY_PATH"))
;; Hack to place mingw-w64 path at the end of search
;; paths. Could probably use a specfile and dirafter
(setenv "CROSS_C_INCLUDE_PATH"
(string-join
`(,@(map (cut string-append
(assoc-ref %build-inputs "xgcc")
"/lib/gcc/" ,triplet "/"
,(package-version xgcc) <>)
'("/include"
"/include-fixed"))
,(getenv "CROSS_C_INCLUDE_PATH"))
":"))
(setenv "CROSS_CPLUS_INCLUDE_PATH"
(string-join
`(,@(map (cut string-append (assoc-ref %build-inputs "xgcc") <>)
@ -108,21 +118,20 @@
,@(map (cut string-append "/lib/gcc/" ,triplet "/" ,(package-version xgcc) <>)
'("/include"
"/include-fixed"))))
,(getenv "CROSS_CPATH"))
,(getenv "CROSS_CPLUS_INCLUDE_PATH"))
":"))))
(add-before 'build 'fix-target-detection
(lambda _
;; NSIS target detection is screwed up, manually
;; change it ourselves
;; NSIS target detection is screwed up, manually change
;; it ourselves
(substitute* "Source/build.cpp" (("m_target_type=TARGET_X86ANSI")
(string-append "m_target_type=" ,nsis-target-type))))))))
(home-page "http://nsis.sourceforge.net/")
(synopsis "A professional open source system to create Windows installers")
(description
"NSIS (Nullsoft Scriptable Install System) is a professional open
source system to create Windows installers. It is designed to be as small and
flexible as possible and is therefore very suitable for internet
distribution.")
"NSIS (Nullsoft Scriptable Install System) is a professional open source
system to create Windows installers. It is designed to be as small and flexible
as possible and is therefore very suitable for internet distribution.")
(license (license:non-copyleft "file://COPYING"
"See COPYING in the distribution.")))))

6
gnu/packages/ipfs.scm
View File

@ -2,7 +2,7 @@
;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019, 2020 Martin Becze <mjbecze@riseup.net>
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de>
;;;
;;; This file is part of GNU Guix.
;;;
@ -214,7 +214,7 @@ written in Go.")
(define-public go-ipfs
(package
(name "go-ipfs")
(version "0.7.0")
(version "0.8.0")
(source
(origin
(method url-fetch/tarbomb)
@ -222,7 +222,7 @@ written in Go.")
"https://dist.ipfs.io/go-ipfs/v" version
"/go-ipfs-source.tar.gz"))
(sha256
(base32 "1fkzwm4qxxpmbjammk6s5qcyjxivfa0ydqz4mpz1w756c4jq0jf3"))
(base32 "0k2qzlfz8ks9c70rxsy7jvk6d2s6yll1b8v9k2kcw07r989gxbdq"))
(file-name (string-append name "-" version "-source"))))
(build-system go-build-system)
(arguments

5
gnu/packages/java-compression.scm
View File

@ -99,6 +99,11 @@
(copy-recursively "src/main/resources/org/xerial/snappy/native"
"build/classes/org/xerial/snappy/native")
#t))
(add-before 'build 'set-test-memory-size
(lambda _
(substitute* "build.xml"
(("<junit printsummary=") "<junit maxmemory=\"2G\" printsummary="))
#t))
(add-before 'check 'fix-failing
(lambda _
(with-directory-excursion "src/test/java/org/xerial/snappy"

299
gnu/packages/java.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
;;; Copyright © 2016, 2017 Roel Janssen <roel@gnu.org>
;;; Copyright © 2017, 2019 Carlo Zancanaro <carlo@zancanaro.id.au>
@ -10,7 +10,7 @@
;;; Copyright © 2018, 2019 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2018 Chris Marusich <cmmarusich@gmail.com>
;;; Copyright © 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019, 2020 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
;;; Copyright © 2019, 2020, 2021 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020 Raghav Gururajan <raghavgururajan@disroot.org>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
@ -1881,10 +1881,10 @@ new Date();"))
"01ihmyf7k5z17wbr7xig7y40l9f01d5zjgkcmawn1102hw5kchpq"))
(modules '((guix build utils)))
(snippet
`(begin
(for-each delete-file
(find-files "." ".*.(bin|exe|jar)$"))
#t))))
`(begin
(for-each delete-file
(find-files "." ".*.(bin|exe|jar)$"))
#t))))
(build-system gnu-build-system)
(outputs '("out" "jdk" "doc"))
(arguments
@ -1928,6 +1928,33 @@ new Date();"))
(number->string (parallel-job-count))))
'())
,@make-flags))))
(add-after 'unpack 'patch-jni-libs
;; Hardcode dynamically loaded libraries.
(lambda _
(let* ((library-path (search-path-as-string->list
(getenv "LIBRARY_PATH")))
(find-library (lambda (name)
(search-path
library-path
(string-append "lib" name ".so")))))
(for-each
(lambda (file)
(catch 'decoding-error
(lambda ()
(substitute* file
(("VERSIONED_JNI_LIB_NAME\\(\"(.*)\", \"(.*)\"\\)"
_ name version)
(format #f "\"~a\"" (find-library name)))
(("JNI_LIB_NAME\\(\"(.*)\"\\)" _ name)
(format #f "\"~a\"" (find-library name)))))
(lambda _
;; Those are safe to skip.
(format (current-error-port)
"warning: failed to substitute: ~a~%"
file))))
(find-files "."
"\\.c$|\\.h$"))
#t)))
;; Some of the libraries in the lib/ folder link to libjvm.so.
;; But that shared object is located in the server/ folder, so it
;; cannot be found. This phase creates a symbolic link in the
@ -1941,9 +1968,9 @@ new Date();"))
(add-after 'install 'install-libjvm
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((lib-out (string-append (assoc-ref outputs "out")
"/lib"))
"/lib"))
(lib-jdk (string-append (assoc-ref outputs "jdk")
"/lib")))
"/lib")))
(symlink (string-append lib-jdk "/server/libjvm.so")
(string-append lib-jdk "/libjvm.so"))
(symlink (string-append lib-out "/server/libjvm.so")
@ -1973,11 +2000,11 @@ new Date();"))
(unless (eq? (stat:type s) 'symlink)
(format #t "reset ~a~%" file)
(utime file 0 0 0 0))))
(find-files dir #:directories? #t))
(find-files dir #:directories? #t))
(with-directory-excursion dir
(let ((files (find-files "." ".*" #:directories? #t)))
(apply invoke "zip" "-0" "-X" zip files)))))
(find-files (assoc-ref outputs "doc") ".*.zip$"))
(find-files (assoc-ref outputs "doc") ".*.zip$"))
#t)))))
(inputs
`(("alsa-lib" ,alsa-lib)
@ -2027,32 +2054,32 @@ new Date();"))
"openjdk-10-idlj-reproducibility.patch"))
(modules '((guix build utils)))
(snippet
`(begin
(for-each delete-file (find-files "." ".*.(bin|exe|jar)$"))
#t))))
`(begin
(for-each delete-file (find-files "." ".*.(bin|exe|jar)$"))
#t))))
(arguments
(substitute-keyword-arguments (package-arguments openjdk9)
((#:phases phases)
`(modify-phases ,phases
(replace 'fix-java-shebangs
(lambda _
;; This file was "fixed" by patch-source-shebangs, but it requires
;; this exact first line.
(substitute* "make/data/blacklistedcertsconverter/blacklisted.certs.pem"
(("^#!.*") "#! java BlacklistedCertsConverter SHA-256\n"))
#t))
(replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys)
(invoke "bash" "./configure"
(string-append "--with-freetype=" (assoc-ref inputs "freetype"))
"--disable-freetype-bundling"
"--disable-warnings-as-errors"
"--disable-hotspot-gtest"
"--with-giflib=system"
"--with-libjpeg=system"
"--with-native-debug-symbols=zipped"
(string-append "--prefix=" (assoc-ref outputs "out")))
#t))))))
(substitute-keyword-arguments (package-arguments openjdk9)
((#:phases phases)
`(modify-phases ,phases
(replace 'fix-java-shebangs
(lambda _
;; This file was "fixed" by patch-source-shebangs, but it requires
;; this exact first line.
(substitute* "make/data/blacklistedcertsconverter/blacklisted.certs.pem"
(("^#!.*") "#! java BlacklistedCertsConverter SHA-256\n"))
#t))
(replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys)
(invoke "bash" "./configure"
(string-append "--with-freetype=" (assoc-ref inputs "freetype"))
"--disable-freetype-bundling"
"--disable-warnings-as-errors"
"--disable-hotspot-gtest"
"--with-giflib=system"
"--with-libjpeg=system"
"--with-native-debug-symbols=zipped"
(string-append "--prefix=" (assoc-ref outputs "out")))
#t))))))
(native-inputs
`(("openjdk9" ,openjdk9)
("openjdk9:jdk" ,openjdk9 "jdk")
@ -2074,9 +2101,9 @@ new Date();"))
"0v705w1s9lrqalzahir78pk397rkk9gfvzq821yv8h3xha0bqi6w"))
(modules '((guix build utils)))
(snippet
`(begin
(for-each delete-file (find-files "." ".*.(bin|exe|jar)$"))
#t))))
`(begin
(for-each delete-file (find-files "." ".*.(bin|exe|jar)$"))
#t))))
(build-system gnu-build-system)
(outputs '("out" "jdk" "doc"))
(arguments
@ -2112,6 +2139,33 @@ new Date();"))
(substitute* "make/data/blacklistedcertsconverter/blacklisted.certs.pem"
(("^#!.*") "#! java BlacklistedCertsConverter SHA-256\n"))
#t))
(add-after 'unpack 'patch-jni-libs
;; Hardcode dynamically loaded libraries.
(lambda _
(let* ((library-path (search-path-as-string->list
(getenv "LIBRARY_PATH")))
(find-library (lambda (name)
(search-path
library-path
(string-append "lib" name ".so")))))
(for-each
(lambda (file)
(catch 'decoding-error
(lambda ()
(substitute* file
(("VERSIONED_JNI_LIB_NAME\\(\"(.*)\", \"(.*)\"\\)"
_ name version)
(format #f "\"~a\"" (find-library name)))
(("JNI_LIB_NAME\\(\"(.*)\"\\)" _ name)
(format #f "\"~a\"" (find-library name)))))
(lambda _
;; Those are safe to skip.
(format (current-error-port)
"warning: failed to substitute: ~a~%"
file))))
(find-files "."
"\\.c$|\\.h$"))
#t)))
(add-before 'build 'write-source-revision-file
(lambda _
(with-output-to-file ".src-rev"
@ -2162,9 +2216,9 @@ new Date();"))
(add-after 'install 'install-libjvm
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((lib-out (string-append (assoc-ref outputs "out")
"/lib"))
"/lib"))
(lib-jdk (string-append (assoc-ref outputs "jdk")
"/lib")))
"/lib")))
(symlink (string-append lib-jdk "/server/libjvm.so")
(string-append lib-jdk "/libjvm.so"))
(symlink (string-append lib-out "/server/libjvm.so")
@ -2184,8 +2238,8 @@ new Date();"))
(for-each (lambda (file)
(substitute* file
(((string-append "This file was generated "
"AUTOMATICALLY from a template "
"file.*"))
"AUTOMATICALLY from a template "
"file.*"))
(string-append "This file was generated "
"AUTOMATICALLY from a template "
"file"))))
@ -2199,24 +2253,24 @@ new Date();"))
(ice-9 binary-ports)
(rnrs bytevectors))
(letrec ((repack-archive
(lambda (archive)
(let ((dir (mkdtemp! "zip-contents.XXXXXX")))
(with-directory-excursion dir
(invoke "unzip" archive))
(delete-file archive)
(for-each (compose repack-archive canonicalize-path)
(find-files dir "(ct.sym|.*.jar)$"))
(let ((reset-file-timestamp
(lambda (file)
(let ((s (lstat file)))
(unless (eq? (stat:type s) 'symlink)
(format #t "reset ~a~%" file)
(utime file 0 0 0 0))))))
(for-each reset-file-timestamp
(find-files dir #:directories? #t)))
(with-directory-excursion dir
(let ((files (find-files "." ".*" #:directories? #t)))
(apply invoke "zip" "-0" "-X" archive files)))))))
(lambda (archive)
(let ((dir (mkdtemp! "zip-contents.XXXXXX")))
(with-directory-excursion dir
(invoke "unzip" archive))
(delete-file archive)
(for-each (compose repack-archive canonicalize-path)
(find-files dir "(ct.sym|.*.jar)$"))
(let ((reset-file-timestamp
(lambda (file)
(let ((s (lstat file)))
(unless (eq? (stat:type s) 'symlink)
(format #t "reset ~a~%" file)
(utime file 0 0 0 0))))))
(for-each reset-file-timestamp
(find-files dir #:directories? #t)))
(with-directory-excursion dir
(let ((files (find-files "." ".*" #:directories? #t)))
(apply invoke "zip" "-0" "-X" archive files)))))))
(for-each repack-archive
(find-files (assoc-ref outputs "doc") ".*.zip$"))
(for-each repack-archive
@ -2239,21 +2293,21 @@ new Date();"))
(content-length
(- (stat:size (stat file))
header-length)))
(sendfile temp-file file content-length header-length)
(delete-file file-name)
(close-port temp-file)
(repack-archive (canonicalize-path temp-filename))
(call-with-output-file file-name
(lambda (file)
(put-bytevector file header)
(call-with-input-file temp-filename
(lambda (temp-file)
(sendfile
file temp-file
(stat:size (stat temp-file)) 0)))))))))))))
(sendfile temp-file file content-length header-length)
(delete-file file-name)
(close-port temp-file)
(repack-archive (canonicalize-path temp-filename))
(call-with-output-file file-name
(lambda (file)
(put-bytevector file header)
(call-with-input-file temp-filename
(lambda (temp-file)
(sendfile
file temp-file
(stat:size (stat temp-file)) 0)))))))))))))
(for-each repack-jmod
(find-files (assoc-ref outputs "jdk") ".*.jmod$")))
#t)))
#t)))
(add-after 'install 'remove-timestamp-from-api-summary
(lambda* (#:key outputs #:allow-other-keys)
(substitute* (string-append (assoc-ref outputs "doc")
@ -2339,17 +2393,17 @@ new Date();"))
(name "openjdk")
(version "13.0")
(source (origin
(method url-fetch)
(uri "http://hg.openjdk.java.net/jdk/jdk13/archive/9c250a7600e1.tar.bz2")
(file-name (string-append name "-" version ".tar.bz2"))
(sha256
(base32
"0v0ljvx5dyzp96dw4z4ksw3pvasil7783mgnmd1wk9gads5ab8iq"))
(modules '((guix build utils)))
(snippet
`(begin
(for-each delete-file (find-files "." ".*.(bin|exe|jar)$"))
#t))))
(method url-fetch)
(uri "http://hg.openjdk.java.net/jdk/jdk13/archive/9c250a7600e1.tar.bz2")
(file-name (string-append name "-" version ".tar.bz2"))
(sha256
(base32
"0v0ljvx5dyzp96dw4z4ksw3pvasil7783mgnmd1wk9gads5ab8iq"))
(modules '((guix build utils)))
(snippet
`(begin
(for-each delete-file (find-files "." ".*.(bin|exe|jar)$"))
#t))))
(inputs
`(("alsa-lib" ,alsa-lib)
("cups" ,cups)
@ -2381,21 +2435,21 @@ new Date();"))
(name "openjdk")
(version "14.0")
(source (origin
(method url-fetch)
(uri "http://hg.openjdk.java.net/jdk/jdk14/archive/bc54620a3848.tar.bz2")
(file-name (string-append name "-" version ".tar.bz2"))
(sha256
(base32
"0z485pk7r1xpw8004g4nrwrzj17sabgx8yfdbxwfvzkjp8qyajch"))
(modules '((guix build utils)))
(snippet
`(begin
(method url-fetch)
(uri "http://hg.openjdk.java.net/jdk/jdk14/archive/bc54620a3848.tar.bz2")
(file-name (string-append name "-" version ".tar.bz2"))
(sha256
(base32
"0z485pk7r1xpw8004g4nrwrzj17sabgx8yfdbxwfvzkjp8qyajch"))
(modules '((guix build utils)))
(snippet
`(begin
;; The m4 macro uses 'help' to search for builtins, which is
;; not available in bash-minimal
(substitute* "make/autoconf/basics.m4"
(("if help") "if command -v"))
(for-each delete-file (find-files "." ".*.(bin|exe|jar)$"))
#t))))
(for-each delete-file (find-files "." ".*.(bin|exe|jar)$"))
#t))))
(inputs
`(("alsa-lib" ,alsa-lib)
("cups" ,cups)
@ -13279,6 +13333,61 @@ into the file itself. The XMP Toolkit for Java is based on the C++ XMPCore
library and the API is similar.")
(license license:bsd-3)))
(define-public java-args4j
(package
(name "java-args4j")
(version "2.33")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/kohsuke/args4j")
(commit (string-append "args4j-site-" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0w061fg65qrsm1a0lz0vyprsyidj31krjb459qi2lw0y78xza26s"))))
(build-system ant-build-system)
(arguments
`(#:jar-name "args4j.jar"
#:source-dir "args4j/src"
#:test-dir "args4j/test"
#:test-exclude
(list "**/ExampleTest.*"
"**/ExternalConfiguredTest.*" ; fails to find a file
;; We still don't want to run abstract classes
"**/Abstract*.*")
#:phases
(modify-phases %standard-phases
(add-before 'check 'fix-test-dir
(lambda _
(substitute* "build.xml"
(("/java\">") "\">"))
#t))
(add-before 'build 'copy-resources
(lambda _
(let ((from-prefix "args4j/src/org/kohsuke/args4j/")
(to-prefix "build/classes/org/kohsuke/args4j/"))
(for-each (lambda (f)
(install-file
(string-append from-prefix f)
(string-append to-prefix (dirname f))))
(list "Messages.properties"
"Messages_de.properties"
"Messages_en.properties"
"Messages_ru.properties"
"spi/Messages.properties"
"spi/Messages_de.properties"
"spi/Messages_en.properties"
"spi/Messages_ru.properties")))
#t)))))
(native-inputs
`(("java-junit" ,java-junit)))
(home-page "https://args4j.kohsuke.org/")
(synopsis "Command line parser library")
(description "Args4j is a small Java class library that makes it easy to
parse command line options/arguments in your CUI application.")
(license license:expat)))
(define-public java-metadata-extractor
(package
(name "java-metadata-extractor")

4
gnu/packages/javascript.scm
View File

@ -557,7 +557,7 @@ external server.")
(define-public mujs
(package
(name "mujs")
(version "1.0.9")
(version "1.1.0")
(source
(origin
(method git-fetch)
@ -566,7 +566,7 @@ external server.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "146lmmigqlvx36d3fzb9kk7sy6y4ddv0ih4pkjz4zyj30zl84gy2"))))
(base32 "00j748hzf4azgjgykc8x9xalh70hj1dm8qvqzvldbf08zq0s3n5j"))))
(build-system gnu-build-system)
(arguments
`(#:phases

32
gnu/packages/kde-frameworks.scm
View File

@ -8,6 +8,7 @@
;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2021 Alexandros Theodotou <alex@zrythm.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -55,6 +56,7 @@
#:use-module (gnu packages gnupg)
#:use-module (gnu packages gperf)
#:use-module (gnu packages graphics)
#:use-module (gnu packages graphviz)
#:use-module (gnu packages gstreamer)
#:use-module (gnu packages image)
#:use-module (gnu packages kerberos)
@ -695,6 +697,36 @@ such as printers, to be discovered without any user intervention or centralized
infrastructure.")
(license license:lgpl2.1+)))
(define-public kgraphviewer
(package
(name "kgraphviewer")
(version "2.4.3")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://kde/stable/kgraphviewer/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32
"1h6pgg89gvxl8gw7wmkabyqqrzad5pxyv5lsmn1fl4ir8lcc5q2l"))))
(build-system cmake-build-system)
(inputs
`(("qtbase" ,qtbase)
("boost" ,boost)
("graphviz" ,graphviz)
("kiconthemes" ,kiconthemes)
("kparts" ,kparts)
("qtsvg" ,qtsvg)))
(native-inputs
`(("pkg-config" ,pkg-config)
("extra-cmake-modules" ,extra-cmake-modules)
("kdoctools" ,kdoctools)))
(home-page "https://apps.kde.org/en/kgraphviewer")
(synopsis "Graphviz dot graph viewer for KDE")
(description "KGraphViewer is a Graphviz DOT graph file viewer, aimed to
replace the other outdated Graphviz tools.")
(license license:gpl2+)))
(define-public kguiaddons
(package
(name "kguiaddons")

38
gnu/packages/kde.scm
View File

@ -12,6 +12,7 @@
;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020 Prafulla Giri <pratheblackdiamond@gmail.com>
;;; Copyright © 2020 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2021 Alexandros Theodotou <alex@zrythm.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -543,6 +544,43 @@ illustrators, matte and texture artists, and the VFX industry. Notable
features include brush stabilizers, brush engines and wrap-around mode.")
(license license:gpl2+)))
(define-public massif-visualizer
(package
(name "massif-visualizer")
(version "0.7.0")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://kde/stable/massif-visualizer/" version
"/src/massif-visualizer-" version ".tar.xz"))
(sha256
(base32 "0v8z6r9gngzckvqyxjm9kp7hilwfqibyk2f9vag9l98ar0iwr97q"))))
(build-system cmake-build-system)
(native-inputs
`(("extra-cmake-modules" ,extra-cmake-modules)
("pkg-config" ,pkg-config)
("shared-mime-info" ,shared-mime-info)))
(inputs
`(("karchive" ,karchive)
("kcoreaddons" ,kcoreaddons)
("kparts" ,kparts)
("kdiagram" ,kdiagram)
("kgraphviewer" ,kgraphviewer)
("kio" ,kio)
("ki18n" ,ki18n)
("qtbase" ,qtbase)
("qtsvg" ,qtsvg)
("qtxmlpatterns" ,qtxmlpatterns)))
(home-page "https://apps.kde.org/en/massif-visualizer")
(synopsis "Visualize massif data generated by Valgrind")
(description
"Massif Visualizer is a tool that visualizes massif data.
You run your application in Valgrind with @code{--tool=massif} and then open
the generated @file{massif.out.%pid} in the visualizer. Gzip or Bzip2
compressed massif files can also be opened transparently.")
(license license:gpl2+)))
(define-public libkomparediff2
(package
(name "libkomparediff2")

2
gnu/packages/language.scm
View File

@ -1363,7 +1363,7 @@ noun phrases, verb phrases, etc.).")
("publesaudio" ,pulseaudio)))
(native-inputs
`(("pkg-config" ,pkg-config)))
(home-page "http://www.fon.hum.uva.nl/praat/")
(home-page "https://www.fon.hum.uva.nl/praat/")
(synopsis "Doing phonetics by computer")
(description "Praat is a tool to perform phonetics tasks. It can do speech
analysis (pitch, formant, intensity, ...), speech synthesis, labelling, segmenting

13
gnu/packages/libreoffice.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2016, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
;;; Copyright © 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017, 2018, 2019 Marius Bakke <mbakke@fastmail.com>
@ -600,7 +600,7 @@ Microsoft Publisher documents of all versions.")
(define-public libnumbertext
(package
(name "libnumbertext")
(version "1.0.6")
(version "1.0.7")
(source
(origin
(method url-fetch)
@ -608,7 +608,7 @@ Microsoft Publisher documents of all versions.")
"releases/download/" version
"/libnumbertext-" version ".tar.xz"))
(sha256
(base32 "0mxf22gpbr818ib4av17zmyx6i6nf4br5qlxq0qvfz5z6h5j57vk"))))
(base32 "1z31idnmd9iv6ra5dcsn7q70wv32clk2sqc5bbhimqcsp2f29f0p"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags '("--disable-static")))
@ -682,14 +682,14 @@ Microsoft Visio documents of all versions.")
(define-public libodfgen
(package
(name "libodfgen")
(version "0.1.7")
(version "0.1.8")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/libwpd/libodfgen/"
"libodfgen-" version "/libodfgen-" version ".tar.xz"))
(sha256 (base32
"0cdq48wlpp8m0qmndybv64r0m4vh0qsqx69cn6ms533cjlgljgij"))))
"0986c5gw4vdfz7bcmpdfz07inba5wxsx4f6xvndknqj6zlkh082m"))))
(build-system gnu-build-system)
(native-inputs
`(("doxygen" ,doxygen)
@ -698,9 +698,10 @@ Microsoft Visio documents of all versions.")
`(("librevenge" ,librevenge)))
(inputs
`(("boost" ,boost)
("libxml2" ,libxml2)
("zlib" ,zlib)))
(arguments
;; avoid triggering configure errors by simple inclusion of boost headers
;; Avoid triggering configure errors by simple inclusion of Boost headers.
`(#:configure-flags '("--disable-werror")))
(home-page "https://sourceforge.net/p/libwpd/wiki/libodfgen/")
(synopsis "ODF (Open Document Format) library")

2
gnu/packages/license.scm
View File

@ -231,7 +231,7 @@ designed to be simple.")
#t)))))
(propagated-inputs
`(("python-regex" ,python-regex)))
(home-page "http://github.com/johann-petrak/licenseheaders")
(home-page "https://github.com/johann-petrak/licenseheaders")
(synopsis "Add or change license headers for all files in a directory")
(description
"Licenseheaders is a Python 3 tool to update, change or add license

123
gnu/packages/linux.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2014, 2015, 2016 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2012 Nikita Karetnikov <nikita@karetnikov.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019, 2020 Mark H Weaver <mhw@netris.org>
@ -184,6 +184,7 @@
defconfig. Return the appropriate make target if applicable, otherwise return
\"defconfig\"."
(cond ((string-prefix? "powerpc-" system) "pmac32_defconfig")
((string-prefix? "powerpc64-" system) "ppc64_defconfig")
((string-prefix? "powerpc64le-" system) "ppc64_defconfig")
(else "defconfig")))
@ -353,7 +354,23 @@ 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.10-version "5.10.14")
(define-public linux-libre-5.11-version "5.11.3")
(define deblob-scripts-5.11
(linux-libre-deblob-scripts
linux-libre-5.11-version
(base32 "1kcvwbbzlii4smx6m4hj97va5bf3drbglb24jkky93a1g37a9ksj")
(base32 "0yvr80g200hdryz54gdnzj4fl38pf7g4qbgj475rhcfwixhp1j7n")))
(define-public linux-libre-5.11-pristine-source
(let ((version linux-libre-5.11-version)
(hash (base32 "1znbn7n2jzm2rd7gsfj897lgrvaw48ljqfyza3166mw0nc5wfn1m")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.11)))
;; The "longterm" kernels — the older releases with long-term upstream support.
;; Here are the support timelines:
;; <https://www.kernel.org/category/releases.html>
(define-public linux-libre-5.10-version "5.10.20")
(define deblob-scripts-5.10
(linux-libre-deblob-scripts
linux-libre-5.10-version
@ -361,15 +378,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "0hh27ccqimagr3aij7ygwikxw66y63sqwd0xlf49bhpjd090r9a7")))
(define-public linux-libre-5.10-pristine-source
(let ((version linux-libre-5.10-version)
(hash (base32 "0ahxga1jdgn8kxln0pn8j42qxx0dhrhm9vcpwilyjnwb36gvf9zs")))
(hash (base32 "18rh56aqc7ysr309prfml6sr0a81v6kh1ybw2c2vwhmszr373qwv")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.10)))
;; 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.4-version "5.4.96")
(define-public linux-libre-5.4-version "5.4.102")
(define deblob-scripts-5.4
(linux-libre-deblob-scripts
linux-libre-5.4-version
@ -377,12 +391,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1xghbbnaisjd0k1klbyn1p7r6r4x5a1bpmkm56a3gh2zvw4s7mj8")))
(define-public linux-libre-5.4-pristine-source
(let ((version linux-libre-5.4-version)
(hash (base32 "1q7mz69wzk1ps5770l9bj556qyndiz2frjjsl7pigsy5brlxwa7p")))
(hash (base32 "1vcscg7cn8qycay913nbc1xl1691anhvakkxwx54s0pnqghpqsgx")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.4)))
(define-public linux-libre-4.19-version "4.19.174")
(define-public linux-libre-4.19-version "4.19.178")
(define deblob-scripts-4.19
(linux-libre-deblob-scripts
linux-libre-4.19-version
@ -390,12 +404,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1jiaw0as1ippkrjdpd52657w5mz9qczg3y2hlra7m9k0xawwiqlf")))
(define-public linux-libre-4.19-pristine-source
(let ((version linux-libre-4.19-version)
(hash (base32 "1rcy0hfbc3ny52mfrfysknm1q2scqz0g8l28j0qlyw8cx41wgxhg")))
(hash (base32 "1vln86ksignzw3d2xk5qgc5a2vghngczfsk949dn3r5dxygvlx8b")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.19)))
(define-public linux-libre-4.14-version "4.14.220")
(define-public linux-libre-4.14-version "4.14.223")
(define deblob-scripts-4.14
(linux-libre-deblob-scripts
linux-libre-4.14-version
@ -403,39 +417,33 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1qij18inijj6c3ma8hv98yjagnzxdxyn134da9fd23ky8q6hbvky")))
(define-public linux-libre-4.14-pristine-source
(let ((version linux-libre-4.14-version)
(hash (base32 "1qip0c8nvfximgg4fj9xai741cgvi9f141bsps3zmrryjd796i6h")))
(hash (base32 "04zn74k1b7hfnfdi9fgifrn4jz0j00d4ymp8vhgbrdj75jrmynhs")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.14)))
(define-public linux-libre-4.9-version "4.9.256")
(define-public linux-libre-4.9-version "4.9.259")
(define deblob-scripts-4.9
(linux-libre-deblob-scripts
;; 4.9.256 is the same as 4.9.255, but is meant to test if anything
;; breaks when the minor version overflows an 8-bit representation.
;; Same story for 4.4.256.
;; https://lwn.net/Articles/845206/
;; http://kroah.com/log/blog/2021/02/05/8-bits-are-enough-for-a-version-number-dot-dot-dot/
"4.9.255"
linux-libre-4.9-version
(base32 "1wvldzlv7q2xdbadas87dh593nxr4a8p5n0f8zpm72lja6w18hmg")
(base32 "0fxajshb75siq39lj5h8xvhdj8lcmddkslwlyj65rhlwk6g2r4b2")))
(define-public linux-libre-4.9-pristine-source
(let ((version linux-libre-4.9-version)
(hash (base32 "15qlv4m56dzv195xjy4yp8qsrkbmv51vwfg0qcm664hkrb4i32y4")))
(hash (base32 "1r71vgbw17srsjdmsdr1jra7v412mhiysi4kpa77y29r2h3zk5r3")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.9)))
(define-public linux-libre-4.4-version "4.4.256")
(define-public linux-libre-4.4-version "4.4.259")
(define deblob-scripts-4.4
(linux-libre-deblob-scripts
;; See the comment in deblob-scripts-4.9
"4.4.255"
linux-libre-4.4-version
(base32 "0x2j1i88am54ih2mk7gyl79g25l9zz4r08xhl482l3fvjj2irwbw")
(base32 "0hhin1jpfkd6nwrb6xqxjzl3hdxy4pn8a15hy2d3d83yw6pflbsf")))
(define-public linux-libre-4.4-pristine-source
(let ((version linux-libre-4.4-version)
(hash (base32 "1z7vfy4h0mjvv0rcvvpb55x5fl16c6cgpcafz5gpjp0pw1p2lva8")))
(hash (base32 "18mw4xgza2szgz9x7lq3nzbf48cfkg2g4rli5p5ix4w3ni34h0sr")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.4)))
@ -468,6 +476,11 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(patches (append (origin-patches source)
patches))))
(define-public linux-libre-5.11-source
(source-with-patches linux-libre-5.11-pristine-source
(list %boot-logo-patch
%linux-libre-arm-export-__sync_icache_dcache-patch)))
(define-public linux-libre-5.10-source
(source-with-patches linux-libre-5.10-pristine-source
(list %boot-logo-patch
@ -572,6 +585,10 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(description "Headers of the Linux-Libre kernel.")
(license license:gpl2)))
(define-public linux-libre-headers-5.11
(make-linux-libre-headers* linux-libre-5.11-version
linux-libre-5.11-source))
(define-public linux-libre-headers-5.10
(make-linux-libre-headers* linux-libre-5.10-version
linux-libre-5.10-source))
@ -866,17 +883,23 @@ It has been modified to remove all non-free binary blobs.")
;;; Generic kernel packages.
;;;
(define-public linux-libre-5.11
(make-linux-libre* linux-libre-5.11-version
linux-libre-5.11-source
'("x86_64-linux" "i686-linux" "armhf-linux" "aarch64-linux" "riscv64-linux")
#:configuration-file kernel-config))
(define-public linux-libre-version linux-libre-5.11-version)
(define-public linux-libre-pristine-source linux-libre-5.11-pristine-source)
(define-public linux-libre-source linux-libre-5.11-source)
(define-public linux-libre linux-libre-5.11)
(define-public linux-libre-5.10
(make-linux-libre* linux-libre-5.10-version
linux-libre-5.10-source
'("x86_64-linux" "i686-linux" "armhf-linux" "aarch64-linux" "riscv64-linux")
#:configuration-file kernel-config))
(define-public linux-libre-version linux-libre-5.10-version)
(define-public linux-libre-pristine-source linux-libre-5.10-pristine-source)
(define-public linux-libre-source linux-libre-5.10-source)
(define-public linux-libre linux-libre-5.10)
(define-public linux-libre-5.4
(make-linux-libre* linux-libre-5.4-version
linux-libre-5.4-source
@ -1042,8 +1065,8 @@ It has been modified to remove all non-free binary blobs.")
(define-public linux-libre-with-bpf
(let ((base-linux-libre
(make-linux-libre*
linux-libre-5.10-version
linux-libre-5.10-source
linux-libre-5.11-version
linux-libre-5.11-source
'("x86_64-linux" "i686-linux" "armhf-linux"
"aarch64-linux" "riscv64-linux")
#:extra-version "bpf"
@ -1434,14 +1457,14 @@ at login. Local and dynamic reconfiguration are its key features.")
(define-public powerstat
(package
(name "powerstat")
(version "0.02.22")
(version "0.02.25")
(source
(origin
(method url-fetch)
(uri (string-append "https://kernel.ubuntu.com/~cking/tarballs/"
"powerstat/powerstat-" version ".tar.gz"))
(sha256
(base32 "0r355b9syqa2nhfy8ksvxyy5d58v0isf983842js091s6liy0x7g"))))
(base32 "0dmixbxm4qd08ds26i0wvxwyy8nrjzfjj2q9ylx35564g4wh58qb"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags
@ -4918,7 +4941,7 @@ and copy/paste text in the console and in xterm.")
(define-public btrfs-progs
(package
(name "btrfs-progs")
(version "5.9")
(version "5.10.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kernel.org/linux/kernel/"
@ -4926,7 +4949,7 @@ and copy/paste text in the console and in xterm.")
"btrfs-progs-v" version ".tar.xz"))
(sha256
(base32
"14d7hz07kfczfgmy1ixkgccjn393gpkjn7givz5kwxddcnk5i4xq"))))
"0i03vajakg1glbql1cv7xy0k71zvpd2whdwymmrz9rza3xrwqy8k"))))
(build-system gnu-build-system)
(outputs '("out"
"static")) ; static versions of the binaries in "out"
@ -5058,7 +5081,7 @@ blocks and random block placement.")
(define-public compsize
(package
(name "compsize")
(version "1.3")
(version "1.5")
(home-page "https://github.com/kilobyte/compsize")
(source (origin
(method git-fetch)
@ -5066,14 +5089,15 @@ blocks and random block placement.")
(url home-page)
(commit (string-append "v" version))))
(sha256
(base32 "1c69whla844nwis30jxbj00zkpiw3ccndhkmzjii8av5358mjn43"))
(base32 "0vqnrwgpv6pc1yjl0g4gl71xyl6v0xl3pyqjanjpwps73c53azir"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(inputs
`(("btrfs-progs" ,btrfs-progs)))
(arguments
`(#:tests? #f ; No tests.
#:make-flags (list "CC=gcc")
#:make-flags
(list (string-append "CC=" ,(cc-for-target)))
#:phases
(modify-phases %standard-phases
(delete 'configure)
@ -6147,14 +6171,14 @@ running boot option, and more.")
(define-public sysstat
(package
(name "sysstat")
(version "12.4.2")
(version "12.4.3")
(source
(origin
(method url-fetch)
(uri (string-append "http://pagesperso-orange.fr/sebastien.godard/"
"sysstat-" version ".tar.xz"))
(sha256
(base32 "13q1zb7ip389b35rcgy2ngf1z9zhdmdwx5bv9lwfnl1xi30v409p"))))
(base32 "1z8bdyj92q0capbrdscwzb51bqh54ng15gpvmjmvrb2syhqj8hxf"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no test suite.
@ -7442,7 +7466,7 @@ of Linux application development.")
(package
(inherit pipewire)
(name "pipewire")
(version "0.3.18")
(version "0.3.22")
(source (origin
(method git-fetch)
(uri (git-reference
@ -7451,7 +7475,7 @@ of Linux application development.")
(file-name (git-file-name name version))
(sha256
(base32
"1yghhgs18yqrnd0b2r75l5n8yng962r1wszbsi01v6i9zib3jc9g"))))
"1ywna5f5v8s79ivrqfwwc8vy6sn3a2zvfwqyalf1fypj5d90w8g9"))))
(arguments
'(#:configure-flags
(list (string-append "-Dudevrulesdir=" (assoc-ref %outputs "out")
@ -7790,13 +7814,14 @@ receiving. It is dedicated to the PL011 UART of the Raspberry Pi.")
(define-public ipset
(package
(name "ipset")
(version "7.10")
(source (origin
(method url-fetch)
(uri (string-append "https://ipset.netfilter.org/ipset-" version ".tar.bz2"))
(sha256
(base32
"1xlwgsy06jx0bckc5r2wvyys8jfpc5klfqqqshmk5zp28fx0cjdj"))))
(version "7.11")
(source
(origin
(method url-fetch)
(uri (string-append "https://ipset.netfilter.org/"
"ipset-" version ".tar.bz2"))
(sha256
(base32 "0zdzp9fhpp6hmirzxy7w27fb9xx9lxd2ykxbn8by7ngi62nvll9i"))))
(build-system gnu-build-system)
(inputs
`(("libmnl" ,libmnl)))

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

File diff suppressed because it is too large Load Diff

47
gnu/packages/llvm.scm
View File

@ -17,6 +17,7 @@
;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Julien Lepiller <julien@lepiller.eu>
;;;
;;; This file is part of GNU Guix.
;;;
@ -38,6 +39,7 @@
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix memoization)
#:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module (guix build-system cmake)
@ -54,6 +56,7 @@
#:use-module (gnu packages lua)
#:use-module (gnu packages mpi)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages ocaml)
#:use-module (gnu packages onc-rpc)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
@ -1182,3 +1185,47 @@ C/C++/Obj-C code according to a set of style options, see
(synopsis "Rename every occurrence of a symbol using clang-rename")
(description "This package renames every occurrence of a symbol at point
using @code{clang-rename}.")))
(define make-ocaml-llvm
;; Make it a memoizing procedure so its callers below don't end up defining
;; two equal-but-not-eq "ocaml-llvm" packages for the default LLVM.
(mlambdaq (llvm)
(package
(inherit llvm)
(name "ocaml-llvm")
(outputs '("out"))
(arguments
`(#:configure-flags
(list
(string-append "-DLLVM_OCAML_EXTERNAL_LLVM_LIBDIR="
(assoc-ref %build-inputs "llvm") "/lib")
"-DBUILD_SHARED_LIBS=TRUE"
"-DLLVM_OCAML_OUT_OF_TREE=TRUE"
(string-append "-DLLVM_OCAML_INSTALL_PATH="
(assoc-ref %outputs "out") "/lib/ocaml/site-lib"))
#:phases
(modify-phases %standard-phases
(replace 'build
(lambda _
(invoke "make" "ocaml_all")))
(replace 'install
(lambda _
(invoke "cmake" "-P" "bindings/ocaml/cmake_install.cmake"))))))
(inputs
`(("llvm" ,llvm)))
(native-inputs
`(("ocaml" ,ocaml)
("ocaml-findlib" ,ocaml-findlib)
("ocaml-ounit" ,ocaml-ounit)
("python" ,python)))
(propagated-inputs
`(("ocaml-integers" ,ocaml-integers)
("ocaml-ctypes" ,ocaml-ctypes)))
(synopsis "OCaml bindings to LLVM")
(description "This package contains the OCaml bindings distributed with
LLVM."))))
(define-public ocaml-llvm (make-ocaml-llvm llvm))
(define-public ocaml-llvm-9 (make-ocaml-llvm llvm-9))
(define-public ocaml-llvm-10 (make-ocaml-llvm llvm-10))
(define-public ocaml-llvm-11 (make-ocaml-llvm llvm-11))

102
gnu/packages/lua.scm
View File

@ -8,11 +8,12 @@
;;; Copyright © 2016 doncatnip <gnopap@gmail.com>
;;; Copyright © 2016, 2017, 2019 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2016 José Miguel Sánchez García <jmi2k@openmailbox.org>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com>
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Simon South <simon@simonsouth.net>
;;; Copyright © 2020 Paul A. Patience <paul@apatience.com>
;;; Copyright © 2021 Vinícius dos Santos Oliveira <vini.ipsmaker@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -37,8 +38,11 @@
#:use-module (guix utils)
#:use-module (guix build-system gnu)
#:use-module (guix build-system cmake)
#:use-module (guix build-system meson)
#:use-module (guix build-system trivial)
#:use-module (gnu packages)
#:use-module (gnu packages gcc)
#:use-module (gnu packages build-tools)
#:use-module (gnu packages readline)
#:use-module (gnu packages m4)
#:use-module (gnu packages tls)
@ -47,6 +51,11 @@
#:use-module (gnu packages libevent)
#:use-module (gnu packages libffi)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages boost)
#:use-module (gnu packages tls)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages vim)
#:use-module (gnu packages re2c)
#:use-module (gnu packages xorg)
#:use-module (gnu packages gtk))
@ -157,6 +166,39 @@ language. It may be embedded or used as a general-purpose, stand-alone
language.")
(license license:x11)))
(define-public luajit-lua52-openresty
(package
(inherit luajit)
(name "luajit-lua52-openresty")
(version "2.1-20201229")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/openresty/luajit2.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "07haj27kbpbnkv836c2nd36h2xislrmri52w0zbpxvl68xk6g96p"))))
(arguments
`(#:tests? #f ;no test
#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
#:phases
(modify-phases %standard-phases
(delete 'configure) ;no configure script
(add-after 'unpack 'enable-lua52-compat
(lambda _
(substitute* "src/Makefile"
(("#(XCFLAGS\\+= -DLUAJIT_ENABLE_LUA52COMPAT)" _ flag) flag))
#t)))))
(home-page "https://github.com/openresty/luajit2")
(synopsis "OpenResty's Branch of LuaJIT 2")
(description
"This is the official OpenResty branch of LuaJIT. It is not to be
considered a fork, since changes are regularly synchronized from the upstream
LuaJIT project. This package also enables the Lua 5.2 compat mode needed by
some projects.")))
(define (make-lua-expat name lua)
(package
(name name)
@ -1063,10 +1105,64 @@ signals to Linux processes.")
shell command executions.")
(license license:bsd-3)))
(define-public emilua
(package
(name "emilua")
(version "0.2.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/emilua/emilua.git")
(commit (string-append "v" version))
;; Current version requires bundled CLI11 and fmt, but at some
;; future release the ones found in the system could be used
;; instead. Current version also requires Trial.Protocol and
;; the HTTP lib developed as part of GSoC 2014 for Boost, but
;; these are dependencies unlikely to be "unbundled" in future
;; releases.
(recursive? #t)))
(file-name (git-file-name name version))
(sha256
(base32
"1d6k5v6x85fbvz2ijq1imnfdwvqmsav4xp021a5v3ah4mgy7yann"))))
(build-system meson-build-system)
(arguments
`(#:meson ,meson-0.55
;; Tests are disabled for now due to an issue that affecs guix:
;; <https://gitlab.com/emilua/emilua/-/issues/22>
#:configure-flags '("-Denable_http=false" "-Denable_tests=false")))
(native-inputs
`(("gcc" ,gcc-10) ; gcc-7 is too old for our C++17 needs
("luajit-lua52-openresty" ,luajit-lua52-openresty)
("pkg-config" ,pkg-config)
("re2c" ,re2c)
("xxd" ,xxd)))
(inputs
`(("boost" ,boost)
("boost-static" ,boost-static)
;; LuaJIT has a 2GiB addressing limit[1] that has been fixed on OpenResty
;; fork. Emilua is severely affected by this limit, so the upstream package
;; is avoided. Emilua also depends on the -DLUAJIT_ENABLE_LUA52COMPAT
;; configure flag[2] for some features to work (e.g. __pairs on HTTP
;; headers).
;;
;; [1] <http://hacksoflife.blogspot.com/2012/12/integrating-luajit-with-x-plane-64-bit.html>
;; [2] <http://luajit.org/extensions.html#lua52>
("luajit-lua52-openresty" ,luajit-lua52-openresty)
("ncurses" ,ncurses)
("openssl" ,openssl)))
(home-page "https://gitlab.com/emilua/emilua")
(synopsis "Lua execution engine")
(description
"Emilua is a LuaJIT-based Lua execution engine that supports async IO,
fibers and actor-inspired threading. The experimental builtin HTTP module is
enabled.")
(license license:boost1.0)))
(define-public fennel
(package
(name "fennel")
(version "0.8.0")
(version "0.8.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1075,7 +1171,7 @@ shell command executions.")
(file-name (git-file-name name version))
(sha256
(base32
"1jng33vmnk6mi37l3x2z0plng940jpj7kz1s493ki80z3mkaxjfg"))
"0n0xkgzlrwpppm5vbvn84mq418xhmyakk9hakdmjv1lk2dfdq2g7"))
(modules '((guix build utils)))
(snippet
'(begin

12
gnu/packages/lxde.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2017 Brendan Tildesley <mail@brendan.scot>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 ison <ison@airmail.cc>
;;; Copyright © 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
@ -66,7 +66,7 @@
(define-public libfm
(package
(name "libfm")
(version "1.3.1")
(version "1.3.2")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/pcmanfm/"
@ -74,7 +74,7 @@
"%29/LibFM/" name "-" version ".tar.xz"))
(sha256
(base32
"1r6gl49xrykldwz8y4h2s7gjarxigg3bbkrj0gphxjj1vr5j9ccn"))))
"1rfira3lx8v6scz1aq69925j4vslpp36bmgrrzcfby2c60q2c155"))))
(build-system gnu-build-system)
(inputs `(("glib" ,glib)
("gtk+" ,gtk+-2)))
@ -99,7 +99,7 @@ Glib/GIO giving a higher-level API.")
("libtool" ,libtool)
("pkg-config" ,pkg-config)))
(synopsis "File management support (extra library)")
(description "This package contains standalone library which extends the
(description "This package contains a stand-alone library which extends the
libFM file management library.")))
(define-public lxappearance
@ -235,7 +235,7 @@ speed up the access to freedesktop.org defined application menus.")
(define-public pcmanfm
(package
(name "pcmanfm")
(version "1.3.1")
(version "1.3.2")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/pcmanfm/"
@ -243,7 +243,7 @@ speed up the access to freedesktop.org defined application menus.")
"%29/PCManFM/pcmanfm-" version ".tar.xz"))
(sha256
(base32
"0mb8hg76x1z0szdyl0w7jpz0bdblc6a29is1vvnh79z37qxh8138"))))
"1xqc2k2jh165mm81xg0ghxx0ml1s3rhh4ndvbzkcri4kfhj7pjql"))))
(build-system gnu-build-system)
(inputs `(("gtk+" ,gtk+-2)
("gvfs" ,gvfs) ; for trash and mount support

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

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
@ -15,7 +15,7 @@
;;; Copyright © 2019 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2020 Konrad Hinsen <konrad.hinsen@fastmail.net>
;;; Copyright © 2020 Edouard Klein <edk@beaver-labs.com>
;;; Copyright © 2020 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2020, 2021 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
@ -568,7 +568,7 @@ in terms of new algorithms.")
(define-public python-onnx
(package
(name "python-onnx")
(version "1.8.0")
(version "1.8.1")
(source
(origin
(method url-fetch)
@ -577,7 +577,7 @@ in terms of new algorithms.")
;; to use googletest from Guix and enable tests by default.
(patches (search-patches "python-onnx-use-system-googletest.patch"))
(sha256
(base32 "0365zkikq6v3cl5hh2daa5z1alhij8xpn8rmlcny340jrv9pyy2z"))))
(base32 "1ys5f4kqkabm4mgivsw80zz8xj1svanfbpszqbw9j15914hcarcx"))))
(build-system python-build-system)
(native-inputs
`(("cmake" ,cmake)
@ -787,7 +787,7 @@ computing environments.")
(define-public python-scikit-learn
(package
(name "python-scikit-learn")
(version "0.22.1")
(version "0.24.1")
(source
(origin
(method git-fetch)
@ -797,7 +797,7 @@ computing environments.")
(file-name (git-file-name name version))
(sha256
(base32
"1xqxv210gsmjw094vc5ghq2y9lmm74qkk22pq6flcjzj51b86jxf"))))
"0dd854hi9h81pa3y6gwa6r4qjwrwq5fndi312h6dkqzfh7jbvgvd"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -829,6 +829,7 @@ computing environments.")
("python-cython" ,python-cython)))
(propagated-inputs
`(("python-numpy" ,python-numpy)
("python-threadpoolctl" ,python-threadpoolctl)
("python-scipy" ,python-scipy)
("python-joblib" ,python-joblib)))
(home-page "https://scikit-learn.org/")
@ -854,7 +855,17 @@ data analysis.")
(file-name (git-file-name "python-scikit-learn" version))
(sha256
(base32
"08zbzi8yx5wdlxfx9jap61vg1malc9ajf576w7a0liv6jvvrxlpj")))))))
"08zbzi8yx5wdlxfx9jap61vg1malc9ajf576w7a0liv6jvvrxlpj"))))
(inputs
`(("openblas" ,openblas)))
(native-inputs
`(("python2-pytest" ,python2-pytest)
("python2-pandas" ,python2-pandas) ;for tests
("python2-cython" ,python2-cython)))
(propagated-inputs
`(("python2-numpy" ,python2-numpy)
("python2-scipy" ,python2-scipy)
("python2-joblib" ,python2-joblib))))))
(define-public python-threadpoolctl
(package

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