TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge commit 'master' into version-1.4.0

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

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 @@ purposes developed at Queen Mary, University of London.")
(define-public ardour
(package
(name "ardour")
(version "7.0")
(version "7.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -744,7 +744,7 @@ purposes developed at Queen Mary, University of London.")
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 @@ engineers, musicians, soundtrack editors and composers.")
(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 @@ engineers, musicians, soundtrack editors and composers.")
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 @@ engineers, musicians, soundtrack editors and composers.")
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 @@ engineers, musicians, soundtrack editors and composers.")
"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 @@ analysis plugins or audio feature extraction plugins.")
(symlink
(search-input-file inputs
(string-append "/share/automake-"
,(package-version automake)
,(version-major+minor
(package-version automake))
"/ar-lib"))
"ar-lib")
#t)))))

2
gnu/packages/backup.scm
View File

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

14
gnu/packages/base.scm
View File

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

2180
gnu/packages/bioconductor.scm
View File

File diff suppressed because it is too large Load Diff

37
gnu/packages/bioinformatics.scm
View File

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

14
gnu/packages/bqn.scm
View File

@ -33,7 +33,6 @@
#: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 @@ the same author.")
;; Aside from dbqn above, the main bqn repository is used by other
;; implementations as a "known good" set of sources. CBQN uses dbqn to
;; generate an intermediate bytecode for its own compilation.
(let ((commit "e219af48401473a7bac49bdd8b89d69082cf5dd8"))
(let ((commit "71ce36141aaacfa714edca2e408ca522a3bc5554"))
(origin
(method git-fetch)
(uri (git-reference
@ -121,11 +120,11 @@ the same author.")
(commit commit)))
(file-name (git-file-name "bqn-sources" commit))
(sha256
(base32 "0r6pa9lscl2395g4xlvmg90vpdsjzhin4f1r0s7brymmpvmns2yc")))))
(base32 "060a3r5m7hynzxj4iz1av2kj5jf8w3j8yswzzx9wkx31rdrsiv2c")))))
(define cbqn-bootstrap
(let* ((revision "1")
(commit "9c1cbdc99863b1da0116df61cd832137b196dc5c"))
(let* ((revision "2")
(commit "66584ce1491d300746963b8ed17170348b2a03e6"))
(package
(name "cbqn-bootstrap")
(version (git-version "0" revision commit))
@ -137,7 +136,7 @@ the same author.")
(file-name (git-file-name name version))
(sha256
(base32
"0w38fhwf20drkyijy6nfnhmc5g5gw0zmzgmy1q605x57znlj85a2"))))
"13gg96aa56b8k08bjvv8i0f5nxrah2sij7g6pg7i21fdv08rd9iv"))))
(build-system gnu-build-system)
(arguments
(list
@ -202,7 +201,6 @@ by APL.")
(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 @@
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu)
#:use-module (guix build-system go)
#:use-module (guix build-system cmake)
#:use-module (guix build-system python)
#:use-module (gnu packages admin)
@ -45,6 +46,7 @@
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnome)
#:use-module (gnu packages golang)
#:use-module (gnu packages gtk)
#:use-module (gnu packages icu4c)
#:use-module (gnu packages perl)
@ -426,3 +428,38 @@ written in C++ using GTK. Launched once, it pops up a small calendar applet,
launched again it closes the running instance. It can additionally be
configured to show the current time in different timezones.")
(license license:bsd-3))))
(define-public hebcal
(let ((commit "2384bb88dc1a41a4a5ae57a29fb58b2dd49a475d")
(revision "0"))
(package
(name "hebcal")
(version (git-version "5.3.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hebcal/hebcal")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"12rv3b51jb7wcjwmmizz9jkw7gh37yklys4xncvpzgxdkkfgmmjx"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/hebcal/hebcal"))
(inputs
(list go-github-com-hebcal-hebcal-go
go-github-com-pborman-getopt))
(synopsis "Perpetual Jewish Calendar program")
(description
"Hebcal is a program for converting between Hebrew and Gregorian
dates, and generating lists of Jewish holidays for a given year.
Shabbat, holiday candle lighting, and havdalah times are approximated
using your location.
It can also show daily prayer times, the weekly Torah reading, and
the daily leaf of Talmud. The program can help with counting of the
Omer or with calculation of Hebrew yahrzeits, birthdays, or
anniversaries.")
(home-page "https://github.com/hebcal/hebcal")
(license license:gpl2+))))

6
gnu/packages/chromium.scm
View File

@ -317,7 +317,7 @@
;; 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 @@
(file-name (git-file-name "ungoogled-chromium" %ungoogled-revision))
(sha256
(base32
"14z9qi9i9l7kjx7gf74lzs63bpxqyd3wbqqpsvzvqgr2v0cgqahx"))))
"1ns664y7qx0ry8hg8r704z64jmx8j6rpxn2lkliv0xjfwlrbbfx3"))))
(define %debian-origin
(origin
@ -495,7 +495,7 @@
%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 @@
#:use-module ((guix search-paths) #:select ($SSL_CERT_DIR)))
(define-public cuirass
(let ((commit "1fb4b0ac1297e9bd680d0f4a356ce3050b27f913")
(revision "12"))
(let ((commit "1341725f2cbb886e0960c6fad13444e3cfe36c13")
(revision "13"))
(package
(name "cuirass")
(version (git-version "1.1.0" revision commit))
@ -72,7 +72,7 @@
(file-name (git-file-name name version))
(sha256
(base32
"0134klqiykjgyc6lwl165hpil6hgd8xhm62mpxabr6wrvclk8bhm"))))
"0l928hd84ky9l4d1nfdkzc4jvghvxia4j6gflliydvfiyfiw87b3"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((guix build utils)

2
gnu/packages/cluster.scm
View File

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

4
gnu/packages/coq.scm
View File

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

25
gnu/packages/databases.scm
View File

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

4
gnu/packages/debug.scm
View File

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

41
gnu/packages/disk.scm
View File

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

4
gnu/packages/dns.scm
View File

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

2
gnu/packages/docker.scm
View File

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

1
gnu/packages/ebook.scm
View File

@ -197,6 +197,7 @@ with Microsoft Compiled HTML (CHM) files")
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 @@ language and very flexible regarding to new or unknown keyboard layouts.")
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 @@ visualization, matrix manipulation.")
(define-public prusa-slicer
(package
(name "prusa-slicer")
(version "2.4.2")
(version "2.5.0")
(source
(origin
(method git-fetch)
@ -3319,7 +3319,7 @@ visualization, matrix manipulation.")
(url "https://github.com/prusa3d/PrusaSlicer")
(commit (string-append "version_" version))))
(file-name (git-file-name name version))
(sha256 (base32 "17p56f0zmiryy8k4da02in1l6yxniz286gf9yz8s1gaz5ksqj4af"))
(sha256 (base32 "17ic92ww2ny0frxyv7ajwdwa0fq70ygq562ik8sh94jx67jvxdy0"))
(modules '((guix build utils)))
(snippet
'(begin
@ -3368,10 +3368,12 @@ visualization, matrix manipulation.")
hidapi
ilmbase
libigl
libjpeg-turbo
libpng
mesa
mpfr
nlopt
opencascade-occt
openvdb
pango
tbb

37
gnu/packages/finance.scm
View File

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

41
gnu/packages/firmware.scm
View File

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

26
gnu/packages/fonts.scm
View File

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

189
gnu/packages/freedesktop.scm
View File

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

8
gnu/packages/ftp.scm
View File

@ -177,14 +177,14 @@ as required.")
(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 @@ output.
(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 @@ robust and compatible with many systems and operating systems.")
(define-public mygui
(package
(name "mygui")
(version "3.2.2")
(version "3.4.1")
(source
(origin
(method git-fetch)
@ -1702,7 +1702,7 @@ robust and compatible with many systems and operating systems.")
(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 @@ of use.")
(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 @@ Quizzes: arithmetic and quiz.")
(define-public bzflag
(package
(name "bzflag")
(version "2.4.24")
(version "2.4.26")
(source
(origin
(method url-fetch)
(uri (string-append "https://download.bzflag.org/bzflag/source/"
version "/bzflag-" version ".tar.bz2"))
(sha256
(base32 "1i73ijlnxsz52fhqgkj2qcvibfgav3byq1is68gab2zwnyz330az"))))
(base32 "050h933lmcdf4bw9z3c6g3k8c9sch9f6kq57jp2ivb96zw2h90q1"))))
(build-system gnu-build-system)
(arguments
(list
@ -6137,21 +6137,21 @@ starting a decryption sequence to reveal the original plaintext characters.")
"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 @@ starting a decryption sequence to reveal the original plaintext characters.")
(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 @@ emerges from a sewer hole and pulls her below ground.")
(define-public cdogs-sdl
(package
(name "cdogs-sdl")
(version "0.8.0")
(version "1.4.0")
(source
(origin
(method git-fetch)
@ -6248,7 +6248,7 @@ emerges from a sewer hole and pulls her below ground.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0vx37zb2iw7sfw5a2bs97ydlmb301nvy485ybdm8g46c5hn9s13c"))))
(base32 "1505z8rli59i1ych4rzwbf4dvhv72icdj22n1xarb8xfyz0wyp3b"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags
@ -10451,14 +10451,14 @@ get high scores.")
(define-public burgerspace
(package
(name "burgerspace")
(version "1.9.4")
(version "1.9.5")
(source
(origin
(method url-fetch)
(uri (string-append "http://perso.b2b2c.ca/~sarrazip/dev/"
"burgerspace-" version ".tar.gz"))
(sha256
(base32 "1xb4immzmd419aa08lgkzf7ibxa6ax238zb2l5iw9nkgvzlh1v6l"))))
(base32 "1r2albqv2ygs58rwcldsx1mp2vy96j7k4yw5jjmvwgnxjmddq7wr"))))
(build-system gnu-build-system)
(native-inputs
(list pkg-config))

7
gnu/packages/geo.scm
View File

@ -2123,7 +2123,7 @@ exchanged form one Spatial DBMS and the other.")
(define-public opencpn
(package
(name "opencpn")
(version "5.6.0")
(version "5.6.2")
(source
(origin
(method git-fetch)
@ -2132,11 +2132,10 @@ exchanged form one Spatial DBMS and the other.")
(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 @@
"coreutils-gnulib-tests.patch")))))
'())
#$@(if (hurd-target?)
#~((substitute*
"gettext-tools/gnulib-tests/Makefile.in"
;; See 'coreutils' for the rationale.
((" test-tls\\$\\(EXEEXT\\) ") " ")))
'())
#t)))))
;; When tests fail, we want to know the details.
#:make-flags #~'("VERBOSE=yes"
#$@(if (hurd-target?)
;; Linking to libgettextlib.so makes test-raise fail
'("XFAIL_TESTS=test-raise")
'("XFAIL_TESTS=test-perror2")
'()))))
(home-page "https://www.gnu.org/software/gettext/")
(synopsis

35
gnu/packages/gl.scm
View File

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

56
gnu/packages/glib.scm
View File

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

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

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

56
gnu/packages/gnome.scm
View File

@ -2594,6 +2594,11 @@ GNOME Desktop.")
python-wrapper)) ;for tests
(propagated-inputs
(list gcr))
;; XXX: There are concerning test failures on i686-linux and other 32-bit
;; platforms: <https://gitlab.gnome.org/GNOME/gnome-keyring/-/issues/124>.
(supported-systems %64bit-supported-systems)
(home-page "https://www.gnome.org")
(synopsis "Daemon to store passwords and encryption keys")
(description
@ -4956,6 +4961,57 @@ GLibproxyResolver, and a GNOME GProxyResolver that uses the proxy information
from the GSettings schemas in gsettings-desktop-schemas.")
(license license:lgpl2.1+)))
(define-public raider
(package
(name "raider")
(version "1.3.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ADBeveridge/raider/")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0ll9220d6qf9m7wdi5xhq69p8h8whs7l5h5nzdhlbn99qh5388bz"))))
(build-system meson-build-system)
(arguments
(list #:meson meson-0.63
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "data/com.github.ADBeveridge.Raider.gschema.xml"
(("/usr/bin/shred")
(which "shred")))))
(add-after 'install 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys)
(wrap-program (string-append (assoc-ref outputs "out")
"/bin/raider")
`("GSETTINGS_SCHEMA_DIR" =
(,(string-append (assoc-ref outputs "out")
"/share/glib-2.0/schemas")))))))))
(native-inputs
(list gettext-minimal
pkg-config
cmake
`(,glib "bin")
desktop-file-utils
itstool
gobject-introspection
blueprint-compiler
`(,gtk "bin")))
(inputs
(list libadwaita
gtk))
(home-page "https://github.com/ADBeveridge/raider")
(synopsis "Securely delete your files")
(description
"Raider is a simple shredding program built for GNOME. Also known as
File Shredder, it uses the GNU Core Utility called shred to securely delete
files.")
(license license:gpl3+)))
(define-public rest
(package
(name "rest")

23
gnu/packages/gnupg.scm
View File

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

857
gnu/packages/golang.scm
View File

@ -2107,6 +2107,29 @@ writers can be supplied for alternate environments.")
"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 @@ web framework
@end itemize")
(license license:expat)))
(define-public go-github-com-nathan-osman-go-sunrise
(let ((commit "c8f9f1eb869135f07378e7e3c5ec7a005f806c73")
(revision "0"))
(package
(name "go-github-com-nathan-osman-go-sunrise")
(version (git-version "1.1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/nathan-osman/go-sunrise")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"017zwzx05r5spxcs07dp6bnh7waknzsd819k7aqd8kr819v3x9in"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/nathan-osman/go-sunrise"))
(home-page "https://github.com/nathan-osman/go-sunrise")
(synopsis "Calculate sunrise and sunset times in Go")
(description
"This package provides a Go library for calculating sunrise and
sunset times from geographical coordinates and a date.")
(license license:expat))))
(define-public go-github-com-hebcal-gematriya
(let ((commit "fe3043f73e415eb82727701d10f2fb40f87675e9")
(revision "0"))
(package
(name "go-github-com-hebcal-gematriya")
(version (git-version "1.0.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hebcal/gematriya")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0xmnb2i80dy380yv8c4pd04bbyqgbc7c40p8hz1vqj2lhbm6jabf"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/hebcal/gematriya"))
(home-page "https://github.com/hebcal/gematriya")
(synopsis "Print numbers as Hebrew letters in Go")
(description
"This package provides a Go library for printing numbers as
Hebrew letters.")
(license license:bsd-2))))
(define-public go-github-com-hebcal-hebcal-go
(let ((commit "d42e881860cfc9e8249fc79f268091c3c4d36b0d")
(revision "0"))
(package
(name "go-github-com-hebcal-hebcal-go")
(version (git-version "0.9.11" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hebcal/hebcal-go")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1m9akb8pwxchpaci05gambshrzw626gsrfhl25f36vjl7mq5292n"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/hebcal/hebcal-go"
;; Source-only package
#:tests? #f
#:phases
#~(modify-phases %standard-phases
;; Source-only package
(delete 'build))))
(native-inputs
(list go-github-com-stretchr-testify))
(propagated-inputs
(list go-github-com-hebcal-gematriya
go-github-com-nathan-osman-go-sunrise))
(home-page "https://github.com/hebcal/hebcal-go")
(synopsis "Go library for the Hebcal perpetual Jewish calendar")
(description
"This package provides a library for conversion between Hebrew
and Gregorian dates, and generation of lists of Jewish holidays for
a given year. Shabbat and holiday candle lighting and havdalah times
are approximated based on location.
Torah readings, Daf Yomi, and counting of the Omer can also be
specified. Algorithms are included to calculate yahrzeits, birthdays,
and anniversaries.")
(license license:gpl2+))))
(define-public go-github-com-aws-sdk
(package
(name "go-github-com-aws-sdk")
@ -2547,6 +2665,32 @@ termination.")
(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 @@ for the Go language.")
(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 @@ application's http.Handlers.")
(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 @@ without requiring a real database connection.")
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 @@ standard @code{Text} package, including some for dealing with I/O streams from
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 @@ systems.")
(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 @@ fnmatch gist (https://gist.github.com/kballard/272720).")
(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 @@ can be used to build a client and/or a server.")
(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 @@ can be used to build a client and/or a server.")
(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 @@ maps (because they are not addressable using Go reflection).")
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 @@ or capture raw audio.")
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 @@ using shell-style rules for quoting and commenting.")
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 @@ email library.")
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 @@ array or reader.")
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 @@ model to base your own plug-in on, here it is.")
;; FIXME: Why is this failing.
((".*elements/dash_mpd\\.c.*") "")
;; This test is flaky on at least some architectures.
;; https://gitlab.freedesktop.org/gstreamer/gstreamer/-/issues/1244
#$@(if (member (%current-system)
'("i686-linux" "aarch64-linux"))
`((("'elements/camerabin\\.c'\\]\\],")
"'elements/camerabin.c'], true, ],"))
'())
;; These tests are flaky and occasionally time out:
;; https://gitlab.freedesktop.org/gstreamer/gst-plugins-bad/-/issues/932
((".*elements/curlhttpsrc\\.c.*") "")

38
gnu/packages/gtk.scm
View File

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

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

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

1
gnu/packages/heads.scm
View File

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

2
gnu/packages/hunspell.scm
View File

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

316
gnu/packages/kde.scm
View File

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

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 @@
#: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 @@ text documents, vector drawings, presentations and spreadsheets.")
(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 @@ and to return information on pronunciations, meanings and synonyms.")
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 @@ converting QuarkXPress file format. It supports versions 3.1 to 4.1.")
(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 @@ converting QuarkXPress file format. It supports versions 3.1 to 4.1.")
"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 @@ converting QuarkXPress file format. It supports versions 3.1 to 4.1.")
(("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 @@ converting QuarkXPress file format. It supports versions 3.1 to 4.1.")
;; 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 @@ converting QuarkXPress file format. It supports versions 3.1 to 4.1.")
clucene
cups
dbus-glib
dragonbox-for-libreoffice
firebird
fontconfig
fontforge
@ -1271,6 +1322,7 @@ converting QuarkXPress file format. It supports versions 3.1 to 4.1.")
libcdr
libcmis
libcuckoo
libfixmath
libjpeg-turbo
libe-book
libepubgen
@ -1287,7 +1339,9 @@ converting QuarkXPress file format. It supports versions 3.1 to 4.1.")
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 @@
#:use-module (gnu packages docbook)
#:use-module (gnu packages documentation)
#:use-module (gnu packages elf)
#:use-module (gnu packages flex)
#:use-module (gnu packages file)
#:use-module (gnu packages flex)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gawk)
#:use-module (gnu packages gcc)
@ -119,6 +120,7 @@
#:use-module (gnu packages gnupg)
#:use-module (gnu packages golang)
#:use-module (gnu packages gperf)
#:use-module (gnu packages graphviz)
#:use-module (gnu packages gstreamer)
#:use-module (gnu packages gtk)
#:use-module (gnu packages haskell-apps)
@ -355,7 +357,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
;; The current "stable" kernels. That is, the most recently released major
;; versions that are still supported upstream.
(define-public linux-libre-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 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(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 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
;; The "longterm" kernels — the older releases with long-term upstream support.
;; Here are the support timelines:
;; <https://www.kernel.org/category/releases.html>
(define-public linux-libre-5.15-version "5.15.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 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(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 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(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 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "00i91lx938nqlgy63hiricqd0fnbbf26vgya9c5lb7m1f4x324im")))
(define-public linux-libre-4.14-pristine-source
(let ((version linux-libre-4.14-version)
(hash (base32 "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 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "0bib3641dbcqdkx3anna3caxnsg3nw9cnmhcklq0s93g3m57041h")))
(define-public linux-libre-4.9-pristine-source
(let ((version linux-libre-4.9-version)
(hash (base32 "0ash877gkrrc063h6ncl9d4gzyhndanpxsdgf1a93abbfv281gs1")))
(hash (base32 "0sjh492mfic6llgwb957nj7gd7c0dvqnk97ngq8d50sjsyjznyk9")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.9)))
@ -494,17 +496,20 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(define-public linux-libre-6.0-source
(source-with-patches linux-libre-6.0-pristine-source
(list %boot-logo-patch
%linux-libre-arm-export-__sync_icache_dcache-patch)))
%linux-libre-arm-export-__sync_icache_dcache-patch
(search-patch "linux-libre-infodocs-target.patch"))))
(define-public linux-libre-5.15-source
(source-with-patches linux-libre-5.15-pristine-source
(list %boot-logo-patch
%linux-libre-arm-export-__sync_icache_dcache-patch)))
%linux-libre-arm-export-__sync_icache_dcache-patch
(search-patch "linux-libre-infodocs-target.patch"))))
(define-public linux-libre-5.10-source
(source-with-patches linux-libre-5.10-pristine-source
(list %boot-logo-patch
%linux-libre-arm-export-__sync_icache_dcache-patch)))
%linux-libre-arm-export-__sync_icache_dcache-patch
(search-patch "linux-libre-infodocs-target.patch"))))
(define-public linux-libre-5.4-source
(source-with-patches linux-libre-5.4-pristine-source
@ -759,6 +764,11 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration."
;;; Kernel package utilities.
;;;
(define (doc-supported? version)
;; Versions older than 5.10 have different enough build scripts that the
;; infodocs patch doesn't apply.
(version>=? version "5.10"))
(define* (make-linux-libre version gnu-revision hash-string supported-systems
#:key
(extra-version #f)
@ -767,7 +777,13 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration."
(configuration-file #f)
(defconfig "defconfig")
(extra-options %default-extra-linux-options)
(patches (list %boot-logo-patch)))
(build-doc? (doc-supported? version))
(patches
`(,%boot-logo-patch
,@(if build-doc?
(list (search-patch
"linux-libre-infodocs-target.patch"))
'()))))
(make-linux-libre* version gnu-revision
(origin
(method url-fetch)
@ -778,7 +794,8 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration."
#:extra-version extra-version
#:configuration-file configuration-file
#:defconfig defconfig
#:extra-options extra-options))
#:extra-options extra-options
#:build-doc? build-doc?))
(define* (make-linux-libre* version gnu-revision source supported-systems
#:key
@ -787,7 +804,10 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration."
;; See kernel-config for an example.
(configuration-file #f)
(defconfig "defconfig")
(extra-options %default-extra-linux-options))
(extra-options %default-extra-linux-options)
(build-doc? (doc-supported? version)))
(when (and build-doc? (not (doc-supported? version)))
(error "unsupported 'build-doc?' for kernels <5.10"))
(package
(name (if extra-version
(string-append "linux-libre-" extra-version)
@ -796,11 +816,127 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration."
(source source)
(supported-systems supported-systems)
(build-system gnu-build-system)
(arguments
(list
#:modules '((guix build gnu-build-system)
(guix build utils)
(srfi srfi-1)
(srfi srfi-26)
(ice-9 ftw)
(ice-9 match))
#:tests? #f
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-/bin/pwd
(lambda _
(substitute* (find-files
"." "^Makefile(\\.include)?$")
(("/bin/pwd") "pwd"))))
#$@(if build-doc?
#~((add-before 'configure 'build-doc
(lambda _
(substitute* "Documentation/Makefile"
;; Remove problematic environment check script.
((".*scripts/sphinx-pre-install.*") ""))
(invoke "make" "infodocs")))
(add-after 'build-doc 'install-doc
(lambda _
(with-directory-excursion "Documentation/output"
(invoke "make" "-C" "texinfo" "install-info"
(string-append "infodir=" #$output
"/share/info"))))))
#~())
(replace 'configure
(lambda* (#:key inputs target #:allow-other-keys)
;; Avoid introducing timestamps.
(setenv "KCONFIG_NOTIMESTAMP" "1")
(setenv "KBUILD_BUILD_TIMESTAMP" (getenv "SOURCE_DATE_EPOCH"))
;; Other variables useful for reproducibility.
(setenv "KBUILD_BUILD_USER" "guix")
(setenv "KBUILD_BUILD_HOST" "guix")
;; Set ARCH and CROSS_COMPILE.
(let ((arch #$(platform-linux-architecture
(lookup-platform-by-target-or-system
(or (%current-target-system)
(%current-system))))))
(setenv "ARCH" arch)
(format #t "`ARCH' set to `~a'~%" (getenv "ARCH"))
(when target
(setenv "CROSS_COMPILE" (string-append target "-"))
(format #t "`CROSS_COMPILE' set to `~a'~%"
(getenv "CROSS_COMPILE"))))
(setenv "EXTRAVERSION"
#$(and extra-version
(string-append "-" extra-version)))
(let ((config (assoc-ref inputs "kconfig")))
;; Use a custom kernel configuration file or a default
;; configuration file.
(if config
(begin
(copy-file config ".config")
(chmod ".config" #o666))
(invoke "make" #$defconfig))
;; Appending works even when the option wasn't in the
;; file. The last one prevails if duplicated.
(let ((port (open-file ".config" "a"))
(extra-configuration #$(config->string extra-options)))
(display extra-configuration port)
(close-port port))
(invoke "make" "oldconfig"))))
(replace 'install
(lambda* (#:key inputs native-inputs #:allow-other-keys)
(let ((moddir (string-append #$output "/lib/modules"))
(dtbdir (string-append #$output "/lib/dtbs")))
;; Install kernel image, kernel configuration and link map.
(for-each (lambda (file) (install-file file #$output))
(find-files "." "^(\\.config|bzImage|zImage|Image\
|vmlinuz|System\\.map|Module\\.symvers)$"))
;; Install device tree files
(unless (null? (find-files "." "\\.dtb$"))
(mkdir-p dtbdir)
(invoke "make" (string-append "INSTALL_DTBS_PATH=" dtbdir)
"dtbs_install"))
;; Install kernel modules
(mkdir-p moddir)
(invoke "make"
;; Disable depmod because the Guix system's
;; module directory is an union of potentially
;; multiple packages. It is not possible to use
;; depmod to usefully calculate a dependency
;; graph while building only one of them.
"DEPMOD=true"
(string-append "MODULE_DIR=" moddir)
(string-append "INSTALL_PATH=" #$output)
(string-append "INSTALL_MOD_PATH=" #$output)
"INSTALL_MOD_STRIP=1"
"modules_install")
(let* ((versions (filter (lambda (name)
(not (string-prefix? "." name)))
(scandir moddir)))
(version (match versions
((x) x))))
;; There are symlinks to the build and source directory.
;; Both will point to target /tmp/guix-build* and thus
;; not be useful in a profile. Delete the symlinks.
(false-if-file-not-found
(delete-file
(string-append moddir "/" version "/build")))
(false-if-file-not-found
(delete-file
(string-append moddir "/" version "/source"))))))))))
(native-inputs
`(("perl" ,perl)
("bc" ,bc)
("openssl" ,openssl)
("elfutils" ,elfutils) ; Needed to enable CONFIG_STACK_VALIDATION
("elfutils" ,elfutils) ;needed to enable CONFIG_STACK_VALIDATION
("flex" ,flex)
("bison" ,bison)
@ -809,6 +945,18 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration."
("mpfr" ,mpfr)
("mpc" ,mpc)
;; For generating the documentation.
,@(if build-doc?
;; TODO: remove fontconfig after the 5.10 kernel is dropped.
;; Also replace python-wrapper by python at that time.
`(("fontconfig" ,fontconfig)
("graphviz" ,graphviz)
("python" ,python-wrapper)
("python-sphinx" ,python-sphinx)
("texinfo" ,texinfo)
("which" ,which))
'())
,@(match (let ((arch (platform-linux-architecture
(lookup-platform-by-target-or-system
(or (%current-target-system)
@ -817,115 +965,14 @@ for ARCH and optionally VARIANT, or #f if there is no such configuration."
(configuration-file
arch
#:variant (version-major+minor version))))
(#f ;no config for this platform
(#f ;no config for this platform
'())
((? string? config)
`(("kconfig" ,config))))))
(arguments
(list #:modules '((guix build gnu-build-system)
(guix build utils)
(srfi srfi-1)
(srfi srfi-26)
(ice-9 ftw)
(ice-9 match))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-/bin/pwd
(lambda _
(substitute* (find-files "." "^Makefile(\\.include)?$")
(("/bin/pwd") "pwd"))))
(replace 'configure
(lambda* (#:key inputs target #:allow-other-keys)
;; Avoid introducing timestamps.
(setenv "KCONFIG_NOTIMESTAMP" "1")
(setenv "KBUILD_BUILD_TIMESTAMP"
(getenv "SOURCE_DATE_EPOCH"))
;; Other variables useful for reproducibility.
(setenv "KBUILD_BUILD_USER" "guix")
(setenv "KBUILD_BUILD_HOST" "guix")
;; Set ARCH and CROSS_COMPILE.
(let ((arch #$(platform-linux-architecture
(lookup-platform-by-target-or-system
(or (%current-target-system)
(%current-system))))))
(setenv "ARCH" arch)
(format #t "`ARCH' set to `~a'~%" (getenv "ARCH"))
(when target
(setenv "CROSS_COMPILE" (string-append target "-"))
(format #t "`CROSS_COMPILE' set to `~a'~%"
(getenv "CROSS_COMPILE"))))
(setenv "EXTRAVERSION"
#$(and extra-version
(string-append "-" extra-version)))
(let ((config (assoc-ref inputs "kconfig")))
;; Use a custom kernel configuration file or a default
;; configuration file.
(if config
(begin
(copy-file config ".config")
(chmod ".config" #o666))
(invoke "make" #$defconfig))
;; Appending works even when the option wasn't in the
;; file. The last one prevails if duplicated.
(let ((port (open-file ".config" "a"))
(extra-configuration #$(config->string extra-options)))
(display extra-configuration port)
(close-port port))
(invoke "make" "oldconfig"))))
(replace 'install
(lambda* (#:key inputs native-inputs #:allow-other-keys)
(let ((moddir (string-append #$output "/lib/modules"))
(dtbdir (string-append #$output "/lib/dtbs")))
;; Install kernel image, kernel configuration and link map.
(for-each (lambda (file) (install-file file #$output))
(find-files "." "^(\\.config|bzImage|zImage|Image|vmlinuz|System\\.map|Module\\.symvers)$"))
;; Install device tree files
(unless (null? (find-files "." "\\.dtb$"))
(mkdir-p dtbdir)
(invoke "make" (string-append "INSTALL_DTBS_PATH=" dtbdir)
"dtbs_install"))
;; Install kernel modules
(mkdir-p moddir)
(invoke "make"
;; Disable depmod because the Guix system's
;; module directory is an union of potentially
;; multiple packages. It is not possible to use
;; depmod to usefully calculate a dependency
;; graph while building only one of them.
"DEPMOD=true"
(string-append "MODULE_DIR=" moddir)
(string-append "INSTALL_PATH=" #$output)
(string-append "INSTALL_MOD_PATH=" #$output)
"INSTALL_MOD_STRIP=1"
"modules_install")
(let* ((versions (filter (lambda (name)
(not (string-prefix? "." name)))
(scandir moddir)))
(version (match versions
((x) x))))
;; There are symlinks to the build and source directory.
;; Both will point to target /tmp/guix-build* and thus
;; not be useful in a profile. Delete the symlinks.
(false-if-file-not-found
(delete-file
(string-append moddir "/" version "/build")))
(false-if-file-not-found
(delete-file
(string-append moddir "/" version "/source"))))))))
#:tests? #f))
(home-page "https://www.gnu.org/software/linux-libre/")
(synopsis "100% free redistribution of a cleaned Linux kernel")
(description
"GNU Linux-Libre is a free (as in freedom) variant of the Linux kernel.
It has been modified to remove all non-free binary blobs.")
(description "GNU Linux-Libre is a free (as in freedom) variant of the
Linux kernel. It has been modified to remove all non-free binary blobs.")
(license license:gpl2)
(properties '((max-silent-time . 3600))))) ;don't timeout on blob scan.
@ -5555,7 +5602,7 @@ and copy/paste text in the console and in xterm.")
(define-public btrfs-progs
(package
(name "btrfs-progs")
(version "5.18.1")
(version "6.0.2")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kernel.org/linux/kernel/"
@ -5563,7 +5610,7 @@ and copy/paste text in the console and in xterm.")
"btrfs-progs-v" version ".tar.xz"))
(sha256
(base32
"0mbj3j2fpjds9i9gm8kk8a20yjacc562ibd1v9a96bpmrxfag63f"))))
"063hmqwqlmp0llgqnfqgcj7slrv762kmbk6srhrgqifr94q8crb6"))))
(build-system gnu-build-system)
(outputs '("out"
"static")) ; static versions of the binaries in "out"
@ -8456,7 +8503,7 @@ compatible with Python's ConfigParser style of .INI files, including RFC
(define-public xfsprogs
(package
(name "xfsprogs")
(version "5.14.2")
(version "6.0.0")
(source (origin
(method url-fetch)
(uri (string-append
@ -8464,7 +8511,7 @@ compatible with Python's ConfigParser style of .INI files, including RFC
"xfsprogs-" version ".tar.gz"))
(sha256
(base32
"0368dacdjq55ip38yizs9spdyl7b0b1c0vz3gr1gvcb9rw3a6dnp"))))
"14hc61nfc73nqwhyasc4haj5g7046im1dwz61bx338f86mjj5n5y"))))
(build-system gnu-build-system)
(outputs (list "out" "python"))
(arguments
@ -8503,6 +8550,20 @@ file systems.")
;; licensed under lgpl2.1. the other stuff is licensed under gpl2.
(license (list license:gpl2 license:lgpl2.1))))
(define-public xfsprogs-5.9
(package
(inherit xfsprogs)
(name "xfsprogs")
(version "5.9.0")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://kernel.org/linux/utils/fs/xfs/xfsprogs/"
"xfsprogs-" version ".tar.gz"))
(sha256
(base32
"13xkn9jpmwp4fm9r68vhgznkmxhnv83n2b39mhy2qdaph90w2a1l"))))))
(define-public xfsprogs/static
(package
(inherit xfsprogs)

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

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

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

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

18
gnu/packages/llvm.scm
View File

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

110
gnu/packages/lxqt.scm
View File

@ -100,7 +100,7 @@ to statistics about the system on which it's run.")
(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 @@ to statistics about the system on which it's run.")
"/download/" version
"/lxqt-build-tools-" version ".tar.xz"))
(sha256
(base32 "1ff1pkrlxd8h0j8v49p6wrfhnqrz8s5b53hi835m41cvkzjljpfx"))))
(base32 "0c4mm167hk0yihryi46d80ghxx2lwzkpivs4yj5wsfvdpbv5q1qh"))))
(build-system cmake-build-system)
(arguments
(list
@ -148,7 +148,7 @@ itself as well as other components maintained by the LXQt project.")
(define-public libqtxdg
(package
(name "libqtxdg")
(version "3.9.1")
(version "3.10.0")
(source
(origin
(method url-fetch)
@ -156,7 +156,7 @@ itself as well as other components maintained by the LXQt project.")
"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 @@ in Qt.")
(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 @@ in Qt.")
"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 @@ applications.")
(define-public liblxqt
(package
(name "liblxqt")
(version "1.1.0")
(version "1.2.0")
(source
(origin
(method url-fetch)
@ -214,7 +214,7 @@ applications.")
"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 @@ and memory usage or network traffic.")
(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 @@ LXQt and the system it's running on.")
(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 @@ the operating system LXQt is running on.")
(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 @@ configuration of both LXQt and the underlying operating system.")
(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 @@ configuration of both LXQt and the underlying operating system.")
"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 @@ as a whole and are not limited to distinct applications.")
(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 @@ according to the Desktop Notifications Specification.")
(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 @@ of other programs.")
(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 @@ of other programs.")
(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 @@ LXQt.")
(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 @@ when laptop batteries are low on power.")
(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 @@ Qt with LXQt.")
(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 @@ allows for launching applications or shutting down the system.")
(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 @@ for the LXQt desktop environment.")
(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 @@ permissions of other users including root.")
(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 @@ for LXQt.")
(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 @@ components to build desktop file managers which belongs to LXDE.")
(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 @@ manager Compton.")
(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 @@ window manager OpenBox.")
(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 @@ window manager OpenBox.")
(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 @@ processes currently in existence, much like code{top} or code{ps}.")
(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 @@ processes currently in existence, much like code{top} or code{ps}.")
(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 @@ QTermWidget.")
(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 @@ easily publishing them on internet image hosting services.")
(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 @@ desktop.")
(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 @@ Python.")
(define-public python-hmmlearn
(package
(name "python-hmmlearn")
(version "0.2.6")
(version "0.2.7")
(source
(origin
(method url-fetch)
(uri (pypi-uri "hmmlearn" version))
(sha256
(base32
"1my0j3rzp17438idr32ssh0j969a98yjblx5igx5kgiiigr9qa1a"))
(snippet
#~(begin
(use-modules ((guix build utils)))
(delete-file "lib/hmmlearn/_hmmc.c")))))
"1qgnf1kdxicygy8nvpv866iqvwq0rc6xkd3s6slmvxvsy8h2fjvb"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -3247,7 +3243,11 @@ Python.")
(with-directory-excursion (string-append (assoc-ref outputs "out") "/lib")
(invoke "python" "-m" "pytest"))))))))
(propagated-inputs
(list python-cython python-numpy python-scikit-learn python-scipy
(list pybind11
python-cython
python-numpy
python-scikit-learn
python-scipy
python-setuptools-scm))
(native-inputs
(list python-pytest))

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 @@
#: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 @@ databases, and other tools to process Outlook email archives.")
(build-system gnu-build-system)
(arguments
`(#:tests? #f ;no tests
#:make-flags `((string-append "CC=" ,(cc-for-target)))
#:make-flags (list (string-append "CC=" ,(cc-for-target)))
#:phases
(modify-phases %standard-phases
(delete 'configure) ;no configure script
@ -4754,3 +4756,120 @@ addresses.")
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 @@ used to bring up authentication dialogs.")
(native-inputs (list desktop-file-utils))
(inputs
;; TODO: Add more packages
`(("at-spi2-core" ,at-spi2-core)
("atril" ,atril)
("caja" ,caja)
("dbus" ,dbus)
("dconf" ,dconf)
("engrampa" ,engrampa)
("eom" ,eom)
("font-abattis-cantarell" ,font-abattis-cantarell)
("glib-networking" ,glib-networking)
("gnome-keyring" ,gnome-keyring)
("gvfs" ,gvfs)
("hicolor-icon-theme" ,hicolor-icon-theme)
("libmatekbd" ,libmatekbd)
("libmateweather" ,libmateweather)
("libmatemixer" ,libmatemixer)
("marco" ,marco)
("mate-session-manager" ,mate-session-manager)
("mate-settings-daemon" ,mate-settings-daemon)
("mate-desktop" ,mate-desktop)
("mate-terminal" ,mate-terminal)
("mate-themes" ,mate-themes)
("mate-icon-theme" ,mate-icon-theme)
("mate-power-manager" ,mate-power-manager)
("mate-menu" ,mate-menus)
("mate-panel" ,mate-panel)
("mate-control-center" ,mate-control-center)
("mate-media" ,mate-media)
("mate-applets" ,mate-applets)
("mate-user-guide" ,mate-user-guide)
("mate-calc" ,mate-calc)
("mate-backgrounds" ,mate-backgrounds)
("mate-netbook" ,mate-netbook)
("mate-utils" ,mate-utils)
("mate-polkit" ,mate-polkit)
("mate-system-monitor" ,mate-system-monitor)
("mate-utils" ,mate-utils)
("pluma" ,pluma)
("pinentry-gnome3" ,pinentry-gnome3)
("pulseaudio" ,pulseaudio)
("shared-mime-info" ,shared-mime-info)
("yelp" ,yelp)
("zenity" ,zenity)))
(append (if (or (%current-target-system)
(supported-package? gnome-keyring))
(list gnome-keyring)
'())
(list at-spi2-core
atril
caja
dbus
dconf
engrampa
eom
font-abattis-cantarell
glib-networking
gvfs
hicolor-icon-theme
libmatekbd
libmateweather
libmatemixer
marco
mate-session-manager
mate-settings-daemon
mate-desktop
mate-terminal
mate-themes
mate-icon-theme
mate-power-manager
mate-menus
mate-panel
mate-control-center
mate-media
mate-applets
mate-user-guide
mate-calc
mate-backgrounds
mate-netbook
mate-utils
mate-polkit
mate-system-monitor
mate-utils
pluma
pinentry-gnome3
pulseaudio
shared-mime-info
yelp
zenity)))
(propagated-inputs
;; Default font that applications such as IceCat require.
(list font-dejavu))

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

46
gnu/packages/mpd.scm
View File

@ -48,6 +48,7 @@
#:use-module (gnu packages boost)
#:use-module (gnu packages cdrom)
#:use-module (gnu packages cmake) ;for MPD
#:use-module (gnu packages cpp)
#:use-module (gnu packages freedesktop) ;elogind
#:use-module (gnu packages gettext)
#:use-module (gnu packages gnome)
@ -55,6 +56,7 @@
#:use-module (gnu packages gtk)
#:use-module (gnu packages icu4c)
#:use-module (gnu packages libusb)
#:use-module (gnu packages lua)
#:use-module (gnu packages readline)
#:use-module (gnu packages check)
#:use-module (gnu packages compression)
@ -66,15 +68,19 @@
#:use-module (gnu packages music)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages pcre)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages pretty-print)
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages pulseaudio)
#:use-module (gnu packages qt)
#:use-module (gnu packages serialization)
#:use-module (gnu packages sphinx)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages tls)
#:use-module (gnu packages video)
#:use-module (gnu packages web)
#:use-module (gnu packages xiph))
(define-public libmpdclient
@ -380,7 +386,7 @@ MPD servers, search and multimedia key support.")
(define-public ashuffle
(package
(name "ashuffle")
(version "2.0.2")
(version "3.13.4")
(source (origin
(method git-fetch)
(uri (git-reference
@ -389,10 +395,20 @@ MPD servers, search and multimedia key support.")
(file-name (git-file-name name version))
(sha256
(base32
"11aa95cg0yca2m2d00sar6wr14g3lc7cfm9bin1h7lk7asdm8azp"))))
"09dvar0aglyy2h9y115ymgryd8l6npc2y2ccdzij0b70f47ncqmf"))))
(native-inputs (list pkg-config))
(inputs (list libmpdclient))
(inputs
(list abseil-cpp-cxxstd17
googletest
libmpdclient
yaml-cpp))
(build-system meson-build-system)
(arguments
(list #:configure-flags
#~'("-Dtests=enabled"
"-Dunsupported_use_system_absl=true"
"-Dunsupported_use_system_gtest=true"
"-Dunsupported_use_system_yamlcpp=true")))
(home-page "https://github.com/joshkunz/ashuffle")
(synopsis "Automatic library-wide shuffle for mpd")
(description "ashuffle is an application for automatically shuffling your
@ -561,3 +577,27 @@ which is focused on playing local music without the need of managing playlists.
Instead of maintaining a client side database of your music library,
mpdevil loads all tags and covers on demand.")
(license license:gpl3+)))
(define-public mympd
(package
(name "mympd")
(version "10.1.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 @@ perform creative live mixes with digital music files.")
alsa-lib
new-session-manager
liblo
qtbase-5
qtsvg-5))
qtbase
qtsvg))
(native-inputs
(list pkg-config qttools-5))
(list pkg-config qttools))
(home-page "https://synthv1.sourceforge.io")
(synopsis "Polyphonic subtractive synthesizer")
(description
@ -2333,10 +2333,10 @@ oscillators and stereo effects.")
alsa-lib
new-session-manager
liblo
qtbase-5
qtsvg-5))
qtbase
qtsvg))
(native-inputs
(list pkg-config qttools-5))
(list pkg-config qttools))
(home-page "https://drumkv1.sourceforge.io")
(synopsis "Drum-kit sampler synthesizer with stereo effects")
(description
@ -2366,10 +2366,10 @@ effects.")
alsa-lib
new-session-manager
liblo
qtbase-5
qtsvg-5))
qtbase
qtsvg))
(native-inputs
(list pkg-config qttools-5))
(list pkg-config qttools))
(home-page "https://samplv1.sourceforge.io")
(synopsis "Polyphonic sampler synthesizer with stereo effects")
(description
@ -2399,10 +2399,10 @@ effects.")
new-session-manager
liblo
fftwf
qtbase-5
qtsvg-5))
qtbase
qtsvg))
(native-inputs
(list pkg-config qttools-5))
(list pkg-config qttools))
(home-page "https://padthv1.sourceforge.io")
(synopsis "Polyphonic additive synthesizer")
(description
@ -3313,14 +3313,13 @@ from the command line.")
libvorbis
lilv
lv2
qtbase-5
qtsvg-5
qtx11extras
qtbase
qtsvg
rubberband
suil
zlib))
(native-inputs
(list pkg-config qttools-5))
(list pkg-config qttools))
(home-page "https://qtractor.org/")
(synopsis "Audio/MIDI multi-track sequencer")
(description
@ -3932,27 +3931,27 @@ with a number of bugfixes and changes to improve IT playback.")
(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 @@ with a number of bugfixes and changes to improve IT playback.")
(("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 @@ supported, including rtmp://, rtmpt://, rtmpe://, rtmpte://, and rtmps://.")
(define-public slurm-monitor
(package
(name "slurm-monitor")
(version "0.4.3")
(version "0.4.4")
(source
(origin
(method git-fetch)
@ -603,9 +603,10 @@ supported, including rtmp://, rtmpt://, rtmpe://, rtmpte://, and rtmps://.")
(commit (string-append "upstream/" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1n6pgrcs8gwrcq5fch1q3yk3jipjwrf21s9a13fbjrl903g5zzv9"))))
(build-system cmake-build-system)
(base32 "07q8895bxsajkwip8dgrrwr1m8a10xnl4p0g6wqcrd2wf4hx5gn3"))))
(build-system meson-build-system)
(arguments `(#:tests? #f)) ;no tests
(native-inputs (list pkg-config))
(inputs (list ncurses))
(synopsis "Network load monitor")
(description
@ -1538,22 +1539,14 @@ Ethernet devices.")
(define-public ifstatus
(package
(name "ifstatus")
(version "1.1.0")
(version "2.0.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/ifstatus/ifstatus/"
"ifstatus%20v" version "/ifstatus-v"
version ".tar.gz"))
"ifstatus-v" version ".tar.gz"))
(sha256
(base32
"045cbsq9ps32j24v8y5hpyqxnqn9mpaf3mgvirlhgpqyb9jsia0c"))
(modules '((guix build utils)))
(snippet
'(begin
(substitute* "Main.h"
(("#include <stdio.h>")
"#include <stdio.h>\n#include <stdlib.h>"))
#t))))
"0n622f2m3x901hcmad4ns52r2x75csy4nqraagzb8h9fn0j62jkv"))))
(build-system gnu-build-system)
(arguments
'(#:tests? #f ; no "check" target

4
gnu/packages/nickle.scm
View File

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

16
gnu/packages/ocaml.scm
View File

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

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

2
gnu/packages/protobuf.scm
View File

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

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

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

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

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

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

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

24
gnu/packages/radio.scm
View File

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

8
gnu/packages/ruby.scm
View File

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

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

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

21
gnu/packages/serialization.scm
View File

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

129
gnu/packages/statistics.scm
View File

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

41
gnu/packages/tex.scm
View File

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

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

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

41
gnu/packages/tls.scm
View File

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

5
gnu/packages/video.scm
View File

@ -2242,6 +2242,7 @@ SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
libxext
libxkbcommon
libxinerama
libxpresent
libxrandr
libxscrnsaver
libxv
@ -2529,7 +2530,7 @@ YouTube.com and many more sites.")
(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 @@ YouTube.com and many more sites.")
(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-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 @@
(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 @@ is fully configurable and extensible in Common Lisp.")
(define-public lagrange
(package
(name "lagrange")
(version "1.13.8")
(version "1.14.1")
(source
(origin
(method url-fetch)
@ -713,7 +713,7 @@ is fully configurable and extensible in Common Lisp.")
(string-append "https://git.skyjake.fi/skyjake/lagrange/releases/"
"download/v" version "/lagrange-" version ".tar.gz"))
(sha256
(base32 "1l6cfvmmw2g30qsxmn5jma17kxgmfknlgji4pbdj1flv8p73bvza"))
(base32 "0dhynq5pn6xjis0bpnam89km9qbrdxkbv76mfsx6jzda934iyy2n"))
(modules '((guix build utils)))
(snippet
'(begin

4
gnu/packages/web.scm
View File

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

4
gnu/packages/wget.scm
View File

@ -77,7 +77,7 @@ in downloaded documents to relative links.")
(define-public wgetpaste
(package
(name "wgetpaste")
(version "2.32")
(version "2.33")
(source
(origin
(method git-fetch)
@ -86,7 +86,7 @@ in downloaded documents to relative links.")
(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 @@ avoiding password prompts when X11 forwarding has already been setup.")
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 @@ transparent text on your screen.")
(define-public wob
(package
(name "wob")
(version "0.13")
(version "0.14.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/francma/wob/releases/download/"
version "/wob-" version ".tar.gz"))
(sha256
(base32 "0i8y6kq37qcgdq85ll4rapisjl7zw6aa11yx2f2xw2d3j93kdxh8"))))
(base32 "12s9pc0dhqgawq6jiqhamj1zq9753kgpswny1rcsdx1lkpzrgaq1"))))
(build-system meson-build-system)
(native-inputs
(list pkg-config scdoc))
(inputs
(list libseccomp wayland wayland-protocols))
(list libinih libseccomp wayland wayland-protocols))
(home-page "https://github.com/francma/wob")
(synopsis "Lightweight overlay bar for Wayland")
(description

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