ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge commit 'master' into version-1.4.0

Browse source
This commit is contained in:
Ludovic Courtès 2022-11-28 12:26:32 +01:00
commit 459e4f2a4f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
109 changed files with 10793 additions and 2707 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

66
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
@ -3441,8 +3503,8 @@ to reproduce the exact same profile:
GUIX_EXTRA_PROFILES=$HOME/.guix-extra-profiles
GUIX_EXTRA=$HOME/.guix-extra
mkdir "$GUIX_EXTRA"/my-project
guix pull --channels=channel-specs.scm --profile "$GUIX_EXTRA/my-project/guix"
mkdir -p "$GUIX_EXTRA"/my-project
guix pull --channels=channel-specs.scm --profile="$GUIX_EXTRA/my-project/guix"
mkdir -p "$GUIX_EXTRA_PROFILES/my-project"
"$GUIX_EXTRA"/my-project/guix/bin/guix package --manifest=/path/to/guix-my-project-manifest.scm --profile="$GUIX_EXTRA_PROFILES"/my-project/my-project

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

11
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 \
@ -1482,7 +1482,8 @@ dist_patch_DATA = \
%D%/packages/patches/lierolibre-remove-arch-warning.patch \
%D%/packages/patches/lierolibre-try-building-other-arch.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 \
@ -1989,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 \

470
gnu/packages/astronomy.scm
View file

@ -36,6 +36,7 @@ (define-module (gnu packages astronomy)
#: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 @@ (define-module (gnu packages astronomy)
#: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 @@ (define-module (gnu packages astronomy)
#: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 @@ (define-public python-astroquery
(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 @@ (define-public python-cdflib
(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 @@ (define-public python-cdflib
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 @@ (define-public python-cdflib
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 @@ (define-public python-ephem
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 @@ (define-public python-regions
(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")
@ -1619,7 +1845,7 @@ (define-public sgp4
(define-public imppg
(package
(name "imppg")
(version "0.6.4")
(version "0.6.5")
(source
(origin
(method git-fetch)
@ -1628,7 +1854,7 @@ (define-public imppg
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "04synbmyz0hkipl1cdc26nr42r57v494yjw8pi4jx0jrxrawgj9h"))))
(base32 "0a6wb1a9adwd01dmy0r03xxp8iz9y7mvh30088ajilhj4lf90vxa"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ;no test provided
@ -1957,26 +2183,40 @@ (define-public python-suntime
(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 @@ (define-public python-asdf
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 @@ (define python-asdf-coordinates-schemas
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 @@ (define python-asdf-wcs-schemas
(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

71
gnu/packages/audio.scm
View file

@ -14,7 +14,7 @@
;;; Copyright © 2018, 2020, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2018 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2018, 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2018, 2019, 2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2018, 2021 Thorsten Wilms <t_w_@freenet.de>
;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2018 Brendan Tildesley <mail@brendan.scot>
@ -727,7 +727,7 @@ (define (ardour-rpath-phase major-version)
(define-public ardour
(package
(name "ardour")
(version "7.0")
(version "7.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -744,7 +744,7 @@ (define-public ardour
namespace ARDOUR { const char* revision = \"" version "\" ; const char* date = \"\"; }")))))
(sha256
(base32
"1xzgcd2d8zzgx3s9sr3kcxl3vz3vfr5l1xs9qpjplmk22dfj8b08"))
"11ca9xpzmzafl8xl0r0w32lxjqwy532hfd2bzb0d73bdpngpvcbq"))
(file-name (string-append name "-" version))))
(build-system waf-build-system)
(arguments
@ -849,19 +849,26 @@ (define-public ardour
(define-public audacity
(package
(name "audacity")
(version "3.1.3")
(version "3.2.1")
(source
(origin
;; If built from the release tag, Audacity will describe itself
;; as an "Alpha test version" and suggest to users that they use
;; the "latest stable released version".
(method url-fetch)
(uri (string-append "https://github.com/audacity/audacity/releases/download/"
"Audacity-" version "/audacity-" version
"-source.tar.gz"))
;; XXX: For 3.2.1 we rebelliously use a git tag anyway because the only
;; "processed" download is a .zip containing a .tar.gz which does not
;; fare well with the patch and snippet machinery:
;; https://github.com/audacity/audacity/issues/3811
;; TODO: Find a way to control the "alpha" status even when using git
;; so we're not reliant on preprocessed source code.
(method git-fetch)
(uri (git-reference
(url "https://github.com/audacity/audacity")
(commit (string-append "Audacity-" version))))
(file-name (git-file-name name version))
(sha256
(base32
"189agx11361k9j958s6q5bngnnfx0rwaf0dwbjxy6fwvsb1wv3px"))
"00mal30jxbcacs1ka4yb5s8xq81zm7mv3y8l5hvg77abkyvfvdzf"))
(patches (search-patches "audacity-ffmpeg-fallback.patch"))
(modules '((guix build utils)))
(snippet
@ -891,14 +898,13 @@ (define-public audacity
jack-1
expat
lame
linux-libre-headers
flac
ffmpeg
libid3tag
libjpeg-turbo
libmad
;;("libsbsms" ,libsbsms) ;bundled version is modified
libsndfile
mpg123
soundtouch
soxr ;replaces libsamplerate
sqlite
@ -909,20 +915,24 @@ (define-public audacity
lilv ;for lv2
suil ;for lv2
portaudio
portmidi))
portmidi
wavpack))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("gettext" ,gettext-minimal) ;for msgfmt
("libtool" ,libtool)
("pkg-config" ,pkg-config)
("python" ,python)
("which" ,which)))
(list autoconf
automake
gettext-minimal ;for msgfmt
libtool
pkg-config
python
which))
(arguments
`(#:configure-flags
(list
"-Daudacity_conan_enabled=off"
"-Daudacity_lib_preference=system"
;; Disable support for VST 3 SDK, which is not yet in Guix (and has
;; a dubious licensing agreement despite GPL code).
"-Daudacity_has_vst3=off"
;; TODO: enable this flag once we've packaged all dependencies
;; "-Daudacity_obey_system_dependencies=on"
;; disable crash reports, updates, ..., anything that phones home
@ -944,24 +954,20 @@ (define-public audacity
"CMAKE_BUILD_WITH_INSTALL_RPATH TRUE")
(("CMAKE_INSTALL_RPATH_USE_LINK_PATH [A-Z]*")
"CMAKE_INSTALL_RPATH_USE_LINK_PATH TRUE"))
(substitute* "libraries/image-compiler/CMakeLists.txt"
(("PROPERTIES")
;; This scripts needs to run during build, make sure it finds
;; the required libraries.
"PROPERTIES BUILD_WITH_INSTALL_RPATH FALSE"))
(substitute* "src/CMakeLists.txt"
;; Despite the name, this script breaks rpath. Don't run it.
(("install.*linux/fix_rpath\\.cmake.*")
"")
(("-Wl,--disable-new-dtags") "-Wl,--enable-new-dtags"))))
(add-after 'unpack 'comment-out-revision-ident
(lambda _
(substitute* "src/CMakeLists.txt"
(("file\\( TOUCH \".*RevisionIdent\\.h\" \\)" directive)
(string-append "# " directive)))
(substitute* "src/AboutDialog.cpp"
(("(.*RevisionIdent\\.h.*)" include-line)
(string-append "// " include-line)))))
(add-after 'unpack 'use-upstream-headers
(lambda* (#:key inputs #:allow-other-keys)
(substitute* '("libraries/lib-files/FileNames.cpp")
(("\"/usr/include/linux/magic.h\"") "<linux/magic.h>"))))
(add-after 'install 'delete-gratuitous-script
(lambda* (#:key outputs #:allow-other-keys)
(delete-file (string-append (assoc-ref outputs "out")
"/audacity"))))
(add-after 'wrap-program 'glib-or-gtk-wrap
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))
;; The test suite is not "well exercised" according to the developers,
@ -3707,7 +3713,8 @@ (define-public libsbsms
(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 @@ (define-public zbackup
(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 @@ (define-public grep
(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 @@ (define-public pbcopper
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")

14
gnu/packages/bqn.scm
View file

@ -33,7 +33,6 @@ (define-module (gnu packages bqn)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages llvm)
#:use-module (gnu packages java)
#:use-module (gnu packages linux)
#:use-module (gnu packages compression))
(define-public dbqn
@ -113,7 +112,7 @@ (define bqn-sources
;; 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 +120,11 @@ (define bqn-sources
(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 +136,7 @@ (define cbqn-bootstrap
(file-name (git-file-name name version))
(sha256
(base32
"0w38fhwf20drkyijy6nfnhmc5g5gw0zmzgmy1q605x57znlj85a2"))))
"13gg96aa56b8k08bjvv8i0f5nxrah2sij7g6pg7i21fdv08rd9iv"))))
(build-system gnu-build-system)
(arguments
(list
@ -202,7 +201,6 @@ (define-public cbqn
(install-file "libcbqn.so" lib))))))))
(native-inputs (list dbqn
bqn-sources
libffi
linux-libre-headers))
libffi))
(properties
`((tunable? . #t)))))

37
gnu/packages/calendar.scm
View file

@ -34,6 +34,7 @@ (define-module (gnu packages calendar)
#: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 @@ (define-module (gnu packages calendar)
#: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 @@ (define-public gsimplecal
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/chromium.scm
View file

@ -317,7 +317,7 @@ (define %blacklisted-files
;; run the Blink performance tests, just remove everything to save ~70MiB.
'("third_party/blink/perf_tests"))
(define %chromium-version "107.0.5304.110")
(define %chromium-version "107.0.5304.121")
(define %ungoogled-revision (string-append %chromium-version "-1"))
(define %debian-revision "debian/102.0.5005.61-1")
(define %arch-revision "6afedb08139b97089ce8ef720ece5cd14c83948c")
@ -330,7 +330,7 @@ (define %ungoogled-origin
(file-name (git-file-name "ungoogled-chromium" %ungoogled-revision))
(sha256
(base32
"14z9qi9i9l7kjx7gf74lzs63bpxqyd3wbqqpsvzvqgr2v0cgqahx"))))
"1ns664y7qx0ry8hg8r704z64jmx8j6rpxn2lkliv0xjfwlrbbfx3"))))
(define %debian-origin
(origin
@ -495,7 +495,7 @@ (define-public ungoogled-chromium
%chromium-version ".tar.xz"))
(sha256
(base32
"1k7yjsb4i7m8i5mk018v7z25r4x1ypyprz4hnyrn7vk2983lhdfk"))
"12z0fhgxcsdkf6shnsg9maj3v901226cjcy8y2x8m88maw2apc0j"))
(modules '((guix build utils)))
(snippet (force ungoogled-chromium-snippet))))
(build-system gnu-build-system)

6
gnu/packages/ci.scm
View file

@ -58,8 +58,8 @@ (define-module (gnu packages ci)
#: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 @@ (define-public cuirass
(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 @@ (define-public drbd-utils
;; 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))

4
gnu/packages/coq.scm
View file

@ -54,7 +54,7 @@ (define-module (gnu packages coq)
(define-public coq-core
(package
(name "coq-core")
(version "8.16.0")
(version "8.16.1")
(source
(origin
(method git-fetch)
@ -64,7 +64,7 @@ (define-public coq-core
(file-name (git-file-name name version))
(sha256
(base32
"1rp4m2yjldsz0kj7p2fsc312n740fr8kg99jlsk8aq3h524qz2h8"))
"0ljpqhh5lfsim29fcfp2xfcvm3j84pf1mb0gnpdr8vcqqw7mqwpf"))
(patches (search-patches "coq-fix-envvars.patch"))))
(native-search-paths
(list (search-path-specification

163
gnu/packages/cran.scm
View file

@ -599,6 +599,27 @@ (define-public r-googlevis
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 @@ (define-public r-proj4
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 @@ (define-public r-ggpp
(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 @@ (define-public r-poorman
@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 @@ (define-public r-homologene
(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 @@ (define-public r-cvst
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 @@ (define-public r-optparse
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 @@ (define-public r-lintr
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

@ -1628,17 +1628,24 @@ (define-public emacs-rec-mode
(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 @@ (define-public scanmem
(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 @@ (define-public remake
(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 @@ (define-public ranger
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 @@ (define-public knot
(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 @@ (define-public docker
util-linux
lvm2
tini
xfsprogs
xfsprogs-5.9
xz))
(native-inputs
(list eudev ; TODO: Should be propagated by lvm2 (.pc -> .pc)

1
gnu/packages/ebook.scm
View file

@ -197,6 +197,7 @@ (define-public calibre
python-psutil
python-py7zr
python-pychm
python-pycryptodome
python-pygments
python-pyqt-without-qtwebkit
python-pyqtwebengine

1
gnu/packages/education.scm
View file

@ -667,7 +667,6 @@ (define-public ktouch
ki18n
kiconthemes
kitemviews
kqtquickcharts
ktextwidgets
kwidgetsaddons
kwindowsystem

729
gnu/packages/emacs-xyz.scm
View file

File diff suppressed because it is too large Load diff

6
gnu/packages/engineering.scm
View file

@ -3310,7 +3310,7 @@ (define-public libigl
(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 @@ (define-public prusa-slicer
(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 @@ (define-public prusa-slicer
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 @@ (define-module (gnu packages finance)
#: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 @@ (define-public bitcoin-core-0.21
version "/bitcoin-" version ".tar.gz"))
(sha256
(base32
"17nvir1yc6mf4wr1fn4xsabw49cd5p9vig8wj77vv4anzi8zfij1"))))
"01fcb90pqip3v77kljykx51cmg7jdg2cmp7ys0a40svdkps8nx16"))))
(build-system gnu-build-system)
(native-inputs
(list autoconf
@ -207,23 +207,10 @@ (define-public bitcoin-core-0.21
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 @@ (define-public geierlein
(define-public electrum
(package
(name "electrum")
(version "4.2.1")
(version "4.3.2")
(source
(origin
(method url-fetch)
@ -561,7 +548,7 @@ (define-public electrum
version "/Electrum-"
version ".tar.gz"))
(sha256
(base32 "0w41411zq07kx0351wxkmpn0wr42wd2nx0m6v0iwvpsggx654b6r"))
(base32 "1kbyinm9fnxpx9chkyd11yr9rxvcxvw3ml7kzvxcfa8v7jnl0dmx"))
(modules '((guix build utils)))
(snippet
'(begin
@ -628,7 +615,7 @@ (define-public electrum
(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 @@ (define-public electron-cash
(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 @@ (define-public python-mt-940
(define-public xmrig
(package
(name "xmrig")
(version "6.18.0")
(version "6.18.1")
(source
(origin
(method git-fetch)
@ -2142,7 +2129,7 @@ (define-public xmrig
(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 @@ (define-public xmrig
(define-public p2pool
(package
(name "p2pool")
(version "2.2.1")
(version "2.5")
(source
(origin
(method git-fetch)
@ -2199,7 +2186,7 @@ (define-public p2pool
(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 @@ (define-public fwupd
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 @@ (define-public fwupd
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 @@ (define-public ovmf-arm
(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 @@ (define* (make-arm-trusted-firmware platform #:optional (arch "aarch64"))
(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 @@ (define-public font-comic-neue
(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 @@ (define-public font-comic-neue
(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 @@ (define-public font-iosevka
"/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 @@ (define-public font-iosevka-slab
"/releases/download/v" version
"/ttc-iosevka-slab-" version ".zip"))
(sha256
(base32 "1qy86kdl6lgq5k1qb97adibpfjm4vg1wdnxbqizhqka5bc7avyzb"))))))
(base32 "063qk1d75l1jq7gdwzqxd7j8j56g7da0aagsqm0lvwl217l7x48b"))))))
(define-public font-iosevka-term
(package
@ -1577,7 +1577,7 @@ (define-public font-iosevka-term
"/releases/download/v" version
"/ttf-iosevka-term-" version ".zip"))
(sha256
(base32 "15znvvkhldgbl9k04pwrrnvmjnanw2fr92c0zspg7bbw7id2v510"))))
(base32 "17465bvg6fap53xfqwrg2g4fasv01w86wh658n1rf6djs3yzn1gx"))))
(arguments
`(#:phases
(modify-phases %standard-phases
@ -1598,7 +1598,7 @@ (define-public font-iosevka-term-slab
"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 @@ (define-public font-iosevka-aile
"/releases/download/v" version
"/ttc-iosevka-aile-" version ".zip"))
(sha256
(base32 "1lciycahvxgvmcniq4h3m1v3rc42nmv8ydb0fpbl9g4sc0qp81hq"))))))
(base32 "03y0xijb7c0kampm3gjb69mv8hikhsgqhlw1w3zfcjhr2vc62g6q"))))))
(define-public font-iosevka-curly
(package
@ -1633,7 +1633,7 @@ (define-public font-iosevka-curly
"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 @@ (define-public font-iosevka-curly-slab
"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 @@ (define-public font-iosevka-etoile
"/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 @@ (define-public font-sarasa-gothic
"/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 @@ (define-module (gnu packages freedesktop)
#: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 @@ (define-module (gnu packages freedesktop)
#: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 @@ (define-module (gnu packages freedesktop)
#: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 @@ (define-public malcontent
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")
@ -904,32 +985,37 @@ (define (source-file regexp)
(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
@ -1135,6 +1221,29 @@ (define-public wayland-protocols-next
(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")
@ -2581,6 +2690,42 @@ (define-public xdg-desktop-portal-gtk
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")

8
gnu/packages/ftp.scm
View file

@ -177,14 +177,14 @@ (define-public weex
(define-public libfilezilla
(package
(name "libfilezilla")
(version "0.37.2")
(version "0.39.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://download.filezilla-project.org/"
"libfilezilla/libfilezilla-" version ".tar.bz2"))
(sha256
(base32 "1mg2zqmpkkcimx6kq3a1ab26v515zzxw2s8rwhmajsv4cgp404g5"))))
(base32 "1x2rixppmvdpn9m01hmh3yqzpczxbkw301hx27n5bfq0dbnx9aar"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -217,14 +217,14 @@ (define-public libfilezilla
(define-public filezilla
(package
(name "filezilla")
(version "3.60.1")
(version "3.62.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://download.filezilla-project.org/client/"
"FileZilla_" version "_src.tar.bz2"))
(sha256
(base32 "1bv643abf8jai552j9fqcl4i54h1yrs5hgn6w0w1ibwccdinryc1"))))
(base32 "04lcffmvl1356iyc14pikq3z6jikj6qn0v0zd57lgsm0biihjrx7"))))
(build-system gnu-build-system)
(arguments
;; Don't let filezilla phone home to check for updates.

8
gnu/packages/game-development.scm
View file

@ -1692,7 +1692,7 @@ (define-public ois
(define-public mygui
(package
(name "mygui")
(version "3.2.2")
(version "3.4.1")
(source
(origin
(method git-fetch)
@ -1702,7 +1702,7 @@ (define-public mygui
(file-name (git-file-name name version))
(sha256
(base32
"1wk7jmwm55rhlqqcyvqsxdmwvl70bysl9azh4kd9n57qlmgk3zmw"))))
"1gyd4bzm6qqpqw6is065qs5c729gl6rp989bnkygha6q4s371vz6"))))
(build-system cmake-build-system)
(arguments
'(#:tests? #f ; No test target
@ -1734,10 +1734,8 @@ (define-public mygui
(define-public mygui-gl
;; Closure size is reduced by some 800 MiB.
(package
(inherit mygui)
(package/inherit mygui
(name "mygui-gl")
(version "3.2.2")
(arguments
(substitute-keyword-arguments (package-arguments mygui)
((#:configure-flags _)

46
gnu/packages/games.scm
View file

@ -880,14 +880,14 @@ (define-public bsd-games
(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
@ -6137,21 +6137,21 @@ (define-public megaglest
"1ffck3ii1wp5k3nn5p0ga06jgp7pzk4zw0xln3xim2w7qrxzdzh9"))))
(build-system cmake-build-system)
(inputs
`(("curl" ,curl)
("fontconfig" ,fontconfig)
("ftgl" ,ftgl)
("glew" ,glew)
("libjpeg-turbo" ,libjpeg-turbo)
("megaglest-data" ,megaglest-data)
("mesa" ,mesa)
("miniupnpc" ,miniupnpc)
("openal" ,openal)
("libircclient" ,libircclient)
("libpng" ,libpng)
("libvorbis" ,libvorbis)
("lua" ,lua)
("sdl2" ,sdl2)
("wxwidgets" ,wxwidgets)))
(list curl
fontconfig
ftgl
glew
libjpeg-turbo
megaglest-data
mesa
miniupnpc
openal
libircclient
libpng
libvorbis
lua
sdl2
wxwidgets))
(native-inputs
(list cppunit pkg-config))
(arguments
@ -6159,8 +6159,8 @@ (define-public megaglest
(list "-DCMAKE_CXX_FLAGS=-fcommon"
"-DCMAKE_C_FLAGS=-fcommon"
(string-append "-DCUSTOM_DATA_INSTALL_PATH="
(assoc-ref %build-inputs "megaglest-data")
"/share/megaglest")
(search-input-directory %build-inputs
"share/megaglest"))
"-DBUILD_MEGAGLEST_TESTS=ON")
#:phases
(modify-phases %standard-phases
@ -6239,7 +6239,7 @@ (define-public freegish
(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 @@ (define-public cdogs-sdl
(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 @@ (define-public barrage
(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))

7
gnu/packages/geo.scm
View file

@ -2123,7 +2123,7 @@ (define-public virtualpg
(define-public opencpn
(package
(name "opencpn")
(version "5.6.0")
(version "5.6.2")
(source
(origin
(method git-fetch)
@ -2132,11 +2132,10 @@ (define-public opencpn
(commit (string-append "Release_" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0g5x45wv3djfjmigk6kgs0i63yp8rs1fbmm4pb15wb3z6dml624y"))))
(base32 "16hb0ycp0kbx2h8fx08rqkgrlz48kaym0d6wqvpjrcfa2r4myss8"))))
(build-system cmake-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("pkg-config" ,pkg-config)))
(list gettext-minimal pkg-config))
(inputs
(list alsa-utils
bzip2

10
gnu/packages/gettext.scm
View file

@ -120,13 +120,19 @@ (define-public gettext-minimal
"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 @@ (define-public mesa-utils
(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 @@ (define-module (gnu packages glib)
#: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 @@ (define-module (gnu packages glib)
#: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 @@ (define dbus-glib
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 @@ (define-module (gnu packages gnome-xyz)
#: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 @@ (define-public gnome-plots
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")

56
gnu/packages/gnome.scm
View file

@ -2594,6 +2594,11 @@ (define-public gnome-keyring
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 @@ (define-public glib-networking
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")

23
gnu/packages/gnupg.scm
View file

@ -431,6 +431,19 @@ (define-public gpgme
(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 @@ (define-public qgpgme
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")

857
gnu/packages/golang.scm
View file

@ -2107,6 +2107,29 @@ (define-public go-github-com-miolini-datacounter
"The datacounter package provides counters for Go readers and writers.")
(license license:expat)))
(define-public go-github-com-emersion-go-textwrapper
(package
(name "go-github-com-emersion-go-textwrapper")
(version "0.0.0-20200911093747-65d896831594")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/emersion/go-textwrapper")
(commit (go-version->git-ref version))))
(file-name (git-file-name name version))
(sha256
(base32
"1lh9d7zvj6gm1rr6sv5xlagklgx9d666hq5srd37a4sdcjkbiqmq"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/emersion/go-textwrapper"))
(home-page "https://github.com/emersion/go-textwrapper")
(synopsis "Text-wrapping writer for Go")
(description
"The textwrapper package provides a writer that wraps long text lines to
a specified length.")
(license license:expat)))
(define-public go-github-com-aki237-nscjar
(let ((commit "e2df936ddd6050d30dd90c7214c02b5019c42f06")
(revision "0"))
@ -2485,6 +2508,101 @@ (define-public go-gopkg-in-go-playground-validator-v9
@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")
@ -2547,6 +2665,32 @@ (define-public go-gopkg.in-tomb.v2
(home-page "https://gopkg.in/tomb.v2")
(license license:bsd-3))))
(define-public go-gopkg-in-tomb-v1
(package
(inherit go-gopkg.in-tomb.v2)
(name "go-gopkg-in-tomb-v1")
(version "1.0.0-20141024135613-dd632973f1e7")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gopkg.in/tomb.v1")
(commit (go-version->git-ref version))))
(file-name (git-file-name name version))
(sha256
(base32
"1lqmq1ag7s4b3gc3ddvr792c5xb5k6sfn0cchr3i2s7f1c231zjv"))))
(arguments
(list #:import-path "gopkg.in/tomb.v1"
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-test
(lambda* (#:key import-path #:allow-other-keys)
(substitute* (string-append "src/" import-path
"/tomb_test.go")
(("t.Fatalf\\(`Killf\\(\"BO%s")
"t.Fatalf(`Killf(\"BO%%s")))))))
(home-page "https://gopkg.in/tomb.v1")))
(define-public go-gopkg-in-natefinch-lumberjack.v2
(package
(name "go-gopkg-in-natefinch-lumberjack.v2")
@ -2775,6 +2919,37 @@ (define-public go-golang-org-x-crypto
(home-page "https://go.googlesource.com/crypto/")
(license license:bsd-3))))
(define-public go-github-com-protonmail-go-crypto
(package
(name "go-github-com-protonmail-go-crypto")
(version "0.0.0-20220623141421-5afb4c282135")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ProtonMail/go-crypto")
(commit (go-version->git-ref version))))
(file-name (git-file-name name version))
(sha256
(base32
"05qxdbn8wdk901z5kw2r3jdrag58nxlcsy0p8xd6rq0d71sw94wy"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/ProtonMail/go-crypto"
#:tests? #f ; Source-only package.
#:phases
#~(modify-phases %standard-phases
;; Source-only package.
(delete 'build))))
(propagated-inputs (list go-golang-org-x-crypto))
(home-page "https://github.com/ProtonMail/go-crypto")
(synopsis "Fork of x/crypto with up-to-date OpenPGP implementation")
(description
"This package provides cryptography for Go. This version of the
package is a fork that adds a more up-to-date OpenPGP implementation.
It is completely backwards compatible with @code{golang.org/x/crypto},
the official package.")
(license license:bsd-3)))
(define-public go-golang-org-x-net
(let ((commit "ba9fcec4b297b415637633c5a6e8fa592e4a16c3")
(revision "4"))
@ -3896,6 +4071,30 @@ (define-public go-github-com-fsnotify-fsnotify
(description "File system notifications for Go")
(license license:bsd-3)))
(define-public go-github-com-nxadm-tail
(package
(name "go-github-com-nxadm-tail")
(version "1.4.8")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/nxadm/tail")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1j2gi485fhwdpmyzn42wk62103fclwbfywg42p275z1qv2bsz1rc"))))
(build-system go-build-system)
(arguments (list #:import-path "github.com/nxadm/tail"))
(propagated-inputs (list go-gopkg-in-tomb-v1
go-github-com-fsnotify-fsnotify))
(home-page "https://github.com/nxadm/tail")
(synopsis "Go implementation of the functionality of @command{tail -f}")
(description
"This package provides a Go library for reading from continuously
updating files, like @command{tail -f}.")
(license license:expat)))
(define-public go-github-com-magiconair-properties
(package
(name "go-github-com-magiconair-properties")
@ -5894,6 +6093,33 @@ (define-public go-github-com-go-sql-driver-mysql
golang's database/sql package.")
(license license:mpl2.0)))
(define-public go-github-com-syndtr-goleveldb-leveldb
(package
(name "go-github-com-syndtr-goleveldb-leveldb")
(version "1.0.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/syndtr/goleveldb")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"042k0gbzs5waqpxmd7nv5h93mlva861s66c3s9gfg1fym5dx4vmd"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/syndtr/goleveldb/leveldb"
#:unpack-path "github.com/syndtr/goleveldb"))
(propagated-inputs (list go-github-com-onsi-gomega
go-github-com-onsi-ginkgo
go-github-com-golang-snappy))
(home-page "https://github.com/syndtr/goleveldb")
(synopsis "LevelDB implementation in Go")
(description
"This package provides a Go implementation of the LevelDB key/value
storage system.")
(license license:bsd-2)))
(define-public go-github-com-lucasb-eyer-go-colorful
(package
(name "go-github-com-lucasb-eyer-go-colorful")
@ -5948,6 +6174,30 @@ (define-public go-github-com-gdamore-encoding
non-UTF-friendly sources.")
(license license:expat)))
(define-public go-github-com-cention-sany-utf7
(package
(name "go-github-com-cention-sany-utf7")
(version "0.0.0-20170124080048-26cad61bd60a")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/cention-sany/utf7")
(commit (go-version->git-ref version))))
(file-name (git-file-name name version))
(sha256
(base32
"1jy15ryfcln1iwchrksqyrnyfy41gisymm4f9sr1d73ja029bznm"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/cention-sany/utf7"))
(propagated-inputs (list go-golang-org-x-text))
(home-page "https://github.com/cention-sany/utf7")
(synopsis "UTF-7 for Go")
(description
"The utf7 package provides support for the obsolete UTF-7 text
encoding in Go.")
(license license:bsd-3)))
(define-public go-github-com-gdamore-tcell
(let ((commit "aaadc574a6ed8dc3abe56036ca130dcee1ee6b6e")
(version "1.1.2")
@ -5985,32 +6235,62 @@ (define-public go-github-com-gdamore-tcell-v2
(package
(inherit go-github-com-gdamore-tcell)
(name "go-github-com-gdamore-tcell")
(version "2.3.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/gdamore/tcell")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0ypbl5080q9sd3irad8mv7zlg4242i8pmg5xyhbyq95kymwibaid"))))
(version "2.5.3")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/gdamore/tcell")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0pvs0gigqxpifc7y7cx82cg95pgqmy8qzxynja3zidplrx2075j3"))))
(arguments
`(#:import-path "github.com/gdamore/tcell/v2"
#:phases
(modify-phases %standard-phases
(add-before 'reset-gzip-timestamps 'make-files-writable
(lambda* (#:key outputs #:allow-other-keys)
;; Make sure .gz files are writable so that the
;; 'reset-gzip-timestamps' phase can do its work.
(let ((out (assoc-ref outputs "out")))
(for-each make-file-writable
(find-files out "\\.gz$"))))))))
(list #:import-path "github.com/gdamore/tcell/v2"
#:phases
#~(modify-phases %standard-phases
(add-before 'reset-gzip-timestamps 'make-files-writable
(lambda _
;; Make sure .gz files are writable so that the
;; 'reset-gzip-timestamps' phase can do its work.
(for-each make-file-writable
(find-files #$output "\\.gz$")))))))
(propagated-inputs
(modify-inputs (package-inputs go-github-com-gdamore-tcell)
(prepend go-golang-org-x-term go-golang-org-x-sys)))))
(define-public go-git-sr-ht-rockorager-tcell-term
(package
(name "go-git-sr-ht-rockorager-tcell-term")
(version "0.3.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://git.sr.ht/~rockorager/tcell-term")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"13nfb2mq59846j531j7p2nm8mi0kjw5p90pa89l3fwc0sljkn5p8"))))
(build-system go-build-system)
(arguments
(list #:import-path "git.sr.ht/~rockorager/tcell-term"))
(propagated-inputs
(list go-golang-org-x-sys
go-golang-org-x-term
go-gopkg-in-check-v1
go-github-com-mattn-go-runewidth
go-github-com-davecgh-go-spew
go-github-com-stretchr-testify
go-github-com-gdamore-tcell-v2
go-github-com-creack-pty))
(home-page "https://git.sr.ht/~rockorager/tcell-term")
(synopsis "Terminal widget for @code{tcell}")
(description
"This package provides a virtual terminal widget for the @code{tcell}
Go library.")
(license license:expat)))
(define-public go-github-com-rivo-tview
(package
(name "go-github-com-rivo-tview")
@ -6447,31 +6727,82 @@ (define-public go-github-com-ddevault-go-libvterm
(define-public go-github-com-emersion-go-imap
(package
(name "go-github-com-emersion-go-imap")
(version "1.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/emersion/go-imap")
(commit (string-append "v" version))))
(sha256
(base32
"1id8j2d0rn9sj8y62xhyygqpk5ygrcl9jlfx92sm1jsvxsm3kywq"))
(file-name (git-file-name name version))))
(version "1.2.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/emersion/go-imap")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0ak2ysvfcc9w0g1070msis8x9sh6gzvf0nd65ks594siwbmqddw8"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/emersion/go-imap"))
(native-inputs
(list go-golang-org-x-text))
(list #:import-path "github.com/emersion/go-imap"))
(propagated-inputs (list go-golang-org-x-text
go-github-com-emersion-go-sasl
go-github-com-emersion-go-message))
(home-page "https://github.com/emersion/go-imap")
(synopsis "IMAP4rev1 library written in Go")
(description "This package provides an IMAP4rev1 library written in Go. It
can be used to build a client and/or a server.")
(description
"This package provides an IMAP4rev1 library written in Go. It
can be used to build IMAP clients and servers.")
(license license:expat)))
(define-public go-github-com-emersion-go-imap-sortthread
(package
(name "go-github-com-emersion-go-imap-sortthread")
(version "1.2.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/emersion/go-imap-sortthread")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1cfbgz1l5angnj52v9pxwggai2shx0h78ffcp7j4r4lr7lzflnwz"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/emersion/go-imap-sortthread"))
(propagated-inputs (list go-golang-org-x-text
go-github-com-emersion-go-sasl
go-github-com-emersion-go-imap))
(home-page "https://github.com/emersion/go-imap-sortthread")
(synopsis "Sorting and threading of messages for the imap package")
(description
"The sortthread package implements message sorting and threading for
@code{go-github-com-emersion-go-imap}.")
(license license:expat)))
(define-public go-github-com-emersion-go-smtp
(package
(name "go-github-com-emersion-go-smtp")
(version "0.15.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/emersion/go-smtp")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1vhc0vpjd4yhxk6wrh01sdpi7nprjn98s46yy82xwlkm0cskl0h7"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/emersion/go-smtp"))
(propagated-inputs (list go-github-com-emersion-go-sasl))
(home-page "https://github.com/emersion/go-smtp")
(synopsis "SMTP implementation for Go")
(description
"This package implements the Simple Mail Transfer Protocol as
defined by RFC 5321.")
(license license:expat)))
(define-public go-github-com-emersion-go-sasl
(let ((commit "240c8404624e076f633766c16adbe96c7ac516b7")
(revision "0"))
(let ((commit "0b9dcfb154ac3d7515b08bc2691a0332800edfe9")
(revision "1"))
(package
(name "go-github-com-emersion-go-sasl")
(version (git-version "0.0.0" revision commit))
@ -6481,13 +6812,13 @@ (define-public go-github-com-emersion-go-sasl
(uri (git-reference
(url "https://github.com/emersion/go-sasl")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1py18p3clp474xhx6ypyp0bgv6n1dfm24m95cyyqb0k3vibar6ih"))
(file-name (git-file-name name version))))
"1cbf86wkqrdinfydndgdlnayg4a5mg3d4vqra377j2sfkg7wj0hs"))))
(build-system go-build-system)
(arguments
'(#:import-path "github.com/emersion/go-sasl"))
(list #:import-path "github.com/emersion/go-sasl"))
(home-page "https://github.com/emersion/go-sasl")
(synopsis "SASL library written in Go")
(description "This package provides a SASL library written in Go.")
@ -6520,6 +6851,106 @@ (define-public go-github-com-emersion-go-imap-idle
(description "This package provides an IDLE extension for go-imap.")
(license license:expat))))
(define-public go-github-com-emersion-go-maildir
(package
(name "go-github-com-emersion-go-maildir")
(version "0.3.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/emersion/go-maildir")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1rs9kbacjpcza25pmdkbm7sdm7r6gq4g44nihi9asyrvspx96zf2"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/emersion/go-maildir"))
(home-page "https://github.com/emersion/go-maildir")
(synopsis "Maildir interface for Go")
(description
"This package provides an interface to mailboxes in the Maildir
format.")
(license license:expat)))
(define-public go-github-com-emersion-go-milter
(package
(name "go-github-com-emersion-go-milter")
(version "0.3.3")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/emersion/go-milter")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"10vpry5gjz2bh9qchcx4p59zm7cc6cb6bfkii2n6vsn4svb950sa"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/emersion/go-milter"))
(propagated-inputs (list go-github-com-emersion-go-message))
(home-page "https://github.com/emersion/go-milter")
(synopsis "Milter mail filters in Go")
(description
"This package provides an interface for implementing milter mail
filters for Go.")
(license license:bsd-2)))
(define-public go-github-com-emersion-go-msgauth
(package
(name "go-github-com-emersion-go-msgauth")
(version "0.6.6")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/emersion/go-msgauth")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0ds8yr4cm9wigcxg1sxc2m0wmy4z9n6gws3mj50dmf2ayij69z9j"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/emersion/go-msgauth"
#:tests? #f ; Source-only package.
#:phases
#~(modify-phases %standard-phases
;; Source-only package.
(delete 'build))))
(propagated-inputs (list go-golang-org-x-crypto
go-github-com-emersion-go-milter
go-github-com-emersion-go-message))
(home-page "https://github.com/emersion/go-msgauth")
(synopsis "Email authentication for Go")
(description
"This package provides a Go library for authenticating emails.")
(license license:expat)))
(define-public go-github-com-emersion-go-mbox
(package
(name "go-github-com-emersion-go-mbox")
(version "1.0.3")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/emersion/go-mbox")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0vnadh2khx7sxn0irrd8gz8ra02x7ij0q8zglq3rqffqil06nliv"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/emersion/go-mbox"))
(home-page "https://github.com/emersion/go-mbox")
(synopsis "Go library for handling @code{mbox} files")
(description
"This package provides a library for parsing and formatting
@code{mbox} files.")
(license license:expat)))
(define-public go-github-com-fatih-color
(package
(name "go-github-com-fatih-color")
@ -7330,6 +7761,34 @@ (define-public go-github-com-masterminds-sprig
template functions.")
(license license:expat)))
(define-public go-github-com-go-task-slim-sprig
(let ((commit "afa1e2071829e4db655eb448d6c7c16eb0bc5766")
(revision "0"))
(package
(name "go-github-com-go-task-slim-sprig")
(version (git-version "2.20.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/go-task/slim-sprig")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1185y8qygv8gb3wpghx5d945wq68j4dbaiffq3h0dh453g4h1w7a"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/go-task/slim-sprig"
;; Tests try to access the network.
#:tests? #f))
(home-page "https://github.com/go-task/slim-sprig")
(synopsis "Various useful template functions for Go")
(description
"Sprig provides over 100 functions that extend the Go template system.
Slim-Sprig is a fork of Sprig that removes all external dependencies to make
the library more lightweight.")
(license license:expat))))
(define-public go-github-com-bmatcuk-doublestar
(package
(name "go-github-com-bmatcuk-doublestar")
@ -9125,6 +9584,30 @@ (define-public go-github-com-pborman-getopt
programs that use traditional command lines.")
(license license:bsd-3)))
(define-public go-git-sr-ht-sircmpwn-getopt
(package
(name "go-git-sr-ht-sircmpwn-getopt")
(version "1.0.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://git.sr.ht/~sircmpwn/getopt")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0f9rammnmhaz21qkmz7qf76r8jlzi323g05ps3j7gwrxlw7442a6"))))
(build-system go-build-system)
(arguments
(list #:import-path "git.sr.ht/~sircmpwn/getopt"))
(propagated-inputs (list go-github-com-stretchr-testify))
(home-page "https://git.sr.ht/~sircmpwn/getopt")
(synopsis "POSIX getopt for Go")
(description
"This package provides a POSIX-compatible implementation of
@code{getopt} for Go.")
(license license:bsd-3)))
(define-public go-go-uber-org-atomic
(package
(name "go-go-uber-org-atomic")
@ -10517,6 +11000,31 @@ (define-public go-github-com-zenhack-go-notmuch
email library.")
(license license:gpl3+)))
(define-public go-github-com-emersion-go-message
(package
(name "go-github-com-emersion-go-message")
(version "0.16.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/emersion/go-message")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1j5qdhsna28xcs843zsiccw700rld5hin466dl0n3a0ax1w13ay0"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/emersion/go-message"))
(propagated-inputs (list go-golang-org-x-text
go-github-com-emersion-go-textwrapper))
(home-page "https://github.com/emersion/go-message")
(synopsis "Internet messages and MIME for Go")
(description
"The message package implements the Internet Message Format and Multipurpose
Internet Mail Extensions in Go.")
(license license:expat)))
(define-public go-github-com-jaytaylor-html2text
(package
(name "go-github-com-jaytaylor-html2text")
@ -10545,6 +11053,97 @@ (define-public go-github-com-jaytaylor-html2text
text-only mail clients to display them.")
(license license:expat)))
(define-public go-github-com-jhillyerd-enmime
(package
(name "go-github-com-jhillyerd-enmime")
(version "0.9.4")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jhillyerd/enmime")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"124dqm598phbmalyx2gmxk201z9kq4ckvvdq8rc0akjlp24nxqbb"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/jhillyerd/enmime"))
(propagated-inputs (list go-golang-org-x-text
go-golang-org-x-net
go-github-com-stretchr-testify
go-github-com-ssor-bom
go-github-com-rivo-uniseg
go-github-com-pkg-errors
go-github-com-olekukonko-tablewriter
go-github-com-mattn-go-runewidth
go-github-com-gogs-chardet
go-github-com-jaytaylor-html2text
go-github-com-go-test-deep
go-github-com-cention-sany-utf7))
(home-page "https://github.com/jhillyerd/enmime")
(synopsis "MIME encoder and decoder for Go")
(description
"The enmime package implements a MIME encoding and decoding
library geared towards parsing MIME encoded emails.")
(license license:expat)))
(define-public go-github-com-emersion-go-pgpmail
(package
(name "go-github-com-emersion-go-pgpmail")
(version "0.2.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/emersion/go-pgpmail")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0ar26b0apw5bxn58qfn1a79cxigbmrqm1irh1rb7x57fydihc7wm"))))
(build-system go-build-system)
(arguments
(list ;; tests don't support our version of protonmail/go-crypto; see
;; <https://github.com/emersion/go-pgpmail/issues/12>
#:tests? #f
#:import-path "github.com/emersion/go-pgpmail"))
(propagated-inputs (list go-golang-org-x-text
go-golang-org-x-crypto
go-github-com-emersion-go-message
go-github-com-protonmail-go-crypto))
(home-page "https://github.com/emersion/go-pgpmail")
(synopsis "PGP mail encryption for Go")
(description
"The pgpmail package implements PGP encryption for e-mail messages.")
(license license:expat)))
(define-public go-github-com-gatherstars-com-jwz
(package
(name "go-github-com-gatherstars-com-jwz")
(version "1.3.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/gatherstars-com/jwz")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1h37h5w139d3rhvp1n7kz2jm5zhk4pjzf3sip04v48nphkika60c"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/gatherstars-com/jwz"))
(propagated-inputs (list go-github-com-rivo-tview
go-github-com-jhillyerd-enmime
go-github-com-gdamore-tcell-v2))
(home-page "https://github.com/gatherstars-com/jwz")
(synopsis "Implementation in Go of the email threading algorithm
originally invented for Netscape Mail")
(description
"The jwz package provides an implementation of the email threading
algorithm originally designed for use in Netscape Mail 2.0 for Go.")
(license license:asl2.0)))
(define-public go-github-com-creack-pty
(package
(name "go-github-com-creack-pty")
@ -10688,6 +11287,180 @@ (define-public go-github-com-gogs-chardet
ICU to Go.")
(license license:expat)))
(define-public go-github-com-go-test-deep
(package
(name "go-github-com-go-test-deep")
(version "1.0.8")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/go-test/deep")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1mmw2w3by7y24jjpjwmf2gfl08c65jihn3si9m0sswmagmdsk8q0"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/go-test/deep"))
(home-page "https://github.com/go-test/deep")
(synopsis "Human-friendly deep variable equality in Go")
(description
"The deep package provides the deep.Equal function which is like
reflect.DeepEqual but returns a list of differences. This is helpful
when comparing complex types like structures and maps.")
(license license:expat)))
(define-public go-github-com-niemeyer-pretty
(package
(name "go-github-com-niemeyer-pretty")
(version "0.0.0-20200227124842-a10e7caefd8e")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/niemeyer/pretty")
(commit (go-version->git-ref version))))
(file-name (git-file-name name version))
(sha256
(base32
"1jmazh4xzaa3v6g46hz60q2z7nmqs9l9cxdzmmscn3kbcs2znq4v"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/niemeyer/pretty"
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'int-to-string-with-rune
(lambda* (#:key import-path #:allow-other-keys)
(with-directory-excursion (string-append "src/" import-path)
(substitute* "formatter.go"
(("s \\+= string\\(i\\)")
"s += string(rune(i))"))))))))
(propagated-inputs (list go-github-com-kr-text))
(home-page "https://github.com/niemeyer/pretty")
(synopsis "Pretty-print Go values")
(description
"The pretty package provides pretty-printing for Go values. This is
useful during debugging, to avoid wrapping long output lines in the
terminal.")
(license license:expat)))
(define-public go-github-com-arran4-golang-ical
(package
(name "go-github-com-arran4-golang-ical")
(version "0.0.0-20220517104411-fd89fefb0182")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/arran4/golang-ical")
(commit (go-version->git-ref version))))
(file-name (git-file-name name version))
(sha256
(base32
"0bxs0b5yg26liiifc0cc41l307r0wc93hp8iygv8dgpc60yzncaw"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/arran4/golang-ical"))
(propagated-inputs (list go-gopkg-in-yaml-v3
go-gopkg-in-check-v1
go-github-com-stretchr-testify
go-github-com-niemeyer-pretty
go-github-com-kr-text
go-github-com-davecgh-go-spew))
(home-page "https://github.com/arran4/golang-ical")
(synopsis "Handle iCalenders in Go")
(description
"The @code{ical} package provides an ICS/iCalender parser and
serialiser for Go.")
(license license:asl2.0)))
(define-public go-github-com-lithammer-fuzzysearch
(package
(name "go-github-com-lithammer-fuzzysearch")
(version "1.1.5")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/lithammer/fuzzysearch")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1b036sm42cf64diwlqhx24vxy6g5afrmfbdfyqhpg8zrii3lpwns"))))
(build-system go-build-system)
(propagated-inputs (list go-golang-org-x-text))
(arguments
(list #:import-path "github.com/lithammer/fuzzysearch"
#:tests? #f ; Source-only package.
#:phases
#~(modify-phases %standard-phases
;; Source-only package.
(delete 'build))))
(home-page "https://github.com/lithammer/fuzzysearch")
(synopsis "Tiny and fast fuzzy search in Go")
(description
"A speedy fuzzy matching package for Go inspired by the JavaScript
library bevacqua/fuzzysearch.")
(license license:expat)))
(define-public go-github-com-onsi-gomega
(package
(name "go-github-com-onsi-gomega")
(version "1.19.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/onsi/gomega")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"092phwk97sk4sv0nbx5pfhqs6x3x1lnrjwyda1m6b6zwrfmq5c6i"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/onsi/gomega"
;; Unless we disable the tests, we have a circular dependency on
;; ginkgo/v2.
#:tests? #f))
(propagated-inputs (list go-github-com-golang-protobuf-proto
go-golang-org-x-net
go-golang-org-x-sys
go-golang-org-x-text
go-google-golang-org-protobuf
go-gopkg-in-yaml-v2))
(home-page "https://github.com/onsi/gomega")
(synopsis "Matcher library for Ginkgo")
(description
"Gomega is the preferred matcher library for the Ginkgo test framework.")
(license license:expat)))
(define-public go-github-com-onsi-ginkgo
(package
(name "go-github-com-onsi-ginkgo")
(version "1.16.5")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/onsi/ginkgo")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1hh6n7q92y0ai8k6rj2yzw6wwxikhyiyk4j92zgvf1zad0gmqqmz"))))
(build-system go-build-system)
(arguments (list #:import-path "github.com/onsi/ginkgo"))
(propagated-inputs (list go-golang-org-x-sys
go-golang-org-x-tools
go-github-com-go-task-slim-sprig
go-github-com-nxadm-tail
go-github-com-onsi-gomega))
(home-page "https://github.com/onsi/ginkgo")
(synopsis "BDD-style testing framework for Go")
(description
"Ginkgo is a Behaviour-Driven Development testing framework for Go. It
builds on top of Go's builtin @code{testing} library and is complemented by the
Gomega matcher library.")
(license license:expat)))
;;;
;;; 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

8
gnu/packages/gstreamer.scm
View file

@ -791,6 +791,14 @@ (define-public gst-plugins-bad
;; 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 @@ (define-module (gnu packages gtk)
#: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 @@ (define-public guile-torrent
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 @@ (define-public heads-dev-cpio
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils)
(guix build syscalls)
(guix cpio))
#:builder (begin
(use-modules (guix build utils)

2
gnu/packages/hunspell.scm
View file

@ -46,7 +46,7 @@ (define* (hunspell-dictionary dict-name full-name #:key synopsis home-page licen
(string-append "libreoffice-" version))))
(file-name (git-file-name "libreoffice-dictionaries" version))
(sha256
(base32 "1qyn56kcn2scdlssjgi5b33hnsh20mmnd60w78z0gp7bs0mv0wcs"))))
(base32 "115p29ywyn7ncq664gxmcrrz55v23s34asd2hmrg4ahjp7ycrnmy"))))
(build-system trivial-build-system)
(native-inputs
`(("source" ,source)))

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

File diff suppressed because it is too large Load diff

2
gnu/packages/kde-internet.scm
View file

@ -417,7 +417,7 @@ (define-public ktorrent
phonon
qtbase-5
qtscript
qtwebkit
qtwebengine-5
solid
syndication
taglib))

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

File diff suppressed because it is too large Load diff

2199
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 @@ (define-public ark
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 @@ (define-public kate
(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 @@ (define-public okteta
(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")

316
gnu/packages/kde.scm
View file

@ -68,6 +68,7 @@ (define-module (gnu packages kde)
#: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-module (gnu packages kde)
(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 @@ (define-public baloo-widgets
(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 @@ (define-public grantleetheme
(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 @@ (define-public akregator
kontactinterface
kpimcommon
kpimtextedit
kqtquickcharts
kquickcharts
ktexteditor
kuserfeedback
libkdepim
@ -220,7 +221,7 @@ (define-public akregator
(define-public kdenlive
(package
(name "kdenlive")
(version "22.04.3")
(version "22.08.1")
(source
(origin
(method git-fetch)
@ -229,7 +230,7 @@ (define-public kdenlive
(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 @@ (define-public kdenlive
(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))
@ -344,7 +345,7 @@ (define-public kdevelop
qtdeclarative-5
qtquickcontrols-5 ;; not checked as requirement
qtquickcontrols2-5 ;; not checked as requirement
qtwebkit
qtwebengine-5
threadweaver
;; recommendes
astyle
@ -443,6 +444,102 @@ (define-public kdiagram
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 @@ (define-public massif-visualizer
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 @@ (define-public qca
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 @@ (define-public kpmcore
"/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 @@ (define-public kpmcore
(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 @@ (define-public snorenotify
(define-public kdeconnect
(package
(name "kdeconnect")
(version "22.04.3")
(version "22.08.1")
(source
(origin
(method url-fetch)
@ -712,7 +935,7 @@ (define-public kdeconnect
version ".tar.xz"))
(sha256
(base32
"015gxglclds2vmjr4bv51yfv840bafzgrl71cnwgnwwy8rrh9x4x"))))
"1yzx49gcm7x2wdk53iznyjz09y2a6mrrhh68xilbcsafyiw3l3zr"))))
(build-system qt-build-system)
(arguments
`(#:configure-flags '("-DBUILD_TESTING=ON"
@ -741,6 +964,7 @@ (define-public kdeconnect
kpeoplevcard
kwayland
libfakekey
plasma-wayland-protocols
pulseaudio-qt
qca
qqc2-desktop-style
@ -847,41 +1071,17 @@ (define-public labplot
(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 @@ (define-public ktimer
(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 @@ (define-public kcachegrind
(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 @@ (define-public libkdegames
(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 @@ (define-public marble-qt
(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 @@ (define-public marble-qt
(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 @@ (define-public okular
(define-public poxml
(package
(name "poxml")
(version "22.04.3")
(version "22.08.1")
(source (origin
(method url-fetch)
(uri
@ -1144,7 +1344,7 @@ (define-public poxml
"/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 @@ (define-public poxml
(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 @@ (define-public kdegraphics-mobipocket
(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))

70
gnu/packages/libreoffice.scm
View file

@ -9,7 +9,7 @@
;;; Copyright © 2017, 2018, 2019, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017, 2018, 2019, 2022 Marius Bakke <marius@gnu.org>
;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018, 2019, 2022 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2018, 2020 Jonathan Brielmaier <jonathan.brielmaier@web.de>
;;; Copyright © 2019 Chris Marusich <cmmarusich@gmail.com>
;;; Copyright © 2020 Marcin Karpezo <sirmacik@wioo.waw.pl>
@ -30,6 +30,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages libreoffice)
#:use-module (guix build-system cmake)
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system gnu)
#:use-module (guix build-system python)
@ -66,6 +67,7 @@ (define-module (gnu packages libreoffice)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gperf)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages graphics)
#:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk)
#:use-module (gnu packages icu4c)
@ -696,14 +698,14 @@ (define-public libodfgen
(define-public libmwaw
(package
(name "libmwaw")
(version "0.3.19")
(version "0.3.21")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/libmwaw/libmwaw/libmwaw-"
version "/libmwaw-" version ".tar.xz"))
(sha256
(base32 "1bx5xnw8sk5h26x2z7hfac7hfbm68zqg0jilp15qr0pwxqsf4wmj"))))
(base32 "07629xwvlkqj08j13aj9lsq0pwm7r0v7g2zprr1vjqcdlwih2xg8"))))
(build-system gnu-build-system)
(native-inputs
(list doxygen pkg-config))
@ -1093,6 +1095,45 @@ (define-public libqxp
converting QuarkXPress file format. It supports versions 3.1 to 4.1.")
(license license:mpl2.0)))
(define-public dragonbox
(package
(name "dragonbox")
(version "1.1.3")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jk-jeon/dragonbox")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0qxx94s2kfgnlnyl1gwmbxkksr3dipvb99zdyi5skw3z2bq563sa"))))
(build-system cmake-build-system)
(arguments (list #:tests? #false)) ;no test target
(home-page "https://github.com/jk-jeon/dragonbox")
(synopsis "Float-to-string conversion algorithm")
(description "Dragonbox generates a pair of integers from a floating-point
number: the decimal significand and the decimal exponent of the input
floating-point number. These integers can then be used for string generation
of decimal representation of the input floating-point number, the procedure
commonly called @code{ftoa} or @code{dtoa}.")
(license license:asl2.0)))
(define-public dragonbox-for-libreoffice
(package
(inherit dragonbox)
(name "dragonbox")
(version "1.0.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jk-jeon/dragonbox")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"11h9xhpzp61rfyh1nnca5shzi40skgpdql080k5cb6cfy672s1qz"))))))
(define dtoa
(origin
(method url-fetch)
@ -1105,7 +1146,7 @@ (define dtoa
(define-public libreoffice
(package
(name "libreoffice")
(version "7.3.5.2")
(version "7.4.3.2")
(source
(origin
(method url-fetch)
@ -1114,7 +1155,7 @@ (define-public libreoffice
"https://download.documentfoundation.org/libreoffice/src/"
(version-prefix version 3) "/libreoffice-" version ".tar.xz"))
(sha256
(base32 "14g9873x8m5yakpq7v9f7lhc5fkxh6yhjhgh0pm30cqmxsqhsglv"))))
(base32 "0fyvd4ydh72lmn005h190xa563d4h376pi1fx9lfr5i25qcbpg7z"))))
(build-system glib-or-gtk-build-system)
(arguments
(list
@ -1147,19 +1188,24 @@ (define-public libreoffice
(("GPGMEPP_CFLAGS=-I/usr/include/gpgme\\+\\+")
(string-append "GPGMEPP_CFLAGS=-I"
(search-input-directory inputs
"include/gpgme++"))))
"include/gpgme++")))
(("DRAGONBOX_CFLAGS=-I/usr/include/dragonbox-1.0.0")
(string-append "DRAGONBOX_CFLAGS=-I"
(search-input-directory inputs
"include/dragonbox-1.0.0"))))
;; /usr/bin/xdg-open doesn't exist on Guix System.
(substitute* '("shell/source/unix/exec/shellexec.cxx"
"shell/source/unix/misc/senddoc.sh")
(("/usr/bin/xdg-open")
(search-input-file inputs "/bin/xdg-open")))))
(search-input-file inputs "/bin/xdg-open")))
(setenv "CPPFLAGS" "-std=c++17")))
(add-after 'install 'reset-zip-timestamps
(lambda _
(for-each (lambda (file)
(invoke "ziptime" file))
;; So many different extensions for .zip files.
(find-files #$output "\\.(bau|dat|otp|ott|zip)$"))))
(find-files #$output "\\.(bau|dat|otg|otp|ott|zip)$"))))
(add-after 'install 'bin-and-desktop-install
;; Create 'soffice' and 'libreoffice' symlinks to the executable
;; script.
@ -1235,6 +1281,10 @@ (define (install-appdata app)
;; when our default compiler is >=GCC 6.
"--disable-pdfium"
"--without-doxygen"
;; Avoid linker errors about non-virtual thunks on i686-linux.
"--enable-lto"
;; Avoid errors rebuilding the Gtk icon cache, at least on i686-linux.
"--without-galleries"
"--enable-build-opensymbol")))
(native-inputs
(list bison
@ -1251,6 +1301,7 @@ (define (install-appdata app)
clucene
cups
dbus-glib
dragonbox-for-libreoffice
firebird
fontconfig
fontforge
@ -1271,6 +1322,7 @@ (define (install-appdata app)
libcdr
libcmis
libcuckoo
libfixmath
libjpeg-turbo
libe-book
libepubgen
@ -1287,7 +1339,9 @@ (define (install-appdata app)
libpagemaker
libqxp
libstaroffice
libtiff
libvisio
libwebp
libwpg
libwps
libxrandr

327
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 @@ (define-module (gnu packages linux)
#: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 @@ (define-module (gnu packages linux)
#: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)
@ -355,7 +357,7 @@ (define (%upstream-linux-source version hash)
;; The current "stable" kernels. That is, the most recently released major
;; versions that are still supported upstream.
(define-public linux-libre-6.0-version "6.0.9")
(define-public linux-libre-6.0-version "6.0.10")
(define-public linux-libre-6.0-gnu-revision "gnu")
(define deblob-scripts-6.0
(linux-libre-deblob-scripts
@ -365,7 +367,7 @@ (define deblob-scripts-6.0
(base32 "06iqxkg5hakzvmz6gcz878k1sr553zbng2j1b2whgfg7zmhxkb34")))
(define-public linux-libre-6.0-pristine-source
(let ((version linux-libre-6.0-version)
(hash (base32 "1irip1yk62carcisxlacwcxsiqib4qswx6h5mfhv8f97x04a4531")))
(hash (base32 "1l0xak4w7c16cg8lhracy8r18zzdl0x5s654w6ivyw6dhk6pzr9r")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-6.0)))
@ -373,7 +375,7 @@ (define-public linux-libre-6.0-pristine-source
;; The "longterm" kernels — the older releases with long-term upstream support.
;; Here are the support timelines:
;; <https://www.kernel.org/category/releases.html>
(define-public linux-libre-5.15-version "5.15.79")
(define-public linux-libre-5.15-version "5.15.80")
(define-public linux-libre-5.15-gnu-revision "gnu")
(define deblob-scripts-5.15
(linux-libre-deblob-scripts
@ -383,12 +385,12 @@ (define deblob-scripts-5.15
(base32 "0h8a48dvgxyj3v08lp99kh5pfa93r4rks78cj0j1rwz1516xk8h3")))
(define-public linux-libre-5.15-pristine-source
(let ((version linux-libre-5.15-version)
(hash (base32 "0m61k7k6lj24z9a266q08wzghggjik2wizcabdwd1vn0vcqr18yb")))
(hash (base32 "0kgxznd3sfbmnygjvp9dzhzg5chxlaxk6kldxmh1y0njcrj1lciv")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.15)))
(define-public linux-libre-5.10-version "5.10.155")
(define-public linux-libre-5.10-version "5.10.156")
(define-public linux-libre-5.10-gnu-revision "gnu1")
(define deblob-scripts-5.10
(linux-libre-deblob-scripts
@ -398,42 +400,42 @@ (define deblob-scripts-5.10
(base32 "1m9l554w6a72mq0kf7ggm44z247m2yz6zhafwqxh96qpjpcaabpj")))
(define-public linux-libre-5.10-pristine-source
(let ((version linux-libre-5.10-version)
(hash (base32 "1wyla96qsdf50n7qjj4hdf36bj56whv7gc9mgw9bvrsqdi92gc7i")))
(hash (base32 "08srjps110zi4ivzh0z2jf78ddyfj2wivdliffb2f03jr9j9k7k7")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.10)))
(define-public linux-libre-5.4-version "5.4.224")
(define-public linux-libre-5.4-version "5.4.225")
(define-public linux-libre-5.4-gnu-revision "gnu1")
(define deblob-scripts-5.4
(linux-libre-deblob-scripts
linux-libre-5.4-version
linux-libre-5.4-gnu-revision
(base32 "1nlgk8ajb5wl3aa96h9a0pb9j5a5wmrbpk63varn557x1d00r7wj")
(base32 "1vnjbdyssa7dwyjl9kg35alwvf7yh597cl74yr1wy2gk5bc9paw6")))
(base32 "1bgblfkcnrabnr9hpdl07qgps57h6bq4v5pjrxs798vq43db66va")))
(define-public linux-libre-5.4-pristine-source
(let ((version linux-libre-5.4-version)
(hash (base32 "0dixs4w7nmkjgxv9dxgjdy8v6r4parkpqyvdfyr0wqk0amdz4zcb")))
(hash (base32 "1ak0qlxzfylgvkldh2whq4mzynh1rymhnnc1yif9a5s3f7v9dxar")))
(make-linux-libre-source version
(%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.267")
(define-public linux-libre-4.19-gnu-revision "gnu1")
(define deblob-scripts-4.19
(linux-libre-deblob-scripts
linux-libre-4.19-version
linux-libre-4.19-gnu-revision
(base32 "06pqv050bkii0hc2v7ymny5264w1bca8db0dp1pw9mfmjg865am5")
(base32 "00i91lx938nqlgy63hiricqd0fnbbf26vgya9c5lb7m1f4x324im")))
(base32 "0g1yhzxm3ixfll6n630v7lddcyvf888sg114nimh0lkvzd180s99")))
(define-public linux-libre-4.19-pristine-source
(let ((version linux-libre-4.19-version)
(hash (base32 "1l5cdpgng1gci1p1gdr2jzqw486h3w56gpyc7fbq74hlc6nnwh1p")))
(hash (base32 "035yxx13jz5f5ig2r6ybzgivm8vjafgnvjws0jfzha4w6klf7r9l")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.19)))
(define-public linux-libre-4.14-version "4.14.299")
(define-public linux-libre-4.14-version "4.14.300")
(define-public linux-libre-4.14-gnu-revision "gnu1")
(define deblob-scripts-4.14
(linux-libre-deblob-scripts
@ -443,12 +445,12 @@ (define deblob-scripts-4.14
(base32 "00i91lx938nqlgy63hiricqd0fnbbf26vgya9c5lb7m1f4x324im")))
(define-public linux-libre-4.14-pristine-source
(let ((version linux-libre-4.14-version)
(hash (base32 "0p5ic2mrb9vl3qkzvqxhia3kygjv8xa6s1kqkwgd6b4rmq1kc8r6")))
(hash (base32 "047vmh09icm45g7mnmdvyj9cam7747bcpah1s7n9dm5i2j2f906y")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.14)))
(define-public linux-libre-4.9-version "4.9.333")
(define-public linux-libre-4.9-version "4.9.334")
(define-public linux-libre-4.9-gnu-revision "gnu1")
(define deblob-scripts-4.9
(linux-libre-deblob-scripts
@ -458,7 +460,7 @@ (define deblob-scripts-4.9
(base32 "0bib3641dbcqdkx3anna3caxnsg3nw9cnmhcklq0s93g3m57041h")))
(define-public linux-libre-4.9-pristine-source
(let ((version linux-libre-4.9-version)
(hash (base32 "0ash877gkrrc063h6ncl9d4gzyhndanpxsdgf1a93abbfv281gs1")))
(hash (base32 "0sjh492mfic6llgwb957nj7gd7c0dvqnk97ngq8d50sjsyjznyk9")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.9)))
@ -494,17 +496,20 @@ (define (source-with-patches source patches)
(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 @@ (define (config->string options)
;;; 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 @@ (define* (make-linux-libre version gnu-revision hash-string supported-systems
(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 @@ (define* (make-linux-libre version gnu-revision hash-string supported-systems
#: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 @@ (define* (make-linux-libre* version gnu-revision source supported-systems
;; 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 @@ (define* (make-linux-libre* version gnu-revision source supported-systems
(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 @@ (define* (make-linux-libre* version gnu-revision source supported-systems
("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 @@ (define* (make-linux-libre* version gnu-revision source supported-systems
(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 @@ (define-public gpm
(define-public btrfs-progs
(package
(name "btrfs-progs")
(version "5.18.1")
(version "6.0.2")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kernel.org/linux/kernel/"
@ -5563,7 +5610,7 @@ (define-public btrfs-progs
"btrfs-progs-v" version ".tar.xz"))
(sha256
(base32
"0mbj3j2fpjds9i9gm8kk8a20yjacc562ibd1v9a96bpmrxfag63f"))))
"063hmqwqlmp0llgqnfqgcj7slrv762kmbk6srhrgqifr94q8crb6"))))
(build-system gnu-build-system)
(outputs '("out"
"static")) ; static versions of the binaries in "out"
@ -8456,7 +8503,7 @@ (define-public libinih
(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 @@ (define-public xfsprogs
"xfsprogs-" version ".tar.gz"))
(sha256
(base32
"0368dacdjq55ip38yizs9spdyl7b0b1c0vz3gr1gvcb9rw3a6dnp"))))
"14hc61nfc73nqwhyasc4haj5g7046im1dwz61bx338f86mjj5n5y"))))
(build-system gnu-build-system)
(outputs (list "out" "python"))
(arguments
@ -8503,6 +8550,20 @@ (define-public xfsprogs
;; 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 @@ (define-public cl-2am
(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 @@ (define-public cl-nst
(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 @@ (define-public sbcl-parachute
(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 @@ (define-public cl-should-test
(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"))

603
gnu/packages/lisp-xyz.scm
View file

@ -490,6 +490,39 @@ (define-public cl-inotify
(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 @@ (define-public ecl-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 @@ (define-public cl-ppcre
(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"))
@ -2400,7 +2516,7 @@ (define-public sbcl-calispel
Calispel is a message-passing library, and as such leaves the role of
threading abstractions and utilities left to be filled by complementary
libraries such as Bordeaux-Threads and Eager Future.")
(home-page "https://www.thoughtcrime.us/software/jpl-queues/")
(home-page "https://www.thoughtcrime.us/software/calispel/")
(license license:isc))))
(define-public cl-calispel
@ -2971,6 +3087,89 @@ (define-public cl-mgl-pax
(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 @@ (define-public ecl-cl-autowrap
(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 @@ (define-public sbcl-s-sysdeps
(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 @@ (define-public ecl-s-sysdeps
(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 @@ (define-public sbcl-cl-prevalence
(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 @@ (define-public ecl-form-fiddle
(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 @@ (define-public sbcl-array-utils
(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 @@ (define-public ecl-lass
(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 @@ (define-public sbcl-plump
(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 @@ (define-public cl-archive
(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 @@ (define-public cl-mmap
(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 @@ (define-public cl-custom-hash-table
(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 @@ (define-public cl-deeds
(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 @@ (define-public cl-trivial-benchmark
(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 @@ (define-public ecl-cl-cpus
(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"))
@ -17628,6 +18124,35 @@ (define-public cl-moira
(define-public ecl-moira
(sbcl-package->ecl-package sbcl-moira))
(define-public sbcl-with-user-abort
(let ((commit "60693b4a1354faf17107ad6003b0b870cca37081")
(revision "0"))
(package
(name "sbcl-with-user-abort")
(version (git-version "0.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/compufox/with-user-abort")
(commit commit)))
(file-name (git-file-name "cl-with-user-abort" version))
(sha256
(base32 "0k1xxfvncdw4fx8nncis1ma128bqq05zky1mrzak5rjbivzjm8j1"))))
(build-system asdf-build-system/sbcl)
(home-page "https://github.com/compufox/with-user-abort")
(synopsis "Portability library for catching SIGINT from Common Lisp")
(description
"@code{with-user-abort} is a Common Lisp portability library providing a
like-named macro that catches the SIGINT signal.")
(license license:bsd-3))))
(define-public cl-with-user-abort
(sbcl-package->cl-source-package sbcl-with-user-abort))
(define-public ecl-with-user-abort
(sbcl-package->ecl-package sbcl-with-user-abort))
(define-public sbcl-cl-package-locks
(let ((commit "96a358ede7cef416d61d2f699e724fe1d9de602c")
(revision "1"))
@ -23666,6 +24191,38 @@ (define-public cl-dynamic-mixins
(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 +25014,12 @@ (define-public sbcl-trivial-custom-debugger
(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 @@ (define (make-clang-toolchain clang libomp)
(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 @@ (define (llvm-monorepo version)
(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 @@ (define-public clang-15
(package-version llvm-15)))
(sha256
(base32
"03adxlh84if9p53m6izjsql500rjza9rng8akab2pdqibgrg73rh")))))
"0sa6si9v7ddsa9vmg6s3918xx969rvck2v1a0g7hb0fp9jk9j4r1")))))
(define-public clang-14
(clang-from-llvm
@ -1522,7 +1522,7 @@ (define-public libunwind-headers
(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 @@ (define-public lld-as-ld-wrapper
(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 @@ (define-public lldb
(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 @@ (define-public lldb
(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

110
gnu/packages/lxqt.scm
View file

@ -100,7 +100,7 @@ (define-public libstatgrab
(define-public lxqt-build-tools
(package
(name "lxqt-build-tools")
(version "0.11.0")
(version "0.12.0")
(source
(origin
(method url-fetch)
@ -108,7 +108,7 @@ (define-public lxqt-build-tools
"/download/" version
"/lxqt-build-tools-" version ".tar.xz"))
(sha256
(base32 "1ff1pkrlxd8h0j8v49p6wrfhnqrz8s5b53hi835m41cvkzjljpfx"))))
(base32 "0c4mm167hk0yihryi46d80ghxx2lwzkpivs4yj5wsfvdpbv5q1qh"))))
(build-system cmake-build-system)
(arguments
(list
@ -148,7 +148,7 @@ (define-public lxqt-build-tools
(define-public libqtxdg
(package
(name "libqtxdg")
(version "3.9.1")
(version "3.10.0")
(source
(origin
(method url-fetch)
@ -156,7 +156,7 @@ (define-public libqtxdg
"https://github.com/lxqt/libqtxdg/releases/download/"
version "/libqtxdg-" version ".tar.xz"))
(sha256
(base32 "1kh4hv59bkjifq20ksh1mizf9mp7x30v6fpwccr45mi7hasqvvfi"))))
(base32 "18mz3mxcnz6awkkgxnfg5p43d4lv92vamxk1d0xzdxrp9symfd9v"))))
(build-system cmake-build-system)
(arguments
'(#:configure-flags
@ -183,7 +183,7 @@ (define-public libqtxdg
(define-public qtxdg-tools
(package
(name "qtxdg-tools")
(version "3.9.1")
(version "3.10.0")
(source
(origin
(method url-fetch)
@ -191,7 +191,7 @@ (define-public qtxdg-tools
"https://github.com/lxqt/qtxdg-tools/releases/download/"
version "/qtxdg-tools-" version ".tar.xz"))
(sha256
(base32 "0qn35v4dv71g0a4cqkbikppwmihxmfa560q9kw5pwk2y0xiwpncr"))))
(base32 "0iyn0s2mck948vzlmq6hk4p93i9z59h50z6m2kdhzv9ck2axvlik"))))
(build-system cmake-build-system)
(arguments '(#:tests? #f)) ; no tests
(propagated-inputs (list libqtxdg))
@ -206,7 +206,7 @@ (define-public qtxdg-tools
(define-public liblxqt
(package
(name "liblxqt")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
@ -214,7 +214,7 @@ (define-public liblxqt
"https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1fickg1q54pcb8bv3x0ydg4xx02cqykibnjcq09as2kws6xbhk9n"))))
(base32 "057cdxmz6kh3p1vpbwah4i99hdknh22w2w8wqfiws2d4n6wwiavz"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ; no tests
@ -270,14 +270,14 @@ (define-public libsysstat
(define-public lxqt-about
(package
(name "lxqt-about")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "03bqhbpdnfpan3l4snzzz6j0054m4r9zcgygcg21znslwicbqnw3"))))
(base32 "0xah1qhzr5q20dj637c91bjrv9gy0z65d3jv6pjsp1kz5cwa8gsr"))))
(build-system cmake-build-system)
(inputs
(list kwindowsystem
@ -305,14 +305,14 @@ (define-public lxqt-about
(define-public lxqt-admin
(package
(name "lxqt-admin")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1zah3xdnif9miaq52mmfbbzvqjhca7w7h81ngrn25j9pvd2bflm8"))))
(base32 "1bjmarrra43gcnzi8i0g0lcam12hhgr2yi8dji6klmrcp4k67y89"))))
(build-system cmake-build-system)
(inputs
(list kwindowsystem
@ -343,14 +343,14 @@ (define-public lxqt-admin
(define-public lxqt-config
(package
(name "lxqt-config")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "0f0x82qma86kjdvn08qlg0ydxh9fnqikijfhnicynxdqfnp50ia5"))))
(base32 "0h0n5an1pp3k50g4p2dxymy0lsnsh7m46gb22ndam69hdkflw71y"))))
(build-system cmake-build-system)
(inputs
(list eudev
@ -393,7 +393,7 @@ (define-public lxqt-config
(define-public lxqt-globalkeys
(package
(name "lxqt-globalkeys")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
@ -401,7 +401,7 @@ (define-public lxqt-globalkeys
"releases/download/" version "/"
"lxqt-globalkeys-" version ".tar.xz"))
(sha256
(base32 "0bbw85aa59w0qnvkdggm3hbacps6yfcvcrs32d34mvvhc7d6g04l"))))
(base32 "1s49b8kly027f3amxcf2bx8id3jmmrl8365x7676bd8x2g5v3va2"))))
(build-system cmake-build-system)
(inputs
(list kwindowsystem
@ -423,14 +423,14 @@ (define-public lxqt-globalkeys
(define-public lxqt-notificationd
(package
(name "lxqt-notificationd")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "0bz3qdvv591zvpkxqzqqmh1yq5icc3iinmjr13qzws3ajlj19z44"))))
(base32 "1qlvk12ldqwxskxy283h6yqhn8rp29vynqs1lhwn8byli792nb7y"))))
(build-system cmake-build-system)
(inputs
(list kwindowsystem
@ -451,14 +451,14 @@ (define-public lxqt-notificationd
(define-public lxqt-openssh-askpass
(package
(name "lxqt-openssh-askpass")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1hxix513z2sanmygfzq1fgx30kaxw5rjmmklbyyzl8bv1xzjcwk7"))))
(base32 "0w662issh8cagmza881wdrxbngn33w8shp0jvzna1f8pf9g9f7bj"))))
(build-system cmake-build-system)
(inputs
(list kwindowsystem
@ -479,14 +479,14 @@ (define-public lxqt-openssh-askpass
(define-public lxqt-panel
(package
(name "lxqt-panel")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "11dg18ac6kj8qkkrg940bzpykjih6nnw8y3hfww3wiyg6dka9gd7"))))
(base32 "1m0mm07ydmdlyyi6s4q1cwpxp609kcyc3gcmwbmyf0smadan3yd8"))))
(build-system cmake-build-system)
(inputs
(list alsa-lib
@ -538,14 +538,14 @@ (define-public lxqt-panel
(define-public lxqt-policykit
(package
(name "lxqt-policykit")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "150ggcfprascnwgsz721vnmay9cbar9annlhp6h2yzkl69iyc49r"))))
(base32 "01wyqhrapim0pzkghr54g0z8drhlmcszwpb6p8qfqds90k1vq6gc"))))
(build-system cmake-build-system)
(inputs
(list kwindowsystem
@ -568,14 +568,14 @@ (define-public lxqt-policykit
(define-public lxqt-powermanagement
(package
(name "lxqt-powermanagement")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "0zy6abbf3iwrxsr18gbxidb4m5spsigpa2778xg7y9r7fwgmqqkk"))))
(base32 "1b0m3nllfx5fcwpkp73ac7fbw0jn86h90k5y3r674csm46zs3c05"))))
(build-system cmake-build-system)
(inputs
(list kidletime
@ -600,14 +600,14 @@ (define-public lxqt-powermanagement
(define-public lxqt-qtplugin
(package
(name "lxqt-qtplugin")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1zw79lnm35gj3dyd4vlnk08n1lnr8391n36nbn81d0fgmvs21yx4"))))
(base32 "06cdx4fffggk2wjfpi8zlbkiapmbqq2qsz25cngg4kqznq0kayb3"))))
(build-system cmake-build-system)
(inputs
(list libdbusmenu-qt
@ -637,14 +637,14 @@ (define-public lxqt-qtplugin
(define-public lxqt-runner
(package
(name "lxqt-runner")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1wfng8g28mq97ibrgpfbj353i15vdimmjp83pfqrmkddx0yvzcdv"))))
(base32 "0kighmlm9hqmw8h41fbmwqyy8qs06q2bbja6snw8j1a2yvz636qz"))))
(build-system cmake-build-system)
(inputs
(list kwindowsystem
@ -668,14 +668,14 @@ (define-public lxqt-runner
(define-public lxqt-session
(package
(name "lxqt-session")
(version "1.1.1")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "0j8q5jfpb2l0vvji3xs8y0jcr792z6sxzj111qqvmdrbpxrkwxnw"))))
(base32 "0rjw3rw6kpaa3csrga005qg5bxmdxfgrnn1qngs2nrny35v97ckl"))))
(build-system cmake-build-system)
(inputs
(list eudev
@ -726,14 +726,14 @@ (define-public lxqt-session
(define-public lxqt-sudo
(package
(name "lxqt-sudo")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "064w40v43m91y9aywxxf2pj5rpcl4gbsgj7dv97pg4vhj9s790b8"))))
(base32 "0lx889bpadgizgca37rwll5hlxnbpqpzxnpscyc35n72vyix8m7k"))))
(build-system cmake-build-system)
(inputs
(list kwindowsystem
@ -756,14 +756,14 @@ (define-public lxqt-sudo
(define-public lxqt-themes
(package
(name "lxqt-themes")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "18zrp2j0xpsrzy6m2dw8k55zczcc9jzavncasrp5j1dxscnzwrcr"))))
(base32 "1w566l7xcqscnx5k4f59c2cp4hb4bf2lvqgd9lvdv7dd43qb848z"))))
(build-system cmake-build-system)
(native-inputs
(list lxqt-build-tools))
@ -782,14 +782,14 @@ (define-public lxqt-themes
(define-public libfm-qt
(package
(name "libfm-qt")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "0m2fq1wh553yqi64a5nrdvm57fk3jnc3kxgaf0ja7h95jw6czvm5"))))
(base32 "0b423s6bkwijjrh14wca49ypz79sxci9lalxc5s29vwbhync09x0"))))
(build-system cmake-build-system)
(arguments
'(#:tests? #f)) ; no tests
@ -813,14 +813,14 @@ (define-public libfm-qt
(define-public pcmanfm-qt
(package
(name "pcmanfm-qt")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "0pwl2j5kbs86vmq86phavq89bl2i82ic839bjk0v8kmxm9q2mrh9"))))
(base32 "1k44a659mval4513p4yv63hqrbg9jqc8vrinl4mx5aja33pww5yg"))))
(build-system cmake-build-system)
(arguments
(list
@ -873,14 +873,14 @@ (define-public compton-conf
(define-public lximage-qt
(package
(name "lximage-qt")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "0nal8n7nmkafapdbcs9c8rk313md2fak4xjl9m56n10dxcjpi2wb"))))
(base32 "0qz40vlps82nzz62w7d9ar43gmzvlk9wqzm8lwga90vip8gb2zkm"))))
(build-system cmake-build-system)
(inputs
(list libexif libfm-qt qtbase-5 qtsvg-5 qtx11extras))
@ -930,14 +930,14 @@ (define-public obconf-qt
(define-public pavucontrol-qt
(package
(name "pavucontrol-qt")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "0y3ql25cmg1cmzjvadf7zcb58hh69gcslvr944sxxhaqp4daz10v"))))
(base32 "19r3wgs18mc0m4l8znwhycf137xcd53119ribwb069g4j6hiyvz3"))))
(build-system cmake-build-system)
(inputs
(list glib pcre pulseaudio qtbase-5 qtx11extras))
@ -954,14 +954,14 @@ (define-public pavucontrol-qt
(define-public qps
(package
(name "qps")
(version "2.5.0")
(version "2.6.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "16ybq07xpkl22mszakc1175xlqcayyj21i2h6wlxb8bmb7csg30n"))))
(base32 "1i8d11yfcx556cm3jb3j49dmnhizx2zrb7g09xfqdwnqbak3ak9r"))))
(build-system cmake-build-system)
(inputs
(list kwindowsystem
@ -983,14 +983,14 @@ (define-public qps
(define-public qtermwidget
(package
(name "qtermwidget")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1m64c1m8dkb06fgfk09da2anjspphph6qdk41rqhds2qymh090v4"))))
(base32 "13781ljapvk8dy0xd31grx43fqvn62msyb8rlnsa2fv893zl7fj4"))))
(build-system cmake-build-system)
(inputs
(list qtbase-5 utf8proc))
@ -1006,14 +1006,14 @@ (define-public qtermwidget
(define-public qterminal
(package
(name "qterminal")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1b9568y5xyxymk8r7pkz878ba24dyaxql2sfiy6blr8szf308c5l"))))
(base32 "0px42vvmxf3lgd5wwxl260nm18a46943iiqhhmjb0l4xi5s0lhfr"))))
(build-system cmake-build-system)
(inputs
(list qtbase-5 qtx11extras qtermwidget))
@ -1030,14 +1030,14 @@ (define-public qterminal
(define-public screengrab
(package
(name "screengrab")
(version "2.4.0")
(version "2.5.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/screengrab/releases/download/"
version "/screengrab-" version ".tar.xz"))
(sha256
(base32 "14kh287d70v1lpd5w8pji88nmw3jd44q4h927vnszrkv6bwplzx7"))))
(base32 "0jqzpx44x2hbl5yvlx7md9zg2qrnchh54lbbmk8nmgrsa2wps9rv"))))
(build-system cmake-build-system)
(inputs
(list kwindowsystem libqtxdg qtbase-5 qtsvg-5 qtx11extras))
@ -1055,14 +1055,14 @@ (define-public screengrab
(define-public lxqt-archiver
(package
(name "lxqt-archiver")
(version "0.6.0")
(version "0.7.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/lxqt/" name "/releases/download/"
version "/" name "-" version ".tar.xz"))
(sha256
(base32 "1cxxr7rpflh2ki272pac927gzcw2w1lp3qz8vplflf148laigwc0"))))
(base32 "0vd4klwmg4rr0z4zilv6djd3mfin73hdf6jpw3fsrn24yncg7kgq"))))
(build-system cmake-build-system)
(inputs
(list glib json-glib libfm-qt qtbase-5 qtx11extras))
@ -1128,7 +1128,7 @@ (define-public lxqt-connman-applet
(define-public lxqt
(package
(name "lxqt")
(version "17.0")
(version (package-version liblxqt))
(source #f)
(build-system trivial-build-system)
(arguments '(#:builder (begin (mkdir %output) #t)))

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

@ -3224,18 +3224,14 @@ (define-public python-torchfile
(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 @@ (define-public python-hmmlearn
(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))

121
gnu/packages/mail.scm
View file

@ -50,6 +50,7 @@
;;; Copyright © 2022 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2022 muradm <mail@muradm.net>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;; Copyright © 2022 ( <paren@disroot.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -151,6 +152,7 @@ (define-module (gnu packages mail)
#:use-module (gnu packages rdf)
#:use-module (gnu packages readline)
#:use-module (gnu packages ruby)
#:use-module (gnu packages rust-apps)
#:use-module (gnu packages search)
#:use-module (gnu packages serialization)
#:use-module (gnu packages samba)
@ -4557,7 +4559,7 @@ (define-public neatmail
(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
@ -4754,3 +4756,120 @@ (define-public smtpmail
mailserver on their machine. It enables these users to send their mail over a
remote SMTP server.")
(license license:gpl2+)))
(define-public aerc
(package
(name "aerc")
(version "0.13.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://git.sr.ht/~rjarry/aerc")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"18rykklc0ppl53sm9lzhrw6kv4rcc7x45nv7qii7m4qads2pyjm5"))))
(build-system go-build-system)
(arguments
(list #:import-path "git.sr.ht/~rjarry/aerc"
;; Installing the source is only necessary for Go libraries.
#:install-source? #f
#:build-flags
#~(list "-tags=notmuch" "-ldflags"
(string-append "-X main.Version=" #$version
" -X git.sr.ht/~rjarry/aerc/config.shareDir="
#$output "/share/aerc"))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-paths
(lambda* (#:key import-path inputs #:allow-other-keys)
(with-directory-excursion
(string-append "src/" import-path)
(substitute* (list "config/config.go"
"lib/templates/template.go"
"widgets/compose.go"
"widgets/msgviewer.go"
"worker/maildir/worker.go"
"worker/notmuch/worker.go")
(("\"sh\"")
(string-append
"\"" (search-input-file inputs "bin/sh")
"\"")))
(substitute* "commands/z.go"
(("\"zoxide\"")
(string-append
"\"" (search-input-file inputs "bin/zoxide")
"\"")))
(substitute* (list "lib/crypto/gpg/gpg.go"
"lib/crypto/gpg/gpg_test.go"
"lib/crypto/gpg/gpgbin/keys.go"
"lib/crypto/gpg/gpgbin/gpgbin.go")
(("\"gpg\"")
(string-append
"\"" (search-input-file inputs "bin/gpg")
"\""))
(("strings\\.Contains\\(stderr\\.String\\(\\), .*\\)")
"strings.Contains(stderr.String(), \"gpg\")")))))
(add-after 'build 'doc
(lambda* (#:key import-path build-flags #:allow-other-keys)
(invoke "make" "doc" "-C"
(string-append "src/" import-path))))
(replace 'install
(lambda* (#:key import-path build-flags #:allow-other-keys)
(invoke "make" "install" "-C"
(string-append "src/" import-path)
(string-append "PREFIX=" #$output)))))))
(inputs (list gnupg
go-github-com-zenhack-go-notmuch
go-golang-org-x-oauth2
go-github-com-xo-terminfo
go-github-com-stretchr-testify
go-github-com-riywo-loginshell
go-github-com-pkg-errors
go-github-com-mitchellh-go-homedir
go-github-com-miolini-datacounter
go-github-com-mattn-go-runewidth
go-github-com-mattn-go-isatty
go-github-com-lithammer-fuzzysearch
go-github-com-kyoh86-xdg
go-github-com-imdario-mergo
go-github-com-google-shlex
go-github-com-go-ini-ini
go-github-com-gdamore-tcell-v2
go-github-com-gatherstars-com-jwz
go-github-com-fsnotify-fsnotify
go-github-com-emersion-go-smtp
go-github-com-emersion-go-sasl
go-github-com-emersion-go-pgpmail
go-github-com-emersion-go-message
go-github-com-emersion-go-maildir
go-github-com-emersion-go-imap-sortthread
go-github-com-emersion-go-imap
go-github-com-emersion-go-msgauth
go-github-com-emersion-go-mbox
go-github-com-ddevault-go-libvterm
go-github-com-danwakefield-fnmatch
go-github-com-creack-pty
go-github-com-arran4-golang-ical
go-github-com-protonmail-go-crypto
go-github-com-syndtr-goleveldb-leveldb
go-git-sr-ht-sircmpwn-getopt
go-git-sr-ht-rockorager-tcell-term
zoxide))
(native-inputs (list scdoc))
(home-page "https://git.sr.ht/~rjarry/aerc")
(synopsis "Email client for the terminal")
(description "@code{aerc} is a textual email client for terminals. It
features:
@enumerate
@item First-class support for using patches and @code{git send-email}
@item Vi-like keybindings and command system
@item A built-in console
@item Support for multiple accounts
@end enumerate")
;; The license given is MIT/Expat; however, linking against notmuch
;; effectively makes it GPL-3.0-or-later. See this thread discussing it:
;; <https://lists.sr.ht/~rjarry/aerc-devel/%3Cb5cb213a7d0c699a886971658c2476
;; 1073eb2391%40disroot.org%3E>
(license license:gpl3+)))

87
gnu/packages/mate.scm
View file

@ -1490,48 +1490,51 @@ (define-public mate
(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))

287
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 @@ (define-module (gnu packages maths)
#: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 @@ (define-public arpack-ng
(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")
@ -2426,6 +2415,43 @@ (define-public gecode
systems and applications. It provides a modular and extensible solver.")
(license license:expat)))
(define-public libfixmath
(let ((commit "1416c9979635c69f344d3c1de84b3246001a6540")
(revision "1"))
(package
(name "libfixmath")
(version (git-version "0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/PetteriAimonen/libfixmath")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1vnpycw30rq3xwqyvj20l7pnw74dc4f27304i0918igsrdsjw501"))))
(build-system cmake-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(replace 'install
(lambda _
(let ((includes (string-append #$output "/include/libfixmath"))
(lib (string-append #$output "/lib")))
(mkdir-p includes)
(for-each (lambda (file)
(install-file file includes))
(find-files "../source" "\\.h(pp)?$"))
(for-each (lambda (file)
(install-file file lib))
(find-files "." "\\.a$"))))))))
(home-page "https://code.google.com/archive/p/libfixmath/")
(synopsis "Cross platform fixed point maths library")
(description "This library implements the @file{math.h} functions in
fixed point (16.16) format.")
(license license:expat))))
(define-public libflame
(package
(name "libflame")
@ -2556,7 +2582,7 @@ (define-public libpotassco
(define-public clasp
(package
(name "clasp")
(version "3.3.6")
(version "3.3.9")
(source (origin
(method git-fetch)
(uri (git-reference
@ -2565,7 +2591,7 @@ (define-public clasp
(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 +2787,7 @@ (define (compile-file top-dir)
(define-public octave-cli
(package
(name "octave-cli")
(version "7.1.0")
(version "7.2.0")
(source
(origin
(method url-fetch)
@ -2769,7 +2795,7 @@ (define-public octave-cli
version ".tar.xz"))
(sha256
(base32
"0wv26nsfi6cq80np6p4av4wfrvbaflca6szajf6c60mbpdg63m1z"))))
"0w81ncl9d4x1ay3ylsag87k20c0byiyjcmfd9kb7b7ylr71pivsa"))))
(build-system gnu-build-system)
(inputs
`(("alsa-lib" ,alsa-lib)
@ -2937,7 +2963,7 @@ (define-public opencascade-oce
(define-public opencascade-occt
(package
(name "opencascade-occt")
(version "7.6.0")
(version "7.6.2")
(source
(origin
(method git-fetch)
@ -2949,7 +2975,7 @@ (define-public opencascade-occt
version)))))
(file-name (git-file-name name version))
(sha256
(base32 "1rcwm9fkx0j4wrsyikb6g7qd611kpry7dand5dzdjvs5vzd13zvd"))
(base32 "07z5d83vm9f50an7vhimzl7gbmri1dn6p2g999l5fgyaj5sg5f02"))
(modules '((guix build utils)))
(snippet
'(begin
@ -4874,7 +4900,7 @@ (define-public openspecfun
(define-public suitesparse
(package
(name "suitesparse")
(version "5.12.0")
(version "5.13.0")
(source
(origin
(method git-fetch)
@ -4884,7 +4910,7 @@ (define-public suitesparse
(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 +6851,7 @@ (define-public dune-alugrid
"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 +7402,221 @@ (define-public kissat
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 @@ (define-module (gnu packages mpd)
#: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 @@ (define-module (gnu packages mpd)
#: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 @@ (define-module (gnu packages mpd)
#: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 @@ (define-public sonata
(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 @@ (define-public ashuffle
(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 @@ (define-public mpdevil
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.3")
(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
"16cvjwbyb1m88kmgylp95p82a4xdjikmrw9arl6kvmgcbyw317yp"))))
(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+)))

71
gnu/packages/music.scm
View file

@ -2300,10 +2300,10 @@ (define-public synthv1
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 @@ (define-public drumkv1
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 @@ (define-public samplv1
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 @@ (define-public padthv1
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 @@ (define-public qtractor
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
@ -3932,27 +3931,27 @@ (define-public schismtracker
(define-public sooperlooper
(package
(name "sooperlooper")
(version "1.7.6")
(version "1.7.8")
(source
(origin
(method url-fetch)
(uri (string-append "http://essej.net/sooperlooper/sooperlooper-"
version ".tar.gz"))
(uri (string-append "https://sonosaurus.com/sooperlooper"
"/sooperlooper-" version ".tar.gz"))
(sha256
(base32 "0kbb1pj62rl32c88j6p7dg823kvs0gb5s42qy3bl6yg0wn10dksj"))))
(base32 "0dd2kryizwrzndbwafpbddf9w2ghw9gfmb8nyss5hll70b1dx59f"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'add-sigc++-includes
(lambda* (#:key inputs #:allow-other-keys)
(let ((sig (assoc-ref inputs "libsigc++"))
(xml (assoc-ref inputs "libxml2"))
(let ((sig (search-input-directory inputs "include/sigc++-2.0"))
(xml (search-input-directory inputs "include/libxml2"))
(cwd (getcwd)))
(setenv "CPATH"
(string-append sig "/include/sigc++-2.0:"
sig "/lib/sigc++-2.0/include:"
xml "/include/libxml2/:"
(string-append sig ":"
sig "../../lib/sigc++-2.0/include:"
xml ":"
cwd "/libs/pbd:"
cwd "/libs/midi++:"
(or (getenv "CPATH") ""))))
@ -3979,19 +3978,19 @@ (define-public sooperlooper
(("static char") "static const char"))
#t)))))
(inputs
`(("jack" ,jack-1)
("alsa-lib" ,alsa-lib)
("wxwidgets" ,wxwidgets-gtk2)
("libsndfile" ,libsndfile)
("libsamplerate" ,libsamplerate)
("liblo" ,liblo)
("rubberband" ,rubberband)
("libxml2" ,libxml2)
("libsigc++" ,libsigc++-2)
("ncurses" ,ncurses)))
(list jack-1
alsa-lib
wxwidgets-gtk2
libsndfile
libsamplerate
liblo
rubberband
libxml2
libsigc++-2
ncurses))
(native-inputs
(list pkg-config))
(home-page "http://essej.net/sooperlooper/")
(home-page "https://sonosaurus.com/sooperlooper/")
(synopsis "Live looping sampler")
(description
"SooperLooper is a live looping sampler capable of immediate loop

21
gnu/packages/networking.scm
View file

@ -593,7 +593,7 @@ (define-public rtmpdump
(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 @@ (define-public slurm-monitor
(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 @@ (define-public ethtool
(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-module (gnu packages nickle)
(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))

16
gnu/packages/ocaml.scm
View file

@ -1718,7 +1718,7 @@ (define-public ocaml-stringext
(define dune-bootstrap
(package
(name "dune")
(version "3.5.0")
(version "3.6.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1727,7 +1727,7 @@ (define dune-bootstrap
(file-name (git-file-name name version))
(sha256
(base32
"10fpybiqqkmm7y9xmhy4qs451dydmffcjg13k7w8g2p9dd09jb6l"))))
"0gv851wxbv5ln20429nj7p92spzxgw8vngg9z94q39aawn6q8lx6"))))
(build-system ocaml-build-system)
(arguments
`(#:tests? #f; require odoc
@ -2085,14 +2085,14 @@ (define-public ocaml4.09-result
(define-public ocaml-topkg
(package
(name "ocaml-topkg")
(version "1.0.5")
(version "1.0.6")
(source (origin
(method url-fetch)
(uri (string-append "http://erratique.ch/software/topkg/releases/"
"topkg-" version ".tbz"))
(sha256
(base32
"1iyinmcfqpprk7k4cc51nqgypayprbj4larwcfqw86k5dri84825"))))
"11ycfk0prqvifm9jca2308gw8a6cjb1hqlgfslbji2cqpan09kpq"))))
(build-system ocaml-build-system)
(native-inputs
(list opam ocamlbuild))
@ -4310,7 +4310,7 @@ (define-public ocaml-charinfo-width
(define-public ocaml-zed
(package
(name "ocaml-zed")
(version "3.2.0")
(version "3.2.1")
(home-page "https://github.com/ocaml-community/zed")
(source
(origin
@ -4320,7 +4320,7 @@ (define-public ocaml-zed
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1g171kk5wxnk66d4vwz2crh5i19vhqghp78iybl5am17gl9qf8pb"))))
(base32 "17zdbm422y0qznc659civ9bmahhrbffxa50f8dnykiaq8v2ci91l"))))
(build-system dune-build-system)
(propagated-inputs
(list ocaml-react
@ -8456,7 +8456,7 @@ (define-public ocaml-cohttp
(define-public js-of-ocaml
(package
(name "js-of-ocaml")
(version "4.0.0")
(version "4.1.0")
(source
(origin
(method git-fetch)
@ -8465,7 +8465,7 @@ (define-public js-of-ocaml
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0iyhl9z57j53j2jvyqcwmxhbvy23l6g80aa0abmlgwam14yskspf"))))
(base32 "14ig69iyc9yzniclfsc6cz9g9zqp96bs66y6dy4rzrm78s81w6i1"))))
(build-system dune-build-system)
(arguments
`(#:tests? #f ;tests assume ocaml 4.13

4
gnu/packages/package-management.scm
View file

@ -1918,14 +1918,14 @@ (define-public libostree
(define-public flatpak
(package
(name "flatpak")
(version "1.14.0")
(version "1.14.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/flatpak/flatpak/releases/download/"
version "/flatpak-" version ".tar.xz"))
(sha256
(base32 "05bqy9kwmaj32y7f94fydcz3k63bsgn4mbcp4pglv8hffxrnj9wf"))
(base32 "17ykbp5lmlbv6241vw55zgqdp34wc12jbj5nhs4wb3018crq4g0a"))
(patches
(search-patches "flatpak-fix-path.patch"
"flatpak-unset-gdk-pixbuf-for-sandbox.patch"))))

67
gnu/packages/password-utils.scm
View file

@ -218,7 +218,7 @@ (define-public keepassxc
(define-public pwsafe
(package
(name "pwsafe")
(version "3.54.1")
(version "3.60.0")
(home-page "https://www.pwsafe.org/")
(source
(origin
@ -227,23 +227,20 @@ (define-public pwsafe
(url "https://github.com/pwsafe/pwsafe")
(commit version)))
(sha256
(base32 "0d51dlw98mv23nwb0b5jyji8gnb9f5cnig6kivfljl97lmr6lhvf"))
(base32 "064y78sqr8h9mq922spi4r13ga0a1j09mfh4kc4pn7j697nl6b5y"))
(file-name (git-file-name name version))))
(build-system cmake-build-system)
(native-inputs
`(("gettext" ,gettext-minimal)
("gtest" ,googletest)
("perl" ,perl)
("zip" ,zip)))
(inputs `(("curl" ,curl)
("file" ,file)
("libuuid" ,util-linux "lib")
("libxt" ,libxt)
("libxtst" ,libxtst)
("openssl" ,openssl)
("qrencode" ,qrencode)
("wxwidgets" ,wxwidgets)
("xerces-c" ,xerces-c)))
(list gettext-minimal googletest perl zip))
(inputs (list curl
file
`(,util-linux "lib")
libxt
libxtst
openssl
qrencode
wxwidgets
xerces-c))
(arguments '(#:configure-flags (list "-DNO_GTEST=YES")
#:phases (modify-phases %standard-phases
(add-after 'unpack 'add-gtest
@ -1455,3 +1452,43 @@ (define-public pass-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

23
gnu/packages/patches/audacity-ffmpeg-fallback.patch
View file

@ -8,13 +8,11 @@ it. This dynamic loading mechanism fails to properly locate libraries outside
of LD_LIBRARY_PATH.
See <https://issues.guix.gnu.org/53591>.
---
libraries/lib-ffmpeg-support/CMakeLists.txt | 8 ++++++++
libraries/lib-ffmpeg-support/FFmpegFunctions.cpp | 12 ++++++++++++
2 files changed, 20 insertions(+)
Bugs-added-by: Marius Bakke <marius@gnu.org>
diff --git a/libraries/lib-ffmpeg-support/CMakeLists.txt b/libraries/lib-ffmpeg-support/CMakeLists.txt
index 8c5f06d7c..00810e4d0 100644
index b8803a1f5..f86559cca 100644
--- a/libraries/lib-ffmpeg-support/CMakeLists.txt
+++ b/libraries/lib-ffmpeg-support/CMakeLists.txt
@@ -1,5 +1,7 @@
@ -25,7 +23,7 @@ index 8c5f06d7c..00810e4d0 100644
set( SOURCES
FFmpegTypes.h
@@ -100,6 +102,12 @@ if (${_OPT}use_ffmpeg)
@@ -107,6 +109,12 @@ if (${_OPT}use_ffmpeg)
list(APPEND DEFINITIONS PRIVATE _DARWIN_C_SOURCE )
endif()
@ -39,10 +37,10 @@ index 8c5f06d7c..00810e4d0 100644
"${DEFINITIONS}" ""
)
diff --git a/libraries/lib-ffmpeg-support/FFmpegFunctions.cpp b/libraries/lib-ffmpeg-support/FFmpegFunctions.cpp
index 66d085a0b..4eeb4aed3 100644
index 55d6f676b..46640ef83 100644
--- a/libraries/lib-ffmpeg-support/FFmpegFunctions.cpp
+++ b/libraries/lib-ffmpeg-support/FFmpegFunctions.cpp
@@ -238,6 +238,18 @@ struct FFmpegFunctions::Private final
@@ -246,6 +246,18 @@ struct FFmpegFunctions::Private final
if (library->IsLoaded())
return library;
@ -58,9 +56,6 @@ index 66d085a0b..4eeb4aed3 100644
+ }
+#endif
+
// Loading has failed.
// wxLogSysError doesn't report errors correctly on *NIX
#if defined(_WIN32)
--
2.34.0
return {};
}
};

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

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 @@ (define-public perl-common-sense
(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 @@ (define-public protobuf-3.6
;; 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 @@ (define-module (gnu packages python-compression)
#: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-module (gnu packages python-compression)
(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 @@ (define-public python-multivolumefile
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 @@ (define-public python-bcj-cffi
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 @@ (define-public python-isal
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 @@ (define-public python-ppmd-cffi
(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 @@ (define-public python-zopfli
(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 @@ (define-public python-zstandard
(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 @@ (define-public python-google-api-client
(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")

113
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 @@ (define-public python-dogtail
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 @@ (define-public python-empy
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 @@ (define-public python-socksipychain
(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 @@ (define-public python-mpmath
(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 @@ (define-public python-munkres
(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 @@ (define-public python-py3dns
(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")
@ -19629,6 +19665,27 @@ (define-public python-constantly
and bit flag values.")
(license license:expat)))
(define-public python-attrdict
(package
(name "python-attrdict")
(version "2.0.1")
(source (origin
(method url-fetch)
(uri (pypi-uri "attrdict" version))
(sha256
(base32
"0w3vsz64j9npxfgh83hghsh161wwkrx1fxqi1533js2wnnc0dj9m"))))
(build-system python-build-system)
;; The package is no longer maintained and tests need some work.
(arguments '(#:tests? #f))
(propagated-inputs (list python-six))
(home-page "https://github.com/bcj/AttrDict")
(synopsis "Attribute-style access dictionaries")
(description
"This package provides mapping objects whose elements can be accessed
both as keys and as attributes.")
(license license:expat)))
(define-public python-attrs
(package
(name "python-attrs")
@ -27371,14 +27428,14 @@ (define-public python-pypandoc
(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 +27632,8 @@ (define-public python-parallel
"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 +29662,7 @@ (define-public python-pudb
(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/")

540
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 @@ (define-module (gnu packages qt)
#: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 @@ (define-module (gnu packages qt)
#: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 @@ (define-public qite
(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 @@ (define-public materialdecoration
(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 @@ (define-public grantlee
(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 @@ (define-public qtbase
(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 @@ (define-public qttools
(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 @@ (define-public qttools
;; 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 @@ (define-public qtgamepad
(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
@ -2478,16 +2579,16 @@ (define (delete-unwanted-files child stat flag base level)
pciutils
protobuf
pulseaudio
qtbase-5
qtdeclarative-5
qtmultimedia-5
qtwebchannel-5
re2
snappy
eudev
valgrind
vulkan-headers
xcb-util))
(propagated-inputs
;; Required by Qt5WebEngineCoreConfig.cmake.
(list qtbase-5 qtdeclarative-5 qtwebchannel-5))
(arguments
(substitute-keyword-arguments (package-arguments qtsvg-5)
((#:modules modules '())
@ -2882,11 +2983,13 @@ (define (delete-unwanted-files child stat flag base level)
python-html5lib)))
(inputs
(modify-inputs (package-inputs qtwebengine-5)
(replace "qtmultimedia" qtmultimedia)
(append libxkbfile xkeyboard-config)))
(propagated-inputs
(modify-inputs (package-propagated-inputs qtwebengine-5)
(replace "qtbase" qtbase)
(replace "qtdeclarative" qtdeclarative)
(replace "qtmultimedia" qtmultimedia)
(replace "qtwebchannel" qtwebchannel)
(append libxkbfile xkeyboard-config)))
(replace "qtwebchannel" qtwebchannel)))
(native-search-paths
(list (search-path-specification
(file-type 'regular)
@ -2941,8 +3044,7 @@ (define-public single-application-qt5
(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 +3190,7 @@ (define-public python-pyqt
(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 +3315,7 @@ (define-public python-pyqtwebengine
(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 +3475,7 @@ (define-public python-qscintilla
(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 +3503,7 @@ (define-public python-pyqt+qscintilla
(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 +3581,7 @@ (define-public qtsolutions
(("#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 +3605,7 @@ (define-public qtsolutions
(("SUBDIRS\\+=examples") ""))
;; Fix deprecated functions.
(substitute* "qtsoap/src/qtsoap.cpp"
(("toAscii") "toUtf8"))
#t))
(("toAscii") "toUtf8"))))
(replace 'configure
(lambda _
(for-each (lambda (solution)
@ -3518,16 +3613,14 @@ (define-public qtsolutions
(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 +3700,7 @@ (define-public qwt
;; 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 +3942,7 @@ (define-public python-shiboken-2
#: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 +3953,11 @@ (define-public python-shiboken-2
(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 +3995,7 @@ (define-public python-shiboken-6
((#: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 +4049,7 @@ (define-public python-pyside-2
#: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 +4144,7 @@ (define-public python-pyside-6
#: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 +4204,7 @@ (define-public python-pyside-2-tools
#: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 +4381,7 @@ (define-public kdsoap
(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 +4389,349 @@ (define-public kdsoap
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 @@ (define-public libcorrect
(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 @@ (define-public liquid-dsp
(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

8
gnu/packages/ruby.scm
View file

@ -194,7 +194,7 @@ (define-public ruby-2.7
(define ruby-2.7-fixed
(package
(inherit ruby-2.7)
(version "2.7.6")
(version "2.7.7")
(source
(origin
(inherit (package-source ruby-2.7))
@ -203,12 +203,12 @@ (define ruby-2.7-fixed
"/ruby-" version ".tar.gz"))
(sha256
(base32
"042xrdk7hsv4072bayz3f8ffqh61i8zlhvck10nfshllq063n877"))))))
"143vih5jzmrd2r5h94pa3qzml0ldii0qzs6g09jg6zqxd7djf0g1"))))))
(define-public ruby-3.0
(package
(inherit ruby-2.7)
(version "3.0.4")
(version "3.0.5")
(source
(origin
(method url-fetch)
@ -217,7 +217,7 @@ (define-public ruby-3.0
"/ruby-" version ".tar.xz"))
(sha256
(base32
"1w7jpq3flnm007z5kj8kixgm8l4smb80w8ak4993a12j0irzq8lf"))))
"1pnxbdkkh2miq9nqfq2qscvh76nprzg0r620d9ckdzih42xbaz6g"))))
(inputs
(modify-inputs (package-inputs ruby-2.7)
(replace "openssl" openssl)))))

21
gnu/packages/sagemath.scm
View file

@ -170,27 +170,6 @@ (define-public libhomfly
(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 @@ (define-public ausweisapp2
(define-public libfido2
(package
(name "libfido2")
(version "1.11.0")
(version "1.12.0")
(source
(origin
(method git-fetch)
@ -899,21 +899,21 @@ (define-public libfido2
(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 @@ (define-public capnproto
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 @@ (define-public libxls
(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 @@ (define r-with-tests
version ".tar.gz"))
(sha256
(base32
"0gv4di1x835i4nsy21vqw66c0blmmmvyjkixc5a8x117dm4dnljd"))))
"1x9xjl6fyzs8r72zigirp905ki50wzyw9rxf7iqsbbsixi12pxhg"))))
(build-system gnu-build-system)
(arguments
`(#:disallowed-references (,tzdata-for-tests)
@ -310,7 +310,11 @@ (define r-with-tests
(("\\(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 @@ (define r-with-tests
;; 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 @@ (define-public r-minimal
(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 @@ (define-public r-reshape2
(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 @@ (define-public texlive-amsmath
(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"

39
gnu/packages/text-editors.scm
View file

@ -49,6 +49,7 @@ (define-module (gnu packages text-editors)
#: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 @@ (define-module (gnu packages text-editors)
#: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)
@ -494,7 +496,7 @@ (define-public e3
(define-public mg
(package
(name "mg")
(version "20220614")
(version "20221112")
(source (origin
(method git-fetch)
(uri (git-reference
@ -503,7 +505,7 @@ (define-public mg
(file-name (git-file-name name version))
(sha256
(base32
"145qk4bzys4igv98645vikswv9hqym46chh6xb9d82ihsvjq1wjk"))
"1wsib91f277xsx3qi8zmjcd9r9cm078rcf8hii0rwipyn04vxy83"))
(modules '((guix build utils)))
(snippet '(begin
(substitute* "GNUmakefile"
@ -895,6 +897,39 @@ (define-public texmacs
(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 @@ (define-public perl-crypt-openssl-random
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

5
gnu/packages/video.scm
View file

@ -2242,6 +2242,7 @@ (define-public mpv
libxext
libxkbcommon
libxinerama
libxpresent
libxrandr
libxscrnsaver
libxv
@ -2529,7 +2530,7 @@ (define-public youtube-dl
(define-public yt-dlp
(package/inherit youtube-dl
(name "yt-dlp")
(version "2022.10.04")
(version "2022.11.11")
(source
(origin
(method git-fetch)
@ -2538,7 +2539,7 @@ (define-public yt-dlp
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0g2nvslzb9yx2axv6yqxdcdh49ckyipyy9apx1lx6bg6y9rjvx6v"))))
(base32 "00dng4x7xbxp6w76dqkfzzhf2dh3s9pgfd0axs7qar20clj717py"))))
(arguments
(substitute-keyword-arguments (package-arguments youtube-dl)
((#:tests? _) (not (%current-target-system)))

4
gnu/packages/vim.scm
View file

@ -78,7 +78,7 @@ (define-module (gnu packages vim)
(define-public vim
(package
(name "vim")
(version "9.0.0820")
(version "9.0.0954")
(source (origin
(method git-fetch)
(uri (git-reference
@ -87,7 +87,7 @@ (define-public vim
(file-name (git-file-name name version))
(sha256
(base32
"00zl1g4m6hcwzdla2m770wcq3p5amh3pr7y88hi852x8dn74gssp"))))
"098fiqw6hz0cc5zzy934alqxgwp01180vz3v9wm9i6x6fhdnhxxn"))))
(build-system gnu-build-system)
(arguments
`(#:test-target "test"

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

@ -705,7 +705,7 @@ (define-public nyxt
(define-public lagrange
(package
(name "lagrange")
(version "1.13.8")
(version "1.14.1")
(source
(origin
(method url-fetch)
@ -713,7 +713,7 @@ (define-public lagrange
(string-append "https://git.skyjake.fi/skyjake/lagrange/releases/"
"download/v" version "/lagrange-" version ".tar.gz"))
(sha256
(base32 "1l6cfvmmw2g30qsxmn5jma17kxgmfknlgji4pbdj1flv8p73bvza"))
(base32 "0dhynq5pn6xjis0bpnam89km9qbrdxkbv76mfsx6jzda934iyy2n"))
(modules '((guix build utils)))
(snippet
'(begin

4
gnu/packages/web.scm
View file

@ -5847,13 +5847,13 @@ (define-public varnish
(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")

4
gnu/packages/wget.scm
View file

@ -77,7 +77,7 @@ (define-public wget
(define-public wgetpaste
(package
(name "wgetpaste")
(version "2.32")
(version "2.33")
(source
(origin
(method git-fetch)
@ -86,7 +86,7 @@ (define-public wgetpaste
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "13zdqfnbpymwz2f04icw92flj50227n5r0dcms84qxswfxrarnas"))))
(base32 "0gx5y3f0qf3hrah1z0q243hyldshaq6mvbg1lnjzciviv1vc8zx0"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((guix build gnu-build-system)

13
gnu/packages/xdisorg.scm
View file

@ -516,7 +516,12 @@ (define-public libxkbcommon
wayland-protocols
xkeyboard-config))
(native-inputs
(list bison doxygen pkg-config python))
(append (list bison doxygen pkg-config python)
(if (%current-target-system)
;; wayland-scanner is required at build time.
;; TODO: Remove this conditional on core-updates.
(list pkg-config-for-build wayland)
'())))
(arguments
`(#:configure-flags
(list (string-append "-Dxkb-config-root="
@ -1140,19 +1145,19 @@ (define-public xosd
(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

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