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

Merge remote-tracking branch 'origin/master' into staging

Browse Source
This commit is contained in:
Efraim Flashner 2022-10-25 21:50:59 +03:00
commit 6ff203663e
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
165 changed files with 4040 additions and 10128 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
doc/guix.texi
View File

@ -950,9 +950,11 @@ version 3.0.3 or later;
@item @url{https://notabug.org/cwebber/guile-gcrypt, Guile-Gcrypt}, version
0.1.0 or later;
@item
@uref{https://gnutls.org/, GnuTLS}, specifically its Guile bindings
(@pxref{Guile Preparations, how to install the GnuTLS bindings for
Guile,, gnutls-guile, GnuTLS-Guile});
@uref{https://gitlab.com/gnutls/guile/, Guile-GnuTLS} (@pxref{Guile
Preparations, how to install the GnuTLS bindings for Guile,,
gnutls-guile, GnuTLS-Guile})@footnote{The Guile bindings to
@uref{https://gnutls.org/, GnuTLS} were distributed as part of GnuTLS
until version 3.7.8 included.};
@item
@uref{https://notabug.org/guile-sqlite3/guile-sqlite3, Guile-SQLite3}, version 0.1.0
or later;
@ -4645,7 +4647,7 @@ but it supports the following options:
@itemx --branch=@var{branch}
Download code for the @code{guix} channel from the specified @var{url}, at the
given @var{commit} (a valid Git commit ID represented as a hexadecimal
string), or @var{branch}.
string or the name of a tag), or @var{branch}.
@cindex @file{channels.scm}, configuration file
@cindex configuration file for channels
@ -4797,6 +4799,25 @@ of Guix to be used is defined by a commit or by a channel
description file created by @command{guix describe}
(@pxref{Invoking guix describe}).
Let's assume that you want to travel to those days of November 2020 when
version 1.2.0 of Guix was released and, once you're there, run the
@command{guile} of that time:
@example
guix time-machine --commit=v1.2.0 -- \
environment -C --ad-hoc guile -- guile
@end example
The command above fetches Guix@tie{}1.2.0 and runs its @command{guix
environment} command to spawn an environment in a container running
@command{guile} (@command{guix environment} has since been subsumed by
@command{guix shell}; @pxref{Invoking guix shell}). It's like driving a
DeLorean@footnote{If you don't know what a DeLorean is, consider
traveling back to the 1980's.}! The first @command{guix time-machine}
invocation can be expensive: it may have to download or even build a
large number of packages; the result is cached though and subsequent
commands targeting the same commit are almost instantaneous.
The general syntax is:
@example
@ -4813,7 +4834,7 @@ this revision are the same as for @command{guix pull} (@pxref{Invoking guix pull
@itemx --branch=@var{branch}
Use the @code{guix} channel from the specified @var{url}, at the
given @var{commit} (a valid Git commit ID represented as a hexadecimal
string), or @var{branch}.
string or the name of a tag), or @var{branch}.
@item --channels=@var{file}
@itemx -C @var{file}
@ -16525,6 +16546,7 @@ This is a list of symbols denoting mount flags. Recognized flags
include @code{read-only}, @code{bind-mount}, @code{no-dev} (disallow
access to special files), @code{no-suid} (ignore setuid and setgid
bits), @code{no-atime} (do not update file access times),
@code{no-diratime} (likewise for directories only),
@code{strict-atime} (update file access time), @code{lazy-time} (only
update time on the in-memory version of the file inode),
@code{no-exec} (disallow program execution), and @code{shared} (make the
@ -21627,7 +21649,7 @@ The name of the icon theme to use.
The name of the cursor theme to use.
@item @code{cursor-theme-size} (default: @code{16}) (type: number)
The size to use for the the cursor theme.
The size to use for the cursor theme.
@item @code{allow-debugging?} (type: maybe-boolean)
Set to #t to enable debug log level.
@ -22962,7 +22984,7 @@ Enable polling the kernel for battery level changes.
Ignore the lid state, this can be useful if it's incorrect on a device.
@item @code{use-percentage-for-policy?} (default: @code{#t})
Whether a to use a policy based on battery percentage rather than on
Whether to use a policy based on battery percentage rather than on
estimated time left. A policy based on battery percentage is usually
more reliable.
@ -26752,7 +26774,7 @@ When left unspecified, the value from the account archive prevails.
Whether peer discovery should be enabled. Peer discovery is used to
discover other OpenDHT nodes on the local network, which can be useful
to maintain communication between devices on such network even when the
connection to the the Internet has been lost. When left unspecified,
connection to the Internet has been lost. When left unspecified,
the value from the account archive prevails.
@item @code{bootstrap-hostnames} (type: maybe-string-list)
@ -30989,7 +31011,7 @@ can run on headless servers. The Xvnc implementations provided by the
The @code{xvnc-server-type} service can be configured via the
@code{xvnc-configuration} record, documented below. A second virtual
display could be made available on a remote machine for via the
display could be made available on a remote machine via the
following configuration:
@end defvar
@ -30998,7 +31020,7 @@ following configuration:
@end lisp
As a demonstration, the @command{xclock} command could then be started
on the remote machine on display number 10, and it could be display
on the remote machine on display number 10, and it could be displayed
locally via the @command{vncviewer} command:
@example
# Start xclock on the remote machine.
@ -31421,6 +31443,24 @@ the file does not exist.
The authorized peers on this interface. This is a list of
@var{wireguard-peer} records.
@item @code{pre-up} (default: @code{'()})
The script commands to be run before setting up the interface.
@item @code{post-up} (default: @code{'()})
The script commands to be run after setting up the interface.
@item @code{pre-down} (default: @code{'()})
The script commands to be run before tearing down the interface.
@item @code{post-down} (default: @code{'()})
The script commands to be run after tearing down the interface.
@item @code{table} (default: @code{"auto"})
The routing table to which routes are added, as a string. There are two
special values: @code{"off"} that disables the creation of routes
altogether, and @code{"auto"} (the default) that adds routes to the
default table and enables special handling of default routes.
@end table
@end deftp
@ -35578,7 +35618,21 @@ Data type representing the configuration for @code{gitolite-service-type}.
@table @asis
@item @code{package} (default: @var{gitolite})
Gitolite package to use.
Gitolite package to use. There are optional Gitolite dependencies that
are not included in the default package, such as Redis and git-annex.
These features can be made available by using the @code{make-gitolite}
procedure in the @code{(gnu packages version-control}) module to produce
a variant of Gitolite with the desired additional dependencies.
The following code returns a package in which the Redis and git-annex
programs can be invoked by Gitolite's scripts:
@example
(use-modules (gnu packages databases)
(gnu packages haskell-apps)
(gnu packages version-control))
(make-gitolite (list redis git-annex))
@end example
@item @code{user} (default: @var{git})
User to use for Gitolite. This will be user that you use when accessing

40
etc/guix-install.sh
View File

@ -3,7 +3,7 @@
# Copyright © 2017 sharlatan <sharlatanus@gmail.com>
# Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
# Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
# Copyright © 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
# Copyright © 2019–2020, 2022 Tobias Geerinckx-Rice <me@tobias.gr>
# Copyright © 2020 Morgan Smith <Morgan.J.Smith@outlook.com>
# Copyright © 2020 Simon Tournier <zimon.toutoune@gmail.com>
# Copyright © 2020 Daniel Brooks <db48x@db48x.net>
@ -33,7 +33,7 @@ then
exec bash "$0" "$@"
fi
set -e
set -eo pipefail
[ "$UID" -eq 0 ] || { echo "This script must be run as root."; exit 1; }
@ -137,21 +137,27 @@ chk_gpg_keyring()
gpg_key_id=${GPG_SIGNING_KEYS[$user_id]}
# Without --dry-run this command will create a ~/.gnupg owned by root on
# systems where gpg has never been used, causing errors and confusion.
if ! gpg --dry-run --list-keys "$gpg_key_id" >/dev/null 2>&1; then
if prompt_yes_no "${INF}The following OpenPGP public key is \
if gpg --dry-run --list-keys "$gpg_key_id" >/dev/null 2>&1; then
continue
fi
if prompt_yes_no "${INF}The following OpenPGP public key is \
required to verify the Guix binary signature: $gpg_key_id.
Would you like me to fetch it for you?"; then
wget "https://sv.gnu.org/people/viewgpg.php?user_id=$user_id" \
--no-verbose -O- | gpg --import -
else
_err "${ERR}Missing OpenPGP public key ($gpg_key_id).
# Use a reasonable time-out here so users don't report silent
# ‘freezes’ when Savannah goes out to lunch, as has happened.
if wget "https://sv.gnu.org/people/viewgpg.php?user_id=$user_id" \
--timeout=30 --no-verbose -O- | gpg --import -; then
continue
fi
fi
# If we reach this point, the key is (still) missing. Report further
# missing keys, if any, but then abort the installation.
_err "${ERR}Missing OpenPGP public key ($gpg_key_id).
Fetch it with this command:
wget \"https://sv.gnu.org/people/viewgpg.php?user_id=$user_id\" -O - | \
sudo -i gpg --import -"
exit_flag=yes
fi
fi
exit_flag=yes
done
if [ "$exit_flag" = yes ]; then
exit 1
@ -575,6 +581,7 @@ fi
welcome()
{
local char
cat<<"EOF"
░░░ ░░░
░░▒▒░░░░░░░░░ ░░░░░░░░░▒▒░░
@ -600,8 +607,15 @@ This script installs GNU Guix on your system
https://www.gnu.org/software/guix/
EOF
echo -n "Press return to continue..."
read -r
# Don't use ‘read -p’ here! It won't display when run non-interactively.
echo -n "Press return to continue..."$'\r'
read -r char
if [ "$char" ]; then
echo
echo "...that ($char) was not a return!"
_msg "${WAR}Use newlines to automate installation, e.g.: yes '' | ${0##*/}"
_msg "${WAR}Any other method is unsupported and likely to break in future."
fi
}
main()

20
etc/news.scm
View File

@ -30,7 +30,8 @@
(title
(en "New @option{--emulate-fhs} option for @command{guix shell}")
(de "Neue Option @option{--emulate-fhs} für @command{guix shell}")
(fr "Nouvelle option @option{--emulate-fhs} pour @command{guix shell}"))
(fr "Nouvelle option @option{--emulate-fhs} pour @command{guix shell}")
(pt "Nova opção @option{--emulate-fhs} para o @command{guix shell}"))
(body
(en "The @command{guix shell} command has a new
@option{--emulate-fhs} (or @option{-F}) option. Combined with
@ -76,7 +77,22 @@ guix shell -CF coreutils -- /bin/ls
@end example
Lancer @command{info \"(guix.fr) Invoquer guix shell\"} pour plus
d'informations.")))
d'informations.")
(pt "O comando @command{guix shell} tem uma nova opção
@option{--emulate-fhs} (ou @option{-F}). Combinada com
@option{--container} (ou @option{-C}), ela emula o layout de arquivos e
diretórios especificado pelo Padrão de Hierarquia do Sistema de
Arquivos (Filesystem Hierarchy Standard — FHS), provendo @file{/bin},
@file{/lib}, etc. dentro do contêiner.
Por exemplo, o comando seguinte executa @file{/bin/ls} dentro de um contêiner
desse tipo:
@example
guix shell -CF coreutils -- /bin/ls
@end example
Execute @command{info \"(guix) Invoking guix shell\"} para mais informações.")))
(entry (commit "28ade1bab207974cce6a014e7187968511fc5526")
(title

13
etc/release-manifest.scm
View File

@ -51,12 +51,11 @@ TARGET."
"openssh" "emacs" "vim" "python" "guile" "guix")))
(define %base-packages/armhf
;; XXX: Relax requirements for armhf-linux for lack of enough build power.
(map (lambda (package)
(if (string=? (package-name package) "emacs")
(specification->package "emacs-no-x")
package))
%base-packages))
;; The guix package doesn't build natively on armhf due to Guile memory
;; issues compiling the package modules
(remove (lambda (package)
(string=? (package-name package) "guix"))
%base-packages))
(define %base-packages/hurd
;; XXX: For now we are less demanding of "i586-gnu".
@ -112,8 +111,6 @@ TARGET."
(cond ((string=? system "i586-gnu")
%base-packages/hurd)
((string=? system "armhf-linux")
;; FIXME: Drop special case when ci.guix.gnu.org
;; has more ARMv7 build power.
%base-packages/armhf)
((string=? system "powerpc64le-linux")
;; FIXME: Drop 'bootstrap-tarballs' until

15
etc/snippets/tempel/text-mode
View File

@ -12,7 +12,8 @@ text-mode :when (and (fboundp 'git-commit-mode) (git-commit-mode))
(match-string-no-properties 1)))
var)
"." n n
"* " (car (magit-staged-files)) " (" (s var ) "): New variable.")
"* " (p (or (car (magit-staged-files)) ""))
" (" (s var ) "): New variable.")
(remove\ "gnu: Remove "
(p (with-temp-buffer
@ -24,7 +25,8 @@ text-mode :when (and (fboundp 'git-commit-mode) (git-commit-mode))
(match-string-no-properties 1)))
var)
"." n n
"* " (car (magit-staged-files)) " (" (s var) "): Delete variable.")
"* " (p (or (car (magit-staged-files)) ""))
" (" (s var) "): Delete variable.")
(rename\ "gnu: "
(p (with-temp-buffer
@ -43,7 +45,7 @@ text-mode :when (and (fboundp 'git-commit-mode) (git-commit-mode))
(thing-at-point 'sexp 'no-properties)))
new-var)
"." n n
"* " (car (magit-staged-files)) " (" (s prev-var) "): "
"* " (p (or (car (magit-staged-files)) "")) " (" (s prev-var) "): "
"Define in terms of" n
"'deprecated-package'." n
"(" (s new-var) "): New variable, formerly known as \""
@ -74,7 +76,7 @@ text-mode :when (and (fboundp 'git-commit-mode) (git-commit-mode))
(buffer-substring-no-properties (point) (- end 2))))))
version)
"." n n
"* " (car (magit-staged-files)) " (" (s var) "): "
"* " (p (or (car (magit-staged-files)) "")) " (" (s var) "): "
"Update to " (s version) "." n
(mapconcat (lambda (file) (concat "* " file))
(cdr (magit-staged-files))
@ -92,7 +94,7 @@ text-mode :when (and (fboundp 'git-commit-mode) (git-commit-mode))
(thing-at-point 'sexp 'no-properties)))))
var)
"." n n
"* " (car (magit-staged-files))
"* " (p (or (car (magit-staged-files)) ""))
" (cl-" (s var)
", ecl-" (s var)
", sbcl-" (s var) "): New variables.")
@ -107,7 +109,8 @@ text-mode :when (and (fboundp 'git-commit-mode) (git-commit-mode))
(match-string-no-properties 1)))
var)
": Use HTTPS home page." n n
"* " (car (magit-staged-files)) " (" (s var) ")[home-page]: Use HTTPS."
"* " (p (or (car (magit-staged-files)) ""))
" (" (s var) ")[home-page]: Use HTTPS."
n
(mapconcat (lambda (file) (concat "* " file))
(cdr (magit-staged-files))

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

@ -1132,6 +1132,8 @@ corresponds to the symbols listed in FLAGS."
(logior MS_NOEXEC (loop rest)))
(('no-atime rest ...)
(logior MS_NOATIME (loop rest)))
(('no-diratime rest ...)
(logior MS_NODIRATIME (loop rest)))
(('strict-atime rest ...)
(logior MS_STRICTATIME (loop rest)))
(('lazy-time rest ...)

3
gnu/ci.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012-2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2012-2022 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2017, 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2018, 2019 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2020 Julien Lepiller <julien@lepiller.eu>
@ -25,7 +25,6 @@
#:use-module (guix config)
#:autoload (guix describe) (package-channels)
#:use-module (guix store)
#:use-module (guix grafts)
#:use-module (guix profiles)
#:use-module (guix packages)
#:autoload (guix transformations) (tunable-package? tuned-package)

3
gnu/home/services/desktop.scm
View File

@ -201,7 +201,8 @@ according to time of day.")))
(format #f "/run/user/~a"
(getuid)))))
#:environment-variables
'(list "DBUS_VERBOSE=1")
(cons "DBUS_VERBOSE=1"
(default-environment-variables))
#:log-file
(format #f "~a/dbus.log"
(or (getenv "XDG_LOG_HOME")

2
gnu/installer/final.scm
View File

@ -211,7 +211,7 @@ or #f. Return #t on success and #f on failure."
(setenv "PATH" "/run/current-system/profile/bin/")
(set! ret (run-command install-command)))
(set! ret (run-command install-command #:tty? #t)))
(lambda ()
;; Restart guix-daemon so that it does no keep the MNT namespace
;; alive.

3
gnu/installer/newt.scm
View File

@ -62,6 +62,9 @@
(clear-screen))
(define (exit-error error)
;; Newt may be suspended in the context of the "install-system"
;; procedure. Resume it unconditionnally.
(newt-resume)
(newt-set-color COLORSET-ROOT "white" "red")
(define action
(run-textbox-page

9
gnu/installer/newt/final.scm
View File

@ -80,16 +80,21 @@ press the button to reboot.")))
(define (run-install-failed-page)
(match (current-clients)
(()
(match (choice-window
(match (ternary-window
(G_ "Installation failed")
(G_ "Resume")
(G_ "Restart the installer")
(G_ "Report the failure")
(G_ "The final system installation step failed. You can resume from \
a specific step, or restart the installer."))
(1 (abort-to-prompt 'installer-step 'abort))
(2
;; Keep going, the installer will be restarted later on.
#t)))
#t)
(3 (raise
(condition
(&message
(message "User abort.")))))))
(_
(send-to-clients '(installation-failure))
#t)))

11
gnu/installer/newt/network.scm
View File

@ -115,6 +115,11 @@ network devices were found. Do you want to continue anyway?"))
(define (wait-service-online)
"Display a newt scale until connman detects an Internet access. Do
FULL-VALUE tentatives, spaced by 1 second."
(define (url-alive? url)
(false-if-exception
(= (response-code (http-request url))
200)))
(define (ci-available?)
(dynamic-wind
(lambda ()
@ -122,10 +127,8 @@ FULL-VALUE tentatives, spaced by 1 second."
(lambda _ #f))
(alarm 3))
(lambda ()
(false-if-exception
(= (response-code
(http-request "https://ci.guix.gnu.org"))
200)))
(or (url-alive? "https://ci.guix.gnu.org")
(url-alive? "https://bordeaux.guix.gnu.org")))
(lambda ()
(alarm 0))))

2
gnu/installer/newt/partition.scm
View File

@ -108,7 +108,7 @@ all data on disk will be lost, are you sure you want to proceed?") item)
"Run a page asking the user to select a partition table label."
;; Force the GPT label if UEFI is supported.
(if (efi-installation?)
"gpt"
((run-label-confirmation-page button-callback) "gpt")
(run-listbox-selection-page
#:info-text (G_ "Select a new partition table type. \
Be careful, all data on the disk will be lost.")

2
gnu/installer/newt/substitutes.scm
View File

@ -28,7 +28,7 @@
(match (current-clients)
(()
(case (choice-window
(G_ "Substitute server discovery.")
(G_ "Substitute server discovery")
(G_ "Enable") (G_ "Disable")
(G_ " By turning this option on, you allow Guix to fetch \
substitutes (pre-built binaries) during installation from servers \

53
gnu/installer/newt/welcome.scm
View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2022 Florian Pelz <pelzflorian@pelzflorian.de>
;;;
;;; This file is part of GNU Guix.
;;;
@ -17,6 +18,8 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu installer newt welcome)
#:use-module ((gnu build linux-modules)
#:select (modules-loaded))
#:use-module (gnu installer steps)
#:use-module (gnu installer utils)
#:use-module (gnu installer newt page)
@ -121,30 +124,38 @@ we want this page to occupy all the screen space available."
"Run a welcome page with the given textual LOGO displayed at the center of
the page. Ask the user to choose between manual installation, graphical
installation and reboot."
(run-menu-page
(G_ "GNU Guix install")
(G_ "Welcome to GNU Guix system installer!
(begin
(when (member "uvesafb" (modules-loaded))
(run-error-page (G_ "\
This may be a false alarm, but possibly your graphics hardware does not
work well with only free software. Expect trouble. If after installation,
the system does not boot, perhaps you will need to add nomodeset to the
kernel arguments and need to configure the uvesafb kernel module.")
(G_ "Pre-install warning")))
(run-menu-page
(G_ "GNU Guix install")
(G_ "Welcome to GNU Guix system installer!
You will be guided through a graphical installation program.
If you are familiar with GNU/Linux and you want tight control over \
the installation process, you can instead choose manual installation. \
Documentation is accessible at any time by pressing Ctrl-Alt-F2.")
logo
#:listbox-items
`((,(G_ "Graphical install using a terminal based interface")
.
,(const #t))
(,(G_ "Install using the shell based process")
.
,(lambda ()
;; Switch to TTY3, where a root shell is available for shell based
;; install. The other root TTY's would have been ok too.
(system* "chvt" "3")
(run-welcome-page logo)))
(,(G_ "Reboot")
.
,(lambda ()
(newt-finish)
(reboot))))
#:listbox-item->text car))
logo
#:listbox-items
`((,(G_ "Graphical install using a terminal based interface")
.
,(const #t))
(,(G_ "Install using the shell based process")
.
,(lambda ()
;; Switch to TTY3, where a root shell is available for shell based
;; install. The other root TTY's would have been ok too.
(system* "chvt" "3")
(run-welcome-page logo)))
(,(G_ "Reboot")
.
,(lambda ()
(newt-finish)
(reboot))))
#:listbox-item->text car)))

50
gnu/installer/utils.scm
View File

@ -20,6 +20,7 @@
(define-module (gnu installer utils)
#:use-module (gnu services herd)
#:use-module (guix utils)
#:use-module ((guix build syscalls) #:select (openpty login-tty))
#:use-module (guix build utils)
#:use-module (guix i18n)
#:use-module (srfi srfi-1)
@ -45,6 +46,7 @@
nearest-exact-integer
read-percentage
run-external-command-with-handler
run-external-command-with-handler/tty
run-external-command-with-line-hooks
run-command
run-command-in-installer
@ -124,10 +126,37 @@ the child process as returned by waitpid."
(close-port input)
(close-pipe dummy-pipe)))
(define (run-external-command-with-line-hooks line-hooks command)
(define (run-external-command-with-handler/tty handler command)
"Run command specified by the list COMMAND in a child operating in a
pseudoterminal with output handler HANDLER. HANDLER is a procedure taking an
input port, to which the command will write its standard output and error.
Returns the integer status value of the child process as returned by waitpid."
(define-values (controller inferior)
(openpty))
(match (primitive-fork)
(0
(catch #t
(lambda ()
(close-fdes controller)
(login-tty inferior)
(apply execlp (car command) command))
(lambda _
(primitive-exit 127))))
(pid
(close-fdes inferior)
(let* ((port (fdopen controller "r0"))
(result (false-if-exception
(handler port))))
(close-port port)
(cdr (waitpid pid))))))
(define* (run-external-command-with-line-hooks line-hooks command
#:key (tty? #false))
"Run command specified by the list COMMAND in a child, processing each
output line with the procedures in LINE-HOOKS. Returns the integer status
value of the child process as returned by waitpid."
output line with the procedures in LINE-HOOKS. If TTY is set to #true, the
COMMAND will be run in a pseudoterminal. Returns the integer status value of
the child process as returned by waitpid."
(define (handler input)
(and
(and=> (get-line input)
@ -136,14 +165,17 @@ value of the child process as returned by waitpid."
#f
(begin (for-each (lambda (f) (f line))
(append line-hooks
%default-installer-line-hooks))
%default-installer-line-hooks))
#t))))
(handler input)))
(run-external-command-with-handler handler command))
(if tty?
(run-external-command-with-handler/tty handler command)
(run-external-command-with-handler handler command)))
(define* (run-command command)
(define* (run-command command #:key (tty? #f))
"Run COMMAND, a list of strings. Return true if COMMAND exited
successfully, #f otherwise."
successfully, #f otherwise. If TTY is set to #true, the COMMAND will be run
in a pseudoterminal."
(define (pause)
(format #t (G_ "Press Enter to continue.~%"))
(send-to-clients '(pause))
@ -154,8 +186,8 @@ successfully, #f otherwise."
(installer-log-line "running command ~s" command)
(define result (run-external-command-with-line-hooks
(list %display-line-hook)
command))
(list %display-line-hook) command
#:tty? tty?))
(define exit-val (status:exit-val result))
(define term-sig (status:term-sig result))
(define stop-sig (status:stop-sig result))

2
gnu/local.mk
View File

@ -1194,7 +1194,6 @@ dist_patch_DATA = \
%D%/packages/patches/ghostscript-no-header-id.patch \
%D%/packages/patches/ghostscript-no-header-uuid.patch \
%D%/packages/patches/ghostscript-no-header-creationdate.patch \
%D%/packages/patches/giac-pari-gp-anyarg.patch \
%D%/packages/patches/giara-fix-login.patch \
%D%/packages/patches/glib-appinfo-watch.patch \
%D%/packages/patches/glib-networking-gnutls-binding.patch \
@ -1814,7 +1813,6 @@ dist_patch_DATA = \
%D%/packages/patches/rust-nettle-disable-vendor.patch \
%D%/packages/patches/rust-nettle-sys-disable-vendor.patch \
%D%/packages/patches/rust-openssl-sys-no-vendor.patch \
%D%/packages/patches/rust-shell2batch-lint-fix.patch \
%D%/packages/patches/rust-wl-clipboard-rs-newer-wl.patch \
%D%/packages/patches/sbc-fix-build-non-x86.patch \
%D%/packages/patches/sbcl-aserve-add-HTML-5-elements.patch \

2
gnu/machine/ssh.scm
View File

@ -466,7 +466,7 @@ environment type of 'managed-host."
(machine-configuration machine))
(unless (file-exists? %public-key-file)
(raise (formatted-message (G_ "no signing key '~a'. \
have you run 'guix archive --generate-key?'")
Have you run 'guix archive --generate-key'?")
%public-key-file)))
(remote-authorize-signing-key (call-with-input-file %public-key-file
(lambda (port)

2
gnu/packages/accessibility.scm
View File

@ -339,7 +339,7 @@ assistant for graphic designers, who need to select individual pixels.")
(synopsis "Bridge for espeak and speakup")
(description
"Espeakup is a bridge between the speakup driver implemented in
the Linux kernel and the espeak-ng text to speach synthesizer.
the Linux kernel and the espeak-ng text to speech synthesizer.
In order for this package to work, you need to have the following
kernel modules built:
@itemize @bullet

54
gnu/packages/admin.scm
View File

@ -54,6 +54,7 @@
;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
;;; Copyright © 2022 Andreas Rammhold <andreas@rammhold.de>
;;; Copyright © 2022 ( <paren@disroot.org>
;;; Copyright © 2022 Matthew James Kraai <kraai@ftbfs.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -3211,13 +3212,13 @@ platform-specific methods.")
(package
(name "audit")
(home-page "https://people.redhat.com/sgrubb/audit/")
(version "3.0.8")
(version "3.0.9")
(source (origin
(method url-fetch)
(uri (string-append home-page "audit-" version ".tar.gz"))
(sha256
(base32
"04w9m9ffvi58z11i344wa1hji9ba68cdklrkizhiwf39mnwxkx5m"))))
"0y5w8pl91xapi49ih1pw7h48lac201cj7fm89hkklmzi9m2715gx"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags (list "--with-python=no"
@ -5596,3 +5597,52 @@ mechanisms if you really want to protect services.")
several hosts in succession or in parallel. It can also be used to copy a
file or files to several hosts.")
(license license:gpl3+)))
(define-public doctl
(package
(name "doctl")
(version "1.84.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/digitalocean/doctl")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1jmqvz1rdqrsr4l0bv3ik1jla0xnbdvcmnw9892acvfs3wsmliyc"))))
(build-system go-build-system)
(arguments
(list #:import-path "github.com/digitalocean/doctl/cmd/doctl"
#:unpack-path "github.com/digitalocean/doctl"
#:go go-1.19
#:build-flags
#~(list (string-append "-ldflags=-X github.com/digitalocean/doctl.Label=release"
" -X github.com/digitalocean/doctl.Major="
(car (string-split #$version #\.))
" -X github.com/digitalocean/doctl.Minor="
(cadr (string-split #$version #\.))
" -X github.com/digitalocean/doctl.Patch="
(caddr (string-split #$version #\.))))
#:install-source? #f
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'install-completions
(lambda _
(define (install-completion shell file)
(let ((file (string-append #$output file)))
(mkdir-p (dirname file))
(with-output-to-file file
(lambda _
(invoke (string-append #$output "/bin/doctl")
"completion" shell)))))
(install-completion "bash" "/etc/bash_completion.d/doctl")
(install-completion "fish"
"/etc/fish/completions/doctl.fish")
(install-completion "zsh"
"/etc/zsh/site-functions/_doctl"))))))
(home-page "https://github.com/digitalocean/doctl")
(synopsis "Command line client for DigitalOcean")
(description
"@code{doctl} provides a unified command line interface to the DigitalOcean API.")
(license license:asl2.0)))

9
gnu/packages/algebra.scm
View File

@ -327,7 +327,7 @@ precision.")
(define-public giac
(package
(name "giac")
(version "1.9.0-21")
(version "1.9.0-25")
(source
(origin
(method url-fetch)
@ -339,12 +339,7 @@ precision.")
"~parisse/debian/dists/stable/main/source/"
"giac_" version ".tar.gz"))
(sha256
(base32 "1zh7bf0ag4vbyyj5n8lbvy2ivp0kshms40ra5lq1ff035rpx230j"))
(patches
;; Patch borrowed from Sage math team. Giac 1.9.0-21 does not build
;; since Pari-GP 2.15 upgrade. Reported upstream here:
;; <https://xcas.univ-grenoble-alpes.fr/forum/viewtopic.php?f=3&t=2800>.
(search-patches "giac-pari-gp-anyarg.patch"))))
(base32 "0wcb3yy0lgk8mkzay4jmk7w6hgpz454diz32q52zxl1n27gc2jd4"))))
(build-system gnu-build-system)
(arguments
(list

2
gnu/packages/animation.scm
View File

@ -559,7 +559,7 @@ stacking and changing parameters in SWFs.
@item
@command{swfstrings} Scans SWFs for text data.
@item
@command{swfdump} Prints out various informations about SWFs.
@command{swfdump} Prints out various information about SWFs.
@item
@command{jpeg2swf} Takes one or more JPEG pictures and generates a SWF

24
gnu/packages/astronomy.scm
View File

@ -518,7 +518,7 @@ astronomical image-processing packages like Drizzle, Swarp or SExtractor.")
(define-public gnuastro
(package
(name "gnuastro")
(version "0.18")
(version "0.19")
(source
(origin
(method url-fetch)
@ -526,7 +526,7 @@ astronomical image-processing packages like Drizzle, Swarp or SExtractor.")
version ".tar.lz"))
(sha256
(base32
"1y9ig2kkwiwl0rmp9ip9n83fyjjpg2cc2pxzvdzr8rysq5az357y"))))
"192q3i4zlfmwfcchlf9lnpfgys9dssh7npr5qx0gzn3d2fri0xbz"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags '("--disable-static")))
@ -879,13 +879,13 @@ accurately in real time at any rate desired.")
(define-public python-astropy
(package
(name "python-astropy")
(version "5.0.1")
(version "5.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "astropy" version))
(sha256
(base32 "09wh589ywjsgjvi76v2d2zqd9sri0461rrnml0b0pah5lbkcv0k3"))
(base32 "0zkv3ddzlxx21i796azfbqxrqnsxn83vsczscv577iyzxp3v5c8x"))
(modules '((guix build utils)))
(snippet
'(begin
@ -948,7 +948,7 @@ accurately in real time at any rate desired.")
python-ipython
python-jplephem
python-objgraph
python-pytest
python-pytest-7.1
python-pytest-astropy
python-pytest-xdist
python-setuptools-scm
@ -974,13 +974,13 @@ astronomy and astrophysics.")
(define-public python-astropy-healpix
(package
(name "python-astropy-healpix")
(version "0.6")
(version "0.7")
(source
(origin
(method url-fetch)
(uri (pypi-uri "astropy-healpix" version))
(uri (pypi-uri "astropy_healpix" version))
(sha256
(base32 "1436ml03xkmvx4afzbhfj67ab91418sz1w3lq1b18r43qchnd6j0"))))
(base32 "1n1svmd41iv944zf4anbnsigd47zr4dfjf49vrc7m6928gmq9hw8"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -1125,13 +1125,13 @@ of dates.")
(define-public python-photutils
(package
(name "python-photutils")
(version "1.3.0")
(version "1.5.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "photutils" version))
(sha256
(base32 "1a8djakaya6w5iv9237gkcz39brqzgrfs2wqrl0izi1s85cfdymn"))))
(base32 "129n268wnziprrv09f7y6f98cj1vh1bzp7ygsna10h3ilnjplkq1"))))
(build-system python-build-system)
(arguments
`(#:test-target "pytest"
@ -1192,13 +1192,13 @@ Virtual observatory (VO) using Python.")
(define-public python-regions
(package
(name "python-regions")
(version "0.5")
(version "0.6")
(source
(origin
(method url-fetch)
(uri (pypi-uri "regions" version))
(sha256
(base32 "1bjrcjchbw3xw1a26d5g198lh7vxpp9m5sal58r7f8mmr1d8g2dc"))))
(base32 "0p95bxxw4dgd16rh1yj7zvfbijk52dqvqj20nj6q8kr5ms08acl0"))))
(build-system python-build-system)
(arguments
`(#:test-target "pytest"

70
gnu/packages/audio.scm
View File

@ -236,7 +236,7 @@ promoting the market for advanced audio.")
("openal" ,openal)))
(synopsis "Software Synthesizer")
(description "WildMIDI is a simple software midi player which has a core
softsynth library that can be use with other applications.")
softsynth library that can be used with other applications.")
(home-page "https://www.mindwerks.net/projects/wildmidi/")
(license
(list
@ -475,31 +475,6 @@ by MusicIP.")
(home-page "https://code.google.com/archive/p/musicip-libofa/")
(license license:gpl2+)))
(define-public faac
(package
(name "faac")
(version "1.30")
(source
(origin
(method url-fetch)
(uri
(string-append "mirror://sourceforge/faac/faac-src"
"/faac-" version "/faac-1_30.tar.gz"))
(sha256
(base32 "1lmj0dib3mjp84jhxc5ddvydkzzhb0gfrdh3ikcidjlcb378ghxd"))))
(build-system gnu-build-system)
(native-inputs
(list autoconf automake libtool pkg-config))
(synopsis "Freeware Advanced Audio Coder")
(description "FAAC is an MPEG-4 and MPEG-2 AAC encoder.")
(home-page "https://www.audiocoding.com/faac.html")
(license
(list
;; ISO MPEG-4 reference code.
license:gpl2+
;; Others.
license:lgpl2.0+))))
(define-public libtimidity
(package
(name "libtimidity")
@ -1126,6 +1101,39 @@ guitar amplification and a small range of classic effects, signal processors and
generators of mostly elementary and occasionally exotic nature.")
(license license:gpl3+)))
(define-public iir
(package
(name "iir")
(version "1.9.3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/berndporr/iir1")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0wbh804as740kjvmyaqx4rwvwwrbwh0fnj979dvv1ljlx1p50bk0"))))
(build-system cmake-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'delete-static-library
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(delete-file (string-append out "/lib/libiir_static.a"))))))))
(home-page "https://berndporr.github.io/iir1/")
(synopsis
"Real-time C++ @acronym{IIR, infinite impulse response} filter library")
(description
"This C++ library implements the Butterworth, RBJ, and Chebychev
@acronym{IIR, infinite impulse response} filters. Samples are processed one by
one, in real time. It can easily import coefficients generated with Python
(@code{scipy}). It also avoids memory leaks by allocating memory at compile
time, using templates, instead of calling @code{malloc()} or @code{new}.")
(license license:expat)))
(define-public infamous-plugins
(package
(name "infamous-plugins")
@ -3093,19 +3101,23 @@ different audio devices such as ALSA or PulseAudio.")
(define-public qjackctl
(package
(name "qjackctl")
(version "0.9.7")
(version "0.9.8")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/qjackctl/qjackctl/"
version "/qjackctl-" version ".tar.gz"))
(sha256
(base32
"104hfvr15v8cbkzil8slrqj48y3fl7lx060alj80q1sjh5hl6j2j"))))
"1rvxgxd7bbv7yazcpw3ily0jlra8ms5c0kkf7cybgivahw59zk87"))))
(build-system cmake-build-system)
(arguments
'(#:tests? #f)) ; no check target
(inputs
(list jack-1 alsa-lib portaudio qtbase-5 qtx11extras))
(list alsa-lib
jack-1
portaudio
qtbase-5
qtsvg-5))
(native-inputs
(list pkg-config qttools-5))
(home-page "https://qjackctl.sourceforge.io/")

203
gnu/packages/backup.scm
View File

@ -15,7 +15,7 @@
;;; Copyright © 2019 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020, 2022 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Marcin Karpezo <sirmacik@wioo.waw.pl>
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2021 Timothy Sample <samplet@ngyro.com>
@ -633,117 +633,114 @@ detection, and lossless compression.")
(define-public borg
(package
(name "borg")
(version "1.2.1")
(version "1.2.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "borgbackup" version))
(sha256
(base32 "0cy6chpa053rlvy4448vf9klb5v0v1vq3l76gqa3mcrwjb8y574z"))
(base32 "0q3jwmwwa3jlb02cbkcgh5a9cvwg64vawaypn41bdgpi8ds6hc6p"))
(modules '((guix build utils)))
(snippet
'(begin
;; Delete files generated by Cython. We used to have a regex
;; that created the list of generated files but Borg has
;; added new non-generated C files that cause the regex to
;; generate the wrong list.
(for-each delete-file
'("src/borg/algorithms/checksums.c"
"src/borg/chunker.c"
"src/borg/compress.c"
"src/borg/crypto/low_level.c"
"src/borg/hashindex.c"
"src/borg/item.c"
"src/borg/platform/darwin.c"
"src/borg/platform/freebsd.c"
"src/borg/platform/linux.c"
"src/borg/platform/posix.c"
"src/borg/platform/syncfilerange.c"
"src/borg/platform/windows.c"))
;; Remove bundled shared libraries.
(with-directory-excursion "src/borg/algorithms"
(for-each delete-file-recursively
(list "lz4" "xxh64" "zstd")))
#t))))
#~(begin
;; Delete files generated by Cython. We used to have a regex that
;; created the list of generated files but Borg has added new
;; non-generated C files that cause the regex to generate the
;; wrong list.
(for-each delete-file
'("src/borg/algorithms/checksums.c"
"src/borg/chunker.c"
"src/borg/compress.c"
"src/borg/crypto/low_level.c"
"src/borg/hashindex.c"
"src/borg/item.c"
"src/borg/platform/darwin.c"
"src/borg/platform/freebsd.c"
"src/borg/platform/linux.c"
"src/borg/platform/posix.c"
"src/borg/platform/syncfilerange.c"
"src/borg/platform/windows.c"))
;; Remove bundled shared libraries.
(with-directory-excursion "src/borg/algorithms"
(for-each delete-file-recursively
(list "lz4" "xxh64" "zstd")))))))
(build-system python-build-system)
(arguments
`(#:modules ((srfi srfi-26) ; for cut
(list
#:modules '((srfi srfi-26) ; for cut
(guix build utils)
(guix build python-build-system))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'set-env
(lambda* (#:key inputs #:allow-other-keys)
(let ((openssl (assoc-ref inputs "openssl"))
(lz4 (assoc-ref inputs "lz4"))
(xxhash (assoc-ref inputs "xxhash"))
(zstd (assoc-ref inputs "zstd")))
(setenv "BORG_OPENSSL_PREFIX" openssl)
(setenv "BORG_LIBLZ4_PREFIX" lz4)
(setenv "BORG_LIBXXHASH_PREFIX" xxhash)
(setenv "BORG_LIBZSTD_PREFIX" zstd)
(setenv "PYTHON_EGG_CACHE" "/tmp")
;; The test 'test_return_codes[python]' fails when
;; HOME=/homeless-shelter.
(setenv "HOME" "/tmp")
#t)))
;; The tests need to be run after Borg is installed.
(delete 'check)
(add-after 'install 'check
(lambda* (#:key inputs outputs tests? #:allow-other-keys)
(when tests?
;; Make the installed package available for the test suite.
(add-installed-pythonpath inputs outputs)
;; The tests should be run in an empty directory.
(mkdir-p "tests")
(with-directory-excursion "tests"
(invoke "py.test" "-v" "--pyargs" "borg.testsuite" "-k"
(string-append
;; These tests need to write to '/var'.
"not test_get_cache_dir "
"and not test_get_config_dir "
"and not test_get_keys_dir "
"and not test_get_security_dir "
;; These tests assume there is a root user in '/etc/passwd'.
"and not test_access_acl "
"and not test_default_acl "
"and not test_get_item_uid_gid "
"and not test_non_ascii_acl "
"and not test_create_content_from_command "
"and not test_create_content_from_command_with_failed_command "
"and not test_create_stdin "
;; We don't need to run benchmarks
"and not benchmark "
;; These tests assume the kernel supports FUSE.
"and not test_fuse "
"and not test_fuse_allow_damaged_files "
"and not test_mount_hardlinks "
"and not test_readonly_mount "
"and not test_fuse_versions_view "
"and not test_migrate_lock_alive"))))))
(add-after 'install 'install-doc
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(man (string-append out "/share/man/man1"))
(misc (string-append out "/share/borg/misc")))
(for-each (cut install-file <> misc)
'("docs/misc/create_chunker-params.txt"
"docs/misc/borg-data-flow.png"
"docs/misc/internals-picture.txt"
"docs/misc/prune-example.txt"))
(copy-recursively "docs/man" man))))
(add-after 'install-docs 'install-shell-completions
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(etc (string-append out "/etc"))
(share (string-append out "/share")))
(with-directory-excursion "scripts/shell_completions"
(install-file "bash/borg"
(string-append etc "/bash_completion.d"))
(install-file "zsh/_borg"
(string-append share "/zsh/site-functions"))
(install-file "fish/borg.fish"
(string-append share "/fish/vendor_completions.d")))))))))
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'set-env
(lambda* (#:key inputs #:allow-other-keys)
(let ((openssl #$(this-package-input "openssl"))
(lz4 #$(this-package-input "lz4"))
(xxhash #$(this-package-input "xxhash"))
(zstd #$(this-package-input "zstd")))
(setenv "BORG_OPENSSL_PREFIX" openssl)
(setenv "BORG_LIBLZ4_PREFIX" lz4)
(setenv "BORG_LIBXXHASH_PREFIX" xxhash)
(setenv "BORG_LIBZSTD_PREFIX" zstd)
(setenv "PYTHON_EGG_CACHE" "/tmp")
;; The test 'test_return_codes[python]' fails when
;; HOME=/homeless-shelter.
(setenv "HOME" "/tmp"))))
;; The tests need to be run after Borg is installed.
(delete 'check)
(add-after 'install 'check
(lambda* (#:key inputs outputs tests? #:allow-other-keys)
(when tests?
;; Make the installed package available for the test suite.
(add-installed-pythonpath inputs outputs)
;; The tests should be run in an empty directory.
(mkdir-p "tests")
(with-directory-excursion "tests"
(invoke "py.test" "-v" "--pyargs" "borg.testsuite" "-k"
(string-append
;; These tests need to write to '/var'.
"not test_get_cache_dir "
"and not test_get_config_dir "
"and not test_get_keys_dir "
"and not test_get_security_dir "
;; These tests assume there is a root user in '/etc/passwd'.
"and not test_access_acl "
"and not test_default_acl "
"and not test_get_item_uid_gid "
"and not test_non_ascii_acl "
"and not test_create_content_from_command "
"and not test_create_content_from_command_with_failed_command "
"and not test_create_stdin "
;; We don't need to run benchmarks
"and not benchmark "
;; These tests assume the kernel supports FUSE.
"and not test_fuse "
"and not test_fuse_allow_damaged_files "
"and not test_mount_hardlinks "
"and not test_readonly_mount "
"and not test_fuse_versions_view "
"and not test_migrate_lock_alive"))))))
(add-after 'install 'install-doc
(lambda _
(let ((man (string-append #$output "/share/man/man1"))
(misc (string-append #$output "/share/borg/misc")))
(for-each (cut install-file <> misc)
'("docs/misc/create_chunker-params.txt"
"docs/misc/borg-data-flow.png"
"docs/misc/internals-picture.txt"
"docs/misc/prune-example.txt"))
(copy-recursively "docs/man" man))))
(add-after 'install-docs 'install-shell-completions
(lambda _
(let ((etc (string-append #$output "/etc"))
(share (string-append #$output "/share")))
(with-directory-excursion "scripts/shell_completions"
(install-file "bash/borg"
(string-append etc "/bash_completion.d"))
(install-file "zsh/_borg"
(string-append share "/zsh/site-functions"))
(install-file "fish/borg.fish"
(string-append share "/fish/vendor_completions.d")))))))))
(native-inputs
(list python-cython python-dateutil python-setuptools-scm python-pytest))
(inputs
@ -755,8 +752,8 @@ detection, and lossless compression.")
;; FUSE 3 isn't working well, so we stick with FUSE 2 for now:
;; <https://issues.guix.gnu.org/53407>
python-llfuse
`(,zstd "lib")
xxhash))
xxhash
`(,zstd "lib")))
(synopsis "Deduplicated, encrypted, authenticated and compressed backups")
(description "Borg is a deduplicating backup program. Optionally, it
supports compression and authenticated encryption. The main goal of Borg is to

4
gnu/packages/benchmark.scm
View File

@ -72,14 +72,14 @@
(define-public fio
(package
(name "fio")
(version "3.31")
(version "3.32")
(source (origin
(method url-fetch)
(uri (string-append "https://brick.kernel.dk/snaps/"
"fio-" version ".tar.bz2"))
(sha256
(base32
"03x0n18f2wsyjh6qv57kvgqcwga54rzngwzr6fzlrjsalqw7mxlp"))))
"0wlfzx6zwkp81fwqw0pqm9i7v0b89rpfbliwxdd8q4kp4mf3q2dv"))))
(build-system gnu-build-system)
(arguments
(list #:modules

4
gnu/packages/bioinformatics.scm
View File

@ -7509,7 +7509,7 @@ GenomicRanges operations.")
r-stringr
r-variantannotation))
(home-page "https://github.com/mskilab/skitools/")
(synopsis "Various mskilab R utilties")
(synopsis "Various mskilab R utilities")
(description
"This package provides R miscellaneous utilities for basic data
manipulation, debugging, visualization, lsf management, and common mskilab
@ -7859,7 +7859,7 @@ single-cell data.")
to dissect cell communication in a global manner. It integrates an original
expert-curated database of ligand-receptor interactions taking into account
multiple subunits expression. Based on transcriptomic profiles (gene
expression), this package allows to compute communication scores between cells
expression), this package computes communication scores between cells
and provides several visualization modes that can be helpful to dig into
cell-cell interaction mechanism and extend biological knowledge.")
(license license:gpl3))))

4
gnu/packages/ccache.scm
View File

@ -32,14 +32,14 @@
(define-public ccache
(package
(name "ccache")
(version "4.6.1")
(version "4.6.3")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/ccache/ccache/releases/download/v"
version "/ccache-" version ".tar.xz"))
(sha256
(base32 "1lgk6fbfsnh2fscjmhpak8gwp3njq3kr0ihjcjlas15mrg9ppm75"))))
(base32 "08lbzlcb4clc298nsjcqcnhw69p53xk7hni5p19jaqqjn4djafhy"))))
(build-system cmake-build-system)
(native-inputs (list perl ; for test/run
(@ (gnu packages base) which)))

25
gnu/packages/check.scm
View File

@ -39,6 +39,7 @@
;;; Copyright © 2021 Hugo Lecomte <hugo.lecomte@inria.fr>
;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2022 David Elsing <david.elsing@posteo.net>
;;; Copyright © 2022 Sharlatan Hellseher <sharlatanus@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1093,6 +1094,28 @@ and many external plugins.")
(define-public python-pytest-6 python-pytest)
;; Astropy started using hard dependencies for Pytest 7+, which might
;; happen for some other projects. It could be set as default in staging.
(define-public python-pytest-7.1
(package
(inherit python-pytest)
(version "7.1.3")
(name "python-pytest")
(source
(origin
(method url-fetch)
(uri (pypi-uri "pytest" version))
(sha256
(base32
"0f8c31v5r2kgjixvy267n0nhc4xsy65g3n9lz1i1377z5pn5ydjg"))))
(arguments
(substitute-keyword-arguments (package-arguments python-pytest)
((#:phases phases #~%standard-phases)
#~(modify-phases #$phases
(add-before 'build 'pretend-version
(lambda _
(setenv "SETUPTOOLS_SCM_PRETEND_VERSION" #$version)))))))))
(define-public python-pytest-bootstrap
(package
(inherit python-pytest)
@ -2251,7 +2274,7 @@ failures.")
(home-page "https://github.com/ktosiek/pytest-freezegun")
(synopsis "Pytest plugin to freeze time in test fixtures")
(description "The @code{pytest-freezegun} plugin wraps tests and fixtures
with @code{freeze_time}, which allows to control (i.e., freeze) the time seen
with @code{freeze_time}, which controls (i.e., freeze) the time seen
by the test.")
(license license:expat)))

4
gnu/packages/code.scm
View File

@ -284,7 +284,7 @@ COCOMO model or user-provided parameters.")
(define-public cloc
(package
(name "cloc")
(version "1.92")
(version "1.94")
(source
(origin
(method git-fetch)
@ -293,7 +293,7 @@ COCOMO model or user-provided parameters.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1hy1hskiw02b7xaxn2qz0v7znj14l49w1anx20z6rkcps7212l5l"))))
(base32 "082kkzr168lkv35hvijq95b817lyj2azcwld47xpws9h35556jlv"))))
(build-system gnu-build-system)
(inputs
(list coreutils

12
gnu/packages/compression.scm
View File

@ -632,6 +632,12 @@ some compression ratio).")
(base32
"0j59hx72258334rmkwn57ahr6s69nlrx0a5ip1jw2fbiwr12sd63"))))
(build-system gnu-build-system)
(arguments
;; The configure script doesn't recognise the --build or --host
;; arguments, so set CXX here
`(,@(if (%current-target-system)
`(#:make-flags (list ,(string-append "CXX=" (cxx-for-target))))
'())))
(home-page "https://www.nongnu.org/lzip/lzip.html")
(synopsis "Lossless data compressor based on the LZMA algorithm")
(description
@ -653,6 +659,12 @@ archiving. Lzip is a clean implementation of the LZMA algorithm.")
(base32
"0wmmyi03fv2lflsir5ldrsv04q57k3hmlqajzb1m3p86gwbh967j"))))
(build-system gnu-build-system)
(arguments
;; The configure script doesn't recognise the --build or --host
;; arguments, so set CXX here
`(,@(if (%current-target-system)
`(#:make-flags (list ,(string-append "CXX=" (cxx-for-target))))
'())))
(home-page "https://www.nongnu.org/lzip/lziprecover.html")
(synopsis "Recover and decompress data from damaged lzip files")
(description

2
gnu/packages/coq.scm
View File

@ -727,7 +727,7 @@ for goals involving set operations.
"This library is an extension of coq-mathcomp which supports finite sets
and finite maps on choicetypes (rather than finite types). This includes
support for functions with finite support and multisets. The library also
contains a generic order and set libary, which will eventually be used to
contains a generic order and set library, which will eventually be used to
subsume notations for finite sets.")
(home-page "https://math-comp.github.io/")
(license license:cecill-b)))

3
gnu/packages/cpp.scm
View File

@ -1025,7 +1025,8 @@ Google's C++ code base.")
(define-public abseil-cpp
(let ((base abseil-cpp-20200923.3))
(package/inherit base
(package
(inherit base)
(name "abseil-cpp")
(version "20220623.1")
(source (origin

2
gnu/packages/cran.scm
View File

@ -17142,7 +17142,7 @@ effects from the jQuery UI library.")
(home-page "https://github.com/datastorm-open/shinymanager")
(synopsis "Authentication management for Shiny applications")
(description
"This package provides simple and secure authentification mechanism for
"This package provides simple and secure authentication mechanism for
single Shiny applications. Credentials are stored in an encrypted SQLite
database.")
(license license:gpl3)))

370
gnu/packages/crates-graphics.scm
View File

@ -573,27 +573,6 @@ types.")
and iOS.")
(license license:expat)))
(define-public rust-dav1d-0.6
(package
(name "rust-dav1d")
(version "0.6.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "dav1d" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "0pn6r1a9qfrpg2xwc7ci2iddvnzxb17ddca0bwymgi839cxc2chl"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-dav1d-sys" ,rust-dav1d-sys-0.3))))
(home-page "https://github.com/rust-av/dav1d-rs")
(synopsis "libdav1d bindings in Rust")
(description "This package provides libdav1d bindings in Rust.")
(license license:expat)))
(define-public rust-dav1d-sys-0.3
(package
(name "rust-dav1d-sys")
@ -620,28 +599,6 @@ and iOS.")
(description "This package provides FFI bindings to dav1d.")
(license license:expat)))
(define-public rust-dcv-color-primitives-0.1
(package
(name "rust-dcv-color-primitives")
(version "0.1.16")
(source
(origin
(method url-fetch)
(uri (crate-uri "dcv-color-primitives" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "0yrm1qipdmadynhjgz1bvdh42ph9azvwg8v43c8ywr8vlx9qvaq2"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-wasm-bindgen" ,rust-wasm-bindgen-0.2))))
(home-page "https://github.com/aws/dcv-color-primitives")
(synopsis "Rust library to perform image color model conversion")
(description "This package is a Rust library to perform image color model
conversion.")
(license license:expat)))
(define-public rust-euclid-0.22
(package
(name "rust-euclid")
@ -769,31 +726,6 @@ EUI-64, also known as MAC-48 media access control addresses.")
(description "This package is a core library of Gfx-rs.")
(license license:asl2.0)))
(define-public rust-gfx-device-gl-0.16
(package
(name "rust-gfx-device-gl")
(version "0.16.2")
(source
(origin
(method url-fetch)
(uri (crate-uri "gfx_device_gl" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"1g5yg19jvxdmviljyakhd6253bnb2qg7v8iscf48ihc0ldgki70h"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-log" ,rust-log-0.4)
("rust-gfx-gl" ,rust-gfx-gl-0.6)
("rust-gfx-core" ,rust-gfx-core-0.9))))
(home-page "https://github.com/gfx-rs/gfx")
(synopsis "OpenGL backend for gfx-rs")
(description "This package provides the openGL backend for gfx-rs.")
(license license:asl2.0)))
(define-public rust-gfx-gl-0.6
(package
(name "rust-gfx-gl")
@ -1265,33 +1197,6 @@ EUI-64, also known as MAC-48 media access control addresses.")
similar formats like VCard.")
(license license:asl2.0)))
(define-public rust-ichwh-0.3
(package
(name "rust-ichwh")
(version "0.3.4")
(source
(origin
(method url-fetch)
(uri (crate-uri "ichwh" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "0m6628yw3l812hjknmh5b5gcvhn6as9gzjz60h54zjxyy4w5ss7a"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-async-std" ,rust-async-std-1)
("rust-cfg-if" ,rust-cfg-if-0.1)
("rust-futures" ,rust-futures-0.3)
("rust-thiserror" ,rust-thiserror-1))))
(home-page "https://gitlab.com/avandesa/ichwh-rs")
(synopsis "Asynchronous implementation of @command{which}")
(description
"@code{ichwh} aims to be a fully-asynchronous clone of GNU which. The
main job of @command{which} is to search for executables on the current
PATH.")
(license license:expat)))
(define-public rust-image-0.23
(package
(name "rust-image")
@ -1498,29 +1403,6 @@ pixel buffers with width, height and stride.")
graphics and video games.")
(license license:expat)))
(define-public rust-lyon-extra-0.17
(package
(name "rust-lyon-extra")
(version "0.17.1")
(source
(origin
(method url-fetch)
(uri (crate-uri "lyon_extra" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "10n8h48a363qa66byqfkg164542p97v5rrnb33gqhggah739nwm0"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build?
#t
#:cargo-inputs
(("rust-lyon-path" ,rust-lyon-path-0.17)
("rust-lyon-svg" ,rust-lyon-svg-0.17))))
(home-page "https://github.com/nical/lyon")
(synopsis "Optional utilities for the lyon crate")
(description "This package provides optional utilities for the lyon crate.")
(license (list license:expat license:asl2.0))))
(define-public rust-lyon-geom-0.17
(package
(name "rust-lyon-geom")
@ -1596,31 +1478,6 @@ graphics and video games.")
(description "This package provides SVG helpers for the lyon crates.")
(license (list license:expat license:asl2.0))))
(define-public rust-lyon-tessellation-0.17
(package
(name "rust-lyon-tessellation")
(version "0.17.10")
(source
(origin
(method url-fetch)
(uri (crate-uri "lyon-tessellation" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "0q2pccjszda26asylnvhwsil8wvsprfjazrqdzj4i033s26y0c3j"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-float-next-after" ,rust-float-next-after-0.1)
("rust-lyon-path" ,rust-lyon-path-0.17)
("rust-serde" ,rust-serde-1))
#:cargo-development-inputs
(("rust-lyon-extra" ,rust-lyon-extra-0.17))))
(home-page "https://github.com/nical/lyon")
(synopsis "Low level path tessellation library")
(description
"This package provides a low level path tessellation library.")
(license (list license:expat license:asl2.0))))
(define-public rust-osmesa-sys-0.1
(package
(name "rust-osmesa-sys")
@ -1643,32 +1500,6 @@ graphics and video games.")
(description "This package provides OSMesa library bindings for Rust.")
(license license:cc0)))
(define-public rust-piston-0.49
(package
(name "rust-piston")
(version "0.49.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "piston" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"1y0rbw92mzagqmwk79wv9axq0m7aid0s0d5cppyzh33wrxhdl3xj"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-pistoncore-input" ,rust-pistoncore-input-0.28)
("rust-pistoncore-window" ,rust-pistoncore-window-0.44)
("rust-pistoncore-event-loop" ,rust-pistoncore-event-loop-0.49))))
(home-page "https://github.com/PistonDevelopers/piston")
(synopsis "Piston game engine core libraries")
(description
"The Piston game engine core libraries.")
(license license:expat)))
(define-public rust-piston-float-1
(package
(name "rust-piston-float")
@ -1810,95 +1641,6 @@ nicely with Piston libraries.")
"This package provides a library for storing viewport information.")
(license license:expat)))
(define-public rust-piston-window-0.105
(package
(name "rust-piston-window")
(version "0.105.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "piston_window" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"05n2905gkp5ck25kbq95ia6pj1xz63dpp247jz3xcw1d41xpvi95"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-gfx-device-gl" ,rust-gfx-device-gl-0.16)
("rust-gfx" ,rust-gfx-0.18)
("rust-piston2d-graphics" ,rust-piston2d-graphics-0.35)
("rust-piston" ,rust-piston-0.49)
("rust-shader-version" ,rust-shader-version-0.6)
("rust-pistoncore-glutin-window" ,rust-pistoncore-glutin-window-0.63)
("rust-piston2d-gfx-graphics" ,rust-piston2d-gfx-graphics-0.66)
("rust-piston-texture" ,rust-piston-texture-0.8))))
(home-page "https://github.com/pistondevelopers/piston_window")
(synopsis "Official Piston window wrapper for the Piston game engine")
(description
"The official Piston window wrapper for the Piston game engine.")
(license license:expat)))
(define-public rust-piston2d-gfx-graphics-0.66
(package
(name "rust-piston2d-gfx-graphics")
(version "0.66.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "piston2d-gfx_graphics" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"1pmlkf5rl6pr0c1lqm0059xwj9pwlws7gaq9w6r9d916di6fzki1"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-gfx" ,rust-gfx-0.18)
("rust-piston-shaders-graphics2d" ,rust-piston-shaders-graphics2d-0.3)
("rust-piston-gfx-texture" ,rust-piston-gfx-texture-0.40)
("rust-shader-version" ,rust-shader-version-0.6)
("rust-draw-state" ,rust-draw-state-0.8))))
(home-page "https://github.com/PistonDevelopers/gfx_graphics")
(synopsis "Gfx 2D back-end for the Piston game engine")
(description
"This package provides a Gfx 2D back-end for the Piston game engine.")
(license license:expat)))
(define-public rust-piston2d-graphics-0.35
(package
(name "rust-piston2d-graphics")
(version "0.35.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "piston2d-graphics" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"1dx2fanxc2pj76hc5l72x0fh4qg9gchjlr8rmbhdk6jpggcmq56g"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-interpolation" ,rust-interpolation-0.2)
("rust-rusttype" ,rust-rusttype-0.7)
("rust-piston-texture" ,rust-piston-texture-0.8)
("rust-piston-viewport" ,rust-piston-viewport-1)
("rust-read-color" ,rust-read-color-1)
("rust-vecmath" ,rust-vecmath-1)
("rust-fnv" ,rust-fnv-1))))
(home-page "https://github.com/pistondevelopers/graphics")
(synopsis "Library for 2D graphics that works with multiple back-ends")
(description "This package provides a library for 2D graphics that works
with multiple back-ends.")
(license license:expat)))
(define-public rust-pistoncore-event-loop-0.49
(package
(name "rust-pistoncore-event-loop")
@ -1924,34 +1666,6 @@ with multiple back-ends.")
interactive applications.")
(license license:expat)))
(define-public rust-pistoncore-glutin-window-0.63
(package
(name "rust-pistoncore-glutin-window")
(version "0.63.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "pistoncore-glutin_window" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"0dhbyxarv5i742d400bmqdqq3f8c25kcgcg0xavrc18dc913rixc"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-gl" ,rust-gl-0.11)
("rust-glutin" ,rust-glutin-0.21)
("rust-pistoncore-input" ,rust-pistoncore-input-0.28)
("rust-pistoncore-window" ,rust-pistoncore-window-0.44)
("rust-shader-version" ,rust-shader-version-0.6))))
(home-page "https://github.com/pistondevelopers/glutin_window")
(synopsis "Piston window back-end using the Glutin library")
(description
"This package provides a Piston window back-end using the Glutin library.")
(license license:expat)))
(define-public rust-pistoncore-input-0.28
(package
(name "rust-pistoncore-input")
@ -2213,29 +1927,6 @@ images in AVIF format.")
(arguments
`(#:cargo-inputs (("rust-libc" ,rust-libc-0.2))))))
(define-public rust-resize-0.3
(package
(name "rust-resize")
(version "0.3.1")
(source
(origin
(method url-fetch)
(uri (crate-uri "resize" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"1ai83laz5yvg4r7z9q8d1m0vq0fqj2ycyprw5fxzxyzaj3im7rmr"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-development-inputs
(("rust-png" ,rust-png-0.15))))
(home-page "https://github.com/PistonDevelopers/resize")
(synopsis "Simple image resampling library in pure Rust")
(description
"This package provides a simple image resampling library in pure Rust.")
(license license:expat)))
(define-public rust-rgb-0.8
(package
(name "rust-rgb")
@ -2408,29 +2099,6 @@ first-class Rust objects.")
applications.")
(license license:expat)))
(define-public rust-smithay-clipboard-0.3
(package
(inherit rust-smithay-clipboard-0.6)
(name "rust-smithay-clipboard")
(version "0.3.6")
(source
(origin
(method url-fetch)
(uri (crate-uri "smithay-clipboard" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"1h7qhcx44cgwncgpn5llky0c56vgsg9mqrkybb2z37vsxxia4rwn"))))
(arguments
`(#:cargo-inputs
(("rust-nix" ,rust-nix-0.14)
("rust-smithay-client-toolkit" ,rust-smithay-client-toolkit-0.6))
#:cargo-development-inputs
(("rust-andrew" ,rust-andrew-0.2))))
(inputs
(list wayland))))
(define-public rust-tiff-0.6
(package
(name "rust-tiff")
@ -3508,26 +3176,6 @@ the platform-specific getters provided by winit, or another library.")
(description "This package provides x11 clipboard support for Rust.")
(license license:expat)))
(define-public rust-x11-clipboard-0.4
(package
(inherit rust-x11-clipboard-0.5)
(name "rust-x11-clipboard")
(version "0.4.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "x11-clipboard" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"0nqdnswiyj28b1izjp5rzbc67cxpb5c8p4vh1xyndkirzs84vqqk"))))
(arguments
`(#:tests? #f ; Tests require display server.
#:cargo-inputs (("rust-xcb" ,rust-xcb-0.9))))
(native-inputs
(list python))))
(define-public rust-x11-dl-2
(package
(name "rust-x11-dl")
@ -3571,24 +3219,6 @@ the platform-specific getters provided by winit, or another library.")
"This package provides a YUV4MPEG2 (@file{.y4m}) encoder and decoder.")
(license license:expat)))
(define-public rust-y4m-0.5
(package
(inherit rust-y4m-0.7)
(name "rust-y4m")
(version "0.5.3")
(source
(origin
(method url-fetch)
(uri (crate-uri "y4m" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"1933677by64y06zfgip2yq8b2dza8xnljhaksx93czq90b54kscz"))))
(arguments
`(#:cargo-development-inputs
(("rust-resize" ,rust-resize-0.3))))))
;;;
;;; Avoid adding new packages to the end of this file. To reduce the chances
;;; of a merge conflict, place them above by existing packages with similar

141
gnu/packages/crates-gtk.scm
View File

@ -277,32 +277,6 @@
(("rust-gtk-rs-lgpl-docs" ,rust-gtk-rs-lgpl-docs-0.1)
("rust-tempfile" ,rust-tempfile-3))))))
(define-public rust-cairo-rs-0.7
(package
(inherit rust-cairo-rs-0.8)
(name "rust-cairo-rs")
(version "0.7.1")
(source
(origin
(method url-fetch)
(uri (crate-uri "cairo-rs" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"171m98g41avp5mmshqir4ka21napp7ma5fx45wi9mw5hwdyv8pg0"))))
(arguments
`(#:cargo-inputs
(("rust-bitflags" ,rust-bitflags-1)
("rust-cairo-sys-rs" ,rust-cairo-sys-rs-0.9)
("rust-glib" ,rust-glib-0.8)
("rust-glib-sys" ,rust-glib-sys-0.9)
("rust-gobject-sys" ,rust-gobject-sys-0.9)
("rust-libc" ,rust-libc-0.2)
("rust-gtk-rs-lgpl-docs" ,rust-gtk-rs-lgpl-docs-0.1))
#:cargo-development-inputs
(("rust-tempfile" ,rust-tempfile-3))))))
(define-public rust-cairo-sys-rs-0.15
(package
(name "rust-cairo-sys-rs")
@ -596,35 +570,6 @@
#:cargo-development-inputs
(("rust-gir-format-check" ,rust-gir-format-check-0.1))))))
(define-public rust-gdk-pixbuf-0.7
(package
(inherit rust-gdk-pixbuf-0.8)
(name "rust-gdk-pixbuf")
(version "0.7.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "gdk-pixbuf" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"1k2g3w2p57m68bi5sldvkmgjgslgqswrjsijjhqaibdvw67409lp"))))
(arguments
`(#:cargo-inputs
(("rust-fragile" ,rust-fragile-0.3)
("rust-futures-preview" ,rust-futures-preview-0.3)
("rust-gdk-pixbuf-sys" ,rust-gdk-pixbuf-sys-0.9)
("rust-gio" ,rust-gio-0.7)
("rust-gio-sys" ,rust-gio-sys-0.9)
("rust-glib" ,rust-glib-0.8)
("rust-glib-sys" ,rust-glib-sys-0.9)
("rust-gobject-sys" ,rust-gobject-sys-0.9)
("rust-libc" ,rust-libc-0.2)
("rust-gtk-rs-lgpl-docs" ,rust-gtk-rs-lgpl-docs-0.1))
#:cargo-development-inputs
(("rust-gir-format-check" ,rust-gir-format-check-0.1))))))
(define-public rust-gdk-pixbuf-sys-0.15
(package
(name "rust-gdk-pixbuf-sys")
@ -957,35 +902,6 @@
("rust-serial-test" ,rust-serial-test-0.1)
("rust-serial-test-derive" ,rust-serial-test-derive-0.1))))))
(define-public rust-gio-0.7
(package
(inherit rust-gio-0.8)
(name "rust-gio")
(version "0.7.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "gio" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"1qv0wc1hqyb81c03h81s3xrl9jslrw23fr4yhygxbhih9k9vaqb2"))))
(arguments
`(#:cargo-inputs
(("rust-bitflags" ,rust-bitflags-1)
("rust-fragile" ,rust-fragile-0.3)
("rust-futures-preview" ,rust-futures-preview-0.3)
("rust-gio-sys" ,rust-gio-sys-0.9)
("rust-glib" ,rust-glib-0.8)
("rust-glib-sys" ,rust-glib-sys-0.9)
("rust-gobject-sys" ,rust-gobject-sys-0.9)
("rust-lazy-static" ,rust-lazy-static-1)
("rust-libc" ,rust-libc-0.2)
("rust-gtk-rs-lgpl-docs" ,rust-gtk-rs-lgpl-docs-0.1))
#:cargo-development-inputs
(("rust-gir-format-check" ,rust-gir-format-check-0.1))))))
(define-public rust-gio-sys-0.15
(package
(name "rust-gio-sys")
@ -1881,33 +1797,6 @@ library.")
#:cargo-development-inputs
(("rust-gir-format-check" ,rust-gir-format-check-0.1))))))
(define-public rust-pango-0.7
(package
(inherit rust-pango-0.8)
(name "rust-pango")
(version "0.7.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "pango" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"11np7nxb69g3kid2l78b7k519x1wk1c3f9yy7swgzy24n5qs0grr"))))
(arguments
`(#:cargo-inputs
(("rust-bitflags" ,rust-bitflags-1)
("rust-glib" ,rust-glib-0.8)
("rust-glib-sys" ,rust-glib-sys-0.9)
("rust-gobject-sys" ,rust-gobject-sys-0.9)
("rust-lazy-static" ,rust-lazy-static-1)
("rust-libc" ,rust-libc-0.2)
("rust-pango-sys" ,rust-pango-sys-0.9)
("rust-gtk-rs-lgpl-docs" ,rust-gtk-rs-lgpl-docs-0.1))
#:cargo-development-inputs
(("rust-gir-format-check" ,rust-gir-format-check-0.1))))))
(define-public rust-pango-sys-0.15
(package
(name "rust-pango-sys")
@ -2068,36 +1957,6 @@ library.")
#:cargo-development-inputs
(("rust-gir-format-check" ,rust-gir-format-check-0.1))))))
(define-public rust-pangocairo-0.8
(package
(inherit rust-pangocairo-0.9)
(name "rust-pangocairo")
(version "0.8.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "pangocairo" version))
(file-name
(string-append name "-" version ".tar.gz"))
(sha256
(base32
"0qjiwsp73x3w0493dzycyjzxnzwq7ixwmf1ccr5r41pjhxbnk1kl"))))
(arguments
`(#:cargo-inputs
(("rust-bitflags" ,rust-bitflags-1)
("rust-cairo-rs" ,rust-cairo-rs-0.7)
("rust-cairo-sys-rs" ,rust-cairo-sys-rs-0.9)
("rust-glib" ,rust-glib-0.8)
("rust-glib-sys" ,rust-glib-sys-0.9)
("rust-gobject-sys" ,rust-gobject-sys-0.9)
("rust-libc" ,rust-libc-0.2)
("rust-pango" ,rust-pango-0.7)
("rust-pango-sys" ,rust-pango-sys-0.9)
("rust-pangocairo-sys" ,rust-pangocairo-sys-0.10)
("rust-gtk-rs-lgpl-docs" ,rust-gtk-rs-lgpl-docs-0.1))
#:cargo-development-inputs
(("rust-gir-format-check" ,rust-gir-format-check-0.1))))))
(define-public rust-pangocairo-sys-0.15
(package
(name "rust-pangocairo-sys")

8864
gnu/packages/crates-io.scm
View File

File diff suppressed because it is too large Load Diff

26
gnu/packages/crypto.scm
View File

@ -1471,7 +1471,7 @@ non-encrypted files.")
(define-public cryfs
(package
(name "cryfs")
(version "0.11.2")
(version "0.11.3")
(source
(origin
(method url-fetch)
@ -1479,7 +1479,7 @@ non-encrypted files.")
"https://github.com/cryfs/cryfs/releases/download/"
version "/cryfs-" version ".tar.xz"))
(sha256
(base32 "1ggizlacm4fccsw9syy2763ihxnby6cdh3mhhraxy8bmsdjza7lm"))))
(base32 "1h41dhdfk2nll0vx5i66mgrdalv6kccwq5yx99gridywxw6qxxhq"))))
(build-system cmake-build-system)
(arguments
'(#:modules ((guix build cmake-build-system)
@ -1519,19 +1519,17 @@ non-encrypted files.")
(when tests?
(let ((tests (find-files "." "-test$")))
;; XXX: Disable failing tests. Unfortunately there are a
;; few. Some only fail in the build environment due to
;; FUSE not being available.
(for-each invoke
(lset-difference string-contains
tests
'("cpp-utils-test"
"cryfs-cli-test"
"blobstore-test"
"fspp-test")))))
#t)))))
;; few. Some only fail in the build environment due to
;; FUSE not being available.
(for-each invoke
(lset-difference string-contains
tests
'("cpp-utils-test"
"cryfs-cli-test"
"blobstore-test"
"fspp-test"))))))))))
(native-inputs
`(("python" ,python-wrapper)
("pkg-config" ,pkg-config)))
(list pkg-config python-wrapper))
(inputs
(list boost curl fuse range-v3 spdlog))
(home-page "https://www.cryfs.org/")

4
gnu/packages/dezyne.scm
View File

@ -31,14 +31,14 @@
(define-public dezyne
(package
(name "dezyne")
(version "2.16.1")
(version "2.16.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://dezyne.org/download/dezyne/"
name "-" version ".tar.gz"))
(sha256
(base32 "093kcgvmr1zyrfi02y0vzbfl4llrvlvjxjp9iczpdv34lasqp621"))))
(base32 "0dnh8wji9npaxg3qjivc45dwxwrzz9fbs77000g8s2192sf4ms7k"))))
(inputs (list bash-minimal
guile-3.0-latest
guile-json-4

39
gnu/packages/dictionaries.scm
View File

@ -8,6 +8,7 @@
;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2020 Lu hux <luhux@outlook.com>
;;; Copyright © 2022 ROCKTAKEY <rocktakey@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -429,3 +430,41 @@ intelligible and easily correctable.")
(description "sdcv is simple text-based utility for work with dictionaries
in StarDict's format.")
(license license:gpl2+)))
(define-public skk-jisyo
(let ((commit "38c81dbc74cdbdead843364023dea837f239a48c")
(revision "0"))
(package
(name "skk-jisyo")
(version (git-version "0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/skk-dev/dict")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"121j73bgd7fvj7zvaidqvgzfdvimig3f0vsyfv4vndwfgskh2r7z"))))
(build-system copy-build-system)
(arguments
'(#:install-plan '(("./" "share/skk"
#:include-regexp ("SKK-JISYO\\.*")
#:exclude-regexp ("\\.gz$" "\\.md5$")
#:exclude ("SKK-JISYO.pubdic+"
"SKK-JISYO.wrong.annotated"
"SKK-JISYO.wrong")))
#:phases (modify-phases %standard-phases
(add-before 'install 'decompress
(lambda* (#:key outputs #:allow-other-keys)
(map (lambda (arg)
(invoke "gzip" "-v" "-d" arg))
(find-files "." "SKK-JISYO\\..*\\.gz$"))
(invoke "tar" "xvf" "zipcode.tar.gz"))))))
(home-page "https://skk-dev.github.io/dict/")
(synopsis "Jisyo (dictionary) files for the SKK Japanese-input software")
(description
"This package provides @file{SKK-JISYO.L}, the standard dictionary file
for SKK Japanese input systems, and various dictionary files.
@file{SKK-JISYO.L} can be used with @code{emacs-ddskk} or @code{uim} package.")
(license license:gpl2+))))

4
gnu/packages/diffoscope.scm
View File

@ -75,7 +75,7 @@
(define-public diffoscope
(package
(name "diffoscope")
(version "221")
(version "224")
(source
(origin
(method git-fetch)
@ -84,7 +84,7 @@
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0b89hygd4m18p3wcx7haz0kwx7gn7irjswxz29lv8sb2r1vqq4za"))
(base32 "1qdivsf4yygg2az5018pw0q4169zas3hfqjydd0q3bhdrfpl0q4q"))
(patches
(search-patches "diffoscope-fix-llvm-test.patch"))))
(build-system python-build-system)

16
gnu/packages/dns.scm
View File

@ -290,7 +290,7 @@ prompt the user with the option to go with insecure DNS only.")
(define-public dnsmasq
(package
(name "dnsmasq")
(version "2.86")
(version "2.87")
(source (origin
(method url-fetch)
(uri (string-append
@ -298,7 +298,7 @@ prompt the user with the option to go with insecure DNS only.")
version ".tar.xz"))
(sha256
(base32
"027b0ycw8h8yvvkq46vnr7dv8iqn5srm4kr7hm7sq110kvy2rm98"))))
"0ynyi4mixhxhbfxb2bivinkrjc5zgj9lj5bzgvymc8vz98vc0a02"))))
(build-system gnu-build-system)
(native-inputs
(list pkg-config))
@ -333,14 +333,14 @@ and BOOTP/TFTP for network booting of diskless machines.")
;; When updating, check whether isc-dhcp's bundled copy should be as well.
;; The BIND release notes are available here:
;; https://www.isc.org/bind/
(version "9.16.32")
(version "9.16.34")
(source
(origin
(method url-fetch)
(uri (string-append "https://ftp.isc.org/isc/bind9/" version
"/bind-" version ".tar.xz"))
(sha256
(base32 "0w2rcjxqnbhwzgsdsas36dadjq0qn6s1xjx4g4qk0ph2nvf4gj9j"))
(base32 "05ig8y20qksam7s466h15v6j2zgidn5nkbrk1d5c29nmypy2wgai"))
(patches
(search-patches "bind-re-add-attr-constructor-priority.patch"))))
(build-system gnu-build-system)
@ -666,14 +666,14 @@ BIND and djbdns---whilst using relatively little memory.")
(define-public unbound
(package
(name "unbound")
(version "1.13.2")
(version "1.17.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.unbound.net/downloads/unbound-"
version ".tar.gz"))
(sha256
(base32 "10qs1q26lzw18ljggnbz0cc5f7lr9ksj615xbrmh4amryd3va4qa"))))
(base32 "0h8k5yh49vasyzwkm3n1xsidxr7xybqwkvg4cq6937qxi7brbg6w"))))
(build-system gnu-build-system)
(outputs '("out" "python"))
(native-inputs
@ -1294,7 +1294,7 @@ known public suffixes.")
(define-public maradns
(package
(name "maradns")
(version "3.5.0020")
(version "3.5.0022")
(source
(origin
(method url-fetch)
@ -1302,7 +1302,7 @@ known public suffixes.")
(version-major+minor version) "/"
version "/maradns-" version ".tar.xz"))
(sha256
(base32 "1qgabw6y2bwy6y88dikis62k789i0xh7iwxan8jmqpzvksqwjfgw"))))
(base32 "1sw267jxxxngjcar8cj3jpxnpiz0szgkhlz5l46c67qs690w9kdi"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; need to be root to run tests

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

@ -256,7 +256,7 @@
(define-public emacs-geiser
(package
(name "emacs-geiser")
(version "0.26.1")
(version "0.27")
(source
(origin
(method git-fetch)
@ -265,7 +265,7 @@
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1k5ligm1aba9b6dqg0yi86a2y2fhnxi7jsjgxj9jw7icgfa11djn"))))
(base32 "1mk9m6vya544in3b41mj8g7453dchiaj7hp6m6ymmcbfmlbfdwk2"))))
(build-system emacs-build-system)
(arguments
'(#:phases
@ -772,8 +772,8 @@ when typing parentheses directly or commenting out code line by line.")
(define-public emacs-puni
;; No tagged release upstream
(let ((commit "ed4a863460329a3019c286ff382e2ddc0ffdc9d7")
(revision "0"))
(let ((commit "28836e98d5566172b1a94d7b38290d07b49201b2")
(revision "1"))
(package
(name "emacs-puni")
(version (git-version "0" revision commit))
@ -785,7 +785,7 @@ when typing parentheses directly or commenting out code line by line.")
(file-name (git-file-name name version))
(sha256
(base32
"14lcqf0qdkq2rklx12v12qpgfahz2bpqmnl3bzcz5myawgjjcphd"))))
"1z35nzsqcp8q9nnka0d5gpiidl07qfqmd2giwnd3b3v7h3v1kwpz"))))
(build-system emacs-build-system)
(propagated-inputs (list emacs-with-editor))
(home-page "https://github.com/AmaiKinono/puni")
@ -3109,14 +3109,14 @@ as a library for other Emacs packages.")
(define-public emacs-auctex
(package
(name "emacs-auctex")
(version "13.1.4")
(version "13.1.5")
(source
(origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/"
"auctex-" version ".tar"))
(sha256
(base32 "1r9qysnfdbiblq3c95rgsh7vgy3k4qabnj0vicqhdkca0cl2b2bj"))))
(base32 "00g6js6089637w8alch4dvk140chjkyirsa8inh9ai6a6kkfvc3p"))))
(build-system emacs-build-system)
;; We use 'emacs' because AUCTeX requires dbus at compile time
;; ('emacs-minimal' does not provide dbus).
@ -3400,7 +3400,7 @@ of bibliographic references.")
(define-public emacs-corfu
(package
(name "emacs-corfu")
(version "0.27")
(version "0.28")
(source
(origin
(method git-fetch)
@ -3409,7 +3409,7 @@ of bibliographic references.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "17cdbqkil4454kd3w77w18fv15djwg07qclgcnlp6mimp6sbam9w"))))
(base32 "0lmjmaijanhhimkd006y5g1pvpllqgm30wj2y3wf3h4sl7h23rcz"))))
(build-system emacs-build-system)
(arguments
`(#:phases
@ -4888,8 +4888,8 @@ display and behaviour is easily customisable.")
(license license:gpl3+)))
(define-public emacs-git-gutter-fringe
(let ((commit "16226caab44174301f1659f7bf8cc67a76153445")
(revision "1"))
(let ((commit "648cb5b57faec55711803cdc9434e55a733c3eba")
(revision "2"))
(package
(name "emacs-git-gutter-fringe")
(version (git-version "0.23" revision commit))
@ -4901,7 +4901,7 @@ display and behaviour is easily customisable.")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1y77gjl0yznamdj0f55d418zb75k22izisjg7ikvrfsl2yfqf3pm"))))
(base32 "13bqq5r8ys2mmw1ffsm6hn6fji0vq3nx3slw98c9dgbvlprkaiip"))))
(build-system emacs-build-system)
(propagated-inputs
(list emacs-git-gutter emacs-fringe-helper))
@ -6981,14 +6981,14 @@ user.")
(define-public emacs-subed
(package
(name "emacs-subed")
(version "1.0.10")
(version "1.0.12")
(source (origin
(method url-fetch)
(uri (string-append "https://elpa.nongnu.org/nongnu/subed-"
version ".tar"))
(sha256
(base32
"08vw9sv2g76yj8sfnx53dd28zkj4s0842i7qi92jam993v9s8h0z"))))
"175bvnya6sbf4ikvcv4knb7mkn42wzp0jhnz9dns7y0s2f6d8fhd"))))
(arguments
(list
#:tests? #t
@ -7160,7 +7160,7 @@ Tracker as well as bug identifiers prepared for @code{bug-reference-mode}.")
emacs-transient))
(home-page "https://docs.kyleam.com/piem")
(synopsis "Glue for working with public-inbox archives")
(description "This packages provides a collection of Emacs libraries for
(description "This package provides a collection of Emacs libraries for
working with public-inbox archives. As much of the hard work here is already
done by other Emacs libraries—things like mail clients, news readers, Git
interfaces, and even web browsers—piem is mostly about bridging some of these
@ -8277,7 +8277,7 @@ and popup menus.")
(propagated-inputs (list emacs-pos-tip emacs-popup))
(home-page "https://github.com/waymondo/popup-kill-ring")
(synopsis "Interactively insert item from kill-ring")
(description "This Emacs packages manages your Emacs kill-ring in an
(description "This Emacs package manages your Emacs kill-ring in an
autocomplete style popup menu.")
(license license:gpl3+))))
@ -9720,7 +9720,7 @@ style, or as multiple word prefixes.")
(define-public emacs-consult
(package
(name "emacs-consult")
(version "0.19")
(version "0.20")
(source
(origin
(method git-fetch)
@ -9728,7 +9728,7 @@ style, or as multiple word prefixes.")
(url "https://github.com/minad/consult")
(commit version)))
(sha256
(base32 "1lb7ci1kkgv07c4hcfxisr5zjx68hq15bqf4x3bhmnn13x38j7jw"))
(base32 "1rm53sqfl8hnb1l1fr0s8kxgp03prc2ggywqs5ssiqx87vhyn70w"))
(file-name (git-file-name name version))))
(build-system emacs-build-system)
(propagated-inputs (list emacs-compat))
@ -9883,7 +9883,7 @@ expansion and overwriting the marked region with a new snippet completion.")
(define-public emacs-marginalia
(package
(name "emacs-marginalia")
(version "0.14")
(version "0.15")
(source
(origin
(method git-fetch)
@ -9892,7 +9892,7 @@ expansion and overwriting the marked region with a new snippet completion.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1gbcjw447vxd3ivfjgnya2ix3w791kvbika1v9bzj8s7i996fb6f"))))
(base32 "0ncdyczalvl677nim0iha003xway7rwxw8y35vcvkgsdk4vzv848"))))
(build-system emacs-build-system)
(home-page "https://github.com/minad/marginalia")
(synopsis "Marginalia in the minibuffer completions")
@ -11426,7 +11426,7 @@ strings, and code folding.")
(base32 "1qin0hclm3ly62nl5ddiim64bcd2k74b1yqsqqc61cf9k2q8k287"))))
(build-system emacs-build-system)
(home-page "https://github.com/redguardtoo/js-comint")
(synopsis "Interacting with a JavaScript interpeter")
(synopsis "Interacting with a JavaScript interpreter")
(description
"This program is a comint mode for Emacs which allows you to run a
compatible JavaScript REPL, such as node, SpiderMonkey or Rhino.
@ -13627,7 +13627,7 @@ pasting into and from @code{tmux} paste buffers.")
(define-public emacs-evil-nerd-commenter
(package
(name "emacs-evil-nerd-commenter")
(version "3.5.7")
(version "3.5.8")
(source
(origin
(method git-fetch)
@ -13637,7 +13637,7 @@ pasting into and from @code{tmux} paste buffers.")
(file-name (git-file-name name version))
(sha256
(base32
"0xnm8i23c2p3mdf4xxjk00766ygvysk7c8iib2jkah5pfg6jc9vb"))))
"0xrbmz9mx4aclqgjyjaq7vj9xf4291rw4nxaz2nvqblv8yylqbr0"))))
(build-system emacs-build-system)
(propagated-inputs (list emacs-evil))
(home-page "https://github.com/redguardtoo/evil-nerd-commenter")
@ -13967,26 +13967,28 @@ characters.")
(license license:gpl3+))))
(define-public emacs-ob-sclang
(package
(inherit emacs-org-contrib)
(name "emacs-ob-sclang")
(source
(origin
(inherit (package-source emacs-org-contrib))
(modules '((guix build utils)))
(snippet
'(begin
(with-directory-excursion "lisp"
(for-each (lambda (file)
(unless (equal? file "./ob-sclang.el")
(delete-file file)))
(find-files "." "\\.el$")))))))
(propagated-inputs
(list emacs-org emacs-scel))
(synopsis "Org Babel support for SuperCollider")
(description "This package adds support for evaluating @code{sclang}
Org mode source blocks. It is extracted from the @code{emacs-org-contrib}
package.")))
(let ((commit "cd3f3c847d8149cd4ce4a775942dac88ba92c772")
(revision "1"))
(package
(name "emacs-ob-sclang")
(version (git-version "0.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://repo.or.cz/ob-sclang")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0dr8va2v0262plqxd63yxymqiffkql9klci7wsp5i7xgpka8925q"))))
(build-system emacs-build-system)
(propagated-inputs
(list emacs-org emacs-scel))
(home-page "https://repo.or.cz/ob-sclang")
(synopsis "Org Babel support for SuperCollider")
(description "This package adds support for evaluating @code{sclang} Org
mode source blocks.")
(license license:gpl3+))))
(define-public emacs-org-edna
(package
@ -14765,7 +14767,7 @@ been adapted to also work with mu4e.")
(define-public emacs-tempel
(package
(name "emacs-tempel")
(version "0.4")
(version "0.5")
(source (origin
(method git-fetch)
(uri (git-reference
@ -14774,7 +14776,7 @@ been adapted to also work with mu4e.")
(file-name (git-file-name name version))
(sha256
(base32
"0iyh6wxchqg83gpwvg6lz4qy4c2qh25iqjpjm56kif52346a99d2"))))
"1za73zszj373r8pxf89cwwfrwsf8dy6nxciw11adcccrm92xwdsz"))))
(build-system emacs-build-system)
(home-page "https://github.com/minad/tempel")
(synopsis "Simple templates for Emacs")
@ -15796,13 +15798,13 @@ containing words from the Rime project.")
(define-public emacs-pyim
(package
(name "emacs-pyim")
(version "5.2.5")
(version "5.2.6")
(source
(origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/pyim-" version ".tar"))
(sha256
(base32 "00f23pl53rdy9iwp4gj2656wik7c6vnmhsglg7z4pz3ippz3f4hq"))))
(base32 "17jx7hbndm7b7b22z59g4h3nkwhydc0kq9447nhafr8hz2xrdlp6"))))
(build-system emacs-build-system)
(propagated-inputs
(list emacs-async emacs-popup emacs-posframe emacs-xr))
@ -16453,7 +16455,7 @@ Emacs.")
(file-name (git-file-name name version))
(sha256
(base32
"1mx2b7ljwvmfl5d0w9m7i1i900198lsdx1cpi8n7wq58h5df88p9"))))
"030837yak24ymjawsfr1hgyfdjy3k30ld1ca0cgnrxhgxc7p8hwv"))))
(build-system emacs-build-system)
(arguments
(list
@ -17150,7 +17152,7 @@ which avoids some of the issues with using Emacs’s built-in Url library.")
(define-public emacs-ement
(package
(name "emacs-ement")
(version "0.3.1")
(version "0.4")
(source
(origin
(method git-fetch)
@ -17159,7 +17161,7 @@ which avoids some of the issues with using Emacs’s built-in Url library.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1ap4zxn2ba8bvmzm77aa4bnxgb1hnz5cymcim9jzy7b67bgapmy7"))))
(base32 "0pcszmcbq2lwjzpz3jd378sdqb7jh0v0c0ak49nmc5gciljjlzcg"))))
(build-system emacs-build-system)
(arguments
`(#:emacs ,emacs)) ;need libxml support
@ -17637,7 +17639,7 @@ groups.")
(define-public emacs-taxy-magit-section
(package
(name "emacs-taxy-magit-section")
(version "0.12")
(version "0.12.1")
(source (origin
(method url-fetch)
(uri (string-append
@ -17645,7 +17647,7 @@ groups.")
".tar"))
(sha256
(base32
"1x4sfa8kl3f85n8lm381yr7f72zfb73bj6a6r8caw3n8bkv38i3r"))))
"0bs00y8pl51dji23zx5w64h6la0y109q0jv2q1nggizk6q5bsxmg"))))
(build-system emacs-build-system)
(propagated-inputs (list emacs-magit emacs-taxy))
(home-page "https://github.com/alphapapa/taxy.el")
@ -17761,7 +17763,7 @@ included by default, and more can be readily added.")
(define-public emacs-pubmed
(package
(name "emacs-pubmed")
(version "0.6.1")
(version "0.6.2")
(source
(origin
(method git-fetch)
@ -17771,7 +17773,7 @@ included by default, and more can be readily added.")
(file-name (git-file-name name version))
(sha256
(base32
"1f884r3fs9nybf5y9dwp8f9m8azssxjy55z7bd0nl9pjll9rhsz2"))))
"05j4nhn2bgacc54pvmkhwgdsmzxzkcfn49a12k43wckrrf3izbqf"))))
(build-system emacs-build-system)
(propagated-inputs
(list emacs-deferred emacs-esxml emacs-s emacs-unidecode))
@ -20037,7 +20039,7 @@ citations.")
(build-system emacs-build-system)
(propagated-inputs (list emacs-org-roam emacs-citar))
(home-page "https://github.com/emacs-citar/citar-org-roam")
(synopsis "Emacs pacakge to provide tighter Citar and Org-Roam integration")
(synopsis "Emacs package to provide tighter Citar and Org-Roam integration")
(description "\
Out-of-box, Citar provides default support for file-per-note bibliographic
notes that are compatible with Org-Roam v2. This package integrates directly
@ -20295,31 +20297,6 @@ successive level is highlighted in a different color. This makes it easy to
orient yourself in the code, and tell which statements are at a given level.")
(license license:gpl3+))))
(define-public emacs-hierarchy
(package
(name "emacs-hierarchy")
(version "0.7.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/DamienCassou/hierarchy")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1kykbb1sil5cycfa5aj8dhsxc5yrx1641i2np5kwdjid6ahdlz5r"))))
(build-system emacs-build-system)
(native-inputs
(list emacs-buttercup))
(arguments
`(#:tests? #t
#:test-command '("buttercup" "-L" ".")))
(home-page "https://github.com/DamienCassou/hierarchy")
(synopsis "Library to create and display hierarchy structures")
(description "This package provides an Emacs library to create, query,
navigate and display hierarchy structures.")
(license license:gpl3+)))
(define-public emacs-tree-mode
(let ((commit "b06078826d5875d74b0e7b7ac47b0d0917610534")
(revision "1"))
@ -20358,8 +20335,7 @@ navigate and display hierarchy structures.")
(base32
"1n6g6k4adzkkn1g7z4j27s35xy12c1fg2r08gv345ddr3wplq4ri"))))
(propagated-inputs
(list emacs-hierarchy emacs-request emacs-dash emacs-s
emacs-tree-mode))
(list emacs-dash emacs-request emacs-s emacs-tree-mode))
(build-system emacs-build-system)
(home-page "https://github.com/ahungry/md4rd")
(synopsis "Emacs Mode for Reddit")
@ -23803,28 +23779,25 @@ searches with @code{ripgrep}.")
(license license:gpl3+))))
(define-public emacs-focus
(let ((commit "5f3f20e7f22fb9fd7c48abce8bd38061d97e4bc0")
(version "1.0.0")
(revision "1"))
(package
(name "emacs-focus")
(version (git-version version revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/larstvei/Focus")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0a55i4bychfnnzjg67a9h4j130hchcg44446dwwx1l1h48i692dw"))))
(build-system emacs-build-system)
(home-page "https://github.com/larstvei/Focus")
(synopsis "Minor mode for focusing in on relevant text")
(description "This package provides a minor mode that dims the color of
(package
(name "emacs-focus")
(version "1.0.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/larstvei/Focus")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0qbzbs18isxyf5yiz64vyxvzjpfjdaafxnas2lhx3sjkgglb08i2"))))
(build-system emacs-build-system)
(home-page "https://github.com/larstvei/Focus")
(synopsis "Minor mode for focusing in on relevant text")
(description "This package provides a minor mode that dims the color of
text in neighboring sections.")
(license license:gpl3+))))
(license license:gpl3+)))
(define-public emacs-pandoc-mode
(package
@ -24422,6 +24395,43 @@ stories. The default feed is top stories, which corresponds to the Hacker
News homepage.")
(license license:gpl3)))
(define-public emacs-tokei
(package
(name "emacs-tokei")
(version "0.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/nagy/tokei.el")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0gcjlcfxd4bg123gjf7d0vfvfd6zpd0da8svynglca1qhp77jkx1"))))
(build-system emacs-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'configure
(lambda* (#:key inputs #:allow-other-keys)
;; .el is read-only in git.
(make-file-writable "tokei.el")
;; Specify the absolute file name of tokei so that everything
;; works out-of-the-box.
(emacs-substitute-variables "tokei.el"
("tokei-program"
(search-input-file inputs "/bin/tokei"))))))))
(inputs (list tokei))
(propagated-inputs (list emacs-magit))
(home-page "https://github.com/nagy/tokei.el")
(synopsis "Display codebase statistics in Emacs")
(description
"@code{emacs-tokei} is a major-mode for Emacs, that displays codebase
statistics with the help of @code{tokei}.")
(license license:gpl3+)))
(define-public emacs-youtube-dl
(let ((commit "af877b5bc4f01c04fccfa7d47a2c328926f20ef4")
(revision "2"))
@ -24669,7 +24679,7 @@ backends, including the @command{wordnet} offline backend.")
(define-public emacs-editorconfig
(package
(name "emacs-editorconfig")
(version "0.8.2")
(version "0.9.0")
(source
(origin
(method git-fetch)
@ -24679,7 +24689,7 @@ backends, including the @command{wordnet} offline backend.")
(file-name (git-file-name name version))
(sha256
(base32
"1lqxgc24gr67yhi64i9v4w2dcjhpx99jg1kr25gr2byqkkdldkz0"))))
"0k1dnws3xz0xynplaar0f5dwpvdmsnqi0bnavjmvcm98jrczmk8y"))))
(build-system emacs-build-system)
(home-page "https://github.com/editorconfig/editorconfig-emacs")
(synopsis "Define and maintain consistent coding styles between different
@ -25119,7 +25129,7 @@ targets the Emacs based IDEs (CIDER, ESS, Geiser, Robe, SLIME etc.)")
(define-public emacs-buttercup
(package
(name "emacs-buttercup")
(version "1.26")
(version "1.27")
(source
(origin
(method git-fetch)
@ -25129,7 +25139,7 @@ targets the Emacs based IDEs (CIDER, ESS, Geiser, Robe, SLIME etc.)")
(file-name (git-file-name name version))
(sha256
(base32
"1zr9lczdr9dfh99n079d5advxm9p32a8f984dx14f3jn5mx750b1"))))
"1266pqsl67q5svwaxnvwnqhk23wmhds1sds98bas9w4yi4amff0b"))))
(build-system emacs-build-system)
(arguments
(list
@ -31963,38 +31973,40 @@ arbitrary Emacs Lisp objects.")
(license license:gpl3+)))
(define-public emacs-csound-mode
(package
(name "emacs-csound-mode")
(version "0.2.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hlolli/csound-mode")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1c88ak0jaj51fwiqniqxd7xyk23wjl9m57znzm8j267ld8g12znp"))))
(build-system emacs-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'disable-breaking-compilation
(lambda _
(for-each (lambda (file)
(chmod file #o600) ; needed to write changes.
(emacs-batch-disable-compilation file))
'("csound-font-lock.el"))
#t)))))
(inputs
(list emacs-highlight emacs-multi emacs-shut-up))
(home-page "https://github.com/hlolli/csound-mode")
(synopsis "Emacs major mode for coding in CSound")
(description "Provides both a basic major mode for editing
CSound files, as well as a REPL for fast feedback when composing
and sound-designing.")
(license license:gpl3+)))
;; XXX: Upstream did not tag last release. Using the commit matching
;; version bump.
(let ((commit "44c49e5a9262ede4b4477bafb13b42b1ba047b9c"))
(package
(name "emacs-csound-mode")
(version "0.2.3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/hlolli/csound-mode")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0kfhca1n0iv1400jf4ggjbarg7ry8ccd5bs7cf2brjdiqp74cvwb"))))
(build-system emacs-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'disable-breaking-compilation
(lambda _
(let ((file "csound-font-lock.el"))
(make-file-writable file)
(emacs-batch-disable-compilation file)))))))
(propagated-inputs
(list emacs-dash emacs-highlight emacs-multi emacs-shut-up))
(home-page "https://github.com/hlolli/csound-mode")
(synopsis "Emacs major mode for coding in CSound")
(description "This package provides both a basic major mode for editing
CSound files, as well as a REPL for fast feedback when composing and
sound-designing using CSound.")
(license license:gpl3+))))
(define-public emacs-multi
(package
@ -32021,11 +32033,11 @@ the expectations of each branch to define which one to invoke.")
(license license:expat)))
(define-public emacs-highlight
(let ((commit "9258a2b8362d737115cbd87618f947eadb140411")
(revision "1"))
(let ((commit "24366dfd5062a6902a13a03d724fc099db3121b8")
(revision "2"))
(package
(name "emacs-highlight")
(version "0.0.0")
(version (git-version "0" revision commit))
(source
(origin
(method git-fetch)
@ -32035,7 +32047,7 @@ the expectations of each branch to define which one to invoke.")
(file-name (git-file-name name commit))
(sha256
(base32
"0pbqzgbfkm8smi23j94hirxh2r1yc0ipyjbbv1y906br6bx5c1a8"))))
"17r7f4y6b05nq2pzaq8pwww0s6j64vd6fikyv7pliv1n74sljj0d"))))
(build-system emacs-build-system)
(home-page "https://github.com/emacsmirror/highlight")
(synopsis "Highlighting commands for GNU Emacs")
@ -32466,7 +32478,7 @@ s-expression.")
(define-public emacs-map
(package
(name "emacs-map")
(version "3.2.1")
(version "3.3.1")
(source
(origin
(method url-fetch)
@ -32474,7 +32486,7 @@ s-expression.")
version ".tar"))
(sha256
(base32
"1vy231m2fm5cgz5nib14ib7ifprajhnbmzf6x4id48h2491m1n24"))))
"1gvywhdfg27nx6pyq7yfwq9x6j96jama59i5s9rp41pvg2dlmvm0"))))
(build-system emacs-build-system)
(home-page "http://elpa.gnu.org/packages/map.html")
(synopsis "Map manipulation functions")
@ -32673,7 +32685,7 @@ and preferred services can easily be configured.")
(define-public emacs-vertico
(package
(name "emacs-vertico")
(version "0.27")
(version "0.28")
(source
(origin
(method git-fetch)
@ -32682,7 +32694,7 @@ and preferred services can easily be configured.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "17ip4v0hkv9q2fsnpja24jnf5d5zn4g91553n2s0l5c6gwwpilkp"))))
(base32 "0yybwj32k74c5c4rzlpmkq540b8ax0ihn5v7krnri83wn50hr272"))))
(build-system emacs-build-system)
(arguments
`(#:phases
@ -33179,7 +33191,7 @@ Fennel code within Emacs.")
(define-public emacs-org-modern
(package
(name "emacs-org-modern")
(version "0.4")
(version "0.5")
(source
(origin
(method git-fetch)
@ -33187,7 +33199,7 @@ Fennel code within Emacs.")
(url "https://github.com/minad/org-modern")
(commit version)))
(sha256
(base32 "0af9dzp9n3882kvsp3q4008hffq1mp9hjl964mlp5j8vay3x7qbz"))
(base32 "1gny2p3w6ck5sarv6vap2y1lj6h9qaxbh7r7bzszb9qj8rhapk6q"))
(file-name (git-file-name name version))))
(build-system emacs-build-system)
(home-page "https://github.com/minad/org-modern")
@ -33437,6 +33449,31 @@ workspace diagnostics, symbols, and file symbols from @{emacs-lsp-mode}
by leveraging @code{emacs-consult} APIs.")
(license license:expat)))
(define-public emacs-purs-mode
;; XXX: Upstream set no tag nor any Version keyword. Using 0 as the base
;; version.
(let ((commit "d29f1021787a90d0fd3eb0af625958abb7f7506b")
(revision "0"))
(package
(name "emacs-purs-mode")
(version (git-version "0" revision commit))
(source
(origin
(method git-fetch)
(uri
(git-reference
(url "https://github.com/PureFunctor/purs-mode")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0r7219ysf3hsjnan30hidf8jamcqsz36pkcmnhknff0c6dpwbnpx"))))
(build-system emacs-build-system)
(home-page "https://github.com/PureFunctor/purs-mode/")
(synopsis "PureScript major mode for Emacs")
(description
"Purs mode provides a PureScript major mode for Emacs.")
(license license:gpl3+))))
(define-public emacs-pdb-capf
(let ((commit "31602ccab53aa7dcf26a1af222c7da2bcc1390ed")
(revision "0"))
@ -33504,6 +33541,47 @@ tree to go back to previous buffer states. To use vundo, type @kbd{M-x vundo RE
the buffer you want to undo. An undo tree buffer should pop up.")
(license license:gpl3+)))
(define-public emacs-org-cliplink
(let ((commit "13e0940b65d22bec34e2de4bc8cba1412a7abfbc")
(revision "0"))
(package
(name "emacs-org-cliplink")
(version (git-version "0.2" revision commit))
(source
(origin
(method git-fetch)
(uri
(git-reference
(url "https://github.com/rexim/org-cliplink")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1avyiw8vlv4n1r7zqvc6wjlsz7jl2pqaprzpm782gzp0c999pssl"))))
(build-system emacs-build-system)
(arguments
(list
#:tests? #t
#:test-command #~(list "ert-runner")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-curl-executable
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "org-cliplink-transport.el"
(("\\(executable-find \"curl\"\\)")
(let ((curl (search-input-file inputs "/bin/curl")))
(string-append "\"" curl "\"")))))))))
(native-inputs
(list emacs-el-mock emacs-ert-runner emacs-undercover))
(inputs
(list curl))
(home-page "https://github.com/rexim/org-cliplink/")
(synopsis "Insert Org mode links from the clipboard")
(description
"Org Cliplink provides a simple command that takes a URL from the
clipboard and inserts an Org mode link with a title of a page found by the URL
into the current buffer.")
(license license:expat))))
(define-public emacs-project-x
;; There is no proper release.
;; The base version is extracted from the README.org.

4
gnu/packages/emacs.scm
View File

@ -93,14 +93,14 @@
(define-public emacs
(package
(name "emacs")
(version "28.1")
(version "28.2")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/emacs/emacs-"
version ".tar.xz"))
(sha256
(base32
"1qbmmmhnjhn4lvzsnyk7l5ganbi6wzbm38jc1a7hhyh3k78b7c98"))
"12144dcaihv2ymfm7g2vnvdl4h71hqnsz1mljzf34cpg6ci1h8gf"))
(patches (search-patches "emacs-exec-path.patch"
"emacs-fix-scheme-indent-function.patch"
"emacs-source-date-epoch.patch"))

54
gnu/packages/emulators.scm
View File

@ -397,7 +397,7 @@ older games.")
;; This is not a patch staging area for DOSBox, but an unaffiliated fork.
(package
(name "dosbox-staging")
(version "0.78.1")
(version "0.79.1")
(source
(origin
(method git-fetch)
@ -406,7 +406,7 @@ older games.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "16byip1j9ckq0ik7ilrj0fc9dal3495s48xd21drpbb8q9jwb342"))))
(base32 "0wdnkz3djjc514hn945fr9g9mnpnvk16fan84ny9g5wxak6dvsqp"))))
(build-system meson-build-system)
(arguments
(list #:configure-flags
@ -420,19 +420,23 @@ older games.")
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-includes
(lambda _
;; This unnecessary file has an encoding error.
(delete-file "./src/libs/sdlcd/macosx/SDLOSXCAGuard.h")
(substitute* (find-files "." "\\.(cpp|h)")
(("^(#include <)(SDL[_.])" _ include file)
(string-append include "SDL2/" file))))))))
(native-inputs
(list pkg-config))
(inputs
`(("alsa-lib" ,alsa-lib)
("fluidsynth" ,fluidsynth)
("libpng" ,libpng)
("mesa" ,mesa)
("opusfile" ,opusfile)
("sdl2" ,(sdl-union (list sdl2 sdl2-net)))
("zlib" ,zlib)))
(list alsa-lib
fluidsynth
iir
libpng
mesa
opusfile
(sdl-union (list sdl2 sdl2-net))
speexdsp
zlib))
(home-page "https://dosbox-staging.github.io")
(synopsis "DOS/x86 PC emulator focusing on ease of use")
(description
@ -1505,31 +1509,31 @@ multi-system game/emulator system.")
(define-public scummvm
(package
(name "scummvm")
(version "2.6.0")
(version "2.6.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://downloads.scummvm.org/frs/scummvm/" version
"/scummvm-" version ".tar.xz"))
(sha256
(base32 "05zw9xqdix88f8p3py2rfnyiaxr2sbifkqi9s5gy3nf9s3l3h50w"))))
(base32 "1s8psdn3a3hqvvfgmlfxrqqdw8hbr0zyrvirzsnzh6yxmgpvkbwg"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ;require "git"
#:configure-flags (list "--enable-release") ;for optimizations
#:phases
(modify-phases %standard-phases
(replace 'configure
;; configure does not work followed by both "SHELL=..." and
;; "CONFIG_SHELL=..."; set environment variables instead
(lambda* (#:key inputs outputs configure-flags #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bash (search-input-file inputs "/bin/bash"))
(flags `(,(string-append "--prefix=" out)
(list
#:tests? #f ;require "git"
#:configure-flags #~(list "--enable-release") ;for optimizations
#:phases
#~(modify-phases %standard-phases
(replace 'configure
;; configure does not work followed by both "SHELL=..." and
;; "CONFIG_SHELL=..."; set environment variables instead
(lambda* (#:key inputs configure-flags #:allow-other-keys)
(let ((bash (search-input-file inputs "/bin/bash"))
(flags `(,(string-append "--prefix=" #$output)
,@configure-flags)))
(setenv "SHELL" bash)
(setenv "CONFIG_SHELL" bash)
(apply invoke "./configure" flags)))))))
(setenv "SHELL" bash)
(setenv "CONFIG_SHELL" bash)
(apply invoke "./configure" flags)))))))
(native-inputs
(list nasm pkg-config))
(inputs

17
gnu/packages/file-systems.scm
View File

@ -448,8 +448,8 @@ from a mounted file system.")
(license license:gpl2+)))
(define-public bcachefs-tools
(let ((commit "fd1b84975b960d5e42963bed2c18b8c63d8abce7")
(revision "14"))
(let ((commit "494421ee6e85514f90bb316d77e1dd4f7dad3420")
(revision "15"))
(package
(name "bcachefs-tools")
(version (git-version "0.1" revision commit))
@ -461,7 +461,7 @@ from a mounted file system.")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "08vh0pg2sj833062y4vvnvzqchhflcvysp3xdh0zjk121r3iqm0s"))))
(base32 "1sdh9rl8ydnb28646773lsxpdy5jysvjbxs2nwr3hsv4qyv93vc4"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags
@ -472,7 +472,16 @@ from a mounted file system.")
(string-append "PKG_CONFIG=" #$(pkg-config-for-target))
(string-append "PYTEST_CMD="
#$(this-package-native-input "python-pytest")
"/bin/pytest"))
"/bin/pytest")
(string-append "PYTEST_ARGS=-k '"
;; These fail (‘invalid argument’) on
;; kernels with a previous bcachefs version.
"not test_format and "
"not test_fsck and "
"not test_list and "
"not test_list_inodes and "
"not test_list_dirent"
"'"))
#:phases
#~(modify-phases %standard-phases
(delete 'configure) ; no configure script

31
gnu/packages/fonts.scm
View File

@ -11,7 +11,7 @@
;;; Copyright © 2016 Jookia <166291@gmail.com>
;;; Copyright © 2016 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Dmitry Nikolaev <cameltheman@gmail.com>
;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016-2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2016 Toni Reina <areina@riseup.net>
;;; Copyright © 2017–2022 Tobias Geerinckx-Rice <me@tobias.gr>
@ -85,6 +85,7 @@
#:use-module (gnu packages bash)
#:use-module (gnu packages compression)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages gd)
#:use-module (gnu packages gettext)
#:use-module (gnu packages glib)
#:use-module (gnu packages gtk)
@ -847,7 +848,7 @@ for use at smaller text sizes")))
(define-public font-gnu-unifont
(package
(name "font-gnu-unifont")
(version "14.0.04")
(version "15.0.01")
(source
(origin
(method url-fetch)
@ -857,31 +858,45 @@ for use at smaller text sizes")))
(string-append "mirror://gnu/unifont/unifont-"
version "/unifont-" version ".tar.gz")))
(sha256
(base32 "1fzycjxmgnq77r2s5914w1phg3qdwwnwa6p3zyfa1cscrxy52phz"))))
(base32 "1m9lfss6sbmcr0b6h7pxxmdl71j9dmnvk8idvxzylqrwpwjaj4bx"))
(snippet
'(begin
(use-modules (guix build utils))
(delete-file-recursively "font/precompiled")))))
(build-system gnu-build-system)
(outputs '("out" ; TrueType version
(outputs '("out" ; TrueType/OpenType version
"pcf" ; PCF (bitmap) version
"psf" ; PSF (console) version
"bin")) ; Utilities to manipulate '.hex' format
(arguments
`(#:tests? #f ; no check target
#:make-flags
(list (string-append "CC=" ,(cc-for-target)))
(list (string-append "CC=" ,(cc-for-target))
"BUILDFONT=TRUE")
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-after 'unpack 'patch-source
(lambda _
(substitute* (find-files "." "Makefile")
(("/bin/sh -s") (string-append (which "sh") " -s")))))
(replace 'install
(lambda* (#:key make-flags outputs #:allow-other-keys)
(let* ((ttf (string-append (assoc-ref outputs "out")
"/share/fonts/truetype"))
(otf (string-append (assoc-ref outputs "out")
"/share/fonts/opentype"))
(pcf (string-append (assoc-ref outputs "pcf")
"/share/fonts/misc"))
(psf (string-append (assoc-ref outputs "psf")
"/share/consolefonts"))
(bin (assoc-ref outputs "bin")))
;; This directory isn't created in fonts/Makefile.
(mkdir-p otf)
(apply invoke "make" "install"
(string-append "PREFIX=" bin)
(string-append "TTFDEST=" ttf)
(string-append "OTFDEST=" otf)
(string-append "PCFDEST=" pcf)
(string-append "CONSOLEDEST=" psf)
make-flags)
@ -890,8 +905,10 @@ for use at smaller text sizes")))
(invoke "gzip" "-9n" "doc/unifont.info")
(install-file "doc/unifont.info.gz"
(string-append bin "/share/info"))))))))
(native-inputs
(list bdftopcf console-setup fontforge))
(inputs
(list perl)) ; for utilities
(list perl perl-gd)) ; for utilities
(synopsis
"Large bitmap font covering Unicode's Basic Multilingual Plane")
(description
@ -1880,7 +1897,7 @@ ExtraLight, Light, Book, Medium, Semibold, Bold & ExtraBold")
#t))))))
(native-inputs
(list fontforge))
(home-page "http://culmus.sourceforge.net/")
(home-page "https://culmus.sourceforge.io/")
(synopsis "TrueType Hebrew Fonts for X11")
(description "14 Hebrew trivial families. Contain ASCII glyphs from various
sources. Those families provide a basic set of a serif (Frank Ruehl), sans

4
gnu/packages/freeipmi.scm
View File

@ -28,14 +28,14 @@
(define-public freeipmi
(package
(name "freeipmi")
(version "1.6.9")
(version "1.6.10")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/freeipmi/freeipmi-"
version ".tar.gz"))
(sha256
(base32
"01l2kkf2f0c7p8pq8qsil53fv0yaaciwq7n3kjlvbwfhycsiqppj"))))
"0zbszq9nn60vqm2gmwy6hmcz9yqb3lk064ib7l89q65n07ja3r7w"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags '("--disable-static"

82
gnu/packages/game-development.scm
View File

@ -17,7 +17,7 @@
;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019, 2020, 2021 Liliana Marie Prikler <liliana.prikler@gmail.com>
;;; Copyright © 2019 Jethro Cao <jethrocao@gmail.com>
;;; Copyright © 2020, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020-2022 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Timotej Lazar <timotej.lazar@araneo.si>
;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org>
;;; Copyright © 2021 Alexandru-Sergiu Marton <brown121407@posteo.ro>
@ -74,6 +74,7 @@
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages fribidi)
#:use-module (gnu packages dbm)
#:use-module (gnu packages gawk)
#:use-module (gnu packages gettext)
#:use-module (gnu packages gl)
#:use-module (gnu packages glib)
@ -85,6 +86,7 @@
#:use-module (gnu packages guile)
#:use-module (gnu packages image)
#:use-module (gnu packages linux)
#:use-module (gnu packages llvm)
#:use-module (gnu packages lua)
#:use-module (gnu packages m4)
#:use-module (gnu packages mp3)
@ -181,6 +183,71 @@
is used in some video games and movies.")
(license license:zlib)))
(define-public dds
(package
(name "dds")
(version "2.9.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/dds-bridge/dds")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1iv09qic43nvla02lm8zgnkqpjgnc95p8zh3wyifmnmlh1rz02yj"))))
(build-system gnu-build-system)
(arguments
(list #:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'chdir
(lambda _
(chdir "src")))
(replace 'configure
;; Configuration is done by copying the appropriate
;; make file in the working directory. There is no
;; configure script.
(lambda _
(copy-file "Makefiles/Makefile_linux_shared"
"Makefile")))
(replace 'check
;; There is no "check" traget. We must compile
;; a "dtest" program and apply it on a data set.
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(install-file "libdds.so" "../test")
(with-directory-excursion "../test"
(copy-file "Makefiles/Makefile_linux"
"Makefile")
(substitute* "Makefile"
(("-Werror") ""))
(invoke "make")
(invoke "./dtest" "-f" "../hands/list100.txt")))))
(replace 'install
;; "install" target merely moves ".so" file around
;; the source directory. We install it in the store,
;; along with all shipped documentation (which cannot
;; be built from source unfortunately).
(lambda _
(install-file "libdds.so"
(string-append #$output "/lib"))
(let ((doc (string-append #$output
"/share/doc/"
#$name "-" #$version)))
(install-file "../LICENSE" doc)
(copy-recursively "../doc" doc)))))))
(native-inputs
(list gawk procps))
(inputs
(list boost))
(home-page "http://privat.bahnhof.se/wb758135/")
(synopsis "Double dummy solver for the bridge card game")
(description "DDS is a double-dummy solver of bridge hands. It supports
single-threading and multi-threading for improved performance. DDS
offers a wide range of functions, including par-score calculations.")
(license license:asl2.0)))
(define-public deutex
(package
(name "deutex")
@ -550,7 +617,7 @@ clone.")
(define-public tsukundere
(package
(name "tsukundere")
(version "0.4.1")
(version "0.4.3")
(source (origin
(method git-fetch)
(uri (git-reference
@ -559,7 +626,7 @@ clone.")
(file-name (git-file-name name version))
(sha256
(base32
"11glghnff27rqh2s34g51afg93g3f5ryfz9mkyb7qj35ngl8vw5f"))))
"1lq2rs33s6l6y0hwwkv8pppgq2ki0q5kzj11s90yivi8g8g201af"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((ice-9 match)
@ -1021,7 +1088,8 @@ the creation of animations, tiled graphics, texture atlases, and more.")
(build-system cmake-build-system)
(arguments
'(#:configure-flags
(list "-DWITH_WEBP_SUPPORT=1")
(list "-DWITH_WEBP_SUPPORT=1"
"-DWITH_DESKTOP_INTEGRATION=1")
;; Tests are unmaintained
#:tests? #f))
(native-inputs
@ -2001,14 +2069,14 @@ a 2D editor view.")
(define-public guile-chickadee
(package
(name "guile-chickadee")
(version "0.8.0")
(version "0.9.0")
(source (origin
(method url-fetch)
(uri (string-append "https://files.dthompson.us/chickadee/"
"chickadee-" version ".tar.gz"))
(sha256
(base32
"1k2dml2z57lnc36wrmwhh7avnpczxgxnshlfhpbk174vg6v609n0"))))
"0b92lld7kj629mvq44vgd8vmf9h7s5gkdawb35vkzlx5q03wjfvk"))))
(build-system gnu-build-system)
(arguments
'(#:make-flags '("GUILE_AUTO_COMPILE=0")))
@ -2018,6 +2086,8 @@ a 2D editor view.")
(inputs
(list freetype
guile-3.0-latest
libjpeg-turbo
libpng
libvorbis
mpg123
openal

16
gnu/packages/games.scm
View File

@ -65,7 +65,7 @@
;;; Copyright © 2021 Solene Rapenne <solene@perso.pw>
;;; Copyright © 2021 Noisytoot <noisytoot@disroot.org>
;;; Copyright © 2021 Petr Hodina <phodina@protonmail.com>
;;; Copyright © 2021 Brendan Tildesley <mail@brendan.scot>
;;; Copyright © 2021, 2022 Brendan Tildesley <mail@brendan.scot>
;;; Copyright © 2021 Christopher Baines <mail@cbaines.net>
;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com>
;;; Copyright © 2022 Yovan Naumovski <yovan@gorski.stream>
@ -6753,7 +6753,7 @@ fight against their plot and save his fellow rabbits from slavery.")
(define-public 0ad-data
(package
(name "0ad-data")
(version "0.0.25b-alpha")
(version "0.0.26-alpha")
(source
(origin
(method url-fetch)
@ -6761,7 +6761,7 @@ fight against their plot and save his fellow rabbits from slavery.")
version "-unix-data.tar.xz"))
(file-name (string-append name "-" version ".tar.xz"))
(sha256
(base32 "1c9zrddmjxvvacismld6fbwbw9vrdbq6g6d3424p8w5p6xg5wlwy"))))
(base32 "0z9dfw2hn2fyrx70866lv5464fbagdb8dip321wq10pqb22y805j"))))
(build-system trivial-build-system)
(native-inputs (list tar unzip xz))
(arguments
@ -6800,7 +6800,7 @@ fight against their plot and save his fellow rabbits from slavery.")
(define-public 0ad
(package
(name "0ad")
(version "0.0.25b-alpha")
(version "0.0.26-alpha")
(source
(origin
(method url-fetch)
@ -6808,7 +6808,7 @@ fight against their plot and save his fellow rabbits from slavery.")
version "-unix-build.tar.xz"))
(file-name (string-append name "-" version ".tar.xz"))
(sha256
(base32 "1p9fa8f7sjb9c5wl3mawzyfqvgr614kdkhrj2k4db9vkyisws3fp"))))
(base32 "0jzfq09ispi7740c01h6yqxqv9y3zx66d217z32pfbiiwgvns71f"))))
;; A snippet here would cause a build failure because of timestamps
;; reset. See https://bugs.gnu.org/26734.
(inputs
@ -6816,6 +6816,7 @@ fight against their plot and save his fellow rabbits from slavery.")
curl
enet
fmt
freetype
gloox
icu4c-68
libidn
@ -10813,7 +10814,8 @@ inside the Zenith Colony.")
(description "Provides a large set of Go-related services for X11:
@itemize
@item Local games with precise implementation of the Chinese and Japanese rulesets
@item Edition and visualization of SGF files-Connection to the NNGS or IGS Go servers
@item Edition and visualization of SGF files
@item Connection to the NNGS or IGS Go servers
@item Bridge to Go modem protocol, allowing to play against Go modem-capable AIs
such as GnuGo.
@end itemize")
@ -11152,7 +11154,7 @@ original, they have been invented by Thomas Colcombet.")
RollerCoaster Tycoon 1 and 2, graphics- and gameplay-wise.
In this game, you play as a manager of a theme park, allowing you to make a
park of your dreams. The list of responsiblities includes managing staff,
park of your dreams. The list of responsibilities includes managing staff,
finances, landscaping, and most importantly: rides. Good managers follow the
principle of prioritizing the guests' happiness with a well-maintained park.
Should they go unwise, a theme park plunge into chaos with vandalizing guests

9
gnu/packages/gcc.scm
View File

@ -745,7 +745,10 @@ It also includes runtime support libraries for these languages.")
(delete-file-recursively "texinfo")
(substitute* "configure"
(("host_tools=(.*)texinfo" _ before)
(string-append "host_tools=" before)))))))
(string-append "host_tools=" before)))
;; Fix building on arm* with gcc-4+
(substitute* "gcc/config/arm/arm.c"
(("arm_prog_mode") "arm_prgmode"))))))
(supported-systems (fold delete %supported-systems
'("powerpc64le-linux" "riscv64-linux")))
(native-inputs (list texinfo dejagnu))
@ -778,6 +781,10 @@ It also includes runtime support libraries for these languages.")
(("/lib/ld\\.so\\.1")
(search-input-file
inputs #$(glibc-dynamic-linker matching-system))))
(substitute* "gcc/config/i386/gnu.h"
(("/lib/ld\\.so")
(search-input-file
inputs #$(glibc-dynamic-linker matching-system))))
(substitute* '("gcc/config/alpha/linux-elf.h"
"gcc/config/arm/linux-elf.h"
"gcc/config/i386/linux.h"

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

@ -996,7 +996,7 @@ animation of closing windowed applications.")
(define-public gnome-shell-extension-blur-my-shell
(package
(name "gnome-shell-extension-blur-my-shell")
(version "29")
(version "44")
(source
(origin
(method git-fetch)
@ -1006,22 +1006,21 @@ animation of closing windowed applications.")
(file-name (git-file-name name version))
(sha256
(base32
"13x7zgaj3dz7lypdv1bgmpmh0f2w53q567zxmhmqimi1gy5mjrvk"))
(snippet
'(begin (delete-file "src/schemas/gschemas.compiled")))))
"0h7yfvrrg5r821mzrp42c09jws06mw6v9avvkfykqj8n8qnslmyx"))))
(build-system copy-build-system)
(arguments
`(#:install-plan
'(("." ,(string-append
"share/gnome-shell/extensions/"
"blur-my-shell@aunetx")
#:include-regexp ("\\.js(on)?$" "\\.css$" "\\.ui$" "\\.png$"
"\\.xml$" "\\.compiled$")))
'(#:install-plan
(let ((extension "share/gnome-shell/extensions/blur-my-shell@aunetx"))
`(("src/" ,extension)
("resources/" ,extension
#:include-regexp ("\\.svg$" "\\.ui"))
("." ,extension
#:exclude-regexp ("src/" "resources/")
#:include-regexp ("\\.js(on)?$" "\\.css$" "\\.ui$" "\\.png$"
"\\.xml$" "\\.compiled$"))))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'cd-src
(lambda _ (chdir "src")))
(add-before 'install 'compile-schemas
(add-after 'unpack 'compile-schemas
(lambda _
(with-directory-excursion "schemas"
(invoke "glib-compile-schemas" ".")))))))

13
gnu/packages/gnupg.scm
View File

@ -224,6 +224,7 @@ provided.")
(package
(name "libksba")
(version "1.6.0")
(replacement libksba/fixed)
(source
(origin
(method url-fetch)
@ -253,6 +254,18 @@ specifications are building blocks of S/MIME and TLS.")
(properties '((ftp-server . "ftp.gnupg.org")
(ftp-directory . "/gcrypt/libksba")))))
(define libksba/fixed
(package
(inherit libksba)
(version "1.6.2")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://gnupg/libksba/libksba-" version ".tar.bz2"))
(sha256
(base32 "0wf9j9hlzvgn0vz6zg3fvcmpdr62v8bz1kzsvzdbs4lqqp51rq7w"))))))
(define-public npth
(package
(name "npth")

78
gnu/packages/gnuzilla.scm
View File

@ -621,8 +621,8 @@ in C/C++.")
;; XXXX: Workaround 'snippet' limitations.
(define computed-origin-method (@@ (guix packages) computed-origin-method))
(define %icecat-version "102.3.0-guix0-preview1")
(define %icecat-build-id "20220920000000") ;must be of the form YYYYMMDDhhmmss
(define %icecat-version "102.4.0-guix0-preview1")
(define %icecat-build-id "20221019000000") ;must be of the form YYYYMMDDhhmmss
;; 'icecat-source' is a "computed" origin that generates an IceCat tarball
;; from the corresponding upstream Firefox ESR tarball, using the 'makeicecat'
@ -644,11 +644,11 @@ in C/C++.")
"firefox-" upstream-firefox-version ".source.tar.xz"))
(sha256
(base32
"0nmm861p4zakdvi9lj0ac8dkf9v17250rzcmrx1f6r7rvjv273ih"))))
"0klh3lbm0zdmv90kmmpkzgn15pfjibr7zsjy3kvbzpql97fhv7z7"))))
(upstream-icecat-base-version "102.3.0") ; maybe older than base-version
(upstream-icecat-base-version "102.4.0") ; maybe older than base-version
;;(gnuzilla-commit (string-append "v" upstream-icecat-base-version))
(gnuzilla-commit "f82b5b40943fe7723486fadccb48d454ee3e9dad")
(gnuzilla-commit "8f1aa117ddca6e8cd0114265fb4ca9b5a927565a")
(gnuzilla-source
(origin
(method git-fetch)
@ -660,7 +660,7 @@ in C/C++.")
(string-take gnuzilla-commit 8)))
(sha256
(base32
"1d7lfvwi9mvaxcfiqcgch3idhyxpdf56r9b71r54yiifv6xlr7x9"))))
"0ryrn8ivm763swd0qbqhlgdwc2dj4xjd81d9i2r6hb7bsb4ky3y5"))))
;; 'search-patch' returns either a valid file name or #f, so wrap it
;; in 'assume-valid-file-name' to avoid 'local-file' warnings.
@ -1242,12 +1242,26 @@ standards of the IceCat project.")
(cpe-name . "firefox_esr")
(cpe-version . ,(first (string-split version #\-)))))))
;; Update this together with icecat!
(define %icedove-build-id "20220928000000") ;must be of the form YYYYMMDDhhmmss
(define %icedove-build-id "20221019000000") ;must be of the form YYYYMMDDhhmmss
(define %icedove-version "102.4.0")
;; Provides the "comm" folder which is inserted into the icecat source.
;; Avoids the duplication of Icecat's source tarball.
(define thunderbird-source
(origin
(method hg-fetch)
(uri (hg-reference
(url "https://hg.mozilla.org/releases/comm-esr102")
(changeset "c064680366a130c4c02ba9b85ef324f0f075c47b")))
(file-name (string-append "thunderbird-" %icedove-version "-checkout"))
(sha256
(base32
"0ccpp4890nqill1yn2lb5b855r4hpmhrcsdbxdk2sdn52dc0qda6"))))
(define-public icedove
(package
(name "icedove")
(version "102.3.1")
(version %icedove-version)
(source icecat-source)
(properties
`((cpe-name . "thunderbird_esr")))
@ -1263,10 +1277,9 @@ standards of the IceCat project.")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'prepare-thunderbird-sources
(lambda* (#:key inputs #:allow-other-keys)
(lambda _
(mkdir "comm")
(copy-recursively (assoc-ref inputs "thunderbird-sources")
"comm")
(copy-recursively #$thunderbird-source "comm")
(delete-file "sourcestamp.txt")))
(add-after 'patch-source-shebangs 'patch-cargo-checksums
(lambda _
@ -1528,34 +1541,19 @@ ca495991b7852b855"))
zip
zlib))
(native-inputs
`(("thunderbird-sources"
;; The changeset identifier is taken from the file "sourcestamp.txt"
;; in the Thunderbird release tarball. We don't use the release
;; tarball because it duplicates the Icecat sources and only adds the
;; "comm" directory, which is provided by this repository.
,(let ((changeset "07a17b101f904a686bbdf798ba2e820079a8323f"))
(origin
(method hg-fetch)
(uri (hg-reference
(url "https://hg.mozilla.org/releases/comm-esr102")
(changeset changeset)))
(file-name (string-append "thunderbird-" version "-checkout"))
(sha256
(base32
"078jrxpzqj45l84i39a9fq023j71ngca5gs2ngpjsbily51bzx09")))))
("cargo" ,rust "cargo")
("clang" ,clang)
("llvm" ,llvm)
("m4" ,m4)
("nasm" ,nasm)
("node" ,node)
("perl" ,perl)
("pkg-config" ,pkg-config)
("python" ,python-wrapper)
("rust" ,rust)
("rust-cbindgen" ,(force rust-cbindgen-0.23-promise))
("which" ,which)
("yasm" ,yasm)))
(list `(,rust "cargo")
clang
llvm
m4
nasm
node
perl
pkg-config
python-wrapper
rust
(force rust-cbindgen-0.23-promise)
which
yasm))
(home-page "https://www.thunderbird.net")
(synopsis "Rebranded Mozilla Thunderbird email client")
(description

85
gnu/packages/golang.scm
View File

@ -36,6 +36,7 @@
;;; Copyright © 2022 Pier-Hugues Pellerin <phpellerin@gmail.com>
;;; Copyright © 2022 muradm <mail@muradm.net>
;;; Copyright © 2022 Dhruvin Gandhi <contact@dhruvin.dev>
;;; Copyright © 2022 Nicolas Graves <ngraves@ngraves.fr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1333,9 +1334,9 @@ configuration file.")
"github.com/savsgio/gotils/time"
"github.com/savsgio/gotils/uuid")))))))
(home-page "https://github.com/savsgio/gotils")
(synopsis "Golang utlities")
(synopsis "Golang utilities")
(description
"Golang utlities to make your life easier with zero allocations.")
"Golang utilities to make your life easier with zero allocations.")
(license license:asl2.0))))
(define-public go-github-com-riobard-go-bloom
@ -3268,7 +3269,7 @@ optimized for performance yet simple to use.")
(define-public go-github-com-tomnomnom-gron
(package
(name "gron")
(version "0.6.1")
(version "0.7.1")
(home-page "https://github.com/tomnomnom/gron")
(source
(origin
@ -3278,7 +3279,7 @@ optimized for performance yet simple to use.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0qmzawkhg0qn9kxxrssbdjni2khvamhrcklv3yxc0ljmh77mh61m"))))
(base32 "1sj34b6yv0qigy3aq7qmwf8bqxp1a8qh9p10lzkpw58s1c0iyh36"))))
(build-system go-build-system)
(arguments
(let ((import-path "github.com/tomnomnom/gron"))
@ -5449,8 +5450,8 @@ as conversion to and from @command{net.Addr}.")
(license license:expat))))
(define-public go-github-com-sabhiram-go-gitignore
(let ((commit "d3107576ba9425fc1c85f4b3569c4631b805a02e")
(revision "0"))
(let ((commit "525f6e181f062064d83887ed2530e3b1ba0bc95a")
(revision "1"))
(package
(name "go-github-com-sabhiram-go-gitignore")
(version (git-version "1.0.2" revision commit))
@ -5463,7 +5464,7 @@ as conversion to and from @command{net.Addr}.")
(file-name (git-file-name name version))
(sha256
(base32
"1rdwyxgcsiwgmlqnc3k6h300mzlvjc3j21np4yh1h476wc8dvl0l"))))
"197giv3snczvbihzvkja5pq53yw5fc516rnjm71hni8gawb8jmh3"))))
(build-system go-build-system)
(arguments
'(#:import-path
@ -8365,6 +8366,76 @@ configuration languages, but other uses may be possible too.")
(description "This package implements a low-level key/value store in Go.")
(license license:expat)))
(define-public go-filippo-io-age
(package
(name "go-filippo-io-age")
(version "1.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/FiloSottile/age")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "19fz68n262kvg2ssw4r6nik30zk6g6cy7rdi0fm05czwigqrdz1i"))))
(build-system go-build-system)
(arguments `(#:import-path "filippo.io/age"))
(inputs
(list go-golang-org-x-sys
go-golang-org-x-term
go-golang-org-x-crypto
go-filippo-io-edwards25519))
(home-page "https://filippo.io/age")
(synopsis "Secure file encryption tool, format, and Go library")
(description
"This package implements file encryption according to the
@{age-encryption.org/v1, https://age-encryption.org/v1} specification.
It features small explicit keys, no configuration options, and Unix-style
composability.")
(license license:bsd-3)))
(define-public age
(package
(inherit go-filippo-io-age)
(name "age")
(arguments
`(#:import-path "filippo.io/age/cmd/age"
#:unpack-path "filippo.io/age"
#:install-source? #f))))
(define-public age-keygen
(package
(inherit go-filippo-io-age)
(name "age-keygen")
(arguments
`(#:import-path "filippo.io/age/cmd/age-keygen"
#:unpack-path "filippo.io/age"
#:install-source? #f))))
(define-public go-filippo-io-edwards25519
(package
(name "go-filippo-io-edwards25519")
(version "1.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/FiloSottile/edwards25519")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "01m8hpaj0cwp250f7b0din09cf8j6j5y631grx67qfhvfrmwr1zr"))))
(build-system go-build-system)
(arguments
'(#:import-path "filippo.io/edwards25519"))
(home-page "https://filippo.io/edwards25519")
(synopsis "Group logic for the twisted Edwards curve")
(description
"This package implements the edwards25519 elliptic curve in Go, exposing
the necessary APIs to build a wide array of higher-level primitives.")
(license license:bsd-3)))
(define-public go-github-com-rogpeppe-go-internal
(package
(name "go-github-com-rogpeppe-go-internal")

4
gnu/packages/gps.scm
View File

@ -139,7 +139,7 @@ between two other data points.")
(define-public gama
(package
(name "gama")
(version "2.21")
(version "2.23")
(source
(origin
(method url-fetch)
@ -147,7 +147,7 @@ between two other data points.")
version ".tar.gz"))
(sha256
(base32
"0xncq4cgzn5mgwxw515xa0rhazf28y4cnpwg67kbibya7zx2iqw7"))
"03cwx83q788xlnpj0m4dgpf8scwn7m8p5c20vq90m1fxc614199q"))
(modules '((guix build utils)))
(snippet
'(begin

26
gnu/packages/groff.scm
View File

@ -35,6 +35,7 @@
#:use-module (gnu packages)
#:use-module (gnu packages ruby)
#:use-module (gnu packages bison)
#:use-module (gnu packages flex)
#:use-module (gnu packages ghostscript)
#:use-module (gnu packages netpbm)
#:use-module (gnu packages perl)
@ -258,3 +259,28 @@ It is typically used to display man pages on a web site.")
man page format from Markdown.")
(home-page "https://github.com/apjanke/ronn-ng")
(license expat)))
(define-public grap
(package
(name "grap")
(version "1.46")
(source (origin
(method url-fetch)
(uri (string-append
"https://www.lunabase.org/~faber/Vault/software/grap/grap-"
version ".tar.gz"))
(sha256
(base32
"1d4bhhgi64x4cjww7fj0lqgr20w7lqnl2aizj6cndsgyxkywx3ks"))))
(build-system gnu-build-system)
(native-inputs (list flex bison))
(synopsis "Tool for creating graphs with troff")
(description
"Grap is a language for typesetting graphs specified and
first implemented by Brian Kernighan and Jon Bentley at Bell Labs. It is an
expressive language for describing graphs and incorporating them in typeset
documents. It is implemented as a preprocessor to Kernigan's pic language for
describing languages, so any system that can use pic can use grap. For sure,
TeX and groff can use it.")
(home-page "https://github.com/snorerot13/grap")
(license bsd-3)))

1
gnu/packages/gstreamer.scm
View File

@ -836,7 +836,6 @@ model to base your own plug-in on, here it is.")
curl
directfb
;; dssim
faac
faad2
flite
fluidsynth

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

@ -4441,6 +4441,50 @@ Discovery (DNS-SD).")
(home-page "https://www.nongnu.org/guile-avahi/")
(license license:lgpl3+))))
(define-public guile-dns
(package
(name "guile-dns")
(version "0.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://git.lysator.liu.se/hugo/guile-dns")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"18skivracv6jh1zab9dknkcpbizc416n0pb2mcwb20dpzc2md9yf"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags #~(list (string-append "PREFIX=" #$output)
;; Prevent guild warnings.
"GUILE_AUTO_COMPILE=0"
;; Make tests verbose and disable coverage
;; report. The coverage report fails on
;; i686-linux.
"TEST_FLAGS=--verbose")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-makefile
(lambda _
(substitute* "Makefile"
;; CURDIR is a standard GNU Make variable. Prefer it to
;; PWD. PWD is set by the shell and is absent in the
;; build process.
(("PWD") "CURDIR")
;; Install info file at share/info, not at share.
(("share doc") "share/info doc"))))
(delete 'configure))))
(inputs
(list guile-3.0))
(native-inputs
(list texinfo))
(home-page "https://git.lysator.liu.se/hugo/guile-dns")
(synopsis "Guile DNS library")
(description "@code{guile-dns} is a DNS library written in pure Guile
Scheme.")
(license license:gpl3+)))
(define-public guile-jwt
(package
(name "guile-jwt")

18
gnu/packages/hardware.scm
View File

@ -477,14 +477,14 @@ RGB animations.")
(define-public ddcutil
(package
(name "ddcutil")
(version "1.2.2")
(version "1.3.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.ddcutil.com/tarballs/"
"ddcutil-" version ".tar.gz"))
(sha256
(base32 "18fbd45h2r3r702dvmlmyrwgs3ymr4mhm4f12lgv9jqb5csalbw2"))))
(base32 "0hm0cm4m4hk1jjy7kddg613mynvwlii3kp8al0j9v3c6mcx3p4mx"))))
(build-system gnu-build-system)
(native-inputs
(list pkg-config))
@ -521,7 +521,7 @@ calibrated, and restored when the calibration is applied.")
(define-public ddcui
(package
(name "ddcui")
(version "0.2.1")
(version "0.3.0")
(source
(origin
(method git-fetch)
@ -530,10 +530,10 @@ calibrated, and restored when the calibration is applied.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0a9xfv80dpimx9wi9igjbbfydyfsgnbk6dv1plhjzyp2a9shdibb"))))
(base32 "0gypfmwxhjmgyfwk29k8hfbgr0698kbcq2yj4izxv1i59zm63irz"))))
(build-system cmake-build-system)
(arguments
'(#:tests? #f)) ; No test suite
(list #:tests? #f)) ; No test suite
(native-inputs
(list pkg-config qttools-5))
(inputs
@ -649,7 +649,7 @@ hardware works with a fully free operating system or not.")
(define-public headsetcontrol
(package
(name "headsetcontrol")
(version "2.6")
(version "2.6.1")
(source
(origin
(method git-fetch)
@ -658,7 +658,7 @@ hardware works with a fully free operating system or not.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0a7zimzi71416pmn6z0l1dn1c2x8p702hkd0k6da9rsznff85a88"))))
(base32 "1pkgi87wjyris53frw3qmjdqvkzyyl55ikjgn8cidnbr6i3rqls9"))))
(build-system cmake-build-system)
(inputs
(list hidapi))
@ -1121,7 +1121,7 @@ as the Pinebook Pro.")
(define-public usbguard
(package
(name "usbguard")
(version "1.1.1")
(version "1.1.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -1129,7 +1129,7 @@ as the Pinebook Pro.")
(commit (string-append "usbguard-" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0lpyhkz5nr0c9mq57mgcvam5c8qfqqwjc4xd46n2ldqc9vhfsask"))))
(base32 "10qqjk7hsycc6hk51abwcld7i48038zqi1jzli59cfvc76ikrxj5"))))
(build-system gnu-build-system)
(arguments
(list

7
gnu/packages/haskell-apps.scm
View File

@ -304,14 +304,14 @@ to @code{cabal repl}).")
(define-public git-annex
(package
(name "git-annex")
(version "10.20220927")
(version "10.20221003")
(source
(origin
(method url-fetch)
(uri (string-append "https://hackage.haskell.org/package/"
"git-annex/git-annex-" version ".tar.gz"))
(sha256
(base32 "1bqcaddw47g6i3z9g0iym5x7zy1q8fsirzqnjsa63n2bwm6zzplc"))))
(base32 "0nyhmwkzd8gyd9mvlnjyalfix32x5y4g89d5g36jp3jp1bkwg9i4"))))
(build-system haskell-build-system)
(arguments
`(#:configure-flags
@ -471,8 +471,9 @@ to @code{cabal repl}).")
ghc-yesod-core
ghc-yesod-form
ghc-yesod-static
git
rsync))
(propagated-inputs
(list git))
(native-inputs
(list ghc-tasty ghc-tasty-hunit ghc-tasty-quickcheck ghc-tasty-rerun
perl))

2
gnu/packages/haskell.scm
View File

@ -360,7 +360,7 @@ SplitObjs=NO
;; TODO: Perl used to allow setting $* to enable multi-line
;; matching. If we want to use a more recent Perl we need to patch
;; all expressions that require multi-line matching. Hard to tell.
perl-5.14))
perl-5.6))
(home-page "https://www.haskell.org/ghc")
(synopsis "The Glasgow Haskell Compiler")
(description

2
gnu/packages/haxe.scm
View File

@ -102,7 +102,7 @@ easily embedded into any application and your libraries can be accessed using
the C foreign function interface.
You can use the compiler as standalone command line executable separate from
the VM, or as a Neko library to perform compile-and-run funtions for
the VM, or as a Neko library to perform compile-and-run functions for
interactive languages.")
(license license:expat)))

8
gnu/packages/kde.scm
View File

@ -158,7 +158,7 @@ This package contains GUI widgets for baloo.")
(uri (string-append "mirror://kde/stable/release-service/" version
"/src/akregator-" version ".tar.xz"))
(sha256
(base32 "9yy5c29zxpli4cddknmdvjkgii3j7pvw6lhwqfrqjc8jh83gm8f8"))))
(base32 "08n713271i7ifnbrgwrqmxvcpvj45wfqjiidw8zf9rpwxg2m2m9g"))))
(build-system qt-build-system)
(arguments
`(#:phases
@ -167,9 +167,9 @@ This package contains GUI widgets for baloo.")
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin/akregator"))
(qt-process-path (string-append
(assoc-ref inputs "qtwebengine-5")
"/lib/qt5/libexec/QtWebEngineProcess")))
(qt-process-path
(search-input-file
inputs "/lib/qt5/libexec/QtWebEngineProcess")))
(wrap-program bin
`("QTWEBENGINEPROCESS_PATH" = (,qt-process-path)))))))))
(native-inputs

24
gnu/packages/libevent.scm
View File

@ -26,7 +26,7 @@
(define-module (gnu packages libevent)
#:use-module (gnu packages)
#:use-module (guix licenses)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
@ -74,7 +74,16 @@ libevent is meant to replace the event loop found in event driven
network servers. An application just needs to call event_dispatch() and
then add or remove events dynamically without having to change the event
loop.")
(license bsd-3)))
(license license:bsd-3)))
(define-public libevent-with-openssl
(package/inherit libevent
(name "libevent-with-openssl")
(inputs (modify-inputs (package-inputs libevent)
(prepend openssl)))
(arguments
;; This skips some of the tests which fail on armhf and aarch64.
'(#:configure-flags '("--disable-libevent-regress")))))
(define-public libev
(package
@ -99,8 +108,7 @@ loosely modelled after libevent. It includes relative timers, absolute timers
with customized rescheduling, synchronous signals, process status change
events, event watchers dealing with the event loop itself, file watchers, and
limited support for fork events.")
(license
(list bsd-2 gpl2+))))
(license (list license:bsd-2 license:gpl2+))))
(define-public libuv
(package
@ -131,7 +139,7 @@ resolution, asynchronous file system operations, and threading primitives.")
;; A few files fall under other non-copyleft licenses; see 'LICENSE' for
;; details. Documentation is CC-BY 4.0 as of 1.12.0; see 'LICENSE-docs'.
(license (list expat cc-by4.0))))
(license (list license:expat license:cc-by4.0))))
(define-public libuv-for-node
;; When upgrading Node, also upgrade this. Get the version from
@ -218,7 +226,7 @@ Currently supported event loops are EV, Event, Glib/Gtk2, Tk, Qt,
@code{Event::Lib}, Irssi, @code{IO::Async} and POE (and thus also WxWidgets
and Prima). It also comes with a very fast Pure Perl event loop that does
not rely on XS.")
(license perl-license)))
(license license:perl-license)))
(define-public perl-ev
(package
@ -259,7 +267,7 @@ not rely on XS.")
"This module provides an interface to @code{libev}, a high performance
full-featured event loop. It can be used through the @code{AnyEvent} module
and still be faster than other event loops currently supported in Perl.")
(license perl-license)))
(license license:perl-license)))
(define-public perl-rpc-epc-service
(package
@ -286,4 +294,4 @@ and still be faster than other event loops currently supported in Perl.")
(synopsis "Asynchronous remote procedure stack")
(description "RPC::EPC::Service enables to connect the other process with
the S-expression protocol, like the Swank protocol of the SLIME.")
(license perl-license)))
(license license:perl-license)))

49
gnu/packages/libreoffice.scm
View File

@ -73,6 +73,7 @@
#:use-module (gnu packages java)
#:use-module (gnu packages linux)
#:use-module (gnu packages logging)
#:use-module (gnu packages m4)
#:use-module (gnu packages maths)
#:use-module (gnu packages nss)
#:use-module (gnu packages openldap)
@ -83,6 +84,7 @@
#:use-module (gnu packages python)
#:use-module (gnu packages rdf)
#:use-module (gnu packages scanner)
#:use-module (gnu packages textutils)
#:use-module (gnu packages tls)
#:use-module (gnu packages version-control)
#:use-module (gnu packages xml)
@ -996,6 +998,53 @@ patterns, which are pre-processed by a perl script.")
(license
(list license:mpl1.1 license:mpl2.0 license:gpl2+ license:lgpl2.1+))))
(define-public hunspell-dict-hu
(let ((revision "2")
(major+minor "1.7"))
(package
(name "hunspell-dict-hu")
(version (string-append major+minor "-" revision))
(source
(origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/magyarispell/Magyar Ispell/"
major+minor
"/magyarispell-" version ".tar.gz"))
(sha256
(base32 "0r22rvqrp5bzgr9sqyap82kibi5z9n6xy5b06si28idqijw7c772"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags
#~(list "myspell"
"--jobs=1" ;the Makefile is not ready for parallelism
(string-append "SH="
(search-input-file %build-inputs
"/bin/bash"))
(string-append "AWK="
(search-input-file %build-inputs
"/bin/awk")))
#:phases
#~(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "config"
(("/usr/bin/awk")
(which "awk")))))
(replace 'install ;no install target
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(share (string-append out "/share/hunspell/")))
(install-file "hu_HU.aff" share)
(install-file "hu_HU.dic" share)))))
#:tests? #f)) ; no tests
(native-inputs
(list hunspell m4 recode))
(synopsis "Hunspell dictionary for Hungarian (hu_HU)")
(description "This package provides a dictionary for the Hunspell
spell-checking library.")
(home-page "http://magyarispell.sourceforge.net/")
(license (list license:gpl2 license:gpl3)))))
(define-public mythes
(package
(name "mythes")

95
gnu/packages/linux.scm
View File

@ -355,7 +355,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
;; The current "stable" kernels. That is, the most recently released major
;; versions that are still supported upstream.
(define-public linux-libre-5.19-version "5.19.15")
(define-public linux-libre-5.19-version "5.19.16")
(define-public linux-libre-5.19-gnu-revision "gnu")
(define deblob-scripts-5.19
(linux-libre-deblob-scripts
@ -365,7 +365,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "092myqjixvy1k3ylcj0hfc4whfxapjvxsxm4gk30a3jv5dnh7mly")))
(define-public linux-libre-5.19-pristine-source
(let ((version linux-libre-5.19-version)
(hash (base32 "06zband5q6m9imyvn4y4naafdakjcj00rg23227cagnv8wwf71j6")))
(hash (base32 "13g0c6ljxk3sd0ja39ndih5vrzp2ssj78qxaf8nswn8hgrkazsx1")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.19)))
@ -374,7 +374,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
;; The "longterm" kernels — the older releases with long-term upstream support.
;; Here are the support timelines:
;; <https://www.kernel.org/category/releases.html>
(define-public linux-libre-5.15-version "5.15.73")
(define-public linux-libre-5.15-version "5.15.74")
(define-public linux-libre-5.15-gnu-revision "gnu")
(define deblob-scripts-5.15
(linux-libre-deblob-scripts
@ -384,12 +384,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "048r4synfax2ajyzlmp672b68yshxwlfccdah2vz1kh88rqfmgsc")))
(define-public linux-libre-5.15-pristine-source
(let ((version linux-libre-5.15-version)
(hash (base32 "0pbi640llcdbx57vwwzc5axa75w0y5rixa9r752h725f4naz08m8")))
(hash (base32 "0ra2ijpw7w07gm3kjwyszlwfq2rbnmq84z50qhv5r0svz2i3j59c")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.15)))
(define-public linux-libre-5.10-version "5.10.147")
(define-public linux-libre-5.10-version "5.10.149")
(define-public linux-libre-5.10-gnu-revision "gnu1")
(define deblob-scripts-5.10
(linux-libre-deblob-scripts
@ -399,12 +399,12 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1981axxswghza3iadp94q54y8w30h9w9vyq4cbjiiv9alvbv0pb8")))
(define-public linux-libre-5.10-pristine-source
(let ((version linux-libre-5.10-version)
(hash (base32 "16pdpjmvrdml7am7s2kydrif1l7f4aq0wh4ak0xh3dby16zkl9c5")))
(hash (base32 "1lv5q0m24ccbiqywy03s9s3wyxzm0v7f691rag89qfsn6z2k8q8g")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.10)))
(define-public linux-libre-5.4-version "5.4.217")
(define-public linux-libre-5.4-version "5.4.219")
(define-public linux-libre-5.4-gnu-revision "gnu1")
(define deblob-scripts-5.4
(linux-libre-deblob-scripts
@ -414,7 +414,7 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
(base32 "1vnjbdyssa7dwyjl9kg35alwvf7yh597cl74yr1wy2gk5bc9paw6")))
(define-public linux-libre-5.4-pristine-source
(let ((version linux-libre-5.4-version)
(hash (base32 "0qrfrk0g1dky5apg8gdxczj2ir0g0z41zmdmbwwcxkxjz76jdf1b")))
(hash (base32 "0qd2a0cx6bq11qq2513xmm5jxzfrq6axvsc0pjbvdpv9fa9av4sj")))
(make-linux-libre-source version
(%upstream-linux-source version hash)
deblob-scripts-5.4)))
@ -2672,7 +2672,7 @@ Both commands are targeted at system administrators.")
(define-public jitterentropy-rngd
(package
(name "jitterentropy-rngd")
(version "1.2.7")
(version "1.2.8")
(source
(origin
(method git-fetch)
@ -2681,17 +2681,18 @@ Both commands are targeted at system administrators.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "098hx09bsizin9405gh1c4rzbs2fr7qknqlr3glgyjpm3nm7bx28"))))
(base32 "13br8s6gqnfc844ps38ya5nny3pndsmskszv3dsp1cxcgvmscg1c"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no test suite
#:make-flags
(list (string-append "CC=" ,(cc-for-target))
(string-append "PREFIX=" (assoc-ref %outputs "out"))
"UNITDIR=$(PREFIX)/lib/systemd/system")
#:phases
(modify-phases %standard-phases
(delete 'configure)))) ; no ./configure script
(list
#:tests? #f ; no test suite
#:make-flags
#~(list (string-append "CC=" #$(cc-for-target))
(string-append "PREFIX=" #$output)
"UNITDIR=$(PREFIX)/lib/systemd/system")
#:phases
#~(modify-phases %standard-phases
(delete 'configure)))) ; no ./configure script
(home-page "https://www.chronox.de/jent.html")
(synopsis "CPU jitter random number generator daemon")
(description
@ -3523,7 +3524,7 @@ compressed, transparent to other programs, without decompressing them.")
(define-public numactl
(package
(name "numactl")
(version "2.0.14")
(version "2.0.16")
(source (origin
(method url-fetch)
(uri (string-append
@ -3531,7 +3532,7 @@ compressed, transparent to other programs, without decompressing them.")
version "/numactl-" version ".tar.gz"))
(sha256
(base32
"1xngddsph43bxljywahi9d44fxr022slsap4hh91w8xnq54d2sw2"))))
"1j67wx3383fwqbvhg4nwqf72vpdgimmrvkpn3b9s2xzr7a4jy90v"))))
(build-system gnu-build-system)
(arguments
`(,@(if (target-riscv64?)
@ -4753,14 +4754,14 @@ isolation or root privileges.")
(define-public hdparm
(package
(name "hdparm")
(version "9.64")
(version "9.65")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/hdparm/hdparm/"
"hdparm-" version ".tar.gz"))
(sha256
(base32
"16l5mc6dpqkzhwsljyzks05pq89l2lw09qkx50ks1zn3a5lranri"))))
"0jssagggg52ssl9kg99m88afghj7bm1854vyf4p96q6h23wjjjfi"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags
@ -4873,14 +4874,14 @@ about ACPI devices.")
(define-public acpid
(package
(name "acpid")
(version "2.0.33")
(version "2.0.34")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/acpid2/acpid-"
version ".tar.xz"))
(sha256
(base32
"1s6vf8lqwrcqi14k0ww47pk1kifbvxin73ha7mk1njmk7qdzfmh8"))))
"0cxkdbd087kj9ikprvvjpk0ixzqbipf2rmj6qyp7r15wzj65q29d"))))
(build-system gnu-build-system)
(home-page "https://sourceforge.net/projects/acpid2/")
(synopsis "Daemon for delivering ACPI events to user-space programs")
@ -5894,6 +5895,42 @@ drive that supports the ATA/ATAPI-7 IDLE IMMEDIATE command with unload
feature, and a laptop with an accelerometer. It has no effect on SSDs.")
(license license:gpl2)))
(define-public nbfc-linux
(let ((version "0.1.7")
(commit "4c2b75e4a875459e86a9892319889ff945e9cadf")
(revision "0"))
(package
(name "nbfc-linux")
(version (git-version version revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/nbfc-linux/nbfc-linux")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0mmyfaigrh3fd5v11a8p38km4m02qzsfx8yh72g0z405bzhqn5jk"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags (list (string-append "CC="
,(cc-for-target))
(string-append "PREFIX="
(assoc-ref %outputs "out")))
#:tests? #f
#:phases (modify-phases %standard-phases
(delete 'configure))))
(native-inputs (list pkg-config))
(propagated-inputs (list python dmidecode))
(synopsis "NoteBook FanControl ported to Linux")
(description
"This package provides a C port of NoteBook FanControl (NBFC), a fan
control service for notebooks. It provides the same utilities with the same
interfaces as the original NBFC, although the implementation differs.")
(home-page "https://github.com/nbfc-linux/nbfc-linux")
(license license:gpl3+))))
(define-public thinkfan
(package
(name "thinkfan")
@ -6670,7 +6707,7 @@ the @code{mce-inject} module loaded if it exists.")
(define-public mcelog
(package
(name "mcelog")
(version "188")
(version "189")
(source
(origin
(method git-fetch)
@ -6679,7 +6716,7 @@ the @code{mce-inject} module loaded if it exists.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1pdh0fj12wrm7whi96ak7m1f5b8ivgklabwkhfcfxd8dg134qczf"))
(base32 "0ml12xmmmljp22a89fw23c6gmba4dngavgnisv665w67kbnv5085"))
(modules '((guix build utils)))
(snippet
`(begin
@ -7888,14 +7925,14 @@ available in the kernel Linux.")
(define-public cpuid
(package
(name "cpuid")
(version "20220812")
(version "20221003")
(source (origin
(method url-fetch)
(uri (string-append "http://www.etallen.com/cpuid/cpuid-"
version ".src.tar.gz"))
(sha256
(base32
"1gss85szv4b48d93d6hzkkzggicdvw8dijiwfs84ywclgnwqzxiv"))))
"01w318kxcksfbjwjnnc9ly12g0yp4vm6xjgfl8mmi0jndg0cbi33"))))
(build-system gnu-build-system)
(arguments
(list #:make-flags
@ -9438,7 +9475,7 @@ with the value and the symbolic name.")
(synopsis
"Linux Kernel module exposing features of ThinkPad hardware")
(description
"This package provides a Linux Kernel module that allows to control
"This package provides a Linux Kernel module that controls
battery charging of specific ThinkPad laptops. It also includes an improved
version of the HDAPS driver. The underlying hardware interfaces are
@acronym{SMAPI, System Management Application Program Interface} and direct

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

@ -186,6 +186,73 @@ portable between implementations.")
(define-public ecl-alexandria
(sbcl-package->ecl-package sbcl-alexandria))
(define-public sbcl-stdutils
(let ((commit "4a4e5a4036b815318282da5dee2a22825369137b")
(revision "0"))
(package
(name "sbcl-stdutils")
(version (git-version "1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/eslick/cl-stdutils")
(commit commit)))
(file-name (git-file-name "cl-stdutils" version))
(sha256
(base32 "16vxxphqdq8264x0aanm36x9r6d3ci1gjf4vf46mwl59gcff4wcj"))))
(build-system asdf-build-system/sbcl)
(arguments '(#:tests? #f)) ; There are no tests.
(inputs
(list sbcl-cl-fad
sbcl-cl-ppcre))
(home-page "https://github.com/eslick/cl-stdutils/")
(synopsis "Grab bag of Common Lisp utility functions")
(description
"This package provides a grab bag of miscellaneous Common Lisp
utilities.")
(license license:bsd-3))))
(define-public cl-stdutils
(sbcl-package->cl-source-package sbcl-stdutils))
(define-public ecl-stdutils
(sbcl-package->ecl-package sbcl-stdutils))
(define-public sbcl-langutils
(let ((commit "38beec7a82eeb35b0bfb0824a41d13ed94fc648b")
(revision "0"))
(package
(name "sbcl-langutils")
(version (git-version "1.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/eslick/cl-langutils")
(commit commit)))
(file-name (git-file-name "cl-langutils" version))
(sha256
(base32 "15y9x5wkg3fqndc04w2sc650fnwimxp4gjgpv9xvvdm9x4v433x6"))))
(build-system asdf-build-system/sbcl)
(arguments '(#:tests? #f)) ; There are no tests.
(inputs
(list sbcl-stdutils
sbcl-s-xml-rpc))
(home-page "https://langutils.common-lisp.dev/")
(synopsis "Common Lisp natural language processing toolkit")
(description
"This package provides a hierarchy of major functions and auxiliary
functions related to the structured analysis and processing of open
text.")
(license license:bsd-3))))
(define-public cl-langutils
(sbcl-package->cl-source-package sbcl-langutils))
(define-public ecl-langutils
(sbcl-package->ecl-package sbcl-langutils))
(define-public sbcl-alea
(package
(name "sbcl-alea")
@ -841,6 +908,41 @@ grammar.")
(define-public ecl-cl-abnf
(sbcl-package->ecl-package sbcl-cl-abnf))
(define-public sbcl-select
(let ((commit "df7920fc451b6d15345040ce4a3ee1ea2818ab1a")
(revision "0"))
(package
(name "sbcl-select")
(version (git-version "1.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Lisp-Stat/select")
(commit commit)))
(file-name (git-file-name "cl-select" version))
(sha256
(base32 "0bhpvfqp7n33pia4y62qi31bx86gjl2nxjy529rfawac57c9rxv3"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-alexandria
sbcl-anaphora
sbcl-let-plus))
(native-inputs
(list sbcl-fiveam))
(home-page "https://lisp-stat.github.io/select/")
(synopsis "Library for taking slices from array-like objects")
(description
"This is a library for selecting portions of sequences, arrays or
data-frames.")
(license license:ms-pl))))
(define-public cl-select
(sbcl-package->cl-source-package sbcl-select))
(define-public ecl-select
(sbcl-package->ecl-package sbcl-select))
(define-public sbcl-cl-ppcre
(package
(name "sbcl-cl-ppcre")
@ -2426,7 +2528,7 @@ also be supported.")
(define-public sbcl-ironclad
(package
(name "sbcl-ironclad")
(version "0.57")
(version "0.58")
(source
(origin
(method git-fetch)
@ -2434,7 +2536,7 @@ also be supported.")
(url "https://github.com/sharplispers/ironclad/")
(commit (string-append "v" version))))
(sha256
(base32 "123qnf4rmi06vyfmnpdzbjskz8vk35kppjpmms21bxhb7rhxzlh2"))
(base32 "17plga14y1425g7midysj49x12kssqa77l43cr3sm9976zpya8i8"))
(file-name (git-file-name "cl-ironclad" version))))
(build-system asdf-build-system/sbcl)
(native-inputs
@ -3707,7 +3809,7 @@ is a library for creating graphical user interfaces.")
(define-public sbcl-cl-webkit
(package
(name "sbcl-cl-webkit")
(version "3.5.4")
(version "3.5.5")
(source
(origin
(method git-fetch)
@ -3717,7 +3819,7 @@ is a library for creating graphical user interfaces.")
(file-name (git-file-name "cl-webkit" version))
(sha256
(base32
"072c6m63w9q4nr3lsvavi2i71qyfgygdpyqy659l0n81n7mjy2cr"))))
"1wbz8h9f76crwkpxn4wvkd05lz66zd7lhjag5g5n9fwvlrf2bh3d"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("cffi" ,sbcl-cffi)
@ -4057,6 +4159,30 @@ the abstraction and portability layer as thin as possible.")
(define-public ecl-usocket
(sbcl-package->ecl-package sbcl-usocket))
(define-public sbcl-trivial-sockets
(package
(name "sbcl-trivial-sockets")
(version "0.4")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/usocket/trivial-sockets/")
(commit (string-append "v" version))))
(file-name (git-file-name "cl-trivial-sockets" version))
(sha256
(base32 "0xj9x5z3psxqap9c29qz1xswx5fiqxyzd35kmbw2g6z08cgb7nd0"))))
(build-system asdf-build-system/sbcl)
(home-page "https://github.com/usocket/trivial-sockets")
(synopsis "Simple socket library for Common Lisp")
(description
"This library is a portable socket interface that allows CL programs to
open connected (client) stream sockets to network services.")
(license license:expat)))
(define-public cl-trivial-sockets
(sbcl-package->cl-source-package sbcl-trivial-sockets))
(define-public sbcl-s-xml
(package
(name "sbcl-s-xml")
@ -4312,8 +4438,8 @@ RFC 1321 by R. Rivest, published April 1992.")
(list ecl-flexi-streams))))
(define-public sbcl-cl+ssl
(let ((commit "046d698cf65539faf9aba0a5ccd086a9d6f53eef")
(revision "3"))
(let ((commit "8c13317509136e6722a25be51b74b813bbb32f9e")
(revision "4"))
(package
(name "sbcl-cl+ssl")
(version (git-version "0.0.0" revision commit))
@ -4325,7 +4451,7 @@ RFC 1321 by R. Rivest, published April 1992.")
(commit commit)))
(file-name (git-file-name "cl+ssl" version))
(sha256
(base32 "110yhb0f1c8yilqsgza2xhv3675i41iizylibgy5qc5fa2lnaxbv"))))
(base32 "1cdq9dzk804y8bm874q8755yk4iz2z735ksm8waxl52kpfw8ai99"))))
(build-system asdf-build-system/sbcl)
(arguments
'(#:phases
@ -4349,7 +4475,8 @@ RFC 1321 by R. Rivest, published April 1992.")
"")))))))
(native-inputs
(list ;sbcl-cl-coveralls
sbcl-fiveam))
sbcl-fiveam
sbcl-trivial-sockets))
(inputs
(list openssl
sbcl-cffi
@ -4372,7 +4499,17 @@ Development into CL+SSL was done by David Lichteblau.")
(sbcl-package->cl-source-package sbcl-cl+ssl))
(define-public ecl-cl+ssl
(sbcl-package->ecl-package sbcl-cl+ssl))
;; The trivial-sockets system used for the tests doesn't support ECL, so we
;; remove it from native-inputs and disable the tests.
(let ((pkg (sbcl-package->ecl-package sbcl-cl+ssl)))
(package
(inherit pkg)
(native-inputs
(modify-inputs (package-native-inputs pkg)
(delete "sbcl-trivial-sockets")))
(arguments
(substitute-keyword-arguments (package-arguments pkg)
((#:tests? _ #f) #f))))))
(define-public sbcl-kmrcl
(let ((version "1.111")
@ -15622,11 +15759,11 @@ dynamically.")
(sbcl-package->cl-source-package sbcl-sxql-composer))
(define-public sbcl-cl-i18n
(let ((commit "4216fe9fc7b54033c0d881dbb835b7af786365ed")
(let ((commit "5b569f3fe4c76d600fafecac507ac4f50e4cc1d1")
(revision "1"))
(package
(name "sbcl-cl-i18n")
(version (git-version "0.5.1" revision commit))
(version (git-version "0.5.2" revision commit))
(source
(origin
(method git-fetch)
@ -15635,7 +15772,7 @@ dynamically.")
(commit commit)))
(file-name (git-file-name "cl-i18n" version))
(sha256
(base32 "1mdhfkk61djj39vgnns5y1cssd12h0m1cfwd21m8xpa2l3rqvmgf"))))
(base32 "0kj1wfvlbi7qwq61b0rcdxa0bmb4sfsnh1bj3n5jxp24sdib73w2"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-alexandria sbcl-babel sbcl-cl-ppcre-unicode))
@ -21826,6 +21963,40 @@ on top of Hunchentoot.")
(define-public ecl-simple-routes
(sbcl-package->ecl-package sbcl-simple-routes))
(define-public sbcl-eris
(package
(name "sbcl-eris")
(version "0.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://git.ykonai.net/eris-cl")
(commit version)))
(file-name (git-file-name "cl-eris" version))
(sha256
(base32 "0qm74ld70aic39giamvix88500flv86047a82rx9gkjwaisf58rc"))))
(build-system asdf-build-system/sbcl)
(native-inputs (list sbcl-fiveam))
(inputs
(list sbcl-alexandria
sbcl-bordeaux-threads
sbcl-function-cache
sbcl-ironclad
sbcl-mmap
sbcl-osicat
sbcl-serapeum
sbcl-trivial-gray-streams))
(home-page "https://git.ykonai.net/eris-cl/")
(synopsis "ERIS implementation for Common Lisp")
(description
"This is a Common Lisp implementation of the Encoding for Robust Immutable
Storage specification (ERIS).")
(license license:lgpl3+)))
(define-public cl-eris
(sbcl-package->cl-source-package sbcl-eris))
(define-public sbcl-cl-ipfs-api2
(let ((commit "3ee52c80023bcc662f7d01276ea0a5814bd0011b")
(revision "0"))
@ -21863,11 +22034,11 @@ for Common Lisp, using the HTTP API for (almost) everything, except for pubsub
(sbcl-package->ecl-package sbcl-cl-ipfs-api2))
(define-public sbcl-purgatory
(let ((commit "ade0d60a14a1067b9cc8cf06d1f1a1ca8cecdb03")
(let ((commit "3afd8f6bb4093ffb2f39ffdedf11278b3617fff9")
(revision "1"))
(package
(name "sbcl-purgatory")
(version (git-version "0.1.0" revision commit))
(version (git-version "0.1.2" revision commit))
(source
(origin
(method git-fetch)
@ -21876,7 +22047,7 @@ for Common Lisp, using the HTTP API for (almost) everything, except for pubsub
(commit commit)))
(file-name (git-file-name "cl-purgatory" version))
(sha256
(base32 "1mwlalymmfbx1jx5wzqcnpg5h8d0ylllm1p3f4lwaawfv05lk82s"))))
(base32 "0iy2jdgrwqrq9cph7bwf79d8l4zdsgcd9sfcn0lclzai2v0yizp9"))))
(build-system asdf-build-system/sbcl)
(inputs
(list sbcl-alexandria
@ -22284,7 +22455,7 @@ JSON handling. Load the parser backend you prefer!
(synopsis "Kenny's utilities for Common Lisp")
(description
"This library contains generic hacks meant to be used in any project.
It was originally developped for the Cells library.")
It was originally developed for the Cells library.")
(license license:expat))))
(define-public cl-utils-kt
@ -22792,7 +22963,7 @@ to dispatch on the basis of types rather than classes.")
(description
"This library lets you build a metaclass which in turn lets you specify
extra slot options in its classes. Options may be easily inspected and custom
inheritence may be set up. The Meta-Object Protocol (MOP) is used for the
inheritance may be set up. The Meta-Object Protocol (MOP) is used for the
implementation - through @code{closer-mop}. Some convenience function for
processing slot options are also available.

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

@ -45,6 +45,7 @@
#:use-module (guix build-system ocaml)
#:use-module (guix build-system python)
#:use-module (guix build-system r)
#:use-module (guix build-system trivial)
#:use-module (guix git-download)
#:use-module (gnu packages)
#:use-module (gnu packages adns)
@ -103,6 +104,7 @@
#:use-module (gnu packages video)
#:use-module (gnu packages web)
#:use-module (gnu packages xml)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages xorg)
#:use-module (ice-9 match))
@ -583,6 +585,22 @@ optimizing, and searching weighted finite-state transducers (FSTs).")
(arguments '(#:configure-flags '("--enable-ngram-fsts" "CXXFLAGS=-std=c++14")
#:make-flags '("CXXFLAGS=-std=c++14")))))
(define openfst-for-vosk
(package
(inherit openfst)
(version "1.8.0")
(source
(origin
(method url-fetch)
(uri (string-append "http://www.openfst.org/twiki/pub/FST/"
"FstDownload/openfst-" version ".tar.gz"))
(sha256
(base32 "0h2lfhhihg63b804hrcljnkggijbjmp84i5g8q735wb09y9z2c4p"))))
(arguments
'(#:configure-flags
'("--enable-shared" "--enable-far" "--enable-ngram-fsts"
"--enable-lookahead-fsts" "--with-pic" "--disable-bin")))))
(define-public shogun
(package
(name "shogun")
@ -1580,6 +1598,104 @@ discrete, and conditional dimensions.")
written in C++.")
(license license:asl2.0))))
(define kaldi-for-vosk
(let* ((commit "6417ac1dece94783e80dfbac0148604685d27579")
(revision "0")
(openfst openfst-for-vosk))
(package
(inherit kaldi)
(name "kaldi")
(version (git-version "0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/alphacep/kaldi")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "04xw2dpfvpla8skpk08azmgr9k97cd8hn83lj4l85q165gbzql4s"))))
(inputs
(list alsa-lib
lapack ;; compared to base kaldi, replacing `(,gfortran "lib")
glib
gstreamer
jack-1
openblas
openfst
portaudio
python))
(arguments
(list
#:test-target "test"
#:make-flags ''("online2" "lm" "rnnlm")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'chdir
(lambda _ (chdir "src")))
(replace 'configure
(lambda _
(let* ((portaudio #$(this-package-input "portaudio"))
(lapack #$(this-package-input "lapack"))
(openfst #$(this-package-input "openfst"))
(openblas #$(this-package-input "openblas")))
#$@(if (target-x86?)
'()
#~((substitute* "makefiles/linux_openblas.mk"
(("-msse -msse2") ""))))
(substitute* "makefiles/default_rules.mk"
(("/bin/bash") (which "bash")))
(substitute* "Makefile"
(("ext_depend: check_portaudio")
"ext_depend:"))
(substitute* '("online/Makefile"
"onlinebin/Makefile"
"gst-plugin/Makefile")
(("../../tools/portaudio/install")
portaudio))
(substitute* "matrix/Makefile" ;temporary test bypass
(("matrix-lib-test sparse-matrix-test") ""))
;; This `configure' script doesn't support variables passed as
;; arguments, nor does it support "prefix".
(substitute* "configure"
(("check_for_slow_expf;") "")
;; This affects the RPATH and also serves as the installation
;; directory.
(("KALDILIBDIR=`pwd`/lib")
(string-append "KALDILIBDIR=" #$output "/lib"))
(("OPENBLASROOT=\\\"\\$\\(rel2abs ..\\/tools\\/OpenBLAS\\/install\\)\\\"")
(string-append "OPENBLASROOT=\"" openblas "\""))
(("-L\\$OPENBLASLIBDIR -l:libopenblas.a -l:libblas.a -l:liblapack.a -l:libf2c.a")
(string-append "-L$OPENBLASLIBDIR -lopenblas "
"-L" lapack "/lib -lblas -llapack")))
(mkdir-p #$output) ; must exist
(setenv "CONFIG_SHELL" (which "bash"))
(setenv "OPENFST_VER" #$(package-version openfst))
(invoke "./configure"
"--use-cuda=no"
"--mathlib=OPENBLAS_CLAPACK"
"--shared"
(string-append "--fst-root=" openfst)))))
(add-after 'configure 'optimize-build
(lambda _ (substitute* "kaldi.mk" ((" -O1") " -O3"))))
(replace 'install
(lambda _
(let* ((inc (string-append #$output "/include"))
(lib (string-append #$output "/lib")))
;; The build phase installed symlinks to the actual
;; libraries. Install the actual targets.
(for-each (lambda (file)
(let ((target (readlink file)))
(delete-file file)
(install-file target lib)))
(find-files lib "\\.so"))
;; Install headers
(for-each (lambda (file)
(let ((target-dir (string-append inc "/" (dirname file))))
(install-file file target-dir)))
(find-files "." "\\.h")))))))))))
(define-public gst-kaldi-nnet2-online
(let ((commit "cb227ef43b66a9835c14eb0ad39e08ee03c210ad")
(revision "2"))
@ -3371,3 +3487,187 @@ and Numpy.")
"This package provides a Python library for probabilistic modeling and
inference.")
(license license:asl2.0)))
(define-public vosk-api
(let* ((openfst openfst-for-vosk)
(kaldi kaldi-for-vosk))
(package
(name "vosk-api")
(version "0.3.43")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/alphacep/vosk-api")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0xmp8i140c2hd3rj9dap8a2rnsvzb1k9hnqm12xzbaxrw73rkc29"))))
(build-system gnu-build-system)
(arguments
(list
#:tests? #f
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'chdir
(lambda _ (chdir "src")))
(replace 'configure
(lambda _
(let* ((lapack #$(this-package-input "lapack"))
(openfst #$(this-package-input "openfst"))
(openblas #$(this-package-input "openblas"))
(kaldi #$(this-package-input "kaldi")))
(substitute* "./Makefile"
(("USE_SHARED\\?=0")
"USE_SHARED?=1")
(("-DFST_NO_DYNAMIC_LINKING")
"")
(("-lopenblas -llapack -lblas -lf2c")
(string-append
"-L" openblas "/lib " "-lopenblas "
"-L" lapack "/lib " "-llapack -lblas "))
(("-lfst -lfstngram")
(string-append
"-L" openfst "/lib " "-lfst -lfstngram "))
(("\\$\\(HOME\\)\\/travis\\/kaldi")
(string-append kaldi "/include"))
(("\\$\\(KALDI_ROOT\\)\\/tools\\/openfst")
openfst)
(("\\$\\(KALDI_ROOT\\)\\/tools\\/OpenBLAS\\/install")
openblas)
(("\\$\\(KALDI_ROOT\\)\\/libs")
(string-append kaldi "/lib"))))))
(replace 'install
(lambda _
(let* ((lib (string-append #$output "/lib"))
(src (string-append #$output "/src")))
(mkdir-p lib)
(mkdir-p src)
(install-file "libvosk.so" lib)
(for-each
(lambda (x) (install-file x src))
(find-files "." "\\.h$"))))))))
(inputs (list kaldi openfst lapack openblas))
(home-page "https://alphacephei.com/vosk")
(synopsis "Speech recognition toolkit based on @code{kaldi}")
(description "\
This package provides a speech recognition toolkit based on @code{kaldi}. It
supports more than 20 languages and dialects - English, Indian English,
German, French, Spanish, Portuguese, Chinese, Russian, Turkish, Vietnamese,
Italian, Dutch, Catalan, Arabic, Greek, Farsi, Filipino, Ukrainian, Kazakh,
Swedish, Japanese, Esperanto, Hindi, Czech, Polish. The program works offline,
even on lightweight devices. Portable per-language models are about 50Mb each,
and there are much bigger and precise models available.
Vosk API provides a streaming API allowing to use it `on-the-fly' and bindings
for different programming languages. It allows quick reconfiguration of
vocabulary for better accuracy, and supports speaker identification beside
simple speech recognition.")
(license license:asl2.0))))
(define-public python-vosk
(package
(inherit vosk-api)
(name "python-vosk")
(build-system python-build-system)
(propagated-inputs
(list python-cffi python-requests python-tqdm python-srt python-websockets))
(inputs (list vosk-api))
(arguments
(list
#:tests? #f ;; TODO There are tests but not run through Makefile.
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'config
(lambda _
(chdir "python")
(setenv "VOSK_SOURCE" #$vosk-api)))
(add-before 'build 'from-abi-to-api
(lambda _
(substitute* "vosk_builder.py"
(("ffibuilder\\.set_source\\(\"vosk.vosk_cffi\", None\\)")
(string-append
"ffibuilder.set_source(\"vosk.vosk_cffi\", "
"r\"\"\"\n#include<vosk_api.h>\n#include<Python.h>\"\"\",\n\t"
"library_dirs=["
"'" #$vosk-api "/lib'"
"],\n\t"
"libraries=['vosk', 'python3.9'],\n\t"
"include_dirs=["
"'" #$vosk-api "/src'" "])")))
(substitute* "vosk/__init__.py"
(("_c = open_dll\\(\\)")
"")
(("_ffi")
"ffi")
(("from \\.vosk_cffi import ffi as ffi")
"from .vosk_cffi import ffi, lib")
(("_c\\.")
"lib.")))))))))
(define-public nerd-dictation
(let* ((commit "53ab129a5ee0f8b5df284e8cf2229219b732c59e")
(revision "0"))
(package
(name "nerd-dictation")
(version (git-version "0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ideasman42/nerd-dictation")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "184qijiva1h1x00dzicik0yzgh78pq2lqr5fkgicgp26mkarlyhc"))))
(build-system python-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'chdir
(lambda _ (chdir "package/python"))))))
(propagated-inputs (list python-vosk))
(inputs (list pulseaudio xdotool))
(home-page "https://github.com/ideasman42/nerd-dictation")
(synopsis "Offline speech-to-text for desktop Linux")
(description "\
This package provides simple access speech to text for using in
Linux without being tied to a desktop environment, using the @code{vosk-api}.
The user configuration lets you manipulate text using Python string
operations. It has zero overhead, as this relies on manual activation and
there are no background processes. Dictation is accessed manually with
@code{nerd-dictation begin} and @code{nerd-dictation end} commands.")
(license license:gpl3+))))
(define-public nerd-dictation/wayland
(package
(inherit nerd-dictation)
(name "nerd-dictation-wayland")
(inputs (list bash-minimal nerd-dictation))
(propagated-inputs (list ydotool sox))
(build-system trivial-build-system)
(arguments
(list
#:modules '((guix build utils))
#:builder
#~(begin
(use-modules (guix build utils))
(let* ((exe (string-append #$output "/bin/nerd-dictation"))
(original-exe #$(file-append nerd-dictation
"/bin/nerd-dictation"))
(bash #$(this-package-input "bash-minimal"))
(bash-exe (string-append bash "/bin/bash")))
(mkdir-p (dirname exe))
(call-with-output-file exe
(lambda (port)
(format port "#!~a
if [ \"$1\" = begin ]
then
exec ~a $@ --input=SOX --simulate-input-tool=YDOTOOL
else
exec ~a $@
fi"
bash-exe
original-exe
original-exe)))
(chmod exe #o555)))))))

33
gnu/packages/mail.scm
View File

@ -1323,14 +1323,14 @@ invoking @command{notifymuch} from the post-new hook.")
(define-public notmuch
(package
(name "notmuch")
(version "0.36")
(version "0.37")
(source
(origin
(method url-fetch)
(uri (string-append "https://notmuchmail.org/releases/notmuch-"
version ".tar.xz"))
(sha256
(base32 "0h6f6mh9m9vrijm638x5sbsl321b74a25cdasbxhx67x62w320hk"))))
(base32 "1xl64xh0ijfkx265lcj9cqv1wkzha8gsn9jn4fw4xgvqigr6sxhf"))))
(build-system gnu-build-system)
(arguments
(list
@ -1692,7 +1692,7 @@ compresses it.")
(define-public claws-mail
(package
(name "claws-mail")
(version "4.1.0")
(version "4.1.1")
(source
(origin
(method url-fetch)
@ -1700,7 +1700,7 @@ compresses it.")
(string-append "https://www.claws-mail.org/releases/claws-mail-"
version ".tar.xz"))
(sha256
(base32 "13ksh4iwr23zi86fwmiwxha94xqrr5zxq373i82rwaldvfh9q6hf"))))
(base32 "0i037bskrnmsmylhmqayjg0pmsr0m2zx8xhbxc6mwvw9q40fg2di"))))
(build-system glib-or-gtk-build-system)
(arguments
`(#:configure-flags
@ -2556,7 +2556,7 @@ for a variety of mailbox formats such as mbox, mh and maildir. Incoming mail
can be sorted into separate files/directories and arbitrary commands can be
executed on mail arrival. Procmail is considered stable, but is no longer
maintained.")
(license license:gpl2+))) ;; procmail allows to choose the
(license license:gpl2+))) ;; procmail allows choosing the
;; nonfree Artistic License 1.0
;; as alternative to the GPL2+.
;; This option is not listed here.
@ -2891,14 +2891,14 @@ easily (one at a time).")
(define-public mpop
(package
(name "mpop")
(version "1.4.16")
(version "1.4.17")
(source
(origin
(method url-fetch)
(uri (string-append "https://marlam.de/mpop/releases/"
"mpop-" version ".tar.xz"))
(sha256
(base32 "1yc7lsdy9gvlslvljqg34kvcaf4wvrwlvj6h5awkzlp6x9qva3l7"))))
(base32 "1mcbvzdbdr86zsq8zr1zryjrmfiqikckx3648zvdjh99mm5lkbj2"))))
(build-system gnu-build-system)
(inputs
(list gnutls))
@ -3935,7 +3935,7 @@ PGP handling, multiple servers, and secure connections.")
(define-public imapfilter
(package
(name "imapfilter")
(version "2.7.5")
(version "2.7.6")
(source
(origin
(method git-fetch)
@ -3944,16 +3944,17 @@ PGP handling, multiple servers, and secure connections.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0a7f85r3axwclzw1s79zl2l8222nj2gklvvq33w9qv0dz5n71dcx"))))
(base32 "0di9gwavgyr1xkd8sfh52ldkn2lq1kdad76ww2x4y0lhimnxw7gc"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f
#:make-flags
(list (string-append "PREFIX=" (assoc-ref %outputs "out"))
(string-append "CC=" ,(cc-for-target)))
#:phases
(modify-phases %standard-phases
(delete 'configure)))) ; no configure script
(list
#:tests? #f
#:make-flags
#~(list (string-append "PREFIX=" #$output)
(string-append "CC=" #$(cc-for-target)))
#:phases
#~(modify-phases %standard-phases
(delete 'configure)))) ; no configure script
(inputs
(list lua pcre2 openssl))
(home-page "https://github.com/lefcha/imapfilter")

30
gnu/packages/man.scm
View File

@ -269,7 +269,7 @@ PostScript, and PDF. Additional tools include the @command{man} viewer, and
(define-public man-pages
(package
(name "man-pages")
(version "5.13")
(version "6.00")
(source
(origin
(method url-fetch)
@ -279,18 +279,30 @@ PostScript, and PDF. Additional tools include the @command{man} viewer, and
(string-append "mirror://kernel.org/linux/docs/man-pages/Archive/"
"man-pages-" version ".tar.xz")))
(sha256
(base32 "12vb15gs56g8wl5nqlm4llr508brh4m2lfknhq4lizbxzqzawkb1"))))
(base32 "1252c1356z5spya3yl0lcmmymglx3bmfwmamiz1y5l13xqpwbnwy"))))
(build-system gnu-build-system)
(arguments
`(#:phases (modify-phases %standard-phases (delete 'configure))
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'skip-html
;; As of 6.00, this package tries to convert man pages to HTML with
;; man2html. The only Guix package currently providing that script
;; is man-for-txr, but that version seems unable to handle relative
;; ‘.so’ statements properly. Disable HTML generation.
(lambda _
(substitute* "lib/build-html.mk"
(("(html:) .*" _ target) (string-append target "\n")))))
(delete 'configure))
;; The 'all' target depends on three targets that directly populate
;; $(MANDIR) based on its current contents. Doing that in parallel
;; leads to undefined behavior (see <http://bugs.gnu.org/18701>.)
#:parallel-build? #f
;; The 'all' target depends on three targets that directly populate
;; $(MANDIR) based on its current contents. Doing that in parallel
;; leads to undefined behavior (see <http://bugs.gnu.org/18701>.)
#:parallel-build? #f
#:tests? #f
#:make-flags ,#~(list (string-append "mandir=" #$output "/share/man"))))
#:tests? #f
#:make-flags
#~(list (string-append "mandir=" #$output "/share/man"))))
(home-page "https://www.kernel.org/doc/man-pages/")
(synopsis "Development manual pages from the Linux project")
(description

28
gnu/packages/markup.scm
View File

@ -46,6 +46,7 @@
#:use-module (gnu packages compression)
#:use-module (gnu packages libffi)
#:use-module (gnu packages perl)
#:use-module (gnu packages perl-check)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
@ -360,6 +361,33 @@ for parsing and rendering CommonMark.")
;; licensed. See 'COPYING' in the source distribution for more information.
(license (list license:bsd-2 license:expat license:cc-by-sa4.0))))
(define-public perl-commonmark
(package
(name "perl-commonmark")
(version "0.290000")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/N/NW/NWELLNHOF/CommonMark-"
version ".tar.gz"))
(sha256
(base32
"1pgaqa4f00i9r5z7l9xiya0q51ysq0nhpvgr0f3rza3cxz1v80d5"))))
(build-system perl-build-system)
(arguments
`(#:make-maker-flags
;; MakeMaker ignores LIBRARY_PATH.
(list (format #f "LIBS=-L~a/lib -lcmark"
(assoc-ref %build-inputs "cmark")))))
(inputs (list cmark perl-test-leaktrace perl-devel-checklib
perl-module-build))
(home-page "https://metacpan.org/release/CommonMark")
(synopsis "Interface to the CommonMark C library")
(description
"This module is an XS wrapper around the official
CommonMark C library libcmark. It closely follows the original API.")
(license license:perl-license)))
(define-public cmark-gfm
(package
(inherit cmark)

2
gnu/packages/maths.scm
View File

@ -4442,7 +4442,7 @@ to BMP, JPEG or PNG image formats.")
(wrap-program (string-append out "/bin/maxima")
`("PATH" prefix (,binutils))))
#t))
;; The Maxima command ‘describe’ allows to pick the relevant portions
;; The Maxima command ‘describe’ allows picking the relevant portions
;; from Maxima’s Texinfo docs. However it does not support reading
;; gzipped info files.
(delete 'compress-documentation))))

4
gnu/packages/mes.scm
View File

@ -167,14 +167,14 @@ parsers to allow execution with Guile as extension languages.")))
(define-public mes
(package
(name "mes")
(version "0.24")
(version "0.24.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/mes/"
"mes-" version ".tar.gz"))
(sha256
(base32
"00lrpm4x5qg0l840zhbf9mr67mqhp8gljcl24j5dy0y109gf32w2"))))
"0d855agwawjjzwbjmvb5xlbwg77zdpwbjm9kjxc2wqvn0vmhq4im"))))
(supported-systems '("armhf-linux" "i686-linux" "x86_64-linux"))
(propagated-inputs (list mescc-tools nyacc-1.00.2))
(native-inputs

3
gnu/packages/messaging.scm
View File

@ -2403,7 +2403,6 @@ for the Matrix protocol. It is built on to of @code{Boost.Asio}.")
#:tests? #f ;no test target
#:configure-flags
#~(list "-DCMAKE_BUILD_TYPE=Release"
"-DBUILD_DOCS=ON"
;; Fix required because we are using a static SingleApplication
"-DCMAKE_CXX_FLAGS= \"-DQAPPLICATION_CLASS=QApplication\" "
;; Compile Qml will make Nheko faster, but you will need to recompile
@ -2469,7 +2468,7 @@ for the Matrix protocol. It is built on to of @code{Boost.Asio}.")
xcb-util-wm
zlib))
(native-inputs
(list asciidoc doxygen graphviz pkg-config qttools-5))
(list asciidoc pkg-config qttools-5))
(home-page "https://github.com/Nheko-Reborn/nheko")
(synopsis "Desktop client for Matrix using Qt and C++14")
(description "@code{Nheko} want to provide a native desktop app for the

5
gnu/packages/mpd.scm
View File

@ -110,7 +110,7 @@ interfacing MPD in the C, C++ & Objective C languages.")
(define-public mpd
(package
(name "mpd")
(version "0.23.8")
(version "0.23.10")
(source (origin
(method url-fetch)
(uri
@ -119,7 +119,7 @@ interfacing MPD in the C, C++ & Objective C languages.")
"/mpd-" version ".tar.xz"))
(sha256
(base32
"1kvq9shd6b7y02r386s1chjmvs44wij5bfzn6qgq46dmyfdmdfw6"))))
"1a764k504nh9vqmsd92qh8sg03fwns19d7mypm618j6c8bmqqp30"))))
(build-system meson-build-system)
(arguments
(list
@ -158,6 +158,7 @@ interfacing MPD in the C, C++ & Objective C languages.")
libsndfile
libvorbis
opus
pipewire-0.3
pulseaudio
sqlite
zlib))

4
gnu/packages/mtools.scm
View File

@ -29,14 +29,14 @@
(define-public mtools
(package
(name "mtools")
(version "4.0.40")
(version "4.0.42")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/mtools/mtools-"
version ".tar.bz2"))
(sha256
(base32
"1x2xknvyrbqjb6bv0h3p5s0bvss6ici1zxd7jcids4a06m1clbx2"))
"05fg5i8da5jdym3cq2939j7n3fqw4cz2riy1yci6pbw29pgdzgv4"))
(patches
(search-patches "mtools-mformat-uninitialized.patch"))))
(build-system gnu-build-system)

68
gnu/packages/music.scm
View File

@ -195,14 +195,14 @@
(define-public audacious
(package
(name "audacious")
(version "4.1")
(version "4.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://distfiles.audacious-media-player.org/"
"audacious-" version ".tar.bz2"))
(sha256
(base32 "0p734psjjvjcmla2hg5h6a9v1prvy63jj9xm2g2ngs49jy7qan0z"))))
(base32 "1cq4brifp992dhg0sbf180jjdv137g5wk8ac7hmzx0d4f3j09czy"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -214,8 +214,7 @@
(add-after 'install 'unpack-plugins
(lambda* (#:key inputs #:allow-other-keys)
(let ((plugins (assoc-ref inputs "audacious-plugins")))
(invoke "tar" "xvf" plugins)
#t)))
(invoke "tar" "xvf" plugins))))
(add-after 'unpack-plugins 'configure-plugins
(lambda* (#:key configure-flags outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
@ -247,7 +246,7 @@
(uri (string-append "https://distfiles.audacious-media-player.org/"
"audacious-plugins-" version ".tar.bz2"))
(sha256
(base32 "0k0xnqmxi5lna034i2cnzvfzrykxmv4fbs1nkrc9sd2ma1igrmns"))))
(base32 "0zs1k91z272ql49qr7kxlxb0lajamc9ra41pgj3ynh8h7afgd83g"))))
("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin") ; for gdbus-codegen
("pkg-config" ,pkg-config)))
@ -2284,7 +2283,7 @@ perform creative live mixes with digital music files.")
(define-public synthv1
(package
(name "synthv1")
(version "0.9.26")
(version "0.9.27")
(source (origin
(method url-fetch)
(uri
@ -2292,7 +2291,7 @@ perform creative live mixes with digital music files.")
"/synthv1-" version ".tar.gz"))
(sha256
(base32
"1asikh341f3vblrl8l07yakza80ybs8sid3n2qpsrvigaz3iymcd"))))
"13qcig5j69qzcxqs9w5x9shrbb6vyj00g2fz1jw1kxramppyvcvg"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f)) ; there are no tests
@ -2316,7 +2315,7 @@ oscillators and stereo effects.")
(define-public drumkv1
(package
(name "drumkv1")
(version "0.9.26")
(version "0.9.27")
(source (origin
(method url-fetch)
(uri
@ -2324,7 +2323,7 @@ oscillators and stereo effects.")
"/drumkv1-" version ".tar.gz"))
(sha256
(base32
"0j05xqgcb7kwnnsgl6i7vbdsfq26chzs4zyq6pl0ipcmw4d82j8i"))))
"0j96z5bqh1mnldsda6dyp0jqp01mf7p55yr956rzkzg6jivj8fs3"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f)) ; there are no tests
@ -2349,7 +2348,7 @@ effects.")
(define-public samplv1
(package
(name "samplv1")
(version "0.9.26")
(version "0.9.27")
(source (origin
(method url-fetch)
(uri
@ -2357,7 +2356,7 @@ effects.")
"/samplv1-" version ".tar.gz"))
(sha256
(base32
"1rqz3hf39hk2m15ihrkn8f5cqgbkvz3rq6r2k35rvn7sgvcq1dli"))))
"0wxdcw5qs58kjfnnl4lnmafj8qim8qmdfdzrgnxggyhjg5mrpyby"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f)) ; there are no tests
@ -2382,7 +2381,7 @@ effects.")
(define-public padthv1
(package
(name "padthv1")
(version "0.9.26")
(version "0.9.27")
(source (origin
(method url-fetch)
(uri
@ -2390,7 +2389,7 @@ effects.")
"/padthv1-" version ".tar.gz"))
(sha256
(base32
"02pg0g4i65j46hirkc3xn7m2clm8krrafrkwjc1v8rkcdj6q2gw1"))))
"0ydm09g0ibvp1nf4fzzj6bkwlxx46pjxqgg8h76hwi6l8k0rz5m4"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f)) ; there are no tests
@ -2694,7 +2693,7 @@ export.")
(define-public pd
(package
(name "pd")
(version "0.51-4")
(version "0.52-2")
(source (origin
(method url-fetch)
(uri
@ -2702,31 +2701,28 @@ export.")
version ".src.tar.gz"))
(sha256
(base32
"1hgw1ciwr59f4f9s0h7c2l36wcsn3jsddhr1r9qj97vf64c1ynaj"))))
"04fcsfgnv2r7g7p8vk9s9n3wba1bx4xgqw5mhwv09xbw9s3gapg9"))))
(build-system gnu-build-system)
(arguments
(let ((wish (string-append "wish" (version-major+minor
(package-version tk)))))
`(#:tests? #f ; no "check" target
#:configure-flags
(list
"--enable-jack"
(string-append "--with-wish=" (string-append
(assoc-ref %build-inputs "tk")
"/bin/" ,wish)))
#:phases
(modify-phases %standard-phases
(add-before 'configure 'fix-with-path
(lambda _
(substitute* "tcl/pd-gui.tcl"
(("exec wish ") (string-append "exec " (which ,wish) " ")))
#t))))))
(list
#:tests? #f ; no "check" target
#:configure-flags
#~(list
"--enable-jack"
(string-append "--with-wish="
(search-input-file %build-inputs
(string-append "/bin/" #$wish))))
#:phases
#~(modify-phases %standard-phases
(add-before 'configure 'fix-wish-path
(lambda _
(substitute* "tcl/pd-gui.tcl"
(("exec wish ")
(string-append "exec " (which #$wish) " ")))))))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("libtool" ,libtool)
("gettext" ,gettext-minimal)
("pkg-config" ,pkg-config)))
(list autoconf automake libtool gettext-minimal pkg-config))
(inputs
(list tk alsa-lib jack-1))
(home-page "https://puredata.info")
@ -3289,14 +3285,14 @@ from the command line.")
(define-public qtractor
(package
(name "qtractor")
(version "0.9.27")
(version "0.9.29")
(source (origin
(method url-fetch)
(uri (string-append "https://downloads.sourceforge.net/qtractor/"
"qtractor-" version ".tar.gz"))
(sha256
(base32
"11131hb6n13n51rr319jhaa9jjxl9q8n9vkxq3si7gcxlli6pdbs"))))
"05g0zj5iy8knqccwglgql1flabgvpy4yqms4z1zqrkl9ws9bwc1x"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f)) ; no "check" target

4
gnu/packages/ncdu.scm
View File

@ -59,14 +59,14 @@ ncurses installed.")
(package
(inherit ncdu)
(name "ncdu2") ; To destinguish it from the C based version.
(version "2.1.2")
(version "2.2")
(source (origin
(method url-fetch)
(uri (string-append "https://dev.yorhel.nl/download/ncdu-"
version ".tar.gz"))
(sha256
(base32
"1p66691xgpljx1y92b4bfpn5rr7gnwbr5x3bf8bc78qq6vq6w3cy"))))
"1ph408p3by8hm33aqampcmk7anqpanajd6456cxl90gi38prya3r"))))
(arguments
(list
#:make-flags

12
gnu/packages/networking.scm
View File

@ -872,14 +872,14 @@ systems with no further dependencies.")
(define-public blueman
(package
(name "blueman")
(version "2.3.2")
(version "2.3.4")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/blueman-project/blueman/releases"
"/download/" version "/blueman-" version ".tar.xz"))
(sha256
(base32 "1bjh0cx9j2akygiqyxm7g0q74jyx9hpgf186gv3m31vks5zpvkw4"))))
(base32 "0lh1aqpdq6vi4agrgmm7fifjbxz2s5qcs3hr7nfjrwrp2j1361n2"))))
(build-system glib-or-gtk-build-system)
(arguments
`(#:configure-flags (list "--enable-polkit"
@ -2666,7 +2666,7 @@ that block port 22.")
(define-public iperf
(package
(name "iperf")
(version "3.11")
(version "3.12")
(source
(origin
(method git-fetch)
@ -2675,7 +2675,7 @@ that block port 22.")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "064sb8f9jxi5ii43swd73c0mm50lvk51v7awhgbj6p129c1a4nn5"))))
(base32 "0bkmlah8lsm9vciaa9k84x3g1fd0k6nwnsrzp8y04piyiplrvpsi"))))
(build-system gnu-build-system)
(arguments
`(#:configure-flags
@ -4214,14 +4214,14 @@ realistic with today's hardware.")
(define-public lldpd
(package
(name "lldpd")
(version "1.0.14")
(version "1.0.15")
(source
(origin
(method url-fetch)
(uri (string-append "https://media.luffy.cx/files/lldpd/lldpd-"
version ".tar.gz"))
(sha256
(base32 "1s0j5p0mjh1pda1aq5wm4hd41fh1m864jgbs82y5sshi9whijj57"))
(base32 "09iidaan6gq384n7ykdwwsll3vmq6q7zd7j7j721k2p91c9kmzpp"))
(modules '((guix build utils)))
(snippet
'(begin

24
gnu/packages/ocaml.scm
View File

@ -7283,7 +7283,7 @@ thousands of times faster than fork.
(define-public ocaml-core
(package
(name "ocaml-core")
(version "0.15.0")
(version "0.15.1")
(source
(origin
(method git-fetch)
@ -7292,7 +7292,7 @@ thousands of times faster than fork.
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1m2ybvlz9zlb2d0jc0j7wdgd18mx9sh3ds2ylkv0cfjx1pzi0l25"))))
(base32 "17vc2i5qb53dr0civ8pkrnnsn2nkydlq44ash7fhh93yb4sffy28"))))
(build-system dune-build-system)
(arguments
`(#:package "core"
@ -8002,7 +8002,7 @@ support for Mparser.")))
(define-public lablgtk3
(package
(name "lablgtk")
(version "3.1.2")
(version "3.1.3")
(source (origin
(method git-fetch)
(uri (git-reference
@ -8011,25 +8011,13 @@ support for Mparser.")))
(file-name (git-file-name name version))
(sha256
(base32
"0b17w9qb1f02h3313cm62mrqlhwxficppzm72n7sf8mmwrylxbm7"))))
"0rhdr89w7yj8pkga5xc7iqmqvrs28034wb7sm7vx7faaxczwjifn"))))
(build-system dune-build-system)
(arguments
`(#:package "lablgtk3"
#:test-target "."
#:phases
(modify-phases %standard-phases
(add-before 'build 'make-writable
(lambda _
(for-each (lambda (file)
(chmod file #o644))
(find-files "." "."))))
(add-before 'build 'set-version
(lambda _
(substitute* "dune-project"
(("\\(name lablgtk3\\)")
(string-append "(name lablgtk3)\n(version " ,version ")"))))))))
#:test-target "."))
(propagated-inputs
(list ocaml-cairo2))
(list ocaml-cairo2 ocaml-camlp-streams))
(inputs
(list camlp5 gtk+))
(native-inputs

43
gnu/packages/package-management.scm
View File

@ -165,8 +165,8 @@
;; Note: the 'update-guix-package.scm' script expects this definition to
;; start precisely like this.
(let ((version "1.3.0")
(commit "31708431c53524f05e6a0c9fed920cb773e7dd21")
(revision 31))
(commit "682639c107908426fe6bf0a1b8404b98b7820290")
(revision 32))
(package
(name "guix")
@ -182,7 +182,7 @@
(commit commit)))
(sha256
(base32
"1j8qq6zgr20d1gi4n5dmvd9afd3d0k2h86ypajfyaa6bxpfj5i1r"))
"1ap8hfq46ncp7azhdvc9s64a9q9y74xfqpgfwlcgz6sw82a09yh0"))
(file-name (string-append "guix-" version "-checkout"))))
(build-system gnu-build-system)
(arguments
@ -350,7 +350,7 @@ $(prefix)/etc/openrc\n")))
(bs (assoc-ref inputs
"guile-bytestructures"))
(ssh (assoc-ref inputs "guile-ssh"))
(gnutls (assoc-ref inputs "gnutls"))
(gnutls (assoc-ref inputs "guile-gnutls"))
(disarchive (assoc-ref inputs "disarchive"))
(lzma (assoc-ref inputs "guile-lzma"))
(locales (assoc-ref inputs "glibc-utf8-locales"))
@ -406,7 +406,7 @@ $(prefix)/etc/openrc\n")))
;; Guile libraries are needed here for
;; cross-compilation.
("guile" ,guile-3.0-latest) ;for faster builds
("gnutls" ,gnutls)
("guile-gnutls" ,guile-gnutls)
,@(if (%current-target-system)
'()
`(("guile-avahi" ,guile-avahi)))
@ -435,6 +435,7 @@ $(prefix)/etc/openrc\n")))
("gzip" ,gzip)
("sqlite" ,sqlite)
("libgcrypt" ,libgcrypt)
("zlib" ,zlib)
("guile" ,guile-3.0-latest)
@ -463,7 +464,7 @@ $(prefix)/etc/openrc\n")))
("glibc-utf8-locales" ,glibc-utf8-locales)))
(propagated-inputs
`(("gnutls" ,gnutls)
`(("guile-gnutls" ,guile-gnutls)
;; Avahi requires "glib" which doesn't cross-compile yet.
,@(if (%current-target-system)
'()
@ -550,7 +551,7 @@ the Nix package manager.")
(inputs
(modify-inputs (package-inputs guix)
(delete "boot-guile" "boot-guile/i686" "util-linux")
(prepend gnutls guile-git guile-json-3 guile-gcrypt)))
(prepend guile-gnutls guile-git guile-json-3 guile-gcrypt)))
(propagated-inputs '())
@ -1366,8 +1367,8 @@ environments.")
"0k9zkdyyzir3fvlbcfcqy17k28b51i20rpbjwlx2i1mwd2pw9cxc")))))))
(define-public guix-build-coordinator
(let ((commit "b15be71ded7a178857ccabea37f000248385f514")
(revision "63"))
(let ((commit "6cd8bd854332301edef6eee68080881b8349d768")
(revision "67"))
(package
(name "guix-build-coordinator")
(version (git-version "0" revision commit))
@ -1378,7 +1379,7 @@ environments.")
(commit commit)))
(sha256
(base32
"08d794mq9p4n26b6d0qn9790qavxl4s9l8yp6rwbfc8l10j2gksb"))
"125dq7xr5crwq5l33dnxcyba90axkki0kw4m290qvz6xv21ydmj0"))
(file-name (string-append name "-" version "-checkout"))))
(build-system gnu-build-system)
(arguments
@ -1414,7 +1415,7 @@ environments.")
"guile-lzlib"
"guile-zlib"
"guile-sqlite3"
"gnutls"
"guile-gnutls"
,@(if (hurd-target?)
'()
'("guile-fibers")))))
@ -1458,7 +1459,7 @@ environments.")
(list pkg-config
autoconf
automake
gnutls
guile-gnutls
;; Guile libraries are needed here for cross-compilation.
guile-json-4
@ -1486,7 +1487,7 @@ environments.")
guile-zlib
guile-sqlite3
guix
gnutls)
guile-gnutls)
(if (hurd-target?)
'()
(list guile-fibers-1.1))))
@ -1535,7 +1536,7 @@ outputs of those builds.")
"guile-lzlib"
"guile-zlib"
"guile-sqlite3"
"gnutls")))
"guile-gnutls")))
(wrap-program file
`("PATH" ":" prefix (,bin))
`("GUILE_LOAD_PATH" ":" prefix
@ -1563,7 +1564,7 @@ outputs of those builds.")
(list pkg-config
autoconf
automake
gnutls
guile-gnutls
;; Guile libraries are needed here for cross-compilation.
guile-json-4
@ -1584,7 +1585,7 @@ outputs of those builds.")
guile-lzlib
guile-zlib
guix
gnutls)))
guile-gnutls)))
(description
"The Guix Build Coordinator helps with performing lots of builds across
potentially many machines, and with doing something with the results and
@ -1721,7 +1722,7 @@ in an isolated environment, in separate namespaces.")
"guile-lzlib"
"guile-prometheus"
"guile-sqlite3"
"gnutls"
"guile-gnutls"
"guile-fibers")))
(wrap-program file
`("GUILE_LOAD_PATH" ":" prefix
@ -1748,7 +1749,7 @@ in an isolated environment, in separate namespaces.")
(list pkg-config
autoconf
automake
gnutls
guile-gnutls
;; Guile libraries are needed here for cross-compilation.
(car (assoc-ref (package-native-inputs guix) "guile"))
@ -1772,7 +1773,7 @@ in an isolated environment, in separate namespaces.")
guile-lib
guile-lzlib
guile-sqlite3
gnutls))
guile-gnutls))
(home-page "https://git.cbaines.net/guix/nar-herder")
(synopsis "Utility for managing and serving nars")
(description
@ -1848,7 +1849,7 @@ for packaging and deployment of cross-compiled Windows applications.")
(define-public libostree
(package
(name "libostree")
(version "2022.5")
(version "2022.6")
(source
(origin
(method url-fetch)
@ -1856,7 +1857,7 @@ for packaging and deployment of cross-compiled Windows applications.")
"https://github.com/ostreedev/ostree/releases/download/v"
(version-major+minor version) "/libostree-" version ".tar.xz"))
(sha256
(base32 "0gq53g601x09gc4ips6n3zmmdaz8zyv235xf63fxf4f17fclsk4i"))))
(base32 "135dzxqzy19a8hkxm25mriy7zf72sbxz1mzzfw6a2d8bk9yz8pl3"))))
(build-system gnu-build-system)
(arguments
'(#:phases

4
gnu/packages/parallel.scm
View File

@ -63,14 +63,14 @@
(define-public parallel
(package
(name "parallel")
(version "20220922")
(version "20221022")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://gnu/parallel/parallel-"
version ".tar.bz2"))
(sha256
(base32 "1hfar4hvzcic5gv7nl7jr6hafhgiax005zydwxcwxvy1vm4s3cqm"))
(base32 "1glrgk79nvw8p7aq70x14mgw2py9zphzlsnwl41l9rzx781yfc3m"))
(snippet
'(begin
(use-modules (guix build utils))

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

@ -37,6 +37,7 @@
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2022 ( <paren@disroot.org>
;;; Copyright © 2022 Nicolas Graves <ngraves@ngraves.fr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -57,6 +58,7 @@
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix utils)
#:use-module (guix build-system cmake)
#:use-module (guix build-system copy)
#:use-module (guix build-system gnu)
#:use-module (guix build-system go)
#:use-module (guix build-system python)
@ -137,7 +139,7 @@ human.")
(define-public keepassxc
(package
(name "keepassxc")
(version "2.7.1")
(version "2.7.3")
(source
(origin
(method url-fetch)
@ -145,7 +147,7 @@ human.")
"/releases/download/" version "/keepassxc-"
version "-src.tar.xz"))
(sha256
(base32 "1ryk2ndv93jb155cp7qkjm7jd8hjy0v5gqvdvbdidhrmdiibl0b0"))))
(base32 "1pm7n960zyz6gr3qsia7y7kg1938zf460q4nlzs4i70vmridcp9x"))))
(build-system cmake-build-system)
(arguments
(list
@ -371,7 +373,7 @@ and vice versa.")
(define-public cracklib
(package
(name "cracklib")
(version "2.9.7")
(version "2.9.8")
(source
(origin
(method url-fetch)
@ -379,7 +381,7 @@ and vice versa.")
"releases/download/v" version "/"
"cracklib-" version ".tar.bz2"))
(sha256
(base32 "1rimpjsdnmw8f5b7k558cic41p2qy2n2yrlqp5vh7mp4162hk0py"))))
(base32 "11p3f0yqg9d32g3n1qik7jfyl2l14pf8i8vzq3bpram3bqw3978z"))))
(build-system gnu-build-system)
(arguments
`(#:phases
@ -589,6 +591,67 @@ changes to your password database to a git repository that can be managed
through the pass command.")
(license license:gpl2+)))
(define-public pass-age
(package
(inherit password-store)
(name "pass-age")
(version "1.7.4a0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/FiloSottile/passage")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "17899whffnpqqx9x1nx2b8bfxbxlh1pwlglqa0kznl0cn6sb37ql"))))
(build-system copy-build-system)
(arguments
'(#:modules
((guix build copy-build-system)
(guix build utils)
(srfi srfi-26))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'rename-script
(lambda _
(rename-file "src/password-store.sh"
"src/passage")))
(add-after 'install 'wrap-script
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(script (string-append out "/bin/passage")))
(substitute* script
;; Avoid ugly ‘.passage-real’ in --help output and elsewhere.
(("^(PROGRAM=).*" _ program=)
(string-append program= (basename script) "\n")))
(wrap-program script
`("PATH" ":" prefix
,(map dirname
(map (cut search-input-file inputs <>)
(list "bin/age"
"bin/age-keygen"
"bin/getopt"
"bin/git"
"bin/pkill"
"bin/qrencode"
"bin/sed"
"bin/tree")))))))))
#:install-plan
'(("src/passage" "/bin/")
("src/completion/pass.bash-completion"
"/share/bash-completion/completions/")
("src/completion/pass.zsh-completion"
"/share/zsh/site-functions/"))))
(inputs
(list age age-keygen git procps qrencode sed tree util-linux))
(home-page "https://github.com/FiloSottile/passage")
(synopsis "Encrypted password manager")
(description "This package provides an encrypted password manager, forked
from the @code{password-store} package. Files are encrypted with the
@command{age} encryption package with small explicit keys.")
(license license:gpl2+)))
(define-public pass-otp
(package
(name "pass-otp")
@ -1315,7 +1378,7 @@ encryption algorithm if so desired.")
(define-public pass-tomb
(package
(name "pass-tomb")
(version "1.2")
(version "1.3")
(source
(origin
(method git-fetch)
@ -1324,7 +1387,7 @@ encryption algorithm if so desired.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1qj7vx7svk1ljwihj3kv310k17mafnf919n30n4qn1yxmmsvj924"))))
(base32 "1sjkbdm2i3v77nbnap8sypbfdqwxckc8h66g3ixjnyr6cqgcrdli"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags

11
gnu/packages/patches/diffoscope-fix-llvm-test.patch
View File

@ -3,7 +3,7 @@ From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Mon, 4 Oct 2021 21:03:43 +0200
Subject: [PATCH] gnu: diffoscope: Fix test_item3_deflate_llvm_bitcode.
Taken verbatim from Nixpkgs[0].
Taken verbatim from Nixpkgs[0]. Later extended for diffoscope >= 224.
[0]: https://github.com/NixOS/nixpkgs/blob/589e03f109092a3ba97781fd0533110bf78a3f97/pkgs/tools/misc/diffoscope/fix-tests.patch
---
@ -11,18 +11,19 @@ Taken verbatim from Nixpkgs[0].
1 file changed, 3 deletions(-)
diff --git a/tests/comparators/test_rlib.py b/tests/comparators/test_rlib.py
index 8d201ab..05960aa 100644
index 8a20114d..64cea17f 100644
--- a/tests/comparators/test_rlib.py
+++ b/tests/comparators/test_rlib.py
@@ -81,9 +81,6 @@ def rlib_dis_expected_diff():
@@ -80,12 +80,6 @@ def rlib_dis_expected_diff():
if actual_ver >= "7.0":
diff_file = "rlib_llvm_dis_expected_diff_7"
- if actual_ver >= "10.0":
- diff_file = "rlib_llvm_dis_expected_diff_10"
-
- if actual_ver >= "15.0":
- diff_file = "rlib_llvm_dis_expected_diff_15"
-
return get_data(diff_file)
--
2.33.0

28
gnu/packages/patches/giac-pari-gp-anyarg.patch
View File

@ -1,28 +0,0 @@
From 041d16b521d8231e5b441015f08bb386f9d2a51c Mon Sep 17 00:00:00 2001
From: Vincent Delecroix <20100.delecroix@gmail.com*>
Date: Thu, 15 Sep 2022 12:11:01 +0200
Subject: ANYARG giac patch
---
diff --git a/src/pari.cc b/src/pari.cc
index 76ce8e1..50d08ab 100644
--- a/src/pari.cc
+++ b/src/pari.cc
@@ -40,6 +40,13 @@ using namespace std;
#ifdef HAVE_LIBPARI
+// Anyarg disappeared from PARI 2.15.0
+#ifdef __cplusplus
+# define ANYARG ...
+#else
+# define ANYARG
+#endif
+
#ifdef HAVE_PTHREAD_H
#include <pthread.h>
#endif
--
cgit v1.0-1-gd88e

25
gnu/packages/patches/rust-shell2batch-lint-fix.patch
View File

@ -1,25 +0,0 @@
Resolves the following error that was most likely introduced in new version of
rust as this package is from 2019:
error: unnecessary parentheses around type
--> src/converter.rs:108:61
|
108 | fn add_arguments(arguments: &str, additional_arguments: Vec<(String)>, pre: bool) -> String {
| ^^^^^^^^ help: remove these parentheses
Reported upstream at https://github.com/sagiegurari/shell2batch/issues/17.
diff --git a/src/converter.rs b/src/converter.rs
index fc87d68..af309d2 100644
--- a/src/converter.rs
+++ b/src/converter.rs
@@ -105,7 +105,7 @@ fn replace_vars(arguments: &str) -> String {
updated_arguments
}
-fn add_arguments(arguments: &str, additional_arguments: Vec<(String)>, pre: bool) -> String {
+fn add_arguments(arguments: &str, additional_arguments: Vec<String>, pre: bool) -> String {
let mut windows_arguments = if pre {
"".to_string()
} else {

11
gnu/packages/pdf.scm
View File

@ -315,7 +315,8 @@ When present, Poppler is able to correctly render CJK and Cyrillic text.")
;; XXX: Remove it on core-updates. It is only needed for evince 42.3 that
;; requires a recent poppler.
(define-public poppler-next
(package/inherit poppler
(package
(inherit poppler)
(name "poppler-next")
(version "22.09.0")
(source (origin
@ -963,7 +964,7 @@ using a stylus.")
(define-public xournalpp
(package
(name "xournalpp")
(version "1.1.1")
(version "1.1.2")
(source
(origin
(method git-fetch)
@ -972,7 +973,7 @@ using a stylus.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "16pf50x1ps8dcynnvw5lz7ggl0jg7qvzv6gkd30xg3hkcxff8ch3"))))
(base32 "13q3fsrszq828gki3z42lda9gghm9wsnsg7iylp1ypcbj7hd5zhk"))))
(build-system cmake-build-system)
(arguments
(list
@ -1498,7 +1499,7 @@ manipulating PDF documents from the command line. It supports
(define-public weasyprint
(package
(name "weasyprint")
(version "54.3")
(version "56.1")
(source
(origin
(method git-fetch)
@ -1508,7 +1509,7 @@ manipulating PDF documents from the command line. It supports
(file-name (git-file-name name version))
(sha256
(base32
"0cn8gpgyic6pmrnhp0540nbgplpsd5aybi7k89anz6m1sshgjzgs"))))
"08l0yaqg0rxnb2r3x4baf4wng5pxpjbyalnrl4glwh9l69740q7p"))))
(build-system python-build-system)
(arguments
(list

325
gnu/packages/perl.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2019, 2020, 2021 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2015, 2016, 2017, 2019, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017, 2019, 2021, 2022 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017, 2019, 2020 Eric Bavier <bavier@posteo.net>
;;; Copyright © 2015 Eric Dvorsak <eric@dvorsak.fr>
;;; Copyright © 2016, 2018 Mark H Weaver <mhw@netris.org>
@ -71,6 +71,7 @@
#:use-module (gnu packages gtk)
#:use-module (gnu packages hurd)
#:use-module (gnu packages image)
#:use-module (gnu packages language)
#:use-module (gnu packages less)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages perl-check)
@ -331,6 +332,74 @@ administration, web development, network programming, GUI development, and
more.")
(license license:gpl1+)))
(define-public perl-5.6
(package
(inherit perl-5.14)
(name "perl")
(version "5.6.2")
(source (origin
(method url-fetch)
(uri (string-append "https://www.cpan.org/src/5.0/perl-"
version ".tar.gz"))
(sha256
(base32
"0khk94gvc8qkwxdb98khmxbwxxdbhap7rxb9ymkha6vhpxp6zrm5"))))
(properties `((release-date . "2003-11-15")
(hidden? . #t))) ;only for GHC 4.
(build-system gnu-build-system)
(arguments
'(#:tests? #f
#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(libc (assoc-ref inputs "libc")))
;; Use the right path for `pwd'.
(substitute* "lib/Cwd.pm"
(("/bin/pwd")
(which "pwd")))
(invoke "./Configure"
(string-append "-Dprefix=" out)
(string-append "-Dman1dir=" out "/share/man/man1")
(string-append "-Dman3dir=" out "/share/man/man3")
"-de" "-Dcc=gcc"
"-Uinstallusrbinperl"
"-Dinstallstyle=lib/perl5"
"-Duseshrplib"
(string-append "-Dlocincpth=" libc "/include")
(string-append "-Dloclibpth=" libc "/lib")
;; Force the library search path to contain only libc
;; because it is recorded in Config.pm and
;; Config_heavy.pl; we don't want to keep a reference
;; to everything that's in $LIBRARY_PATH at build
;; time (Binutils, bzip2, file, etc.)
(string-append "-Dlibpth=" libc "/lib")
(string-append "-Dplibpth=" libc "/lib")))))
(add-after 'configure 'bleh
(lambda _
(substitute* '("makefile"
"x2p/makefile")
((".*\\<command-line>.*") ""))
;; Don't look for /usr/include/errno.h.
(substitute* "ext/Errno/Errno_pm.PL"
(("O eq 'linux'") "O eq 'loonix'"))
(substitute* "ext/IPC/SysV/SysV.xs"
((".*asm/page.h.*") ""))))
(add-before 'strip 'make-shared-objects-writable
(lambda* (#:key outputs #:allow-other-keys)
;; The 'lib/perl5' directory contains ~50 MiB of .so. Make them
;; writable so that 'strip' actually strips them.
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib")))
(for-each (lambda (dso)
(chmod dso #o755))
(find-files lib "\\.so$"))))))))
(native-inputs
(list gcc-5))))
(define-public perl-algorithm-c3
(package
(name "perl-algorithm-c3")
@ -2008,6 +2077,33 @@ of the style used by the Git version control system.")
and writing of @code{.ini}-style configuration files.")
(license (package-license perl))))
(define-public perl-config-tiny
(package
(name "perl-config-tiny")
(version "2.28")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/R/RS/RSAVAGE/Config-Tiny-"
version ".tgz"))
(sha256
(base32
"000mw17nb7aj341s0afqimxd53w5y0c4yk61pihqzm191lx89pqj"))))
(build-system perl-build-system)
(native-inputs (list perl-test-pod))
(home-page "https://metacpan.org/release/Config-Tiny")
(synopsis "Read/Write .ini style files with as little code as possible")
(description
"@code{Config::Tiny} is a Perl class to read and write .ini
style configuration files with as little code as possible, reducing load time
and memory overhead.
This module is primarily for reading human written files, and anything we write
shouldn't need to have documentation/comments. If you need something with more
power move up to @code{Config::Simple}, @code{Config::General} or one of the
many other @code{Config::*} modules.")
(license license:perl-license)))
(define-public perl-const-fast
(package
(name "perl-const-fast")
@ -2166,6 +2262,51 @@ CPAN::Meta object are present.")
versa.")
(license (package-license perl))))
(define-public perl-critic
(package
(name "perl-critic")
(version "1.140")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/P/PE/PETDANCE/Perl-Critic-"
version ".tar.gz"))
(sha256
(base32
"1nzxpn71mrpp85yxrxlraj52q2skvf9ja887ls11d57h6smg1vmz"))))
(build-system perl-build-system)
(native-inputs (list perl-module-build perl-test-deep))
(propagated-inputs (list perltidy
perl-exception-class
perl-io-string
perl-ppi
perl-ppix-regexp
perl-b-keywords
perl-config-tiny
perl-padwalker
perl-test-memory-cycle
perl-file-which
perl-list-moreutils
perl-module-pluggable
perl-pod-parser
perl-pod-spell
perl-ppix-quotelike
perl-ppix-utilities
perl-readonly
perl-string-format
perl-task-weaken))
(home-page "https://metacpan.org/release/Perl-Critic")
(synopsis "Critique Perl source code for best-practices")
(description
"@code{perlcritic} is a Perl source code analyzer. It is the
executable front-end to the @code{Perl::Critic} engine, which attempts to
identify awkward, hard to read, error-prone, or unconventional constructs in
your code. Most of the rules are based on Damian Conway's book \"Perl Best
Practices\". However, @code{perlcritic} is not limited to enforcing PBP, and it
will even support rules that contradict Conway. All rules can easily be
configured or disabled to your liking.")
(license license:perl-license)))
(define-public perl-crypt-cbc
(package
(name "perl-crypt-cbc")
@ -8614,6 +8755,34 @@ the @dfn{Pod} (plain old documentation) markup language that is typically
used for writing documentation for Perl and for Perl modules.")
(license (package-license perl))))
(define-public perl-pod-spell
(package
(name "perl-pod-spell")
(version "1.25")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/H/HA/HAARG/Pod-Spell-" version
".tar.gz"))
(sha256
(base32
"18wzpfn39hpw6n8g9pwh964nid8skks79i5jdcm33gf9kf5qx3r0"))))
(build-system perl-build-system)
(native-inputs (list perl-file-sharedir-install))
(propagated-inputs (list perl-class-tiny perl-file-sharedir
perl-lingua-en-inflect))
(home-page "https://metacpan.org/release/Pod-Spell")
(synopsis "Formatter for spellchecking Pod")
(description
"@code{Pod::Spell} is a Pod formatter whose output is good
for spellchecking.
@code{Pod::Spell} is rather like @code{Pod::Text}, except that it doesn't put
much effort into actual formatting, and it suppresses things that look like Perl
symbols or Perl jargon (so that your spellchecking program won't complain about
mystery words like \"@code{$thing}\" or \"@code{Foo::Bar}\" or \"@code{hashref}\").")
(license license:artistic2.0)))
(define-public perl-posix-strftime-compiler
(package
(name "perl-posix-strftime-compiler")
@ -8662,6 +8831,80 @@ applications.")
code.")
(license license:perl-license)))
(define-public perl-ppix-regexp
(package
(name "perl-ppix-regexp")
(version "0.085")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/W/WY/WYANT/PPIx-Regexp-" version
".tar.gz"))
(sha256
(base32
"07fg63ql3f7hv1ys10l8j0p562ndraq9lk66iw9y0f444j4vpw1f"))))
(build-system perl-build-system)
(native-inputs (list perl-module-build))
(propagated-inputs (list perl-ppi))
(home-page "https://metacpan.org/release/PPIx-Regexp")
(synopsis "Parse Perl string literals and string-literal-like things")
(description
"The purpose of the @code{PPIx-Regexp} package is to parse
regular expressions in a manner similar to the way the @code{PPI} package parses
Perl. This class forms the root of the parse tree, playing a role similar to
@code{PPI::Document}.")
(license license:perl-license)))
(define-public perl-ppix-quotelike
(package
(name "perl-ppix-quotelike")
(version "0.023")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/W/WY/WYANT/PPIx-QuoteLike-"
version ".tar.gz"))
(sha256
(base32
"08ad4d20afvi1c4xzwbfk94lmf6gwlmqkdrpjxzf0lrcklaa6xim"))))
(build-system perl-build-system)
(native-inputs (list perl-module-build))
(propagated-inputs (list perl-ppi perl-ppix-regexp perl-readonly))
(home-page "https://metacpan.org/release/PPIx-QuoteLike")
(synopsis "Parse Perl string literals and string-literal-like things")
(description
"@code{PPIX::QuoteLike} parses Perl string literals and things that
are reasonably like string literals. Its real reason for being is to find
interpolated variables for @code{Perl::Critic} policies and similar code.")
(license license:perl-license)))
(define-public perl-ppix-utilities
(package
(name "perl-ppix-utilities")
(version "1.001000")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/E/EL/ELLIOTJS/PPIx-Utilities-"
version ".tar.gz"))
(sha256
(base32
"16yb7dnz8lgq2azs8jxj1wac60kbn16x8y4py04ci8nndww87903"))))
(build-system perl-build-system)
(native-inputs (list perl-module-build perl-test-deep))
(propagated-inputs (list perl-exception-class perl-ppi perl-readonly-xs
perl-task-weaken))
(home-page "https://metacpan.org/release/PPIx-Utilities")
(synopsis "Extensions to PPI")
(description
"@code{PPIx::Utilities} is a collection of functions for dealing
with @code{PPI} objects, many of which originated in @code{Perl::Critic}. They
are organized into modules by the kind of @code{PPI} class they relate to, by
replacing the \"@code{PPI}\" at the front of the module name with
\"@code{PPIx::Utilities}\", e.g. functionality related to @code{PPI::Nodes} is
in @code{PPIx::Utilities::Node}.")
(license license:perl-license)))
(define-public perl-probe-perl
(package
(name "perl-probe-perl")
@ -8730,6 +8973,38 @@ can also be useful as a development and debugging tool for catching updates to
variables that should not be changed.")
(license (package-license perl))))
(define-public perl-readonly-xs
(package
(name "perl-readonly-xs")
(version "1.05")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/R/RO/ROODE/Readonly-XS-" version
".tar.gz"))
(sha256
(base32
"03gz7yp194fwah2bc36ww04hgw1qx8p6y68vvnywircrablc9rca"))))
(build-system perl-build-system)
(propagated-inputs (list perl-readonly))
(home-page "https://metacpan.org/release/Readonly-XS")
(synopsis "Companion module for @code{Readonly.pm}, to speed up read-only
scalar variables")
(description
"The @code{Readonly} module is an effective way to create non-modifiable
variables. However, it's relatively slow.
The reason it's slow is that is implements the read-only-ness of variables via
tied objects. This mechanism is inherently slow. Perl simply has to do a lot
of work under the hood to make tied variables work.
This module corrects the speed problem, at least with respect to scalar
variables. When @code{Readonly::XS} is installed, @code{Readonly} uses it to
access the internals of scalar variables. Instead of creating a scalar variable
object and tying it, @code{Readonly} simply flips the @code{SvREADONLY} bit in
the scalar's @code{FLAGS} structure.")
(license license:perl-license)))
(define-public perl-ref-util-xs
(package
(name "perl-ref-util-xs")
@ -8775,6 +9050,30 @@ codes.")
;; Quad-licensed: Perl Artistic, Perl Artistic 2.0, X11, and BSD.
(license (list (package-license perl) license:x11 license:bsd-3))))
(define-public perl-regexp-grammars
(package
(name "perl-regexp-grammars")
(version "1.058")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/D/DC/DCONWAY/Regexp-Grammars-"
version ".tar.gz"))
(sha256
(base32
"14hwskrmy6ma0k9nr1amrf7wpb1f6jsx7x29kgizlx0n4n7db27a"))))
(build-system perl-build-system)
(native-inputs (list perl-module-build perl-test-pod perl-moose))
(home-page "https://metacpan.org/release/Regexp-Grammars")
(synopsis "Complete recursive descent parser on Perl's regex engine")
(description
"The @code{Regexp::Grammars} module adds a small number of new
regex constructs that can be used within Perl 5.10 patterns to implement
complete recursive-descent parsing. It allows you to go beyond matching
complex, nested and recursive structures, and allows you to parse and extract
hierarchical data from it.")
(license license:perl-license)))
(define-public perl-regexp-util
(package
(name "perl-regexp-util")
@ -9308,6 +9607,30 @@ expanding standard C/Unix-style backslash escapes like \n and \t, wrapping and
removing double-quotes, and truncating to fit within a desired length.")
(license (package-license perl))))
(define-public perl-string-format
(package
(name "perl-string-format")
(version "1.18")
(source (origin
(method url-fetch)
(uri (string-append
"mirror://cpan/authors/id/S/SR/SREZIC/String-Format-"
version ".tar.gz"))
(sha256
(base32
"0y77frxzjifd4sw0j19cc346ysas1mya84rdxaz279lyin7plhcy"))))
(build-system perl-build-system)
(home-page "https://metacpan.org/release/String-Format")
(synopsis "Format sprintf-like strings with arbitrary format definitions")
(description
"@code{String::Format} lets you define arbitrary printf-like format
sequences to be expanded. This module would be most useful in configuration
files and reporting tools, where the results of a query need to be formatted in
a particular way. It was inspired by
@url{http://www.mutt.org/doc/manual/manual.html#index-format,mutt's
@code{index_format} and related directives}.")
(license license:gpl2)))
(define-public perl-string-formatter
(package
(name "perl-string-formatter")

11
gnu/packages/photo.scm
View File

@ -460,7 +460,7 @@ photographic equipment.")
(define-public darktable
(package
(name "darktable")
(version "4.0.0")
(version "4.0.1")
(source
(origin
(method url-fetch)
@ -468,7 +468,7 @@ photographic equipment.")
"https://github.com/darktable-org/darktable/releases/"
"download/release-" version "/darktable-" version ".tar.xz"))
(sha256
(base32 "0bfcag6bj5vcmg4z4xjirs43iafcx89al6jl41i5mrhpjzszh5hl"))))
(base32 "0s0xwp5n4jhzdhbmsg02dlsc503jfznpwqn3rnipg687q3h83vsz"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags '("-DBINARY_PACKAGE_BUILD=On"
@ -482,6 +482,13 @@ photographic equipment.")
(("\"libOpenCL\"")
(string-append "\"" (assoc-ref inputs "opencl-icd-loader")
"/lib/libOpenCL.so\"")))))
(add-after 'unpack 'fix-missing-include
(lambda _
;; Fix missing include needed to build tests. See upstream
;; issue: https://github.com/darktable-org/darktable/issues/12604
(substitute* "./src/common/variables.h"
(("once")
"once\n#include \"common/image.h\""))))
(add-before 'configure 'prepare-build-environment
(lambda* (#:key inputs #:allow-other-keys)
;; Rawspeed fails to build with GCC due to OpenMP error:

10
gnu/packages/python-check.scm
View File

@ -9,7 +9,7 @@
;;; Copyright © 2020 Edouard Klein <edk@beaver-labs.com>
;;; Copyright © 2020, 2021 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2020 Tanguy Le Carrour <tanguy@bioneland.org>
;;; Copyright © 2021 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2021-2022 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2021 Brendan Tildesley <mail@brendan.scot>
;;; Copyright © 2021, 2022 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2021 Bonface Munyoki Kilyungi <me@bonfacemunyoki.com>
@ -432,13 +432,13 @@ of tests run in a specific order.")
(define-public python-pytest-astropy-header
(package
(name "python-pytest-astropy-header")
(version "0.1.2")
(version "0.2.2")
(source
(origin
(method url-fetch)
(uri (pypi-uri "pytest-astropy-header" version))
(sha256
(base32 "1y87agr324p6x5gvhziymxjlw54pyn4gqnd49papbl941djpkp5g"))))
(base32 "046v4arinv8b5jz05pvhnc0n1aqqndwvhlsl635ahxabr40i32bp"))))
(build-system python-build-system)
(native-inputs
(list python-pytest python-setuptools-scm))
@ -455,13 +455,13 @@ Astropy project, but is optimized for use with astropy-related projects.")
(define-public python-pytest-astropy
(package
(name "python-pytest-astropy")
(version "0.8.0")
(version "0.10.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "pytest-astropy" version))
(sha256
(base32 "18j6z6y2fvykmcs5z0mldhhaxxn6wzpnhlm2ps7m8r5z5kmh1631"))))
(base32 "04g2rh261s3s6ym8mwi4iv2a6anbgwvwzcvkyilfck6yxrncdqw5"))))
(build-system python-build-system)
(arguments
`(#:tests? #f ; there are no tests

25
gnu/packages/python-science.scm
View File

@ -20,6 +20,7 @@
;;; Copyright © 2022 Paul A. Patience <paul@apatience.com>
;;; Copyright © 2022 Wiktor Żelazny <wzelazny@vurv.cz>
;;; Copyright © 2022 Eric Bavier <bavier@posteo.net>
;;; Copyright © 2022 jgart <jgart@dismail.de>
;;;
;;; This file is part of GNU Guix.
;;;
@ -1482,6 +1483,30 @@ of use as pickling or @code{numpy.save}, but with the language
interoperability offered by HDF5.")
(license license:bsd-3)))
(define-public python-simple-pid
(package
(name "python-simple-pid")
(version "1.0.1")
(source (origin
(method url-fetch)
(uri (pypi-uri "simple-pid" version))
(sha256
(base32
"094mz6rmfq1h0gpns5vlxb7xf9297hlkhndw7g9k95ziqfkv7mk0"))))
(build-system python-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "python" "-m" "unittest" "discover" "tests/")))))))
(home-page "https://github.com/m-lundberg/simple-pid")
(synopsis "Easy to use PID controller")
(description "This package provides a simple and easy-to-use @acronym{PID,
proportional-integral-derivative} controller.")
(license license:expat)))
(define-public python-opt-einsum
(package
(name "python-opt-einsum")

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

@ -75,7 +75,7 @@
;;; Copyright © 2020 Josh Marshall <joshua.r.marshall.1991@gmail.com>
;;; Copyright © 2020 Lars-Dominik Braun <ldb@leibniz-psychology.org>
;;; Copyright © 2020 Alex ter Weele <alex.ter.weele@gmail.com>
;;; Copyright © 2020 Matthew James Kraai <kraai@ftbfs.org>
;;; Copyright © 2020, 2022 Matthew James Kraai <kraai@ftbfs.org>
;;; Copyright © 2020 Ryan Prior <rprior@protonmail.com>
;;; Copyright © 2020 Josh Holland <josh@inv.alid.pw>
;;; Copyright © 2020 Yuval Kogman <nothingmuch@woobling.org>
@ -496,6 +496,25 @@ and variables you'll need already imported and created.
(home-page "https://github.com/google/python-fire")
(license license:asl2.0)))
(define-public python-dotmap
(package
(name "python-dotmap")
(version "1.3.30")
(source (origin
(method url-fetch)
(uri (pypi-uri "dotmap" version))
(sha256
(base32
"0s5kb2v7jd0narz6m6jcicak3h5pw290wz21cdsv8pq77y9sf8aq"))))
(build-system python-build-system)
(home-page "https://github.com/drgrib/dotmap")
(synopsis "Ordered, dynamically-expandable dot-access dictionary")
(description
"DotMap is a dot-access dictionary subclass that has dynamic
hierarchy creation, can be initialized with keys, can be initialized from a
dictionary, can be convert to a dictionary, and is ordered by insertion.")
(license license:expat)))
(define-public python-twodict
(package
(name "python-twodict")
@ -4753,7 +4772,7 @@ ecosystem, but can naturally be used also by other projects.")
(define-public python-robotframework
(package
(name "python-robotframework")
(version "5.0")
(version "5.0.1")
;; There are no tests in the PyPI archive.
(source
(origin
@ -4763,7 +4782,7 @@ ecosystem, but can naturally be used also by other projects.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0qcm36c8hachbv3bc05ky7cf63i3sj0y8dw3bwjvcln28i543f81"))
(base32 "0jjr71npzrm5mv16pya3m2dqaqgf6sc45yca5kfmc5lfislig5b8"))
(patches (search-patches
"python-robotframework-atest.patch"
"python-robotframework-source-date-epoch.patch"))))
@ -4784,13 +4803,7 @@ ecosystem, but can naturally be used also by other projects.")
;; directory not being '/', as is the case in the Guix build
;; container.
(delete-file "atest/robot/standard_libraries/\
operating_system/path_expansion.robot")
;; FIXME: The test 'Process.Sending Signal.By default signal
;; is not sent to process running in shell' fails for unknown
;; reason (see:
;; https://github.com/robotframework/robotframework/issues/4292).
(delete-file "atest/robot/standard_libraries/\
process/sending_signal.robot")))
operating_system/path_expansion.robot")))
(add-before 'build 'build-and-install-doc
(lambda* (#:key outputs #:allow-other-keys)
(let ((doc (string-append (assoc-ref outputs "doc")
@ -4826,7 +4839,7 @@ process/sending_signal.robot")))
(invoke "xvfb-run" "atest/run.py")))))))
(native-inputs
(list python-docutils
python-jsonschema
python-jsonschema-next
python-invoke
python-lxml
python-pygments
@ -4848,13 +4861,13 @@ process automation (RPA).")
(define-public python-robotframework-datadriver
(package
(name "python-robotframework-datadriver")
(version "1.6.0")
(version "1.6.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "robotframework-datadriver" version))
(sha256
(base32 "0qa2vry8jr49k5rbrvmkgggzsmis1wv06dp5dvwmp7afm7vjc51k"))))
(base32 "0mcyr3v98nvfnvffy096qp3jqslas7l8hh0j00lpi0mp12cd0qk9"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -4924,7 +4937,7 @@ utility, a static analysis tool (linter) for Robot Framework source files.")
(define-public python-robotframework-pabot
(package
(name "python-robotframework-pabot")
(version "2.5.2")
(version "2.7.0")
(source
(origin
;; There are no tests in the PyPI archive.
@ -4935,7 +4948,7 @@ utility, a static analysis tool (linter) for Robot Framework source files.")
(file-name (git-file-name name version))
(sha256
(base32
"14a8isq1f4lgfwjb84hhzg6jm7ns18dxa9bg6dy8k2ml8zl0qknk"))))
"0246vvyaxax0nzlrffvp9vg6mh5jmvbbm87azignf0gakjidr7nn"))))
(build-system python-build-system)
(arguments
(list
@ -12022,6 +12035,23 @@ independent alignment of columns (left or right justified or centred) and
printing of sub-tables by specifying a row range.")
(license license:bsd-3)))
(define-public python-rtf-tokenize
(package
(name "python-rtf-tokenize")
(version "1.0.0")
(source (origin
(method url-fetch)
(uri (pypi-uri "rtf_tokenize" version))
(sha256
(base32
"026njb9iwznycda83bln3gfivcnzdz6vy8y86xvbsy84s28g6gaw"))))
(build-system python-build-system)
(native-inputs (list python-pytest))
(home-page "https://github.com/benoit-pierre/rtf_tokenize")
(synopsis "Simple RTF tokenizer")
(description "This package is a simple RTF tokenizer.")
(license license:gpl2+)))
(define-public python-curio
(package
(name "python-curio")
@ -16195,6 +16225,33 @@ modules, which are different and were developed separately, both serve
the same purpose: to provide Python bindings for libmagic.")
(license license:expat)))
(define-public s3cmd
(package
(name "s3cmd")
(version "2.3.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/s3tools/s3cmd")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0rdgwwmmp8mdxc84bxq6k9a7v7z2qgc3df47djzs2b84gw81dglx"))))
(build-system python-build-system)
(inputs
(list python-dateutil
python-magic))
(home-page "https://s3tools.org/s3cmd")
(synopsis "Command line tool for S3-compatible storage services")
(description
"S3cmd is a command line tool for uploading, retrieving and managing data
in storage services that are compatible with the Amazon Simple Storage
Service (S3) protocol, including S3 itself. It supports rsync-like backup,
GnuPG encryption, and more. It also supports management of Amazon's
CloudFront content delivery network.")
(license license:gpl2+)))
(define-public python-pkgconfig
(package
(name "python-pkgconfig")
@ -17684,13 +17741,13 @@ as well.")
(define-public ptpython
(package
(name "ptpython")
(version "3.0.17")
(version "3.0.20")
(source (origin
(method url-fetch)
(uri (pypi-uri "ptpython" version))
(sha256
(base32
"1phk1grcvn456igjg8gwjjg8bf4kszddq5nd5sdlz3hslg62a7ci"))))
"1mjfyr5gwrs1qbizh6nki0nv6hahmg8mhhqxi1qc6pfa4znlrzga"))))
(build-system python-build-system)
(arguments
`(#:tests? #f)) ;there are no tests
@ -17701,9 +17758,9 @@ as well.")
(synopsis "Python Read-Eval-Print-Loop with nice IDE-like features")
(description
"ptpython is a Python read-eval-print loop with IDE-like features.
It supports syntax highlighting, multiline editing, autocompletion, mouse,
color schemes, bracketed paste, Vi and Emacs keybindings, Chinese characters
etc.")
It supports syntax highlighting, multiline editing, autocompletion, mouse,
color schemes, bracketed paste, Vi and Emacs keybindings, Chinese characters
etc.")
(license license:bsd-3)))
(define-public python-easyprocess
@ -18186,7 +18243,7 @@ without requiring an event loop, useful for creative responsive GUIs.")
(define-public binwalk
(package
(name "binwalk")
(version "2.3.2")
(version "2.3.3")
(source
(origin
(method git-fetch)
@ -18195,7 +18252,13 @@ without requiring an event loop, useful for creative responsive GUIs.")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "01dalxw07c42ka4fqpixcacvy42h04ya909lzpmsblr9s2xdgwcm"))))
(base32 "0phqyqv34vhh80dgipiggs4n3iq2vfjk9ywx2c5d8g61vzgbd2g8"))
(modules '((guix build utils)))
(snippet
#~(begin
(for-each delete-file
(list "testing/tests/input-vectors/firmware.zip"
"testing/tests/test_firmware_zip.py"))))))
(build-system python-build-system)
(arguments
`(#:phases
@ -21540,14 +21603,14 @@ style guide, even if the original code didn't violate the style guide.")
(define-public python-yq
(package
(name "python-yq")
(version "2.11.1")
(version "3.1.0")
(source
(origin
(method url-fetch)
(uri (pypi-uri "yq" version))
(sha256
(base32
"1q4rky0a6n4izmq7slb91a54g8swry1xrbfqxwc8lkd3hhvlxxkl"))))
"1wklgs3d9si475nffw9agq5kgk8bdicbsmlj4sx4kiw64ji4ma1h"))))
(build-system python-build-system)
(arguments
'(#:phases
@ -21562,9 +21625,9 @@ style guide, even if the original code didn't violate the style guide.")
"/bin/jq")))
#t)))))
(inputs
(list python-argcomplete python-pyyaml python-xmltodict jq))
(list python-argcomplete python-pyyaml python-xmltodict python-toml jq))
(native-inputs
(list python-coverage python-flake8 python-wheel))
(list python-coverage python-flake8 python-setuptools-scm python-wheel))
(home-page "https://github.com/kislyuk/yq")
(synopsis "Command-line YAML/XML processor")
(description
@ -22006,13 +22069,13 @@ Included are implementations of:
(define-public bpython
(package
(name "bpython")
(version "0.21")
(version "0.23")
(source
(origin
(method url-fetch)
(uri (pypi-uri "bpython" version))
(sha256
(base32 "11wlf12nm6ggn9512y4yqs26s8gdgpx0h9ls94k7fsjgjy4rpal8"))))
(base32 "0ah5giynavyh70yc0jqgmjaajv3xg5j2y7k9i3q8mi47r2mph04z"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -31073,7 +31136,7 @@ platform using the ActivityPub protocol.")
(define-public python-lief
(package
(name "python-lief")
(version "0.12.1")
(version "0.12.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -31082,7 +31145,7 @@ platform using the ActivityPub protocol.")
(file-name (git-file-name name version))
(sha256
(base32
"1xzbh3bxy4rw1yamnx68da1v5s56ay4g081cyamv67256g0qy2i1"))))
"1xb21jsws8lw93by8r25ibzgiml8n1cp7rpzybc648lk6idw0zg6"))))
(build-system python-build-system)
(native-inputs (list cmake))
(arguments
@ -31102,6 +31165,54 @@ platform using the ActivityPub protocol.")
and abstract ELF, PE and MachO formats.")
(license license:asl2.0)))
(define-public shrinkwrap
(package
(name "shrinkwrap")
(version "0.1.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/fzakaria/shrinkwrap")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(modules '((guix build utils)))
(snippet '(substitute* "pyproject.toml"
(("lief = \"0\\.12\\.0\"") "lief = \"*\"")))
(sha256
(base32
"1f3qrygj16y767q2c7pn9j6m95ggcmj9s5cx9v92ygygly4mr3jp"))))
(build-system python-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "pytest" "-v" "tests"))))
;; XXX: PEP 517 manual build copied from python-isort.
(replace 'build
(lambda _
(invoke "python" "-m" "build" "--wheel" "--no-isolation" ".")))
(replace 'install
(lambda _
(let ((whl (car (find-files "dist" "\\.whl$"))))
(invoke "pip" "--no-cache-dir" "--no-input"
"install" "--no-deps" "--prefix" #$output whl)))))))
(native-inputs
(list python-click
python-poetry-core
python-pypa-build
python-pytest))
(inputs (list python-lief python-sh))
(home-page "https://github.com/fzakaria/shrinkwrap")
(synopsis "Emboss needed dependencies on the top level executable")
(description
"@code{shrinkwrap} is a tool which will discover all transitive dynamic
shared objects, and lift them up to the executable referenced by absolute
path.")
(license license:expat)))
(define-public python-pymonad
(package
(name "python-pymonad")

5
gnu/packages/ruby.scm
View File

@ -7668,7 +7668,10 @@ variable length integers (varint) in Ruby Protocol Buffers.")
"1r3xalp91l07m0cwllcxjzg6nkviiqnxkcbgg5qnzsdji6rgy65m"))))
(build-system ruby-build-system)
(arguments
`(#:phases
;; It is unclear why the tests fail on i686-linux
`(#:tests? ,(not (or (%current-target-system)
(target-x86-32?)))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-rakefile
;; This fixes the following error: "NameError: uninitialized

179
gnu/packages/rust-apps.scm
View File

@ -7,12 +7,13 @@
;;; Copyright © 2020 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2020 Gabriel Arazas <foo.dogsquared@gmail.com>
;;; Copyright © 2020-2022 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2021 Sharlatan Hellseher <sharlatanus@gmail.ccom>
;;; Copyright © 2021, 2022 Zheng Junjie <873216071@qq.com>
;;; Copyright © 2021 Alexandru-Sergiu Marton <brown121407@posteo.ro>
;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Petr Hodina <phodina@protonmail.com>
;;; Copyright © 2021, 2022 Petr Hodina <phodina@protonmail.com>
;;; Copyright © 2021 jgart <jgart@dismail.de>
;;; Copyright © 2021 Nicolas Graves <ngraves@ngraves.fr>
;;; Copyright © 2022 Aleksandr Vityazev <avityazev@posteo.org>
@ -40,6 +41,7 @@
#:use-module (guix build-system cargo)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix deprecation)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (gnu packages)
@ -788,7 +790,167 @@ gitignore rules.")
associated input devices using the built-in accelerometer; handy for convertible
touchscreen devices.")
(license license:expat)))
(define-public rust-swc
(package
(name "rust-swc")
(version "1.2.24")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/swc-project/swc")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1w9al035x0gmard80vqvah8sy8szs6bnd1ynnyssiiylzg7vhyyv"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-ansi-term" ,rust-ansi-term-0.12)
("rust-base64" ,rust-base64-0.12)
("rust-console-error-panic-hook" ,rust-console-error-panic-hook-0.1)
("rust-crc" ,rust-crc-1)
("rust-darling" ,rust-darling-0.10)
("rust-dashmap" ,rust-dashmap-3)
("rust-either" ,rust-either-1)
("rust-fxhash" ,rust-fxhash-0.2)
("rust-is-macro" ,rust-is-macro-0.1)
("rust-jemallocator" ,rust-jemallocator-0.3)
("rust-log" ,rust-log-0.4)
("rust-mimalloc" ,rust-mimalloc-0.1)
("rust-napi" ,rust-napi-0.5)
("rust-napi-build" ,rust-napi-build-0.2)
("rust-napi-derive" ,rust-napi-derive-0.5)
("rust-nom" ,rust-nom-5)
("rust-once-cell" ,rust-once-cell-1)
("rust-ordered-float" ,rust-ordered-float-1)
("rust-parking-lot" ,rust-parking-lot-0.7)
("rust-path-clean" ,rust-path-clean-0.1)
("rust-petgraph" ,rust-petgraph-0.5)
("rust-phf" ,rust-phf-0.8)
("rust-proc-macro2" ,rust-proc-macro2-1)
("rust-radix-fmt" ,rust-radix-fmt-1)
("rust-regex" ,rust-regex-1)
("rust-relative-path" ,rust-relative-path-1)
("rust-retain-mut" ,rust-retain-mut-0.1)
("rust-scoped-tls" ,rust-scoped-tls-1)
("rust-st-map" ,rust-st-map-0.1)
("rust-string-cache" ,rust-string-cache-0.8)
("rust-walkdir" ,rust-walkdir-2)
("rust-wasm-bindgen-futures" ,rust-wasm-bindgen-futures-0.4))
#:cargo-development-inputs
(("rust-anyhow" ,rust-anyhow-1)
("rust-env-logger" ,rust-env-logger-0.7)
("rust-num-bigint" ,rust-num-bigint-0.2)
("rust-pretty-assertions" ,rust-pretty-assertions-0.6)
("rust-pretty-env-logger" ,rust-pretty-env-logger-0.3)
("rust-serde" ,rust-serde-1)
("rust-serde-json" ,rust-serde-json-1)
("rust-sourcemap" ,rust-sourcemap-6)
("rust-string-cache-codegen" ,rust-string-cache-codegen-0.5)
("rust-tempfile" ,rust-tempfile-3))
#:tests? #f ;; tests env_query_chrome_71 and project_env fail
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'enable-unstable-features
(lambda _
(setenv "RUSTC_BOOTSTRAP" "1")
(substitute* "ecmascript/jsdoc/src/lib.rs"
(("pub use self" all)
(string-append "#![feature(non_exhaustive)]\n" all)))
(substitute* "ecmascript/parser/src/lib.rs"
(("//! es2019" all)
(string-append "#![feature(non_exhaustive)]
#![feature(mem_take)]
#![feature(proc_macro_hygiene)]
" all)))
(substitute* "ecmascript/transforms/src/lib.rs"
(("#!\\[cfg_attr" all)
(string-append "#![feature(mem_take)]\n" all)))
#t))
(add-after 'enable-unstable-features 'patch-build-failures
(lambda _
(chmod ".cargo/config" 420)
(substitute* "ecmascript/transforms/macros/src/lib.rs"
(("use proc_macro::")
"extern crate proc_macro;\nuse proc_macro::"))
(substitute* "common/src/errors/emitter.rs"
((" #\\[cfg\\(feature = \"tty-emitter\"\\)\\]\n") ""))
#t)))))
(home-page "https://swc.rs/")
(synopsis "Typescript/javascript compiler")
(description "@code{rust-swc} is a typescript/javascript compiler. It
consumes a javascript or typescript file which uses recently added features
like async-await and emits javascript code which can be executed on old
browsers.")
(license (list license:expat
license:asl2.0))))
(define-deprecated rust-swc-1 rust-swc)
(define-public rust-cargo-edit
(package
(name "rust-cargo-edit")
(version "0.10.4")
(source (origin
(method url-fetch)
(uri (crate-uri "cargo-edit" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"19wfjz7z4kqjfjmnq1bl6dhsvskjy6r656fqmbha9dfdspbsnmd0"))))
(build-system cargo-build-system)
(arguments
`(#:install-source? #f
#:cargo-inputs
(("rust-anyhow" ,rust-anyhow-1)
("rust-cargo-metadata" ,rust-cargo-metadata-0.15)
("rust-clap" ,rust-clap-3)
("rust-concolor-control" ,rust-concolor-control-0.0.7)
("rust-crates-index" ,rust-crates-index-0.18)
("rust-dirs-next" ,rust-dirs-next-2)
("rust-dunce" ,rust-dunce-1)
("rust-env-proxy" ,rust-env-proxy-0.4)
("rust-git2" ,rust-git2-0.14)
("rust-hex" ,rust-hex-0.4)
("rust-indexmap" ,rust-indexmap-1)
("rust-native-tls" ,rust-native-tls-0.2)
("rust-pathdiff" ,rust-pathdiff-0.2)
("rust-regex" ,rust-regex-1)
("rust-semver" ,rust-semver-1)
("rust-serde" ,rust-serde-1)
("rust-serde-derive" ,rust-serde-derive-1)
("rust-serde-json" ,rust-serde-json-1)
("rust-subprocess" ,rust-subprocess-0.2)
("rust-termcolor" ,rust-termcolor-1)
("rust-toml-edit" ,rust-toml-edit-0.14)
("rust-ureq" ,rust-ureq-2)
("rust-url" ,rust-url-2))
#:cargo-development-inputs
(("rust-assert-cmd" ,rust-assert-cmd-2)
("rust-assert-fs" ,rust-assert-fs-1)
("rust-predicates" ,rust-predicates-2)
("rust-snapbox" ,rust-snapbox-0.2)
("rust-trycmd" ,rust-trycmd-0.13)
("rust-url" ,rust-url-2))))
(native-inputs
(list pkg-config))
(inputs
(list libgit2
libssh2
openssl
zlib))
(home-page "https://github.com/killercup/cargo-edit")
(synopsis "Add and remove dependencies from the command line")
(description
"This package extends Cargo to allow you to add and remove dependencies
by modifying your @file{Cargo.toml} file from the command line.")
(license (list license:asl2.0 license:expat))))
(define-deprecated rust-cargo-edit-0.8 rust-cargo-edit)
(define-public git-interactive-rebase-tool
(package
(name "git-interactive-rebase-tool")
@ -825,8 +987,10 @@ touchscreen devices.")
("rust-rstest" ,rust-rstest-0.6)
("rust-serial-test" ,rust-serial-test-0.5)
("rust-tempfile" ,rust-tempfile-3))))
(native-inputs
(list pkg-config))
(inputs
(list zlib))
(list libgit2-1.3 zlib))
(home-page "https://gitrebasetool.mitmaro.ca/")
(synopsis "Terminal based sequence editor for git interactive rebase")
(description
@ -1843,17 +2007,16 @@ Full featured offline client with caching support.")
(add-after 'unpack 'relax-version-requirements
(lambda _
(substitute* "Cargo.toml"
(("2.5") "2")
(("~2.3\"") "2\"")
(("~2.33\"") "2\"") ; clap
(("3.1") "3"))))
(("\"~") "\""))))
(add-after 'install 'install-manual-page
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(man (string-append out "/share/man/man1")))
(install-file "Documentation/git-absorb.1" man)))))))
(native-inputs
(list pkg-config))
(inputs
(list zlib))
(list libgit2-1.3 zlib))
(home-page "https://github.com/tummychow/git-absorb")
(synopsis "Git tool for making automatic fixup commits")
(description

2
gnu/packages/samba.scm
View File

@ -546,6 +546,6 @@ and IPV6 and the protocols layered above them, such as TCP and UDP.")
(synopsis "A Web Service Discovery host daemon")
(description "This daemon allows (Samba) hosts to be found by Web
Service Dicovery Clients. It also implements the client side of the
discovery protocol which allows to search for devices implementing
discovery protocol which searches for devices implementing
WSD.")
(license license:expat)))

4
gnu/packages/sdl.scm
View File

@ -638,14 +638,14 @@ sound and device input (keyboards, joysticks, mice, etc.).")
(define-public guile-sdl2
(package
(name "guile-sdl2")
(version "0.7.0")
(version "0.8.0")
(source (origin
(method url-fetch)
(uri (string-append "https://files.dthompson.us/guile-sdl2/"
"guile-sdl2-" version ".tar.gz"))
(sha256
(base32
"197dzkxw8nv92da56iv2r8ih5r3pr4pd5c5j2q83aqb78h4jqjl7"))))
"1v57ghgqp9m32b2x47dya9zb0xvvfs5v8q8ak2wi8fzabajfpxap"))))
(build-system gnu-build-system)
(arguments
'(#:make-flags '("GUILE_AUTO_COMPILE=0")))

4
gnu/packages/search.scm
View File

@ -675,14 +675,14 @@ bibliographic data and simple document and bibtex retrieval.")
(define-public ugrep
(package
(name "ugrep")
(version "3.8.3")
(version "3.9.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Genivia/ugrep")
(commit (string-append "v" version))))
(sha256
(base32 "03b3lahc3zzsznaqnrk47f1cnd5jwakvwrkz0r4m2crk09cpfv57"))
(base32 "0dhzrrdyi1aj16mdndkic7cqqvg6w28c8j13r7x42zab6ah0zkpm"))
(file-name (git-file-name name version))
(modules '((guix build utils)))
(snippet

69
gnu/packages/simulation.scm
View File

@ -2,6 +2,7 @@
;;; Copyright © 2017, 2018, 2019, 2020, 2021 Paul Garlick <pgarlick@tourbillion-technology.com>
;;; Copyright © 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2022 Eric Bavier <bavier@posteo.net>
;;; Copyright © 2022 Liliana Marie Prikler <liliana.prikler@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -29,12 +30,16 @@
#:use-module (gnu packages check)
#:use-module (gnu packages cmake)
#:use-module (gnu packages compression)
#:use-module (gnu packages cpp)
#:use-module (gnu packages flex)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages gettext)
#:use-module (gnu packages gcc)
#:use-module (gnu packages geo)
#:use-module (gnu packages gl)
#:use-module (gnu packages graphics)
#:use-module (gnu packages gtk)
#:use-module (gnu packages image)
#:use-module (gnu packages linux)
#:use-module (gnu packages m4)
#:use-module (gnu packages maths)
@ -49,6 +54,7 @@
#:use-module (gnu packages readline)
#:use-module (gnu packages tls)
#:use-module (gnu packages version-control)
#:use-module (gnu packages video)
#:use-module (gnu packages xml)
#:use-module (gnu packages xorg)
#:use-module (guix download)
@ -60,6 +66,7 @@
#:use-module (guix build-system python)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix gexp)
#:use-module (guix utils)
#:use-module (ice-9 ftw)
#:use-module (ice-9 regex)
@ -940,3 +947,65 @@ provides the necessary tools and data structures for cases where the
forward model is implemented in @code{fenics} or
@url{https://firedrakeproject.org,firedrake}.")
(license license:lgpl3)))
(define-public sumo
(package
(name "sumo")
(version "1.14.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/eclipse/sumo")
(commit (string-append "v"
(string-replace-substring version
"." "_")))))
(file-name (git-file-name name version))
(sha256
(base32
"1965vrsff0k14z3y3b1c460zdwp9nx6q6plrdyxn496vg6846k1y"))))
(build-system cmake-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'disable-problematic-tests
(lambda _
(substitute* "CMakeLists.txt"
;; docs/example appears to be missing
(("add_test\\(exampletest .*") ""))
(substitute* "src/traci_testclient/CMakeLists.txt"
;; requires network connection (at least to localhost)
(("add_test\\(NAME libtracitest .*") "")))))))
(inputs (list eigen
freetype
fontconfig
ffmpeg
fox
gdal
glu
gperftools ; tcmalloc
libjpeg-turbo
libtiff
libx11
libxcursor
libxft
libxi
libxrandr
libxrender
openscenegraph
proj
python
xerces-c
zlib))
(native-inputs (list googletest python))
(home-page "https://eclipse.org/sumo")
(synopsis "Traffic simulator")
(description "@acronym{SUMO, Simulation of Urban MObility} is a traffic
simulation package designed to handle large road networks and different modes
of transportation -- including road vehicles, public transport and pedestrians.
Included with SUMO is a wealth of supporting tools which automate core tasks
for the creation, the execution and evaluation of traffic simulations,
such as network import, route calculations, visualization and emission
calculation. SUMO can be enhanced with custom models and provides various
APIs to remotely control the simulation.")
(license (list license:epl2.0 license:gpl2+))))

6
gnu/packages/ssh.scm
View File

@ -186,7 +186,7 @@ a server that supports the SSH-2 protocol.")
(define-public openssh
(package
(name "openssh")
(version "8.9p1")
(version "9.1p1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://openbsd/OpenSSH/portable/"
@ -195,7 +195,7 @@ a server that supports the SSH-2 protocol.")
"openssh-trust-guix-store-directory.patch"))
(sha256
(base32
"1ry5prcax0134v6srkgznpl9ch5snkgq7yvjqvd8c5mbnxa7cjgx"))))
"126jzn5pxkf1dgzcb3lzpzab8airg0avnvr3y23kgqp3qw4m1y0r"))))
(build-system gnu-build-system)
(native-inputs (list groff pkg-config))
(inputs `(("libedit" ,libedit)
@ -306,7 +306,7 @@ Additionally, various channel-specific options can be negotiated.")
'((release-monitoring-url . "https://ftp.openbsd.org/pub/OpenBSD/OpenSSH/portable/")))
(home-page "https://www.openssh.com/")))
;; OpenSSH without X support. This allows to use OpenSSH without dragging X
;; OpenSSH without X support. This allows using OpenSSH without dragging X
;; libraries to the closure.
(define-public openssh-sans-x
(package

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