amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge branch 'master' into emacs-team

Browse source
This commit is contained in:
Liliana Marie Prikler 2023-08-26 07:08:03 +02:00
commit 9d074e16c7
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
199 changed files with 50892 additions and 7955 deletions
Download patch file Download diff file Expand all files Collapse all files

3
.guix-authorizations
View file

@ -37,6 +37,9 @@
(;; primary: "2453 02B1 BAB1 F867 FDCA 96BC 8F3F 861F 82EB 7A9A"
"CBC5 9C66 EC27 B971 7940 6B3E 6BE8 208A DF21 FE3F"
(name "glv"))
(;; primary: "220F 98D9 5E86 204C 0036 DA7B 6DEC 4360 408B 4185"
"F4C2 D1DF 3FDE EA63 D1D3 0776 ACC6 6D09 CA52 8292"
(name "hako"))
("2219 43F4 9E9F 276F 9499 3382 BF28 6CB6 593E 5FFD"
(name "hoebjo"))
("B943 509D 633E 80DD 27FC 4EED 634A 8DFF D3F6 31DF"

1
.mailmap
View file

@ -39,6 +39,7 @@ Joshua Grant <tadni@riseup.net> <gzg@riseup.net>
Joshua Grant <tadni@riseup.net> <jgrant@parenthetical.io>
Joshua Grant <tadni@riseup.net> <tadnimi@gmail.com>
Joshua Grant <tadni@riseup.net> <youlysses@riseup.net>
Juliana Sims <juli@incana.org> <jtsims@protonmail.com>
Kei Kebreau <kkebreau@posteo.net>
Leo Famulari <leo@famulari.name> <lfamular@gmail.com>
Liliana Marie Prikler <liliana.prikler@gmail.com>

59
Makefile.am
View file

@ -7,7 +7,7 @@
# Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
# Copyright © 2017 Leo Famulari <leo@famulari.name>
# Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
# Copyright © 2017, 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
# Copyright © 2017, 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
# Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
# Copyright © 2018 Nikita <nikita@n0.is>
# Copyright © 2018 Julien Lepiller <julien@lepiller.eu>
@ -454,6 +454,7 @@ EXAMPLES = \
gnu/system/examples/desktop.tmpl \
gnu/system/examples/lightweight-desktop.tmpl \
gnu/system/examples/docker-image.tmpl \
gnu/system/examples/plasma.tmpl \
gnu/system/examples/raspberry-pi-64.tmpl \
gnu/system/examples/raspberry-pi-64-nfs-root.tmpl \
gnu/system/examples/vm-image.tmpl
@ -615,6 +616,7 @@ SH_TESTS = \
tests/guix-refresh.sh \
tests/guix-shell.sh \
tests/guix-shell-export-manifest.sh \
tests/guix-time-machine.sh \
tests/guix-graph.sh \
tests/guix-describe.sh \
tests/guix-repl.sh \
@ -696,8 +698,7 @@ EXTRA_DIST += \
build-aux/compile-all.scm \
build-aux/compile-as-derivation.scm \
build-aux/config.rpath \
build-aux/convert-xref.scm \
build-aux/cuirass/hurd-manifest.scm \
build-aux/convert-xref.scm \
build-aux/generate-authors.scm \
build-aux/test-driver.scm \
build-aux/update-NEWS.scm \
@ -707,6 +708,7 @@ EXTRA_DIST += \
etc/guix-install.sh \
etc/historical-authorizations \
etc/news.scm \
etc/hurd-manifest.scm \
etc/kernels-manifest.scm \
etc/release-manifest.scm \
etc/source-manifest.scm \
@ -774,15 +776,30 @@ endef
# in <https://issues.guix.gnu.org/48963>. Each 'eval' call below creates a
# 'make-*-go' phony target that builds the corresponding subset.
first_half := \
gnu/packages/a% gnu/packages/b% gnu/packages/c% gnu/packages/d% \
gnu/packages/e% gnu/packages/f% gnu/packages/g% gnu/packages/h% \
gnu/packages/i% gnu/packages/j% gnu/packages/k% gnu/packages/l%
first_fifth := \
gnu/packages/a% gnu/packages/b% gnu/packages/c%
second_fifth := \
gnu/packages/d% gnu/packages/e% gnu/packages/f%
third_fifth := \
gnu/packages/g% gnu/packages/h% gnu/packages/i%
fourth_fifth := \
gnu/packages/j% gnu/packages/k% gnu/packages/l% gnu/packages/m% \
gnu/packages/n% gnu/packages/o%
MODULES_CORE := guix.scm $(filter-out guix/scripts/%,$(filter guix/%,$(MODULES)))
MODULES_PACKAGES1 := $(filter $(first_half),$(MODULES))
MODULES_PACKAGES2 := $(filter-out $(first_half),$(filter gnu/packages/%,$(MODULES)))
MODULES_PACKAGES := $(MODULES_PACKAGES1) $(MODULES_PACKAGES2)
MODULES_PACKAGES1 := $(filter $(first_fifth),$(MODULES))
MODULES_PACKAGES2 := $(filter $(second_fifth),$(MODULES))
MODULES_PACKAGES3 := $(filter $(third_fifth),$(MODULES))
MODULES_PACKAGES4 := $(filter $(fourth_fifth),$(MODULES))
MODULES_PACKAGES5 := $(filter-out $(first_fifth) $(second_fifth) \
$(third_fifth) $(fourth_fifth), \
$(filter gnu/packages/%,$(MODULES)))
MODULES_PACKAGES := $(MODULES_PACKAGES1) $(MODULES_PACKAGES2) \
$(MODULES_PACKAGES3) $(MODULES_PACKAGES4) \
$(MODULES_PACKAGES5)
MODULES_SYSTEM := gnu.scm $(filter-out gnu/packages/%,$(filter gnu/%,$(MODULES)))
MODULES_CLI := $(filter guix/scripts/%,$(MODULES))
MODULES_PO := guix/build/po.scm
@ -802,7 +819,27 @@ $(eval $(call guile-compilation-rule,make-packages2-go, \
$(words $(MODULES_CORE) $(MODULES_PACKAGES1))))
.PHONY: make-packages2-go
make-packages-go: make-packages1-go make-packages2-go
$(eval $(call guile-compilation-rule,make-packages3-go, \
$(MODULES_PACKAGES3) make-core-go make-packages1-go make-packages2-go, \
$(words $(MODULES_CORE) $(MODULES_PACKAGES1) $(MODULES_PACKAGES2))))
.PHONY: make-packages3-go
$(eval $(call guile-compilation-rule,make-packages4-go, \
$(MODULES_PACKAGES4) make-core-go make-packages1-go make-packages2-go \
make-packages3-go, \
$(words $(MODULES_CORE) $(MODULES_PACKAGES1) $(MODULES_PACKAGES2) \
$(MODULES_PACKAGES3))))
.PHONY: make-packages4-go
$(eval $(call guile-compilation-rule,make-packages5-go, \
$(MODULES_PACKAGES5) make-core-go make-packages1-go make-packages2-go \
make-packages3-go make-packages4-go, \
$(words $(MODULES_CORE) $(MODULES_PACKAGES1) $(MODULES_PACKAGES2) \
$(MODULES_PACKAGES3) $(MODULES_PACKAGES4))))
.PHONY: make-packages5-go
make-packages-go: make-packages1-go make-packages2-go \
make-packages3-go make-packages4-go make-packages5-go
.PHONY: make-packages-go
$(eval $(call guile-compilation-rule,make-system-go, \

15
doc/contributing.texi
View file

@ -1589,10 +1589,21 @@ will automatically show up at
@indicateurl{https://qa.guix.gnu.org/branch/@var{branch}}, with an
indication of its build status on various platforms.
@cindex feature branches, coordination
To help coordinate the merging of branches, you must create a new
guix-patches issue each time you wish to merge a branch (@pxref{The
Issue Tracker}). Normally branches will be merged in a ``first come,
first merged'' manner, tracked through the guix-patches issues.
Issue Tracker}). The title of the issue requesting to merge a branch
should have the following format:
@cindex merge requests, template
@example
Request for merging "@var{name}" branch
@end example
The @url{https://qa.guix.gnu.org/, QA infrastructure} recognizes such
issues and lists the merge requests on its main page. Normally branches
will be merged in a ``first come, first merged'' manner, tracked through
the guix-patches issues.
If you agree on a different order with those involved, you can track
this by updating which issues block@footnote{You can mark an issue as

285
doc/guix-cookbook.texi
View file

@ -21,7 +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@*
Copyright @copyright{} 2022, 2023 Maxim Cournoyer@*
Copyright @copyright{} 2023 Ludovic Courtès
Permission is granted to copy, distribute and/or modify this document
@ -78,7 +78,7 @@ manual}).
* Containers:: Isolated environments and nested systems
* Advanced package management:: Power to the users!
* Environment management:: Control environment
* Installing Guix on a Cluster:: High-performance computing.
* Installing Guix on a Cluster:: High-performance computing.
* Acknowledgments:: Thanks!
* GNU Free Documentation License:: The license of this document.
@ -87,36 +87,86 @@ manual}).
@detailmenu
--- The Detailed Node Listing ---
Scheme tutorials
* A Scheme Crash Course::
Packaging
* Packaging Tutorial:: A tutorial on how to add packages to Guix.
* Packaging Tutorial:: A tutorial on how to add packages to Guix.
Packaging Tutorial
* A ``Hello World'' package::
* Setup::
* Extended example::
* Other build systems::
* Programmable and automated package definition::
* Getting help::
* Conclusion::
* References::
Setup
* Local file::
* Channels::
* Direct checkout hacking::
Programmable and automated package definition
* Recursive importers::
* Automatic update::
* Inheritance::
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.
* 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.
* Dynamic DNS mcron job:: Job to update the IP address behind a DuckDNS host name.
* 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
* Setting up a bind mount:: Setting up a bind mount in the file-systems definition.
* Getting substitutes from Tor:: Configuring Guix daemon to get substitutes through Tor.
* Setting up NGINX with Lua:: Configuring NGINX web-server to load Lua modules.
* Music Server with Bluetooth Audio:: Headless music player with Bluetooth output.
* 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.
* Setting up a bind mount:: Setting up a bind mount in the file-systems definition.
* Getting substitutes from Tor:: Configuring Guix daemon to get substitutes through Tor.
* Setting up NGINX with Lua:: Configuring NGINX web-server to load Lua modules.
* Music Server with Bluetooth Audio:: Headless music player with Bluetooth output.
Customizing a Window Manager
* StumpWM::
* Session lock::
Session lock
* Xorg::
Containers
* Guix Containers:: Perfectly isolated environments
* Guix System Containers:: A system inside your system
* Guix Containers:: Perfectly isolated environments
* Guix System Containers:: A system inside your system
Guix System Containers
* A Database Container::
* Container Networking::
Advanced package management
* Guix Profiles in Practice:: Strategies for multiple profiles and manifests.
* Guix Profiles in Practice:: Strategies for multiple profiles and manifests.
Guix Profiles in Practice
* Basic setup with manifests::
* Required packages::
* Default profile::
* The benefits of manifests::
* Reproducible profiles::
Environment management
* Guix environment via direnv:: Setup Guix environment with direnv
* Guix environment via direnv:: Setup Guix environment with direnv
Installing Guix on a Cluster
@ -144,6 +194,10 @@ experienced programmer to use them!
Let's get started!
@menu
* A Scheme Crash Course::
@end menu
@node A Scheme Crash Course
@section A Scheme Crash Course
@ -192,7 +246,8 @@ rest are the arguments passed to the function. Every function returns the
last evaluated expression as its return value.
@item
Anonymous functions are declared with the @code{lambda} term:
Anonymous functions---@dfn{procedures} in Scheme parlance---are declared
with the @code{lambda} term:
@lisp
(lambda (x) (* x x))
@ -208,6 +263,9 @@ which can in turn be applied to an argument:
@result{} 9
@end lisp
Procedures are regular values just like numbers, strings, Booleans, and
so on.
@item
Anything can be assigned a global name with @code{define}:
@ -233,6 +291,30 @@ A list structure can be created with the @code{list} procedure:
@result{} (2 3 5 7)
@end lisp
@item
Standard procedures are provided by the @code{(srfi srfi-1)} module to
create and process lists (@pxref{SRFI-1, list processing,, guile, GNU
Guile Reference Manual}). Here are some of the most useful ones in
action:
@lisp
(use-modules (srfi srfi-1)) ;import list processing procedures
(append (list 1 2) (list 3 4))
@result{} (1 2 3 4)
(map (lambda (x) (* x x)) (list 1 2 3 4))
@result{} (1 4 9 16)
(delete 3 (list 1 2 3 4)) @result{} (1 2 4)
(filter odd? (list 1 2 3 4)) @result{} (1 3)
(remove even? (list 1 2 3 4)) @result{} (1 3)
(find number? (list "a" 42 "b")) @result{} 42
@end lisp
Notice how the first argument to @code{map}, @code{filter},
@code{remove}, and @code{find} is a procedure!
@item
@cindex S-expression
The @dfn{quote} disables evaluation of a parenthesized expression, also
@ -280,6 +362,9 @@ they provide code to be executed during the package build process. They
look like this:
@lisp
(use-modules (guix gexp) ;so we can write gexps
(gnu packages base)) ;for 'coreutils'
;; Below is a G-expression representing staged code.
#~(begin
;; Invoke 'ls' from the package defined by the 'coreutils'
@ -347,6 +432,9 @@ defines the module @code{guix build-system ruby} which must be located in
@file{guix/build-system/ruby.scm} somewhere in the Guile load path. It
depends on the @code{(guix store)} module and it exports two variables,
@code{ruby-build} and @code{ruby-build-system}.
@xref{Package Modules,,, guix, GNU Guix Reference Manual}, for info on
modules that define packages.
@end itemize
@quotation Going further
@ -396,7 +484,7 @@ definitions in Guile Scheme, organizing them in package modules, and building
them.
@menu
* Packaging Tutorial:: A tutorial on how to add packages to Guix.
* Packaging Tutorial:: A tutorial on how to add packages to Guix.
@end menu
@node Packaging Tutorial
@ -438,6 +526,17 @@ It does not assume much knowledge of the Guix system nor of the Lisp language.
The reader is only expected to be familiar with the command line and to have some
basic programming knowledge.
@menu
* A ``Hello World'' package::
* Setup::
* Extended example::
* Other build systems::
* Programmable and automated package definition::
* Getting help::
* Conclusion::
* References::
@end menu
@node A ``Hello World'' package
@subsection A ``Hello World'' package
@ -643,6 +742,12 @@ easier for everyone to contribute to the project.
But first, let's look at other possibilities.
@menu
* Local file::
* Channels::
* Direct checkout hacking::
@end menu
@node Local file
@subsubsection Local file
@ -1293,6 +1398,12 @@ empowers us in ways that reach far beyond traditional package management.
Let's illustrate this with some awesome features of Guix!
@menu
* Recursive importers::
* Automatic update::
* Inheritance::
@end menu
@node Recursive importers
@subsubsection Recursive importers
@ -1456,17 +1567,18 @@ chapter is to demonstrate some advanced configuration concepts.
reference.
@menu
* 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.
* 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.
* Dynamic DNS mcron job:: Job to update the IP address behind a DuckDNS host name.
* 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
* Setting up a bind mount:: Setting up a bind mount in the file-systems definition.
* Getting substitutes from Tor:: Configuring Guix daemon to get substitutes through Tor.
* Setting up NGINX with Lua:: Configuring NGINX web-server to load Lua modules.
* Music Server with Bluetooth Audio:: Headless music player with Bluetooth output.
* 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.
* Setting up a bind mount:: Setting up a bind mount in the file-systems definition.
* Getting substitutes from Tor:: Configuring Guix daemon to get substitutes through Tor.
* Setting up NGINX with Lua:: Configuring NGINX web-server to load Lua modules.
* Music Server with Bluetooth Audio:: Headless music player with Bluetooth output.
@end menu
@node Auto-Login to a Specific TTY
@ -1907,17 +2019,23 @@ One can run:
mathieu@@cervin:~$ guix system --list-image-types
The available image types are:
- unmatched-raw
- rock64-raw
- pinebook-pro-raw
- pine64-raw
- novena-raw
- hurd-raw
- hurd-qcow2
- qcow2
- uncompressed-iso9660
- efi-raw
- arm64-raw
- arm32-raw
- iso9660
- uncompressed-iso9660
- tarball
- efi-raw
- mbr-raw
- docker
- wsl2
- raw-with-offset
- efi32-raw
@end example
and by writing an @code{operating-system} file based on
@ -2022,6 +2140,77 @@ security key'' menu. If it works, congratulations, your security key is
ready to be used with applications supporting two-factor authentication
(2FA).
@subsection Disabling OTP code generation for a Yubikey
@cindex disabling yubikey OTP
If you use a Yubikey security key and are irritated by the spurious OTP
codes it generates when inadvertently touching the key (e.g. causing you
to become a spammer in the @samp{#guix} channel when discussing from
your favorite IRC client!), you can disable it via the following
@command{ykman} command:
@example
guix shell python-yubikey-manager -- ykman config usb --force --disable OTP
@end example
Alternatively, you could use the @command{ykman-gui} command provided by
the @code{yubikey-manager-qt} package and either wholly disable the
@samp{OTP} application for the USB interface or, from the
@samp{Applications -> OTP} view, delete the slot 1 configuration, which
comes pre-configured with the Yubico OTP application.
@node Dynamic DNS mcron job
@section Dynamic DNS mcron job
@cindex dynamic DNS, DDNS
If your @acronym{ISP, Internet Service Provider} only provides dynamic
IP addresses, it can be useful to setup a dynamic @acronym{DNS, Domain
Name System} (also known as @acronym{DDNS, Dynamic DNS}) service to
associate a static host name to a public but dynamic (often changing) IP
address. There are multiple existing services that can be used for
this; in the following mcron job, @url{https://duckdns.org, DuckDNS} is
used. It should also work with other dynamic DNS services that offer a
similar interface to update the IP address, such as
@url{https://freedns.afraid.org/}, with minor adjustments.
The mcron job is provided below, where @var{DOMAIN} should be
substituted for your own domain prefix, and the DuckDNS provided token
associated to @var{DOMAIN} added to the
@file{/etc/duckdns/@var{DOMAIN}.token} file.
@lisp
(define duckdns-job
;; Update personal domain IP every 5 minutes.
#~(job '(next-minute (range 0 60 5))
#$(program-file
"duckdns-update"
(with-extensions (list guile-gnutls) ;required by (web client)
#~(begin
(use-modules (ice-9 textual-ports)
(web client))
(let ((token (string-trim-both
(call-with-input-file "/etc/duckdns/@var{DOMAIN}.token"
get-string-all)))
(query-template (string-append "https://www.duckdns.org/"
"update?domains=@var{DOMAIN}"
"&token=~a&ip=")))
(http-get (format #f query-template token))))))
"duckdns-update"
#:user "nobody"))
@end lisp
The job then needs to be added to the list of mcron jobs for your
system, using something like:
@lisp
(operating-system
(services
(cons* (service mcron-service-type
(mcron-configuration
(jobs (list duckdns-job ...))))
...
%base-services)))
@end lisp
@node Connecting to Wireguard VPN
@section Connecting to Wireguard VPN
@ -2103,6 +2292,11 @@ this post by thaller}.
@section Customizing a Window Manager
@cindex wm
@menu
* StumpWM::
* Session lock::
@end menu
@node StumpWM
@subsection StumpWM
@cindex stumpwm
@ -2158,6 +2352,10 @@ or it might be something you have to set up yourself. If you use a desktop envir
like GNOME or KDE, it's usually built in. If you use a plain window manager like
StumpWM or EXWM, you might have to set it up yourself.
@menu
* Xorg::
@end menu
@node Xorg
@subsubsection Xorg
@ -2821,8 +3019,8 @@ from foreign libraries or configuration files that are available
system-wide.
@menu
* Guix Containers:: Perfectly isolated environments
* Guix System Containers:: A system inside your system
* Guix Containers:: Perfectly isolated environments
* Guix System Containers:: A system inside your system
@end menu
@node Guix Containers
@ -3006,6 +3204,11 @@ caches or log files, etc. In Guix System the demands of this kind of
software are satisfied through the deployment of system services.
@menu
* A Database Container::
* Container Networking::
@end menu
@node A Database Container
@subsection A Database Container
@ -3208,7 +3411,7 @@ concepts.
reference.
@menu
* Guix Profiles in Practice:: Strategies for multiple profiles and manifests.
* Guix Profiles in Practice:: Strategies for multiple profiles and manifests.
@end menu
@node Guix Profiles in Practice
@ -3287,6 +3490,14 @@ Games.
Let's dive in the set up!
@menu
* Basic setup with manifests::
* Required packages::
* Default profile::
* The benefits of manifests::
* Reproducible profiles::
@end menu
@node Basic setup with manifests
@subsection Basic setup with manifests
@ -3601,7 +3812,7 @@ Guix provides multiple tools to manage environment. This chapter
demonstrate such utilities.
@menu
* Guix environment via direnv:: Setup Guix environment with direnv
* Guix environment via direnv:: Setup Guix environment with direnv
@end menu
@node Guix environment via direnv

475
doc/guix.texi
View file

@ -96,7 +96,7 @@ Copyright @copyright{} 2021 Domagoj Stolfa@*
Copyright @copyright{} 2021 Hui Lu@*
Copyright @copyright{} 2021 pukkamustard@*
Copyright @copyright{} 2021 Alice Brenon@*
Copyright @copyright{} 2021, 2022 Josselin Poiret@*
Copyright @copyright{} 2021-2023 Josselin Poiret@*
Copyright @copyright{} 2021, 2023 muradm@*
Copyright @copyright{} 2021, 2022 Andrew Tropin@*
Copyright @copyright{} 2021 Sarah Morgensen@*
@ -116,7 +116,9 @@ Copyright @copyright{} 2022 Antero Mejr@*
Copyright @copyright{} 2023 Karl Hallsby@*
Copyright @copyright{} 2023 Nathaniel Nicandro@*
Copyright @copyright{} 2023 Tanguy Le Carrour@*
Copyright @copyright{} 2023 Zheng Junjie@*
Copyright @copyright{} 2023 Brian Cully@*
Copyright @copyright{} 2023 Felix Lechner@*
Permission is granted to copy, distribute and/or modify this document
under the terms of the GNU Free Documentation License, Version 1.3 or
@ -448,6 +450,8 @@ Home Services
* Mail: Mail Home Services. Services for managing mail.
* Messaging: Messaging Home Services. Services for managing messaging.
* Media: Media Home Services. Services for managing media.
* Networking: Networking Home Services. Networking services.
* Miscellaneous: Miscellaneous Home Services. More services.
Platforms
@ -1403,7 +1407,7 @@ The system types the remote machine supports---e.g., @code{(list
"x86_64-linux" "i686-linux")}.
@item user
The user account to use when connecting to the remote machine over SSH.
The user account on the remote machine to use when connecting over SSH.
Note that the SSH key pair must @emph{not} be passphrase-protected, to
allow non-interactive logins.
@ -1497,6 +1501,11 @@ archives of files from the store (@pxref{Invoking guix archive}):
# guix archive --generate-key
@end example
@quotation Note
This key pair is not related to the SSH key pair that was previously
mentioned in the description of the @code{build-machine} data type.
@end quotation
@noindent
Each build machine must authorize the key of the master machine so that
it accepts store items it receives from the master:
@ -4801,9 +4810,11 @@ Specifically, @command{guix pull} downloads code from the @dfn{channels}
@item
the @option{--channels} option;
@item
the user's @file{~/.config/guix/channels.scm} file;
the user's @file{~/.config/guix/channels.scm} file, unless @option{-q}
is passed;
@item
the system-wide @file{/etc/guix/channels.scm} file;
the system-wide @file{/etc/guix/channels.scm} file, unless @option{-q}
is passed;
@item
the built-in default channels specified in the @code{%default-channels}
variable.
@ -4905,6 +4916,11 @@ Read the list of channels from @var{file} instead of
evaluates to a list of channel objects. @xref{Channels}, for more
information.
@item --no-channel-files
@itemx -q
Inhibit loading of the user and system channel files,
@file{~/.config/guix/channels.scm} and @file{/etc/guix/channels.scm}.
@cindex channel news
@item --news
@itemx -N
@ -5050,7 +5066,9 @@ guix time-machine --commit=v1.2.0 -- \
environment -C --ad-hoc guile -- guile
@end example
The command above fetches Guix@tie{}1.2.0 and runs its @command{guix
The command above fetches Guix@tie{}1.2.0 (and possibly other channels
specified by your @file{channels.scm} configuration files---see
below) and runs its @command{guix
environment} command to spawn an environment in a container running
@command{guile} (@command{guix environment} has since been subsumed by
@command{guix shell}; @pxref{Invoking guix shell}). It's like driving a
@ -5060,6 +5078,21 @@ 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.
As for @command{guix pull}, in the absence of any options,
@command{time-machine} fetches the latest commits of the channels
specified in @file{~/.config/guix/channels.scm},
@file{/etc/guix/channels.scm}, or the default channels; the @option{-q}
option lets you ignore these configuration files. The command:
@example
guix time-machine -q -- build hello
@end example
will thus build the package @code{hello} as defined in the main branch
of Guix, without any additional channel, which is in general a newer
revision of Guix than you have installed. Time travel works in both
directions!
@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
@ -5069,6 +5102,23 @@ opens the door to security vulnerabilities. @xref{Invoking guix pull,
@option{--allow-downgrades}}.
@end quotation
Due to @command{guix time-machine} relying on the ``inferiors''
mechanism (@pxref{Inferiors}), the oldest commit it can travel to is
commit @samp{6298c3ff} (``v1.0.0''), dated May 1@sup{st}, 2019, which is
the first release that included the inferiors mechanism. An error is
returned when attempting to navigate to older commits.
@quotation Note
Although it should technically be possible to travel to such an old
commit, the ease to do so will largely depend on the availability of
binary substitutes. When traveling to a distant past, some packages may
not easily build from source anymore. One such example are old versions
of Python 2 which had time bombs in its test suite, in the form of
expiring SSL certificates. This particular problem can be worked around
by setting the hardware clock to a value in the past before attempting
the build.
@end quotation
The general syntax is:
@example
@ -5092,18 +5142,21 @@ string or the name of a tag), or @var{branch}.
Read the list of channels from @var{file}. @var{file} must contain
Scheme code that evaluates to a list of channel objects.
@xref{Channels} for more information.
@end table
As for @command{guix pull}, the absence of any options means that the
latest commit on the master branch will be used. The command
@item --no-channel-files
@itemx -q
Inhibit loading of the user and system channel files,
@file{~/.config/guix/channels.scm} and @file{/etc/guix/channels.scm}.
Thus, @command{guix time-machine -q} is equivalent to the following Bash
command, using the ``process substitution'' syntax (@pxref{Process
Substitution,,, bash, The GNU Bash Reference Manual}):
@example
guix time-machine -- build hello
guix time-machine -C <(echo %default-channels) @dots{}
@end example
will thus build the package @code{hello} as defined in the master branch,
which is in general a newer revision of Guix than you have installed.
Time travel works in both directions!
@end table
Note that @command{guix time-machine} can trigger builds of channels and
their dependencies, and these are controlled by the standard build
@ -6218,6 +6271,14 @@ building or downloading any missing package, and runs the
guix shell python python-numpy -- python3
@end example
Note that it is necessary to include the main @code{python} package in
this command even if it is already installed into your environment.
This is so that the shell environment knows to set @env{PYTHONPATH} and
other related variables. The shell environment cannot check the
previously installed environment, because then it would be
non-deterministic. This is true for most libraries: their corresponding
language package should be included in the shell invocation.
@quotation Note
@cindex shebang, for @command{guix shell}
@command{guix shell} can be also be used as a script interpreter, also
@ -14529,6 +14590,26 @@ gnu/packages/guile.scm:147:2: guile: updating from version 2.0.10 to version 2.0
@dots{}
@end example
In some specific cases, you may have many packages specified via a
manifest or a module selection which should all be updated together; for
these cases, the @option{--target-version} option can be provided to have
them all refreshed to the same version, as shown in the examples below:
@example
$ guix refresh qtbase qtdeclarative --target-version=6.5.2
gnu/packages/qt.scm:1248:13: qtdeclarative would be upgraded from 6.3.2 to 6.5.2
gnu/packages/qt.scm:584:2: qtbase would be upgraded from 6.3.2 to 6.5.2
@end example
@example
$ guix refresh --manifest=qt5-manifest.scm --target-version=5.15.10
gnu/packages/qt.scm:1173:13: qtxmlpatterns would be upgraded from 5.15.8 to 5.15.10
gnu/packages/qt.scm:1202:13: qtdeclarative would be upgraded from 5.15.8 to 5.15.10
gnu/packages/qt.scm:1762:13: qtserialbus would be upgraded from 5.15.8 to 5.15.10
gnu/packages/qt.scm:2070:13: qtquickcontrols2 would be upgraded from 5.15.8 to 5.15.10
@dots{}
@end example
Sometimes the upstream name differs from the package name used in Guix,
and @command{guix refresh} needs a little help. Most updaters honor the
@code{upstream-name} property in package definitions, which can be used
@ -16924,6 +17005,13 @@ Alternatively, the @code{modify-services} macro can be used:
(delete avahi-service-type))
@end lisp
@quotation Do not panic
@cindex Scheme programming language, getting started
Intimidated by the Scheme language or curious about it? The Cookbook
has a short section to get started that explains the fundamentals, which
you will find helpful when hacking your configuration. @xref{A Scheme
Crash Course,,, guix-cookbook, GNU Guix Cookbook}.
@end quotation
@unnumberedsubsec Instantiating the System
@ -17969,6 +18057,10 @@ administrator's choice; reconfiguring does @emph{not} change their name.
@item @code{home-directory}
This is the name of the home directory for the account.
@item @code{home-directory-permissions} (default: @code{#o700})
The permission bits for the home directory. By default, full access is
granted to the user account and all other access is denied.
@item @code{create-home-directory?} (default: @code{#t})
Indicates whether the home directory of this account should be created
if it does not exist yet.
@ -21230,6 +21322,8 @@ client.
@end table
@end deftp
@cindex Syncthing, file synchronization service
@cindex backup service, Syncthing
The @code{(gnu services syncthing)} module provides the following services:
@cindex syncthing
@ -21247,7 +21341,14 @@ syncthing} daemon, The value for this service type is a
(syncthing-configuration (user "alice")))
@end lisp
@quotation Note
This service is also available for Guix Home, where it runs directly
with your user privileges (@pxref{Networking Home Services,
@code{home-syncthing-service-type}}).
@end quotation
See below for details about @code{syncthing-configuration}.
@end defvar
@deftp {Data Type} syncthing-configuration
Data type representing the configuration for @code{syncthing-service-type}.
@ -21277,7 +21378,6 @@ directory is @file{$HOME} of the specified Syncthing @code{user}.
@end table
@end deftp
@end defvar
Furthermore, @code{(gnu services ssh)} provides the following services.
@cindex SSH
@ -23726,6 +23826,23 @@ The GNOME package to use.
@end table
@end deftp
@defvar plasma-desktop-service-type
This is the type of the service that adds the @uref{https://kde.org/plasma-desktop/,
Plasma} desktop environment. Its value is a @code{plasma-desktop-configuration}
object (see below).
This service adds the @code{plasma} package to the system profile.
@end defvar
@deftp {Data Type} plasma-desktop-configuration
Configuration record for the Plasma desktop environment.
@table @asis
@item @code{plasma} (default: @code{plasma})
The Plasma package to use.
@end table
@end deftp
@defvar xfce-desktop-service-type
This is the type of a service to run the @uref{Xfce, https://xfce.org/}
desktop environment. Its value is an @code{xfce-desktop-configuration} object
@ -24994,12 +25111,11 @@ String or G-exp denoting an mcron schedule for the periodic
@command{updatedb} job (@pxref{Guile Syntax,,, mcron, GNU@tie{}mcron}).
@item @code{excluded-directories} (default @code{%default-file-database-excluded-directories})
List of directories to ignore when building the file database. By
default, this includes @file{/tmp} and @file{/gnu/store}, which should
instead be indexed by @command{guix locate} (@pxref{Invoking guix
locate}). This list is passed to the @option{--prunepaths} option of
@command{updatedb} (@pxref{Invoking updatedb,,, find,
GNU@tie{}Findutils}).
List of regular expressions of directories to ignore when building the
file database. By default, this includes @file{/tmp} and @file{/gnu/store};
the latter should instead be indexed by @command{guix locate} (@pxref{Invoking
guix locate}). This list is passed to the @option{--prunepaths} option of
@command{updatedb} (@pxref{Invoking updatedb,,, find, GNU@tie{}Findutils}).
@end table
@end deftp
@ -25151,6 +25267,20 @@ There is no need to add this field for contrib extensions such as hstore or
dblink as they are already loadable by postgresql. This field is only
required to add extensions provided by other packages.
@item @code{create-account?} (default: @code{#t})
Whether or not the @code{postgres} user and group should be created.
@item @code{uid} (default: @code{#f})
Explicitly specify the UID of the @code{postgres} daemon account.
You normally do not need to specify this, in which case a free UID will
be automatically assigned.
One situation where this option might be useful is if the @var{data-directory}
is located on a mounted network share.
@item @code{gid} (default: @code{#f})
Explicitly specify the GID of the @code{postgres} group.
@end table
@end deftp
@ -32521,113 +32651,6 @@ network or obtained a DHCP lease from dnsmasq.
@end table
@end deftp
@subsubheading ddclient Service
@cindex ddclient
The ddclient service described below runs the ddclient daemon, which takes
care of automatically updating DNS entries for service providers such as
@uref{https://dyn.com/dns/, Dyn}.
The following example show instantiates the service with its default
configuration:
@lisp
(service ddclient-service-type)
@end lisp
Note that ddclient needs to access credentials that are stored in a
@dfn{secret file}, by default @file{/etc/ddclient/secrets} (see
@code{secret-file} below). You are expected to create this file manually, in
an ``out-of-band'' fashion (you @emph{could} make this file part of the
service configuration, for instance by using @code{plain-file}, but it will be
world-readable @i{via} @file{/gnu/store}). See the examples in the
@file{share/ddclient} directory of the @code{ddclient} package.
@c %start of fragment
Available @code{ddclient-configuration} fields are:
@deftypevr {@code{ddclient-configuration} parameter} package ddclient
The ddclient package.
@end deftypevr
@deftypevr {@code{ddclient-configuration} parameter} integer daemon
The period after which ddclient will retry to check IP and domain name.
Defaults to @samp{300}.
@end deftypevr
@deftypevr {@code{ddclient-configuration} parameter} boolean syslog
Use syslog for the output.
Defaults to @samp{#t}.
@end deftypevr
@deftypevr {@code{ddclient-configuration} parameter} string mail
Mail to user.
Defaults to @samp{"root"}.
@end deftypevr
@deftypevr {@code{ddclient-configuration} parameter} string mail-failure
Mail failed update to user.
Defaults to @samp{"root"}.
@end deftypevr
@deftypevr {@code{ddclient-configuration} parameter} string pid
The ddclient PID file.
Defaults to @samp{"/var/run/ddclient/ddclient.pid"}.
@end deftypevr
@deftypevr {@code{ddclient-configuration} parameter} boolean ssl
Enable SSL support.
Defaults to @samp{#t}.
@end deftypevr
@deftypevr {@code{ddclient-configuration} parameter} string user
Specifies the user name or ID that is used when running ddclient
program.
Defaults to @samp{"ddclient"}.
@end deftypevr
@deftypevr {@code{ddclient-configuration} parameter} string group
Group of the user who will run the ddclient program.
Defaults to @samp{"ddclient"}.
@end deftypevr
@deftypevr {@code{ddclient-configuration} parameter} string secret-file
Secret file which will be appended to @file{ddclient.conf} file. This
file contains credentials for use by ddclient. You are expected to
create it manually.
Defaults to @samp{"/etc/ddclient/secrets.conf"}.
@end deftypevr
@deftypevr {@code{ddclient-configuration} parameter} list extra-options
Extra options will be appended to @file{ddclient.conf} file.
Defaults to @samp{'()}.
@end deftypevr
@c %end of fragment
@node VNC Services
@subsection VNC Services
@cindex VNC (virtual network computing)
@ -33088,7 +33111,7 @@ IP address that no longer correspond to their freshly resolved host
name. Set this to @code{#t} if one or more endpoints use host names
provided by a dynamic DNS service to keep the sessions alive.
@item @code{monitor-ips-internal} (default: @code{'(next-minute (range 0 60 5))})
@item @code{monitor-ips-interval} (default: @code{'(next-minute (range 0 60 5))})
The time interval at which the IP monitoring job should run, provided as
an mcron time specification (@pxref{Guile Syntax,,,mcron}).
@ -38632,6 +38655,94 @@ parameters, can be done as follow:
@end lisp
@end defvar
@subsubheading Cachefilesd Service
@cindex cachefilesd
@cindex fscache, file system caching (Linux)
The Cachefilesd service starts a daemon that caches network file system
data locally. It is especially useful for NFS and AFS shares, where it
reduces latencies for repeated access when reading files.
The daemon can be configured as follows:
@lisp
(service cachefilesd-service-type
(cachefilesd-configuration
(cache-directory "/var/cache/fscache")))
@end lisp
@defvar cachefilesd-service-type
The service type for starting @command{cachefilesd}. The value for this
service type is a @code{cachefilesd-configuration}, whose only required
field is @var{cache-directory}.
@end defvar
@c %start of fragment
@deftp {Data Type} cachefilesd-configuration
Available @code{cachefilesd-configuration} fields are:
@table @asis
@item @code{cachefilesd} (default: @code{cachefilesd}) (type: file-like)
The cachefilesd package to use.
@item @code{debug-output?} (default: @code{#f}) (type: boolean)
Print debugging output to stderr.
@item @code{use-syslog?} (default: @code{#t}) (type: boolean)
Log to syslog facility instead of stdout.
@item @code{scan?} (default: @code{#t}) (type: boolean)
Scan for cachable objects.
@item @code{cache-directory} (type: maybe-string)
Location of the cache directory.
@item @code{cache-name} (default: @code{"CacheFiles"}) (type: maybe-string)
Name of cache (keep unique).
@item @code{security-context} (type: maybe-string)
SELinux security context.
@item @code{pause-culling-for-block-percentage} (default: @code{7}) (type: maybe-non-negative-integer)
Pause culling when available blocks exceed this percentage.
@item @code{pause-culling-for-file-percentage} (default: @code{7}) (type: maybe-non-negative-integer)
Pause culling when available files exceed this percentage.
@item @code{resume-culling-for-block-percentage} (default: @code{5}) (type: maybe-non-negative-integer)
Start culling when available blocks drop below this percentage.
@item @code{resume-culling-for-file-percentage} (default: @code{5}) (type: maybe-non-negative-integer)
Start culling when available files drop below this percentage.
@item @code{pause-caching-for-block-percentage} (default: @code{1}) (type: maybe-non-negative-integer)
Pause further allocations when available blocks drop below this
percentage.
@item @code{pause-caching-for-file-percentage} (default: @code{1}) (type: maybe-non-negative-integer)
Pause further allocations when available files drop below this
percentage.
@item @code{log2-table-size} (default: @code{12}) (type: maybe-non-negative-integer)
Size of tables holding cullable objects in logarithm of base 2.
@item @code{cull?} (default: @code{#t}) (type: boolean)
Create free space by culling (consumes system load).
@item @code{trace-function-entry-in-kernel-module?} (default: @code{#f}) (type: boolean)
Trace function entry in the kernel module (for debugging).
@item @code{trace-function-exit-in-kernel-module?} (default: @code{#f}) (type: boolean)
Trace function exit in the kernel module (for debugging).
@item @code{trace-internal-checkpoints-in-kernel-module?} (default: @code{#f}) (type: boolean)
Trace internal checkpoints in the kernel module (for debugging).
@end table
@end deftp
@c %end of fragment
@cindex rasdaemon
@cindex Platform Reliability, Availability and Serviceability daemon
@subsubheading Rasdaemon Service
@ -38997,6 +39108,12 @@ implementation of DICT server (@pxref{Dicod,,, dico, GNU Dico Manual}).
You can add @command{open localhost} to your @file{~/.dico} file to make
@code{localhost} the default server for @command{dico} client
(@pxref{Initialization File,,, dico, GNU Dico Manual}).
@quotation Note
This service is also available for Guix Home, where it runs directly
with your user privileges (@pxref{Miscellaneous Home Services,
@code{home-dicod-service-type}}).
@end quotation
@end defvar
@deftp {Data Type} dicod-configuration
@ -40779,7 +40896,7 @@ QEMU monitor and the VM.
@cindex image, creating disk images
The @code{image} command can produce various image types. The image
type can be selected using the @option{--image-type} option. It
defaults to @code{efi-raw}. When its value is @code{iso9660}, the
defaults to @code{mbr-raw}. When its value is @code{iso9660}, the
@option{--label} option can be used to specify a volume ID with
@code{image}. By default, the root file system of a disk image is
mounted non-volatile; the @option{--volatile} option can be provided to
@ -40798,7 +40915,7 @@ qemu-system-x86_64 -enable-kvm -hda /tmp/my-image.qcow2 -m 1000 \
-bios $(guix build ovmf)/share/firmware/ovmf_x64.bin
@end example
When using the @code{efi-raw} image type, a raw disk image is produced;
When using the @code{mbr-raw} image type, a raw disk image is produced;
it can be copied as is to a USB stick, for instance. Assuming
@code{/dev/sdc} is the device corresponding to a USB stick, one can copy
the image to it using the following command:
@ -40936,7 +41053,7 @@ of the image.
For the @code{image} action, create an image with given @var{type}.
When this option is omitted, @command{guix system} uses the
@code{efi-raw} image type.
@code{mbr-raw} image type.
@cindex ISO-9660 format
@cindex CD image format
@ -42887,15 +43004,17 @@ services)}.
* Mail: Mail Home Services. Services for managing mail.
* Messaging: Messaging Home Services. Services for managing messaging.
* Media: Media Home Services. Services for managing media.
* Networking: Networking Home Services. Networking services.
* Miscellaneous: Miscellaneous Home Services. More services.
@end menu
@c In addition to that Home Services can provide
@node Essential Home Services
@subsection Essential Home Services
There are a few essential home services defined in
@code{(gnu services)}, they are mostly for internal use and are required
to build a home environment, but some of them will be useful for the end
user.
@code{(gnu home services)}, they are mostly for internal use and are
required to build a home environment, but some of them will be useful
for the end user.
@cindex environment variables
@ -44160,8 +44279,8 @@ font installation path (@file{~/.guix-home/profile/share/fonts}). If
you configure this service directly, be sure to include the above
directory.
A typical extension for adding an additional font directory and setting
a font as the default monospace font might look like this:
Here's how you'd extend it to include fonts installed with the Nix
package manager, and to prefer your favourite monospace font:
@lisp
(simple-service 'additional-fonts-service
@ -44476,6 +44595,82 @@ kodi} for more information.
@end table
@end deftp
@node Networking Home Services
@subsection Networking Home Services
This section lists services somewhat networking-related that you may use
with Guix Home.
@cindex Syncthing, file synchronization service
@cindex backup service, Syncthing
The @code{(gnu home services syncthing)} module provides a service to
set up the @uref{Syncthing, https://syncthing.net} continuous file
backup service.
@defvar home-syncthing-service-type
This is the service type for the @command{syncthing} daemon; it is the
Home counterpart of the @code{syncthing-service-type} system service
(@pxref{Networking Services, @code{syncthing-service-type}}). The value
for this service type is a @command{syncthing-configuration}.
Here is how you would set it up with the default configuration:
@lisp
(service home-syncthing-service-type)
@end lisp
For a custom configuration, wrap you @code{syncthing-configuration} in
@code{for-home}, as in this example:
@lisp
(service home-syncthing-service-type
(for-home
(syncthing-configuration (logflags 5))))
@end lisp
For details about @code{syncthing-configuration}, check out the
documentation of the system service (@pxref{Networking Services,
@code{syncthing-service-type}}).
@end defvar
@node Miscellaneous Home Services
@subsection Miscellaneous Home Services
This section lists Home services that lack a better place.
@subsubheading Dictionary Service
@cindex dictionary service, for Home
The @code{(gnu home services dict)} module provides the following service:
@defvar home-dicod-service-type
This is the type of the service that runs the @command{dicod} daemon, an
implementation of DICT server (@pxref{Dicod,,, dico, GNU Dico Manual}).
You can add @command{open localhost} to your @file{~/.dico} file to make
@code{localhost} the default server for @command{dico} client
(@pxref{Initialization File,,, dico, GNU Dico Manual}).
@end defvar
This service is a direct mapping of the @code{dicod-service-type} system
service (@pxref{Miscellaneous Services, Dictionary Service}). You can
use it like this:
@lisp
(service home-dicod-service-type)
@end lisp
You may specify a custom configuration by providing a
@code{dicod-configuration} record, exactly like for
@code{dicod-service-type}, but wrapping it in @code{for-home}:
@lisp
(service home-dicod-service-type
(for-home
(dicod-configuration @dots{})))
@end lisp
@node Invoking guix home
@section Invoking @command{guix home}
@ -45010,7 +45205,7 @@ then directly boot from it, without any kind of installation procedure.
The @command{guix system image} command is able to turn an operating
system definition into a bootable image. This command supports
different image types, such as @code{efi-raw}, @code{iso9660} and
different image types, such as @code{mbr-raw}, @code{iso9660} and
@code{docker}. Any modern @code{x86_64} machine will probably be able
to boot from an @code{iso9660} image. However, there are a few machines
out there that require specific image types. Those machines, in general
@ -45362,6 +45557,10 @@ record.
There are several @code{image-type} records provided by the @code{(gnu
system image)} and the @code{(gnu system images @dots{})} modules.
@defvar mbr-raw-image-type
Build an image based on the @code{mbr-disk-image} image.
@end defvar
@defvar efi-raw-image-type
Build an image based on the @code{efi-disk-image} image.
@end defvar
@ -45371,7 +45570,7 @@ Build an image based on the @code{efi32-disk-image} image.
@end defvar
@defvar qcow2-image-type
Build an image based on the @code{efi-disk-image} image but with the
Build an image based on the @code{mbr-disk-image} image but with the
@code{compressed-qcow2} image format.
@end defvar
@ -45442,7 +45641,7 @@ wsl -d Guix
So, if we get back to the @code{guix system image} command taking an
@code{operating-system} declaration as argument. By default, the
@code{efi-raw-image-type} is used to turn the provided
@code{mbr-raw-image-type} is used to turn the provided
@code{operating-system} into an actual bootable image.
To use a different @code{image-type}, the @code{--image-type} option can

4
doc/local.mk
View file

@ -229,8 +229,8 @@ $(srcdir)/%D%/guix.1: scripts/guix.in $(sub_commands_mans)
# The 'case' ensures the man pages are only generated if the corresponding
# source script (the first prerequisite) has been changed. The $(GOBJECTS)
# prerequisite is solely meant to force these docs to be made only after all
# Guile modules have been compiled.
$(srcdir)/%D%/guix-%.1: guix/scripts/%.scm $(GOBJECTS)
# Guile modules have been compiled. We also need the guix script to exist.
$(srcdir)/%D%/guix-%.1: scripts/guix guix/scripts/%.scm $(GOBJECTS)
-@case '$?' in \
*$<*) $(AM_V_P) && set -x || echo " HELP2MAN $@"; \
$(gen_man) --output="$@" "guix $*";; \

0
build-aux/cuirass/hurd-manifest.scm → etc/hurd-manifest.scm
View file

6
etc/teams.scm.in
View file

@ -614,11 +614,15 @@ GLib/GIO, GTK, GStreamer and Webkit."
"maxim.cournoyer@gmail.com")
gnome qt telephony)
(define-member (person "Katherine Cox-Buday"
"cox.katherine.e+guix@gmail.com")
emacs go lisp)
(define (find-team name)
(or (hash-ref %teams (string->symbol name))
(error (format #false
"no such team: ~a~%" name))))
"no such team: ~a~%" name))))
(define (find-team-by-scope files)
"Return the team(s) which scope matches at least one of the FILES, as list

50
etc/teams/qt/common.scm Normal file
View file

@ -0,0 +1,50 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
;;; This file returns a manifest of packages related to linux-libre.
;;; Simplistically, it selects packages whose names begin with "linux-libre".
;;; It is used to assist continuous integration of the kernel packages.
(use-modules (guix packages)
(guix profiles)
(guix utils)
(gnu packages))
(define* (qt-packages-manifest #:key major-version negate-version-test?)
"Return a manifest of Qt packages for MAJOR-VERSION, or any version if left
unspecified. If NEGATE-VERSION-TEST? is true, select all the Qt packages
*not* matching MAJOR-VERSION."
(manifest
(map package->manifest-entry
(fold-packages
(lambda (package lst)
(let ((uri (and=> (package-source package)
(lambda (x)
(and (origin? x)
(origin-uri x))))))
(if (and uri
(string? uri)
(string-prefix? "mirror://qt/" uri)
(if major-version
((if negate-version-test? not identity)
(string=? major-version (version-major
(package-version package))))
#t))
(cons package lst)
lst)))
'()))))

34
etc/teams/qt/qt-manifest.scm Normal file
View file

@ -0,0 +1,34 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
;;; This file returns a manifest of packages related to linux-libre.
;;; Simplistically, it selects packages whose names begin with "linux-libre".
;;; It is used to assist continuous integration of the kernel packages.
(load "common.scm")
;;; Commentary:
;;;
;;; This manifest can be used to update the latest Qt packages collection, via
;;; e.g.:
;;;
;;; ./pre-inst-env guix refresh -u -m etc/teams/qt/qt-manifest.scm
;;;
;;; Code:
(qt-packages-manifest #:major-version "5" #:negate-version-test? #t)

34
etc/teams/qt/qt5-manifest.scm Normal file
View file

@ -0,0 +1,34 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
;;; This file returns a manifest of packages related to linux-libre.
;;; Simplistically, it selects packages whose names begin with "linux-libre".
;;; It is used to assist continuous integration of the kernel packages.
(load "common.scm")
;;; Commentary:
;;;
;;; This manifest can be used to update the Qt 5 packages collection, via
;;; e.g.:
;;;
;;; ./pre-inst-env guix refresh -u -m etc/teams/qt/qt5-manifest.scm --target-version=5.15.10
;;;
;;; Code:
(qt-packages-manifest #:major-version "5")

6
gnu/build/activation.scm
View file

@ -162,14 +162,14 @@ owner-writable in HOME."
group records) are all available."
(define (make-home-directory user)
(let ((home (user-account-home-directory user))
(home-permissions (user-account-home-directory-permissions user))
(pwd (getpwnam (user-account-name user))))
(mkdir-p home)
;; Always set ownership and permissions for home directories of system
;; accounts. If a service needs looser permissions on its home
;; directories, it can always chmod it in an activation snippet.
;; accounts.
(chown home (passwd:uid pwd) (passwd:gid pwd))
(chmod home #o700)))
(chmod home home-permissions)))
(define system-accounts
(filter (lambda (user)

69
gnu/ci.scm
View file

@ -24,6 +24,7 @@
#:use-module (guix build-system channel)
#:use-module (guix config)
#:autoload (guix describe) (package-channels)
#:use-module (guix memoization)
#:use-module (guix store)
#:use-module (guix profiles)
#:use-module (guix packages)
@ -342,29 +343,32 @@ otherwise use the IMAGE name."
;; Return the name of a package's job.
package-name)
(define base-packages
(mlambda (system)
"Return the set of packages considered to be part of the base for SYSTEM."
(delete-duplicates
(append-map (match-lambda
((_ package _ ...)
(match (package-transitive-inputs package)
(((_ inputs _ ...) ...)
inputs))))
(%final-inputs system)))))
(define package->job
(let ((base-packages
(delete-duplicates
(append-map (match-lambda
((_ package _ ...)
(match (package-transitive-inputs package)
(((_ inputs _ ...) ...)
inputs))))
(%final-inputs)))))
(lambda* (store package system #:key (suffix ""))
"Return a job for PACKAGE on SYSTEM, or #f if this combination is not
(lambda* (store package system #:key (suffix ""))
"Return a job for PACKAGE on SYSTEM, or #f if this combination is not
valid. Append SUFFIX to the job name."
(cond ((member package base-packages)
(package-job store (string-append "base." (job-name package))
package system #:suffix suffix))
((supported-package? package system)
(let ((drv (package-derivation store package system
#:graft? #f)))
(and (substitutable-derivation? drv)
(package-job store (job-name package)
package system #:suffix suffix))))
(else
#f)))))
(cond ((member package (base-packages system))
(package-job store (string-append "base." (job-name package))
package system #:suffix suffix))
((supported-package? package system)
(let ((drv (package-derivation store package system
#:graft? #f)))
(and (substitutable-derivation? drv)
(package-job store (job-name package)
package system #:suffix suffix))))
(else
#f))))
(define %x86-64-micro-architectures
;; Micro-architectures for which we build tuned variants.
@ -417,9 +421,9 @@ valid. Append SUFFIX to the job name."
(map channel-url channels)))
arguments))
(define (manifests->jobs store manifests)
(define (manifests->jobs store manifests systems)
"Return the list of jobs for the entries in MANIFESTS, a list of file
names."
names, for each one of SYSTEMS."
(define (load-manifest manifest)
(save-module-excursion
(lambda ()
@ -430,11 +434,12 @@ names."
(string-append (manifest-entry-name entry) "-"
(manifest-entry-version entry)))
(define (manifest-entry->job entry)
(define (manifest-entry->job entry system)
(let* ((obj (manifest-entry-item entry))
(drv (parameterize ((%graft? #f))
(run-with-store store
(lower-object obj))))
(lower-object obj system)
#:system system)))
(max-silent-time (or (and (package? obj)
(assoc-ref (package-properties obj)
'max-silent-time))
@ -446,11 +451,13 @@ names."
#:max-silent-time max-silent-time
#:timeout timeout)))
(map manifest-entry->job
(delete-duplicates
(append-map (compose manifest-entries load-manifest)
manifests)
manifest-entry=?)))
(let ((entries (delete-duplicates
(append-map (compose manifest-entries load-manifest)
manifests)
manifest-entry=?)))
(append-map (lambda (system)
(map (cut manifest-entry->job <> system) entries))
systems)))
(define (arguments->systems arguments)
"Return the systems list from ARGUMENTS."
@ -572,7 +579,7 @@ names."
(('manifests . rest)
;; Build packages in the list of manifests.
(let ((manifests (arguments->manifests rest channels)))
(manifests->jobs store manifests)))
(manifests->jobs store manifests systems)))
(else
(error "unknown subset" subset))))
systems)))

69
gnu/home/services.scm
View file

@ -33,6 +33,7 @@
#:use-module (guix diagnostics)
#:use-module (guix i18n)
#:use-module (guix modules)
#:use-module (guix memoization)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-9)
#:use-module (ice-9 match)
@ -63,11 +64,16 @@
lookup-home-service-types
home-provenance
define-service-type-mapping
system->home-service-type
%initialize-gettext)
#:re-export (service
service-type
service-extension))
service-extension
for-home
for-home?))
;;; Comment:
;;;
@ -513,6 +519,67 @@ directory. @command{activate} script automatically called during
reconfiguration or generation switching. This service can be extended
with one gexp, but many times, and all gexps must be idempotent.")))
;;;
;;; Service type graph rewriting.
;;;
(define (service-type-mapping proc)
"Return a procedure that applies PROC to map a service type graph to another
one."
(define (rewrite extension)
(match (proc (service-extension-target extension))
(#f #f)
(target
(service-extension target
(service-extension-compute extension)))))
(define replace
(mlambdaq (type)
(service-type
(inherit type)
(name (symbol-append 'home- (service-type-name type)))
(location (service-type-location type))
(extensions (filter-map rewrite (service-type-extensions type))))))
replace)
(define %system/home-service-type-mapping
;; Mapping of System to Home services.
(make-hash-table))
(define system->home-service-type
;; Map the given System service type to the corresponding Home service type.
(let ()
(define (replace type)
(define replacement
(hashq-ref %system/home-service-type-mapping type
*unspecified*))
(if (eq? replacement *unspecified*)
type
replacement))
(service-type-mapping replace)))
(define-syntax define-service-type-mapping
(syntax-rules (=>)
((_ system-type => home-type)
(hashq-set! %system/home-service-type-mapping
system-type home-type))))
(define-syntax define-service-type-mappings
(syntax-rules (=>)
((_ (system-type => home-type) ...)
(begin
(define-service-type-mapping system-type => home-type)
...))))
(define-service-type-mappings
(system-service-type => home-service-type)
(activation-service-type => home-activation-service-type)
(profile-service-type => home-profile-service-type))
;;;
;;; On-change.

32
gnu/home/services/dict.scm Normal file
View file

@ -0,0 +1,32 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2023 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu home services dict)
#:use-module (gnu home services)
#:use-module (gnu services)
#:use-module (gnu services dict)
#:use-module ((gnu system shadow) #:select (account-service-type))
#:export (home-dicod-service-type)
#:re-export (dicod-configuration))
(define home-dicod-service-type
(service-type
(inherit (system->home-service-type
(remove-service-extensions dicod-service-type
(list account-service-type))))
(default-value (for-home (dicod-configuration)))))

96
gnu/home/services/mcron.scm
View file

@ -2,6 +2,7 @@
;;; Copyright © 2021, 2023 Andrew Tropin <andrew@trop.in>
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2023 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -19,16 +20,9 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu home services mcron)
#:use-module (gnu packages guile-xyz)
#:use-module (gnu home services)
#:use-module (gnu services configuration)
#:use-module (gnu services shepherd)
#:use-module (gnu home services shepherd)
#:use-module (guix records)
#:use-module (guix gexp)
#:use-module (srfi srfi-1)
#:use-module (ice-9 match)
#:use-module (gnu services mcron) ;for the service mapping
#:export (home-mcron-configuration
home-mcron-service-type))
@ -55,86 +49,16 @@
;;
;;; Code:
(define list-of-gexps?
(list-of gexp?))
(define-configuration/no-serialization home-mcron-configuration
(mcron (file-like mcron) "The mcron package to use.")
(jobs
(list-of-gexps '())
"This is a list of gexps (@pxref{G-Expressions}), where each gexp
corresponds to an mcron job specification (@pxref{Syntax, mcron job
specifications,, mcron, GNU@tie{}mcron}).")
(log? (boolean #t) "Log messages to standard output.")
(log-format
(string "~1@*~a ~a: ~a~%")
"@code{(ice-9 format)} format string for log messages. The default value
produces messages like \"@samp{@var{pid} @var{name}:
@var{message}\"} (@pxref{Invoking mcron, Invoking,, mcron, GNU@tie{}mcron}).
Each message is also prefixed by a timestamp by GNU Shepherd."))
(define job-files (@@ (gnu services mcron) job-files))
(define shepherd-schedule-action
(@@ (gnu services mcron) shepherd-schedule-action))
(define (home-mcron-shepherd-services config)
(match-record config <home-mcron-configuration>
(mcron jobs log? log-format)
(if (null? jobs)
'() ;no jobs to run
(let ((files (job-files mcron jobs)))
(list (shepherd-service
(documentation "User cron jobs.")
(provision '(mcron))
(modules `((srfi srfi-1)
(srfi srfi-26)
(ice-9 popen) ;for the 'schedule' action
(ice-9 rdelim)
(ice-9 match)
,@%default-modules))
(start #~(make-forkexec-constructor
(list (string-append #$mcron "/bin/mcron")
#$@(if log?
#~("--log" "--log-format" #$log-format)
#~())
#$@files)
#:log-file (string-append
(or (getenv "XDG_STATE_HOME")
(format #f "~a/.local/state"
(getenv "HOME")))
"/log/mcron.log")))
(stop #~(make-kill-destructor))
(actions
(list (shepherd-schedule-action mcron files)))))))))
(define home-mcron-profile (compose list home-mcron-configuration-mcron))
(define (home-mcron-extend config jobs)
(home-mcron-configuration
(inherit config)
(jobs (append (home-mcron-configuration-jobs config)
jobs))))
(define-syntax-rule (home-mcron-configuration fields ...)
;; Macro provided for backward compatibility.
(for-home (mcron-configuration fields ...)))
(define home-mcron-service-type
(service-type (name 'home-mcron)
(extensions
(list (service-extension
home-shepherd-service-type
home-mcron-shepherd-services)
(service-extension
home-profile-service-type
home-mcron-profile)))
(compose concatenate)
(extend home-mcron-extend)
(default-value (home-mcron-configuration))
(description
"Install and configure the GNU mcron cron job manager.")))
(service-type
(inherit (system->home-service-type mcron-service-type))
(default-value (for-home (mcron-configuration)))))
;;;
;;; Generate documentation.
;;;
(define (generate-doc)
(configuration->documentation 'home-mcron-configuration))
(define-service-type-mapping
mcron-service-type => home-mcron-service-type)
;;; mcron.scm ends here

4
gnu/home/services/shepherd.scm
View file

@ -141,7 +141,7 @@ as shepherd package."
(define (shepherd-xdg-configuration-files config)
`(("shepherd/init.scm" ,(home-shepherd-configuration-file config))))
(define-public home-shepherd-service-type
(define home-shepherd-service-type
(service-type (name 'home-shepherd)
(extensions
(list (service-extension
@ -168,4 +168,6 @@ as shepherd package."
(default-value (home-shepherd-configuration))
(description "Configure and install userland Shepherd.")))
(define-service-type-mapping
shepherd-root-service-type => home-shepherd-service-type)

8
gnu/home/services/ssh.scm
View file

@ -203,6 +203,9 @@
first))))
(memq keyword ssh-match-keywords))))
(define (serialize-match-criteria _ value)
(string-append "Match " value "\n"))
(define-maybe match-criteria)
(define-configuration openssh-host
@ -214,7 +217,7 @@ top-level options.")
(host-name
maybe-string
"Host name---e.g., @code{\"foo.example.org\"} or @code{\"192.168.1.2\"}.")
(match-criteria ;TODO implement stricter match-criteria rules
(match-criteria
maybe-match-criteria
"When specified, this string denotes the set of hosts to which the entry
applies, superseding the @code{host-name} field. Its first element must be
@ -288,8 +291,7 @@ through before connecting to the server.")
(G_ "define either 'name' or 'match-criteria', not both")))
(string-append "Host " (openssh-host-name config) "\n"))
(if (maybe-value-set? (openssh-host-match-criteria config))
(string-append
"Match " (string-join (openssh-host-match-criteria config) " ") "\n")
(serialize-match-criteria #t (openssh-host-match-criteria config))
(raise
(formatted-message
(G_ "define either 'name' or 'match-criteria' once")))))

30
gnu/home/services/syncthing.scm Normal file
View file

@ -0,0 +1,30 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2023 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu home services syncthing)
#:use-module (gnu services)
#:use-module (gnu home services)
#:use-module (gnu services syncthing)
#:export (home-syncthing-service-type)
#:re-export (syncthing-configuration
syncthing-configuration?))
(define home-syncthing-service-type
(service-type
(inherit (system->home-service-type syncthing-service-type))
(default-value (for-home (syncthing-configuration)))))

25
gnu/local.mk
View file

@ -91,6 +91,7 @@ GNU_SYSTEM_MODULES = \
%D%/home.scm \
%D%/home/services.scm \
%D%/home/services/desktop.scm \
%D%/home/services/dict.scm \
%D%/home/services/symlink-manager.scm \
%D%/home/services/fontutils.scm \
%D%/home/services/gnupg.scm \
@ -103,6 +104,7 @@ GNU_SYSTEM_MODULES = \
%D%/home/services/shepherd.scm \
%D%/home/services/sound.scm \
%D%/home/services/ssh.scm \
%D%/home/services/syncthing.scm \
%D%/home/services/mcron.scm \
%D%/home/services/utils.scm \
%D%/home/services/xdg.scm \
@ -588,7 +590,6 @@ GNU_SYSTEM_MODULES = \
%D%/packages/squirrel.scm \
%D%/packages/ssh.scm \
%D%/packages/sssd.scm \
%D%/packages/stalonetray.scm \
%D%/packages/statistics.scm \
%D%/packages/stb.scm \
%D%/packages/stenography.scm \
@ -611,6 +612,7 @@ GNU_SYSTEM_MODULES = \
%D%/packages/terraform.scm \
%D%/packages/texinfo.scm \
%D%/packages/tex.scm \
%D%/packages/texlive.scm \
%D%/packages/textutils.scm \
%D%/packages/text-editors.scm \
%D%/packages/time.scm \
@ -770,6 +772,7 @@ GNU_SYSTEM_MODULES = \
%D%/tests.scm \
%D%/tests/audio.scm \
%D%/tests/base.scm \
%D%/tests/cachefilesd.scm \
%D%/tests/ci.scm \
%D%/tests/cups.scm \
%D%/tests/databases.scm \
@ -1056,7 +1059,6 @@ dist_patch_DATA = \
%D%/packages/patches/dbus-c++-gcc-compat.patch \
%D%/packages/patches/dbus-c++-threading-mutex.patch \
%D%/packages/patches/dbxfs-remove-sentry-sdk.patch \
%D%/packages/patches/ddclient-skip-test.patch \
%D%/packages/patches/debops-constants-for-external-program-names.patch \
%D%/packages/patches/debops-debops-defaults-fall-back-to-less.patch \
%D%/packages/patches/dee-vapi.patch \
@ -1089,7 +1091,7 @@ dist_patch_DATA = \
%D%/packages/patches/elm-ghc9.2.patch \
%D%/packages/patches/elm-offline-package-registry.patch \
%D%/packages/patches/elm-reactor-static-files.patch \
%D%/packages/patches/elogind-revert-polkit-detection.patch \
%D%/packages/patches/elogind-fix-rpath.patch \
%D%/packages/patches/emacs-all-the-icons-remove-duplicate-rs.patch \
%D%/packages/patches/emacs-deferred-fix-number-of-arguments.patch \
%D%/packages/patches/emacs-exec-path.patch \
@ -1140,6 +1142,7 @@ dist_patch_DATA = \
%D%/packages/patches/fasthenry-spSolve.patch \
%D%/packages/patches/fasthenry-spFactor.patch \
%D%/packages/patches/fbreader-curl-7.62.patch \
%D%/packages/patches/fbreader-fix-icon.patch \
%D%/packages/patches/fenics-dolfin-algorithm.patch \
%D%/packages/patches/fenics-dolfin-demo-init.patch \
%D%/packages/patches/fenics-dolfin-boost.patch \
@ -1155,6 +1158,7 @@ dist_patch_DATA = \
%D%/packages/patches/flatpak-fix-path.patch \
%D%/packages/patches/flatpak-unset-gdk-pixbuf-for-sandbox.patch \
%D%/packages/patches/fluxbox-1.3.7-no-dynamic-cursor.patch \
%D%/packages/patches/fluxbox-1.3.7-gcc.patch \
%D%/packages/patches/fontconfig-cache-ignore-mtime.patch \
%D%/packages/patches/fontforge-hurd.patch \
%D%/packages/patches/foobillard++-pkg-config.patch \
@ -1321,6 +1325,7 @@ dist_patch_DATA = \
%D%/packages/patches/gpm-glibc-2.26.patch \
%D%/packages/patches/gpodder-disable-updater.patch \
%D%/packages/patches/gpsbabel-fix-i686-test.patch \
%D%/packages/patches/grantlee-fix-i586-precision.patch \
%D%/packages/patches/grep-timing-sensitive-test.patch \
%D%/packages/patches/grfcodec-gcc-compat.patch \
%D%/packages/patches/gromacs-tinyxml2.patch \
@ -1375,6 +1380,7 @@ dist_patch_DATA = \
%D%/packages/patches/hdf-eos5-fortrantests.patch \
%D%/packages/patches/heimdal-CVE-2022-45142.patch \
%D%/packages/patches/helm-fix-gcc-9-build.patch \
%D%/packages/patches/highlight-gui-data-dir.patch \
%D%/packages/patches/http-parser-CVE-2020-8287.patch \
%D%/packages/patches/htslib-for-stringtie.patch \
%D%/packages/patches/hubbub-sort-entities.patch \
@ -1472,7 +1478,6 @@ dist_patch_DATA = \
%D%/packages/patches/kobodeluxe-graphics-window-signed-char.patch \
%D%/packages/patches/kodi-set-libcurl-ssl-parameters.patch \
%D%/packages/patches/kodi-mesa-eglchromium.patch \
%D%/packages/patches/kwayland-skip-flaky-test.patch \
%D%/packages/patches/laby-make-install.patch \
%D%/packages/patches/laby-use-tmpdir-from-runtime.patch \
%D%/packages/patches/ldns-drill-examples.patch \
@ -1591,14 +1596,13 @@ dist_patch_DATA = \
%D%/packages/patches/maxima-defsystem-mkdir.patch \
%D%/packages/patches/maven-generate-component-xml.patch \
%D%/packages/patches/maven-generate-javax-inject-named.patch \
%D%/packages/patches/mcrl2-fix-1687.patch \
%D%/packages/patches/mcrl2-fix-counterexample.patch \
%D%/packages/patches/mcrypt-CVE-2012-4409.patch \
%D%/packages/patches/mcrypt-CVE-2012-4426.patch \
%D%/packages/patches/mcrypt-CVE-2012-4527.patch \
%D%/packages/patches/libmemcached-build-with-gcc7.patch \
%D%/packages/patches/libmhash-hmac-fix-uaf.patch \
%D%/packages/patches/libsigrokdecode-python3.9-fix.patch \
%D%/packages/patches/maturin-no-cross-compile.patch \
%D%/packages/patches/mecab-variable-param.patch \
%D%/packages/patches/memtest86+-build-reproducibly.patch \
%D%/packages/patches/mercurial-hg-extension-path.patch \
@ -1688,7 +1692,6 @@ dist_patch_DATA = \
%D%/packages/patches/openjdk-15-xcursor-no-dynamic.patch \
%D%/packages/patches/openmpi-mtl-priorities.patch \
%D%/packages/patches/openmw-assume-nonconst-SIGSTKSZ.patch \
%D%/packages/patches/openssh-hurd.patch \
%D%/packages/patches/openssh-trust-guix-store-directory.patch \
%D%/packages/patches/openresolv-restartcmd-guix.patch \
%D%/packages/patches/openrgb-unbundle-hueplusplus.patch \
@ -1729,11 +1732,12 @@ dist_patch_DATA = \
%D%/packages/patches/python-pypdf-annotate-tests-appropriately.patch \
%D%/packages/patches/python-sip-include-dirs.patch \
%D%/packages/patches/python-sgmllib3k-assertions.patch \
%D%/packages/patches/python-shiboken-2-compat.patch \
%D%/packages/patches/python-telingo-fix-comparison.patch \
%D%/packages/patches/python-typeguard-python3.10.patch \
%D%/packages/patches/python-w3lib-fix-test-failure.patch \
%D%/packages/patches/python-wxwidgets-type-errors.patch \
%D%/packages/patches/qtdeclarative-5-disable-qmlcache.patch \
%D%/packages/patches/qtdeclarative-disable-qmlcache.patch \
%D%/packages/patches/quodlibet-fix-invalid-glob.patch \
%D%/packages/patches/quodlibet-fix-mtime-tests.patch \
%D%/packages/patches/qxlsx-fix-include-directory.patch \
@ -1783,6 +1787,7 @@ dist_patch_DATA = \
%D%/packages/patches/plib-CVE-2011-4620.patch \
%D%/packages/patches/plib-CVE-2012-4552.patch \
%D%/packages/patches/plotutils-spline-test.patch \
%D%/packages/patches/po4a-partial-texinfo-menu-fix.patch \
%D%/packages/patches/polkit-disable-systemd.patch \
%D%/packages/patches/portaudio-audacity-compat.patch \
%D%/packages/patches/portmidi-modular-build.patch \
@ -1878,7 +1883,6 @@ dist_patch_DATA = \
%D%/packages/patches/quagga-reproducible-build.patch \
%D%/packages/patches/quickswitch-fix-dmenu-check.patch \
%D%/packages/patches/quilt-grep-compat.patch \
%D%/packages/patches/qtwayland-gcc-11.patch \
%D%/packages/patches/qtwayland-dont-recreate-callbacks.patch \
%D%/packages/patches/qtwayland-cleanup-callbacks.patch \
%D%/packages/patches/ragel-char-signedness.patch \
@ -1917,12 +1921,13 @@ dist_patch_DATA = \
%D%/packages/patches/ruby-mustache-1.1.1-fix-race-condition-tests.patch \
%D%/packages/patches/rustc-1.54.0-src.patch \
%D%/packages/patches/rust-1.64-fix-riscv64-bootstrap.patch \
%D%/packages/patches/rust-ring-0.16-missing-files.patch \
%D%/packages/patches/rust-ring-0.16-test-files.patch \
%D%/packages/patches/i3status-rust-enable-unstable-features.patch \
%D%/packages/patches/rust-ndarray-remove-blas-src-dep.patch \
%D%/packages/patches/rust-ndarray-0.13-remove-blas-src.patch \
%D%/packages/patches/rust-ndarray-0.14-remove-blas-src.patch \
%D%/packages/patches/rust-nettle-disable-vendor.patch \
%D%/packages/patches/rust-nettle-sys-disable-vendor.patch \
%D%/packages/patches/rust-openssl-sys-no-vendor.patch \
%D%/packages/patches/rust-webbrowser-remove-unsupported-os.patch \
%D%/packages/patches/rust-wl-clipboard-rs-newer-wl.patch \

4
gnu/packages/accessibility.scm
View file

@ -3,7 +3,7 @@
;;; Copyright © 2017 Stefan Reichör <stefan@xsteve.at>
;;; Copyright © 2018, 2021, 2022 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Andrew Miloradovsky <andrew@interpretmath.pw>
;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2022 Hunter Jozwiak <hunter.t.joz@gmail.com>
;;; Copyright © 2023 Ivan Gankevich <igankevich@capybaramail.xyz>
;;;
@ -212,7 +212,7 @@ incorporated.")
(inputs
(list libxml2
libglade
librsvg
(librsvg-for-system)
gstreamer
cairo
gtk+

42
gnu/packages/admin.scm
View file

@ -55,11 +55,12 @@
;;; Copyright © 2022 ( <paren@disroot.org>
;;; Copyright © 2022, 2023 Matthew James Kraai <kraai@ftbfs.org>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;; Copyright © 2023 Juliana Sims <jtsims@protonmail.com>
;;; Copyright © 2023 Juliana Sims <juli@incana.org>
;;; Copyright © 2023 Lu Hui <luhux76@gmail.com>
;;; Copyright © 2023 Yovan Naumovski <yovan@gorski.stream>
;;; Copyright © 2023 Alexey Abramov <levenson@mmer.org>
;;; Copyright © 2023 Bruno Victal <mirai@makinata.eu>
;;; Copyright © 2023 Tobias Kortkamp <tobias.kortkamp@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -97,7 +98,9 @@
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages acl)
#:use-module (gnu packages algebra)
#:use-module (gnu packages attr)
#:use-module (gnu packages autogen)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
@ -174,6 +177,7 @@
#:use-module (gnu packages tcl)
#:use-module (gnu packages terminals)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages textutils)
#:use-module (gnu packages time)
#:use-module (gnu packages tls)
#:use-module (gnu packages version-control)
@ -5914,3 +5918,39 @@ Discover other RouterOS devices or @command{mactelnetd} hosts.
;; Note: applies to src/md5.{c,h}
;; This file is likely to be gone in the next release.
license:zlib))))
(define-public bfs
(package
(name "bfs")
(version "3.0.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/tavianator/bfs")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1ffma9p82bl0ai4h439cnhvcyyy8x593m27xlf16gsg6knpldm58"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags #~(list (string-append "CC="
#$(cc-for-target))
(string-append "PREFIX="
#$output) "bfs")
#:phases #~(modify-phases %standard-phases
(delete 'configure)
(add-before 'check 'disable-exec-no-path-test
(lambda _
;; This test unsets PATH. It then probably cannot find
;; echo since it's not inside _PATH_STDPATH (?). We
;; delete the test to disable it.
(delete-file "tests/posix/exec_nopath.sh"))))))
(inputs (list acl attr libcap oniguruma))
(synopsis "Breadth-first search for your files")
(description
"Bfs is a variant of the UNIX @command{find} command that operates
breadth-first rather than depth-first. It is otherwise compatible with many
versions of command{find}, including POSIX, GNU, and *BSD find.")
(home-page "https://tavianator.com/projects/bfs.html")
(license license:bsd-0)))

38
gnu/packages/astronomy.scm
View file

@ -9,6 +9,8 @@
;;; Copyright © 2021, 2022 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2021 Greg Hogan <code@greghogan.com>
;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com>
;;; Copyright © 2023 Iliya Tikhonenko <tikhonenko@mpe.mpg.de>
;;; Copyright © 2023 Andreas Enge <andreas@enge.fr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -75,6 +77,7 @@
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt)
#:use-module (gnu packages readline)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages sphinx)
#:use-module (gnu packages textutils)
#:use-module (gnu packages time)
@ -3951,3 +3954,38 @@ orbit around the Earth.")
for optimal @code{matching} of weighted N-dimensional image intensity data
using (multivariate) polynomials.")
(license license:bsd-3)))
(define-public unsio
;; There is no versioned tag, use the latest commit.
(let ((commit "25e52468298e1194c9726ef5dba9d5fbb46870f5")
(revision "0"))
(package
(name "unsio")
(version (git-version "1.3.3" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.lam.fr/infrastructure/unsio")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"110i2p5608zhh5w3pf3b5r2651hykw2ayspgq6vpqsffhya1p170"))
(modules '((guix build utils)))
(snippet
;; force installation into lib/ instead of lib64/
#~(substitute* "cmake/DetectCpackGenerator.cmake"
(("lib64") "lib")))))
(build-system cmake-build-system)
(arguments
(list #:tests? #f ; no tests
#:build-type "Release" ; to improve performace
#:configure-flags #~(list "-DCMAKE_CXX_STANDARD=14")))
(inputs (list gfortran hdf5 perl sqlite zlib))
(home-page "https://projets.lam.fr/projects/unsio/wiki")
(synopsis "Input and output routines for n-body file formats")
(description
"@acronym{UNSIO, Universal Nbody Snapshot Input Output} provides
an API for performing input and output operations on different kinds of
n-body file formats (nemo, Gadget binaries 1 and 2, Gadget hdf5, Ramses).")
(license license:cecill))))

57
gnu/packages/audio.scm
View file

@ -37,7 +37,7 @@
;;; Copyright © 2021 jgart <jgart@dismail.de>
;;; Copyright © 2021 Aleksandr Vityazev <avityazev@posteo.org>
;;; Copyright © 2022 Arjan Adriaanse <arjan@adriaan.se>
;;; Copyright © 2022, 2023 Juliana Sims <jtsims@protonmail.com>
;;; Copyright © 2022, 2023 Juliana Sims <juli@incana.org>
;;; Copyright © 2022 Simon Streit <simon@netpanic.org>
;;; Copyright © 2022 Andy Tai <atai@atai.org>
;;; Copyright © 2023 Sergiu Ivanov <sivanov@colimite.fr>
@ -45,6 +45,7 @@
;;; Copyright © 2023 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2023 Gabriel Wicki <gabriel@erlikon.ch>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2023 Parnikkapore <poomklao@yahoo.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -116,7 +117,9 @@
#:use-module (gnu packages pulseaudio) ;libsndfile, libsamplerate
#:use-module (gnu packages python)
#:use-module (gnu packages python-build)
#:use-module (gnu packages python-crypto)
#:use-module (gnu packages python-science)
#:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt)
#:use-module (gnu packages rdf)
@ -4691,6 +4694,45 @@ flavors EBU R128, ATSC A/85, and ReplayGain 2.0. It helps normalizing the
loudness of audio and video files to the same level.")
(license license:gpl2+)))
(define-public r128gain
(package
(name "r128gain")
(version "1.0.7")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/desbma/r128gain.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0zqclskkjb9hfdw9gq6iq4bs9dl1wj9nr8v1jz6s885379q9l8i7"))))
(build-system python-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'hardcode-ffmpeg
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "r128gain/__init__.py"
(("ffmpeg_path or \"ffmpeg\"")
(string-append "ffmpeg_path or \""
(search-input-file inputs "bin/ffmpeg")
"\""))))))))
(inputs (list python-crcmod python-ffmpeg-python python-mutagen
python-tqdm ffmpeg))
(native-inputs (list python-future python-requests))
(home-page "https://github.com/desbma/r128gain")
(synopsis "Fast audio loudness scanner & tagger")
(description
"r128gain is a multi platform command line tool to scan your audio
files and tag them with loudness metadata (ReplayGain v2 or Opus R128 gain
format), to allow playback of several tracks or albums at a similar
loudness level. r128gain can also be used as a Python module from other
Python projects to scan and/or tag audio files.")
;; 'setup.py' claims LGPL2+, 'LICENSE' is LGPLv2.1.
(license license:lgpl2.1+)))
(define-public filteraudio
(let ((revision "1")
(commit "2fc669581e2a0ff87fba8de85861b49133306094"))
@ -5936,14 +5978,14 @@ while still staying in time.")
(define-public butt
(package
(name "butt")
(version "0.1.34")
(version "0.1.38")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/butt/butt/butt-"
version "/butt-" version ".tar.gz"))
(sha256
(base32
"0zd1g1673pv8z437y34fllxska8dzpd7mygpham35pzwpdyc5c1p"))
"10i3xpxzccdl4pidiyymw9cfavhy50yhn7xi5bd77y91f2903kp9"))
(modules '((guix build utils)))
(snippet
'(substitute* "src/butt.cpp"
@ -5966,9 +6008,10 @@ while still staying in time.")
(uri (string-append "https://danielnoethen.de/butt/butt-"
version "_manual.pdf"))
(sha256
(base32 "0kadqzzbk25n0aqxgbqhg4mq4hsbjq44phzcx5qj1b8847yzz8si"))))))
(base32 "04aixxqshfj11ja3ifh0zvywl2mqzmymppcd0xj8sv0j7whjibaq"))))))
(inputs
(list dbus
(list curl
dbus
flac
fltk
lame
@ -6253,7 +6296,7 @@ and DSD streams.")
(define-public qpwgraph
(package
(name "qpwgraph")
(version "0.4.5")
(version "0.5.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -6262,7 +6305,7 @@ and DSD streams.")
(file-name (git-file-name name version))
(sha256
(base32
"06pgkma0i9dbir74cfhgnnkqjcq8z496by4lk1whqcj7j9ldbi2l"))))
"186c3s56py8xjasbp4380m9sqdba9mf7mppqz8hkli1nhbspbix9"))))
(build-system cmake-build-system)
(arguments (list #:tests? #f)) ;; no tests
(inputs (list alsa-lib

4
gnu/packages/backup.scm
View file

@ -1401,14 +1401,14 @@ archives.")
(define-public grsync
(package
(name "grsync")
(version "1.3.0")
(version "1.3.1")
(source (origin
(method url-fetch)
(uri (string-append "http://www.opbyte.it/release/"
"grsync-" version ".tar.gz"))
(sha256
(base32
"1z1m782b50x348kgynzf753apy8yszkl31y32y1jsc055skcdixp"))))
"1ly6ng211wj9sc0la73jsz2lviwd7b4a7bhw16kmnbm6v8jhxk1k"))))
(build-system gnu-build-system)
(native-inputs (list intltool pkg-config))
(inputs (list gtk+))

11
gnu/packages/base.scm
View file

@ -78,7 +78,8 @@
#:export (glibc
libc-for-target
make-ld-wrapper
libiconv-if-needed))
libiconv-if-needed
%final-inputs))
;;; Commentary:
;;;
@ -966,6 +967,10 @@ the store.")
;; library is empty by some criterion (such as their file
;; size equaling eight bytes) rather than hardcoding them
;; by name.
;; XXX: We forgot librt.a for the current version! In
;; the meantime, gcc-toolchain provides it, but remove
;; that fix once librt.a is added here.
(define empty-static-libraries
'("libpthread.a" "libdl.a" "libutil.a" "libanl.a"))
(define (empty-static-library? file)
@ -1648,10 +1653,10 @@ package needs iconv ,@(libiconv-if-needed) should be added."
(proc (module-ref iface 'canonical-package)))
(proc package)))
(define-public (%final-inputs)
(define* (%final-inputs #:optional (system (%current-system)))
"Return the list of \"final inputs\"."
;; Avoid circular dependency by lazily resolving 'commencement'.
(let ((iface (resolve-interface '(gnu packages commencement))))
((module-ref iface '%final-inputs) (%current-system))))
((module-ref iface '%final-inputs) system)))
;;; base.scm ends here

2
gnu/packages/build-tools.scm
View file

@ -14,7 +14,7 @@
;;; Copyright © 2020, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2021 qblade <qblade@protonmail.com>
;;; Copyright © 2021, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022, 2023 Juliana Sims <jtsims@protonmail.com>
;;; Copyright © 2022, 2023 Juliana Sims <juli@incana.org>
;;;
;;; This file is part of GNU Guix.
;;;

4
gnu/packages/check.scm
View file

@ -978,7 +978,7 @@ generation.")
(define-public googlebenchmark
(package
(name "googlebenchmark")
(version "1.5.3")
(version "1.8.2")
(home-page "https://github.com/google/benchmark")
(source (origin
(method git-fetch)
@ -987,7 +987,7 @@ generation.")
(file-name (git-file-name "google-benchmark" version))
(sha256
(base32
"1hls0aqqj5cfldn9jfpvzjhpxkhrydrz9crp477rwllwjsybdxw7"))))
"1p72bw7xcd88d8268fmmzji59408f552fbiv37jmsixml5dmq9wv"))))
(build-system cmake-build-system)
(arguments
'(#:configure-flags (list "-DBUILD_SHARED_LIBS=ON"

12
gnu/packages/chemistry.scm
View file

@ -87,7 +87,6 @@
(native-inputs
(list eigen
mmtf-cpp
msgpack
googletest
pkg-config
pybind11))
@ -248,7 +247,7 @@ molecules.")
(define-public mmtf-cpp
(package
(name "mmtf-cpp")
(version "1.0.0")
(version "1.1.0")
(source
(origin
(method git-fetch)
@ -258,11 +257,13 @@ molecules.")
(file-name (git-file-name name version))
(sha256
(base32
"17ylramda69plf5w0v5hxbl4ggkdi5s15z55cv0pljl12yvyva8l"))))
"0rs2f1ppgqz663c3m22p8wsq6z839bj59zy29chci46ypfhwv6ph"))))
(build-system cmake-build-system)
;; Tests require the soon-to-be-deprecated version 1 of the catch-framework.
(arguments
'(#:tests? #f))
(arguments '(#:tests? #f))
;; There is no support for modern msgpack versions yet (see:
;; https://github.com/rcsb/mmtf-cpp/issues/44).
(propagated-inputs (list msgpack)) ;included by mmtf/structure_data.hpp
(home-page "https://mmtf.rcsb.org/")
(synopsis "C++ API for the Macromolecular Transmission Format")
(description "This package is a library for the
@ -574,7 +575,6 @@ symmetries written in C. Spglib can be used to:
glew
libxml2
mmtf-cpp
msgpack
python-pyqt
glm
netcdf))

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 "b82596778bf653a572b5fcd483388226b29b96f3")
(revision "16"))
(let ((commit "7416bb916315730cd1ea74e7914f7532a1aba193")
(revision "17"))
(package
(name "cuirass")
(version (git-version "1.1.0" revision commit))
@ -72,7 +72,7 @@
(file-name (git-file-name name version))
(sha256
(base32
"1246cs3bmpkp8jis0xxasmrpq622p1ds3s0payrv5bxng9j6dbfp"))))
"1wc39c7aqva5sp3gpdxq2kqa17ywy21yn5w8r66qgxjinvj21a68"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((guix build utils)

58
gnu/packages/commencement.scm
View file

@ -3459,31 +3459,32 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%"
;; still use 'package-with-bootstrap-guile' so that the bootstrap tools are
;; used for origins that have patches, thereby avoiding circular
;; dependencies.
(let ((finalize (compose with-boot6
package-with-bootstrap-guile)))
`(,@(map (match-lambda
((name package)
(list name (finalize package))))
`(("tar" ,tar)
("gzip" ,gzip)
("bzip2" ,bzip2)
("file" ,file)
("diffutils" ,diffutils)
("patch" ,patch)
("findutils" ,findutils)
("gawk" ,gawk)))
("sed" ,sed-final)
("grep" ,grep-final)
("xz" ,xz-final)
("coreutils" ,coreutils-final)
("make" ,gnu-make-final)
("bash" ,bash-final)
("ld-wrapper" ,ld-wrapper)
("binutils" ,binutils-final)
("gcc" ,gcc-final)
("libc" ,glibc-final)
("libc:static" ,glibc-final "static")
("locales" ,glibc-utf8-locales-final)))))
(parameterize ((%current-system system))
(let ((finalize (compose with-boot6
package-with-bootstrap-guile)))
`(,@(map (match-lambda
((name package)
(list name (finalize package))))
`(("tar" ,tar)
("gzip" ,gzip)
("bzip2" ,bzip2)
("file" ,file)
("diffutils" ,diffutils)
("patch" ,patch)
("findutils" ,findutils)
("gawk" ,gawk)))
("sed" ,sed-final)
("grep" ,grep-final)
("xz" ,xz-final)
("coreutils" ,coreutils-final)
("make" ,gnu-make-final)
("bash" ,bash-final)
("ld-wrapper" ,ld-wrapper)
("binutils" ,binutils-final)
("gcc" ,gcc-final)
("libc" ,glibc-final)
("libc:static" ,glibc-final "static")
("locales" ,glibc-utf8-locales-final))))))
(define-public canonical-package
(let ((name->package (mlambda (system)
@ -3560,6 +3561,13 @@ COREUTILS-FINAL vs. COREUTILS, etc."
(union-build (assoc-ref %outputs "static")
(list (assoc-ref %build-inputs
"libc-static")))
;; XXX Remove once an empty librt.a is added to
;; libc:out.
(copy-file
(string-append (assoc-ref %outputs "out")
"/lib/libpthread.a")
(string-append (assoc-ref %outputs "out")
"/lib/librt.a"))
#t))))
(native-search-paths

32
gnu/packages/cpp.scm
View file

@ -783,7 +783,7 @@ lock-free fixed size queue written in C++11.")
(define-public gperftools
(package
(name "gperftools")
(version "2.10")
(version "2.11")
(source
(origin
(method git-fetch)
@ -791,7 +791,7 @@ lock-free fixed size queue written in C++11.")
(url "https://github.com/gperftools/gperftools")
(commit (string-append "gperftools-" version))))
(sha256
(base32 "0s9qhx940s8q6glc8sw74k5gs8hdhjfigq20zci92qawgm7zsicm"))
(base32 "1mwsa4y696m8zjya0k7xzr9vsgb24dq4aq13m21hb5ygy7nh47id"))
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(arguments
@ -1976,11 +1976,11 @@ validation.")
(license license:asl2.0)))
(define-public bloomberg-bde-tools
(let ((commit "094885bd177e0159232d4e6a060a04edb1edd786"))
(let ((commit "f63dfe9114cd7df29623bd01f644b9f654253972"))
(package
(name "bloomberg-bde-tools")
;; Recent releases are not tagged so commit must be used for checkout.
(version "3.97.0.0")
(version "3.118.0.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1989,7 +1989,7 @@ validation.")
(file-name (git-file-name name version))
(sha256
(base32
"0mbbai73z8amh23ah3wy35kmy612380yr5wg89mic60qwqmpqb02"))
"1a5sw4xjwd222na3zkflm2gkmzhnfq17i8qapyaxszpiayf3hw6v"))
(patches
(search-patches
"bloomberg-bde-tools-fix-install-path.patch"))))
@ -2003,11 +2003,11 @@ validation.")
(license license:asl2.0))))
(define-public bloomberg-bde
(let ((commit "b6bcc0e24a5862bf77aea7edd831dedf50e21d64"))
(let ((commit "77a0f39d538c20ae28bece9a81cac99a9e1df95d"))
(package
(name "bloomberg-bde")
;; Recent releases are not tagged so commit must be used for checkout.
(version "3.98.0.0")
(version "3.118.0.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -2016,7 +2016,7 @@ validation.")
(file-name (git-file-name name version))
(sha256
(base32
"0y3lipi1lj9qazgc935851r2qsx5aq3vvc4y52jq57riyz8wg3ma"))
"0nw5clkc9yipd03kijh4c8lxi9zkxfxcjhszl1xzwvgz8xmpampf"))
(patches
(search-patches
"bloomberg-bde-cmake-module-path.patch"))
@ -2033,26 +2033,28 @@ validation.")
(list "groups/bal/ball/ball_asyncfileobserver.t.cpp"
"groups/bal/ball/ball_fileobserver2.t.cpp"
"groups/bal/ball/ball_recordstringformatter.t.cpp"
"groups/bal/balst/balst_stacktraceresolver_filehelper.t.cpp"
"groups/bal/balst/balst_stacktraceutil.t.cpp"
"groups/bdl/bdlmt/bdlmt_eventscheduler.t.cpp"
"groups/bdl/bdlmt/bdlmt_timereventscheduler.t.cpp"
"groups/bdl/bdls/bdls_filesystemutil.t.cpp"
"groups/bsl/bslh/bslh_hash.t.cpp"
"groups/bsl/bslh/bslh_hashpair.t.cpp"
"groups/bsl/bsls/bsls_platform.t.cpp"
"groups/bsl/bsls/bsls_stackaddressutil.t.cpp"
"groups/bsl/bsls/bsls_stopwatch.t.cpp"
"groups/bsl/bsls/bsls_timeutil.t.cpp"
"groups/bsl/bslstl/bslstl_deque.1.t.cpp"
"groups/bsl/bslstl/bslstl_deque.2.t.cpp"
"groups/bsl/bslstl/bslstl_deque.3.t.cpp"
"groups/bsl/bslstl/bslstl_function_invokerutil.t.cpp"))
#t))))
(build-system cmake-build-system)
(arguments
`(#:parallel-tests? #f ; Test parallelism may fail inconsistently.
;; Set UFID to build shared libraries. Flag descriptions can be found at
;; https://bloomberg.github.io/bde-tools/reference/bde_repo.html#ufid
#:configure-flags ,(match %current-system
((or "i686-linux" "armhf-linux")
''("-DUFID=opt_dbg_exc_mt_32_shr_cpp17"))
(_
''("-DUFID=opt_dbg_exc_mt_64_shr_cpp17")))
;; https://bloomberg.github.io/bde-tools/bbs/reference/bbs_build_configuration.html#ufid
#:configure-flags '("-DUFID=opt_dbg_exc_mt_64_shr_cpp20")
#:phases
(modify-phases %standard-phases
;; Explicitly build tests separate from the main build.
@ -2072,6 +2074,8 @@ implementation of STL containers, vocabulary types for representing common
concepts (like dates and times), and building blocks for developing
multi-threaded applications and network applications.")
(home-page "https://github.com/bloomberg/bde")
;; Out-of-memory on i686-linux, compile errors with non-x86.
(supported-systems '("x86_64-linux"))
(license license:asl2.0))))
(define-public gulrak-filesystem

4
gnu/packages/cran.scm
View file

@ -19,7 +19,7 @@
;;; Copyright © 2019 Nicolò Balzarotti <anothersms@gmail.com>
;;; Copyright © 2019, 2020, 2021, 2022 Wiktor Żelazny <wzelazny@vurv.cz>
;;; Copyright © 2019 Arne Babenhauserheide <arne_bab@web.de>
;;; Copyright © 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019, 2020, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020 Todor Kondić <tk.code@protonmail.com>
;;; Copyright © 2020 Danjela Lura <danielaluraa@gmail.com>
;;; Copyright © 2020 Naga Malleswari <nagamalli@riseup.net>
@ -29400,7 +29400,7 @@ automatically show a loader when the output is (re)calculating.")
(properties `((upstream-name . "rsvg")))
(build-system r-build-system)
(inputs
(list librsvg zlib))
(list (librsvg-for-system) zlib))
(native-inputs
(list pkg-config r-knitr))
(home-page "https://github.com/jeroen/rsvg#readme")

241
gnu/packages/crates-gtk.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020, 2021, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
;;; Copyright © 2022 Aleksandr Vityazev <avityazev@posteo.org>
@ -902,24 +902,25 @@
("rust-serial-test" ,rust-serial-test-0.1)
("rust-serial-test-derive" ,rust-serial-test-derive-0.1))))))
(define-public rust-gio-sys-0.15
(define-public rust-gio-sys-0.17
(package
(name "rust-gio-sys")
(version "0.15.10")
(source
(origin
(method url-fetch)
(uri (crate-uri "gio-sys" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "13fgmc2xdzg9qk9l3nlp1bilwn6466mrqbiq4fhc9qkia93pl59j"))))
(version "0.17.10")
(source (origin
(method url-fetch)
(uri (crate-uri "gio-sys" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"1hr84vgpz1hbs9q7wgvpnwhbxwh9kim0z5aqv6v6ki0j1b1qgkqc"))))
(build-system cargo-build-system)
(arguments
`(;; FIXME: some GLib macros are not found
`(;; XXX: Tests are sensitive to the version of glib, even though
;; the library supports a wide range. Skip for now.
#:tests? #f
#:cargo-inputs
(("rust-glib-sys" ,rust-glib-sys-0.15)
("rust-gobject-sys" ,rust-gobject-sys-0.15)
(("rust-glib-sys" ,rust-glib-sys-0.17)
("rust-gobject-sys" ,rust-gobject-sys-0.17)
("rust-libc" ,rust-libc-0.2)
("rust-system-deps" ,rust-system-deps-6)
("rust-winapi" ,rust-winapi-0.3))
@ -944,6 +945,40 @@
(description "This package provides FFI bindings to libgio-2.0.")
(license license:expat)))
(define-public rust-gio-sys-0.15
(package
(inherit rust-gio-sys-0.17)
(name "rust-gio-sys")
(version "0.15.10")
(source
(origin
(method url-fetch)
(uri (crate-uri "gio-sys" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "13fgmc2xdzg9qk9l3nlp1bilwn6466mrqbiq4fhc9qkia93pl59j"))))
(arguments
`(;; FIXME: some GLib macros are not found
#:tests? #f
#:cargo-inputs
(("rust-glib-sys" ,rust-glib-sys-0.15)
("rust-gobject-sys" ,rust-gobject-sys-0.15)
("rust-libc" ,rust-libc-0.2)
("rust-system-deps" ,rust-system-deps-6)
("rust-winapi" ,rust-winapi-0.3))
#:cargo-development-inputs
(("rust-shell-words" ,rust-shell-words-1)
("rust-tempfile" ,rust-tempfile-3))
#:phases (modify-phases %standard-phases
(add-before 'check 'extend-include-path
(lambda* (#:key inputs #:allow-other-keys)
(let ((gio-headers (search-input-directory
inputs "include/gio-unix-2.0")))
;; Tests rely on these headers.
(setenv "C_INCLUDE_PATH"
(string-append gio-headers ":"
(getenv "C_INCLUDE_PATH")))))))))))
(define-public rust-gio-sys-0.14
(package
(inherit rust-gio-sys-0.15)
@ -1030,8 +1065,56 @@
(description "File format checker in Rust.")
(license license:expat)))
(define-public rust-glib-0.17
(package
(name "rust-glib")
(version "0.17.10")
(source (origin
(method url-fetch)
(uri (crate-uri "glib" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"0jqlipn9zixj8fpqlg45v0f06j2ghdz72cml2akcxlnlm1dx9ynk"))))
(build-system cargo-build-system)
(arguments
`(;; XXX: Tests are sensitive to the version of glib, even though
;; the library supports a wide range. Skip for now.
#:tests? #f
#:cargo-inputs
(("rust-bitflags" ,rust-bitflags-1)
("rust-futures-channel" ,rust-futures-channel-0.3)
("rust-futures-core" ,rust-futures-core-0.3)
("rust-futures-executor" ,rust-futures-executor-0.3)
("rust-futures-task" ,rust-futures-task-0.3)
("rust-futures-util" ,rust-futures-util-0.3)
("rust-gio-sys" ,rust-gio-sys-0.17)
("rust-glib-macros" ,rust-glib-macros-0.17)
("rust-glib-sys" ,rust-glib-sys-0.17)
("rust-gobject-sys" ,rust-gobject-sys-0.17)
("rust-libc" ,rust-libc-0.2)
("rust-log" ,rust-log-0.4)
("rust-memchr" ,rust-memchr-2)
("rust-once-cell" ,rust-once-cell-1)
("rust-smallvec" ,rust-smallvec-1)
("rust-thiserror" ,rust-thiserror-1))
#:cargo-development-inputs
(("rust-criterion" ,rust-criterion-0.4)
("rust-gir-format-check" ,rust-gir-format-check-0.1)
("rust-tempfile" ,rust-tempfile-3)
("rust-trybuild2" ,rust-trybuild2-1))))
(native-inputs
(list pkg-config))
(inputs
(list glib))
(home-page "https://gtk-rs.org/")
(synopsis "Rust bindings for the GLib library")
(description "Rust bindings for the GLib library")
(license license:expat)))
(define-public rust-glib-0.15
(package
(inherit rust-glib-0.17)
(name "rust-glib")
(version "0.15.12")
(source
@ -1041,7 +1124,6 @@
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "0pahikbwxr3vafdrr5l2hnlhkf9xi4illryan0l59ayhp9pk1c7d"))))
(build-system cargo-build-system)
(arguments
`(;; FIXME: error[E0277]: `Errors` doesn't implement `std::fmt::Display`
#:tests? #f
@ -1062,15 +1144,7 @@
#:cargo-development-inputs
(("rust-futures-util" ,rust-futures-util-0.3)
("rust-gir-format-check" ,rust-gir-format-check-0.1)
("rust-tempfile" ,rust-tempfile-3))))
(native-inputs
(list pkg-config))
(inputs
(list glib))
(home-page "https://gtk-rs.org/")
(synopsis "Rust bindings for the GLib library")
(description "Rust bindings for the GLib library")
(license license:expat)))
("rust-tempfile" ,rust-tempfile-3))))))
(define-public rust-glib-0.14
(package
@ -1160,8 +1234,43 @@
#:cargo-development-inputs
(("rust-tempfile" ,rust-tempfile-3))))))
(define-public rust-glib-macros-0.17
(package
(name "rust-glib-macros")
(version "0.17.10")
(source (origin
(method url-fetch)
(uri (crate-uri "glib-macros" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"09nyh22nryip4i22mdrixzl4q0r5h5lxcn40mgqr30rk6y9wg9gc"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-anyhow" ,rust-anyhow-1)
("rust-heck" ,rust-heck-0.4)
("rust-proc-macro-crate" ,rust-proc-macro-crate-1)
("rust-proc-macro-error" ,rust-proc-macro-error-1)
("rust-proc-macro2" ,rust-proc-macro2-1)
("rust-quote" ,rust-quote-1)
("rust-syn" ,rust-syn-1))
#:cargo-development-inputs
(("rust-glib" ,rust-glib-0.17)
("rust-once-cell" ,rust-once-cell-1)
("rust-trybuild2" ,rust-trybuild2-1))))
(native-inputs
(list pkg-config))
(inputs
(list glib))
(home-page "https://gtk-rs.org/")
(synopsis "Rust bindings for the GLib library, proc macros crate")
(description "Rust bindings for the GLib library, proc macros crate.")
(license license:expat)))
(define-public rust-glib-macros-0.15
(package
(inherit rust-glib-macros-0.17)
(name "rust-glib-macros")
(version "0.15.11")
(source
@ -1171,7 +1280,6 @@
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "0r3cr0c79rs91z0sps089nsf8ppnm8agp48qwwqlkc32lqqq39i5"))))
(build-system cargo-build-system)
(arguments
`(;; XXX: Circular dependency on rust-glib??
#:tests? #f
@ -1182,11 +1290,7 @@
("rust-proc-macro-error" ,rust-proc-macro-error-1)
("rust-proc-macro2" ,rust-proc-macro2-1)
("rust-quote" ,rust-quote-1)
("rust-syn" ,rust-syn-1))))
(home-page "https://gtk-rs.org/")
(synopsis "Rust bindings for the GLib library, proc macros crate")
(description "Rust bindings for the GLib library, proc macros crate.")
(license license:expat)))
("rust-syn" ,rust-syn-1))))))
(define-public rust-glib-macros-0.14
(package
@ -1237,17 +1341,17 @@
("rust-quote" ,rust-quote-1)
("rust-syn" ,rust-syn-1))))))
(define-public rust-glib-sys-0.15
(define-public rust-glib-sys-0.17
(package
(name "rust-glib-sys")
(version "0.15.10")
(version "0.17.10")
(source (origin
(method url-fetch)
(uri (crate-uri "glib-sys" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"1m5sqm69fdk8vaw6hggyizhs1r1vivx73splrdvczsb5iqpijjzg"))))
"1w64ppa12s9ky6gfdaqhq9w30ad6hskll812jb3sl2xsggmac2nq"))))
(build-system cargo-build-system)
(arguments
`(;; XXX: Tests are sensitive to the version of glib, even though
@ -1268,6 +1372,29 @@
(description "This package provides FFI bindings to libglib-2.0.")
(license license:expat)))
(define-public rust-glib-sys-0.15
(package
(inherit rust-glib-sys-0.17)
(name "rust-glib-sys")
(version "0.15.10")
(source (origin
(method url-fetch)
(uri (crate-uri "glib-sys" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"1m5sqm69fdk8vaw6hggyizhs1r1vivx73splrdvczsb5iqpijjzg"))))
(arguments
`(;; XXX: Tests are sensitive to the version of glib, even though
;; the library supports a wide range. Skip for now.
#:tests? #f
#:cargo-inputs
(("rust-libc" ,rust-libc-0.2)
("rust-system-deps" ,rust-system-deps-6))
#:cargo-development-inputs
(("rust-shell-words" ,rust-shell-words-1)
("rust-tempfile" ,rust-tempfile-3))))))
(define-public rust-glib-sys-0.14
(package
(inherit rust-glib-sys-0.15)
@ -1335,25 +1462,24 @@
(("rust-shell-words" ,rust-shell-words-0.1)
("rust-tempfile" ,rust-tempfile-3))))))
(define-public rust-gobject-sys-0.15
(define-public rust-gobject-sys-0.17
(package
(name "rust-gobject-sys")
(version "0.15.10")
(source
(origin
(method url-fetch)
(uri (crate-uri "gobject-sys" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "02hyilvpi4hw4gr03z2plsbf1zicsfs5l0xxadqx3v3b4i2cwmqd"))))
(version "0.17.10")
(source (origin
(method url-fetch)
(uri (crate-uri "gobject-sys" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"0ql0pcab6dxjapiglxcjaavbbh1sznyc2wj5q273b9j0fwqw6d6d"))))
(build-system cargo-build-system)
(arguments
`(;; FIXME: Constant value mismatch for G_TYPE_FUNDAMENTAL_MAX
;; Rust: "255"
;; C: "1020"
`(;; XXX: Tests are sensitive to the version of glib, even though
;; the library supports a wide range. Skip for now.
#:tests? #f
#:cargo-inputs
(("rust-glib-sys" ,rust-glib-sys-0.15)
(("rust-glib-sys" ,rust-glib-sys-0.17)
("rust-libc" ,rust-libc-0.2)
("rust-system-deps" ,rust-system-deps-6))
#:cargo-development-inputs
@ -1368,6 +1494,31 @@
(description "This package provides FFI bindings to libgobject-2.0.")
(license license:expat)))
(define-public rust-gobject-sys-0.15
(package
(inherit rust-gobject-sys-0.17)
(name "rust-gobject-sys")
(version "0.15.10")
(source
(origin
(method url-fetch)
(uri (crate-uri "gobject-sys" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "02hyilvpi4hw4gr03z2plsbf1zicsfs5l0xxadqx3v3b4i2cwmqd"))))
(arguments
`(;; FIXME: Constant value mismatch for G_TYPE_FUNDAMENTAL_MAX
;; Rust: "255"
;; C: "1020"
#:tests? #f
#:cargo-inputs
(("rust-glib-sys" ,rust-glib-sys-0.15)
("rust-libc" ,rust-libc-0.2)
("rust-system-deps" ,rust-system-deps-6))
#:cargo-development-inputs
(("rust-shell-words" ,rust-shell-words-1)
("rust-tempfile" ,rust-tempfile-3))))))
(define-public rust-gobject-sys-0.14
(package
(inherit rust-gobject-sys-0.15)

12399
gnu/packages/crates-io.scm
View file

File diff suppressed because it is too large Load diff

6
gnu/packages/databases.scm
View file

@ -1850,8 +1850,8 @@ which uses SQL to describe changes.")
(define-public sqlcrush
;; Unfortunately, there is no proper upstream release and may never be.
(let ((commit "b5f6868f189566a26eecc78d0f0659813c1aa98a")
(revision "1"))
(let ((commit "502a583e97a84efdeb48e59f1bfe403daa9681ee")
(revision "2"))
(package
(name "sqlcrush")
(version (git-version "0.1.5" revision commit))
@ -1863,7 +1863,7 @@ which uses SQL to describe changes.")
(file-name (git-file-name name version))
(sha256
(base32
"0x3wy40r93p0jv3nbwj9a77wa4ff697d13r0wffmm7q9h3mzsww8"))))
"0x2q4m9ryw68kifalnm3x4bv9v2xrc2ffsiap8m9wnw6lf1h05la"))))
(build-system python-build-system)
(inputs
(list python-cryptography python-psycopg2 python-pymysql

38
gnu/packages/disk.scm
View file

@ -530,6 +530,44 @@ which respectively make and check MS-DOS FAT file systems.")
and a @command{fsck.vfat} compatibility symlink for use in an initrd.")
(license (package-license dosfstools))))
(define-public hdparm
(package
(name "hdparm")
(version "9.65")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/hdparm/hdparm/"
"hdparm-" version ".tar.gz"))
(sha256
(base32
"0jssagggg52ssl9kg99m88afghj7bm1854vyf4p96q6h23wjjjfi"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags
#~(list (string-append "binprefix=" #$output)
(string-append "manprefix=" #$output)
(string-append "CC=" #$(cc-for-target))
;; Let Guix strip binaries and not break cross-compilation.
"STRIP=true")
#:phases
#~(modify-phases %standard-phases
(delete 'configure)) ; no configure script
#:tests? #f)) ; no test suite
(home-page "https://sourceforge.net/projects/hdparm/")
(synopsis "View and tune ATA disk drive parameters")
(description
"@command{hdparm} is a command-line utility to control ATA controllers and
disk drives. It can increase performance and/or reliability by careful tuning
of hardware settings like power and acoustic management, DMA modes, and caching.
It can also display detailed device information, or be used as a simple
performance benchmarking tool.
@command{hdparm} provides a command line interface to various Linux kernel
interfaces provided by the SATA/ATA/SAS @code{libata} subsystem, and the older
IDE driver subsystem. Many external USB drive enclosures with SCSI-ATA Command
Translation (@dfn{SAT}) are also supported.")
(license (license:non-copyleft "file://LICENSE.TXT"))))
(define-public sdparm
(package
(name "sdparm")

4
gnu/packages/display-managers.scm
View file

@ -10,7 +10,7 @@
;;; Copyright © 2020 Fredrik Salomonsson <plattfot@gmail.com>
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2021 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2021, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2021-2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2021 Petr Hodina <phodina@protonmail.com>
;;; Copyright © 2022, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
@ -421,7 +421,7 @@ display manager which supports different greeters.")
bash-minimal ;for wrap-program
gtk+
guile-3.0
librsvg
(librsvg-for-system)
libxklavier
lightdm
shared-mime-info))

71
gnu/packages/dns.scm
View file

@ -9,7 +9,7 @@
;;; Copyright © 2016, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017 Vasile Dumitrascu <va511e@yahoo.com>
;;; Copyright © 2017 Gregor Giesen <giesen@zaehlwerk.net>
;;; Copyright © 2018, 2022 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2022 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019 Chris Marusich <cmmarusich@gmail.com>
;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
@ -91,8 +91,7 @@
#:use-module (guix build-system copy)
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system gnu)
#:use-module (guix build-system meson)
#:use-module (guix build-system trivial))
#:use-module (guix build-system meson))
(define-public cloudflare-cli
(let ((commit "2d986d3ec1b0e3158c4bd40e8918947cb74aa392")
@ -1067,72 +1066,6 @@ LuaJIT, both a resolver library and a daemon.")
license:cc0
license:lgpl2.0))))
(define-public ddclient
(package
(name "ddclient")
(version "3.10.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ddclient/ddclient")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0l87d72apwrg6ipc9gix5gv64d4hr1ykxmss8x4r8d8mgj6j8rf1"))
(modules '((guix build utils)))
(snippet
;; XXX: erroneous version value, this is fixed in master
#~(begin
(substitute* "configure.ac"
(("3.10.0_2") #$version))))
(patches (search-patches "ddclient-skip-test.patch"))))
(build-system gnu-build-system)
(native-inputs
(list autoconf automake libtool
perl-test-warnings perl-test-mockmodule))
(inputs
(list inetutils ; logger
net-tools
bash-minimal ;for 'wrap-program'
perl
perl-digest-sha1
perl-io-socket-ssl
perl-io-socket-inet6 ;; XXX: this is likely to be removed in a future ddclient release
;; https://github.com/ddclient/ddclient/issues/461
perl-json))
(arguments
(list
#:configure-flags #~(list "--localstatedir=/var")
#:phases
#~(modify-phases %standard-phases
(replace 'install
(lambda _
;; XXX: Do not create /var
(invoke "make" "localstatedir=/tmp/discard" "install")))
(add-after 'wrap 'wrap-ddclient
(lambda* (#:key inputs #:allow-other-keys)
(wrap-program (string-append #$output "/bin/ddclient")
`("PERL5LIB" ":" prefix ,(string-split (getenv "PERL5LIB") #\:))
`("PATH" prefix ,(map (lambda (x)
(string-append (assoc-ref inputs x) "/bin"))
'("inetutils" "net-tools")))))))))
(native-search-paths
(list $SSL_CERT_DIR $SSL_CERT_FILE))
(home-page "https://ddclient.net/")
(synopsis "Address updating utility for dynamic DNS services")
(description "This package provides a client to update dynamic IP
addresses with several dynamic DNS service providers, such as
@uref{https://www.dyndns.com/account/login.html,DynDNS.com}.
This makes it possible to use a fixed hostname (such as myhost.dyndns.org) to
access a machine with a dynamic IP address.
The client supports both dynamic and (near) static services, as well as MX
record and alternative name management. It caches the address, and only
attempts the update when it has changed.")
(license license:gpl2+)))
(define-public hnsd
(package
(name "hnsd")

4
gnu/packages/dunst.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2017, 2018 Alex Kost <alezost@gmail.com>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
;;; Copyright © 2021 Alexandru-Sergiu Marton <brown121407@posteo.ro>
;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
@ -69,7 +69,7 @@
which))
(inputs
(list dbus
librsvg ; for svg support
(librsvg-for-system) ; for svg support
glib
cairo
pango

3
gnu/packages/ebook.scm
View file

@ -454,7 +454,8 @@ designed to be used in a generic text renderer.")
(sha256
(base32
"0c0s4silpax74kwfz3dfmzn4lkv6jsyb800vfak166vii0hvbv3d"))
(patches (search-patches "fbreader-curl-7.62.patch"))))
(patches (search-patches "fbreader-curl-7.62.patch"
"fbreader-fix-icon.patch"))))
(build-system gnu-build-system)
(inputs
`(("curl" ,curl)

6
gnu/packages/education.scm
View file

@ -116,7 +116,7 @@
":" (or (getenv "CPATH") ""))))))))
(inputs
`(("gtk+" ,gtk+-2)
("librsvg" ,librsvg)
("librsvg" ,(librsvg-for-system))
("libxml2" ,libxml2)
("sdl-mixer" ,sdl-mixer)
("sqlite" ,sqlite)
@ -876,7 +876,7 @@ endless. For example:
(inputs
`(("font-andika" ,font-sil-andika)
("libpng" ,libpng)
("librsvg" ,librsvg)
("librsvg" ,(librsvg-for-system))
("libxml2" ,libxml2)
("sdl" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-net sdl-pango)))))
(home-page "https://github.com/tux4kids/t4kcommon")
@ -932,7 +932,7 @@ TuxMath and TuxType.")
(native-inputs
(list pkg-config))
(inputs
`(("librsvg" ,librsvg)
`(("librsvg" ,(librsvg-for-system))
("libxml2" ,libxml2)
("sdl" ,(sdl-union (list sdl sdl-image sdl-mixer sdl-net sdl-pango)))
("t4k-common" ,t4k-common)))

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

@ -32405,6 +32405,29 @@ simple but powerful Org contents.")
on the HTML back-end.")
(license license:gpl3+))))
(define-public emacs-ox-html-stable-ids
(package
(name "emacs-ox-html-stable-ids")
(version "0.1.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://codeberg.org/jkreeftmeijer/ox-html-stable-ids.el")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1slfc1hx6mgx6rb0h0hz7200dmpqr04sz8009r6cy7msp2b91hg7"))))
(build-system emacs-build-system)
(license license:gpl3)
(home-page "https://jeffkreeftmeijer.com/ox-html-stable-ids")
(synopsis "Stable IDs for ox-html.el")
(description
"Ox-html-stable-ids is an Org export extension package that generates
HTML with stable ID attributes instead of the random IDs Org's exporter uses
by default.")))
(define-public emacs-wc-mode
(package
(name "emacs-wc-mode")

9
gnu/packages/embedded.scm
View file

@ -1460,19 +1460,20 @@ debugging them, and more.")
(define-public ebusd
(package
(name "ebusd")
(version "3.4")
(version "23.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/john30/ebusd")
(commit (string-append "v" version))))
(commit version)))
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
"0iva70bam7wdx60bpd3an9kxr28zxlvp3vprivgqshwwdhqa0hzp"))))
"1zqnxk6vgszlf410pypsjjliiy9wawy585fm7v25mka47i6iqafq"))))
(build-system gnu-build-system)
(arguments
`(#:phases
`(#:configure-flags '("--localstatedir=/var")
#:phases
(modify-phases %standard-phases
(add-after 'install 'install-config
(lambda* (#:key inputs outputs #:allow-other-keys)

21
gnu/packages/engineering.scm
View file

@ -1089,7 +1089,7 @@ Emacs).")
(define-public kicad
(package
(name "kicad")
(version "7.0.6")
(version "7.0.7")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1097,7 +1097,7 @@ Emacs).")
(commit version)))
(sha256
(base32
"1bifg73id0grn37a4n5wpq440z9xz14q0fvkva5vajx0xfd34llv"))
"1xbzf29rhqh6kl0vggdn2dblgp927096fc1lr3y4yw63b8n0qq50"))
(file-name (git-file-name name version))))
(build-system cmake-build-system)
(arguments
@ -1197,7 +1197,7 @@ electrical diagrams), gerbview (viewing Gerber files) and others.")
(file-name (git-file-name name version))
(sha256
(base32
"0byvm25jw108h808g5zdjq14gx4xxd87pvlbczd07c3rx6nmzl08"))))
"00f51rcnki08x2jkyla5vmqx7nhck3cyz86wiy0qkmc8klb1a6ba"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags (list "-DBUILD_FORMATS=html")
@ -1231,7 +1231,7 @@ electrical diagrams), gerbview (viewing Gerber files) and others.")
(file-name (git-file-name name version))
(sha256
(base32
"0p60dvig7xx8svzsgp871r0aix2m95bmzg3snz372nmgnza2nnvf"))))
"1wr754m4ykidds3i14gqhvyrj3mbkchp2hkfnr0rjsdaqf4zmqdf"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f)) ; no tests exist
@ -1260,7 +1260,7 @@ libraries.")
(file-name (git-file-name name version))
(sha256
(base32
"0fqnviaxsai0xwyq8xq5ks26j4vd390ns6h6lr0fx2ikv1ghaml5"))))
"0xnnivlqgcyaz9qay73p43jnvmvshp2b3fbh3569j7rmgi5pn8x0"))))
(synopsis "Official KiCad footprint libraries")
(description "This package contains the official KiCad footprint libraries.")))
@ -1277,7 +1277,7 @@ libraries.")
(file-name (git-file-name name version))
(sha256
(base32
"0dmssyhqd94d9wj8w7g7xjan560b2rwcs540sgl0rc77cw2jify8"))))
"141r5wd8s1bgyf77kvb9q14cpsiwwv4zmfzwbgcd42rflsk2lcbc"))))
(synopsis "Official KiCad 3D model libraries")
(description "This package contains the official KiCad 3D model libraries.")))
@ -3223,7 +3223,7 @@ data structures and to operate on them.")
gerbv
glibmm
gtkmm-2
librsvg))
(librsvg-for-system)))
(native-inputs
(list autoconf automake libtool pkg-config))
(home-page "https://github.com/pcb2gcode/pcb2gcode")
@ -4214,7 +4214,7 @@ form, numpad.
(define-public rizin
(package
(name "rizin")
(version "0.5.2")
(version "0.6.1")
(source (origin
(method url-fetch)
(uri (string-append
@ -4222,7 +4222,7 @@ form, numpad.
version "/rizin-src-v" version ".tar.xz"))
(sha256
(base32
"18zca3iwdif200wiivm065fs0a5g520q6380205cijca7ky81avi"))))
"14bcmjx64pgi9zj4zb7yppx69l1ykjwgf2q41s5672m7z354f1kn"))))
(build-system meson-build-system)
(arguments
(list
@ -4250,13 +4250,10 @@ form, numpad.
(lambda _
;; Skip integration tests, which require prebuilt binaries at:
;; <https://github.com/rizinorg/rizin-testbins>.
;; And 2 of them are failing, reported upstream:
;; <https://github.com/rizinorg/rizin/issues/2905>.
(substitute* "test/meson.build"
(("subdir\\('integration'\\)") ""))
;;; Skip failing tests.
(substitute* "test/unit/meson.build"
(("'analysis_var',\n") "")
(("'bin_mach0',\n") "")
(("'hash',\n") "")))))))
(native-inputs (list pkg-config))

44
gnu/packages/fcitx5.scm
View file

@ -87,7 +87,7 @@ client.")
(define-public fcitx5
(package
(name "fcitx5")
(version "5.0.23")
(version "5.1.0")
(source
(origin
(method url-fetch)
@ -95,13 +95,10 @@ client.")
"https://download.fcitx-im.org/fcitx5/fcitx5/fcitx5-"
version "_dict.tar.xz"))
(sha256
(base32 "1w26v0a8qizv8flpkmg04b42kwym6ca1a1chng7j2j1xizjhiw0p"))))
(build-system cmake-build-system)
(base32 "1a1d3bcxddv3hsmffgf608arhamia17bq82q932sy5zl9j8s423y"))))
(arguments
`(#:configure-flags
(list (string-append "-DCLDR_DIR="
(assoc-ref %build-inputs "unicode-cldr-common")
"/share/unicode/cldr"))))
(list #:configure-flags #~(list "-DUSE_SYSTEMD=OFF")))
(build-system cmake-build-system)
(inputs
`(("cairo" ,cairo)
("cairo-xcb" ,cairo-xcb)
@ -115,16 +112,11 @@ client.")
("iso-codes" ,iso-codes)
("json-c" ,json-c)
("libevent" ,libevent)
("libpthread-stubs" ,libpthread-stubs)
("libuuid" ,util-linux "lib")
("libx11" ,libx11)
("libxcb" ,libxcb)
("libxfixes" ,libxfixes)
("libxinerama" ,libxinerama)
("libxkbcommon" ,libxkbcommon)
("libxkbfile" ,libxkbfile)
("pango" ,pango)
("unicode-cldr-common" ,unicode-cldr-common)
("wayland" ,wayland)
("wayland-protocols" ,wayland-protocols)
("xcb-imdkit" ,xcb-imdkit)
@ -172,14 +164,14 @@ client.")
(define-public libime
(package
(name "libime")
(version "1.0.17")
(version "1.1.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://download.fcitx-im.org/fcitx5/libime/libime-"
version "_dict.tar.xz"))
(sha256
(base32 "00d191nghqkcxky5i2j5v8105ckhfh0bdjbkk8swyndjp35bn54f"))))
(base32 "0jqr9riwygr3c9qzs8hx46smhgys68bf6m70fmam819903a9gpf0"))))
(build-system cmake-build-system)
(inputs
(list fcitx5 boost))
@ -194,7 +186,7 @@ editors.")
(define-public fcitx5-gtk
(package
(name "fcitx5-gtk")
(version "5.0.23")
(version "5.1.0")
(source
(origin
(method url-fetch)
@ -202,7 +194,7 @@ editors.")
"/fcitx5-gtk/fcitx5-gtk-"
version ".tar.xz"))
(sha256
(base32 "0s08j8y7bxn9hjz9xkza2fal24r9az2p7js7v86nbjmvy7klq4md"))))
(base32 "0rc4iwqb7ydysm95qpncfd8kvyzk36cfxwg1h0cjn98v3fxjf8kw"))))
(build-system cmake-build-system)
(arguments
(list
@ -312,7 +304,7 @@ IM module for GTK+3 applications.
(define-public fcitx5-qt
(package
(name "fcitx5-qt")
(version "5.0.17")
(version "5.1.0")
(source
(origin
(method url-fetch)
@ -320,7 +312,7 @@ IM module for GTK+3 applications.
"/fcitx5-qt/fcitx5-qt-"
version ".tar.xz"))
(sha256
(base32 "1x4iks052jn6dcwd1lv1i9cpwh3l3qnnd3phryfsg4kn4yhyfs22"))))
(base32 "02gnzwf0mlshmh1hw8c1866643qmdqazwjz339jq0c3ll61f8m7h"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags
@ -347,7 +339,7 @@ for Qt based application.")
(define-public fcitx5-anthy
(package
(name "fcitx5-anthy")
(version "5.0.14")
(version "5.1.0")
(source
(origin
(method url-fetch)
@ -355,7 +347,7 @@ for Qt based application.")
"/fcitx5-anthy/fcitx5-anthy-"
version ".tar.xz"))
(sha256
(base32 "1dx7ajygdy244lwyv3fv14b4wdg3csppxhk8p0g2zwjfvxq4v1qa"))))
(base32 "0hzk3v36ph6f2nnlqqyw08w3qakbcb71y572ff09cy5b20vb29dp"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f)) ;; no tests
@ -371,7 +363,7 @@ the Anthy input method.")
(define-public fcitx5-chinese-addons
(package
(name "fcitx5-chinese-addons")
(version "5.0.17")
(version "5.1.0")
(source
(origin
(method url-fetch)
@ -379,7 +371,7 @@ the Anthy input method.")
"/fcitx5-chinese-addons/fcitx5-chinese-addons-"
version "_dict.tar.xz"))
(sha256
(base32 "0vilq49q02hrim0dg4z3rm6p3ma8v4smh0r5q5rrj6bkyf1apivx"))))
(base32 "1akf4qqvck7m93i0183ffb7jfsz0rq4f3bkf89vfxlqp4i7lfw5l"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags
@ -435,7 +427,7 @@ including input methods previous bundled inside Fcitx 4:
(define-public fcitx5-configtool
(package
(name "fcitx5-configtool")
(version "5.0.17")
(version "5.1.0")
(source
(origin
(method url-fetch)
@ -443,7 +435,7 @@ including input methods previous bundled inside Fcitx 4:
"https://download.fcitx-im.org/fcitx5"
"/fcitx5-configtool/fcitx5-configtool-" version ".tar.xz"))
(sha256
(base32 "1mc6axvkv2i396v7hyqllpiv5rdnf8vvqg9bkb66ljni4dnikdpq"))))
(base32 "0xv5kckm6bsbavw0s2iqg128fv7j8sh49lpwc0acqrdmwj49x1pz"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags
@ -545,7 +537,7 @@ for Fcitx 5 with following color variants:
(define-public fcitx5-rime
(package
(name "fcitx5-rime")
(version "5.0.16")
(version "5.1.1")
(source (origin
(method url-fetch)
(uri (string-append "https://download.fcitx-im.org/fcitx5"
@ -553,7 +545,7 @@ for Fcitx 5 with following color variants:
".tar.xz"))
(sha256
(base32
"0d3qikdcm55p7qjfgiidx1a0zij3sv4s6j7vxxmxwyynjl5xjxjh"))))
"1h6vh5pkak8l528l2d2nw5gy6zqa2sy3ris3xzkakb8kmgyjd3da"))))
(build-system cmake-build-system)
(arguments
'(#:tests? #f ;no tests

7
gnu/packages/file-systems.scm
View file

@ -1725,7 +1725,12 @@ Dropbox API v2.")
(sha256
(base32
"1vzfhw3z2r0rb6s0qdzirh3pl7rv1z8xmxa0z5h7h1wqhpl05ai7"))
(patches (search-patches "dbxfs-remove-sentry-sdk.patch"))))
(patches (search-patches "dbxfs-remove-sentry-sdk.patch"))
(snippet
#~(begin (use-modules (guix build utils))
;; Don't check for package updates.
(substitute* "dbxfs/main.py"
(("if version") "if False"))))))
(build-system python-build-system)
(arguments
'(#:tests? #f)) ; tests requires safefs

144
gnu/packages/freedesktop.scm
View file

@ -5,7 +5,7 @@
;;; Copyright © 2015-2017, 2019, 2021-2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2017, 2018, 2019, 2021, 2022, 2023 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
;;; Copyright © 2016, 2017, 2019, 2021, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017, 2019, 2021-2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2017, 2018 Mark H Weaver <mhw@netris.org>
@ -101,6 +101,7 @@
#:use-module (gnu packages ibus)
#:use-module (gnu packages image)
#:use-module (gnu packages kde-frameworks)
#:use-module (gnu packages kde)
#:use-module (gnu packages language)
#:use-module (gnu packages libffi)
#:use-module (gnu packages libunwind)
@ -338,7 +339,7 @@ tests.")
(define-public malcontent
(package
(name "malcontent")
(version "0.8.0")
(version "0.11.1")
(source
(origin
(method git-fetch)
@ -347,7 +348,7 @@ tests.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0vnf0pk516fwwh41v96c29l2i7h1pnwhivlkbf53kkx1q35g7lb3"))))
(base32 "0g622ig5ffrzk9184xff3lardk7rnmkvj8y5g6h6s41bfh51b71m"))))
(build-system meson-build-system)
(arguments
`(#:glib-or-gtk? #t
@ -358,25 +359,26 @@ tests.")
(lambda _
(substitute* "libmalcontent/tests/app-filter.c"
(("g_test_add_func \\(\"/app-filter/appinfo\", test_app_filter_appinfo\\);")
""))
#t)))))
"")))))))
(native-inputs
`(("desktop-file-utils" ,desktop-file-utils)
("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin")
("gobject-introspection" ,gobject-introspection)
("gtk+:bin" ,gtk+ "bin")
("itstool" ,itstool)
("libglib-testing" ,libglib-testing)
("libxml2" ,libxml2)
("pkg-config" ,pkg-config)))
(list desktop-file-utils
gettext-minimal
`(,glib "bin")
gobject-introspection
`(,gtk "bin")
itstool
libglib-testing
libxml2
pkg-config))
(inputs
(list accountsservice
appstream
appstream-glib
dbus
flatpak
glib
gtk+
gtk
libadwaita
libostree
linux-pam
polkit))
@ -643,7 +645,7 @@ the freedesktop.org XDG Base Directory specification.")
(define-public elogind
(package
(name "elogind")
(version "246.10")
(version "252.9")
(source (origin
(method git-fetch)
(uri (git-reference
@ -652,25 +654,30 @@ the freedesktop.org XDG Base Directory specification.")
(file-name (git-file-name name version))
(sha256
(base32
"16045bhpwjq2nqgswln67ipg1zrz2djxlgkfngqng3jqpwagmnzq"))
(patches (search-patches
"elogind-revert-polkit-detection.patch"))))
"049cfv97975x700s7lx4p9i22nv6v7j046iwkspxba7kr5qq7akw"))
(patches (search-patches "elogind-fix-rpath.patch"))))
(build-system meson-build-system)
(arguments
`(#:configure-flags
,#~(let* ((out #$output)
(sysconf (string-append out "/etc"))
(libexec (string-append out "/libexec/elogind"))
(dbuspolicy (string-append out "/etc/dbus-1/system.d"))
(dbus-data (string-append out "/share/dbus-1"))
(dbuspolicy (string-append dbus-data "/system.d"))
(dbussessionservice (string-append dbus-data "/services"))
(dbussystemservice (string-append dbus-data
"/system-services"))
(dbusinterfaces (string-append dbus-data "/interfaces"))
#$@(if (not (target-riscv64?))
#~((kexec-tools #$(this-package-input "kexec-tools")))
#~())
#~((kexec-tools #$(this-package-input "kexec-tools")))
#~())
(shadow #$(this-package-input "shadow"))
(shepherd #$(this-package-input "shepherd"))
(halt-path (string-append shepherd "/sbin/halt"))
#$@(if (not (target-riscv64?))
#~((kexec-path (string-append kexec-tools "/sbin/kexec")))
#~())
#~((kexec-path (string-append kexec-tools "/sbin/kexec")))
#~())
(nologin-path (string-append shadow "/sbin/nologin"))
(poweroff-path (string-append shepherd "/sbin/shutdown"))
(reboot-path (string-append shepherd "/sbin/reboot")))
@ -679,12 +686,15 @@ the freedesktop.org XDG Base Directory specification.")
(string-append "-Dsysconfdir=" sysconf)
(string-append "-Drootlibexecdir=" libexec)
(string-append "-Ddbuspolicydir=" dbuspolicy)
(string-append "-Ddbussessionservicedir=" dbussessionservice)
(string-append "-Ddbussystemservicedir=" dbussystemservice)
(string-append "-Ddbus-interfaces-dir=" dbusinterfaces)
(string-append "-Dc_link_args=-Wl,-rpath=" libexec)
(string-append "-Dcpp_link_args=-Wl,-rpath=" libexec)
(string-append "-Dhalt-path=" halt-path)
#$@(if (not (target-riscv64?))
#~((string-append "-Dkexec-path=" kexec-path))
#~())
#~((string-append "-Dkexec-path=" kexec-path))
#~())
(string-append "-Dpoweroff-path=" poweroff-path)
(string-append "-Dreboot-path=" reboot-path)
(string-append "-Dnologin-path=" nologin-path)
@ -703,21 +713,28 @@ the freedesktop.org XDG Base Directory specification.")
;; XXX There is no run-time setting to set this per-process, only a
;; build-time, hard-coded list of global directories.
(lambda _
(substitute* (list "src/login/elogind-dbus.c"
"src/sleep/sleep.c")
(substitute* (list "src/login/logind-core.c"
"src/login/logind-dbus.c"
"src/sleep/sleep.c"
"src/shared/sleep-config.c")
(("PKGSYSCONFDIR") "\"/etc/elogind\""))))
(add-after 'unpack 'adjust-tests
(lambda _
;; Skip the following test, which depends on users such as 'root'
;; existing in the build environment.
(invoke "sed" "/src\\/test\\/test-user-util.c/,+2s/^/#/g"
"-i" "src/test/meson.build")
;; Skip the user-util tests, which depends on users such as
;; 'root' existing in the build environment.
(substitute* "src/test/meson.build"
((".*'test-user-util.c'.*") "")
((".*'test-cgroup.c'.*") ""))
;; This test tries to copy some bytes from /usr/lib/os-release,
;; which does not exist in the build container. Choose something
;; more likely to be available.
(substitute* "src/test/test-copy.c"
(("/usr/lib/os-release")
"/etc/passwd"))
"/etc/passwd")
;; Skip the copy_holes test, which fails for unknown reasons
;; (see: https://github.com/elogind/elogind/issues/261).
(("TEST_RET\\(copy_holes).*" all)
(string-append all " return 77;\n")))
;; Use a shebang that works in the build container.
(substitute* "src/test/test-exec-util.c"
(("#!/bin/sh")
@ -742,41 +759,37 @@ the freedesktop.org XDG Base Directory specification.")
;; loopback device, but that fails because /sys is unavailable.
(substitute* "src/libelogind/sd-device/test-sd-device-thread.c"
((".*sd_device_new_from_syspath.*/sys/class/net/lo.*")
"return 77;"))
;; Most of these tests require cgroups or an actual live
;; logind system so that it can flicker the monitor, etc.
;; Just skip it until a more narrow selection can be made.
(substitute* "src/libelogind/sd-login/test-login.c"
(("test_login\\(\\);")
"return 77;"))))
(add-after 'unpack 'change-pid-file-path
(lambda _
(substitute* "src/login/elogind.c"
(("\"/run/elogind.pid\"") "\"/run/systemd/elogind.pid\"")))))))
(native-inputs
`(("docbook-xml" ,docbook-xml-4.5)
("docbook-xml-4.2" ,docbook-xml-4.2)
("docbook-xsl" ,docbook-xsl)
("gettext" ,gettext-minimal)
("gperf" ,gperf)
("libxml2" ,libxml2) ;for XML_CATALOG_FILES
("m4" ,m4)
("pkg-config" ,pkg-config)
("python" ,python)
("xsltproc" ,libxslt)))
(list docbook-xml-4.5
docbook-xml-4.2
docbook-xsl
gettext-minimal
gperf
libxml2 ;for XML_CATALOG_FILES
m4
pkg-config
python
python-jinja2
libxslt))
(inputs
(append
(if (not (target-riscv64?))
(list kexec-tools)
'())
(list linux-pam
libcap
shadow ; for 'nologin'
shepherd ; for 'halt' and 'reboot', invoked
; when pressing the power button
dbus
eudev
acl))) ; to add individual users to ACLs on /dev nodes
(if (not (target-riscv64?))
(list kexec-tools)
'())
(list linux-pam
libcap
`(,util-linux "lib") ;for 'libmount'
shadow ;for 'nologin'
shepherd ;for 'halt' and 'reboot', invoked
;when pressing the power button
dbus
eudev
acl))) ; to add individual users to ACLs on /dev nodes
(home-page "https://github.com/elogind/elogind")
(synopsis "User, seat, and session management service")
(description "Elogind is the systemd project's \"logind\" service,
@ -2891,14 +2904,14 @@ interfaces.")
(define-public xdg-desktop-portal-kde
(package
(name "xdg-desktop-portal-kde")
(version "5.25.5")
(version "5.27.6")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/plasma/" version "/"
name "-" version ".tar.xz"))
(sha256
(base32
"0l3lmwihxyl65y0mkyg3afk1k6gc0ldjw2vg92g7yydbgmn39q7k"))))
"0wzp21l521d9z9mnfgiapzljqpg5qc5ghyzndpr8cz54c2bf9mdf"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules pkg-config))
(inputs (list cups
@ -2917,7 +2930,12 @@ interfaces.")
kiconthemes
qtdeclarative-5
qtwayland-5
wayland))
wayland
kglobalaccel
kguiaddons
libxkbcommon
kio-fuse
wayland-protocols))
(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.")

4
gnu/packages/fvwm.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
@ -67,7 +67,7 @@
(inputs
(list fribidi
libpng
librsvg
(librsvg-for-system)
libxcursor
libxext
libxft

99
gnu/packages/games.scm
View file

@ -430,7 +430,7 @@ mouse and joystick control, and original music.")
`(#:tests? #f ; no check target
#:make-flags
(list "CC=gcc"
"CFLAGS=-D_FILE_OFFSET_BITS=64"
"CFLAGS=-D_FILE_OFFSET_BITS=64 -fcommon"
(string-append "PREFIX=" (assoc-ref %outputs "out")))
#:phases
(modify-phases %standard-phases
@ -713,7 +713,8 @@ canyons and wait for the long I-shaped block to clear four rows at a time.")
(list ncurses))
(arguments
`(#:tests? #f ;no tests
#:make-flags '("CC=gcc")
#:make-flags '("CC=gcc"
"CFLAGS=-O2 -DHAVE_IPV6 -g -Wall -fcommon")
#:phases
(modify-phases %standard-phases
(delete 'configure) ;no configure script
@ -1160,7 +1161,7 @@ allows users to brew while offline.")
(define-public corsix-th
(package
(name "corsix-th")
(version "0.66")
(version "0.67")
(source
(origin
(method git-fetch)
@ -1169,29 +1170,28 @@ allows users to brew while offline.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0sgsvhqgiq6v1v5am7ghja8blhlrj0y1arvq6xq1j5fwa7c59ihs"))))
(base32 "14996kbrwdrd0gpz19il2i4p650qdhjw8v8ka3aigk6pl4kda3sq"))))
(build-system cmake-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'wrap-binary
(lambda _
;; Set Lua module paths and default MIDI soundfont on startup.
(let* ((out (assoc-ref %outputs "out"))
(fluid (assoc-ref %build-inputs "fluid-3"))
(lua-version ,(version-major+minor (package-version lua)))
(lua-cpath
(map (lambda (lib)
(string-append
(assoc-ref %build-inputs (string-append "lua-" lib))
"/lib/lua/" lua-version "/?.so"))
'("filesystem" "lpeg"))))
(wrap-program (string-append out "/bin/corsix-th")
`("LUA_CPATH" ";" = ,lua-cpath)
`("SDL_SOUNDFONTS" ":" suffix
(,(string-append fluid "/share/soundfonts/FluidR3Mono_GM.sf3")))))
#t)))
#:tests? #f)) ; TODO need busted package to run tests
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'wrap-binary
(lambda _
;; Set Lua module paths and default MIDI soundfont on startup.
(let* ((fluid #$(this-package-input "fluid-3"))
(lua-version #$(version-major+minor (package-version lua)))
(lua-cpath
(map (lambda (lib)
(string-append
(assoc-ref %build-inputs (string-append "lua-" lib))
"/lib/lua/" lua-version "/?.so"))
'("filesystem" "lpeg"))))
(wrap-program (string-append #$output "/bin/corsix-th")
`("LUA_CPATH" ";" = ,lua-cpath)
`("SDL_SOUNDFONTS" ":" suffix
(,(string-append fluid "/share/soundfonts/FluidR3Mono_GM.sf3"))))))))
#:tests? #f)) ; TODO need busted package to run tests
;; Omit Lua-Socket dependency to disable automatic updates.
(inputs
(list ffmpeg
@ -1542,7 +1542,7 @@ effects and music to make a completely free game.")
(define-public freedroidrpg
(package
(name "freedroidrpg")
(version "1.0rc2")
(version "1.0")
(source
(origin
(method url-fetch)
@ -1553,7 +1553,7 @@ effects and music to make a completely free game.")
"freedroidRPG-" major+minor "/"
"freedroidRPG-" version ".tar.gz")))
(sha256
(base32 "10jknaad2ph9j5bs4jxvpnl8rq5yjlq0nasv98f4mki2hh8yiczy"))))
(base32 "1kxvyg70r9x8q40kn5lr3h1q60d6jx9mkvxls4aflj22b45vg5br"))))
(build-system gnu-build-system)
(arguments
(list
@ -1891,7 +1891,13 @@ built-in level editor.")
version "_src.tar.gz"))
(sha256
(base32
"18vp2ygvn0s0jz8rm585jqf6hjqkam1ximq81k0r9hpmfj7wb88f"))))
"18vp2ygvn0s0jz8rm585jqf6hjqkam1ximq81k0r9hpmfj7wb88f"))
(modules '((guix build utils)))
(snippet
;; Fix a missing include for std::map.
#~(substitute* "src/shared/impl/lua_func_wrapper.cpp"
(("#include \"misc[.]hpp\"" x)
(string-append "#include <map>\n" x))))))
(build-system gnu-build-system)
(arguments
'(#:make-flags
@ -2012,7 +2018,7 @@ such as chess or stockfish.")
(define-public gnubg
(package
(name "gnubg")
(version "1.06.002")
(version "1.07.001")
(source
(origin
(method url-fetch)
@ -2020,10 +2026,10 @@ such as chess or stockfish.")
version "-sources.tar.gz"))
(sha256
(base32
"11xwhcli1h12k6rnhhyq4jphzrhfik7i8ah3k32pqw803460n6yf"))))
"07l2srlm05c99l4pppba8l54bnh000ns2rih5h8rzbcw84lrffbj"))))
(build-system gnu-build-system)
(inputs (list ;; XXX: Build with an older Pango for 'pango_font_get_hb_font' and
;; 'pango_coverage_get_type'. Try removing this for versions > 1.06.002.
;; 'pango_coverage_get_type'. Try removing this for versions > 1.07.001.
pango-1.42
glib
readline
@ -2377,7 +2383,7 @@ Every puzzle has a complete solution, although there may be more than one.")
#t))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags '("--disable-cpu-opt")
'(#:configure-flags '("--disable-cpu-opt" "CFLAGS=-fcommon")
#:make-flags `(,(string-append "gamesdir="
(assoc-ref %outputs "out") "/bin"))
#:phases
@ -3740,7 +3746,7 @@ object-oriented programming.")
(assoc-ref inputs "chess")
"/bin/gnuchessx"))))))))
(inputs
(list alsa-utils chess gtk+-2 librsvg))
(list alsa-utils chess gtk+-2 (librsvg-for-system)))
(native-inputs
(list texinfo pkg-config))
(home-page "https://www.gnu.org/software/xboard/")
@ -5166,7 +5172,7 @@ are only two levels to play with, but they are very addictive.")
(("\"beep\"")
(string-append "\"" (assoc-ref inputs "beep") "/bin/beep\"")))
#t)))))
(inputs (list avahi beep gtk+ librsvg))
(inputs (list avahi beep gtk+ (librsvg-for-system)))
(native-inputs (list intltool itstool libxml2 pkg-config))
(synopsis "Board game inspired by The Settlers of Catan")
(description "Pioneers is an emulation of the board game The Settlers of
@ -5815,7 +5821,7 @@ safety of the Chromium vessel.")
("fribidi" ,fribidi)
("gettext" ,gettext-minimal)
("libpng" ,libpng)
("librsvg" ,librsvg)
("librsvg" ,(librsvg-for-system))
("libpaper" ,libpaper)
("netpbm" ,netpbm)
("sdl" ,(sdl-union (list sdl sdl-mixer sdl-ttf sdl-image)))))
@ -6509,7 +6515,7 @@ emerges from a sewer hole and pulls her below ground.")
(define-public cdogs-sdl
(package
(name "cdogs-sdl")
(version "1.4.0")
(version "1.5.0")
(source
(origin
(method git-fetch)
@ -6518,13 +6524,21 @@ emerges from a sewer hole and pulls her below ground.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1505z8rli59i1ych4rzwbf4dvhv72icdj22n1xarb8xfyz0wyp3b"))))
(base32 "1i1akay3ad2bkiqa7vfkh3qyhiqax8ikp1v6lfjysvxg65wkqdvc"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags
(list (string-append "-DCDOGS_DATA_DIR="
(assoc-ref %outputs "out")
"/share/cdogs-sdl/"))))
(list
#:configure-flags
#~(list (string-append "-DCDOGS_DATA_DIR=" #$output
"/share/cdogs-sdl/"))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-install-directory
(lambda _
(substitute* "CMakeLists.txt"
(("set\\(DATA_INSTALL_DIR \".\"\\)")
(string-append "set(DATA_INSTALL_DIR \""
#$output "/share/cdogs-sdl\")"))))))))
(native-inputs
(list pkg-config))
(inputs
@ -7755,7 +7769,7 @@ Github or Gitlab.")
(base32
"1s86cd36rwkff329mb1ay1wi5qqyi35564ppgr3f4qqz9wj9vs2m"))))
("gettext" ,gettext-minimal)
("librsvg" ,librsvg)
("librsvg" ,(librsvg-for-system))
("po4a" ,po4a)
("python" ,python-wrapper)))
(inputs
@ -8243,7 +8257,8 @@ ncurses for text display.")
physfs
python
python-pyyaml
(sdl-union (list sdl2 sdl2-image sdl2-mixer))
sdl2
sdl2-image
suitesparse))
(home-page "https://naev.org/")
(synopsis "Game about space exploration, trade and combat")

2
gnu/packages/genealogy.scm
View file

@ -63,7 +63,7 @@
gtk+
gtkspell3
graphviz
librsvg
(librsvg-for-system)
osm-gps-map
pango
python-bsddb3

2
gnu/packages/geo.scm
View file

@ -2434,7 +2434,7 @@ track your position right from your laptop.")
("gdal" ,gdal)
("proj" ,proj)
("qtbase" ,qtbase-5)
("qtimageformats" ,qtimageformats)
("qtimageformats" ,qtimageformats-5)
("qtlocation" ,qtlocation)
("qtsensors" ,qtsensors)
("zlib" ,zlib)))

6
gnu/packages/gettext.scm
View file

@ -240,11 +240,13 @@ from Markdown files.")
(version "0.69")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/mquinson/po4a/releases/download/v"
(uri (string-append "https://github.com/mquinson/po4a"
"/releases/download/v"
version "/po4a-" version ".tar.gz"))
(sha256
(base32
"15llrfdp4ilbrxy65hmmxka86xj0mrbqfiyzv715wrk16vqszm3w"))))
"15llrfdp4ilbrxy65hmmxka86xj0mrbqfiyzv715wrk16vqszm3w"))
(patches (search-patches "po4a-partial-texinfo-menu-fix.patch"))))
(build-system perl-build-system)
(arguments
(list

40
gnu/packages/glib.scm
View file

@ -1290,6 +1290,46 @@ Some codes examples can be find at:
(home-page "https://dbus-cxx.github.io/")
(license license:gpl3)))
(define-public sdbus-c++
;; Use the latest commit, which includes unreleased fixes to the pkg-config
;; file.
(package
(name "sdbus-c++")
(version "1.3.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Kistler-Group/sdbus-cpp")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"03maivi3nj4g5wcydk9ih703ivmqkc93yip47wlyjni6dhikzzsb"))))
(build-system cmake-build-system)
(arguments
(list
;; Avoid the integration test, which requires a system bus.
#:test-target "sdbus-c++-unit-tests"
#:configure-flags #~(list "-DBUILD_CODE_GEN=ON"
"-DBUILD_TESTS=ON"
;; Do not install tests.
"-DTESTS_INSTALL_PATH=/tmp"
"-DCMAKE_VERBOSE_MAKEFILE=ON")
#:phases #~(modify-phases %standard-phases
(add-after 'unpack 'do-not-install-tests
(lambda _
(substitute* "tests/CMakeLists.txt"
(("/etc/dbus-1/system.d") "/tmp")))))))
(native-inputs (list googletest pkg-config))
(inputs (list expat))
(propagated-inputs (list elogind)) ;required by sdbus-c++.pc
(home-page "https://github.com/Kistler-Group/sdbus-cpp")
(synopsis "High-level C++ D-Bus library")
(description "@code{sdbus-c++} is a high-level C++ D-Bus library designed
to provide easy-to-use yet powerful API in modern C++. It adds another layer
of abstraction on top of @code{sd-bus}, the C D-Bus implementation by systemd.")
(license license:lgpl2.1+)))
(define-public appstream-glib
(package
(name "appstream-glib")

26
gnu/packages/gnome.scm
View file

@ -384,7 +384,6 @@ services.")
(define-public libcloudproviders
(package/inherit libcloudproviders-minimal
(name "libcloudproviders")
(version "0.3.1")
(outputs (cons "doc" (package-outputs libcloudproviders-minimal)))
(arguments
(substitute-keyword-arguments (package-arguments libcloudproviders-minimal)
@ -567,7 +566,7 @@ in JavaScript.")
vala))
(inputs
(list avahi
librsvg
(librsvg-for-system)
libgee
gst-plugins-base
gtk+))
@ -871,7 +870,7 @@ tomorrow, the rest of the week and for special occasions.")
libjpeg-turbo
libportal
libpng
librsvg
(librsvg-for-system)
python-pygobject
rest
tracker
@ -2802,11 +2801,12 @@ and how they are displayed (View).")
gettext-minimal
`(,glib "bin")
gobject-introspection
itstool
pkg-config
python))
(inputs
(list bash-minimal
librsvg
(librsvg-for-system)
gsettings-desktop-schemas
gtk+
pango
@ -4381,7 +4381,7 @@ engineering.")
python))
(inputs
(list bash-minimal
librsvg
(librsvg-for-system)
gsettings-desktop-schemas
gtk+
pango
@ -5387,7 +5387,7 @@ once.")
(list gtk+
json-glib
libgee
librsvg
(librsvg-for-system)
qqwing))
(home-page "https://wiki.gnome.org/Apps/Sudoku")
(synopsis "Japanese logic game")
@ -6085,7 +6085,7 @@ playlists in a variety of formats.")
("pkg-config" ,pkg-config)
("xmllint" ,libxml2)))
(inputs
(list gtk+ guile-2.2 libcanberra librsvg))
(list gtk+ guile-2.2 libcanberra (librsvg-for-system)))
(home-page "https://wiki.gnome.org/Apps/Aisleriot")
(synopsis "Solitaire card games")
(description
@ -6672,7 +6672,7 @@ discovery protocols.")
libxml2
libsoup
libpeas
librsvg
(librsvg-for-system)
libhandy
gnome-desktop
gstreamer
@ -9109,7 +9109,7 @@ devices using the GNOME desktop.")
libgtop
libnma
libpwquality
librsvg ;for loading SVG files
(librsvg-for-system) ;for loading SVG files
libsecret
libxml2
libwacom
@ -10987,7 +10987,7 @@ Bluefish supports many programming and markup languages.")
gtk+
gtkmm-3
libhandy
librsvg
(librsvg-for-system)
libxml2
libwnck))
(home-page "https://wiki.gnome.org/Apps/SystemMonitor")
@ -11772,7 +11772,7 @@ functionality.")
("libheif" ,libheif)
("libjpeg" ,libjpeg-turbo)
("libraw" ,libraw)
("librsvg" ,librsvg)
("librsvg" ,(librsvg-for-system))
("libtiff" ,libtiff)
("libwebp" ,libwebp)))
(home-page "https://wiki.gnome.org/Apps/Gthumb")
@ -12157,7 +12157,7 @@ and a high score table.")
`(("glib" ,glib)
("gtk+" ,gtk+)
("gtk+-2" ,gtk+-2)
("librsvg" ,librsvg)
("librsvg" ,(librsvg-for-system))
("libxml2" ,libxml2)))
(home-page "https://gitlab.gnome.org/GNOME/gnome-themes-extra")
(synopsis "GNOME Extra Themes")
@ -12468,7 +12468,7 @@ to.")
("itstool" ,itstool)
("pkg-config" ,pkg-config)))
(inputs
(list gtk+ librsvg libxml2))
(list gtk+ (librsvg-for-system) libxml2))
(arguments
`(#:configure-flags '("CFLAGS=-fcommon")))
(home-page "https://glabels.org/")

3
gnu/packages/gnupg.scm
View file

@ -453,12 +453,13 @@ and every application benefits from this.")
(symlink (string-append gpgme "/lib/libgpgme.la")
"src/libgpgme.la"))
(chdir "lang/qt"))))))
(propagated-inputs (list gpgme)) ;required by QGpgmeConfig.cmake
(native-inputs
(modify-inputs (package-native-inputs gpgme)
(prepend pkg-config)))
(inputs
(modify-inputs (package-inputs gpgme)
(prepend gpgme qtbase-5)))
(prepend qtbase-5)))
(synopsis "Qt API bindings for gpgme")
(description "QGpgme provides a very high level Qt API around GpgMEpp.

2
gnu/packages/graphics.scm
View file

@ -1397,7 +1397,7 @@ visual effects work for film.")
`(("giflib" ,giflib)
("libjpeg" ,libjpeg-turbo) ; required for the JPEG texture plugin.
("jasper" ,jasper)
("librsvg" ,librsvg)
("librsvg" ,(librsvg-for-system))
("libxrandr" ,libxrandr)
("ffmpeg" ,ffmpeg-4)
("mesa" ,mesa)))

3
gnu/packages/gstreamer.scm
View file

@ -797,6 +797,9 @@ model to base your own plug-in on, here it is.")
;; https://gitlab.freedesktop.org/gstreamer/gstreamer/-/issues/790).
((".*'elements/shm\\.c'.*") "")
;; The 'elements_curlhttpsrc' test sometimes times out.
((".*'elements/curlhttpsrc\\.c'.*") "")
;; This test is flaky on at least some architectures.
;; https://gitlab.freedesktop.org/gstreamer/gstreamer/-/issues/1244
#$@(if (target-riscv64?)

10
gnu/packages/guile-xyz.scm
View file

@ -3046,7 +3046,7 @@ format is also supported.")
(propagated-inputs
(list guile-cairo guile-rsvg))
(native-inputs
(list autoconf automake librsvg pkg-config texinfo))
(list autoconf automake (librsvg-for-system) pkg-config texinfo))
(home-page "https://git.elephly.net/software/guile-picture-language.git")
(synopsis "Picture language for Guile")
(description
@ -3844,7 +3844,7 @@ debugging code.")
(define-public guile-png
(package
(name "guile-png")
(version "0.6.0")
(version "0.7.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -3853,7 +3853,7 @@ debugging code.")
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
"0i0q2h4kfp1mj5m3wnz2hk6z895001j38s5vkbhkdxf05cjvwkky"))))
"0nkim662lb48y8n5hik8rrj76600v2inwaxwnfpdny7h2j0yq1wm"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
@ -5345,7 +5345,7 @@ GitLab instance.")
(define-public guile-smc
(package
(name "guile-smc")
(version "0.6.1")
(version "0.6.2")
(source
(origin
(method git-fetch)
@ -5355,7 +5355,7 @@ GitLab instance.")
(file-name (string-append name "-" version))
(sha256
(base32
"02729gkywzimmdlmnwzclvs3wl92f9mvp5dmcbp75kmwibxly288"))))
"11083lj048ab5zsdgwpkshxi8v5nfdr7kvmmslszbi7lq2pwfqig"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags '("GUILE_AUTO_COMPILE=0") ;to prevent guild warnings

6
gnu/packages/ibus.scm
View file

@ -349,7 +349,7 @@ Chinese pinyin input methods.")
(define-public ibus-anthy
(package
(name "ibus-anthy")
(version "1.5.14")
(version "1.5.15")
(source (origin
(method url-fetch)
(uri (string-append
@ -357,13 +357,13 @@ Chinese pinyin input methods.")
version "/ibus-anthy-" version ".tar.gz"))
(sha256
(base32
"16vd0k8wm13s38869jqs3dnwmjvywgn0snnpyi41m28binhlssf8"))
"12yrgqiq6mqc8jr49dgkk3d7mdnyqic4xs597biwjjkahgaydi2q"))
(patches (search-patches "ibus-anthy-fix-tests.patch"))))
(build-system glib-or-gtk-build-system)
(arguments
(list
;; The test suite hangs (see:
;; https://github.com/ibus/ibus-anthy/issues/28).
;; https://github.com/ibus/ibus-anthy/pull/35).
#:tests? #f
#:configure-flags
;; Use absolute exec path in the anthy.xml.

4
gnu/packages/image-processing.scm
View file

@ -754,7 +754,7 @@ the OpenCV-Python library.")
libgsf
libjpeg-turbo
libpng
librsvg
(librsvg-for-system)
libtiff
libxml2
libwebp
@ -906,7 +906,7 @@ including 2D color images.")
libxml2
libexif
libjpeg-turbo ;required by vips.pc
librsvg
(librsvg-for-system)
fftw
libgsf
imagemagick

2
gnu/packages/image-viewers.scm
View file

@ -730,7 +730,7 @@ Poppler-Qt5 binding, PDF documents.")
(native-inputs
(list qttools-5))
(inputs
(list qtbase-5 qtimageformats qtsvg-5))
(list qtbase-5 qtimageformats-5 qtsvg-5))
(home-page "https://interversehq.com/qview/")
(synopsis "Convenient and minimal image viewer")
(description "qView is a Qt image viewer designed with visually

19
gnu/packages/image.scm
View file

@ -1432,6 +1432,7 @@ language bindings to VIGRA.")
(package
(name "libwebp")
(version "1.2.4")
(replacement libwebp/fixed)
(source
(origin
;; No tarballs are provided for >0.6.1.
@ -1470,6 +1471,22 @@ to PNG when lossy compression is acceptable for the red/green/blue color
channels.")
(license license:bsd-3)))
(define libwebp/fixed
(package
(inherit libwebp)
(name "libwebp")
(version "1.3.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://chromium.googlesource.com/webm/libwebp")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1aas6gwy7kfcq34cil781kcsl286khh9grwcx7k4d2n1g7zcpl3m"))))))
(define-public libmng
(package
(name "libmng")
@ -2571,7 +2588,7 @@ GIF, TIFF, WEBP, BMP, PNG, XPM formats.")
("gettext" ,gettext-minimal)))
(inputs
(list gtk+
librsvg
(librsvg-for-system)
hicolor-icon-theme
libmypaint
mypaint-brushes

4
gnu/packages/instrumentation.scm
View file

@ -341,14 +341,14 @@ many probes which instrument numerous interesting parts of Linux.")
(define-public lttng-ust
(package
(name "lttng-ust")
(version "2.13.4")
(version "2.13.6")
(source (origin
(method url-fetch)
(uri (string-append "https://lttng.org/files/lttng-ust/"
"lttng-ust-" version ".tar.bz2"))
(sha256
(base32
"165kz3zsklynkxdkcbkwhw7cccdgmgmld35h1cf9hvn5bpn853v9"))))
"1mffy0fmr8h8kfghjadxa7nhzfwxjh7h1k97kslpmb3kvnb4bq77"))))
(build-system gnu-build-system)
(inputs
(list numactl))

89
gnu/packages/irc.scm
View file

@ -13,6 +13,7 @@
;;; Copyright © 2021 WinterHound <winterhound@yandex.com>
;;; Copyright © 2022 Jai Vetrivelan <jaivetrivelan@gmail.com>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -39,6 +40,7 @@
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu)
#:use-module (guix build-system go)
#:use-module (guix build-system guile)
#:use-module (guix build-system haskell)
#:use-module (guix build-system meson)
#:use-module (guix build-system python)
@ -49,6 +51,7 @@
#:use-module (gnu packages autogen)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages backup)
#:use-module (gnu packages boost)
#:use-module (gnu packages check)
@ -66,6 +69,7 @@
#:use-module (gnu packages golang)
#:use-module (gnu packages gtk)
#:use-module (gnu packages guile)
#:use-module (gnu packages guile-xyz)
#:use-module (gnu packages haskell-check)
#:use-module (gnu packages haskell-crypto)
#:use-module (gnu packages haskell-xyz)
@ -260,14 +264,14 @@ Conferencing} and @acronym{ICB, Internet Citizen's Band}.")
(define-public weechat
(package
(name "weechat")
(version "4.0.2")
(version "4.0.4")
(source (origin
(method url-fetch)
(uri (string-append "https://weechat.org/files/src/weechat-"
version ".tar.xz"))
(sha256
(base32
"0g026j47140h8kqyh3l0367fq9194wdx8q7f4na0kj14s3h8wr0f"))))
"1xmnks152ixn0ycs0h6dzvir3vl1wkvxahg7hjdk785dnmwljpxf"))))
(build-system cmake-build-system)
(outputs '("out" "doc"))
(native-inputs
@ -480,14 +484,14 @@ highlighted.
(define-public sic
(package
(name "sic")
(version "1.2")
(version "1.3")
(source (origin
(method url-fetch)
(uri (string-append "http://dl.suckless.org/tools/"
name "-" version ".tar.gz"))
(sha256
(base32
"11aiavxp44yayibc58bvimi8mrxvbw1plbci8cnbl4syk42zj1xc"))))
"1lk57mrrqgky37bjsnp72s8libywzsrbbjq8bpmz4xdw7smqyirh"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no tests
@ -830,3 +834,80 @@ but can also be used independently as a logging bot.")
server written in C++ for Unix-like operating systems.")
(home-page "https://www.inspircd.org/")
(license license:gpl2)))
(define-public snuik
(package
(name "snuik")
(version "0.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://dezyne.org/download/snuik/"
name "-" version ".tar.gz"))
(sha256
(base32 "1lm6mbgfjzjk3pvzp1y9wkdz9dr2qyl1c6ib1hqxrnvkmlciy5p5"))))
(native-inputs (list guile-3.0))
(inputs (list bash-minimal guile-3.0 guile-8sync))
(build-system guile-build-system)
(arguments
(list
#:not-compiled-file-regexp "(guix|guix/.*)[.]scm$"
#:modules '((srfi srfi-1)
(ice-9 popen)
(guix build guile-build-system)
(guix build utils))
#:phases
#~(modify-phases %standard-phases
#$@(if (%current-target-system)
#~()
#~((add-after 'build 'check
(lambda _
(let* ((tests (find-files "test" "[.]scm$"))
(guile #$(this-package-input "guile"))
(guile (string-append guile "/bin/guile")))
(fold (lambda (test result)
(and
result
(invoke guile "--no-auto-compile" test)))
#t
tests))))))
(add-after 'install 'install-script
(lambda _
(let* ((bash #$(this-package-input "bash-minimal"))
(bash (string-append bash "/bin/bash"))
(guile #$(this-package-input "guile"))
(guile (string-append guile "/bin/guile"))
(build-guile #$(this-package-native-input "guile"))
(build-guile (string-append build-guile "/bin/guile"))
(guile-8sync #$(this-package-input "guile-8sync"))
(out #$output)
(bin (string-append out "/bin"))
(effective (read
(open-pipe* OPEN_READ
build-guile "-c"
"(write (effective-version))")))
(path (list (string-append guile "/bin")))
(scm-dir (string-append "/share/guile/site/" effective))
(scm-path (list (string-append out scm-dir)
(string-append guile-8sync scm-dir)))
(go-dir (string-append "/lib/guile/" effective
"/site-ccache/"))
(go-path (list (string-append out go-dir)
(string-append guile-8sync go-dir))))
(mkdir-p "bin")
(copy-file "snuik.sh" "bin/snuik")
(substitute* "bin/snuik"
(("@SHELL@") bash))
(chmod "snuik" #o755)
(install-file "bin/snuik" bin)
(wrap-script (string-append out "/bin/snuik")
`("PATH" ":" prefix ,path)
`("GUILE_AUTO_COMPILE" ":" = ("0"))
`("GUILE_LOAD_PATH" ":" prefix ,scm-path)
`("GUILE_LOAD_COMPILED_PATH" ":" prefix ,go-path))))))))
(home-page "https://gitlab.com/janneke/snuik")
(synopsis "IRC bot using Guile-8sync")
(description "@code{Snuik} is an IRC bot using the GNU 8sync (for
now). It has some basic functionality only, such as seen, tell, and
what.")
(license license:gpl3+)))

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

File diff suppressed because it is too large Load diff

237
gnu/packages/kde-games.scm
View file

@ -27,6 +27,8 @@
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system qt)
#:use-module (guix build-system trivial)
#:use-module (guix gexp)
#:use-module (gnu packages bash)
#:use-module (gnu packages compression)
#:use-module (gnu packages gl)
@ -37,19 +39,20 @@
#:use-module (gnu packages python)
#:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt))
#:use-module (gnu packages qt)
#:use-module (gnu packages xiph))
(define-public ktuberling
(package
(name "ktuberling")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/ktuberling-" version ".tar.xz"))
(sha256
(base32 "19kyk7r7lkzwcvhhn1jjgrcdkq8gfmzgyrvvcbm4qkx7jd27v1ia"))))
(base32 "0zk7wijp425657s2j7xq7mhybgyddpam88ih8i0sbpcs0sliyz7k"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools perl))
@ -91,14 +94,14 @@ This package is part of the KDE games module.")
(define-public picmi
(package
(name "picmi")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/picmi-" version ".tar.xz"))
(sha256
(base32 "0nn00sila4zn4r28dh84jvqqrrs31sh9vwd76nalm7y14xrxwn46"))))
(base32 "1x1iv6a840jwldfpx44wvh1vki1jz1hixzvzhdfx2mhw05v91fjx"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -127,14 +130,14 @@ This package is part of the KDE games module.")
(define-public kolf
(package
(name "kolf")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kolf-" version ".tar.xz"))
(sha256
(base32 "0mmmj9rxrbpf9clj49zgflrlic8qafzw2r2by5knhsn15mq59bd3"))))
(base32 "0wbdpclc6nimjzs2pqbzaxnqn516hci1yk1dgig0jgdy1jv2nyhv"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -174,15 +177,33 @@ This package is part of the KDE games module.")
(define-public libkmahjongg
(package
(name "libkmahjongg")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/libkmahjongg-" version ".tar.xz"))
(sha256
(base32 "1y123bygi4iil8qglv2fx81qnlqpjpx3s4fmq8sffkilcz875nw8"))))
(base32 "1a0c0q34h5yxwx76y6934ibn6hm1ip1hc2xvl11q1kaazq0alca3"))))
(build-system qt-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-tileset-dir
(lambda* (#:key inputs outputs #:allow-other-keys)
;; Add "$out/share" to XDG_DATA_DIRS so that the default tileset
;; is always available.
(substitute* "src/kmahjonggtileset.cpp"
(("_inited = true;")
(format #f "QByteArray x = qgetenv(\"XDG_DATA_DIRS\");
if (!x.isEmpty()) {
QString datadirs = QString::fromLocal8Bit(x) + QLatin1String(\":~a\");
qputenv(\"XDG_DATA_DIRS\", datadirs.toLocal8Bit());
}
_inited = true;"
(string-append
(assoc-ref outputs "out") "/share")))))))))
(native-inputs
(list extra-cmake-modules))
(inputs
@ -205,14 +226,14 @@ other Mah Jongg like games.")
(define-public kmahjongg
(package
(name "kmahjongg")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kmahjongg-" version ".tar.xz"))
(sha256
(base32 "0lvia7ghnp8wx2xndzipv8grdsdn3i96xlsy6wspna1k884x8ylw"))))
(base32 "1q2aq8y3c4a84rjvqk4gz6mlyflfnzw6im68p96wmcn98s5gsc22"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -244,14 +265,14 @@ This package is part of the KDE games module.")
(define-public kshisen
(package
(name "kshisen")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kshisen-" version ".tar.xz"))
(sha256
(base32 "004qr0kmw0c6ahif1mf2f88a849ws3kap7p2ksvljmyyl38x2sbs"))))
(base32 "0bfk6nbwl35sfqxhf7cdv3n61ybi5962i2lvg7m1vlpp21q0diz8"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules
@ -283,14 +304,14 @@ This package is part of the KDE games module.")
(define-public kajongg
(package
(name "kajongg")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kajongg-" version ".tar.xz"))
(sha256
(base32 "15b2l0zsyzrir791w9sdf65kvn6528b8vxdrya3f425nvsxsx7ix"))))
(base32 "16v87x0qikfk9jpp8dfxnb7mnjzzi0qlkp5lbn2xypkfhqaz99fi"))))
(build-system qt-build-system)
(arguments
`(#:phases
@ -300,7 +321,15 @@ This package is part of the KDE games module.")
(substitute* "src/mjresource.py"
(("'share', 'kmahjongglib'" all)
(string-append "'" (assoc-ref inputs "libkmahjongg")
"/share', 'kmahjongglib'")))))
"/share', 'kmahjongglib'")))
(substitute* "src/sound.py"
(("oggBinary = 'ogg123'")
(format #f "oggBinary = '~a'"
(search-input-file inputs "bin/ogg123"))))
(substitute* "src/common.py"
(("interpreterName = 'python3'")
(format #f "interpreterName = '~a'"
(search-input-file inputs "bin/python3"))))))
(add-after 'qt-wrap 'wrap
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
@ -327,7 +356,8 @@ This package is part of the KDE games module.")
python-qtpy
python-zope-interface
qtbase-5
qtsvg-5))
qtsvg-5
vorbis-tools))
(home-page "https://apps.kde.org/kajongg/")
(synopsis "Classical Mah Jongg game for 4 players")
(description "Kajongg is the ancient Chinese board game for 4 players.
@ -346,14 +376,14 @@ This package is part of the KDE games module.")
(define-public kbreakout
(package
(name "kbreakout")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kbreakout-" version ".tar.xz"))
(sha256
(base32 "1pvxxl7m46ihjkzaq261xfsynikyrbrr67d4vh5pxfj6pipzrgkp"))))
(base32 "08fq0s1c71ag6jzyxz6spc5ylmzpbqpyqi9lqjk0x7y7brkfk9fq"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -383,14 +413,14 @@ This package is part of the KDE games module.")
(define-public kmines
(package
(name "kmines")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kmines-" version ".tar.xz"))
(sha256
(base32 "1w6bqlzhbm3vc09jyxfg8vgn0a2nknfz1shbsfamc36jsy2sr758"))))
(base32 "0x301dsppn0sav31ds5hpbfkbbisjg640ri13103s1jn0y2b90b9"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -420,14 +450,14 @@ This package is part of the KDE games module.")
(define-public konquest
(package
(name "konquest")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/konquest-" version ".tar.xz"))
(sha256
(base32 "1kylv730plii7grzccaclg5lkmgwhdgh2ya7h7lpnb8zaapy3kbr"))))
(base32 "0svzaibs8v1xd36ysj3wk7sxma26fl5pz6yp774jg0g9zi9rlkff"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -459,14 +489,14 @@ This package is part of the KDE games module.")
(define-public kbounce
(package
(name "kbounce")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kbounce-" version ".tar.xz"))
(sha256
(base32 "187f0hz19xj17h5dzj0nw3r9zas3sppiswhgnzma9snl1w0rfzwh"))))
(base32 "06b0q4f4yn8m8gy7wgax54ldwnkgykr8yfr2h0ih8mfg3w8xsx7s"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -497,14 +527,14 @@ This package is part of the KDE games module.")
(define-public kblocks
(package
(name "kblocks")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kblocks-" version ".tar.xz"))
(sha256
(base32 "18hdzkwv8lscm9xsi0d99pq219y0m9bqdqv3k15g7gz0sryxvyva"))))
(base32 "1z5f2zpnmfh05vlmjw85jj2d0sfxl5w1kg30ky6gmgmmfzj2sjzx"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -537,14 +567,14 @@ This package is part of the KDE games module.")
(define-public ksudoku
(package
(name "ksudoku")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/ksudoku-" version ".tar.xz"))
(sha256
(base32 "116dgc9hh6fq6x0w4rd4kjd2qy93hq6bmxwk5jmm21lqwrszr6hw"))))
(base32 "03hrwyvwzhxdbq7pp03c7lkz0dhv9yi6lcwvz3s63mn01wyq6iv3"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -597,14 +627,14 @@ This package is part of the KDE games module.")
(define-public klines
(package
(name "klines")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/klines-" version ".tar.xz"))
(sha256
(base32 "15z5gcncyr1i7xipnsvr2lvdi9wdqm8if3ylimksxhgr5dkvz9vz"))))
(base32 "1dny7wsj90c3vbgbrpxvxfy44j9ip3vdylc7889ckzbliivipxk4"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -640,14 +670,14 @@ This package is part of the KDE games module.")
(define-public kgoldrunner
(package
(name "kgoldrunner")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kgoldrunner-" version ".tar.xz"))
(sha256
(base32 "1ga0djplhgqbfrvq0m7ymd30lsi7kc23chaqmc0vy3g61y9274da"))))
(base32 "0acavby9lwbqbx577a3az9lcahchngcs15571va2ndnq1r16paxf"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -680,14 +710,14 @@ This package is part of the KDE games module.")
(define-public kdiamond
(package
(name "kdiamond")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kdiamond-" version ".tar.xz"))
(sha256
(base32 "1ca1hxzzvpwm3ms9m0xd7x4r011n7bjlsc4l333q0xjy5vwlrz3s"))))
(base32 "038lpp387m45zcy49rgmisiz5ajrvxwxnf424wllrjkihxy1siyn"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -718,14 +748,14 @@ This package is part of the KDE games module.")
(define-public kfourinline
(package
(name "kfourinline")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kfourinline-" version ".tar.xz"))
(sha256
(base32 "163aii9bala14bhc9j503xk86jcnmnn327fmx3c68ryp0s89rx97"))))
(base32 "0chfjp0k4ps5f6vy8nxqc2xlj4xql08llxnzsz6c2x611n69aszm"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -756,14 +786,14 @@ This package is part of the KDE games module.")
(define-public kblackbox
(package
(name "kblackbox")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kblackbox-" version ".tar.xz"))
(sha256
(base32 "0im7mb93yrbliavil5bcqymcq6a4sjq1pj52ysq8gqqwf7jrw1gx"))))
(base32 "0h7byd7g52yvmz3gxrzp2frs4iifm0r6lq8fjz2nxbl1rkw9ljbp"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -796,14 +826,14 @@ This package is part of the KDE games module.")
(define-public knetwalk
(package
(name "knetwalk")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/knetwalk-" version ".tar.xz"))
(sha256
(base32 "0w1bpx04yn7xsyf4h8ymw887ir9ifbwxynqllh8xn4chwd21ipgp"))))
(base32 "1xqqwsbm3f8bmid7afbnacxlg1hih644f0nw0i87pr746m1sskgz"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -837,14 +867,14 @@ This package is part of the KDE games module.")
(define-public bomber
(package
(name "bomber")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/bomber-" version ".tar.xz"))
(sha256
(base32 "0cxyp5c119r0bkqzx0mnbfdb2i1h0ra0kp30zx0nmvma1rxrrvgf"))))
(base32 "0qgixhmlkcjni5i9391hjg3sfc3ps24lmk9v8199lmnplrybklqj"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -878,14 +908,14 @@ This package is part of the KDE games module.")
(define-public granatier
(package
(name "granatier")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/granatier-" version ".tar.xz"))
(sha256
(base32 "1ylywj579j252hj6lz5ghvmiiqf9yb2lncqbypbibdr34irs5if9"))))
(base32 "1zyadmgnpgsx728gzd55qyijsm13pb9cxs1y4l4c4m9lnz4y183v"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -915,14 +945,14 @@ This package is part of the KDE games module.")
(define-public ksirk
(package
(name "ksirk")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/ksirk-" version ".tar.xz"))
(sha256
(base32 "0c1ls3i2jqcrmdy3zhb25ml9lhdy4gjdcvv4j5z8x5wig265qbwx"))))
(base32 "1sp5mhnf8r3fvifz0kw74436j5kwsmiw66myygb4rsggb8amh5x4"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -970,14 +1000,14 @@ This package is part of the KDE games module.")
(define-public palapeli
(package
(name "palapeli")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/palapeli-" version ".tar.xz"))
(sha256
(base32 "0bwi5y5mrf6h1vhyhs5sxwx8hdv0hkknpscpg5q54f6hw6cwf4qv"))))
(base32 "19xh03rhb48m4bbdmpga4aqij6agqg047ghl92p98z1phg5lxzrv"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1017,14 +1047,14 @@ This package is part of the KDE games module.")
(define-public kiriki
(package
(name "kiriki")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kiriki-" version ".tar.xz"))
(sha256
(base32 "1ijl4hjck4wvxplcjzqw9ahadnbvd8hk61qn04kbyz6mrp67xgrn"))))
(base32 "13lzpbhkp48r9m0bcrzfqacz9xvc89xavf3yn3ql50g3jjlkq41v"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1055,14 +1085,14 @@ This package is part of the KDE games module.")
(define-public kigo
(package
(name "kigo")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kigo-" version ".tar.xz"))
(sha256
(base32 "0wav6pmljbki2ipgzp82gb2j861b2bj1c2x4ydqn106aqcm0ci71"))))
(base32 "0qx9plrs588210rdgvb2bkm5yjw4pna9q7v38cb166nfgkh6gv63"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1101,14 +1131,14 @@ This package is part of the KDE games module.")
(define-public kubrick
(package
(name "kubrick")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kubrick-" version ".tar.xz"))
(sha256
(base32 "09hxrigckvpxw1ipzlhq5fb5hpzrb5h65b55m6di3nj6ys2x50v9"))))
(base32 "0nank1ga4c4xfsw0m1cqhjhyz2wpbsxplyyb9x3l2vpg92gj5dbs"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1142,14 +1172,14 @@ This package is part of the KDE games module.")
(define-public lskat
(package
(name "lskat")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/lskat-" version ".tar.xz"))
(sha256
(base32 "07pkrgn9pgwwcc903iqmdp49i26ijkkb795jbwyhdg3nqgck9ar9"))))
(base32 "1qphzc1r26qwc8sl5rjkw16ia3lsj7c2lg9fxnhk08k8mxncymxg"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1180,14 +1210,14 @@ This package is part of the KDE games module.")
(define-public kapman
(package
(name "kapman")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kapman-" version ".tar.xz"))
(sha256
(base32 "0clh3nyc3kan0hbbzzca3sd09nl2hd36y7f6g5pv2cp6i1m4757y"))))
(base32 "0ildsd7pig3lm9n616kw5mpl8hbwidsnbzdfifx8nnffslrr4bv7"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1219,14 +1249,14 @@ This package is part of the KDE games module.")
(define-public kspaceduel
(package
(name "kspaceduel")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kspaceduel-" version ".tar.xz"))
(sha256
(base32 "1yb7y1f5rcw4jacpf9vpzbragm2ywwb3mkjhq67x7x99q6r9iz55"))))
(base32 "1mpry73vvi332wxyw2wymh3lsrj2amblg50dym9ni1lj2af657ia"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1254,14 +1284,14 @@ This package is part of the KDE games module.")
(define-public bovo
(package
(name "bovo")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/bovo-" version ".tar.xz"))
(sha256
(base32 "1yz4x7fmllmp57yxfipqkldgf38haldah81d2qmc5jlahvy3j23p"))))
(base32 "1zds6d4rmcf4sa2sfhyp1i5n7s7cgslikvbra4pz2kpi0hmvihi1"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1290,14 +1320,14 @@ This package is part of the KDE games module.")
(define-public killbots
(package
(name "killbots")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/killbots-" version ".tar.xz"))
(sha256
(base32 "07ak86a4v0v8b0nny8n246j3lab5zr8sq0ra9k48cdy53xmq909j"))))
(base32 "0ygg2cmp7wqzw9nsn768vzgjs8i44k3skwcn2abg1jj5k64wp9cb"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1331,14 +1361,14 @@ This package is part of the KDE games module.")
(define-public ksnakeduel
(package
(name "ksnakeduel")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/ksnakeduel-" version ".tar.xz"))
(sha256
(base32 "0hi812hsjnyp1ds3wwv2wr58az6m2zsq97nywsncc0d3b5cxzsza"))))
(base32 "182z9664p0shyx4rbr1cn32mzlfzl80x96nwakvv1ss7sf7dp1x3"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1369,14 +1399,14 @@ This package is part of the KDE games module.")
(define-public kollision
(package
(name "kollision")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kollision-" version ".tar.xz"))
(sha256
(base32 "0ra83qmvzd4n6d7df2i8bh81y70lxa48i115x9h9ik52b2a48mxf"))))
(base32 "0g9nz3df8nibcwlrjlyw306dnrx58nlga2lljn7a9acpmvbp6qgi"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1406,14 +1436,14 @@ This package is part of the KDE games module.")
(define-public knavalbattle
(package
(name "knavalbattle")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/knavalbattle-" version ".tar.xz"))
(sha256
(base32 "0i7hf58b3gylld6d7q2aq5w6dksa32z5y1dcaj8nm1lpgcndmj0s"))))
(base32 "1brj2dvymgpf74vbsrs2m81lxxfxsly9pafd13g8rkzdx3hn1n0q"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1446,14 +1476,14 @@ This package is part of the KDE games module.")
(define-public kreversi
(package
(name "kreversi")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kreversi-" version ".tar.xz"))
(sha256
(base32 "0gyj0a6hj6jps5z97wdw0nwp0mvnib6v062bcy4dp3c14lhl9r4p"))))
(base32 "1mb1xrywk5p7ipjml1g2mjqfs7rlpa41if3yc7p9zcrkcasnbffv"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1488,14 +1518,14 @@ This package is part of the KDE games module.")
(define-public ksquares
(package
(name "ksquares")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/ksquares-" version ".tar.xz"))
(sha256
(base32 "05cz0d83570awnh0faam3y5fxzafzkxaj3wijka1vcbigxk350c5"))))
(base32 "0b3r99hfhm5r4jxkwiji0lww703r7dj60x2m55ginvdy7ixm46rm"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1524,14 +1554,14 @@ This package is part of the KDE games module.")
(define-public kjumpingcube
(package
(name "kjumpingcube")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kjumpingcube-" version ".tar.xz"))
(sha256
(base32 "0m9ajl9lq52yn498g0kvsbwa0xmihlqli7zw644c282ni934bwhn"))))
(base32 "09bh57vzjnn56dnhpp4szx72wyskc5g714vlyp6c27vr27xry8fi"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1557,3 +1587,56 @@ control of the board by capturing or adding to one square.
This package is part of the KDE games module.")
(license (list license:gpl2+ license:fdl1.2+))))
(define-public kde-games
(package
(name "kde-games")
(version "23.04.3")
(source #f)
(build-system trivial-build-system)
(arguments
(list #:builder #~(mkdir #$output)))
(propagated-inputs
;; TODO: kpat, klickety, katomic, knights.
(list bomber
bovo
granatier
kajongg
kapman
kblackbox
kblocks
kbounce
kbreakout
kdiamond
kfourinline
kgoldrunner
kigo
killbots
kiriki
kjumpingcube
klines
kmahjongg
kmines
knavalbattle
knetwalk
kolf
kollision
konquest
kreversi
kshisen
ksirk
ksnakeduel
kspaceduel
ksquares
ksudoku
ktuberling
kubrick
lskat
palapeli
picmi))
(home-page "https://apps.kde.org/categories/games/")
(synopsis "KDE Games")
(description "This metapackage includes a collection of games provided
with the official release of KDE.")
(license
(list license:gpl2+ license:lgpl2.0+ license:gpl3+ license:fdl1.2+))))

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

@ -52,7 +52,8 @@
#:use-module (gnu packages vnc)
#:use-module (gnu packages web)
#:use-module (gnu packages xiph)
#:use-module (gnu packages xml))
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg))
(define-public choqok
(package
@ -114,17 +115,59 @@ Other notable features include:
@end itemize")
(license license:gpl3+)))
(define-public falkon
(package
(name "falkon")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/falkon-" version ".tar.xz"))
(sha256
(base32
"11r1iwimdzabfah68gsvw6xi67cj539anqa6s1rg33agsi5y56d3"))))
(build-system qt-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "ctest" "-E"
"(locationbartest|qmltabsapitest)")))))))
(native-inputs
(list extra-cmake-modules pkg-config qttools-5))
(inputs
(list karchive
ki18n
kio
kwallet
openssl
purpose
qtquickcontrols-5
qtsvg-5
qtwebengine-5
qtx11extras
qtwayland-5
xcb-util))
(home-page "https://www.falkon.org/")
(synopsis "Qt-based web browser for KDE")
(description
"Falkon is is a Qt-based web browser for KDE.")
(license license:gpl3+)))
(define-public kget
(package
(name "kget")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kget-" version ".tar.xz"))
(sha256
(base32 "0rqznsyphnq0zi65wvrl9mwqm9268wgihkr104i87pp5kfiah5yp"))))
(base32 "1n9wnm1si4g4rv8zaqpr8m3c2aav0mj8i7z96m78dk1apippx77r"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools pkg-config))
@ -183,14 +226,14 @@ This package is part of the KDE networking module.")
(define-public konversation
(package
(name "konversation")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/konversation-" version ".tar.xz"))
(sha256
(base32 "08b4vnm66hbbnvkkh1p0a82pd2aj4zy5a8indfv3fzczsfpx6gp0"))))
(base32 "1ip0jlz71fad5l0ppbc6w914hqk7h626s12ssbb9p1c2yvlr1j1v"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -255,14 +298,14 @@ Features are:
(define-public kopete
(package
(name "kopete")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kopete-" version ".tar.xz"))
(sha256
(base32 "0fc9m2xgsjmsypqllqb3cp1y2m28dqh48r1qg2xgkfyqa70dnvp9"))))
(base32 "1ps6g440p1dy2zwbj23f0mzw1d78r02aj88fy3i5sws9p9ra92gi"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools pkg-config))
@ -332,14 +375,14 @@ This package is part of the KDE networking module.")
(define-public krdc
(package
(name "krdc")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/krdc-" version ".tar.xz"))
(sha256
(base32 "0bs8q3na924lnmra5608jwnn0dqczvh0f72nn43673ib3m1mddlr"))))
(base32 "0jva74n11fpm4ix4sbi0y1xnbly97lnap7dfj0bliw5s2d0sdjr0"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -377,14 +420,14 @@ This package is part of the KDE networking module.")
(define-public ktorrent
(package
(name "ktorrent")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/ktorrent-" version ".tar.xz"))
(sha256
(base32 "1h95hf4ki2xi2c9bzdg18p6d1757gzqknf6gn1ls6lwqy6p0pr4h"))))
(base32 "17q6ivnbh4zxqnbm1bdzz3hri1434sq2rs9y57lvn4bb2xdwn1z5"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -432,14 +475,14 @@ a full-featured client for BitTorrent.")
(define-public libktorrent
(package
(name "libktorrent")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/" name "-" version ".tar.xz"))
(sha256
(base32 "098ac7b5wa7v6svqv4rx1w44j18pr22qgr236fj94r2kpl2nq79q"))))
(base32 "1m6gyk1bids7qr9wfh6gcfq73ac9j5b2bljvfvfsw9f1ky1cmwab"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))

50
gnu/packages/kde-multimedia.scm
View file

@ -5,6 +5,7 @@
;;; Copyright © 2022 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2022 Brendan Tildesley <mail@brendan.scot>
;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -57,14 +58,14 @@
(define-public audiocd-kio
(package
(name "audiocd-kio")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/audiocd-kio-" version ".tar.xz"))
(sha256
(base32 "0d6pbsh1fbhwwr2c4kf9b17dhzzx2jsmgamawcp4kn7pw9i7i8ql"))))
(base32 "0kl0j5qy54q88cbclwqj0rn8hj3gzjhzk7bimjgw5w0xy3cw6kql"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -96,14 +97,14 @@ This package is part of the KDE multimedia module.")
(define-public dragon
(package
(name "dragon")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/dragon-" version ".tar.xz"))
(sha256
(base32 "0284shnqwbh1953ym197qaqgjwrnva77zi55lvvykg5cq42x512s"))))
(base32 "0mliddp0nyxz91wzy8md0p0i45mlhffip4zqjl4db55x4p6wh4y8"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -154,14 +155,14 @@ This package is part of the KDE multimedia module.")
(define-public elisa
(package
(name "elisa")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/elisa-" version ".tar.xz"))
(sha256
(base32 "1v2h7ayyrv6f6hdkl78x1nrv5x0l6n8dh0xrfm5fnii4f694iik8"))))
(base32 "1ry4mhj7wc31xq9fip3amv8fj631m213zz0qg44h68q77sik4422"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules pkg-config dbus kdoctools
@ -227,14 +228,14 @@ its own database. You can build and play your own playlist.")
(define-public ffmpegthumbs
(package
(name "ffmpegthumbs")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/ffmpegthumbs-" version ".tar.xz"))
(sha256
(base32 "1jl7l3n2lfg71kbzwjn5nrm3qlgilhnvs67iil162mnv52gf3c0v"))))
(base32 "02wvhjqqird55xcs4kkj0s7nam4vqh3khjz5f1mjqfnk62sj1plx"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules pkg-config))
@ -253,14 +254,14 @@ This package is part of the KDE multimedia module.")
(define-public juk
(package
(name "juk")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/juk-" version ".tar.xz"))
(sha256
(base32 "12pnbx17r1103w39gglybdzs8kcpwghy5lc4q9fqk89s1r7l3c7h"))))
(base32 "1q0r0iv4nn6jd0g8db54r7xdw7kdw1ja0z1ggxl1sy0k60m9c4q3"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -307,7 +308,7 @@ This package is part of the KDE multimedia module.")
(define-public kid3
(package
(name "kid3")
(version "3.9.1")
(version "3.9.4")
(source
(origin
(method git-fetch)
@ -316,7 +317,7 @@ This package is part of the KDE multimedia module.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1rq0742rm3y5ps7878qd7xhhiizy6d6ls6hdjqa6z5sq077s5lz9"))))
(base32 "0j454nzwx0v7iwcixyjcx71shzh3ag4ydggs8d68alrfj9f4ajap"))))
(build-system qt-build-system)
(arguments
(list
@ -365,14 +366,14 @@ variety of formats.")
(define-public k3b
(package
(name "k3b")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/k3b-" version ".tar.xz"))
(sha256
(base32 "1bizk66ad2yq8xszjqvv2ghk069d0l6iczn5rlna1p3zigr43ysl"))))
(base32 "1kr1hw4pws87zzwyrwrg2ysdn11qf0qhwi1vc9b0k8jkjmmdplmb"))))
(build-system qt-build-system)
(arguments
`(#:phases
@ -519,14 +520,14 @@ autoloading of subtitle files for use while playing video.")
(define-public kamoso
(package
(name "kamoso")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kamoso-" version ".tar.xz"))
(sha256
(base32 "0br7dbnm2ypdl55pscp8wr0vwrgprycrxxj206b5r1l9ysx9aqip"))))
(base32 "1f06331qigf5wi6lgir5ij8h1fsdn54v32fyw2mgf0hg05xndrcl"))))
(build-system qt-build-system)
(native-inputs
`(("extra-cmake-modules" ,extra-cmake-modules)
@ -562,14 +563,14 @@ camera. Use it to take pictures and make videos to share.")
(define-public kmix
(package
(name "kmix")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kmix-" version ".tar.xz"))
(sha256
(base32 "0zc96l9mnn763pw54ki715sw3wm4z6rjdz2zzsjc6l5iwcqzwqq8"))))
(base32 "09pfsa6y1phm6z24da60s47gc18w4cvv7r8sxh5qfww7b0dnhixj"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools pkg-config))
@ -677,14 +678,14 @@ Some features:
(define-public kwave
(package
(name "kwave")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kwave-" version ".tar.xz"))
(sha256
(base32 "0j6ck44lkfcnaa0rymv2aqvdcy0zbybbklm1s6mvbgdpfsh0rhkm"))))
(base32 "0s9w8jgwblljwfji2a19bqs3nx6sr2qzz35kwbi0ahwncy69k4jx"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules (librsvg-for-system) pkg-config kdoctools))
@ -751,14 +752,14 @@ Its features include:
(define-public libkcddb
(package
(name "libkcddb")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/libkcddb-" version ".tar.xz"))
(sha256
(base32 "1js5r8hxqabnygmavfjvjbfy5c7978bmwm2rqlgsfyn17fkmf2y8"))))
(base32 "1s10g6m6c3h14gzxvp2s0v51jxzsrh23xfn7gl51a0r50srbbz52"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -767,6 +768,7 @@ Its features include:
kconfig
ki18n
kio
kcmutils
kwidgetsaddons
libmusicbrainz
qtbase-5))
@ -781,14 +783,14 @@ Its features include:
(define-public libkcompactdisc
(package
(name "libkcompactdisc")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/libkcompactdisc-" version ".tar.xz"))
(sha256
(base32 "0fv9dbx74xs42iiw67bvjpxga0d126q2nfs8n4hiv3z2xda9n4ic"))))
(base32 "0gl21mhfz3vj89x0r8y79yiijcag1xfdnyfrjqzkx9i8yd2k45b1"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))

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

@ -29,6 +29,8 @@
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages aidc)
#:use-module (gnu packages base)
#:use-module (gnu packages boost)
#:use-module (gnu packages compression)
#:use-module (gnu packages cyrus-sasl)
@ -51,14 +53,14 @@
(define-public akonadi
(package
(name "akonadi")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/akonadi-" version ".tar.xz"))
(sha256
(base32
"1yfy0b6kyiq82zkfkx9ldgjlbwg3lgg4di53fqjllmqhzaj1xy91"))
"0jpp91d5rlblq6r981wxizmsv512kc43lfk8y29bdky6j4idflrb"))
(patches (search-patches "akonadi-paths.patch"
"akonadi-timestamps.patch"
"akonadi-not-relocatable.patch"))))
@ -133,14 +135,14 @@ programs.")
(define-public akonadi-calendar
(package
(name "akonadi-calendar")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/akonadi-calendar-" version ".tar.xz"))
(sha256
(base32 "1xcnlkipy2rq0bsm811y9khw7dmsgkqxgw18b3lmy29xs7wcsiv5"))))
(base32 "166xm57jcy7d2dv2pfy4lllzic4giin31szxz7xq3a7ixsd6g7cs"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
@ -180,14 +182,14 @@ collection and item views.")
(define-public akonadi-contacts
(package
(name "akonadi-contacts")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/akonadi-contacts-" version ".tar.xz"))
(sha256
(base32 "1mzlv124wa135xfbxl2ghl4n8pi1a6zd64195px1v90qnhjljw28"))))
(base32 "10vlzj56ps1pysf7g6i14v8wp2wkxh53055r2v4iq4cpq3mzayc6"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
@ -235,14 +237,14 @@ to list and filter contacts.")
(define-public akonadi-mime
(package
(name "akonadi-mime")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/akonadi-mime-" version ".tar.xz"))
(sha256
(base32 "19wbfkvhkyzlz5r49y7rzbn4ay7rm8zyj7d4j3x9j79nprjr4zw0"))))
(base32 "1r33v2q49s7l90id4jqg0lar9p1j5k0cbnzsaqdksavzpzkcklh5"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules libxslt ;; xslt for generating interface descriptions
@ -285,14 +287,14 @@ with emails through Akonadi easier.")
(define-public akonadi-notes
(package
(name "akonadi-notes")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/akonadi-notes-" version ".tar.xz"))
(sha256
(base32 "05sx7h1aw4mx93l4krv4574zpjf63vdrhaiwayqz11wrdpvdq7ww"))))
(base32 "0s5a414cdcz37srys2w3c2z5c63ha9ivsqj0srnfwwv0pxix266v"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
@ -310,14 +312,14 @@ wrapping notes into KMime::Message objects.")
(define-public akonadi-search
(package
(name "akonadi-search")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/akonadi-search-" version ".tar.xz"))
(sha256
(base32 "06apb5lx7bs0lfvsnbf8kyxk7yyjrzb1f1wfckfsjaysf0xmdvfg"))))
(base32 "1hpclfcb7almvajscm2az36bw9rrhkp3ywb9h0j9h8ims2gm60m7"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules
@ -365,14 +367,14 @@ Akonadi PIM data server. It uses Xapian for indexing and querying.")
(define-public itinerary
(package
(name "itinerary")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/" name "-" version ".tar.xz"))
(sha256
(base32
"1w1gl4lz8gwf8cmxhsfyp4afiaq9anc8glrxay407bqp28andp3a"))))
"132x68wc4pallxgkvridfsimfq5m2g47fj9lcgz1kq4gdsidzf6i"))))
(build-system qt-build-system)
(arguments
`(#:tests? #f)) ;Fails 20/27
@ -382,6 +384,7 @@ Akonadi PIM data server. It uses Xapian for indexing and querying.")
ki18n
kio
kirigami
kirigami-addons
kitinerary
kitemmodels
kcoreaddons
@ -419,14 +422,14 @@ information.")
(define-public kincidenceeditor
(package
(name "kincidenceeditor")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/incidenceeditor-" version ".tar.xz"))
(sha256
(base32 "1znbpqpxkbn79pzhcg5v77bqr345lcmy2h0a6d90rzdmnlh303ln"))))
(base32 "1pqfl7gqz7ibpns2gpwqpvzhsba7xj4ilhi4ax1vn3m086iyh3a0"))))
(properties `((upstream-name . "incidenceeditor")))
(build-system qt-build-system)
(native-inputs
@ -458,6 +461,7 @@ information.")
kmime
kpimcommon
kpimtextedit
ktextaddons
ktextwidgets
kwallet
libkdepim
@ -480,14 +484,14 @@ information.")
(define-public kaddressbook
(package
(name "kaddressbook")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kaddressbook-" version ".tar.xz"))
(sha256
(base32 "177zgbpgignvglpvbis1q9d36pi1dvyckv3q2gcgd9425gpm0vmb"))))
(base32 "0zjbri91dh9vnwi6jqkbmyq667yzn8g4kw5v47qn8id2629zj6jq"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -516,6 +520,7 @@ information.")
kparts
kpimcommon
kpimtextedit
ktextaddons
ktextwidgets
kxmlgui
libkdepim
@ -569,14 +574,14 @@ one of the APIs mentioned above.")
(define-public kaccounts-integration
(package
(name "kaccounts-integration")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/" name "-" version ".tar.xz"))
(sha256
(base32
"1q1d2a1qknfkgm63gji6ijji35d0b1jy1kvf10a7ac4l1z1fvnpl"))))
"1mn64xw5r2magy5y0qmg5r907jz1y8jar0qqkc6s1zjjr3s3knac"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(inputs (list kcmutils
@ -587,6 +592,7 @@ one of the APIs mentioned above.")
kwallet
kio
libaccounts-qt
qcoro-qt5
signond))
(home-page "https://invent.kde.org/network/kaccounts-integration")
(synopsis "Online account management system")
@ -594,10 +600,37 @@ one of the APIs mentioned above.")
management system and its Plasma integration components.")
(license license:lgpl2.0+)))
(define-public kaccounts-providers
(package
(name "kaccounts-providers")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/" name "-" version ".tar.xz"))
(sha256
(base32
"1lrmj6r09ypnpl2s586i4rd3fk3760qlxyrhh91k43wkb8i6m8f0"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules intltool))
(inputs (list kaccounts-integration
kcoreaddons
kdeclarative
ki18n
kio
libaccounts-qt
qtwebengine-5
signond))
(home-page "https://invent.kde.org/network/kaccounts-providers")
(synopsis "Online account providers for the KAccounts system")
(description "This package provides online account providers for the
KAccounts system.")
(license license:lgpl2.0+)))
(define-public kalendar
(package
(name "kalendar")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
@ -605,7 +638,7 @@ management system and its Plasma integration components.")
".tar.xz"))
(sha256
(base32
"0slk9z7p1z5m2kbb8kq05afslxad8w5pjsajxawckcx0mlsd3apj"))))
"1w56glv8m1rlk86v78h69d21ydxb6i61g1dk6mcizjr5rvi4liy0"))))
(build-system qt-build-system)
(arguments
(list #:tests? #f ;All 2 tests fail
@ -627,12 +660,15 @@ management system and its Plasma integration components.")
(inputs (list akonadi
akonadi-contacts
breeze-icons
gpgme
grantlee
grantleetheme
kio
kirigami
kirigami-addons
kdbusaddons
ki18n
kimap
kcalendarcore
kcalendarsupport
kconfigwidgets
@ -640,15 +676,22 @@ management system and its Plasma integration components.")
kcoreaddons
kcontacts
kitemmodels
kmailcommon
kmessagelib
kmime
kidentitymanagement
kpimcommon
kpimtextedit
ktextaddons
ktextwidgets
akonadi-calendar
akonadi-mime
keventviews
kcalutils
kxmlgui
kiconthemes
libkdepim
libkleo
qtbase-5
qtdeclarative-5
qtquickcontrols2-5
@ -656,7 +699,8 @@ management system and its Plasma integration components.")
qtquickcontrols-5
qtgraphicaleffects
qtlocation
qqc2-desktop-style))
qqc2-desktop-style
qtwebengine-5))
(home-page "https://apps.kde.org/kalendar/")
(synopsis "Calendar application")
(description
@ -667,14 +711,14 @@ external services.")
(define-public kcalendarsupport
(package
(name "kcalendarsupport")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/calendarsupport-" version ".tar.xz"))
(sha256
(base32 "09fs15qckydmbs6idl5k1b6gyhjkygsa1r8frlysn1ahhfmxr33p"))))
(base32 "1zk6kv5nhcd7a5llzh31890xpqdg522ahjdgbwsm7pcp62y0nbsj"))))
(properties `((upstream-name . "calendarsupport")))
(build-system qt-build-system)
(native-inputs
@ -712,14 +756,14 @@ calendaring applications.")
(define-public kcalutils
(package
(name "kcalutils")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kcalutils-" version ".tar.xz"))
(sha256
(base32 "1y25csn37lp14ba18gqmw9ssimy4dqi55irx8c89p4p1lypjwfzq"))))
(base32 "1j7f5ai25zcxggw3dvky624asxim5bkd6a35rcdzkjhj1qwk3vll"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules libxml2)) ;; xmllint required for tests
@ -750,14 +794,14 @@ functions for accessing calendar data using the kcalcore API.")
(define-public kdepim-runtime
(package
(name "kdepim-runtime")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kdepim-runtime-" version ".tar.xz"))
(sha256
(base32 "1g6bq27s7nf9rmrbl5kwycl4lzjpp3m088mji3p7qrrv01ywp4mn"))))
(base32 "1wvwibq6zzjlhh8yqrlqras0m8i01ynlwj9z6l3f0g0hyyz5nkw4"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules dbus kdoctools libxslt shared-mime-info))
@ -845,14 +889,14 @@ package.")
(define-public keventviews
(package
(name "keventviews")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/eventviews-" version ".tar.xz"))
(sha256
(base32 "0bkidva045q85z4ymhj4m9ayfbsckjl4cl7nncl48yk2dmanfg51"))))
(base32 "1nh8a7jy0sjsyi41pxhxwjkq6fr4yy9rqgcjjbj01dnx1ykz3d7l"))))
(properties `((upstream-name . "eventviews")))
(build-system qt-build-system)
(native-inputs
@ -894,27 +938,32 @@ package.")
(define-public kgpg
(package
(name "kgpg")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kgpg-" version ".tar.xz"))
(sha256
(base32 "1xs0w6lxwq3hzs8r1cwmygcjilbgwa8zpjxwj6zz1wmbg04gqk36"))))
(base32 "1ihxw1s4sq7cp5pm6rddcmvqk0v5gfg4v38b6yg8hyjg655x63jz"))))
(build-system qt-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "dbus-launch" "ctest" "-E" ;; FIXME: Failing tests.
"(kgpg-import|kgpg-disable)")))))))
(list #:phases
#~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(setenv "HOME" (getcwd))
(invoke "ctest")))))
;; XXX: Tests could fail randomly with:
;; gpg: can't connect to the agent: IPC connect call failed
;; gpg process did not finish. Cannot generate a new key pair.
#:tests? #f))
(native-inputs
(list extra-cmake-modules gnupg ;; TODO: Remove after gpgme uses fixed path
dbus ;; Remove after failing test passes
kdoctools))
(list extra-cmake-modules
gnupg ;; TODO: Remove after gpgme uses fixed path
kdoctools
pkg-config))
(inputs
(list akonadi
akonadi-contacts
@ -952,24 +1001,26 @@ cryptography to the contents of the clipboard.")
(define-public khealthcertificate
(package
(name "khealthcertificate")
(version "22.09")
(version "23.01.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/plasma-mobile/"
(version-major+minor version)
(uri (string-append "mirror://kde/stable/plasma-mobile/" version
"/khealthcertificate-" version ".tar.xz"))
(sha256
(base32
"16vkjpyxwx34pvdpnci0l6mx2bdjialiscjvbdx53xbsq9ff701k"))))
"193agd3jg029vcq1h5hdg3gw6zgqcmszl6ffcrid0ajbbiic4pbm"))))
(build-system qt-build-system)
(arguments
(list #:phases #~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "ctest" "-E"
"(icaovdsparsertest|nlcoronacheckparsertest)")))))))
(native-inputs (list extra-cmake-modules pkg-config))
(list #:phases
#~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key inputs tests? #:allow-other-keys)
(when tests?
(setenv "TZDIR"
(search-input-directory inputs "share/zoneinfo"))
(invoke "ctest" "-E"
"(icaovdsparsertest|eudgcparsertest)")))))))
(native-inputs (list extra-cmake-modules pkg-config tzdata-for-tests))
(inputs (list karchive
kcodecs
ki18n
@ -986,14 +1037,14 @@ test and recovery certificates.")
(define-public kidentitymanagement
(package
(name "kidentitymanagement")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kidentitymanagement-" version ".tar.xz"))
(sha256
(base32 "1h76c8k6lvf4dlh9awd4z71hkikm7x71760gljybd6fkygxpm992"))))
(base32 "03bfz0x35wiynla39iysxa5g3rckmy9nj2z1f439v9sblcqbvz3p"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
@ -1024,14 +1075,14 @@ test and recovery certificates.")
(define-public kimap
(package
(name "kimap")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kimap-" version ".tar.xz"))
(sha256
(base32 "1a3wwzwlp0zsj4brhs22sygfxh65slikapa4iipxjw78mkwhiq8h"))))
(base32 "08s2891f2cnf5f7q034lmqv3vnh3v61l7bsyssdx711jfbswg9ik"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
@ -1055,15 +1106,14 @@ easier to do so.")
(define-public kitinerary
(package
(name "kitinerary")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append
"https://invent.kde.org/pim/kitinerary/-/archive/v"
version "/kitinerary-v" version ".tar.gz"))
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kitinerary-" version ".tar.xz"))
(sha256
(base32
"1gpy5siaw9k4332ii6a87rq162dbmyfkqp1l1k8bmldg1755v3jz"))))
"0fcqix7hgmv7qcfxzmqy61kg7dqi5zas5vqfs7pfycgcxma0g869"))))
(build-system qt-build-system)
(arguments
(list #:phases #~(modify-phases %standard-phases
@ -1089,7 +1139,8 @@ easier to do so.")
qtlocation
qtquickcontrols2-5
libxml2
zlib))
zlib
zxing-cpp))
(home-page "https://apps.kde.org/itinerary/")
(synopsis
"Data Model and Extraction System for Travel Reservation information")
@ -1100,14 +1151,14 @@ model and itinerary extraction code.")
(define-public kldap
(package
(name "kldap")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kldap-" version ".tar.xz"))
(sha256
(base32 "0hqvf939d2sqb2frizw9pnhgpc8vi627882d30ssymw5p5nm58il"))))
(base32 "0hp5j02kwh91xf0n6zqzgam7g50r54hzbkli5i7c0rxdb1g28ihm"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1125,14 +1176,14 @@ protocol for querying and modifying directory services running over TCP/IP.")
(define-public kleopatra
(package
(name "kleopatra")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kleopatra-" version ".tar.xz"))
(sha256
(base32 "1vay6cdrx1l7qyg0rrc7z7rwv1jjpwksqzadka7rpshfqhf3r9y8"))))
(base32 "0lcl20yihsa8dq0s24akp5z0290vh9nxjjjdwqk88nz8vmsr29i0"))))
(build-system qt-build-system)
(native-inputs
(list dbus extra-cmake-modules gnupg ;; TODO: Remove after gpgme uses fixed path
@ -1179,14 +1230,14 @@ and retrieving certificates from LDAP servers.")
(define-public kmail
(package
(name "kmail")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kmail-" version ".tar.xz"))
(sha256
(base32 "1q7d2jazc6792dhwxb2zx66bghdnn43sw6lvdg44a7d9zgik1qzb"))))
(base32 "16gz0i7na1pkyly9jnvavyffkawxf5irr92rd50w68p01b82dhc6"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules dbus kdoctools))
@ -1231,6 +1282,7 @@ and retrieving certificates from LDAP servers.")
kpimtextedit
kservice
ksyntaxhighlighting
ktextaddons
ktextwidgets
kuserfeedback
ktnef
@ -1279,14 +1331,14 @@ manager from KDE.")
(define-public kmailcommon
(package
(name "kmailcommon")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/mailcommon-" version ".tar.xz"))
(sha256
(base32 "1lpnfcj2p58lhgcjg6ray5b9ygz7gpb8xh8qkakn4m7cpjhgcj5j"))))
(base32 "165a0qf6i2862dpsw4wvgnxi4wv7hnc9s63fsf9jp6kbwwfw9nqv"))))
(properties `((upstream-name . "mailcommon")))
(build-system qt-build-system)
(native-inputs
@ -1323,6 +1375,7 @@ manager from KDE.")
kpimcommon
kpimtextedit
ksyntaxhighlighting
ktextaddons
ktextwidgets
kwallet
kwidgetsaddons
@ -1348,14 +1401,14 @@ dealing with email.")
(define-public kmailimporter
(package
(name "kmailimporter")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/mailimporter-" version ".tar.xz"))
(sha256
(base32 "1k7gwagcvhj733c48ayxwi1gf37y6w5g6n2b9fknhfs40kqpdri9"))))
(base32 "18shpxz7rg64g2mxdhdjhxhn893m0930v76cdnij339ycbcq5ypc"))))
(properties `((upstream-name . "mailimporter")))
(build-system qt-build-system)
(native-inputs
@ -1381,6 +1434,7 @@ dealing with email.")
kmime
kpimcommon
kpimtextedit
ktextaddons
ktextwidgets
kxmlgui
libkdepim
@ -1395,14 +1449,14 @@ e-mail client programs into KMail and KDE PIM.")
(define-public kmailtransport
(package
(name "kmailtransport")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kmailtransport-" version ".tar.xz"))
(sha256
(base32 "0hhd1m1kfagyiwwfmsxhpin5c25dsiwbzg188khppn6fp2dh79dg"))))
(base32 "14vmm9vla8i477jq40z73lc4klx6mm03y2xnljvx1v4inm3cpw2c"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1437,14 +1491,14 @@ mail transport.")
(define-public kmbox
(package
(name "kmbox")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kmbox-" version ".tar.xz"))
(sha256
(base32 "0n49xqgyx40hml9554zvnycff26qki9fdy32awx9v9l8jbnrmm6p"))))
(base32 "05hdfjwp6ay2j16rxp55k3fywwf7kxiig4dv9fh51iysglmzzn76"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
@ -1459,14 +1513,14 @@ using a Qt/KMime C++ API.")
(define-public kmessagelib
(package
(name "kmessagelib")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/messagelib-" version ".tar.xz"))
(sha256
(base32 "0xq1a064g3h3igrqanfald9n21nnrsg16a4kmn9vn1k03qv1vlp2"))))
(base32 "0aqac0p46cwnr3qxjk0ivalfwjcgwy52s088wnk6ckp77m7r65is"))))
(properties `((upstream-name . "messagelib")))
(build-system qt-build-system)
(native-inputs
@ -1508,6 +1562,7 @@ using a Qt/KMime C++ API.")
kpimtextedit
kservice
ksyntaxhighlighting
ktextaddons
ktextwidgets
kwallet
kwidgetsaddons
@ -1545,14 +1600,14 @@ kwebengineviewer.")
(define-public kmime
(package
(name "kmime")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kmime-" version ".tar.xz"))
(sha256
(base32 "1vz5gw33ncc5lx8fx2nnp8ayxpdhfjwwx226gwa94vhxxkfcnmh4"))))
(base32 "1i38g0s98d24882kxyjay965nz3d3fjhb3mv1p4sllm2lnffrq2d"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
@ -1580,14 +1635,14 @@ information in non-ASCII character sets.")
(define-public knotes
(package
(name "knotes")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/knotes-" version ".tar.xz"))
(sha256
(base32 "076rwgkwx67rn6z0mj0sj77h1jngcpbvrwka3ijg2309r9f2wg8h"))))
(base32 "0f2a9xy2w909y792hwwnmsqvxx91azn6f0j0xl2mlmav00a4w6za"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools libxslt))
@ -1623,6 +1678,7 @@ information in non-ASCII character sets.")
kparts
kpimcommon
kpimtextedit
ktextaddons
ktextwidgets
kwidgetsaddons
kwindowsystem
@ -1650,14 +1706,14 @@ Features:
(define-public kontactinterface
(package
(name "kontactinterface")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kontactinterface-" version ".tar.xz"))
(sha256
(base32 "0j7cck262j8z7m7fm55qa5i936x81ljn3cijrk5c5h881152h4fs"))))
(base32 "16fg24hz9vx912cffc94x5zx4jv3k72mbxgp5ck50lydypx6rfns"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
@ -1668,7 +1724,8 @@ Features:
kparts
kwindowsystem
kxmlgui
qtbase-5))
qtbase-5
qtx11extras))
(home-page "https://api.kde.org/kdepim/kontactinterface/html/index.html")
(synopsis "Kontact interface library")
(description "This library provides the glue necessary for
@ -1678,17 +1735,17 @@ application \"Parts\" to be embedded as a Kontact component (or plugin).")
(define-public korganizer
(package
(name "korganizer")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/korganizer-" version ".tar.xz"))
(sha256
(base32 "0pcyij50k96mrm9vkq0pzr7n0nrgy1d51zrcb3hly7fpl4gvkx4x"))))
(base32 "1vp1jsmna059vvfj7xaj9fhhhq0lz9k0pphczkfbwm3gy6nzcavz"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules dbus qttools-5 kdoctools))
(list extra-cmake-modules dbus qttools-5 kdoctools tzdata-for-tests))
(inputs
(list akonadi
akonadi-calendar
@ -1730,6 +1787,7 @@ application \"Parts\" to be embedded as a Kontact component (or plugin).")
kpimcommon
kpimtextedit
kservice
ktextaddons
kwallet
kwidgetsaddons
kwindowsystem
@ -1739,19 +1797,13 @@ application \"Parts\" to be embedded as a Kontact component (or plugin).")
phonon
qtbase-5))
(arguments
`(#:phases
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'disable-failing-test
(lambda _
;; FIXME: This test started failing after the 20.04 update
;; seemingly due to DBus communication issues.
;; See also 'akonadi-search' for a similar test failure.
(substitute* "src/autotests/CMakeLists.txt"
((".*test_advanced\\(koeventpopupmenutest\\.cpp.*")
""))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(lambda* (#:key inputs tests? #:allow-other-keys)
(when tests?
(setenv "TZDIR" (search-input-directory
inputs "share/zoneinfo"))
(invoke "dbus-launch" "ctest")))))))
(home-page "https://apps.kde.org/korganizer/")
(synopsis "Organizational assistant, providing calendars and other similar
@ -1799,14 +1851,14 @@ Virtual Contact File}) files to the KPeople contact management library.")
(define-public kpkpass
(package
(name "kpkpass")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kpkpass-" version ".tar.xz"))
(sha256
(base32
"09l6c7nsgfnffgkm0yzjhsfkm79fv9izasislrlzdvca5xninrgb"))))
"1l3k33yzfjzarc2rpf576ib86ifzrfmsvpcdmv060dy0k8lbm1k9"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(inputs (list karchive qtbase-5 shared-mime-info))
@ -1819,14 +1871,14 @@ pass files.")
(define-public kpimcommon
(package
(name "kpimcommon")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/pimcommon-" version ".tar.xz"))
(sha256
(base32 "00gxv1028xdp7ag44z9h6cpmlw55f3rk7i6msymga3pdq639c19y"))))
(base32 "1v2nv83h9p1ajbcwfdk8b7lrr84r8c855lysknzvzkpm5z012z3l"))))
(properties `((upstream-name . "pimcommon")))
(build-system qt-build-system)
(native-inputs
@ -1861,6 +1913,7 @@ pass files.")
kmime
knewstuff
kpimtextedit
ktextaddons
ktextwidgets
kwallet
kwidgetsaddons
@ -1882,14 +1935,14 @@ pass files.")
(define-public libgravatar
(package
(name "libgravatar")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/libgravatar-" version ".tar.xz"))
(sha256
(base32 "1yhmxl2gqwrn5flr5qm56aqg6rgmqbgcr3pyb4d0vshdfksjr4rc"))))
(base32 "03zhnpb114y6a6vhiv9c1fiqsinjmk52j1k9w2r04ibxp35m3xj7"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(inputs (list kconfig
@ -1897,6 +1950,7 @@ pass files.")
kio
kpimcommon
kpimtextedit
ktextaddons
ktextwidgets
kwidgetsaddons
qtbase-5))
@ -1913,14 +1967,14 @@ unnecessary network operations.")
(define-public kpimtextedit
(package
(name "kpimtextedit")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kpimtextedit-" version ".tar.xz"))
(sha256
(base32 "1dxdlspqssxnvha202bgh9yaszs77cph5qd9wcbd45xj07dqgbw1"))))
(base32 "1rrs19bwl8qvasridysbbgsgdy9hyjlpi26hw77hli5ixkflj85b"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules qttools-5))
@ -1954,14 +2008,14 @@ text in the text edit to all kinds of markup, like HTML or BBCODE.")
(define-public ksmtp
(package
(name "ksmtp")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/ksmtp-" version ".tar.xz"))
(sha256
(base32 "13ybnr39pim3r83p56wj98fwj0yk1rspd9g24a8d0qykmnbx57l3"))))
(base32 "0pz17vmn38n2xl35d9di1b9138dh54wgyal9hx412nh123w13h12"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
@ -1993,14 +2047,14 @@ standard protocols for e-mail transmission.")
(define-public ktnef
(package
(name "ktnef")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/ktnef-" version ".tar.xz"))
(sha256
(base32 "05rcs0m4dr4p4wxigcnhjmmp15nlf36ka85v8b8gd8630v61w6y6"))))
(base32 "00dkcmywjxzq5v2kp4klw50c3w74lmh16kbcwn8qd97kky3pd5ik"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
@ -2025,14 +2079,14 @@ and allows one to view/extract message formatted text in Rich Text Format.")
(define-public libkdepim
(package
(name "libkdepim")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/libkdepim-" version ".tar.xz"))
(sha256
(base32 "07ihnps983x3sp74yq5glsq3h3jw4k80mnc4xxzm6ps2vgswah12"))))
(base32 "1i5c4qqd4ghlfjvxniy8sbfqh0fsrz4sadvh0n2d207s9rsl274v"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules qttools-5))
@ -2072,14 +2126,14 @@ and allows one to view/extract message formatted text in Rich Text Format.")
(define-public libkgapi
(package
(name "libkgapi")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/libkgapi-" version ".tar.xz"))
(sha256
(base32 "065441mbl67wyp4nz03jdygkn5wmnmkj4fiql4mnq99k2v80y0ka"))))
(base32 "18jcrp7qi35zxzb4b7mn6519bjw47s7kwfahd6a50p40j17k09bs"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules qttools-5))
@ -2107,14 +2161,14 @@ various Google services.")
(define-public libkleo
(package
(name "libkleo")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/libkleo-" version ".tar.xz"))
(sha256
(base32 "05ypgrwynm1hr32hj35faj3sxabi46x8slnbs3pxwz2f2z2ry58a"))))
(base32 "0l77n4dlbv9hclzvh69kdzji907if7yayxiasxnnjkzsvcm1af25"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools qttools-5))
@ -2155,7 +2209,7 @@ KDE using certificate-based crypto.")
(define-public libksieve
(package
(name "libksieve")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
@ -2163,7 +2217,7 @@ KDE using certificate-based crypto.")
"/src/libksieve-" version ".tar.xz"))
(sha256
(base32
"1ia1gjx8x9ym3dml3y403kif50jhcsrqmhivn3j5yxf8abc3rnk6"))))
"066z33v30h568bmdcsl4v478p3xhiwsmq7pr7kziilrhy3a2m7p6"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -2183,6 +2237,7 @@ KDE using certificate-based crypto.")
kpimcommon
kpimtextedit
ksyntaxhighlighting
ktextaddons
ktextwidgets
kwallet
kwindowsystem

717
gnu/packages/kde-plasma.scm
View file

File diff suppressed because it is too large Load diff

114
gnu/packages/kde-systemtools.scm
View file

@ -3,6 +3,7 @@
;;; Copyright © 2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2022 Brendan Tildesley <mail@brendan.scot>
;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -25,31 +26,35 @@
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (guix gexp)
#:use-module (gnu packages)
#:use-module (gnu packages compression)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages kde)
#:use-module (gnu packages kde-frameworks)
#:use-module (gnu packages kde-plasma)
#:use-module (gnu packages linux)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages qt)
#:use-module (gnu packages glib)
#:use-module (gnu packages ruby)
#:use-module (gnu packages search)
#:use-module (gnu packages vnc)
#:use-module (gnu packages xml)
#:use-module (gnu packages icu4c)
#:use-module (gnu packages xorg))
(define-public dolphin
(package
(name "dolphin")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/dolphin-" version ".tar.xz"))
(sha256
(base32 "07ian9aai9mjygn6bgxanv8h16i83wf69nkl8c9qynwbz4fkwmwf"))))
(base32 "0bys24i2a3a65ahq5p3q1zr2px8jqip1gjn5m7rngq4hcddb1ji8"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools ruby ruby-test-unit))
@ -77,6 +82,7 @@
breeze-icons ;; default icon set
phonon
qtbase-5
qtx11extras
solid))
(arguments
`(#:tests? #f)) ;; TODO: 4/15 tests fail even with offscreen
@ -99,14 +105,14 @@ The main features of Dolphin are:
(define-public dolphin-plugins
(package
(name "dolphin-plugins")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/dolphin-plugins-" version ".tar.xz"))
(sha256
(base32 "1ii1xrz22caxcgrr9ibzkh7nvw1h9d8xb5a2fadni0makk02qjif"))))
(base32 "0h1b559icj5g3xrx5697a9rncpdcmsjg774c6m36ild56bwc048v"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
@ -128,14 +134,14 @@ Dolphin with the version control systems: Bzr, Git, Mercurial, Subversion.")
(define-public khelpcenter
(package
(name "khelpcenter")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/khelpcenter-" version ".tar.xz"))
(sha256
(base32 "0ga270imh1ssifj0w3434z9hgrmn0dqrschygywy1z2hcpyx991d"))))
(base32 "10rivj5c14v5hwk87z41gwk830sy35fz0jg1jpay43jzw0ss995y"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -160,17 +166,17 @@ Dolphin with the version control systems: Bzr, Git, Mercurial, Subversion.")
qtbase-5
xapian))
(arguments
`(#:tests? #f ;; 1/1 test fails
#:phases
(modify-phases %standard-phases
(add-after 'install 'wrap-executable
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")))
;; Since qt-wrap selectors do not wrap for /share/kf5
;; directories, we need this so khelpcenter can find html4.css.
(wrap-program (string-append out "/bin/khelpcenter")
`("XDG_DATA_DIRS" suffix
(,(string-append (assoc-ref inputs "khtml") "/share"))))))))))
(list #:tests? #f ;;1/1 test fails
#:phases #~(modify-phases %standard-phases
(add-after 'install 'wrap-executable
(lambda* (#:key inputs #:allow-other-keys)
;; Since qt-wrap selectors do not wrap for /share/kf5
;; directories, we need this so khelpcenter can find html4.css.
(wrap-program (string-append #$output
"/bin/khelpcenter")
`("XDG_DATA_DIRS" suffix
(,(string-append (assoc-ref inputs "khtml")
"/share")))))))))
(home-page "https://apps.kde.org/khelpcenter/")
(synopsis "KDE documentation viewer")
(description "KHelpCenter uses meta data files which describe the
@ -187,14 +193,14 @@ document meta data file.")
(define-public konsole
(package
(name "konsole")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/konsole-" version ".tar.xz"))
(sha256
(base32 "19yrhjjbwq7kaip05ig8raqnh87k5dg57jck2zrsdrhq2f4nb3ql"))))
(base32 "1k68y1i3g3bsz1dz81jhkx1q2fb13rbm5ywh632bcyln0c6l0vz0"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools zlib))
@ -224,7 +230,9 @@ document meta data file.")
kxmlgui
breeze-icons ;; default icon set
qtbase-5
qtscript))
qtscript
qtmultimedia-5
icu4c))
(arguments
`(#:tests? #f)) ;; TODO: 2/15 tests fail even with HOME, offscreen, SHELL, debus
(home-page "https://www.kde.org/")
@ -241,14 +249,14 @@ This package is part of the KDE base applications module.")
(define-public krfb
(package
(name "krfb")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/krfb-" version ".tar.xz"))
(sha256
(base32 "09h05al7ivf9pzf2p6mnja1124746fawmr3vdk6rggjjw0p0wgn1"))))
(base32 "0qbrvf2wa3af1z1dpq3pqkngfbrfdgqfz8xs1qpdpyb7jxnphry7"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules pkg-config kdoctools))
@ -261,6 +269,7 @@ This package is part of the KDE base applications module.")
kdnssd
ki18n
knotifications
kpipewire
kwallet
kwayland
kwidgetsaddons
@ -295,14 +304,14 @@ This package is part of the KDE networking module.")
(define-public ksystemlog
(package
(name "ksystemlog")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/ksystemlog-" version ".tar.xz"))
(sha256
(base32 "0x9j3m0kndbaxldsk2rh8zawz0nqqdpn1xf36m4zzymm3b034glv"))))
(base32 "15c1h1dlcgbx2adhjzry2zwia0alym7vc251zymyzhl2xjacvqlm"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -331,17 +340,70 @@ who want to quickly see problems occurring on their server.
This package is part of the KDE administration module.")
(license license:gpl2+)))
(define-public spectacle
(package
(name "spectacle")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/spectacle-" version ".tar.xz"))
(sha256
(base32 "1fyklcvz0zndxabflkka75rham6768rp01as7m5dv0ic4lipkf9m"))))
(build-system qt-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "ctest" "-E"
"filename_test")))))))
(native-inputs
(list extra-cmake-modules kdoctools))
(inputs
(list kconfig
kcoreaddons
kdbusaddons
kglobalaccel
kguiaddons
ki18n
kio
kirigami
knotifications
kpipewire
kwidgetsaddons
kwindowsystem
kxmlgui
libxcb
purpose
qtdeclarative-5
qtquickcontrols2-5
qtwayland-5
qtx11extras
wayland
wayland-protocols
plasma-wayland-protocols
xcb-util
xcb-util-cursor
xcb-util-image))
(home-page "https://apps.kde.org/spectacle/")
(synopsis "Screenshot capture utility for KDE")
(description "Spectacle is a screenshot taking utility for the KDE.")
(license license:gpl2+)))
(define-public yakuake
(package
(name "yakuake")
(version "22.04.3")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/yakuake-" version ".tar.xz"))
(sha256
(base32
"0h5c8j65m6gylvwrj4sag4rlx92brbfllyrwpi7kwfjbwf7a5j1k"))))
"17ylm5z5lzjq5g4d48s0clpl3hg4rym9sc1p5hr0wfs9jx7197jy"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))

168
gnu/packages/kde-utils.scm
View file

@ -52,14 +52,14 @@
(define-public ark
(package
(name "ark")
(version "22.04.3")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/ark-" version ".tar.xz"))
(sha256
(base32
"1wjy90qkkzafwcw8d4v9cyhmc3sgfipc1085hq2ghqhvrgdyzs00"))
"081swq9f87yxg4dxdl5i4hszhr0q4ph402in397zfa5vpyspzy41"))
;; The libarchive package in Guix does not support
;; xar; disable related tests.
(patches (search-patches "ark-skip-xar-test.patch"))))
@ -99,6 +99,7 @@
kdbusaddons
khtml
ki18n
kiconthemes
kio
kitemmodels
kparts
@ -244,14 +245,14 @@ well as CD-ROM images.")
(define-public filelight
(package
(name "filelight")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/filelight-" version ".tar.xz"))
(sha256
(base32
"1fqgmpq5dznbn5lalx1j6dyynhylijrcqw3x9hrwxcqwr275h9iw"))))
"1mwl1dkknvqw9hd5jsh4cdx1zd8f6rxca0vyq01wrx44q9p6dn1n"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(inputs (list kirigami
@ -303,47 +304,45 @@ your computer.")
(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+))))
(package
(name "isoimagewriter")
(version "1.0.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://invent.kde.org/utilities/isoimagewriter")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1iphp2krgadc175570iiyaxbnjgpc1xilc71gkcbn5n0yd7qmkbv"))))
(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")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kate-" version ".tar.xz"))
(sha256
(base32 "0dnlr1cld6lqanqv98bss66w2bi2y78vqb8jx26addn2r1w4ygkf"))))
(base32 "0yyhh21pvzsaz7swmghdchzsfk089axhqkjwjv1m8j4q3q3rhv86"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -369,16 +368,23 @@ your computer.")
kxmlgui
breeze-icons ;; default icon set
qtbase-5
qtscript))
qtscript
qtx11extras))
(arguments
`(#:tests? #f ;; 2/7 tests fail
#:phases
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-tests
(lambda* (#:key inputs #:allow-other-keys)
;; This test requires a 'bin' diretory under '/usr'.
(substitute* "addons/externaltools/autotests/externaltooltest.cpp"
(("QStringLiteral[(]\"/usr\"[)]")
(format #f "QStringLiteral(\"~a\")"
(dirname (dirname (which "ls"))))))))
(add-before 'check 'check-setup
(lambda _
;; make Qt render "offscreen", required for tests
(setenv "QT_QPA_PLATFORM" "offscreen")
(setenv "XDG_CACHE_HOME" "/tmp/xdg-cache"))))))
(setenv "HOME" (getcwd)))))))
(home-page "https://kate-editor.org/")
(synopsis "Multi-document, multi-view text editor")
(description "Kate is a powerful text editor that can open multiple files
@ -402,7 +408,7 @@ Kate's features include:
(define-public kdebugsettings
(package
(name "kdebugsettings")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
@ -410,7 +416,7 @@ Kate's features include:
".tar.xz"))
(sha256
(base32
"0l9q7cmzc93zz2zc5ncq3q7q6jil6ai36n2vh70s2wsi8b0gsms8"))))
"02igg8ry1cxa83pdj6pgwzw7hpjwfrfk57d9ybgfvy2x08d5kvqz"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(inputs (list kcoreaddons
@ -419,7 +425,8 @@ Kate's features include:
ki18n
kwidgetsaddons
kitemviews
kcompletion))
kcompletion
kxmlgui))
(home-page "https://invent.kde.org/utilities/kdebugsettings")
(synopsis "Choose which QLoggingCategory are displayed")
(description
@ -429,14 +436,14 @@ Kate's features include:
(define-public kbackup
(package
(name "kbackup")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kbackup-" version ".tar.xz"))
(sha256
(base32
"0c0zdk00j9qssjdb5dg5hwc5mx7h5kvriyszia2xizqjq2m53c3k"))))
"121w54ivmq8qnxc97g47i8vq4nkivypp84pqs9rs5bid4cpfvh9p"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(inputs (list kguiaddons
@ -447,6 +454,7 @@ Kate's features include:
kiconthemes
karchive
kwidgetsaddons
libarchive
shared-mime-info))
(home-page "https://apps.kde.org/kbackup/")
(synopsis "Backup program with an easy-to-use interface")
@ -464,14 +472,14 @@ drive, USB stick, etc
(define-public kcalc
(package
(name "kcalc")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kcalc-" version ".tar.xz"))
(sha256
(base32
"01rn6qy40q4b90i5mysrygkqh5fzq885dgcd11l6r8s59ijjcjlk"))))
"04mqicwqn6h99jgh1zl0wsgk1rdkswzxaq8b8yz5hq654dsyq6y1"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules kdoctools))
(inputs (list gmp
@ -493,7 +501,7 @@ drive, USB stick, etc
(define-public kcharselect
(package
(name "kcharselect")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
@ -501,7 +509,7 @@ drive, USB stick, etc
".tar.xz"))
(sha256
(base32
"1gs9jkq76dkhjgjqpl5dcsx0l2qi6i0pk122y1qmwgyd6f8af35b"))))
"05z80j8bwrj1zfpy376gsx30bv7bxsa3lyvrqsz197w1g8vp5gix"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(inputs (list kbookmarks kcoreaddons kcrash ki18n kwidgetsaddons kxmlgui))
@ -517,14 +525,14 @@ characters.")
(define-public kdialog
(package
(name "kdialog")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kdialog-" version ".tar.xz"))
(sha256
(base32
"1lqzhfn5g16qr6ada9i0i3kshna1zxp1y20ylwmmsa82bgmyblhx"))))
"042az7d9ngar6xp7gv3xcmlns9hpbvs39dkymanqgc0riwa1mvsx"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules kdoctools))
(inputs (list ktextwidgets
@ -573,15 +581,14 @@ conversions between European currencies.")
(define-public keysmith
(package
(name "keysmith")
(version "22.09")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/plasma-mobile/"
(version-major+minor version) "/keysmith-"
version ".tar.xz"))
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/keysmith-" version ".tar.xz"))
(sha256
(base32
"0w3vvmp9rn6ahly2fm9n6f4glfr7d84bfvj33mrs5pn7n99h7jgy"))))
"1rfp516adliyc57nx4ha1rp8v2z340ygsvblh5sqmsdsg2ivjklj"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules pkg-config))
(inputs (list kdbusaddons
@ -603,14 +610,14 @@ with support for QR scanning.")
(define-public kfind
(package
(name "kfind")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kfind-" version ".tar.xz"))
(sha256
(base32
"0py6ygnj7qxbwrldf2a3hqc1cqd5yvyfi1l0nji0hwn8lvidnjhc"))))
"03g9cn0wp3f2n9zwzbc5sbcria4hcp2ls77fbxyj3wkady3m50if"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules kdoctools))
(inputs (list karchive
@ -680,16 +687,16 @@ with support for QR scanning.")
(define-public kontrast
(package
(name "kontrast")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kontrast-" version ".tar.xz"))
(sha256
(base32
"03y3y5p29zx4nmqi7hp3abxq2n2bgwbz2knhn9vhl3im3ghp7lmp"))))
"08qwvc2b5bj3012lvwxainbw7d34mkbwwznj3661ydsnfjyxxs92"))))
(build-system qt-build-system)
(native-inputs (list extra-cmake-modules))
(native-inputs (list extra-cmake-modules kdoctools))
(inputs (list kirigami
ki18n
kcoreaddons
@ -776,14 +783,14 @@ the computer and 3D Printers.")
(define-public kmag
(package
(name "kmag")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kmag-" version ".tar.xz"))
(sha256
(base32 "08jwv2wnb67vjgz5pv1nn6rwl9ldj8dfd74l6va9vz4x5pk7d859"))))
(base32 "13ar37yv3gk5451cdqrgbm91jm50qw4559sx25fv95g2i9wa7z74"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -806,14 +813,14 @@ artists to web-designers to people with low vision.")
(define-public kmousetool
(package
(name "kmousetool")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kmousetool-" version ".tar.xz"))
(sha256
(base32 "13pvdhhf3fdkaiyjp0ijqm5qdffabyw7qq2051l1nqv6i7w6lgwx"))))
(base32 "1prh9xdzwx0mx93g9cbjy55hxwcci90hvrv2ckj4dqdnv5fv4h21"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -844,14 +851,14 @@ whom pressing buttons hurts.")
(define-public kmouth
(package
(name "kmouth")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kmouth-" version ".tar.xz"))
(sha256
(base32 "0lzaw7qqvpqzfz4nb2lk8l06c4yxacfg5982yk33g5q0j7r19bpy"))))
(base32 "0qyzq4cvcsacb7hr6n79i3rzyjr0m3c8lrf8fwbzdivswpk8wss3"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -883,14 +890,14 @@ sentences to be re-spoken.")
(define-public kronometer
(package
(name "kronometer")
(version "2.2.3")
(version "2.3.0")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/kronometer/" version
"/src/kronometer-" version ".tar.xz"))
(sha256
(base32 "05hs8729a3aqjpwmn2xdf2sriacrll4sj4ax3lm4s1ravj09n9bm"))))
(base32 "0xn4z9y2yl57a5skwp4cjsn1456kiwnwvhrddc0qsihgdyif3fbm"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -916,15 +923,24 @@ to save the times and resume them later.")
(define-public krusader
(package
(name "krusader")
(version "2.7.2")
(version "2.8.0")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/krusader/" version
"/krusader-" version ".tar.xz"))
(sha256
(base32 "02b1jz5a7cjr13v6c7fczrhs1xmg1krnva5fxk8x2bf4nd1rm8s1"))))
(base32 "16n2y861ka8jhackf7hd9b0b0argifc1p0a114dvrc0qjddg0k4f"))))
(build-system qt-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-compat.h
(lambda _
;; Those fallbacks for pre KF-5.91 cause missing includes.
(substitute* "app/compat.h"
(("# include <kcompletion_version\\.h>") "")
(("# include <karchive_version\\.h>") "")))))))
(native-inputs
(list extra-cmake-modules kdoctools))
(inputs
@ -993,14 +1009,14 @@ either be created or generated from a image.")
(define-public okteta
(package
(name "okteta")
(version "0.26.9")
(version "0.26.12")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/okteta/" version
"/src/okteta-" version ".tar.xz"))
(sha256
(base32 "1yszs3w78dqdr5d8djf6gp4abzc5lcms859imqcq50wl9r6lr18n"))))
(base32 "18bj8gd9kvdk85ypykl668safiyqn5qskgrsb214wxxaprl6phj9"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools qttools-5 shared-mime-info))
@ -1052,14 +1068,14 @@ redone.")
(define-public print-manager
(package
(name "print-manager")
(version "22.08.0")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/print-manager-" version ".tar.xz"))
(sha256
(base32 "1abwj1ccm70adzx07ykqjlb4f6y55k2rv1j861dl0822187vl799"))))
(base32 "1fnbkx2xk3pr3cwcji1xbswcf5b7h8r4kag8i3lv28cnjw3ahs52"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
@ -1199,14 +1215,14 @@ Features:
(define-public sweeper
(package
(name "sweeper")
(version "22.04.3")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/sweeper-" version ".tar.xz"))
(sha256
(base32 "0kda4a5d9a11am2y6f91bx8v3nb8mw9qh671nskvgkx46x1pww21"))))
(base32 "19b382cgdcd4qh4ppdmbhsacvcc9nlbs7spcg8ii02bdpx6qw9b7"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))

485
gnu/packages/kde.scm
View file

@ -48,6 +48,7 @@
#:use-module (gnu packages apr)
#:use-module (gnu packages astronomy)
#:use-module (gnu packages audio)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages bison)
#:use-module (gnu packages boost)
@ -59,6 +60,7 @@
#:use-module (gnu packages djvu)
#:use-module (gnu packages documentation)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages graphics)
#:use-module (gnu packages ebook)
#:use-module (gnu packages flex)
#:use-module (gnu packages fontutils)
@ -70,6 +72,7 @@
#:use-module (gnu packages gl)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gperf)
#:use-module (gnu packages gps)
#:use-module (gnu packages graphics)
#:use-module (gnu packages image)
@ -77,10 +80,13 @@
#:use-module (gnu packages kde-frameworks)
#:use-module (gnu packages kde-pim)
#:use-module (gnu packages kde-plasma)
#:use-module (gnu packages libusb)
#:use-module (gnu packages linux)
#:use-module (gnu packages llvm)
#:use-module (gnu packages markup)
#:use-module (gnu packages maths)
#:use-module (gnu packages mp3)
#:use-module (gnu packages onc-rpc)
#:use-module (gnu packages pdf)
#:use-module (gnu packages perl)
#:use-module (gnu packages photo)
@ -89,6 +95,8 @@
#:use-module (gnu packages protobuf)
#:use-module (gnu packages pulseaudio)
#:use-module (gnu packages python)
#:use-module (gnu packages samba)
#:use-module (gnu packages ssh)
#:use-module (gnu packages tls)
#:use-module (gnu packages qt)
#:use-module (gnu packages version-control)
@ -100,14 +108,14 @@
(define-public baloo-widgets
(package
(name "baloo-widgets")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/baloo-widgets-" version ".tar.xz"))
(sha256
(base32 "02p4v8g4syk908mg7f0l5fpqn7ddsxqji1n8jqghsdkkdsvry7mn"))))
(base32 "01k8kmzr2vgd567v4js080cnyl2i43zh6zz25ml76z77lywlfzz6"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
@ -124,14 +132,14 @@ This package contains GUI widgets for baloo.")
(define-public grantleetheme
(package
(name "grantleetheme")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/grantleetheme-" version ".tar.xz"))
(sha256
(base32 "01ls16x6ngi43lcwffav9qig3afakrs04v4wvyfb8lm7sd65hgf9"))))
(base32 "01kkj3y6xhc792jaxnkglkwvlqx9ckn5yhlfrpqff5hlf5x9vn4w"))))
(build-system qt-build-system)
(arguments `(#:tests? #f)) ; unexpected error in the test suite.
(native-inputs
@ -152,14 +160,14 @@ This package contains GUI widgets for baloo.")
(define-public akregator
(package
(name "akregator")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/akregator-" version ".tar.xz"))
(sha256
(base32 "01rgyl2hwjprq4z5yjc99j6jk9vrhjy608ha72j470pw6g47ac5s"))))
(base32 "0g916453zip8i5g61pf8ib68fiqfbmr1i1lhbnwmsv1cryx035w9"))))
(build-system qt-build-system)
(arguments
`(#:phases
@ -197,6 +205,7 @@ This package contains GUI widgets for baloo.")
kpimcommon
kpimtextedit
kquickcharts
ktextaddons
ktexteditor
kuserfeedback
libkdepim
@ -218,6 +227,62 @@ It comes with a fast search, advanced archiving functionality and an internal
browser for easy news reading.")
(license license:gpl2+)))
(define-public gwenview
(package
(name "gwenview")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/gwenview-" version ".tar.xz"))
(sha256
(base32 "0vijsq4174p4asdjq47bzdp2xkfn8hpg7b4dgp3yvapfxwjgp148"))))
(build-system qt-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "ctest" "-E"
"(placetreemodeltest|historymodeltest|contextmanagertest|urlutilstest)")))))))
(native-inputs
(list extra-cmake-modules kdoctools pkg-config))
(inputs
(list baloo
cfitsio
exiv2
kactivities
kcolorpicker
kguiaddons
kiconthemes
kimageannotator
kio
kitemmodels
knotifications
kparts
lcms
libjpeg-turbo
libkdcraw
libpng
libtiff
phonon
purpose
qtimageformats
qtsvg-5
qtwayland-5
qtx11extras
wayland
wayland-protocols
zlib))
(home-page "https://userbase.kde.org/Gwenview")
(synopsis "Image viewer for KDE")
(description
"Gwenview is an image viewer for KDE. It also provides image editing and
annotating features.")
(license license:gpl2+)))
(define-public kdenlive
(package
(name "kdenlive")
@ -305,14 +370,14 @@ projects.")
(define-public kdevelop
(package
(name "kdevelop")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kdevelop-" version ".tar.xz"))
(sha256
(base32 "14a80z4sahxyzssrz605zp7ah5xdjbc22ccv0vwcnhr5lzr76v31"))))
(base32 "0m1q5nhx7wd4b8850ikw7dk6zka57gapf78wawjv2h1hijxcyf4v"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules pkg-config shared-mime-info qttools-5))
@ -371,14 +436,16 @@ projects.")
;; heaptrack_gui
;; meson
(arguments
`(#:tests? #f ;; there are some issues with the test suite
#:phases
(modify-phases %standard-phases
(add-before 'configure 'add-include-path
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "cmake/modules/FindClang.cmake"
(("^\\s*PATHS \"\\$\\{CLANG_LIBRARY_DIRS\\}\"" line)
(string-append line " " (assoc-ref inputs "clang") "/lib"))))))))
(list #:tests? #f ;; there are some issues with the test suite
#:phases
#~(modify-phases %standard-phases
(add-before 'configure 'add-include-path
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "plugins/clang/Locate_CLANG_BUILTIN_DIR.cmake"
(("\"\\$[{]CLANG_INCLUDE_DIRS[}]\"" line)
(string-append
line " \""
(assoc-ref inputs "clang") "/lib\""))))))))
(home-page "https://kdevelop.org")
(synopsis "IDE for C, C++, Python, Javascript and PHP")
(description "The KDevelop IDE provides semantic syntax highlighting, as
@ -391,7 +458,7 @@ software (Git, Subversion, Mercurial, CVS and Bazaar).")
(define-public kdevelop-pg-qt
(package
(name "kdevelop-pg-qt")
(version "2.2.1")
(version "2.2.2")
(source
(origin
(method git-fetch)
@ -400,7 +467,7 @@ software (Git, Subversion, Mercurial, CVS and Bazaar).")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "3kfab4p717acbdkcdi41d98vwch7v431gb2qi6s38hmclsf8bf8g"))))
(base32 "0kdi12phrl5afv41dy856g2vv3bp0a1b1vwp90h08wbqsfyy1zlm"))))
(native-inputs
(list extra-cmake-modules))
(inputs
@ -444,7 +511,7 @@ illustrate project schedules.")
(define-public kio-extras
(package
(name "kio-extras")
(version "22.08.0")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
@ -452,7 +519,7 @@ illustrate project schedules.")
version ".tar.xz"))
(sha256
(base32
"0gzna2ps2qd2js28c97kjpcbah7zz8n4s4932faggc2nz5z5wnyn"))))
"1ygxfq62idpgf1dlic1245y5gf0fnkrpbqxd230xmxi7a35za8qd"))))
(build-system cmake-build-system)
(arguments
(list #:phases #~(modify-phases %standard-phases
@ -461,22 +528,40 @@ illustrate project schedules.")
(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
(invoke "ctest" "-E" "(thumbnailtest|testkioarchive)")))))))
(native-inputs (list extra-cmake-modules dbus kdoctools pkg-config qttools-5))
;; TODO: libappimage, kdsoap-ws-discovery-client
(inputs (list gperf
imath
kactivities
kactivities-stats
karchive
kbookmarks
kconfig
kconfigwidgets
kcoreaddons
kdbusaddons
ki18n
kdnssd
kio
solid
kbookmarks
kdbusaddons
kdsoap
kguiaddons
ki18n
kio
ksyntaxhighlighting
libimobiledevice
libkexiv2
libmtp
libplist
libssh
libtirpc
openexr
phonon
qtbase-5
qtsvg-5))
qtsvg-5
samba
shared-mime-info
solid
taglib
zlib))
(home-page "https://community.kde.org/Frameworks")
(synopsis "Additional components to increase the functionality of KIO")
(description
@ -516,7 +601,7 @@ the functionality of the KDE resource and network access abstractions.")
(define-public kirigami-addons
(package
(name "kirigami-addons")
(version "0.8.0")
(version "0.10.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -525,7 +610,7 @@ the functionality of the KDE resource and network access abstractions.")
(file-name (git-file-name name version))
(sha256
(base32
"1bi6sc1fpycxj1ydd08gkbw1x1pi2ab6p9bk4175hm0mb0rykdir"))))
"154yzhy6nva4d39lnsh7i40vvrj146263j07kfkd1g1w4qy381y3"))))
(build-system qt-build-system)
(arguments
(list #:tests? #f)) ; failing test
@ -564,6 +649,58 @@ and desktop experiences.")
expression library, that is used in Krita.")
(license license:gpl3+)))
(define-public kcolorchooser
(package
(name "kcolorchooser")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kcolorchooser-" version ".tar.xz"))
(sha256
(base32
"1ripvn2li74rwngicay9c78j0slia1rpsi1f43rbb36p9af02lwq"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
(inputs
(list kcoreaddons
ki18n
kxmlgui))
(home-page "https://apps.kde.org/de/kcolorchooser/")
(synopsis "Color selector utility")
(description "KColorChooser is a utility to select a color.")
(license license:expat)))
(define-public kolourpaint
(package
(name "kolourpaint")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kolourpaint-" version ".tar.xz"))
(sha256
(base32 "1ab9v6ksb185f6jfhhk578qazhmy8hx6s8vjr9xyh7k3jilayj9v"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
(inputs
(list kguiaddons
ki18n
kio
kjobwidgets
ktextwidgets
kwidgetsaddons
kxmlgui))
(home-page "http://kolourpaint.org/")
(synopsis "Paint program for KDE")
(description "KolourPaint is a paint program for KDE. It is useful for
painting, image manipulating and icon editing.")
(license (list license:lgpl2.0+ license:bsd-2))))
(define-public krita
(package
(name "krita")
@ -714,14 +851,14 @@ accessibility clients such as screen readers.")
(define-public libkomparediff2
(package
(name "libkomparediff2")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/libkomparediff2-" version ".tar.xz"))
(sha256
(base32 "0hjxxhfv0ds05l821avq787sfdy0afr595xx266c20x8fxgm6kv9"))))
(base32 "1zkiyyrbfbr1i7zyhhayf53daaarzc8a2xz0iqjy9za7rawnmgbv"))))
(native-inputs
(list extra-cmake-modules pkg-config))
(inputs
@ -745,14 +882,14 @@ used in KDE development tools Kompare and KDevelop.")
(define-public qca
(package
(name "qca")
(version "2.3.4")
(version "2.3.7")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/qca/" version
"/qca-" version ".tar.xz"))
(sha256
(base32 "1i7m5y3dfwij9cyjp72ya5zd2skgp7mfmrmf7bvrbzg3ly0mhsbb"))))
(base32 "0hrzmzvzsgzn4nvplgg2wmxaql7fjvi3rcqgwgimnzb8ahxk9qpy"))))
(build-system cmake-build-system)
(native-inputs
(list pkg-config))
@ -766,26 +903,110 @@ including SSL/TLS, X.509 certificates, SASL, OpenPGP, S/MIME CMS, and smart
cards.")
(license license:lgpl2.1+)))
(define-public kommit
(package
(name "kommit")
(version "1.0.2")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/"
name "/" name "-"
version ".tar.xz"))
(sha256
(base32
"0vp9d1x01na28p6smbd6spx14bjnzilr2bjsd380h1d17b9cm3hy"))))
(build-system qt-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "ctest" "-E"
"(difftest|clonedialogtest|overlaytest)")))))))
(native-inputs
(list extra-cmake-modules kdoctools))
(inputs
(list kconfigwidgets
kcoreaddons
kcrash
kdbusaddons
ki18n
kxmlgui
kio
ktextwidgets
ktexteditor
ksyntaxhighlighting))
(home-page "https://apps.kde.org/kommit/")
(synopsis "Git client for KDE")
(description
"Kommit is a git client for KDE.")
(license license:gpl3+)))
(define-public kompare
(package
(name "kompare")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kompare-" version ".tar.xz"))
(sha256
(base32
"058rr0n5r9czxqs6ixacx0bm8hglwjmhfpf5xf1zr0fjgcirlrwy"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
(inputs
(list libkomparediff2
kcodecs
kconfig
kcoreaddons
kiconthemes
kjobwidgets
kparts
ktexteditor
kwidgetsaddons))
(home-page "https://apps.kde.org/kompare/")
(synopsis "Graphical file differences tool")
(description
"Kompare is a program to view the differences between files. Features
include:
@itemize
@item comparison of files or directories via a graphical interface,
@item bezier-based connection widget letting you see both source and destination,
@item graphical viewing of patch files in normal, context, unified and diff
formats,
@item interactive application of differences,
@item network transparency,
@item ability to view plain-text diff output in embedded viewer,
@item navigation of multiple-file diffs with dockable navigation tree,
@item graphical interface for commonly used diff command line options,
@item switch source and destination
@item and diff statistics.
@end itemize")
(license license:gpl3+)))
(define-public kopeninghours
(package
(name "kopeninghours")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/" name "-" version ".tar.xz"))
(sha256
(base32
"03hslgx4zgg7gsnz2xhx4wnchvqfc5n8c6ihgwz3972fkxsjfdvq"))))
"14m4wl79b4qad42l1capz59pslfcrm25jshyhmcqzhqb0wzwkav9"))))
(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)")))))))
(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
@ -803,14 +1024,14 @@ opening hours expressions.")
(define-public kosmindoormap
(package
(name "kosmindoormap")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/" name "-" version ".tar.xz"))
(sha256
(base32
"042axwxa1497snr8f0m6a61gl9ypdkvllnhnlw4h5ffah7yl5n3s"))))
"1winrgc3698wjpil0hblw7bgbgaxgjh6h3dsl1kwc77w14f6vql3"))))
(build-system cmake-build-system)
(native-inputs (list bison extra-cmake-modules flex))
(inputs (list ki18n
@ -829,7 +1050,7 @@ multi-floor indoor maps.")
(define-public kpmcore
(package
(name "kpmcore")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append
@ -837,7 +1058,7 @@ multi-floor indoor maps.")
"/src/" name "-" version ".tar.xz"))
(sha256
(base32
"1y28dnmbnkkjar4kl033fkmcnazgczc3pgdac2q1ry2hjzkcbnpa"))))
"0cz0pz84sxa7lvkq8v25775z7x7g6pz9sq7c90pfv8h9qsz8q1l9"))))
(build-system cmake-build-system)
(native-inputs
(list extra-cmake-modules pkg-config))
@ -851,14 +1072,14 @@ multi-floor indoor maps.")
qca
`(,util-linux "lib")))
(arguments
`(#:tests? #f ;; 4/6 tests fail do to no plugin instance
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-cmake-install-directories
(lambda _
(substitute* "src/util/CMakeLists.txt"
(("DESTINATION \\$\\{POLKITQT-1_POLICY_FILES_INSTALL_DIR\\}")
"DESTINATION share/polkit-1/actions")))))))
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-cmake-install-directories
(lambda _
(substitute* "src/util/CMakeLists.txt"
(("DESTINATION \\$\\{POLKITQT-1_POLICY_FILES_INSTALL_DIR\\}")
"DESTINATION share/polkit-1/actions")))))))
(home-page "https://community.kde.org/Frameworks")
(synopsis "Library for managing partitions")
(description "Library for managing partitions.")
@ -867,27 +1088,35 @@ multi-floor indoor maps.")
(define-public kpublictransport
(package
(name "kpublictransport")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://kde/stable/release-service/" version
"/src/kpublictransport-" version ".tar.xz"))
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kpublictransport-" version
".tar.xz"))
(sha256
(base32
"0z7zyyiq4815m74s6p841k1c4pxbrss7hnkag8kr5qa3q4264kg9"))))
"04fa9ismgkhskpmjf6b8gvra2z0jpsigz79b93m1snxm4046xihb"))))
(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))
(list #:phases #~(modify-phases %standard-phases
(add-before 'check 'check-setup
(lambda* (#:key inputs #:allow-other-keys)
(setenv "QT_QPA_PLATFORM" "offscreen")
(setenv "HOME" ".")
(setenv "TZ" "Europe/Prague")
(setenv "TZDIR"
(search-input-directory inputs
"share/zoneinfo")))))))
(native-inputs (list extra-cmake-modules pkg-config tzdata-for-tests))
;; TODO: clipper and osmctools are not detected
(inputs (list clipper osmctools protobuf qtdeclarative-5 zlib))
(inputs (list clipper
osmctools
protobuf
qtdeclarative-5
zlib
networkmanager-qt
ki18n))
(home-page "https://api.kde.org/kdepim/kpublictransport/html/index.html")
(synopsis "Library for accessing realtime public transport data")
(description
@ -924,29 +1153,30 @@ different notification systems.")
(define-public kdeconnect
(package
(name "kdeconnect")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kdeconnect-kde-"
version ".tar.xz"))
(sha256
(base32
"1yzx49gcm7x2wdk53iznyjz09y2a6mrrhh68xilbcsafyiw3l3zr"))))
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kdeconnect-kde-"
version ".tar.xz"))
(sha256
(base32
"1gcmqqj752h3lmcpvc7cm6k6bpb158ha7i5ysp0kqvf8cmpi5ydz"))))
(build-system qt-build-system)
(arguments
`(#:configure-flags '("-DBUILD_TESTING=ON"
"-DKDE_INSTALL_LIBEXECDIR=libexec"
;; So kdeconnect.so isn't installed to lib/plugins
"-DPLUGIN_INSTALL_DIR=lib/qt5/plugins")
#:tests? #f)) ; tests fail hard in our build environment
(list #:configure-flags #~'("-DBUILD_TESTING=ON"
"-DKDE_INSTALL_LIBEXECDIR=libexec"
;; So kdeconnect.so isn't installed to lib/plugins
"-DPLUGIN_INSTALL_DIR=lib/qt5/plugins")
#:tests? #f)) ; tests fail hard in our build environment
(native-inputs
(list extra-cmake-modules
kdoctools
libxtst
pkg-config
python-wrapper))
python-wrapper
wayland-protocols))
(inputs
(list kcmutils
kconfigwidgets
@ -974,7 +1204,9 @@ different notification systems.")
qtquickcontrols2-5
qtx11extras
qtwayland-5
wayland))
wayland
modemmanager-qt
libxkbcommon))
(home-page "https://community.kde.org/KDEConnect")
(synopsis "Enable your devices to communicate with each other")
(description "KDE Connect is a project that enables all your devices to
@ -1072,14 +1304,14 @@ to perform data analysis.")
(define-public kdf
(package
(name "kdf")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/"
version "/src/kdf-" version ".tar.xz"))
(sha256
(base32
"0p7iqld2phc74pmhyb8bqqg9clnc7l2rh6hd0i6jcsp266cgg205"))))
"11ndcbfkq5fhb1lfij0mmm43fw49sh0z3nw644sll0smcwic76aa"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1105,14 +1337,14 @@ unmount drives and view them in a file manager.")
(define-public ktimer
(package
(name "ktimer")
(version "20.12.0")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/ktimer-" version ".tar.xz"))
(sha256
(base32
"12fz5v5ky03h18jl75fnq1zagjq8qzi1s1q7phjz5d1rbhwc57ls"))))
"1n5az5cgb0q28lz5f7afqjlfga32q232g836nkl1sfq8n5whj5z5"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules
@ -1132,14 +1364,14 @@ timers for each task can be started, stopped, changed, or looped.")
(define-public kcachegrind
(package
(name "kcachegrind")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/kcachegrind-" version ".tar.xz"))
(sha256
(base32
"05wcnfqs0fdfhfpagn0pqky0l7014nblv8r9fv1khy4g5mdlm4hs"))))
"175bag1mfidp7bdsjb3zinib76jy8h881rqxgmkn90gmv4fqy62b"))))
(build-system cmake-build-system)
(native-inputs
(list extra-cmake-modules perl python qttools-5 kdoctools))
@ -1166,14 +1398,14 @@ Python, PHP, and Perl.")
(define-public libkdegames
(package
(name "libkdegames")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/libkdegames-" version ".tar.xz"))
(sha256
(base32 "1aihbha073fw2bxmdk4l768716kvrlyjd72x2nfx0vvr0ngc5wx9"))))
(base32 "1sicpfsrkxn5d0fdy71h7033rpkb94r5hjvv5ab7qbmzb1qa4awq"))))
(build-system qt-build-system)
(native-inputs
(list extra-cmake-modules))
@ -1212,7 +1444,7 @@ Python, PHP, and Perl.")
(define-public marble-qt
(package
(name "marble-qt")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method git-fetch)
@ -1222,16 +1454,16 @@ Python, PHP, and Perl.")
(file-name (git-file-name name version))
(sha256
(base32
"0pn0mjh5cg7mgjj82bsj8zikzdyq2fmzckdcav2y0msxwi859crl"))))
"02qv2mfga4jm5br9dr8g6kcqr93q2ssq06m383kh83lkvickxzc9"))))
(build-system qt-build-system)
(arguments
;; FIXME: libmarblewidget-qt5.so.28 not found. Also enable the
;; corresponding configure flag to build tests.
`(#:tests? #f
#:configure-flags
(list "-DBUILD_MARBLE_TOOLS=YES" ; file conversion tools
"-DBUILD_TOUCH=YES"
"-DBUILD_MARBLE_TESTS=FALSE")))
(list #:tests? #f
#:configure-flags
#~(list "-DBUILD_MARBLE_TOOLS=YES" ; file conversion tools
"-DBUILD_TOUCH=YES"
"-DBUILD_MARBLE_TESTS=FALSE")))
(native-inputs
(list extra-cmake-modules kdoctools qttools-5))
;; One optional dependency missing: libwlocate.
@ -1269,24 +1501,42 @@ creating routes by drag and drop and more.")
(define-public okular
(package
(name "okular")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/" name "-" version ".tar.xz"))
(sha256
(base32 "0f98kfsb6sirpym27j2wwz4qr4p5vl4pbnckxd3gmgyfpz8mszln"))))
(base32 "1vgcqkq6mzd270hzabmdqqv105iv6kr6ah2h18b15al2n9rmg0bi"))))
(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"'."
;; The built program seems to work okay, so we skip the tests for now.
(arguments
`(#:tests? #f
#:configure-flags
(list "-DBUILD_TESTING=OFF")))
(list
#:phases
#~(modify-phases %standard-phases
(delete 'check)
;; use installed data to check.
(add-after 'install 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "ctest"
"--output-on-failure"
"--rerun-failed"
"-E"
"(mainshelltest|parttest|chmgeneratortest)"))))
(add-before 'check 'check-setup
(lambda* (#:key outputs #:allow-other-keys)
(let ((share (string-append (assoc-ref outputs "out") "/share")))
(setenv "QT_QPA_PLATFORM" "offscreen")
(setenv "HOME" ".")
(setenv "XDG_DATA_DIRS"
(string-append
share ":" (getenv "XDG_DATA_DIRS")))
(invoke "update-desktop-database" "-v" share)))))))
(native-inputs
(list extra-cmake-modules kdoctools pkg-config))
(list extra-cmake-modules kdoctools pkg-config
;; for test
desktop-file-utils))
(inputs
(list ebook-tools
breeze-icons
@ -1324,7 +1574,8 @@ creating routes by drag and drop and more.")
qtwayland-5
threadweaver
kcrash
kjs))
kjs
qtx11extras))
(home-page "https://apps.kde.org/okular/")
(synopsis "Document viewer")
(description
@ -1335,7 +1586,7 @@ a variety of formats, including PDF, PostScript, DejaVu, and EPub.")
(define-public poxml
(package
(name "poxml")
(version "22.08.1")
(version "23.04.3")
(source (origin
(method url-fetch)
(uri
@ -1343,7 +1594,7 @@ a variety of formats, including PDF, PostScript, DejaVu, and EPub.")
"/src/poxml-" version ".tar.xz"))
(sha256
(base32
"13jp5g5la3kq9i3qybdvwfl4vgqz3hxf64qzmh7kl71ykas7s5vi"))))
"11rqd7hhsy6f8qi0529cmy381bhskji6wf4fij7yjksmrsdvfw6d"))))
(build-system cmake-build-system)
(native-inputs
(list extra-cmake-modules kdoctools))
@ -1360,14 +1611,14 @@ PO template files.")
(define-public kdegraphics-mobipocket
(package
(name "kdegraphics-mobipocket")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/" name "-" version ".tar.xz"))
(sha256
(base32 "1kxvzgmq83hml10pc4j66r59dsar7h92w2i0cs1nhar781mz666n"))))
(base32 "13hn6dh5d4vsblvg6wyyvbmcyl0yyqr8srilik86wilp58qbsrdv"))))
(build-system cmake-build-system)
(native-inputs
(list extra-cmake-modules))
@ -1382,14 +1633,14 @@ Mobipocket e-books in Dolphin and other KDE apps.")
(define-public libkexiv2
(package
(name "libkexiv2")
(version "22.08.1")
(version "23.04.3")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/" name "-" version ".tar.xz"))
(sha256
(base32 "0iwpy79ppv4bbsqrszp9kmghgjvkl13gdpnafsbikh4wy1ch4cv9"))))
(base32 "16cb7cab4pyarwwn2byyvanwlakcgq5h203hkysp44flszq515cl"))))
(build-system cmake-build-system)
(native-inputs
(list extra-cmake-modules))

2
gnu/packages/language.scm
View file

@ -181,7 +181,7 @@
m17n-lib
qtbase-5
librime
librsvg
(librsvg-for-system)
wayland
wayland-protocols
libx11

93
gnu/packages/linux.scm
View file

@ -113,6 +113,7 @@
#:use-module (gnu packages databases)
#:use-module (gnu packages datastructures)
#:use-module (gnu packages dbm)
#:use-module (gnu packages disk)
#:use-module (gnu packages docbook)
#:use-module (gnu packages documentation)
#:use-module (gnu packages elf)
@ -487,7 +488,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.4-version "6.4.10")
(define-public linux-libre-6.4-version "6.4.11")
(define-public linux-libre-6.4-gnu-revision "gnu")
(define deblob-scripts-6.4
(linux-libre-deblob-scripts
@ -497,7 +498,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1rwm09anyn4py1g877f9vh6ya86y2hfvlqx51bpa53dci5k0b0ds")))
(define-public linux-libre-6.4-pristine-source
(let ((version linux-libre-6.4-version)
(hash (base32 "0fgjym6y0zj7wz1byqhxmv3pc3wq412vm1dxbj4gv23pm6r3y2wq")))
(hash (base32 "0609lhgc42j9id2vvdpv8n7djabp46p2mridf9s0sg3x16snhssl")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-6.4)))
@ -505,7 +506,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-6.1-version "6.1.45")
(define-public linux-libre-6.1-version "6.1.46")
(define-public linux-libre-6.1-gnu-revision "gnu")
(define deblob-scripts-6.1
(linux-libre-deblob-scripts
@ -515,12 +516,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1c73516nbhnz0cxjz38b5794dxygb8sznv9idiibw7ablmjbhd11")))
(define-public linux-libre-6.1-pristine-source
(let ((version linux-libre-6.1-version)
(hash (base32 "14piy4cwv18a0yqp4gkrvr51z4zccyhab29n9ybxinkxdqwl68xx")))
(hash (base32 "15m228bllks2p8gpsmvplx08yxzp7bij9fnmnafqszylrk7ppxpm")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-6.1)))
(define-public linux-libre-5.15-version "5.15.126")
(define-public linux-libre-5.15-version "5.15.127")
(define-public linux-libre-5.15-gnu-revision "gnu")
(define deblob-scripts-5.15
(linux-libre-deblob-scripts
@ -530,12 +531,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1c3lm0j401lv2lk39dmr4mlf5ic173snm7cc0cckl6czyvxr5ysy")))
(define-public linux-libre-5.15-pristine-source
(let ((version linux-libre-5.15-version)
(hash (base32 "0vzdncrvwqxzjkpgf3gjxvl8iwz92szfyzc33cayx28ghjwsmx5d")))
(hash (base32 "09lgj9hs1cjxg84hb7avras4rlsx18igr69mx433l9hv6issbl5d")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.15)))
(define-public linux-libre-5.10-version "5.10.190")
(define-public linux-libre-5.10-version "5.10.191")
(define-public linux-libre-5.10-gnu-revision "gnu1")
(define deblob-scripts-5.10
(linux-libre-deblob-scripts
@ -545,12 +546,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "0nnp46mn32yk436swd2qh34igmzinfgkwvbzp3lqyy45f06hbc2j")))
(define-public linux-libre-5.10-pristine-source
(let ((version linux-libre-5.10-version)
(hash (base32 "15zmz9pg91gph2dhigjf1z3w6gkv1kwslki5dpzhgzs03pq3swi9")))
(hash (base32 "1hk2x5dgvfq9v6161v25wz5qpzgyvqbx34xbm7ww8z4ish76cm6b")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.10)))
(define-public linux-libre-5.4-version "5.4.253")
(define-public linux-libre-5.4-version "5.4.254")
(define-public linux-libre-5.4-gnu-revision "gnu1")
(define deblob-scripts-5.4
(linux-libre-deblob-scripts
@ -560,12 +561,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "0sw67b2pk3lng4y67diqqnhxaggnp3nbkx8dxc5fs27rinfxr4m1")))
(define-public linux-libre-5.4-pristine-source
(let ((version linux-libre-5.4-version)
(hash (base32 "1rr6mnkbw6gwdm9bqjhf4z2xqr458fn2qdv5b4mgm65a15gvmchz")))
(hash (base32 "1iyrm2xql15ifhy2b939ywrrc44yd41b79sjjim4vqxmc6lqsq2i")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.4)))
(define-public linux-libre-4.19-version "4.19.291")
(define-public linux-libre-4.19-version "4.19.292")
(define-public linux-libre-4.19-gnu-revision "gnu1")
(define deblob-scripts-4.19
(linux-libre-deblob-scripts
@ -575,12 +576,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1425mhkfxn18vxn05bb4h3li7x1jl7l1hf1zi8xhnqv3wa31h9wl")))
(define-public linux-libre-4.19-pristine-source
(let ((version linux-libre-4.19-version)
(hash (base32 "0cxmq8mrkw179jb8sqvad3dskllwn579g2lxcjn21jyqsf85nwz6")))
(hash (base32 "0dr12v4jqmzxcqdghqqjny5zp3g4dx9lxqrl9d4fxz23s79ji5rl")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.19)))
(define-public linux-libre-4.14-version "4.14.322")
(define-public linux-libre-4.14-version "4.14.323")
(define-public linux-libre-4.14-gnu-revision "gnu1")
(define deblob-scripts-4.14
(linux-libre-deblob-scripts
@ -590,7 +591,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1faagsj4i31z2bp83hflx3q9vrddjnn37a3ah2b47iaplva7z1nd")))
(define-public linux-libre-4.14-pristine-source
(let ((version linux-libre-4.14-version)
(hash (base32 "1r71g5p0cnbi0nixv91nyhv24dqmvh49rqb2lnbhsdq81fqm8ssm")))
(hash (base32 "1g2fh0mn1sv0kq2hh3pynmx2fjai7hdwhf4fnaspl7j5n88902kg")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-4.14)))
@ -3121,27 +3122,6 @@ early boot when entropy may be low, especially in virtualised environments.")
(license (list license:bsd-3 ; or
license:gpl2+))))
(define-public lsscsi
(package
(name "lsscsi")
(version "0.32")
(source (origin
(method url-fetch)
(uri (string-append
"http://sg.danny.cz/scsi/lsscsi-" version ".tar.xz"))
(sha256
(base32
"0jp458m2b3wckr18qkln69i01152qlwz33zm49103lq8fgx0n6d4"))))
(build-system gnu-build-system)
(synopsis "Lists information about SCSI or NVMe devices in Linux")
(home-page "https://sg.danny.cz/scsi/lsscsi.html")
(description
"@command{lsscsi} lists SCSI logical units or SCSI targets. It can
also list NVMe namespaces or controllers and show the relationship between a
device's primary node name, its SCSI generic (sg) node name and its kernel
name.")
(license license:gpl2)))
(define-public ebtables
(package
(name "ebtables")
@ -5023,6 +5003,7 @@ in a digital read-out.")
elfutils
libiberty ;used alongside BDF for symbol demangling
libunwind ;better stack walking
libtraceevent
numactl ;for 'perf bench numa mem'
;; Documentation.
libxml2 ;for $XML_CATALOG_FILES
@ -5148,44 +5129,6 @@ existing Docker images. Singularity requires kernel support for container
isolation or root privileges.")
(license license:bsd-3)))
(define-public hdparm
(package
(name "hdparm")
(version "9.65")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/hdparm/hdparm/"
"hdparm-" version ".tar.gz"))
(sha256
(base32
"0jssagggg52ssl9kg99m88afghj7bm1854vyf4p96q6h23wjjjfi"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags
#~(list (string-append "binprefix=" #$output)
(string-append "manprefix=" #$output)
(string-append "CC=" #$(cc-for-target))
;; Let Guix strip binaries and not break cross-compilation.
"STRIP=true")
#:phases
#~(modify-phases %standard-phases
(delete 'configure)) ; no configure script
#:tests? #f)) ; no test suite
(home-page "https://sourceforge.net/projects/hdparm/")
(synopsis "View and tune ATA disk drive parameters")
(description
"@command{hdparm} is a command-line utility to control ATA controllers and
disk drives. It can increase performance and/or reliability by careful tuning
of hardware settings like power and acoustic management, DMA modes, and caching.
It can also display detailed device information, or be used as a simple
performance benchmarking tool.
@command{hdparm} provides a command line interface to various Linux kernel
interfaces provided by the SATA/ATA/SAS @code{libata} subsystem, and the older
IDE driver subsystem. Many external USB drive enclosures with SCSI-ATA Command
Translation (@dfn{SAT}) are also supported.")
(license (license:non-copyleft "file://LICENSE.TXT"))))
(define-public libnvme
(package
(name "libnvme")
@ -10145,7 +10088,7 @@ with the value and the symbolic name.")
(define-public tp-smapi-module
(package
(name "tp-smapi-module")
(version "0.43")
(version "0.44")
(source (origin
(method git-fetch)
(uri (git-reference
@ -10154,7 +10097,7 @@ with the value and the symbolic name.")
(file-name (git-file-name name version))
(sha256
(base32
"1rjb0njckczc2mj05cagvj0lkyvmyk6bw7wkiinv81lw8m90g77g"))))
"0kzbks07bh5jbi1n311zp9cbp1xxyzi7nys8wq1k0k5ig81h9w6k"))))
(build-system linux-module-build-system)
(arguments
`(#:tests? #f)) ;there are none.

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

@ -38,6 +38,7 @@
;;; Copyright © 2022 Trevor Richards <trev@trevdev.ca>
;;; Copyright © 2022, 2023 Artyom Bologov <mail@aartaka.me>
;;; Copyright © 2023 Roman Scherer <roman@burningswell.com>
;;; Copyright © 2023 ykonai <mail@ykonai.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -5486,25 +5487,25 @@ client and server.")
(sbcl-package->cl-source-package sbcl-trivial-arguments))
(define-public sbcl-trivial-clipboard
(let ((commit "13b53720306c0e6a13eccf4674d28ee5361127ae"))
(let ((commit "6ddf8d5dff8f5c2102af7cd1a1751cbe6408377b")
(revision "6"))
(package
(name "sbcl-trivial-clipboard")
(version (git-version "0.0.0.0" "5" commit))
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/snmsts/trivial-clipboard")
(commit commit)))
(file-name (git-file-name "trivial-clipboard" version))
(file-name (git-file-name "cl-trivial-clipboard" version))
(sha256
(base32
"0l198m1gg2ixc43lqjq1ffd80s1sjxhqf1w83qqa1cn51rra2jp8"))))
(base32 "04qmm69zyx8rs23pfhgzgxn0j108byv3b7skfdv0h01a76wlhplz"))))
(build-system asdf-build-system/sbcl)
(inputs
;; Pick xsel instead of xclip because its closure size is slightly
;; smaller.
(list xsel))
(list wl-clipboard xsel))
(native-inputs
(list sbcl-fiveam))
(arguments
@ -5514,7 +5515,15 @@ client and server.")
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/text.lisp"
(("\"xsel\"")
(string-append "\"" (assoc-ref inputs "xsel") "/bin/xsel\""))))))))
(string-append "\"" (assoc-ref inputs "xsel") "/bin/xsel\""))
(("\"wl-copy\"")
(string-append "\""
(assoc-ref inputs "wl-clipboard")
"/bin/wl-copy\""))
(("\"wl-paste\"")
(string-append "\""
(assoc-ref inputs "wl-clipboard")
"/bin/wl-paste\""))))))))
(home-page "https://github.com/snmsts/trivial-clipboard")
(synopsis "Access system clipboard in Common Lisp")
(description
@ -9556,8 +9565,8 @@ function.")
(sbcl-package->cl-source-package sbcl-specialization-store))
(define-public sbcl-cl-gobject-introspection
(let ((commit "d0136c8d9ade2560123af1fc55bbf70d2e3db539")
(revision "1"))
(let ((commit "c4fef07d01cec7c830ce84ef150ed8e4da5959c4")
(revision "2"))
(package
(name "sbcl-cl-gobject-introspection")
(version (git-version "0.3" revision commit))
@ -9568,18 +9577,17 @@ function.")
(uri (git-reference
(url home-page)
(commit commit)))
(file-name (git-file-name name version))
(file-name (git-file-name "cl-gobject-introspection" version))
(sha256
(base32
"0dz0r73pq7yhz2iq2jnkq977awx2zws2qfxdcy33329sys1ii32p"))))
(base32 "18n4wg93sf6cjmpcpr47bg2rd8mbm9ml9lykmjsxgvsf3nwr5vnw"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("alexandria" ,sbcl-alexandria)
("cffi" ,sbcl-cffi)
("iterate" ,sbcl-iterate)
("trivial-garbage" ,sbcl-trivial-garbage)
("glib" ,glib)
("gobject-introspection" ,gobject-introspection)))
(list glib
gobject-introspection
sbcl-alexandria
sbcl-cffi
sbcl-iterate
sbcl-trivial-garbage))
(native-inputs
(list sbcl-fiveam))
(arguments
@ -9608,6 +9616,113 @@ of C+GObject libraries without the need of writing dedicated bindings.")
(define-public ecl-cl-gobject-introspection
(sbcl-package->ecl-package sbcl-cl-gobject-introspection))
(define-public sbcl-cl-gobject-introspection-wrapper
(let ((commit "2d197cba7e7d734ac8a2e181e5e709e5b218bada")
(revision "1"))
(package
(name "sbcl-cl-gobject-introspection-wrapper")
(version (git-version "1.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/bohonghuang/cl-gobject-introspection-wrapper")
(commit commit)))
(file-name (git-file-name "cl-gobject-introspection-wrapper" version))
(sha256
(base32 "05np2zs5806ib6qfz7d6knyaz6llxgwvjqavl1fsz5hcga40296s"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-alexandria
sbcl-cl-gobject-introspection
sbcl-cl-ppcre))
(home-page
"https://github.com/bohonghuang/cl-gobject-introspection-wrapper")
(synopsis
"Wrap and call GObject Introspection FFI function in Common Lisp")
(description
"This library converts the elements from GObject Introspection into
Common Lisp-style definitions, based on cl-gobject-introspection.")
(license license:lgpl3+))))
(define-public cl-gobject-introspection-wrapper
(sbcl-package->cl-source-package sbcl-cl-gobject-introspection-wrapper))
(define-public ecl-cl-gobject-introspection-wrapper
(sbcl-package->ecl-package sbcl-cl-gobject-introspection-wrapper))
(define-public sbcl-cl-glib
(let ((commit "9e52827cce1cbb3962536b6a5e628febab593f57")
(revision "1"))
(package
(name "sbcl-cl-glib")
(version (git-version "1.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/bohonghuang/cl-glib")
(commit commit)))
(file-name (git-file-name "cl-glib" version))
(sha256
(base32 "0dxa493zdp1p93cahhpp3yaggn3j3kkn90mdw99g4ld7scmiglp4" ))))
(build-system asdf-build-system/sbcl)
(arguments
'(#:asd-systems '("cl-gio" "cl-glib" "cl-gobject")))
(inputs
(list glib
gobject-introspection
sbcl-bordeaux-threads
sbcl-cl-gobject-introspection-wrapper))
(home-page "https://github.com/bohonghuang/cl-glib")
(synopsis "Glib, GIO and Gobject bindings for Common Lisp")
(description "This library provides Glib, GIO and Gobject bindings for
Common Lisp via Gobject Introspection.")
(license license:lgpl3+))))
(define-public cl-glib
(sbcl-package->cl-source-package sbcl-cl-glib))
(define-public ecl-cl-glib
(sbcl-package->ecl-package sbcl-cl-glib))
(define-public sbcl-cl-gtk4
(let ((commit "d116905e7b68508d03681a50b3b24d63e7b111e4")
(revision "1"))
(package
(name "sbcl-cl-gtk4")
(version (git-version "1.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/bohonghuang/cl-gtk4")
(commit commit)))
(file-name (git-file-name "cl-gtk4" version))
(sha256
(base32 "0mprmmvbagnflvhynn51l42nbwr08rld99ls0c48m5lpjn0ja4zc"))))
(build-system asdf-build-system/sbcl)
(arguments
'(#:asd-systems '("cl-gtk4" "cl-gdk4")))
;; propagate because it at least requires the typelib files at runtime
(propagated-inputs (list gtk))
(inputs
(list gobject-introspection
sbcl-cl-glib
sbcl-cl-gobject-introspection-wrapper))
(home-page "https://github.com/bohonghuang/cl-gtk4")
(synopsis "GTK4 bindings for Common Lisp")
(description
"This library provides GTK4 bindings for Common Lisp via Gobject
Introspection, in the cl-gtk4 ASDF system.")
(license license:lgpl3))))
(define-public cl-gtk4
(sbcl-package->cl-source-package sbcl-cl-gtk4))
(define-public ecl-cl-gtk4
(sbcl-package->ecl-package sbcl-cl-gtk4))
(define-public sbcl-cl-slug
(let ((commit "ffb229d10f0d3f7f54e706791725225e200bf749")
(revision "1"))
@ -25708,10 +25823,10 @@ change since last write.
(package-inputs sbcl-nfiles)))))
(define-public sbcl-nasdf
(let ((commit "73c89680ace25929c2a1ccc0809db99e9edffa07"))
(let ((commit "dd9fb2df7174464b54561b2a2f3c3e00fdd5d4f7"))
(package
(name "sbcl-nasdf")
(version "0.1.6")
(version "0.1.7")
(source
(origin
(method git-fetch)
@ -25720,20 +25835,19 @@ change since last write.
(commit commit)))
(file-name (git-file-name "cl-ntemplate" version))
(sha256
(base32
"193wwcp84pyyv33pkkm41s7ca2limpcqqi41hxd1pm5il5r9q9h7"))))
(base32 "1q8ky8hz8xrr37h7yyc6ysvrcwlsp1i6r2x44c060drspgjbqj70"))))
(build-system asdf-build-system/sbcl)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'cd-sdl
(lambda _
(chdir "nasdf")
#t)))))
(chdir "nasdf"))))))
(home-page "https://github.com/atlas-engineer/ntemplate")
(synopsis "ASDF helpers for system setup, testing and installation")
(description
"NASDF is an ASDF extension providing utilities to ease system setup, testing and installation.
"NASDF is an ASDF extension providing utilities to ease system setup,
testing and installation.
@itemize
@item Simple way to fetch Git submodules and “do the right thing” for

4
gnu/packages/lua.scm
View file

@ -1190,7 +1190,7 @@ enabled.")
(define-public fennel
(package
(name "fennel")
(version "1.3.0")
(version "1.3.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1199,7 +1199,7 @@ enabled.")
(file-name (git-file-name name version))
(sha256
(base32
"1g22y0bpw1ads6bmsr946fw1m5xxvlvb1hdym3f3k3fziislwwhd"))))
"12zm3rd0vvkqazv1cv5bhwk6igsj18im2qakqw7cf4a20rc9wpmx"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags #~(list (string-append "PREFIX="

4
gnu/packages/lxqt.scm
View file

@ -2,7 +2,7 @@
;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2015, 2022 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2016 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019 Meiyo Peng <meiyo@riseup.net>
@ -909,7 +909,7 @@ image viewer.")
(inputs
(list imlib2
libsm
librsvg
(librsvg-for-system)
libxft
libxml2
openbox

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

@ -408,7 +408,7 @@ Performance is achieved by using the LLVM JIT compiler.")
(deprecated-package "guile-aiscm-next" guile-aiscm))
(define-public llama-cpp
(let ((commit "3cd8dde0d1357b7f11bdd25c45d5bf5e97e284a0")
(let ((commit "f31b5397143009d682db90fd2a6cde83f1ef00eb")
(revision "0"))
(package
(name "llama-cpp")
@ -421,7 +421,7 @@ Performance is achieved by using the LLVM JIT compiler.")
(commit (string-append "master-" (string-take commit 7)))))
(file-name (git-file-name name version))
(sha256
(base32 "0i7c92cxqs31xklrn688978kk29agivgxjgvsb45wzm65gc6hm5c"))))
(base32 "0ys6n53n032zq1ll9f3vgxk8sw0qq7x3fi7awsyy13adzp3hn08p"))))
(build-system cmake-build-system)
(arguments
(list
@ -449,18 +449,13 @@ Performance is achieved by using the LLVM JIT compiler.")
(chmod (string-append bin script) #o555)))
(mkdir-p bin)
(make-script "convert-pth-to-ggml")
(make-script "convert-gptq-to-ggml")
(make-script "quantize.py")
(substitute* (string-append bin "quantize.py")
(("os\\.getcwd\\(\\), quantize_script_binary")
(string-append "\"" bin "\", quantize_script_binary"))))))
(make-script "convert-lora-to-ggml")
(make-script "convert"))))
(add-after 'install-python-scripts 'wrap-python-scripts
(assoc-ref python:%standard-phases 'wrap))
(replace 'install
(lambda _
(let ((bin (string-append #$output "/bin/")))
(install-file "bin/quantize" bin)
(copy-file "bin/main" (string-append bin "llama"))))))))
(copy-file "bin/main" (string-append #$output "/bin/llama")))))))
(inputs (list python))
(propagated-inputs
(list python-numpy python-pytorch python-sentencepiece))

61
gnu/packages/mail.scm
View file

@ -70,9 +70,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages mail)
#:use-module (guix gexp)
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages admin)
#:use-module (gnu packages aspell)
#:use-module (gnu packages autotools)
@ -98,6 +96,7 @@
#:use-module (gnu packages emacs)
#:use-module (gnu packages enchant)
#: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)
@ -105,15 +104,14 @@
#:use-module (gnu packages gettext)
#:use-module (gnu packages ghostscript)
#:use-module (gnu packages glib)
#:use-module (gnu packages golang)
#:use-module (gnu packages gnome)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages golang)
#:use-module (gnu packages groff)
#:use-module (gnu packages gsasl)
#:use-module (gnu packages gtk)
#:use-module (gnu packages guile)
#:use-module (gnu packages guile-xyz)
#:use-module (gnu packages flex)
#:use-module (gnu packages haskell-xyz)
#:use-module (gnu packages icu4c)
#:use-module (gnu packages kerberos)
@ -134,8 +132,8 @@
#:use-module (gnu packages nettle)
#:use-module (gnu packages networking)
#:use-module (gnu packages ninja)
#:use-module (gnu packages openldap)
#:use-module (gnu packages onc-rpc)
#:use-module (gnu packages openldap)
#:use-module (gnu packages pcre)
#:use-module (gnu packages pdf)
#:use-module (gnu packages perl)
@ -150,15 +148,15 @@
#:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages ragel)
#:use-module (gnu packages regex)
#:use-module (gnu packages rdf)
#:use-module (gnu packages readline)
#:use-module (gnu packages regex)
#: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)
#:use-module (gnu packages screen)
#:use-module (gnu packages search)
#:use-module (gnu packages serialization)
#:use-module (gnu packages sphinx)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages tcl)
@ -170,29 +168,30 @@
#:use-module (gnu packages web)
#:use-module (gnu packages webkit)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages xorg)
#:use-module (gnu packages xml)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix deprecation)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix svn-download)
#:use-module (guix utils)
#:use-module (gnu packages xorg)
#:use-module (gnu packages)
#:use-module (guix build-system cmake)
#:use-module (guix build-system emacs)
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system go)
#:use-module (guix build-system gnu)
#:use-module (guix build-system go)
#:use-module (guix build-system guile)
#:use-module (guix build-system emacs)
#:use-module (guix build-system meson)
#:use-module (guix build-system perl)
#:use-module (guix build-system python)
#:use-module (guix build-system pyproject)
#:use-module (guix build-system python)
#:use-module (guix build-system trivial)
#:use-module (srfi srfi-1)
#:use-module (ice-9 match))
#:use-module (guix deprecation)
#:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module (guix packages)
#:use-module (guix svn-download)
#:use-module (guix utils)
#:use-module (guix utils)
#:use-module (ice-9 match)
#:use-module (srfi srfi-1))
(define-public abook
(package
@ -4552,7 +4551,7 @@ on RFC 3501 and original @code{imaplib} module.")
(define-public rspamd
(package
(name "rspamd")
(version "3.5")
(version "3.6")
(source
(origin
(method git-fetch)
@ -4560,24 +4559,24 @@ on RFC 3501 and original @code{imaplib} module.")
(url "https://github.com/rspamd/rspamd")
(commit version)))
(sha256
(base32 "1d45vhs66r6ig5mvmx52i7c2b638y2zc7wgv3lx0pq7dqgjxxsyz"))
(base32 "1ra18c3wczbdqrg9p69k04smjskjkdpxcfff9ff4yi7pmqjaxr8s"))
(file-name (git-file-name name version))))
(build-system cmake-build-system)
(arguments
'(#:configure-flags '("-DENABLE_LUAJIT=ON"
"-DLOCAL_CONFDIR=/etc/rspamd")))
(inputs
(list openssl
(list file
glib
ragel
luajit
sqlite
file
icu4c
libsodium
luajit
openssl
pcre2
zlib
perl
libsodium))
ragel
sqlite
zlib))
(native-inputs
(list pkg-config))
(synopsis "Spam filtering system")

4
gnu/packages/mastodon.scm
View file

@ -87,7 +87,7 @@ Features include:
(define-public tuba
(package
(name "tuba")
(version "0.3.2")
(version "0.4.1")
(source
(origin
(method git-fetch)
@ -96,7 +96,7 @@ Features include:
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1xhyz6wi17g4m76lr6qc75q4xnnw7c3dh3d04dg8m5gzk6j0y89x"))))
(base32 "0v2ihp1dkp13jklp3kysv4blflhx3w0hwcyink4mb7hwsaqy0xnm"))))
(build-system meson-build-system)
(arguments
(list

171
gnu/packages/maths.scm
View file

@ -1552,26 +1552,6 @@ extremely large and complex data collections.")
(base32 "14gih7kmjx4h3lc7pg4fwcl28hf1qqkf2x7rljpxqvzkjrqbxi00"))
(patches (search-patches "hdf5-config-date.patch"))))))
(define-public hdf5-1.12
(package
(inherit hdf5-1.8)
(version "1.12.2")
(source
(origin
(method url-fetch)
(uri (list (string-append "https://support.hdfgroup.org/ftp/HDF5/releases/"
"hdf5-" (version-major+minor version)
"/hdf5-" version "/src/hdf5-"
version ".tar.bz2")
(string-append "https://support.hdfgroup.org/ftp/HDF5/"
"current"
(apply string-append
(take (string-split version #\.) 2))
"/src/hdf5-" version ".tar.bz2")))
(sha256
(base32 "1zlawdzb0gsvcxif14fwr5ap2gk4b6j02wirr2hcx8hkcbivp20s"))
(patches (search-patches "hdf5-config-date.patch"))))))
(define-public hdf5-1.14
(package
(inherit hdf5-1.8)
@ -2599,78 +2579,81 @@ fixed point (16.16) format.")
(license license:expat))))
(define-public libflame
(package
(name "libflame")
(version "5.2.0")
(outputs '("out" "static"))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/flame/libflame")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1n6lf0wvpp77lxqlr721h2jbfbzigphdp19wq8ajiccilcksh7ay"))))
(build-system gnu-build-system)
(arguments
(list #:configure-flags
;; Sensible defaults: https://github.com/flame/libflame/issues/28
#~(list "--enable-dynamic-build"
"--enable-max-arg-list-hack"
"--enable-lapack2flame"
"--enable-verbose-make-output"
"--enable-multithreading=pthreads" ; Openblas isn't built with openmp.
#$@(if (target-x86?)
#~("--enable-vector-intrinsics=sse")
#~())
"--enable-supermatrix"
"--enable-memory-alignment=16"
"--enable-ldim-alignment")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-/usr/bin/env-bash
(lambda _
(substitute* "build/config.mk.in"
(("/usr/bin/env bash")
(which "bash")))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(substitute* "test/Makefile"
(("LIBBLAS .*")
"LIBBLAS = -lblas\n")
(("LIBLAPACK .*")
"LIBLAPACK = -llapack\n"))
(when tests?
(with-directory-excursion "test"
(mkdir "obj")
(invoke "make")
(invoke "./test_libflame.x")))))
(add-after 'install 'install-static
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(static (assoc-ref outputs "static")))
(mkdir-p (string-append static "/lib"))
(rename-file (string-append out
"/lib/libflame.a")
(string-append static
"/lib/libflame.a"))
(install-file (string-append out
"/include/FLAME.h")
(string-append static "/include"))))))))
(inputs (list gfortran))
(native-inputs (list lapack perl python-wrapper))
(home-page "https://github.com/flame/libflame")
(synopsis "High-performance library for @acronym{DLA, dense linear algebra} computations")
(description "@code{libflame} is a portable library for dense matrix
;; The latest release (5.2.0) dates back to 2019. Use a newer one, which
;; among other things provides extra LAPACK symbols, such as 'dgemlq_'
;; (needed by LAPACKe).
(let ((commit "70c19e770ead0ae846c59b59216deb16d236b40c")
(revision "0"))
(package
(name "libflame")
(version (git-version "5.2.0" revision commit))
(outputs '("out" "static"))
(home-page "https://github.com/flame/libflame")
(source (origin
(method git-fetch)
(uri (git-reference (url home-page) (commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0rk8ln5p4yybsws6p60w0vkxbqp53jddv90brlgf60mk6lv51sxl"))))
(build-system gnu-build-system)
(arguments
(list #:configure-flags
;; Sensible defaults: https://github.com/flame/libflame/issues/28
#~(list "--enable-dynamic-build"
"--enable-max-arg-list-hack"
"--enable-lapack2flame"
"--enable-verbose-make-output"
"--enable-multithreading=pthreads" ; Openblas isn't built with openmp.
#$@(if (target-x86?)
#~("--enable-vector-intrinsics=sse")
#~())
"--enable-supermatrix"
"--enable-memory-alignment=16"
"--enable-ldim-alignment")
#:make-flags #~(list "FC=gfortran -fPIC")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-/usr/bin/env-bash
(lambda _
(substitute* "build/config.mk.in"
(("/usr/bin/env bash")
(which "bash")))))
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(substitute* "test/Makefile"
(("LIBBLAS .*")
"LIBBLAS = -lblas\n")
(("LIBLAPACK .*")
"LIBLAPACK = -llapack\n"))
(when tests?
(with-directory-excursion "test"
(mkdir "obj")
(invoke "make")
(invoke "./test_libflame.x")))))
(add-after 'install 'install-static
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(static (assoc-ref outputs "static")))
(mkdir-p (string-append static "/lib"))
(rename-file (string-append out
"/lib/libflame.a")
(string-append static
"/lib/libflame.a"))
(install-file (string-append out
"/include/FLAME.h")
(string-append static "/include"))))))))
(inputs (list gfortran))
(native-inputs (list lapack perl python-wrapper))
(synopsis "High-performance library for @acronym{DLA, dense linear algebra} computations")
(description "@code{libflame} is a portable library for dense matrix
computations, providing much of the functionality present in LAPACK, developed
by current and former members of the @acronym{SHPC, Science of High-Performance
Computing} group in the @url{https://www.ices.utexas.edu/, Institute for
Computational Engineering and Sciences} at The University of Texas at Austin.
@code{libflame} includes a compatibility layer, @code{lapack2flame}, which
includes a complete LAPACK implementation.")
(license license:bsd-3)))
(license license:bsd-3))))
(define-public scasp
(let ((commit "89a427aa04ec6346425a40111c99b310901ffe51")
@ -6555,17 +6538,15 @@ reduction.")
(define-public mcrl2
(package
(name "mcrl2")
(version "202206.0")
(version "202206.1")
(source (origin
(method url-fetch)
(uri (string-append
"https://www.mcrl2.org/download/release/mcrl2-"
version ".tar.gz"))
(patches (search-patches "mcrl2-fix-1687.patch"
"mcrl2-fix-counterexample.patch"))
(sha256
(base32
"0alpck09pbvwk4axqmrvcjmsabsn20yayq5b3apq284n0hcbf01q"))))
"1rbfyw47bi31qla1sa4fd1npryb5kbdr0vijmdc2gg1zhpqfv0ia"))))
(inputs
(list boost glu mesa qtbase-5))
(build-system cmake-build-system)
@ -8456,15 +8437,15 @@ computation is supported via MPI.")
(define-public scilab
(package
(name "scilab")
(version "5.5.0")
(version "5.5.2")
(source
(origin
(method url-fetch)
(uri
(string-append "https://oos.eu-west-2.outscale.com/scilab-releases/"
(string-append "https://www.scilab.org/download/"
version "/scilab-" version "-src.tar.gz"))
(sha256
(base32 "1hx57aji5d78brwqcf8a34i1hasm3h4nw46xjg7cgxj09s8yz5kq"))))
(base32 "0phg9pn24yw98hbh475ik84dnikf1225b2knh7qbhdbdx6fm2d57"))))
(build-system gnu-build-system)
(native-inputs (list pkg-config gfortran))
(inputs (list libxml2
@ -8548,6 +8529,10 @@ computation is supported via MPI.")
"__threadSignal InterpReady;" "\n"
"__threadSignalLock InterpReadyLock;"
"\n")))
;; Fix CPP compilation errors.
(substitute* "modules/output_stream/src/cpp/diary_manager.cpp"
(("if \\(array_size > 0\\)")
"if (*array_size > 0)"))
;; Set SCIHOME to /tmp before macros compilation.
(setenv "SCIHOME" "/tmp"))))))
(home-page "https://scilab.org")

100
gnu/packages/mc.scm
View file

@ -2,7 +2,7 @@
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018–2021, 2023 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -21,6 +21,7 @@
(define-module (gnu packages mc)
#:use-module (gnu packages aspell)
#:use-module (gnu packages bash)
#:use-module (gnu packages check)
#:use-module (gnu packages compression)
#:use-module (gnu packages glib)
@ -32,69 +33,82 @@
#:use-module (gnu packages)
#:use-module (guix build-system gnu)
#:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix licenses)
#:use-module (guix packages))
(define-public mc
(package
(name "mc")
(version "4.8.29")
(version "4.8.30")
(source
(origin
(method url-fetch)
(uri (string-append "https://ftp.osuosl.org/pub/midnightcommander/mc-"
version ".tar.xz"))
(sha256
(base32 "1m0aai4paxpcf3lw1dd94zyxc7wd0ysmfwpibg50q62q9yws7n01"))))
(base32 "1py7jm620lsas7rcv5j69608gdshmp25d9gx958hr5sb2jr3rg2y"))))
(build-system gnu-build-system)
(arguments
(list
#:configure-flags
#~(list "--with-screen=ncurses"
"--enable-aspell"
"--disable-configure-args" ; don't keep superfluous references
(string-append "PERL_FOR_BUILD=" ; to build .hlp files
#$(this-package-native-input "perl") "/bin/perl")
(string-append "PERL=" ; for run-time helpers, mainly VFS
#$(this-package-input "perl") "/bin/perl"))
#:phases
#~(modify-phases %standard-phases
(add-after 'patch-source-shebangs 'patch-file-names
(lambda* (#:key inputs #:allow-other-keys)
;; The following commands are all invoked at run time.
(substitute*
(list "lib/utilunix.c"
"src/filemanager/ext.c"
"src/usermenu.c"
"src/vfs/fish/fish.c"
;; This file hard-codes other shells, but they're never
;; tried after mc's first choice (bash) is found.
"lib/shell.c")
(("/bin/(ba|)sh" file)
(search-input-file inputs file)))
(substitute* "src/filemanager/ext.c"
;; Look up in $PATH at run time, rather than hard-coding now.
(("/bin/(rm)" command)
command))
(substitute* "misc/mcedit.menu.in"
;; These are script templates. Don't embed store file names.
(("#! /bin/([[:alnum:]]*)" _ file)
(string-append "#!/usr/bin/env " file)))
;; The following commands are all invoked at build time.
(substitute* "tests/src/vfs/extfs/helpers-list/Makefile.in"
(("/bin/sh")
(which "sh")))))
(add-before 'check 'fix-tests
(lambda _
;; Don't expect a UID or GID of ‘0’ in the build environment.
(with-directory-excursion "tests/src/vfs/extfs/helpers-list/data"
(substitute* (list "rpm.custom.output"
"rpm.glib.output")
((" 0 0") "<<uid>> <<gid>>")))
;; XXX ERROR:mc_realpath.c:99:realpath_test: assertion failed
;; (resolved_path == data->expected_string): ("" == "/usr/bin")
(substitute* "tests/lib/mc_realpath.c"
(("/usr/bin") "/")
(("usr/bin") "/")))))))
(native-inputs (list perl pkg-config))
(inputs (list aspell
bash-minimal
check
glib
gpm
libssh2
ncurses
perl
unzip))
(arguments
`(#:configure-flags
'("--with-screen=ncurses" "--enable-aspell")
#:phases
(modify-phases %standard-phases
(add-after 'patch-source-shebangs 'patch-FHS-file-names
(lambda _
;; Patch files to refer to executables in the store or $PATH.
(substitute* "misc/mcedit.menu.in"
(("#! /bin/sh") (string-append "#!" (which "sh")))
(("/bin/bash") (which "bash")))
(substitute* "misc/ext.d/misc.sh.in"
(("/bin/cat") "cat"))
(substitute* (list "lib/utilunix.c"
"src/usermenu.c"
"src/vfs/fish/fish.c"
"tests/src/vfs/extfs/helpers-list/Makefile.in")
(("/bin/sh") (which "sh")))
(substitute* "src/filemanager/ext.c"
(("/bin/rm") "rm")
(("/bin/sh") (which "sh")))
;; There are other /bin/<shell>s hard-coded in this file, but they
;; are never tried after bash (mc's first choice) is found.
(substitute* "lib/shell.c"
(("/bin/bash") (which "bash")))
#t))
(add-before 'check 'fix-tests
(lambda _
;; Don't expect a UID or GID of ‘0’ in the build environment.
(with-directory-excursion "tests/src/vfs/extfs/helpers-list/data"
(substitute* (list "rpm.custom.output"
"rpm.glib.output")
((" 0 0") "<<uid>> <<gid>>")))
;; XXX ERROR:mc_realpath.c:99:realpath_test: assertion failed
;; (resolved_path == data->expected_string): ("" == "/usr/bin")
(substitute* "tests/lib/mc_realpath.c"
(("/usr/bin") "/")
(("usr/bin") "/"))
#t)))))
(home-page "https://www.midnight-commander.org")
(properties
`((release-monitoring-url . "https://ftp.osuosl.org/pub/midnightcommander/")))

2
gnu/packages/messaging.scm
View file

@ -1372,7 +1372,7 @@ Encryption to Gajim.")
at-spi2-core
bash-minimal
cairo
librsvg
(librsvg-for-system)
glib
glib-networking
gpgme

8
gnu/packages/mingw.scm
View file

@ -46,7 +46,7 @@ specified, recurse and return a mingw-w64 with support for winpthreads."
(package
(name (string-append "mingw-w64" "-" machine
(if with-winpthreads? "-winpthreads" "")))
(version "11.0.0")
(version "11.0.1")
(source
(origin
(method url-fetch)
@ -54,7 +54,7 @@ specified, recurse and return a mingw-w64 with support for winpthreads."
"mirror://sourceforge/mingw-w64/mingw-w64/"
"mingw-w64-release/mingw-w64-v" version ".tar.bz2"))
(sha256
(base32 "0pycbxlqh8gj2zp3k531p0r4m7ay6f4nhs9sq9620c6q7dis23mx"))
(base32 "047f4m37kxf7g8qj23qplrzfd9cirfkkv8d175sfv2zfd7hbqriz"))
(patches
(search-patches "mingw-w64-6.0.0-gcc.patch"
"mingw-w64-dlltool-temp-prefix.patch"
@ -144,7 +144,7 @@ several new APIs such as DirectX and DDK, and 64-bit support.")
(define-public mingw-w64-tools
(package
(name "mingw-w64-tools")
(version "11.0.0")
(version "11.0.1")
(source
(origin
(method url-fetch)
@ -152,7 +152,7 @@ several new APIs such as DirectX and DDK, and 64-bit support.")
"mirror://sourceforge/mingw-w64/mingw-w64/"
"mingw-w64-release/mingw-w64-v" version ".tar.bz2"))
(sha256
(base32 "0pycbxlqh8gj2zp3k531p0r4m7ay6f4nhs9sq9620c6q7dis23mx"))))
(base32 "047f4m37kxf7g8qj23qplrzfd9cirfkkv8d175sfv2zfd7hbqriz"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((guix build gnu-build-system)

4
gnu/packages/mpd.scm
View file

@ -615,7 +615,7 @@ mpdevil loads all tags and covers on demand.")
(define-public mympd
(package
(name "mympd")
(version "11.0.2")
(version "11.0.4")
(source (origin
(method git-fetch)
(uri (git-reference
@ -624,7 +624,7 @@ mpdevil loads all tags and covers on demand.")
(file-name (git-file-name name version))
(sha256
(base32
"0n6dyy6znzicm5v9mkcghm3lwi6zwysnpr0drvacqprr0r5l596a"))))
"0ki9az71x35548mnl5assb0hgli3bvrbzv0fb5dfli4q5i1z8fmq"))))
(build-system cmake-build-system)
(arguments
(list

6
gnu/packages/music.scm
View file

@ -3,7 +3,7 @@
;;; Copyright © 2015-2023 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
;;; Copyright © 2016 Al McElrath <hello@yrns.org>
;;; Copyright © 2016, 2017, 2019, 2021, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017, 2019, 2021-2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2018, 2021 Leo Famulari <leo@famulari.name>
;;; Copyright © 2016, 2017, 2019 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2016 John J. Foerch <jjfoerch@earthlink.net>
@ -752,7 +752,7 @@ many input formats and provides a customisable Vi-style user interface.")
gtk+
gtksourceview-3
guile-2.0
librsvg
(librsvg-for-system)
libsndfile
libxml2
lilypond
@ -7223,7 +7223,7 @@ streaming audio server.")
gtksourceview-4 ; undo, redo, multiline text fields
hicolor-icon-theme
keybinder-3.0 ; keybindings outside of GNOME
librsvg
(librsvg-for-system)
libsoup-minimal-2
python
python-cheetah

40
gnu/packages/networking.scm
View file

@ -14,7 +14,7 @@
;;; Copyright © 2016, 2017 Pjotr Prins <pjotr.guix@thebird.nl>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2017, 2020, 2021 Leo Famulari <leo@famulari.name>
;;; Copyright © 2017-2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017-2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2017, 2019 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
@ -959,7 +959,7 @@ systems with no further dependencies.")
(inputs
(list bluez
dbus
librsvg
(librsvg-for-system)
glib
gtk+
iproute
@ -4615,6 +4615,42 @@ that vnStat won't actually be sniffing any traffic and also ensures light use
of system resources regardless of network traffic rate.")
(license license:gpl2+)))
(define-public dnstracer
(package
(name "dnstracer")
(version "1.10")
(source (origin
(method url-fetch)
(uri (string-append "http://www.mavetju.org/download/"
name "-" version ".tar.bz2"))
(sha256
(base32
"089bmrjnmsga2n0r4xgw4bwbf41xdqsnmabjxhw8lngg2pns1kb4"))))
(build-system gnu-build-system)
(arguments
(list #:tests? #f ;no test suite
#:make-flags #~(list (string-append "PREFIX=" #$output)
(string-append "CC=" #$(cc-for-target)))
#:phases #~(modify-phases %standard-phases
(add-after 'unpack 'patch-makefile
(lambda _
(substitute* "Makefile"
(("\\$\\{PREFIX}/man")
"${PREFIX}/share/man")
(("^install:.*" all)
(string-append
all
"\tinstall -d ${BINPREFIX}\n"
"\tinstall -d ${MANPREFIX}\n")))))
(delete 'configure))))
(native-inputs (list perl)) ;for pod2man
(home-page "http://www.mavetju.org/unix/dnstracer.php")
(synopsis "Trace a chain of DNS servers to the source")
(description "@command{dnstracer} determines where a given Domain Name
Server (DNS) gets its information from, and follows the chain of DNS servers
back to the servers which know the data.")
(license license:bsd-2)))
(define-public dropwatch
(package
(name "dropwatch")

112
gnu/packages/noweb.scm
View file

@ -18,6 +18,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages noweb)
#:use-module (guix gexp)
#:use-module (guix packages)
#:use-module (guix git-download)
#:use-module (guix build-system gnu)
@ -27,7 +28,7 @@
(define-public noweb
(package
(name "noweb")
(version "2.12")
(version "2.13")
(source
(origin
(method git-fetch)
@ -37,63 +38,62 @@
"_")))))
(file-name (git-file-name name version))
(sha256
(base32 "1160i2ghgzqvnb44kgwd6s3p4jnk9668rmc15jlcwl7pdf3xqm95"))))
(base32 "0fwngh7zl9mrjz966pskhi4zvk26j6vsm85x99df9194nv51drq8"))))
(build-system gnu-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'bind-early
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(substitute* (list "src/lib/nwmtime"
"src/shell/htmltoc")
(("exec perl ")
(format #f "exec ~a " (which "perl"))))
(substitute* "src/shell/noweb"
((" cpif ")
(format #f " ~a/cpif " bin)))
#t)))
(add-before 'install 'pre-install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(mkdir-p (string-append out "/share/texmf/tex/latex"))
#t)))
(add-after 'install 'post-install
(lambda* (#:key outputs inputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(cu (assoc-ref inputs "coreutils"))
(du (assoc-ref inputs "diffutils")))
(with-directory-excursion out
(for-each (lambda (prog)
(substitute* prog
(("nawk") (which "awk"))))
(append (map (lambda (x)
(string-append "bin/" x))
'("noweb" "nountangle"
"noroots" "noroff"
"noindex"))
(map (lambda (x)
(string-append "lib/" x))
'("btdefn" "emptydefn" "noidx"
"pipedocs" "toascii" "tohtml"
"toroff" "totex" "unmarkup"))))
(substitute* "bin/cpif"
(("^PATH=.*$")
(string-append "PATH=" cu "/bin:" du "/bin\n"))))
#t)))
(replace 'configure
(lambda _
;; Jump in the source.
(chdir "src")
#t)))
#:make-flags (let ((out (assoc-ref %outputs "out")))
(list (string-append "BIN=" out "/bin")
(string-append "LIB=" out "/lib")
(string-append "MAN=" out "/share/man")
(string-append "TEXINPUTS=" out
"/share/texmf/tex/latex")))
#:tests? #f)) ; no tests
(list
#:make-flags
#~(list (string-append "BIN=" #$output "/bin")
(string-append "LIB=" #$output "/lib")
(string-append "MAN=" #$output "/share/man")
(string-append "TEXINPUTS=" #$output
"/share/texmf/tex/latex"))
#:modules
'((guix build gnu-build-system)
(guix build utils)
(srfi srfi-26))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'enter-source-directory
(lambda _
(chdir "src")))
(add-after 'enter-source-directory 'bind-early
(lambda _
(substitute* (list "lib/nwmtime"
"shell/htmltoc")
(("exec perl ")
(string-append "exec " (which "perl") " ")))
(substitute* "shell/noweb"
((" cpif ")
(string-append " " #$output "/bin/cpif ")))))
(delete 'configure) ; no configure script
(add-before 'install 'create-latex-directory
(lambda _
(mkdir-p (string-append #$output "/share/texmf/tex/latex"))))
(add-after 'install 'refer-to-inputs
(lambda* (#:key inputs #:allow-other-keys)
(with-directory-excursion #$output
(for-each (lambda (program)
(substitute* program
(("nawk")
(search-input-file inputs "bin/awk"))))
(append (map (cut string-append "bin/" <>)
'("noweb" "nountangle"
"noroots" "noroff"
"noindex"))
(map (cut string-append "lib/" <>)
'("btdefn" "emptydefn" "noidx"
"pipedocs" "toascii" "tohtml"
"toroff" "totex" "unmarkup"))))
(substitute* "bin/cpif"
(("^PATH=.*$")
(string-append "PATH="
(dirname (search-input-file
inputs"bin/basename")) ":"
(dirname (search-input-file
inputs "bin/cmp"))
"\n")))))))
#:tests? #f)) ; no tests
(inputs
(list perl))
(home-page "https://www.cs.tufts.edu/~nr/noweb/")

51
gnu/packages/ntp.scm
View file

@ -47,38 +47,41 @@
(define-public chrony
(package
(name "chrony")
(version "4.3")
(version "4.4")
(source
(origin
(method url-fetch)
(uri (string-append "https://download.tuxfamily.org/chrony/"
"chrony-" version ".tar.gz"))
(sha256
(base32 "0148bgzymdigkjs66fihrqw98g1yf6vgy40nlajqkw35m24sh3cx"))))
(base32 "123h2a9rpc6wbvnysvhl5pmckvynzrnqay7l00i18azrvbk0gyza"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((srfi srfi-26)
(guix build utils)
(guix build gnu-build-system))
#:configure-flags
(list "--enable-scfilter"
"--with-sendmail=sendmail"
"--with-user=chrony")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'stay-inside-out
;; Simply setting CHRONYVARDIR to something nonsensical at install
;; time would result in nonsense file names in man pages.
(lambda _
(substitute* "Makefile.in"
(("mkdir -p \\$\\(DESTDIR\\)\\$\\(CHRONYVARDIR\\)") ":"))))
(add-after 'install 'install-more-documentation
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(doc (string-append out "/share/doc/" ,name "-" ,version)))
(for-each (cut install-file <> doc)
(list "README" "FAQ"))
(copy-recursively "examples" (string-append doc "/examples"))))))))
(list
#:modules
'((srfi srfi-26)
(guix build utils)
(guix build gnu-build-system))
#:configure-flags
#~(list "--enable-scfilter"
"--with-sendmail=sendmail"
"--with-user=chrony")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'stay-inside-out
;; Simply setting CHRONYVARDIR to something nonsensical at install
;; time would result in nonsense file names in man pages.
(lambda _
(substitute* "Makefile.in"
(("mkdir -p \\$\\(DESTDIR\\)\\$\\(CHRONYVARDIR\\)") ":"))))
(add-after 'install 'install-more-documentation
(lambda _
(let* ((doc (string-append #$output "/share/doc/"
#$name "-" #$version)))
(for-each (cut install-file <> doc)
(list "README" "FAQ"))
(copy-recursively "examples"
(string-append doc "/examples"))))))))
(native-inputs
(list pkg-config))
(inputs

4
gnu/packages/openbox.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Julien Lepiller <julien@lepiller.eu>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2023 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;;
@ -102,7 +102,7 @@ implementations.")
("openbox" ,openbox)
("startup-notification" ,startup-notification)
("libsm" ,libsm)
("librsvg" ,librsvg)
("librsvg" ,(librsvg-for-system))
("libxft" ,libxft)))
(native-inputs
`(("gettext" ,gettext-minimal)

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

@ -174,8 +174,8 @@
;; Note: the 'update-guix-package.scm' script expects this definition to
;; start precisely like this.
(let ((version "1.4.0")
(commit "44bbfc24e4bcc48d0e3343cd3d83452721af8c36")
(revision 7))
(commit "4dfdd822102690b5687acf28365ab707b68d9476")
(revision 10))
(package
(name "guix")
@ -191,7 +191,7 @@
(commit commit)))
(sha256
(base32
"08gq04pphapr3i0gzdilp8l87rpxlh2p768qrn1fw92fmw727xf7"))
"1p21gz2lr7iqvma1m83k2r04w201rzvk31d5kfn2qkr9l0gds4cx"))
(file-name (string-append "guix-" version "-checkout"))))
(build-system gnu-build-system)
(arguments
@ -263,6 +263,46 @@ $(prefix)/etc/openrc\n")))
(substitute* "tests/gexp.scm"
(("2\\.0") "3.0")))))
'())
,@(if (system-hurd?)
`((add-after 'unpack 'disable-tests/hurd
(lambda _
(substitute* "Makefile.am"
(("tests/derivations.scm") "")
(("tests/grafts.scm") "")
(("tests/graph.scm") "")
(("tests/lint.scm") "")
(("tests/nar.scm") "")
(("tests/offload.scm") "")
(("tests/pack.scm") "")
(("tests/packages.scm") "")
(("tests/processes.scm") "")
(("tests/publish.scm") "")
(("tests/pypi.scm") "")
(("tests/size.scm") "")
(("tests/store.scm") "")
(("tests/substitute.scm") "")
(("tests/syscalls.scm") "")
(("tests/union.scm") "")
(("tests/guix-build.sh") "")
(("tests/guix-build-branch.sh") "")
(("tests/guix-hash.sh") "")
(("tests/guix-locate.sh") "")
(("tests/guix-pack.sh") "")
(("tests/guix-pack-relocatable.sh") "")
(("tests/guix-package-aliases.sh") "")
(("tests/guix-package-net.sh") "")
(("tests/guix-home.sh") "")
(("tests/guix-archive.sh") "")
(("tests/guix-environment.sh") "")
(("tests/guix-package.sh") "")
(("tests/guix-refresh.sh") "")
(("tests/guix-shell.sh") "")
(("tests/guix-shell-export-manifest.sh") "")
(("tests/guix-system.sh") "")
(("tests/guix-graph.sh") "")
(("tests/guix-gc.sh") "")
(("tests/guix-daemon.sh") "")))))
'())
(add-before 'build 'use-host-compressors
(lambda* (#:key inputs target #:allow-other-keys)
(when target

6
gnu/packages/patches/akonadi-not-relocatable.patch
View file

@ -22,10 +22,10 @@ index 4e8cc81..63161b7 100644
)
install(FILES
diff --git a/KF5AkonadiConfig.cmake.in b/KF5AkonadiConfig.cmake.in
diff --git a/KPimAkonadiConfig.cmake.in b/KPimAkonadiConfig.cmake.in
index bcf7320..1574319 100644
--- a/KF5AkonadiConfig.cmake.in
+++ b/KF5AkonadiConfig.cmake.in
--- a/KPimAkonadiConfig.cmake.in
+++ b/KPimAkonadiConfig.cmake.in
@@ -1,10 +1,10 @@
@PACKAGE_INIT@

14
gnu/packages/patches/bloomberg-bde-cmake-module-path.patch
View file

@ -4,13 +4,11 @@ locating the bloomberg-bde-tools CMake modules.
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -1,8 +1,6 @@
cmake_minimum_required(VERSION 3.15)
@@ -14,6 +14,7 @@ else()
if (NOT CMAKE_MODULE_PATH)
message(FATAL "Please specify path to BDE cmake modules.")
endif()
+ string(REPLACE ":" "cmake/;" CMAKE_MODULE_PATH "$ENV{CMAKE_PREFIX_PATH}cmake/")
-if (NOT CMAKE_MODULE_PATH)
- message(FATAL "Please specify path to BDE cmake modules.")
-endif()
+string(REPLACE ":" "cmake/;" CMAKE_MODULE_PATH "$ENV{CMAKE_PREFIX_PATH}cmake/")
get_filename_component(repoName ${CMAKE_CURRENT_LIST_DIR} NAME)
include(bde_workspace)

43
gnu/packages/patches/ddclient-skip-test.patch
View file

@ -1,43 +0,0 @@
From e5657802025f238b39581534f3b4d408565c8943 Mon Sep 17 00:00:00 2001
From: Bruno Victal <mirai@makinata.eu>
Date: Sun, 5 Feb 2023 21:05:00 +0000
Subject: [PATCH] Disable sandbox incompatible tests.
See: https://github.com/ddclient/ddclient/issues/465
---
t/get_ip_from_if.pl | 21 ---------------------
1 file changed, 21 deletions(-)
diff --git a/t/get_ip_from_if.pl b/t/get_ip_from_if.pl
index 6f08e5d..d78c3d0 100644
--- a/t/get_ip_from_if.pl
+++ b/t/get_ip_from_if.pl
@@ -39,25 +39,4 @@ subtest "get_ip_from_interface tests" => sub {
}
};
-subtest "Get default interface and IP for test system" => sub {
- my $interface = ddclient::get_default_interface(4);
- if ($interface) {
- isnt($interface, "lo", "Check for loopback 'lo'");
- isnt($interface, "lo0", "Check for loopback 'lo0'");
- my $ip1 = ddclient::get_ip_from_interface("default", 4);
- my $ip2 = ddclient::get_ip_from_interface($interface, 4);
- is($ip1, $ip2, "Check IPv4 from default interface");
- ok(ddclient::is_ipv4($ip1), "Valid IPv4 from get_ip_from_interface($interface)");
- }
- $interface = ddclient::get_default_interface(6);
- if ($interface) {
- isnt($interface, "lo", "Check for loopback 'lo'");
- isnt($interface, "lo0", "Check for loopback 'lo0'");
- my $ip1 = ddclient::get_ip_from_interface("default", 6);
- my $ip2 = ddclient::get_ip_from_interface($interface, 6);
- is($ip1, $ip2, "Check IPv6 from default interface");
- ok(ddclient::is_ipv6($ip1), "Valid IPv6 from get_ip_from_interface($interface)");
- }
-};
-
done_testing();
--
2.38.1

60
gnu/packages/patches/elogind-fix-rpath.patch Normal file
View file

@ -0,0 +1,60 @@
Retrieved from https://github.com/elogind/elogind/issues/258
From: Mark Hindley <mark@hindley.org.uk>
Date: Wed, 24 May 2023 10:39:41 +0100
Subject: Fixup_executable_rpath
./meson.build sets
install_rpath : rootlibexecdir
however src/shared/meson.build sets
libshared = shared_library(
[snip]
install_dir : rootpkglibdir
)
---
meson.build | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/meson.build b/meson.build
index 694a2fd..a575f69 100644
--- a/meson.build
+++ b/meson.build
@@ -2903,7 +2903,7 @@ executable('elogind',
dependencies : [threads,
libacl,
libudev],
- install_rpath : rootlibexecdir,
+ install_rpath : rootpkglibdir,
install : true,
install_dir : rootlibexecdir)
@@ -2913,7 +2913,7 @@ exe = executable('loginctl',
link_with : [libshared],
dependencies : [threads,
libudev],
- install_rpath : rootlibexecdir,
+ install_rpath : rootpkglibdir,
install : true,
install_dir : rootbindir)
public_programs += [exe]
@@ -2923,7 +2923,7 @@ exe = executable('elogind-inhibit',
include_directories : includes,
link_with : [libshared],
dependencies : [threads],
- install_rpath : rootlibexecdir,
+ install_rpath : rootpkglibdir,
install : true,
install_dir : rootbindir)
public_programs += [exe]
@@ -4283,7 +4283,7 @@ executable('elogind-uaccess-command',
libshared],
dependencies: [libacl,
libudev],
- install_rpath : rootlibexecdir,
+ install_rpath : rootpkglibdir,
install : true,
install_dir : rootlibexecdir)
#endif // 0

41
gnu/packages/patches/elogind-revert-polkit-detection.patch
View file

@ -1,41 +0,0 @@
From 715ce0a6459e418f92e74c7ce52df3244c18f383 Mon Sep 17 00:00:00 2001
From: Sven Eden <sven.eden@prydeworx.com>
Date: Mon, 8 Mar 2021 08:40:08 +0100
Subject: [PATCH] Revert "Disable polkit support if libpolkit is not installed"
This reverts commit 1194dec4f8f2d1b8bd14e1625f34418ecfce817e.
Removing polkit support with -Dpolkit=auto when libpolkit is not
installed, removes the whole interface. This makes it impossible to
add polkit support as a runtime dependency.
Bug: #167
Closes: #206
Signed-off-by: Sven Eden <sven.eden@prydeworx.com>
---
meson.build | 9 ---------
1 file changed, 9 deletions(-)
diff --git a/meson.build b/meson.build
index 2dd05db3c..f38551f55 100644
--- a/meson.build
+++ b/meson.build
@@ -1157,15 +1157,6 @@ if want_polkit != 'false' and not skip_deps
message('Old polkit detected, will install pkla files')
install_polkit_pkla = true
endif
-#if 1 /// Disable polkit completely if libpolkit is not there. See elogind issue #167
- if not libpolkit.found()
- if want_polkit != 'auto'
- error('Polkit requested but libpolkit was not found.')
- endif
- install_polkit = false
- want_polkit = false
- endif
-#endif // 1
endif
conf.set10('ENABLE_POLKIT', install_polkit)
--
2.33.1

29
gnu/packages/patches/fbreader-fix-icon.patch Normal file
View file

@ -0,0 +1,29 @@
Author: Danny Milosavljevic <dannym+a@scratchpost.org>
Date: 2023-08-15
--- orig/jswba9mn9nh43l7g4w2qslmr7i3q64vy-fbreader-0.99.6-checkout/fbreader/desktop/desktop 2023-08-14 23:56:03.092567740 +0200
+++ jswba9mn9nh43l7g4w2qslmr7i3q64vy-fbreader-0.99.6-checkout/fbreader/desktop/desktop 2023-08-14 23:56:59.936213278 +0200
@@ -25,5 +25,5 @@
StartupNotify=true
Terminal=false
Type=Application
-Icon=FBReader.png
+Icon=FBReader
Categories=Office;Viewer;Literature;
--- orig/jswba9mn9nh43l7g4w2qslmr7i3q64vy-fbreader-0.99.6-checkout/fbreader/desktop/Makefile 2023-08-14 23:56:03.092567740 +0200
+++ jswba9mn9nh43l7g4w2qslmr7i3q64vy-fbreader-0.99.6-checkout/fbreader/desktop/Makefile 2023-08-15 00:23:19.046691430 +0200
@@ -10,6 +10,14 @@
@install -m 0644 desktop $(DESTDIR)/usr/share/applications/$(TARGET).desktop
@install -d $(DESTDIR)$(IMAGEDIR)
@install -m 0644 ../data/icons/application/$(TARGET_ARCH).png $(DESTDIR)$(IMAGEDIR)/FBReader.png
+ @install -d $(DESTDIR)$(SHAREDIR)/icons/hicolor/16x16/apps
+ @install -m 0644 ../data/icons/application/16x16.png $(DESTDIR)$(SHAREDIR)/icons/hicolor/16x16/apps/FBReader.png
+ @install -d $(DESTDIR)$(SHAREDIR)/icons/hicolor/32x32/apps
+ @install -m 0644 ../data/icons/application/32x32.png $(DESTDIR)$(SHAREDIR)/icons/hicolor/32x32/apps/FBReader.png
+ @install -d $(DESTDIR)$(SHAREDIR)/icons/hicolor/48x48/apps
+ @install -m 0644 ../data/icons/application/48x48.png $(DESTDIR)$(SHAREDIR)/icons/hicolor/48x48/apps/FBReader.png
+ @install -d $(DESTDIR)$(SHAREDIR)/icons/hicolor/64x64/apps
+ @install -m 0644 ../data/icons/application/64x64.png $(DESTDIR)$(SHAREDIR)/icons/hicolor/64x64/apps/FBReader.png
@install -m 0644 ../data/default/config.desktop.xml $(SHARE_FBREADER)/default/config.xml
@install -m 0644 ../data/default/keymap.desktop.xml $(SHARE_FBREADER)/default/keymap.xml
@install -m 0644 ../data/default/styles.desktop.xml $(SHARE_FBREADER)/default/styles.xml

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