forked from tribes/guix
Compare commits
3 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
 Ian Eure
|
d780c4c1cc | ||
|
Ian Eure
|
701a498b42 | ||
|
Ian Eure
|
2be1e10e36 |
@@ -23,8 +23,6 @@
|
||||
(name "cbaines"))
|
||||
("3CE4 6455 8A84 FDC6 9DB4 0CFB 090B 1199 3D9A EBB5"
|
||||
(name "civodul"))
|
||||
("CCB8 1842 F9D7 058E CD67 377A BF5C DF4D F6BF 6682"
|
||||
(name "csantosb"))
|
||||
("510A 8628 E2A7 7678 8F8C 709C 4BC0 2592 5FF8 F4D3"
|
||||
(name "cwebber"))
|
||||
(;; primary: "295A F991 6F46 F8A1 34B0 29DA 8086 3842 F0FE D83B"
|
||||
@@ -100,9 +98,6 @@
|
||||
;; <https://lists.gnu.org/archive/html/guix-devel/2020-01/msg00499.html>.
|
||||
"1EFB 0909 1F17 D28C CBF9 B13A 53D4 57B2 D636 EE82"
|
||||
(name "roptat"))
|
||||
(;; primary: "3AC5 5D0E 1DA7 AF44 3868 11EE 213D C372 0E7A 023C"
|
||||
"6B51 071A 0FB1 52AD ED93 6360 0322 7982 69E4 71C3"
|
||||
(name "Rutherther"))
|
||||
("EAD1 89E4 799B 5E5E B20A 2A19 CDBC 0BD9 5943 A706"
|
||||
(name "SameExpert"))
|
||||
(;; primary: "D6B0 C593 DA8C 5EDC A44C 7A58 C336 91F7 1188 B004"
|
||||
|
||||
@@ -30,7 +30,6 @@ Eric Bavier <bavier@posteo.net> <bavier@member.fsf.org>
|
||||
Eric Dvorsak <eric@dvorsak.fr> <yenda1@gmail.com>
|
||||
Evgeny Pisemsky <mail@pisemsky.site> <evgeny@pisemsky.com>
|
||||
George Clemmer <myglc2@gmail.com>
|
||||
Giacomo Leidi <therewasa@fishinthecalculator.me> <goodoldpaul@autistici.org>
|
||||
ison <ison@airmail.cc> <ison111@protonmail.com>
|
||||
Ivan Vilata i Balaguer <ivan@selidor.net>
|
||||
Jakob L. Kreuze <zerodaysfordays@sdf.org> <zerodaysfordays@sdf.lonestar.org>
|
||||
|
||||
+1
-26
@@ -12,17 +12,6 @@ gnu/packages/audio\.scm @guix/audio
|
||||
gnu/packages/fluidplug\.scm @guix/audio
|
||||
gnu/packages/xiph\.scm @guix/audio
|
||||
|
||||
gnu/packages/elixir(-.+|)\.scm$ @guix/beam
|
||||
guix/build/mix-build-system\.scm @guix/beam
|
||||
guix/build-system/mix\.scm @guix/beam
|
||||
gnu/packages/erlang(-.+|)\.scm$ @guix/beam
|
||||
guix/build/rebar-build-system\.scm @guix/beam
|
||||
guix/build-system/rebar\.scm @guix/beam
|
||||
guix/import/hexpm\.scm @guix/beam
|
||||
guix/scripts/import/hexpm\.scm @guix/beam
|
||||
|
||||
gnu/packages/bioinformatics\.scm @guix/bioinformatics
|
||||
|
||||
gnu/packages/commencement\.scm @guix/bootstrap
|
||||
gnu/packages/mes\.scm @guix/bootstrap
|
||||
|
||||
@@ -129,14 +118,6 @@ guix/build/gnu-build-system\.scm @guix/core-packages
|
||||
guix/build/utils\.scm @guix/core-packages
|
||||
guix/build-system/gnu\.scm @guix/core-packages
|
||||
|
||||
gnu/packages/crypto\.scm @guix/crypto
|
||||
gnu/packages/gnupg\.scm @guix/crypto
|
||||
gnu/packages/nettle\.scm @guix/crypto
|
||||
gnu/packages/password-utils\.scm @guix/crypto
|
||||
gnu/packages/security-token\.scm @guix/crypto
|
||||
gnu/packages/ssh\.scm @guix/crypto
|
||||
gnu/packages/tls\.scm @guix/crypto
|
||||
|
||||
gnu/packages/debian\.scm @guix/debian
|
||||
|
||||
\.texi$ @guix/documentation
|
||||
@@ -193,11 +174,6 @@ guix/import/go\.scm @guix/go
|
||||
guix/scripts/import/go\.scm @guix/go
|
||||
tests/import/go\.scm @guix/go
|
||||
|
||||
gnu/packages/hare\.scm @guix/hare
|
||||
gnu/packages/hare-xyz\.scm @guix/hare
|
||||
guix/build-system/hare\.scm @guix/hare
|
||||
guix/build/hare-build-system\.scm @guix/hare
|
||||
|
||||
gnu/packages/dhall\.scm @guix/haskell
|
||||
gnu/packages/haskell(-.+|)\.scm$ @guix/haskell
|
||||
gnu/packages/purescript\.scm @guix/haskell
|
||||
@@ -316,8 +292,7 @@ gnu/packages/chez\.scm @guix/racket
|
||||
gnu/packages/racket\.scm @guix/racket
|
||||
|
||||
NEWS @guix/release
|
||||
etc/manifests/release-minimal\.scm @guix/release
|
||||
etc/manifests/release-desktop\.scm @guix/release
|
||||
etc/manifests/release\.scm @guix/release
|
||||
|
||||
gnu/packages/diffoscope\.scm @guix/reproduciblebuilds
|
||||
|
||||
|
||||
+9
-6
@@ -456,6 +456,11 @@ AUX_FILES = \
|
||||
gnu/packages/aux-files/linux-libre/6.17-i686.conf \
|
||||
gnu/packages/aux-files/linux-libre/6.17-riscv.conf \
|
||||
gnu/packages/aux-files/linux-libre/6.17-x86_64.conf \
|
||||
gnu/packages/aux-files/linux-libre/6.16-arm.conf \
|
||||
gnu/packages/aux-files/linux-libre/6.16-arm64.conf \
|
||||
gnu/packages/aux-files/linux-libre/6.16-riscv.conf \
|
||||
gnu/packages/aux-files/linux-libre/6.16-x86_64.conf \
|
||||
gnu/packages/aux-files/linux-libre/6.16-i686.conf \
|
||||
gnu/packages/aux-files/linux-libre/6.12-arm.conf \
|
||||
gnu/packages/aux-files/linux-libre/6.12-arm64.conf \
|
||||
gnu/packages/aux-files/linux-libre/6.12-i686.conf \
|
||||
@@ -779,8 +784,7 @@ EXTRA_DIST += \
|
||||
etc/manifests/disarchive.scm \
|
||||
etc/manifests/hurd.scm \
|
||||
etc/manifests/kernels.scm \
|
||||
etc/manifests/release-minimal.scm \
|
||||
etc/manifests/release-desktop.scm \
|
||||
etc/manifests/release.scm \
|
||||
etc/manifests/source.scm \
|
||||
etc/manifests/system-tests.scm \
|
||||
etc/manifests/time-travel.scm \
|
||||
@@ -1236,10 +1240,9 @@ assert-no-store-file-names:
|
||||
# Make sure installer substitutes are available. Check only the primary
|
||||
# server so that '--display-missing' doesn't print two lists.
|
||||
assert-binaries-available: $(GOBJECTS)
|
||||
$(AM_V_at)$(top_builddir)/pre-inst-env \
|
||||
guix weather -m "$(top_srcdir)/etc/manifests/release-minimal.scm" \
|
||||
-m "$(top_srcdir)/etc/manifests/release-desktop.scm" \
|
||||
--substitute-urls="https://ci.guix.gnu.org" \
|
||||
$(AM_V_at)$(top_builddir)/pre-inst-env \
|
||||
guix weather -m "$(top_srcdir)/etc/manifests/release.scm" \
|
||||
--substitute-urls="https://ci.guix.gnu.org" \
|
||||
--display-missing
|
||||
|
||||
# Make sure the final inputs don't refer to bootstrap tools.
|
||||
|
||||
+2
-2
@@ -72,7 +72,7 @@
|
||||
|
||||
(define %cookbook-languages
|
||||
;; Available translations for the 'guix-cookbook' text domain.
|
||||
'("de" "en" "es" "fr" "it" "ko" "pt_BR" "ru" "sk" "sv" "ta" "zh_CN"))
|
||||
'("de" "en" "es" "fr" "it" "ko" "pt_BR" "ru" "sk" "sv" "zh_CN"))
|
||||
|
||||
(define %languages
|
||||
;; Available translations for the document being built.
|
||||
@@ -1300,7 +1300,7 @@ must be the Guix top-level source directory, from which PO files are taken."
|
||||
language))
|
||||
".html")))
|
||||
"HTML, entirely on one page"))
|
||||
,@(if (member language '("ko" "ru" "ta"))
|
||||
,@(if (member language '("ko" "ru"))
|
||||
'()
|
||||
`((li (a (@ (href ,(string-append
|
||||
#$manual
|
||||
|
||||
@@ -77,9 +77,8 @@ Italian (@pxref{Top,,, guix-cookbook.it, Ricettario di GNU Guix}),
|
||||
Brazilian Portuguese (@pxref{Top,,, guix-cookbook.pt_BR,
|
||||
Livro de receitas do GNU Guix}), Russian (@pxref{Top,,, guix-cookbook.ru,
|
||||
GNU Guix Рецепты}), Slovak (@pxref{Top,,, guix-cookbook.sk,
|
||||
Receptár GNU Guix}), Swedish (@pxref{Top,,, guix-cookbook.sv,
|
||||
Kokbok för GNU Guix}), and Tamil (@pxref{Top,,, guix-cookbook.ta,
|
||||
GNU Guix கையேடு}). If you would like to translate
|
||||
Receptár GNU Guix}), and Swedish (@pxref{Top,,, guix-cookbook.sv,
|
||||
Kokbok för GNU Guix}). If you would like to translate
|
||||
this document in your native language, consider joining
|
||||
@uref{https://translate.codeberg.org/projects/guix/documentation-cookbook,
|
||||
Weblate} (@pxref{Translating Guix,,, guix, GNU Guix Reference
|
||||
@@ -293,7 +292,7 @@ Examples of valid expressions:
|
||||
@result{} 17
|
||||
|
||||
(display (string-append "Hello " "Guix" "\n"))
|
||||
@print{} Hello Guix
|
||||
@print{} Hello Guix!
|
||||
@result{} #<unspecified>
|
||||
@end lisp
|
||||
|
||||
@@ -505,6 +504,10 @@ selection of documents to learn more about Scheme:
|
||||
@uref{https://spritely.institute/static/papers/scheme-primer.html, @i{A
|
||||
Scheme Primer}}, by Christine Lemmer-Webber and the Spritely Institute.
|
||||
|
||||
@item
|
||||
@uref{http://www.troubleshooters.com/codecorn/scheme_guile/hello.htm,
|
||||
@i{Scheme at a Glance}}, by Steve Litt.
|
||||
|
||||
@item
|
||||
@c There used to be a copy at mitpress.mit.edu but it vanished.
|
||||
@uref{https://sarabander.github.io/sicp/,
|
||||
|
||||
+116
-574
@@ -482,7 +482,6 @@ Home Services
|
||||
* Media: Media Home Services. Services for managing media.
|
||||
* Sway: Sway window manager. Setting up the Sway configuration.
|
||||
* Networking: Networking Home Services. Networking services.
|
||||
* Secrets: Secrets Home Services. Services for storing secrets.
|
||||
* Miscellaneous: Miscellaneous Home Services. More services.
|
||||
|
||||
Platforms
|
||||
@@ -802,8 +801,7 @@ which automates the binary installation process without use of a foreign
|
||||
distro package
|
||||
manager@footnote{@uref{https://guix.gnu.org/guix-install.sh}}.
|
||||
Use of @file{guix-install.sh} requires Bash, GnuPG, GNU@tie{}tar, wget,
|
||||
and Xz. On systems where @code{systemd} is detected, the tool
|
||||
@code{newgidmap} from the @code{uidmap} package is also required.
|
||||
and Xz.
|
||||
|
||||
The script guides you through the following:
|
||||
|
||||
@@ -1286,6 +1284,16 @@ If the machine is running the OpenSSH daemon, @command{sshd}, the host
|
||||
key can be found in a file such as
|
||||
@file{/etc/ssh/ssh_host_ed25519_key.pub}.
|
||||
|
||||
If the machine is running the SSH daemon of GNU@tie{}lsh,
|
||||
@command{lshd}, the host key is in @file{/etc/lsh/host-key.pub} or a
|
||||
similar file. It can be converted to the OpenSSH format using
|
||||
@command{lsh-export-key} (@pxref{Converting keys,,, lsh, LSH Manual}):
|
||||
|
||||
@example
|
||||
$ lsh-export-key --openssh < /etc/lsh/host-key.pub
|
||||
ssh-rsa AAAAB3NzaC1yc2EAAAAEOp8FoQAAAQEAs1eB46LV@dots{}
|
||||
@end example
|
||||
|
||||
@end table
|
||||
|
||||
A number of optional fields may be specified:
|
||||
@@ -7888,8 +7896,7 @@ package looks like this:
|
||||
(base32
|
||||
"0ssi1wpaf7plaswqqjwigppsg5fyh99vdlb9kzl7c9lng89ndq1i"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list #:configure-flags #~(list "--enable-silent-rules")))
|
||||
(arguments '(#:configure-flags '("--enable-silent-rules")))
|
||||
(inputs (list gawk))
|
||||
(synopsis "Hello, GNU world: An example GNU package")
|
||||
(description "Guess what GNU Hello prints!")
|
||||
@@ -7900,22 +7907,15 @@ package looks like this:
|
||||
@noindent
|
||||
Without being a Scheme expert, the reader may have guessed the meaning
|
||||
of the various fields here. This expression binds the variable
|
||||
@code{hello} to a @code{<package>} record
|
||||
@code{hello} to a @code{<package>} object, which is essentially a record
|
||||
(@pxref{SRFI-9, Scheme records,, guile, GNU Guile Reference Manual}).
|
||||
This package object can be inspected using procedures found in the
|
||||
@code{(guix packages)} module; for instance, @code{(package-name hello)}
|
||||
returns---surprise!---@code{"hello"}.
|
||||
|
||||
@quotation Quick start
|
||||
Impatient? With luck, you may be able to import part or all of the
|
||||
definition of the package you are interested in from another repository,
|
||||
using the @code{guix import} command (@pxref{Invoking guix import}).
|
||||
|
||||
Alternatively, try out the
|
||||
@uref{https://guix-hpc.gitlabpages.inria.fr/guix-packager/,
|
||||
Guix-Packager interface} in your web browser to produce a preliminary
|
||||
package definition.
|
||||
@end quotation
|
||||
With luck, you may be able to import part or all of the definition of
|
||||
the package you are interested in from another repository, using the
|
||||
@code{guix import} command (@pxref{Invoking guix import}).
|
||||
|
||||
In the example above, @code{hello} is defined in a module of its own,
|
||||
@code{(gnu packages hello)}. Technically, this is not strictly
|
||||
@@ -7965,30 +7965,32 @@ The @code{arguments} field specifies options for the build system
|
||||
@code{gnu-build-system} as a request run @file{configure} with the
|
||||
@option{--enable-silent-rules} flag.
|
||||
|
||||
The value of the @code{arguments} field is a list of arguments passed to
|
||||
the build system and that end up being applied, as with @code{apply}
|
||||
@cindex quote
|
||||
@cindex quoting
|
||||
@findex '
|
||||
@findex quote
|
||||
@cindex backquote (quasiquote)
|
||||
@findex `
|
||||
@findex quasiquote
|
||||
@cindex comma (unquote)
|
||||
@findex ,
|
||||
@findex unquote
|
||||
What about these quote (@code{'}) characters? They are Scheme syntax to
|
||||
introduce a literal list; @code{'} is synonymous with @code{quote}.
|
||||
Sometimes you'll also see @code{`} (a backquote, synonymous with
|
||||
@code{quasiquote}) and @code{,} (a comma, synonymous with @code{unquote}).
|
||||
@xref{Expression Syntax, quoting,, guile, GNU Guile Reference Manual},
|
||||
for details. Here the value of the @code{arguments} field is a list of
|
||||
arguments passed to the build system down the road, as with @code{apply}
|
||||
(@pxref{Fly Evaluation, @code{apply},, guile, GNU Guile Reference
|
||||
Manual}).
|
||||
|
||||
@cindex keyword arguments, for build systems
|
||||
The hash-colon (@code{#:}) sequence defines a Scheme @dfn{keyword}
|
||||
(@pxref{Keywords,,, guile, GNU Guile Reference Manual}), and
|
||||
@code{#:configure-flags} is a keyword used to pass a keyword argument
|
||||
to the build system (@pxref{Coding With Keywords,,, guile, GNU Guile
|
||||
Reference Manual}).
|
||||
|
||||
@findex #~
|
||||
@findex gexp
|
||||
@cindex staging, for build system arguments
|
||||
@cindex code staging, in package definitions
|
||||
What about these hash-tilde (@code{#~}) characters? This is
|
||||
Guix-specific syntax introducing a so-called @dfn{G-expression}
|
||||
(@pxref{G-Expressions}), which denotes code that is @dfn{staged} for
|
||||
eventual evaluation: this staged code is only evaluated if and when
|
||||
attempting to build the package, by the build daemon. In this example,
|
||||
the staged code is the @code{(list @dots{})} expression, which builds a
|
||||
list of one element, the configure flag.
|
||||
|
||||
@item
|
||||
The @code{inputs} field specifies inputs to the build process---i.e.,
|
||||
build-time or run-time dependencies of the package. Here, we add
|
||||
@@ -10114,34 +10116,6 @@ directory, the parameter @code{#:javascript-files} can be used to
|
||||
specify a list of file names to feed to the minifier.
|
||||
@end defvar
|
||||
|
||||
@defvar mix-build-system
|
||||
This is a variable exported by @code{guix build-system mix}. It implements
|
||||
the standard build procedure used by Elixr programs with
|
||||
@url{https://hexdocs.pm/mix/Mix.html,Mix}, which consists
|
||||
of running @command{mix compile}, thereby creating bytecode.
|
||||
|
||||
The API is similar to the @var{gnu-build-system}, with some specifics for
|
||||
Elixir:
|
||||
@itemize
|
||||
@item
|
||||
@code{#:tests?} is a boolean, @code{#true} by default, determining whether tests
|
||||
for the current build have to be run or not.
|
||||
@item
|
||||
@code{#:test-flags} is a list of arguments append to the @command{mix test}
|
||||
invocation. It defaults to @code{'()}.
|
||||
@item
|
||||
@code{#:mix-exs}, changes the full path to the @code{mix.exs}
|
||||
file. It defaults to @code{"mix.exs"}. Please refer to
|
||||
@url{https://hexdocs.pm/mix/Mix.html#module-environment-variables,upstream}
|
||||
documentation for more details.
|
||||
@item
|
||||
@code{#:mix-path}, appends extra code paths. It
|
||||
defaults to @code{#f}. Please refer to
|
||||
@url{https://hexdocs.pm/mix/Mix.html#module-environment-variables,upstream}
|
||||
documentation for more details.
|
||||
@end itemize
|
||||
@end defvar
|
||||
|
||||
@defvar mozilla-build-system
|
||||
This variable is exported by @code{(guix build-system mozilla)}. It
|
||||
sets the @code{--target} and @code{--host} configuration flags to what
|
||||
@@ -15528,34 +15502,10 @@ the updater for @uref{https://www.stackage.org, Stackage} packages.
|
||||
the updater for @uref{https://crates.io, Crates} packages.
|
||||
@item launchpad
|
||||
the updater for @uref{https://launchpad.net, Launchpad} packages.
|
||||
|
||||
@item generic-html
|
||||
a generic updater that crawls, by default, the HTML page where the
|
||||
source tarball of the package is hosted, when applicable. Behavior can
|
||||
be customized with the following package properties:
|
||||
|
||||
@table @code
|
||||
@item release-monitoring-url
|
||||
an alternate URL to crawl;
|
||||
|
||||
@item release-file-regexp
|
||||
an regular expression matching release file names, whose first
|
||||
subexpression must correspond to the version string.
|
||||
@end table
|
||||
|
||||
Here is an example package with a custom release monitoring URL and a
|
||||
regexp matching an unconventional release file name (it's unconventional
|
||||
due to the use of upper case letter and the lack of a hyphen before the
|
||||
version string):
|
||||
|
||||
@lisp
|
||||
(package
|
||||
;; @dots{}
|
||||
(home-page "http://example.org/software/the-package.html")
|
||||
(properties
|
||||
`((release-monitoring-url . ,home-page)
|
||||
(release-file-regexp . "ThePackage([0-9\\.]+)\\.tgz"))))
|
||||
@end lisp
|
||||
a generic updater that crawls the HTML page where the source tarball of
|
||||
the package is hosted, when applicable, or the HTML page specified by
|
||||
the @code{release-monitoring-url} property of the package.
|
||||
|
||||
@item generic-git
|
||||
a generic updater for packages hosted on Git repositories. It tries to
|
||||
@@ -23970,6 +23920,75 @@ Here is a more complex example configuration for illustrative purposes:
|
||||
|
||||
|
||||
Furthermore, @code{(gnu services ssh)} provides the following services.
|
||||
@cindex SSH
|
||||
@cindex SSH server
|
||||
|
||||
@defvar lsh-service-type
|
||||
Type of the service that runs the GNU@tie{}lsh secure shell (SSH)
|
||||
daemon, @command{lshd}. The value for this service is a
|
||||
@code{<lsh-configuration>} object.
|
||||
@end defvar
|
||||
|
||||
@deftp {Data Type} lsh-configuration
|
||||
Data type representing the configuration of @command{lshd}.
|
||||
|
||||
@table @asis
|
||||
@item @code{lsh} (default: @code{lsh}) (type: file-like)
|
||||
The package object of the GNU@tie{}lsh secure shell (SSH) daemon.
|
||||
|
||||
@item @code{daemonic?} (default: @code{#t}) (type: boolean)
|
||||
Whether to detach from the controlling terminal.
|
||||
|
||||
@item @code{host-key} (default: @code{"/etc/lsh/host-key"}) (type: string)
|
||||
File containing the @dfn{host key}. This file must be readable by
|
||||
root only.
|
||||
|
||||
@item @code{interfaces} (default: @code{'()}) (type: list)
|
||||
List of host names or addresses that @command{lshd} will listen on.
|
||||
If empty, @command{lshd} listens for connections on all the network
|
||||
interfaces.
|
||||
|
||||
@item @code{port-number} (default: @code{22}) (type: integer)
|
||||
Port to listen on.
|
||||
|
||||
@item @code{allow-empty-passwords?} (default: @code{#f}) (type: boolean)
|
||||
Whether to accept log-ins with empty passwords.
|
||||
|
||||
@item @code{root-login?} (default: @code{#f}) (type: boolean)
|
||||
Whether to accept log-ins as root.
|
||||
|
||||
@item @code{syslog-output?} (default: @code{#t}) (type: boolean)
|
||||
Whether to log @command{lshd} standard output to syslogd.
|
||||
This will make the service depend on the existence of a syslogd service.
|
||||
|
||||
@item @code{pid-file?} (default: @code{#f}) (type: boolean)
|
||||
When @code{#t}, @command{lshd} writes its PID to the file specified in
|
||||
@var{pid-file}.
|
||||
|
||||
@item @code{pid-file} (default: @code{"/var/run/lshd.pid"}) (type: string)
|
||||
File that @command{lshd} will write its PID to.
|
||||
|
||||
@item @code{x11-forwarding?} (default: @code{#t}) (type: boolean)
|
||||
Whether to enable X11 forwarding.
|
||||
|
||||
@item @code{tcp/ip-forwarding?} (default: @code{#t}) (type: boolean)
|
||||
Whether to enable TCP/IP forwarding.
|
||||
|
||||
@item @code{password-authentication?} (default: @code{#t}) (type: boolean)
|
||||
Whether to accept log-ins using password authentication.
|
||||
|
||||
@item @code{public-key-authentication?} (default: @code{#t}) (type: boolean)
|
||||
Whether to accept log-ins using public key authentication.
|
||||
|
||||
@item @code{initialize?} (default: @code{#t}) (type: boolean)
|
||||
When @code{#f}, it is up to the user to initialize the randomness
|
||||
generator (@pxref{lsh-make-seed,,, lsh, LSH Manual}), and to create
|
||||
a key pair with the private key stored in file @var{host-key}
|
||||
(@pxref{lshd basics,,, lsh, LSH Manual}).
|
||||
|
||||
@end table
|
||||
@end deftp
|
||||
|
||||
@cindex SSH
|
||||
@cindex SSH server
|
||||
@defvar openssh-service-type
|
||||
@@ -29832,7 +29851,6 @@ remote servers. Run @command{man smtpd.conf} for more information.
|
||||
@item @code{log-file} (default: @code{"/var/log/mail.log"})
|
||||
The file location for the OpenSMTPD log file. Logging occurs in the
|
||||
foreground via the Shepherd, i.e. OpenSMTPD does not detach.
|
||||
When set to @code{#f} OpenSMTPD will instead detach and log to the syslog.
|
||||
|
||||
@item @code{setgid-commands?} (default: @code{#t})
|
||||
Make the following commands setgid to @code{smtpq} so they can be
|
||||
@@ -31730,50 +31748,6 @@ Owner's group of the broker process.
|
||||
@end table
|
||||
@end deftp
|
||||
|
||||
@subsubheading Mollysocket Service
|
||||
|
||||
@url{https://github.com/mollyim/mollysocket,Mollysocket} is a UnifiedPush
|
||||
provider for the messaging app @url{https://molly.im,Molly}, a fork of Signal.
|
||||
|
||||
@defvar mollysocket-service-type
|
||||
The Mollysocket service. Takes @code{mollysocket-configuration} as its value.
|
||||
By default, this service listens on port 8020 for any Molly client.
|
||||
@end defvar
|
||||
|
||||
@deftp {Data Type} mollysocket-configuration
|
||||
The configuration for Mollysocket, with the following fields:
|
||||
|
||||
@table @asis
|
||||
@item @code{package} (default: @code{mollysocket})
|
||||
The Mollysocket package to use.
|
||||
|
||||
@item @code{host} (default: @code{"0.0.0.0"})
|
||||
Address for the webserver to listen on. It is recommended that this be set to
|
||||
localhost, and instead configure a TLS-supporting reverse proxy in front of it.
|
||||
|
||||
@item @code{port} (default: @code{8020})
|
||||
Port for the webserver to listen on.
|
||||
|
||||
@item @code{webserver} (default: @code{#t})
|
||||
Whether the webserver sould be enabled. If disabled, the server is considered to
|
||||
be in airgapped mode, and clients must be configured likewise.
|
||||
|
||||
@item @code{allowed-endpoints} (default: @code{'("*")})
|
||||
Allowlist of UnifiedPush distributor endpoints, represented as IP addresses or
|
||||
domain names. Addresses on the local network must be specified explicitly.
|
||||
|
||||
@item @code{allowed-uuids} (default: @code{'("*")})
|
||||
Allowlist of Signal account UUIDs.
|
||||
|
||||
@item @code{db} (default: @code{"/var/lib/mollysocket/db.sqlite"})
|
||||
Path to the Mollysocket database. Will be created if it doesn't exist.
|
||||
|
||||
@item @code{vapid-key-file} (default: @code{"/var/lib/mollysocket/vapid.key"})
|
||||
Path to the VAPID key used to authorize requests to the UnifiedPush distributor.
|
||||
Will be created if it doesn't exist.
|
||||
@end table
|
||||
@end deftp
|
||||
|
||||
@node Telephony Services
|
||||
@subsection Telephony Services
|
||||
|
||||
@@ -37715,251 +37689,6 @@ The verbosity level of the daemon.
|
||||
@end table
|
||||
@end deftp
|
||||
|
||||
|
||||
|
||||
@subsubheading Autofs Service
|
||||
@cindex autofs
|
||||
@cindex automount
|
||||
|
||||
The autofs service automatically mounts and unmounts filesystems. It
|
||||
can mount both network and local storage, but is most often used to
|
||||
manage NFS mounts.
|
||||
|
||||
A typical configuration might look like:
|
||||
|
||||
@lisp
|
||||
(operating-system
|
||||
(services
|
||||
(append
|
||||
(list
|
||||
(service nfs-service-type (nfs-configuration))
|
||||
(service autofs-service-type
|
||||
(autofs-configuration
|
||||
(mounts
|
||||
(list
|
||||
(autofs-indirect-map
|
||||
(mount-point "/net/home")
|
||||
(entries
|
||||
(list
|
||||
;; Accessing /net/home/foo will mount
|
||||
;; big.network.server:/home/foo.
|
||||
(autofs-map-entry
|
||||
(type "nfs")
|
||||
(device "big.network.server:/home/&")
|
||||
(mount-point "*"))))))))))
|
||||
%base-services)))
|
||||
@end lisp
|
||||
|
||||
@deftp {Data Type} autofs-indirect-map
|
||||
Available @code{autofs-indirect-map} fields are:
|
||||
|
||||
@table @asis
|
||||
@item @code{mount-point} (type: string)
|
||||
Where to mount the indirect map.
|
||||
|
||||
@item @code{entries} (default: @code{()}) (type: autofs-map-entries)
|
||||
Entries in this map.
|
||||
|
||||
@end table
|
||||
@end deftp
|
||||
|
||||
@deftp {Data Type} autofs-map-entry
|
||||
Available @code{autofs-map-entry} fields are:
|
||||
|
||||
@table @asis
|
||||
@item @code{type} (default: @code{"auto"}) (type: string)
|
||||
The type of the filesystem.
|
||||
|
||||
@item @code{device} (type: string)
|
||||
Device or remote host to mount. May contain special character @code{&},
|
||||
which can be referenced in the @var{mount-point} field.
|
||||
|
||||
@item @code{mount-point} (type: string)
|
||||
Directory to mount this device on. Map entries come in two flavors:
|
||||
direct and indirect. Direct entries map a single device to a single
|
||||
mountpoint, while indirect entries can map multiple devices to multiple
|
||||
mountpoints. A direct entry has a @var{mount-point} beginning with
|
||||
@code{/}, representing the absolute path of the directory to mount the
|
||||
device on. For example:
|
||||
|
||||
@lisp
|
||||
(autofs-map-entry
|
||||
(type "ext4")
|
||||
(device "/dev/sdb1")
|
||||
(mount-point "/mnt/external-disk"))
|
||||
@end lisp
|
||||
|
||||
An indirect entry has a @var{mount-point} not beginning with @code{/},
|
||||
representing the subdirectory within the parent indirect map for this
|
||||
entry. Indirect maps may also use the special character @code{*}, which
|
||||
will be replaced with the value of special character @code{&} in the
|
||||
@var{device} field of this entry. For example:
|
||||
|
||||
@lisp
|
||||
(autofs-indirect-map
|
||||
(mount-point "/devices")
|
||||
(entries
|
||||
(list
|
||||
;; Automount any block device r/o by ID.
|
||||
(autofs-map-entry
|
||||
(type "auto")
|
||||
(mount-point "ro/uuid/*")
|
||||
(device "/dev/disk/by-id/&")
|
||||
(options '(ro)))
|
||||
;; Automount any block device by UUID.
|
||||
(autofs-map-entry
|
||||
(type "auto")
|
||||
(mount-point "rw/uuid/*")
|
||||
(device "/dev/disk/by-uuid/&")))))
|
||||
@end lisp
|
||||
|
||||
@item @code{options} (default: @code{()}) (type: file-system-options)
|
||||
List of mount options. Some options are simple flags, such as ro,
|
||||
noexec, nosuid, etc. These may be expressed as strings or symbols.
|
||||
Other options also accept a value. These are expressed as pairs of
|
||||
@code{(option . value)}. @code{option} may be a string or symbol, as
|
||||
with flags. @code{value} may be a string, symbol, or number. Example:
|
||||
@code{(ro (errors . remount-ro) noexec)}
|
||||
|
||||
@end table
|
||||
@end deftp
|
||||
|
||||
@deftp {Data Type} autofs-configuration
|
||||
Available @code{autofs-configuration} fields are:
|
||||
|
||||
@table @asis
|
||||
@item @code{autofs} (default: @code{autofs}) (type: package)
|
||||
The autofs package to use.
|
||||
|
||||
@item @code{mounts} (default: @code{()}) (type: autofs-mount-maps)
|
||||
Mount maps to manage. This is a list of either direct map entries or
|
||||
indirect mount maps.
|
||||
|
||||
@item @code{timeout} (default: @code{300}) (type: conf-integer)
|
||||
Sets the default mount timeout in seconds.
|
||||
|
||||
@item @code{master-wait} (default: @code{10}) (type: conf-integer)
|
||||
Sets the default maximum number of retries (actual iterations is half
|
||||
this, each is delayed by 2 seconds before retrying) waiting for the
|
||||
master map to become available if it cannot be read at program start.
|
||||
This can be longer if the map source itself waits for availability (such
|
||||
as sss).
|
||||
|
||||
@item @code{negative-timeout} (default: @code{60}) (type: conf-integer)
|
||||
Set the default timeout for caching failed key lookups.
|
||||
|
||||
@item @code{mount-verbose?} (default: @code{#f}) (type: conf-boolean)
|
||||
Use the verbose flag when spawning mount(8), and log some process info
|
||||
about the requestor and its parent.
|
||||
|
||||
@item @code{mount-wait} (default: @code{-1}) (type: conf-integer)
|
||||
Set the default time to wait for a response from a spawned mount(8)
|
||||
before sending it a SIGTERM. Note that we still need to wait for the
|
||||
RPC layer to timeout before the sub-process exits so this isn't ideal
|
||||
but it is the best we can do. The default is to wait until mount(8)
|
||||
returns without intervention.
|
||||
|
||||
@item @code{umount-wait} (default: @code{12}) (type: conf-integer)
|
||||
Set the default time to wait for a response from a spawned umount(8)
|
||||
before sending it a SIGTERM. Note that we still need to wait for the
|
||||
RPC layer to timeout before the sub-process exits so this isn't ideal
|
||||
but it is the best we can do.
|
||||
|
||||
@item @code{browse-mode?} (default: @code{#t}) (type: conf-boolean)
|
||||
Should maps be browsable by default?
|
||||
|
||||
@item @code{mount-nfs-default-protocol} (default: @code{3}) (type: conf-integer)
|
||||
Set the default protocol that mount.nfs(8) uses when performing a mount.
|
||||
Autofs needs to know the default NFS protocol that mount.nfs(8) uses so
|
||||
it can do special case handling for its availability probe for different
|
||||
NFS protocols. Since we can't identify this default automatically we
|
||||
need to set it in the autofs configuration.
|
||||
|
||||
@item @code{append-options?} (default: @code{#t}) (type: conf-boolean)
|
||||
When #t, global options are appended to map entry options. When #f, map
|
||||
entry options replace the global options.
|
||||
|
||||
@item @code{logging} (type: conf-log-level)
|
||||
Default log level. May be #:none, #:verbose, or #:debug.
|
||||
|
||||
@item @code{force-standard-program-map-env?} (default: @code{#f}) (type: conf-boolean)
|
||||
Override the use of a prefix with standard environment variables when a
|
||||
program map is executed. Since program maps are run as the privileged
|
||||
user setting these standard environment variables opens automount(8) to
|
||||
potential user privilege escalation when the program map is written in a
|
||||
language that can load components from, for example, a user home
|
||||
directory.
|
||||
|
||||
@item @code{map-hash-table-size} (default: @code{1024}) (type: conf-integer)
|
||||
This configuration option may be used to change the number of hash table
|
||||
slots. This configuration option affects the overhead of searching the
|
||||
map entry cache for map entries when there are a large number of
|
||||
entries. It affects the number of entries that must be looked at to
|
||||
locate a map entry in the map entry cache. For example, the default of
|
||||
1024 and a direct map with 8000 entries would result in each slot
|
||||
containing an average of 8 entries, which should be acceptable. However,
|
||||
if excessive CPU usage is observed during automount lookups increasing
|
||||
this option can reduce the CPU overhead considerably because it reduces
|
||||
the length of the search chains. Note that the number of entries in a
|
||||
map doesn't necessarily relate to the number of entries used in the map
|
||||
entry cache. There are two distinct cases where the map hash table can
|
||||
make a significant difference, direct maps and indirect maps that use
|
||||
the "browse" option. For indirect maps that do not use the "browse"
|
||||
option entries are added to the map entry cache at lookup so the number
|
||||
of active cache entries, in this case, is usually much less than the
|
||||
number of entries in the map. In this last case it would be unusual for
|
||||
the map entry cache to grow large enough to warrant increasing the
|
||||
default before an event that cleans stale entries, a map re-read for
|
||||
example.
|
||||
|
||||
@item @code{use-hostname-for-mounts?} (default: @code{#f}) (type: conf-boolean)
|
||||
NFS mounts where the host name resolves to more than one IP address are
|
||||
probed for availability and to establish the order in which mounts to
|
||||
them should be tried. To ensure that mount attempts are made only to
|
||||
hosts that are responding and are tried in the order of hosts with the
|
||||
quickest response the IP address of the host needs to be used for the
|
||||
mount. If it is necessary to use the hostname given in the map entry
|
||||
for the mount regardless, then set this option to #t. Be aware that if
|
||||
this is done there is no defense against the host name resolving to one
|
||||
that isn't responding and while the number of attempts at a successful
|
||||
mount will correspond to the number of addresses the host name resolves
|
||||
to the order will also not correspond to fastest responding hosts.
|
||||
|
||||
@item @code{disable-not-found-message?} (default: @code{#f}) (type: conf-boolean)
|
||||
The original request to add this log message needed it to be
|
||||
unconditional. That produces, IMHO, unnecessary noise in the log so a
|
||||
configuration option has been added to provide the ability to turn it
|
||||
off.
|
||||
|
||||
@item @code{use-ignore-mount-option?} (default: @code{#f}) (type: conf-boolean)
|
||||
An option to enable the use of autofs pseudo option "disable". This
|
||||
option is used as a hint to user space that the mount entry should be
|
||||
omitted from mount table listings. The default is #f to avoid
|
||||
unexpected changes in behaviour and so is an opt-in setting.
|
||||
|
||||
@item @code{sss-master-map-wait} (default: @code{0}) (type: conf-integer)
|
||||
Set the time to wait and retry if sssd is unable to read the master map
|
||||
at program start. Default is 0 (don't wait) or 10 if sss supports
|
||||
returning EHSTDOWN when the provider isn't available. If the sss
|
||||
library upports returning EHOSTDOWN when the provider is down then this
|
||||
value is how long to wait between re‐ tries reading the master map. When
|
||||
reading dependent maps or looking up a map key this value is multiplied
|
||||
by the number of retries that would be used when reading the master map.
|
||||
|
||||
@item @code{use-mount-request-log-id?} (default: @code{#f}) (type: conf-boolean)
|
||||
Set whether to use a mount request log id so that log entries for
|
||||
specific mount requests can be easily identified in logs that have
|
||||
multiple concurrent requests.
|
||||
|
||||
@end table
|
||||
|
||||
@end deftp
|
||||
|
||||
|
||||
@c %end of fragment
|
||||
|
||||
|
||||
|
||||
@node Samba Services, Continuous Integration, Network File System, Services
|
||||
@subsection Samba Services
|
||||
|
||||
@@ -40918,10 +40647,6 @@ The image type name. Use @code{'hurd-qcow2} for a 32-bit image or
|
||||
The image object representing the disk image of this virtual machine
|
||||
(@pxref{System Images}).
|
||||
|
||||
Alternatively, this can be the file name (a string) of an image, which
|
||||
is useful if you want the image to persist across service restarts---see
|
||||
example below.
|
||||
|
||||
@item @code{disk-size} (default: @code{'guess})
|
||||
The size of the disk image.
|
||||
|
||||
@@ -41020,16 +40745,15 @@ with the following non-volatile secrets, unless they already exist:
|
||||
@end table
|
||||
@end deftp
|
||||
|
||||
Note that by default the VM image is volatile---i.e., once the service
|
||||
is stopped, the contents are lost. If you want a persistent image
|
||||
instead, override the configuration's @code{image} and @code{options}
|
||||
without the @option{--snapshot} flag using something along these lines:
|
||||
Note that by default the VM image is volatile, i.e., once stopped the
|
||||
contents are lost. If you want a stateful image instead, override the
|
||||
configuration's @code{image} and @code{options} without
|
||||
the @code{--snapshot} flag using something along these lines:
|
||||
|
||||
@lisp
|
||||
(service hurd-vm-service-type
|
||||
(hurd-vm-configuration
|
||||
;; Specify an out-of-store, persistent image.
|
||||
(image "/out/of/store/writable/hurd.img")
|
||||
(image (const "/out/of/store/writable/hurd.img"))
|
||||
(options '())))
|
||||
@end lisp
|
||||
|
||||
@@ -47836,13 +47560,8 @@ The @option{--share} and @option{--expose} options can also be passed to
|
||||
the generated script to bind-mount additional directories into the
|
||||
container.
|
||||
|
||||
The generated script also supports the @option{--pid-file} option to
|
||||
write the container process ID to a file. This can be used, along with
|
||||
@command{guix container exec} to execute scripts within the container
|
||||
(@pxref{Invoking guix container}).
|
||||
|
||||
@quotation Note
|
||||
The @code{container} action requires Linux-libre 3.19 or newer.
|
||||
This option requires Linux-libre 3.19 or newer.
|
||||
@end quotation
|
||||
|
||||
@end table
|
||||
@@ -48657,7 +48376,9 @@ particular operating system definition.
|
||||
@cindex service types
|
||||
Technically, developers can define @dfn{service types} to express these
|
||||
relations. There can be any number of services of a given type on the
|
||||
system, for instance when running two instances with different parameters.
|
||||
system---for instance, a system running two instances of the GNU secure
|
||||
shell server (lsh) has two instances of @code{lsh-service-type}, with
|
||||
different parameters.
|
||||
|
||||
The following section describes the programming interface for service
|
||||
types and services.
|
||||
@@ -50291,7 +50012,6 @@ services)}.
|
||||
* Niri: Niri window manager. Setting up the Niri.
|
||||
* Sway: Sway window manager. Setting up the Sway configuration.
|
||||
* Networking: Networking Home Services. Networking services.
|
||||
* Secrets: Secrets Home Services. Services for storing secrets.
|
||||
* Miscellaneous: Miscellaneous Home Services. More services.
|
||||
@end menu
|
||||
@c In addition to that Home Services can provide
|
||||
@@ -51866,94 +51586,6 @@ is passed to the @code{xorg-start-command-xinit} procedure producing the
|
||||
@command{startx} used. Default value is @code{(xorg-configuration)}.
|
||||
@end defvar
|
||||
|
||||
@defvar home-darkman-service-type
|
||||
This is the service type for the
|
||||
@uref{https://gitlab.com/WhyNotHugo/darkman, Darkman}, a program for
|
||||
dark-mode and light-mode transitions on Unix-like desktops. It invokes
|
||||
scripts in @code{$XDG_DATA_DIRS/dark-mode.d} at sundown, and invokes
|
||||
scripts in @code{$XDG_DATA_DIRS/light-mode.d} at sunrise. Darkman tries
|
||||
to determine the user's current location from:
|
||||
@itemize
|
||||
@item The config file.
|
||||
@item The cache file from last time it ran.
|
||||
@item Using the system geoclue.
|
||||
@end itemize
|
||||
@end defvar
|
||||
|
||||
@deftp {Data Type} home-darkman-configuration
|
||||
The configuration record for @code{home-darkman-service-type}. Its
|
||||
available fields are:
|
||||
|
||||
@table @asis
|
||||
@item @code{darkman} (default: @code{darkman}) (type: file-like)
|
||||
The @code{darkman} package to use.
|
||||
|
||||
@item @code{latitude} (type: maybe-number)
|
||||
Latitude, used at startup or when @code{use-geoclue} is @code{#f}. More
|
||||
than one decimal point is generally not needed.
|
||||
|
||||
@item @code{longitude} (type: maybe-number)
|
||||
Longitude, used at startup or when @code{use-geoclue} is @code{#f}.
|
||||
More than one decimal point is generally not needed.
|
||||
|
||||
@item @code{use-geoclue} (default: @code{#f}) (type: boolean)
|
||||
Whether to use a local geoclue instance to determine the current
|
||||
location. Setting this to false without explicitly setting latitude and
|
||||
longtitude disables automatic transitions entirely.
|
||||
|
||||
@item @code{dbus-server} (default: @code{#t}) (type: boolean)
|
||||
Whether to expose the current mode via darkman's own D-Bus API.
|
||||
|
||||
@item @code{portal} (default: @code{#t}) (type: boolean)
|
||||
Whether to expose the current mode via the XDG settings portal D-Bus
|
||||
API.
|
||||
|
||||
@end table
|
||||
@end deftp
|
||||
|
||||
@defvar home-gcr-ssh-agent-service-type
|
||||
|
||||
GNOME Keyring used to be able to act as a wrapper over
|
||||
@command{ssh-agent}. It would display a graphical password entry
|
||||
dialog, including a checkbox to remember the password, which, if
|
||||
selected, would allow fully passwordless use of that key.
|
||||
|
||||
The SSH functionality is disabled by default in
|
||||
@command{gnome-keyring-daemon} builds since version
|
||||
@uref{https://gitlab.gnome.org/GNOME/gnome-keyring/-/commit25c5a1982467802fa12c6852b03c57924553ba73,
|
||||
1.46}. It has been
|
||||
@uref{https://gitlab.gnome.org/GNOME/gcr/-/merge_requests/67, moved}
|
||||
into @command{gcr-ssh-agent}, which is part of the @code{gcr} package.
|
||||
|
||||
To enable the SSH agent functionality it is sufficient to add the
|
||||
following to your Home configuration.
|
||||
|
||||
@lisp
|
||||
(use-modules (gnu home services gnome) ;for 'home-gcr-ssh-agent-service-type'
|
||||
@dots{})
|
||||
|
||||
(home-environment
|
||||
(services
|
||||
(list
|
||||
@dots{}
|
||||
(service home-gcr-ssh-agent-service-type))))
|
||||
@end lisp
|
||||
@end defvar
|
||||
|
||||
@deftp {Data Type} gcr-ssh-agent-configuration
|
||||
The configuration record for @code{home-gcr-ssh-agent-service-type}. Its
|
||||
available fields are:
|
||||
|
||||
@table @asis
|
||||
@item @code{package} (default: @code{gcr}) (type: package)
|
||||
The @code{gcr} package to use.
|
||||
|
||||
@item @code{log-file} (type: maybe-string)
|
||||
Where the service will write its logs. If unset, it defaults to
|
||||
@file{$HOME/.local/state/shepherd/gcr-ssh-agent.log}.
|
||||
|
||||
@end table
|
||||
@end deftp
|
||||
|
||||
@node Guix Home Services
|
||||
@subsection Guix Home Services
|
||||
@@ -53429,96 +53061,6 @@ documentation of the system service (@pxref{Networking Services,
|
||||
@code{syncthing-service-type}}).
|
||||
@end defvar
|
||||
|
||||
@node Secrets Home Services
|
||||
@subsection Secrets Home Services
|
||||
|
||||
The @code{(gnu home services secrets)} module provides services pertaining to
|
||||
storing secrets, notably including password managers.
|
||||
|
||||
@subsubheading Himitsu Services
|
||||
|
||||
@uref{https://himitsustore.org/, Himitsu} is a daemon for storing arbitrary
|
||||
secrets encrypted by a single password. The daemon operates alongside a
|
||||
prompter, which asks the user for permission when an application requests a
|
||||
secret, and for the store password on first use in a session. Neither Himitsu
|
||||
nor its underlying cryptography library have been indepednently audited.
|
||||
|
||||
@defvar home-himitsu-service-type
|
||||
This service provides the main Himitsu store daemon. It will not launch unless
|
||||
you have a store set up - run @code{himitsu-store -i} after the service is added
|
||||
to your profile to create it, and then @code{herd start himitsud} to restart the
|
||||
service. Configuration is as follows:
|
||||
@end defvar
|
||||
|
||||
@deftp {Data Type} home-himitsu-configuration
|
||||
@table @asis
|
||||
@item @code{package} (default: @code{himitsu})
|
||||
Package to find @code{himitsud} in.
|
||||
|
||||
@item @code{notify-reuse} (optional)
|
||||
Interpreted shell command to run on application access to an already-approved
|
||||
secret.
|
||||
|
||||
@item @code{prompter} (default: @code{(wrap-himitsu-prompter (file-append hiprompt-gtk "/bin/hiprompt-gtk"))})
|
||||
Path to a prompter binary. Defaults to @code{hiprompt-gtk}, the reference
|
||||
implementation. If your prompter is graphical, you should pass it through the
|
||||
provided @code{wrap-himitsu-prompter} procedure, which will autodetect a running
|
||||
display to prompt on, due to the Himitsu daemon starting before the display
|
||||
server is online.
|
||||
|
||||
@item @code{extra-options} (optional)
|
||||
List of extra strings or G-expressions to insert verbatim into the Himitsu
|
||||
configuration file. Each list element gets its own line.
|
||||
|
||||
@end table
|
||||
@end deftp
|
||||
|
||||
Himitsu can be used through its command-line tool @code{hiq} or through any
|
||||
number of supporting services, providing compatability to other applications.
|
||||
Git credential support may be provided simply by adding the @code{himitsu-git}
|
||||
package to your profile, but other such supporting services are listed below:
|
||||
|
||||
@defvar home-himitsu-ssh-service-type
|
||||
This service provides an @code{ssh-agent} implementation that stores keys
|
||||
through Himitsu. You may interact with a running daemon through
|
||||
@code{hissh-import} and @code{hissh-export}.
|
||||
@end defvar
|
||||
|
||||
@deftp {Data Type} home-himitsu-ssh-configuration
|
||||
@table @asis
|
||||
@item @code{package} (default: @code{himitsu-ssh})
|
||||
Package to find @code{hissh-agent} in.
|
||||
|
||||
@item @code{persist} (default: @code{'(session 300 refuse)})
|
||||
List of options given when prompting to allow this service access to your list
|
||||
of keys. The option chosen decides how long @code{himitsu-ssh} has this access.
|
||||
Options can be either @code{'session} (access is retained until the daemon
|
||||
closes), @code{'refuse} (access is declined and the prompter will not ask
|
||||
again), @code{'skip} (ask again next use), or a numerical access timeout in
|
||||
seconds.
|
||||
|
||||
@item @code{disclose} (default: @code{'(skip session 300)})
|
||||
List of options given when prompting to allow this service use of your secret
|
||||
keys. Has the same format as @code{persist}.
|
||||
|
||||
@end table
|
||||
@end deftp
|
||||
|
||||
@defvar home-himitsu-secret-service-type
|
||||
This service provides a
|
||||
@uref{https://specifications.freedesktop.org/secret-service/latest/, freedesktop
|
||||
Secret Service} implementation, allowing Himitsu to replace
|
||||
@pxref{Desktop Services, gnome-keyring-service-type} and
|
||||
@pxref{Desktop Services, kwallet-service-type}.
|
||||
@end defvar
|
||||
|
||||
@deftp {Data Type} home-himitsu-secret-service-configuration
|
||||
@table @asis
|
||||
@item @code{package} (default: @code{himitsu-secret-service})
|
||||
Package to find @code{hisecrets-agent} in.
|
||||
|
||||
@end table
|
||||
@end deftp
|
||||
|
||||
@node Miscellaneous Home Services
|
||||
@subsection Miscellaneous Home Services
|
||||
@@ -54435,8 +53977,8 @@ there is no offset applied.
|
||||
@item @code{file-system} (default: @code{"ext4"})
|
||||
The partition file system as a string, defaulting to @code{"ext4"}.
|
||||
|
||||
The supported values are @code{"btrfs"}, @code{"ext4"}, @code{"fat16"},
|
||||
@code{"f2fs"}, @code{"fat32"}, @code{"vfat"}, and @code{"swap"}.
|
||||
The supported values are @code{"vfat"}, @code{"fat16"}, @code{"fat32"},
|
||||
@code{"btrfs"}, and @code{"ext4"}.
|
||||
|
||||
@code{"vfat"}, @code{"fat16"}, and @code{"fat32"} partitions without the
|
||||
@code{'esp} flag are by default LBA compatible.
|
||||
|
||||
+1
-3
@@ -2,7 +2,7 @@
|
||||
# Modified by Ludovic Courtès <ludo@gnu.org> for the GNU Guix manual.
|
||||
# Further modified by Tomas Volf <~@wolfsden.cz>.
|
||||
|
||||
htmlxrefversion=2025-11-29.21; # UTC
|
||||
htmlxrefversion=2025-08-31.16; # UTC
|
||||
|
||||
# Copyright 2010-2020, 2022 Free Software Foundation, Inc.
|
||||
#
|
||||
@@ -453,8 +453,6 @@ GUIX_COOKBOOK = ${GUIX_ROOT}/cookbook
|
||||
guix-cookbook.sk node ${GUIX_COOKBOOK}/sk/html_node/
|
||||
guix-cookbook.sv mono ${GUIX_COOKBOOK}/sv/guix-cookbook.sv.html
|
||||
guix-cookbook.sv node ${GUIX_COOKBOOK}/sv/html_node/
|
||||
guix-cookbook.ta mono ${GUIX_COOKBOOK}/ta/guix-cookbook.ta.html
|
||||
guix-cookbook.ta node ${GUIX_COOKBOOK}/ta/html_node/
|
||||
guix-cookbook mono ${GUIX_COOKBOOK}/en/guix-cookbook.html
|
||||
guix-cookbook node ${GUIX_COOKBOOK}/en/html_node/
|
||||
guix-cookbook.zh_CN mono ${GUIX_COOKBOOK}/zh-cn/guix-cookbook.zh_CN.html
|
||||
|
||||
+1
-2
@@ -26,7 +26,7 @@
|
||||
|
||||
# If adding a language, update the following variables, and info_TEXINFOS.
|
||||
MANUAL_LANGUAGES = de es fr it pt_BR ru zh_CN
|
||||
COOKBOOK_LANGUAGES = de es fr it ko pt_BR ru sk sv ta zh_CN
|
||||
COOKBOOK_LANGUAGES = de es fr it ko pt_BR ru sk sv zh_CN
|
||||
|
||||
# Arg1: A list of languages codes.
|
||||
# Arg2: The file name stem.
|
||||
@@ -52,7 +52,6 @@ info_TEXINFOS = %D%/guix.texi \
|
||||
%D%/guix-cookbook.ru.texi \
|
||||
%D%/guix-cookbook.sk.texi \
|
||||
%D%/guix-cookbook.sv.texi \
|
||||
%D%/guix-cookbook.ta.texi \
|
||||
%D%/guix-cookbook.zh_CN.texi
|
||||
|
||||
%C%_guix_TEXINFOS = \
|
||||
|
||||
+16
-17
@@ -303,23 +303,22 @@ corresponding to the top-level definition containing the staged changes."
|
||||
(or (equal? old-values new-values)
|
||||
(let ((removed (lset-difference equal? old-values new-values))
|
||||
(added (lset-difference equal? new-values old-values)))
|
||||
(unless (and (null? added) (null? removed))
|
||||
(format port
|
||||
"[~a]: ~a~%" field
|
||||
(break-string
|
||||
;; A dependency can be a list of (pkg output).
|
||||
(match (list (map object->string removed)
|
||||
(map object->string added))
|
||||
((() added)
|
||||
(format #f "Add ~a."
|
||||
(listify added)))
|
||||
((removed ())
|
||||
(format #f "Remove ~a."
|
||||
(listify removed)))
|
||||
((removed added)
|
||||
(format #f "Remove ~a; add ~a."
|
||||
(listify removed)
|
||||
(listify added)))))))))))
|
||||
(format port
|
||||
"[~a]: ~a~%" field
|
||||
(break-string
|
||||
;; A dependency can be a list of (pkg output).
|
||||
(match (list (map object->string removed)
|
||||
(map object->string added))
|
||||
((() added)
|
||||
(format #f "Add ~a."
|
||||
(listify added)))
|
||||
((removed ())
|
||||
(format #f "Remove ~a."
|
||||
(listify removed)))
|
||||
((removed added)
|
||||
(format #f "Remove ~a; add ~a."
|
||||
(listify removed)
|
||||
(listify added))))))))))
|
||||
'(inputs propagated-inputs native-inputs)))
|
||||
|
||||
(define* (add-commit-message file-name variable-name
|
||||
|
||||
@@ -185,9 +185,6 @@
|
||||
(allow guix_daemon_t
|
||||
root_t
|
||||
(dir (mounton)))
|
||||
(allow init_t
|
||||
guix_daemon.guix_store_content_t
|
||||
(dir (mounton)))
|
||||
(allow guix_daemon_t
|
||||
fs_t
|
||||
(filesystem (getattr)))
|
||||
@@ -364,14 +361,6 @@
|
||||
self
|
||||
(netlink_route_socket (bind create getattr nlmsg_read read write getopt)))
|
||||
|
||||
;; Allow use of user namespaces
|
||||
(allow guix_daemon_t
|
||||
self
|
||||
(cap_userns (sys_admin net_admin sys_chroot)))
|
||||
(allow guix_daemon_t
|
||||
self
|
||||
(user_namespace (create)))
|
||||
|
||||
;; Socket operations
|
||||
(allow guix_daemon_t
|
||||
guix_daemon_socket_t
|
||||
|
||||
@@ -1,167 +0,0 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;;
|
||||
;;; 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 containing packages which are needed by the
|
||||
;;; installer.
|
||||
|
||||
(use-modules (guix packages)
|
||||
(gnu packages)
|
||||
((gnu services xorg) #:select (%default-xorg-modules))
|
||||
(guix profiles)
|
||||
(guix utils)
|
||||
(srfi srfi-1))
|
||||
|
||||
(define %desktop-packages
|
||||
(append
|
||||
%default-xorg-modules
|
||||
(map specification->package
|
||||
(list
|
||||
;; etc-service
|
||||
"net-base"
|
||||
"tzdata"
|
||||
;; boot-file-system-utilities-service
|
||||
"e2fsprogs"
|
||||
;; plasma-deskto-sservice-type
|
||||
"plasma"
|
||||
;; gnome-desktop-service
|
||||
"gnome"
|
||||
;; xfce-desktop-service
|
||||
"xfce"
|
||||
;; mate-desktop-service
|
||||
"mate"
|
||||
;; set-xorg-configuration-service
|
||||
"font-alias"
|
||||
"font-misc-misc"
|
||||
"font-adobe75dpi"
|
||||
"xorg-server"
|
||||
;; screen-locker-service
|
||||
"slock"
|
||||
"xlockmore"
|
||||
;; mtp-service
|
||||
"libmtp"
|
||||
;; sane-service
|
||||
"sane"
|
||||
"sane-backends"
|
||||
;; mount-setuid-helpers-service
|
||||
"nfs-utils"
|
||||
"ntfs-3g"
|
||||
;; guix-artwork-service
|
||||
"guix-backgrounds"
|
||||
"guix-icons"
|
||||
;; vte-integration-service
|
||||
"vte"
|
||||
;; network-manager-applet-service
|
||||
"network-manager-applet"
|
||||
;; modem-manager-service
|
||||
"modem-manager"
|
||||
;; usb-modeswitch-service
|
||||
"usb-modeswitch"
|
||||
"usb-modeswitch-data"
|
||||
;; avahi-service
|
||||
"avahi"
|
||||
;; udisks-service
|
||||
"udisks"
|
||||
;; cups-pk-helper-service
|
||||
"cups-pk-helper"
|
||||
;; colord-service
|
||||
"colord"
|
||||
;; geoclue-service
|
||||
"geoclue"
|
||||
;; polkit-service
|
||||
"polkit"
|
||||
;; elogind-service
|
||||
"elogind"
|
||||
;; dbus-service
|
||||
;; ntp-service
|
||||
"ntp"
|
||||
;; alsa-service
|
||||
"alsa-plugins"
|
||||
;; mingetty-service
|
||||
"mingetty"
|
||||
;; etc-bashrc-d-service
|
||||
"bash-completion"
|
||||
;; udev-service
|
||||
"eudev"
|
||||
"lvm2"
|
||||
"alsa-utils"
|
||||
"crda"
|
||||
;; sysctl-service
|
||||
"procps"
|
||||
;; special-files-service
|
||||
"coreutils"
|
||||
"grub-pc"
|
||||
"less"
|
||||
"mg"
|
||||
"nano"
|
||||
"nvi"
|
||||
"man-db"
|
||||
"info-reader"
|
||||
"kbd"
|
||||
"guile-readline"
|
||||
"guile-colorized"
|
||||
"pciutils"
|
||||
"usbutils"
|
||||
"util-linux-with-udev"
|
||||
"kmod"
|
||||
"isc-dhcp"
|
||||
"iproute2"
|
||||
"wget"
|
||||
"nss-certs"
|
||||
"iw"
|
||||
"wireless-tools"
|
||||
"psmisc"
|
||||
"which"
|
||||
"guile"
|
||||
"findutils"
|
||||
"grep"
|
||||
"sed"
|
||||
"diffutils"
|
||||
"patch"
|
||||
"gawk"
|
||||
"tar"
|
||||
"gzip"
|
||||
"bzip2"
|
||||
"lzip"
|
||||
"xz"
|
||||
"zstd"
|
||||
;; packages
|
||||
"sway"
|
||||
"foot"
|
||||
"wmenu"
|
||||
"icewm"
|
||||
"openbox"
|
||||
"awesome"
|
||||
"i3-wm"
|
||||
"i3status"
|
||||
"dmenu"
|
||||
"st"
|
||||
"ratpoison"
|
||||
"xterm"
|
||||
"emacs"
|
||||
"emacs-exwm"
|
||||
"emacs-desktop-environment"))))
|
||||
|
||||
(define %desktop-manifest
|
||||
(manifest
|
||||
;; Some of %SYSTEM-PACKAGES are currently unsupported on some
|
||||
;; systems--e.g., GNOME on 32-bit, due to Rust. Filter them out.
|
||||
(filter-map (lambda (package)
|
||||
(and (supported-package? package (%current-system))
|
||||
(package->manifest-entry package)))
|
||||
(append %desktop-packages))))
|
||||
|
||||
%desktop-manifest
|
||||
@@ -23,9 +23,7 @@
|
||||
;;; installer.
|
||||
|
||||
(use-modules (guix packages)
|
||||
(gnu packages)
|
||||
((gnu system) #:select (%base-packages %base-firmware))
|
||||
(guix profiles)
|
||||
((gnu services xorg) #:select (%default-xorg-modules))
|
||||
(guix utils)
|
||||
(srfi srfi-1))
|
||||
|
||||
@@ -46,14 +44,16 @@ TARGET."
|
||||
(define %system-packages
|
||||
;; Key packages proposed by the Guix System installer.
|
||||
(append (map specification->package
|
||||
'("guix" "shepherd" "guile-static-initrd"
|
||||
"openssh" "tor" "ntp" "gpm" "mingetty"
|
||||
'("guix" "shepherd"
|
||||
"gnome" "xfce" "mate"
|
||||
"icewm" "openbox" "awesome"
|
||||
"i3-wm" "i3status" "dmenu" "st"
|
||||
"ratpoison" "xterm"
|
||||
"emacs" "emacs-exwm" "emacs-desktop-environment"
|
||||
"openssh" "tor" "ntp" "gpm"
|
||||
"connman" "network-manager" "wpa-supplicant" "isc-dhcp" "cups"
|
||||
"linux-libre" "grub-hybrid"
|
||||
;; privileged programs
|
||||
"shadow" "sudo" "fuse" "inetutils" "util-linux"))
|
||||
%base-firmware
|
||||
%base-packages))
|
||||
"linux-libre" "grub-hybrid"))
|
||||
%default-xorg-modules))
|
||||
|
||||
(define %bootloader-packages
|
||||
;; The bootloaders offered by the Guix System installer.
|
||||
@@ -42,22 +42,6 @@
|
||||
(channel-news
|
||||
(version 0)
|
||||
|
||||
(entry (commit "14bb0192fde79909999c3880b6b66aa22499eb11")
|
||||
(title
|
||||
(en "Linux-libre 6.16 removed from Guix")
|
||||
(de "Linux-libre 6.16 wurde aus Guix entfernt")
|
||||
(zh "Linux-libre 6.16 已从 Guix 中移除"))
|
||||
(body
|
||||
(en "The linux-libre 6.16 kernel series has been removed from Guix, as
|
||||
it is no longer supported upstream. The 6.17 kernel series is now the
|
||||
default.")
|
||||
(de "Die Versionsreihe 6.16 des Linux-libre-Kernels wurde aus GNU Guix
|
||||
entfernt, weil sie von dessen Anbieter nicht mehr unterstützt wird.
|
||||
Kernel-Versionsreihe 6.17 ist jetzt vorgegeben.")
|
||||
(zh "由于上游不再支持，GNU Guix 已移除 6.16 系列的 linux-libre 内核。6.17
|
||||
内核系列现已成为默认版本。")))
|
||||
|
||||
|
||||
(entry (commit "8daae75de3670594dfcb63b6ae6f1603ca6f7971")
|
||||
(title
|
||||
(en "Fundraising to sustain and strengthen Guix")
|
||||
|
||||
+12
-61
@@ -15,7 +15,6 @@ exec $pre_inst_env_maybe guix repl -- "$0" "$@"
|
||||
;;; Copyright © 2025 Jelle Licht <jlicht@fsfe.org>
|
||||
;;; Copyright © 2025 Cayetano Santos <csantosb@inventati.org>
|
||||
;;; Copyright © 2025 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2025 jgart <jgart@dismail.de>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -465,26 +464,6 @@ already exists. Lookup team IDs among CURRENT-TEAMS."
|
||||
"gnu/packages/fluidplug.scm"
|
||||
"gnu/packages/xiph.scm")))
|
||||
|
||||
(define-team beam
|
||||
(team 'beam
|
||||
#:name "Erlang/Elixir/BEAM team"
|
||||
#:description "The virtual machine at the core of the Erlang Open
|
||||
Telecom Platform (OTP), Erlang and Elxir languages and packages, development
|
||||
of Rebar and Mix build systems and Hex.pm importer."
|
||||
#:scope (list (make-regexp* "^gnu/packages/elixir(-.+|)\\.scm$")
|
||||
"guix/build/mix-build-system.scm"
|
||||
"guix/build-system/mix.scm"
|
||||
(make-regexp* "^gnu/packages/erlang(-.+|)\\.scm$")
|
||||
"guix/build/rebar-build-system.scm"
|
||||
"guix/build-system/rebar.scm"
|
||||
"guix/import/hexpm.scm"
|
||||
"guix/scripts/import/hexpm.scm")))
|
||||
|
||||
(define-team bioinformatics
|
||||
(team 'bioinformatics
|
||||
#:name "Bioinformatics team"
|
||||
#:scope (list "gnu/packages/bioinformatics.scm")))
|
||||
|
||||
(define-team bootstrap
|
||||
(team 'bootstrap
|
||||
#:name "Bootstrap"
|
||||
@@ -698,14 +677,6 @@ GLib/GIO, GTK, GStreamer and Webkit."
|
||||
"guix/scripts/import/go.scm"
|
||||
"tests/import/go.scm")))
|
||||
|
||||
(define-team hare
|
||||
(team 'hare
|
||||
#:name "Hare"
|
||||
#:scope (list "gnu/packages/hare.scm"
|
||||
"gnu/packages/hare-xyz.scm"
|
||||
"guix/build-system/hare.scm"
|
||||
"guix/build/hare-build-system.scm")))
|
||||
|
||||
(define-team haskell
|
||||
(team 'haskell
|
||||
#:name "Haskell team"
|
||||
@@ -938,8 +909,7 @@ importer."
|
||||
"The current release team. Members are expected to change with each
|
||||
release."
|
||||
#:scope (list "NEWS"
|
||||
"etc/manifests/release-minimal.scm"
|
||||
"etc/manifests/release-desktop.scm")))
|
||||
"etc/manifests/release.scm")))
|
||||
|
||||
(define-team reproduciblebuilds
|
||||
(team 'reproduciblebuilds
|
||||
@@ -971,20 +941,6 @@ release."
|
||||
"guix/scripts/import/crate.scm"
|
||||
"tests/import/crate.scm")))
|
||||
|
||||
(define-team crypto
|
||||
(team 'crypto
|
||||
#:name "Crypto team"
|
||||
#:description
|
||||
"Secrets, passwords, cryptography and security related packages."
|
||||
#:scope (list
|
||||
"gnu/packages/crypto.scm"
|
||||
"gnu/packages/gnupg.scm"
|
||||
"gnu/packages/nettle.scm"
|
||||
"gnu/packages/password-utils.scm"
|
||||
"gnu/packages/security-token.scm"
|
||||
"gnu/packages/ssh.scm"
|
||||
"gnu/packages/tls.scm")))
|
||||
|
||||
(define-team science
|
||||
(team 'science
|
||||
#:name "Science team"
|
||||
@@ -1097,6 +1053,11 @@ the \"texlive\" importer."
|
||||
"bavier")
|
||||
science)
|
||||
|
||||
(define-member (person "Lars-Dominik Braun"
|
||||
"lars@6xq.net"
|
||||
"ldb")
|
||||
python haskell)
|
||||
|
||||
(define-member (person "Jonathan Brielmaier"
|
||||
"jonathan.brielmaier@web.de"
|
||||
"jonsger")
|
||||
@@ -1111,7 +1072,7 @@ the \"texlive\" importer."
|
||||
(define-member (person "Andreas Enge"
|
||||
"andreas@enge.fr"
|
||||
"enge")
|
||||
bootstrap core-packages crypto lxqt science tex)
|
||||
bootstrap core-packages lxqt science tex)
|
||||
|
||||
(define-member (person "Tanguy Le Carrour"
|
||||
"tanguy@bioneland.org"
|
||||
@@ -1141,7 +1102,7 @@ the \"texlive\" importer."
|
||||
(define-member (person "jgart"
|
||||
"jgart@dismail.de"
|
||||
"jgart")
|
||||
hare lisp mentors)
|
||||
lisp mentors)
|
||||
|
||||
(define-member (person "Guillaume Le Vaillant"
|
||||
"glv@posteo.net"
|
||||
@@ -1176,7 +1137,7 @@ the \"texlive\" importer."
|
||||
(define-member (person "Ricardo Wurmus"
|
||||
"rekado@elephly.net"
|
||||
"rekado")
|
||||
bioinformatics r sugar)
|
||||
r sugar)
|
||||
|
||||
(define-member (person "Christopher Baines"
|
||||
"guix@cbaines.net"
|
||||
@@ -1318,7 +1279,7 @@ the \"texlive\" importer."
|
||||
(define-member (person "Cayetano Santos"
|
||||
"csantosb@inventati.org"
|
||||
"csantosb")
|
||||
ai emacs electronics hpc crypto)
|
||||
ai emacs electronics hpc)
|
||||
|
||||
(define-member (person "Greg Hogan"
|
||||
"code@greghogan.com"
|
||||
@@ -1365,9 +1326,9 @@ the \"texlive\" importer."
|
||||
hurd)
|
||||
|
||||
(define-member (person "Giacomo Leidi"
|
||||
"therewasa@fishinthecalculator.me"
|
||||
"goodoldpaul@autistici.org"
|
||||
"fishinthecalculator")
|
||||
audio beam)
|
||||
audio)
|
||||
|
||||
(define-member (person "Saku Laesvuori"
|
||||
"saku@laesvuori.fi"
|
||||
@@ -1399,16 +1360,6 @@ the \"texlive\" importer."
|
||||
"atai")
|
||||
ai)
|
||||
|
||||
(define-member (person "Pierre-Henry Fröhring"
|
||||
"contact@phfrohring.com"
|
||||
"phfrohring")
|
||||
beam)
|
||||
|
||||
(define-member (person "Igorj Gorjaĉev"
|
||||
"igor@goryachev.org"
|
||||
"delitrem")
|
||||
beam)
|
||||
|
||||
|
||||
(define (find-team name)
|
||||
(or (hash-ref %teams (string->symbol name))
|
||||
|
||||
@@ -1,60 +0,0 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2025 Giacomo Leidi <therewasa@fishinthecalculator.me>
|
||||
;;;
|
||||
;;; 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 built using the mix-build-system.
|
||||
;;; It is used to assist continuous integration of the beam-team branch.
|
||||
;;;
|
||||
;;;
|
||||
;;; You can use it to build all covered packages with:
|
||||
;;;
|
||||
;;; ./pre-inst-env guix build -m etc/teams/beam/elixir-manifest.scm
|
||||
;;;
|
||||
;;; or to update them with:
|
||||
;;;
|
||||
;;; ./pre-inst-env guix refresh -u -m etc/teams/beam/elixir-manifest.scm
|
||||
|
||||
(use-modules (guix packages)
|
||||
(guix profiles)
|
||||
(guix gexp)
|
||||
(guix build-system)
|
||||
(ice-9 match)
|
||||
(srfi srfi-1)
|
||||
(srfi srfi-26))
|
||||
|
||||
(define* (has-mix-build-system? build-system #:key modules #:allow-other-keys)
|
||||
(or (eq? (build-system-name build-system) 'mix)
|
||||
(any
|
||||
(match-lambda
|
||||
(('guix 'build 'mix-build-system) #t)
|
||||
('((guix build mix-build-system) . _) #t)
|
||||
(_ #f))
|
||||
(cond
|
||||
((gexp? modules) (gexp->approximate-sexp modules))
|
||||
((pair? modules) modules)
|
||||
(else '())))))
|
||||
|
||||
(manifest
|
||||
(map package->manifest-entry
|
||||
(fold-packages
|
||||
(lambda (package lst)
|
||||
(if (apply has-mix-build-system?
|
||||
(package-build-system package)
|
||||
(package-arguments package))
|
||||
(cons package lst)
|
||||
lst))
|
||||
(list))))
|
||||
@@ -1,60 +0,0 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2025 Giacomo Leidi <therewasa@fishinthecalculator.me>
|
||||
;;;
|
||||
;;; 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 built using the rebar-build-system.
|
||||
;;; It is used to assist continuous integration of the beam-team branch.
|
||||
;;;
|
||||
;;;
|
||||
;;; You can use it to build all covered packages with:
|
||||
;;;
|
||||
;;; ./pre-inst-env guix build -m etc/teams/beam/erlang-manifest.scm
|
||||
;;;
|
||||
;;; or to update them with:
|
||||
;;;
|
||||
;;; ./pre-inst-env guix refresh -u -m etc/teams/beam/erlang-manifest.scm
|
||||
|
||||
(use-modules (guix packages)
|
||||
(guix profiles)
|
||||
(guix gexp)
|
||||
(guix build-system)
|
||||
(ice-9 match)
|
||||
(srfi srfi-1)
|
||||
(srfi srfi-26))
|
||||
|
||||
(define* (has-rebar-build-system? build-system #:key modules #:allow-other-keys)
|
||||
(or (eq? (build-system-name build-system) 'rebar)
|
||||
(any
|
||||
(match-lambda
|
||||
(('guix 'build 'rebar-build-system) #t)
|
||||
('((guix build rebar-build-system) . _) #t)
|
||||
(_ #f))
|
||||
(cond
|
||||
((gexp? modules) (gexp->approximate-sexp modules))
|
||||
((pair? modules) modules)
|
||||
(else '())))))
|
||||
|
||||
(manifest
|
||||
(map package->manifest-entry
|
||||
(fold-packages
|
||||
(lambda (package lst)
|
||||
(if (apply has-rebar-build-system?
|
||||
(package-build-system package)
|
||||
(package-arguments package))
|
||||
(cons package lst)
|
||||
lst))
|
||||
(list))))
|
||||
@@ -52,8 +52,7 @@
|
||||
tools/versions-stable")))
|
||||
|
||||
(define (fetch-releng-content)
|
||||
"Return a string corresponding to the content of the %GNOME-RELENG-VERSIONS-URI
|
||||
file."
|
||||
"Return an input port to the %GNOME-RELENG-VERSIONS-URI file."
|
||||
(call-with-port (http-fetch/cached (%gnome-releng-versions-uri))
|
||||
get-string-all))
|
||||
|
||||
@@ -76,8 +75,8 @@ NL < '\n'")
|
||||
'(("adwaita-fonts" . "font-adwaita")))
|
||||
|
||||
(define (parse-releng data)
|
||||
"Return the complete parse tree for DATA, a string representing the content of
|
||||
a GNOME releng file."
|
||||
"Return DATA, a string representing the content of a GNOME releng file, and
|
||||
return the complete parse tree."
|
||||
(let ((tree (peg:tree (match-pattern releng data))))
|
||||
(match tree
|
||||
(#f (raise-exception (make-releng-parser-error)))
|
||||
|
||||
@@ -1,34 +0,0 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2025 jgart <jgart@dismail.de>
|
||||
;;;
|
||||
;;; 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 built using the cargo-build-system.
|
||||
;;; It is used to assist continuous integration of the rust-team branch.
|
||||
|
||||
(use-modules (guix packages)
|
||||
(guix profiles)
|
||||
(guix build-system))
|
||||
|
||||
(manifest
|
||||
(map package->manifest-entry
|
||||
(fold-packages
|
||||
(lambda (package lst)
|
||||
(if (or (eq? 'hare (build-system-name (package-build-system package)))
|
||||
(string=? "hare" (package-name package)))
|
||||
(cons package lst)
|
||||
lst))
|
||||
'())))
|
||||
@@ -1,94 +0,0 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;;
|
||||
;;; 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/>.
|
||||
|
||||
(use-modules (guix packages)
|
||||
(guix gexp)
|
||||
(gnu services)
|
||||
(gnu tests install)
|
||||
(ice-9 match)
|
||||
(guix utils)
|
||||
(srfi srfi-26)
|
||||
(srfi srfi-1))
|
||||
|
||||
;; TODO find a better way to check for thunked fields
|
||||
(define* (thunked-field? field obj)
|
||||
(and
|
||||
(procedure? obj)
|
||||
(eq?
|
||||
(car (procedure-minimum-arity obj))
|
||||
1)
|
||||
; Uhhh
|
||||
(string-suffix? "(x)>"
|
||||
(format #f "~a" obj))))
|
||||
|
||||
;; Prints names of all packages, prepending the service they
|
||||
;; come from.
|
||||
(define* (print-all-packages obj #:optional (pred package?))
|
||||
(match obj
|
||||
((? pred)
|
||||
(format #t "\"~a\"~%" (package-name obj))
|
||||
(list obj))
|
||||
((? gexp?)
|
||||
(list))
|
||||
((a . b)
|
||||
(append (print-all-packages a pred)
|
||||
(print-all-packages b pred)))
|
||||
((_ ...)
|
||||
(apply append
|
||||
(map (cut print-all-packages <> pred)
|
||||
obj)))
|
||||
(#(_ ...)
|
||||
(print-all-packages (vector->list obj) proc))
|
||||
((or (? service-type?)
|
||||
(? origin?))
|
||||
(list))
|
||||
((? record?)
|
||||
(let* ((record-type (record-type-descriptor obj))
|
||||
(record-fields (record-type-fields record-type)))
|
||||
(when (service? obj)
|
||||
(format #t ";; ~a-service~%" (service-type-name (service-kind obj))))
|
||||
(apply append
|
||||
(map (lambda (field)
|
||||
(let* ((accessor (record-accessor record-type field))
|
||||
(field-obj (accessor obj)))
|
||||
(if (thunked-field? field field-obj)
|
||||
(print-all-packages (field-obj obj) pred)
|
||||
(print-all-packages field-obj pred))))
|
||||
record-fields))))
|
||||
((? parameter?)
|
||||
(list))
|
||||
(_
|
||||
(list))))
|
||||
|
||||
(define full-installer-os
|
||||
((@@ (gnu tests install) installation-target-desktop-os-for-gui-tests)))
|
||||
|
||||
(define minimal-installer-os
|
||||
((@@ (gnu tests install) installation-target-os-for-gui-tests)))
|
||||
|
||||
(display "Full os packages:")
|
||||
(print-all-packages full-installer-os)
|
||||
(display "Minimal os packages:")
|
||||
(print-all-packages minimal-installer-os)
|
||||
|
||||
;; Note that the printed packages will contain duplicates.
|
||||
;; I recommend to first put packages out of the profile service
|
||||
;; and out of packages field (they will be above service packages)
|
||||
;; at the bottom of the list and then filtering only unique lines, ie.
|
||||
;; with `awk '!a[$0]++'`. And lastly removing services that no longer
|
||||
;; have packages and also the packages that are already in minimal manifest
|
||||
;; (in case of desktop manifest)
|
||||
@@ -65,7 +65,6 @@
|
||||
grub-efi-bootloader
|
||||
grub-efi-removable-bootloader
|
||||
grub-efi32-bootloader
|
||||
grub-efi32-removable-bootloader
|
||||
grub-efi-netboot-bootloader
|
||||
grub-efi-netboot-removable-bootloader
|
||||
grub-mkrescue-bootloader
|
||||
@@ -845,13 +844,6 @@ symlink to the store is not needed in this case."
|
||||
(name 'grub-efi32)
|
||||
(package grub-efi32)))
|
||||
|
||||
(define grub-efi32-removable-bootloader
|
||||
(bootloader
|
||||
(inherit grub-efi32-bootloader)
|
||||
(name 'grub-efi32-removable-bootloader)
|
||||
(installer (make-grub-efi-installer #:removable? #t
|
||||
#:efi32? #t))))
|
||||
|
||||
(define (make-grub-efi-netboot-bootloader name subdir)
|
||||
(bootloader
|
||||
(name name)
|
||||
|
||||
+16
-25
@@ -11,7 +11,6 @@
|
||||
;;; Copyright © 2022 Tobias Geerinckx-Rice <me@tobias.gr>
|
||||
;;; Copyright © 2024 Nicolas Graves <ngraves@ngraves.fr>
|
||||
;;; Copyright © 2024 Giacomo Leidi <goodoldpaul@autistici.org>
|
||||
;;; Copyright © 2025 Maxim Cournoyer <maxim@guixotic.coop>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -279,17 +278,6 @@ they already exist."
|
||||
|
||||
(for-each ensure-user-home users))
|
||||
|
||||
(define* (canonicalize-path* file)
|
||||
"A safe version of `canonicalize-path' that warns rather than raises on errors.
|
||||
`canonicalize-path' uses `realpath(2)', which can return various errors like
|
||||
EINVAL, ELOOP, etc."
|
||||
(or (false-if-exception (canonicalize-path file))
|
||||
(begin
|
||||
(format (current-warning-port)
|
||||
"warning: could not canonicalize file `~a'; using as-is~%"
|
||||
file)
|
||||
file)))
|
||||
|
||||
(define (activate-etc etc)
|
||||
"Install ETC, a directory in the store, as the source of static files for
|
||||
/etc."
|
||||
@@ -312,23 +300,26 @@ EINVAL, ELOOP, etc."
|
||||
(rm-f "/etc/ssl")
|
||||
(symlink "/run/current-system/profile/etc/ssl" "/etc/ssl")
|
||||
|
||||
(rm-f "/etc/static")
|
||||
(symlink etc "/etc/static")
|
||||
(for-each (lambda (file)
|
||||
(let ((target (string-append "/etc/" file))
|
||||
;; Canonicalize the file names to resolve any symlinks, to
|
||||
;; ensure /etc/localtime points to a timezone data file in
|
||||
;; the store containing the timezone name. This is done
|
||||
;; for compatibility with software expecting this systemd
|
||||
;; convention to be followed.
|
||||
(source (canonicalize-path* (string-append etc "/" file))))
|
||||
(source (string-append "/etc/static/" file)))
|
||||
(rm-f target)
|
||||
(if (string=? (basename target) "sudoers")
|
||||
(begin
|
||||
;; /etc/sudoers must be a regular file.
|
||||
(copy-file source target)
|
||||
;; XXX: dirty hack to meet sudo's expectations
|
||||
(chmod target #o440))
|
||||
(symlink source target)))) ;usual case
|
||||
|
||||
;; Things such as /etc/sudoers must be regular files, not
|
||||
;; symlinks; furthermore, they could be modified behind our
|
||||
;; back---e.g., with 'visudo'. Thus, make a copy instead of
|
||||
;; symlinking them.
|
||||
(if (file-is-directory? source)
|
||||
(symlink source target)
|
||||
(copy-file source target))
|
||||
|
||||
;; XXX: Dirty hack to meet sudo's expectations.
|
||||
(when (string=? (basename target) "sudoers")
|
||||
(chmod target #o440))))
|
||||
(scandir etc (negate dot-or-dot-dot?)
|
||||
|
||||
;; The default is 'string-locale<?', but we don't have
|
||||
;; it when run from the initrd's statically-linked
|
||||
;; Guile.
|
||||
|
||||
+6
-65
@@ -1,12 +1,12 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2013-2020, 2025 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2016 Christine Lemmer-Webber <cwebber@dustycloud.org>
|
||||
;;; Copyright © 2016, 2017 Leo Famulari <leo@famulari.name>
|
||||
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
|
||||
;;; Copyright © 2020, 2022 Tobias Geerinckx-Rice <me@tobias.gr>
|
||||
;;; Copyright © 2020 Mathieu Othacehe <m.othacehe@gmail.com>
|
||||
;;; Copyright © 2022 Pavel Shlyak <p.shlyak@pantherx.org>
|
||||
;;; Copyright © 2022, 2025 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
|
||||
;;; Copyright © 2022 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
|
||||
;;; Copyright © 2023 Efraim Flashner <efraim@flashner.co.il>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
@@ -66,14 +66,12 @@
|
||||
(number->string
|
||||
(inexact->exact (ceiling (/ size 1024)))))
|
||||
|
||||
(define* (estimate-partition-size root #:optional (margin .25))
|
||||
(define (estimate-partition-size root)
|
||||
"Given the ROOT directory, evaluate and return its size. As this doesn't
|
||||
take the partition metadata size into account, take a MARGIN. As this in
|
||||
take the partition metadata size into account, take a 25% margin. As this in
|
||||
turn doesn't take any constant overhead into account, force a 1-MiB minimum."
|
||||
(max (ash 1 20)
|
||||
;; without inexact->exact, 'guess can result in an error like that:
|
||||
;; "Wrong type (expecting exact integer): 7179941140.0".
|
||||
(inexact->exact (round (* (+ 1. margin) (file-size root))))))
|
||||
(* 1.25 (file-size root))))
|
||||
|
||||
(define* (make-btrfs-image partition target root)
|
||||
"Handle the creation of BTRFS partition images. See
|
||||
@@ -118,43 +116,7 @@ turn doesn't take any constant overhead into account, force a 1-MiB minimum."
|
||||
(size-in-kib
|
||||
(if (eq? size 'guess)
|
||||
(estimate-partition-size root)
|
||||
size)))))
|
||||
|
||||
;; 'mke2fs' does not create directory indexes by default, meaning that
|
||||
;; directories have a limit of 65,000 sub-directories, which can be
|
||||
;; problematic for the store. To avoid that, run 'e2fsck -D' to create
|
||||
;; those directory indexes. See
|
||||
;; <https://github.com/tytso/e2fsprogs/issues/257>.
|
||||
(invoke "e2fsck" "-fDy" target)))
|
||||
|
||||
(define* (make-f2fs-image partition target root
|
||||
#:key
|
||||
(owner-uid 0)
|
||||
(owner-gid 0))
|
||||
"Handle the creation of F2FS partition images. See 'make-partition-image'."
|
||||
(let ((size (partition-size partition))
|
||||
(label (partition-label partition))
|
||||
(uuid (partition-uuid partition))
|
||||
(fs-options (partition-file-system-options partition)))
|
||||
;; The mkfs.f2fs utility can't create files, so we need to create one
|
||||
;; before running it.
|
||||
(call-with-output-file target (const #t))
|
||||
(truncate-file
|
||||
target
|
||||
(if (eq? size 'guess)
|
||||
;; The F2FS filesystem has more overhead than other filesystems like
|
||||
;; BTRFS and ext4.
|
||||
(estimate-partition-size root .50)
|
||||
size))
|
||||
(apply invoke "fakeroot" "mkfs.f2fs"
|
||||
"-l" label
|
||||
"-R" (format #f "~a:~a" owner-uid owner-gid)
|
||||
`(,@(if uuid
|
||||
`("-U" ,(uuid->string uuid))
|
||||
'())
|
||||
,@fs-options
|
||||
,target))
|
||||
(invoke "fakeroot" "sload.f2fs" "-P" "-f" root target)))
|
||||
size)))))))
|
||||
|
||||
(define* (make-vfat-image partition target root fs-bits)
|
||||
"Handle the creation of VFAT partition images. See 'make-partition-image'."
|
||||
@@ -182,23 +144,6 @@ turn doesn't take any constant overhead into account, force a 1-MiB minimum."
|
||||
(string-append "::" file))))
|
||||
(scandir root))))
|
||||
|
||||
(define* (make-swap-image partition target)
|
||||
"Make a swap partition of a certain size."
|
||||
(let ((size (partition-size partition))
|
||||
(label (partition-label partition))
|
||||
(uuid (partition-uuid partition))
|
||||
(fs-options (partition-file-system-options partition)))
|
||||
(apply invoke "fakeroot" "mkswap"
|
||||
"--pagesize" "4096"
|
||||
"--endianness" "little"
|
||||
"-L" label
|
||||
"--file" target
|
||||
"--size" (number->string size)
|
||||
`(,@(if uuid
|
||||
`("-U" ,(uuid->string uuid))
|
||||
'())
|
||||
,@fs-options))))
|
||||
|
||||
(define* (make-unformatted-image partition target)
|
||||
"Make an unformatted partition of a certain size."
|
||||
(let ((size (partition-size partition)))
|
||||
@@ -217,14 +162,10 @@ ROOT directory to populate the image."
|
||||
(make-btrfs-image partition target root))
|
||||
((string-prefix? "ext" type)
|
||||
(make-ext-image partition target root))
|
||||
((string=? "f2fs" type)
|
||||
(make-f2fs-image partition target root))
|
||||
((or (string=? type "vfat") (string=? type "fat16"))
|
||||
(make-vfat-image partition target root 16))
|
||||
((string=? type "fat32")
|
||||
(make-vfat-image partition target root 32))
|
||||
((string=? "swap" type)
|
||||
(make-swap-image partition target))
|
||||
((string=? type "unformatted")
|
||||
(make-unformatted-image partition target))
|
||||
(else
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2025 Giacomo Leidi <therewasa@fishinthecalculator.me>
|
||||
;;; Copyright © 2025 Giacomo Leidi <goodoldpaul@autistici.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2025 Giacomo Leidi <therewasa@fishinthecalculator.me>
|
||||
;;; Copyright © 2025 Giacomo Leidi <goodoldpaul@autistici.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
||||
@@ -3,7 +3,6 @@
|
||||
;;; Copyright © 2022 ( <paren@disroot.org>
|
||||
;;; Copyright © 2023 conses <contact@conses.eu>
|
||||
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
|
||||
;;; Copyright © 2025 dan <i@dan.games>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -26,7 +25,7 @@
|
||||
#:use-module (gnu services configuration)
|
||||
#:use-module (gnu services xorg)
|
||||
#:autoload (gnu packages glib) (dbus)
|
||||
#:autoload (gnu packages xdisorg) (darkman redshift unclutter)
|
||||
#:autoload (gnu packages xdisorg) (redshift unclutter)
|
||||
#:autoload (gnu packages xorg) (setxkbmap xmodmap)
|
||||
#:use-module (guix records)
|
||||
#:use-module (guix gexp)
|
||||
@@ -47,11 +46,7 @@
|
||||
home-xmodmap-configuration
|
||||
home-xmodmap-service-type
|
||||
|
||||
home-startx-command-service-type
|
||||
|
||||
home-darkman-configuration
|
||||
home-darkman-configuration?
|
||||
home-darkman-service-type))
|
||||
home-startx-command-service-type))
|
||||
|
||||
|
||||
;;;
|
||||
@@ -452,93 +447,3 @@ buttons under the Xorg display server via user-defined expressions.")))
|
||||
|
||||
(define-service-type-mapping
|
||||
startx-command-service-type => home-startx-command-service-type)
|
||||
|
||||
|
||||
;;;
|
||||
;;; Darkman.
|
||||
;;;
|
||||
|
||||
(define-maybe number)
|
||||
|
||||
(define (serialize-number field value)
|
||||
(string-append (match field
|
||||
('latitude "lat")
|
||||
('longitude "lng")
|
||||
(_ (symbol->string field)))
|
||||
": " (number->string value) "\n"))
|
||||
|
||||
(define (serialize-boolean field value)
|
||||
(string-append (match field
|
||||
('use-geoclue "usegeoclue")
|
||||
('dbus-server "dbusserver")
|
||||
(_ "portal"))
|
||||
": " (if value "true" "false") "\n"))
|
||||
|
||||
(define-configuration home-darkman-configuration
|
||||
(darkman
|
||||
(file-like darkman)
|
||||
"The @code{darkman} package to use.")
|
||||
|
||||
(latitude
|
||||
maybe-number
|
||||
"Latitude, used at startup or when @code{use-geoclue} is @code{#f}. More than
|
||||
one decimal point is generally not needed.")
|
||||
|
||||
(longitude
|
||||
maybe-number
|
||||
"Longitude, used at startup or when @code{use-geoclue} is @code{#f}. More than
|
||||
one decimal point is generally not needed.")
|
||||
|
||||
(use-geoclue
|
||||
(boolean #f)
|
||||
"Whether to use a local geoclue instance to determine the current location.
|
||||
Setting this to false without explicitly setting latitude and longtitude
|
||||
disables automatic transitions entirely.")
|
||||
|
||||
(dbus-server
|
||||
(boolean #t)
|
||||
"Whether to expose the current mode via darkman's own D-Bus API.")
|
||||
|
||||
(portal
|
||||
(boolean #t)
|
||||
"Whether to expose the current mode via the XDG settings portal D-Bus API."))
|
||||
|
||||
(define (serialize-home-darkman-configuration config)
|
||||
(mixed-text-file
|
||||
"config.yaml"
|
||||
(serialize-configuration config home-darkman-configuration-fields)))
|
||||
|
||||
(define (home-darkman-configuration-files config)
|
||||
`(("darkman/config.yaml" ,(serialize-home-darkman-configuration config))))
|
||||
|
||||
(define (home-darkman-profile-service config)
|
||||
(list (home-darkman-configuration-darkman config)))
|
||||
|
||||
(define (home-darkman-shepherd-service config)
|
||||
(list
|
||||
(shepherd-service
|
||||
(provision '(darkman))
|
||||
(requirement '(dbus))
|
||||
(modules '((shepherd support))) ;for '%user-log-dir'
|
||||
(start #~(make-forkexec-constructor
|
||||
(list #$(file-append (home-darkman-configuration-darkman config)
|
||||
"/bin/darkman")
|
||||
"run")
|
||||
#:log-file
|
||||
(string-append %user-log-dir "/darkman.log")))
|
||||
(stop #~(make-kill-destructor)))))
|
||||
|
||||
(define home-darkman-service-type
|
||||
(service-type
|
||||
(name 'home-darkman)
|
||||
(extensions
|
||||
(list (service-extension home-shepherd-service-type
|
||||
home-darkman-shepherd-service)
|
||||
(service-extension home-xdg-configuration-files-service-type
|
||||
home-darkman-configuration-files)
|
||||
(service-extension home-profile-service-type
|
||||
home-darkman-profile-service)))
|
||||
(default-value (home-darkman-configuration))
|
||||
(description "Run the @code{darkman} daemon, which will invoke scripts in
|
||||
$XDG_DATA_DIRS/dark-mode.d/ when sundown, and invoke scripts in
|
||||
$XDG_DATA_DIRS/light-mode.d/ when sunrise.")))
|
||||
|
||||
@@ -1,6 +1,6 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2024 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2024 Giacomo Leidi <therewasa@fishinthecalculator.me>
|
||||
;;; Copyright © 2024 Giacomo Leidi <goodoldpaul@autistici.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
||||
@@ -1,7 +1,7 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2021 Andrew Tropin <andrew@trop.in>
|
||||
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
|
||||
;;; Copyright © 2023 Giacomo Leidi <therewasa@fishinthecalculator.me>
|
||||
;;; Copyright © 2023 Giacomo Leidi <goodoldpaul@autistici.org>
|
||||
;;; Copyright © 2023 Andrew Patterson <andrewpatt7@gmail.com>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
|
||||
@@ -1,104 +0,0 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2025 Giacomo Leidi <therewasa@fishinthecalculator.me>
|
||||
;;;
|
||||
;;; 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 gnome)
|
||||
#:use-module (guix gexp)
|
||||
#:use-module (guix packages)
|
||||
#:use-module (gnu packages admin)
|
||||
#:use-module (gnu packages gnome)
|
||||
#:use-module (gnu system accounts)
|
||||
#:use-module (gnu services configuration)
|
||||
#:use-module (gnu home services)
|
||||
#:use-module (gnu home services shepherd)
|
||||
#:export (gcr-ssh-agent-configuration
|
||||
gcr-ssh-agent-configuration?
|
||||
gcr-ssh-agent-configuration-fields
|
||||
gcr-ssh-agent-configuration-package
|
||||
gcr-ssh-agent-configuration-log-file
|
||||
|
||||
home-gcr-ssh-agent-log-file
|
||||
home-gcr-ssh-agent-shepherd-service
|
||||
|
||||
home-gcr-ssh-agent-service-type))
|
||||
|
||||
(define-maybe/no-serialization string)
|
||||
|
||||
(define-configuration/no-serialization gcr-ssh-agent-configuration
|
||||
(package
|
||||
(package gcr)
|
||||
"The @code{gcr} package to use.")
|
||||
(log-file
|
||||
(maybe-string)
|
||||
"Where the service will write its logs. If unset, it defaults to
|
||||
@file{$HOME/.local/state/shepherd/gcr-ssh-agent.log}."))
|
||||
|
||||
(define (home-gcr-ssh-agent-log-file config)
|
||||
(define maybe-log-file (gcr-ssh-agent-configuration-log-file config))
|
||||
(if (maybe-value-set? maybe-log-file)
|
||||
maybe-log-file
|
||||
#~(string-append %user-log-dir "/gcr-ssh-agent.log")))
|
||||
|
||||
(define (home-gcr-ssh-agent-shepherd-service config)
|
||||
(let ((package
|
||||
(gcr-ssh-agent-configuration-package config))
|
||||
(log-file (home-gcr-ssh-agent-log-file config)))
|
||||
(list
|
||||
(shepherd-service
|
||||
(provision '(gcr-ssh-agent ssh-agent))
|
||||
(modules
|
||||
;;for '%user-log-dir' and '%user-runtime-dir'
|
||||
'((shepherd support)))
|
||||
(start
|
||||
#~(let* ((socket-directory
|
||||
(string-append %user-runtime-dir
|
||||
"/gcr"))
|
||||
(socket-endpoint
|
||||
(endpoint
|
||||
(make-socket-address
|
||||
AF_UNIX
|
||||
(string-append socket-directory "/ssh"))
|
||||
#:name "ssh"
|
||||
#:socket-directory-permissions #o700)))
|
||||
(make-systemd-constructor
|
||||
(list #$(file-append package
|
||||
"/libexec/gcr-ssh-agent")
|
||||
"-d" socket-directory)
|
||||
(list socket-endpoint)
|
||||
;; With #:lazy-start #t the first ssh connection
|
||||
;; hangs indefinitely.
|
||||
#:lazy-start? #f
|
||||
#:log-file #$log-file)))
|
||||
(stop #~(make-systemd-destructor))))))
|
||||
|
||||
(define (home-gcr-ssh-agent-environment-variables config)
|
||||
`(("SSH_AUTH_SOCK" . "${XDG_RUNTIME_DIR}/gcr/ssh")))
|
||||
|
||||
(define home-gcr-ssh-agent-service-type
|
||||
(service-type
|
||||
(name 'home-gcr-ssh-agent)
|
||||
(extensions
|
||||
(list (service-extension
|
||||
home-shepherd-service-type
|
||||
home-gcr-ssh-agent-shepherd-service)
|
||||
(service-extension home-environment-variables-service-type
|
||||
home-gcr-ssh-agent-environment-variables)))
|
||||
(default-value (gcr-ssh-agent-configuration))
|
||||
(description
|
||||
"Provides @code{gcr-ssh-agent} Shepherd service and installs
|
||||
@code{gcr} in the system profile.")))
|
||||
@@ -23,7 +23,6 @@
|
||||
#:use-module (gnu packages freedesktop)
|
||||
#:use-module (gnu packages glib)
|
||||
#:use-module (gnu packages gnome)
|
||||
#:use-module (gnu packages xorg)
|
||||
#:use-module (gnu packages wm)
|
||||
#:use-module (gnu services)
|
||||
#:use-module (gnu services shepherd)
|
||||
@@ -72,8 +71,7 @@ environment variables set for a Wayland desktop session."
|
||||
niri
|
||||
xdg-desktop-portal
|
||||
xdg-desktop-portal-gnome
|
||||
xdg-desktop-portal-gtk
|
||||
xwayland-satellite)))))
|
||||
xdg-desktop-portal-gtk)))))
|
||||
(description "Install and configure Niri, a scrollable tiling Wayland
|
||||
compositor. This service starts Niri as a user-level desktop session with
|
||||
proper environment variables set for Wayland compatibility. It ensures Niri
|
||||
|
||||
@@ -1,221 +0,0 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2025 Lilah Tascheter <lilah@lunabee.space>
|
||||
;;;
|
||||
;;; 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 secrets)
|
||||
#:use-module (gnu home services)
|
||||
#:use-module (gnu home services shepherd)
|
||||
#:use-module (gnu packages password-utils)
|
||||
#:use-module (gnu services)
|
||||
#:use-module (gnu services configuration)
|
||||
#:use-module (gnu services shepherd)
|
||||
#:use-module (guix gexp)
|
||||
#:use-module (srfi srfi-1)
|
||||
#:export (wrap-himitsu-prompter
|
||||
home-himitsu-configuration
|
||||
home-himitsu-service-type
|
||||
|
||||
home-himitsu-ssh-configuration
|
||||
home-himitsu-ssh-service-type
|
||||
|
||||
home-himitsu-secret-service-configuration
|
||||
home-himitsu-secret-service-type))
|
||||
|
||||
;;
|
||||
;; himitsu
|
||||
;;
|
||||
|
||||
(define (wrap-himitsu-prompter prompter)
|
||||
"Wraps a prompter to autodetect DISPLAY and WAYLAND_DISPLAY, necessary since
|
||||
shepherd typically starts before a graphical session."
|
||||
(program-file "himitsu-wrapped-prompter"
|
||||
#~(begin (use-modules (ice-9 ftw) (ice-9 match) (srfi srfi-26))
|
||||
(unless (or (getenv "DISPLAY") (getenv "WAYLAND_DISPLAY"))
|
||||
(for-each (lambda (dir pat cont)
|
||||
(match (scandir dir (cut regexp-exec pat <>) string<?)
|
||||
((file . _) (cont file)) (_ #f)))
|
||||
(list "/tmp/.X11-unix" (or (getenv "XDG_RUNTIME_DIR")
|
||||
(string-append "/run/user/" (getuid))))
|
||||
(map make-regexp '("^X[0-9]+$" "^wayland-[0-9]+$"))
|
||||
(list (lambda (f)
|
||||
(setenv "DISPLAY" (string-append ":" (string-drop f 1))))
|
||||
(cut setenv "WAYLAND_DISPLAY" <>))))
|
||||
(apply execl #$prompter #$prompter (cdr (command-line))))))
|
||||
|
||||
(define-maybe string (prefix himitsu-))
|
||||
|
||||
(define (string-or-gexp? s)
|
||||
(or (string? s) (gexp? s)))
|
||||
|
||||
(define list-of-strings-or-gexps? (list-of string-or-gexp?))
|
||||
|
||||
(define (himitsu-serialize-string label val)
|
||||
#~(format #f "~a=~a~%" '#$label #$val))
|
||||
|
||||
(define himitsu-serialize-file-like himitsu-serialize-string)
|
||||
|
||||
(define (himitsu-serialize-list-of-strings-or-gexps label vals)
|
||||
#~(string-join (list #$@vals) "\n" 'suffix))
|
||||
|
||||
(define-configuration home-himitsu-configuration
|
||||
(package (file-like himitsu) "himitsu package to use." empty-serializer)
|
||||
(notify-reuse maybe-string "Command run to notify the user upon use of a
|
||||
secret it was already authorized to use. Limited shell expansion available.")
|
||||
(prompter (file-like (wrap-himitsu-prompter
|
||||
(file-append hiprompt-gtk "/bin/hiprompt-gtk")))
|
||||
"himitsu prompter to use to request user authorization for secret access.")
|
||||
(extra-options (list-of-strings-or-gexps '()) "A list of extra options, one
|
||||
per line, to put verbatim into the config file.")
|
||||
(prefix himitsu-))
|
||||
|
||||
(define (himitsu-serialize config)
|
||||
(mixed-text-file "himitsu.ini" "[himitsud]\n"
|
||||
(serialize-configuration config home-himitsu-configuration-fields)))
|
||||
|
||||
(define (himitsu-shepherd-service config)
|
||||
(define start
|
||||
#~(lambda _
|
||||
(let ((data (or (getenv "XDG_DATA_HOME")
|
||||
(string-append user-homedir "/.local/share"))))
|
||||
(if (directory-exists? (string-append data "/himitsu"))
|
||||
(fork+exec-command
|
||||
(list #$(let ((pkg (home-himitsu-configuration-package config)))
|
||||
(file-append pkg "/bin/himitsud"))
|
||||
"-C" #$(himitsu-serialize config))
|
||||
#:log-file (string-append %user-log-dir "/himitsu.log"))
|
||||
(error "Himitsu store must exist before the service can run! Try \
|
||||
running 'himitsu-store -i' first?")))))
|
||||
(list (shepherd-service
|
||||
(documentation "Run the Himitsu secret service manager.")
|
||||
(provision '(himitsud))
|
||||
(modules (cons* '(shepherd support) %default-modules))
|
||||
(start start)
|
||||
(stop #~(make-kill-destructor)))))
|
||||
|
||||
;; we need to install the file or else himitsu-store will gen it
|
||||
(define (himitsu-xdg-configuration-service config)
|
||||
`(("himitsu/config.ini" ,(himitsu-serialize config))))
|
||||
|
||||
(define home-himitsu-service-type
|
||||
(service-type
|
||||
(name 'himitsu)
|
||||
(extensions
|
||||
(list (service-extension home-shepherd-service-type
|
||||
himitsu-shepherd-service)
|
||||
(service-extension home-xdg-configuration-files-service-type
|
||||
himitsu-xdg-configuration-service)
|
||||
(service-extension home-profile-service-type
|
||||
(const (list himitsu)))))
|
||||
(compose concatenate)
|
||||
(extend (lambda (config exts)
|
||||
(let ((opts (home-himitsu-configuration-extra-options config)))
|
||||
(home-himitsu-configuration
|
||||
(inherit config)
|
||||
(extra-options (append exts opts))))))
|
||||
(default-value (home-himitsu-configuration))
|
||||
(description "Run the Himitsu secret storage manager upon login. You
|
||||
should create the Himitsu database in advance.")))
|
||||
|
||||
;;
|
||||
;; himitsu-ssh
|
||||
;;
|
||||
|
||||
(define (remember-option? opt)
|
||||
(or (number? opt) (memq opt '(session skip refuse))))
|
||||
|
||||
(define list-of-remember-options? (list-of remember-option?))
|
||||
|
||||
(define (himitsu-serialize-list-of-remember-options label val)
|
||||
(himitsu-serialize-string label
|
||||
(string-join (map (lambda (x) (cond ((number? x) (number->string x))
|
||||
((symbol? x) (symbol->string x))))
|
||||
val)
|
||||
",")))
|
||||
|
||||
(define-configuration home-himitsu-ssh-configuration
|
||||
(package (file-like himitsu-ssh) "himitsu-ssh package to use."
|
||||
empty-serializer)
|
||||
(persist (list-of-remember-options '(session 300 refuse)) "List of options
|
||||
given when prompting to allow himitsu-ssh to see your keys. The option chosen
|
||||
decides how long himitsu-ssh has this access. Options can be either 'session,
|
||||
'refuse, 'skip, or a timeout in seconds. 'session means until the daemon
|
||||
closes, 'refuse to decline and never ask again, and 'skip means to ask again
|
||||
next use.")
|
||||
(disclose (list-of-remember-options '(skip session 300)) "List of options
|
||||
given when prompting to allow himitsu-ssh use of your keys. The format is the
|
||||
same has persist.")
|
||||
(prefix himitsu-))
|
||||
|
||||
(define (himitsu-ssh-shepherd-service config)
|
||||
(let* ((package (home-himitsu-ssh-configuration-package config))
|
||||
(binary (file-append package "/bin/hissh-agent")))
|
||||
(list (shepherd-service
|
||||
(documentation "Start the Himitsu ssh-agent implementation.")
|
||||
(provision '(himitsu-ssh ssh-agent))
|
||||
(requirement '(himitsud))
|
||||
(start #~(make-forkexec-constructor (list #$binary)))
|
||||
(stop #~(make-kill-destructor))))))
|
||||
|
||||
(define (himitsu-ssh-himitsu.ini config)
|
||||
(list "[ssh.remember]"
|
||||
(serialize-configuration config home-himitsu-ssh-configuration-fields)))
|
||||
|
||||
(define (himitsu-ssh-environment-variables _)
|
||||
'(("SSH_AUTH_SOCK" . "${XDG_RUNTIME_DIR:-/run/user/$UID}/hissh-agent")))
|
||||
|
||||
(define home-himitsu-ssh-service-type
|
||||
(service-type
|
||||
(name 'himitsu-ssh)
|
||||
(extensions (list (service-extension home-shepherd-service-type
|
||||
himitsu-ssh-shepherd-service)
|
||||
(service-extension home-himitsu-service-type
|
||||
himitsu-ssh-himitsu.ini)
|
||||
(service-extension home-environment-variables-service-type
|
||||
himitsu-ssh-environment-variables)
|
||||
(service-extension home-profile-service-type
|
||||
(const (list himitsu-ssh)))))
|
||||
(default-value (home-himitsu-ssh-configuration))
|
||||
(description "Add support for ssh to store keys in Himitsu.")))
|
||||
|
||||
;;
|
||||
;; himitsu-secret-service
|
||||
;;
|
||||
|
||||
(define-configuration home-himitsu-secret-service-configuration
|
||||
(package (file-like himitsu-secret-service) "himitsu-secret-service package to
|
||||
use." empty-serializer)
|
||||
(prefix himitsu-))
|
||||
|
||||
(define (himitsu-secret-service-shepherd-service config)
|
||||
(let* ((package (home-himitsu-secret-service-configuration-package config))
|
||||
(binary (file-append package "/bin/hisecrets-agent")))
|
||||
(list (shepherd-service
|
||||
(documentation "Start the Himitsu secret-service implementation.")
|
||||
(provision '(himitsu-secret-service secret-service))
|
||||
(requirement '(himitsud dbus))
|
||||
(start #~(make-forkexec-constructor (list #$binary)))
|
||||
(stop #~(make-kill-destructor))))))
|
||||
|
||||
(define home-himitsu-secret-service-type
|
||||
(service-type
|
||||
(name 'himitsu-secret-service)
|
||||
(extensions
|
||||
(list (service-extension home-shepherd-service-type
|
||||
himitsu-secret-service-shepherd-service)))
|
||||
(default-value (home-himitsu-secret-service-configuration))
|
||||
(description "Add support to Himitsu for the freedesktop.org
|
||||
secret-service protocol.")))
|
||||
+11
-28
@@ -112,7 +112,6 @@ GNU_SYSTEM_MODULES = \
|
||||
%D%/home/services/dotfiles.scm \
|
||||
%D%/home/services/symlink-manager.scm \
|
||||
%D%/home/services/fontutils.scm \
|
||||
%D%/home/services/gnome.scm \
|
||||
%D%/home/services/gnupg.scm \
|
||||
%D%/home/services/guix.scm \
|
||||
%D%/home/services/mail.scm \
|
||||
@@ -122,7 +121,6 @@ GNU_SYSTEM_MODULES = \
|
||||
%D%/home/services/music.scm \
|
||||
%D%/home/services/niri.scm \
|
||||
%D%/home/services/pm.scm \
|
||||
%D%/home/services/secrets.scm \
|
||||
%D%/home/services/shells.scm \
|
||||
%D%/home/services/shepherd.scm \
|
||||
%D%/home/services/sound.scm \
|
||||
@@ -189,6 +187,7 @@ GNU_SYSTEM_MODULES = \
|
||||
%D%/packages/calcurse.scm \
|
||||
%D%/packages/ccache.scm \
|
||||
%D%/packages/cdrom.scm \
|
||||
%D%/packages/cedille.scm \
|
||||
%D%/packages/certs.scm \
|
||||
%D%/packages/check.scm \
|
||||
%D%/packages/chemistry.scm \
|
||||
@@ -255,7 +254,6 @@ GNU_SYSTEM_MODULES = \
|
||||
%D%/packages/docker.scm \
|
||||
%D%/packages/documentation.scm \
|
||||
%D%/packages/dpdk.scm \
|
||||
%D%/packages/duckdb.scm \
|
||||
%D%/packages/dvtm.scm \
|
||||
%D%/packages/easyrpg.scm \
|
||||
%D%/packages/ebook.scm \
|
||||
@@ -307,6 +305,7 @@ GNU_SYSTEM_MODULES = \
|
||||
%D%/packages/game-development.scm \
|
||||
%D%/packages/games.scm \
|
||||
%D%/packages/gawk.scm \
|
||||
%D%/packages/gcal.scm \
|
||||
%D%/packages/gcc.scm \
|
||||
%D%/packages/gd.scm \
|
||||
%D%/packages/gdb.scm \
|
||||
@@ -357,7 +356,6 @@ GNU_SYSTEM_MODULES = \
|
||||
%D%/packages/gxmessage.scm \
|
||||
%D%/packages/hardware.scm \
|
||||
%D%/packages/hare.scm \
|
||||
%D%/packages/hare-xyz.scm \
|
||||
%D%/packages/haskell.scm \
|
||||
%D%/packages/haskell-apps.scm \
|
||||
%D%/packages/haskell-check.scm \
|
||||
@@ -548,7 +546,7 @@ GNU_SYSTEM_MODULES = \
|
||||
%D%/packages/php.scm \
|
||||
%D%/packages/php-xyz.scm \
|
||||
%D%/packages/piet.scm \
|
||||
%D%/packages/diagram.scm \
|
||||
%D%/packages/pikchr.scm \
|
||||
%D%/packages/pkg-config.scm \
|
||||
%D%/packages/plan9.scm \
|
||||
%D%/packages/plotutils.scm \
|
||||
@@ -611,6 +609,7 @@ GNU_SYSTEM_MODULES = \
|
||||
%D%/packages/rust-sources.scm \
|
||||
%D%/packages/samba.scm \
|
||||
%D%/packages/sagemath.scm \
|
||||
%D%/packages/sawfish.scm \
|
||||
%D%/packages/scanner.scm \
|
||||
%D%/packages/scheme.scm \
|
||||
%D%/packages/spreadsheet.scm \
|
||||
@@ -989,7 +988,6 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/akonadi-not-relocatable.patch \
|
||||
%D%/packages/patches/akonadi-timestamps.patch \
|
||||
%D%/packages/patches/alure-dumb-2.patch \
|
||||
%D%/packages/patches/amd-smi-python.patch \
|
||||
%D%/packages/patches/ibus-anthy-fix-tests.patch \
|
||||
%D%/packages/patches/ibus-table-paths.patch \
|
||||
%D%/packages/patches/anki-mpv-args.patch \
|
||||
@@ -1078,6 +1076,7 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/calls-disable-application-test.patch \
|
||||
%D%/packages/patches/calls-disable-sip-test.patch \
|
||||
%D%/packages/patches/camlboot-dynamically-allocate-stack-signal.patch \
|
||||
%D%/packages/patches/capnproto-fix-test.patch \
|
||||
%D%/packages/patches/capstone-fix-python-constants.patch \
|
||||
%D%/packages/patches/catdoc-CVE-2017-11110.patch \
|
||||
%D%/packages/patches/chez-irregex-import-cond-expand.patch \
|
||||
@@ -1213,7 +1212,6 @@ dist_patch_DATA = \
|
||||
%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-disable-jit-compilation.patch \
|
||||
%D%/packages/patches/emacs-elisp-autofmt-fix-region-send.patch \
|
||||
%D%/packages/patches/emacs-exec-path.patch \
|
||||
%D%/packages/patches/emacs-fix-scheme-indent-function.patch \
|
||||
%D%/packages/patches/emacs-gnus-alias-reference-signature.patch \
|
||||
@@ -1249,11 +1247,11 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/esmtp-add-lesmtp.patch \
|
||||
%D%/packages/patches/esound-c99.patch \
|
||||
%D%/packages/patches/exercism-disable-self-update.patch \
|
||||
%D%/packages/patches/extempore-unbundle-external-dependencies.patch \
|
||||
%D%/packages/patches/extundelete-e2fsprogs-1.44.patch \
|
||||
%D%/packages/patches/fail2ban-fix-sshd-filter.patch \
|
||||
%D%/packages/patches/fail2ban-paths-guix-conf.patch \
|
||||
%D%/packages/patches/faiss-tests-CMakeLists-find-googletest.patch \
|
||||
%D%/packages/patches/falcosecurity-libs-bpf-probes-fix.patch \
|
||||
%D%/packages/patches/falcosecurity-libs-shared-build.patch \
|
||||
%D%/packages/patches/farstream-gupnp.patch \
|
||||
%D%/packages/patches/farstream-make.patch \
|
||||
@@ -1283,7 +1281,6 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/ffmpeg-jami-remove-mjpeg-log.patch \
|
||||
%D%/packages/patches/ffmpeg-jami-screen-sharing-x11-fix.patch \
|
||||
%D%/packages/patches/ffmpeg-4-binutils-2.41.patch \
|
||||
%D%/packages/patches/ffmpeg-svt-av1-v3.patch \
|
||||
%D%/packages/patches/fgallery-also-look-for-7z.patch \
|
||||
%D%/packages/patches/fifengine-boost-compat.patch \
|
||||
%D%/packages/patches/fifengine-python-3.9-compat.patch \
|
||||
@@ -1439,7 +1436,6 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/ghostscript-no-header-creationdate.patch \
|
||||
%D%/packages/patches/gimp-fix-metadata-editor.patch \
|
||||
%D%/packages/patches/gimp-fix-tiff-load.patch \
|
||||
%D%/packages/patches/git-clar-path-max.patch \
|
||||
%D%/packages/patches/git-filter-repo-generate-doc.patch \
|
||||
%D%/packages/patches/gklib-suitesparse.patch \
|
||||
%D%/packages/patches/glib-appinfo-watch.patch \
|
||||
@@ -1593,7 +1589,6 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/hurd-rumpdisk-no-hd.patch \
|
||||
%D%/packages/patches/hurd-startup.patch \
|
||||
%D%/packages/patches/hwloc-1-test-btrfs.patch \
|
||||
%D%/packages/patches/i3lock-blur-fix-build-on-gcc-10.patch \
|
||||
%D%/packages/patches/i7z-gcc-10.patch \
|
||||
%D%/packages/patches/icecat-adjust-mozilla-desktop.patch \
|
||||
%D%/packages/patches/icecat-makeicecat.patch \
|
||||
@@ -1622,6 +1617,7 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/irrlicht-link-against-needed-libs.patch \
|
||||
%D%/packages/patches/isl-0.11.1-aarch64-support.patch \
|
||||
%D%/packages/patches/ispell-for-linphone-cmake.patch \
|
||||
%D%/packages/patches/jamesdsp-fix-bulid-on-pipewire-1.4.0.patch\
|
||||
%D%/packages/patches/jami-find-package-avutil.patch \
|
||||
%D%/packages/patches/jami-libjami-headers-search.patch \
|
||||
%D%/packages/patches/jami-qwindowkit.patch \
|
||||
@@ -1653,9 +1649,8 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/jfsutils-gcc-compat.patch \
|
||||
%D%/packages/patches/jfsutils-include-systypes.patch \
|
||||
%D%/packages/patches/john-the-ripper-jumbo-with-gcc-11.patch \
|
||||
%D%/packages/patches/json-c-0.12-CVE-2020-12762.patch \
|
||||
%D%/packages/patches/json-c-0.13-CVE-2020-12762.patch \
|
||||
%D%/packages/patches/jsonnet-include-cstdint-for-gcc-13-builds.patch \
|
||||
%D%/packages/patches/json-c-0.12-CVE-2020-12762.patch \
|
||||
%D%/packages/patches/julia-SOURCE_DATE_EPOCH-mtime.patch \
|
||||
%D%/packages/patches/julia-Use-MPFR-4.2.patch \
|
||||
%D%/packages/patches/komikku-python-3.11-compat.patch \
|
||||
@@ -1701,7 +1696,6 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/kinit-kdeinit-extra_libs.patch \
|
||||
%D%/packages/patches/kio-search-smbd-on-PATH.patch \
|
||||
%D%/packages/patches/kismet-unbundle-boost.patch \
|
||||
%D%/packages/patches/kissfft-tflite-micro.patch \
|
||||
%D%/packages/patches/kitty-fix-wayland-protocols.patch \
|
||||
%D%/packages/patches/kmod-module-directory.patch \
|
||||
%D%/packages/patches/kmscon-runtime-keymap-switch.patch \
|
||||
@@ -1730,7 +1724,6 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/libbraiding-no-s.patch \
|
||||
%D%/packages/patches/libcaca-CVE-2021-3410-pt1.patch \
|
||||
%D%/packages/patches/libcaca-CVE-2021-3410-pt2.patch \
|
||||
%D%/packages/patches/libcap-magic-glibc-constant.patch \
|
||||
%D%/packages/patches/libcanberra-sound-theme-freedesktop.patch \
|
||||
%D%/packages/patches/libcanberra-wayland-crash.patch \
|
||||
%D%/packages/patches/libcroco-CVE-2020-12825.patch \
|
||||
@@ -1816,6 +1809,7 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/lirc-reproducible-build.patch \
|
||||
%D%/packages/patches/llvm-13-gcc-14.patch \
|
||||
%D%/packages/patches/lm-sensors-hwmon-attrs.patch \
|
||||
%D%/packages/patches/lsh-fix-x11-forwarding.patch \
|
||||
%D%/packages/patches/lsof-compat-linux-6.9.patch \
|
||||
%D%/packages/patches/lsof-fatal-test-failures.patch \
|
||||
%D%/packages/patches/lua-CVE-2014-5461.patch \
|
||||
@@ -1877,7 +1871,6 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/mpg321-CVE-2019-14247.patch \
|
||||
%D%/packages/patches/mpg321-gcc-10.patch \
|
||||
%D%/packages/patches/mpv-0.40.0-fix-ffmpeg-8.0.patch \
|
||||
%D%/packages/patches/mpv-0.40.0-fix-wayland-cpu-usage.patch \
|
||||
%D%/packages/patches/modglue-fix-build.patch \
|
||||
%D%/packages/patches/modem-manager-fix-test-wrapper.patch \
|
||||
%D%/packages/patches/module-init-tools-moduledir.patch \
|
||||
@@ -1943,7 +1936,6 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/nss-3.115-disable-broken-tests.patch \
|
||||
%D%/packages/patches/nss-3.115-disable-pkix-ocsp-tests.patch \
|
||||
%D%/packages/patches/ntp-fix-dereferencing-the-wrong-variable.patch \
|
||||
%D%/packages/patches/nvi-add-function-prototypes.patch \
|
||||
%D%/packages/patches/nvi-assume-preserve-path.patch \
|
||||
%D%/packages/patches/nvi-dbpagesize-binpower.patch \
|
||||
%D%/packages/patches/nvi-db4.patch \
|
||||
@@ -2052,7 +2044,6 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/python-louvain-fix-test.patch \
|
||||
%D%/packages/patches/python-matplotlib-fix-legend-loc-best-test.patch \
|
||||
%D%/packages/patches/python-mohawk-pytest.patch \
|
||||
%D%/packages/patches/python-msal-requests.patch \
|
||||
%D%/packages/patches/python-norns-nose.patch \
|
||||
%D%/packages/patches/python-numpy-gcc-14.patch \
|
||||
%D%/packages/patches/python-random2-getrandbits-test.patch \
|
||||
@@ -2098,7 +2089,6 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/perl-5.14-no-sys-dirs.patch \
|
||||
%D%/packages/patches/perl-autosplit-default-time.patch \
|
||||
%D%/packages/patches/perl-class-methodmaker-reproducible.patch \
|
||||
%D%/packages/patches/perl-crypt-des-implicit-func-decl.patch \
|
||||
%D%/packages/patches/perl-image-exiftool-CVE-2021-22204.patch \
|
||||
%D%/packages/patches/perl-net-amazon-s3-moose-warning.patch \
|
||||
%D%/packages/patches/perl-net-dns-resolver-programmable-fix.patch \
|
||||
@@ -2230,8 +2220,8 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/retroarch-unbundle-spirv-cross.patch \
|
||||
%D%/packages/patches/rct-add-missing-headers.patch \
|
||||
%D%/packages/patches/readline-link-ncurses.patch \
|
||||
%D%/packages/patches/renpy-python-3.11-compat.patch \
|
||||
%D%/packages/patches/renpy-fix-integer-slots.patch \
|
||||
%D%/packages/patches/readline-6.2-CVE-2014-2524.patch \
|
||||
%D%/packages/patches/renpy-use-system-fribidi.patch \
|
||||
%D%/packages/patches/reposurgeon-add-missing-docbook-files.patch \
|
||||
%D%/packages/patches/rdkit-unbundle-external-dependencies.patch \
|
||||
%D%/packages/patches/r-httpuv-1.6.6-unvendor-libuv.patch \
|
||||
@@ -2255,7 +2245,6 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/rocm-opencl-runtime-4.3-noclinfo.patch \
|
||||
%D%/packages/patches/rottlog-direntry.patch \
|
||||
%D%/packages/patches/ruby-actionpack-remove-browser-tests.patch \
|
||||
%D%/packages/patches/ruby-activesupport-fix-deprecation-warning.patch \
|
||||
%D%/packages/patches/ruby-asciidoctor-pdf-support-prawn-svg-0_36.patch \
|
||||
%D%/packages/patches/ruby-chunky-png-ruby-3-2-support.patch \
|
||||
%D%/packages/patches/ruby-hiredis-use-system-hiredis.patch \
|
||||
@@ -2315,7 +2304,6 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/slim-login.patch \
|
||||
%D%/packages/patches/slim-display.patch \
|
||||
%D%/packages/patches/slurm-23-salloc-fallback-shell.patch \
|
||||
%D%/packages/patches/slurm-drmaa-25.patch \
|
||||
%D%/packages/patches/stex-copy-from-immutable-store.patch \
|
||||
%D%/packages/patches/sysdig-shared-falcosecurity-libs.patch \
|
||||
%D%/packages/patches/syslinux-gcc10.patch \
|
||||
@@ -2371,7 +2359,6 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/texi2html-document-encoding.patch \
|
||||
%D%/packages/patches/texi2html-i18n.patch \
|
||||
%D%/packages/patches/texmacs-wayland-hidpi.patch \
|
||||
%D%/packages/patches/tflite-micro_disable_download.patch \
|
||||
%D%/packages/patches/thefuck-test-environ.patch \
|
||||
%D%/packages/patches/thefuck-remove-broken-tests.patch \
|
||||
%D%/packages/patches/tidy-CVE-2015-5522+5523.patch \
|
||||
@@ -2454,7 +2441,6 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/vcmi-disable-privacy-breach.patch \
|
||||
%D%/packages/patches/vinagre-newer-freerdp.patch \
|
||||
%D%/packages/patches/vinagre-newer-rdp-parameters.patch \
|
||||
%D%/packages/patches/vlc-livemedia-2024.11.28.patch \
|
||||
%D%/packages/patches/vsearch-unbundle-cityhash.patch \
|
||||
%D%/packages/patches/vst3sdk-3.7.7-allow-winelib-compilation.patch \
|
||||
%D%/packages/patches/vte-CVE-2012-2738-pt1.patch \
|
||||
@@ -2482,7 +2468,6 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/wordnet-CVE-2008-3908-pt2.patch \
|
||||
%D%/packages/patches/wpa-supplicant-dbus-group-policy.patch \
|
||||
%D%/packages/patches/x265-arm-flags.patch \
|
||||
%D%/packages/patches/x265-4-arm-flags.patch \
|
||||
%D%/packages/patches/xdg-desktop-portal-disable-portal-tests.patch\
|
||||
%D%/packages/patches/xdg-desktop-portal-disable-configuration-search-exit.patch\
|
||||
%D%/packages/patches/xdg-desktop-portal-wlr-harcoded-length.patch\
|
||||
@@ -2499,8 +2484,6 @@ dist_patch_DATA = \
|
||||
%D%/packages/patches/xplanet-1.3.1-libdisplay_DisplayOutput.cpp.patch \
|
||||
%D%/packages/patches/xplanet-1.3.1-libimage_gif.c.patch \
|
||||
%D%/packages/patches/xplanet-1.3.1-xpUtil-Add2017LeapSecond.cpp.patch \
|
||||
%D%/packages/patches/xpra-5.0-install_libs.patch \
|
||||
%D%/packages/patches/xpra-5.0-systemd-run.patch \
|
||||
%D%/packages/patches/xpra-6.0-systemd-run.patch \
|
||||
%D%/packages/patches/xpra-6.1-install_libs.patch \
|
||||
%D%/packages/patches/xterm-370-explicit-xcursor.patch \
|
||||
|
||||
@@ -651,7 +651,7 @@ fdisk -l /dev/sda"
|
||||
(format #f "#!/usr/bin/env bash
|
||||
set -eo pipefail
|
||||
apt-get update
|
||||
apt-get install cloud-initramfs-growroot uidmap --assume-yes"))
|
||||
apt-get install cloud-initramfs-growroot --assume-yes"))
|
||||
(format #t "successfully installed rescue system packages on '~a'\n" name)))
|
||||
|
||||
(define (hetzner-machine-delete machine server)
|
||||
|
||||
@@ -77,43 +77,36 @@
|
||||
(build-system glib-or-gtk-build-system)
|
||||
(outputs '("out" "bin"))
|
||||
(arguments
|
||||
(list
|
||||
#:tests? #f ; Tests require drivers
|
||||
#:configure-flags
|
||||
#~(list "CFLAGS=-g -O2 -Wno-error=incompatible-pointer-types"
|
||||
"--disable-static"
|
||||
"--enable-fake")
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
#$@(if (this-package-native-input "config")
|
||||
#~((add-after 'unpack 'update-config-scripts
|
||||
(lambda* (#:key native-inputs inputs #:allow-other-keys)
|
||||
(for-each
|
||||
(lambda (dir)
|
||||
(for-each
|
||||
(lambda (file)
|
||||
(install-file
|
||||
(search-input-file
|
||||
(or native-inputs inputs)
|
||||
(string-append "/bin/" file)) dir))
|
||||
(list "config.guess" "config.sub")))
|
||||
(list "." "libltdl")))))
|
||||
(list)))))
|
||||
`(#:tests? #f ; Tests require drivers
|
||||
#:configure-flags
|
||||
(list "CFLAGS=-g -O2 -Wno-error=incompatible-pointer-types"
|
||||
"--disable-static"
|
||||
"--enable-fake")
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
,@(if (this-package-native-input "config")
|
||||
`((add-after 'unpack 'update-config-scripts
|
||||
(lambda* (#:key native-inputs inputs #:allow-other-keys)
|
||||
(for-each
|
||||
(lambda (dir)
|
||||
(for-each (lambda (file)
|
||||
(install-file
|
||||
(search-input-file
|
||||
(or native-inputs inputs)
|
||||
(string-append "/bin/" file)) dir))
|
||||
'("config.guess" "config.sub")))
|
||||
'("." "libltdl")))))
|
||||
'()))))
|
||||
(native-inputs
|
||||
(append
|
||||
(if (or (target-aarch64?)
|
||||
(target-ppc64le?)
|
||||
(target-riscv64?))
|
||||
(list config)
|
||||
(list))
|
||||
(list latex2html
|
||||
pkg-config
|
||||
python-wrapper
|
||||
swig)))
|
||||
(if (or (target-aarch64?)
|
||||
(target-ppc64le?)
|
||||
(target-riscv64?))
|
||||
(list config)
|
||||
'())
|
||||
(list latex2html pkg-config python-wrapper swig)))
|
||||
(inputs
|
||||
(list glib
|
||||
gtk+-2
|
||||
libusb-compat))
|
||||
(list glib gtk+-2 libusb-compat))
|
||||
(synopsis "Portable Braille Library")
|
||||
(description "Libbraille is a library to easily access Braille displays and
|
||||
terminals.")
|
||||
|
||||
+43
-62
@@ -77,7 +77,6 @@
|
||||
;;; Copyright © 2025 Dariqq <dariqq@posteo.net>
|
||||
;;; Copyright © 2024 nik gaffney <nik@fo.am>
|
||||
;;; Copyright © 2025 Simon Streit <simon@netpanic.org>
|
||||
;;; Copyright © 2025 Luca Kredel <luca.kredel@web.de>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -190,7 +189,6 @@
|
||||
#:use-module (gnu packages polkit)
|
||||
#:use-module (gnu packages python)
|
||||
#:use-module (gnu packages python-build)
|
||||
#:use-module (gnu packages python-check)
|
||||
#:use-module (gnu packages python-crypto)
|
||||
#:use-module (gnu packages python-xyz)
|
||||
#:use-module (gnu packages qt)
|
||||
@@ -376,34 +374,23 @@ service.")
|
||||
(package
|
||||
(name "hungrycat")
|
||||
(version "0.4.2")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/jwilk/hungrycat/")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0llfb7kh2k53aqwc1fagw77fmwhvwdxd5qlg0fyrhqq298gj8wif"))))
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://github.com/jwilk/hungrycat/"
|
||||
"releases/download/" version "/"
|
||||
"hungrycat-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"0xy9l4hky85h3rgdmqmhcnx0q1hq0brskr8lzw2lz6lh7pxlxmyw"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
;; tests: Files=2, Tests=2334, 1 wallclock secs
|
||||
#:test-target "test"
|
||||
#:make-flags
|
||||
#~(list (string-append "CC=" #$(cc-for-target)))
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'build 'build-doc
|
||||
(lambda _
|
||||
(invoke "make" "-C" "doc"))))))
|
||||
(native-inputs
|
||||
(list automake
|
||||
autoconf
|
||||
cppcheck
|
||||
perl
|
||||
perl-ipc-run
|
||||
python-docutils))
|
||||
;; For tests.
|
||||
`(("python" ,python-wrapper)
|
||||
("python-nose" ,python-nose)
|
||||
("perl" ,perl)
|
||||
("perl-ipc-run" ,perl-ipc-run)))
|
||||
(arguments
|
||||
`(#:test-target "test"))
|
||||
(synopsis "Single tool that combines @command{cat} & @command{rm}")
|
||||
(description
|
||||
"hungrycat prints the contents of a file to standard output, while
|
||||
@@ -596,14 +583,14 @@ interface and is based on GNU Guile.")
|
||||
(define-public shepherd-1.0
|
||||
(package
|
||||
(inherit shepherd-0.10)
|
||||
(version "1.0.9")
|
||||
(version "1.0.8")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "mirror://gnu/shepherd/shepherd-"
|
||||
version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"1mh080060lnycys8yq6kkiy363wif8dsip3nyklgd3a1r22wb274"))))
|
||||
"1xbzf7vmanb36hfb0kc9a240x7xnkynsfs6hcz2kj0xzf19h1srv"))))
|
||||
(arguments
|
||||
(substitute-keyword-arguments (package-arguments shepherd-0.10)
|
||||
((#:configure-flags flags #~'())
|
||||
@@ -1954,7 +1941,7 @@ maintenance releases.")
|
||||
(define-public dhcpcd
|
||||
(package
|
||||
(name "dhcpcd")
|
||||
(version "10.3.0")
|
||||
(version "10.2.3")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -1963,7 +1950,7 @@ maintenance releases.")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "058k8wbzbjb6mm6qklv40z1y4k6sdb4ysap1xk6pny1m1f9xkdax"))))
|
||||
(base32 "01bqs71s2gixsir1cpnk6sm4k9dpdkrgp1r8cpbac50d6hwlxln3"))))
|
||||
(inputs (list bash-minimal coreutils-minimal eudev sed))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
@@ -2227,7 +2214,7 @@ by bandwidth they use.")
|
||||
perl-test-pod
|
||||
perl-test-pod-coverage
|
||||
perl-test-trap
|
||||
perl-tidy))
|
||||
perltidy))
|
||||
(inputs
|
||||
(list bash-minimal ;for wrap-program
|
||||
perl-exception-class
|
||||
@@ -2731,7 +2718,7 @@ command.")
|
||||
#:tests? #f ; no tests
|
||||
;; Make sure the (rarely updated) package 'imagemagick/stable'
|
||||
;; does not end up in the closure.
|
||||
#:disallowed-references (list (this-package-native-input "imagemagick"))
|
||||
#:disallowed-references (list imagemagick/stable)
|
||||
#:modules '((guix build qt-build-system)
|
||||
((guix build gnu-build-system) #:prefix gnu:)
|
||||
(guix build utils))
|
||||
@@ -2963,7 +2950,7 @@ system is under heavy load.")
|
||||
(define-public stress-ng
|
||||
(package
|
||||
(name "stress-ng")
|
||||
(version "0.19.06")
|
||||
(version "0.19.03")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -2972,7 +2959,7 @@ system is under heavy load.")
|
||||
(commit (string-append "V" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0fxyxxswkx5ay8i2w8ajsiagkysh8d41l88vls9c4rc35wxzhwf6"))))
|
||||
(base32 "1phrmjvvjn55pyfljfkk604d8q8wn17l416v91hskj98v7b7yhck"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
;; XXX The test suite seems to cause instability on the VisionFive 2
|
||||
@@ -3154,34 +3141,29 @@ various ways that may be running with too much privilege.")
|
||||
(define-public smartmontools
|
||||
(package
|
||||
(name "smartmontools")
|
||||
(version "7.5")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/smartmontools/smartmontools")
|
||||
(commit (string-append "RELEASE_"
|
||||
(string-replace-substring version "." "_")))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "00c58xcqv73lzxf0baly2q0sqkyd2vncv93iabjj7jkvbzf7nqpz"))))
|
||||
(version "7.4")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append
|
||||
"mirror://sourceforge/smartmontools/smartmontools/"
|
||||
version "/smartmontools-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"0gcrzcb4g7f994n6nws26g6x15yjija1gyzd359sjv7r3xj1z9p9"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:make-flags
|
||||
#~(list "BUILD_INFO=\"(Guix)\"")
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'chdir
|
||||
(lambda _
|
||||
(chdir "smartmontools"))))
|
||||
#:configure-flags
|
||||
#~(list (format #f "--with-scriptpath=~{~a:~}$PATH"
|
||||
(map (lambda (pkg)
|
||||
(in-vicinity pkg "bin"))
|
||||
'#$(list (this-package-input "coreutils-minimal")
|
||||
(this-package-input "sed")))))))
|
||||
(inputs (list automake autoconf coreutils-minimal libcap-ng sed))
|
||||
(inputs (list coreutils-minimal
|
||||
libcap-ng
|
||||
sed))
|
||||
(home-page "https://www.smartmontools.org/")
|
||||
(synopsis "S.M.A.R.T. harddisk control and monitoring tools")
|
||||
(description
|
||||
@@ -3195,7 +3177,7 @@ degradation and failure.")
|
||||
(define-public fdupes
|
||||
(package
|
||||
(name "fdupes")
|
||||
(version "2.4.0")
|
||||
(version "2.3.2")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
@@ -3203,7 +3185,7 @@ degradation and failure.")
|
||||
"releases/download/v" version "/"
|
||||
"fdupes-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32 "0dhpgcylf99cnxz8h4i4dhv2i3124cs0n8lssbhwn783knijfysj"))))
|
||||
(base32 "1irab60gkjmnvk1l0x92cb5vh9zw9g0vgr3s82mir93zpvn8v3c0"))))
|
||||
(build-system gnu-build-system)
|
||||
(inputs
|
||||
(list ncurses pcre2 sqlite))
|
||||
@@ -4686,7 +4668,7 @@ information tool.")
|
||||
(define-public fastfetch-minimal
|
||||
(package
|
||||
(name "fastfetch-minimal")
|
||||
(version "2.55.1")
|
||||
(version "2.54.0")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -4695,7 +4677,7 @@ information tool.")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0a2a8rp75nx16gvq0918999hifr2lph8dagpfipmyflaa5awlw54"))
|
||||
(base32 "0iw58idc45x505rhix3mqymnfbk1r7jc10alyry9qypflalqwkqx"))
|
||||
(modules '((guix build utils)))
|
||||
(snippet '(begin
|
||||
(delete-file-recursively "src/3rdparty")))))
|
||||
@@ -6631,11 +6613,10 @@ file or files to several hosts.")
|
||||
(install-file "man-page/dust.1"
|
||||
(string-append share "/man/man1"))
|
||||
(mkdir-p (string-append out
|
||||
"/share/bash-completion/completions"))
|
||||
(copy-file
|
||||
"completions/dust.bash"
|
||||
(string-append
|
||||
out "/share/bash-completion/completions/dust"))
|
||||
"/etc/bash_completion.d"))
|
||||
(copy-file "completions/dust.bash"
|
||||
(string-append out
|
||||
"/etc/bash_completion.d/dust"))
|
||||
(install-file "completions/dust.fish"
|
||||
(string-append share
|
||||
"/fish/vendor_completions.d"))
|
||||
|
||||
+43
-84
@@ -21,7 +21,6 @@
|
||||
;;; Copyright © 2025 Nigko Yerden <nigko.yerden@gmail.com>
|
||||
;;; Copyright © 2025 Skylar Hill <stellarskylark@posteo.net>
|
||||
;;; Copyright © 2025 Janneke Nieuwenhuizen <janneke@gnu.org>
|
||||
;;; Copyright © 2025 Andy Tai <atai@atai.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -61,7 +60,6 @@
|
||||
#:use-module (gnu packages image)
|
||||
#:use-module (gnu packages java)
|
||||
#:use-module (gnu packages libffi)
|
||||
#:use-module (gnu packages linux)
|
||||
#:use-module (gnu packages maths)
|
||||
#:use-module (gnu packages mpi)
|
||||
#:use-module (gnu packages multiprecision)
|
||||
@@ -269,7 +267,7 @@ the real span of the lattice.")
|
||||
(define-public pari-gp
|
||||
(package
|
||||
(name "pari-gp")
|
||||
(version "2.17.3")
|
||||
(version "2.17.2")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append
|
||||
@@ -277,7 +275,7 @@ the real span of the lattice.")
|
||||
version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"1jrd8q8bii109i01qjsc15948a47cn1kcg7jw0kqsijcb36lz74d"))))
|
||||
"0qahws0jmmqv3v611zdwhvg0rz5a678lhi8z51x16yzrbj7mfc3x"))))
|
||||
(build-system gnu-build-system)
|
||||
(native-inputs (list (texlive-local-tree)))
|
||||
(inputs (list gmp libx11 perl readline))
|
||||
@@ -537,16 +535,16 @@ fast arithmetic.")
|
||||
(define-public python-flint
|
||||
(package
|
||||
(name "python-flint")
|
||||
(version "0.8.0")
|
||||
(version "0.7.1")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/fredrik-johansson/python-flint")
|
||||
(commit version)))
|
||||
(url "https://github.com/fredrik-johansson/python-flint")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1xdclpxpas29v3g14z2fxqf7hv4a6iq7bknl9d9r1510dcpxm67a"))))
|
||||
(base32 "09nsys2cajxsfh2c13nf98a2kwnm0msmab9f9zcjpkndj4ir453a"))))
|
||||
(build-system pyproject-build-system)
|
||||
(arguments
|
||||
(list
|
||||
@@ -810,80 +808,6 @@ a C program.")
|
||||
principle, 'Keep It Simple, Stupid.'")
|
||||
(license license:bsd-3)))
|
||||
|
||||
(define-public kissfft-for-tflite-micro
|
||||
(package
|
||||
(inherit kissfft)
|
||||
(name "kissfft-for-tflite-micro")
|
||||
(version "130")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/mborgerding/kissfft")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
"137h3pkn6jmc3pcgnqsq481f6jjblx7ygw9gyipgcdysmnhrwiv2")
|
||||
(patches (search-patches "kissfft-tflite-micro.patch"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
(delete 'build)
|
||||
(replace 'install
|
||||
(lambda _
|
||||
(for-each (lambda (f)
|
||||
(install-file f
|
||||
(string-append #$output "/include")))
|
||||
'("kiss_fft.h" "kissfft.hh"))
|
||||
(for-each (lambda (f)
|
||||
(install-file f
|
||||
(string-append #$output
|
||||
"/include/tools")))
|
||||
(find-files "tools"))))
|
||||
(replace 'check
|
||||
(lambda* (#:key tests? #:allow-other-keys)
|
||||
(when tests?
|
||||
(invoke "make" "CC=gcc" "testall")))))))
|
||||
(native-inputs (list procps))
|
||||
(inputs (list fftw))))
|
||||
|
||||
(define-public clac
|
||||
(package
|
||||
(name "clac")
|
||||
(version "0.3.4")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/soveran/clac")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
"0crpm5rxxipiz6kqs5ip900d77vvnslyjn5f6nj0lrc86bkbgi8d")))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:test-target "test"
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
(add-before 'build 'set-env
|
||||
(lambda _
|
||||
(setenv "CC" "gcc")
|
||||
(setenv "PREFIX" #$output))))))
|
||||
(home-page "https://github.com/soveran/clac")
|
||||
(synopsis "Command-line, stack-based calculator with postfix notation")
|
||||
(description
|
||||
"Clac is a command line, stack-based calculator with postfix notation
|
||||
that displays the stack contents at all times. As you type, the stack
|
||||
changes are reflected immediately.")
|
||||
;; Bundles two dependencies, both also BSD-2. SDS is not yet packaged.
|
||||
;; linenoise is packaged, but the package doesn't provide shared
|
||||
;; object files so we have to build it anyway.
|
||||
(license license:bsd-2)))
|
||||
(define-public fftw
|
||||
(package
|
||||
(name "fftw")
|
||||
@@ -1977,14 +1901,14 @@ no more than about 20 bits long).")
|
||||
(define-public r-dtt
|
||||
(package
|
||||
(name "r-dtt")
|
||||
(version "0.1-2.1")
|
||||
(version "0.1-2")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (cran-uri "dtt" version))
|
||||
(sha256
|
||||
(base32
|
||||
"113qb6fjp08gcmv4cgq3cm2fk6k3r3j1wfsrygq8889i2bq4a073"))))
|
||||
"0n8gj5iylfagdbaqirpykb01a9difsy4zl6qq55f0ghvazxqdvmn"))))
|
||||
(properties `((upstream-name . "dtt")))
|
||||
(build-system r-build-system)
|
||||
(home-page "https://www.r-project.org")
|
||||
@@ -2291,3 +2215,38 @@ systems. This encompasses:
|
||||
@item the computation of the dimension and the degree of the solution set.
|
||||
@end itemize")
|
||||
(license license:gpl2+)))
|
||||
|
||||
(define-public clac
|
||||
(package
|
||||
(name "clac")
|
||||
(version "0.3.4")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/soveran/clac")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
"0crpm5rxxipiz6kqs5ip900d77vvnslyjn5f6nj0lrc86bkbgi8d")))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:test-target "test"
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
(add-before 'build 'set-env
|
||||
(lambda _
|
||||
(setenv "CC" "gcc")
|
||||
(setenv "PREFIX" #$output))))))
|
||||
(home-page "https://github.com/soveran/clac")
|
||||
(synopsis "Command-line, stack-based calculator with postfix notation")
|
||||
(description
|
||||
"Clac is a command line, stack-based calculator with postfix notation
|
||||
that displays the stack contents at all times. As you type, the stack
|
||||
changes are reflected immediately.")
|
||||
;; Bundles two dependencies, both also BSD-2. SDS is not yet packaged.
|
||||
;; linenoise is packaged, but the package doesn't provide shared
|
||||
;; object files so we have to build it anyway.
|
||||
(license license:bsd-2)))
|
||||
|
||||
@@ -83,7 +83,6 @@
|
||||
(guix build cmake-build-system)
|
||||
(guix build utils))
|
||||
#:phases
|
||||
(with-extensions (list (cargo-guile-json))
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'prepare-cargo-build-system
|
||||
(lambda args
|
||||
@@ -112,7 +111,7 @@
|
||||
(substitute* "unit_tests/CMakeLists.txt"
|
||||
(("clamd_test\\.py" test)
|
||||
(string-append
|
||||
test " -k \"not test_clamd_08_VirusEvent\""))))))))))
|
||||
test " -k \"not test_clamd_08_VirusEvent\"")))))))))
|
||||
(native-inputs
|
||||
(append
|
||||
(list pkg-config
|
||||
|
||||
+25
-27
@@ -40,15 +40,13 @@
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/AppImage/type2-runtime")
|
||||
(commit commit)))
|
||||
(url "https://github.com/AppImage/type2-runtime")
|
||||
(commit commit)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0954crhlbapxis96g1s0vfpf78ybr64zvjalak387ksxj560g44x"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:tests? #f ; No tests
|
||||
#:make-flags
|
||||
#~(list "-Csrc/runtime" "runtime-fuse3"
|
||||
(string-append "CC=" #$(cc-for-target))
|
||||
@@ -62,33 +60,34 @@
|
||||
`((guix build gnu-build-system)
|
||||
(guix build utils)
|
||||
(ice-9 binary-ports))
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
(replace 'install
|
||||
(lambda _
|
||||
(install-file "src/runtime/runtime-fuse3"
|
||||
(string-append #$output "/bin"))))
|
||||
;; Must be after all elf reliant phases. Used to identify the
|
||||
;; executable as an AppImage as per the specification.
|
||||
(add-after 'make-dynamic-linker-cache 'set-magic-bytes
|
||||
(lambda _
|
||||
(let ((port (open (string-append #$output
|
||||
"/bin/runtime-fuse3")
|
||||
(logior O_WRONLY))))
|
||||
(seek port 8 SEEK_SET)
|
||||
(put-bytevector port #vu8(#x41 #x49 #x02))
|
||||
(close-port port)))))
|
||||
#:disallowed-references
|
||||
(list (this-package-input "squashfuse-for-appimage")
|
||||
(this-package-input "fuse")
|
||||
(gexp-input (this-package-input "zstd") "static")
|
||||
(gexp-input (this-package-input "zlib") "static"))))
|
||||
#:phases #~(modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
(delete 'check) ; No tests.
|
||||
(replace 'install
|
||||
(lambda _
|
||||
(install-file "src/runtime/runtime-fuse3"
|
||||
(string-append #$output "/bin"))))
|
||||
;; Must be after all elf reliant phases. Used to identify the
|
||||
;; executable as an AppImage as per the specification.
|
||||
(add-after 'make-dynamic-linker-cache 'set-magic-bytes
|
||||
(lambda _
|
||||
(let ((port (open (string-append #$output
|
||||
"/bin/runtime-fuse3")
|
||||
(logior O_WRONLY))))
|
||||
(seek port 8 SEEK_SET)
|
||||
(put-bytevector port #vu8(#x41 #x49 #x02))
|
||||
(close-port port)))))
|
||||
#:disallowed-references (list squashfuse-for-appimage
|
||||
fuse-for-appimage
|
||||
(gexp-input zstd "static")
|
||||
(gexp-input zlib "static"))))
|
||||
;; Only needed at build time.
|
||||
(inputs (list squashfuse-for-appimage
|
||||
fuse-for-appimage
|
||||
`(,zstd "static")
|
||||
`(,zlib "static")))
|
||||
(build-system gnu-build-system)
|
||||
(home-page "https://github.com/AppImage/type2-runtime")
|
||||
(synopsis "Runtime for executing AppImages")
|
||||
(description "The runtime is the executable part of every AppImage. It mounts
|
||||
the payload via @acronym{FUSE} and executes the entrypoint, allowing users to run
|
||||
@@ -97,5 +96,4 @@ ensures that the AppImage can access its bundled libraries and resources seamles
|
||||
providing a consistent environment across different Linux distributions. In the
|
||||
absence of @acronym{FUSE}, the AppImage can still be started using the
|
||||
@option{--appimage-extract-and-run} flag.")
|
||||
(home-page "https://github.com/AppImage/type2-runtime")
|
||||
(license license:expat))))
|
||||
|
||||
+1
-32
@@ -15,7 +15,7 @@
|
||||
;;; Copyright © 2021 Sergiu Ivanov <sivanov@colimite.fr>
|
||||
;;; Copyright © 2023 Yovan Naumovski <yovan@gorski.stream>
|
||||
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
|
||||
;;; Copyright © 2024, 2025 Maxim Cournoyer <maxim@guixotic.coop>
|
||||
;;; Copyright © 2024 Maxim Cournoyer <maxim@guixotic.coop>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -482,34 +482,3 @@ European languages.")
|
||||
(for-each (cut install-file <> include-dir)
|
||||
'("config.h" "defhash.h" "ispell.h"
|
||||
"libispell.h" "local.h")))))))))))))
|
||||
|
||||
(define-public spell
|
||||
(package
|
||||
(name "spell")
|
||||
(version "1.1")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "mirror://gnu/spell/spell-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32 "0i4pqbhzkv5y4c2j7ajx713jykxsnn4dqdcqfvzn04xkgra47hkw"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list #:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'patch-commands
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(substitute* "spell.c"
|
||||
(("aspell")
|
||||
(search-input-file inputs "bin/aspell"))
|
||||
(("ispell_prog = \"ispell\"")
|
||||
(format #f "ispell_prog = ~s"
|
||||
(search-input-file inputs "bin/ispell")))))))))
|
||||
(inputs (list aspell ispell))
|
||||
(synopsis "Spell checking")
|
||||
(description
|
||||
"Spell is a command-line spell-checking program. It reads through
|
||||
a text input and prints each misspelled word on a line of its own. It is
|
||||
implemented as a wrapper for GNU aspell or ispell.")
|
||||
(home-page "https://savannah.gnu.org/projects/spell/")
|
||||
(license gpl3+)))
|
||||
|
||||
+540
-1179
File diff suppressed because it is too large
Load Diff
+212
-289
@@ -31,7 +31,7 @@
|
||||
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
|
||||
;;; Copyright © 2020, 2021 Guillaume Le Vaillant <glv@posteo.net>
|
||||
;;; Copyright © 2020 Jonathan Frederickson <jonathan@terracrypt.net>
|
||||
;;; Copyright © 2020, 2024 Giacomo Leidi <therewasa@fishinthecalculator.me>
|
||||
;;; Copyright © 2020, 2024 Giacomo Leidi <goodoldpaul@autistici.org>
|
||||
;;; Copyright © 2020, 2021, 2023 Vinicius Monego <monego@posteo.net>
|
||||
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
|
||||
;;; Copyright © 2021 jgart <jgart@dismail.de>
|
||||
@@ -58,7 +58,6 @@
|
||||
;;; Copyright © 2024 Janneke Nieuwenhuizen <janneke@gnu.org>
|
||||
;;; Copyright © 2025 Antoine Côté <antoine.cote@posteo.net>
|
||||
;;; Copyright © 2025 Isidor Zeuner <guix@quidecco.pl>
|
||||
;;; Copyright © 2025 Evgenii Klimov <eugene.dev@lipklim.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -250,43 +249,10 @@ promoting the market for advanced audio.")
|
||||
(home-page "https://www.khronos.org/opensles/")
|
||||
(license (license:non-copyleft "file:///LICENSE.txt"))))
|
||||
|
||||
(define-public python-sounddevice
|
||||
(package
|
||||
(name "python-sounddevice")
|
||||
(version "0.5.3")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (pypi-uri "sounddevice" version))
|
||||
(sha256
|
||||
(base32 "0b4vcaj79sy9aqsrgcszkp35x2fc0i4pqzk96d2viflg35h2pb6b"))))
|
||||
(build-system pyproject-build-system)
|
||||
(arguments
|
||||
(list #:tests? #false ; no tests
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'patch-generated-file-shebangs 'add-path-to-portaudio
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(substitute* "sounddevice.py"
|
||||
(("_find_library\\(_libname\\)")
|
||||
(string-append "\""
|
||||
(search-input-file inputs
|
||||
"/lib/libportaudio.so.2")
|
||||
"\""))))))))
|
||||
(inputs (list portaudio))
|
||||
(propagated-inputs (list python-cffi python-numpy))
|
||||
(native-inputs (list python-setuptools))
|
||||
(home-page "https://python-sounddevice.readthedocs.io/")
|
||||
(synopsis "Play and record sound with Python")
|
||||
(description "This Python module provides bindings for the PortAudio
|
||||
library and a few convenience functions to play and record NumPy arrays
|
||||
containing audio signals.")
|
||||
(license license:expat)))
|
||||
|
||||
(define-public wildmidi
|
||||
(package
|
||||
(name "wildmidi")
|
||||
(version "0.4.6")
|
||||
(version "0.4.4")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -296,7 +262,7 @@ containing audio signals.")
|
||||
(commit (string-append name "-" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0cc8vg2alyzakmm132vljx228arisqcnfqh8xyjnnczr5vryqa5k"))))
|
||||
(base32 "08fbbsvw6pkwwqarjwcvdp8mq4zn5sgahf025hynwc6rvf4sp167"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
`(#:tests? #f ; No target
|
||||
@@ -814,7 +780,7 @@ streams from live audio.")
|
||||
(define-public dsp
|
||||
(package
|
||||
(name "dsp")
|
||||
(version "2.0")
|
||||
(version "1.9")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -823,7 +789,7 @@ streams from live audio.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"1kzjv972qbvzh7nml3brrdf6qmjmcapldbikbn2gxhpmkgxzhhar"))))
|
||||
"0iksmianwig7w78hqip2a8yy6r63sv8cv9pis8qxny6w1xap6njb"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
@@ -906,129 +872,120 @@ purposes developed at Queen Mary, University of London.")
|
||||
(license license:gpl2+)))
|
||||
|
||||
(define-public jamesdsp
|
||||
(let ((commit "53cf0989681ba38755208c8aec063f29ed8586d3")
|
||||
(revision "0"))
|
||||
(package
|
||||
(name "jamesdsp")
|
||||
(version (git-version "2.7.0" revision commit))
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri
|
||||
(git-reference
|
||||
(url "https://github.com/Audio4Linux/JDSP4Linux")
|
||||
(commit commit)
|
||||
;; Recurse GraqhicEQWidget, FlatTabWidget, LiquidEqualizerWidget and
|
||||
;; EELEditor.
|
||||
(recursive? #t)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1b5612gr2gfmj1h5hdzfa9xxdwixia06a34n2zs04cra94clif9i"))
|
||||
(modules '((guix build utils)))
|
||||
(snippet
|
||||
;; Unbundle 3rd party libraries.
|
||||
'(begin
|
||||
;; Delete the bundled 3rd party libraries.
|
||||
(for-each delete-file-recursively
|
||||
(list "3rdparty"
|
||||
"src/subprojects/EELEditor/3rdparty"
|
||||
"src/subprojects/EELEditor/QCodeEditor"
|
||||
"src/subprojects/EELEditor/src/EELEditor-Linker.pri"))
|
||||
(with-directory-excursion "src"
|
||||
(package
|
||||
(name "jamesdsp")
|
||||
(version "2.7.0")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri
|
||||
(git-reference
|
||||
(url "https://github.com/Audio4Linux/JDSP4Linux")
|
||||
(commit version)
|
||||
;; Recurse GraqhicEQWidget, FlatTabWidget, LiquidEqualizerWidget and
|
||||
;; EELEditor.
|
||||
(recursive? #t)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "17vx12kbvwxvb69vzrlb82mrgf6sl3plyk71g9f39p49ialdsnbr"))
|
||||
(modules '((guix build utils)))
|
||||
(snippet
|
||||
;; Unbundle 3rd party libraries.
|
||||
'(begin
|
||||
;; Delete the bundled 3rd party libraries.
|
||||
(for-each delete-file-recursively
|
||||
(list "3rdparty"
|
||||
"src/subprojects/EELEditor/3rdparty"
|
||||
"src/subprojects/EELEditor/QCodeEditor"
|
||||
"src/subprojects/EELEditor/src/EELEditor-Linker.pri"))
|
||||
(with-directory-excursion "src"
|
||||
(substitute* "src.pro"
|
||||
;; Do not use bundled 3rd party libraries.
|
||||
((".*3rdparty.*") "")
|
||||
;; Link required libraries from system.
|
||||
(("-ldl")
|
||||
(string-join '("-ldl"
|
||||
"-lasync++"
|
||||
"-lQCodeEditor"
|
||||
"-lqcustomplot"
|
||||
"-lqtadvanceddocking-qt6"
|
||||
"-lqtcsv"
|
||||
"-lwaf")
|
||||
" ")))
|
||||
;; Fix including WAF headers.
|
||||
(substitute* "MainWindow.cpp"
|
||||
(("<Animation") "<WAF/Animation"))
|
||||
;; Do not use resources from the bundled docking-system.
|
||||
(substitute* '("interface/fragment/AppManagerFragment.ui")
|
||||
((".*location.*3rdparty.*") "")
|
||||
((" resource=.*>") ">"))
|
||||
(with-directory-excursion "subprojects/EELEditor/src"
|
||||
;; Do not use bundled QCodeEditor and docking-system.
|
||||
(substitute* "EELEditor.pri"
|
||||
((".*(QCodeEditor|docking-system).*") ""))
|
||||
;; Do not link to bundled docking-system.
|
||||
(substitute* "src.pro"
|
||||
;; Do not use bundled 3rd party libraries.
|
||||
((".*3rdparty.*") "")
|
||||
;; Link required libraries from system.
|
||||
(("-ldl")
|
||||
(string-join '("-ldl"
|
||||
"-lasync++"
|
||||
"-lQCodeEditor"
|
||||
"-lqcustomplot"
|
||||
"-lqtadvanceddocking-qt6"
|
||||
"-lqtcsv"
|
||||
"-lwaf")
|
||||
" ")))
|
||||
;; Fix including WAF headers.
|
||||
(substitute* "MainWindow.cpp"
|
||||
(("<Animation") "<WAF/Animation"))
|
||||
;; Do not use resources from the bundled docking-system.
|
||||
(substitute* '("interface/fragment/AppManagerFragment.ui")
|
||||
((".*location.*3rdparty.*") "")
|
||||
((" resource=.*>") ">"))
|
||||
(with-directory-excursion "subprojects/EELEditor/src"
|
||||
;; Do not use bundled QCodeEditor and docking-system.
|
||||
(substitute* "EELEditor.pri"
|
||||
((".*(QCodeEditor|docking-system).*") ""))
|
||||
;; Do not link to bundled docking-system.
|
||||
(substitute* "src.pro"
|
||||
((".*EELEditor-Linker.*") ""))
|
||||
;; Fix including headers from the system.
|
||||
(substitute* (find-files "." "\\.(cpp|h)$")
|
||||
(("#include <Dock") "#include <qtadvanceddocking-qt6/Dock")
|
||||
(("#include <FloatingDock")
|
||||
"#include <qtadvanceddocking-qt6/FloatingDock")
|
||||
(("#include <QSyntaxStyle")
|
||||
"#include <QCodeEditor/QSyntaxStyle")
|
||||
(("#include <QStyleSyntaxHighlighter")
|
||||
"#include <QCodeEditor/QStyleSyntaxHighlighter")
|
||||
(("#include <QHighlightRule")
|
||||
"#include <QCodeEditor/QHighlightRule")
|
||||
(("#include <QLanguage") "#include <QCodeEditor/QLanguage")
|
||||
(("#include <QCodeEditor\\.hpp")
|
||||
"#include <QCodeEditor/QCodeEditor.hpp"))))))))
|
||||
(build-system qt-build-system)
|
||||
(arguments
|
||||
(list #:qtbase qtbase
|
||||
#:tests? #f ;no tests
|
||||
#:parallel-build? #f ;fails on some systems
|
||||
#:modules '((guix build qt-build-system)
|
||||
((guix build gnu-build-system) #:prefix gnu:)
|
||||
(guix build utils))
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
;; Configure using qmake.
|
||||
(replace 'configure
|
||||
(lambda _
|
||||
(invoke "qmake" (string-append "PREFIX=" #$output))))
|
||||
(replace 'build (assoc-ref gnu:%standard-phases 'build))
|
||||
(replace 'check (assoc-ref gnu:%standard-phases 'check))
|
||||
(replace 'install (assoc-ref gnu:%standard-phases 'install))
|
||||
(add-after 'install 'install-icon
|
||||
(lambda _
|
||||
(let ((pixmaps (string-append #$output "/share/pixmaps")))
|
||||
(mkdir-p pixmaps)
|
||||
(copy-file "resources/icons/icon.png"
|
||||
(string-append pixmaps "/jamesdsp.png")))))
|
||||
(add-after 'install-icon 'create-desktop-entry-file
|
||||
(lambda _
|
||||
(make-desktop-entry-file
|
||||
(string-append #$output
|
||||
"/share/applications/jamesdsp.desktop")
|
||||
#:name "JamesDSP"
|
||||
#:comment "Audio effect processor"
|
||||
#:keywords '("equalizer" "audio" "effect")
|
||||
#:categories '("AudioVideo" "Audio")
|
||||
#:exec (string-append #$output "/bin/jamesdsp")
|
||||
#:icon (string-append #$output
|
||||
"/share/pixmaps/jamesdsp.png")
|
||||
#:startup-notify #f))))))
|
||||
(native-inputs
|
||||
(list pkg-config))
|
||||
(inputs
|
||||
(list asyncplusplus
|
||||
glibmm-2.66
|
||||
libarchive
|
||||
pipewire
|
||||
qcodeeditor
|
||||
qcustomplot
|
||||
qt-advanced-docking-system
|
||||
qtcsv
|
||||
qtpromise
|
||||
qtsvg
|
||||
qtwidgetanimationframework))
|
||||
(home-page "https://github.com/Audio4Linux/JDSP4Linux")
|
||||
(synopsis "Audio effect processor for PipeWire and PulseAudio clients")
|
||||
(description "JamesDSP is an audio effect processor for PipeWire and
|
||||
((".*EELEditor-Linker.*") ""))
|
||||
;; Fix including headers from the system.
|
||||
(substitute* (find-files "." "\\.(cpp|h)$")
|
||||
(("#include <Dock") "#include <qtadvanceddocking-qt6/Dock")
|
||||
(("#include <FloatingDock")
|
||||
"#include <qtadvanceddocking-qt6/FloatingDock")
|
||||
(("#include <QSyntaxStyle")
|
||||
"#include <QCodeEditor/QSyntaxStyle")
|
||||
(("#include <QStyleSyntaxHighlighter")
|
||||
"#include <QCodeEditor/QStyleSyntaxHighlighter")
|
||||
(("#include <QHighlightRule")
|
||||
"#include <QCodeEditor/QHighlightRule")
|
||||
(("#include <QLanguage") "#include <QCodeEditor/QLanguage")
|
||||
(("#include <QCodeEditor\\.hpp")
|
||||
"#include <QCodeEditor/QCodeEditor.hpp"))))))
|
||||
(patches (search-patches "jamesdsp-fix-bulid-on-pipewire-1.4.0.patch"))))
|
||||
(build-system qt-build-system)
|
||||
(arguments
|
||||
(list #:qtbase qtbase
|
||||
#:tests? #f ;no tests
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
;; Configure using qmake.
|
||||
(replace 'configure
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(invoke "qmake" (string-append "PREFIX=" #$output))))
|
||||
(add-after 'install 'install-icon
|
||||
(lambda _
|
||||
(let ((pixmaps (string-append #$output "/share/pixmaps")))
|
||||
(mkdir-p pixmaps)
|
||||
(copy-file "resources/icons/icon.png"
|
||||
(string-append pixmaps "/jamesdsp.png")))))
|
||||
(add-after 'install-icon 'create-desktop-entry-file
|
||||
(lambda _
|
||||
(make-desktop-entry-file
|
||||
(string-append #$output
|
||||
"/share/applications/jamesdsp.desktop")
|
||||
#:name "JamesDSP"
|
||||
#:comment "Audio effect processor"
|
||||
#:keywords '("equalizer" "audio" "effect")
|
||||
#:categories '("AudioVideo" "Audio")
|
||||
#:exec (string-append #$output "/bin/jamesdsp")
|
||||
#:icon (string-append #$output "/share/pixmaps/jamesdsp.png")
|
||||
#:startup-notify #f))))))
|
||||
(native-inputs
|
||||
(list pkg-config))
|
||||
(inputs
|
||||
(list asyncplusplus
|
||||
glibmm-2.66
|
||||
libarchive
|
||||
pipewire
|
||||
qcodeeditor
|
||||
qcustomplot
|
||||
qt-advanced-docking-system
|
||||
qtcsv
|
||||
qtpromise
|
||||
qtsvg
|
||||
qtwidgetanimationframework))
|
||||
(home-page "https://github.com/Audio4Linux/JDSP4Linux")
|
||||
(synopsis "Audio effect processor for PipeWire and PulseAudio clients")
|
||||
(description "JamesDSP is an audio effect processor for PipeWire and
|
||||
PulseAudio clients, featuring:
|
||||
@itemize
|
||||
@item Automatic bass boost: Frequency-detecting bass-boost
|
||||
@@ -1050,7 +1007,7 @@ PulseAudio clients, featuring:
|
||||
dynamic code outline window, console output support and detailed error
|
||||
messages with inline code highlighting
|
||||
@end itemize")
|
||||
(license license:gpl3+))))
|
||||
(license license:gpl3+)))
|
||||
|
||||
(define ardour-bundled-media
|
||||
(origin
|
||||
@@ -1201,16 +1158,6 @@ namespace ARDOUR { const char* revision = \"" version "\" ; const char* date = \
|
||||
perl
|
||||
pkg-config
|
||||
unzip))
|
||||
(native-search-paths
|
||||
(list (search-path-specification
|
||||
(variable "LADSPA_PATH")
|
||||
(files '("lib/ladspa")))
|
||||
(search-path-specification
|
||||
(variable "LV2_PATH")
|
||||
(files '("lib/lv2")))
|
||||
(search-path-specification
|
||||
(variable "LXVST_PATH")
|
||||
(files '("lib/lxvst")))))
|
||||
(home-page "https://ardour.org")
|
||||
(synopsis "Digital audio workstation")
|
||||
(description
|
||||
@@ -1649,7 +1596,7 @@ plugins are provided.")
|
||||
(define-public cable
|
||||
(package
|
||||
(name "cable")
|
||||
(version "0.9.21")
|
||||
(version "0.9.8.1")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -1658,7 +1605,10 @@ plugins are provided.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"1c7fy92nwp2m96asls460s83xapzcc6pqvplmg5rqds1rddiva2h"))))
|
||||
"0pzafiim1cnxrngk6nzmpx9sx1lc6qrqjrrcxg1qpigcrjvrfjs2"))
|
||||
(modules '((guix build utils)))
|
||||
(snippet
|
||||
'(delete-file-recursively "Arch packages"))))
|
||||
(build-system pyproject-build-system)
|
||||
(arguments
|
||||
(list
|
||||
@@ -1679,7 +1629,21 @@ plugins are provided.")
|
||||
(install-file "jack-plug.svg"
|
||||
(string-append #$output "/share/icons/hicolor/scalable/apps/"))
|
||||
(install-file "com.github.magillos.cable.desktop"
|
||||
(string-append #$output "/share/applications/")))))))
|
||||
(string-append #$output "/share/applications/"))))
|
||||
(add-after 'install-more 'wrap-executables
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(let* ((pyversion
|
||||
#$(version-major+minor (package-version
|
||||
(this-package-input "python"))))
|
||||
(lib (string-append #$output "/lib/python" pyversion
|
||||
"/site-packages"))
|
||||
(file
|
||||
(string-append lib "/cables/launch-connection-manager.py")))
|
||||
(chmod file #o555)
|
||||
(wrap-script file
|
||||
#:guile (search-input-file inputs "bin/guile")
|
||||
`("GUIX_PYTHONPATH" ":" prefix
|
||||
(,lib ,(getenv "GUIX_PYTHONPATH"))))))))))
|
||||
(inputs
|
||||
(list python
|
||||
python-dbus
|
||||
@@ -1700,7 +1664,7 @@ connections manager, pw-top wrapper, simple ALSA mixer and jack_delay GUI.")
|
||||
(define-public calf
|
||||
(package
|
||||
(name "calf")
|
||||
(version "0.90.8")
|
||||
(version "0.90.6")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -1709,7 +1673,7 @@ connections manager, pw-top wrapper, simple ALSA mixer and jack_delay GUI.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"0wzkshqazw26w73h1lva5wr8v2bq0a20kjd6lfvbi1pj3ql3azk5"))))
|
||||
"0p4zqzr7spy3jjsmy6h7n5lsyqqyh23bswk1r3kims50b102xhxd"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments (list #:tests? #false)) ;there is no test target
|
||||
(inputs
|
||||
@@ -1865,7 +1829,7 @@ reel-to-reel tape machines.")
|
||||
(define-public iir
|
||||
(package
|
||||
(name "iir")
|
||||
(version "1.10.0")
|
||||
(version "1.9.4")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -1874,7 +1838,7 @@ reel-to-reel tape machines.")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0p64l0fmr7mfjhfxg6yc4f06aacbr6bb8kjmb5ffm95sq12rzdss"))))
|
||||
(base32 "1fqxn0qlvykpk9hiliivmkjjcz3g1bp83yd0zfm82r14abkjbj2g"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
(list
|
||||
@@ -1961,7 +1925,7 @@ synthesis.")
|
||||
(define-public snapcast
|
||||
(package
|
||||
(name "snapcast")
|
||||
(version "0.34.0")
|
||||
(version "0.32.3")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -1970,7 +1934,7 @@ synthesis.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"0jqzzjw1njixapj89yvgbhk7yrfc14xsfd94pf6z6lfna8c01yq4"))))
|
||||
"06hllji1621f29g6ymbysi1vkndjsrwj63f5ph30f6kvv3c8sqx4"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments '(#:tests? #f)) ;no included tests
|
||||
(inputs
|
||||
@@ -2078,8 +2042,6 @@ emulation (valve, tape), bit fiddling (decimator, pointer-cast), etc.")
|
||||
(sha256
|
||||
(base32 "0g0yfmwmrkvrkvynx84bays6jph3wq2hq1md5ylr7n5a8g0c17hn"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
(list #:tests? #f))
|
||||
(native-inputs
|
||||
(list boost pkg-config))
|
||||
(inputs
|
||||
@@ -2407,7 +2369,7 @@ the non-linear circuit elements of their original analog counterparts.")
|
||||
(define-public rev-plugins
|
||||
(package
|
||||
(name "rev-plugins")
|
||||
(version "0.8.1")
|
||||
(version "0.7.1")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append
|
||||
@@ -2416,24 +2378,23 @@ the non-linear circuit elements of their original analog counterparts.")
|
||||
version ".tar.bz2"))
|
||||
(sha256
|
||||
(base32
|
||||
"1yhnvjgr14qr0ni0n2x8dhlzbx1qfgyrnffbaaq0d5xbzfgrq543"))))
|
||||
"1ikpinxm00pkfi259bnkzhsy3miagrjgdihaaf5x4v7zac29j3g7"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list #:tests? #f ; no "check" target
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
;; no configure script
|
||||
(delete 'configure)
|
||||
(add-after 'unpack 'change-directory
|
||||
(lambda _
|
||||
(chdir "source")))
|
||||
(add-after 'change-directory 'override-target-directory
|
||||
(lambda _
|
||||
(substitute* "Makefile"
|
||||
(("/usr") #$output))))
|
||||
(add-before 'install 'prepare-target-directory
|
||||
(lambda _
|
||||
(mkdir-p (string-append #$output "/lib/ladspa")))))))
|
||||
`(#:tests? #f ; no "check" target
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
;; no configure script
|
||||
(delete 'configure)
|
||||
(add-before 'install 'prepare-target-directory
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
|
||||
#t))
|
||||
(add-after 'unpack 'override-target-directory
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(substitute* "Makefile"
|
||||
(("/usr") (assoc-ref outputs "out")))
|
||||
#t)))))
|
||||
(home-page "https://kokkinizita.linuxaudio.org")
|
||||
(synopsis "LADSPA reverb plugin")
|
||||
(description
|
||||
@@ -2747,7 +2708,7 @@ also play midifiles using a Soundfont.")
|
||||
(define-public faust-2
|
||||
(package
|
||||
(inherit faust)
|
||||
(version "2.81.10")
|
||||
(version "2.75.7")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://github.com/grame-cncm/faust/"
|
||||
@@ -2755,7 +2716,7 @@ also play midifiles using a Soundfont.")
|
||||
"/faust-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"0mj7gn7xp6mzr94nqcyrrkcmzm81chq6qb1n76wspah71lw7g6f6"))))
|
||||
"11ww02zmj3vnva1w52hs9wkxvhwwf53agklyzm2c7gysw0jfvkw9"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
(list
|
||||
@@ -2902,7 +2863,7 @@ partial release of the General MIDI sound set.")
|
||||
(("'rU'") "'r'")))))))
|
||||
(inputs
|
||||
(list libsndfile
|
||||
boost-1.83
|
||||
boost
|
||||
curl
|
||||
avahi
|
||||
eigen
|
||||
@@ -3181,7 +3142,7 @@ and testing or configuring the JACK session. Tools include @code{jack_lsp},
|
||||
(define-public jacktrip
|
||||
(package
|
||||
(name "jacktrip")
|
||||
(version "2.7.1")
|
||||
(version "1.6.8")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -3189,7 +3150,7 @@ and testing or configuring the JACK session. Tools include @code{jack_lsp},
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1d9cn4nny3kbf3f9x0bcsrqb0ir1h789nv7s72xmhf7r5rfd9xm4"))))
|
||||
(base32 "0719ng799kingv0y9yk07bvnmprk25c09ph3yaia5dhapg0jz17m"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
@@ -3208,11 +3169,10 @@ and testing or configuring the JACK session. Tools include @code{jack_lsp},
|
||||
python
|
||||
python-jinja2
|
||||
python-pyyaml
|
||||
qtbase
|
||||
qtwayland
|
||||
qtbase-5
|
||||
rtaudio))
|
||||
(native-inputs
|
||||
(list pkg-config))
|
||||
(list pkg-config qtbase-5)) ;for qmake
|
||||
(home-page "https://jacktrip.github.io/jacktrip/")
|
||||
(synopsis "Multi-machine audio system for network music performance")
|
||||
(description
|
||||
@@ -3294,30 +3254,25 @@ from being able to mix multiple JACK audio streams.")
|
||||
"1q8mzjv577vdi64s47gd4pg0ydzxvs32cwrb1d64v90f52qpgbpd"))))
|
||||
(build-system meson-build-system)
|
||||
(arguments
|
||||
(list #:tests? #f ; no check target
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-before 'configure 'build-PIC
|
||||
;; The default -fPIE #errors when combined with our Qt
|
||||
;; packages. Work around the broken meson.build script
|
||||
;; clobbering c_args.
|
||||
(lambda _
|
||||
(substitute* "meson.build"
|
||||
(("'-DZIX_STATIC'" match)
|
||||
(string-append match ", '-fPIC'"))))))))
|
||||
`(#:tests? #f ; no check target
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-before 'configure 'build-PIC
|
||||
;; The default -fPIE #errors when combined with our Qt packages.
|
||||
;; Work around the broken meson.build script clobbering c_args.
|
||||
(lambda _
|
||||
(substitute* "meson.build"
|
||||
(("'-DZIX_STATIC'" match)
|
||||
(string-append match ", '-fPIC'"))))))))
|
||||
(inputs
|
||||
(list lv2
|
||||
lilv
|
||||
suil
|
||||
gtk+
|
||||
jack-1
|
||||
qtbase-5))
|
||||
qtbase-5
|
||||
jack-1))
|
||||
(native-inputs
|
||||
(list pkg-config))
|
||||
(native-search-paths
|
||||
(list (search-path-specification
|
||||
(variable "LV2_PATH")
|
||||
(files '("lib/lv2")))))
|
||||
(home-page "https://drobilla.net/software/jalv.html")
|
||||
(synopsis "Simple LV2 host for JACK")
|
||||
(description
|
||||
@@ -3581,7 +3536,6 @@ compensation, (de)interleaving, and byte-swapping
|
||||
(build-system pyproject-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:tests? #f ;no test target
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'find-library
|
||||
@@ -3771,13 +3725,13 @@ CFFI and NumPy.")
|
||||
(define-public python-soxr
|
||||
(package
|
||||
(name "python-soxr")
|
||||
(version "1.0.0")
|
||||
(version "0.5.0.post1")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (pypi-uri "soxr" version))
|
||||
(sha256
|
||||
(base32 "02a5balcm8dvlb938gl2k3kqvfdq1k300j2g0dbnkg2rsv0yczp0"))))
|
||||
(base32 "0wzz7j0z814mm99xr19vfrwp2x904lbwhf513x7085m4x3rvk4kh"))))
|
||||
(build-system pyproject-build-system)
|
||||
(arguments
|
||||
(list
|
||||
@@ -3805,6 +3759,7 @@ CFFI and NumPy.")
|
||||
python-scikit-build-core
|
||||
python-setuptools
|
||||
python-setuptools-scm
|
||||
python-sphinx
|
||||
python-typing-extensions
|
||||
python-wheel))
|
||||
(home-page "https://github.com/dofuuz/python-soxr")
|
||||
@@ -4472,7 +4427,7 @@ link REQUIRED)"))))))
|
||||
eudev ;for user interactions with devices
|
||||
avahi ;zeroconf service discovery support
|
||||
icu4c
|
||||
boost-1.83
|
||||
boost
|
||||
boost-sync
|
||||
yaml-cpp
|
||||
python-wrapper ;there were warnings in the build process
|
||||
@@ -6011,7 +5966,7 @@ kbps at 24 bit/96 kHz.")
|
||||
(define-public bluez-alsa
|
||||
(package
|
||||
(name "bluez-alsa")
|
||||
(version "4.3.1")
|
||||
(version "3.0.0")
|
||||
(source (origin
|
||||
;; The tarballs are mere snapshots and don't contain a
|
||||
;; bootstrapped build system.
|
||||
@@ -6022,7 +5977,7 @@ kbps at 24 bit/96 kHz.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"05qzmcsihhd92vpjd45qr0gdzfqiw4jfcdjdg78mzimv9g5g3rjm"))))
|
||||
"1jlsgxyqfhncfhx1sy3ry0dp6p95kd4agh7g2b7g51h0c4cv74h8"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
`(#:configure-flags
|
||||
@@ -6034,12 +5989,7 @@ kbps at 24 bit/96 kHz.")
|
||||
(assoc-ref %outputs "out")
|
||||
"/etc/dbus-1/system.d"))))
|
||||
(native-inputs
|
||||
(list autoconf
|
||||
automake
|
||||
`(,glib "bin")
|
||||
libtool
|
||||
pkg-config
|
||||
python-minimal))
|
||||
(list autoconf automake libtool pkg-config))
|
||||
(inputs
|
||||
(list alsa-lib
|
||||
bluez
|
||||
@@ -6127,50 +6077,26 @@ customized and extended using either the s7 Scheme implementation (included in
|
||||
the Snd sources), Ruby, or Forth.")
|
||||
(license (license:non-copyleft "file://COPYING"))))
|
||||
|
||||
(define-public libspecbleach
|
||||
(package
|
||||
(name "libspecbleach")
|
||||
(version "0.1.6")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/lucianodato/libspecbleach")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"0czmzhggg5gl833karfrl2c0pr2k3jf7q7jd3y68hyj0cnn6f3jg"))))
|
||||
(build-system meson-build-system)
|
||||
(native-inputs
|
||||
(list pkg-config))
|
||||
(inputs
|
||||
(list fftwf))
|
||||
(home-page "https://github.com/lucianodato/libspecbleach")
|
||||
(synopsis "C library for audio noise reduction and other spectral effects")
|
||||
(description
|
||||
"This package provides a C library for audio noise reduction and other
|
||||
spectral effects. It is based on the algorithms that were used in
|
||||
@code{noise-repellent}. These were extracted into a this standalone library to
|
||||
remove the lv2 dependency. It uses the concept of a spectral processor which
|
||||
itself uses a @acronym{STFT, short time Fourier transform} to process the audio.")
|
||||
(license license:lgpl2.1+)))
|
||||
|
||||
(define-public noise-repellent
|
||||
(package
|
||||
(name "noise-repellent")
|
||||
(version "0.2.3")
|
||||
(version "0.1.5")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/lucianodato/noise-repellent")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(commit version)))
|
||||
(file-name (string-append name "-" version "-checkout"))
|
||||
(sha256
|
||||
(base32
|
||||
"0dq0rv7mndw0lqacl2nf9dmj4zzq19hfminzk3fzbppk5mh2rivp"))))
|
||||
"0hb89x9i2knzan46q4nwscf5zmnb2nwf4w13xl2c0y1mx1ls1mwl"))))
|
||||
(build-system meson-build-system)
|
||||
(arguments
|
||||
`(#:configure-flags
|
||||
(list (string-append "--prefix=" (assoc-ref %outputs "out")
|
||||
"/lib/lv2"))))
|
||||
(inputs
|
||||
(list fftwf libspecbleach lv2))
|
||||
(list lv2 fftwf))
|
||||
(native-inputs
|
||||
(list pkg-config))
|
||||
(home-page "https://github.com/lucianodato/noise-repellent")
|
||||
@@ -6294,7 +6220,7 @@ representations.")
|
||||
(define-public cava
|
||||
(package
|
||||
(name "cava")
|
||||
(version "0.10.6")
|
||||
(version "0.10.4")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -6303,7 +6229,7 @@ representations.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"12ysxbm1di2m0qac4rgd5f94fvlxv64s7kyy5s0d2bbxyzvdcqvm"))))
|
||||
"09wwzqynfmdzn77vxxmrw2z0yz95p4zg9cgfp9vnpv70visi98d0"))))
|
||||
(build-system gnu-build-system)
|
||||
(native-inputs (list autoconf automake libtool pkg-config))
|
||||
(inputs (list alsa-lib fftw ncurses pipewire pulseaudio iniparser
|
||||
@@ -6554,7 +6480,7 @@ other Gnaural instances, allowing synchronous sessions between many users.")
|
||||
(define-public darkice
|
||||
(package
|
||||
(name "darkice")
|
||||
(version "1.5")
|
||||
(version "1.4")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://github.com/rafael2k/darkice/releases/"
|
||||
@@ -6562,7 +6488,7 @@ other Gnaural instances, allowing synchronous sessions between many users.")
|
||||
version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"13h58skz5xik75sjv9kf2299haly2nc5gswl22ff1kvw79bw9d0q"))))
|
||||
"05yq7lggxygrkd76yiqby3msrgdn082p0qlvmzzv9xbw8hmyra76"))))
|
||||
(build-system gnu-build-system)
|
||||
(native-inputs (list pkg-config))
|
||||
(inputs (list lame
|
||||
@@ -7376,14 +7302,14 @@ while still staying in time.")
|
||||
(define-public butt
|
||||
(package
|
||||
(name "butt")
|
||||
(version "1.45.0")
|
||||
(version "0.1.38")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://danielnoethen.de/butt/release/"
|
||||
(uri (string-append "mirror://sourceforge/butt/butt/butt-"
|
||||
version "/butt-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"0r43xph6xf02c9zldhyj82mvy82xv0f9wbv653gg2kkcjh88ajc8"))
|
||||
"10i3xpxzccdl4pidiyymw9cfavhy50yhn7xi5bd77y91f2903kp9"))
|
||||
(modules '((guix build utils)))
|
||||
(snippet
|
||||
'(substitute* "src/butt.cpp"
|
||||
@@ -7394,21 +7320,19 @@ while still staying in time.")
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'install 'install-documentation
|
||||
(lambda _
|
||||
(let ((doc (string-append #$output:doc "/share/doc/" #$name)))
|
||||
(let ((doc (string-append #$output "/share/doc/" #$name)))
|
||||
(install-file "README" doc)
|
||||
(copy-file #$(this-package-native-input "manual")
|
||||
(string-append doc "/butt-manual.pdf"))))))))
|
||||
(outputs '("out" "doc"))
|
||||
(native-inputs
|
||||
`(("pkg-config" ,pkg-config)
|
||||
("manual"
|
||||
,(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://danielnoethen.de/butt/release/" version
|
||||
"/butt-"
|
||||
(uri (string-append "https://danielnoethen.de/butt/butt-"
|
||||
version "_manual.pdf"))
|
||||
(sha256
|
||||
(base32 "07mr25k26xrpns3s7ci27jmp71c49a23r0mi662ir5v35rz4bf4q"))))))
|
||||
(base32 "04aixxqshfj11ja3ifh0zvywl2mqzmymppcd0xj8sv0j7whjibaq"))))))
|
||||
(inputs
|
||||
(list curl
|
||||
dbus
|
||||
@@ -7426,8 +7350,7 @@ while still staying in time.")
|
||||
libogg
|
||||
openssl
|
||||
opus
|
||||
portaudio
|
||||
portmidi-2))
|
||||
portaudio))
|
||||
(home-page "https://danielnoethen.de/butt/")
|
||||
(synopsis "Audio streaming tool")
|
||||
(description "Butt is a tool to stream audio to a ShoutCast or
|
||||
@@ -7561,7 +7484,7 @@ Home Page}.")
|
||||
(define-public python-librosa
|
||||
(package
|
||||
(name "python-librosa")
|
||||
(version "0.11.0")
|
||||
(version "0.10.2.post1")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -7571,7 +7494,7 @@ Home Page}.")
|
||||
;; For test files.
|
||||
(recursive? #true)))
|
||||
(sha256
|
||||
(base32 "065x43hx670rjrclxi4hiqxscllb16v9s7myjvg7rd5pd3y0k7sg"))))
|
||||
(base32 "1x37148y1rh4sq2nc59iw9jlza3zwawxnlb7bd9w36an05aclmnh"))))
|
||||
(build-system pyproject-build-system)
|
||||
(arguments
|
||||
(list
|
||||
@@ -7700,7 +7623,7 @@ and DSD streams.")
|
||||
(define-public qpwgraph
|
||||
(package
|
||||
(name "qpwgraph")
|
||||
(version "0.9.7")
|
||||
(version "0.9.6")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -7709,7 +7632,7 @@ and DSD streams.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"1j3na9svy0rvz84rl9g2szl3rqxfyi5rqk1i12hdiwnyi6q7ppxi"))))
|
||||
"17f84qp0vphw0qbgi4yzvws19cw1lppn5r35niy032gw8qr7l6nf"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
(list #:tests? #f)) ; no tests
|
||||
@@ -7905,7 +7828,7 @@ verifies checksums.")
|
||||
fmt
|
||||
gsl
|
||||
gtk
|
||||
nlohmann-json
|
||||
json-modern-cxx ;nlohmann_json
|
||||
libadwaita
|
||||
libbs2b
|
||||
libebur128
|
||||
|
||||
@@ -221,13 +221,8 @@ YubiKey into your existing user authentication infrastructure.")
|
||||
(sha256
|
||||
(base32 "1mdj1wj0adcnx354fs17928yn2xfr1hj5mfraq282dagi873sqw3"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
`(#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-after 'unpack 'force-reconfigure
|
||||
(lambda _ (delete-file "configure"))))))
|
||||
(native-inputs
|
||||
(list autoconf automake libtool pkg-config))
|
||||
(list pkg-config))
|
||||
(inputs
|
||||
(list linux-pam))
|
||||
(home-page "https://pamtester.sourceforge.net/")
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -205,24 +205,11 @@ mirror_directory (const char *source, const char *target,
|
||||
/* Create the mount point. */
|
||||
int err = firmlink (abs_source, entry, new_entry);
|
||||
|
||||
int is_directory = 0;
|
||||
if (entry->d_type == DT_UNKNOWN)
|
||||
{
|
||||
struct stat statbuf;
|
||||
if (fstatat (dir_fd, entry->d_name, &statbuf,
|
||||
AT_SYMLINK_NOFOLLOW) < 0)
|
||||
assert_perror (errno);
|
||||
if ((statbuf.st_mode & S_IFMT) == S_IFDIR)
|
||||
is_directory = 1;
|
||||
}
|
||||
else if (entry->d_type == DT_DIR)
|
||||
is_directory = 1;
|
||||
|
||||
/* It used to be that only directories could be bind-mounted. Thus,
|
||||
keep going if we fail to bind-mount a non-directory entry.
|
||||
That's OK because regular files in the root file system are
|
||||
usually uninteresting. */
|
||||
if (err != 0 && is_directory == 0)
|
||||
if (err != 0 && entry->d_type != DT_DIR)
|
||||
assert_perror (errno);
|
||||
|
||||
free (new_entry);
|
||||
|
||||
@@ -1001,6 +1001,38 @@ restic's REST backend API. It provides a secure and efficient way to backup
|
||||
data remotely, using the restic backup client and a @code{rest:} URL.")
|
||||
(license license:bsd-2)))
|
||||
|
||||
(define-public zbackup
|
||||
(package
|
||||
(name "zbackup")
|
||||
(version "1.4.4")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/zbackup/zbackup")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "14l1kyxg7pccpax3d6qcpmdycb70kn3fxp1a59w64hqy2493hngl"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
`(#:tests? #f)) ;no test
|
||||
(inputs
|
||||
(list lzo libressl protobuf-3.6 xz zlib))
|
||||
(home-page "http://zbackup.org")
|
||||
(synopsis "Versatile deduplicating backup tool")
|
||||
(description
|
||||
"ZBackup is a globally-deduplicating backup tool, based on the
|
||||
ideas found in Rsync. Feed a large @file{.tar} into it, and it will
|
||||
store duplicate regions of it only once, then compress and optionally
|
||||
encrypt the result. Feed another @file{.tar} file, and it will also
|
||||
re-use any data found in any previous backups. This way only new
|
||||
changes are stored, and as long as the files are not very different,
|
||||
the amount of storage required is very low. Any of the backup files
|
||||
stored previously can be read back in full at any time. The program
|
||||
is format-agnostic, so you can feed virtually any files to it.")
|
||||
(license license:gpl2+)))
|
||||
|
||||
(define-public dump
|
||||
(package
|
||||
(name "dump")
|
||||
|
||||
@@ -264,12 +264,6 @@ implementation offers several extensions over the standard utility.")
|
||||
",!chained renames"
|
||||
",!Directory"
|
||||
"'"))))
|
||||
;; 'storing sparse files > 8G' fails on powerpc-linux, likely
|
||||
;; due to the small HDD and RAM present on these devices.
|
||||
((target-ppc32?)
|
||||
'(#:make-flags (list (string-append "TESTSUITEFLAGS= -k "
|
||||
"'!tricky time stamps"
|
||||
",!storing sparse files > 8G'"))))
|
||||
;; https://lists.gnu.org/archive/html/bug-tar/2021-10/msg00007.html
|
||||
;; tar-1.34 isn't aware of 64-bit time_t and upstream suggests
|
||||
;; skipping the test for this release on 32-bit systems.
|
||||
|
||||
@@ -435,8 +435,9 @@ setup against another one.")
|
||||
(native-inputs
|
||||
(list coreutils
|
||||
python-lxml
|
||||
python-pynose
|
||||
python-setuptools))
|
||||
python-nose
|
||||
python-setuptools
|
||||
python-wheel))
|
||||
(home-page "https://github.com/sosy-lab/benchexec/")
|
||||
(synopsis "Framework for Reliable Benchmarking")
|
||||
(description
|
||||
|
||||
+1548
-1913
File diff suppressed because it is too large
Load Diff
+530
-292
File diff suppressed because it is too large
Load Diff
@@ -23,7 +23,6 @@
|
||||
;;; Copyright © 2025 Tomas Volf <~@wolfsden.cz>
|
||||
;;; Copyright © 2025 Janneke Nieuwenhuizen <janneke@gnu.org>
|
||||
;;; Copyright © 2025 Vinicius Monego <monego@posteo.net>
|
||||
;;; Copyright © 2025 Junker <dk@junkeria.club>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -86,7 +85,6 @@
|
||||
#:use-module (gnu packages python-crypto)
|
||||
#:use-module (gnu packages python-web)
|
||||
#:use-module (gnu packages python-xyz)
|
||||
#:use-module (gnu packages serialization)
|
||||
#:use-module (gnu packages qt)
|
||||
#:use-module (gnu packages sqlite)
|
||||
#:use-module (gnu packages ssh)
|
||||
@@ -223,46 +221,6 @@ of the Transmission BitTorrent client, using its HTTP RPC protocol.")
|
||||
(home-page "https://github.com/transmission-remote-gtk/transmission-remote-gtk")
|
||||
(license l:gpl2+)))
|
||||
|
||||
(define-public stig
|
||||
(package
|
||||
(name "stig")
|
||||
(version "0.14.0a0")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/rndusr/stig")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1jfcgncva94pyzjifar1l6wlmb7aylg0l4fxljc83rkbj1a2aan0"))))
|
||||
(propagated-inputs
|
||||
(list python-urwid
|
||||
python-urwidtrees
|
||||
python-aiohttp
|
||||
python-aiohttp-socks
|
||||
python-pyxdg
|
||||
python-blinker
|
||||
python-natsort
|
||||
python-async-timeout
|
||||
python-setproctitle))
|
||||
(arguments
|
||||
(list
|
||||
#:tests? #f ;tests require network access
|
||||
#:phases #~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'loosen-version-restrictions
|
||||
(lambda _
|
||||
(substitute* "setup.py"
|
||||
(("urwidtrees==1.0.3") "urwidtrees>=1.0.3")))))))
|
||||
(inputs (list python))
|
||||
(build-system python-build-system)
|
||||
(synopsis "TUI and CLI for the BitTorrent client Transmission")
|
||||
(description
|
||||
"Stig is a @acronym{TUI, Text User Interface} and @acronym{CLI, Command Line
|
||||
Interface} client for the BitTorrent client Transmission.")
|
||||
(home-page "https://github.com/rndusr/stig")
|
||||
(license l:gpl3)))
|
||||
|
||||
(define-public libtorrent
|
||||
(package
|
||||
(name "libtorrent")
|
||||
@@ -524,7 +482,7 @@ and will take advantage of multiple processor cores where possible.")
|
||||
"-E" exclude-regex
|
||||
"-j" jobs
|
||||
"--output-on-failure"))))))))
|
||||
(inputs (list boost-1.83 openssl))
|
||||
(inputs (list boost openssl))
|
||||
(native-inputs
|
||||
(list libfaketime
|
||||
python-wrapper
|
||||
|
||||
@@ -32,7 +32,6 @@
|
||||
#:use-module ((guix licenses) #:prefix license:)
|
||||
#:use-module (guix build-system cmake)
|
||||
#:use-module (guix build-system copy)
|
||||
#:use-module (guix build-system emacs)
|
||||
#:use-module (guix build-system gnu)
|
||||
#:use-module (guix deprecation)
|
||||
#:use-module (guix download)
|
||||
@@ -334,40 +333,3 @@ display bibles, commentaries, dictionaries, and other texts and images.
|
||||
Xiphos includes features such as searching, biblesync, bookmarks,
|
||||
parallel study, and original language study.")
|
||||
(license license:gpl2+)))
|
||||
|
||||
(define-public book-emacs-lisp-elements
|
||||
(package
|
||||
(name "book-emacs-lisp-elements")
|
||||
(version "1.0.0")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/protesilaos/emacs-lisp-elements")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1fwbj2hrb33blknxd3qrm7jjs2ixrbyc77788i37qvn6v1y741ry"))))
|
||||
(build-system emacs-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:tests? #f ;No code —no tests
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-before 'install 'makeinfo
|
||||
(lambda _
|
||||
(emacs-makeinfo "elispelem.org"))))))
|
||||
(native-inputs (list texinfo))
|
||||
(home-page "https://protesilaos.com/emacs/emacs-lisp-elements")
|
||||
(synopsis "Overview of the Emacs Lisp programming language")
|
||||
(description
|
||||
"Emacs Lisp Elements is a book written by Protesilaos Stavrou, providing a big
|
||||
picture view of the @acronym{Elisp, Emacs Lisp} programming language by
|
||||
combining prose with code. This book aims to provide an idea of how Elisp
|
||||
works by showing some of the main concepts and patterns encountered in
|
||||
everyday Elisp code.
|
||||
|
||||
This book is not intended as a replacement for the built-in Emacs Lisp
|
||||
Reference Manual, but instead to give readers enough information to reason
|
||||
about Elisp code.")
|
||||
(license license:fdl1.3+)))
|
||||
|
||||
+18
-75
@@ -11,7 +11,7 @@
|
||||
;;; Copyright © 2018, 2020, 2023 Maxim Cournoyer <maxim@guixotic.coop>
|
||||
;;; Copyright © 2018, 2020 Efraim Flashner <efraim@flashner.co.il>
|
||||
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
|
||||
;;; Copyright © 2019, 2020 Giacomo Leidi <therewasa@fishinthecalculator.me>
|
||||
;;; Copyright © 2019, 2020 Giacomo Leidi <goodoldpaul@autistici.org>
|
||||
;;; Copyright © 2020, 2022 Marius Bakke <marius@gnu.org>
|
||||
;;; Copyright © 2020 Jonathan Brielmaier <jonathan.brielmaier@web.de>
|
||||
;;; Copyright © 2020, 2025 Janneke Nieuwenhuizen <janneke@gnu.org>
|
||||
@@ -69,15 +69,22 @@
|
||||
(define-public boost
|
||||
(package
|
||||
(name "boost")
|
||||
(version "1.89.0")
|
||||
(version "1.83.0")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://archives.boost.io/release/"
|
||||
version "/source/boost_"
|
||||
(version-with-underscores version) ".tar.bz2"))
|
||||
(patches
|
||||
(append
|
||||
(search-patches "boost-fix-duplicate-definitions-bug.patch")
|
||||
(list (boost-patch
|
||||
"0001-unordered-fix-copy-assign.patch" version
|
||||
"09j61m5xh7099k5na9i43x5rra51znf7vm2nyh89yqpizcll9q66"))))
|
||||
(patch-flags '("-p2"))
|
||||
(sha256
|
||||
(base32
|
||||
"0yhcb8dn7g5k9dfr54j99wpd4qwk59g1lpp8z0ag7d114si3z8w5"))))
|
||||
"13iviiwk1srpw9dmiwabkxv56v0pl0zggjp8zxy1419k5zzfsy34"))))
|
||||
(build-system gnu-build-system)
|
||||
(inputs
|
||||
(append
|
||||
@@ -126,54 +133,16 @@
|
||||
"binary-format=elf"
|
||||
"target-os=linux"
|
||||
#$@(cond
|
||||
((string-prefix? "x86_64" (%current-target-system))
|
||||
#~()) ; Implies boost.stacktrace.from_exception=on
|
||||
;;; Note: With llvm's libc++, enabling that for
|
||||
;;; non-x86_64 non-mingw32 would be a bad idea.
|
||||
;;; libc++'s backtrace is not thread-safe and
|
||||
;;; would leak then.
|
||||
;;;
|
||||
;;; We disable it here completely. Alternatively,
|
||||
;;; we could disable it only if the user used
|
||||
;;; (package-with-c-toolchain ... clang) or
|
||||
;;; otherwise has libc++ in their dependencies.
|
||||
;;;
|
||||
;;; In the latter case, we would have to set
|
||||
;;; BOOST_STACKTRACE_LIBCXX_RUNTIME_MAY_CAUSE_MEMORY_LEAK
|
||||
;;; and that seems ill-advised (if a future
|
||||
;;; update broke it in other ways, we would
|
||||
;;; be blind to it).
|
||||
;;;
|
||||
;;; See also:
|
||||
;;; <https://codeberg.org/guix/guix/issues/4541>.
|
||||
((string-prefix? "arm" (%current-target-system))
|
||||
#~("abi=aapcs"
|
||||
"address-model=32"
|
||||
"architecture=arm"
|
||||
;; See also:
|
||||
;; <https://codeberg.org/guix/guix/issues/4541>.
|
||||
"boost.stacktrace.from_exception=off"))
|
||||
"architecture=arm"))
|
||||
((string-prefix? "aarch64" (%current-target-system))
|
||||
#~("abi=aapcs"
|
||||
"address-model=64"
|
||||
"architecture=arm"
|
||||
;; See also:
|
||||
;; <https://codeberg.org/guix/guix/issues/4541>.
|
||||
"boost.stacktrace.from_exception=off"))
|
||||
(else
|
||||
;; See also:
|
||||
;; <https://codeberg.org/guix/guix/issues/4541>.
|
||||
#~("boost.stacktrace.from_exception=off"))))
|
||||
;; Not cross-compiling.
|
||||
#~(#$@(cond
|
||||
((string-suffix? "mingw32" (%current-system))
|
||||
#~()) ; Implies boost.stacktrace.from_exception=on
|
||||
((string-prefix? "x86_64" (%current-system))
|
||||
#~()) ; Implies boost.stacktrace.from_exception=on
|
||||
(else
|
||||
;; See also:
|
||||
;; <https://codeberg.org/guix/guix/issues/4541>.
|
||||
#~("boost.stacktrace.from_exception=off"))))))
|
||||
"architecture=arm"))
|
||||
(else #~())))
|
||||
#~()))
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'patch-shells
|
||||
@@ -239,7 +208,7 @@ across a broad spectrum of applications.")
|
||||
(license (license:x11-style "https://www.boost.org/LICENSE_1_0.txt"
|
||||
"Some components have other similar licences."))))
|
||||
|
||||
(define-public boost-1.83
|
||||
(define-public boost-for-source-highlight
|
||||
(hidden-package (package (inherit boost)
|
||||
(name "boost")
|
||||
(version "1.83.0")
|
||||
@@ -255,33 +224,7 @@ across a broad spectrum of applications.")
|
||||
(patch-flags '("-p2"))
|
||||
(sha256
|
||||
(base32
|
||||
"13iviiwk1srpw9dmiwabkxv56v0pl0zggjp8zxy1419k5zzfsy34"))))
|
||||
(arguments
|
||||
(substitute-keyword-arguments (package-arguments boost)
|
||||
((#:make-flags _ #f)
|
||||
#~(list "threading=multi" "link=shared"
|
||||
;; Set the RUNPATH to $libdir so that the libs find each other.
|
||||
(string-append "linkflags=-Wl,-rpath="
|
||||
#$output "/lib")
|
||||
#$@(if (%current-target-system)
|
||||
#~("--user-config=user-config.jam"
|
||||
;; Python is not supported when cross-compiling.
|
||||
"--without-python"
|
||||
"binary-format=elf"
|
||||
"target-os=linux"
|
||||
#$@(cond
|
||||
((string-prefix? "arm" (%current-target-system))
|
||||
#~("abi=aapcs"
|
||||
"address-model=32"
|
||||
"architecture=arm"))
|
||||
((string-prefix? "aarch64" (%current-target-system))
|
||||
#~("abi=aapcs"
|
||||
"address-model=64"
|
||||
"architecture=arm"))
|
||||
(else
|
||||
#~())))
|
||||
;; Not cross-compiling.
|
||||
#~()))))))))
|
||||
"13iviiwk1srpw9dmiwabkxv56v0pl0zggjp8zxy1419k5zzfsy34")))))))
|
||||
|
||||
(define-deprecated-package boost-with-python3
|
||||
boost)
|
||||
@@ -349,7 +292,7 @@ across a broad spectrum of applications.")
|
||||
|
||||
(define-public boost-numpy
|
||||
(package
|
||||
(inherit boost-1.83)
|
||||
(inherit boost)
|
||||
(name "boost-numpy")
|
||||
(native-inputs
|
||||
(modify-inputs (package-native-inputs boost)
|
||||
@@ -456,7 +399,7 @@ signals and slots system.")
|
||||
(build-system gnu-build-system)
|
||||
(native-inputs (list autoconf automake))
|
||||
(propagated-inputs
|
||||
(list boost-1.83)) ; inclusion of header files
|
||||
(list boost)) ; inclusion of header files
|
||||
(home-page "https://gitlab.com/mdds/mdds")
|
||||
(synopsis "Multi-dimensional C++ data structures and indexing algorithms")
|
||||
(description "Mdds (multi-dimensional data structure) provides a
|
||||
|
||||
@@ -24,7 +24,6 @@
|
||||
;;; Copyright © 2025 Esther Flashner <esther@flashner.co.il>
|
||||
;;; Copyright © 2025 André Batista <nandre@riseup.net>
|
||||
;;; Copyright © 2025 dan <i@dan.games>
|
||||
;;; Copyright © 2025 Jiyu Software <info@jiyu.dev>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -864,17 +863,7 @@ tree binary files. These are board description files used by Linux and BSD.")
|
||||
(sha256
|
||||
(base32 "1i1v86bnixh8hyqbwwr5iwdnnadmg2fqxw9g526fvclsbvl8lz0v"))
|
||||
(patches (search-patches "u-boot-allow-disabling-openssl.patch"
|
||||
"u-boot-rockchip-inno-usb.patch"))
|
||||
(snippet
|
||||
;; Remove non-free binary licenses, blobs and microcode.
|
||||
#~(begin
|
||||
(use-modules (guix build utils))
|
||||
(for-each delete-file
|
||||
'("Licenses/r8a779x_usb3.txt"
|
||||
"drivers/usb/host/xhci-rcar-r8a779x_usb3_v3.h"
|
||||
"arch/mips/mach-octeon/include/mach/cvmx-pki-cluster.h"))
|
||||
(for-each delete-file
|
||||
(find-files "arch/x86/dts/microcode/" "\\.dtsi$"))))))
|
||||
"u-boot-rockchip-inno-usb.patch"))))
|
||||
(build-system gnu-build-system)
|
||||
(native-inputs
|
||||
(list bison
|
||||
|
||||
@@ -328,7 +328,7 @@ with the @uref{https://keepassxc.org, KeePassXC} password manager.")
|
||||
(define noscript
|
||||
(package
|
||||
(name "noscript")
|
||||
(version "13.2.2")
|
||||
(version "13.2.1")
|
||||
(source (origin
|
||||
(method url-fetch/zipbomb)
|
||||
(uri (string-append
|
||||
@@ -336,7 +336,7 @@ with the @uref{https://keepassxc.org, KeePassXC} password manager.")
|
||||
".xpi"))
|
||||
(sha256
|
||||
(base32
|
||||
"0w2w0a76dk01bkh83mqwgs9ky02rjqk15z5sxg4a6mw0hpr81bpm"))))
|
||||
"16p63kg7zwnfss9sb3j2kn9m7dx9prh09h4vbz3b0pg5s7rrf0hr"))))
|
||||
(build-system copy-build-system)
|
||||
(properties '((addon-id . "{73a6fe31-595d-460b-a920-fcc0f8843232}")))
|
||||
(arguments
|
||||
|
||||
@@ -384,6 +384,7 @@ resembles Python.")
|
||||
python-cython
|
||||
python-gitpython
|
||||
python-pytest
|
||||
python-pytest-cov
|
||||
python-pytest-mock))
|
||||
(home-page "https://github.com/mesonbuild/meson-python")
|
||||
(synopsis "Meson-based build backend for Python")
|
||||
@@ -1116,7 +1117,7 @@ maintenance-related files, for convenience.")
|
||||
(define-public maak
|
||||
(package
|
||||
(name "maak")
|
||||
(version "0.2.12")
|
||||
(version "0.2.3")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -1125,7 +1126,7 @@ maintenance-related files, for convenience.")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0566damp7339n8rs2dvvq80h07amygnn3nakj2wwav2fmb1yzgx1"))))
|
||||
(base32 "15s6khifk7k002hr9mqgl45r3ipmvsc56z9z8skwclxsj6w1cddl"))))
|
||||
(build-system guile-build-system)
|
||||
(arguments
|
||||
(list
|
||||
|
||||
+5
-5
@@ -1437,7 +1437,7 @@ Telemetry Transport (MQTT) publish-subscribe messaging protocol.")
|
||||
(define-public mimalloc
|
||||
(package
|
||||
(name "mimalloc")
|
||||
(version "3.1.5")
|
||||
(version "2.1.2")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -1446,7 +1446,7 @@ Telemetry Transport (MQTT) publish-subscribe messaging protocol.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"0a3z1vi3n4w6n1iz4yqnvllrlpqb2dc2a54wn2s52js541zsfkky"))))
|
||||
"1pyf05snc1ib7zjjm9kspvbmynd8lmxqw72qcpz8lcyzyywmz24i"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
`(#:build-type "Release"
|
||||
@@ -1572,9 +1572,9 @@ Telemetry Transport (MQTT) publish-subscribe messaging protocol.")
|
||||
,(string-append "--prefix=" #$output)
|
||||
,(string-append "--mandir=" #$output "/share/man")
|
||||
,(string-append "--cores="
|
||||
;; Tests require parallelism, and set upper limit as test
|
||||
;; runtime scales superliniearly in the number of cores.
|
||||
(number->string (max 2 (min 8 (parallel-job-count))))))))))))
|
||||
(if parallel-build?
|
||||
(number->string (parallel-job-count))
|
||||
"1")))))))))
|
||||
(home-page "https://github.com/concurrencykit/ck")
|
||||
(synopsis "C library for concurrent systems")
|
||||
(description "Concurrency Kit (@code{ck}) provides concurrency primitives,
|
||||
|
||||
@@ -1,5 +1,4 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2013, 2018 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2015 David Thompson <davet@gnu.org>
|
||||
;;; Copyright © 2015, 2016, 2017 Leo Famulari <leo@famulari.name>
|
||||
;;; Copyright © 2016 Kei Kebreau <kkebreau@posteo.net>
|
||||
@@ -11,13 +10,11 @@
|
||||
;;; Copyright © 2020 Brendan Tildesley <mail@brendan.scot>
|
||||
;;; Copyright © 2020 Tanguy Le Carrour <tanguy@bioneland.org>
|
||||
;;; Copyright © 2020 Peng Mei Yu <pengmeiyu@riseup.net>
|
||||
;;; Copyright © 2021 Petr Hodina <phodina@protonmail.com>
|
||||
;;; Copyright © 2021 Wamm K. D. <jaft.r@outlook.com>
|
||||
;;; Copyright © 2022 Maxim Cournoyer <maxim@guixotic.coop>
|
||||
;;; Copyright © 2025 Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
|
||||
;;; Copyright © 2025 Sharlatan Hellseher <sharlatanus@gmail.com>
|
||||
;;; Copyright © 2025 Ashish SHUKLA <ashish.is@lostca.se>
|
||||
;;; Copyright © 2025 Andy Tai <atai@atai.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -108,33 +105,6 @@ https://www.agendadulibre.org are in French and the adl-submit tool is only
|
||||
available in French.")
|
||||
(license license:gpl2))))
|
||||
|
||||
(define-public date2name
|
||||
(let ((commit "50cc8d3957fc0bdc26c65042ab8f0d9f05610283")
|
||||
(revision "2"))
|
||||
(package
|
||||
(name "date2name")
|
||||
(version (git-version "0.0" revision commit))
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/novoid/date2name")
|
||||
(commit commit)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "16m24dvyg93rpa94401cladjvj5pk3ds5y6sbz54xygdpg9qf8qm"))))
|
||||
(build-system pyproject-build-system)
|
||||
(native-inputs
|
||||
(list python-poetry-core
|
||||
python-pytest))
|
||||
(home-page "https://github.com/novoid/date2name")
|
||||
(synopsis "Handling time-stamps and date-stamps in file names")
|
||||
(description
|
||||
"By default, date2name gets the modification time of matching files and
|
||||
directories and adds a datestamp in standard ISO 8601+ format YYYY-MM-DD at
|
||||
the beginning of the file or directory name.")
|
||||
(license license:gpl3+))))
|
||||
|
||||
(define-public date
|
||||
(package
|
||||
(name "date")
|
||||
@@ -490,55 +460,6 @@ traditional Chinese characters.")
|
||||
;; 'Lesser GPL version 2 or later'.
|
||||
(license (list license:gpl2+ license:lgpl2.1+))))
|
||||
|
||||
(define-public gcal
|
||||
(package
|
||||
(name "gcal")
|
||||
(version "4.2.0")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://www.alteholz.dev/gnu/gcal-"
|
||||
version ".tar.xz"))
|
||||
(sha256
|
||||
(base32
|
||||
"1p3q6his31bxs24nsgpfavw3nlhalqf0zak4f3b530p725s2vgfq"))
|
||||
(snippet
|
||||
#~(begin
|
||||
(use-modules (guix build utils))
|
||||
;; Adjust the bundled gnulib to work with glibc 2.28. See e.g.
|
||||
;; "m4-gnulib-libio.patch". This is a phase rather than patch
|
||||
;; or snippet to work around <https://bugs.gnu.org/32347>.
|
||||
(substitute* (find-files "lib" "\\.c$")
|
||||
(("#if defined _IO_ftrylockfile")
|
||||
"#if defined _IO_EOF_SEEN"))
|
||||
(substitute* "lib/stdio-impl.h"
|
||||
(("^/\\* BSD stdio derived implementations")
|
||||
(string-append
|
||||
"#if !defined _IO_IN_BACKUP && defined _IO_EOF_SEEN\n"
|
||||
"# define _IO_IN_BACKUP 0x100\n"
|
||||
"#endif\n\n"
|
||||
"/* BSD stdio derived implementations")))
|
||||
#t))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:configure-flags
|
||||
#~(list "LDFLAGS=-lm")))
|
||||
(native-inputs
|
||||
(list check
|
||||
pkg-config))
|
||||
(home-page "https://www.gnu.org/software/gcal/")
|
||||
(synopsis "Calculating and printing a wide variety of calendars")
|
||||
(description
|
||||
"Gcal is a program to calculate and print calendars on the
|
||||
command-line. Calendars can be printed in 1-month, 3-month or whole-year
|
||||
views. In addition, eternal holiday lists can be generated for many
|
||||
countries, which can be complemented by user-made lists of fixed dates to
|
||||
make an agenda. Gcal can also calculate astronomical data, such as the
|
||||
phases of the moon, and supports alternative calendar formats: Julian,
|
||||
Gregorian, Islamic, Chinese and more.")
|
||||
(license license:gpl3+)))
|
||||
|
||||
(define-public gsimplecal
|
||||
(let ((version "2.4.1"))
|
||||
(package
|
||||
@@ -569,7 +490,7 @@ configured to show the current time in different timezones.")
|
||||
(define-public hebcal
|
||||
(package
|
||||
(name "hebcal")
|
||||
(version "5.9.4")
|
||||
(version "5.8.7")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -578,7 +499,7 @@ configured to show the current time in different timezones.")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0hw4485s83amvl03y33zkxi9ka9yq6rvbdsw20m6fc4m2bj8lb79"))))
|
||||
(base32 "1a1b9jip1ha6bzv6xg9fx47q167yzgbxjvrp5zngv175nzl9427j"))))
|
||||
(build-system go-build-system)
|
||||
(arguments
|
||||
(list
|
||||
|
||||
@@ -0,0 +1,124 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2019 John Soo <jsoo1@asu.edu>
|
||||
;;;
|
||||
;;; 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 packages cedille)
|
||||
#:use-module (gnu packages)
|
||||
#:use-module (gnu packages agda)
|
||||
#:use-module (gnu packages emacs-xyz)
|
||||
#:use-module (gnu packages haskell)
|
||||
#:use-module (gnu packages haskell-xyz)
|
||||
#:use-module (guix build-system emacs)
|
||||
#:use-module (guix git-download)
|
||||
#:use-module ((guix licenses) #:prefix license:)
|
||||
#:use-module (guix packages))
|
||||
|
||||
(define-public cedille
|
||||
(package
|
||||
(name "cedille")
|
||||
(version "1.1.2")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/cedille/cedille")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"1h5s6ayh3s76z184jai3jidcs4cjk8s4nvkkv2am8dg4gfsybq22"))))
|
||||
(inputs
|
||||
(list agda agda-ial ghc ghc-alex ghc-happy))
|
||||
(build-system emacs-build-system)
|
||||
(arguments
|
||||
`(#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-after 'unpack 'patch-cedille-paths
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let ((out (assoc-ref outputs "out")))
|
||||
(substitute* "cedille-mode.el"
|
||||
(("/usr/share/emacs/site-lisp/cedille-mode")
|
||||
(string-append
|
||||
out "/share/emacs/site-lisp/cedille")))
|
||||
(substitute* "cedille-mode/cedille-mode-info.el"
|
||||
(("\\(concat cedille-path-el \"cedille-info-main.info\"\\)")
|
||||
(string-append
|
||||
"\"" out "/share/info/cedille-info-main.info.gz\"")))
|
||||
#t)))
|
||||
(add-after 'patch-cedille-paths 'copy-cedille-mode
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(lisp
|
||||
(string-append
|
||||
out "/share/emacs/site-lisp/cedille/")))
|
||||
(mkdir-p (string-append lisp "cedille-mode"))
|
||||
(copy-recursively
|
||||
"cedille-mode"
|
||||
(string-append lisp "cedille-mode"))
|
||||
(mkdir-p (string-append lisp "se-mode"))
|
||||
(copy-recursively
|
||||
"se-mode"
|
||||
(string-append lisp "se-mode"))
|
||||
#t)))
|
||||
;; FIXME: Byte compilation fails
|
||||
(delete 'build)
|
||||
(replace 'check
|
||||
(lambda _
|
||||
(with-directory-excursion "cedille-tests"
|
||||
(invoke "sh" "run-tests.sh"))))
|
||||
(add-after 'unpack 'patch-libraries
|
||||
(lambda _ (patch-shebang "create-libraries.sh") #t))
|
||||
(add-after 'unpack 'copy-ial
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(copy-recursively
|
||||
(search-input-directory inputs "/include/agda/ial")
|
||||
"ial")
|
||||
;; Ambiguous module if main is included from ial
|
||||
(delete-file "ial/main.agda")
|
||||
#t))
|
||||
(add-after 'check 'build-cedille
|
||||
;; Agda has a hard time with parallel compilation
|
||||
(lambda _
|
||||
(invoke "touch" "src/Templates.hs")
|
||||
(make-file-writable "src/Templates.hs")
|
||||
(invoke "touch" "src/templates.agda")
|
||||
(make-file-writable "src/templates.agda")
|
||||
(invoke "make" "--jobs=1")))
|
||||
(add-after 'install 'install-cedille
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let ((out (assoc-ref outputs "out")))
|
||||
(copy-recursively
|
||||
"lib" (string-append out "/lib/cedille"))
|
||||
(install-file "cedille" (string-append out "/bin"))
|
||||
(install-file "core/cedille-core"
|
||||
(string-append out "/bin"))
|
||||
(install-file "docs/info/cedille-info-main.info"
|
||||
(string-append out "/share/info"))
|
||||
#t))))))
|
||||
(home-page "https://cedille.github.io/")
|
||||
(synopsis
|
||||
"Language based on Calculus of Dependent Lambda Eliminations")
|
||||
(description
|
||||
"Cedille is an interactive theorem-prover and dependently typed
|
||||
programming language, based on extrinsic (aka Curry-style) type theory. This
|
||||
makes it rather different from type theories like Coq and Agda, which are
|
||||
intrinsic (aka Church-style). In Cedille, terms are nothing more than
|
||||
annotated versions of terms of pure untyped lambda calculus. In contrast, in
|
||||
Coq or Agda, the typing annotations are intrinsic parts of terms. The typing
|
||||
annotations can only be erased as an optimization under certain conditions,
|
||||
not by virtue of the definition of the type theory.")
|
||||
(license license:expat)))
|
||||
@@ -3,7 +3,6 @@
|
||||
;;; Copyright © 2017 Leo Famulari <leo@famulari.name>
|
||||
;;; Copyright © 2021 Maxim Cournoyer <maxim@guixotic.coop>
|
||||
;;; Copyright © 2021 Raghav Gururajan <rg@raghavgururajan.name>
|
||||
;;; Copyright © 2025 Luca Kredel <luca.kredel@web.de>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -30,14 +29,11 @@
|
||||
#:use-module (guix build-system copy)
|
||||
#:use-module (guix build-system gnu)
|
||||
#:use-module (guix build-system trivial)
|
||||
#:use-module (guix build-system go)
|
||||
#:use-module (gnu packages)
|
||||
#:use-module (gnu packages nss)
|
||||
#:use-module (gnu packages curl)
|
||||
#:use-module (gnu packages python)
|
||||
#:use-module (gnu packages perl)
|
||||
#:use-module (gnu packages golang-crypto)
|
||||
#:use-module (gnu packages golang-build)
|
||||
#:use-module (gnu packages tls))
|
||||
|
||||
(define-public certdata2pem
|
||||
@@ -227,33 +223,3 @@ port forwarding to your local machine.")
|
||||
Let's Encrypt root and intermediate certificates. It is intended to be used
|
||||
within Guix.")
|
||||
(license license:public-domain)))
|
||||
|
||||
(define-public mkcert
|
||||
(package
|
||||
(name "mkcert")
|
||||
(version "1.4.4")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/FiloSottile/mkcert")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0ms9mjspiwlsgsnir0ccj3w8vhvrphf5i6k9q3hrz47y2a6igh0l"))))
|
||||
(build-system go-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:import-path "filippo.io/mkcert"
|
||||
#:build-flags
|
||||
#~(list (string-append "-ldflags=-X main.Version="
|
||||
#$version))))
|
||||
(native-inputs (list go-golang-org-x-net
|
||||
go-software-sslmate-com-src-go-pkcs12))
|
||||
(synopsis "Zero-config tool to make locally trusted development
|
||||
certificates")
|
||||
(description
|
||||
"mkcert is a simple tool for making locally-trusted development
|
||||
certificates. It requires no configuration.")
|
||||
(home-page "https://github.com/FiloSottile/mkcert")
|
||||
(license license:bsd-3)))
|
||||
|
||||
+125
-148
@@ -49,7 +49,7 @@
|
||||
;;; Copyright © 2023 Reza Housseini <reza@housseini.me>
|
||||
;;; Copyright © 2023 Hilton Chain <hako@ultrarare.space>
|
||||
;;; Copyright © 2023, 2024 Troy Figiel <troy@troyfigiel.com>
|
||||
;;; Copyright © 2024 Giacomo Leidi <therewasa@fishinthecalculator.me>
|
||||
;;; Copyright © 2024 Giacomo Leidi <goodoldpaul@autistici.org>
|
||||
;;; Copyright © 2024 Zheng Junjie <873216071@qq.com>
|
||||
;;; Copyright © 2024 Navid Afkhami <navid.afkhami@mdc-berlin.de>
|
||||
;;; Copyright © 2024, 2025 gemmaro <gemmaro.dev@gmail.com>
|
||||
@@ -377,11 +377,11 @@ source code editors and IDEs.")
|
||||
(add-after 'install 'install-man
|
||||
(lambda* (#:key import-path #:allow-other-keys)
|
||||
(with-directory-excursion (string-append "src/" import-path)
|
||||
(let ((man-dir (string-append #$output "/share/man/man1")))
|
||||
(let ((man-dir (string-append #$output "/share/man")))
|
||||
(mkdir-p man-dir)
|
||||
(invoke "go-md2man"
|
||||
"-in" "man/man1/checkmake.1.md"
|
||||
"-out" (string-append man-dir "/checkmake.1")))))))))
|
||||
"-out" (string-append man-dir "/man1")))))))))
|
||||
(native-inputs
|
||||
(list go-github-com-docopt-docopt-go
|
||||
go-github-com-go-ini-ini
|
||||
@@ -819,7 +819,7 @@ format.")
|
||||
(define-public cppcheck
|
||||
(package
|
||||
(name "cppcheck")
|
||||
(version "2.18.0")
|
||||
(version "2.17.1")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -827,12 +827,11 @@ format.")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1551pbbvx43j5jl5jz725km7gd65fizf9y7j66anjmdmqzccpdmn"))
|
||||
(base32 "19ap9ai9s4vsygyqfa215mrmpz4vki63d5b4qdb89zvbldaf3hlf"))
|
||||
(patches (search-patches "cppcheck-fix-basedir-test.patch"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
'(#:parallel-tests? #f
|
||||
#:configure-flags '("-DBUILD_TESTS=ON")))
|
||||
'(#:configure-flags '("-DBUILD_TESTS=ON")))
|
||||
(home-page "https://cppcheck.sourceforge.io")
|
||||
(synopsis "Static C/C++ code analyzer")
|
||||
(description "Cppcheck is a static code analyzer for C and C++. Unlike
|
||||
@@ -890,49 +889,46 @@ favourite continuous integration framework. Among Cukinia features are:
|
||||
(define-public cxxtest
|
||||
(package
|
||||
(name "cxxtest")
|
||||
;; 4.4 is from 2014, there is some move on master branch but still no
|
||||
;; fresh tag, see: <https://github.com/CxxTest/cxxtest/issues/156>.
|
||||
(version "4.4")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "mirror://sourceforge/cxxtest/cxxtest/" version
|
||||
"/cxxtest-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32 "1n7pbj4z9ivx005hqvivj9ddhq8awynzg6jishfbypf6j7ply58w"))))
|
||||
(build-system pyproject-build-system)
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "mirror://sourceforge/cxxtest/cxxtest/"
|
||||
version "/cxxtest-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"1n7pbj4z9ivx005hqvivj9ddhq8awynzg6jishfbypf6j7ply58w"))))
|
||||
(build-system python-build-system)
|
||||
(arguments
|
||||
(list
|
||||
;; XXX: There are SCons and CMake tests, but not pytest ones.
|
||||
#:tests? #f
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'chdir-to-source
|
||||
(lambda _
|
||||
(chdir "python")))
|
||||
(add-after 'install 'install-headers
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let ((include-dir (string-append #$output "/include/cxxtest")))
|
||||
(for-each (lambda (header-file)
|
||||
(install-file header-file include-dir))
|
||||
(find-files "../cxxtest")))))
|
||||
(add-after 'install 'install-doc
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let ((doc-dir (string-append #$output "/share/doc/cxxtest")))
|
||||
(install-file "../README" doc-dir)
|
||||
(install-file "../doc/guide.txt" doc-dir)
|
||||
(copy-recursively "../sample"
|
||||
(string-append doc-dir "/sample"))))))))
|
||||
(native-inputs (list python-setuptools))
|
||||
(propagated-inputs (list python-ply))
|
||||
(home-page
|
||||
"https://web.archive.org/web/20230604070022/http://cxxtest.com/")
|
||||
'(#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-after 'unpack 'chdir-to-source
|
||||
(lambda _
|
||||
(chdir "python")
|
||||
#t))
|
||||
(add-after 'install 'install-headers
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(include-dir (string-append out "/include/cxxtest")))
|
||||
(for-each (lambda (header-file)
|
||||
(install-file header-file include-dir))
|
||||
(find-files "../cxxtest"))
|
||||
#t)))
|
||||
(add-after 'install 'install-doc
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(doc-dir (string-append out "/share/doc/cxxtest")))
|
||||
(install-file "../README" doc-dir)
|
||||
(install-file "../doc/guide.txt" doc-dir)
|
||||
(copy-recursively "../sample" (string-append doc-dir "/sample"))
|
||||
#t))))))
|
||||
(propagated-inputs
|
||||
(list python-ply))
|
||||
(home-page "https://web.archive.org/web/20230604070022/http://cxxtest.com/")
|
||||
(synopsis "Unit testing framework for C++")
|
||||
(description
|
||||
"CxxTest is a unit testing framework for C++ that is similar in spirit to
|
||||
JUnit, CppUnit, and xUnit. CxxTest does not require precompiling a CxxTest
|
||||
testing library, it employs no advanced features of C++ (e.g. RTTI) and it
|
||||
supports a very flexible form of test discovery.")
|
||||
(description "CxxTest is a unit testing framework for C++ that is similar
|
||||
in spirit to JUnit, CppUnit, and xUnit. CxxTest does not require precompiling
|
||||
a CxxTest testing library, it employs no advanced features of C++ (e.g. RTTI)
|
||||
and it supports a very flexible form of test discovery.")
|
||||
(license license:lgpl3+)))
|
||||
|
||||
(define-public doctest
|
||||
@@ -1066,16 +1062,16 @@ report generation engine.")
|
||||
(define-public googletest
|
||||
(package
|
||||
(name "googletest")
|
||||
(version "1.17.0")
|
||||
(version "1.12.1")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/google/googletest")
|
||||
(commit (string-append "v" version))))
|
||||
(commit (string-append "release-" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1zn701fgmbk29y45p49sajaswm01i2bv89ds2kkbiq8i0p2cr08w"))))
|
||||
(base32 "1cv55x3amwrvfan9pr8dfnicwr8r6ar3yf6cg9v6nykd6m2v3qsv"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
`(#:tests? #f
|
||||
@@ -1089,6 +1085,21 @@ discovery, death tests, assertions, parameterized tests and XML test report
|
||||
generation.")
|
||||
(license license:bsd-3)))
|
||||
|
||||
(define-public googletest-1.17
|
||||
(package
|
||||
(inherit googletest)
|
||||
(name "googletest")
|
||||
(version "1.17.0")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/google/googletest")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1zn701fgmbk29y45p49sajaswm01i2bv89ds2kkbiq8i0p2cr08w"))))))
|
||||
|
||||
(define-public googletest-1.13
|
||||
(package
|
||||
(inherit googletest)
|
||||
@@ -1104,21 +1115,6 @@ generation.")
|
||||
(sha256
|
||||
(base32 "1x5lr1k4kgw3i8d7c12vp759p0w8c8r2y8lwvqswswxvwygw8lid"))))))
|
||||
|
||||
(define-public googletest-1.12
|
||||
(package
|
||||
(inherit googletest-1.13)
|
||||
(name "googletest")
|
||||
(version "1.12.1")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/google/googletest")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1cv55x3amwrvfan9pr8dfnicwr8r6ar3yf6cg9v6nykd6m2v3qsv"))))))
|
||||
|
||||
(define-public googletest-1.8
|
||||
(package
|
||||
(inherit googletest)
|
||||
@@ -1478,22 +1474,19 @@ for every Python test framework. It supports nose, py.test, and unittest.")
|
||||
(define-public python-minimock
|
||||
(package
|
||||
(name "python-minimock")
|
||||
(version "1.3.0")
|
||||
(version "1.2.8")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/lowks/minimock")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(method url-fetch)
|
||||
(uri (pypi-uri "MiniMock" version))
|
||||
(sha256
|
||||
(base32 "0mby3y78w8zka3dwp2dnsq3a0bq9nxr5g0h538p6zbyjrqly5paj"))))
|
||||
(build-system pyproject-build-system)
|
||||
(native-inputs (list python-pynose python-setuptools))
|
||||
(home-page "https://github.com/lowks/minimock")
|
||||
(base32
|
||||
"0k2sxb1ibnyg05iblz7zhbv825f1zk9906rab7883iqgvzmdzpsz"))))
|
||||
(build-system python-build-system)
|
||||
(home-page "https://pypi.org/project/MiniMock")
|
||||
(synopsis "Simple Python library for using mock objects")
|
||||
(description
|
||||
"MiniMock is a simple library for building mock objects with doctest.")
|
||||
(description "MiniMock is a simple library for building mock objects with
|
||||
doctest.")
|
||||
(license license:expat)))
|
||||
|
||||
(define-public python-mock
|
||||
@@ -2400,90 +2393,76 @@ since the last commit or what tests are currently failing.")
|
||||
(define-public python-coverage
|
||||
(package
|
||||
(name "python-coverage")
|
||||
(version "7.11.0")
|
||||
(version "7.9.2")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (pypi-uri "coverage" version))
|
||||
(sha256
|
||||
(base32 "0l403f6d59q8rik9vvzb6982qad0zrfj87dqydzsz8hwmh2dayqn"))))
|
||||
(base32
|
||||
"12qcm2j4bnc2gp6sci9brly2k406gp4jwjfpzxj04ag3a7x28w4r"))))
|
||||
(build-system pyproject-build-system)
|
||||
(arguments
|
||||
(list
|
||||
;; tests: 1303 passed, 23 skipped
|
||||
#:test-flags
|
||||
#~(list "--numprocesses" (number->string (min 8 (parallel-job-count)))
|
||||
#$@(map (lambda (file) (string-append "--ignore=tests/" file))
|
||||
;; XXX: The most of the tests fail.
|
||||
(list "test_process.py"
|
||||
;; Unable to properly compare reports.
|
||||
"test_report.py"
|
||||
;; Network connection is required
|
||||
"test_venv.py"))
|
||||
#$@(map (lambda (test) (string-append "--deselect="
|
||||
"tests/test_python.py::"
|
||||
"GetZipBytesTest::"
|
||||
"test_get_encoded_zip_files"
|
||||
test))
|
||||
;; > assert zip_data is not None
|
||||
;; E assert None is not None
|
||||
(list "[utf-8]@get_zip_bytes_test"
|
||||
"[gb2312]@get_zip_bytes_test"
|
||||
"[hebrew]@get_zip_bytes_test"
|
||||
"[shift_jis]@get_zip_bytes_test"
|
||||
"[cp1252]@get_zip_bytes_test"))
|
||||
#$@(map (lambda (test) (string-append "--deselect=tests/test_"
|
||||
test))
|
||||
;; AssertionError
|
||||
(list "api.py::RelativePathTest::test_files_up_one_level"
|
||||
"concurrency.py::SigtermTest::\
|
||||
test_sigterm_multiprocessing_saves_data"
|
||||
"oddball.py::DoctestTest::test_doctest"
|
||||
"oddball.py::MockingProtectionTest::\
|
||||
test_os_path_exists"
|
||||
"plugins.py::PluginTest::\
|
||||
test_local_files_are_importable"
|
||||
"regions.py::test_real_code_regions"
|
||||
"setup.py::SetupPyTest::test_metadata"
|
||||
"testing.py::test_all_our_source_files"
|
||||
"xml.py::XmlReportTest::test_no_duplicate_packages"
|
||||
;; FileNotFoundError
|
||||
"setup.py::SetupPyTest::test_more_metadata"
|
||||
;; ModuleNotFoundError
|
||||
"filereporter.py::FileReporterTest::test_zipfile"
|
||||
;; OSError
|
||||
"annotate.py::AnnotationGoldTest::test_multi"))
|
||||
#$@(if (or (equal? (%current-system) "riscv64-linux")
|
||||
(equal? (%current-system) "aarch64-linux"))
|
||||
;; Thypothesis.errors.FailedHealthCheck: Data generation
|
||||
;; is extremely slow.
|
||||
(map (lambda (test) (string-append "--deselect="
|
||||
"tests/test_numbits.py"
|
||||
test))
|
||||
(list "NumbitsOpTest::test_any_intersection"
|
||||
"NumbitsOpTest::test_conversion"
|
||||
"NumbitsOpTest::test_union"))
|
||||
'()))
|
||||
#~(list
|
||||
"--numprocesses" (number->string (parallel-job-count))
|
||||
;; TODO: Rework this test options by utilizing "-k" option.
|
||||
;;
|
||||
;; 1201 passed, 19 skipped, 389 warnings
|
||||
;; XXX: Unable to properly compare reports.
|
||||
"--ignore=tests/test_report.py"
|
||||
;; XXX: PyTracer or missing dependencies.
|
||||
"--ignore=tests/test_venv.py"
|
||||
"--ignore=tests/test_plugins.py"
|
||||
"--ignore=tests/test_debug.py"
|
||||
;; XXX: Unclear why these fail.
|
||||
"--ignore=tests/test_python.py"
|
||||
"--deselect=tests/test_concurrency.py\
|
||||
::SigtermTest::test_sigterm_multiprocessing_saves_data"
|
||||
;; XXX: Unexpected paths order.
|
||||
"--ignore=tests/test_process.py"
|
||||
;; XXX: PermissionError
|
||||
"--deselect=tests/test_annotate.py::AnnotationGoldTest::test_multi"
|
||||
;; XXX: Needs C extension
|
||||
"--deselect=tests/test_cmdline.py::CmdLineStdoutTest::test_version"
|
||||
"--deselect=tests/test_api.py::NamespaceModuleTest::test_bug_572"
|
||||
;; XXX: Finds more files at toplevel
|
||||
"--deselect=tests/test_api.py::RelativePathTest::test_files_up_one_level"
|
||||
"--deselect=tests/test_xml.py::XmlReportTest::test_no_duplicate_packages"
|
||||
;; XXX: zip1 module missing.
|
||||
"--deselect=tests/test_filereporter.py::FileReporterTest::test_zipfile"
|
||||
;; No module named 'coverage.tracer'
|
||||
"--deselect=tests/test_api.py::ApiTest::test_completely_zero_reporting"
|
||||
"--deselect=tests/test_api.py::ApiTest::test_warnings"
|
||||
"--deselect=tests/test_oddball.py::RecursionTest::test_long_recursion_recovery"
|
||||
;; XXX: Checking coverage for too much files, not only the target one.
|
||||
"--deselect=tests/test_oddball.py::DoctestTest::test_doctest"
|
||||
;; Module sys has no Python source
|
||||
"--deselect=tests/test_api.py::ApiTest::test_warnings_suppressed"
|
||||
;; prevent FAILs on slow riscv64 SBCs
|
||||
#$@(if (equal? (%current-system) "riscv64-linux")
|
||||
'("--deselect=tests/test_numbits.py::NumbitsOpTest::test_union"
|
||||
"--deselect=tests/test_numbits.py::NumbitsOpTest::test_any_intersection")
|
||||
'()))
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'fix-pytest-config
|
||||
(add-after 'unpack 'patch-pyproject
|
||||
(lambda _
|
||||
(substitute* "pyproject.toml"
|
||||
(("-q -n auto ") ""))))
|
||||
(add-before 'check 'pre-check
|
||||
;; Just run pytest with no frills.
|
||||
(("addopts.*") ""))))
|
||||
(add-before 'check 'fix-conftest
|
||||
;; It tries to scan the whole sys.path and "find some place to
|
||||
;; write to".
|
||||
(lambda _
|
||||
;; WARNING: The directory '/homeless-shelter/.cache/pip' or its
|
||||
;; parent directory is not owned or is not writable by the
|
||||
;; current user. The cache has been disabled. Check the
|
||||
;; permissions and owner of that directory. If executing pip
|
||||
;; with sudo, you should use sudo's -H flag.
|
||||
(setenv "HOME" "/tmp")
|
||||
;; This would otherwise interfere with finding the installed
|
||||
;; coverage when running tests.
|
||||
(delete-file-recursively "coverage"))))))
|
||||
(with-output-to-file (string-append (getcwd) "/test.pth")
|
||||
(lambda _ (display "")))
|
||||
(substitute* "tests/conftest.py"
|
||||
(("map(Path, sys.path)") (format #f "[~s]" (getcwd)))))))))
|
||||
(native-inputs
|
||||
(list python-pytest
|
||||
python-pytest-xdist ;some tests need xdist_group
|
||||
python-pytest-xdist ; hardcoded in tests/conftests.py
|
||||
python-flaky
|
||||
python-setuptools))
|
||||
(home-page "https://coverage.readthedocs.io")
|
||||
@@ -2774,11 +2753,9 @@ failures.")
|
||||
(sha256
|
||||
(base32 "0gxsr0wk8kzf8rqfnhy84yh1zi0b55j76c0m9n006d8q4bzy1v25"))))
|
||||
(build-system pyproject-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:test-flags #~(list "-k" "not test_coverage_explicit")))
|
||||
(native-inputs
|
||||
(list python-pytest
|
||||
python-pytest-cov
|
||||
python-setuptools
|
||||
python-setuptools-scm))
|
||||
(propagated-inputs
|
||||
|
||||
+2
-2
@@ -72,7 +72,7 @@
|
||||
(define-public cuirass
|
||||
(package
|
||||
(name "cuirass")
|
||||
(version "1.3.3")
|
||||
(version "1.3.2")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -82,7 +82,7 @@
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"0zq56wdjyxnmhr93358db95cc9i7qkffk98vscjr26pb4ab3ym21"))))
|
||||
"0d6ngj51q3pixi2qakc6asvaigqg0cw1qvbwvpkx285zm9csx1vd"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list #:modules `((guix build utils)
|
||||
|
||||
@@ -180,7 +180,7 @@ using the CMake build system.")
|
||||
(define-public cmake-bootstrap
|
||||
(package
|
||||
(name "cmake-bootstrap")
|
||||
(version "3.31.10")
|
||||
(version "3.31.8")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://cmake.org/files/v"
|
||||
@@ -188,7 +188,7 @@ using the CMake build system.")
|
||||
"/cmake-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"0a9y7nqr27rl8acvjyj8s57q87bdjxa9w2g5mphsh7ylsvgzl1ng"))))
|
||||
"1akcmx9w5wbygq088hrr13l6n4b5npqvh9jk20934bfwhg5f7kg3"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
@@ -367,7 +367,7 @@ and workspaces that can be used in the compiler environment of your choice.")
|
||||
(package
|
||||
(inherit cmake-minimal)
|
||||
(name "cmake")
|
||||
(version "4.1.3")
|
||||
(version "4.0.3")
|
||||
(source (origin
|
||||
(inherit (package-source cmake-minimal))
|
||||
(method url-fetch)
|
||||
@@ -382,7 +382,7 @@ and workspaces that can be used in the compiler environment of your choice.")
|
||||
,@rest))))
|
||||
(sha256
|
||||
(base32
|
||||
"125yhgkmh5ap14w9yyh442manbb7k96dws4pa3hz32qp7njpjn3n"))))
|
||||
"1yrzkwkr2nxl8hcjkk333l9ycbw9prkg363k4km609kknyvkfdcd"))))
|
||||
(outputs '("out" "doc"))
|
||||
(arguments
|
||||
(substitute-keyword-arguments (package-arguments cmake-minimal)
|
||||
|
||||
@@ -424,7 +424,7 @@ COCOMO model or user-provided parameters.")
|
||||
(define-public cloc
|
||||
(package
|
||||
(name "cloc")
|
||||
(version "2.06")
|
||||
(version "2.02")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -433,7 +433,7 @@ COCOMO model or user-provided parameters.")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "02l56ks3p3344nf6lz9s3aym9f0xslkns8q8d8zm1i3whf98iymv"))))
|
||||
(base32 "1syh1gppjr3p2m9mq0zm3n47bhaksxcn5bx1nwqc29xn404c2fm9"))))
|
||||
(build-system gnu-build-system)
|
||||
(inputs
|
||||
(list bash-minimal
|
||||
@@ -1032,7 +1032,7 @@ extensions over the standard utility.")
|
||||
"/share/sourcetrail/user/projects")))
|
||||
(copy-recursively src dst)
|
||||
(delete-file-recursively src))))))))
|
||||
(inputs (list boost-1.83
|
||||
(inputs (list boost
|
||||
clang-19
|
||||
expected-lite
|
||||
qt5compat
|
||||
@@ -1057,17 +1057,17 @@ in a project.")
|
||||
(define-public universal-ctags
|
||||
(package
|
||||
(name "universal-ctags")
|
||||
(version "6.2.1")
|
||||
(version "6.1.20250525.0")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/universal-ctags/ctags")
|
||||
(commit (string-append "v" version))))
|
||||
(commit (string-append "p" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"04i9fhhifs82d39z2dskscp7v2885g7isjn9r9zm4wsl6dcnb5n7"))
|
||||
"0nxhmpzkxixb303bsihd5j7n0d29ak2lgnqff920q3dm33y965sy"))
|
||||
(modules '((guix build utils)))
|
||||
(snippet
|
||||
'(begin
|
||||
|
||||
@@ -4,7 +4,7 @@
|
||||
;;; Copyright © 2014, 2015, 2018 Mark H Weaver <mhw@netris.org>
|
||||
;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
|
||||
;;; Copyright © 2015, 2016 Eric Bavier <bavier@member.fsf.org>
|
||||
;;; Copyright © 2015, 2016, 2017, 2018, 2020, 2021, 2022, 2024, 2025 Ricardo Wurmus <rekado@elephly.net>
|
||||
;;; Copyright © 2015, 2016, 2017, 2018, 2020, 2021, 2022, 2024 Ricardo Wurmus <rekado@elephly.net>
|
||||
;;; Copyright © 2015, 2017, 2018 Leo Famulari <leo@famulari.name>
|
||||
;;; Copyright © 2015 Jeff Mickey <j@codemac.net>
|
||||
;;; Copyright © 2015-2024 Efraim Flashner <efraim@flashner.co.il>
|
||||
@@ -531,14 +531,7 @@ compressed with pbzip2 can be decompressed with bzip2).")
|
||||
(list
|
||||
#:configure-flags
|
||||
'(list "-DSHRINKWRAP_PREFER_STATIC=OFF"
|
||||
"-DBUILD_TESTS=ON")
|
||||
#:phases
|
||||
'(modify-phases %standard-phases
|
||||
(add-after 'unpack 'add-missing-header
|
||||
(lambda _
|
||||
(substitute* "include/shrinkwrap/xz.hpp"
|
||||
(("#include <cstring>")
|
||||
"#include <cstring>\n#include <cstdint>")))))))
|
||||
"-DBUILD_TESTS=ON")))
|
||||
(propagated-inputs (list bzip2 xz zlib `(,zstd "lib")))
|
||||
(native-inputs (list pkg-config))
|
||||
(home-page "https://github.com/jonathonl/shrinkwrap")
|
||||
@@ -747,14 +740,14 @@ archiving. Lzip is a clean implementation of the LZMA algorithm.")
|
||||
(define-public lziprecover
|
||||
(package
|
||||
(name "lziprecover")
|
||||
(version "1.25")
|
||||
(version "1.23")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "mirror://savannah/lzip/lziprecover/"
|
||||
"lziprecover-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"0icbzw7kmp4rn711sh3f0w3sxlxly6q6dc8d7pp6dqhag2f2yfag"))))
|
||||
"0wmmyi03fv2lflsir5ldrsv04q57k3hmlqajzb1m3p86gwbh967j"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
;; The configure script doesn't recognise the --build or --host
|
||||
@@ -762,7 +755,6 @@ archiving. Lzip is a clean implementation of the LZMA algorithm.")
|
||||
`(,@(if (%current-target-system)
|
||||
`(#:make-flags (list ,(string-append "CXX=" (cxx-for-target))))
|
||||
'())))
|
||||
(native-inputs (list lzip))
|
||||
(home-page "https://www.nongnu.org/lzip/lziprecover.html")
|
||||
(synopsis "Recover and decompress data from damaged lzip files")
|
||||
(description
|
||||
@@ -1040,14 +1032,14 @@ decompression of some loosely related file formats used by Microsoft.")
|
||||
(define-public lz4
|
||||
(package
|
||||
(name "lz4")
|
||||
(version "1.10.0")
|
||||
(version "1.9.3")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference (url "https://github.com/lz4/lz4")
|
||||
(commit (string-append "v" version))))
|
||||
(sha256
|
||||
(base32 "12sfwid95zhk2r2ijpwwknc5a2xlll2s9xhf0s21ca2jkygvblgx"))
|
||||
(base32 "1w02kazh1fps3sji2sn89fz862j1199c5ajrqcgl1bnlxj09kcbz"))
|
||||
(file-name (git-file-name name version))))
|
||||
(build-system gnu-build-system)
|
||||
(outputs (list "out" "static"))
|
||||
@@ -1898,11 +1890,11 @@ speed.")
|
||||
(outputs '("out"))
|
||||
(inputs
|
||||
`(,@(if (%current-target-system)
|
||||
`(("googletest" ,googletest-1.8))
|
||||
`(("googletest" ,googletest))
|
||||
'())))
|
||||
(native-inputs
|
||||
`(,@(if (%current-system)
|
||||
`(("googletest" ,googletest-1.8))
|
||||
`(("googletest" ,googletest))
|
||||
'())))
|
||||
(arguments
|
||||
`(#:phases
|
||||
@@ -2305,14 +2297,14 @@ corrupted input.")
|
||||
(define-public plzip
|
||||
(package
|
||||
(name "plzip")
|
||||
(version "1.12")
|
||||
(version "1.11")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "mirror://savannah/lzip/plzip/"
|
||||
"plzip-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32 "0c5fmp7hkb41ybc5gmrj96xz7g74mmpfhya2ha6asm51dynimmsh"))))
|
||||
(base32 "0sv2sp0ppxkdds4qiwb3ddvlv22ydv61n3hk74rkh8ljbkjcpqyq"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list #:configure-flags
|
||||
@@ -2350,7 +2342,7 @@ single-member files which can't be decompressed in parallel.")
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
`(#:tests? #f))
|
||||
(inputs (list boost-1.83 xz))
|
||||
(inputs (list boost xz))
|
||||
(native-inputs (list pkg-config))
|
||||
(home-page "https://constexpr.org/innoextract/")
|
||||
(synopsis "Tool for extracting Inno Setup installers")
|
||||
|
||||
+86
-107
@@ -8,7 +8,6 @@
|
||||
;;; Copyright © 2024, 2025 Tomas Volf <~@wolfsden.cz>
|
||||
;;; Copyright © 2024 Foundation Devices, Inc. <hello@foundation.xyz>
|
||||
;;; Copyright © 2024 Jean-Pierre De Jesus DIAZ <jean@foundation.xyz>
|
||||
;;; Copyright © 2025 Tomas Volf <~@wolfsden.cz>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -76,7 +75,7 @@
|
||||
(define-public crun
|
||||
(package
|
||||
(name "crun")
|
||||
(version "1.25.1")
|
||||
(version "1.24")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
@@ -86,7 +85,7 @@
|
||||
"/crun-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"02kksvnja234k8mpq5j7yms8npbpvh8iz3k03h21lwcqzqsb88rx"))))
|
||||
"0lnfvwxq14pyqyxx56bdr7k4h3l99imc9vynxram7fh0chxf7dlh"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
@@ -170,7 +169,7 @@ runtime (like runc or crun) for a single container.")
|
||||
(define-public distrobox
|
||||
(package
|
||||
(name "distrobox")
|
||||
(version "1.8.2.1")
|
||||
(version "1.8.1.2")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -178,7 +177,7 @@ runtime (like runc or crun) for a single container.")
|
||||
(url "https://github.com/89luca89/distrobox")
|
||||
(commit version)))
|
||||
(sha256
|
||||
(base32 "1la9qkhmj9277r6b2vfadb3fnvrwa435x6la5bwvm8ch0js2dfx0"))
|
||||
(base32 "168hjzifdvmlr4rplgp2jh4sg1dwjfmbrwj8589zys8r4kqvwfy1"))
|
||||
(file-name (git-file-name name version))))
|
||||
(build-system copy-build-system)
|
||||
(arguments
|
||||
@@ -396,46 +395,54 @@ Layer-4 sockets.")
|
||||
(package
|
||||
(name "cni-plugins")
|
||||
(version "1.8.0")
|
||||
;; TODO: Unvendor.
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/containernetworking/plugins")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(url "https://github.com/containernetworking/plugins")
|
||||
(commit (string-append "v" version))))
|
||||
(sha256
|
||||
(base32 "0bwczkf4kbrx47sa6mnp5kyn65dbg52qnlfyjyydrwshal8rz3gw"))
|
||||
(snippet
|
||||
#~(begin (use-modules (guix build utils))
|
||||
(delete-file-recursively "vendor")))))
|
||||
(file-name (git-file-name name version))))
|
||||
(build-system go-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:install-source? #f
|
||||
#:tests? #f ; TODO: Figure out how to run tests.
|
||||
#:import-path "github.com/containernetworking/plugins"
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(replace 'build
|
||||
(lambda* (#:key import-path #:allow-other-keys)
|
||||
(with-directory-excursion (string-append "src/" import-path)
|
||||
;; XXX: Migrate to go-build-system logic.
|
||||
(invoke "./build_linux.sh"))))
|
||||
(replace 'install
|
||||
(lambda* (#:key import-path #:allow-other-keys)
|
||||
(copy-recursively (string-append "src/"import-path "/bin")
|
||||
(string-append #$output "/bin")))))))
|
||||
`(#:unpack-path "github.com/containernetworking/plugins"
|
||||
#:tests? #f ; XXX: see stat /var/run below
|
||||
#:phases (modify-phases %standard-phases
|
||||
(replace 'build
|
||||
(lambda _
|
||||
(with-directory-excursion
|
||||
"src/github.com/containernetworking/plugins"
|
||||
(invoke "./build_linux.sh"))))
|
||||
(replace 'check
|
||||
(lambda* (#:key tests? #:allow-other-keys)
|
||||
;; Only pkg/ns tests run without root.
|
||||
(when tests?
|
||||
(with-directory-excursion
|
||||
"src/github.com/containernetworking/plugins/pkg/ns"
|
||||
(invoke "stat" "/var/run") ; XXX: test tries to stat this directory
|
||||
(invoke "unshare" "-rmn" "go" "test")))))
|
||||
(add-before 'check 'set-test-environment
|
||||
(lambda _
|
||||
(setenv "XDG_RUNTIME_DIR" "/tmp/cni-rootless")))
|
||||
(replace 'install
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(copy-recursively
|
||||
"src/github.com/containernetworking/plugins/bin"
|
||||
(string-append (assoc-ref outputs "out") "/bin")))))))
|
||||
;; XXX: Prepare for unvendor.
|
||||
(native-inputs
|
||||
(list go-github-com-alexflint-go-filemutex
|
||||
go-github-com-buger-jsonparser
|
||||
go-github-com-containernetworking-cni
|
||||
go-github-com-coreos-go-iptables
|
||||
(list ;; go-github-com-alexflint-go-filemutex
|
||||
;; go-github-com-buger-jsonparser
|
||||
;; go-github-com-containernetworking-cni
|
||||
;; go-github-com-coreos-go-iptables
|
||||
go-github-com-coreos-go-systemd-v22
|
||||
go-github-com-godbus-dbus-v5
|
||||
go-github-com-insomniacslk-dhcp
|
||||
go-github-com-mattn-go-shellwords
|
||||
;; o-github-com-mattn-go-shellwords
|
||||
;; go-github-com-microsoft-hcsshim
|
||||
go-github-com-networkplumbing-go-nft
|
||||
;; go-github-com-networkplumbing-go-nft
|
||||
go-github-com-onsi-ginkgo-v2
|
||||
go-github-com-onsi-gomega
|
||||
go-github-com-opencontainers-selinux
|
||||
@@ -444,7 +451,7 @@ Layer-4 sockets.")
|
||||
go-github-com-vishvananda-netlink
|
||||
go-github-com-vishvananda-netns
|
||||
go-golang-org-x-sys
|
||||
go-sigs-k8s-io-knftables
|
||||
;; go-sigs-k8s-io-knftables
|
||||
util-linux))
|
||||
(home-page "https://github.com/containernetworking/plugins")
|
||||
(synopsis "Container Network Interface (CNI) network plugins")
|
||||
@@ -457,77 +464,49 @@ configure network interfaces in Linux containers.")
|
||||
(package
|
||||
(name "gvisor-tap-vsock")
|
||||
(version "0.8.7")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/containers/gvisor-tap-vsock")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1p9vypphssvqfcm3y2nc7b9v0wcc2smkrqq8k60vskaiza89974k"))
|
||||
(modules '((guix build utils)))
|
||||
(snippet
|
||||
#~(begin
|
||||
(delete-file-recursively "vendor")
|
||||
;; Submodules with their own go.mod files and packaged separately:
|
||||
;;
|
||||
;; - github.com/containers/gvisor-tap-vsock/tools
|
||||
(delete-file-recursively "tools")))))
|
||||
(build-system go-build-system)
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/containers/gvisor-tap-vsock")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"1p9vypphssvqfcm3y2nc7b9v0wcc2smkrqq8k60vskaiza89974k"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:install-source? #f
|
||||
#:import-path "github.com/containers/gvisor-tap-vsock/cmd/gvproxy"
|
||||
#:unpack-path "github.com/containers/gvisor-tap-vsock"
|
||||
#:build-flags
|
||||
#~(list (string-append "-ldflags="
|
||||
"-X github.com/containers/gvisor-tap-vsock"
|
||||
"/pkg/types.gitVersion=" #$version))
|
||||
#:test-flags
|
||||
;; serve UDP error: *net.OpError read udp 127.0.0.1:5354: use of closed
|
||||
;; network connection
|
||||
#~(list "-skip" "TestSuite")
|
||||
#:test-subdirs
|
||||
#~(list "../../...") ;test the whole libary
|
||||
#:make-flags `(list ,(string-append "GIT_VERSION=v" version))
|
||||
#:test-target "test"
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'prune-tests
|
||||
(lambda* (#:key unpack-path #:allow-other-keys)
|
||||
(with-directory-excursion (string-append "src/" unpack-path)
|
||||
;; Requires working DNS.
|
||||
(substitute* "pkg/services/dns/dns_test.go"
|
||||
(("Should pass DNS requests to default system DNS.*" all)
|
||||
(string-append all "\n" "ginkgo.Skip(\"No network.\");"))
|
||||
(("\"redhat.com\",")
|
||||
"\"localhost\",")
|
||||
(("\"52.200.142.250\"")
|
||||
"\"127.0.0.1\""))))))))
|
||||
(native-inputs
|
||||
(list go-github-com-apparentlymart-go-cidr
|
||||
go-github-com-containers-winquit
|
||||
go-github-com-coreos-stream-metadata-go
|
||||
go-github-com-dustin-go-humanize
|
||||
go-github-com-google-gopacket
|
||||
go-github-com-insomniacslk-dhcp
|
||||
;; go-github-com-linuxkit-virtsock ;Windows only
|
||||
go-github-com-mdlayher-vsock
|
||||
;; go-github-com-microsoft-go-winio ;Windows only
|
||||
go-github-com-miekg-dns
|
||||
go-github-com-onsi-ginkgo
|
||||
go-github-com-onsi-gomega
|
||||
go-github-com-opencontainers-go-digest
|
||||
go-github-com-pkg-errors
|
||||
go-github-com-sirupsen-logrus
|
||||
go-github-com-songgao-packets
|
||||
go-github-com-songgao-water
|
||||
go-github-com-stretchr-testify
|
||||
go-github-com-vishvananda-netlink
|
||||
go-golang-org-x-crypto
|
||||
go-golang-org-x-mod
|
||||
go-golang-org-x-sync
|
||||
go-golang-org-x-sys
|
||||
go-gvisor-dev-gvisor))
|
||||
(delete 'configure)
|
||||
;; Add -trimpath flag to avoid keeping references to go package
|
||||
;; in the store.
|
||||
(add-after 'unpack 'patch-go-reference
|
||||
(lambda _
|
||||
(substitute* "Makefile"
|
||||
(("go build") "go build -trimpath"))))
|
||||
(add-before 'build 'setenv
|
||||
(lambda _
|
||||
;; For golang toolchain.
|
||||
(setenv "HOME" "/tmp")))
|
||||
(add-before 'check 'prune-tests
|
||||
(lambda _
|
||||
;; Requires internet connection to fetch QEMU image.
|
||||
(invoke "rm" "-r" "test-qemu")
|
||||
;; Requires working DNS.
|
||||
(substitute* "pkg/services/dns/dns_test.go"
|
||||
(("Should pass DNS requests to default system DNS.*" all)
|
||||
(string-append all "\n" "ginkgo.Skip(\"No network.\");"))
|
||||
(("\"redhat.com\",")
|
||||
"\"localhost\",")
|
||||
(("\"52.200.142.250\"")
|
||||
"\"127.0.0.1\""))))
|
||||
(replace 'install
|
||||
(lambda _
|
||||
(install-file "bin/gvproxy" (string-append #$output "/bin")))))))
|
||||
(native-inputs (list go-1.23))
|
||||
(home-page "https://github.com/containers/gvisor-tap-vsock")
|
||||
(synopsis "Network stack for virtualization based on gVisor")
|
||||
(description "This package provides a replacement for @code{libslirp} and
|
||||
@@ -571,7 +550,7 @@ Its main purpose is to support the key usage by @code{docker-init}:
|
||||
(define-public podman
|
||||
(package
|
||||
(name "podman")
|
||||
(version "5.7.0")
|
||||
(version "5.6.1")
|
||||
(outputs '("out" "docker"))
|
||||
(properties
|
||||
`((output-synopsis "docker" "docker alias for podman")
|
||||
@@ -584,7 +563,7 @@ Its main purpose is to support the key usage by @code{docker-init}:
|
||||
(url "https://github.com/containers/podman")
|
||||
(commit (string-append "v" version))))
|
||||
(sha256
|
||||
(base32 "0p1hh3sy5m1l1151wsda3q346pd4dm9hgpwjqakdha8yixyicwj8"))
|
||||
(base32 "1k8dppbni8wbzxqqaknp08h687qw884wn7bkpiwmbw9np261fl4b"))
|
||||
(file-name (git-file-name name version))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
@@ -615,7 +594,7 @@ Its main purpose is to support the key usage by @code{docker-init}:
|
||||
(invoke "make" "remotesystem"))))
|
||||
(add-after 'unpack 'fix-hardcoded-paths
|
||||
(lambda _
|
||||
(substitute* "vendor/go.podman.io/common/pkg/config/config_linux.go"
|
||||
(substitute* "vendor/github.com/containers/common/pkg/config/config_linux.go"
|
||||
(("/usr/local/libexec/podman")
|
||||
(string-append #$output "/libexec/podman"))
|
||||
(("/usr/local/lib/podman")
|
||||
@@ -676,7 +655,7 @@ Its main purpose is to support the key usage by @code{docker-init}:
|
||||
(list grep
|
||||
bats
|
||||
git-minimal/pinned
|
||||
go-1.24
|
||||
go-1.23
|
||||
go-md2man
|
||||
gettext-minimal ; for envsubst
|
||||
mandoc
|
||||
@@ -729,7 +708,7 @@ being rootless and not requiring any daemon to be running.")
|
||||
(define-public buildah
|
||||
(package
|
||||
(name "buildah")
|
||||
(version "1.42.1")
|
||||
(version "1.41.4")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -737,7 +716,7 @@ being rootless and not requiring any daemon to be running.")
|
||||
(url "https://github.com/containers/buildah")
|
||||
(commit (string-append "v" version))))
|
||||
(sha256
|
||||
(base32 "1agblw09yw4pc81c2nsjy3j83gznn4micyjyrgpqxlmp93w5w5h0"))
|
||||
(base32 "0gca1zv98c58z6c06ckgg63mm2305b1qzavxfmlgmj8s4f72g3zh"))
|
||||
(file-name (git-file-name name version))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
@@ -802,7 +781,7 @@ being rootless and not requiring any daemon to be running.")
|
||||
lvm2))
|
||||
(native-inputs
|
||||
(list bats
|
||||
go-1.24
|
||||
go-1.23
|
||||
go-md2man
|
||||
pkg-config))
|
||||
(synopsis "Build @acronym{OCI, Open Container Initiative} images")
|
||||
|
||||
+93
-170
@@ -49,7 +49,6 @@
|
||||
;;; Copyright © 2025 Romain Garbage <romain.garbage@inria.fr>
|
||||
;;; Copyright © 2024, 2025 Janneke Nieuwenhuizen <janneke@gnu.org>
|
||||
;;; Copyright © 2025 Andreas Enge <andreas@enge.fr>
|
||||
;;; Copyright © 2025 Philippe Swartvagher <phil.swart@gmx.fr>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -139,46 +138,43 @@
|
||||
#:use-module (ice-9 match))
|
||||
|
||||
(define-public argagg
|
||||
(package
|
||||
(name "argagg")
|
||||
(version "0.4.7")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/vietjtnguyen/argagg")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"1pr0xqcc3wpwh02fwll3yf67rbxj39wbr2rqdd6bvjalmahg6hqv"))))
|
||||
(build-system cmake-build-system)
|
||||
(outputs '("out" "doc"))
|
||||
(arguments
|
||||
(list
|
||||
#:configure-flags #~(list
|
||||
(format #f "-DCMAKE_CXX_FLAGS=~a"
|
||||
(string-join
|
||||
(list "-Wno-error=array-bounds="
|
||||
"-Wno-error=sign-conversion"))))
|
||||
#:phases #~(modify-phases %standard-phases
|
||||
(add-after 'install 'move-doc
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let ((name #$(package-name argagg))
|
||||
(doc (assoc-ref outputs "doc")))
|
||||
(mkdir-p (string-append doc "/share/doc"))
|
||||
(rename-file
|
||||
(string-append #$output "/share/doc/" name)
|
||||
(string-append doc "/share/doc/" name))))))))
|
||||
(native-inputs (list doxygen))
|
||||
(home-page "https://github.com/vietjtnguyen/argagg")
|
||||
(synopsis "C++11 command line argument parser")
|
||||
(description
|
||||
"ArgAgg is yet another C++ command line argument/option
|
||||
(let ((commit "79e4adfa2c6e2bfbe63da05cc668eb9ad5596748") (revision "0"))
|
||||
(package
|
||||
(name "argagg")
|
||||
(version (git-version "0.4.6" revision commit))
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/vietjtnguyen/argagg")
|
||||
(commit commit)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"1flkgh524lq3024p7ld5lg743s1v7qnbmgv77578rzmn2rjzr77n"))))
|
||||
(build-system cmake-build-system)
|
||||
(outputs '("out" "doc"))
|
||||
(arguments
|
||||
`(#:phases (modify-phases %standard-phases
|
||||
(add-after 'install 'move-doc
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let* ((name ,(package-name argagg)) (out (assoc-ref
|
||||
outputs
|
||||
"out"))
|
||||
(doc (assoc-ref outputs "doc")))
|
||||
(mkdir-p (string-append doc "/share/doc"))
|
||||
(rename-file
|
||||
(string-append out "/share/doc/" name)
|
||||
(string-append doc "/share/doc/" name))))))))
|
||||
(native-inputs (list doxygen))
|
||||
(home-page "https://github.com/vietjtnguyen/argagg")
|
||||
(synopsis "C++11 command line argument parser")
|
||||
(description
|
||||
"ArgAgg is yet another C++ command line argument/option
|
||||
parser. It was written as a simple and idiomatic alternative to other
|
||||
frameworks like getopt, Boost program options, TCLAP, and others. The goal is
|
||||
to achieve the majority of argument parsing needs in a simple manner with an
|
||||
easy to use API.")
|
||||
(license license:expat)))
|
||||
(license license:expat))))
|
||||
|
||||
(define-public argpp
|
||||
;; XXX: Does not release anymore.
|
||||
@@ -457,7 +453,7 @@ data structures for C++.")
|
||||
(base32 "08w3ppd43wx9vq641ljw5izjd7p5w7drynw13ll9shwy41ydif9n"))))
|
||||
(build-system cmake-build-system)
|
||||
(native-inputs
|
||||
(list googletest-1.13 pkg-config))
|
||||
(list googletest pkg-config))
|
||||
(synopsis "Guidelines Support Library")
|
||||
(description "c++-gsl contains functions and types that are suggested for
|
||||
use by the C++ Core Guidelines maintained by the Standard C++ Foundation.")
|
||||
@@ -591,7 +587,7 @@ operating system functions.")
|
||||
(define-public lunasvg
|
||||
(package
|
||||
(name "lunasvg")
|
||||
(version "3.5.0")
|
||||
(version "3.2.1")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -600,11 +596,11 @@ operating system functions.")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1scmm1q35j3r87117p401fg3c1bx2nkiyvc2f3svvr2m2y9ihabr"))))
|
||||
(base32 "14ppk3k6sdbf3lwhv2gjqy32vwa7ck9jcj9xfk0fxwfqbvbp6608"))))
|
||||
(build-system cmake-build-system)
|
||||
(inputs (list plutovg))
|
||||
(arguments
|
||||
'(#:configure-flags '("-DBUILD_SHARED_LIBS=ON -DUSE_SYSTEM_PLUTOVG=ON")
|
||||
'(#:configure-flags '("-DBUILD_SHARED_LIBS=ON")
|
||||
#:tests? #f)) ;No tests.
|
||||
(home-page "https://github.com/sammycage/lunasvg")
|
||||
(synopsis "SVG rendering and manipulation library in C++")
|
||||
@@ -912,7 +908,7 @@ same name.")
|
||||
(define-public google-highway
|
||||
(package
|
||||
(name "google-highway")
|
||||
(version "1.3.0")
|
||||
(version "1.2.0")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -921,7 +917,7 @@ same name.")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1bl576f3zlygxfmjqs5rrk3sag411hlhx2210lpq461plvvs80zi"))))
|
||||
(base32 "0ykhc6n3ai18dijdmi38fm1d7pa8i6nbgh64jrxd4499k7jhg568"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
`(#:configure-flags (list "-DHWY_SYSTEM_GTEST=on"
|
||||
@@ -947,7 +943,7 @@ library for SIMD (Single Instruction, Multiple Data) with runtime dispatch.")
|
||||
(define-public hyprgraphics
|
||||
(package
|
||||
(name "hyprgraphics")
|
||||
(version "0.4.0")
|
||||
(version "0.2.0")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -958,7 +954,7 @@ library for SIMD (Single Instruction, Multiple Data) with runtime dispatch.")
|
||||
(snippet #~(substitute* "CMakeLists.txt" (("libjxl_cms") "")))
|
||||
(sha256
|
||||
(base32
|
||||
"1jii9l9qbksp6x1vwbm84a985hy9q9xcpl703bliprd5rkpi6w96"))))
|
||||
"1xr2pbawwnnwjwzkgsy9s4wq1j85x4qhj3m4s2pwb9wp6g69da2g"))))
|
||||
(build-system cmake-build-system)
|
||||
(native-inputs (list gcc-15 pkg-config))
|
||||
(inputs (list cairo
|
||||
@@ -982,7 +978,7 @@ utilities used across the hypr* ecosystem.")
|
||||
(define-public hyprlang
|
||||
(package
|
||||
(name "hyprlang")
|
||||
(version "0.6.6")
|
||||
(version "0.6.4")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -991,7 +987,7 @@ utilities used across the hypr* ecosystem.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"13lqlwrpcd3gs5xw51sj1zx2w7kvsywvgdal81dp841rpph91z00"))))
|
||||
"080kibsllxfrlck4gix0ygr12gnvf9p9ybi589fsvpab9p9xw857"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
(list
|
||||
@@ -1016,7 +1012,7 @@ language used in Hyprland.")
|
||||
(define-public hyprutils
|
||||
(package
|
||||
(name "hyprutils")
|
||||
(version "0.10.4")
|
||||
(version "0.10.0")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -1025,11 +1021,10 @@ language used in Hyprland.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"08b65pssaci780rgb5qgqc61zvbxmb9qda4gb58j8nh9yi3ya0jx"))))
|
||||
"0l4gdingspjv3fh7zkmdin37bjjxgxnxycn8agv4cr3n0kn9smxg"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:tests? #f ; No tests in Release build type
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'fix-cross-compilation
|
||||
@@ -1496,7 +1491,7 @@ tools (containers, algorithms) used by other QuantStack packages.")
|
||||
(define-public ccls
|
||||
(package
|
||||
(name "ccls")
|
||||
(version "0.20250815.1")
|
||||
(version "0.20241108")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -1504,7 +1499,7 @@ tools (containers, algorithms) used by other QuantStack packages.")
|
||||
(url "https://github.com/MaskRay/ccls")
|
||||
(commit version)))
|
||||
(sha256
|
||||
(base32 "1jl4jv1z8vxjfmkv2mvii68aqqx2nrcbd6bhzjs5dd65r23bqs6x"))
|
||||
(base32 "0474ldkkw1m46lkasdk8mn6z3q51vs4g1fbwml0sd70wgdb7h5nj"))
|
||||
(file-name (git-file-name name version))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
@@ -1910,7 +1905,7 @@ development of concurrent and multithreaded applications in C++.")
|
||||
(define-public taskflow
|
||||
(package
|
||||
(name "taskflow")
|
||||
(version "3.10.0")
|
||||
(version "3.6.0")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -1919,7 +1914,7 @@ development of concurrent and multithreaded applications in C++.")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "08z7vif8lk4jri9m77j9gqyyv7nwza5qfgab0bk5gl9akb63qh5k"))))
|
||||
(base32 "1cv74l181137lchc1rxygcg401cnq216ymq5qz2njsw99j342br3"))))
|
||||
(build-system cmake-build-system)
|
||||
(home-page "https://taskflow.github.io/")
|
||||
(synopsis
|
||||
@@ -2134,7 +2129,7 @@ point and then, after each tween step, plugging back the result.")
|
||||
(("check_target\\(gtest_main\\)") "")
|
||||
(("check_target\\(gmock\\)") "")))))))
|
||||
(native-inputs
|
||||
(list googletest-1.12))
|
||||
(list googletest))
|
||||
(home-page "https://abseil.io")
|
||||
(synopsis "Augmented C++ standard library")
|
||||
(description "Abseil is a collection of C++ library code designed to
|
||||
@@ -2147,7 +2142,7 @@ Google's C++ code base.")
|
||||
(package
|
||||
(inherit base)
|
||||
(name "abseil-cpp")
|
||||
(version "20250814.1")
|
||||
(version "20250127.1")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -2156,7 +2151,7 @@ Google's C++ code base.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"1wm2271hwy2pnfv9b5iy0y9xvbhiwffdf9i6s3dn89k630wh6928"))
|
||||
"0r2j360csym12jlgmcy92rgwdmng63shchxvfmln3j5402lv0g21"))
|
||||
(patches
|
||||
(search-patches "abseil-cpp-20220623.1-no-kepsilon-i686.patch"))))
|
||||
(arguments
|
||||
@@ -2180,28 +2175,7 @@ Google's C++ code base.")
|
||||
(setenv "CTEST_OUTPUT_ON_FAILURE" "1")
|
||||
(invoke "ctest" "-E"
|
||||
"absl_symbolize_test|absl_log_format_test")))))
|
||||
#~())))))
|
||||
(native-inputs
|
||||
(modify-inputs (package-native-inputs base)
|
||||
(replace "googletest" googletest))))))
|
||||
|
||||
(define-public abseil-cpp-20250127
|
||||
(let ((base abseil-cpp))
|
||||
(package
|
||||
(inherit base)
|
||||
(name "abseil-cpp")
|
||||
(version "20250127.1")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/abseil/abseil-cpp")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"0r2j360csym12jlgmcy92rgwdmng63shchxvfmln3j5402lv0g21"))
|
||||
(patches
|
||||
(search-patches "abseil-cpp-20220623.1-no-kepsilon-i686.patch")))))))
|
||||
#~()))))))))
|
||||
|
||||
(define (abseil-cpp-for-c++-standard base version)
|
||||
(hidden-package
|
||||
@@ -2314,39 +2288,42 @@ parsers according to a Parsing Expression Grammar (PEG).")
|
||||
(license license:expat)))
|
||||
|
||||
(define-public lexy
|
||||
(package
|
||||
(name "lexy")
|
||||
(version "2025.05.0")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/foonathan/lexy")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "14j2z7x2l65q95j5br5nw7awgd87p9m2xw7mma4qspiricd0rniq"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
(list #:configure-flags #~(list "-DLEXY_BUILD_DOCS=OFF") ; needs Hugo
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'fix-dependencies
|
||||
(lambda _
|
||||
(substitute* "tests/CMakeLists.txt"
|
||||
(("^message\\(STATUS \"Fetching doctest\"\\).*") "")
|
||||
(("^include\\(FetchContent\\).*") "")
|
||||
(("^FetchContent_Declare\\(doctest .*") "")
|
||||
(("^FetchContent_MakeAvailable\\(doctest\\)")
|
||||
"find_package(doctest REQUIRED)")
|
||||
(("^(target_link_libraries\\(lexy_test_base .*) doctest\\)"
|
||||
_ prefix)
|
||||
(string-append prefix ")"))))))))
|
||||
(native-inputs (list doctest))
|
||||
(home-page "https://lexy.foonathan.net/")
|
||||
(synopsis "C++ parser combinator library")
|
||||
(description "lexy is a parser combinator library for C++17 and later.")
|
||||
(license license:boost1.0)))
|
||||
;; Bug fixes since last release.
|
||||
(let ((commit "34d2adf74a2b25b6bdd760a3bbb931f3fd5e60cd")
|
||||
(revision "0"))
|
||||
(package
|
||||
(name "lexy")
|
||||
(version (git-version "2022.12.1" revision commit))
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/foonathan/lexy")
|
||||
(commit commit)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1ywcy3wdmqjj5z1w64hk0dwf8iv6p62s48m7l6vn881hfzc8hcxz"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
(list #:configure-flags #~(list "-DLEXY_BUILD_DOCS=OFF") ; needs Hugo
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'fix-dependencies
|
||||
(lambda _
|
||||
(substitute* "tests/CMakeLists.txt"
|
||||
(("^message\\(STATUS \"Fetching doctest\"\\).*") "")
|
||||
(("^include\\(FetchContent\\).*") "")
|
||||
(("^FetchContent_Declare\\(doctest .*") "")
|
||||
(("^FetchContent_MakeAvailable\\(doctest\\)")
|
||||
"find_package(doctest REQUIRED)")
|
||||
(("^(target_link_libraries\\(lexy_test_base .*) doctest\\)"
|
||||
_ prefix)
|
||||
(string-append prefix ")"))))))))
|
||||
(native-inputs (list doctest))
|
||||
(home-page "https://lexy.foonathan.net/")
|
||||
(synopsis "C++ parser combinator library")
|
||||
(description "lexy is a parser combinator library for C++17 and later.")
|
||||
(license license:boost1.0))))
|
||||
|
||||
(define-public psascan
|
||||
(package
|
||||
@@ -2412,7 +2389,7 @@ standard GNU style syntax for options.")
|
||||
(define-public folly
|
||||
(package
|
||||
(name "folly")
|
||||
(version "2025.11.10.00")
|
||||
(version "2024.09.09.00")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -2421,7 +2398,7 @@ standard GNU style syntax for options.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"11gdrc2jhb9dzjgpq6h3p5453f8gyvv4ngsnrqi4rylfil8a3b3i"))))
|
||||
"17fdigkaxivbrww5yhz9fh25d8pirqjp126zbv4kg4qsprywfww5"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
(list
|
||||
@@ -2684,7 +2661,7 @@ composable sequential transformations.")
|
||||
(lambda _
|
||||
(delete-file-recursively "test/event_loop")))
|
||||
(replace 'check (assoc-ref gnu:%standard-phases 'check)))))
|
||||
(inputs (list boost-1.83 immer zug))
|
||||
(inputs (list boost immer zug))
|
||||
(native-inputs (list catch2 cereal))
|
||||
(home-page "https://sinusoid.es/lager")
|
||||
(synopsis "Library for value-oriented design")
|
||||
@@ -3189,7 +3166,6 @@ of reading and writing XML.")
|
||||
(sha256
|
||||
(base32 "1ddz14699v5lqx3dh0mb7hfffr6fk5zhmzn3z8yxkqqvriqnciim"))
|
||||
(modules '((guix build utils)))
|
||||
(patches (search-patches "jsonnet-include-cstdint-for-gcc-13-builds.patch"))
|
||||
(snippet
|
||||
#~(begin
|
||||
(rename-file "third_party/md5" ".md5")
|
||||
@@ -3307,8 +3283,7 @@ validation.")
|
||||
"bslh_hash.t"
|
||||
"bslstl_deque.0[1345].t"
|
||||
"bslstl_queue.t"
|
||||
"bslstl_stack.t"
|
||||
"bslstl_string_test.t")
|
||||
"bslstl_stack.t")
|
||||
"|")
|
||||
#:modules '((guix build cmake-build-system)
|
||||
((guix build gnu-build-system) #:prefix gnu:)
|
||||
@@ -4790,58 +4765,6 @@ written in C99.")
|
||||
(home-page "https://github.com/aklomp/base64")
|
||||
(license license:bsd-2)))
|
||||
|
||||
(define-public unordered-dense
|
||||
(package
|
||||
(name "unordered-dense")
|
||||
(version "4.8.1")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/martinus/unordered_dense")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "02a86p2abrjkjw6kxd2gcxhknn50mcb1shrch8fhg72n534yblr5"))))
|
||||
;; This library uses CMake as build system to distribute the package, but
|
||||
;; uses Meson to build and launch tests. Hence, the phase 'check is replaced
|
||||
;; to mimic what is defined for meson-build-system.
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(replace 'check
|
||||
(lambda* (#:key tests? #:allow-other-keys)
|
||||
(when tests?
|
||||
(substitute* "../source/test/app/doctest.h"
|
||||
(("#include <doctest\\.h>")
|
||||
"#include <doctest/doctest.h>"))
|
||||
(setenv "FUZZ_CORPUS_BASE_DIR"
|
||||
(string-append (getcwd) "/../source/data/fuzz/"))
|
||||
(invoke "meson" "setup" "../source/")
|
||||
(invoke "ninja" "--verbose" "-j"
|
||||
(number->string (parallel-job-count)))
|
||||
(setenv "MESON_TESTTHREADS"
|
||||
(number->string (parallel-job-count)))
|
||||
(invoke "meson" "test")))))))
|
||||
(native-inputs (list meson pkg-config))
|
||||
(inputs (list doctest fmt boost))
|
||||
(home-page "https://github.com/martinus/unordered_dense")
|
||||
(synopsis "C++17 fast and densely stored hashmap and hashset library")
|
||||
(description
|
||||
"A fast & densely stored hashmap and hashset based on robin-hood backward
|
||||
shift deletion for C++17 and later.
|
||||
|
||||
The classes @code{ankerl::unordered_dense::map} and
|
||||
@code{ankerl::unordered_dense::set} are (almost) drop-in replacements of
|
||||
@code{std::unordered_map} and @code{std::unordered_set.} While they don't have
|
||||
as strong iterator / reference stability guarantees, they are typically much
|
||||
faster. Additionally, there are @code{ankerl::unordered_dense::segmented_map}
|
||||
and @code{ankerl::unordered_dense::segmented_set} with lower peak memory usage,
|
||||
and stable references (iterators are NOT stable) on insert.")
|
||||
(license license:expat)))
|
||||
|
||||
(define-public zpp-serializer
|
||||
(package
|
||||
(name "zpp-serializer")
|
||||
|
||||
+1439
-2726
File diff suppressed because it is too large
Load Diff
+144
-169
@@ -79,7 +79,6 @@
|
||||
#:use-module (gnu packages perl-check)
|
||||
#:use-module (gnu packages pkg-config)
|
||||
#:use-module (gnu packages python)
|
||||
#:use-module (gnu packages python-build)
|
||||
#:use-module (gnu packages python-xyz)
|
||||
#:use-module (gnu packages python-check)
|
||||
#:use-module (gnu packages python-crypto)
|
||||
@@ -103,7 +102,6 @@
|
||||
#:use-module (guix build-system gnu)
|
||||
#:use-module (guix build-system perl)
|
||||
#:use-module (guix build-system python)
|
||||
#:use-module (guix build-system pyproject)
|
||||
#:use-module (guix utils)
|
||||
#:use-module (srfi srfi-1)
|
||||
#:use-module (srfi srfi-26))
|
||||
@@ -134,7 +132,7 @@
|
||||
;; TODO: perhaps infer #:tests?
|
||||
(if #$(%current-target-system)
|
||||
"OFF" "ON")))))
|
||||
(native-inputs (list googletest-1.12))
|
||||
(native-inputs (list googletest))
|
||||
(home-page "https://github.com/google/crc32c")
|
||||
(synopsis "Cyclic redundancy check")
|
||||
(description
|
||||
@@ -253,7 +251,7 @@ communication, encryption, decryption, signatures, etc.")
|
||||
(define-public libmd
|
||||
(package
|
||||
(name "libmd")
|
||||
(version "1.1.0")
|
||||
(version "1.0.4")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri
|
||||
@@ -264,12 +262,11 @@ communication, encryption, decryption, signatures, etc.")
|
||||
version ".tar.xz")))
|
||||
(sha256
|
||||
(base32
|
||||
"0cmkfq3v0hqzjwpsyp02i3a1z2sfjrdjxky784qsy4sk4x1ammhv"))))
|
||||
"03skgv013v0y9hxh6j143xdwynb5cmbmbdylvvgfsjz38889477m"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:configure-flags
|
||||
#~(list "--disable-static")))
|
||||
`(#:configure-flags
|
||||
(list "--disable-static")))
|
||||
(synopsis "Message Digest functions from BSD systems")
|
||||
(description
|
||||
"The currently provided message digest algorithms are:
|
||||
@@ -985,16 +982,14 @@ SHA256, SHA512, SHA3, AICH, ED2K, Tiger, DC++ TTH, BitTorrent BTIH, GOST R
|
||||
(define-public botan
|
||||
(package
|
||||
(name "botan")
|
||||
(version "3.9.0")
|
||||
(version "2.19.3")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/randombit/botan/")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://botan.randombit.net/releases/"
|
||||
"Botan-" version ".tar.xz"))
|
||||
(sha256
|
||||
(base32
|
||||
"1k5dyn39b77bfawly2yms0crbkn6g7msh16q7bxnh7dra4cnkmsn"))))
|
||||
"0m9dh00zibx13pbjij8lbncf86pix3cxklxmgl47z965k7rlgq6s"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
@@ -1035,24 +1030,6 @@ using ctypes is included, and several other language bindings are available.")
|
||||
(home-page "https://botan.randombit.net")
|
||||
(license license:bsd-2)))
|
||||
|
||||
;; Needed explicitly by biboumi
|
||||
(define-public botan-2
|
||||
(hidden-package
|
||||
(package
|
||||
(inherit botan)
|
||||
(name "botan")
|
||||
(version "2.19.3")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/randombit/botan/")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"16dsrxb7z245hvbjzapq7qf65ip1fh2390qap30hpfd383dyvilw")))))))
|
||||
|
||||
(define-public ccrypt
|
||||
(package
|
||||
(name "ccrypt")
|
||||
@@ -1077,8 +1054,8 @@ security.")
|
||||
(license license:gpl2)))
|
||||
|
||||
(define-public asignify
|
||||
(let ((commit "d6b3651fa96f05aeefc318f75503fc9ca77b1f58")
|
||||
(revision "2"))
|
||||
(let ((commit "08af003e1f4833713db28b871759d94f9b2b1469")
|
||||
(revision "1"))
|
||||
(package
|
||||
(name "asignify")
|
||||
(version (git-version "1.1" revision commit))
|
||||
@@ -1090,28 +1067,26 @@ security.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"0a6k21gb2n45bj1d2qy34lgi4qsd3ck59jxcycbxafs0wdglsyl9"))))
|
||||
"1zacpqa8b5lg270z1g06r5ik9vnb91crb4ivyy20381dny82xvr1"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:configure-flags
|
||||
#~(list "--enable-openssl"
|
||||
(string-append "--with-openssl="
|
||||
#$(this-package-input "openssl")))))
|
||||
`(#:configure-flags
|
||||
(list "--enable-openssl"
|
||||
(string-append "--with-openssl="
|
||||
(assoc-ref %build-inputs "openssl")))))
|
||||
(native-inputs
|
||||
(list autoconf automake libtool))
|
||||
(inputs
|
||||
(list openssl))
|
||||
(home-page "https://github.com/vstakhov/asignify")
|
||||
(synopsis
|
||||
"Cryptographic authentication and encryption tool and library")
|
||||
(synopsis "Cryptographic authentication and encryption tool and library")
|
||||
(description "Asignify offers public cryptographic signatures and
|
||||
encryption with a library or a command-line tool. The tool is heavily
|
||||
inspired by signify as used in OpenBSD. The main goal of this project is to
|
||||
define a high level API for signing files, validating signatures and
|
||||
encrypting using public-key cryptography. Asignify is designed to be portable
|
||||
and self-contained with zero external dependencies. Asignify can verify
|
||||
OpenBSD signatures, but it cannot sign messages in OpenBSD format yet.")
|
||||
encryption with a library or a command-line tool. The tool is heavily inspired
|
||||
by signify as used in OpenBSD. The main goal of this project is to define a
|
||||
high level API for signing files, validating signatures and encrypting using
|
||||
public-key cryptography. Asignify is designed to be portable and self-contained
|
||||
with zero external dependencies. Asignify can verify OpenBSD signatures, but it
|
||||
cannot sign messages in OpenBSD format yet.")
|
||||
(license license:bsd-2))))
|
||||
|
||||
(define-public enchive
|
||||
@@ -1129,19 +1104,17 @@ OpenBSD signatures, but it cannot sign messages in OpenBSD format yet.")
|
||||
(file-name (git-file-name name version))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:tests? #f ;no check target '
|
||||
#:make-flags
|
||||
#~(list (string-append "CC=" #$(cc-for-target))
|
||||
(string-append "PREFIX=" #$output))
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
(add-after 'install 'post-install
|
||||
(lambda _
|
||||
(install-file
|
||||
"enchive-mode.el"
|
||||
(string-append #$output "/share/emacs/site-lisp")))))))
|
||||
`(#:tests? #f ; no check target '
|
||||
#:make-flags (list ,(string-append "CC=" (cc-for-target))
|
||||
"PREFIX=$(out)")
|
||||
#:phases (modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
(add-after 'install 'post-install
|
||||
(lambda _
|
||||
(let* ((out (assoc-ref %outputs "out"))
|
||||
(lisp (string-append out "/share/emacs/site-lisp")))
|
||||
(install-file "enchive-mode.el" lisp)
|
||||
#t))))))
|
||||
(synopsis "Encrypted personal archives")
|
||||
(description
|
||||
"Enchive is a tool to encrypt files to yourself for long-term
|
||||
@@ -1297,24 +1270,27 @@ utility/testing functions.")
|
||||
"1fb5yi3d2k8kd4zm7liiqagpz610y168xrr1cvn7cbq314jm2my1"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:tests? #f ; No test suite
|
||||
#:make-flags
|
||||
#~(list (string-append "PREFIX=" #$output)
|
||||
;; Build the program and the docs.
|
||||
"SUBDIRS=src doc")
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(delete 'configure) ; No ./configure script
|
||||
(add-after 'unpack 'patch-path
|
||||
(lambda _
|
||||
(substitute* '("src/Makefile" "doc/Makefile")
|
||||
(("/usr/bin/install")
|
||||
"install"))))
|
||||
(add-before 'install 'make-output-directories
|
||||
(lambda _
|
||||
(mkdir-p (string-append #$output "/bin"))
|
||||
(mkdir-p (string-append #$output "/share/man/man1")))))))
|
||||
`(#:tests? #f ; No test suite
|
||||
#:make-flags
|
||||
(list (string-append "PREFIX=" (assoc-ref %outputs "out"))
|
||||
;; Build the program and the docs.
|
||||
"SUBDIRS=src doc")
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(delete 'configure) ; No ./configure script
|
||||
(add-after 'unpack 'patch-path
|
||||
(lambda _
|
||||
(substitute* '("src/Makefile" "doc/Makefile")
|
||||
(("/usr/bin/install")
|
||||
"install"))))
|
||||
(add-before 'install 'make-output-directories
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(bin (string-append out "/bin"))
|
||||
(man1 (string-append out "/share/man/man1")))
|
||||
(mkdir-p bin)
|
||||
(mkdir-p man1)
|
||||
#t))))))
|
||||
(inputs
|
||||
(list libsodium openssl))
|
||||
(synopsis "High-performance command-line tool for stream encryption")
|
||||
@@ -1329,7 +1305,7 @@ quickly by using all your CPU cores and hardware acceleration.")
|
||||
(define-public minisign
|
||||
(package
|
||||
(name "minisign")
|
||||
(version "0.12")
|
||||
(version "0.11")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -1338,7 +1314,7 @@ quickly by using all your CPU cores and hardware acceleration.")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1b7iagx8jdyhvni24qhq13qydsinbh42gvb9dgn8d9vx3f33645a"))))
|
||||
(base32 "1vv2bhhsyhlpnjclfa7gkqgd9xi3jfcdrss7abbdxvvflyrwdk5i"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
`(#:tests? #f)) ; no test suite
|
||||
@@ -1361,7 +1337,7 @@ Trusted comments are signed, thus verified, before being displayed.")
|
||||
(define-public olm
|
||||
(package
|
||||
(name "olm")
|
||||
(version "3.2.16")
|
||||
(version "3.2.14")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -1369,7 +1345,7 @@ Trusted comments are signed, thus verified, before being displayed.")
|
||||
(commit version)))
|
||||
(sha256
|
||||
(base32
|
||||
"19yibssxn12q6ddl15nvqzvcf1hwqial48ng6llfafwbkfdb8z95"))
|
||||
"0pj7gs32ixhlls792wah7xf49j5pra0avp7dpvy9cndkdkg6biq5"))
|
||||
(file-name (git-file-name name version))
|
||||
;; Delete the bundled blob. It's free, but unauditable,
|
||||
;; and apparently only required for android.
|
||||
@@ -1377,60 +1353,58 @@ Trusted comments are signed, thus verified, before being displayed.")
|
||||
"android/gradle/wrapper/gradle-wrapper.jar"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(replace 'check
|
||||
(lambda* (#:key tests? #:allow-other-keys)
|
||||
(when tests?
|
||||
(with-directory-excursion "tests"
|
||||
(invoke "ctest" "."))))))))
|
||||
`(#:phases
|
||||
(modify-phases %standard-phases
|
||||
(replace 'check
|
||||
(lambda* (#:key tests? #:allow-other-keys)
|
||||
(when tests?
|
||||
(with-directory-excursion "tests"
|
||||
(invoke "ctest" "."))))))))
|
||||
(synopsis "Implementation of the Olm and Megolm cryptographic ratchets")
|
||||
(description "The Olm library implements the Double Ratchet
|
||||
cryptographic ratchet. It is written in C and C++11, and exposed as a C
|
||||
API.")
|
||||
(home-page "https://gitlab.matrix.org/matrix-org/olm/")
|
||||
(home-page "https://matrix.org/docs/projects/other/olm/")
|
||||
(license license:asl2.0)))
|
||||
|
||||
(define-deprecated-package libolm
|
||||
olm)
|
||||
|
||||
;; TODO: This is the only Python package here, consider to build from source
|
||||
;; directly without inheritance and move to python-crypto module.
|
||||
(define-public python-olm
|
||||
(package
|
||||
;; python-olm is part of olm and must be updated at the same time.
|
||||
(inherit olm)
|
||||
(name "python-olm")
|
||||
(build-system pyproject-build-system)
|
||||
(build-system python-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'chdir
|
||||
(lambda _
|
||||
(chdir "python")))
|
||||
(add-before 'build 'set-preprocessor
|
||||
(lambda _
|
||||
(setenv "CPP" "gcc -E"))))))
|
||||
`(#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-after 'unpack 'chdir
|
||||
(lambda _
|
||||
(chdir "python")))
|
||||
(add-before 'build 'set-preprocessor
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(setenv "CPP" "gcc -E")))
|
||||
(replace 'check
|
||||
(lambda* (#:key tests? inputs outputs #:allow-other-keys)
|
||||
(when tests?
|
||||
(add-installed-pythonpath inputs outputs)
|
||||
(invoke "pytest")))))))
|
||||
(inputs (list olm))
|
||||
(propagated-inputs
|
||||
(list python-cffi python-future))
|
||||
(native-inputs
|
||||
(list python-aspectlib
|
||||
python-pytest
|
||||
python-pytest-benchmark
|
||||
python-setuptools))
|
||||
(list python-pytest python-pytest-benchmark python-aspectlib))
|
||||
(synopsis "Python bindings for Olm")
|
||||
(description "The Olm library implements the Double Ratchet
|
||||
cryptographic ratchet. This package contains its Python bindings.")))
|
||||
|
||||
(define-public hash-extender
|
||||
(let ((commit "f00b1a02eca02b0907e26726f7efe437bc396aa4")
|
||||
(revision "0"))
|
||||
(let ((commit "cb8aaee49f93e9c0d2f03eb3cafb429c9eed723d")
|
||||
(revision "2"))
|
||||
(package
|
||||
(name "hash-extender")
|
||||
(version (git-version "0.02" revision commit)) ;from hash_extender.c
|
||||
(version (git-version "0.0" revision commit))
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -1438,23 +1412,26 @@ cryptographic ratchet. This package contains its Python bindings.")))
|
||||
(commit commit)))
|
||||
(sha256
|
||||
(base32
|
||||
"12hh2vs8ppavjj47rgyp60cdw70lm2zqdpdv1zdgb3jgdzkg7bf2"))
|
||||
"1fj118566hr1wv03az2w0iqknazsqqkak0mvlcvwpgr6midjqi9b"))
|
||||
(file-name (git-file-name name version))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
;; See: https://github.com/iagox86/hash_extender/issues/29
|
||||
(delete 'check)
|
||||
(replace 'install
|
||||
(lambda _
|
||||
(install-file "hash_extender" (string-append #$output "/bin"))
|
||||
(install-file
|
||||
"README.md"
|
||||
(string-append
|
||||
#$output "/share/doc/hash-extender-" #$version)))))))
|
||||
`(#:phases
|
||||
(modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
(replace 'check
|
||||
(lambda _
|
||||
(invoke "./hash_extender_test")))
|
||||
(replace 'install
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let* ((outdir (assoc-ref outputs "out"))
|
||||
(bindir (string-append outdir "/bin"))
|
||||
(docdir (string-append outdir
|
||||
"/share/doc/hash-extender-"
|
||||
,version)))
|
||||
(install-file "hash_extender" bindir)
|
||||
(install-file "README.md" docdir)
|
||||
#t))))))
|
||||
(inputs
|
||||
(list openssl))
|
||||
(synopsis "Tool for hash length extension attacks")
|
||||
@@ -1479,16 +1456,18 @@ SHA-256, SHA-512, and WHIRLPOOL hashes.")
|
||||
(file-name (git-file-name name version))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:tests? #f ; no test suite
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-before 'configure 'set-cflags
|
||||
(lambda _
|
||||
(setenv "CFLAGS" "-O3")))
|
||||
(replace 'install
|
||||
(lambda _
|
||||
(install-file "mkp224o" (string-append #$output "/bin")))))))
|
||||
`(#:tests? #f ; no test suite
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-before 'configure 'set-cflags
|
||||
(lambda _
|
||||
(setenv "CFLAGS" "-O3")))
|
||||
(replace 'install
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let* ((outdir (assoc-ref outputs "out"))
|
||||
(bindir (string-append outdir "/bin")))
|
||||
(install-file "mkp224o" bindir)
|
||||
#t))))))
|
||||
(native-inputs
|
||||
(list autoconf))
|
||||
(inputs
|
||||
@@ -1503,7 +1482,7 @@ addresses using a brute-force method.")
|
||||
(define-public transcrypt
|
||||
(package
|
||||
(name "transcrypt")
|
||||
(version "2.3.1")
|
||||
(version "2.1.0")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -1511,20 +1490,19 @@ addresses using a brute-force method.")
|
||||
(url "https://github.com/elasticdog/transcrypt")
|
||||
(commit (string-append "v" version))))
|
||||
(sha256
|
||||
(base32 "1yp1s69wphhsaks46rfj2ann8z397jgvbbq22ikdwxcw96f49pmk"))
|
||||
(base32 "0bpz1hazbhfb6pqi68x55kq6a31bgh6vwij836slmi4jqiwvnh5a"))
|
||||
(file-name (git-file-name name version))))
|
||||
(inputs
|
||||
(list git openssl))
|
||||
(build-system copy-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:install-plan
|
||||
#~'(("transcrypt" "bin/transcrypt")
|
||||
("man/transcrypt.1" "share/man/man1/transcrypt.1")
|
||||
("contrib/bash/transcrypt"
|
||||
"share/bash-completion/completions/transcrypt")
|
||||
("contrib/zsh/_transcrypt"
|
||||
"share/zsh/site-functions/_transcrypt"))))
|
||||
`(#:install-plan
|
||||
'(("transcrypt" "bin/transcrypt")
|
||||
("man/transcrypt.1" "share/man/man1/transcrypt.1")
|
||||
("contrib/bash/transcrypt"
|
||||
"share/bash-completion/completions/transcrypt")
|
||||
("contrib/zsh/_transcrypt"
|
||||
"share/zsh/site-functions/_transcrypt"))))
|
||||
(home-page "https://github.com/elasticdog/transcrypt")
|
||||
(synopsis "Transparently encrypt files within a git repository")
|
||||
(description
|
||||
@@ -1592,7 +1570,7 @@ non-encrypted files.")
|
||||
(native-inputs
|
||||
(list pkg-config python-wrapper))
|
||||
(inputs
|
||||
(list boost-1.83 curl fuse-2 range-v3 spdlog))
|
||||
(list boost curl fuse-2 range-v3 spdlog))
|
||||
(home-page "https://www.cryfs.org/")
|
||||
(synopsis "Encrypted FUSE filesystem for the cloud")
|
||||
(description "CryFS encrypts your files, so you can safely store them anywhere.
|
||||
@@ -1606,20 +1584,19 @@ structure. However CryFS is not considered stable yet by the developers.")
|
||||
(define-public b3sum
|
||||
(package
|
||||
(name "b3sum")
|
||||
(version "1.8.2")
|
||||
(version "1.8.1")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (crate-uri "b3sum" version))
|
||||
(file-name (string-append name "-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32 "06qc6iv574km4j1ja4qhxyai680jkll58qzpz4mb79c0rk750dpd"))))
|
||||
(base32 "1zfyj3a8s1mg6w6l4j5hchrs8n5mfij92mg9m24pzxfi4da4543a"))))
|
||||
(build-system cargo-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:install-source? #f
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
`(#:install-source? #f
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-before 'check 'patch-tests
|
||||
(lambda _
|
||||
(substitute* "tests/cli_tests.rs"
|
||||
@@ -1673,7 +1650,7 @@ SunMD5, sha1crypt, NT, bsdicrypt, bigcrypt, and descrypt.")
|
||||
(define-public keychain
|
||||
(package
|
||||
(name "keychain")
|
||||
(version "2.9.6")
|
||||
(version "2.9.5")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -1682,23 +1659,21 @@ SunMD5, sha1crypt, NT, bsdicrypt, bigcrypt, and descrypt.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"0nj5rq9vzvf5g8axmicy5zfcjir7a6fr1ai4ha3cpqj4zgridga7"))))
|
||||
"1i698n0mp2wxk1yd8lhwq7i1dj5v01li1g9qi047aqc34r4079lq"))))
|
||||
(build-system gnu-build-system)
|
||||
(propagated-inputs (list procps))
|
||||
(native-inputs (list perl))
|
||||
(arguments
|
||||
(list
|
||||
#:tests? #f ; No test suite
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
(replace 'install
|
||||
(lambda _
|
||||
(install-file "keychain" (string-append #$output "/bin/"))
|
||||
(install-file "keychain.1"
|
||||
(string-append #$output "/share/man/man1")))))))
|
||||
(propagated-inputs
|
||||
(list procps))
|
||||
(native-inputs
|
||||
(list perl))
|
||||
`(#:tests? #f ; No test suite
|
||||
#:phases (modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
(replace 'install
|
||||
(lambda _
|
||||
(install-file "keychain"
|
||||
(string-append %output "/bin/"))
|
||||
(install-file "keychain.1"
|
||||
(string-append %output "/share/man/man1"))
|
||||
#t)))))
|
||||
(synopsis
|
||||
"SSH or GPG agent frontend that can share a single agent on the same
|
||||
system")
|
||||
|
||||
@@ -433,7 +433,7 @@ sugar and output formatting inspired from @code{httpie}.")
|
||||
(define-public trurl
|
||||
(package
|
||||
(name "trurl")
|
||||
(version "0.16.1")
|
||||
(version "0.9")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -442,7 +442,7 @@ sugar and output formatting inspired from @code{httpie}.")
|
||||
(commit (string-append name "-" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1zdq81smm9ddqcmvwpcm01nf812fr8p4g6i2raxv3s0rd3hi68sl"))))
|
||||
(base32 "10gsl0fdpybfcffmgf3qww7cpw3ifczl601042a2mqmwwrlx5zj7"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
@@ -452,7 +452,7 @@ sugar and output formatting inspired from @code{httpie}.")
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(delete 'configure))))
|
||||
(native-inputs (list python-minimal perl))
|
||||
(native-inputs (list python))
|
||||
(inputs (list curl))
|
||||
(home-page "https://curl.se/trurl/")
|
||||
(synopsis "Command line tool for URL parsing and manipulation")
|
||||
|
||||
@@ -5,7 +5,6 @@
|
||||
;;; Copyright © 2021 Raghav Gururajan <rg@raghavgururajan.name>
|
||||
;;; Copyright © 2025 Nicolas Graves <ngraves@ngraves.fr>
|
||||
;;; Copyright © 2025 Sharlatan Hellseher <sharlatanus@gmail.com>
|
||||
;;; Copyright © 2025 Artyom V. Poptsov <poptsov.artyom@gmail.com>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -49,7 +48,7 @@
|
||||
(define-public blacksmith
|
||||
(package
|
||||
(name "blacksmith")
|
||||
(version "0.0.2")
|
||||
(version "0.0.1")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -58,7 +57,7 @@
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"15ib0lal2sdjb4j2a4r3645w5axbd1a6j8w9f0pxr8v3ra9cjp5m"))
|
||||
"0kyp71wndf527dgza5iks5m5vj543mvxp5w7cjd8x0pilmd1xrls"))
|
||||
(modules '((guix build utils)))
|
||||
(snippet `(begin
|
||||
(delete-file-recursively "external")
|
||||
|
||||
+92
-34
@@ -61,7 +61,7 @@
|
||||
;;; Copyright © 2021, 2022 jgart <jgart@dismail.de>
|
||||
;;; Copyright © 2023, 2024 Felix Gruber <felgru@posteo.net>
|
||||
;;; Copyright © 2023 Munyoki Kilyungi <me@bonfacemunyoki.com>
|
||||
;;; Copyright © 2023, 2025 Giacomo Leidi <therewasa@fishinthecalculator.me>
|
||||
;;; Copyright © 2023, 2025 Giacomo Leidi <goodoldpaul@autistici.org>
|
||||
;;; Copyright © 2024 Troy Figiel <troy@troyfigiel.com>
|
||||
;;; Copyright © 2024 gemmaro <gemmaro.dev@gmail.com>
|
||||
;;; Copyright © 2025 Ashvith Shetty <ashvithshetty0010@zohomail.in>
|
||||
@@ -206,6 +206,39 @@
|
||||
#:use-module (srfi srfi-26)
|
||||
#:use-module (ice-9 match))
|
||||
|
||||
(define-public duckdb
|
||||
(package
|
||||
(name "duckdb")
|
||||
(version "1.3.2")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/duckdb/duckdb")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1dg3g66az17z4snxxw7cslqdkrvbx2nnyry73yi77yp0vpri1lz8"))))
|
||||
(arguments
|
||||
(list
|
||||
#:tests? #f
|
||||
#:configure-flags
|
||||
#~(list "-DBUILD_EXTENSIONS=autocomplete;icu;json;parquet;tpch;"
|
||||
;; There is no git checkout from which to read the version tag.
|
||||
(string-append "-DOVERRIDE_GIT_DESCRIBE="
|
||||
"v" #$version "-0-g0123456789"))))
|
||||
(build-system cmake-build-system)
|
||||
(home-page "https://duckdb.org")
|
||||
(synopsis "In-process SQL OLAP database management system")
|
||||
(description "CLI and C/C++ source libraries for DuckDB, a relational
|
||||
(table-oriented) @acronym{DBMS, Database Management System} that supports
|
||||
@acronym{SQL, Structured Query Language}, contains a columnar-vectorized query
|
||||
execution engine, and provides transactional @acronym{ACID, Atomicity
|
||||
Consistency Isolation and Durability} guarantees via bulk-optimized
|
||||
@acronym{MVCC, Multi-Version Concurrency Control}. Data can be stored in
|
||||
persistent, single-file databases with support for secondary indexes.")
|
||||
(license license:expat)))
|
||||
|
||||
(define-public ephemeralpg
|
||||
(package
|
||||
(name "ephemeralpg")
|
||||
@@ -3710,6 +3743,25 @@ streamlined for its use in the context of tortoise-orm. It removes support
|
||||
for many database kinds that tortoise-orm doesn't need, for example.")
|
||||
(license license:asl2.0)))
|
||||
|
||||
(define-public python-sphinxcontrib-asyncio
|
||||
(package
|
||||
(name "python-sphinxcontrib-asyncio")
|
||||
(version "0.3.0")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (pypi-uri "sphinxcontrib-asyncio" version))
|
||||
(sha256
|
||||
(base32 "0bkj010ygsr7m769llf2aq4bbjfhdwqrrabi98j8gpvyzvh2dzcr"))))
|
||||
(build-system python-build-system)
|
||||
(arguments '(#:tests? #f)) ;no test suite
|
||||
(propagated-inputs (list python-sphinx))
|
||||
(home-page "https://github.com/aio-libs/sphinxcontrib-asyncio")
|
||||
(synopsis "Sphinx extension to support coroutines in markup")
|
||||
(description "This package is a Sphinx extension providing additional
|
||||
coroutine-specific markup.")
|
||||
(license license:asl2.0)))
|
||||
|
||||
(define-public python-asyncpg
|
||||
(package
|
||||
(name "python-asyncpg")
|
||||
@@ -4597,21 +4649,31 @@ into Python.")
|
||||
(define-public python-aiosqlite
|
||||
(package
|
||||
(name "python-aiosqlite")
|
||||
(version "0.21.0")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/omnilib/aiosqlite")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1njzxi130bbix53wl0gcsvryk1b2cazq0s2701jbkf6nvr3ywpyy"))))
|
||||
(version "0.18.0")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/omnilib/aiosqlite")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"1a8sggh1wwbpl46k5qcfmp97s9hjysna0x7mwwc53kyfm0m95wf8"))))
|
||||
(build-system pyproject-build-system)
|
||||
(arguments (list #:test-backend #~'unittest))
|
||||
(native-inputs (list python-flit-core))
|
||||
(arguments
|
||||
(list #:phases #~(modify-phases %standard-phases
|
||||
(replace 'check
|
||||
(lambda* (#:key tests? #:allow-other-keys)
|
||||
(when tests?
|
||||
(invoke "python" "-m" "coverage" "run" "-m"
|
||||
"aiosqlite.tests")
|
||||
(invoke "python" "-m" "coverage" "report")))))))
|
||||
(native-inputs (list python-flit-core
|
||||
python-coverage
|
||||
python-mypy))
|
||||
(home-page "https://github.com/jreese/aiosqlite")
|
||||
(synopsis "Asyncio bridge for sqlite3")
|
||||
(synopsis
|
||||
"Asyncio bridge for sqlite3")
|
||||
(description
|
||||
"The package aiosqlite replicates the standard sqlite3 module, but with
|
||||
async versions of all the standard connection and cursor methods, and context
|
||||
@@ -5116,13 +5178,13 @@ provides support for parsing, splitting and formatting SQL statements.")
|
||||
(define-public python-sql
|
||||
(package
|
||||
(name "python-sql")
|
||||
(version "1.7.0")
|
||||
(version "1.6.0")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (pypi-uri "python_sql" version))
|
||||
(sha256
|
||||
(base32 "09niqspjmsn9wyqadgqjcrsxxa7w4r6dcp21xhi1mimr4ya0p5ky"))))
|
||||
(base32 "0v637qc2g8w155k7crlg70w4bfxznn28c94prlxcax5dx0ja2d2v"))))
|
||||
(build-system pyproject-build-system)
|
||||
(native-inputs (list python-pytest python-setuptools))
|
||||
(home-page "https://python-sql.tryton.org/")
|
||||
@@ -5134,21 +5196,19 @@ transforms idiomatic python function calls to well-formed SQL queries.")
|
||||
(define-public python-pypika
|
||||
(package
|
||||
(name "python-pypika")
|
||||
(version "0.49.0")
|
||||
(version "0.47.6")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/kayak/pypika")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0nxm2cxq9sx43g57qxw7kzy8lsl5svq659r3mhxpa9vcbxrjrb1d"))))
|
||||
(build-system pyproject-build-system)
|
||||
(origin (method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/kayak/pypika")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"001pg36sw9a36zdd1kccbymcxndphjcjbbrsy6ri7ng8h4dgz549"))))
|
||||
(build-system python-build-system)
|
||||
(native-inputs
|
||||
(list python-parameterized
|
||||
python-pytest
|
||||
python-setuptools))
|
||||
(list python-parameterized))
|
||||
(home-page "https://github.com/kayak/pypika")
|
||||
(synopsis "SQL query builder API for Python")
|
||||
(description
|
||||
@@ -5173,8 +5233,6 @@ the SQL language using a syntax that reflects the resulting query.")
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
(list
|
||||
;; XXX: Some tests fail on i686, run on 64bit only for now.
|
||||
#:tests? (target-64bit?)
|
||||
#:build-type "Release"
|
||||
#:configure-flags
|
||||
#~(list "-DBUILD_JAVA=OFF"
|
||||
@@ -5247,7 +5305,7 @@ with integrated support for finding required rows quickly.")
|
||||
(define-public apache-arrow
|
||||
(package
|
||||
(name "apache-arrow")
|
||||
(version "22.0.0")
|
||||
(version "21.0.0")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -5257,7 +5315,7 @@ with integrated support for finding required rows quickly.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"09ra9p2majsczjq6ygcz2jqafdryvrzahxsbflfqp2z8invsd14b"))))
|
||||
"0lxywrjfwhiznsldpv5bd6g357za5ng64jvy943kp0ndckh5l4g9"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
(list
|
||||
@@ -5929,7 +5987,7 @@ a Gtk.Grid Widget.")
|
||||
"-DFORCE_INTERNAL_QHEXEDIT=OFF"
|
||||
"-DENABLE_TESTING=ON")))
|
||||
(inputs
|
||||
(list qcustomplot-qt5
|
||||
(list qcustomplot
|
||||
qhexedit
|
||||
qscintilla
|
||||
qtbase-5
|
||||
|
||||
+35
-30
@@ -65,22 +65,23 @@
|
||||
(("AC_DEFINE\\(HAVE_SYSTEM_INCLUDE_FILES\\)")
|
||||
"AC_DEFINE(HAVE_SYSTEM_INCLUDE_FILES, [], [Description])"))))
|
||||
|
||||
(define-public bdb-5.3
|
||||
(define-public bdb-4.8
|
||||
(package
|
||||
(name "bdb")
|
||||
(version "5.3.28")
|
||||
(version "4.8.30")
|
||||
(license (license:non-copyleft "file://LICENSE"
|
||||
"See LICENSE in the distribution."))
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://download.oracle.com/berkeley-db/db-"
|
||||
version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"0a1n5hbl7027fbz5lm0vp0zzfp1hmxnz14wx3zl9563h83br5ag0"))
|
||||
(patch-flags '("-p0"))
|
||||
(patches (search-patches "bdb-5.3-atomics-on-gcc-9.patch"))
|
||||
(modules '((guix build utils)
|
||||
(srfi srfi-1)))
|
||||
(snippet bdb-snippet)))
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://download.oracle.com/berkeley-db/db-"
|
||||
version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"0ampbl2f0hb1nix195kz1syrqqxpmvnvnfvphambj7xjrl3iljg0"))
|
||||
(patches (search-patches "bdb-5.3-atomics-on-gcc-9.patch"))
|
||||
(modules '((guix build utils)
|
||||
(srfi srfi-1)))
|
||||
(snippet bdb-snippet)))
|
||||
(build-system gnu-build-system)
|
||||
(outputs '("out" ; programs, libraries, headers
|
||||
"doc")) ; 94 MiB of HTML docs
|
||||
@@ -152,29 +153,40 @@
|
||||
(description
|
||||
"Berkeley DB is an embeddable database allowing developers the choice of
|
||||
SQL, Key/Value, XML/XQuery or Java Object storage for their data model.")
|
||||
;; Starting with version 6, BDB is distributed under AGPL3. Many individual
|
||||
;; files are covered by the 3-clause BSD license.
|
||||
(home-page
|
||||
"http://www.oracle.com/us/products/database/berkeley-db/overview/index.html")
|
||||
(license (license:non-copyleft "file://LICENSE"
|
||||
"See LICENSE in the distribution."))))
|
||||
"http://www.oracle.com/us/products/database/berkeley-db/overview/index.html")))
|
||||
|
||||
(define-public bdb-5.3
|
||||
(package (inherit bdb-4.8)
|
||||
(name "bdb")
|
||||
(version "5.3.28")
|
||||
(source (origin
|
||||
(inherit (package-source bdb-4.8))
|
||||
(uri (string-append "https://download.oracle.com/berkeley-db/db-"
|
||||
version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"0a1n5hbl7027fbz5lm0vp0zzfp1hmxnz14wx3zl9563h83br5ag0"))
|
||||
(patch-flags '("-p0"))
|
||||
(patches (search-patches "bdb-5.3-atomics-on-gcc-9.patch"))))))
|
||||
|
||||
(define-public bdb-6
|
||||
(package
|
||||
(package (inherit bdb-4.8)
|
||||
(name "bdb")
|
||||
(version "6.2.32")
|
||||
(source (origin
|
||||
(inherit (package-source bdb-4.8))
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://download.oracle.com/berkeley-db/db-"
|
||||
version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"1yx8wzhch5wwh016nh0kfxvknjkafv6ybkqh6nh7lxx50jqf5id9"))
|
||||
(modules '((guix build utils)
|
||||
(srfi srfi-1)))
|
||||
(snippet bdb-snippet)))
|
||||
;; Copy-paste the arguments from bdb-5.3 and drop the
|
||||
(patches '())))
|
||||
;; Copy-paste the arguments from bdb-4.8 and drop the
|
||||
;; 'bdb-configure patch phase.
|
||||
(build-system gnu-build-system)
|
||||
(outputs '("out" "doc"))
|
||||
(arguments
|
||||
(list #:tests? #f ; no check target available
|
||||
#:disallowed-references '("doc")
|
||||
@@ -227,13 +239,6 @@ SQL, Key/Value, XML/XQuery or Java Object storage for their data model.")
|
||||
(("rm (.*) configure") "")
|
||||
(("chmod (.*) config.guess(.*)$") ""))
|
||||
(invoke "sh" "s_config"))))))
|
||||
(native-inputs (list autoconf automake-1.16.5 libtool))
|
||||
(synopsis "Berkeley database")
|
||||
(description
|
||||
"Berkeley DB is an embeddable database allowing developers the choice of
|
||||
SQL, Key/Value, XML/XQuery or Java Object storage for their data model.")
|
||||
(home-page
|
||||
"http://www.oracle.com/us/products/database/berkeley-db/overview/index.html")
|
||||
;; Starting with version 6, BDB is distributed under AGPL3. Many individual
|
||||
;; files are covered by the 3-clause BSD license.
|
||||
(license (list license:agpl3+ license:bsd-3))))
|
||||
|
||||
+6
-135
@@ -529,88 +529,11 @@ server and embedded PowerPC, and S390 guests.")
|
||||
;; Several tests fail on MIPS.
|
||||
(supported-systems (delete "mips64el-linux" %supported-systems))))))
|
||||
|
||||
(define-public qemu-for-aflplusplus
|
||||
(let ((base qemu-minimal)
|
||||
(commit "790d2124fd054621d3c0d3ec31bea114b60601f9")
|
||||
(revision "0"))
|
||||
(hidden-package
|
||||
(package
|
||||
(inherit base)
|
||||
(name "qemu")
|
||||
(version (git-version "5.2.50" revision commit))
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference (url "https://github.com/AFLplusplus/qemuafl")
|
||||
(commit commit)
|
||||
(recursive? #t)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1l2kl8768l4mbkiaj63zn6gsdn3qpl3rg7s6h62rmd7599ar3xn3"))))
|
||||
(arguments
|
||||
(substitute-keyword-arguments (package-arguments base)
|
||||
((#:configure-flags _ #~'())
|
||||
#~(list (string-append
|
||||
"--target-list="
|
||||
;; AFL++ only supports using a single afl-qemu-trace,
|
||||
;; so we only build qemu for the native target.
|
||||
(match #$(let-system system system)
|
||||
("aarch64-linux" "aarch64-linux-user")
|
||||
("armhf-linux" "arm-linux-user")
|
||||
("i686-linux" "i386-linux-user")
|
||||
("mips64el-linux" "mips64el-linux-user")
|
||||
("powerpc-linux" "ppc-linux-user")
|
||||
("riscv64-linux" "riscv64-linux-user")
|
||||
("x86_64-linux" "x86_64-linux-user")))))
|
||||
((#:phases phases)
|
||||
#~(modify-phases #$phases
|
||||
(delete 'replace-firmwares)
|
||||
(delete 'patch-embedded-shebangs)
|
||||
(delete 'fix-optionrom-makefile)
|
||||
(delete 'disable-unusable-tests)
|
||||
(replace 'configure
|
||||
(lambda* (#:key configure-flags #:allow-other-keys)
|
||||
;; The `configure' script doesn't understand some of the
|
||||
;; GNU options. Thus, add a new phase that's compatible.
|
||||
(setenv "SHELL" (which "bash"))
|
||||
;; The binaries need to be linked against -lrt.
|
||||
(setenv "LDFLAGS" "-lrt")
|
||||
(apply invoke
|
||||
"./configure"
|
||||
(string-append "--cc=" #$(cc-for-target))
|
||||
;; Some architectures insist on using HOST_CC
|
||||
(string-append "--host-cc=" #$(cc-for-target))
|
||||
"--disable-debug-info" ; save build space
|
||||
(string-append "--prefix=" #$output)
|
||||
(string-append "--sysconfdir=/etc")
|
||||
configure-flags)))
|
||||
(add-after 'install 'install-qasan-header
|
||||
(lambda _
|
||||
(install-file "qemuafl/qasan.h"
|
||||
(string-append #$output "/include"))))
|
||||
(delete 'delete-firmwares)
|
||||
#$@(if (target-riscv64?)
|
||||
'((replace 'disable-some-tests
|
||||
(lambda _
|
||||
;; qemu.qmp.QMPConnectError:
|
||||
;; Unexpected empty reply from server
|
||||
(delete-file "tests/qemu-iotests/040")
|
||||
(delete-file "tests/qemu-iotests/041")
|
||||
(delete-file "tests/qemu-iotests/256")
|
||||
;; No 'PCI' bus found for device 'virtio-scsi-pci'
|
||||
(delete-file "tests/qemu-iotests/127")
|
||||
(delete-file "tests/qemu-iotests/267"))))
|
||||
'())))))
|
||||
(inputs (modify-inputs (package-inputs base)
|
||||
(delete "dtc")))
|
||||
(home-page "https://github.com/AFLplusplus/qemuafl")
|
||||
(synopsis "QEMU for AFL++")))))
|
||||
|
||||
(define-public aflplusplus
|
||||
(package
|
||||
(inherit american-fuzzy-lop)
|
||||
(name "aflplusplus")
|
||||
(version "4.34c")
|
||||
(version "4.33c")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -619,7 +542,7 @@ server and embedded PowerPC, and S390 guests.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"14pllv986zwzbqarbsif02k618yns4fvqd3br6irzfcwivpysqfa"))))
|
||||
"1h4ya82s1wd11c04r0g0wsq56asl1np3nmsf6yk4vyic9nm0hsq0"))))
|
||||
(arguments
|
||||
(substitute-keyword-arguments (package-arguments american-fuzzy-lop)
|
||||
((#:make-flags _ ''())
|
||||
@@ -627,47 +550,9 @@ server and embedded PowerPC, and S390 guests.")
|
||||
(string-append "DOC_PATH=" #$output "/share/doc/"
|
||||
#$(package-name this-package) "-"
|
||||
#$(package-version this-package))
|
||||
(string-append "CC=" #$(cc-for-target))
|
||||
(string-append "CXX=" #$(cxx-for-target))
|
||||
(string-append "LLVM_CONFIG="
|
||||
(search-input-file %build-inputs "/bin/llvm-config"))
|
||||
;; Need to use LLD with the llvm_mode, because LTO in
|
||||
;; combination with binutils gold is currently broken.
|
||||
;;
|
||||
;; See: https://codeberg.org/guix/guix/issues/3307
|
||||
(string-append "AFL_REAL_LD="
|
||||
(search-input-file %build-inputs "/bin/ld.lld"))
|
||||
(string-append "CLANG_BIN="
|
||||
(search-input-file %build-inputs "/bin/clang"))
|
||||
(string-append "CLANGPP_BIN="
|
||||
(search-input-file %build-inputs "/bin/clang++"))
|
||||
"LLVM_LTO=1"
|
||||
"AFL_CLANG_FLTO=-flto=full"))
|
||||
(string-append "CC=" #$(cc-for-target))))
|
||||
((#:phases phases '%standard-phases)
|
||||
#~(modify-phases #$phases
|
||||
;; Ensure that the build fails early if LLVM support fails to
|
||||
;; compile, makes the build log much easier to understand.
|
||||
(add-after 'unpack 'fatal-llvm-failure
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(substitute* "GNUmakefile"
|
||||
(("-\\$\\(MAKE\\) ..* -f GNUmakefile.llvm$" all)
|
||||
(substring all 1))))) ; remove the leading '-'
|
||||
;; GNUmakefile.llvm tries to find clang/clang++ relative to the
|
||||
;; --bindir reported by llvm-config, but since llvm and clang
|
||||
;; have different store paths on Guix, this doesn't work here.
|
||||
(add-after 'unpack 'patch-clang-path
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(substitute* "GNUmakefile.llvm"
|
||||
(("^CC *= .*$")
|
||||
(string-append
|
||||
"override CC = "
|
||||
(search-input-file inputs "/bin/clang")
|
||||
"\n"))
|
||||
(("^CXX *= .*$")
|
||||
(string-append
|
||||
"override CXX = "
|
||||
(search-input-file inputs "/bin/clang++")
|
||||
"\n")))))
|
||||
;; For GCC plugins.
|
||||
(add-after 'unpack 'patch-gcc-path
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
@@ -677,25 +562,11 @@ server and embedded PowerPC, and S390 guests.")
|
||||
(search-input-file inputs "bin/gcc")))
|
||||
(("alt_cxx = \"g\\+\\+\";")
|
||||
(format #f "alt_cxx = \"~a\";"
|
||||
(search-input-file inputs "bin/g++"))))))
|
||||
(add-after 'build 'build-qasan
|
||||
(lambda* (#:key parallel-build? make-flags #:allow-other-keys)
|
||||
(apply invoke "make" "-C" "qemu_mode/libqasan"
|
||||
"-j" (number->string (if parallel-build?
|
||||
(parallel-job-count)
|
||||
"1"))
|
||||
make-flags)))
|
||||
;; afl-qemu-trace is a symbolic link to QEMU's binary.
|
||||
;; Substituting its source code with AFL++'s output path
|
||||
;; would result in a dependency cycle.
|
||||
(add-after 'install-qemu 'wrap-qemu
|
||||
(lambda _
|
||||
(wrap-program (string-append #$output "/bin/afl-qemu-trace")
|
||||
`("AFL_PATH" = (,(string-append #$output "/lib/afl"))))))))))
|
||||
(search-input-file inputs "bin/g++"))))))))))
|
||||
;; According to the Dockerfile, GCC 12 is producing compile errors for some
|
||||
;; targets, so explicitly use GCC 11 here.
|
||||
(inputs (list llvm-20 clang-20 lld-20 gcc gmp python qemu-for-aflplusplus))
|
||||
(native-inputs (list gcc))
|
||||
(inputs (list gcc-11 gmp python qemu))
|
||||
(native-inputs (list gcc-11))
|
||||
(home-page "https://aflplus.plus/")
|
||||
(description
|
||||
"AFLplusplus is a security-oriented fuzzer that employs a novel type of
|
||||
|
||||
@@ -35,14 +35,14 @@
|
||||
(define-public dezyne
|
||||
(package
|
||||
(name "dezyne")
|
||||
(version "2.19.2")
|
||||
(version "2.19.1")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://dezyne.org/download/dezyne/"
|
||||
name "-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32 "142ng6aq7lcp0jk16yajf2bpm03db9q1wbxs5igwnvszy6aqq243"))))
|
||||
(base32 "17gpzmkafql2d3kj2yx293hgrh3l6zhjk63wcirqr7xsxjhava5n"))))
|
||||
(inputs (list bash-minimal
|
||||
boost
|
||||
guile-3.0
|
||||
|
||||
@@ -14,7 +14,6 @@
|
||||
;;; Copyright © 2022 Maxim Cournoyer <maxim@guixotic.coop>
|
||||
;;; Copyright © 2025 Artyom V. Poptsov <poptsov.artyom@gmail.com>
|
||||
;;; Copyright © 2025 Zhu Zihao <all_but_last@163.com>
|
||||
;;; Copyright © 2025 Nigko Yerden <nigko.yerden@gmail.com>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -37,13 +36,12 @@
|
||||
#:use-module (guix gexp)
|
||||
#:use-module (guix download)
|
||||
#:use-module (guix git-download)
|
||||
#:use-module (guix build-system cmake)
|
||||
#:use-module (guix build-system copy)
|
||||
#:use-module (guix build-system gnu)
|
||||
#:use-module (guix build-system pyproject)
|
||||
#:use-module (guix build-system python)
|
||||
#:use-module (guix build-system qt)
|
||||
#:use-module (guix build-system trivial)
|
||||
#:use-module (guix build-system copy)
|
||||
#:use-module (guix build-system cmake)
|
||||
#:use-module (gnu packages)
|
||||
#:use-module (gnu packages autotools)
|
||||
#:use-module (gnu packages base)
|
||||
@@ -51,10 +49,8 @@
|
||||
#:use-module (gnu packages bison)
|
||||
#:use-module (gnu packages check)
|
||||
#:use-module (gnu packages compression)
|
||||
#:use-module (gnu packages cpp)
|
||||
#:use-module (gnu packages crypto)
|
||||
#:use-module (gnu packages curl)
|
||||
#:use-module (gnu packages education)
|
||||
#:use-module (gnu packages emacs)
|
||||
#:use-module (gnu packages flex)
|
||||
#:use-module (gnu packages fribidi)
|
||||
@@ -63,7 +59,6 @@
|
||||
#:use-module (gnu packages groff)
|
||||
#:use-module (gnu packages gsasl)
|
||||
#:use-module (gnu packages guile)
|
||||
#:use-module (gnu packages hunspell)
|
||||
#:use-module (gnu packages icu4c)
|
||||
#:use-module (gnu packages linux)
|
||||
#:use-module (gnu packages m4)
|
||||
@@ -71,22 +66,16 @@
|
||||
#:use-module (gnu packages pcre)
|
||||
#:use-module (gnu packages perl)
|
||||
#:use-module (gnu packages pkg-config)
|
||||
#:use-module (gnu packages pretty-print)
|
||||
#:use-module (gnu packages python)
|
||||
#:use-module (gnu packages python-build)
|
||||
#:use-module (gnu packages qt)
|
||||
#:use-module (gnu packages readline)
|
||||
#:use-module (gnu packages search)
|
||||
#:use-module (gnu packages speech)
|
||||
#:use-module (gnu packages tcl)
|
||||
#:use-module (gnu packages texinfo)
|
||||
#:use-module (gnu packages textutils)
|
||||
#:use-module (gnu packages video)
|
||||
#:use-module (gnu packages web)
|
||||
#:use-module (gnu packages wordnet)
|
||||
#:use-module (gnu packages xiph)
|
||||
#:use-module (gnu packages xml)
|
||||
#:use-module (gnu packages xorg))
|
||||
#:use-module (gnu packages xml))
|
||||
|
||||
(define-public cmudict
|
||||
(package
|
||||
@@ -836,68 +825,3 @@ Guix package is installed.")
|
||||
"This package provides a versioned python wrapper package for The CMU
|
||||
Pronouncing Dictionary data files.")
|
||||
(license license:gpl3+)))
|
||||
|
||||
(define-public goldendict-ng
|
||||
(let ((commit "2cfc27361d061103a164705e7f85dbdf6cd6056f")
|
||||
(revision "0"))
|
||||
(package
|
||||
(name "goldendict-ng")
|
||||
(version (git-version "25.10.0" revision commit))
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/xiaoyifang/goldendict-ng")
|
||||
(commit commit)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0r3aykiwg1jxam72mn1yrgmndnbf0r6nz5l1brqyqbr4wq3ir0p2"))
|
||||
(modules '((guix build utils)))
|
||||
(snippet #~(for-each delete-file-recursively
|
||||
(list "thirdparty/eb"
|
||||
"thirdparty/fmt"
|
||||
"thirdparty/tomlplusplus")))))
|
||||
(build-system qt-build-system)
|
||||
(arguments
|
||||
(list #:qtbase qtbase
|
||||
#:configure-flags
|
||||
#~(list
|
||||
;; use system fmt and toml++ instead of the bundled ones
|
||||
"-DUSE_SYSTEM_FMT=ON"
|
||||
"-DUSE_SYSTEM_TOML=ON")
|
||||
;; no tests
|
||||
#:tests? #f))
|
||||
(native-inputs (list pkg-config qttools))
|
||||
(inputs (list `(,zstd "lib")
|
||||
bzip2
|
||||
ffmpeg
|
||||
fmt
|
||||
hunspell
|
||||
icu4c
|
||||
libeb
|
||||
libvorbis
|
||||
libx11
|
||||
libxtst
|
||||
libzim
|
||||
lzo
|
||||
opencc
|
||||
qt5compat
|
||||
qtmultimedia
|
||||
qtsvg
|
||||
qtwebchannel
|
||||
qtwebengine
|
||||
tomlplusplus
|
||||
xapian
|
||||
xz
|
||||
zlib))
|
||||
(synopsis "Advanced dictionary lookup program")
|
||||
(description "GoldenDict-ng is an advanced dictionary lookup program
|
||||
that supports many dictionary formats, such as MDX, DSL, StarDict, Zim, etc.,
|
||||
as well as special types of \"dictionaries\", such as external program,
|
||||
website, audio files. Among ather features are full text search,
|
||||
Anki integration, transliteration for some languages, word stemming and
|
||||
spelling correction via Hunspell's morphology analysis, unicode case,
|
||||
diacritics, punctuation and whitespace folding. It is forked from the
|
||||
original GoldenDict which was developed at http://goldendict.org/.")
|
||||
(home-page "https://xiaoyifang.github.io/goldendict-ng/")
|
||||
(license license:gpl3+))))
|
||||
|
||||
@@ -79,7 +79,7 @@
|
||||
(define-public diffoscope
|
||||
(package
|
||||
(name "diffoscope")
|
||||
(version "308")
|
||||
(version "307")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -88,7 +88,7 @@
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0g4kac0r2plhcl3drpihp2z99yfqlz36xvvfr4v6sn49zj103kny"))))
|
||||
(base32 "0iclf59z01w4g569ksgn607ca61m2lm8znal00akysz76nkbnzxf"))))
|
||||
(build-system pyproject-build-system)
|
||||
(arguments
|
||||
(list
|
||||
@@ -268,7 +268,7 @@ install.")
|
||||
(define-public reprotest
|
||||
(package
|
||||
(name "reprotest")
|
||||
(version "0.7.32")
|
||||
(version "0.7.30")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -277,7 +277,7 @@ install.")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0z67291rv9ii3llv2hwz9ak99818fwkxcqibb5zk8qkamh4y2bww"))))
|
||||
(base32 "013mqbbh6dcia2i4qdi4270lcgzr0k879phsaydf9b5ng9fkdajl"))))
|
||||
(build-system pyproject-build-system)
|
||||
(arguments
|
||||
(list
|
||||
@@ -361,8 +361,7 @@ them in detail for later analysis.")
|
||||
(base32
|
||||
"0k698g4fws63rnav4pvfsf1hfds867xan59mmv5zw71r58lm6cxb"))))
|
||||
(arguments
|
||||
(list #:tests? #f
|
||||
#:phases
|
||||
(list #:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'install 'install-doc
|
||||
(lambda _
|
||||
|
||||
+18
-19
@@ -80,7 +80,6 @@
|
||||
#:use-module (gnu packages crypto)
|
||||
#:use-module (gnu packages cryptsetup)
|
||||
#:use-module (gnu packages databases)
|
||||
#:use-module (gnu packages digest)
|
||||
#:use-module (gnu packages docbook)
|
||||
#:use-module (gnu packages documentation)
|
||||
#:use-module (gnu packages elf)
|
||||
@@ -100,7 +99,6 @@
|
||||
#:use-module (gnu packages hurd)
|
||||
#:use-module (gnu packages image)
|
||||
#:use-module (gnu packages imagemagick)
|
||||
#:use-module (gnu packages libbsd)
|
||||
#:use-module (gnu packages linux)
|
||||
#:use-module (gnu packages ncurses)
|
||||
#:use-module (gnu packages ninja)
|
||||
@@ -858,19 +856,20 @@ and can dramatically shorten the lifespan of the drive if left unchecked.")
|
||||
(build-system python-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:tests? #f ;XXX: root access is required, see: <scripts/tests/test.sh>
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-before 'build 'setuptools-version
|
||||
(lambda _
|
||||
(setenv "SETUPTOOLS_SCM_PRETEND_VERSION" #$version)))
|
||||
(setenv "SETUPTOOLS_SCM_PRETEND_VERSION" "1.8")))
|
||||
(add-after 'install 'install-udev-rules
|
||||
(lambda _
|
||||
(install-file "scripts/49-greaseweazle.rules"
|
||||
(string-append #$output "/lib/udev/rules.d/")))))))
|
||||
(native-inputs
|
||||
(list python-setuptools
|
||||
python-setuptools-scm))
|
||||
(list
|
||||
python-setuptools
|
||||
python-setuptools-scm
|
||||
python-wheel))
|
||||
(propagated-inputs
|
||||
(list python-bitarray python-crcmod python-pyserial python-requests))
|
||||
(synopsis "Tools for accessing a floppy drive at the raw flux level")
|
||||
@@ -1059,7 +1058,7 @@ a card with a smaller capacity than stated.")
|
||||
(define-public duperemove
|
||||
(package
|
||||
(name "duperemove")
|
||||
(version "0.15.2")
|
||||
(version "0.14.1")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -1067,25 +1066,25 @@ a card with a smaller capacity than stated.")
|
||||
(url "https://github.com/markfasheh/duperemove")
|
||||
(commit (string-append "v" version))))
|
||||
(sha256
|
||||
(base32 "0dsjw7nqflxapsb1fkxbqncqzq6aa8dxklc5igcvfv5mmsmchwb3"))
|
||||
(base32 "0kl6bisbgf6x8a6gws6r097zrawhp9jxwh7m6nhq7dd48b8zrjw8"))
|
||||
(file-name (git-file-name name version))))
|
||||
(build-system gnu-build-system)
|
||||
(native-inputs (list xxhash libbsd pkg-config))
|
||||
(inputs (list glib sqlite))
|
||||
(native-inputs
|
||||
(list pkg-config))
|
||||
(inputs
|
||||
(list glib sqlite))
|
||||
(arguments
|
||||
`(#:tests? #f ;no test suite
|
||||
#:phases (modify-phases %standard-phases
|
||||
(delete 'configure)) ;no configure script
|
||||
`(#:tests? #f ; no test suite
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(delete 'configure)) ; no configure script
|
||||
#:make-flags (list (string-append "PREFIX=" %output)
|
||||
(string-append "CC="
|
||||
,(cc-for-target))
|
||||
(string-append "CC=" ,(cc-for-target))
|
||||
;; Set to <next release>dev by default.
|
||||
(string-append "VER="
|
||||
,version))))
|
||||
(string-append "VER=" ,version))))
|
||||
(home-page "https://github.com/markfasheh/duperemove")
|
||||
(synopsis "Tools for de-duplicating file system data")
|
||||
(description
|
||||
"Duperemove is a simple tool for finding duplicated extents
|
||||
(description "Duperemove is a simple tool for finding duplicated extents
|
||||
and submitting them for deduplication. When given a list of files it will
|
||||
hash their contents on a block by block basis and compare those hashes to each
|
||||
other, finding and categorizing blocks that match each other. When given the
|
||||
|
||||
@@ -51,7 +51,7 @@
|
||||
(define-public boinc-client
|
||||
(package
|
||||
(name "boinc-client")
|
||||
(version "8.2.8")
|
||||
(version "8.2.4")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -62,7 +62,7 @@
|
||||
(file-name (git-file-name "boinc" version))
|
||||
(sha256
|
||||
(base32
|
||||
"1ppcf57p6dkv9dv5k90fj3xhbv9di2d3yjkg2flfv5d45s82lay8"))))
|
||||
"03xcyrnnbm6201apvvrl8ysq7gn3yn96slm9znsymw0cnf3j85jm"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
|
||||
@@ -644,7 +644,8 @@ useful tools for testing Django applications and projects.")
|
||||
(list python-django python-packaging))
|
||||
;; (inputs (list gdal)) ; it's optional, tests fail when provided
|
||||
(native-inputs
|
||||
(list python-dateutil
|
||||
(list python-coverage
|
||||
python-dateutil
|
||||
python-geopy
|
||||
python-pysolr
|
||||
python-requests
|
||||
|
||||
+93
-97
@@ -28,7 +28,6 @@
|
||||
#:use-module (guix gexp)
|
||||
#:use-module (guix git-download)
|
||||
#:use-module (guix build-system gnu)
|
||||
#:use-module (guix build-system pyproject)
|
||||
#:use-module (guix build-system python)
|
||||
#:use-module (gnu packages autotools)
|
||||
#:use-module (gnu packages base)
|
||||
@@ -48,8 +47,6 @@
|
||||
#:use-module (gnu packages pdf)
|
||||
#:use-module (gnu packages pkg-config)
|
||||
#:use-module (gnu packages python)
|
||||
#:use-module (gnu packages python-build)
|
||||
#:use-module (gnu packages python-check)
|
||||
#:use-module (gnu packages python-web)
|
||||
#:use-module (gnu packages python-xyz)
|
||||
#:use-module (gnu packages qt)
|
||||
@@ -300,45 +297,45 @@ and white.")
|
||||
(package
|
||||
(name "didjvu")
|
||||
(version (git-version "0.10.2" revision commit))
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/FriedrichFroebel/didjvu")
|
||||
(commit commit)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0ippf3hsjy13xj6pqnqr30dz8lsncsfcan2r1vbxfk1g602m3p4c"))))
|
||||
(build-system pyproject-build-system)
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/FriedrichFroebel/didjvu")
|
||||
(commit commit)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"0ippf3hsjy13xj6pqnqr30dz8lsncsfcan2r1vbxfk1g602m3p4c"))))
|
||||
(build-system python-build-system)
|
||||
(arguments
|
||||
(list
|
||||
;; FIXME: Tests fail because they try to load the libxmp and pyexiv2
|
||||
;; modules that should not be enabled, as we only enable the gexiv2
|
||||
;; module.
|
||||
#:tests? #f
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
(add-before 'check 'disable-failing-test
|
||||
(lambda _
|
||||
(substitute* "tests/test_ipc.py"
|
||||
;; test_wait_signal gets stuck forever
|
||||
(("self\\._test_signal\\(name\\)")
|
||||
"return True")
|
||||
;; test_path fails to find a file it should have created
|
||||
(("path = os\\.getenv\\('PATH'\\)")
|
||||
"return True"))
|
||||
(substitute* "tests/test_timestamp.py"
|
||||
;; test_timezones fails with:
|
||||
;; '2009-12-18T21:25:14Z' != '2009-12-18T22:25:14+01:00'
|
||||
(("samples = \\[" all)
|
||||
(string-append "return True\n " all)))))
|
||||
(add-after 'wrap 'wrap-path
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(wrap-program (string-append #$output "/bin/didjvu")
|
||||
`("PATH" ":" prefix
|
||||
(,(dirname (search-input-file inputs "bin/ddjvu"))))))))))
|
||||
(native-inputs (list python-setuptools))
|
||||
`(;; FIXME: Tests fail because they try to load the libxmp and pyexiv2
|
||||
;; modules that should not be enabled, as we only enable the gexiv2
|
||||
;; module.
|
||||
#:tests? #f
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
(add-before 'check 'disable-failing-test
|
||||
(lambda _
|
||||
(substitute* "tests/test_ipc.py"
|
||||
;; test_wait_signal gets stuck forever
|
||||
(("self\\._test_signal\\(name\\)")
|
||||
"return True")
|
||||
;; test_path fails to find a file it should have created
|
||||
(("path = os\\.getenv\\('PATH'\\)")
|
||||
"return True"))
|
||||
(substitute* "tests/test_timestamp.py"
|
||||
;; test_timezones fails with:
|
||||
;; '2009-12-18T21:25:14Z' != '2009-12-18T22:25:14+01:00'
|
||||
(("samples = \\[" all)
|
||||
(string-append "return True\n " all)))))
|
||||
(add-after 'install 'wrap-path
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
(let ((out (assoc-ref outputs "out"))
|
||||
(djvulibre (assoc-ref inputs "djvulibre")))
|
||||
(wrap-program (string-append out "/bin/didjvu")
|
||||
`("PATH" ":" prefix (,(string-append djvulibre "/bin"))))))))))
|
||||
(native-inputs (list python-nose))
|
||||
(inputs
|
||||
(list bash-minimal
|
||||
djvulibre
|
||||
@@ -374,63 +371,8 @@ and background layers of images, which can then be encoded into a DjVu file.")
|
||||
(base32
|
||||
"0x64hg9ysrk8sismxb4jgk0sq7r9j90v2i9765xhmxpiy6f0lpni"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:modules '((guix build gnu-build-system)
|
||||
((guix build pyproject-build-system) #:prefix python:)
|
||||
(guix build utils))
|
||||
#:imported-modules `(,@%default-gnu-imported-modules
|
||||
,@%pyproject-build-system-modules)
|
||||
#:test-target "test"
|
||||
#:phases
|
||||
(with-extensions (list (pyproject-guile-json))
|
||||
#~(modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
(add-after 'unpack 'fix-for-python-3.11
|
||||
(lambda _
|
||||
(substitute* "lib/cli/ocrodjvu.py"
|
||||
;; The getargspec function has been removed in python 3.11.
|
||||
(("init_args, _, _, _ = inspect.getargspec\\(cls.__init__\\)")
|
||||
"init_args = inspect.getfullargspec(cls.__init__).args"))))
|
||||
(add-before 'check 'disable-failing-test
|
||||
(lambda _
|
||||
(substitute* "tests/test_ipc.py"
|
||||
;; test_wait_signal gets stuck forever
|
||||
(("yield self\\._test_signal, name")
|
||||
"return True")
|
||||
;; test_path fails to find a file it should have created
|
||||
(("path = os\\.getenv\\('PATH'\\)\\.split\\(':'\\)")
|
||||
"return True"))
|
||||
;; Disable tests with tesseract. They can't work without
|
||||
;; the language files that must downloaded by the final user
|
||||
;; as they are not packaged in Guix.
|
||||
(substitute* "tests/ocrodjvu/test.py"
|
||||
(("engines = stdout\\.getvalue\\(\\)\\.splitlines\\(\\)")
|
||||
"engines = ['ocrad']"))
|
||||
(substitute* "tests/ocrodjvu/test_integration.py"
|
||||
(("engines = 'tesseract', 'cuneiform', 'gocr', 'ocrad'")
|
||||
"engines = 'ocrad'"))))
|
||||
(replace 'install
|
||||
(lambda _
|
||||
(invoke "make" "install"
|
||||
"DESTDIR=" (string-append "PREFIX=" #$output))))
|
||||
(add-after 'install 'wrap-python
|
||||
(assoc-ref python:%standard-phases 'wrap))
|
||||
(add-after 'wrap-python 'wrap-path
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(for-each (lambda (file)
|
||||
(wrap-program (search-input-file outputs file)
|
||||
`("PATH" ":" prefix
|
||||
(,(string-append
|
||||
#$(this-package-input "djvulibre") "/bin:"
|
||||
#$(this-package-input "ocrad") "/bin:"
|
||||
#$(this-package-input "tesseract-ocr")
|
||||
"/bin")))))
|
||||
'("bin/djvu2hocr"
|
||||
"bin/hocr2djvused"
|
||||
"bin/ocrodjvu"))))))))
|
||||
(native-inputs
|
||||
(list (libc-utf8-locales-for-target) libxml2 python-pynose python-pillow))
|
||||
(list (libc-utf8-locales-for-target) libxml2 python-nose python-pillow))
|
||||
(inputs
|
||||
(list bash-minimal
|
||||
djvulibre
|
||||
@@ -443,6 +385,60 @@ and background layers of images, which can then be encoded into a DjVu file.")
|
||||
python-regex
|
||||
python-wrapper
|
||||
tesseract-ocr))
|
||||
(arguments
|
||||
(list
|
||||
#:modules '((guix build gnu-build-system)
|
||||
((guix build python-build-system) #:prefix python:)
|
||||
(guix build utils))
|
||||
#:imported-modules `(,@%default-gnu-imported-modules
|
||||
(guix build python-build-system))
|
||||
#:test-target "test"
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(delete 'configure)
|
||||
(add-after 'unpack 'fix-for-python-3.11
|
||||
(lambda _
|
||||
(substitute* "lib/cli/ocrodjvu.py"
|
||||
;; The getargspec function has been removed in python 3.11.
|
||||
(("init_args, _, _, _ = inspect.getargspec\\(cls.__init__\\)")
|
||||
"init_args = inspect.getfullargspec(cls.__init__).args"))))
|
||||
(add-before 'check 'disable-failing-test
|
||||
(lambda _
|
||||
(substitute* "tests/test_ipc.py"
|
||||
;; test_wait_signal gets stuck forever
|
||||
(("yield self\\._test_signal, name")
|
||||
"return True")
|
||||
;; test_path fails to find a file it should have created
|
||||
(("path = os\\.getenv\\('PATH'\\)\\.split\\(':'\\)")
|
||||
"return True"))
|
||||
;; Disable tests with tesseract. They can't work without
|
||||
;; the language files that must downloaded by the final user
|
||||
;; as they are not packaged in Guix.
|
||||
(substitute* "tests/ocrodjvu/test.py"
|
||||
(("engines = stdout\\.getvalue\\(\\)\\.splitlines\\(\\)")
|
||||
"engines = ['ocrad']"))
|
||||
(substitute* "tests/ocrodjvu/test_integration.py"
|
||||
(("engines = 'tesseract', 'cuneiform', 'gocr', 'ocrad'")
|
||||
"engines = 'ocrad'"))))
|
||||
(replace 'install
|
||||
(lambda _
|
||||
(invoke "make" "install"
|
||||
"DESTDIR=" (string-append "PREFIX=" #$output))))
|
||||
(add-after 'install 'wrap-python
|
||||
(assoc-ref python:%standard-phases 'wrap))
|
||||
(add-after 'wrap-python 'wrap-path
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(for-each (lambda (file)
|
||||
(wrap-program (search-input-file outputs file)
|
||||
`("PATH" ":" prefix
|
||||
(,(string-append
|
||||
#$(this-package-input "djvulibre") "/bin:"
|
||||
#$(this-package-input "ocrad") "/bin:"
|
||||
#$(this-package-input "tesseract-ocr")
|
||||
"/bin")))))
|
||||
'("bin/djvu2hocr"
|
||||
"bin/hocr2djvused"
|
||||
"bin/ocrodjvu")))))))
|
||||
(synopsis "Program to perform OCR on DjVu files")
|
||||
(description
|
||||
"@code{ocrodjvu} is a wrapper for OCR systems, that allows you to perform
|
||||
|
||||
+19
-14
@@ -23,7 +23,6 @@
|
||||
;;; Copyright © 2023 Hilton Chain <hako@ultrarare.space>
|
||||
;;; Copyright © 2024 John Kehayias <john.kehayias@protonmail.com>
|
||||
;;; Copyright © 2024, 2025 Ashish SHUKLA <ashish.is@lostca.se>
|
||||
;;; Copyright © 2025 Artyom V. Poptsov <poptsov.artyom@gmail.com>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -643,14 +642,14 @@ BIND and djbdns---whilst using relatively little memory.")
|
||||
(define-public unbound
|
||||
(package
|
||||
(name "unbound")
|
||||
(version "1.24.2")
|
||||
(version "1.24.1")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://www.unbound.net/downloads/unbound-"
|
||||
version ".tar.gz"))
|
||||
(sha256
|
||||
(base32 "1nwwwmwazwx40nm88lhh7k1basml2ai6j9q30gnclvca00zbbrs4"))))
|
||||
(base32 "1azfl6dkab043jjs7r8fxkh3mwxhg1wgc9q5mqcrch1rw8ricavz"))))
|
||||
(build-system gnu-build-system)
|
||||
(outputs '("out" "python"))
|
||||
(native-inputs
|
||||
@@ -721,7 +720,7 @@ struct protoent *getprotobyname(const char *name) {
|
||||
p->p_name = \"udp\";
|
||||
p->p_proto = 17;
|
||||
p->p_aliases[0] = \"UDP\";
|
||||
} else
|
||||
} else
|
||||
p = NULL;
|
||||
return p;
|
||||
}
|
||||
@@ -757,7 +756,7 @@ struct servent *getservbyname(const char *name, const char *proto) {
|
||||
s->s_name = \"domain\";
|
||||
s->s_port = htons(53);
|
||||
s->s_proto = buf;
|
||||
} else
|
||||
} else
|
||||
s = NULL;
|
||||
return s;
|
||||
}
|
||||
@@ -852,7 +851,7 @@ Extensions} (DNSSEC).")
|
||||
(define-public knot
|
||||
(package
|
||||
(name "knot")
|
||||
(version "3.5.2")
|
||||
(version "3.4.8")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -861,7 +860,7 @@ Extensions} (DNSSEC).")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0z1h22qjhjvjlli66nq3bl5nskdid6g86jk7v37y02vwy5xq93rm"))
|
||||
(base32 "0zydnb9kbk65kbrg01sxl48a5ikdap7lhm1wvmcmk5vhvgxdbb53"))
|
||||
(patches
|
||||
(search-patches "knot-remove-runtime-deps.patch"))
|
||||
(modules '((guix build utils)))
|
||||
@@ -903,7 +902,7 @@ Extensions} (DNSSEC).")
|
||||
(add-before 'bootstrap 'update-parser
|
||||
(lambda _
|
||||
(with-directory-excursion "src"
|
||||
(invoke "sh" "../scripts/update_parser.sh"))))
|
||||
(invoke "sh" "../scripts/update-parser.sh"))))
|
||||
(add-before 'configure 'disable-directory-pre-creation
|
||||
(lambda _
|
||||
;; Don't install empty directories like ‘/etc’ outside the store.
|
||||
@@ -1080,7 +1079,7 @@ LuaJIT, both a resolver library and a daemon.")
|
||||
(define-public hnsd
|
||||
(package
|
||||
(name "hnsd")
|
||||
(version "2.0.0")
|
||||
(version "1.0.0")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -1088,22 +1087,28 @@ LuaJIT, both a resolver library and a daemon.")
|
||||
(commit (string-append "v" version))))
|
||||
(sha256
|
||||
(base32
|
||||
"1pqpf9vz1d01873wvkdnmsj9y2qrk8fka4c636qipsjv6ar2ply0"))
|
||||
"1kdgff8rf8gmvwz2p758ilbjxpvz4xm6z41pa5353asg6xb853bb"))
|
||||
(file-name (git-file-name name version))
|
||||
(modules '((guix build utils)))
|
||||
(snippet
|
||||
'(begin
|
||||
;; Delete the bundled copy of libuv.
|
||||
(delete-file-recursively "uv")
|
||||
(substitute* "configure.ac"
|
||||
(("AC_CONFIG_SUBDIRS\\(\\[uv\\]\\)") ""))
|
||||
(substitute* "Makefile.am"
|
||||
(("SUBDIRS = uv") "\n")
|
||||
(("\\$\\(top_builddir\\)/uv/libuv.la") "-luv")
|
||||
;; Make sure the 'hnsd' binary is dynamically-linked.
|
||||
(("^hnsd_LDFLAGS = -static") "\n"))
|
||||
|
||||
;; Make sure the 'hnsd' binary is installed and
|
||||
;; dynamically-linked.
|
||||
(("noinst_PROGRAMS") "bin_PROGRAMS")
|
||||
(("hnsd_LDFLAGS = -static") ""))
|
||||
|
||||
;; This script tries to chdir to "uv" and doesn't do more
|
||||
;; than "autoreconf" so remove it.
|
||||
(delete-file "autogen.sh")))))
|
||||
(delete-file "autogen.sh")
|
||||
#t))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
'(#:configure-flags '("--disable-static"))) ;no need for libhsk.a
|
||||
@@ -1111,7 +1116,7 @@ LuaJIT, both a resolver library and a daemon.")
|
||||
(list autoconf automake libtool))
|
||||
(inputs
|
||||
(list unbound libuv))
|
||||
(home-page "https://handshake.org/")
|
||||
(home-page "https://www.handshake.org/")
|
||||
(synopsis "Resolver daemon for the Handshake naming protocol")
|
||||
(description
|
||||
"@command{hnsd} is a @dfn{host name resolver} for the Handshake Naming
|
||||
|
||||
@@ -1,198 +0,0 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2023, 2024 Greg Hogan <code@greghogan.com>
|
||||
;;; Copyright © 2023, 2025 Ricardo Wurmus <rekado@elephly.net>
|
||||
;;; Copyright © 2024 Felix Gruber <felgru@posteo.net>
|
||||
;;; Copyright © 2024 Nicolas Graves <ngraves@ngraves.fr>
|
||||
;;; Copyright © 2024, 2025 Ekaitz Zarraga <ekaitz@elenq.tech>
|
||||
;;; Copyright © 2024, 2025 Sharlatan Hellseher <sharlatanus@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/>.
|
||||
|
||||
(define-module (gnu packages duckdb)
|
||||
#:use-module ((guix licenses) #:prefix license:)
|
||||
#:use-module (guix build-system cmake)
|
||||
#:use-module (guix build-system pyproject)
|
||||
#:use-module ((guix build-system python) #:select (pypi-uri))
|
||||
#:use-module (guix build-system r)
|
||||
#:use-module (guix download)
|
||||
#:use-module (guix gexp)
|
||||
#:use-module (guix git-download)
|
||||
#:use-module (guix packages)
|
||||
#:use-module (guix utils)
|
||||
#:use-module (gnu packages)
|
||||
#:use-module (gnu packages base)
|
||||
#:use-module (gnu packages cran)
|
||||
#:use-module (gnu packages databases)
|
||||
#:use-module (gnu packages python-build)
|
||||
#:use-module (gnu packages python-science)
|
||||
#:use-module (gnu packages python-xyz)
|
||||
#:use-module (gnu packages statistics))
|
||||
|
||||
;;; Commentary:
|
||||
;;;
|
||||
;;; This module contains DuckDB - an analytical in-process SQL database
|
||||
;;; management system (https://www.duckdb.org/) and it's binding in different
|
||||
;;; programming languages with other related to DuckDB packages.
|
||||
;;;
|
||||
;;; Code:
|
||||
|
||||
(define-public duckdb
|
||||
(package
|
||||
(name "duckdb")
|
||||
(version "1.4.1")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/duckdb/duckdb")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1vywdhn930z4aw2ljxp5mx3cfivpvv1d88kq4rhizq3c4hpq9yf3"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
(list
|
||||
;; TODO: Find out how to run tests, see: <.github/workflows>.
|
||||
#:tests? #f
|
||||
#:configure-flags
|
||||
#~(list "-DBUILD_EXTENSIONS=autocomplete;icu;json;parquet;tpch;"
|
||||
;; There is no git checkout from which to read the version tag.
|
||||
(string-append "-DOVERRIDE_GIT_DESCRIBE="
|
||||
"v" #$version "-0-g0123456789"))))
|
||||
(home-page "https://duckdb.org")
|
||||
(synopsis "In-process SQL OLAP database management system")
|
||||
(description
|
||||
"CLI and C/C++ source libraries for DuckDB, a relational (table-oriented)
|
||||
@acronym{DBMS, Database Management System} that supports @acronym{SQL,
|
||||
Structured Query Language}, contains a columnar-vectorized query execution
|
||||
engine, and provides transactional @acronym{ACID, Atomicity Consistency
|
||||
Isolation and Durability} guarantees via bulk-optimized @acronym{MVCC,
|
||||
Multi-Version Concurrency Control}. Data can be stored in persistent,
|
||||
single-file databases with support for secondary indexes.")
|
||||
(license license:expat)))
|
||||
|
||||
;; XXX: Try to inherit from duckdb and build from source with all extensions.
|
||||
(define-public python-duckdb
|
||||
(package
|
||||
(name "python-duckdb")
|
||||
(version "1.3.2")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (pypi-uri "duckdb" version))
|
||||
(sha256
|
||||
(base32 "1x8zb47y8lzc4w0g013sim8x9vd1h96ra3dd0bvh91y73f5dyn66"))))
|
||||
(build-system pyproject-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:tests? #f ;FIXME: See <https://codeberg.org/guix/guix/issues/1436>.
|
||||
#:test-flags
|
||||
#~(list "--ignore=tests/slow/test_h2oai_arrow.py"
|
||||
;; Do not relay on mypy.
|
||||
"--ignore=tests/stubs/test_stubs.py"
|
||||
"-k" (string-append
|
||||
;; Don't install anything, thank you.
|
||||
"not test_install_non_existent_extension"
|
||||
;; _pybind11_conduit_v1_ not found.
|
||||
" and not test_wrap_coverage"
|
||||
;; See <https://github.com/duckdb/duckdb/issues/11961>.
|
||||
" and not test_fetchmany"
|
||||
;; See <https://github.com/duckdb/duckdb/issues/10702>.
|
||||
" and not test_connection_interrupt"
|
||||
" and not test_query_interruption"))
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
;; Tests need this
|
||||
(add-before 'check 'set-HOME
|
||||
(lambda _ (setenv "HOME" "/tmp")))
|
||||
;; Later versions of pybind replace "_" with "const_name".
|
||||
(add-after 'unpack 'pybind-compatibility
|
||||
(lambda _
|
||||
(with-directory-excursion "src/include/duckdb_python"
|
||||
(substitute* '("python_objects.hpp"
|
||||
"pyfilesystem.hpp"
|
||||
"pybind11/conversions/pyconnection_default.hpp")
|
||||
(("const_name") "_"))))))))
|
||||
(propagated-inputs
|
||||
(list python-adbc-driver-manager))
|
||||
(native-inputs
|
||||
(list pybind11
|
||||
python-fsspec
|
||||
;; python-google-cloud-storage ;python-grpcio fails (see: guix/guix#1436)
|
||||
python-numpy
|
||||
python-pandas
|
||||
python-psutil
|
||||
;; python-pytest
|
||||
python-setuptools-scm
|
||||
python-setuptools
|
||||
python-wheel))
|
||||
(home-page "https://www.duckdb.org")
|
||||
(synopsis "DuckDB embedded database")
|
||||
(description "DuckDB is an in-process SQL OLAP database management
|
||||
system.")
|
||||
(license license:expat)))
|
||||
|
||||
(define-public r-duckdb
|
||||
(package
|
||||
(name "r-duckdb")
|
||||
(version "1.4.2")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (cran-uri "duckdb" version))
|
||||
(sha256
|
||||
(base32 "1k2ks40mw7qviwwa53jv76bb48jxk9cfp6lrc06ripfifabd2pix"))
|
||||
;; This package bundles the duckdb sources and builds a custom variant
|
||||
;; of duckdb. I'd be happy to link it with our duckdb library instead,
|
||||
;; but it does not seem possible to do that.
|
||||
#;
|
||||
(snippet
|
||||
'(delete-file "src/duckdb.tar.xz"))))
|
||||
(properties
|
||||
'((upstream-name . "duckdb")
|
||||
(updater-extra-native-inputs . ("tzdata-for-tests"))
|
||||
;; We don't seem to need this and I don't want to package it now.
|
||||
(updater-ignored-native-inputs . ("r-dblog"))))
|
||||
(build-system r-build-system)
|
||||
(arguments (list #:tests? #false)) ;tests can time out on the build farm
|
||||
(propagated-inputs (list r-dbi))
|
||||
(native-inputs (list r-adbcdrivermanager
|
||||
r-arrow
|
||||
r-bit64
|
||||
r-callr
|
||||
r-clock
|
||||
r-dbitest
|
||||
r-dbplyr
|
||||
r-dplyr
|
||||
r-remotes
|
||||
r-rlang
|
||||
r-testthat
|
||||
r-tibble
|
||||
r-vctrs
|
||||
r-withr
|
||||
tzdata-for-tests))
|
||||
(home-page "https://r.duckdb.org/")
|
||||
(synopsis "DBI package for the DuckDB database management system")
|
||||
(description
|
||||
"The DuckDB project is an embedded analytical data management system with
|
||||
support for the Structured Query Language (SQL). This package includes all of
|
||||
DuckDB and an R Database Interface (DBI) connector.")
|
||||
(license license:expat)))
|
||||
|
||||
;;;
|
||||
;;; Avoid adding new packages to the end of this file. To reduce the chances
|
||||
;;; of a merge conflict, place them above in alphabetic order.
|
||||
;;;
|
||||
@@ -137,14 +137,14 @@ with Microsoft Compiled HTML (CHM) files")
|
||||
(define-public calibre
|
||||
(package
|
||||
(name "calibre")
|
||||
(version "8.15.0")
|
||||
(version "8.13.0")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "http://download.calibre-ebook.com/" version
|
||||
"/calibre-" version ".tar.xz"))
|
||||
(sha256
|
||||
(base32 "1d2ygxf5srzdxc3jpngmq3zbz9plxnbzm4dzygpfd38szr5zwyss"))
|
||||
(base32 "092zv9s0w87vwb5n54ps7lawjmwjqpmk93yp6lslnphpb6hqal6z"))
|
||||
(modules '((guix build utils)))
|
||||
(snippet
|
||||
'(begin
|
||||
|
||||
+146
-626
File diff suppressed because it is too large
Load Diff
+39
-39
@@ -16,7 +16,6 @@
|
||||
;;; Copyright © 2025 John Kehayias <john.kehayias@protonmail.com>
|
||||
;;; Copyright © 2025 Nicolas Graves <ngraves@ngraves.fr>
|
||||
;;; Copyright © 2025 Maxim Cournoyer <maxim@guixotic.coop>
|
||||
;;; Copyright © 2025 Artyom V. Poptsov <poptsov.artyom@gmail.com>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -47,7 +46,6 @@
|
||||
#:use-module (gnu packages compression)
|
||||
#:use-module (gnu packages base)
|
||||
#:use-module (gnu packages bash)
|
||||
#:use-module (gnu packages digest)
|
||||
#:use-module (gnu packages docbook)
|
||||
#:use-module (gnu packages documentation)
|
||||
#:use-module (gnu packages gawk)
|
||||
@@ -204,52 +202,54 @@ object or archive file), @command{eu-strip} (for discarding symbols),
|
||||
(package
|
||||
(name "libabigail")
|
||||
(home-page "https://sourceware.org/libabigail/")
|
||||
(version "2.9")
|
||||
(version "2.0")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://sourceware.org/pub/libabigail/"
|
||||
"libabigail-" version ".tar.xz"))
|
||||
"libabigail-" version ".tar.gz"))
|
||||
(sha256
|
||||
(base32
|
||||
"0f6p86ispkiaxsqlqp9xdmhn0yjyagq1w7q94pd8m8h566m6pf5l"))))
|
||||
"1nkg7fsqvdr453hrskscy6xqz6fv45mylpgv1357dw3blnbsw11p"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list #:configure-flags #~(list "--disable-static"
|
||||
"--enable-bash-completion"
|
||||
"--enable-manual")
|
||||
#:make-flags #~(list "V=1")
|
||||
#:phases #~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'patch-source
|
||||
(lambda _
|
||||
(substitute* "build-aux/ltmain.sh"
|
||||
;; Don't add -specs=/usr/lib/rpm/redhat/redhat-hardened-ld
|
||||
;; to the GCC command line.
|
||||
(("compiler_flags=\"-specs=.*")
|
||||
"compiler_flags=\n"))))
|
||||
(add-after 'build 'build-documentation
|
||||
(lambda _
|
||||
(invoke "make" "-C" "doc/manuals" "html-doc" "man" "info")))
|
||||
(add-before 'check 'set-test-environment
|
||||
(lambda _
|
||||
(setenv "XDG_CACHE_HOME" "/tmp")))
|
||||
(add-after 'install 'install-documentation
|
||||
(lambda _
|
||||
(invoke "make" "-C" "doc/manuals"
|
||||
"install-man-and-info-doc")))
|
||||
(add-after 'install-documentation 'install-bash-completion
|
||||
(lambda _
|
||||
(for-each (lambda (file)
|
||||
(install-file
|
||||
file (string-append #$output
|
||||
"/share/bash-completion"
|
||||
"/completions")))
|
||||
(find-files "bash-completion" ".*abi.*")))))))
|
||||
`(#:configure-flags '("--disable-static"
|
||||
"--enable-bash-completion"
|
||||
"--enable-manual")
|
||||
#:make-flags '("V=1")
|
||||
#:phases (modify-phases %standard-phases
|
||||
(add-after 'unpack 'patch-source
|
||||
(lambda _
|
||||
(substitute* "build-aux/ltmain.sh"
|
||||
;; Don't add -specs=/usr/lib/rpm/redhat/redhat-hardened-ld
|
||||
;; to the GCC command line.
|
||||
(("compiler_flags=\"-specs=.*")
|
||||
"compiler_flags=\n"))
|
||||
#t))
|
||||
(add-after 'build 'build-documentation
|
||||
(lambda _
|
||||
(invoke "make" "-C" "doc/manuals" "html-doc" "man" "info")))
|
||||
(add-before 'check 'set-test-environment
|
||||
(lambda _
|
||||
(setenv "XDG_CACHE_HOME" "/tmp")
|
||||
#t))
|
||||
(add-after 'install 'install-documentation
|
||||
(lambda _
|
||||
(invoke "make" "-C" "doc/manuals"
|
||||
"install-man-and-info-doc")))
|
||||
(add-after 'install-documentation 'install-bash-completion
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(for-each (lambda (file)
|
||||
(install-file
|
||||
file (string-append (assoc-ref outputs "out")
|
||||
"/share/bash-completion"
|
||||
"/completions")))
|
||||
(find-files "bash-completion" ".*abi.*"))
|
||||
#t)))))
|
||||
(native-inputs
|
||||
(list pkg-config texinfo python-sphinx python))
|
||||
(propagated-inputs
|
||||
(list elfutils ;libabigail.la says -lelf
|
||||
libxml2 ;in Requires.private of libabigail.pc
|
||||
xxhash))
|
||||
libxml2)) ;in Requires.private of libabigail.pc
|
||||
(synopsis "Analyze application binary interfaces (ABIs)")
|
||||
(description
|
||||
"@dfn{ABIGAIL} stands for the Application Binary Interface Generic
|
||||
@@ -400,7 +400,7 @@ changed.")
|
||||
(define-public pax-utils
|
||||
(package
|
||||
(name "pax-utils")
|
||||
(version "1.3.9")
|
||||
(version "1.3.8")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -409,7 +409,7 @@ changed.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"1ds0bjlivvqpm3kr8y9blawrkhn134zwng2zq6cdbh5xw87vqwg4"))))
|
||||
"1vxklqnabhy15idrg5s2m07lk1hqyf9fnvsfy66n2rdmqijn5rvw"))))
|
||||
(build-system meson-build-system)
|
||||
(arguments
|
||||
(list
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2025 Giacomo Leidi <therewasa@fishinthecalculator.me>
|
||||
;;; Copyright © 2025 Giacomo Leidi <goodoldpaul@autistici.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2025 Giacomo Leidi <therewasa@fishinthecalculator.me>
|
||||
;;; Copyright © 2025 Giacomo Leidi <goodoldpaul@autistici.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2025 Giacomo Leidi <therewasa@fishinthecalculator.me>
|
||||
;;; Copyright © 2025 Giacomo Leidi <goodoldpaul@autistici.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
||||
@@ -1,5 +1,5 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2025 Giacomo Leidi <therewasa@fishinthecalculator.me>
|
||||
;;; Copyright © 2025 Giacomo Leidi <goodoldpaul@autistici.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
||||
@@ -1,7 +1,7 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2023 Pierre-Henry Fröhring <phfrohring@deeplinks.com>
|
||||
;;; Copyright © 2024 Igor Goryachev <igor@goryachev.org>
|
||||
;;; Copyright © 2025 Giacomo Leidi <therewasa@fishinthecalculator.me>
|
||||
;;; Copyright © 2025 Giacomo Leidi <goodoldpaul@autistici.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
||||
+4
-11
@@ -9,7 +9,7 @@
|
||||
;;; Copyright © 2021 Cees de Groot <cg@evrl.com>
|
||||
;;; Copyright © 2024 Andrew Tropin <andrew@trop.in>
|
||||
;;; Copyright © 2024, 2025 Ivan Sokolov <ivan-p-sokolov@ya.ru>
|
||||
;;; Copyright © 2024, 2025 Igorj Gorjaĉev <igor@goryachev.org>
|
||||
;;; Copyright © 2024, 2025 Igor Goryachev <igor@goryachev.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -41,7 +41,7 @@
|
||||
(define-public elixir
|
||||
(package
|
||||
(name "elixir")
|
||||
(version "1.19.3")
|
||||
(version "1.18.4")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -50,7 +50,7 @@
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1y5h1vn0r735g64xszz96l2cfs2c5lspglhh8syhpabx1a15vvw4"))
|
||||
(base32 "0861h06x1594jsqq21lkmd96yvlfhfngrrxm6fwpqifzw4ij02iz"))
|
||||
(patches (search-patches "elixir-path-length.patch"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
@@ -89,14 +89,7 @@
|
||||
"; fi\n")))
|
||||
(substitute* "bin/mix"
|
||||
(("#!/usr/bin/env elixir")
|
||||
(string-append "#!" #$output "/bin/elixir")))
|
||||
;; We should not break the formatting, so we need to patch
|
||||
;; the following more accurately.
|
||||
(substitute* "lib/mix/test/mix/tasks/cmd_test.exs"
|
||||
(("File\\.mkdir_p!\\(\"priv\"\\)" all)
|
||||
(string-append all "\n sh = \""
|
||||
(search-input-file inputs "/bin/sh") "\""))
|
||||
(("#!/bin/sh") "#!#{sh}"))))
|
||||
(string-append "#!" #$output "/bin/elixir")))))
|
||||
(add-after 'replace-paths 'pre-install-source
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(copy-recursively
|
||||
|
||||
+299
-952
File diff suppressed because it is too large
Load Diff
+60
-181
@@ -15,7 +15,6 @@
|
||||
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
|
||||
;;; Copyright © 2024 Artyom V. Poptsov <poptsov.artyom@gmail.com>
|
||||
;;; Copyright © 2025 Junker dk@junkeria.club
|
||||
;;; Copyright © 2025 Reza Housseini <reza@housseini.me>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -41,10 +40,8 @@
|
||||
#:use-module (guix svn-download)
|
||||
#:use-module (guix git-download)
|
||||
#:use-module ((guix licenses) #:prefix license:)
|
||||
#:use-module (guix build-system cargo)
|
||||
#:use-module (guix build-system cmake)
|
||||
#:use-module (guix build-system gnu)
|
||||
#:use-module (guix build-system pyproject)
|
||||
#:use-module (guix build-system python)
|
||||
#:use-module (guix build-system trivial)
|
||||
#:use-module ((guix build utils) #:select (alist-replace delete-file-recursively))
|
||||
@@ -62,7 +59,6 @@
|
||||
#:use-module (gnu packages gcc)
|
||||
#:use-module (gnu packages gdb)
|
||||
#:use-module (gnu packages guile)
|
||||
#:use-module (gnu packages libffi)
|
||||
#:use-module (gnu packages libftdi)
|
||||
#:use-module (gnu packages libusb)
|
||||
#:use-module (gnu packages messaging)
|
||||
@@ -75,8 +71,6 @@
|
||||
#:use-module (gnu packages python-web)
|
||||
#:use-module (gnu packages python-xyz)
|
||||
#:use-module (gnu packages readline)
|
||||
#:use-module (gnu packages rust)
|
||||
#:use-module (gnu packages rust-apps)
|
||||
#:use-module (gnu packages swig)
|
||||
#:use-module (gnu packages texinfo)
|
||||
#:use-module (gnu packages tls)
|
||||
@@ -1468,69 +1462,6 @@ the SoC into serial download boot mode; check the documentation of your
|
||||
hardware. The utility support USB and UART as serial link.")
|
||||
(license license:lgpl2.1+))))
|
||||
|
||||
(define-public python-cmsis-pack-manager
|
||||
(package
|
||||
(name "python-cmsis-pack-manager")
|
||||
(version "0.6.0")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/pyocd/cmsis-pack-manager")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "0djxvmpw6krv459w0w98cva9clrpqicwfr0fx55hkaix1x51bgci"))))
|
||||
(build-system pyproject-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:imported-modules `(,@%cargo-build-system-modules
|
||||
,@%pyproject-build-system-modules)
|
||||
#:modules '(((guix build cargo-build-system) #:prefix cargo:)
|
||||
(guix build pyproject-build-system)
|
||||
(guix build utils))
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'prepare-cargo-build-system
|
||||
(lambda args
|
||||
(for-each
|
||||
(lambda (phase)
|
||||
(format #t "Running cargo phase: ~a~%" phase)
|
||||
(apply (assoc-ref cargo:%standard-phases phase)
|
||||
#:cargo-target #$(cargo-triplet)
|
||||
args))
|
||||
'(unpack-rust-crates
|
||||
configure
|
||||
check-for-pregenerated-files
|
||||
patch-cargo-checksums)))))))
|
||||
(propagated-inputs
|
||||
(list python-appdirs
|
||||
python-cffi
|
||||
python-pyyaml))
|
||||
(native-inputs
|
||||
(append
|
||||
(list maturin ;TODO: Move to build-tools module someday
|
||||
python-wrapper
|
||||
python-jinja2
|
||||
python-pytest
|
||||
rust
|
||||
`(,rust "cargo"))
|
||||
(or (and=> (%current-target-system)
|
||||
(compose list make-rust-sysroot))
|
||||
'())))
|
||||
(inputs (cargo-inputs 'python-cmsis-pack-manager))
|
||||
(home-page "https://github.com/pyocd/cmsis-pack-manager")
|
||||
(synopsis "CMSIS-Pack index manager")
|
||||
(description
|
||||
"@code{cmsis-pack-manager} is a Python module, Rust crate and command line
|
||||
utility for managing current device information that is stored in many
|
||||
@acronym{Common Microcontroller Software Interface Standard, CMSIS}
|
||||
PACKs. Users of @code{cmsis-pack-manager} may query for information such as
|
||||
processor type, flash algorithm and memory layout information in a Python
|
||||
program or through the command line utility, @code{pack-manager}, provided as
|
||||
part of this module.")
|
||||
(license license:asl2.0)))
|
||||
|
||||
(define-public python-libmpsse
|
||||
(package
|
||||
(name "python-libmpsse")
|
||||
@@ -1822,45 +1753,29 @@ raw USB commands.")
|
||||
(define-public west
|
||||
(package
|
||||
(name "west")
|
||||
(version "1.5.0")
|
||||
(version "0.13.1")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/zephyrproject-rtos/west")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(method url-fetch)
|
||||
(uri (pypi-uri "west" version))
|
||||
(sha256
|
||||
(base32 "0fa3bbw69khw8la4mi4q18d8brixywwj5yby7dh36hd40wxspzk3"))))
|
||||
(build-system pyproject-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:test-flags
|
||||
;; XXX: This test tries to access the network.
|
||||
#~(list "-k" "not test_init_with_clone_option_depth_one")
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-before 'check 'configure-tests
|
||||
(lambda _
|
||||
(setenv "TOXTEMPDIR"
|
||||
(mkdtemp
|
||||
(string-append (dirname (getcwd)) "/tmpXXXXXX"))))))))
|
||||
(base32
|
||||
"1hw9qas8ry8prn24iqka8kw2nv7ndxr95mvwr5lww53w2sr7p807"))))
|
||||
(propagated-inputs
|
||||
(list python-colorama
|
||||
python-packaging
|
||||
python-pykwalify
|
||||
python-pyyaml))
|
||||
(native-inputs (list git-minimal python-pytest python-setuptools))
|
||||
(build-system python-build-system)
|
||||
(home-page "https://github.com/zephyrproject-rtos/west")
|
||||
(synopsis "Zephyr RTOS Project meta-tool")
|
||||
(description
|
||||
"West is the swiss-army knife command line tool of the Zephyr project.
|
||||
Its built-in commands provide a multiple repository management system with
|
||||
features inspired by Google’s Repo tool and Git submodules. West simplifies
|
||||
configuration and is also pluggable: you can write your own west \"extension
|
||||
commands\" which add additional features to west. Zephyr uses this feature to
|
||||
provide conveniences for building applications, flashing and debugging them,
|
||||
and more.")
|
||||
(description "West is the swiss-army knife command line tool of the Zephyr
|
||||
project. Its built-in commands provide a multiple repository management
|
||||
system with features inspired by Google’s Repo tool and Git submodules. West
|
||||
simplifies configuration and is also pluggable: you can write your own west
|
||||
\"extension commands\" which add additional features to west. Zephyr uses
|
||||
this feature to provide conveniences for building applications, flashing and
|
||||
debugging them, and more.")
|
||||
(license license:expat)))
|
||||
|
||||
(define-public ebusd
|
||||
@@ -2040,66 +1955,27 @@ and Zilog Z80 families, plus many of their variants.")
|
||||
(define-public python-psptool
|
||||
(package
|
||||
(name "python-psptool")
|
||||
(version "3.1")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/PSPReverse/psptool")
|
||||
(commit version)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "1fbx3b42cr7dv07p2b9qgzrgs19i066ysfasgvlfjscg2v68j8d0"))))
|
||||
(build-system pyproject-build-system)
|
||||
(arguments
|
||||
(list #:test-backend #~'unittest))
|
||||
(native-inputs
|
||||
(list python-psptrace-bootstrap
|
||||
python-setuptools))
|
||||
(version "2.2")
|
||||
(source (origin
|
||||
(method url-fetch)
|
||||
(uri (pypi-uri "psptool" version))
|
||||
(sha256
|
||||
(base32
|
||||
"1kx0xpfx67m4zclk4gs97wiwjms8i7z4f6b6m68y8sfgpshy4rf3"))
|
||||
(modules '((guix build utils)))
|
||||
(snippet
|
||||
'(begin
|
||||
;; IPython is not used by the package at all
|
||||
(substitute* '("psptool/directory.py" "psptool/entry.py")
|
||||
(("from IPython.*") ""))))))
|
||||
(build-system python-build-system)
|
||||
(propagated-inputs
|
||||
(list python-cryptography
|
||||
python-prettytable))
|
||||
(list python-cryptography python-prettytable))
|
||||
(home-page "https://github.com/PSPReverse/psptool")
|
||||
(synopsis "Tool for dealing with AMD binary blobs")
|
||||
(description "PSPTool is a tool for dealing with AMD binary blobs")
|
||||
(license license:gpl3+)))
|
||||
|
||||
(define-public python-psptrace
|
||||
(package
|
||||
(name "python-psptrace")
|
||||
(version "0.7")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (pypi-uri "psptrace" version))
|
||||
(sha256
|
||||
(base32 "1mrympnpkkns2dxq34h9x9qn667ihdvbbf0wpmbp3jli0n7bj7ih"))))
|
||||
(build-system pyproject-build-system)
|
||||
(arguments
|
||||
(list #:tests? #f)) ;no tests in PyPI or Git
|
||||
(native-inputs
|
||||
(list python-setuptools))
|
||||
(propagated-inputs
|
||||
(list python-prettytable
|
||||
python-psptool))
|
||||
(home-page "https://github.com/PSPReverse/PSPTrace")
|
||||
(synopsis "Capture of an AMD boot procedure")
|
||||
(description
|
||||
"PSPTrace is a tool for correlating an SPI capture of an AMD boot
|
||||
procedure to the PSP firmware components.")
|
||||
(license license:gpl3+)))
|
||||
|
||||
(define-public python-psptrace-bootstrap
|
||||
(hidden-package
|
||||
(package/inherit python-psptrace
|
||||
(name "python-psptrace")
|
||||
(arguments
|
||||
(list #:tests? #f
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(delete 'sanity-check))))
|
||||
(propagated-inputs '()))))
|
||||
|
||||
(define-public agent-proxy
|
||||
(let ((commit "8927798a71d246871ea8fc22b4512296a3fa1765")
|
||||
(revision "0"))
|
||||
@@ -2140,45 +2016,48 @@ whereas kdmx creates pseudo-ttys.")
|
||||
(define-public mbed-tools
|
||||
(package
|
||||
(name "mbed-tools")
|
||||
(version "7.59.0")
|
||||
(version "7.53.0")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (pypi-uri "mbed-tools" version))
|
||||
(sha256
|
||||
(base32 "12h8g8mv3llwqcjii4zvz94mv7cmhmbc204w4nqd6nnhwfvcl6ky"))))
|
||||
(build-system pyproject-build-system)
|
||||
(base32
|
||||
"0gdmyxy97bqr9bmkg90v3axmrr2db734nwzq2l05z84x9qiarc9i"))))
|
||||
(arguments
|
||||
(list
|
||||
;; tests: 631 passed, 27 skipped, 1 warning
|
||||
#:test-flags
|
||||
;; E ModuleNotFoundError: No module named 'mbed_tools_ci_scripts'
|
||||
#~(list "--ignore=tests/ci_scripts/test_sync_board_db.py")
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'fix-pytest-config
|
||||
(lambda _
|
||||
(substitute* "pytest.ini"
|
||||
(("addopts = .*") "")))))))
|
||||
`(#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-after 'unpack 'relax-requirements
|
||||
(lambda _
|
||||
(substitute* "setup.py"
|
||||
(("\"Click>=7.1,<8\"")
|
||||
"\"Click>=7.1\""))))
|
||||
(replace 'check
|
||||
(lambda* (#:key tests? #:allow-other-keys)
|
||||
(when tests?
|
||||
;; Remove this failing test.
|
||||
(delete-file "tests/ci_scripts/test_sync_board_db.py")
|
||||
(invoke "pytest" "-vv")))))))
|
||||
(native-inputs
|
||||
(list python-factory-boy
|
||||
python-pytest
|
||||
(list python-pytest
|
||||
python-pytest-cov
|
||||
python-factory-boy
|
||||
python-requests-mock
|
||||
python-semver
|
||||
python-setuptools
|
||||
python-setuptools-scm))
|
||||
python-semver))
|
||||
(propagated-inputs
|
||||
(list python-click
|
||||
python-dotenv
|
||||
(list python-dotenv
|
||||
python-click
|
||||
python-pdoc3
|
||||
python-gitpython
|
||||
python-jinja2
|
||||
python-psutil
|
||||
python-pyserial
|
||||
python-pyudev
|
||||
python-requests
|
||||
python-tabulate
|
||||
python-tqdm
|
||||
python-typing-extensions))
|
||||
python-tabulate
|
||||
python-requests
|
||||
python-psutil
|
||||
python-pyudev
|
||||
python-typing-extensions
|
||||
python-jinja2
|
||||
python-pyserial))
|
||||
(build-system python-build-system)
|
||||
(home-page "https://github.com/ARMmbed/mbed-tools")
|
||||
(synopsis "ARM Mbed command line tools")
|
||||
(description "This package is the successor of @code{mbed-cli}. It
|
||||
@@ -2238,7 +2117,7 @@ TS-4900 family. The included commands are:
|
||||
(build-system gnu-build-system)
|
||||
(inputs (list libusb))
|
||||
(native-inputs (list pkg-config
|
||||
boost-1.83
|
||||
boost
|
||||
automake
|
||||
autoconf
|
||||
libtool))
|
||||
|
||||
+46
-10
@@ -798,7 +798,7 @@ older games.")
|
||||
;; This is not a patch staging area for DOSBox, but an unaffiliated fork.
|
||||
(package
|
||||
(name "dosbox-staging")
|
||||
(version "0.82.2")
|
||||
(version "0.82.0")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -807,7 +807,7 @@ older games.")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "074wrkmy2g280kipnnkh2ga6wlh94kgwfp2cl1g17y65y56vmmdv"))))
|
||||
(base32 "1s4c6fiyjm91dnmkval9fvsqszc6yjq5b6pq895xi606dn29b85d"))))
|
||||
(build-system meson-build-system)
|
||||
(arguments
|
||||
;; XXX: When build with debugoptimized, some assertions and tests will
|
||||
@@ -861,7 +861,7 @@ emulate a serial nullmodem over TCP/IP.")
|
||||
(define-public qtmips
|
||||
(package
|
||||
(name "qtmips")
|
||||
(version "0.8.1")
|
||||
(version "0.7.5")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -870,8 +870,47 @@ emulate a serial nullmodem over TCP/IP.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"1gmlr43wjq0fki9d77n7s6jly4n6kd6hq2af0zni348b4a4qn8bn"))))
|
||||
"1fal7a8y5g0rqqjrk795jh1l50ihz01ppjnrfjrk9vkjbd59szbp"))))
|
||||
(build-system qt-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:modules '((guix build qt-build-system)
|
||||
((guix build gnu-build-system) #:prefix gnu:)
|
||||
(guix build utils))
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(replace 'configure
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(invoke "qmake"
|
||||
(string-append "PREFIX=" (assoc-ref outputs "out"))
|
||||
"qtmips.pro")))
|
||||
(replace 'build (assoc-ref gnu:%standard-phases 'build))
|
||||
(replace 'check
|
||||
(lambda* (#:key tests? #:allow-other-keys)
|
||||
(substitute* "tests/test.sh"
|
||||
(("qtchooser.*") ""))
|
||||
(substitute* '("tests/cpu_trap/test.sh"
|
||||
"tests/registers/test.sh")
|
||||
(("sub-qtmips_cli") "qtmips_cli"))
|
||||
(if tests?
|
||||
(invoke "tests/run-all.sh")
|
||||
#t)))
|
||||
(replace 'install
|
||||
;; There is no install target.
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(let* ((out (assoc-ref outputs "out"))
|
||||
(bin (string-append out "/bin"))
|
||||
(apps (string-append out "/share/applications"))
|
||||
(icons (string-append out "/share/icons/hicolor")))
|
||||
(install-file "qtmips_gui/qtmips_gui" bin)
|
||||
(install-file "qtmips_cli/qtmips_cli" bin)
|
||||
(install-file "data/qtmips.desktop" apps)
|
||||
(install-file "data/icons/qtmips_gui.svg"
|
||||
(string-append icons "/scalable/apps"))
|
||||
(install-file "data/icons/qtmips_gui.png"
|
||||
(string-append icons "/48x48/apps"))
|
||||
#t))))
|
||||
#:tests? #f)) ; test suite wants mips toolchain
|
||||
(inputs
|
||||
(list elfutils qtbase-5 qtwayland-5))
|
||||
(home-page "https://github.com/cvut/QtMips")
|
||||
@@ -1146,10 +1185,7 @@ The following systems are supported:
|
||||
((#:configure-flags flags ''())
|
||||
;; Relax error checks to avoid a build failure with GCC 14.
|
||||
#~(cons "-DCMAKE_C_FLAGS=-Wno-error=incompatible-pointer-types"
|
||||
#$flags))))
|
||||
(inputs
|
||||
(modify-inputs (package-inputs mgba)
|
||||
(replace "ffmpeg" ffmpeg-6)))))))
|
||||
#$flags))))))))
|
||||
|
||||
(define-public sameboy
|
||||
(package
|
||||
@@ -1561,7 +1597,7 @@ Glide64 video plugin.")
|
||||
(native-inputs
|
||||
(list pkg-config which))
|
||||
(inputs
|
||||
(list boost-1.83
|
||||
(list boost
|
||||
libpng
|
||||
mesa
|
||||
mupen64plus-core
|
||||
@@ -3408,7 +3444,7 @@ This is a part of the TiLP project.")
|
||||
texinfo))
|
||||
(inputs
|
||||
(list alsa-lib
|
||||
asio-1.28
|
||||
asio
|
||||
expat
|
||||
flac
|
||||
fontconfig
|
||||
|
||||
+114
-82
@@ -872,6 +872,55 @@ such as those made in pneumatics, hydraulics, process industries, electronics,
|
||||
and others.")
|
||||
(license license:gpl2+)))
|
||||
|
||||
(define-public gerbv
|
||||
(package
|
||||
(name "gerbv")
|
||||
(version "2.10.0")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/gerbv/gerbv")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32 "06bcm5zw7whsnnmfld3gl2j907lxc68gnsbzr2pc4w6qc923rgmj"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:configure-flags #~(list "CFLAGS=-O2 -g -fcommon")
|
||||
#:phases #~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'patch-version-generator
|
||||
(lambda _
|
||||
(substitute* "utils/git-version-gen.sh"
|
||||
(("/bin/bash")
|
||||
(which "bash"))))))))
|
||||
(native-inputs (list autoconf
|
||||
automake
|
||||
desktop-file-utils
|
||||
gettext-minimal
|
||||
;; Version generator needs git to work properly:
|
||||
;; https://github.com/gerbv/gerbv/issues/244
|
||||
git-minimal/pinned
|
||||
`(,glib "bin")
|
||||
libtool
|
||||
pkg-config))
|
||||
(inputs (list cairo
|
||||
;; As of 2.10.0 gerbv is still GTK+2 only. GTK 3/4 porting
|
||||
;; issue: https://github.com/gerbv/gerbv/issues/71.
|
||||
gtk+-2))
|
||||
(home-page "https://gerbv.github.io/")
|
||||
(synopsis "Gerber file viewer")
|
||||
(description
|
||||
"Gerbv is a viewer for files in the Gerber format (RS-274X only), which
|
||||
is commonly used to represent printed circuit board (PCB) layouts. Gerbv lets
|
||||
you load several files on top of each other, do measurements on the displayed
|
||||
image, etc. Besides viewing Gerbers, you may also view Excellon drill files
|
||||
as well as pick-place files.")
|
||||
;; This CVE has been fixed in version 2.10.0.
|
||||
(properties '((lint-hidden-cve . ("CVE-2023-4508"))))
|
||||
(license license:gpl2+)))
|
||||
|
||||
(define-public translate2geda
|
||||
;; There has been no formal release yet.
|
||||
(let ((commit "2ec576e608a6f6eead5f6bc1952234d9874703c7")
|
||||
@@ -1082,7 +1131,7 @@ Emacs).")
|
||||
(define-public kicad
|
||||
(package
|
||||
(name "kicad")
|
||||
(version "9.0.6")
|
||||
(version "9.0.5")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
@@ -1090,7 +1139,7 @@ Emacs).")
|
||||
(commit version)))
|
||||
(sha256
|
||||
(base32
|
||||
"0mfnlx0dlpk3jz1b8pard6b7ax1ycyv069k4vg89ph2bia1a9d98"))
|
||||
"0wmnkiyqv32c5nz4nvz94dld3rk5ir49nh71cycig6clvjvy11r5"))
|
||||
(file-name (git-file-name name version))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
@@ -1207,7 +1256,7 @@ electrical diagrams), gerbview (viewing Gerber files) and others.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"0sdardnkr8ayrzahhy8hmq5yhlh1fprj5rxf7wq44cn2biyzfr5c"))))
|
||||
"006gfryibmlhmj7vhv8kf13jp84pnxd59m678f20zxrl363b9hnz"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
`(#:configure-flags (list "-DBUILD_FORMATS=html")
|
||||
@@ -1238,7 +1287,7 @@ electrical diagrams), gerbview (viewing Gerber files) and others.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"03k3y86mgc10ir5l1gdzc0r7w1gg7iavb1zl31kgfh9hnfmgv06w"))))
|
||||
"0msgq8p3zlfc3glqr1h8n0a1agk4hjdqxqdiny5b4d0hgiy6hhmx"))))
|
||||
(build-system cmake-build-system)
|
||||
(arguments
|
||||
`(#:tests? #f)) ; no tests exist
|
||||
@@ -1267,7 +1316,7 @@ libraries.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"0jzkrmzkxv3kqqmkpq5dpp3shy9ajfg1b1yzhk4ddzvy8l05qym4"))))
|
||||
"179y7xmz7mwsfsv4dcw2dx689xfzqk8y38d21s69yiaalyxflhh1"))))
|
||||
(synopsis "Official KiCad footprint libraries")
|
||||
(description "This package contains the official KiCad footprint libraries.")))
|
||||
|
||||
@@ -1284,7 +1333,7 @@ libraries.")
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"04hw6b4hyl2plfgynin3dv7siqml4341264wz2wngddszq8z32ki"))))
|
||||
"1y7yhynrr87q80gcb8qlkyrdccz1sllsxqymrnghhxbfk4wbwwn8"))))
|
||||
(synopsis "Official KiCad 3D model libraries")
|
||||
(description "This package contains the official KiCad 3D model libraries.")))
|
||||
|
||||
@@ -1537,11 +1586,7 @@ use on a given system.")
|
||||
(base32 "1gginbl76vmpccjwx93cmg8ibap8l40swly3bjv7rhmdwv6ikpnk"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
(list
|
||||
#:configure-flags
|
||||
#~(list "--disable-bindings"
|
||||
#$(string-append "CFLAGS="
|
||||
" -Wno-error=implicit-function-declaration"))))
|
||||
`(#:configure-flags '("--disable-bindings")))
|
||||
(native-inputs
|
||||
(list libxml2
|
||||
parallel
|
||||
@@ -2539,7 +2584,7 @@ for reverse engineers.")
|
||||
(mkdir-p dir)
|
||||
(symlink act (string-append dir "/act.linux"))))))))
|
||||
(native-inputs
|
||||
(list automatic-component-toolkit googletest-1.12 pkg-config))
|
||||
(list automatic-component-toolkit googletest pkg-config))
|
||||
(inputs
|
||||
(list `(,util-linux "lib") libzip libressl zlib))
|
||||
(synopsis "Implementation of the 3D Manufacturing Format (3MF) file standard")
|
||||
@@ -2893,7 +2938,7 @@ ontinuous-time and discret-time expressions.")
|
||||
(lambda _
|
||||
;; Required for fontconfig
|
||||
(setenv "HOME" "/tmp"))))))
|
||||
(inputs (list boost-1.83
|
||||
(inputs (list boost
|
||||
cairomm
|
||||
cgal
|
||||
clipper2
|
||||
@@ -3159,7 +3204,7 @@ dynamics is used by FreeCAD 1.0.0 for its new Assembly workbench.")
|
||||
swig))
|
||||
(inputs
|
||||
(list bash-minimal
|
||||
boost-1.83
|
||||
boost
|
||||
coin3d
|
||||
double-conversion
|
||||
eigen
|
||||
@@ -4100,7 +4145,7 @@ perform various useful functions such as:
|
||||
;; We would need to patch the CMake recipe to build a shared library
|
||||
;; with all of these.
|
||||
(inputs
|
||||
`(("boost" ,boost-1.83)
|
||||
`(("boost" ,boost)
|
||||
("cgal" ,cgal)
|
||||
("eigen" ,eigen)
|
||||
("embree" ,embree-3)
|
||||
@@ -4260,7 +4305,7 @@ G-codes to binary and vice versa.")
|
||||
(define-public prusa-slicer
|
||||
(package
|
||||
(name "prusa-slicer")
|
||||
(version "2.9.4")
|
||||
(version "2.9.3")
|
||||
(source
|
||||
(origin
|
||||
(method git-fetch)
|
||||
@@ -4269,7 +4314,7 @@ G-codes to binary and vice versa.")
|
||||
(url "https://github.com/prusa3d/PrusaSlicer")
|
||||
(commit (string-append "version_" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256 (base32 "008rnwld4i59xh8jg7kdqd8x8f2ynk6mbhs4iypqa8jssjpn0afn"))
|
||||
(sha256 (base32 "15m015fr6yd41dbh26p93xyc320w1j7drr0rkfhsgi1x3np8fsq7"))
|
||||
(patches (search-patches "prusa-slicer-add-cmake-module.patch"))
|
||||
(modules '((guix build utils)))
|
||||
(snippet
|
||||
@@ -4335,7 +4380,7 @@ G-codes to binary and vice versa.")
|
||||
(native-inputs
|
||||
(list pkg-config catch2-3.8))
|
||||
(inputs
|
||||
(list boost-1.83
|
||||
(list boost
|
||||
cereal
|
||||
cgal
|
||||
curl
|
||||
@@ -4477,7 +4522,7 @@ facilitate the communication between Cura and its backend and similar code.")
|
||||
(base32 "0xp2r0m5wwfsh9wdb3biqzvfqfz5jsmyw4bww93aksw0rgli07bp"))))
|
||||
(build-system cmake-build-system)
|
||||
(native-inputs
|
||||
(list googletest-1.13 pkg-config))
|
||||
(list googletest pkg-config))
|
||||
(inputs
|
||||
(list libarcus protobuf stb-image))
|
||||
(arguments
|
||||
@@ -4892,67 +4937,54 @@ able to work nicely with old or slow hardware.")
|
||||
license:expat))))
|
||||
|
||||
(define-public candle
|
||||
(package
|
||||
(name "candle")
|
||||
(version "10.11.1")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/Denvi/Candle")
|
||||
(commit (string-append "v" version))))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"1ihf06narzxckbapax1k2xj6c3jhv8nhjxpad7dabzf6s8dazsip"))))
|
||||
(build-system cmake-build-system)
|
||||
(native-inputs (list qt5ct qttools-5 qtscript-5))
|
||||
(inputs
|
||||
(list bash-minimal
|
||||
qtbase-5
|
||||
qtmultimedia-5
|
||||
qtserialport-5
|
||||
qtwayland-5
|
||||
qtwebsockets-5))
|
||||
(arguments
|
||||
(list #:tests? #f ; no tests.
|
||||
#:phases #~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'fix-installation-paths
|
||||
(lambda _
|
||||
(substitute* "src/designerplugins/CMakeLists.txt"
|
||||
(("DESIGNER_DESTINATION \"designerplugins\"")
|
||||
"DESIGNER_DESTINATION \"lib/designerplugins\""))
|
||||
(substitute* "src/customwidgets/CMakeLists.txt"
|
||||
(("TARGETS customwidgets RUNTIME DESTINATION .")
|
||||
"TARGETS customwidgets RUNTIME DESTINATION lib"))
|
||||
(substitute* "src/candle/CMakeLists.txt"
|
||||
(("candle PROPERTIES INSTALL_RPATH \"\\$ORIGIN/lib\"")
|
||||
"candle PROPERTIES INSTALL_RPATH \"$ORIGIN/../lib\"")
|
||||
(("install(.*/LICENSE DESTINATION .*)$")
|
||||
(string-append
|
||||
"install(FILES"
|
||||
" ${CMAKE_SOURCE_DIR}/LICENSE"
|
||||
" DESTINATION ${GENERAL_DESTINATION}/share/candle/)"))
|
||||
(("install(.*/help DESTINATION .*)$")
|
||||
(string-append
|
||||
"install(DIRECTORY"
|
||||
" ${CMAKE_SOURCE_DIR}/help"
|
||||
" DESTINATION ${GENERAL_DESTINATION}/share/candle/)"))
|
||||
(("TARGETS candle RUNTIME DESTINATION .")
|
||||
"TARGETS candle RUNTIME DESTINATION bin"))))
|
||||
(add-after 'install 'wrap-executable
|
||||
(lambda _
|
||||
(let ((qtbase #$(this-package-input "qtbase"))
|
||||
(qtwayland #$(this-package-input "qtwayland")))
|
||||
(wrap-program (string-append #$output "/bin/candle")
|
||||
`("QT_PLUGIN_PATH" ":" =
|
||||
(,(string-append qtwayland "/lib/qt5/plugins")))
|
||||
`("QT_QPA_PLATFORM_PLUGIN_PATH" ":" =
|
||||
(,(string-append qtwayland
|
||||
"/lib/qt5/plugins/platforms"))))))))))
|
||||
(home-page "https://github.com/Denvi/Candle")
|
||||
(synopsis "GRBL controller with G-Code visualizer")
|
||||
(description
|
||||
"Candle is a GRBL controller application with a visualizer for G-Code,
|
||||
;; The latest tagged version 1.2b fails on the build stage due to
|
||||
;; non-supported g++ flags so we need to use the latest commit from the
|
||||
;; 'master' branch in the repository.
|
||||
(let ((commit "3f763bcde1195e23ba119a5b3c70d7c889881019")
|
||||
(revision "1"))
|
||||
(package
|
||||
(name "candle")
|
||||
(version (git-version "1.2b" revision commit))
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/Denvi/Candle")
|
||||
(commit commit)))
|
||||
(file-name (git-file-name name version))
|
||||
(sha256
|
||||
(base32
|
||||
"08rqhl6a5a8s67a8yl16944zgcsnnb08xfv4klzyqwlvaqgfp783"))))
|
||||
(build-system gnu-build-system)
|
||||
(native-inputs (list qttools-5))
|
||||
(inputs (list qtbase-5 qtserialport-5))
|
||||
(arguments
|
||||
(list #:tests? #f ; no tests.
|
||||
#:phases #~(modify-phases %standard-phases
|
||||
(add-after 'unpack 'fix-sources
|
||||
(lambda _
|
||||
(substitute* (find-files "." ".*\\.h")
|
||||
(("const char\\* what\\(\\) const override")
|
||||
"const char* what() const noexcept override"))))
|
||||
(add-after 'unpack 'fix-application-settings-path
|
||||
(lambda _
|
||||
(substitute* "src/frmmain.cpp"
|
||||
(("\
|
||||
qApp->applicationDirPath\\(\\) \\+ \"\\/settings\\.ini\"")
|
||||
"QDir::homePath() + \"/.config/candle.ini\""))))
|
||||
(replace 'configure
|
||||
(lambda _
|
||||
(chdir "src")
|
||||
(invoke "qmake"
|
||||
(string-append "QMAKE_CC="
|
||||
#$(cc-for-target)))))
|
||||
(replace 'install
|
||||
(lambda _
|
||||
(install-file "Candle"
|
||||
(string-append #$output "/bin")))))))
|
||||
(home-page "https://github.com/Denvi/Candle")
|
||||
(synopsis "GRBL controller with G-Code visualizer")
|
||||
(description
|
||||
"Candle is a GRBL controller application with a visualizer for G-Code,
|
||||
the @acronym{CNC, computer numerical control} programming language.
|
||||
|
||||
Supported functions include:
|
||||
@@ -4964,7 +4996,7 @@ form, numpad.
|
||||
@item Loading, editing, saving and sending of G-code files to CNC-machine.
|
||||
@item Visualizing G-code files.
|
||||
@end itemize")
|
||||
(license license:gpl3+)))
|
||||
(license license:gpl3+))))
|
||||
|
||||
(define-public rizin
|
||||
(package
|
||||
@@ -5208,7 +5240,7 @@ and mogan.")
|
||||
(native-inputs
|
||||
(list pkg-config))
|
||||
(inputs
|
||||
(list glibmm-2.66 gmp python boost-1.83 gtkmm-3 sqlite python-gmpy2 python-sympy
|
||||
(list glibmm-2.66 gmp python boost gtkmm-3 sqlite python-gmpy2 python-sympy
|
||||
python-mpmath python-matplotlib texlive-dvipng
|
||||
`(,util-linux "lib")))
|
||||
(synopsis "Computer algebra system geared towards field theory")
|
||||
|
||||
@@ -36,14 +36,14 @@
|
||||
(define-public entr
|
||||
(package
|
||||
(name "entr")
|
||||
(version "5.7")
|
||||
(version "5.6")
|
||||
(source
|
||||
(origin
|
||||
(method url-fetch)
|
||||
(uri (string-append "https://eradman.com/entrproject/code/entr-"
|
||||
version ".tar.gz"))
|
||||
(sha256
|
||||
(base32 "0ryhylhd682m5cxz3zjyv5zxvxd4dqm3h6mlgvrwww0ch91xkich"))))
|
||||
(base32 "0kniklgnqv4j9carm78d3423wlwqw1ykxmlla4xmlfwdjbgvh8h2"))))
|
||||
(build-system gnu-build-system)
|
||||
(arguments
|
||||
`(#:test-target "test"
|
||||
@@ -68,7 +68,7 @@
|
||||
(search-input-file inputs command))
|
||||
(("/usr(/bin/clear)" _ command)
|
||||
(search-input-file inputs command))))))))
|
||||
(inputs (list bash-minimal coreutils))
|
||||
(inputs (list bash-minimal coreutils ncurses))
|
||||
(home-page "https://eradman.com/entrproject/")
|
||||
(synopsis "Run arbitrary commands when files change")
|
||||
(description
|
||||
|
||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user