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

Merge branch 'master' into staging

Browse Source
This commit is contained in:
Marius Bakke 2022-11-26 15:39:18 +01:00
commit fe99fe84f0
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
98 changed files with 9581 additions and 2426 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
NEWS
View File

@ -74,10 +74,11 @@ Please send Guix bug reports to bug-guix@gnu.org.
*** The installer now has a crash dump upload mechanism
*** Emacs now supports native compilation
*** GRUB bootloader now supports chain-loading
*** The GNU Shepherd was upgraded to 0.9.2
*** The GNU Shepherd was upgraded to 0.9.3
*** The init RAM disk honors more arguments—e.g. ‘root’ and ‘rootflags’
*** ‘guix system image’ can now generate WSL images
*** The mcron task scheduler logs now contain the jobs exit statuses
** Programming interfaces
*** Package input fields can now plain package lists
*** G-expressions can now be used in build phases

62
doc/guix-cookbook.texi
View File

@ -21,6 +21,7 @@ Copyright @copyright{} 2020 Brice Waegeneire@*
Copyright @copyright{} 2020 André Batista@*
Copyright @copyright{} 2020 Christine Lemmer-Webber@*
Copyright @copyright{} 2021 Joshua Branson@*
Copyright @copyright{} 2022 Maxim Cournoyer*
Permission is granted to copy, distribute and/or modify this document
under the terms of the GNU Free Documentation License, Version 1.3 or
@ -95,6 +96,7 @@ System Configuration
* Auto-Login to a Specific TTY:: Automatically Login a User to a Specific TTY
* Customizing the Kernel:: Creating and using a custom Linux kernel on Guix System.
* Guix System Image API:: Customizing images to target specific platforms.
* Using security keys:: How to use security keys with Guix System.
* Connecting to Wireguard VPN:: Connecting to a Wireguard VPN.
* Customizing a Window Manager:: Handle customization of a Window manager on Guix System.
* Running Guix on a Linode Server:: Running Guix on a Linode Server. Running Guix on a Linode Server
@ -1380,6 +1382,7 @@ reference.
* Auto-Login to a Specific TTY:: Automatically Login a User to a Specific TTY
* Customizing the Kernel:: Creating and using a custom Linux kernel on Guix System.
* Guix System Image API:: Customizing images to target specific platforms.
* Using security keys:: How to use security keys with Guix System.
* Connecting to Wireguard VPN:: Connecting to a Wireguard VPN.
* Customizing a Window Manager:: Handle customization of a Window manager on Guix System.
* Running Guix on a Linode Server:: Running Guix on a Linode Server
@ -1883,6 +1886,65 @@ guix system image --image-type=hurd-qcow2 my-hurd-os.scm
will instead produce a Hurd QEMU image.
@node Using security keys
@section Using security keys
@cindex 2FA, two-factor authentication
@cindex U2F, Universal 2nd Factor
@cindex security key, configuration
The use of security keys can improve your security by providing a second
authentication source that cannot be easily stolen or copied, at least
for a remote adversary (something that you have), to the main secret (a
passphrase -- something that you know), reducing the risk of
impersonation.
The example configuration detailed below showcases what minimal
configuration needs to be made on your Guix System to allow the use of a
Yubico security key. It is hoped the configuration can be useful for
other security keys as well, with minor adjustments.
@subsection Configuration for use as a two-factor authenticator (2FA)
To be usable, the udev rules of the system should be extended with
key-specific rules. The following shows how to extend your udev rules
with the @file{lib/udev/rules.d/70-u2f.rules} udev rule file provided by
the @code{libfido2} package from the @code{(gnu packages
security-token)} module and add your user to the @samp{"plugdev"} group
it uses:
@lisp
(use-package-modules ... security-token ...)
...
(operating-system
...
(users (cons* (user-account
(name "your-user")
(group "users")
(supplementary-groups
'("wheel" "netdev" "audio" "video"
"plugdev")) ;<- added system group
(home-directory "/home/your-user"))
%base-user-accounts))
...
(services
(cons*
...
(udev-rules-service 'fido2 libfido2 #:groups '("plugdev")))))
@end lisp
After re-configuring your system and re-logging in your graphical
session so that the new group is in effect for your user, you can verify
that your key is usable by launching:
@example
guix shell ungoogled-chromium -- chromium chrome://settings/securityKeys
@end example
and validating that the security key can be reset via the ``Reset your
security key'' menu. If it works, congratulations, your security key is
ready to be used with applications supporting two-factor authentication
(2FA).
@node Connecting to Wireguard VPN
@section Connecting to Wireguard VPN

45
doc/guix.texi
View File

@ -60,7 +60,7 @@ Copyright @copyright{} 2018, 2021 Oleg Pykhalov@*
Copyright @copyright{} 2018 Mike Gerwitz@*
Copyright @copyright{} 2018 Pierre-Antoine Rouby@*
Copyright @copyright{} 2018, 2019 Gábor Boskovits@*
Copyright @copyright{} 2018, 2019, 2020 Florian Pelz@*
Copyright @copyright{} 2018, 2019, 2020, 2022 Florian Pelz@*
Copyright @copyright{} 2018 Laura Lazzati@*
Copyright @copyright{} 2018 Alex Vong@*
Copyright @copyright{} 2019 Josh Holland@*
@ -1409,7 +1409,7 @@ when transferring files to and from build machines.
File name of the Unix-domain socket @command{guix-daemon} is listening
to on that machine.
@item @code{overload-threshold} (default: @code{0.6})
@item @code{overload-threshold} (default: @code{0.8})
The load threshold above which a potential offload machine is
disregarded by the offload scheduler. The value roughly translates to
the total processor usage of the build machine, ranging from 0.0 (0%) to
@ -3423,19 +3423,25 @@ The @var{options} can be among the following:
@itemx -i @var{package} @dots{}
Install the specified @var{package}s.
Each @var{package} may specify either a simple package name, such as
@code{guile}, or a package name followed by an at-sign and version number,
such as @code{guile@@1.8.8} or simply @code{guile@@1.8} (in the latter
case, the newest version prefixed by @code{1.8} is selected).
Each @var{package} may specify a simple package name, such as
@code{guile}, optionally followed by an at-sign and version number,
such as @code{guile@@3.0.7} or simply @code{guile@@3.0}. In the latter
case, the newest version prefixed by @code{3.0} is selected.
If no version number is specified, the
newest available version will be selected. In addition, @var{package}
If no version number is specified, the newest available version will be
selected. In addition, such a @var{package} specification
may contain a colon, followed by the name of one of the outputs of the
package, as in @code{gcc:doc} or @code{binutils@@2.22:lib}
(@pxref{Packages with Multiple Outputs}). Packages with a corresponding
(@pxref{Packages with Multiple Outputs}).
Packages with a corresponding
name (and optionally version) are searched for among the GNU
distribution modules (@pxref{Package Modules}).
Alternatively, a @var{package} can directly specify a store file name
such as @file{/gnu/store/...-guile-3.0.7}, as produced by, e.g.,
@code{guix build}.
@cindex propagated inputs
Sometimes packages have @dfn{propagated inputs}: these are dependencies
that automatically get installed along with the required package
@ -4834,6 +4840,15 @@ invocation can be expensive: it may have to download or even build a
large number of packages; the result is cached though and subsequent
commands targeting the same commit are almost instantaneous.
@quotation Note
The history of Guix is immutable and @command{guix time-machine}
provides the exact same software as they are in a specific Guix
revision. Naturally, no security fixes are provided for old versions
of Guix or its channels. A careless use of @command{guix time-machine}
opens the door to security vulnerabilities. @xref{Invoking guix pull,
@option{--allow-downgrades}}.
@end quotation
The general syntax is:
@example
@ -8080,20 +8095,20 @@ following forms:
@item (delete @var{name}@dots{})
Delete from the inputs packages with the given @var{name}s (strings).
@item (append @var{package}@dots{})
Add @var{package}s to the end of the input list.
@item (prepend @var{package}@dots{})
Add @var{package}s to the front of the input list.
@item (append @var{package}@dots{})
Add @var{package}s to the end of the input list.
@end table
The example below removes the GMP and ACL inputs of Coreutils and adds
libcap to the back of the input list:
libcap to the front of the input list:
@lisp
(modify-inputs (package-inputs coreutils)
(delete "gmp" "acl")
(append libcap))
(prepend libcap))
@end lisp
The example below replaces the @code{guile} package from the inputs of
@ -8104,7 +8119,7 @@ The example below replaces the @code{guile} package from the inputs of
(replace "guile" guile-2.2))
@end lisp
The last type of clause is @code{prepend}, to add inputs to the front of
The last type of clause is @code{append}, to add inputs at the back of
the list.
@end deffn

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

@ -1127,7 +1127,7 @@ corresponds to the symbols listed in FLAGS."
(('read-only rest ...)
(logior MS_RDONLY (loop rest)))
(('bind-mount rest ...)
(logior MS_BIND (loop rest)))
(logior MS_REC (logior MS_BIND (loop rest))))
(('no-suid rest ...)
(logior MS_NOSUID (loop rest)))
(('no-dev rest ...)

21
gnu/installer/services.scm
View File

@ -159,25 +159,32 @@
(base (if desktop?
'%desktop-services
'%base-services))
(heading (list (vertical-space 1)
(comment (G_ "\
(service-heading (list (vertical-space 1)
(comment (G_ "\
;; Below is the list of system services. To search for available
;; services, run 'guix system search KEYWORD' in a terminal.\n")))))
;; services, run 'guix system search KEYWORD' in a terminal.\n"))))
(package-heading (list (vertical-space 1)
(comment (G_ "\
;; Packages installed system-wide. Users can also install packages
;; under their own account: use 'guix search KEYWORD' to search
;; for packages and 'guix install PACKAGE' to install a package.\n")))))
(if (null? snippets)
`(,@(if (null? packages)
'()
`((packages (append (list ,@packages)
`(,@package-heading
(packages (append (list ,@packages)
%base-packages))))
,@heading
,@service-heading
(services ,base))
`(,@(if (null? packages)
'()
`((packages (append (list ,@packages)
`(,@package-heading
(packages (append (list ,@packages)
%base-packages))))
,@heading
,@service-heading
(services (append (list ,@snippets
,@(if desktop?

12
gnu/local.mk
View File

@ -1044,9 +1044,6 @@ dist_patch_DATA = \
%D%/packages/patches/dstat-skip-devices-without-io.patch \
%D%/packages/patches/dvd+rw-tools-add-include.patch \
%D%/packages/patches/dynaconf-unvendor-deps.patch \
%D%/packages/patches/ecl-16-format-directive-limit.patch \
%D%/packages/patches/ecl-16-ignore-stderr-write-error.patch \
%D%/packages/patches/ecl-16-libffi.patch \
%D%/packages/patches/efibootmgr-remove-extra-decl.patch \
%D%/packages/patches/efivar-211.patch \
%D%/packages/patches/eigen-fix-strict-aliasing-bug.patch \
@ -1387,6 +1384,8 @@ dist_patch_DATA = \
%D%/packages/patches/lightdm-vncserver-check.patch \
%D%/packages/patches/lightdm-vnc-color-depth.patch \
%D%/packages/patches/localed-xorg-keyboard.patch \
%D%/packages/patches/kcontacts-incorrect-country-name.patch \
%D%/packages/patches/kde-cli-tools-delay-mime-db.patch \
%D%/packages/patches/kdiagram-Fix-missing-link-libraries.patch \
%D%/packages/patches/kiki-level-selection-crash.patch \
%D%/packages/patches/kiki-makefile.patch \
@ -1440,6 +1439,7 @@ dist_patch_DATA = \
%D%/packages/patches/libofa-ftbfs-2.diff \
%D%/packages/patches/libotr-test-auth-fix.patch \
%D%/packages/patches/libksieve-Fix-missing-link-libraries.patch \
%D%/packages/patches/libksysguard-qdiriterator-follow-symlinks.patch \
%D%/packages/patches/libmad-armv7-thumb-pt1.patch \
%D%/packages/patches/libmad-armv7-thumb-pt2.patch \
%D%/packages/patches/libmad-length-check.patch \
@ -1483,7 +1483,8 @@ dist_patch_DATA = \
%D%/packages/patches/lierolibre-try-building-other-arch.patch \
%D%/packages/patches/libcdio-glibc-compat.patch \
%D%/packages/patches/linbox-fix-pkgconfig.patch \
%D%/packages/patches/linphone-desktop-without-sdk.patch \
%D%/packages/patches/linphone-desktop-without-sdk.patch \
%D%/packages/patches/linux-libre-infodocs-target.patch \
%D%/packages/patches/linux-libre-support-for-Pinebook-Pro.patch \
%D%/packages/patches/linux-pam-no-setfsuid.patch \
%D%/packages/patches/linuxdcpp-openssl-1.1.patch \
@ -1561,6 +1562,7 @@ dist_patch_DATA = \
%D%/packages/patches/musl-cross-locale.patch \
%D%/packages/patches/mutt-store-references.patch \
%D%/packages/patches/m4-gnulib-libio.patch \
%D%/packages/patches/nautilus-extension-search-path.patch \
%D%/packages/patches/ncompress-fix-softlinks.patch \
%D%/packages/patches/ncftp-reproducible.patch \
%D%/packages/patches/netcdf-date-time.patch \
@ -1988,6 +1990,8 @@ dist_patch_DATA = \
%D%/packages/patches/vtk-7-gcc-10-compat.patch \
%D%/packages/patches/vtk-7-hdf5-compat.patch \
%D%/packages/patches/vtk-7-python-compat.patch \
%D%/packages/patches/wacomtablet-add-missing-includes.patch \
%D%/packages/patches/wacomtablet-qt5.15.patch \
%D%/packages/patches/warsow-qfusion-fix-bool-return-type.patch \
%D%/packages/patches/webkitgtk-adjust-bubblewrap-paths.patch \
%D%/packages/patches/webrtc-audio-processing-big-endian.patch \

466
gnu/packages/astronomy.scm
View File

@ -36,6 +36,7 @@
#:use-module (gnu packages cmake)
#:use-module (gnu packages compression)
#:use-module (gnu packages curl)
#:use-module (gnu packages databases)
#:use-module (gnu packages flex)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages gcc)
@ -58,6 +59,7 @@
#:use-module (gnu packages python)
#:use-module (gnu packages python-build)
#:use-module (gnu packages python-check)
#:use-module (gnu packages python-compression)
#:use-module (gnu packages python-crypto)
#:use-module (gnu packages python-science)
#:use-module (gnu packages python-web)
@ -78,6 +80,7 @@
#:use-module (guix build-system gnu)
#:use-module (guix build-system meson)
#:use-module (guix build-system python)
#:use-module (guix build-system pyproject)
#:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download)
@ -1099,7 +1102,7 @@ to access online Astronomical data. Each web service has its own sub-package.")
(define-public python-cdflib
(package
(name "python-cdflib")
(version "0.4.4")
(version "0.4.9")
(source
(origin
(method git-fetch) ; no tests in pypi archive
@ -1108,16 +1111,14 @@ to access online Astronomical data. Each web service has its own sub-package.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1h7750xvr6qbhnl2w3bhccs3pwp3hci3624pvvxym0yjinmskjlz"))))
(build-system python-build-system)
(base32 "1k557najk7ln293zwyghnhw48ays3nqf9s94kibsc7r70c2q7p08"))))
(build-system pyproject-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(setenv "HOME" (getcwd))
(invoke "pytest" "-vv" "tests")))))))
(add-before 'check 'set-home-env
(lambda _
(setenv "HOME" (getcwd)))))))
(propagated-inputs
(list python-attrs python-numpy))
(native-inputs
@ -1129,7 +1130,8 @@ to access online Astronomical data. Each web service has its own sub-package.")
python-xarray))
(home-page "https://github.com/MAVENSDC/cdflib")
(synopsis "Python library to deal with NASA's CDF astronmical data format")
(description "This package provides a Python CDF reader toolkit
(description "This package provides a Python @acronym{CDF, Computable
Document Format} reader toolkit.
It provides the following functionality:
@itemize
@item Ability to read variables and attributes from CDF files
@ -1138,9 +1140,46 @@ It provides the following functionality:
time formats
@item Can convert CDF files into XArray Dataset objects and vice versa,
attempting to maintain ISTP compliance
@end itemize\n")
@end itemize")
(license license:expat)))
(define-public python-drms
(package
(name "python-drms")
(version "0.6.3")
(source
(origin
(method url-fetch)
(uri (pypi-uri "drms" version))
(sha256
(base32 "1b0w350y4wbgyy19zcf28xbb85mqq6gnhb6ppibbc4hbn2ixbcvj"))))
(build-system python-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key inputs outputs tests?
#:allow-other-keys)
(when tests?
(add-installed-pythonpath inputs outputs)
(setenv "JSOC_EMAIL" "jsoc@sunpy.org")
(invoke "python" "-m" "pytest" "-vv")))))))
(native-inputs
(list python-astropy
python-pytest-astropy
python-pytest
python-setuptools-scm))
(propagated-inputs (list python-numpy python-pandas))
(home-page "https://sunpy.org")
(synopsis "Access astronomical HMI, AIA and MDI data with Python")
(description
"DRMS module provides an easy-to-use interface for accessing HMI, AIA and
MDI data with Python. It uses the publicly accessible
JSOC (@url{http://jsoc.stanford.edu/}) DRMS server by default, but can also be
used with local NetDRMS sites.")
(license license:bsd-2)))
(define-public python-ephem
(package
(name "python-ephem")
@ -1164,6 +1203,53 @@ for a table giving the position of a planet, asteroid, or comet for a series
of dates.")
(license license:expat)))
(define-public python-hvpy
(package
(name "python-hvpy")
(version "1.0.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "hvpy" version))
(sha256
(base32 "0r0asyflz2sw9zn5vgs138nh81m0rbwbakmrncbc1ghdr3g6jahv"))))
(build-system pyproject-build-system)
(arguments
(list #:tests? #f)) ; Requires HTTP(S) access to api.beta.helioviewer.org
(propagated-inputs (list python-pydantic python-requests))
(native-inputs (list python-pytest python-pytest-astropy))
(home-page "https://helioviewer.org/")
(synopsis "Helioviewer Python API Wrapper")
(description "@code{hvpy} is a Python API wrapper around the formal
@url{Helioviewer API, https://api.helioviewer.org/docs/v2/}.")
(license license:bsd-2)))
(define-public python-mpl-animators
(package
(name "python-mpl-animators")
(version "1.1.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "mpl_animators" version))
(sha256
(base32 "12kjmj7rn3pk9ly82h5s5hn0kl3kxkr7bgkz9zr9k59pir8z1r8b"))))
(build-system pyproject-build-system)
(native-inputs
(list python-pytest
python-pytest-mpl
python-setuptools-scm))
(propagated-inputs
(list python-astropy
python-matplotlib
python-numpy))
(home-page "https://sunpy.org")
(synopsis "Interactive animations with matplotlib")
(description
"The @code{mpl_animators} package provides a set of classes which allow
the easy construction of interactive matplotlib widget based animations.")
(license license:bsd-3)))
(define-public python-photutils
(package
(name "python-photutils")
@ -1270,6 +1356,146 @@ Virtual observatory (VO) using Python.")
(description "Regions is an Astropy package for region handling.")
(license license:bsd-3)))
(define-public python-reproject
(package
(name "python-reproject")
(version "0.9.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "reproject" version))
(sha256
(base32 "1msysqbhkfi3bmw29wipk250a008bnng7din56md9ipbwiar8x55"))))
(build-system pyproject-build-system)
(arguments
(list
;; FIXME: Failing tests
;;
;; reproject/adaptive/core.py:7: in <module>
;; from .deforest import map_coordinates
;; E ModuleNotFoundError: No module named 'reproject.adaptive.deforest'
;;
#:tests? #f
#:phases
#~(modify-phases %standard-phases
(add-before 'install 'writable-compiler
(lambda _
(make-file-writable "reproject/_compiler.c")))
(add-before 'check 'writable-compiler
(lambda _
(make-file-writable "reproject/_compiler.c")))
(add-before 'check 'writable-home
(lambda _
(setenv "HOME" (getcwd)))))))
(propagated-inputs
(list python-astropy
python-astropy-healpix
python-numpy
python-scipy))
(native-inputs
(list python-asdf
python-cython
python-extension-helpers
python-gwcs
python-pytest-astropy
python-pyvo
python-semantic-version
python-pytest
python-setuptools-scm
python-shapely))
(home-page "https://reproject.readthedocs.io")
(synopsis "Astronomical image reprojection in Python")
(description
"This package provides a functionality to reproject astronomical images using
various techniques via a uniform interface, where reprojection is the
re-gridding of images from one world coordinate system to another e.g.
changing the pixel resolution, orientation, coordinate system.")
(license license:bsd-3)))
(define-public python-sunpy
(package
(name "python-sunpy")
(version "4.0.6")
(source
(origin
(method url-fetch)
(uri (pypi-uri "sunpy" version))
(sha256
(base32 "0aiirb6l8zshdrpsvh6d5ki759ah9zfm9gbl0in985hprwwxyrq1"))))
(build-system pyproject-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-before 'install 'writable-compiler
(lambda _
(make-file-writable "sunpy/_compiler.c")))
(add-before 'check 'prepare-test-environment
(lambda _
(setenv "HOME" "/tmp")
(make-file-writable "sunpy/_compiler.c")
;; TODO: (Sharlatan-20221106T115800+0000): Review failing tests
(substitute* "sunpy/image/tests/test_transform.py"
(("def test_clipping") "def __off_test_clipping")
(("def test_nans") "def __off_test_nans")
(("def test_endian") "def __off_test_endian"))
(substitute* "sunpy/map/tests/test_mapbase.py"
(("def test_derotating_nonpurerotation_pcij")
"def __off_test_derotating_nonpurerotation_pcij"))
(substitute* "sunpy/map/sources/tests/test_mdi_source.py"
(("def test_synoptic_source")
"def __off_test_synoptic_source"))
(substitute* "sunpy/tests/tests/test_self_test.py"
(("def test_main_nonexisting_module")
"def __off_test_main_nonexisting_module")
(("def test_main_stdlib_module")
"def __off_test_main_stdlib_module")))))))
(native-inputs
(list python-aiohttp
python-extension-helpers
python-hvpy
python-packaging
python-pytest
python-pytest-astropy
python-pytest-doctestplus
python-pytest-mock
python-pytest-mpl
python-pytest-xdist
python-setuptools-scm))
(propagated-inputs
(list parfive
python-asdf
python-asdf-astropy
python-astropy
python-beautifulsoup4
python-cdflib
python-dask
python-dateutil
python-drms
python-glymur
python-h5netcdf
python-h5py
python-hypothesis
python-jplephem
python-matplotlib
python-mpl-animators
python-numpy
;; python-opencv-python ; not packed yet
python-pandas
python-reproject
python-scikit-image
python-scipy
python-semantic-version
python-sqlalchemy
python-tqdm
python-zeep))
(home-page "https://sunpy.org")
(synopsis "Python library for Solar Physics")
(description
"SunPy is package for solar physics and is meant to be a free alternative to the
SolarSoft data analysis environment.")
(license license:bsd-2)))
(define-public python-astral
(package
(name "python-astral")
@ -1957,26 +2183,40 @@ datetime object.")
(define-public python-asdf
(package
(name "python-asdf")
(version "2.8.3")
(version "2.13.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "asdf" version))
(sha256
(base32 "0i4vq1hsympjgb1yvn4ql0gm8j1mki9ggmj03533kmg0nbzp03yy"))))
(build-system python-build-system)
(base32 "1zixzv4n2fryaszsfchqh2nvp0gzvarhz03fc721yw6iafdadqij"))))
(build-system pyproject-build-system)
(arguments
;; NOTE: (Sharlatan-20211229T201059+0000): Tests depend on astropy and
;; gwcs, astropy gwcs depend on asdf. Disable circular dependence.
;; FIXME: Tests fail a lot with
;;
;; ERROR - _pytest.pathlib.ImportPathMismatchError:
;; ('asdf.conftest', '/gnu/sto...
;;
`(#:tests? #f))
(native-inputs
(list python-setuptools-scm
(list python-astropy
python-packaging
python-psutil
python-pytest
python-pytest-doctestplus
python-pytest-openfiles
python-pytest-remotedata
python-semantic-version
python-packaging))
python-setuptools-scm))
(propagated-inputs
(list python-importlib-resources
python-jsonschema
(list python-asdf-standard
python-asdf-transform-schemas
python-asdf-unit-schemas
python-importlib-metadata
python-importlib-resources
python-jmespath
python-jsonschema-next
python-lz4
python-numpy
python-pyyaml))
(home-page "https://github.com/asdf-format/asdf")
@ -1987,31 +2227,63 @@ interchange format for scientific data. This package contains the Python
implementation of the ASDF Standard.")
(license license:bsd-3)))
(define-public python-asdf-standard
(package
(name "python-asdf-standard")
(version "1.0.3")
(source
(origin
(method url-fetch)
(uri (pypi-uri "asdf_standard" version))
(sha256
(base32
"0i7xdjwn5prg2hcnf1zhw57mszc68jjr5sv4rimpzcg7f2dgzn5g"))))
(build-system pyproject-build-system)
(arguments
(list #:phases #~(modify-phases %standard-phases
(add-before 'check 'remove-blocking-tests
(lambda _
;; Remove tests require python-asdf where
;; python-asdf require python-asdf-standard,
;; break circular dependencies.
(for-each delete-file
(list "tests/test_manifests.py"
"tests/test_integration.py")))))))
(native-inputs (list python-astropy
python-jsonschema-next
python-pypa-build
python-pytest-7.1
python-packaging
python-setuptools-scm))
(propagated-inputs (list python-importlib-resources))
(home-page "https://asdf-standard.readthedocs.io/")
(synopsis "ASDF standard schemas")
(description
"This package provides Python implementation of @acronym{ASDF, Advanced
Scientific Data Format} - a proposed next generation interchange format for
scientific data. ASDF aims to exist in the same middle ground that made FITS
so successful, by being a hybrid text and binary format: containing human
editable metadata for interchange, and raw binary data that is fast to load
and use. Unlike FITS, the metadata is highly structured and is designed
up-front for extensibility.")
(license license:bsd-3)))
(define python-asdf-transform-schemas
(package
(name "python-asdf-transform-schemas")
(version "0.2.0")
(version "0.3.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "asdf_transform_schemas" version))
(sha256
(base32 "1gmzd81hw4ppsvzrc91wcbjpcw9hhv9gavllv7nyi7qjb54c837g"))))
(build-system python-build-system)
(base32 "1midgn575970p5cnsh9y6bz77fjr392b5nfxb3z0id6c49xzzwhc"))))
(build-system pyproject-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda* (#:key inputs outputs tests? #:allow-other-keys)
(when tests?
(add-installed-pythonpath inputs outputs)
(invoke "python" "-m" "pytest")))))))
(native-inputs
(list python-pytest
python-semantic-version
python-setuptools-scm))
(propagated-inputs
(list python-asdf))
;; Dependency cycle with python-asdf
(list #:tests? #f))
(native-inputs (list python-setuptools-scm))
(propagated-inputs (list python-asdf-standard python-importlib-resources))
(home-page "https://github.com/asdf-format/asdf-transform-schemas")
(synopsis "ASDF schemas for transforms")
(description
@ -2052,25 +2324,111 @@ coordinates tags. Users should not need to install this directly; instead,
install an implementation package such as asdf-astropy.")
(license license:bsd-3)))
(define python-asdf-fits-schemas
;; TODO: No release, change to tag when it's ready.
(let ((commit "572bb370d777f3a325b25c1af9d76e1b7d27dcea")
(revision "0"))
(package
(name "python-asdf-fits-schemas")
(version (git-version "0.0.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/asdf-format/asdf-fits-schemas")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1yqnzd0gcrdfl0jqm8m8kz5fd36i8lgh7xkglmp1chsi1cc6mkz2"))))
(build-system pyproject-build-system)
(arguments
(list
;; Dependency cycle with python-asdf
#:tests? #f
#:phases
#~(modify-phases %standard-phases
(add-before 'build 'set-version
(lambda _
(setenv "SETUPTOOLS_SCM_PRETEND_VERSION" "0.0.1"))))))
(native-inputs (list python-setuptools-scm))
(propagated-inputs (list python-asdf-standard python-importlib-resources))
(home-page "https://github.com/asdf-format/asdf-fits-schemas")
(synopsis "ASDF schemas to support the FITS format")
(description
"This package provides ASDF schemas for validating FITS tags.")
(license license:bsd-3))))
(define python-asdf-time-schemas
;; TODO: No release, change to tag when it's ready.
(let ((commit "e9174083d9cfd3c6f7ded9eeb360d99ccb8d9d18")
(revision "2"))
(package
(name "python-asdf-time-schemas")
(version (git-version "0.0.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/asdf-format/asdf-time-schemas")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1i40hcxp8sds2zq939fwczjlshfqb9r9pnzy3a44c3wqdbwhcbdb"))))
(build-system pyproject-build-system)
(arguments
(list
;; Dependency cycle with python-asdf
#:tests? #f
#:phases
#~(modify-phases %standard-phases
(add-before 'build 'set-version
(lambda _
(setenv "SETUPTOOLS_SCM_PRETEND_VERSION" "0.0.1"))))))
(native-inputs (list python-setuptools-scm))
(propagated-inputs (list python-asdf-standard
python-asdf-unit-schemas
python-importlib-resources))
(home-page "https://github.com/asdf-format/asdf-fits-schemas")
(synopsis "Schemas for storing time in ASDF")
(description
"This package provides ASDF schemas for validating time tags.")
(license license:bsd-3))))
(define python-asdf-unit-schemas
(package
(name "python-asdf-unit-schemas")
(version "0.1.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "asdf_unit_schemas" version))
(sha256
(base32
"16grpx3a9h0v1wirp0zqrfsxm867v5c0xyr98pylzziy45kqvds2"))))
(build-system pyproject-build-system)
(arguments
;; Dependency cycle with python-asdf
(list #:tests? #f))
(native-inputs (list python-setuptools-scm))
(propagated-inputs (list python-asdf-standard python-importlib-resources))
(home-page "https://asdf-unit-schemas.readthedocs.io/")
(synopsis "ASDF serialization schemas for the units defined by @code{astropy.units}")
(description "This package provides ASDF schemas for validating unit tags.")
(license license:bsd-3)))
(define-public python-asdf-astropy
(package
(name "python-asdf-astropy")
(version "0.1.2")
(version "0.2.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "asdf_astropy" version))
(sha256
(base32 "0bzgah7gskvnz6jcrzipvzixv8k2jzjkskqwxngzwp4nxgjbcvi4"))))
(build-system python-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda* (#:key inputs outputs tests? #:allow-other-keys)
(when tests?
(add-installed-pythonpath inputs outputs)
(invoke "python" "-m" "pytest")))))))
(base32 "1b0v4cl7xvly3x1k5k2rvc2l32jqgqp0iyf1j20fkvj450sx74f2"))))
(build-system pyproject-build-system)
(native-inputs
(list python-coverage
python-h5py
@ -2130,24 +2488,16 @@ install an implementation package such as gwcs.")
(define-public python-gwcs
(package
(name "python-gwcs")
(version "0.18.0")
(version "0.18.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "gwcs" version))
(sha256
(base32 "194j49m8xjjzv9pp8cnj06igz8sdxb0nphyybcc7mhigw0f0kr30"))))
(build-system python-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda* (#:key inputs outputs tests? #:allow-other-keys)
(when tests?
(add-installed-pythonpath inputs outputs)
(invoke "python" "-m" "pytest")))))))
(base32 "0v9qcq6zl74d6s882s6xmas144jfalvll6va8rvrxmvpx4vqjzhg"))))
(build-system pyproject-build-system)
(native-inputs
(list python-jsonschema
(list python-jsonschema-next
python-jmespath
python-pytest
python-pytest-doctestplus

3
gnu/packages/audio.scm
View File

@ -3707,7 +3707,8 @@ analysis plugins or audio feature extraction plugins.")
(symlink
(search-input-file inputs
(string-append "/share/automake-"
,(package-version automake)
,(version-major+minor
(package-version automake))
"/ar-lib"))
"ar-lib")
#t)))))

2
gnu/packages/backup.scm
View File

@ -1036,7 +1036,7 @@ precious backup space.
(arguments
`(#:tests? #f)) ;no test
(inputs
(list lzo libressl protobuf xz zlib))
(list lzo libressl protobuf-3.6 xz zlib))
(home-page "http://zbackup.org")
(synopsis "Versatile deduplicating backup tool")
(description

14
gnu/packages/base.scm
View File

@ -130,7 +130,19 @@ command-line arguments, multiple languages, and so on.")
(substitute* (list (string-append bin "/egrep")
(string-append bin "/fgrep"))
(("^exec grep")
(string-append "exec " bin "/grep")))))))
(string-append "exec " bin "/grep"))))))
,@(if (hurd-target?)
'((add-before 'check 'skip-triple-backref-test
(lambda _
;; This test is marked as malfunctioning on glibc systems
;; due to
;; <https://sourceware.org/bugzilla/show_bug.cgi?id=11053>
;; and it triggers a segfault with glibc 2.33 on GNU/Hurd.
;; Skip it.
(substitute* "tests/triple-backref"
(("^warn_" all)
(string-append "exit 77\n" all))))))
'()))
#:make-flags ,(if (hurd-target?)
''("XFAIL_TESTS=test-perror2 equiv-classes") ;XXX
''())))

2180
gnu/packages/bioconductor.scm
View File

File diff suppressed because it is too large Load Diff

37
gnu/packages/bioinformatics.scm
View File

@ -23,6 +23,7 @@
;;; Copyright © 2021 Hong Li <hli@mdc-berlin.de>
;;; Copyright © 2021, 2022 Simon Tournier <zimon.toutoune@gmail.com>
;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
;;; Copyright © 2022 Navid Afkhami <navid.afkhami@mdc-berlin.de>
;;;
;;; This file is part of GNU Guix.
;;;
@ -535,6 +536,42 @@ BED, GFF/GTF, VCF.")
and utilities for PacBio C++ applications.")
(license license:bsd-3))))
(define-public r-btools
(let ((commit "fa21d4ca01d37ea4d98b45582453f3bf95cbc2b5")
(revision "1"))
(package
(name "r-btools")
(version (git-version "0.0.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/twbattaglia/btools")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0bca593dnxz6xdywpdi0ipli0paln2b3bfxxj0csnmj55ryrz428"))))
(properties `((upstream-name . "btools")))
(build-system r-build-system)
(propagated-inputs
(list r-biomformat
r-coin
r-deseq2
r-dplyr
r-genefilter
r-phyloseq
r-picante
r-plotly
r-reshape2
r-stringr
r-vegan))
(home-page "https://github.com/twbattaglia/btools")
(synopsis "R functions for microbial diversity analyses")
(description
"This package provides an assortment of R functions that is suitable
for all types of microbial diversity analyses.")
(license license:expat))))
(define-public pbbam
(package
(name "pbbam")

10
gnu/packages/bqn.scm
View File

@ -113,7 +113,7 @@ the same author.")
;; Aside from dbqn above, the main bqn repository is used by other
;; implementations as a "known good" set of sources. CBQN uses dbqn to
;; generate an intermediate bytecode for its own compilation.
(let ((commit "e219af48401473a7bac49bdd8b89d69082cf5dd8"))
(let ((commit "71ce36141aaacfa714edca2e408ca522a3bc5554"))
(origin
(method git-fetch)
(uri (git-reference
@ -121,11 +121,11 @@ the same author.")
(commit commit)))
(file-name (git-file-name "bqn-sources" commit))
(sha256
(base32 "0r6pa9lscl2395g4xlvmg90vpdsjzhin4f1r0s7brymmpvmns2yc")))))
(base32 "060a3r5m7hynzxj4iz1av2kj5jf8w3j8yswzzx9wkx31rdrsiv2c")))))
(define cbqn-bootstrap
(let* ((revision "1")
(commit "9c1cbdc99863b1da0116df61cd832137b196dc5c"))
(let* ((revision "2")
(commit "66584ce1491d300746963b8ed17170348b2a03e6"))
(package
(name "cbqn-bootstrap")
(version (git-version "0" revision commit))
@ -137,7 +137,7 @@ the same author.")
(file-name (git-file-name name version))
(sha256
(base32
"0w38fhwf20drkyijy6nfnhmc5g5gw0zmzgmy1q605x57znlj85a2"))))
"13gg96aa56b8k08bjvv8i0f5nxrah2sij7g6pg7i21fdv08rd9iv"))))
(build-system gnu-build-system)
(arguments
(list

37
gnu/packages/calendar.scm
View File

@ -34,6 +34,7 @@
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu)
#:use-module (guix build-system go)
#:use-module (guix build-system cmake)
#:use-module (guix build-system python)
#:use-module (gnu packages admin)
@ -45,6 +46,7 @@
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnome)
#:use-module (gnu packages golang)
#:use-module (gnu packages gtk)
#:use-module (gnu packages icu4c)
#:use-module (gnu packages perl)
@ -426,3 +428,38 @@ written in C++ using GTK. Launched once, it pops up a small calendar applet,
launched again it closes the running instance. It can additionally be
configured to show the current time in different timezones.")
(license license:bsd-3))))
(define-public hebcal
(let ((commit "2384bb88dc1a41a4a5ae57a29fb58b2dd49a475d")
(revision "0"))
(package
(name "hebcal")
(version (git-version "5.3.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hebcal/hebcal")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"12rv3b51jb7wcjwmmizz9jkw7gh37yklys4xncvpzgxdkkfgmmjx"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/hebcal/hebcal"))
(inputs
(list go-github-com-hebcal-hebcal-go
go-github-com-pborman-getopt))
(synopsis "Perpetual Jewish Calendar program")
(description
"Hebcal is a program for converting between Hebrew and Gregorian
dates, and generating lists of Jewish holidays for a given year.
Shabbat, holiday candle lighting, and havdalah times are approximated
using your location.
It can also show daily prayer times, the weekly Torah reading, and
the daily leaf of Talmud. The program can help with counting of the
Omer or with calculation of Hebrew yahrzeits, birthdays, or
anniversaries.")
(home-page "https://github.com/hebcal/hebcal")
(license license:gpl2+))))

6
gnu/packages/ci.scm
View File

@ -58,8 +58,8 @@
#:use-module ((guix search-paths) #:select ($SSL_CERT_DIR)))
(define-public cuirass
(let ((commit "1fb4b0ac1297e9bd680d0f4a356ce3050b27f913")
(revision "12"))
(let ((commit "1341725f2cbb886e0960c6fad13444e3cfe36c13")
(revision "13"))
(package
(name "cuirass")
(version (git-version "1.1.0" revision commit))
@ -72,7 +72,7 @@
(file-name (git-file-name name version))
(sha256
(base32
"0134klqiykjgyc6lwl165hpil6hgd8xhm62mpxabr6wrvclk8bhm"))))
"0l928hd84ky9l4d1nfdkzc4jvghvxia4j6gflliydvfiyfiw87b3"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((guix build utils)

2
gnu/packages/cluster.scm
View File

@ -132,7 +132,7 @@
;; For the documentation.
docbook-xml
docbook-xml-4.4 ;used by documentation/ra2refentry.xsl
docbook-xsl
docbook-xsl-next
libxml2 ;for XML_CATALOG_FILES
libxslt ;for xsltproc
ruby-asciidoctor))

163
gnu/packages/cran.scm
View File

@ -599,6 +599,27 @@ Google. @code{googleVis} makes use of the internal R HTTP server to display
the output locally.")
(license license:gpl2+)))
(define-public r-gson
(package
(name "r-gson")
(version "0.0.9")
(source (origin
(method url-fetch)
(uri (cran-uri "gson" version))
(sha256
(base32
"065ify3i7zqwi7h5jzr7kdgr358kwgw6xrkvvmrznbl7s9f7d57n"))))
(properties `((upstream-name . "gson")))
(build-system r-build-system)
(propagated-inputs (list r-jsonlite r-rlang r-tidyr))
(home-page "https://cran.r-project.org/package=gson")
(synopsis "Base Class and Methods for 'gson' Format")
(description
"This packages proposes a new file format named @code{gson} for storing
gene set and related information, and provides read, write and other utilities
to process this file format.")
(license license:artistic2.0)))
(define-public r-guix-install
(package
(name "r-guix-install")
@ -709,6 +730,33 @@ allows transformation of geographic coordinates from one projection and/or
datum to another.")
(license license:gpl2)))
(define-public r-rorcid
(package
(name "r-rorcid")
(version "0.7.0")
(source (origin
(method url-fetch)
(uri (cran-uri "rorcid" version))
(sha256
(base32
"1d0s5w48ksyj152nc4xq5w0nsimab8jc5fgspdwnbas2g8a52igr"))))
(properties `((upstream-name . "rorcid")))
(build-system r-build-system)
(propagated-inputs (list r-crul
r-data-table
r-fauxpas
r-httr
r-jsonlite
r-tibble
r-xml2))
(home-page "https://github.com/ropensci/rorcid")
(synopsis "Interface to the @url{Orcid.org, https://orcid.org} API")
(description
"This package provides an API for @url{Orcid.org, https://orcid.org}.
Functions include searching for people, searching by DOI, or searching by
Orcid ID.")
(license license:expat)))
(define-public r-waldo
(package
(name "r-waldo")
@ -1273,13 +1321,13 @@ variables.")
(define-public r-ggprism
(package
(name "r-ggprism")
(version "1.0.3")
(version "1.0.4")
(source (origin
(method url-fetch)
(uri (cran-uri "ggprism" version))
(sha256
(base32
"09dh0r8r5s61i5dbk6rswajc2vm7k8wvlqyvzq8wr160676lycjp"))))
"0ycklp7764cw65hqh9r61im8vqfd7sjayyw1gvprxzg7k217gnl3"))))
(properties `((upstream-name . "ggprism")))
(build-system r-build-system)
(propagated-inputs
@ -1874,6 +1922,30 @@ excellent candidate for labeling of a polygon.")
@code{dplyr} and the wider @code{tidyverse} using only @code{base}.")
(license license:expat)))
(define-public r-ecosolver
(package
(name "r-ecosolver")
(version "0.5.4")
(source (origin
(method url-fetch)
(uri (cran-uri "ECOSolveR" version))
(sha256
(base32
"0973m346vakgddp92dzqlky0wa196hj341r9y7rz67bc2zl8jx2x"))))
(properties `((upstream-name . "ECOSolveR")))
(build-system r-build-system)
(native-inputs (list r-knitr))
(home-page "https://bnaras.github.io/ECOSolveR/")
(synopsis "Embedded conic solver in R")
(description
"This package provides an R interface to the @dfn{Embedded COnic
Solver} (ECOS), an efficient and robust C library for convex problems.
Conic and equality constraints can be specified in addition to integer
and boolean variable constraints for mixed-integer problems. This R
interface is inspired by the Python interface and has similar calling
conventions.")
(license license:gpl3+)))
(define-public r-ecp
(package
(name "r-ecp")
@ -3603,13 +3675,13 @@ annotation data to keep updated.")
(define-public r-ggtern
(package
(name "r-ggtern")
(version "3.3.5")
(version "3.4.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "ggtern" version))
(sha256
(base32 "15hhn8msy0l8zbq8ms0zvg1iajn1c28gd77v3hp6dvwwsla8zzbd"))))
(base32 "01j1rvff3vz72vwqsy3bh81aav7gfymg4sbvc267vg0r3a16ywcg"))))
(properties `((upstream-name . "ggtern")))
(build-system r-build-system)
(propagated-inputs
@ -5639,6 +5711,43 @@ testing framework of Wald are generic and can therefore also be used in other
contexts.")
(license license:gpl2+)))
(define-public r-cvxr
(package
(name "r-cvxr")
(version "1.0-11")
(source (origin
(method url-fetch)
(uri (cran-uri "CVXR" version))
(sha256
(base32
"0alp1g4bszxqcrjbn54bz1zswg8y10372fwwlbi0jjazycw9cap9"))))
(properties `((upstream-name . "CVXR")))
(build-system r-build-system)
(propagated-inputs
(list r-bit64
r-ecosolver
r-gmp
r-matrix
r-osqp
r-r6
r-rcpp
r-rcppeigen
r-rmpfr
r-scs))
(native-inputs (list r-knitr))
(home-page "https://cvxr.rbind.io")
(synopsis "Disciplined convex optimization")
(description
"This package provides an object-oriented modeling language for
@dfn{disciplined convex programming} (DCP) as described in Fu,
Narasimhan, and Boyd (2020, <doi:10.18637/jss.v094.i14>). It allows
the user to formulate convex optimization problems in a natural way
following mathematical convention and DCP rules. The system analyzes
the problem, verifies its convexity, converts it into a canonical
form, and hands it off to an appropriate solver to obtain the
solution. Interfaces to solvers on CRAN and elsewhere are provided.")
(license license:asl2.0)))
(define-public r-squarem
(package
(name "r-squarem")
@ -19203,6 +19312,28 @@ authoring books and technical documents with R Markdown.")
that accept short and long options.")
(license license:gpl2+)))
(define-public r-osqp
(package
(name "r-osqp")
(version "0.6.0.7")
(source (origin
(method url-fetch)
(uri (cran-uri "osqp" version))
(sha256
(base32
"00w2hr0pagnvpsk84z99c7alhv7xvs9wpcmkzbcg3qs14g888rgf"))))
(properties `((upstream-name . "osqp")))
(build-system r-build-system)
(propagated-inputs (list r-matrix r-r6 r-rcpp))
(home-page "https://osqp.org")
(synopsis "Quadratic Programming Solver using the OSQP Library")
(description
"This package provides bindings to the OSQP solver. The OSQP
solver is a numerical optimization package or solving convex quadratic
programs written in C and based on the alternating direction method of
multipliers. See <arXiv:1711.08013> for details.")
(license (list license:asl2.0))))
(define-public r-kernlab
(package
(name "r-kernlab")
@ -20947,6 +21078,30 @@ errors and possible semantic issues. It supports on the fly checking of R
code edited with @code{RStudio IDE}, @code{Emacs} and @code{Vim}.")
(license license:expat)))
(define-public r-scs
(package
(name "r-scs")
(version "3.0-1")
(source (origin
(method url-fetch)
(uri (cran-uri "scs" version))
(sha256
(base32
"04srf33zw4dxv22b1h5qwjch5yg7hrvk4iq8yvxqnbr8qzp1x26n"))))
(properties `((upstream-name . "scs")))
(build-system r-build-system)
(home-page "https://github.com/FlorianSchwendinger/scs")
(synopsis "Splitting conic solver")
(description
"This package solves convex cone programs via operator splitting.
It can solve: linear programs, second-order cone programs,
semidefinite programs, exponential cone programs, and power cone
programs, or problems with any combination of those cones. SCS uses
AMD (a set of routines for permuting sparse matrices prior to
factorization) and LDL (a sparse LDL factorization and solve package)
from SuiteSparse.")
(license license:gpl3)))
(define-public r-sctransform
(package
(name "r-sctransform")

25
gnu/packages/databases.scm
View File

@ -1580,17 +1580,24 @@ types are supported, as is encryption.")
(sha256
(base32
"1w1q6kh567fd8xismq9i6wr1y893lypd30l452yvydi1qjiq1n6x"))
(snippet '(begin (delete-file "rec-mode.info")))))
(snippet #~(begin (delete-file "rec-mode.info")))))
(build-system emacs-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-before 'install 'make-info
(lambda _
(invoke "makeinfo" "--no-split"
"-o" "rec-mode.info" "rec-mode.texi"))))))
(native-inputs
(list texinfo))
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-program-paths
(lambda* (#:key inputs #:allow-other-keys)
(emacs-substitute-variables "rec-mode.el"
("rec-recfix" (search-input-file inputs "bin/recfix"))
("rec-recinf" (search-input-file inputs "bin/recinf"))
("rec-recsel" (search-input-file inputs "bin/recsel")))))
(add-before 'install 'make-info
(lambda _
(invoke "makeinfo" "--no-split"
"-o" "rec-mode.info" "rec-mode.texi"))))))
(inputs (list recutils))
(native-inputs (list texinfo))
(home-page "https://www.gnu.org/software/recutils/")
(synopsis "Emacs mode for working with recutils database files")
(description "This package provides an Emacs major mode @code{rec-mode}

4
gnu/packages/debug.scm
View File

@ -597,7 +597,7 @@ the position of the variable and allows you to modify its value.")
(define-public remake
(package (inherit gnu-make)
(name "remake")
(version "4.3-1.5")
(version "4.3-1.6")
(source (origin
(method url-fetch)
(uri (let ((upstream-version
@ -609,7 +609,7 @@ the position of the variable and allows you to modify its value.")
(file-name (string-append "remake-" version ".tar.gz"))
(sha256
(base32
"0xlx2485y0israv2pfghmv74lxcv9i5y65agy69mif76yc4vfvif"))
"11vvch8bi0yhjfz7gn92b3xmmm0cgi3qfiyhbnnj89frkhbwd87n"))
(patches (search-patches "remake-impure-dirs.patch"))))
(inputs
(modify-inputs (package-inputs gnu-make)

41
gnu/packages/disk.scm
View File

@ -24,6 +24,7 @@
;;; Copyright © 2021 Justin Veilleux <terramorpha@cock.li>
;;; Copyright © 2014, 2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Disseminate Dissent <disseminatedissent@protonmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -835,6 +836,46 @@ hierarchy. It ships with @code{rifle}, a file launcher that is good at
automatically finding out which program to use for what file type.")
(license license:gpl3)))
(define-public fff
(package
(name "fff")
(version "2.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/dylanaraps/fff")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"14ymdw6l6phnil0xf1frd5kgznaiwppcic0v4hb61s1zpf4wrshg"))))
(build-system gnu-build-system)
(inputs
(list bash
file))
(arguments
(list
#:tests? #f ; no tests
#:make-flags
#~(list
(string-append "PREFIX=" #$output))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'refer-to-inputs
(lambda* (#:key inputs #:allow-other-keys)
(let ((file (assoc-ref inputs "file")))
(substitute* "fff"
(("\\bfile [-\"]" match)
(string-append file "/bin/" match))))))
(delete 'configure)))) ; no configure script
(home-page "https://github.com/dylanaraps/fff")
(synopsis "Simple file manager written in bash")
(description
"@command{fff} (fast file-manager) is a simple, blazing fast and minimal
file manager for Linux, written in bash. It only requires bash and coreutils,
and its highly optimized now for efficient performance.")
(license license:expat)))
(define-public volume-key
(package
(name "volume-key")

4
gnu/packages/dns.scm
View File

@ -1013,14 +1013,14 @@ synthesis, and on-the-fly re-configuration.")
(define-public knot-resolver
(package
(name "knot-resolver")
(version "5.4.4")
(version "5.5.3")
(source (origin
(method url-fetch)
(uri (string-append "https://secure.nic.cz/files/knot-resolver/"
"knot-resolver-" version ".tar.xz"))
(sha256
(base32
"1sic5ccbbqml4c01dbikkg6qx1gg81nqi76cj79pjdllkqqn92aq"))))
"0bgdbx66dsfik3sdqi4g2imddalqc1p41n444xk7s8vxig35g3x3"))))
(build-system meson-build-system)
(outputs '("out" "doc"))
(arguments

2
gnu/packages/docker.scm
View File

@ -580,7 +580,7 @@ runcexecutor/executor.go"
util-linux
lvm2
tini
xfsprogs
xfsprogs-5.9
xz))
(native-inputs
(list eudev ; TODO: Should be propagated by lvm2 (.pc -> .pc)

1
gnu/packages/education.scm
View File

@ -667,7 +667,6 @@ language and very flexible regarding to new or unknown keyboard layouts.")
ki18n
kiconthemes
kitemviews
kqtquickcharts
ktextwidgets
kwidgetsaddons
kwindowsystem

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

@ -554,6 +554,52 @@ optional baked-in Evil support, antialiased separators, and an easy
configuration language which makes it trivial to write your own themes.")
(license license:gpl3+))))
(define-public emacs-inspector
(let ((commit "0e89d28558f57db4519f154bb72ce617a8c6265d")
(revision "0"))
(package
(name "emacs-inspector")
(version (git-version "0.8" revision commit))
(source
(origin
(uri (git-reference
(url "https://github.com/mmontone/emacs-inspector")
(commit commit)))
(method git-fetch)
(sha256
(base32 "0n72sqn29b5sya686cicgp40mkk5x5821b7bw4zs6dcl82cyij5n"))
(file-name (git-file-name name version))))
(build-system emacs-build-system)
(arguments
(list
#:tests? #t
#:test-command #~(list "emacs" "-Q" "--batch"
"-L" "."
"-l" "inspector-tests.el"
"-l" "tree-inspector-tests.el"
"-f" "ert-run-tests-batch-and-exit")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'preserve-emacs-28-compatibility
;; XXX: `cl-constantly' function is defined in "cl-lib" starting
;; from Emacs 29+. For now, replace it with its definition.
(lambda _
(substitute* "tree-inspector.el"
(("cl-constantly") "lambda (_)"))))
(add-before 'check 'skip-failing-test
(lambda _
(substitute* "tree-inspector-tests.el"
(("\\(ert-deftest inspector-tests--inspect-struct-test.*" all)
(string-append all " (skip-unless nil)"))))))))
(native-inputs (list emacs-ert-runner))
(propagated-inputs (list emacs-treeview))
(home-page "https://github.com/mmontone/emacs-inspector")
(synopsis "Inspection tool for Emacs Lisp objects")
(description
"This package provides an introspection tool similar to those found in
Common Lisp or Smalltalk, but for Emacs Lisp.")
(license license:gpl3+))))
(define-public emacs-terminal-here
(package
(name "emacs-terminal-here")
@ -576,6 +622,28 @@ Emacs, whose initial working directories are determined in relation to the
current buffer.")
(license license:gpl3+)))
(define-public emacs-treeview
(let ((commit "d9c10feddf3b959e7b33ce83103e1f0a61162723")
(revision "0"))
(package
(name "emacs-treeview")
(version (git-version "1.1.1" revision commit))
(source
(origin
(uri (git-reference
(url "https://github.com/tilmanrassy/emacs-treeview")
(commit commit)))
(method git-fetch)
(sha256
(base32 "14s0b6zbapsvgyxki59lglwb3s8wjsjwkgj5r66af9nj2bgz5ms9"))
(file-name (git-file-name name version))))
(build-system emacs-build-system)
(home-page "https://github.com/tilmanrassy/emacs-treeview/")
(synopsis "Emacs Lisp framework for tree navigation")
(description
"Abstract Emacs Lisp framework for tree navigation.")
(license license:gpl3+))))
(define-public emacs-hgignore-mode
;; From 2021-03-14.
;; No releases available.
@ -741,36 +809,31 @@ Emacs package archive}.")
(license license:gpl3+)))
(define-public emacs-paredit
;; The last tagged release is from 2014; use the latest commit, which
;; includes many fixes such as honoring the 'fill-paragraph-function'
;; variable.
(let ((commit "d0b1a2f42fb47efc8392763d6487fd027e3a2955")
(revision "1"))
(package
(name "emacs-paredit")
(version (git-version "24" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://mumble.net/~campbell/git/paredit.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1x91xxvwb3r3h61ff1kknlaakxm1a40r7zg2lck9j52yiza4f191"))))
(build-system emacs-build-system)
(home-page "http://mumble.net/~campbell/emacs/paredit/")
(synopsis "Emacs minor mode for editing parentheses")
(description
"ParEdit (paredit.el) is a minor mode for performing structured editing
(package
(name "emacs-paredit")
(version "25")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://mumble.net/~campbell/git/paredit.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1gc6lnk5xqxzl9s2m99hfi07wp4zfhh1k64c1bdrjfalv55nl998"))))
(build-system emacs-build-system)
(home-page "http://mumble.net/~campbell/emacs/paredit/")
(synopsis "Emacs minor mode for editing parentheses")
(description
"ParEdit (paredit.el) is a minor mode for performing structured editing
of S-expression data. The typical example of this would be Lisp or Scheme
source code.
ParEdit helps **keep parentheses balanced** and adds many keys for moving
ParEdit helps keep parentheses balanced and adds many keys for moving
S-expressions and moving around in S-expressions. Its behavior can be jarring
for those who may want transient periods of unbalanced parentheses, such as
when typing parentheses directly or commenting out code line by line.")
(license license:gpl3+))))
(license license:gpl3+)))
(define-public emacs-puni
;; No tagged release upstream
@ -2841,6 +2904,34 @@ like. It can be linked with various Emacs mail clients (Message and Mail
mode, Rmail, Gnus, MH-E, and VM). BBDB is fully customizable.")
(license license:gpl3+)))
(define-public emacs-bbdb-vcard
;; No release since Dec 1, 2013.
(let ((version "0.4.1") ;3d79fdb4200a64a043e203a3baac95c936095b52, not tagged
(revision "88")
(commit "113c66115ce68316e209f51ebce56de8dded3606"))
(package
(name "emacs-bbdb-vcard")
(version (git-version version revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/tohojo/bbdb-vcard")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1sr5kd2gvw1b4hl147yb60cgx6j730vdnpyr09p7vmpw65hzwlwm"))))
(build-system emacs-build-system)
(propagated-inputs (list emacs-bbdb))
(home-page "https://github.com/tohojo/bbdb-vcard")
(synopsis
"vCard Import and Export for The Insidious Big Brother Database (BBDB)")
(description
"@code{bbdb-vcard.el} imports and exports vCards (version 3.0) as
defined in RFC 2425 and RFC 2426 to/from The Insidious Big Brother Database
(BBDB). Version 2.1 vCards are converted into version 3.0 on import.")
(license license:gpl2+))))
(define-public emacs-beacon
(package
(name "emacs-beacon")
@ -3439,7 +3530,7 @@ of bibliographic references.")
(define-public emacs-corfu
(package
(name "emacs-corfu")
(version "0.28")
(version "0.33")
(source
(origin
(method git-fetch)
@ -3448,7 +3539,7 @@ of bibliographic references.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0lmjmaijanhhimkd006y5g1pvpllqgm30wj2y3wf3h4sl7h23rcz"))))
(base32 "0c353k6f4i96gajfw1zvidhlwr2brnhhdr39503hpa5wnp69wak7"))))
(build-system emacs-build-system)
(arguments
`(#:phases
@ -3496,7 +3587,7 @@ be regarded as @code{emacs-company-quickhelp} for @code{emacs-corfu}.")
(define-public emacs-cape
(package
(name "emacs-cape")
(version "0.10")
(version "0.11")
(source
(origin
(method git-fetch)
@ -3505,7 +3596,7 @@ be regarded as @code{emacs-company-quickhelp} for @code{emacs-corfu}.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0kcnyzksj8yglk67g1130wxzscgipm7cz2hs8mvdqpcbz4i38jny"))))
(base32 "0z6ixw7gsx1g7x2xpj5ilslrjrlp6x2ynzh731hs3yf3n281715b"))))
(build-system emacs-build-system)
(home-page "https://github.com/minad/cape")
(synopsis "Completion at point extensions for Emacs")
@ -4626,7 +4717,6 @@ which is restored where possible when the file is loaded again.")
(build-system emacs-build-system)
(arguments
`(#:tests? #t
#:emacs ,emacs ; FIXME: tests fail with emacs-minimal
#:test-command '("./run-tests.sh")))
(home-page "https://github.com/magnars/s.el")
(synopsis "Emacs string manipulation library")
@ -6105,10 +6195,10 @@ blocks with @code{org-babel} in @code{org-mode}.")
(license license:gpl3+))))
(define-public emacs-ob-restclient
(let ((commit "f7449b2068498fe9d8ab9589e0a638148861533f"))
(let ((commit "1b021ce1c67c97fa1aa4d2c0816edb7add129e48"))
(package
(name "emacs-ob-restclient")
(version (git-version "0.02" "2" commit))
(version (git-version "0.02" "3" commit))
(source
(origin
(method git-fetch)
@ -6117,7 +6207,7 @@ blocks with @code{org-babel} in @code{org-mode}.")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0s3931w9ab3yfml2pmq71rw21yf6hpg7m3vihxyy3vs6zli1cvmq"))))
(base32 "1bcjj01q5n9w2cch6brbz8pzwnwsmdlgaa4sf5s97b9frmqb2ffg"))))
(propagated-inputs
(list emacs-restclient))
(build-system emacs-build-system)
@ -6930,7 +7020,7 @@ files which are intended to be packages.")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://git.sr.ht/~manuel-uberti/flycheck-proselint")
(url "https://git.sr.ht/~manuel-uberti/flymake-proselint")
(commit commit)))
(file-name (git-file-name name version))
(sha256
@ -6947,11 +7037,9 @@ files which are intended to be packages.")
(("\"proselint\"")
(string-append
"\"" (search-input-file inputs "/bin/proselint") "\""))))))))
(propagated-inputs
(list emacs-flycheck))
(inputs
(list python-proselint))
(home-page "https://git.sr.ht/~manuel-uberti/flycheck-proselint")
(home-page "https://git.sr.ht/~manuel-uberti/flymake-proselint")
(synopsis "Flymake backend for @code{proselint}")
(description "This package adds support for @code{proselint} in Flymake.")
(license license:gpl3+))))
@ -11763,26 +11851,40 @@ like @code{org-edit-src-code} but for arbitrary regions.")
(define-public emacs-projectile
(package
(name "emacs-projectile")
(version "2.6.0")
(source (origin
(method url-fetch)
(uri (string-append "https://raw.githubusercontent.com/bbatsov"
"/projectile/v" version "/projectile.el"))
(file-name (string-append "projectile-" version ".el"))
(sha256
(base32
"12crymgri4sg7fvnh692f96cm0krmmcnz6x3ypxgq8da84rl34p4"))))
(version "2.7.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/bbatsov/projectile")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0ybd41iss8vd56qv6czpxqq7a99s4h7i3a2r4khy4rf5blj5zdqi"))))
(build-system emacs-build-system)
(arguments
(list
#:tests? #t
#:test-command #~(list "buttercup" "-L" ".")
#:phases
#~(modify-phases %standard-phases
(add-before 'check 'fix-failing-test
(lambda _
(substitute* "test/projectile-test.el"
(("user-emacs-directory") "\".\"")))))))
(native-inputs
(list emacs-buttercup))
(propagated-inputs
(list emacs-dash emacs-pkg-info))
(home-page "https://github.com/bbatsov/projectile")
(synopsis "Manage and navigate projects in Emacs easily")
(description
"This library provides easy project management and navigation. The
concept of a project is pretty basic - just a folder containing special file.
Currently git, mercurial and bazaar repos are considered projects by default.
If you want to mark a folder manually as a project just create an empty
.projectile file in it.")
concept of a project is pretty basic: just a folder containing special file.
Currently Git, Mercurial and Bazaar repositories are considered projects by
default. If you want to mark a folder manually as a project just create an
empty @file{.projectile} file in it.")
(license license:gpl3+)))
(define-public emacs-skeletor
@ -13325,6 +13427,30 @@ Lua programming language}.")
news items, openrc and runscripts.")
(license license:gpl2+)))
(define-public emacs-ebuku
;; Upstream has no tagged release.
(let ((revision "1")
(commit "0c6cf404a49bd68800221446df186fffa0139325"))
(package
(name "emacs-ebuku")
(version (git-version "0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/flexibeast/ebuku")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"09fkzmcvzdbdjaa167wiybj0kir7y12pcq2varjywshvq2l7niz4"))))
(build-system emacs-build-system)
(home-page "https://github.com/flexibeast/ebuku")
(synopsis "Emacs interface to the buku Web bookmark manager")
(description
"Ebuku provides a basic interface to the @code{buku} Web bookmark
manager.")
(license license:gpl3+))))
(define-public emacs-evil
;; Commit message claims this is 1.15.0, but there's no tag for it, so we
;; use full git-version instead
@ -16623,6 +16749,26 @@ for the current file, using the major mode as a hint. It prompts you to enter
one if it fails.")
(license license:gpl3+)))
(define-public emacs-jarchive
(package
(name "emacs-jarchive")
(version "0.8.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://git.sr.ht/~dannyfreeman/jarchive")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1fi3y5kmy7ginyqg12q797bma638xmam7lrk74x6yhx84xgzb4fq"))))
(build-system emacs-build-system)
(home-page "https://sr.ht/~dannyfreeman/jarchive")
(synopsis "Jarchive teaches Emacs how to navigate to files inside JARs")
(description "Jarchive makes Emacs handle Java and LSP URIs pointing to
source inside JARs.")
(license license:gpl3+)))
(define-public emacs-eldoc
(package
(name "emacs-eldoc")
@ -16929,9 +17075,9 @@ formatting, and utility methods for jsonnet files.")
(license license:gpl3+)))
(define-public emacs-restclient
(let ((commit "ac8aad6c6b9e9d918062fa3c89c22c2f4ec48bc3")
(let ((commit "1fb570643b08ba66eb70831b6f874f52546917f1")
(version "0")
(revision "3")) ;Guix package revision,
(revision "4")) ;Guix package revision,
;upstream doesn't have official releases
(package
(name "emacs-restclient")
@ -16943,7 +17089,7 @@ formatting, and utility methods for jsonnet files.")
(commit commit)))
(sha256
(base32
"1a2c7xzy7rsan1zcdskia6m7n6j29xacfkqjlfdhzk6rr1bpzkwk"))
"0npij1p1yw4p1f1yrx6bl8q18nav5p2xvbp7qhzhn7lb2fdn5jqv"))
(file-name (git-file-name name version))))
(build-system emacs-build-system)
(propagated-inputs
@ -17103,6 +17249,42 @@ additions:
or @code{treemacs}, but leveraging @code{Dired} to do the job of display.")
(license license:gpl3+)))
(define-public emacs-dirvish
(package
(name "emacs-dirvish")
(version "2.0.53")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/alexluigit/dirvish")
(commit "c535e2147171be5506f4ff34e862bacbfb3de768")))
(sha256
(base32
"1nmp5ci4dvcpih6phfhk66s98lf8b49qd35ymy29kqkf5v4cnwga"))
(file-name (git-file-name name version))))
(build-system emacs-build-system)
(propagated-inputs (list emacs-transient))
(arguments
(list
#:phases
#~(modify-phases %standard-phases
;; Move the extensions source files to the top level, which
;; is included in the EMACSLOADPATH.
(add-after 'unpack 'move-source-files
(lambda _
(let ((el-files (find-files "./extensions" ".*\\.el$")))
(for-each (lambda (f)
(rename-file f (basename f)))
el-files)))))))
(home-page "https://github.com/alexluigit/dirvish")
(synopsis "Improved version of the Emacs package Dired")
(description
"Dirvish is an improved version of the Emacs inbuilt package Dired. It
not only gives Dired an appealing and highly customizable user interface, but
also comes together with almost all possible parts required for full usability
as a modern file manager.")
(license license:gpl3+)))
(define-public emacs-which-key
(package
(name "emacs-which-key")
@ -19300,7 +19482,7 @@ match and total match information in the mode-line in various search modes.")
(define-public emacs-pg
(package
(name "emacs-pg")
(version "0.16")
(version "0.19")
(source (origin
(method git-fetch)
(uri (git-reference (url "https://github.com/emarsden/pg-el")
@ -19308,7 +19490,7 @@ match and total match information in the mode-line in various search modes.")
(file-name (git-file-name name version))
(sha256
(base32
"1jdnslpgdm16klaga02p33g7c8bjzg164kxz3jd7gs5v9gqa6ppz"))))
"13fkkpimhxh91hmsp551wzrdcic5ws7wj7vjwnh8l83hsrxmxz0y"))))
(build-system emacs-build-system)
(home-page "https://github.com/emarsden/pg-el")
(synopsis "Emacs Lisp interface for PostgreSQL")
@ -19904,7 +20086,7 @@ according to a parsing expression grammar.")
(define-public emacs-eldev
(package
(name "emacs-eldev")
(version "1.2.2")
(version "1.3")
(source
(origin
(method git-fetch)
@ -19913,7 +20095,7 @@ according to a parsing expression grammar.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0d6wbfim0q81sm5m45fjc6n0v6nk32qrgas5nzrs0vslym4bfxna"))))
(base32 "112jv9rz6brglffwsablnhafhhnfnq89k9vh8xzbbi6i4xz2l1ak"))))
(build-system emacs-build-system)
(arguments
(list
@ -20755,8 +20937,8 @@ never confused by comments or @code{foo-bar} matching @code{foo}.")
(define-public emacs-crdt
;; XXX: Upstream does not always tag new releases. The commit below
;; corresponds exactly to latest version bump.
(let ((commit "92a7c93a3b4cb4b40f133acd22c89a5fda5cdd30")
(version "0.3.4"))
(let ((commit "e6d42f42c5dedb73560048f4bf6263c63ffa21bb")
(version "0.3.5"))
(package
(name "emacs-crdt")
(version version)
@ -20768,7 +20950,7 @@ never confused by comments or @code{foo-bar} matching @code{foo}.")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1vh4d15g62crm4vimc7lgr11ws68g25ylipnvqlrrkvl6qrz3fhj"))))
(base32 "16dpg0d8p4fqjl2nir290iim9bb7f87rwnxs16lx67dasvbfawph"))))
(build-system emacs-build-system)
(home-page "https://code.librehq.com/qhong/crdt.el")
(synopsis "Real-time collaborative editing environment")
@ -20985,22 +21167,22 @@ or expressions with SVG rounded box labels that are fully customizable.")
(define-public emacs-kind-icon
(package
(name "emacs-kind-icon")
(version "0.1.7")
(version "0.1.9")
(source
(origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/kind-icon-"
version ".tar"))
(sha256
(base32 "02imi2qj329yrqvs23d4z7fv8bbaz0fvya6zdswb38blpdri4cn1"))))
(base32 "0phssrcpmcidzlwy1577f3f02qwjs6hpavb416302y0n8kkhwvli"))))
(build-system emacs-build-system)
(propagated-inputs (list emacs-svg-lib))
(home-page "https://github.com/jdtsmith/kind-icon")
(synopsis "Completion kind icons in Emacs")
(description "Kind-icon mode adds a colorful icon or text prefix based
on :company-kind for compatible completion UIs. The \"kind\" prefix is
typically used for differentiating completion candidates such as variables,
functions, etc.")
(description "Kind-icon mode adds a colorful icon or text prefix based on
@code{:company-kind} for compatible completion UIs. The ``kind'' prefix is
typically used for differentiating completion candidates such as variables or
functions.")
(license license:gpl3+)))
(define-public emacs-svg-icon
@ -22553,6 +22735,29 @@ It replaces the standard completions buffer with Ido prompt.")
using user-provided rules.")
(license license:gpl3+)))
(define-public emacs-on
(let ((commit "83baed07a105c135190d49d7ec77f95e8f38fa54")
(revision "0"))
(package
(name "emacs-on")
(version (git-version "0.1.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ajgrf/on.el")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"14ly3w89hf4jgd8wacirxgd8vrgj7vc0hpfn911w5wa4k2a6nzpp"))))
(build-system emacs-build-system)
(home-page "https://github.com/ajgrf/on.el")
(synopsis "Hooks for faster Emacs startup")
(description
"This package exposes a number of utility hooks and functions ported
from Doom Emacs.")
(license license:expat))))
(define-public emacs-on-screen
(package
(name "emacs-on-screen")
@ -26087,7 +26292,7 @@ according to their use.")
(define-public emacs-detached
(package
(name "emacs-detached")
(version "0.9.2")
(version "0.10.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -26096,7 +26301,7 @@ according to their use.")
(file-name (git-file-name name version))
(sha256
(base32
"0bcrqqim6is75d4zadswxp162m9gd34xmb2wxsx9rhvkwq0ln35k"))))
"0dvvyqc0nw9has54vps10f5iv831cb29vqvbvx0m2djv9pacqp17"))))
(arguments
(list
#:tests? #t
@ -28571,8 +28776,7 @@ between \"frame-width\" and \"frame-height\", between \"public\",
(method url-fetch)
(uri (string-append
"https://elpa.gnu.org/packages/ediprolog-"
version
".el"))
version ".tar"))
(sha256
(base32 "021jm5zdxrjg7xcja18vgc2v52rk17xi1k7xxw8q802nmixhy0js"))))
(build-system emacs-build-system)
@ -31908,6 +32112,31 @@ ASCII UML sequence diagrams in Emacs, which can be embedded in source code,
comments or emails.")
(license license:gpl3+))))
(define-public emacs-ukrainian-holidays
;; There is no proper release.
;; The base version is extracted from the source code.
(let ((revision "0")
(commit "e52b0c92843e9f4d0415a7ba3b8559785497d23d"))
(package
(name "emacs-ukrainian-holidays")
(version (git-version "1.0" revision commit))
(source
(origin
(method git-fetch)
(uri
(git-reference
(url "https://github.com/abo-abo/ukrainian-holidays")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "033v4ck979lhkpwblci5clacfc1xnkq03p5d1m566wff8dp5flwz"))))
(build-system emacs-build-system)
(home-page "https://github.com/abo-abo/ukrainian-holidays")
(synopsis "Ukrainian holidays for Emacs calendar")
(description
"This package provides Ukrainian holidays for Emacs calendar.")
(license license:gpl3+))))
(define-public emacs-trashed
(package
(name "emacs-trashed")
@ -32687,14 +32916,14 @@ work on alists, hash-table and arrays. All functions are prefixed with
(define-public emacs-xref
(package
(name "emacs-xref")
(version "1.5.1")
(version "1.6.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/xref-"
version ".tar"))
(sha256
(base32 "131jxsc1sl8q3r9drhylwyfig9qjjkj3hilv3npidp868pr7xdna"))))
(base32 "0vqs2l4gypdx475yi0yic0mnsg1f9nm698gi90kh7xfcpmkfcgb4"))))
(build-system emacs-build-system)
(home-page "http://elpa.gnu.org/packages/xref.html")
(synopsis "Cross-referencing commands")
@ -32874,7 +33103,7 @@ and preferred services can easily be configured.")
(define-public emacs-vertico
(package
(name "emacs-vertico")
(version "0.28")
(version "0.29")
(source
(origin
(method git-fetch)
@ -32883,7 +33112,7 @@ and preferred services can easily be configured.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0yybwj32k74c5c4rzlpmkq540b8ax0ihn5v7krnri83wn50hr272"))))
(base32 "0gqfq7yni470yys9blarmsinjgf1025azlr09g1842w20hwrs7hc"))))
(build-system emacs-build-system)
(arguments
`(#:phases
@ -33378,7 +33607,7 @@ Fennel code within Emacs.")
(define-public emacs-org-modern
(package
(name "emacs-org-modern")
(version "0.5")
(version "0.6")
(source
(origin
(method git-fetch)
@ -33386,7 +33615,7 @@ Fennel code within Emacs.")
(url "https://github.com/minad/org-modern")
(commit version)))
(sha256
(base32 "1gny2p3w6ck5sarv6vap2y1lj6h9qaxbh7r7bzszb9qj8rhapk6q"))
(base32 "03zpwb475rpbhq1s6101clj0j9mcxdg033clvvybp0p7hm4inwaz"))
(file-name (git-file-name name version))))
(build-system emacs-build-system)
(home-page "https://github.com/minad/org-modern")
@ -33435,8 +33664,8 @@ headlines, keywords, tables and source blocks.")
(license license:gpl3+)))) ; License is in pyimport.el
(define-public emacs-straight-el
(let ((commit "fed215348076ba9182f634e0770a175220474b5a")
(revision "0"))
(let ((commit "f21103d97d180fba0b6e2e86ebb0b6269219ef2c")
(revision "1"))
(package
(name "emacs-straight-el")
(version (git-version "0" revision commit))
@ -33449,7 +33678,7 @@ headlines, keywords, tables and source blocks.")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0z0j670s18mp1bhrsnng0mybcbnlywarhlz7zmrf9399rr513z1x"))))
(base32 "1dqhb7kx4hr3cm4gj6qdk9aav05vc016y4nks2dj1sy88wia6wsv"))))
(build-system emacs-build-system)
(arguments
(list
@ -33586,7 +33815,7 @@ with popups, which also work in the terminal.")
(define-public emacs-popon
(package
(name "emacs-popon")
(version "0.11")
(version "0.12")
(source
(origin
(method git-fetch)
@ -33596,7 +33825,7 @@ with popups, which also work in the terminal.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "14hf1n9d7rqfzr58kjsvjq63v3iamk3szvcn6zms7ry8x70v3lmv"))))
(base32 "0wkydg326ql8cvvmibq1nf6y40d1b0ax0p892pwncmi7awnf20gr"))))
(build-system emacs-build-system)
(home-page "https://codeberg.org/akib/emacs-popon/")
(synopsis "Pop floating text on a window")
@ -33792,16 +34021,16 @@ into the current buffer.")
(revision "0"))
(package
(name "emacs-flymake-mypy")
(version (git-version "0.2.0" revision commit))
(version "0.3.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/com4/flymake-mypy")
(commit commit)))
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"124pfa1kwrapwylbrvkzg3jwcmlsvfklg33ms9ki32khvglmff5h"))))
"1zaa2kljsmm13layqmb7dwd7l2x3a5ymzzmzjjhykc67kbyjvvkk"))))
(build-system emacs-build-system)
(home-page "https://github.com/com4/flymake-mypy")
(synopsis "Flymake checker for mypy")
@ -33845,6 +34074,187 @@ using mypy.")
process via its IPC interface.")
(license license:gpl3+))))
(define-public emacs-apel-lb
;; No release since Jun 15, 2010.
(let ((version "10.8") ;tag chise-base-0_25
(revision "81")
(commit "82eb2325bd149dc57b43a9ce9402c6c6183e4052"))
(package
(name "emacs-apel-lb")
(version (git-version version revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/wanderlust/apel")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0qiw19pn1cs8y571irw7bjdygkvwan9ch2i1dg139dri4b6q1il6"))))
(build-system emacs-build-system)
(home-page "https://www.emacswiki.org/emacs/WanderLust")
(synopsis "Library for making portable Emacs Lisp programs")
(description
"A Portable Emacs Library (APEL) is a library for making portable Emacs
Lisp programs. APEL-LB is a variant of APEL, which features supports to
latest Emacs.")
(license license:gpl2+))))
(define-public emacs-flim-lb
;; No release since Nov 28, 2007.
(let ((version "1.14.9")
(revision "133")
(commit "57c6b868aa314717f40a520daed7249665e8d992"))
(package
(name "emacs-flim-lb")
(version (git-version version revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/wanderlust/flim")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1mf8r5mf3bd0719fnhifb6lfvl7n4m552crcdhkbkkif8srrl6df"))))
(build-system emacs-build-system)
(propagated-inputs (list emacs-apel-lb emacs-oauth2))
(home-page "https://www.emacswiki.org/emacs/WanderLust")
(synopsis
"Library for basic features about message representation or encoding")
(description
"FLIM is a library to provide basic features about message representation
or encoding. FLIM-LB is a variant of FLIM, which features supports to latest
Emacs.")
(license license:gpl2+))))
(define-public emacs-semi-epg
;; No release since Dec 24, 2003.
(let ((version "1.14.6")
(revision "241")
(commit "ac3e726ca94ed245c25881ec8d7177d0d834ea6a"))
(package
(name "emacs-semi-epg")
(version (git-version version revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/wanderlust/semi")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1bg07y6svvg1mmlr455x3j1anjp3wbv27s6b2inp294rbwprm41n"))))
(build-system emacs-build-system)
(propagated-inputs (list emacs-bbdb-vcard emacs-flim-lb))
(home-page "https://www.emacswiki.org/emacs/WanderLust")
(synopsis "Library to provide MIME feature for GNU Emacs")
(description
"SEMI is a package for GNU Emacs to provide features related with MIME
user interface. SEMI-EPG is a variant of SEMI, which features supports to
EasyPG and latest Emacs.")
(license license:gpl2+))))
(define-public emacs-wanderlust
;; No release since Jan 15, 2010.
;; FIXME: Building with emacs-next-pgtk would yield a void variable related
;; macro-expansion failure at runtime, so don't rewrite emacs input of this
;; package.
(let ((version "2.15.9")
(revision "779")
(commit "f5cb2f0cf5e2c893acf2e669fd549836828dfdfc"))
(package
(name "emacs-wanderlust")
(version (git-version version revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/wanderlust/wanderlust")
(commit commit)))
(file-name (git-file-name name version))
(modules '((guix build utils)))
(snippet
'(begin (substitute* "WL-CFG"
((".*WL_PREFIX.*")
(string-append "(setq wl-install-utils t)" "\n"
"(setq WL_PREFIX \"\")" "\n"
"(setq ELMO_PREFIX \"\")" "\n")))
(substitute* "Makefile"
(("package-user-dir") "NONE"))))
(sha256
(base32
"1ijs57wv1vrh33vn311hgkp42vlmjyi998nc4qdrqi7yy9j8hl1h"))))
(build-system emacs-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(add-after 'expand-load-path 'chdir-elmo
(lambda _
(chdir "elmo")))
(add-after 'chdir-elmo 'expand-load-path-elmo
(assoc-ref %standard-phases 'expand-load-path))
(add-after 'expand-load-path-elmo 'chdir-utils
(lambda _
(chdir "../utils")))
(add-after 'chdir-utils 'expand-load-path-utils
(assoc-ref %standard-phases 'expand-load-path))
(add-after 'expand-load-path-utils 'chdir-wl
(lambda _
(chdir "../wl")))
(add-after 'chdir-wl 'expand-load-path-wl
(assoc-ref %standard-phases 'expand-load-path))
(add-after 'expand-load-path-wl 'change-directory
(lambda _
(chdir "..")))
(add-after 'install 'install-via-makefile
(lambda* (#:key inputs #:allow-other-keys)
(let ((emacs (search-input-file inputs "/bin/emacs"))
(lispdir (elpa-directory #$output))
(infodir (string-append #$output "/share/info")))
(for-each mkdir-p (list lispdir infodir))
(substitute* "Makefile"
(("(EMACS\t= )emacs" all m)
(string-append m emacs))
(("(LISPDIR = )NONE" all m)
(string-append m lispdir))
(("(PIXMAPDIR = )NONE" all m)
(string-append m lispdir "/icons"))
(("(INFODIR = )NONE" all m)
(string-append m infodir))))
(invoke "make" "install")
(invoke "make" "install-info"))))))
(propagated-inputs (list emacs-semi-epg))
(home-page "https://www.emacswiki.org/emacs/WanderLust")
(synopsis "Yet Another Message Interface on Emacsen")
(description
"Wanderlust is an mail/news management system on Emacsen. It supports
IMAP4rev1(RFC2060), NNTP, POP and local message files.
The main features of Wanderlust:
@itemize
@item Pure elisp implementation.
@item Supports IMAP4rev1, NNTP, POP(POP3/APOP), MH and Maildir format.
@item Unified access method to messages based on Mew-like Folder Specification.
@item Mew-like Key-bind and mark handling.
@item Manages unread messages.
@item Interactive thread display.
@item Folder Mode shows the list of subscribed folders.
@item Message Cache, Disconnected Operation.
@item MH-like FCC (Fcc: %Backup and Fcc: $Backup is allowed).
@item MIME compliant (by SEMI).
@item Transmission of news and mail are unified by Message transmitting draft.
@item Graphical list of folders.
@item View a part of message without retrieving the whole message (IMAP4).
@item Server-side message look up (IMAP4), multi-byte characters are allowed.
@item Virtual Folders.
@item Supports compressed folder using common archiving utilities.
@item Old articles in folders are automatically removed/archived (Expiration).
@item Automatic re-file.
@item Template function makes it convenient to send fixed form messages.
@end itemize\n")
(license license:gpl2+))))
(define-public emacs-waveform
;; XXX: Upstream provides no Version keyword. Using 0 as base version.
(let ((commit "ee52c6a72b3e9890743e3a6e2fc1f3195f5687b2")

6
gnu/packages/engineering.scm
View File

@ -3310,7 +3310,7 @@ visualization, matrix manipulation.")
(define-public prusa-slicer
(package
(name "prusa-slicer")
(version "2.4.2")
(version "2.5.0")
(source
(origin
(method git-fetch)
@ -3319,7 +3319,7 @@ visualization, matrix manipulation.")
(url "https://github.com/prusa3d/PrusaSlicer")
(commit (string-append "version_" version))))
(file-name (git-file-name name version))
(sha256 (base32 "17p56f0zmiryy8k4da02in1l6yxniz286gf9yz8s1gaz5ksqj4af"))
(sha256 (base32 "17ic92ww2ny0frxyv7ajwdwa0fq70ygq562ik8sh94jx67jvxdy0"))
(modules '((guix build utils)))
(snippet
'(begin
@ -3368,10 +3368,12 @@ visualization, matrix manipulation.")
hidapi
ilmbase
libigl
libjpeg-turbo
libpng
mesa
mpfr
nlopt
opencascade-occt
openvdb
pango
tbb

37
gnu/packages/finance.scm
View File

@ -129,10 +129,10 @@
#:use-module (gnu packages xml)
#:use-module (gnu packages gnuzilla))
(define-public bitcoin-core-0.21
(define-public bitcoin-core-23.0
(package
(name "bitcoin-core")
(version "0.21.2")
(version "23.0")
(source (origin
(method url-fetch)
(uri
@ -140,7 +140,7 @@
version "/bitcoin-" version ".tar.gz"))
(sha256
(base32
"17nvir1yc6mf4wr1fn4xsabw49cd5p9vig8wj77vv4anzi8zfij1"))))
"01fcb90pqip3v77kljykx51cmg7jdg2cmp7ys0a40svdkps8nx16"))))
(build-system gnu-build-system)
(native-inputs
(list autoconf
@ -207,23 +207,10 @@ of the bitcoin protocol. This package provides the Bitcoin Core command
line client and a client based on Qt.")
(license license:expat)))
(define-public bitcoin-core-0.20
(package
(inherit bitcoin-core-0.21)
(version "0.20.2")
(source (origin
(method url-fetch)
(uri
(string-append "https://bitcoincore.org/bin/bitcoin-core-"
version "/bitcoin-" version ".tar.gz"))
(sha256
(base32
"14smp5vmh7baabl856wlg7w7y5910jhx6c02mlkm4hkywf3yylky"))))))
;; The support lifetimes for bitcoin-core versions can be found in
;; <https://bitcoincore.org/en/lifecycle/#schedule>.
(define-public bitcoin-core bitcoin-core-0.21)
(define-public bitcoin-core bitcoin-core-23.0)
(define-public hledger
(package
@ -553,7 +540,7 @@ do so.")
(define-public electrum
(package
(name "electrum")
(version "4.2.1")
(version "4.3.2")
(source
(origin
(method url-fetch)
@ -561,7 +548,7 @@ do so.")
version "/Electrum-"
version ".tar.gz"))
(sha256
(base32 "0w41411zq07kx0351wxkmpn0wr42wd2nx0m6v0iwvpsggx654b6r"))
(base32 "1kbyinm9fnxpx9chkyd11yr9rxvcxvw3ml7kzvxcfa8v7jnl0dmx"))
(modules '((guix build utils)))
(snippet
'(begin
@ -628,7 +615,7 @@ other machines/servers. Electrum does not download the Bitcoin blockchain.")
(define-public electron-cash
(package
(name "electron-cash")
(version "4.2.11")
(version "4.2.12")
(source
(origin
(method git-fetch)
@ -637,7 +624,7 @@ other machines/servers. Electrum does not download the Bitcoin blockchain.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1g0xnb63c52l379zrqkfhxlkg1d2hf2dgjs2swspa0vah845r282"))))
(base32 "1bfnfpdyi3q5zq0zj07dq82aj3cihnr7j82gy4ch97182lsl6nms"))))
(build-system python-build-system)
(arguments
(list
@ -2134,7 +2121,7 @@ and manipulation.")
(define-public xmrig
(package
(name "xmrig")
(version "6.18.0")
(version "6.18.1")
(source
(origin
(method git-fetch)
@ -2142,7 +2129,7 @@ and manipulation.")
(url "https://github.com/xmrig/xmrig")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256 (base32 "1ncnfjpjwjdv29plyiam2nh01bfni49sgfi3qkijygi1450w71dx"))
(sha256 (base32 "0f0kly374pkgnpnx60hac0bg9297a5zhycss6p37iavayn28jg39"))
(modules '((guix build utils)))
(snippet
;; TODO: Try to use system libraries instead of bundled ones in
@ -2190,7 +2177,7 @@ mining.")
(define-public p2pool
(package
(name "p2pool")
(version "2.2.1")
(version "2.5")
(source
(origin
(method git-fetch)
@ -2199,7 +2186,7 @@ mining.")
(commit (string-append "v" version))
(recursive? #t)))
(file-name (git-file-name name version))
(sha256 (base32 "19pn7axj96yvza2x7678rs79c2vgmhl8d7f9ki72v2n6l2630fw8"))
(sha256 (base32 "1kdsxh6f24zp7h7bwkrin2mc81ysfny5wprzgy41h2bc6dpq067w"))
(modules '((guix build utils)))
(snippet
#~(for-each delete-file-recursively

41
gnu/packages/firmware.scm
View File

@ -2,7 +2,7 @@
;;; Copyright © 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2017 David Craven <david@craven.ch>
;;; Copyright © 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Vagrant Cascadian <vagrant@debian.org>
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
@ -259,19 +259,11 @@ driver.")
help2man
gettext-minimal))
(inputs (list bash-completion
glib
libgudev
libxmlb
gusb
sqlite
libarchive
libjcat
json-glib
curl
polkit
eudev
gcab
gnutls
libelf
tpm2-tss
cairo
@ -281,6 +273,15 @@ driver.")
mingw-w64-tools
libsmbios
gnu-efi))
;; In Requires of fwupd*.pc.
(propagated-inputs (list curl
gcab
glib
gnutls
gusb
json-glib
libarchive
libjcat))
(home-page "https://fwupd.org/")
(synopsis "Daemon to allow session software to update firmware")
(description "This package aims to make updating firmware on GNU/Linux
@ -644,7 +645,7 @@ Virtual Machines. OVMF contains a sample UEFI firmware for QEMU and KVM.")
(define* (make-arm-trusted-firmware platform #:optional (arch "aarch64"))
(package
(name (string-append "arm-trusted-firmware-" platform))
(version "2.6")
(version "2.8")
(source
(origin
(method git-fetch)
@ -655,27 +656,27 @@ Virtual Machines. OVMF contains a sample UEFI firmware for QEMU and KVM.")
(file-name (git-file-name "arm-trusted-firmware" version))
(sha256
(base32
"1j0rn33pwgmksqliwf2npm2px84qmbyma9iq8zpllwfc7dsl6gx9"))))
"0grq3fgxi9xhcljnhwlxjvdghyz15gaq50raw41xy4lm8rkmnzp3"))
(snippet
#~(begin
(use-modules (guix build utils))
;; Remove binary blobs which do not contain source or proper license.
(for-each (lambda (file)
(delete-file file))
(find-files "." "\\.bin$"))))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(delete 'configure) ; no configure script
;; Remove binary blobs which do not contain source or proper license.
(add-after 'unpack 'remove-binary-blobs
(lambda _
(for-each (lambda (file)
(delete-file file))
(find-files "." ".*\\.bin$"))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(bin (find-files "." ".*\\.(bin|elf)$")))
(bin (find-files "." "\\.(bin|elf)$")))
(for-each
(lambda (file)
(install-file file out))
bin))
#t)))
bin)))))
#:make-flags (list (string-append "PLAT=" ,platform)
,@(if (and (not (string-prefix? "aarch64"
(%current-system)))

26
gnu/packages/fonts.scm
View File

@ -35,7 +35,7 @@
;;; Copyright © 2020 Raghav Gururajan <raghavgururajan@disroot.org>
;;; Copyright © 2020, 2021 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2020 Zhu Zihao <all_but_last@163.com>
;;; Copyright © 2020, 2021 Simen Endsjø <simendsjo@gmail.com>
;;; Copyright © 2020, 2021, 2022 Simen Endsjø <simendsjo@gmail.com>
;;; Copyright © 2020 Tim Van den Langenbergh <tmt_vdl@gmx.com>
;;; Copyright © 2020 Nicolò Balzarotti <nicolo@nixo.xyz>
;;; Copyright © 2021 Antoine Côté <antoine.cote@posteo.net>
@ -1498,7 +1498,7 @@ guix repl <<EOF
(ice-9 string-fun)
(gnu packages fonts))
(let ((new-version "15.2.0")
(let ((new-version "16.4.0")
(iosevka-hashes #nil)
(iosevka-fails #nil))
(for-each (lambda (font)
@ -1532,7 +1532,7 @@ EOF
(define-public font-iosevka
(package
(name "font-iosevka")
(version "15.2.0")
(version "16.4.0")
(source
(origin
(method url-fetch/zipbomb)
@ -1540,7 +1540,7 @@ EOF
"/releases/download/v" version
"/ttc-iosevka-" version ".zip"))
(sha256
(base32 "0yyz8vmpi8pww0p9na564lvbkwhdhpk4bcyrli91dn5gq0pc1pvv"))))
(base32 "07v98pr0anqbxn1yc55245k5ixxzfk2wmfq67zhz84aa18viqhbc"))))
(build-system font-build-system)
(home-page "https://be5invis.github.io/Iosevka/")
(synopsis "Coders' typeface, built from code")
@ -1563,7 +1563,7 @@ programming. Iosevka is completely generated from its source code.")
"/releases/download/v" version
"/ttc-iosevka-slab-" version ".zip"))
(sha256
(base32 "1qy86kdl6lgq5k1qb97adibpfjm4vg1wdnxbqizhqka5bc7avyzb"))))))
(base32 "063qk1d75l1jq7gdwzqxd7j8j56g7da0aagsqm0lvwl217l7x48b"))))))
(define-public font-iosevka-term
(package
@ -1577,7 +1577,7 @@ programming. Iosevka is completely generated from its source code.")
"/releases/download/v" version
"/ttf-iosevka-term-" version ".zip"))
(sha256
(base32 "15znvvkhldgbl9k04pwrrnvmjnanw2fr92c0zspg7bbw7id2v510"))))
(base32 "17465bvg6fap53xfqwrg2g4fasv01w86wh658n1rf6djs3yzn1gx"))))
(arguments
`(#:phases
(modify-phases %standard-phases
@ -1598,7 +1598,7 @@ programming. Iosevka is completely generated from its source code.")
"releases/download/v" version "/"
"ttf-iosevka-term-slab-" version ".zip"))
(sha256
(base32 "1rla7kcb94c7daklp4av27gix86cmwsrqg6884zmv5zfnhz0r700"))))
(base32 "00pc4d8awdiziyzncah3fnh0ppvcdvi9cd7vyknl68f6fj283fvm"))))
(arguments
`(#:phases
(modify-phases %standard-phases
@ -1619,7 +1619,7 @@ programming. Iosevka is completely generated from its source code.")
"/releases/download/v" version
"/ttc-iosevka-aile-" version ".zip"))
(sha256
(base32 "1lciycahvxgvmcniq4h3m1v3rc42nmv8ydb0fpbl9g4sc0qp81hq"))))))
(base32 "03y0xijb7c0kampm3gjb69mv8hikhsgqhlw1w3zfcjhr2vc62g6q"))))))
(define-public font-iosevka-curly
(package
@ -1633,7 +1633,7 @@ programming. Iosevka is completely generated from its source code.")
"releases/download/v" version "/"
"ttc-iosevka-curly-" version ".zip"))
(sha256
(base32 "02jvrj7kzd4bx3maj1bq2p9j746b8c5713d8lqkxx4fn9fm0zppq"))))))
(base32 "1i31zj0j8npgx7wn2qibih48s76qjxakz14sa2hgx908p8xyfwq5"))))))
(define-public font-iosevka-curly-slab
(package
@ -1647,7 +1647,7 @@ programming. Iosevka is completely generated from its source code.")
"releases/download/v" version "/"
"ttc-iosevka-curly-slab-" version ".zip"))
(sha256
(base32 "1bhvf95xs74wm8srsvl4yxwvl36llk93mpl1y9acc5z9rdcpzjqq"))))))
(base32 "1xijhk5vbgs3c89a7g9cfjqjqv801gimjja4wqpvaficab692jh2"))))))
(define-public font-iosevka-etoile
(package
@ -1661,12 +1661,12 @@ programming. Iosevka is completely generated from its source code.")
"/releases/download/v" version
"/ttc-iosevka-etoile-" version ".zip"))
(sha256
(base32 "1zmgfxfsbxv1k4fwnc7g2jlfhmlzp5kap8m3f10fqanpnkd0yf08"))))))
(base32 "1rqagk6gyja15fa4m107ylbjwbhn811gbl9lbr9yzashw4drjpp9"))))))
(define-public font-sarasa-gothic
(package
(name "font-sarasa-gothic")
(version "0.36.8")
(version "0.37.4")
(source
(origin
(method url-fetch)
@ -1674,7 +1674,7 @@ programming. Iosevka is completely generated from its source code.")
"/releases/download/v" version
"/sarasa-gothic-ttc-" version ".7z"))
(sha256
(base32 "01fn5mzr1rcz0c8nbhabwbv1pq1c3ylf2msxldc9adks1pi45fmh"))))
(base32 "12i8lccl4ysinhz40s2fz6249r9n35in4rqmk3a0fgcjfaby3kfm"))))
(build-system font-build-system)
(arguments
`(#:phases (modify-phases %standard-phases

189
gnu/packages/freedesktop.scm
View File

@ -61,6 +61,7 @@
#:use-module (guix build-system perl)
#:use-module (guix build-system python)
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system qt)
#:use-module (gnu packages)
#:use-module (gnu packages acl)
#:use-module (gnu packages admin)
@ -73,11 +74,13 @@
#:use-module (gnu packages cmake)
#:use-module (gnu packages compression)
#:use-module (gnu packages cryptsetup)
#:use-module (gnu packages cups)
#:use-module (gnu packages curl)
#:use-module (gnu packages databases)
#:use-module (gnu packages disk)
#:use-module (gnu packages docbook)
#:use-module (gnu packages documentation)
#:use-module (gnu packages fcitx)
#:use-module (gnu packages file)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages gawk)
@ -91,9 +94,12 @@
#:use-module (gnu packages graphviz)
#:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk)
#:use-module (gnu packages ibus)
#:use-module (gnu packages image)
#:use-module (gnu packages kde-frameworks)
#:use-module (gnu packages language)
#:use-module (gnu packages libffi)
#:use-module (gnu packages libreoffice)
#:use-module (gnu packages libunwind)
#:use-module (gnu packages libusb)
#:use-module (gnu packages linux)
@ -386,6 +392,81 @@ inappropriate content.")
license:gpl2+
license:lgpl2.1+))))
(define-public maliit-framework
(package
(name "maliit-framework")
(version "2.3.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/maliit/framework")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1dkjxvfxg56hfy70j6ibfklfyv57jiha4vgc3ggl60r5kjx65s5b"))))
(build-system cmake-build-system)
(native-inputs (list extra-cmake-modules
wayland-protocols
pkg-config
doxygen
graphviz
`(,glib "bin"))) ;for gdbus-codegen))
(inputs (list qtbase-5
qtdeclarative-5
qtwayland-5
wayland
libxkbcommon
dbus
eudev
glib))
(home-page "https://github.com/maliit/framework")
(synopsis "Core libraries of Maliit")
(description "This package provides Maliit provides a flexible input
method framework.")
(license license:lgpl2.1+)))
(define-public maliit-keyboard
(package
(name "maliit-keyboard")
(version "2.3.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/maliit/keyboard")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0g89lckl4wzwamc89hs8871fbiyrsjwzk5b6ic4vhc4d1clyqzaw"))))
(build-system cmake-build-system)
(arguments
(list #:tests? #f
#:phases #~(modify-phases %standard-phases
(add-after 'install 'install-schemas
(lambda* (#:key source outputs #:allow-other-keys)
(with-directory-excursion (string-append #$output
"/share/glib-2.0/schemas")
(invoke "glib-compile-schemas" ".")))))))
(native-inputs (list extra-cmake-modules pkg-config gettext-minimal
`(,glib "bin")))
(inputs (list hunspell
glib
libchewing
libpinyin
maliit-framework
presage
qtbase-5
qtdeclarative-5
qtmultimedia-5
qtquickcontrols2-5))
(home-page "https://github.com/maliit/keyboard")
(synopsis "Maliit Keyboard")
(description
"This package provides virtual keyboard for Wayland and X11
display servers. It supports many different languages and emoji.")
(license license:gpl3+)))
(define-public xdg-utils
(package
(name "xdg-utils")
@ -874,32 +955,37 @@ with localed. This package is extracted from the broader systemd package.")
(define-public packagekit
(package
(name "packagekit")
(version "1.1.13")
(version "1.2.5")
(source (origin
(method url-fetch)
(uri (string-append
"https://www.freedesktop.org/software/"
"PackageKit/releases/"
"PackageKit-" version ".tar.xz"))
(sha256
(base32
"1dr1laic65ld95abp2yxbwvijnngh0dwyb1x49x4wjm5rhq43dl8"))))
(build-system gnu-build-system)
(method url-fetch)
(uri (string-append "https://www.freedesktop.org/software/"
"PackageKit/releases/" "PackageKit-" version
".tar.xz"))
(sha256
(base32
"09md23m4fw87x264mls1f5isrswk6iw7y9g4hr1nib008wbbk370"))))
(build-system meson-build-system)
(arguments
`(#:tests? #f
#:make-flags (list (string-append "BASH_COMPLETIONS_DIR="
%output "/etc/bash_completion.d"))
#:configure-flags
'("--disable-systemd")))
(list #:tests? #f
#:configure-flags #~'("-Dsystemd=false" "-Doffline_update=false")))
(native-inputs
`(("intltool" ,intltool)
("pkg-config" ,pkg-config)
("python" ,python-wrapper)
("glib:bin" ,glib "bin")))
(list bash-completion
docbook-xsl
gettext-minimal
`(,glib "bin")
gobject-introspection
libxml2 ;for XML_CATALOG_FILES
libxslt
pkg-config
python-wrapper
vala))
(inputs
(list glib bash-completion polkit))
(propagated-inputs
(list sqlite))
(list glib
gstreamer
gst-plugins-base
gtk+
polkit))
(propagated-inputs (list sqlite))
(home-page "https://www.freedesktop.org/software/PackageKit/")
(synopsis "API for package management, through D-Bus")
(description
@ -1105,6 +1191,29 @@ protocol either in Wayland core, or some other protocol in wayland-protocols.")
(base32
"04vgllmpmrv14x3x64ns01vgwx4hriljayjkz9idgbv83i63hly5"))))))
(define-public wayland-utils
(package
(name "wayland-utils")
(version "1.1.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.freedesktop.org/wayland/wayland-utils")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"04k1yhyh7h4xawbhpz9pf6cpfmmp1l862fdgsvvnyp4hg9n3j9aj"))))
(build-system meson-build-system)
(native-inputs (list pkg-config))
(inputs (list libdrm wayland wayland-protocols-next))
(home-page "https://wayland.freedesktop.org/")
(synopsis "Display information about the Wayland protocols")
(description "This package provides @code{wayland-info} tool that can be
used to check which Wayland protocols and versions are advertised by the Wayland
compositor.")
(license license:expat)))
(define-public waylandpp
(package
(name "waylandpp")
@ -2551,6 +2660,42 @@ which uses GTK+ and various pieces of GNOME infrastructure, such as the
interfaces.")
(license license:lgpl2.1+)))
(define-public xdg-desktop-portal-kde
(package
(name "xdg-desktop-portal-kde")
(version "5.25.5")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/plasma/" version "/"
name "-" version ".tar.xz"))
(sha256
(base32
"0l3lmwihxyl65y0mkyg3afk1k6gc0ldjw2vg92g7yydbgmn39q7k"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules pkg-config))
(inputs (list cups
kcoreaddons
kconfig
ki18n
kdeclarative
kio
kirigami
knotifications
plasma-framework
plasma-wayland-protocols
kwayland
kwidgetsaddons
kwindowsystem
kiconthemes
qtdeclarative-5
qtwayland-5
wayland))
(synopsis "Backend implementation for xdg-desktop-portal using Qt/KF5")
(description "This package provides a backend implementation
for xdg-desktop-portal that is using Qt/KF5.")
(home-page "https://invent.kde.org/plasma/xdg-desktop-portal-kde")
(license license:lgpl2.0+)))
(define-public xdg-desktop-portal-wlr
(package
(name "xdg-desktop-portal-wlr")

12
gnu/packages/games.scm
View File

@ -880,14 +880,14 @@ Quizzes: arithmetic and quiz.")
(define-public bzflag
(package
(name "bzflag")
(version "2.4.24")
(version "2.4.26")
(source
(origin
(method url-fetch)
(uri (string-append "https://download.bzflag.org/bzflag/source/"
version "/bzflag-" version ".tar.bz2"))
(sha256
(base32 "1i73ijlnxsz52fhqgkj2qcvibfgav3byq1is68gab2zwnyz330az"))))
(base32 "050h933lmcdf4bw9z3c6g3k8c9sch9f6kq57jp2ivb96zw2h90q1"))))
(build-system gnu-build-system)
(arguments
(list
@ -6239,7 +6239,7 @@ emerges from a sewer hole and pulls her below ground.")
(define-public cdogs-sdl
(package
(name "cdogs-sdl")
(version "0.8.0")
(version "1.4.0")
(source
(origin
(method git-fetch)
@ -6248,7 +6248,7 @@ emerges from a sewer hole and pulls her below ground.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0vx37zb2iw7sfw5a2bs97ydlmb301nvy485ybdm8g46c5hn9s13c"))))
(base32 "1505z8rli59i1ych4rzwbf4dvhv72icdj22n1xarb8xfyz0wyp3b"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags
@ -10451,14 +10451,14 @@ get high scores.")
(define-public burgerspace
(package
(name "burgerspace")
(version "1.9.4")
(version "1.9.5")
(source
(origin
(method url-fetch)
(uri (string-append "http://perso.b2b2c.ca/~sarrazip/dev/"
"burgerspace-" version ".tar.gz"))
(sha256
(base32 "1xb4immzmd419aa08lgkzf7ibxa6ax238zb2l5iw9nkgvzlh1v6l"))))
(base32 "1r2albqv2ygs58rwcldsx1mp2vy96j7k4yw5jjmvwgnxjmddq7wr"))))
(build-system gnu-build-system)
(native-inputs
(list pkg-config))

10
gnu/packages/gettext.scm
View File

@ -120,13 +120,19 @@
"coreutils-gnulib-tests.patch")))))
'())
#$@(if (hurd-target?)
#~((substitute*
"gettext-tools/gnulib-tests/Makefile.in"
;; See 'coreutils' for the rationale.
((" test-tls\\$\\(EXEEXT\\) ") " ")))
'())
#t)))))
;; When tests fail, we want to know the details.
#:make-flags #~'("VERBOSE=yes"
#$@(if (hurd-target?)
;; Linking to libgettextlib.so makes test-raise fail
'("XFAIL_TESTS=test-raise")
'("XFAIL_TESTS=test-perror2")
'()))))
(home-page "https://www.gnu.org/software/gettext/")
(synopsis

35
gnu/packages/gl.scm
View File

@ -587,30 +587,29 @@ from software emulation to complete hardware acceleration for modern GPUs.")
(source (mesa-demos-source version))
(build-system gnu-build-system)
(inputs
`(("mesa" ,mesa)
("glut" ,freeglut)
("glew" ,glew)))
(list mesa freeglut glew))
(native-inputs
(list pkg-config))
(arguments
'(#:phases
(modify-phases %standard-phases
(replace
'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(mkdir-p (string-append out "/bin"))
(for-each
(lambda (file)
(copy-file file (string-append out "/bin/" (basename file))))
'("src/xdemos/glxdemo" "src/xdemos/glxgears"
"src/xdemos/glxinfo" "src/xdemos/glxheads"))
#t))))))
(list
#:phases
#~(modify-phases %standard-phases
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out #$output))
(mkdir-p (string-append out "/bin"))
(for-each (lambda (file)
(copy-file file
(string-append out "/bin/"
(basename file))))
'("src/xdemos/glxdemo" "src/xdemos/glxgears"
"src/egl/opengl/eglinfo"
"src/xdemos/glxinfo" "src/xdemos/glxheads"))))))))
(home-page "https://mesa3d.org/")
(synopsis "Utility tools for Mesa")
(description
"The mesa-utils package contains several utility tools for Mesa: glxdemo,
glxgears, glxheads, and glxinfo.")
"The mesa-utils package contains several utility tools for Mesa: eglinfo,
glxdemo, glxgears, glxheads, and glxinfo.")
;; glxdemo is public domain; others expat.
(license (list license:expat license:public-domain))))

56
gnu/packages/glib.scm
View File

@ -17,6 +17,7 @@
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2020 Arthur Margerit <ruhtra.mar@gmail.com>
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -67,6 +68,7 @@
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages web)
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg)
@ -76,6 +78,7 @@
#:use-module (guix build-system perl)
#:use-module (guix build-system python)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix utils)
@ -758,6 +761,59 @@ translated.")
by GDBus included in Glib.")
(license license:gpl2))) ; or Academic Free License 2.1
(define-public libaccounts-glib
(package
(name "libaccounts-glib")
(version "1.25")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/accounts-sso/libaccounts-glib")
(commit (string-append "VERSION_" version))))
(file-name (git-file-name name version))
(sha256
(base32
"19rhk9f97m736d5ia26vfcbjp5kgi454558yhf9mrwm4iw5d9pk4"))))
(build-system meson-build-system)
(native-inputs (list dbus
`(,glib "bin")
gobject-introspection
gtk-doc
pkg-config
vala))
(inputs (list check python python-pygobject))
(propagated-inputs (list glib libxml2 sqlite))
(arguments
(list #:tests? #f ;one test fails.
#:imported-modules `((guix build python-build-system)
,@%meson-build-system-modules)
#:modules '(((guix build python-build-system)
#:select (python-version))
(guix build meson-build-system)
(guix build utils))
;; don't try installing to python store path.
#:configure-flags
#~(list (string-append "-Dpy-overrides-dir="
#$output "/lib/python"
(python-version #$(this-package-input
"python"))
"/site-packages/gi/overrides"))
#:phases #~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "dbus-run-session" "--" "meson" "test"
"--print-errorlogs")))))))
(home-page "https://accounts-sso.gitlab.io/")
(synopsis "Accounts SSO (Single Sign-On) management library for GLib
applications")
(description
"Accounts SSO is a framework for application developers who
wish to acquire, use and store web account details and credentials. It
handles the authentication process of an account and securely stores the
credentials and service-specific settings.")
(license license:lgpl2.1+)))
(define libsigc++
(package
(name "libsigc++")

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

@ -55,6 +55,7 @@
#:use-module (gnu packages bash)
#:use-module (gnu packages build-tools)
#:use-module (gnu packages check)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gettext)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnome)
@ -304,6 +305,59 @@ and products. Plots is designed to integrate well with the GNOME desktop and
takes advantage of modern hardware using OpenGL.")
(license license:gpl3+)))
(define-public portfolio
(package
(name "portfolio")
(version "0.9.14")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/tchx84/Portfolio")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0h09v8lhz3kv6qmwjhx3gr7rp6ccfhrzm54gjnaixl4dcg9zddls"))))
(arguments
(list #:glib-or-gtk? #t
#:imported-modules `(,@%meson-build-system-modules
(guix build python-build-system))
#:modules '((guix build meson-build-system)
((guix build python-build-system)
#:prefix python:)
(guix build utils))
#:phases #~(modify-phases %standard-phases
(add-after 'install 'rename-executable
(lambda _
(with-directory-excursion (string-append #$output
"/bin")
(symlink "dev.tchx84.Portfolio" "portfolio"))))
(add-after 'glib-or-gtk-wrap 'python-and-gi-wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(wrap-program (search-input-file outputs
"bin/dev.tchx84.Portfolio")
`("GUIX_PYTHONPATH" =
(,(getenv "GUIX_PYTHONPATH") ,(python:site-packages
inputs
outputs)))
`("GI_TYPELIB_PATH" =
(,(getenv "GI_TYPELIB_PATH")))))))))
(build-system meson-build-system)
(inputs (list bash-minimal python-pygobject gtk+ libhandy))
(native-inputs
(list desktop-file-utils
gettext-minimal
`(,glib "bin")
`(,gtk+ "bin")
python))
(home-page "https://github.com/tchx84/Portfolio")
(synopsis "Minimalist file manager for Linux mobile devices")
(description
"Portfolio is a minimalist file manager for those who want to use Linux
mobile devices. Tap to activate and long press to select, to browse, open,
copy, move, delete, or edit your files.")
(license license:gpl3+)))
(define-public gnome-shell-extension-unite-shell
(package
(name "gnome-shell-extension-unite-shell")

81
gnu/packages/gnome.scm
View File

@ -2594,6 +2594,11 @@ GNOME Desktop.")
python-wrapper)) ;for tests
(propagated-inputs
(list gcr))
;; XXX: There are concerning test failures on i686-linux and other 32-bit
;; platforms: <https://gitlab.gnome.org/GNOME/gnome-keyring/-/issues/124>.
(supported-systems %64bit-supported-systems)
(home-page "https://www.gnome.org")
(synopsis "Daemon to store passwords and encryption keys")
(description
@ -4956,6 +4961,57 @@ GLibproxyResolver, and a GNOME GProxyResolver that uses the proxy information
from the GSettings schemas in gsettings-desktop-schemas.")
(license license:lgpl2.1+)))
(define-public raider
(package
(name "raider")
(version "1.3.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ADBeveridge/raider/")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0ll9220d6qf9m7wdi5xhq69p8h8whs7l5h5nzdhlbn99qh5388bz"))))
(build-system meson-build-system)
(arguments
(list #:meson meson-0.63
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "data/com.github.ADBeveridge.Raider.gschema.xml"
(("/usr/bin/shred")
(which "shred")))))
(add-after 'install 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys)
(wrap-program (string-append (assoc-ref outputs "out")
"/bin/raider")
`("GSETTINGS_SCHEMA_DIR" =
(,(string-append (assoc-ref outputs "out")
"/share/glib-2.0/schemas")))))))))
(native-inputs
(list gettext-minimal
pkg-config
cmake
`(,glib "bin")
desktop-file-utils
itstool
gobject-introspection
blueprint-compiler
`(,gtk "bin")))
(inputs
(list libadwaita
gtk))
(home-page "https://github.com/ADBeveridge/raider")
(synopsis "Securely delete your files")
(description
"Raider is a simple shredding program built for GNOME. Also known as
File Shredder, it uses the GNU Core Utility called shred to securely delete
files.")
(license license:gpl3+)))
(define-public rest
(package
(name "rest")
@ -9671,7 +9727,9 @@ shared object databases, search tools and indexing.")
name "-" version ".tar.xz"))
(sha256
(base32
"1cncyiyh79w1id6a6s2f0rxmgwl65lp4ml4afa0z35jrnwp2s8cr"))))
"1cncyiyh79w1id6a6s2f0rxmgwl65lp4ml4afa0z35jrnwp2s8cr"))
(patches
(search-patches "nautilus-extension-search-path.patch"))))
(build-system meson-build-system)
(arguments
(list
@ -9685,27 +9743,6 @@ shared object databases, search tools and indexing.")
(substitute* "test/automated/displayless/meson.build"
(("^foreach t: tracker_tests" all)
(string-append "tracker_tests = []\n" all)))))
(add-after 'unpack 'make-extensible
(lambda _
(substitute* "src/nautilus-module.c"
(("static gboolean initialized = FALSE;" all)
(string-append all "
const char *extension_path;
char **extension_dirs, **d;
")
)
(("load_module_dir \\(NAUTILUS_EXTENSIONDIR\\);" all)
(string-append all
"
extension_path = g_getenv (\"NAUTILUS_EXTENSION_PATH\");
if (extension_path)
{
extension_dirs = g_strsplit (extension_path, \":\", -1);
for (d = extension_dirs; d != NULL && *d != NULL; d++)
load_module_dir(*d);
g_strfreev(extension_dirs);
}
")))))
(add-after 'unpack 'skip-gtk-update-icon-cache
;; Don't create 'icon-theme.cache'.
(lambda _

23
gnu/packages/gnupg.scm
View File

@ -431,6 +431,19 @@ and every application benefits from this.")
(properties '((ftp-server . "ftp.gnupg.org")
(ftp-directory . "/gcrypt/gpgme")))))
;; TODO: Merge with gpgme in the next rebuild cycle.
(define-public gpgme-1.18
(package
(inherit gpgme)
(version "1.18.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnupg/gpgme/gpgme-"
version ".tar.bz2"))
(sha256
(base32
"17hfigfnq6xz45b5xrp299f68b5mwx0aysd51sx5v4nf8yp4w79n"))))))
(define-public qgpgme
(package
(inherit gpgme)
@ -459,6 +472,16 @@ QGpgME was originally developed as part of libkleo and incorporated into
gpgpme starting with version 1.7.")
(license license:gpl2+))) ;; Note: this differs from gpgme
;; TODO: Merge with qgpgme in the next rebuild cycle.
(define-public qgpgme-1.18
(package
(inherit qgpgme)
(version (package-version gpgme-1.18))
(source (package-source gpgme-1.18))
(inputs
(modify-inputs (package-inputs qgpgme)
(replace "gpgme" gpgme-1.18)))))
(define-public guile-gcrypt
(package
(name "guile-gcrypt")

95
gnu/packages/golang.scm
View File

@ -2485,6 +2485,101 @@ web framework
@end itemize")
(license license:expat)))
(define-public go-github-com-nathan-osman-go-sunrise
(let ((commit "c8f9f1eb869135f07378e7e3c5ec7a005f806c73")
(revision "0"))
(package
(name "go-github-com-nathan-osman-go-sunrise")
(version (git-version "1.1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/nathan-osman/go-sunrise")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"017zwzx05r5spxcs07dp6bnh7waknzsd819k7aqd8kr819v3x9in"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/nathan-osman/go-sunrise"))
(home-page "https://github.com/nathan-osman/go-sunrise")
(synopsis "Calculate sunrise and sunset times in Go")
(description
"This package provides a Go library for calculating sunrise and
sunset times from geographical coordinates and a date.")
(license license:expat))))
(define-public go-github-com-hebcal-gematriya
(let ((commit "fe3043f73e415eb82727701d10f2fb40f87675e9")
(revision "0"))
(package
(name "go-github-com-hebcal-gematriya")
(version (git-version "1.0.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hebcal/gematriya")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0xmnb2i80dy380yv8c4pd04bbyqgbc7c40p8hz1vqj2lhbm6jabf"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/hebcal/gematriya"))
(home-page "https://github.com/hebcal/gematriya")
(synopsis "Print numbers as Hebrew letters in Go")
(description
"This package provides a Go library for printing numbers as
Hebrew letters.")
(license license:bsd-2))))
(define-public go-github-com-hebcal-hebcal-go
(let ((commit "d42e881860cfc9e8249fc79f268091c3c4d36b0d")
(revision "0"))
(package
(name "go-github-com-hebcal-hebcal-go")
(version (git-version "0.9.11" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hebcal/hebcal-go")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1m9akb8pwxchpaci05gambshrzw626gsrfhl25f36vjl7mq5292n"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/hebcal/hebcal-go"
;; Source-only package
#:tests? #f
#:phases
#~(modify-phases %standard-phases
;; Source-only package
(delete 'build))))
(native-inputs
(list go-github-com-stretchr-testify))
(propagated-inputs
(list go-github-com-hebcal-gematriya
go-github-com-nathan-osman-go-sunrise))
(home-page "https://github.com/hebcal/hebcal-go")
(synopsis "Go library for the Hebcal perpetual Jewish calendar")
(description
"This package provides a library for conversion between Hebrew
and Gregorian dates, and generation of lists of Jewish holidays for
a given year. Shabbat and holiday candle lighting and havdalah times
are approximated based on location.
Torah readings, Daf Yomi, and counting of the Omer can also be
specified. Algorithms are included to calculate yahrzeits, birthdays,
and anniversaries.")
(license license:gpl2+))))
(define-public go-github-com-aws-sdk
(package
(name "go-github-com-aws-sdk")

8
gnu/packages/gstreamer.scm
View File

@ -791,6 +791,14 @@ model to base your own plug-in on, here it is.")
;; FIXME: Why is this failing.
((".*elements/dash_mpd\\.c.*") "")
;; This test is flaky on at least some architectures.
;; https://gitlab.freedesktop.org/gstreamer/gstreamer/-/issues/1244
#$@(if (member (%current-system)
'("i686-linux" "aarch64-linux"))
`((("'elements/camerabin\\.c'\\]\\],")
"'elements/camerabin.c'], true, ],"))
'())
;; These tests are flaky and occasionally time out:
;; https://gitlab.freedesktop.org/gstreamer/gst-plugins-bad/-/issues/932
((".*elements/curlhttpsrc\\.c.*") "")

38
gnu/packages/gtk.scm
View File

@ -32,6 +32,7 @@
;;; Copyright © 2022 Zhu Zihao <all_but_last@163.com>
;;; Copyright © 2022 Benjamin Slade <slade@lambda-y.net>
;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -117,6 +118,43 @@
#:use-module (srfi srfi-26)
#:use-module (ice-9 match))
(define-public appmenu-gtk-module
(package
(name "appmenu-gtk-module")
(version "0.7.6")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/vala-panel-project/vala-panel-appmenu")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1ywpygjwlbli65203ja2f8wwxh5gbavnfwcxwg25v061pcljaqmm"))))
(build-system meson-build-system)
(arguments
(list
#:glib-or-gtk? #t
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-install-gtk-module
(lambda* _
(substitute*
"subprojects/appmenu-gtk-module/src/gtk-3.0/meson.build"
(("gtk3.get_pkgconfig_variable\\('libdir'\\)")
#$output)))))))
(native-inputs
(list `(,glib "bin") vala pkg-config))
(inputs
(list gtk+ libwnck))
(synopsis "Application Menu applet")
(description
"This package provides a global menu applet for use with desktop panels
such as mate-panel and xfce4-panel.")
(home-page "https://gitlab.com/vala-panel-project/vala-panel-appmenu")
(license (list license:lgpl3))))
(define-public atk
(package
(name "atk")

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

@ -4189,7 +4189,7 @@ models and also supports a rich set of boolean query operators.")
perl
pkg-config))
(propagated-inputs
(list guile-gcrypt))
(list guile2.2-gcrypt))
(home-page "https://github.com/o-nly/torrent")
(synopsis "Torrent library for GNU Guile")
(description "This package provides facilities for working with

1
gnu/packages/heads.scm
View File

@ -172,6 +172,7 @@ done
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils)
(guix build syscalls)
(guix cpio))
#:builder (begin
(use-modules (guix build utils)

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

File diff suppressed because it is too large Load Diff

494
gnu/packages/kde-pim.scm
View File

File diff suppressed because it is too large Load Diff

2198
gnu/packages/kde-plasma.scm
View File

File diff suppressed because it is too large Load Diff

628
gnu/packages/kde-utils.scm
View File

@ -22,22 +22,31 @@
(define-module (gnu packages kde-utils)
#:use-module (guix build-system qt)
#:use-module (guix gexp)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages backup)
#:use-module (gnu packages bash)
#:use-module (gnu packages cmake)
#:use-module (gnu packages compression)
#:use-module (gnu packages crypto)
#:use-module (gnu packages cups)
#:use-module (gnu packages glib) ; dbus for tests
#:use-module (gnu packages gnome)
#:use-module (gnu packages gstreamer)
#:use-module (gnu packages imagemagick)
#:use-module (gnu packages multiprecision)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages kde)
#:use-module (gnu packages kde-frameworks)
#:use-module (gnu packages kde-plasma)
#:use-module (gnu packages qt)
#:use-module (gnu packages samba)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages xorg))
(define-public ark
@ -114,6 +123,216 @@ with support for multiple formats, including tar, gzip, bzip2, rar and zip, as
well as CD-ROM images.")
(license license:gpl2+)))
(define-public atelier
(let ((commit "93d7d440c42f1e49a4933cbbce9f68d5e4ca725a") ; no releases
(revision "1"))
(package
(name "atelier")
(version (git-version "0.1-pre" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://invent.kde.org/utilities/atelier")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"00jccpwvksyp2vr3fjxajs8d9d30rspg4zj6rnj8dai96alp303k"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules pkg-config))
(inputs (list ki18n
kxmlgui
kconfigwidgets
ktexteditor
libatcore
qt3d-5
qtbase-5
qtcharts
qtdeclarative-5
qtmultimedia-5
qtserialport))
(home-page "https://atelier.kde.org")
(synopsis "Desktop interface to control 3D printers powered by AtCore")
(description "Atelier provides interface to control and manage your printer.
@itemize
@item Load and see your GCode File
@item Real time graphic to monitor your bed and hotend temperatures
@item You can log everything that comes and go from your printer
@item Edit gcode file
@end itemize")
(license license:gpl3+))))
(define-public basket
(let ((commit "e23a8b3b1198d51f770523c7fb4652750810359a")
(revision "1"))
(package
(name "basket")
(version (git-version "2.49" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://invent.kde.org/utilities/basket")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1i7hrrlwyzzh7mm9xc8hjix24rvy1b2cvvbkhxh9mmdbmphwdhhd"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(inputs (list breeze-icons
karchive
kcompletion
kconfig
kconfigwidgets
kcoreaddons
kcrash
kdbusaddons
kdoctools
kfilemetadata
kglobalaccel
kguiaddons
ki18n
kiconthemes
kcmutils
kio
knotifications
kparts
kservice
ktextwidgets
kwidgetsaddons
kwindowsystem
kxmlgui
phonon))
(home-page "https://invent.kde.org/utilities/basket")
(synopsis "Notes and to-dos organizer")
(description "This package provides simple note taking and to-do app.")
(license license:gpl2+))))
(define-public fielding
(let ((commit "6b3c5d67b308e9e7e2043dc6072bfd265ec9f3e1")
;; no releases yet
(revision "1"))
(package
(name "fielding")
(version (git-version "0.1-pre" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://invent.kde.org/utilities/fielding")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1l16am7il7kprmy8irpzj04rb8wbfr84y49wp4i74hspp9xkfick"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(inputs (list kirigami
kcoreaddons
kconfig
ki18n
kdbusaddons
ksyntaxhighlighting
qtdeclarative-5
qtquickcontrols2-5
qtsvg-5))
(home-page "https://invent.kde.org/utilities/fielding")
(synopsis "REST API testing tool")
(description
"This package provides a tool for testing REST APIs.")
(license license:lgpl2.1+))))
(define-public filelight
(package
(name "filelight")
(version "22.08.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/filelight-" version ".tar.xz"))
(sha256
(base32
"1fqgmpq5dznbn5lalx1j6dyynhylijrcqw3x9hrwxcqwr275h9iw"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(inputs (list kirigami
kquickcharts
kxmlgui
kio
ki18n
kdeclarative
qqc2-desktop-style
qtgraphicaleffects
qtquickcontrols2-5
qtsvg-5))
(home-page "https://apps.kde.org/filelight/")
(synopsis "Visualize the disk usage")
(description "Filelight is an application to visualize the disk usage on
your computer.")
(license license:lgpl2.1+)))
(define-public francis
(let ((commit "d2c762ad94170430a667ee57f81ec9dbe498642c") ; no release yet
(revision "1"))
(package
(name "francis")
(version (git-version "0.1-pre" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://invent.kde.org/utilities/francis")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"15bk5iq127mp34n9fzq4d5r3qss3ihk93lqy86z2q3lgwid26s0h"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(inputs (list kirigami
kcoreaddons
kconfig
ki18n
kdbusaddons
knotifications
qtdeclarative-5
qtgraphicaleffects
qtquickcontrols2-5
qtsvg-5))
(home-page "https://invent.kde.org/utilities/francis")
(synopsis "Track your time")
(description "This package provides time tracking.")
(license license:lgpl2.1+))))
(define-public isoimagewriter
(let ((commit "bd1ef4f0ce179fa874b102689022ebda3e7b4c16")
(revision "1"))
(package
(name "isoimagewriter")
(version (git-version "0.8" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://invent.kde.org/utilities/isoimagewriter")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0dha2y4kmyppi6c0g0hclp53fjj963vq27q7azznpl0bz6zb4042"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(inputs (list kauth
karchive
kcoreaddons
ki18n
kiconthemes
kcrash
solid
kwidgetsaddons))
(home-page "https://invent.kde.org/utilities/isoimagewriter")
(synopsis "Write hybrid ISO files onto USB disks")
(description
"This package provides a tool to write ISO files to USB disks.")
(license license:gpl3+))))
(define-public kate
(package
(name "kate")
@ -180,6 +399,380 @@ Kate's features include:
(license ;; GPL for programs, LGPL for libraries
(list license:gpl2+ license:lgpl2.0))))
(define-public kdebugsettings
(package
(name "kdebugsettings")
(version "22.08.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kdebugsettings-" version
".tar.xz"))
(sha256
(base32
"0l9q7cmzc93zz2zc5ncq3q7q6jil6ai36n2vh70s2wsi8b0gsms8"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(inputs (list kcoreaddons
kconfig
kdbusaddons
ki18n
kwidgetsaddons
kitemviews
kcompletion))
(home-page "https://invent.kde.org/utilities/kdebugsettings")
(synopsis "Choose which QLoggingCategory are displayed")
(description
"This package allows to select which QLoggingCategory are displayed.")
(license license:lgpl2.0+)))
(define-public kbackup
(package
(name "kbackup")
(version "22.08.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kbackup-" version ".tar.xz"))
(sha256
(base32
"0c0zdk00j9qssjdb5dg5hwc5mx7h5kvriyszia2xizqjq2m53c3k"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(inputs (list kguiaddons
knotifications
ki18n
kio
kxmlgui
kiconthemes
karchive
kwidgetsaddons
shared-mime-info))
(home-page "https://apps.kde.org/kbackup/")
(synopsis "Backup program with an easy-to-use interface")
(description
"This package provides tool to backup your data.
@itemize
@item profile for directories and files to be included or excluded from the
backup
@item The backup target can be either a locally mounted device like a ZIP
drive, USB stick, etc
@item Running automated backups without using a graphical user interface
@end itemize")
(license license:gpl2+)))
(define-public kcalc
(package
(name "kcalc")
(version "22.08.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kcalc-" version ".tar.xz"))
(sha256
(base32
"01rn6qy40q4b90i5mysrygkqh5fzq885dgcd11l6r8s59ijjcjlk"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules kdoctools))
(inputs (list gmp
kcoreaddons
kcrash
kconfig
kconfigwidgets
kguiaddons
ki18n
knotifications
kxmlgui
mpfr))
(home-page "https://apps.kde.org/kcalc/")
(synopsis "Scientific calculator")
(description
"This package provides a scientific calculator.")
(license license:gpl2+)))
(define-public kcharselect
(package
(name "kcharselect")
(version "22.08.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kcharselect-" version
".tar.xz"))
(sha256
(base32
"1gs9jkq76dkhjgjqpl5dcsx0l2qi6i0pk122y1qmwgyd6f8af35b"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(inputs (list kbookmarks kcoreaddons kcrash ki18n kwidgetsaddons kxmlgui))
(home-page "https://apps.kde.org/kcharselect/")
(synopsis "Select and copy special characters from installed fonts")
(description
"This package provides a tool to display various information
about the selected character. This includes not only the Unicode character
name, but also aliases, general notes and cross references to similar
characters.")
(license license:gpl2+)))
(define-public kdialog
(package
(name "kdialog")
(version "22.08.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kdialog-" version ".tar.xz"))
(sha256
(base32
"1lqzhfn5g16qr6ada9i0i3kshna1zxp1y20ylwmmsa82bgmyblhx"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules kdoctools))
(inputs (list ktextwidgets
knotifications
kguiaddons
kiconthemes
kwindowsystem
kio
kdbusaddons))
(home-page "https://invent.kde.org/utilities/kdialog")
(synopsis "Show dialog boxes from shell scripts")
(description "This package provides tool to show nice dialog boxes from
shell scripts.")
(license license:gpl2+)))
(define-public keurocalc
(let ((commit "a760d8a7e58b36eb72d15e847f96599c93785194") ; just one release
(revision "1"))
(package
(name "keurocalc")
(version (git-version "1.3.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://invent.kde.org/utilities/keurocalc")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0gh5vwl38hwf1405c980j1fj06g5c52am140lf4mxhrjvnmry7kd"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules kdoctools))
(inputs (list kconfig
kconfigwidgets
kcoreaddons
ki18n
kio
kwidgetsaddons
kxmlgui))
(home-page "https://invent.kde.org/utilities/keurocalc")
(synopsis "Currency conversion tool")
(description "This package provides a utility to handle currency
conversions between European currencies.")
(license license:gpl2+))))
(define-public keysmith
(package
(name "keysmith")
(version "22.09")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/plasma-mobile/"
(version-major+minor version) "/keysmith-"
version ".tar.xz"))
(sha256
(base32
"0w3vvmp9rn6ahly2fm9n6f4glfr7d84bfvj33mrs5pn7n99h7jgy"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules pkg-config))
(inputs (list kdbusaddons
kirigami
ki18n
kwindowsystem
libsodium
qtdeclarative-5
qtgraphicaleffects
qtquickcontrols2-5
qtsvg-5))
(home-page "https://invent.kde.org/utilities/keysmith")
(synopsis "OTP client for Plasma Mobile and Desktop")
(description
"This package provides OTP client for Plasma Mobile and Desktop
with support for QR scanning.")
(license license:gpl3+)))
(define-public kfind
(package
(name "kfind")
(version "22.08.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kfind-" version ".tar.xz"))
(sha256
(base32
"0py6ygnj7qxbwrldf2a3hqc1cqd5yvyfi1l0nji0hwn8lvidnjhc"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules kdoctools))
(inputs (list karchive
kcoreaddons
kfilemetadata
ki18n
kio
kwidgetsaddons))
(home-page "https://apps.kde.org/kfind/")
(synopsis "File search utility")
(description
"This package provides a file search utility for KDE.")
(license license:gpl2+)))
(define-public kirogi
(let ((commit "73b009f1fc5ac159c2faba720b302c704f89a806") ; no releases yet
(revision "1"))
(package
(name "kirogi")
(version (git-version "0.1-pre" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://invent.kde.org/utilities/kirogi")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1gncfnwadh11ipynfcrsh1vnk2g02c7scd5wanphi8i95jzak9jd"))))
(build-system qt-build-system)
(arguments
(list #:phases #~(modify-phases %standard-phases
(add-after 'unpack 'fix-gstreamer
(lambda* _
(substitute* "CMakeLists.txt"
(("gstreamer-video-1.0")
"")))))))
(native-inputs (list extra-cmake-modules pkg-config))
(inputs (list kconfigwidgets
kcoreaddons
ki18n
kirigami
kcrash
kdnssd
qtquickcontrols2-5
qtgraphicaleffects
qtdeclarative-5
qtgamepad
qtlocation))
(propagated-inputs (list gstreamer))
(home-page "https://apps.kde.org/kirogi/")
(synopsis "Ground control application for drones")
(description "Kirogi is a ground control application for drones.
@itemize
@item Direct flight controls
@item Fly by touch on a Navigation Map
@item Trigger vehicle actions (e.g. flips, trim)
@item Gamepad/joypad support
@item Live video
@item Take photo and record video
@item Configure flight parameters (speed, altitude limits)
@item Support for Parrot (Anafi, Bebop 2) and Ryze Tello drones
@end itemize")
(license ;GPL for programs, LGPL for libraries
(list license:gpl2+ license:lgpl2.0)))))
(define-public kontrast
(package
(name "kontrast")
(version "22.08.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kontrast-" version ".tar.xz"))
(sha256
(base32
"03y3y5p29zx4nmqi7hp3abxq2n2bgwbz2knhn9vhl3im3ghp7lmp"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(inputs (list kirigami
ki18n
kcoreaddons
qtdeclarative-5
qtgraphicaleffects
qtquickcontrols2-5
qtsvg-5))
(home-page "https://apps.kde.org/kontrast/")
(synopsis "Color contrast checker")
(description
"Kontrast is a color contrast checker and tells you if your color
combinations are distinct enough to be readable and accessible.")
(license license:gpl3+)))
(define-public libatcore
(let ((commit "0de6393ed3e721537dec50b0ad174d83f1207eb6")
(revision "1"))
(package
(name "libatcore")
(version (git-version "1.0.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://invent.kde.org/libraries/atcore")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1830r6ylpn3l7y2frl8cih5cpjgbkfrib9jq7jklf8aszhlsihf2"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(inputs (list qtcharts qtdeclarative-5 qtserialport))
(home-page "https://invent.kde.org/libraries/atcore")
(synopsis "Library for connection and management of 3D printers")
(description
"This package provides a API to manage the serial connection between
the computer and 3D Printers.")
(license (list license:lgpl2.1 license:lgpl3)))))
(define-public wacomtablet
(package
(name "wacomtablet")
(version "3.2.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/"
name "/" version "/"
name "-" version ".tar.xz"))
(patches (search-patches
"wacomtablet-add-missing-includes.patch"
"wacomtablet-qt5.15.patch"))
(sha256
(base32
"197pwpl87gqlnza36bp68jvw8ww25znk08acmi8bpz7n84xfc368"))))
(build-system qt-build-system)
(arguments
(list #:phases #~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "dbus-launch" "ctest" "-E"
"(Test.KDED.DBusTabletService|Test.KDED.TabletHandler|Test.KDED.XInputAdaptor|Test.KDED.XsetWacomAdaptor)")))))))
(native-inputs (list dbus extra-cmake-modules kdoctools pkg-config))
(inputs (list kcoreaddons
ki18n
kglobalaccel
kconfig
kxmlgui
kwidgetsaddons
kwindowsystem
knotifications
kdbusaddons
qtx11extras
qtdeclarative-5
libwacom
xf86-input-wacom
libxi))
(propagated-inputs (list plasma-framework))
(home-page "https://invent.kde.org/system/wacomtablet")
(synopsis "KDE GUI for the Wacom Linux Drivers")
(description "Provides KDE GUI for the Wacom Linux Drivers.")
(license license:gpl2+)))
(define-public kmag
(package
(name "kmag")
@ -456,6 +1049,41 @@ redone.")
(license ;; GPL for programs, LGPL for libraries, FDL for documentation
(list license:gpl2+ license:lgpl2.0+ license:fdl1.2+))))
(define-public print-manager
(package
(name "print-manager")
(version "22.08.0")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/print-manager-" version ".tar.xz"))
(sha256
(base32 "1abwj1ccm70adzx07ykqjlb4f6y55k2rv1j861dl0822187vl799"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
(inputs
(list cups
kcmutils
kconfig
kconfigwidgets
kcoreaddons
kdbusaddons
kiconthemes
ki18n
kio
knotifications
kwidgetsaddons
kwindowsystem
plasma-framework
qtdeclarative-5))
(home-page "https://invent.kde.org/utilities/print-manager")
(synopsis "Manage print jobs and printers")
(description
"This package provides printing management for KDE.")
(license license:gpl2+)))
(define-public rsibreak
(package
(name "rsibreak")

314
gnu/packages/kde.scm
View File

@ -68,6 +68,7 @@
#:use-module (gnu packages ghostscript)
#:use-module (gnu packages gimp)
#:use-module (gnu packages gl)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gps)
#:use-module (gnu packages graphics)
@ -99,14 +100,14 @@
(define-public baloo-widgets
(package
(name "baloo-widgets")
(version "22.04.3")
(version "22.08.1")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/baloo-widgets-" version ".tar.xz"))
(sha256
(base32 "0084bnrlbdypdwzxi9gfxcywhyjd1z2cmh7p6gv0zhc9f7h6ffnp"))))
(base32 "02p4v8g4syk908mg7f0l5fpqn7ddsxqji1n8jqghsdkkdsvry7mn"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
@ -123,14 +124,14 @@ This package contains GUI widgets for baloo.")
(define-public grantleetheme
(package
(name "grantleetheme")
(version "22.04.3")
(version "22.08.1")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/grantleetheme-" version ".tar.xz"))
(sha256
(base32 "50c6s1g3vp5sdhpiciz1j6rsryld7hcc6lvmxdlsvms2bbcmnj7l"))))
(base32 "01ls16x6ngi43lcwffav9qig3afakrs04v4wvyfb8lm7sd65hgf9"))))
(build-system qt-build-system)
(arguments `(#:tests? #f)) ; unexpected error in the test suite.
(native-inputs
@ -151,14 +152,14 @@ This package contains GUI widgets for baloo.")
(define-public akregator
(package
(name "akregator")
(version "22.04.3")
(version "22.08.1")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/akregator-" version ".tar.xz"))
(sha256
(base32 "08n713271i7ifnbrgwrqmxvcpvj45wfqjiidw8zf9rpwxg2m2m9g"))))
(base32 "01rgyl2hwjprq4z5yjc99j6jk9vrhjy608ha72j470pw6g47ac5s"))))
(build-system qt-build-system)
(arguments
`(#:phases
@ -195,7 +196,7 @@ This package contains GUI widgets for baloo.")
kontactinterface
kpimcommon
kpimtextedit
kqtquickcharts
kquickcharts
ktexteditor
kuserfeedback
libkdepim
@ -220,7 +221,7 @@ browser for easy news reading.")
(define-public kdenlive
(package
(name "kdenlive")
(version "22.04.3")
(version "22.08.1")
(source
(origin
(method git-fetch)
@ -229,7 +230,7 @@ browser for easy news reading.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0v545kd5rm5isy4cx21fp3pi49mvsv1r1ahp0jhim8s6b7ghrh64"))))
(base32 "0xnasi8s8zxh2s4vnn51pc8ni58q8pk70bwh9dfxp1wdmpv3zsrx"))))
(build-system qt-build-system)
(arguments
;; XXX: there is a single test that spawns other tests and
@ -304,14 +305,14 @@ projects.")
(define-public kdevelop
(package
(name "kdevelop")
(version "22.04.3")
(version "22.08.1")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kdevelop-" version ".tar.xz"))
(sha256
(base32 "03dwllxy96sy20kdsc3sll0n6bhh6gdmpjl821flsxv0jb5naplv"))))
(base32 "14a80z4sahxyzssrz605zp7ah5xdjbc22ccv0vwcnhr5lzr76v31"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules pkg-config shared-mime-info qttools-5))
@ -443,6 +444,102 @@ a module for implementing ODF Gantt charts, which are bar charts that
illustrate project schedules.")
(license license:gpl2+)))
(define-public kio-extras
(package
(name "kio-extras")
(version "22.08.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/" name "-"
version ".tar.xz"))
(sha256
(base32
"0gzna2ps2qd2js28c97kjpcbah7zz8n4s4932faggc2nz5z5wnyn"))))
(build-system cmake-build-system)
(arguments
(list #:phases #~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(setenv "HOME" (getcwd))
(setenv "TMPDIR" (getcwd))
(invoke "ctest" "-E" "testkioarchive")))))))
(native-inputs (list extra-cmake-modules dbus kdoctools qttools-5))
(inputs (list karchive
kconfig
kconfigwidgets
kcoreaddons
kdbusaddons
ki18n
kdnssd
kio
solid
kbookmarks
kguiaddons
ksyntaxhighlighting
qtbase-5
qtsvg-5))
(home-page "https://community.kde.org/Frameworks")
(synopsis "Additional components to increase the functionality of KIO")
(description
"This package provides additional components to increase
the functionality of the KDE resource and network access abstractions.")
(license license:lgpl2.0+)))
(define-public kio-fuse
(package
(name "kio-fuse")
(version "5.0.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/" name "/" version "/"
name "-" version ".tar.xz"))
(sha256
(base32
"1pb62h45c06dq3rml91xbf8j5y2c1l8z8j8lycchxrlgys5rlrv6"))))
(build-system cmake-build-system)
(arguments
(list #:phases #~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(setenv "HOME" (getcwd))
(setenv "XDG_RUNTIME_DIR" (getcwd))
(setenv "QT_QPA_PLATFORM" "offscreen")
(invoke "dbus-launch" "ctest" "-E"
"(fileopstest-cache|fileopstest-filejob)")))))))
(native-inputs (list dbus extra-cmake-modules pkg-config))
(inputs (list fuse-3 kio kcoreaddons qtbase-5))
(home-page "https://community.kde.org/Frameworks")
(synopsis "FUSE Interface for KIO")
(description "This package provides FUSE Interface for KIO.")
(license license:lgpl2.1+)))
(define-public kirigami-addons
(package
(name "kirigami-addons")
(version "0.3")
(source (origin
(method url-fetch)
(uri (string-append
"https://invent.kde.org/libraries/kirigami-addons/-/archive/v"
version "/kirigami-addons-v" version ".tar.gz"))
(sha256
(base32
"1zr8dpc7bzw6g3y0jaxsr2lqlxqwlcphchpk8iah6g1f3n9fq73r"))))
(build-system qt-build-system)
(arguments
(list #:tests? #f)) ; failing test
(native-inputs (list extra-cmake-modules))
(inputs (list kirigami ki18n qtdeclarative-5 qtquickcontrols2-5))
(home-page "https://invent.kde.org/libraries/kirigami-addons")
(synopsis "Add-ons for the Kirigami framework")
(description
"This package provides Kirigami components usable by both touch
and desktop experiences.")
(license license:lgpl2.0+)))
(define-public kseexpr
(package
(name "kseexpr")
@ -581,17 +678,52 @@ 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 libqaccessibilityclient
(package
(name "libqaccessibilityclient")
(version "0.4.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/" name
"/libqaccessibilityclient-" version
".tar.xz"))
(sha256
(base32
"0a9lv2jb5gyqxvrkl5xl09gjnlp05b5yfzfb0wmaxz0l8d7qnxhw"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ;TODO: Failing tests
#:phases (modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
;
;; make Qt render "offscreen", required for tests
(setenv "QT_QPA_PLATFORM" "offscreen")
;; For missing '/etc/machine-id'
(setenv "DBUS_FATAL_WARNINGS" "0")
(setenv "HOME"
(getcwd))
(invoke "dbus-launch" "ctest")))))))
(native-inputs (list dbus extra-cmake-modules))
(inputs (list qtbase-5))
(home-page "https://invent.kde.org/libraries/libqaccessibilityclient")
(synopsis "Helper library to make writing accessibility tools easier")
(description "This package provides library that is used when writing
accessibility clients such as screen readers.")
(license license:lgpl2.1+)))
(define-public libkomparediff2
(package
(name "libkomparediff2")
(version "22.04.3")
(version "22.08.1")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/libkomparediff2-" version ".tar.xz"))
(sha256
(base32 "1vaxbx7c6r7skh3452blxyrngfcsdyjmmvcg6j2wcsn04m01mw8k"))))
(base32 "0hjxxhfv0ds05l821avq787sfdy0afr595xx266c20x8fxgm6kv9"))))
(native-inputs
(list extra-cmake-modules pkg-config))
(inputs
@ -636,10 +768,70 @@ including SSL/TLS, X.509 certificates, SASL, OpenPGP, S/MIME CMS, and smart
cards.")
(license license:lgpl2.1+)))
(define-public kopeninghours
(package
(name "kopeninghours")
(version "22.08.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/" name "-" version ".tar.xz"))
(sha256
(base32
"03hslgx4zgg7gsnz2xhx4wnchvqfc5n8c6ihgwz3972fkxsjfdvq"))))
(build-system cmake-build-system)
(arguments
(list #:phases '(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(setenv "QT_QPA_PLATFORM" "offscreen")
(invoke "ctest" "-E"
"(evaluatetest|iterationtest)")))))))
(native-inputs (list bison extra-cmake-modules flex))
(inputs (list boost
kholidays
ki18n
osmctools
qtbase-5
qtdeclarative-5))
(home-page "https://invent.kde.org/libraries/kopeninghours")
(synopsis "Get opening hours from OpenStreetMap")
(description
"This package provides a library for parsing and evaluating OpenStreetMap
opening hours expressions.")
(license license:lgpl2.0+)))
(define-public kosmindoormap
(package
(name "kosmindoormap")
(version "22.08.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/" name "-" version ".tar.xz"))
(sha256
(base32
"042axwxa1497snr8f0m6a61gl9ypdkvllnhnlw4h5ffah7yl5n3s"))))
(build-system cmake-build-system)
(native-inputs (list bison extra-cmake-modules flex))
(inputs (list ki18n
kopeninghours
kpublictransport
qtbase-5
qtdeclarative-5
zlib))
(home-page "https://invent.kde.org/libraries/kosmindoormap")
(synopsis "Indoor map renderer")
(description
"This package provides facilities for rendering OpenStreetMap
multi-floor indoor maps.")
(license license:lgpl2.0+)))
(define-public kpmcore
(package
(name "kpmcore")
(version "22.04.3")
(version "22.08.1")
(source (origin
(method url-fetch)
(uri (string-append
@ -647,7 +839,7 @@ cards.")
"/src/" name "-" version ".tar.xz"))
(sha256
(base32
"04qslli4vnbnl329zynbinlwaigxr9xpswra5n0v710p92as0qif"))))
"1y28dnmbnkkjar4kl033fkmcnazgczc3pgdac2q1ry2hjzkcbnpa"))))
(build-system cmake-build-system)
(native-inputs
(list extra-cmake-modules pkg-config))
@ -674,6 +866,37 @@ cards.")
(description "Library for managing partitions.")
(license license:gpl3+)))
(define-public kpublictransport
(package
(name "kpublictransport")
(version "22.08.1")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://kde/stable/release-service/" version
"/src/kpublictransport-" version ".tar.xz"))
(sha256
(base32
"0z7zyyiq4815m74s6p841k1c4pxbrss7hnkag8kr5qa3q4264kg9"))))
(build-system qt-build-system)
(arguments
(list #:phases '(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(setenv "QT_QPA_PLATFORM" "offscreen")
(invoke "ctest" "-E"
"(mergeutiltest|departuretest|journeytest|networkconfigtest|locationhistorymodeltest|navitiaparsertest|otpparsertest|ivvassparsertest|cachetest)")))))))
(native-inputs (list extra-cmake-modules pkg-config))
;; TODO: clipper and osmctools are not detected
(inputs (list clipper osmctools protobuf qtdeclarative-5 zlib))
(home-page "https://api.kde.org/kdepim/kpublictransport/html/index.html")
(synopsis "Library for accessing realtime public transport data")
(description
"This package provides a library for accessing realtime public
transport data and for performing public transport journey queries.")
(license (list license:lgpl2.0+))))
(define-public snorenotify
(package
(name "snorenotify")
@ -703,7 +926,7 @@ different notification systems.")
(define-public kdeconnect
(package
(name "kdeconnect")
(version "22.04.3")
(version "22.08.1")
(source
(origin
(method url-fetch)
@ -712,7 +935,7 @@ different notification systems.")
version ".tar.xz"))
(sha256
(base32
"015gxglclds2vmjr4bv51yfv840bafzgrl71cnwgnwwy8rrh9x4x"))))
"1yzx49gcm7x2wdk53iznyjz09y2a6mrrhh68xilbcsafyiw3l3zr"))))
(build-system qt-build-system)
(arguments
`(#:configure-flags '("-DBUILD_TESTING=ON"
@ -741,6 +964,7 @@ different notification systems.")
kpeoplevcard
kwayland
libfakekey
plasma-wayland-protocols
pulseaudio-qt
qca
qqc2-desktop-style
@ -847,41 +1071,17 @@ to perform data analysis.")
(license (list license:gpl2+ ;labplot
license:gpl3+)))) ;liborigin
(define-public kqtquickcharts
(package
(name "kqtquickcharts")
(version "22.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kqtquickcharts-" version ".tar.xz"))
(sha256
(base32
"0bm7rdysvlfnfnvy87ii3kxl238q83vw0ia58zsnwjmkxmlgf6mp"))))
(build-system cmake-build-system)
(native-inputs
(list extra-cmake-modules))
(inputs
(list qtbase-5 qtdeclarative-5))
(home-page "https://phabricator.kde.org/source/kqtquickcharts/")
(synopsis "Interactive charts for Qt Quick")
(description
"Kqtquickcharts is a QtQuick plugin to render beautiful and interactive
charts.")
(license license:lgpl2.1+)))
(define-public kdf
(package
(name "kdf")
(version "22.04.3")
(version "22.08.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kdf-" version ".tar.xz"))
(sha256
(base32
"1m0dwk3inqzk9kjjzgsaam15lnpbhzjfmwrzv8sazfk44scnr2v1"))))
"0p7iqld2phc74pmhyb8bqqg9clnc7l2rh6hd0i6jcsp266cgg205"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -934,14 +1134,14 @@ timers for each task can be started, stopped, changed, or looped.")
(define-public kcachegrind
(package
(name "kcachegrind")
(version "22.04.3")
(version "22.08.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kcachegrind-" version ".tar.xz"))
(sha256
(base32
"12ckn90hqm2c5c58xqkzgcih64jk4kwkgz4q0f5ns1rxv3pidz5n"))))
"05wcnfqs0fdfhfpagn0pqky0l7014nblv8r9fv1khy4g5mdlm4hs"))))
(build-system cmake-build-system)
(native-inputs
(list extra-cmake-modules perl python qttools-5 kdoctools))
@ -968,14 +1168,14 @@ Python, PHP, and Perl.")
(define-public libkdegames
(package
(name "libkdegames")
(version "22.04.3")
(version "22.08.1")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/libkdegames-" version ".tar.xz"))
(sha256
(base32 "0igq87anam9x2mclb0lkvwhrxk62y1f4xl14a4dhd97mqsc5pbzn"))))
(base32 "1aihbha073fw2bxmdk4l768716kvrlyjd72x2nfx0vvr0ngc5wx9"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
@ -1014,7 +1214,7 @@ Python, PHP, and Perl.")
(define-public marble-qt
(package
(name "marble-qt")
(version "22.04.3")
(version "22.08.1")
(source
(origin
(method git-fetch)
@ -1024,7 +1224,7 @@ Python, PHP, and Perl.")
(file-name (git-file-name name version))
(sha256
(base32
"1saacnrl0hkl32nq96l1bgn9yrsz455q96jdxzp7ax8iaa5nmdiz"))))
"0pn0mjh5cg7mgjj82bsj8zikzdyq2fmzckdcav2y0msxwi859crl"))))
(build-system qt-build-system)
(arguments
;; FIXME: libmarblewidget-qt5.so.28 not found. Also enable the
@ -1071,14 +1271,14 @@ creating routes by drag and drop and more.")
(define-public okular
(package
(name "okular")
(version "22.04.3")
(version "22.08.1")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/" name "-" version ".tar.xz"))
(sha256
(base32 "03jpwgrhjgyx14g1h3lxhnyib88ck0qkqcxh4fpc398xwdr3amkw"))))
(base32 "0f98kfsb6sirpym27j2wwz4qr4p5vl4pbnckxd3gmgyfpz8mszln"))))
(build-system qt-build-system)
;; The tests fail because they can't find the proper mimetype plugins:
;; "org.kde.okular.core: No plugin for mimetype '"image/jpeg"'."
@ -1136,7 +1336,7 @@ a variety of formats, including PDF, PostScript, DejaVu, and EPub.")
(define-public poxml
(package
(name "poxml")
(version "22.04.3")
(version "22.08.1")
(source (origin
(method url-fetch)
(uri
@ -1144,7 +1344,7 @@ a variety of formats, including PDF, PostScript, DejaVu, and EPub.")
"/src/poxml-" version ".tar.xz"))
(sha256
(base32
"1nrp0i3a39pw4pzcanpmjyks3pl1lyfj3zq61ii8xx402xw1ip2w"))))
"13jp5g5la3kq9i3qybdvwfl4vgqz3hxf64qzmh7kl71ykas7s5vi"))))
(build-system cmake-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1161,14 +1361,14 @@ PO template files.")
(define-public kdegraphics-mobipocket
(package
(name "kdegraphics-mobipocket")
(version "22.04.3")
(version "22.08.1")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/" name "-" version ".tar.xz"))
(sha256
(base32 "12yrwa22c4qxsf10fv76fzaaj5xlv5lmrwcqvf6qhgr6f9qsw7sj"))))
(base32 "1kxvzgmq83hml10pc4j66r59dsar7h92w2i0cs1nhar781mz666n"))))
(build-system cmake-build-system)
(native-inputs
(list extra-cmake-modules))
@ -1183,14 +1383,14 @@ Mobipocket e-books in Dolphin and other KDE apps.")
(define-public libkexiv2
(package
(name "libkexiv2")
(version "22.04.3")
(version "22.08.1")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/" name "-" version ".tar.xz"))
(sha256
(base32 "0p43z69yh5jk8m1hn3xynjpgzxpkc89h0dafj5964qx4xp4vxl19"))))
(base32 "0iwpy79ppv4bbsqrszp9kmghgjvkl13gdpnafsbikh4wy1ch4cv9"))))
(build-system cmake-build-system)
(native-inputs
(list extra-cmake-modules))

299
gnu/packages/linux.scm
View File

@ -33,7 +33,7 @@
;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2018 Vasile Dumitrascu <va511e@yahoo.com>
;;; Copyright © 2019 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
;;; Copyright © 2019, 2020, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2019, 2020, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2019 Stefan Stefanović <stefanx2ovic@gmail.com>
;;; Copyright © 2019-2022 Brice Waegeneire <brice@waegenei.re>
;;; Copyright © 2019 Kei Kebreau <kkebreau@posteo.net>
@ -108,8 +108,9 @@
#:use-module (gnu packages docbook)
#:use-module (gnu packages documentation)
#:use-module (gnu packages elf)
#:use-module (gnu packages flex)
#:use-module (gnu packages file)
#:use-module (gnu packages flex)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gawk)
#:use-module (gnu packages gcc)
@ -119,6 +120,7 @@
#:use-module (gnu packages gnupg)
#:use-module (gnu packages golang)
#:use-module (gnu packages gperf)
#:use-module (gnu packages graphviz)
#:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk)
#:use-module (gnu packages haskell-apps)
@ -418,7 +420,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(%upstream-linux-source version hash)
deblob-scripts-5.4)))
(define-public linux-libre-4.19-version "4.19.265")
(define-public linux-libre-4.19-version "4.19.266")
(define-public linux-libre-4.19-gnu-revision "gnu1")
(define deblob-scripts-4.19
(linux-libre-deblob-scripts
@ -428,7 +430,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "00i91lx938nqlgy63hiricqd0fnbbf26vgya9c5lb7m1f4x324im")))
(define-public linux-libre-4.19-pristine-source
(let ((version linux-libre-4.19-version)
(hash (base32 "1l5cdpgng1gci1p1gdr2jzqw486h3w56gpyc7fbq74hlc6nnwh1p")))
(hash (base32 "0qfgvdzf8mwx0vhz6v6vkdch3hilh6qrl24gmy5z1vpwbxjvc4kv")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.19)))
@ -494,17 +496,20 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(define-public linux-libre-6.0-source
(source-with-patches linux-libre-6.0-pristine-source
(list %boot-logo-patch
%linux-libre-arm-export-__sync_icache_dcache-patch)))
%linux-libre-arm-export-__sync_icache_dcache-patch
(search-patch "linux-libre-infodocs-target.patch"))))
(define-public linux-libre-5.15-source
(source-with-patches linux-libre-5.15-pristine-source
(list %boot-logo-patch
%linux-libre-arm-export-__sync_icache_dcache-patch)))
%linux-libre-arm-export-__sync_icache_dcache-patch
(search-patch "linux-libre-infodocs-target.patch"))))
(define-public linux-libre-5.10-source
(source-with-patches linux-libre-5.10-pristine-source
(list %boot-logo-patch
%linux-libre-arm-export-__sync_icache_dcache-patch)))
%linux-libre-arm-export-__sync_icache_dcache-patch
(search-patch "linux-libre-infodocs-target.patch"))))
(define-public linux-libre-5.4-source
(source-with-patches linux-libre-5.4-pristine-source
@ -759,6 +764,11 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration."
;;; Kernel package utilities.
;;;
(define (doc-supported? version)
;; Versions older than 5.10 have different enough build scripts that the
;; infodocs patch doesn't apply.
(version>=? version "5.10"))
(define* (make-linux-libre version gnu-revision hash-string supported-systems
#:key
(extra-version #f)
@ -767,7 +777,13 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration."
(configuration-file #f)
(defconfig "defconfig")
(extra-options %default-extra-linux-options)
(patches (list %boot-logo-patch)))
(build-doc? (doc-supported? version))
(patches
`(,%boot-logo-patch
,@(if build-doc?
(list (search-patch
"linux-libre-infodocs-target.patch"))
'()))))
(make-linux-libre* version gnu-revision
(origin
(method url-fetch)
@ -778,7 +794,8 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration."
#:extra-version extra-version
#:configuration-file configuration-file
#:defconfig defconfig
#:extra-options extra-options))
#:extra-options extra-options
#:build-doc? build-doc?))
(define* (make-linux-libre* version gnu-revision source supported-systems
#:key
@ -787,7 +804,10 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration."
;; See kernel-config for an example.
(configuration-file #f)
(defconfig "defconfig")
(extra-options %default-extra-linux-options))
(extra-options %default-extra-linux-options)
(build-doc? (doc-supported? version)))
(when (and build-doc? (not (doc-supported? version)))
(error "unsupported 'build-doc?' for kernels <5.10"))
(package
(name (if extra-version
(string-append "linux-libre-" extra-version)
@ -796,11 +816,127 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration."
(source source)
(supported-systems supported-systems)
(build-system gnu-build-system)
(arguments
(list
#:modules '((guix build gnu-build-system)
(guix build utils)
(srfi srfi-1)
(srfi srfi-26)
(ice-9 ftw)
(ice-9 match))
#:tests? #f
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-/bin/pwd
(lambda _
(substitute* (find-files
"." "^Makefile(\\.include)?$")
(("/bin/pwd") "pwd"))))
#$@(if build-doc?
#~((add-before 'configure 'build-doc
(lambda _
(substitute* "Documentation/Makefile"
;; Remove problematic environment check script.
((".*scripts/sphinx-pre-install.*") ""))
(invoke "make" "infodocs")))
(add-after 'build-doc 'install-doc
(lambda _
(with-directory-excursion "Documentation/output"
(invoke "make" "-C" "texinfo" "install-info"
(string-append "infodir=" #$output
"/share/info"))))))
#~())
(replace 'configure
(lambda* (#:key inputs target #:allow-other-keys)
;; Avoid introducing timestamps.
(setenv "KCONFIG_NOTIMESTAMP" "1")
(setenv "KBUILD_BUILD_TIMESTAMP" (getenv "SOURCE_DATE_EPOCH"))
;; Other variables useful for reproducibility.
(setenv "KBUILD_BUILD_USER" "guix")
(setenv "KBUILD_BUILD_HOST" "guix")
;; Set ARCH and CROSS_COMPILE.
(let ((arch #$(platform-linux-architecture
(lookup-platform-by-target-or-system
(or (%current-target-system)
(%current-system))))))
(setenv "ARCH" arch)
(format #t "`ARCH' set to `~a'~%" (getenv "ARCH"))
(when target
(setenv "CROSS_COMPILE" (string-append target "-"))
(format #t "`CROSS_COMPILE' set to `~a'~%"
(getenv "CROSS_COMPILE"))))
(setenv "EXTRAVERSION"
#$(and extra-version
(string-append "-" extra-version)))
(let ((config (assoc-ref inputs "kconfig")))
;; Use a custom kernel configuration file or a default
;; configuration file.
(if config
(begin
(copy-file config ".config")
(chmod ".config" #o666))
(invoke "make" #$defconfig))
;; Appending works even when the option wasn't in the
;; file. The last one prevails if duplicated.
(let ((port (open-file ".config" "a"))
(extra-configuration #$(config->string extra-options)))
(display extra-configuration port)
(close-port port))
(invoke "make" "oldconfig"))))
(replace 'install
(lambda* (#:key inputs native-inputs #:allow-other-keys)
(let ((moddir (string-append #$output "/lib/modules"))
(dtbdir (string-append #$output "/lib/dtbs")))
;; Install kernel image, kernel configuration and link map.
(for-each (lambda (file) (install-file file #$output))
(find-files "." "^(\\.config|bzImage|zImage|Image\
|vmlinuz|System\\.map|Module\\.symvers)$"))
;; Install device tree files
(unless (null? (find-files "." "\\.dtb$"))
(mkdir-p dtbdir)
(invoke "make" (string-append "INSTALL_DTBS_PATH=" dtbdir)
"dtbs_install"))
;; Install kernel modules
(mkdir-p moddir)
(invoke "make"
;; Disable depmod because the Guix system's
;; module directory is an union of potentially
;; multiple packages. It is not possible to use
;; depmod to usefully calculate a dependency
;; graph while building only one of them.
"DEPMOD=true"
(string-append "MODULE_DIR=" moddir)
(string-append "INSTALL_PATH=" #$output)
(string-append "INSTALL_MOD_PATH=" #$output)
"INSTALL_MOD_STRIP=1"
"modules_install")
(let* ((versions (filter (lambda (name)
(not (string-prefix? "." name)))
(scandir moddir)))
(version (match versions
((x) x))))
;; There are symlinks to the build and source directory.
;; Both will point to target /tmp/guix-build* and thus
;; not be useful in a profile. Delete the symlinks.
(false-if-file-not-found
(delete-file
(string-append moddir "/" version "/build")))
(false-if-file-not-found
(delete-file
(string-append moddir "/" version "/source"))))))))))
(native-inputs
`(("perl" ,perl)
("bc" ,bc)
("openssl" ,openssl)
("elfutils" ,elfutils) ; Needed to enable CONFIG_STACK_VALIDATION
("elfutils" ,elfutils) ;needed to enable CONFIG_STACK_VALIDATION
("flex" ,flex)
("bison" ,bison)
@ -809,6 +945,18 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration."
("mpfr" ,mpfr)
("mpc" ,mpc)
;; For generating the documentation.
,@(if build-doc?
;; TODO: remove fontconfig after the 5.10 kernel is dropped.
;; Also replace python-wrapper by python at that time.
`(("fontconfig" ,fontconfig)
("graphviz" ,graphviz)
("python" ,python-wrapper)
("python-sphinx" ,python-sphinx)
("texinfo" ,texinfo)
("which" ,which))
'())
,@(match (let ((arch (platform-linux-architecture
(lookup-platform-by-target-or-system
(or (%current-target-system)
@ -817,115 +965,14 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration."
(configuration-file
arch
#:variant (version-major+minor version))))
(#f ;no config for this platform
(#f ;no config for this platform
'())
((? string? config)
`(("kconfig" ,config))))))
(arguments
(list #:modules '((guix build gnu-build-system)
(guix build utils)
(srfi srfi-1)
(srfi srfi-26)
(ice-9 ftw)
(ice-9 match))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-/bin/pwd
(lambda _
(substitute* (find-files "." "^Makefile(\\.include)?$")
(("/bin/pwd") "pwd"))))
(replace 'configure
(lambda* (#:key inputs target #:allow-other-keys)
;; Avoid introducing timestamps.
(setenv "KCONFIG_NOTIMESTAMP" "1")
(setenv "KBUILD_BUILD_TIMESTAMP"
(getenv "SOURCE_DATE_EPOCH"))
;; Other variables useful for reproducibility.
(setenv "KBUILD_BUILD_USER" "guix")
(setenv "KBUILD_BUILD_HOST" "guix")
;; Set ARCH and CROSS_COMPILE.
(let ((arch #$(platform-linux-architecture
(lookup-platform-by-target-or-system
(or (%current-target-system)
(%current-system))))))
(setenv "ARCH" arch)
(format #t "`ARCH' set to `~a'~%" (getenv "ARCH"))
(when target
(setenv "CROSS_COMPILE" (string-append target "-"))
(format #t "`CROSS_COMPILE' set to `~a'~%"
(getenv "CROSS_COMPILE"))))
(setenv "EXTRAVERSION"
#$(and extra-version
(string-append "-" extra-version)))
(let ((config (assoc-ref inputs "kconfig")))
;; Use a custom kernel configuration file or a default
;; configuration file.
(if config
(begin
(copy-file config ".config")
(chmod ".config" #o666))
(invoke "make" #$defconfig))
;; Appending works even when the option wasn't in the
;; file. The last one prevails if duplicated.
(let ((port (open-file ".config" "a"))
(extra-configuration #$(config->string extra-options)))
(display extra-configuration port)
(close-port port))
(invoke "make" "oldconfig"))))
(replace 'install
(lambda* (#:key inputs native-inputs #:allow-other-keys)
(let ((moddir (string-append #$output "/lib/modules"))
(dtbdir (string-append #$output "/lib/dtbs")))
;; Install kernel image, kernel configuration and link map.
(for-each (lambda (file) (install-file file #$output))
(find-files "." "^(\\.config|bzImage|zImage|Image|vmlinuz|System\\.map|Module\\.symvers)$"))
;; Install device tree files
(unless (null? (find-files "." "\\.dtb$"))
(mkdir-p dtbdir)
(invoke "make" (string-append "INSTALL_DTBS_PATH=" dtbdir)
"dtbs_install"))
;; Install kernel modules
(mkdir-p moddir)
(invoke "make"
;; Disable depmod because the Guix system's
;; module directory is an union of potentially
;; multiple packages. It is not possible to use
;; depmod to usefully calculate a dependency
;; graph while building only one of them.
"DEPMOD=true"
(string-append "MODULE_DIR=" moddir)
(string-append "INSTALL_PATH=" #$output)
(string-append "INSTALL_MOD_PATH=" #$output)
"INSTALL_MOD_STRIP=1"
"modules_install")
(let* ((versions (filter (lambda (name)
(not (string-prefix? "." name)))
(scandir moddir)))
(version (match versions
((x) x))))
;; There are symlinks to the build and source directory.
;; Both will point to target /tmp/guix-build* and thus
;; not be useful in a profile. Delete the symlinks.
(false-if-file-not-found
(delete-file
(string-append moddir "/" version "/build")))
(false-if-file-not-found
(delete-file
(string-append moddir "/" version "/source"))))))))
#:tests? #f))
(home-page "https://www.gnu.org/software/linux-libre/")
(synopsis "100% free redistribution of a cleaned Linux kernel")
(description
"GNU Linux-Libre is a free (as in freedom) variant of the Linux kernel.
It has been modified to remove all non-free binary blobs.")
(description "GNU Linux-Libre is a free (as in freedom) variant of the
Linux kernel. It has been modified to remove all non-free binary blobs.")
(license license:gpl2)
(properties '((max-silent-time . 3600))))) ;don't timeout on blob scan.
@ -5555,7 +5602,7 @@ and copy/paste text in the console and in xterm.")
(define-public btrfs-progs
(package
(name "btrfs-progs")
(version "5.18.1")
(version "6.0.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kernel.org/linux/kernel/"
@ -5563,7 +5610,7 @@ and copy/paste text in the console and in xterm.")
"btrfs-progs-v" version ".tar.xz"))
(sha256
(base32
"0mbj3j2fpjds9i9gm8kk8a20yjacc562ibd1v9a96bpmrxfag63f"))))
"0j0w400fg0lbzljmcwq553cv0awixc4k35v7l39jl7l13pznycdm"))))
(build-system gnu-build-system)
(outputs '("out"
"static")) ; static versions of the binaries in "out"
@ -8456,7 +8503,7 @@ compatible with Python's ConfigParser style of .INI files, including RFC
(define-public xfsprogs
(package
(name "xfsprogs")
(version "5.14.2")
(version "6.0.0")
(source (origin
(method url-fetch)
(uri (string-append
@ -8464,7 +8511,7 @@ compatible with Python's ConfigParser style of .INI files, including RFC
"xfsprogs-" version ".tar.gz"))
(sha256
(base32
"0368dacdjq55ip38yizs9spdyl7b0b1c0vz3gr1gvcb9rw3a6dnp"))))
"14hc61nfc73nqwhyasc4haj5g7046im1dwz61bx338f86mjj5n5y"))))
(build-system gnu-build-system)
(outputs (list "out" "python"))
(arguments
@ -8503,6 +8550,20 @@ file systems.")
;; licensed under lgpl2.1. the other stuff is licensed under gpl2.
(license (list license:gpl2 license:lgpl2.1))))
(define-public xfsprogs-5.9
(package
(inherit xfsprogs)
(name "xfsprogs")
(version "5.9.0")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://kernel.org/linux/utils/fs/xfs/xfsprogs/"
"xfsprogs-" version ".tar.gz"))
(sha256
(base32
"13xkn9jpmwp4fm9r68vhgznkmxhnv83n2b39mhy2qdaph90w2a1l"))))))
(define-public xfsprogs/static
(package
(inherit xfsprogs)

125
gnu/packages/lisp-check.scm
View File

@ -94,6 +94,90 @@ consists of: @code{test}, @code{is}, @code{signals}, @code{finishes},
(define-public ecl-2am
(sbcl-package->ecl-package sbcl-2am))
(define-public sbcl-assertion-error
(let ((commit "8eab692a990d4caa193a46bae99af3e13e717b86")
(revision "1"))
(package
(name "sbcl-assertion-error")
(version (git-version "0.1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/noloop/assertion-error")
(commit commit)))
(file-name (git-file-name "assertion-error" version))
(sha256
(base32 "0ix23kkakmf4nwx852zsssb831jvajr3qyppqfyks7y1ls617svn"))))
(build-system asdf-build-system/sbcl)
(inputs (list sbcl-dissect))
(home-page "https://github.com/noloop/assertion-error")
(synopsis "Error pattern for assertion libraries in Common Lisp")
(description "This package provides a Common Lisp assertion system with
minimal dependencies on DISSECT.")
(license license:gpl3))))
(define-public ecl-assertion-error
(sbcl-package->ecl-package sbcl-assertion-error))
(define-public cl-assertion-error
(sbcl-package->cl-source-package sbcl-assertion-error))
(define-public sbcl-assert-p
(package
(name "sbcl-assert-p")
(version "1.0.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/noloop/assert-p")
(commit (string-append "v" version))))
(file-name (git-file-name "assert-p" version))
(sha256
(base32 "1x24rkqkqiw8zd26swi9rmhfplkmr5scz3bhjwccah9d2s36b1xs"))))
(build-system asdf-build-system/sbcl)
(inputs (list sbcl-assertion-error sbcl-simplet))
(home-page "https://github.com/noloop/assert-p")
(synopsis "Common Lisp assertion library")
(description "This package provides a Common Lisp collection of assertions.")
(license license:gpl3)))
(define-public ecl-assert-p
(sbcl-package->ecl-package sbcl-assert-p))
(define-public cl-assert-p
(sbcl-package->cl-source-package sbcl-assert-p))
(define-public sbcl-cacau
(package
(name "sbcl-cacau")
(version "1.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/noloop/cacau")
(commit (string-append "v" version))))
(file-name (git-file-name "cacau" version))
(sha256
(base32 "0m8v1xw68cr5ldv045rxgvnhigr4iahh7v6v32z6xlq2sj6r55x0"))))
(build-system asdf-build-system/sbcl)
(native-inputs (list sbcl-assert-p))
(inputs (list sbcl-assertion-error sbcl-eventbus))
(home-page "https://github.com/noloop/cacau")
(synopsis "Comon Lisp test runner")
(description
"This package provides a Common Lisp testing framework system CACAU which was
built to be independent of assertions systems.")
(license license:gpl3)))
(define-public ecl-cacau
(sbcl-package->ecl-package sbcl-cacau))
(define-public cl-cacau
(sbcl-package->cl-source-package sbcl-cacau))
(define-public sbcl-check-it
(let ((commit "b79c9103665be3976915b56b570038f03486e62f"))
(package
@ -634,11 +718,11 @@ by Chris Riesbeck.")
(sbcl-package->cl-source-package sbcl-nst))
(define-public sbcl-parachute
(let ((commit "86563473dc23fb1277d35a3ad2c911a6c8e5b0da")
(revision "1"))
(let ((commit "8bc3e1b5a1808341967aeb89516f9fab23cd1d9e")
(revision "0"))
(package
(name "sbcl-parachute")
(version (git-version "1.1.1" revision commit))
(version (git-version "1.5.0" revision commit))
(source
(origin
(method git-fetch)
@ -646,13 +730,14 @@ by Chris Riesbeck.")
(git-reference
(url "https://github.com/Shinmera/parachute")
(commit commit)))
(file-name (git-file-name name version))
(file-name (git-file-name "cl-parachute" version))
(sha256
(base32
"026crl465xqh3fnskfd4c1sxa9c33dfy702cf3l5apbjyj1dg20n"))))
(base32 "0cppp1sp9xqkgxgkwidhqzlsj03ywnar7z9mzwcliww8y0kv5555"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-documentation-utils sbcl-form-fiddle))
(list sbcl-documentation-utils
sbcl-form-fiddle
sbcl-trivial-custom-debugger))
(synopsis "Extensible and cross-compatible testing framework for Common Lisp")
(description
"Parachute is a simple-to-use and extensible testing framework.
@ -840,6 +925,32 @@ take.")
(define-public ecl-should-test
(sbcl-package->ecl-package sbcl-should-test))
(define-public sbcl-simplet
(package
(name "sbcl-simplet")
(version "1.2.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/noloop/simplet")
(commit (string-append "v" version))))
(file-name (git-file-name "simplet" version))
(sha256
(base32 "1iwp3a43mns885k2arr7gbmyv5rsrjfvgarxickj7r2bfgwp1cnn"))))
(build-system asdf-build-system/sbcl)
(home-page "https://github.com/noloop/simplet")
(synopsis "Simple test runner in Common Lisp")
(description "This package provides a Common Lisp test runner system
SIMPLET.")
(license license:gpl3)))
(define-public ecl-simplet
(sbcl-package->ecl-package sbcl-simplet))
(define-public cl-simplet
(sbcl-package->cl-source-package sbcl-simplet))
(define-public sbcl-stefil
(let ((commit "0398548ec95dceb50fc2c2c03e5fb0ce49b86c7a")
(revision "0"))

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

@ -490,6 +490,39 @@ interface to the Linux inotify API.")
(define-public ecl-cl-inotify
(sbcl-package->ecl-package sbcl-cl-inotify))
(define-public sbcl-file-notify
(let ((commit "f12dc2f2aae5fee13355cd93a8cae0c4c412b76d")
(revision "0"))
(package
(name "sbcl-file-notify")
(version (git-version "1.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Shinmera/file-notify")
(commit commit)))
(file-name (git-file-name "cl-file-notify" version))
(sha256
(base32 "0788d98rqm1krl8nbfh8qshvyf6g336i9bqrdhkx06cfvbh0wcny"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-cffi
sbcl-documentation-utils
sbcl-trivial-features))
(home-page "https://github.com/Shinmera/file-notify")
(synopsis "Get notifications for file accesses and changes")
(description
"File-Notify is a Common Lisp library for getting notifications for file
accesses and changes.")
(license license:zlib))))
(define-public cl-file-notify
(sbcl-package->cl-source-package sbcl-file-notify))
(define-public ecl-file-notify
(sbcl-package->ecl-package sbcl-file-notify))
(define-public sbcl-bodge-queue
(let ((commit "948c9a501dcd412689952d09eb7453ec2722336a")
(revision "0"))
@ -708,6 +741,36 @@ or cl-launch for portable processing of command-line arguments.")
(define-public cl-command-line-arguments
(sbcl-package->cl-source-package sbcl-command-line-arguments))
(define-public sbcl-adopt
(package
(name "sbcl-adopt")
(version "1.2.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/sjl/adopt")
(commit (string-append "v" version))))
(file-name (git-file-name "cl-adopt" version))
(sha256
(base32 "16kzkai96qk7vmclp8wxc9aghhnisw8gg9s7hra68300bgj86wzr"))))
(build-system asdf-build-system/sbcl)
(native-inputs (list sbcl-1am))
(inputs (list sbcl-bobbin sbcl-split-sequence))
(home-page "https://hg.stevelosh.com/adopt")
(synopsis "Common Lisp option parsing library")
(description
"@acronym{ADOPT, A Damn OPTion} is a simple UNIX-style option parser in
Common Lisp, heavily influenced by Python's @code{optparse} and
@code{argparse}.")
(license license:expat)))
(define-public ecl-adopt
(sbcl-package->ecl-package sbcl-adopt))
(define-public cl-adopt
(sbcl-package->cl-source-package sbcl-adopt))
(define-public sbcl-cl-irc
(let ((commit "963823537c7bfcda2edd4c44d172192da6722175")
(revision "0"))
@ -1049,6 +1112,59 @@ compatible with ANSI-compliant Common Lisp implementations.")
(define-public ecl-cl-ppcre
(sbcl-package->ecl-package sbcl-cl-ppcre))
(define-public sbcl-one-more-re-nightmare
(let ((commit "09c33feed35797512bf123ccca053cf8ba42bfbd")
(revision "0"))
(package
(name "sbcl-one-more-re-nightmare")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/telekons/one-more-re-nightmare")
(commit commit)))
(file-name (git-file-name "cl-one-more-re-nightmare" version))
(sha256
(base32 "0vc0lxvn3anjb63hr26r1l18aw5nbj80w9ja3a32fip6nbwfsrfv"))))
(build-system asdf-build-system/sbcl)
(arguments
'(#:asd-test-systems '("one-more-re-nightmare-tests")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-tests
(lambda _
(substitute* "Tests/one-more-re-nightmare-tests.asd"
((":depends-on")
(string-append
":perform (test-op (o c) (symbol-call :one-more-re-nightmare-tests '#:run-tests))"
"\n :depends-on"))))))))
(native-inputs
(list sbcl-lparallel sbcl-parachute))
(inputs
(list sbcl-alexandria
sbcl-babel
sbcl-bordeaux-threads
sbcl-dynamic-mixins
sbcl-esrap
sbcl-stealth-mixin
sbcl-trivia
sbcl-trivial-indent))
(home-page "https://github.com/telekons/one-more-re-nightmare")
(synopsis "Regular expression compiler in Common Lisp")
(description "@code{one-more-re-nightmare} is a regular expression engine
that uses the technique presented in Regular-expression derivatives
re-examined (Owens, Reppy and Turon, 2009;
@url{doi:10.1017/S0956796808007090}) to interpret and compile regular
expressions.")
(license license:bsd-2))))
(define-public cl-one-more-re-nightmare
(sbcl-package->cl-source-package sbcl-one-more-re-nightmare))
(define-public ecl-one-more-re-nightmare
(sbcl-package->ecl-package sbcl-one-more-re-nightmare))
(define-public sbcl-parse
(let ((commit "2351ee78acac065fcf10b8713d3f404e2e910786")
(revision "1"))
@ -2971,6 +3087,89 @@ pretty, documentation is code.")
(define-public ecl-mgl-pax
(sbcl-package->ecl-package sbcl-mgl-pax))
(define-public sbcl-40ants-doc
(let ((commit "7725ff67a380e9ebfc6155e14d91e650f256711b")
(revision "0"))
(package
(name "sbcl-40ants-doc")
(version (git-version "0.1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/40ants/doc")
(commit commit)))
(sha256
(base32 "1v6gnhrk02vsixmprzk4wvvj7vh11vp5waxyih0qz2ih8d38r5pg"))
(file-name (git-file-name "cl-40ants-doc" version))))
(build-system asdf-build-system/sbcl)
(arguments
;; TODO: Add remaining dependencies of 40ants-doc-full and
;; 40ants-doc-test missing from Guix.
'(#:asd-systems '("40ants-doc"
;;"40ants-doc-full"
)
#:tests? #f))
;;(native-inputs
;; (list sbcl-rove))
(inputs
(list sbcl-named-readtables
sbcl-pythonic-string-reader
;; For 40ants-doc-full:
;;sbcl-3bmd
;;sbcl-alexandria
;;sbcl-babel
;;sbcl-cl-cookie
;;sbcl-cl-fad
;;sbcl-cl-ppcre
;;sbcl-common-doc ; Missing from Guix
;;sbcl-common-html ; Missing from Guix
;;sbcl-commondoc-markdown ; Missing from Guix
;;sbcl-dexador
;;sbcl-docs-builder ; Missing from Guix
;;sbcl-fare-utils
;;sbcl-jonathan
;;sbcl-lass
;;sbcl-local-time
;;sbcl-log4cl
;;sbcl-slime-swank
;;sbcl-slynk
;;sbcl-spinneret
;;sbcl-stem ; Missing from Guix; also, license is unconfirmed
;;sbcl-str
;;sbcl-tmpdir ; Missing from Guix
;;sbcl-trivial-extract ; Missing from Guix
;;sbcl-xml-emitter
))
(home-page "https://40ants.com/doc/")
(synopsis "Exploratory programming environment and documentation generator")
(description
"@code{40ants-doc} provides a rudimentary explorable programming
environment. The narrative primarily lives in so-called sections that mix
Markdown docstrings with references to functions, variables, etc., all of
which should probably have their own docstrings.
The primary focus is on making code easily explorable by using SLIME's
@kbd{M-.} (@code{slime-edit-definition}). Generating documentation in
Markdown or HTML format from sections and all the referenced items is also
implemented.
With the simplistic tools provided, one may obtain results similar to literate
programming, but documentation is generated from code, not the other way
around, and there is no support for chunking. Code comes first, code must
look pretty, documentation is code.
@code{40ants-doc} is a fork of MGL-PAX with fewer dependencies (only
@code{named-readtables} and @code{pythonic-string-reader}) for the core
system, and additional features in the full system.")
(license license:expat))))
(define-public cl-40ants-doc
(sbcl-package->cl-source-package sbcl-40ants-doc))
(define-public ecl-40ants-doc
(sbcl-package->ecl-package sbcl-40ants-doc))
(define-public sbcl-mssql
(let ((commit "045602a19a32254108f2b75871049293f49731eb")
(revision "1"))
@ -7600,8 +7799,8 @@ extension-points via the concept of hooks.")
(define-public sbcl-s-sysdeps
;; No release since 2013.
(let ((commit "9aa23bbdceb24bcdbe0e7c39fa1901858f823106")
(revision "2"))
(let ((commit "7f8de283b7fbd8b038fdf08493063a736db36ce7")
(revision "3"))
(package
(name "sbcl-s-sysdeps")
(build-system asdf-build-system/sbcl)
@ -7616,7 +7815,7 @@ extension-points via the concept of hooks.")
(file-name (git-file-name name version))
(sha256
(base32
"1fh8r7kf8s3hvqdg6b71b8p7w3v2kkga9bw8j3qqdxhzr6anpm0b"))))
"0rp81iq0rgl48qdwbmfy89glga81hmry2lp8adjbr5h5ybr92b4n"))))
(inputs
(list sbcl-bordeaux-threads sbcl-usocket))
(synopsis "Common Lisp abstraction layer over platform dependent functionality")
@ -7641,8 +7840,8 @@ number of other projects.
(sbcl-package->ecl-package sbcl-s-sysdeps))
(define-public sbcl-cl-prevalence
(let ((commit "5a76be036092ed6c18cb695a9e03bce87e21b840")
(revision "4"))
(let ((commit "e6b27640ce89ae5f8af38beb740e319bb6cd2368")
(revision "6"))
(package
(name "sbcl-cl-prevalence")
(build-system asdf-build-system/sbcl)
@ -7657,11 +7856,11 @@ number of other projects.
(file-name (git-file-name name version))
(sha256
(base32
"050h6hwv8f16b5v6fzba8zmih92hgaaq27i2x9wv1iib41gbia3r"))))
"1lb957ivshgp56phqhvhsmnc4r55x5shvi3mpsan2xsm4hvqspp0"))))
(inputs
(list sbcl-s-sysdeps sbcl-s-xml))
(list sbcl-moptilities sbcl-s-sysdeps sbcl-s-xml))
(native-inputs
(list sbcl-fiveam))
(list sbcl-fiveam sbcl-find-port))
(synopsis "Implementation of object prevalence for Common Lisp")
(description "This Common Lisp library implements object prevalence (see
@url{https://en.wikipedia.org/wiki/System_prevalence}). It allows
@ -8820,8 +9019,8 @@ macro. This library provides a set of simple utilities to help with that.")
(sbcl-package->ecl-package sbcl-form-fiddle))
(define-public sbcl-array-utils
(let ((commit "f90eb9070d0b2205af51126a35033574725e5c56")
(revision "0"))
(let ((commit "40cea8fc895add87d1dba9232da817750222b528")
(revision "1"))
(package
(name "sbcl-array-utils")
(version (git-version "1.1.1" revision commit))
@ -8832,10 +9031,9 @@ macro. This library provides a set of simple utilities to help with that.")
(git-reference
(url "https://github.com/Shinmera/array-utils")
(commit commit)))
(file-name (git-file-name name version))
(file-name (git-file-name "cl-array-utils" version))
(sha256
(base32
"0zhwfbpr53vs1ii4sx75dz2k9yhh1xpwdqqpg8nmfndxkmhpbi3x"))))
(base32 "0d7nddak8h2aa82z11vdbd97srk5bdgq41pzmibsz3ymspnndicd"))))
(build-system asdf-build-system/sbcl)
(native-inputs
(list sbcl-parachute))
@ -8889,8 +9087,8 @@ LASS files.")
(sbcl-package->ecl-package sbcl-lass))
(define-public sbcl-plump
(let ((commit "3584275f0be9d06c0c51b5c08f89005deafc4ada")
(revision "2"))
(let ((commit "0c3e0b57b43b6e0c5794b6a902f1cf5bee2a2927")
(revision "3"))
(package
(name "sbcl-plump")
(version (git-version "2.0.0" revision commit))
@ -8901,10 +9099,9 @@ LASS files.")
(git-reference
(url "https://github.com/Shinmera/plump")
(commit commit)))
(file-name (git-file-name name version))
(file-name (git-file-name "cl-plump" version))
(sha256
(base32
"1w4wz7f6dc2ckdq9wq9r5014bg2nxjifj9yz1zzn41r8h1h5xfcd"))))
(base32 "1fyb66pqvr1iy31ah9638ihs8cax17zkxk0zq14jy7x5l9rq1qlf"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-array-utils sbcl-documentation-utils))
@ -9362,6 +9559,103 @@ archives such as those generated by the tar and cpio programs on Unix.")
(define-public ecl-archive
(sbcl-package->ecl-package sbcl-archive))
(define-public sbcl-tar-file
(let ((commit "0c10bc82f14702c97a26dc25ce075b5d3a2347d1")
(revision "0"))
(package
(name "sbcl-tar-file")
(version (git-version "0.2.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.common-lisp.net/cl-tar/cl-tar-file")
(commit commit)))
(file-name (git-file-name "cl-tar-file" version))
(sha256
(base32 "0i8j05fkgdqy4c4pqj0c68sh4s3klpx9kc5wp73qwzrl3xqd2svy"))))
(build-system asdf-build-system/sbcl)
(native-inputs
(list sbcl-parachute))
(inputs
(list sbcl-40ants-doc
sbcl-alexandria
sbcl-babel
sbcl-chipz
sbcl-flexi-streams
sbcl-salza2
sbcl-trivial-gray-streams))
(home-page "https://gitlab.common-lisp.net/cl-tar/cl-tar-file")
(synopsis "Read and write physical entries to and from tar files")
(description
"@code{cl-tar-file} is a Common Lisp library that allows reading from
and writing to various tar archive formats. Currently supported are the POSIX
ustar, PAX (ustar with a few new entry types), GNU, and v7 (very old) formats.
This library is rather low level and is focused exclusively on reading and
writing physical tar file entries using streams. Therefore, it contains no
functionality for automatically building archives from a set of files on the
filesystem or writing the contents of a file to the filesystem. Additionally,
there are no smarts that read multiple physical entries and combine them into
a single logical entry (e.g., with PAX extended headers or GNU long link/path
name support). For a higher-level library that reads and writes logical
entries, and also includes filesystem integration, see @code{cl-tar}.")
(license license:bsd-3))))
(define-public cl-tar-file
(sbcl-package->cl-source-package sbcl-tar-file))
(define-public ecl-tar-file
(sbcl-package->ecl-package sbcl-tar-file))
(define-public sbcl-tar
(let ((commit "7c6e07a10c93d9e311f087b5f6328cddd481669a")
(revision "0"))
(package
(name "sbcl-tar")
(version (git-version "0.2.3" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.common-lisp.net/cl-tar/cl-tar")
(commit commit)))
(file-name (git-file-name "cl-tar" version))
(sha256
(base32 "0wp23cs3i6a89dibifiz6559la5nk58d1n17xvbxq4nrl8cqsllf"))))
(build-system asdf-build-system/sbcl)
;; TODO: Build the tar program with 'build-program' when the
;; 'asdf-release-ops' library is added to Guix.
(arguments
'(#:asd-systems '("tar"
"tar/common-extract"
"tar/create"
"tar/docs"
"tar/extract"
"tar/simple-extract")))
(native-inputs
(list sbcl-parachute))
(inputs
(list sbcl-40ants-doc
sbcl-alexandria
sbcl-babel
sbcl-local-time
sbcl-osicat
sbcl-split-sequence
sbcl-tar-file))
(home-page "https://gitlab.common-lisp.net/cl-tar/cl-tar")
(synopsis "High-level interface for tar files")
(description
"@code{cl-tar} is a Common Lisp library providing a high-level interface
for interacting with tar archives.")
(license license:expat))))
(define-public cl-tar
(sbcl-package->cl-source-package sbcl-tar))
(define-public ecl-tar
(sbcl-package->ecl-package sbcl-tar))
(define-public sbcl-misc-extensions
(let ((commit "101c05112bf2f1e1bbf527396822d2f50ca6327a")
(revision "1"))
@ -12800,6 +13094,44 @@ than a few Kb.")
(define-public ecl-mmap
(sbcl-package->ecl-package sbcl-mmap))
(define-public sbcl-marray
(let ((commit "0352f316b6830f0b119088ba9be836e4726bd7d8")
(revision "0"))
(package
(name "sbcl-marray")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/death/marray")
(commit commit)))
(file-name (git-file-name "cl-marray" version))
(sha256
(base32 "0l4kvzpiw14vqhlsaflp3c7y51vznjjgbdi0q3axqk1wxvzy1zlx"))))
(build-system asdf-build-system/sbcl)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-dependencies
(lambda _
(substitute* "marray.asd"
((":components")
":depends-on (#+sbcl \"sb-posix\")\n :components")))))))
(home-page "https://github.com/death/marray")
(synopsis "Memory-mapped files as Common Lisp arrays")
(description
"MARRAY is a library which provides access to memory-mapped files
through Common Lisp arrays.")
(license license:expat))))
(define-public cl-marray
(sbcl-package->cl-source-package sbcl-marray))
;; ECL support not implemented yet.
;; (define-public ecl-marray
;; (sbcl-package->ecl-package sbcl-marray))
(define-public sbcl-3bz
(let ((commit "569614c40408f3aefc77ba233e0e4bd66d3850ad")
(revision "1"))
@ -13971,6 +14303,39 @@ directly.")
(define-public ecl-custom-hash-table
(sbcl-package->ecl-package sbcl-custom-hash-table))
(define-public sbcl-concurrent-hash-tables
(let ((commit "1b9f0b5da54fece4f42296e1bdacfcec0c370a5a")
(revision "0"))
(package
(name "sbcl-concurrent-hash-tables")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/no-defun-allowed/concurrent-hash-tables")
(commit commit)))
(file-name (git-file-name "cl-concurrent-hash-tables" version))
(sha256
(base32 "03g24ycr1ngzg8bv10iwp1bmnldz5bxbfdqrzhfxhicpibh49r96"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-atomics sbcl-bordeaux-threads))
(home-page "https://github.com/no-defun-allowed/concurrent-hash-tables")
(synopsis "Portability library for concurrent hash tables in Common Lisp")
(description "@code{concurrent-hash-tables} is a Common Lisp portability
library wrapping some implementations of concurrent hash tables which do not
have to be entirely locked in their operation, including
@code{42nd-at-threadmill}, @code{luckless}, and a fallback, segmented hash
table.")
(license license:bsd-2))))
(define-public cl-concurrent-hash-tables
(sbcl-package->cl-source-package sbcl-concurrent-hash-tables))
(define-public ecl-concurrent-hash-tables
(sbcl-package->ecl-package sbcl-concurrent-hash-tables))
(define-public sbcl-collectors
(let ((commit "13acef25d8422d1d82e067b1861e513587c166ee"))
(package
@ -14272,6 +14637,34 @@ with a complex event filtering system.")
(define-public ecl-deeds
(sbcl-package->ecl-package sbcl-deeds))
(define-public sbcl-eventbus
(let ((commit "92c1fa3846ba0e3cc9e6d7605d765379c8658d84")
(revision "1"))
(package
(name "sbcl-eventbus")
(version (git-version "0.1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/noloop/eventbus")
(commit commit)))
(file-name (git-file-name "eventbus" version))
(sha256
(base32 "0slqx3zq6sbz3rg4g79j8y25sx4405y6ff3x6l5v8v4v42m1s0p2"))))
(build-system asdf-build-system/sbcl)
(native-inputs (list sbcl-simplet))
(home-page "https://github.com/noloop/eventbus")
(synopsis "Event bus implementation in Common Lisp")
(description "This package provides a Common Lisp system implementing event bus.")
(license license:gpl3))))
(define-public ecl-eventbus
(sbcl-package->ecl-package sbcl-eventbus))
(define-public cl-eventbus
(sbcl-package->cl-source-package sbcl-eventbus))
(define-public sbcl-make-hash
;; no tagged branch
(let ((revision "1")
@ -15014,6 +15407,80 @@ even by adding additional statistical @code{compute}ations.")
(define-public ecl-trivial-benchmark
(sbcl-package->ecl-package sbcl-trivial-benchmark))
(define-public sbcl-the-cost-of-nothing
(let ((commit "f364029fbbf37ae5786f2f9ddf6185dd204a7185")
(revision "0"))
(package
(name "sbcl-the-cost-of-nothing")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/marcoheisig/the-cost-of-nothing")
(commit commit)))
(file-name (git-file-name "cl-the-cost-of-nothing" version))
(sha256
(base32 "1ccrglyr1wnnfp218w1qj7yfl4yzlxkki3hqaifi5axgbi5dmmh8"))))
(build-system asdf-build-system/sbcl)
(arguments
;; The test operation benchmarks the Common Lisp implementation; it
;; doesn't test the package.
(list #:tests? #f))
(inputs
(list sbcl-alexandria
sbcl-closer-mop
sbcl-local-time
sbcl-trivial-garbage))
(home-page "https://github.com/marcoheisig/the-cost-of-nothing")
(synopsis "Measure the run time of Common Lisp code")
(description
"THE-COST-OF-NOTHING is a library for measuring the run time of Common
Lisp code. It provides macros and functions for accurate benchmarking and
lightweight monitoring. Furthermore, it provides predefined benchmarks to
determine the cost of certain actions on a given platform and implementation.")
(license license:expat))))
(define-public cl-the-cost-of-nothing
(sbcl-package->cl-source-package sbcl-the-cost-of-nothing))
(define-public ecl-the-cost-of-nothing
(sbcl-package->ecl-package sbcl-the-cost-of-nothing))
(define-public sbcl-atomichron
(let ((commit "5b3578bbad8c37ab559e56924d98c373efe11de5")
(revision "0"))
(package
(name "sbcl-atomichron")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/no-defun-allowed/atomichron")
(commit commit)))
(file-name (git-file-name "cl-atomichron" version))
(sha256
(base32 "1fmmhb3pbv7j4d1cc02zv24bpd0kd2agfjjcj46w3gmv1bb0hva1"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-atomics sbcl-bordeaux-threads))
(home-page "https://github.com/no-defun-allowed/atomichron")
(synopsis "Atomic metering library for Common Lisp")
(description
"@code{atomichron} is a Common Lisp library which implements a time
meter which tracks how many times a form is evaluated, and how long evaluation
takes. It uses atomic instructions so that meters will present correct
results in the presence of multiple threads, while trying to minimize
synchronization latency.")
(license license:bsd-2))))
(define-public cl-atomichron
(sbcl-package->cl-source-package sbcl-atomichron))
(define-public ecl-atomichron
(sbcl-package->ecl-package sbcl-atomichron))
(define-public sbcl-glyphs
(let ((commit "1ff5714e8c1dca327bc604dfe3e3d1f4b7755373"))
(package
@ -16499,6 +16966,35 @@ return the CPU count of the current system.")
(define-public cl-cpus
(sbcl-package->cl-source-package sbcl-cl-cpus))
(define-public sbcl-system-load
(let ((commit "3ff1a40be55866cc5316ac7a530d872b12510294")
(revision "0"))
(package
(name "sbcl-system-load")
(version (git-version "1.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Shinmera/system-load")
(commit commit)))
(file-name (git-file-name "cl-system-load" version))
(sha256
(base32 "08d8kr8j5l2m8p69f47iklxhna394vx9mrys0sgplf5f2bqb7xcv"))))
(build-system asdf-build-system/sbcl)
(home-page "https://github.com/Shinmera/system-load")
(synopsis "Access system's CPU and memory usage from Common Lisp")
(description
"System-Load is a Common Lisp library for accessing the system's CPU and
memory usage.")
(license license:zlib))))
(define-public cl-system-load
(sbcl-package->cl-source-package sbcl-system-load))
(define-public ecl-system-load
(sbcl-package->ecl-package sbcl-system-load))
(define-public sbcl-fof
(let ((commit "522879e7da110ecf2e841998b197b34062c54b29")
(revision "1"))
@ -23666,6 +24162,38 @@ objects to be mixed and updated without manually defining many permutations.")
(define-public ecl-dynamic-mixins
(sbcl-package->ecl-package sbcl-dynamic-mixins))
(define-public sbcl-stealth-mixin
(let ((commit "2f853fcead554221d4be3b10522b502ea729e944")
(revision "0"))
(package
(name "sbcl-stealth-mixin")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/robert-strandh/Stealth-mixin")
(commit commit)))
(file-name (git-file-name "cl-stealth-mixin" version))
(sha256
(base32 "0ar9cdmbmdnqz1ywpw34n47hlh0vqmb6pl76f5vbfgip3c81xwyi"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-closer-mop))
(home-page "https://github.com/robert-strandh/Stealth-mixin")
(synopsis "Create stealth mixin classes")
(description
"Stealth-mixin is a Common Lisp library for creating stealth mixin
classes. These are classes that are dynamically mixed into other classes
without the latter being aware of it.")
(license license:bsd-2))))
(define-public cl-stealth-mixin
(sbcl-package->cl-source-package sbcl-stealth-mixin))
(define-public ecl-stealth-mixin
(sbcl-package->ecl-package sbcl-stealth-mixin))
(define-public sbcl-sealable-metaobjects
(let ((commit "e09ec97252e0844528f61abdc0c7ee256875f8ee"))
(package
@ -24457,8 +24985,12 @@ between Lisp objects and some binary (i.e. octet-based) representation.")
(sha256
(base32 "1iri5wsp9sc1f5q934cj87zd79r5dc8fda0gl7x1pz95v0wx28yk"))))
(build-system asdf-build-system/sbcl)
(native-inputs
(list sbcl-parachute))
(arguments
'(;; FIXME: Tests disabled because of a circular dependency between
;; trivial-custom-debugger and parachute.
#:tests? #f))
;;(native-inputs
;; (list sbcl-parachute))
(home-page "https://github.com/phoe/trivial-custom-debugger/")
(synopsis "Allow arbitrary functions as the standard Lisp debugger")
(description

18
gnu/packages/llvm.scm
View File

@ -563,11 +563,11 @@ output), and Binutils.")
(define %llvm-monorepo-hashes
'(("14.0.6" . "14f8nlvnmdkp9a9a79wv67jbmafvabczhah8rwnqrgd5g3hfxxxx")
("15.0.4" . "0j5kx4s970qzcjr83kk6776zzjqfshl61x9fagqz8kjxcjbpg8cj")))
("15.0.5" . "1z2szqlanksdmj91590wnxqav5z437mpasg00ghb610xkam2v34m")))
(define %llvm-patches
'(("14.0.6" . ("clang-14.0-libc-search-path.patch"))
("15.0.4" . ("clang-15.0-libc-search-path.patch"))))
("15.0.5" . ("clang-15.0-libc-search-path.patch"))))
(define (llvm-monorepo version)
(origin
@ -583,7 +583,7 @@ output), and Binutils.")
(define-public llvm-15
(package
(name "llvm")
(version "15.0.4")
(version "15.0.5")
(source (llvm-monorepo version))
(build-system cmake-build-system)
(outputs '("out" "opt-viewer"))
@ -740,7 +740,7 @@ of programming tools as well as libraries with equivalent functionality.")
(package-version llvm-15)))
(sha256
(base32
"03adxlh84if9p53m6izjsql500rjza9rng8akab2pdqibgrg73rh")))))
"0sa6si9v7ddsa9vmg6s3918xx969rvck2v1a0g7hb0fp9jk9j4r1")))))
(define-public clang-14
(clang-from-llvm
@ -1522,7 +1522,7 @@ Library.")
(define-public lld-15
(package
(name "lld")
(version "15.0.4")
(version (package-version llvm-15))
(source (llvm-monorepo version))
(build-system cmake-build-system)
(inputs
@ -1634,7 +1634,7 @@ misuse of libraries outside of the store.")))
(define-public lldb
(package
(name "lldb")
(version "14.0.6")
(version (package-version llvm-15))
(source (llvm-monorepo version))
(build-system cmake-build-system)
(arguments
@ -1648,8 +1648,8 @@ misuse of libraries outside of the store.")))
(native-inputs
(list pkg-config swig))
(inputs
(list clang-14
llvm-14
(list clang-15
llvm-15
;; Optional (but recommended) inputs.
ncurses
libedit
@ -1668,7 +1668,7 @@ which highly leverage existing libraries in the larger LLVM project.")
(define-public libcxx
(package
(name "libcxx")
(version "14.0.6")
(version (package-version llvm-15))
(source (llvm-monorepo version))
(build-system cmake-build-system)
(arguments

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

@ -3224,18 +3224,14 @@ Python.")
(define-public python-hmmlearn
(package
(name "python-hmmlearn")
(version "0.2.6")
(version "0.2.7")
(source
(origin
(method url-fetch)
(uri (pypi-uri "hmmlearn" version))
(sha256
(base32
"1my0j3rzp17438idr32ssh0j969a98yjblx5igx5kgiiigr9qa1a"))
(snippet
#~(begin
(use-modules ((guix build utils)))
(delete-file "lib/hmmlearn/_hmmc.c")))))
"1qgnf1kdxicygy8nvpv866iqvwq0rc6xkd3s6slmvxvsy8h2fjvb"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -3247,7 +3243,11 @@ Python.")
(with-directory-excursion (string-append (assoc-ref outputs "out") "/lib")
(invoke "python" "-m" "pytest"))))))))
(propagated-inputs
(list python-cython python-numpy python-scikit-learn python-scipy
(list pybind11
python-cython
python-numpy
python-scikit-learn
python-scipy
python-setuptools-scm))
(native-inputs
(list python-pytest))

2
gnu/packages/mail.scm
View File

@ -4557,7 +4557,7 @@ databases, and other tools to process Outlook email archives.")
(build-system gnu-build-system)
(arguments
`(#:tests? #f ;no tests
#:make-flags `((string-append "CC=" ,(cc-for-target)))
#:make-flags (list (string-append "CC=" ,(cc-for-target)))
#:phases
(modify-phases %standard-phases
(delete 'configure) ;no configure script

87
gnu/packages/mate.scm
View File

@ -1490,48 +1490,51 @@ used to bring up authentication dialogs.")
(native-inputs (list desktop-file-utils))
(inputs
;; TODO: Add more packages
`(("at-spi2-core" ,at-spi2-core)
("atril" ,atril)
("caja" ,caja)
("dbus" ,dbus)
("dconf" ,dconf)
("engrampa" ,engrampa)
("eom" ,eom)
("font-abattis-cantarell" ,font-abattis-cantarell)
("glib-networking" ,glib-networking)
("gnome-keyring" ,gnome-keyring)
("gvfs" ,gvfs)
("hicolor-icon-theme" ,hicolor-icon-theme)
("libmatekbd" ,libmatekbd)
("libmateweather" ,libmateweather)
("libmatemixer" ,libmatemixer)
("marco" ,marco)
("mate-session-manager" ,mate-session-manager)
("mate-settings-daemon" ,mate-settings-daemon)
("mate-desktop" ,mate-desktop)
("mate-terminal" ,mate-terminal)
("mate-themes" ,mate-themes)
("mate-icon-theme" ,mate-icon-theme)
("mate-power-manager" ,mate-power-manager)
("mate-menu" ,mate-menus)
("mate-panel" ,mate-panel)
("mate-control-center" ,mate-control-center)
("mate-media" ,mate-media)
("mate-applets" ,mate-applets)
("mate-user-guide" ,mate-user-guide)
("mate-calc" ,mate-calc)
("mate-backgrounds" ,mate-backgrounds)
("mate-netbook" ,mate-netbook)
("mate-utils" ,mate-utils)
("mate-polkit" ,mate-polkit)
("mate-system-monitor" ,mate-system-monitor)
("mate-utils" ,mate-utils)
("pluma" ,pluma)
("pinentry-gnome3" ,pinentry-gnome3)
("pulseaudio" ,pulseaudio)
("shared-mime-info" ,shared-mime-info)
("yelp" ,yelp)
("zenity" ,zenity)))
(append (if (or (%current-target-system)
(supported-package? gnome-keyring))
(list gnome-keyring)
'())
(list at-spi2-core
atril
caja
dbus
dconf
engrampa
eom
font-abattis-cantarell
glib-networking
gvfs
hicolor-icon-theme
libmatekbd
libmateweather
libmatemixer
marco
mate-session-manager
mate-settings-daemon
mate-desktop
mate-terminal
mate-themes
mate-icon-theme
mate-power-manager
mate-menus
mate-panel
mate-control-center
mate-media
mate-applets
mate-user-guide
mate-calc
mate-backgrounds
mate-netbook
mate-utils
mate-polkit
mate-system-monitor
mate-utils
pluma
pinentry-gnome3
pulseaudio
shared-mime-info
yelp
zenity)))
(propagated-inputs
;; Default font that applications such as IceCat require.
(list font-dejavu))

250
gnu/packages/maths.scm
View File

@ -55,6 +55,8 @@
;;; Copyright © 2022 Philip McGrath <philip@philipmcgrath.com>
;;; Copyright © 2022 Marek Felšöci <marek@felsoci.sk>
;;; Copyright © 2022 vicvbcun <guix@ikherbers.com>
;;; Copyright © 2022 Liliana Marie Prikler <liliana.prikler@gmail.com>
;;; Copyright © 2022 Maximilian Heisinger <mail@maxheisinger.at>
;;;
;;; This file is part of GNU Guix.
;;;
@ -158,6 +160,7 @@
#:use-module (gnu packages serialization)
#:use-module (gnu packages shells)
#:use-module (gnu packages sphinx)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages swig)
#:use-module (gnu packages tcl)
#:use-module (gnu packages texinfo)
@ -894,20 +897,6 @@ large scale eigenvalue problems.")
(license (license:non-copyleft "file://COPYING"
"See COPYING in the distribution."))))
(define-public arpack-ng-3.3.0
(package
(inherit arpack-ng)
(version "3.3.0")
(source
(origin
(method git-fetch)
(uri (git-reference (url (package-home-page arpack-ng))
(commit version)))
(file-name (git-file-name (package-name arpack-ng) version))
(sha256
(base32
"00h6bjvxjq7bv0b8pwnc0gw33ns6brlqv00xx2rh3w9b5n205918"))))))
(define-public arpack-ng-openmpi
(package (inherit arpack-ng)
(name "arpack-ng-openmpi")
@ -2556,7 +2545,7 @@ between aspif and smodels format or to a human-readable text format.")
(define-public clasp
(package
(name "clasp")
(version "3.3.6")
(version "3.3.9")
(source (origin
(method git-fetch)
(uri (git-reference
@ -2565,7 +2554,7 @@ between aspif and smodels format or to a human-readable text format.")
(file-name (git-file-name name version))
(sha256
(base32
"0rahqiq530jckvx717858h1q5p8znp1kb6sjm95p8blkr4n3pvmj"))))
"163ps9zq7xppqy9hj5qnw6z5lcjnm4xf5fwjsavpia5ynm3hngcw"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags '("-DCLASP_BUILD_TESTS=on"
@ -2761,7 +2750,7 @@ can solve two kinds of problems:
(define-public octave-cli
(package
(name "octave-cli")
(version "7.1.0")
(version "7.2.0")
(source
(origin
(method url-fetch)
@ -2769,7 +2758,7 @@ can solve two kinds of problems:
version ".tar.xz"))
(sha256
(base32
"0wv26nsfi6cq80np6p4av4wfrvbaflca6szajf6c60mbpdg63m1z"))))
"0w81ncl9d4x1ay3ylsag87k20c0byiyjcmfd9kb7b7ylr71pivsa"))))
(build-system gnu-build-system)
(inputs
`(("alsa-lib" ,alsa-lib)
@ -2937,7 +2926,7 @@ Open CASCADE library.")
(define-public opencascade-occt
(package
(name "opencascade-occt")
(version "7.6.0")
(version "7.6.2")
(source
(origin
(method git-fetch)
@ -2949,7 +2938,7 @@ Open CASCADE library.")
version)))))
(file-name (git-file-name name version))
(sha256
(base32 "1rcwm9fkx0j4wrsyikb6g7qd611kpry7dand5dzdjvs5vzd13zvd"))
(base32 "07z5d83vm9f50an7vhimzl7gbmri1dn6p2g999l5fgyaj5sg5f02"))
(modules '((guix build utils)))
(snippet
'(begin
@ -4874,7 +4863,7 @@ Fresnel integrals, and similar related functions as well.")
(define-public suitesparse
(package
(name "suitesparse")
(version "5.12.0")
(version "5.13.0")
(source
(origin
(method git-fetch)
@ -4884,7 +4873,7 @@ Fresnel integrals, and similar related functions as well.")
(file-name (git-file-name name version))
(sha256
(base32
"0zpl51pfpv7ap7z97jlryba2la1qdmzm11bhzkn55wlb03xzi6k6"))
"1zwri246yr39p9ymjp18dzv36ch0dn107sf0jghj7capigasfxq2"))
(patches (search-patches "suitesparse-mongoose-cmake.patch"))
(modules '((guix build utils)))
(snippet
@ -6825,7 +6814,7 @@ assemble global function spaces on finite-element grids.")
"doc/dune-grid/grids/gridfactory/testgrids"))
#t))
(add-after 'build 'build-tests
(lambda* (#:key make-flags parallel-build? #:allow-other-keys)
(lambda* (#:key inputs make-flags parallel-build? #:allow-other-keys)
(setenv "CPLUS_INCLUDE_PATH"
(string-append (assoc-ref inputs "dune-grid") "/share"))
(apply invoke "make" "build_tests"
@ -7376,6 +7365,221 @@ back to C with improved data structures, better scheduling of inprocessing and
optimized algorithms and implementation.")
(license license:expat)))
(define-public aiger
(package
(name "aiger")
(version "1.9.9")
(source (origin
(method url-fetch)
(uri (string-append "http://fmv.jku.at/aiger/aiger-"
version ".tar.gz"))
(sha256
(base32
"1ish0dw0nf9gyghxsdhpy1jjiy5wp54c993swp85xp7m6vdx6l0y"))))
(outputs (list "out" "static"))
(build-system gnu-build-system)
(arguments
(list #:tests? #f ; no check target
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-source
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "aiger.c"
(("\"(gzip|gunzip)" all cmd)
(string-append
"\""
(search-input-file inputs (string-append "bin/" cmd)))))))
(add-after 'unpack 'patch-build-files
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "makefile.in"
(("test -d .*") "true")
(("/usr/local") (assoc-ref outputs "out")))))
(replace 'configure
(lambda* (#:key configure-flags #:allow-other-keys)
(apply invoke "./configure.sh" configure-flags)))
(add-after 'install 'install-static
(lambda* (#:key outputs #:allow-other-keys)
(apply invoke #$(ar-for-target) "rcs" "libaiger.a"
(find-files "." "\\.o$"))
(let* ((static (assoc-ref outputs "static"))
(lib (string-append static "/lib"))
(incl (string-append static "/include/aiger")))
(mkdir-p lib)
(mkdir-p incl)
(install-file "libaiger.a" lib)
(for-each (lambda (f) (install-file f incl))
(find-files "." "\\.h$"))))))))
(inputs (list gzip))
(home-page "http://fmv.jku.at/aiger")
(synopsis "Utilities for And-Inverter Graphs")
(description "AIGER is a format, library and set of utilities for
@acronym{AIG, And-Inverter Graphs}s. The focus is on conversion utilities and a
generic reader and writer API.")
(license (list license:expat
license:bsd-3)))) ; blif2aig
(define-public lingeling
(let ((commit "72d2b13eea5fbd95557a3d0d199cd98dfbdc76ee")
(revision "1"))
(package
(name "lingeling")
(version (git-version "sc2022" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/arminbiere/lingeling")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"16s30x8s2cw6icchwm65zj56ph4qwz6i07g3hwkknvajisvjq85c"))))
(build-system gnu-build-system)
(arguments
(list #:test-target "test"
#:modules `((ice-9 match)
,@%gnu-build-system-modules)
#:configure-flags #~(list "--aiger=.")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'unpack-aiger
(lambda* (#:key inputs #:allow-other-keys)
(invoke #$(ar-for-target) "x"
(search-input-file inputs "lib/libaiger.a")
"aiger.o")
(copy-file
(search-input-file inputs "include/aiger/aiger.h")
"aiger.h")))
(add-after 'unpack 'hard-code-commit
(lambda _
(substitute* "mkconfig.sh"
(("`\\./getgitid`") #$commit))))
(add-after 'unpack 'patch-source
(lambda* (#:key inputs #:allow-other-keys)
(substitute* (list "treengeling.c" "lgldimacs.c")
(("\"(gunzip|xz|bzcat|7z)" all cmd)
(string-append
"\""
(search-input-file inputs (string-append "bin/" cmd)))))))
(replace 'configure
(lambda* (#:key configure-flags #:allow-other-keys)
(apply invoke "./configure.sh" configure-flags)))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((bin (string-append (assoc-ref outputs "out")
"/bin")))
(mkdir-p bin)
(for-each
(lambda (file)
(install-file file bin))
'("blimc" "ilingeling" "lglddtrace" "lglmbt"
"lgluntrace" "lingeling" "plingeling"
"treengeling")))))
(add-after 'install 'wrap-path
(lambda* (#:key outputs #:allow-other-keys)
(with-directory-excursion (string-append
(assoc-ref outputs "out")
"/bin")
(for-each
(lambda (file)
(wrap-program
file
'("PATH" suffix
#$(map (lambda (input)
(file-append (this-package-input input) "/bin"))
'("gzip" "bzip2" "xz" "p7zip")))))
;; These programs use sprintf on buffers with magic
;; values to construct commands (yes, eww), so we
;; can't easily substitute* them.
'("lglddtrace" "lgluntrace" "lingeling" "plingeling"))))))))
(inputs (list `(,aiger "static") gzip bzip2 xz p7zip))
(home-page "http://fmv.jku.at/lingeling")
(synopsis "SAT solver")
(description "This package provides a range of SAT solvers, including
the sequential @command{lingeling} and its parallel variants
@command{plingeling} and @command{treengeling}. A bounded model checker is
also included.")
(license license:expat))))
(define-public louvain-community
(let ((commit "8cc5382d4844af127b1c1257373740d7e6b76f1e")
(revision "1"))
(package
(name "louvain-community")
(version (git-version "1.0.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/meelgroup/louvain-community")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1ss00hkdvr9bdkd355hxf8zd7xycb3nm8qpy7s75gjjf6yng0bfj"))))
(build-system cmake-build-system)
(arguments
(list #:tests? #f ; tests appear to require missing files
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'encode-git-hash
(lambda _
(substitute* "CMakeLists.txt"
(("GIT-hash-notfound") #$commit)))))))
(native-inputs (list python))
(home-page "https://github.com/meelgroup/louvain-communities")
(synopsis "Multi-criteria community detection")
(description "This package provides a C++ implementation of the Louvain
community detection algorithm.")
(license license:lgpl3+))))
(define-public cryptominisat
(package
(name "cryptominisat")
(version "5.11.4")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/msoos/cryptominisat")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1izjn44phjp9670s7bxrdx4p0r59idqwv3bm6sr0qnlqlha5z4zc"))))
(build-system cmake-build-system)
(arguments
(list
#:build-type "Release"
#:test-target "test"
#:configure-flags #~(list "-DENABLE_TESTING=ON" "-DSTATS=ON")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-source
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "CMakeLists.txt"
(("add_subdirectory\\(utils/lingeling-ala\\)") ""))
;; Transitively included in vendored gtest.h. Fixed in
;; upstream:
;; https://github.com/msoos/cryptominisat/pull/686
(substitute* "tests/assump_test.cpp"
(("#include <vector>")
"#include <vector>\n#include <algorithm>"))
(substitute* "tests/CMakeLists.txt"
(("add_subdirectory\\(\\$\\{GTEST_PREFIX\\} gtest\\)")
"find_package(GTest REQUIRED)")
(("add_subdirectory\\(\\$\\{PROJECT_SOURCE_DIR\\}/utils/.*\\)")
"")))))))
(inputs (list boost louvain-community python python-numpy sqlite zlib))
(native-inputs (list googletest lingeling python python-wrapper python-lit))
(synopsis "Incremental SAT solver")
(description
"CryptoMiniSat is an incremental SAT solver with both command line and
library (C++, C, Python) interfaces. The command-line interface takes a
@acronym{CNF, Conjunctive Normal Form} as an input in the DIMACS format with
the extension of XOR clauses. The library interfaces mimic this and also
allow incremental solving, including assumptions.")
(home-page "https://github.com/msoos/cryptominisat")
(license license:expat)))
(define-public libqalculate
(package
(name "libqalculate")

46
gnu/packages/mpd.scm
View File

@ -48,6 +48,7 @@
#:use-module (gnu packages boost)
#:use-module (gnu packages cdrom)
#:use-module (gnu packages cmake) ;for MPD
#:use-module (gnu packages cpp)
#:use-module (gnu packages freedesktop) ;elogind
#:use-module (gnu packages gettext)
#:use-module (gnu packages gnome)
@ -55,6 +56,7 @@
#:use-module (gnu packages gtk)
#:use-module (gnu packages icu4c)
#:use-module (gnu packages libusb)
#:use-module (gnu packages lua)
#:use-module (gnu packages readline)
#:use-module (gnu packages check)
#:use-module (gnu packages compression)
@ -66,15 +68,19 @@
#:use-module (gnu packages music)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages pcre)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages pretty-print)
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages pulseaudio)
#:use-module (gnu packages qt)
#:use-module (gnu packages serialization)
#:use-module (gnu packages sphinx)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages tls)
#:use-module (gnu packages video)
#:use-module (gnu packages web)
#:use-module (gnu packages xiph))
(define-public libmpdclient
@ -380,7 +386,7 @@ MPD servers, search and multimedia key support.")
(define-public ashuffle
(package
(name "ashuffle")
(version "2.0.2")
(version "3.13.4")
(source (origin
(method git-fetch)
(uri (git-reference
@ -389,10 +395,20 @@ MPD servers, search and multimedia key support.")
(file-name (git-file-name name version))
(sha256
(base32
"11aa95cg0yca2m2d00sar6wr14g3lc7cfm9bin1h7lk7asdm8azp"))))
"09dvar0aglyy2h9y115ymgryd8l6npc2y2ccdzij0b70f47ncqmf"))))
(native-inputs (list pkg-config))
(inputs (list libmpdclient))
(inputs
(list abseil-cpp-cxxstd17
googletest
libmpdclient
yaml-cpp))
(build-system meson-build-system)
(arguments
(list #:configure-flags
#~'("-Dtests=enabled"
"-Dunsupported_use_system_absl=true"
"-Dunsupported_use_system_gtest=true"
"-Dunsupported_use_system_yamlcpp=true")))
(home-page "https://github.com/joshkunz/ashuffle")
(synopsis "Automatic library-wide shuffle for mpd")
(description "ashuffle is an application for automatically shuffling your
@ -561,3 +577,27 @@ which is focused on playing local music without the need of managing playlists.
Instead of maintaining a client side database of your music library,
mpdevil loads all tags and covers on demand.")
(license license:gpl3+)))
(define-public mympd
(package
(name "mympd")
(version "10.1.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jcorporation/myMPD")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1cqq09j7mi7dz5y6l7i0sa6vi2n5zrndnrxnqsi4vcg99fc2vwv8"))))
(build-system cmake-build-system)
(arguments
(list #:tests? #f)) ; no test target
(native-inputs (list jq perl))
(inputs (list flac libid3tag lua openssl pcre2))
(home-page "https://jcorporation.github.io/")
(synopsis "Web-based MPD client")
(description "MyMPD is a mobile-friendly web client for the MPD music
player daemon.")
(license license:gpl3+)))

37
gnu/packages/music.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2019 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021, 2022 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
;;; Copyright © 2016 Al McElrath <hello@yrns.org>
;;; Copyright © 2016, 2017, 2019, 2021, 2022 Efraim Flashner <efraim@flashner.co.il>
@ -1910,7 +1910,7 @@ with a selectable pattern matrix size.")
(package
(inherit bsequencer)
(name "bchoppr")
(version "1.10.10")
(version "1.12.0")
(source
(origin
(method git-fetch)
@ -1919,7 +1919,7 @@ with a selectable pattern matrix size.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0gxz0cpxdfj7ajcd9yg05d26i7p24mx5865vy3ph76ni8kycdlrc"))))
(base32 "1jfp98qa0frmdybrg71fn8wxn1b3ginkbkcg9cz9y83j1m0jqrif"))))
(synopsis "Audio stream-chopping LV2 plugin")
(description "B.Choppr cuts the audio input stream into a repeated
sequence of up to 16 chops. Each chop can be leveled up or down (gating).
@ -2300,10 +2300,10 @@ perform creative live mixes with digital music files.")
alsa-lib
new-session-manager
liblo
qtbase-5
qtsvg-5))
qtbase
qtsvg))
(native-inputs
(list pkg-config qttools-5))
(list pkg-config qttools))
(home-page "https://synthv1.sourceforge.io")
(synopsis "Polyphonic subtractive synthesizer")
(description
@ -2333,10 +2333,10 @@ oscillators and stereo effects.")
alsa-lib
new-session-manager
liblo
qtbase-5
qtsvg-5))
qtbase
qtsvg))
(native-inputs
(list pkg-config qttools-5))
(list pkg-config qttools))
(home-page "https://drumkv1.sourceforge.io")
(synopsis "Drum-kit sampler synthesizer with stereo effects")
(description
@ -2366,10 +2366,10 @@ effects.")
alsa-lib
new-session-manager
liblo
qtbase-5
qtsvg-5))
qtbase
qtsvg))
(native-inputs
(list pkg-config qttools-5))
(list pkg-config qttools))
(home-page "https://samplv1.sourceforge.io")
(synopsis "Polyphonic sampler synthesizer with stereo effects")
(description
@ -2399,10 +2399,10 @@ effects.")
new-session-manager
liblo
fftwf
qtbase-5
qtsvg-5))
qtbase
qtsvg))
(native-inputs
(list pkg-config qttools-5))
(list pkg-config qttools))
(home-page "https://padthv1.sourceforge.io")
(synopsis "Polyphonic additive synthesizer")
(description
@ -3313,14 +3313,13 @@ from the command line.")
libvorbis
lilv
lv2
qtbase-5
qtsvg-5
qtx11extras
qtbase
qtsvg
rubberband
suil
zlib))
(native-inputs
(list pkg-config qttools-5))
(list pkg-config qttools))
(home-page "https://qtractor.org/")
(synopsis "Audio/MIDI multi-track sequencer")
(description

21
gnu/packages/networking.scm
View File

@ -593,7 +593,7 @@ supported, including rtmp://, rtmpt://, rtmpe://, rtmpte://, and rtmps://.")
(define-public slurm-monitor
(package
(name "slurm-monitor")
(version "0.4.3")
(version "0.4.4")
(source
(origin
(method git-fetch)
@ -603,9 +603,10 @@ supported, including rtmp://, rtmpt://, rtmpe://, rtmpte://, and rtmps://.")
(commit (string-append "upstream/" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1n6pgrcs8gwrcq5fch1q3yk3jipjwrf21s9a13fbjrl903g5zzv9"))))
(build-system cmake-build-system)
(base32 "07q8895bxsajkwip8dgrrwr1m8a10xnl4p0g6wqcrd2wf4hx5gn3"))))
(build-system meson-build-system)
(arguments `(#:tests? #f)) ;no tests
(native-inputs (list pkg-config))
(inputs (list ncurses))
(synopsis "Network load monitor")
(description
@ -1538,22 +1539,14 @@ Ethernet devices.")
(define-public ifstatus
(package
(name "ifstatus")
(version "1.1.0")
(version "2.0.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/ifstatus/ifstatus/"
"ifstatus%20v" version "/ifstatus-v"
version ".tar.gz"))
"ifstatus-v" version ".tar.gz"))
(sha256
(base32
"045cbsq9ps32j24v8y5hpyqxnqn9mpaf3mgvirlhgpqyb9jsia0c"))
(modules '((guix build utils)))
(snippet
'(begin
(substitute* "Main.h"
(("#include <stdio.h>")
"#include <stdio.h>\n#include <stdlib.h>"))
#t))))
"0n622f2m3x901hcmad4ns52r2x75csy4nqraagzb8h9fn0j62jkv"))))
(build-system gnu-build-system)
(arguments
'(#:tests? #f ; no "check" target

4
gnu/packages/nickle.scm
View File

@ -28,14 +28,14 @@
(define-public nickle
(package
(name "nickle")
(version "2.82")
(version "2.90")
(source (origin
(method url-fetch)
(uri (string-append "https://nickle.org/release/nickle-"
version ".tar.gz"))
(sha256
(base32
"0jy96z01qbrnmsrywn5mfa14615qdix6b8520qd65c6yjyrk8gs0"))))
"197532b7ghkfnzx9qvxd2qjpnqba7bfl79iff3hk2jxcl0d83czv"))))
(build-system gnu-build-system)
(native-inputs
(list readline))

40
gnu/packages/password-utils.scm
View File

@ -1455,3 +1455,43 @@ are not using it. It uses the same GPG key to encrypt passwords and tomb,
therefore you don't need to manage more key or secret. Moreover, you can ask
pass-tomb to automatically close your store after a given time.")
(license license:gpl3+)))
(define-public xkcdpass
(package
(name "xkcdpass")
(version "1.19.3")
(home-page "https://github.com/redacted/XKCD-password-generator")
(source (origin
(method git-fetch)
(uri (git-reference
(url home-page)
(commit (string-append "xkcdpass-" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0xfrmx9k2vinlagv476rfcfdp41aix1ldy6qnzzx26n985gcyk7p"))))
(build-system python-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'install-manpage
(lambda* (#:key outputs #:allow-other-keys)
(install-file
"xkcdpass.1"
(string-append (assoc-ref outputs "out") "/share/man/man1")))))))
(synopsis
"Generate secure multiword passwords/passphrases, inspired by XKCD")
(description
"This package provides a flexible and scriptable password generator which
generates strong passphrases, inspired by
@url{https://xkcd.com/936/,XKCD 936}.")
(license (list license:bsd-3 ;code
license:cc0 ;spanish, eff_large_de, french word lists
license:cc-by-sa3.0 ;finnish, italian word list
license:cc-by-sa4.0 ;norwegian word list
license:eupl1.1 ;finnish word list
license:gpl2 ;portuguese word list
license:gpl3 ;ger-anix word list
license:lgpl2.0 ;finnish word list
license:lgpl2.1 ;portuguese word list
license:mpl1.1)))) ;portuguese word list

83
gnu/packages/patches/ecl-16-format-directive-limit.patch
View File

@ -1,83 +0,0 @@
Patch backported by Sage.
Fix from upstream that happens to work around
https://trac.sagemath.org/ticket/23011
diff --git a/src/lsp/format.lsp b/src/lsp/format.lsp
index 77ca799..53b887c 100644
--- a/src/lsp/format.lsp
+++ b/src/lsp/format.lsp
@@ -307,11 +307,13 @@
:start (format-directive-start struct)
:end (format-directive-end struct))))
+(defconstant +format-directive-limit+ (1+ (char-code #\~)))
+
#+formatter
(defparameter *format-directive-expanders*
- (make-array char-code-limit :initial-element nil))
+ (make-array +format-directive-limit+ :initial-element nil))
(defparameter *format-directive-interpreters*
- (make-array char-code-limit :initial-element nil))
+ (make-array +format-directive-limit+ :initial-element nil))
(defparameter *default-format-error-control-string* nil)
(defparameter *default-format-error-offset* nil)
@@ -550,24 +552,24 @@
(write-string directive stream)
(interpret-directive-list stream (cdr directives) orig-args args))
(#-ecl format-directive #+ecl vector
+ (multiple-value-bind
+ (new-directives new-args)
+ (let* ((code (char-code (format-directive-character directive)))
+ (function
+ (and (< code +format-directive-limit+)
+ (svref *format-directive-interpreters* code)))
+ (*default-format-error-offset*
+ (1- (format-directive-end directive))))
+ (unless function
+ (error 'format-error
+ :complaint "Unknown format directive."))
(multiple-value-bind
(new-directives new-args)
- (let ((function
- (svref *format-directive-interpreters*
- (char-code (format-directive-character
- directive))))
- (*default-format-error-offset*
- (1- (format-directive-end directive))))
- (unless function
- (error 'format-error
- :complaint "Unknown format directive."))
- (multiple-value-bind
- (new-directives new-args)
- (funcall function stream directive
- (cdr directives) orig-args args)
- (values new-directives new-args)))
- (interpret-directive-list stream new-directives
- orig-args new-args)))))
+ (funcall function stream directive
+ (cdr directives) orig-args args)
+ (values new-directives new-args)))
+ (interpret-directive-list stream new-directives
+ orig-args new-args)))))
args))
@@ -639,11 +641,12 @@
(values `(write-string ,directive stream)
more-directives))
(format-directive
- (let ((expander
- (aref *format-directive-expanders*
- (char-code (format-directive-character directive))))
- (*default-format-error-offset*
- (1- (format-directive-end directive))))
+ (let* ((code (char-code (format-directive-character directive)))
+ (expander
+ (and (< code +format-directive-limit+)
+ (svref *format-directive-expanders* code)))
+ (*default-format-error-offset*
+ (1- (format-directive-end directive))))
(if expander
(funcall expander directive more-directives)
(error 'format-error

17
gnu/packages/patches/ecl-16-ignore-stderr-write-error.patch
View File

@ -1,17 +0,0 @@
Patch adapted from Sage.
diff -Naur ecl-16.1.2.orig/src/c/file.d ecl-16.1.2/src/c/file.d
--- ecl-16.1.2.orig/src/c/file.d 2016-05-11 13:10:51.867673867 +1200
+++ ecl-16.1.2/src/c/file.d 2016-05-11 14:44:48.121907307 +1200
@@ -3354,8 +3354,10 @@
ecl_disable_interrupts();
do {
out = fwrite(c, sizeof(char), n, IO_STREAM_FILE(strm));
- } while (out < n && restartable_io_error(strm, "fwrite"));
- ecl_enable_interrupts();
+ /* Ignore write errors to stderr to avoid an infinite loop */
+ } while (out < n && (IO_STREAM_FILE(strm) != stderr) && restartable_io_error(strm, "fwrite"));
+
+ ecl_enable_interrupts();
return out;
}

16
gnu/packages/patches/ecl-16-libffi.patch
View File

@ -1,16 +0,0 @@
Patch adapted from Sage. Allows building ECL on libffi 3.3.
diff --git a/src/c/ffi.d b/src/c/ffi.d
index 8861303e..8a959c23 100644
--- a/src/c/ffi.d
+++ b/src/c/ffi.d
@@ -133,8 +133,8 @@ static struct {
#elif defined(X86_WIN64)
{@':win64', FFI_WIN64},
#elif defined(X86_ANY) || defined(X86) || defined(X86_64)
- {@':cdecl', FFI_SYSV},
- {@':sysv', FFI_SYSV},
+ {@':cdecl', FFI_UNIX64},
+ {@':sysv', FFI_UNIX64},
{@':unix64', FFI_UNIX64},
#endif
};

85
gnu/packages/patches/kcontacts-incorrect-country-name.patch Normal file
View File

@ -0,0 +1,85 @@
From 5fc2ce8b9f34ea3218a030aeede01b70bedb2546 Mon Sep 17 00:00:00 2001
From: Petr Hodina <phodina@protonmail.com>
Date: Wed, 28 Sep 2022 20:58:43 +0200
Subject: [PATCH] autotests: Fix incorrect name of country in comparison.
diff --git a/autotests/addresstest.cpp b/autotests/addresstest.cpp
index fc6a9bc7..01e474b6 100644
--- a/autotests/addresstest.cpp
+++ b/autotests/addresstest.cpp
@@ -157,7 +157,7 @@ void AddressTest::formatTest()
const QString result(
QStringLiteral("Jim Knopf\nLummerlandstr. 1\n"
- "12345 Lummerstadt\n\nGERMANIA"));
+ "12345 Lummerstadt\n\nGERMANY"));
QCOMPARE(address.formatted(KContacts::AddressFormatStyle::Postal, QStringLiteral("Jim Knopf")), result);
#if KCONTACTS_BUILD_DEPRECATED_SINCE(5, 92)
@@ -175,7 +175,7 @@ void AddressTest::formatTest()
const QString result(
QStringLiteral("Huck Finn\n457 Foobar Ave\nNERVOUSBREAKTOWN,"
- " DC 1A2B3C\n\nSTATI UNITI"));
+ " DC 1A2B3C\n\nUNITED STATES"));
QCOMPARE(address.formatted(KContacts::AddressFormatStyle::Postal, QStringLiteral("Huck Finn")), result);
}
@@ -188,7 +188,7 @@ void AddressTest::formatTest()
const QString result(
QStringLiteral("Jim Knopf\nLummerlandstr. 1\n"
- "12345 Lummerstadt\n\nGERMANIA"));
+ "12345 Lummerstadt\n\nGERMANY"));
QCOMPARE(address.formatted(KContacts::AddressFormatStyle::Postal, QStringLiteral("Jim Knopf")), result);
}
@@ -214,7 +214,7 @@ void AddressTest::formatTest()
address.setCountry(QStringLiteral("Schweiz"));
// we want the Italian variant of the Swiss format for it_CH
- const QString result(QStringLiteral("Dr. Konqui\nCasella postale 5678\nHaus Randa\n1234 Randa\n\nSVIZZERA"));
+ const QString result(QStringLiteral("Dr. Konqui\nCasella postale 5678\nHaus Randa\n1234 Randa\n\nSWITZERLAND"));
QCOMPARE(address.formatted(KContacts::AddressFormatStyle::Postal, QStringLiteral("Dr. Konqui")), result);
}
@@ -228,14 +228,14 @@ void AddressTest::formatTest()
address.setCountry(QStringLiteral("CH"));
// we want the Italian variant of the Swiss format for it_CH
- const QString result(QStringLiteral("Dr. Konqui\nCasella postale 5678\nHaus Randa\n1234 Randa\n\nSVIZZERA"));
+ const QString result(QStringLiteral("Dr. Konqui\nCasella postale 5678\nHaus Randa\n1234 Randa\n\nSWITZERLAND"));
QCOMPARE(address.formatted(KContacts::AddressFormatStyle::Postal, QStringLiteral("Dr. Konqui")), result);
}
{
KContacts::Address address;
address.setCountry(QStringLiteral("CH"));
- QCOMPARE(address.formatted(KContacts::AddressFormatStyle::Postal, QString()), QLatin1String("SVIZZERA"));
+ QCOMPARE(address.formatted(KContacts::AddressFormatStyle::Postal, QString()), QLatin1String("SWITZERLAND"));
}
{
@@ -257,14 +257,14 @@ void AddressTest::formatTest()
address.setLocality(QStringLiteral("Minato-ku"));
address.setPostalCode(QStringLiteral("106-0047"));
address.setStreet(QStringLiteral("4-6-28 Minami-Azabu"));
- auto result = QString::fromUtf8("4-6-28 Minami-Azabu, Minato-ku\nTOKYO 106-0047\n\nGIAPPONE");
+ auto result = QString::fromUtf8("4-6-28 Minami-Azabu, Minato-ku\nTOKYO 106-0047\n\nJAPAN");
QCOMPARE(address.formatted(KContacts::AddressFormatStyle::Postal), result);
address.setRegion(QStringLiteral("東京"));
address.setLocality(QStringLiteral("都港区"));
address.setPostalCode(QStringLiteral("106-0047"));
address.setStreet(QStringLiteral("南麻布 4-6-28"));
- result = QString::fromUtf8("〒106-0047\n東京都港区南麻布 4-6-28\n\nGIAPPONE");
+ result = QString::fromUtf8("〒106-0047\n東京都港区南麻布 4-6-28\n\nJAPAN");
QCOMPARE(address.formatted(KContacts::AddressFormatStyle::Postal), result);
}
}
base-commit: 1d757eba019718cab5d3b33a231d19daf31eb8ba
--
2.37.2

26
gnu/packages/patches/kde-cli-tools-delay-mime-db.patch Normal file
View File

@ -0,0 +1,26 @@
From f8cfb96a1540fc3256af95adf8003b75c305183c Mon Sep 17 00:00:00 2001
From: Petr Hodina <phodina@protonmail.com>
Date: Fri, 30 Sep 2022 21:55:55 +0200
Subject: [PATCH] Add delay to update the mime db in testCreateMimeType test
function.
diff --git a/keditfiletype/tests/filetypestest.cpp b/keditfiletype/tests/filetypestest.cpp
index e58e6f2..a41d4ad 100644
--- a/keditfiletype/tests/filetypestest.cpp
+++ b/keditfiletype/tests/filetypestest.cpp
@@ -315,6 +315,9 @@ private Q_SLOTS:
QVERIFY(data.isDirty());
QVERIFY(data.sync());
MimeTypeWriter::runUpdateMimeDatabase();
+ // QMimeDatabase doesn't even try to update the cache if less than
+ // 5000 ms have passed (can't use qmime_secondsBetweenChecks)
+ QTest::qSleep(5000);
QMimeType mime = db.mimeTypeForName(mimeTypeName);
QVERIFY(mime.isValid());
QCOMPARE(mime.comment(), fakeComment);
base-commit: b5911cda17521156b22429436e19b508aa442a57
--
2.37.2

24
gnu/packages/patches/libksysguard-qdiriterator-follow-symlinks.patch Normal file
View File

@ -0,0 +1,24 @@
From 46164a50de4102d02ae9d1d480acdd4b12303db8 Mon Sep 17 00:00:00 2001
From: Thomas Tuegel <ttuegel@gmail.com>
Date: Wed, 14 Oct 2015 07:07:22 -0500
Subject: [PATCH] qdiriterator follow symlinks
---
processui/scripting.cpp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/processui/scripting.cpp b/processui/scripting.cpp
index efed8ff..841761a 100644
--- a/processui/scripting.cpp
+++ b/processui/scripting.cpp
@@ -293,7 +293,7 @@ void Scripting::loadContextMenu()
const QStringList dirs =
QStandardPaths::locateAll(QStandardPaths::GenericDataLocation, QStringLiteral("ksysguard/scripts/"), QStandardPaths::LocateDirectory);
for (const QString &dir : dirs) {
- QDirIterator it(dir, QStringList() << QStringLiteral("*.desktop"), QDir::NoFilter, QDirIterator::Subdirectories);
+ QDirIterator it(dir, QStringList() << QStringLiteral("*.desktop"), QDir::NoFilter, QDirIterator::Subdirectories | QDirIterator::FollowSymlinks);
while (it.hasNext()) {
scripts.append(it.next());
}
--
2.5.2

88
gnu/packages/patches/linux-libre-infodocs-target.patch Normal file
View File

@ -0,0 +1,88 @@
Upstream status: https://marc.info/?l=linux-doc&m=166861669723994&w=2
From 7edb5b278ee383ff9bed525329b2cdbe22317bf2 Mon Sep 17 00:00:00 2001
From: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Date: Mon, 14 Nov 2022 22:51:11 -0500
Subject: [PATCH] doc: add texinfodocs and infodocs targets
Sphinx supports generating Texinfo sources and Info documentation,
which can be navigated easily and is convenient to search (via the
indexed nodes or anchors, for example).
This change also causes the html output to appear under its own output
sub-directory, which makes it easier to install, since it's clean from
.doctrees or other output formats.
Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
---
Documentation/Makefile | 13 ++++++++++++-
Documentation/userspace-api/media/Makefile | 3 ++-
Makefile | 2 +-
3 files changed, 15 insertions(+), 3 deletions(-)
diff --git a/Documentation/Makefile b/Documentation/Makefile
index 64d44c1ecad3..bd8dac560633 100644
--- a/Documentation/Makefile
+++ b/Documentation/Makefile
@@ -93,7 +93,16 @@ quiet_cmd_sphinx = SPHINX $@ --> file://$(abspath $(BUILDDIR)/$3/$4)
htmldocs:
@$(srctree)/scripts/sphinx-pre-install --version-check
- @+$(foreach var,$(SPHINXDIRS),$(call loop_cmd,sphinx,html,$(var),,$(var)))
+ @+$(foreach var,$(SPHINXDIRS),$(call loop_cmd,sphinx,html,$(var),html,$(var)))
+
+texinfodocs:
+ @$(srctree)/scripts/sphinx-pre-install --version-check
+ @+$(foreach var,$(SPHINXDIRS),$(call loop_cmd,sphinx,texinfo,$(var),texinfo,$(var)))
+
+# Note: the 'info' Make target is generated by sphinx itself when
+# running the texinfodocs target define above.
+infodocs: texinfodocs
+ $(MAKE) -C $(BUILDDIR)/texinfo info
linkcheckdocs:
@$(foreach var,$(SPHINXDIRS),$(call loop_cmd,sphinx,linkcheck,$(var),,$(var)))
@@ -143,6 +152,8 @@ cleandocs:
dochelp:
@echo ' Linux kernel internal documentation in different formats from ReST:'
@echo ' htmldocs - HTML'
+ @echo ' texinfodocs - Texinfo'
+ @echo ' infodocs - Info'
@echo ' latexdocs - LaTeX'
@echo ' pdfdocs - PDF'
@echo ' epubdocs - EPUB'
diff --git a/Documentation/userspace-api/media/Makefile b/Documentation/userspace-api/media/Makefile
index 00922aa7efde..3d8aaf5c253b 100644
--- a/Documentation/userspace-api/media/Makefile
+++ b/Documentation/userspace-api/media/Makefile
@@ -47,10 +47,11 @@ $(BUILDDIR)/lirc.h.rst: ${UAPI}/lirc.h ${PARSER} $(SRC_DIR)/lirc.h.rst.exception
# Media build rules
-.PHONY: all html epub xml latex
+.PHONY: all html texinfo epub xml latex
all: $(IMGDOT) $(BUILDDIR) ${TARGETS}
html: all
+texinfo: all
epub: all
xml: all
latex: $(IMGPDF) all
diff --git a/Makefile b/Makefile
index 58cd4f5e1c3a..b3266c408b6c 100644
--- a/Makefile
+++ b/Makefile
@@ -1785,7 +1785,7 @@ $(help-board-dirs): help-%:
# Documentation targets
# ---------------------------------------------------------------------------
DOC_TARGETS := xmldocs latexdocs pdfdocs htmldocs epubdocs cleandocs \
- linkcheckdocs dochelp refcheckdocs
+ linkcheckdocs dochelp refcheckdocs texinfodocs infodocs
PHONY += $(DOC_TARGETS)
$(DOC_TARGETS):
$(Q)$(MAKE) $(build)=Documentation $@
base-commit: 81e7cfa3a9eb4ba6993a9c71772fdab21bc5d870
--
2.38.1

75
gnu/packages/patches/nautilus-extension-search-path.patch Normal file
View File

@ -0,0 +1,75 @@
Allow Nautilus to search for extensions in the directories listed
in $NAUTILUS_EXTENSION_PATH.
diff --git a/src/nautilus-module.c b/src/nautilus-module.c
index bf474bd..42e2a4e 100644
--- a/src/nautilus-module.c
+++ b/src/nautilus-module.c
@@ -211,6 +211,10 @@ static void
load_module_dir (const char *dirname)
{
GDir *dir;
+ static GHashTable *loaded = NULL;
+
+ if (loaded == NULL)
+ loaded = g_hash_table_new (g_str_hash, g_str_equal);
dir = g_dir_open (dirname, 0, NULL);
@@ -221,15 +225,22 @@ load_module_dir (const char *dirname)
while ((name = g_dir_read_name (dir)))
{
if (g_str_has_suffix (name, "." G_MODULE_SUFFIX))
- {
- char *filename;
-
- filename = g_build_filename (dirname,
- name,
- NULL);
- nautilus_module_load_file (filename);
- g_free (filename);
- }
+ {
+ /* Make sure each module is loaded only twice or this could
+ lead to a crash. Double loading can occur if DIRNAME
+ occurs more than once in $NAUTILUS_EXTENSION_PATH. */
+ if (!g_hash_table_contains (loaded, name))
+ {
+ char *filename;
+
+ filename = g_build_filename (dirname,
+ name,
+ NULL);
+ nautilus_module_load_file (filename);
+ g_hash_table_add (loaded, g_strdup (name));
+ g_free (filename);
+ }
+ }
}
g_dir_close (dir);
@@ -257,10 +268,24 @@ nautilus_module_setup (void)
if (!initialized)
{
+ const gchar *extension_path;
initialized = TRUE;
load_module_dir (NAUTILUS_EXTENSIONDIR);
+ /* Load additional modules from the user-provided search path. */
+ extension_path = g_getenv ("NAUTILUS_EXTENSION_PATH");
+ if (extension_path)
+ {
+ char **extension_dirs, **d;
+
+ extension_dirs = g_strsplit (extension_path, ":", -1);
+ for (d = extension_dirs; d != NULL && *d != NULL; d++)
+ load_module_dir (*d);
+
+ g_strfreev (extension_dirs);
+ }
+
eel_debug_call_at_shutdown (free_module_objects);
}
}

11
gnu/packages/patches/wacomtablet-add-missing-includes.patch Normal file
View File

@ -0,0 +1,11 @@
diff -rup wacomtablet-3.1.0/src/kcmodule/styluspagewidget.cpp wacomtablet-3.1.0.new/src/kcmodule/styluspagewidget.cpp
--- wacomtablet-3.1.0/src/kcmodule/styluspagewidget.cpp 2018-06-22 15:07:58.000000000 +0200
+++ wacomtablet-3.1.0.new/src/kcmodule/styluspagewidget.cpp 2018-07-10 17:38:09.239242847 +0200
@@ -25,6 +25,7 @@
#include "profilemanagement.h"
// common includes
+#include "logging.h"
#include "property.h"
#include "deviceprofile.h"
#include "dbustabletinterface.h"

23
gnu/packages/patches/wacomtablet-qt5.15.patch Normal file
View File

@ -0,0 +1,23 @@
From 4f73ff02b3efd5e8728b18fcf1067eca166704ee Mon Sep 17 00:00:00 2001
From: Christophe Giboudeaux <christophe@krop.fr>
Date: Thu, 4 Jun 2020 16:00:38 +0200
Subject: [PATCH] Fix build with Qt 5.15
---
src/kcmodule/pressurecurvewidget.cpp | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/kcmodule/pressurecurvewidget.cpp b/src/kcmodule/pressurecurvewidget.cpp
index 0c943b3..f047a6c 100644
--- a/src/kcmodule/pressurecurvewidget.cpp
+++ b/src/kcmodule/pressurecurvewidget.cpp
@@ -22,6 +22,7 @@
//Qt includes
#include <QDebug>
#include <QPainter>
+#include <QPainterPath>
#include <QMouseEvent>
#include <QResizeEvent>
#include <QTabletEvent>
--
GitLab

4
gnu/packages/perl.scm
View File

@ -1899,14 +1899,14 @@ as defined by two typical specimens of Perl coders.")
(define-public perl-conf-libconfig
(package
(name "perl-conf-libconfig")
(version "0.100")
(version "0.101")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/C/CN/CNANGEL/"
"Conf-Libconfig-" version ".tar.gz"))
(sha256
(base32 "0qdypqd7mx96bwdjlv13fn6p96bs4w0yv94yv94xa7z5lqkdj4rg"))))
(base32 "11dd3kb0k45gqahnnwz50x3b4b25c5jgykkwgf74rcyr0dsy0n5a"))))
(build-system perl-build-system)
(native-inputs
(list perl-extutils-pkgconfig perl-test-deep perl-test-exception

2
gnu/packages/protobuf.scm
View File

@ -189,7 +189,7 @@ internal RPC protocols and file formats.")
;; The 3.5 series are the last versions that do not require C++ 11.
(define-public protobuf-3.5
(package
(inherit protobuf)
(inherit protobuf-3.6)
(version "3.5.1")
(source (origin
(method url-fetch)

166
gnu/packages/python-compression.scm
View File

@ -1,9 +1,9 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2019, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017, 2019, 2021, 2022 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2017 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018-2020, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020, 2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2021 Brendan Tildesley <mail@brendan.scot>
@ -31,6 +31,7 @@
#:use-module (guix gexp)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
#:use-module (guix build-system pyproject)
#:use-module (gnu packages)
#:use-module (gnu packages libffi)
#:use-module (gnu packages compression)
@ -47,21 +48,20 @@
(define-public python-multivolumefile
(package
(name "python-multivolumefile")
(version "0.2.2")
(version "0.2.3")
(source
(origin
(method url-fetch)
(uri (pypi-uri "multivolumefile" version))
(sha256
(base32
"0j46wab4b09s3favjzp3zs1cn2sn8pr7qyngs5wn31hpqqxbbz76"))))
(build-system python-build-system)
"1mh9sz50s1p8ik83a455pqd57syprad7xhfmk28yb5mwmw58sr50"))))
(build-system pyproject-build-system)
(native-inputs
(list python-pep517
python-setuptools
python-setuptools-scm
(list python-setuptools-scm
python-coverage
python-coveralls
python-hypothesis
python-pyannotate
python-pytest
python-pytest-cov))
@ -72,6 +72,36 @@ file-object abstraction, making it possible to use multiple files as if they
were a single file.")
(license license:lgpl2.1+)))
(define-public python-pybcj
(package
(name "python-pybcj")
(version "1.0.1")
(source (origin
(method url-fetch)
(uri (pypi-uri "pybcj" version))
(sha256
(base32
"1hvm3c3mb20z25kmbzyyn6pr5inx50z0ignl8b0bggxaik82ws4b"))))
(build-system pyproject-build-system)
(propagated-inputs (list python-importlib-metadata))
(native-inputs
(list python-coverage
python-hypothesis
python-pytest
python-pytest-cov
python-setuptools-scm))
(home-page "https://codeberg.org/miurahr/pybcj")
(synopsis "BCJ filter library")
(description "In data compression, BCJ, short for Branch-Call-Jump, refers
to a technique that improves the compression of machine code of executable
binaries by replacing relative branch addresses with absolute ones. This
allows a LZMA compressor to identify duplicate targets and archive higher
compression rate. BCJ is used in the 7-zip compression utility as the default
filter for executable binaries.
pybcj provides Python bindings to a BCJ implementation in C.")
(license license:lgpl2.1+)))
(define-public python-bcj-cffi
(package
(name "python-bcj-cffi")
@ -95,6 +125,59 @@ were a single file.")
Jump conversion filter by CFFI for Python.")
(license license:lgpl2.1+)))
(define-public python-brotlicffi
(package
(name "python-brotlicffi")
(version "1.0.9.2")
(source (origin
(method url-fetch)
(uri (pypi-uri "brotlicffi" version))
(sha256
(base32
"15kxgdiqcg0cm6h5xq3vkbhw7674673hcx3n2yicd3wx29l8l90c"))
(snippet
#~(begin
(use-modules (guix build utils))
(delete-file-recursively "libbrotli")))))
(build-system pyproject-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'use-shared-brotli
(lambda _
(setenv "USE_SHARED_BROTLI" "1"))))))
(propagated-inputs (list python-cffi))
(inputs (list brotli))
(home-page "https://github.com/python-hyper/brotlicffi")
(synopsis "Python CFFI bindings to the Brotli library")
(description "This package provides Python CFFI bindings to the Brotli
library.")
(license license:expat)))
(define-public python-inflate64
(package
(name "python-inflate64")
(version "0.3.1")
(source (origin
(method url-fetch)
(uri (pypi-uri "inflate64" version))
(sha256
(base32
"0767j35gkwaykl1iq9qn8rc25j1ggv56x3d1vzjpk89bzpzdhbdm"))))
(build-system pyproject-build-system)
(propagated-inputs (list python-importlib-metadata))
(native-inputs
(list python-pyannotate
python-pytest
python-setuptools-scm))
(home-page "https://pypi.org/project/inflate64/")
(synopsis "deflate64 compression/decompression library")
(description "The @code{inflate64} package provides @code{Deflater} and
@code{Inflater} classes to compress and decompress with the Enhanced Deflate
compression algorithm.")
(license license:lgpl2.1+)))
(define-public python-isal
(package
(name "python-isal")
@ -124,24 +207,50 @@ Jump conversion filter by CFFI for Python.")
and decompression by implementing Python bindings for the ISA-L library.")
(license license:expat)))
(define-public python-pyppmd
(package
(name "python-pyppmd")
(version "1.0.0")
(source (origin
(method url-fetch)
(uri (pypi-uri "pyppmd" version))
(sha256
(base32
"03w4x26mar0ha73c3v39psn1i0k6xrzwmaxfsxysic73jz99np07"))))
(build-system pyproject-build-system)
(native-inputs
(list python-coverage
python-hypothesis
python-pytest
python-pytest-benchmark
python-pytest-cov
python-pytest-timeout
python-setuptools-scm))
(home-page "https://github.com/miurahr/pyppmd")
(synopsis "PPMd compression/decompression library")
(description "Pyppmd provides classes and functions for compressing and
decompressing text data, using the @dfn{Prediction by partial matching} (PPM)
compression algorithm variation H and I.2. It provides an API similar to
Python's zlib/bz2/lzma modules.")
(license license:lgpl2.1+)))
(define-public python-ppmd-cffi
(package
(name "python-ppmd-cffi")
(version "0.3.3")
(version "0.5.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "ppmd-cffi" version))
(sha256
(base32
"01wcd9l6pp6hivdmd275qh9dhcwficjqfl67hxix5n07vvq7jzz0"))))
"0vprpl29fkflqx0m6anfpx7q7i4cw0d0qxcdm91k4pl82dcad81g"))))
(build-system python-build-system)
(propagated-inputs
(list python-cffi))
(native-inputs
(list python-setuptools
(list python-hypothesis
python-setuptools-scm
python-pep517
python-coverage
python-pytest
python-pytest-cov))
@ -155,23 +264,27 @@ several possible methods.")
(define-public python-py7zr
(package
(name "python-py7zr")
(version "0.14.1")
(version "0.20.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "py7zr" version))
(sha256
(base32
"1zmgp7yax328fj8yj8pj4l7yh78hp727j6wk12vfi6nmi82wl32i"))))
(build-system python-build-system)
"0lwniinfr3rb10n0c203a09vz06vxnnj637yqn8ipdlml89gj7kr"))))
(build-system pyproject-build-system)
(propagated-inputs
(list python-bcj-cffi
(list python-brotli
python-brotlicffi
python-importlib-metadata
python-inflate64
python-multivolumefile
python-ppmd-cffi
python-pycryptodome
python-psutil
python-pybcj
python-pycryptodomex
python-pyppmd
python-pyzstd
python-texttable
python-zstandard))
python-texttable))
(native-inputs
(list python-setuptools
python-setuptools-scm
@ -429,14 +542,16 @@ wrapper. It provides a backport of the @code{Path} object.")
(define-public python-zstandard
(package
(name "python-zstandard")
(version "0.15.2")
(version "0.19.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "zstandard" version))
(sha256
(base32 "0by9z7nxnkzhmza075q6q91rs8lnpf91129k8ppv7kymbwshipjj"))))
(base32 "0qvqhs121spk7yc1l20samflxx47waxv3xm55ksxpn1djk6jzl9i"))))
(build-system python-build-system)
(propagated-inputs
(list python-cffi))
(native-inputs
(list python-hypothesis))
(home-page "https://github.com/indygreg/python-zstandard")
@ -449,17 +564,18 @@ provided.")
(define-public python-pyzstd
(package
(name "python-pyzstd")
(version "0.14.3")
(version "0.15.3")
(source
(origin
(method url-fetch)
(uri (pypi-uri "pyzstd" version))
(sha256
(base32
"1d3mngs45w2p490vrq5ymd2wz4lp15phmks1ilcx4k7amgibml3d"))))
"0wkli2i4my79l43b996bdga0fac8s8nfd1zjyzl46lwmsfsxlkmc"))))
(build-system python-build-system)
(home-page "https://github.com/animalize/pyzstd")
(synopsis "Zstandard bindings for Python")
(description "This package provides Python bindings to the Zstandard (zstd)
(description "This package provides Python bindings to the
Zstandard (zstd)
compression library. The API is similar to Python's bz2/lzma/zlib module.")
(license license:bsd-3)))

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

@ -4743,6 +4743,65 @@ Google search engine. Its module is called @code{googlesearch}.")
(description "Python client library for Google's discovery based APIs")
(license license:asl2.0)))
(define-public whoogle-search
(package
(name "whoogle-search")
(version "0.8.0")
(source (origin
(method url-fetch)
(uri (pypi-uri "whoogle-search" version))
(sha256
(base32
"0h8cl9bkd3vx17kbvcnmc8cy6pc29lxr0drxm84kj37ka788cj2g"))))
(build-system python-build-system)
(arguments
(list
;; The tests need network access
#:tests? #f))
(propagated-inputs
(list python-attrs
python-beautifulsoup4
python-cachelib
python-certifi
python-cffi
python-brotli
python-chardet
python-click
python-cryptography
python-cssutils
python-defusedxml
python-flask
python-flask-session
python-idna
python-itsdangerous
python-jinja2
python-markupsafe
python-more-itertools
python-packaging
python-pluggy
python-py
python-pycodestyle
python-pycparser
python-pyopenssl
python-pyparsing
python-pysocks
python-dateutil
python-requests
python-soupsieve
python-stem
python-urllib3
python-waitress
python-wcwidth
python-werkzeug
python-dotenv))
(home-page "https://github.com/benbusby/whoogle-search")
(synopsis "Self-hosted, ad-free, privacy-respecting metasearch engine")
(description
"Get Google results, but without any ads, javascript, AMP links,
cookies, or IP address tracking. Quick and simple to implement as a primary
search engine replacement on both desktop and mobile.")
(license license:expat)))
(define-public python-hawkauthlib
(package
(name "python-hawkauthlib")

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

@ -104,7 +104,7 @@
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2021 Hugo Lecomte <hugo.lecomte@inria.fr>
;;; Copyright © 2021 Franck Pérignon <franck.perignon@univ-grenoble-alpes.fr>
;;; Copyright © 2021 Petr Hodina <phodina@protonmail.com>
;;; Copyright © 2021, 2022 Petr Hodina <phodina@protonmail.com>
;;; Copyright © 2021 Simon Streit <simon@netpanic.org>
;;; Copyright © 2021 Daniel Meißner <daniel.meissner-i4k@ruhr-uni-bochum.de>
;;; Copyright © 2021, 2022 Pradana Aumars <paumars@courrier.dev>
@ -3075,6 +3075,41 @@ applications. dogtail scripts are written in Python and executed like any
other Python program.")
(license license:gpl2+)))
(define-public python-doxyqml
(package
(name "python-doxyqml")
(version "0.5.1")
(source (origin
(method url-fetch)
(uri (pypi-uri "doxyqml" version))
(sha256
(base32
"1f0jjqvamly4hn7f1palvq27z6yr694rfzyxrb6g0ysbbawxkvq9"))))
(build-system python-build-system)
(home-page "http://agateau.com/projects/doxyqml")
(synopsis "Doxygen input filter for QML files")
(description
"This package provides a Doxygen input filter for QML files.")
(license license:bsd-3)))
(define-public python-doxypypy
(package
(name "python-doxypypy")
(version "0.8.8.6")
(source (origin
(method url-fetch)
(uri (pypi-uri "doxypypy" version))
(sha256
(base32
"06z0vbh975g42z5szbfvn9i3bif3xwr5pncqd4fvjzjkbi2p2xb2"))))
(build-system python-build-system)
(arguments '(#:tests? #f)) ;no test suite
(home-page "https://github.com/Feneric/doxypypy")
(synopsis "Doxygen filter for Python")
(description
"This package provides a Doxygen filter for Python.")
(license license:gpl2+)))
(define-public python-empy
(package
(name "python-empy")
@ -3105,25 +3140,6 @@ system is highly configurable via command line options and embedded
commands.")
(license license:lgpl2.1+)))
(define-public python-enum34
(package
(name "python-enum34")
(version "1.1.6")
(source
(origin
(method url-fetch)
(uri (pypi-uri "enum34" version))
(sha256
(base32
"1cgm5ng2gcfrkrm3hc22brl6chdmv67b9zvva9sfs7gn7dwc9n4a"))))
(build-system python-build-system)
(home-page "https://pypi.org/project/enum34/")
(synopsis "Backported Python 3.4 Enum")
(description
"Enum34 is the new Python stdlib enum module available in Python 3.4
backported for previous versions of Python from 2.4 to 3.3.")
(license license:bsd-3)))
(define-public python-parse-type
(package
(name "python-parse-type")
@ -7031,6 +7047,8 @@ as the original project seems to have been abandoned circa 2007.")
(build-system python-build-system)
(arguments
`(#:tests? #f)) ; Tests try to access the network.
(propagated-inputs
(list python-six))
(home-page "http://pagekite.net/wiki/Floss/PySocksipyChain/")
(synopsis "Python SOCKS module with chained proxies support")
(description
@ -10254,16 +10272,18 @@ more advanced mathematics.")
(define-public python-bigfloat
(package
(name "python-bigfloat")
(version "0.3.0")
(version "0.4.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "bigfloat" version))
(sha256
(base32 "0xd7q4l7v0f463diznjv4k9wlaks80pn9drdqmfifi7zx8qvybi6"))))
(base32 "1f0c1hdr39bbl5rds5r1waa1papjmjiyp0ixs64mkjiahzg6pfaq"))))
(build-system python-build-system)
(inputs
(list mpfr))
(propagated-inputs
(list python-six))
(home-page "https://github.com/mdickinson/bigfloat")
(synopsis "Arbitrary precision floating-point arithmetic for Python")
(description
@ -16025,6 +16045,20 @@ way.")
(sha256
(base32
"00yvj8bxmhhhhd74v7j0x673is7vizmxwgb3dd5xmnkr74ybyi7w"))))
(arguments
(list
#:phases
'(modify-phases %standard-phases
(add-after 'unpack 'disable-test
(lambda _
;; See https://github.com/bmc/munkres/issues/40
(substitute* "test/test_munkres.py"
(("^def test_profit_float" m)
(string-append "\
import platform
@pytest.mark.skipif(platform.architecture()[0] == \"32bit\",
reason=\"Fails on 32 bit architectures\")
" m))))))))
(build-system python-build-system)
(native-inputs (list python-pytest-6))
(home-page "https://software.clapper.org/munkres/")
@ -17613,8 +17647,10 @@ It supports TSIG authenticated messages and EDNS0.")
(lambda _
(substitute* "setup.py"
(("import DNS") "")
(("DNS.__version__") (string-append "\"" ,version "\"")))
#t)))
(("DNS.__version__") (string-append "\"" ,version "\"")))))
;; For the same reason, drop the sanity check because the library
;; fails to load without /etc/resolv.conf.
(delete 'sanity-check))
#:tests? #f)) ; Also skip the tests.
(home-page "https://launchpad.net/py3dns")
(synopsis "Python 3 DNS library")
@ -27371,14 +27407,14 @@ and pandoc-citeproc.")
(define-public python-rnc2rng
(package
(name "python-rnc2rng")
(version "2.6.4")
(version "2.6.6")
(source
(origin
(method url-fetch)
(uri (pypi-uri "rnc2rng" version))
(sha256
(base32
"1kmp3iwxxyzjsd47j2sprd47ihhkwhb3yydih3af5bbfq0ibh1w8"))))
"1wbqvz2bhq2f5kqi7q2q3m9y5vs9rj970zhnjh502pvvhmbx20as"))))
(build-system python-build-system)
(propagated-inputs
(list python-rply))
@ -27575,6 +27611,8 @@ module patches @code{asyncio} to allow nested use of @code{asyncio.run} and
"1mzk4yabxj6r149fswhis18hd8dnag5sj8i4wb06450zq3pi8dh7"))))
(native-inputs
(list unzip))
(propagated-inputs
(list python-six))
(build-system python-build-system)
(arguments '(#:tests? #f)) ; No test suite.
(home-page "https://www.parallelpython.com")
@ -29603,7 +29641,7 @@ development, testing, production]};
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "pytest" "-vv")))))))
(native-inputs (list python-pytest python-pytest-mock))
(native-inputs (list python-pytest python-pytest-mock python-numpy))
(propagated-inputs (list python-jedi python-pygments python-urwid
python-urwid-readline))
(home-page "https://documen.tician.de/pudb/")

526
gnu/packages/qt.scm
View File

@ -25,6 +25,7 @@
;;; Copyright © 2021 Nicolò Balzarotti <nicolo@nixo.xyz>
;;; Copyright © 2022 Foo Chuan Wei <chuanwei.foo@hotmail.com>
;;; Copyright © 2022 Zhu Zihao <all_but_last@163.com>
;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -48,6 +49,7 @@
#:use-module (guix git-download)
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system meson)
#:use-module (guix build-system trivial)
#:use-module (guix build-system python)
#:use-module (guix build-system qt)
@ -59,17 +61,21 @@
#:use-module (gnu packages bash)
#:use-module (gnu packages base)
#:use-module (gnu packages bison)
#:use-module (gnu packages check)
#:use-module (gnu packages cmake)
#:use-module (gnu packages compression)
#:use-module (gnu packages cpp)
#:use-module (gnu packages cups)
#:use-module (gnu packages curl)
#:use-module (gnu packages databases)
#:use-module (gnu packages documentation)
#:use-module (gnu packages elf)
#:use-module (gnu packages enchant)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages flex)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gcc)
#:use-module (gnu packages gdb)
#:use-module (gnu packages ghostscript)
#:use-module (gnu packages gl)
#:use-module (gnu packages glib)
@ -140,8 +146,7 @@
(modify-phases %standard-phases
(add-after 'unpack 'chdir
(lambda _
(chdir "libqite")
#t)))))
(chdir "libqite"))))))
(inputs
(list qtbase-5 qtmultimedia-5))
(home-page "https://github.com/Ri0n/qite/")
@ -219,10 +224,10 @@ window managers, that don't provide Qt integration by themselves.")
(native-inputs
(list cmake-shared extra-cmake-modules pkg-config))
(inputs
`(("qtbase" ,qtbase-5)
("qtwayland" ,qtwayland-5)
("wayland" ,wayland)
("xkbcommon" ,libxkbcommon)))
(list qtbase-5
qtwayland-5
wayland
libxkbcommon))
(synopsis "Material Decoration for Qt")
(description "MaterialDecoration is a client-side decoration for Qt
applications on Wayland.")
@ -254,8 +259,7 @@ applications on Wayland.")
(add-before 'check 'check-setup
(lambda _
;; make Qt render "offscreen", required for tests
(setenv "QT_QPA_PLATFORM" "offscreen")
#t)))))
(setenv "QT_QPA_PLATFORM" "offscreen"))))))
(home-page "https://github.com/steveire/grantlee")
(synopsis "Libraries for text templating with Qt")
(description "Grantlee Templates can be used for theming and generation of
@ -820,6 +824,69 @@ developers using C++ or QML, a CSS & JavaScript like language.")
(variable "XDG_CONFIG_DIRS")
(files '("etc/xdg")))))))
(define-public qt3d-5
(package
(inherit qtbase-5)
(name "qt3d")
(version "5.15.5")
(source (origin
(method url-fetch)
(uri (qt-urls name version))
(sha256
(base32
"1m3y7d58crn0qgfwkimxcggssn2pbs8nj5b9diwns6rwqg4aqk20"))))
(propagated-inputs `())
(native-inputs (list perl))
(inputs (list mesa qtbase-5 vulkan-headers zlib))
(arguments
(list #:phases #~(modify-phases %standard-phases
(add-before 'configure 'configure-qmake
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((tmpdir (string-append (getenv "TMPDIR")))
(qmake (string-append tmpdir "/qmake"))
(qt.conf (string-append tmpdir "/qt.conf")))
(symlink (which "qmake") qmake)
(setenv "PATH"
(string-append tmpdir ":"
(getenv "PATH")))
(with-output-to-file qt.conf
(lambda ()
(format #t "[Paths]
Prefix=~a
ArchData=lib/qt5
Data=share/qt5
Documentation=share/doc/qt5
Headers=include/qt5
Libraries=lib
LibraryExecutables=lib/qt5/libexec
Binaries=bin
Tests=tests
Plugins=lib/qt5/plugins
Imports=lib/qt5/imports
Qml2Imports=lib/qt5/qml
Translations=share/qt5/translations
Settings=etc/xdg
Examples=share/doc/qt5/examples
HostPrefix=~a
HostData=lib/qt5
HostBinaries=bin
HostLibraries=lib
[EffectiveSourcePaths]
HostPrefix=~a
HostData=lib/qt5"
#$output #$output #$(this-package-input
"qtbase")))))))
(replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys)
(invoke "qmake"
"QT_BUILD_PARTS = libs tools tests")))
(add-before 'check 'set-display
(lambda _
(setenv "QT_QPA_PLATFORM" "offscreen"))))))
(synopsis "Qt module for 3D")
(description "The Qt3d module provides classes for displaying 3D.")))
(define-public qt5compat
(package
(name "qt5compat")
@ -1802,9 +1869,22 @@ that helps in Qt development.")))
(list
;; The build system attempts to fetch online resources and fails when
;; building the test suite.
#:configure-flags #~(list "-DQT_BUILD_TESTS=OFF")))
#:configure-flags #~(list "-DQT_BUILD_TESTS=OFF")
#:phases #~(modify-phases %standard-phases
(add-after 'install 'sanity-check
(lambda* (#:key outputs #:allow-other-keys)
;; This validation exists to validate that the dynamic
;; library for Clang works as intended; there was
;; originally problems due to left-overs patching the
;; value of BUILD_SHARED_LIBS in CLANG-FROM-LLVM that
;; would cause the following error: "CommandLine Error:
;; Option 'filter' registered more than once!"
(invoke/quiet (search-input-file outputs "bin/qdoc")
"--help"))))))
(native-inputs (list perl qtdeclarative vulkan-headers))
(inputs (list libxkbcommon mesa qtbase))
;; Use clang-15, which is built using as a single shared library, which is
;; what the build system of qttools expects.
(inputs (list clang-15 libxkbcommon mesa qtbase))
(home-page (package-home-page qtbase))
(synopsis "Qt Tools and Designer modules")
(description "The Qt Tools module provides a set of applications to browse
@ -1814,6 +1894,27 @@ that helps in Qt development.")
;; LICENSES/Qt-GPL-exception-1.0.txt).
(license (list license:gpl3))))
(define-public qttranslations
(package
(name "qttranslations")
(version "6.3.1")
(source (origin
(method url-fetch)
(uri (qt-urls name version))
(sha256
(base32
"15yvvxw1vngnjlly6cady05ljamg01qiaqn2vh0xkph855gdbgfp"))))
(build-system cmake-build-system)
(arguments (list #:tests? #f))
(native-inputs (list qtbase qttools))
(home-page (package-home-page qtbase))
(synopsis "Qt translation catalogs")
(description "This package contains the translations for Qt contributed by
the Qt community.")
;; GPL 3 only with Qt GPL exception 1.0 (see:
;; LICENSES/Qt-GPL-exception-1.0.txt).
(license (list license:gpl3))))
(define-public qtscript
(package (inherit qtsvg-5)
(name "qtscript")
@ -1917,12 +2018,12 @@ coloring, and many more.")))
(native-inputs
(list perl pkg-config))
(inputs
`(("fontconfig" ,fontconfig)
("freetype" ,freetype)
("libxrender" ,libxrender)
("sdl2" ,sdl2)
("qtbase" ,qtbase-5)
("qtdeclarative-5" ,qtdeclarative-5)))
(list fontconfig
freetype
libxrender
sdl2
qtbase-5
qtdeclarative-5))
(synopsis "Qt Gamepad module")
(description "The Qt Gamepad module is an add-on library that enables Qt
applications to support the use of gamepad hardware and in some cases remote
@ -2941,8 +3042,7 @@ system libraries.")
(string-append source "/" file)
(string-append out "/include")))
'("SingleApplication"
"singleapplication.h" "singleapplication_p.h"))
#t))))))
"singleapplication.h" "singleapplication_p.h"))))))))
(inputs
(list qtbase-5))
(home-page "https://github.com/itay-grudev/SingleApplication")
@ -3088,9 +3188,7 @@ module provides support functions to the automatically generated code.")
(let* ((qtbase (assoc-ref inputs "qtbase"))
(qtprinter.h (string-append "\"" qtbase "/include/qt5/QtPrintSupport/qprinter.h\"")))
(substitute* "sip/QtPrintSupport/qprinter.sip"
(("<qprinter.h>")
qtprinter.h))
#t)))
(("<qprinter.h>") qtprinter.h)))))
(replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
@ -3215,8 +3313,7 @@ contain over 620 classes.")
(lambda _ (display "
from pkgutil import extend_path
__path__ = extend_path(__path__, __name__)
")))
#t))))))
")))))))))
(home-page "https://www.riverbankcomputing.com/software/pyqtwebengine/intro")
(synopsis "Python bindings for QtWebEngine")
(description
@ -3376,8 +3473,7 @@ indicators, code completion and call tips.")
(string-append out "/lib")))
;; And fix the installed.txt file
(substitute* "installed.txt"
(("/gnu/store/[^/]+") out)))
#t)))))
(("/gnu/store/[^/]+") out))))))))
(inputs
`(("qscintilla" ,qscintilla)
("python" ,python)
@ -3405,8 +3501,7 @@ This package provides the Python bindings.")))
(match %build-inputs
(((names . directories) ...)
(union-build (assoc-ref %outputs "out")
directories)
#t)))))
directories))))))
(inputs
`(("python-pyqt" ,python-pyqt)
("python-qscintilla" ,python-qscintilla)))
@ -3484,8 +3579,7 @@ securely. It will not store any data unencrypted unless explicitly requested.")
(("#include \"qtlockedfile.*\\.cpp\"") "")
;; Unwrap namespace added in the vendoring process.
(("QtLP_Private::QtLockedFile")
"QtLockedFile")))
#t))))
"QtLockedFile")))))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; No target
@ -3509,8 +3603,7 @@ securely. It will not store any data unencrypted unless explicitly requested.")
(("SUBDIRS\\+=examples") ""))
;; Fix deprecated functions.
(substitute* "qtsoap/src/qtsoap.cpp"
(("toAscii") "toUtf8"))
#t))
(("toAscii") "toUtf8"))))
(replace 'configure
(lambda _
(for-each (lambda (solution)
@ -3518,16 +3611,14 @@ securely. It will not store any data unencrypted unless explicitly requested.")
(invoke "./configure" "-library")
(invoke "qmake")))
'("qtlockedfile" "qtpropertybrowser" "qtservice"
"qtsingleapplication" "qtsoap"))
#t))
"qtsingleapplication" "qtsoap"))))
(replace 'build
(lambda _
(for-each (lambda (solution)
(with-directory-excursion solution
(invoke "make")))
'("qtlockedfile" "qtpropertybrowser" "qtservice"
"qtsingleapplication" "qtsoap"))
#t))
"qtsingleapplication" "qtsoap"))))
(replace 'install
(lambda args
(for-each (lambda (solution)
@ -3607,8 +3698,7 @@ that can be only started once per user.
;; Remove some incomplete manual pages.
(for-each delete-file (find-files "doc/man/man3" "^_tmp.*"))
(mkdir-p man)
(copy-recursively "doc/man" man)
#t))))))
(copy-recursively "doc/man" man)))))))
(home-page "http://qwt.sourceforge.net")
(synopsis "Qt widgets for plots, scales, dials and other technical software
GUI components")
@ -3850,7 +3940,7 @@ color-related widgets.")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'use-shiboken-dir-only
(lambda _ (chdir "sources/shiboken2") #t))
(lambda _ (chdir "sources/shiboken2")))
(add-before 'configure 'make-files-writable-and-update-timestamps
(lambda _
;; The build scripts need to modify some files in
@ -3861,13 +3951,11 @@ color-related widgets.")
(for-each (lambda (file)
(make-file-writable file)
(utime file circa-1980 circa-1980))
(find-files ".")))
#t))
(find-files ".")))))
(add-before 'configure 'set-build-env
(lambda _
(let ((llvm #$(this-package-input "clang-toolchain")))
(setenv "CLANG_INSTALL_DIR" llvm)
#t))))))
(setenv "CLANG_INSTALL_DIR" llvm)))))))
(home-page "https://wiki.qt.io/Qt_for_Python")
(synopsis
"Shiboken generates bindings for C++ libraries using CPython source code")
@ -3905,7 +3993,7 @@ color-related widgets.")
((#:phases p)
#~(modify-phases #$p
(replace 'use-shiboken-dir-only
(lambda _ (chdir "sources/shiboken6") #t))))
(lambda _ (chdir "sources/shiboken6")))))
((#:configure-flags flags)
#~(cons*
;; The RUNPATH of shibokenmodule contains the entry in build
@ -3959,7 +4047,7 @@ color-related widgets.")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'go-to-source-dir
(lambda _ (chdir "sources/pyside2") #t))
(lambda _ (chdir "sources/pyside2")))
(add-after 'go-to-source-dir 'fix-qt-module-detection
(lambda _
;; Activate qt module support even if it not in the same
@ -4054,7 +4142,7 @@ generate Python bindings for your C or C++ code.")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'go-to-source-dir
(lambda _ (chdir "sources/pyside6") #t))
(lambda _ (chdir "sources/pyside6")))
(add-after 'go-to-source-dir 'fix-qt-module-detection
(lambda _
(substitute* "cmake/PySideHelpers.cmake"
@ -4114,7 +4202,7 @@ generate Python bindings for your C or C++ code.")))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'go-to-source-dir
(lambda _ (chdir "sources/pyside2-tools") #t)))))
(lambda _ (chdir "sources/pyside2-tools"))))))
(home-page "https://wiki.qt.io/Qt_for_Python")
(synopsis
"Command line tools for PySide2")
@ -4291,8 +4379,7 @@ and import their menus over DBus.")
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "ctest" "-E" ;; These tests try connect to the internet.
"(kdsoap-webcalls|kdsoap-webcalls_wsdl|kdsoap-test_calc)"))
#t)))))
"(kdsoap-webcalls|kdsoap-webcalls_wsdl|kdsoap-test_calc)")))))))
(home-page "https://www.kdab.com/development-resources/qt-tools/kd-soap/")
(synopsis "Qt SOAP component")
(description "KD SOAP is a tool for creating client applications for web
@ -4300,6 +4387,349 @@ services using the XML based SOAP protocol and without the need for a dedicated
web server.")
(license (list license:gpl2 license:gpl3))))
(define-public libaccounts-qt
(package
(name "libaccounts-qt")
(version "1.16")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/accounts-sso/libaccounts-qt")
(commit (string-append "VERSION_" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1vmpjvysm0ld8dqnx8msa15hlhrkny02cqycsh4k2azrnijg0xjz"))))
(build-system gnu-build-system)
(arguments
(list #:tests? #f ;TODO
#:phases
#~(modify-phases %standard-phases
(replace 'configure
(lambda _
(substitute* "tests/tst_libaccounts.pro"
(("QMAKE_RPATHDIR = \\$\\$\\{QMAKE_LIBDIR\\}")
(string-append "QMAKE_RPATHDIR ="
#$output "/lib")))
(invoke "qmake"
(string-append "PREFIX=" #$output)
(string-append "LIBDIR=" #$output "/lib")))))))
;; * SignOnQt5 (required version >= 8.55), D-Bus service which performs
;; user authentication on behalf of its clients,
;; <https://gitlab.com/accounts-sso/signond>
(native-inputs (list doxygen pkg-config qtbase-5 qttools-5))
(inputs (list glib signond libaccounts-glib))
(home-page "https://accounts-sso.gitlab.io/")
(synopsis "Qt5 bindings for libaccounts-glib")
(description
"Accounts SSO is a framework for application developers who
wish to acquire, use and store web account details and credentials. It
handles the authentication process of an account and securely stores the
credentials and service-specific settings.")
(license license:lgpl2.1+)))
(define-public libsignon-glib
(package
(name "libsignon-glib")
(version "2.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/accounts-sso/libsignon-glib")
(commit (string-append "VERSION_" version))
(recursive? #t)))
(file-name (git-file-name name version))
(sha256
(base32
"0gnx9gqsh0hcfm1lk7w60g64mkn1iicga5f5xcy1j9a9byacsfd0"))))
(build-system meson-build-system)
(arguments
(list #:tests? #f ;TODO: ninja: no work to do.
#:imported-modules `((guix build python-build-system)
,@%meson-build-system-modules)
#:modules '(((guix build python-build-system)
#:select (python-version))
(guix build meson-build-system)
(guix build utils))
#:configure-flags
#~(list "-Dtests=true"
(string-append "-Dpy-overrides-dir="
#$output "/lib/python"
(python-version #$(this-package-input
"python"))
"/site-packages/gi/overrides"))))
(native-inputs (list dbus
dbus-test-runner
`(,glib "bin")
gobject-introspection
gtk-doc
pkg-config
vala))
(inputs (list check signond python python-pygobject))
(propagated-inputs (list glib))
(home-page "https://accounts-sso.gitlab.io/libsignon-glib/")
(synopsis "Single signon authentication library for GLib applications")
(description
"This package provides single signon authentication library for
GLib applications.")
(license license:lgpl2.1+)))
(define-public packagekit-qt5
(package
(name "packagekit-qt5")
(version "1.0.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hughsie/PackageKit-Qt")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1d20r503msw1vix3nb6a8bmdqld7fj8k9jk33bkqsc610a2zsms6"))))
(build-system cmake-build-system)
(arguments '(#:tests? #f)) ;no test suite
(native-inputs (list pkg-config))
(inputs (list packagekit qtbase-5))
(home-page "https://www.freedesktop.org/software/PackageKit/pk-intro.html")
(synopsis "Qt5 bindings for PackageKit")
(description "Provides Qt5 bindings to PackageKit which is a DBUS
abstraction layer that allows the session user to manage packages in
a secure way.")
(license license:lgpl2.1+)))
(define-public signond
(package
(name "signond")
(version "8.61")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/accounts-sso/signond")
(commit (string-append "VERSION_" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0k6saz5spys4a4p6ws0ayrjks2gqdqvz7zfmlhdpz5axha0gbqq4"))))
(build-system qt-build-system)
(native-inputs (list doxygen pkg-config qtbase-5 qttools-5))
(inputs (list dbus glib libaccounts-glib))
(arguments
(list #:tests? #f ; Figure out how to run tests
#:phases
#~(modify-phases %standard-phases
(delete 'validate-runpath)
(replace 'configure
(lambda _
(substitute* "src/signond/signond.pro"
(("/etc/")
(string-append #$output "/etc/")))
(substitute*
'("tests/extensions/extensions.pri"
"tests/signond-tests/mock-ac-plugin/plugin.pro"
"tests/signond-tests/identity-tool.pro"
"tests/signond-tests/mock-ac-plugin/identity-ac-helper.pro"
"tests/libsignon-qt-tests/libsignon-qt-tests.pro"
"tests/signond-tests/signond-tests.pri")
(("QMAKE_RPATHDIR = \\$\\$\\{QMAKE_LIBDIR\\}")
(string-append "QMAKE_RPATHDIR = "
#$output "/lib:"
#$output "/lib/signon")))
(invoke "qmake"
(string-append "PREFIX=" #$output)
(string-append "LIBDIR=" #$output "/lib")))))))
(home-page "http://accounts-sso.gitlab.io/signond/index.html")
(synopsis "Perform user authentication over D-Bus")
(description "This package provides a D-Bus service which performs user
authentication on behalf of its clients.")
(license license:lgpl2.1+)))
(define-public signon-plugin-oauth2
(package
(name "signon-plugin-oauth2")
(version "0.25")
(home-page "https://gitlab.com/accounts-sso/signon-plugin-oauth2")
(source (origin
(method git-fetch)
(uri (git-reference
(url home-page)
(commit (string-append "VERSION_" version))))
(file-name (git-file-name name version))
(sha256
(base32
"16aslnyk8jdg03zcg97rp6qzd0gmclj14hyhliksz8jgfz1l0w7c"))))
(build-system qt-build-system)
(native-inputs (list doxygen pkg-config))
(inputs (list signond))
(arguments
(list #:tests? #f ;no tests
#:make-flags #~(list (string-append "INSTALL_ROOT=" #$output))
#:phases
#~(modify-phases %standard-phases
(replace 'configure
(lambda _
(substitute* "common-project-config.pri"
(("-Werror")
""))
(invoke "qmake"
(string-append "PREFIX=" #$output)
(string-append "LIBDIR=" #$output "/lib")))))))
(synopsis "OAuth 2 plugin for signon")
(description
"This plugin for the Accounts-SSO SignOn daemon handles the OAuth
1.0 and 2.0 authentication protocols.")
(license license:lgpl2.1+)))
(define-public clazy
(package
(name "clazy")
(version "1.11")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/KDE/clazy")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1y0n1jknq566z1rifkgdm1yqb0mw564lp51jidfz7q9w91spijci"))))
(build-system cmake-build-system)
(native-inputs (list python))
(inputs (list clang llvm))
(home-page "https://github.com/KDE/clazy/")
(synopsis "Qt-oriented static code analyzer")
(description "clazy is a compiler plugin which allows @command{clang} to
understand Qt semantics. It can emit more than fifty (50) Qt-related compiler
warnings, ranging from unneeded memory allocations to misuses of the API,
including @i{fix-its} for automatic refactoring.")
(license license:lgpl2.0+)))
(define-public qt-creator
(package
(name "qt-creator")
(version "9.0.0")
(source (origin
(method url-fetch)
(uri (string-append
"https://download.qt.io/official_releases/qtcreator/"
(version-major+minor version) "/" version
"/qt-creator-opensource-src-" version ".tar.gz"))
(modules '((guix build utils)))
(snippet '(begin
(for-each
delete-file-recursively
;; Remove bundled libraries, where supported.
;; TODO: package and unbundle litehtml
'("src/libs/3rdparty/yaml-cpp"
"src/shared/qbs/src/shared/qtscript/src/3rdparty"
"tests/unit/unittest/3rdparty"
;; Marketplace recommends nonfree extensions;
;; remove it.
"src/plugins/marketplace"))
(substitute* "src/plugins/CMakeLists.txt"
(("add_subdirectory\\(marketplace).*") ""))
(substitute* "src/plugins/plugins.qbs"
((".*marketplace/marketplace.qbs.*") ""))))
(sha256
(base32
"1adyxs0cnqx14gwzkvh909c52449ia6y87n1r4qf6wwydhch43cs"))))
(build-system qt-build-system)
(arguments
(list
#:qtbase qtbase
#:configure-flags
#~(list "-DWITH_DOCS=ON"
"-DBUILD_DEVELOPER_DOCS=ON"
"-DCMAKE_VERBOSE_MAKEFILE=ON"
"-DWITH_TESTS=ON"
;; Extend the RUNPATH with lib/qtcreator, which contains
;; multiple shared objects.
(string-append "-DCMAKE_SHARED_LINKER_FLAGS=-Wl,-rpath="
#$output "/lib/qtcreator"))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-tests-build
(lambda _
;; Add a missing link directive (see:
;; https://bugreports.qt.io/browse/QTCREATORBUG-28434).
(substitute* "src/libs/tracing/CMakeLists.txt"
(("DEPENDS Utils Qt5::Qml Qt5::Quick")
"DEPENDS Utils Qt5::Quick")
(("PUBLIC_DEPENDS Qt5::Widgets")
"PUBLIC_DEPENDS Qt5::Widgets Qt5::Qml"))))
(add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* '("src/libs/utils/commandline.cpp"
"src/libs/utils/deviceshell.cpp")
(("/bin/sh")
(search-input-file inputs "bin/sh")))
(substitute* "src/libs/utils/qtcprocess.cpp"
(("/usr/bin/env")
(search-input-file inputs "bin/env")))
(substitute* "tests/auto/utils/qtcprocess/tst_qtcprocess.cpp"
(("/bin/sh")
(which "sh")))))
(add-before 'build 'build-doc
(lambda _
(invoke "cmake" "--build" "." "--target=docs" "-v")))
(add-after 'build-doc 'install-doc
(lambda _
(invoke "cmake" "--install" "." "--prefix" #$output
"--component=qch_docs")
(invoke "cmake" "--install" "." "--prefix" #$output
"--component=html_docs")))
(replace 'check
;; Loosely based on .github/workflows/build_cmake.yml.
(lambda* (#:key tests? parallel-tests? #:allow-other-keys)
(when tests?
(invoke "xvfb-run" ;for the 'renderpass' tests
"ctest" "-j" (if parallel-tests?
(number->string (parallel-job-count))
"1")
"--label-exclude" "exclude_from_precheck"
"--exclude-regex" "tst_perfdata"))))
(add-after 'qt-wrap 'wrap-bin
;; Make a few well-integrated tools readily available.
(lambda* (#:key inputs outputs #:allow-other-keys)
(wrap-program (search-input-file outputs "bin/qtcreator")
`("PATH" suffix ,(map (lambda (c)
(dirname (search-input-file inputs c)))
'("bin/clang-tidy"
"bin/clazy-standalone"
"bin/gdb"
"bin/valgrind")))))))))
(native-inputs
(list googletest
pkg-config
python
qttools
qttranslations
vulkan-headers
xvfb-run))
(inputs
(list bash-minimal
coreutils-minimal
clang
clazy
elfutils
gdb
libxkbcommon
llvm
qt5compat
qtdeclarative
qtshadertools
qtsvg
yaml-cpp
valgrind
vulkan-loader
`(,zstd "lib")))
(home-page "https://www.qt.io/")
(synopsis "Integrated development environment (IDE) for Qt")
(description "Qt Creator is an IDE tailored to the needs of Qt developers.
It includes features such as an advanced code editor, a visual debugger and a
@acronym{GUI, Graphical User Interface} designer.")
(license license:gpl3+))) ;with the Qt Company GPL Exception 1.0
;;;
;;; Avoid adding new packages to the end of this file. To reduce the chances
;;; of a merge conflict, place them above by existing packages with similar

24
gnu/packages/radio.scm
View File

@ -175,7 +175,7 @@ used as a drop-in substitute for @code{libfec}.")
(define-public liquid-dsp
(package
(name "liquid-dsp")
(version "1.4.0")
(version "1.5.0")
(source
(origin (method git-fetch)
(uri (git-reference
@ -183,21 +183,25 @@ used as a drop-in substitute for @code{libfec}.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0mr86z37yycrqwbrmsiayi1vqrgpjq0pn1c3p1qrngipkw45jnn0"))))
(base32 "0m0bhj80rs9yhfwnrlx960lii1cqijz1wr8q93i7m2z91h3v3w0j"))))
(build-system gnu-build-system)
(native-inputs
(list autoconf automake))
(inputs
(list fftwf libfec))
(arguments
`(;; For reproducibility, disable use of SSE3, SSE4.1, etc.
#:configure-flags '("--enable-simdoverride")
#:phases
(modify-phases %standard-phases
(add-after 'install 'delete-static-library
(lambda* (#:key outputs #:allow-other-keys)
(delete-file (string-append (assoc-ref outputs "out")
"/lib/libliquid.a")))))))
(list
;; For reproducibility, disable use of SSE3, SSE4.1, etc.
#:configure-flags #~(list "--enable-simdoverride")
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'delete-static-library
(lambda* (#:key outputs #:allow-other-keys)
(let ((version #$(version-major+minor
(package-version this-package))))
(delete-file (string-append #$output
"/lib/libliquid.a."
version))))))))
(home-page "https://liquidsdr.org")
(synopsis "Signal processing library for software-defined radios")
(description

21
gnu/packages/sagemath.scm
View File

@ -170,27 +170,6 @@ represented as strings.")
(license license:public-domain)
(home-page "https://github.com/miguelmarco/libhomfly")))
;; Sage 9.1 doesn't build with ECL 20. This won't be necessary once 9.2 is
;; released. See https://trac.sagemath.org/ticket/22191
(define-public ecl-16
(package
(inherit ecl)
(version "16.1.3")
(source
(origin
(method url-fetch)
(uri (string-append
"https://common-lisp.net/project/ecl/static/files/release/ecl"
"-" version ".tgz"))
(sha256
(base32 "0m0j24w5d5a9dwwqyrg0d35c0nys16ijb4r0nyk87yp82v38b9bn"))
(patches (search-patches
"ecl-16-libffi.patch"
"ecl-16-ignore-stderr-write-error.patch"
"ecl-16-format-directive-limit.patch"))))
;; Current ECL uses LGPL 2.1+
(license license:lgpl2.0+)))
(define-public pynac
(package
(name "pynac")

22
gnu/packages/security-token.scm
View File

@ -891,7 +891,7 @@ phone is required.")
(define-public libfido2
(package
(name "libfido2")
(version "1.11.0")
(version "1.12.0")
(source
(origin
(method git-fetch)
@ -899,21 +899,21 @@ phone is required.")
(url "https://github.com/Yubico/libfido2")
(commit version)))
(file-name (git-file-name name version))
(sha256 (base32 "1nk4irmdg36930lgc892qmlmd4whz4fq37wknkdx5ap57i5x18i6"))))
(sha256 (base32 "123rysl21bmgk6rmpgg5s21a5ksmxnn1hc32ws88h7z0q4icvj87"))))
(native-inputs (list pkg-config))
(inputs (list eudev libcbor openssl zlib))
(build-system cmake-build-system)
(arguments
(list
#:configure-flags
#~(list (string-append
"-DPKG_CONFIG_EXECUTABLE="
(search-input-file %build-inputs
(string-append
"/bin/" #$(pkg-config-for-target))))
(string-append "-DUDEV_RULES_DIR=" #$output "/lib/udev/rules.d"))
;; regress tests enabled only for debug builds
#:tests? #f))
#:configure-flags
#~(list (string-append
"-DPKG_CONFIG_EXECUTABLE="
(search-input-file %build-inputs
(string-append
"/bin/" #$(pkg-config-for-target))))
(string-append "-DUDEV_RULES_DIR=" #$output "/lib/udev/rules.d"))
;; regress tests enabled only for debug builds
#:tests? #f))
(synopsis "Library functionality and command-line tools for FIDO devices")
(description "libfido2 provides library functionality and command-line
tools to communicate with a FIDO device over USB, and to verify attestation

21
gnu/packages/serialization.scm
View File

@ -578,27 +578,6 @@ object, without whitespace.")
RPC system. Think JSON, except binary. Or think Protocol Buffers, except faster.")
(license license:expat)))
(define-public libbson
(package
(name "libbson")
(version "1.6.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/mongodb/libbson/releases/"
"download/" version "/libbson-" version ".tar.gz"))
(sha256
(base32
"1fj4554msq0rrz14snbj908dzqj46gh7jg9w9j0akn2b7q911m5a"))))
(build-system gnu-build-system)
(native-inputs (list perl))
(home-page "http://mongoc.org/libbson/current/index.html")
(synopsis "C BSON library")
(description "Libbson can create and parse BSON documents. It can also
convert JSON documents to BSON and the opposite. BSON stands for Binary JSON,
it is comparable to protobuf.")
(license license:asl2.0)))
(define-public python-ruamel.yaml
(package
(name "python-ruamel.yaml")

129
gnu/packages/statistics.scm
View File

@ -206,7 +206,7 @@ This package also provides @command{xls2csv} to export Excel files to CSV.")
(define r-with-tests
(package
(name "r-with-tests")
(version "4.2.1")
(version "4.2.2")
(source (origin
(method url-fetch)
(uri (string-append "mirror://cran/src/base/R-"
@ -214,7 +214,7 @@ This package also provides @command{xls2csv} to export Excel files to CSV.")
version ".tar.gz"))
(sha256
(base32
"0gv4di1x835i4nsy21vqw66c0blmmmvyjkixc5a8x117dm4dnljd"))))
"1x9xjl6fyzs8r72zigirp905ki50wzyw9rxf7iqsbbsixi12pxhg"))))
(build-system gnu-build-system)
(arguments
`(#:disallowed-references (,tzdata-for-tests)
@ -310,7 +310,11 @@ as.POSIXct(if (\"\" != Sys.getenv(\"SOURCE_DATE_EPOCH\")) {\
(("\\(2008\\)\n") "(2008) ")
((" ``Software") "``Software")
(("Data Analysis:.") "Data Analysis:\n")
(("Programming with R") " Programming with R"))))
(("Programming with R") " Programming with R"))
(substitute* "src/library/tools/DESCRIPTION.in"
(("codetools, methods, xml2, curl, commonmark, knitr, xfun, mathjaxr")
"codetools, methods, xml2, curl, commonmark,
knitr, xfun, mathjaxr"))))
(add-before 'build 'set-locales
(lambda _
(setlocale LC_ALL "C")
@ -366,48 +370,48 @@ as.POSIXct(if (\"\" != Sys.getenv(\"SOURCE_DATE_EPOCH\")) {\
;; As the JDK is a rather large input with only very limited effects on R,
;; we decided to drop it.
(native-inputs
`(("bzip2" ,bzip2)
("perl" ,perl)
("pkg-config" ,pkg-config)
("texinfo" ,texinfo) ; for building HTML manuals
("texlive" ,(texlive-updmap.cfg (list texlive-ae
texlive-inconsolata
texlive-fonts-ec
texlive-grfext
texlive-amsfonts
texlive-latex-base
texlive-latex-fancyvrb
texlive-latex-graphics
texlive-hyperref
texlive-oberdiek
texlive-latex-tools
texlive-latex-upquote
texlive-url
texlive-latex-xkeyval)))
("tzdata" ,tzdata-for-tests)
("xz" ,xz)))
(list bzip2
perl
pkg-config
texinfo ; for building HTML manuals
(texlive-updmap.cfg (list texlive-ae
texlive-inconsolata
texlive-fonts-ec
texlive-grfext
texlive-amsfonts
texlive-latex-base
texlive-latex-fancyvrb
texlive-latex-graphics
texlive-hyperref
texlive-oberdiek
texlive-latex-tools
texlive-latex-upquote
texlive-url
texlive-latex-xkeyval))
tzdata-for-tests
xz))
(inputs
`(;; We need not only cairo here, but pango to ensure that tests for the
;; "cairo" bitmapType plotting backend succeed.
("pango" ,pango)
("coreutils" ,coreutils)
("curl" ,curl)
("openblas" ,openblas)
("gfortran" ,gfortran)
("icu4c" ,icu4c)
("libjpeg" ,libjpeg-turbo)
("libpng" ,libpng)
("libtiff" ,libtiff)
("libxt" ,libxt)
("pcre2" ,pcre2)
("readline" ,readline)
;; This avoids a reference to the ungraftable static bash. R uses the
;; detected shell for the "system" procedure.
("bash" ,bash-minimal)
("tcl" ,tcl)
("tk" ,tk)
("which" ,which)
("zlib" ,zlib)))
(list coreutils
curl
openblas
gfortran
icu4c
libjpeg-turbo
libpng
libtiff
libxt
;; We need not only cairo here, but pango to ensure that tests for the
;; "cairo" bitmapType plotting backend succeed.
pango
pcre2
readline
tcl
tk
which
zlib
;; This avoids a reference to the ungraftable static bash. R uses the
;; detected shell for the "system" procedure.
bash-minimal))
(native-search-paths
(list (search-path-specification
(variable "R_LIBS_SITE")
@ -448,29 +452,23 @@ available, greatly increasing its breadth and scope.")
(substitute* (string-append out "/lib/R/bin/libtool")
(((string-append
"(-L)?("
(assoc-ref inputs "bzip2")
"|"
(assoc-ref inputs "perl")
"|"
(assoc-ref inputs "texlive")
"|"
(assoc-ref inputs "texlive-bin")
"|"
(assoc-ref inputs "texinfo")
"|"
(assoc-ref inputs "xz")
"|"
(format #false
"/gnu/store/[^-]+-(~{~a~^|~})-[^/]+"
'("glibc-utf8-locales"
"~a/[^-]+-(~{~a~^|~})-[^/]+"
(%store-directory)
'("bzip2"
"file"
"glibc-utf8-locales"
"graphite2"
"libselinux"
"libsepol"
"file"
"perl"
"texinfo"
"texlive-bin"
"util-macros"
"graphite2"))
"xz"))
"|"
"/gnu/store/[^-]+-glibc-[^-]+-static"
(format #false "~a/[^-]+-glibc-[^-]+-static"
(%store-directory))
")/lib")) ""))))))))))))
(define-public rmath-standalone
@ -1236,25 +1234,28 @@ using just two functions: melt and dcast (or acast).")
(define-public r-ggplot2
(package
(name "r-ggplot2")
(version "3.3.6")
(version "3.4.0")
(source
(origin
(method url-fetch)
(uri (cran-uri "ggplot2" version))
(sha256
(base32 "1aa377jdfajj8ld2fh159y8havlibsr4pjisf6mkzk8g5awlxjxz"))))
(base32 "0gj7n2y8msnmhk3x4r481biknvn2dqhahwazfqwr8f3lz599wbx8"))))
(build-system r-build-system)
(propagated-inputs
(list r-digest
(list r-cli
r-digest
r-glue
r-gtable
r-isoband
r-lifecycle
r-mass
r-mgcv
r-tibble
r-rlang
r-scales
r-svglite ; Needed for 'ggsave'
r-vctrs
r-withr))
(native-inputs
(list r-knitr))

41
gnu/packages/tex.scm
View File

@ -3993,6 +3993,47 @@ definitions.")
(define-deprecated-package texlive-latex-amsmath texlive-amsmath)
(define-public texlive-mathdots
(let ((template
(simple-texlive-package
"texlive-mathdots"
(list "doc/generic/mathdots/"
"source/generic/mathdots/"
"tex/generic/mathdots/")
(base32"1jaffj343p1chdxs2g7s6lpckvihk0jfw22nw0vmijyjxfiy9yg0"))))
(package
(inherit template)
(outputs '("out" "doc"))
(arguments
(substitute-keyword-arguments (package-arguments template)
((#:tex-directory _ '())
"generic/mathdots")
((#:build-targets _ '())
'(list "mathdots.ins"))
((#:phases phases)
#~(modify-phases #$phases
(add-after 'unpack 'chdir
(lambda _
(chdir "source/generic/mathdots")))
(replace 'copy-files
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((origin (assoc-ref inputs "source"))
(source (string-append (assoc-ref outputs "out")
"/share/texmf-dist/source"))
(doc (string-append (assoc-ref outputs "doc")
"/share/texmf-dist/doc")))
(copy-recursively (string-append origin "/source") source)
(copy-recursively (string-append origin "/doc") doc))))))))
(home-page "https://ctan.org/macros/generic/mathdots")
(synopsis "Commands to produce dots in math that respect font size")
(description
"Mathdots redefines @code{\\ddots} and @code{\\vdots}, and defines
@code{\\iddots}. The dots produced by @code{\\iddots} slant in the opposite
direction to @code{\\ddots}. All the commands are designed to change size
appropriately in scripts, as well as in response to LaTeX size changing
commands. The commands may also be used in plain TeX.")
(license license:lppl))))
(define-public texlive-amscls
(let ((template (simple-texlive-package
"texlive-amscls"

35
gnu/packages/text-editors.scm
View File

@ -49,6 +49,7 @@
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system meson)
#:use-module (guix build-system python)
#:use-module (guix build-system qt)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages)
#:use-module (gnu packages aspell)
@ -59,6 +60,7 @@
#:use-module (gnu packages code)
#:use-module (gnu packages cpp)
#:use-module (gnu packages crates-io)
#:use-module (gnu packages curl)
#:use-module (gnu packages datastructures)
#:use-module (gnu packages documentation)
#:use-module (gnu packages fontutils)
@ -895,6 +897,39 @@ Octave. TeXmacs is completely extensible via Guile.")
(license license:gpl3+)
(home-page "https://www.texmacs.org/tmweb/home/welcome.en.html")))
(define-public mogan
(package
(inherit texmacs)
(name "mogan")
(version "1.1.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/XmacsLabs/mogan")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "04wz6xmimjv2l6baxgzm8vyq5grg102m3l4wq8i6bglv529yp4ff"))))
(build-system qt-build-system)
(inputs
(modify-inputs (package-inputs texmacs)
;; Replaced by S7 scheme
;; TODO: Maybe unbundle S7
(delete "guile")
(prepend curl)))
(arguments
(substitute-keyword-arguments (package-arguments texmacs)
((#:phases orig)
#~(modify-phases #$orig
;; The non-deterministic compression issue is solved in Mogan.
(delete 'gzip-flags)))))
(home-page "https://github.com/XmacsLabs/mogan")
(synopsis "Scientific structural text editor")
(description
"Mogan is a scientific structural text editor, a fork of GNU TeXmacs.")
(license license:gpl3+)))
(define-public textpieces
(package
(name "textpieces")

41
gnu/packages/tls.scm
View File

@ -995,47 +995,6 @@ correct OpenSSL include path. It is intended for use in your
number generator")
(license license:perl-license)))
(define-public acme-client
(package
(name "acme-client")
(version "0.1.16")
(source (origin
(method url-fetch)
(uri (string-append "https://kristaps.bsd.lv/" name "/"
"snapshots/" name "-portable-"
version ".tgz"))
(sha256
(base32
"00q05b3b1dfnfp7sr1nbd212n0mqrycl3cr9lbs51m7ncaihbrz9"))))
(build-system gnu-build-system)
(arguments
'(#:tests? #f ; no test suite
#:make-flags
(list "CC=gcc"
(string-append "PREFIX=" (assoc-ref %outputs "out")))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(let ((pem (search-input-file inputs "/etc/ssl/cert.pem")))
(substitute* "http.c"
(("/etc/ssl/cert.pem") pem))
#t)))
(delete 'configure)))) ; no './configure' script
(native-inputs
(list pkg-config))
(inputs
(list libbsd libressl))
(synopsis "Let's Encrypt client by the OpenBSD project")
(description "acme-client is a Let's Encrypt client implemented in C. It
uses a modular design, and attempts to secure itself by dropping privileges and
operating in a chroot where possible. acme-client is developed on OpenBSD and
then ported to the GNU / Linux environment.")
(home-page "https://kristaps.bsd.lv/acme-client/")
;; acme-client is distributed under the ISC license, but the files 'jsmn.h'
;; and 'jsmn.c' are distributed under the Expat license.
(license (list license:isc license:expat))))
;; The "-apache" variant is the upstreamed prefered variant. A "-gpl"
;; variant exists in addition to the "-apache" one.
(define-public mbedtls-apache

1
gnu/packages/video.scm
View File

@ -2221,6 +2221,7 @@ SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
libxext
libxkbcommon
libxinerama
libxpresent
libxrandr
libxscrnsaver
libxv

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

@ -705,7 +705,7 @@ is fully configurable and extensible in Common Lisp.")
(define-public lagrange
(package
(name "lagrange")
(version "1.13.8")
(version "1.14.0")
(source
(origin
(method url-fetch)
@ -713,7 +713,7 @@ is fully configurable and extensible in Common Lisp.")
(string-append "https://git.skyjake.fi/skyjake/lagrange/releases/"
"download/v" version "/lagrange-" version ".tar.gz"))
(sha256
(base32 "1l6cfvmmw2g30qsxmn5jma17kxgmfknlgji4pbdj1flv8p73bvza"))
(base32 "08qb8f0j3sdbrkr4zsy5pcpqz2cy520q6vb8vq7ilkbz0yfxmgf2"))
(modules '((guix build utils)))
(snippet
'(begin

4
gnu/packages/web.scm
View File

@ -5849,13 +5849,13 @@ deployments.")
(package
(name "varnish")
(home-page "https://varnish-cache.org/")
(version "7.1.1")
(version "7.2.1")
(source (origin
(method url-fetch)
(uri (string-append home-page "_downloads/varnish-" version ".tgz"))
(sha256
(base32
"14512fjjzwini3fics6sib9y83s45vlrpncamixqmmg7j0jvxbrc"))))
"0h590kr7rhp57a4kfx6apyvqk60w78qdjwpr6g2ikv5840bpv4sd"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags (list (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib")

6
gnu/packages/xdisorg.scm
View File

@ -1140,19 +1140,19 @@ transparent text on your screen.")
(define-public wob
(package
(name "wob")
(version "0.13")
(version "0.14.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/francma/wob/releases/download/"
version "/wob-" version ".tar.gz"))
(sha256
(base32 "0i8y6kq37qcgdq85ll4rapisjl7zw6aa11yx2f2xw2d3j93kdxh8"))))
(base32 "12s9pc0dhqgawq6jiqhamj1zq9753kgpswny1rcsdx1lkpzrgaq1"))))
(build-system meson-build-system)
(native-inputs
(list pkg-config scdoc))
(inputs
(list libseccomp wayland wayland-protocols))
(list libinih libseccomp wayland wayland-protocols))
(home-page "https://github.com/francma/wob")
(synopsis "Lightweight overlay bar for Wayland")
(description

8
gnu/packages/xfce.scm
View File

@ -681,7 +681,7 @@ allows you to shut down the computer from Xfce.")
(define-public xfce4-settings
(package
(name "xfce4-settings")
(version "4.16.4")
(version "4.16.5")
(source (origin
(method url-fetch)
(uri (string-append "https://archive.xfce.org/src/xfce/"
@ -689,7 +689,7 @@ allows you to shut down the computer from Xfce.")
name "-" version ".tar.bz2"))
(sha256
(base32
"1vd3l20myjfbq53x8sywy989zd557adyv3bb2y0nhh2is8ps9aqq"))
"13nj80mshkz3czrp8l1yxj6qmz0kkfhzv94z3ixfgmw64j078kvs"))
(patches (search-patches "xfce4-settings-defaults.patch"))))
(build-system gnu-build-system)
(arguments
@ -1335,7 +1335,7 @@ of data to either CD/DVD/BD.")
(define-public xfce4-screenshooter
(package
(name "xfce4-screenshooter")
(version "1.9.11")
(version "1.10.0")
(source (origin
(method url-fetch)
(uri (string-append "https://archive.xfce.org/src/apps/"
@ -1345,7 +1345,7 @@ of data to either CD/DVD/BD.")
version ".tar.bz2"))
(sha256
(base32
"1d7qyc2w4962crmkz5n0mma2qmyp9hhq455karyzacjbb6z0cgg7"))))
"0lvv6iam348n7l3md94lanxyyn87xmrivzdvfi0fa3vgjfk88j56"))))
(build-system gnu-build-system)
(native-inputs
(list pkg-config intltool

2
gnu/packages/xorg.scm
View File

@ -1217,7 +1217,7 @@ hit when running single-threaded.")
"1p0flwb67xawyv6yhri9w17m1i4lji5qnd0gq8v1vsfb8zw7rw15"))))
(build-system gnu-build-system)
(inputs
(list xorgproto libxext libx11))
(list xorgproto libxext libx11 windowswmproto))
(native-inputs
(list pkg-config))
(home-page "https://www.x.org/wiki/")

2
guix/build-system/r.scm
View File

@ -61,7 +61,7 @@ release corresponding to NAME and VERSION."
"/src/contrib/"
name "_" version ".tar.gz")
;; TODO: use %bioconductor-version from (guix import cran)
(string-append "https://bioconductor.org/packages/3.15"
(string-append "https://bioconductor.org/packages/3.16"
type-url-part
"/src/contrib/"
name "_" version ".tar.gz"))))

2
guix/build/syscalls.scm
View File

@ -51,6 +51,7 @@
MS_RELATIME
MS_BIND
MS_MOVE
MS_REC
MS_SHARED
MS_LAZYTIME
MNT_FORCE
@ -541,6 +542,7 @@ the last argument of `mknod'."
(define MS_NODIRATIME 2048)
(define MS_BIND 4096)
(define MS_MOVE 8192)
(define MS_REC 16384)
(define MS_SHARED 1048576)
(define MS_RELATIME 2097152)
(define MS_STRICTATIME 16777216)

4
guix/import/cran.scm
View File

@ -188,9 +188,9 @@ package definition."
(define %cran-canonical-url "https://cran.r-project.org/package=")
(define %bioconductor-url "https://bioconductor.org/packages/")
;; The latest Bioconductor release is 3.15. Bioconductor packages should be
;; The latest Bioconductor release is 3.16. Bioconductor packages should be
;; updated together.
(define %bioconductor-version "3.15")
(define %bioconductor-version "3.16")
(define* (bioconductor-packages-list-url #:optional type)
(string-append "https://bioconductor.org/packages/"

12
guix/inferior.scm
View File

@ -69,6 +69,8 @@
inferior-exception-arguments
inferior-exception-inferior
inferior-exception-stack
inferior-protocol-error?
inferior-protocol-error-inferior
read-repl-response
inferior-packages
@ -314,6 +316,10 @@ equivalent. Return #f if the inferior could not be launched."
(inferior inferior-exception-inferior) ;<inferior> | #f
(stack inferior-exception-stack)) ;list of (FILE COLUMN LINE)
(define-condition-type &inferior-protocol-error &error
inferior-protocol-error?
(inferior inferior-protocol-error-inferior)) ;<inferior>
(define* (read-repl-response port #:optional inferior)
"Read a (guix repl) response from PORT and return it as a Scheme object.
Raise '&inferior-exception' when an exception is read from PORT."
@ -339,7 +345,11 @@ Raise '&inferior-exception' when an exception is read from PORT."
(raise (condition (&inferior-exception
(arguments (cons key (map sexp->object objects)))
(inferior inferior)
(stack '())))))))
(stack '())))))
(_
;; Protocol error.
(raise (condition (&inferior-protocol-error
(inferior inferior)))))))
(define (read-inferior-response inferior)
(read-repl-response (inferior-socket inferior)

6
guix/licenses.scm
View File

@ -57,6 +57,7 @@
edl1.0
epl1.0
epl2.0
eupl1.1
eupl1.2
expat expat-0
freetype
@ -344,6 +345,11 @@ at URI, which may be a file:// URI pointing the package's tree."
"https://www.eclipse.org/legal/epl-2.0/"
"https://www.gnu.org/licenses/license-list#EPL2"))
(define eupl1.1
(license "EUPL 1.1"
"https://directory.fsf.org/wiki/License:EUPL-1.1"
"https://www.gnu.org/licenses/license-list#EUPL-1.1"))
(define eupl1.2
(license "EUPL 1.2"
"https://directory.fsf.org/wiki/License:EUPL-1.2"

4
guix/packages.scm
View File

@ -1176,9 +1176,9 @@ inputs of Coreutils and adds libcap:
(modify-inputs (package-inputs coreutils)
(delete \"gmp\" \"acl\")
(append libcap))
(prepend libcap))
Other types of clauses include 'prepend' and 'replace'.
Other types of clauses include 'append' and 'replace'.
The first argument must be a labeled input list; the result is also a labeled
input list."

40
guix/scripts/offload.scm
View File

@ -25,7 +25,7 @@
#:autoload (ssh auth) (userauth-public-key!)
#:autoload (ssh session) (make-session
connect! get-error
disconnect! session-set!)
disconnect! session-set! session-get)
#:autoload (ssh version) (zlib-support?)
#:use-module (guix config)
#:use-module (guix records)
@ -34,7 +34,8 @@
send-files retrieve-files retrieve-files*
remote-inferior report-guile-error)
#:use-module (guix store)
#:autoload (guix inferior) (inferior-eval close-inferior inferior?)
#:autoload (guix inferior) (inferior-eval close-inferior
inferior? inferior-protocol-error?)
#:autoload (guix derivations) (read-derivation-from-file
derivation-file-name
build-derivations)
@ -111,7 +112,7 @@
;; A #f value tells the offload scheduler to disregard the load of the build
;; machine when selecting the best offload machine.
(overload-threshold build-machine-overload-threshold ; inexact real between
(default 0.6)) ; 0.0 and 1.0 | #f
(default 0.8)) ; 0.0 and 1.0 | #f
(parallel-builds build-machine-parallel-builds ; number
(default 1))
(speed build-machine-speed ; inexact real
@ -473,6 +474,15 @@ logical cores available, to give a rough estimation of CPU usage. Return
(vector-set! vec j (vector-ref vec (- i 1)))
(loop (cons val result) (- i 1))))))))
(define (remote-inferior* session)
"Like 'remote-inferior', but upon error return #f."
(or (guard (c ((inferior-protocol-error? c) #f))
(remote-inferior session))
(begin
(warning (G_ "failed to run 'guix repl' on machine '~a'~%")
(session-get session 'host))
#f)))
(define (choose-build-machine machines)
"Return two values: the best machine among MACHINES and its build
slot (which must later be released with 'release-build-slot'), or #f and #f."
@ -511,7 +521,7 @@ slot (which must later be released with 'release-build-slot'), or #f and #f."
;; too costly to call it once for every machine.
(let* ((session (false-if-exception (open-ssh-session best
%short-timeout)))
(node (and session (remote-inferior session)))
(node (and session (remote-inferior* session)))
(load (and node (node-load node)))
(threshold (build-machine-overload-threshold best))
(space (and node (node-free-disk-space node))))
@ -708,6 +718,11 @@ machine."
(and (string=? (build-machine-name m1) (build-machine-name m2))
(= (build-machine-port m1) (build-machine-port m2))))
(define (if-true proc)
(lambda args
(when (every ->bool args)
(apply proc args))))
;; A given build machine may appear several times (e.g., once for
;; "x86_64-linux" and a second time for "i686-linux"); test them only once.
(let ((machines (filter pred
@ -718,12 +733,12 @@ machine."
(let* ((names (map build-machine-name machines))
(sockets (map build-machine-daemon-socket machines))
(sessions (map (cut open-ssh-session <> %short-timeout) machines))
(nodes (map remote-inferior sessions)))
(for-each assert-node-has-guix nodes names)
(for-each assert-node-repl nodes names)
(for-each assert-node-can-import sessions nodes names sockets)
(for-each assert-node-can-export sessions nodes names sockets)
(for-each close-inferior nodes)
(nodes (map remote-inferior* sessions)))
(for-each (if-true assert-node-has-guix) nodes names)
(for-each (if-true assert-node-repl) nodes names)
(for-each (if-true assert-node-can-import) sessions nodes names sockets)
(for-each (if-true assert-node-can-export) sessions nodes names sockets)
(for-each (if-true close-inferior) nodes)
(for-each disconnect! sessions))))
(define (check-machine-status machine-file pred)
@ -743,10 +758,9 @@ machine."
(define session
(open-ssh-session machine %short-timeout))
(match (remote-inferior session)
(match (remote-inferior* session)
(#f
(warning (G_ "failed to run 'guix repl' on machine '~a'~%")
(build-machine-name machine)))
#f)
((? inferior? inferior)
(let ((now (car (gettimeofday))))
(match (inferior-eval '(list (uname)

16
guix/scripts/style.scm
View File

@ -335,13 +335,15 @@ PACKAGE."
(define* (format-whole-file file #:rest rest)
"Reformat all of FILE."
(let ((lst (call-with-input-file file read-with-comments/sequence)))
(with-atomic-file-output file
(lambda (port)
(apply pretty-print-with-comments/splice port lst
#:format-comment canonicalize-comment
#:format-vertical-space canonicalize-vertical-space
rest)))))
(with-fluids ((%default-port-encoding "UTF-8"))
(let ((lst (call-with-input-file file read-with-comments/sequence
#:guess-encoding #t)))
(with-atomic-file-output file
(lambda (port)
(apply pretty-print-with-comments/splice port lst
#:format-comment canonicalize-comment
#:format-vertical-space canonicalize-vertical-space
rest))))))
;;;

20
guix/scripts/system/reconfigure.scm
View File

@ -40,9 +40,9 @@
#:use-module (guix diagnostics)
#:use-module (ice-9 match)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-11)
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-35)
#:use-module (srfi srfi-71)
#:use-module ((guix config) #:select (%guix-package-name))
#:export (switch-system-program
switch-to-system
@ -184,8 +184,8 @@ services as defined by OS."
#:target-type shepherd-root-service-type))))
(mlet* %store-monad ((live-services (running-services eval)))
(let*-values (((to-unload to-restart)
(shepherd-service-upgrade live-services target-services)))
(let ((to-unload to-restart
(shepherd-service-upgrade live-services target-services)))
(let* ((to-unload (map live-service-canonical-name to-unload))
(to-restart (map shepherd-service-canonical-name to-restart))
(running (map live-service-canonical-name
@ -347,14 +347,12 @@ to commits of channels in NEW."
(channel-name old)))
new)))
(and new
(let-values (((checkout commit relation)
(update-cached-checkout
(channel-url new)
#:ref
`(commit . ,(channel-commit new))
#:starting-commit
(channel-commit old)
#:check-out? #f)))
(let ((checkout commit relation
(update-cached-checkout
(channel-url new)
#:ref `(commit . ,(channel-commit new))
#:starting-commit (channel-commit old)
#:check-out? #f)))
(list new
(channel-commit old) (channel-commit new)
relation)))))