Merge branch 'master' into gnome-team
This commit is contained in:
		
						commit
						2cbb1a6e1e
					
				
					 64 changed files with 3641 additions and 2388 deletions
				
			
		| 
						 | 
				
			
			@ -3,7 +3,7 @@ exec guile --no-auto-compile -e main -s "$0" "$@"
 | 
			
		|||
!#
 | 
			
		||||
;;;; test-driver.scm - Guile test driver for Automake testsuite harness
 | 
			
		||||
 | 
			
		||||
(define script-version "2021-02-02.05") ;UTC
 | 
			
		||||
(define script-version "2023-12-08.14") ;UTC
 | 
			
		||||
 | 
			
		||||
;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org>
 | 
			
		||||
;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 | 
			
		||||
| 
						 | 
				
			
			@ -274,6 +274,7 @@ cases based on their names."
 | 
			
		|||
    (exit 0)))
 | 
			
		||||
 | 
			
		||||
;;; Local Variables:
 | 
			
		||||
;;; mode: scheme
 | 
			
		||||
;;; eval: (add-hook 'write-file-functions 'time-stamp)
 | 
			
		||||
;;; time-stamp-start: "(define script-version \""
 | 
			
		||||
;;; time-stamp-format: "%:y-%02m-%02d.%02H"
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1799,7 +1799,7 @@ Setup}), or simply fail.
 | 
			
		|||
When the build or substitution process remains silent for more than
 | 
			
		||||
@var{seconds}, terminate it and report a build failure.
 | 
			
		||||
 | 
			
		||||
The default value is @code{0}, which disables the timeout.
 | 
			
		||||
The default value is @code{3600} (one hour).
 | 
			
		||||
 | 
			
		||||
The value specified here can be overridden by clients (@pxref{Common
 | 
			
		||||
Build Options, @option{--max-silent-time}}).
 | 
			
		||||
| 
						 | 
				
			
			@ -1808,7 +1808,7 @@ Build Options, @option{--max-silent-time}}).
 | 
			
		|||
Likewise, when the build or substitution process lasts for more than
 | 
			
		||||
@var{seconds}, terminate it and report a build failure.
 | 
			
		||||
 | 
			
		||||
The default value is @code{0}, which disables the timeout.
 | 
			
		||||
The default value is 24 hours.
 | 
			
		||||
 | 
			
		||||
The value specified here can be overridden by clients (@pxref{Common
 | 
			
		||||
Build Options, @option{--timeout}}).
 | 
			
		||||
| 
						 | 
				
			
			@ -19455,8 +19455,8 @@ few seconds when enough entropy is available and is only done once; you
 | 
			
		|||
might want to turn it off for instance in a virtual machine that does
 | 
			
		||||
not need it and where the extra boot time is a problem.
 | 
			
		||||
 | 
			
		||||
@item @code{max-silent-time} (default: @code{0})
 | 
			
		||||
@itemx @code{timeout} (default: @code{0})
 | 
			
		||||
@item @code{max-silent-time} (default: @code{3600})
 | 
			
		||||
@itemx @code{timeout} (default: @code{(* 3600 24)})
 | 
			
		||||
The number of seconds of silence and the number of seconds of activity,
 | 
			
		||||
respectively, after which a build process times out.  A value of zero
 | 
			
		||||
disables the timeout.
 | 
			
		||||
| 
						 | 
				
			
			@ -39746,6 +39746,9 @@ This must be a list of strings where each string has the form
 | 
			
		|||
      "TMPDIR=/tmp/dockerd")
 | 
			
		||||
@end lisp
 | 
			
		||||
 | 
			
		||||
@item @code{config-file} (type: maybe-file-like)
 | 
			
		||||
JSON configuration file pass to @command{dockerd}.
 | 
			
		||||
 | 
			
		||||
@end table
 | 
			
		||||
@end deftp
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -310,7 +310,8 @@ asdf-build-system."
 | 
			
		|||
(define-team bootstrap
 | 
			
		||||
  (team 'bootstrap
 | 
			
		||||
        #:name "Bootstrap"
 | 
			
		||||
        #:scope (list "gnu/packages/mes.scm")))
 | 
			
		||||
        #:scope (list "gnu/packages/commencement.scm"
 | 
			
		||||
                      "gnu/packages/mes.scm")))
 | 
			
		||||
 | 
			
		||||
(define-team embedded
 | 
			
		||||
  (team 'embedded
 | 
			
		||||
| 
						 | 
				
			
			@ -424,6 +425,21 @@ asdf-build-system."
 | 
			
		|||
              (make-regexp* "^guix/scripts/")
 | 
			
		||||
              (make-regexp* "^guix/store/"))))
 | 
			
		||||
 | 
			
		||||
(define-team core-packages
 | 
			
		||||
  (team 'core-packages
 | 
			
		||||
        #:name "Core packages"
 | 
			
		||||
        #:description "Core packages: the GNU tool chain, Guile, Coreutils, etc."
 | 
			
		||||
        #:scope (list "gnu/packages/base.scm"
 | 
			
		||||
                      "gnu/packages/bootstrap.scm"
 | 
			
		||||
                      "gnu/packages/commencement.scm"
 | 
			
		||||
                      "gnu/packages/cross-base.scm"
 | 
			
		||||
                      "gnu/packages/gcc.scm"
 | 
			
		||||
                      "gnu/packages/guile.scm"
 | 
			
		||||
                      "gnu/packages/make-bootstrap.scm"
 | 
			
		||||
                      "guix/build/gnu-build-system.scm"
 | 
			
		||||
                      "guix/build/utils.scm"
 | 
			
		||||
                      "guix/build-system/gnu.scm")))
 | 
			
		||||
 | 
			
		||||
(define-team games
 | 
			
		||||
  (team 'games
 | 
			
		||||
        #:name "Games and Toys"
 | 
			
		||||
| 
						 | 
				
			
			@ -556,7 +572,7 @@ GLib/GIO, GTK, GStreamer and Webkit."
 | 
			
		|||
 | 
			
		||||
(define-member (person "Ludovic Courtès"
 | 
			
		||||
                       "ludo@gnu.org")
 | 
			
		||||
  core home bootstrap installer mentors)
 | 
			
		||||
  core home bootstrap core-packages installer mentors)
 | 
			
		||||
 | 
			
		||||
(define-member (person "Andreas Enge"
 | 
			
		||||
                       "andreas@enge.fr")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
							
								
								
									
										34
									
								
								etc/teams/rust/rust-manifest.scm
									
										
									
									
									
										Normal file
									
								
							
							
						
						
									
										34
									
								
								etc/teams/rust/rust-manifest.scm
									
										
									
									
									
										Normal file
									
								
							| 
						 | 
				
			
			@ -0,0 +1,34 @@
 | 
			
		|||
;;; GNU Guix --- Functional package management for GNU
 | 
			
		||||
;;; Copyright © 2024 Efraim Flashner <efraim@flashner.co.il>
 | 
			
		||||
;;;
 | 
			
		||||
;;; This file is part of GNU Guix.
 | 
			
		||||
;;;
 | 
			
		||||
;;; GNU Guix is free software; you can redistribute it and/or modify it
 | 
			
		||||
;;; under the terms of the GNU General Public License as published by
 | 
			
		||||
;;; the Free Software Foundation; either version 3 of the License, or (at
 | 
			
		||||
;;; your option) any later version.
 | 
			
		||||
;;;
 | 
			
		||||
;;; GNU Guix is distributed in the hope that it will be useful, but
 | 
			
		||||
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
 | 
			
		||||
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 | 
			
		||||
;;; GNU General Public License for more details.
 | 
			
		||||
;;;
 | 
			
		||||
;;; You should have received a copy of the GNU General Public License
 | 
			
		||||
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
 | 
			
		||||
 | 
			
		||||
;;; This file returns a manifest of packages built using the cargo-build-system.
 | 
			
		||||
;;; It is used to assist continuous integration of the rust-team branch.
 | 
			
		||||
 | 
			
		||||
(use-modules (guix packages)
 | 
			
		||||
             (guix profiles)
 | 
			
		||||
             (guix build-system))
 | 
			
		||||
 | 
			
		||||
(manifest
 | 
			
		||||
  (map package->manifest-entry
 | 
			
		||||
       (fold-packages
 | 
			
		||||
         (lambda (package lst)
 | 
			
		||||
           (if (eq? (build-system-name (package-build-system package))
 | 
			
		||||
                    (quote cargo))
 | 
			
		||||
             (cons package lst)
 | 
			
		||||
             lst))
 | 
			
		||||
         (list))))
 | 
			
		||||
| 
						 | 
				
			
			@ -307,6 +307,7 @@ GNU_SYSTEM_MODULES =				\
 | 
			
		|||
  %D%/packages/gobby.scm			\
 | 
			
		||||
  %D%/packages/golang.scm			\
 | 
			
		||||
  %D%/packages/golang-check.scm		\
 | 
			
		||||
  %D%/packages/golang-web.scm	        	\
 | 
			
		||||
  %D%/packages/gperf.scm			\
 | 
			
		||||
  %D%/packages/gpodder.scm			\
 | 
			
		||||
  %D%/packages/gps.scm				\
 | 
			
		||||
| 
						 | 
				
			
			@ -1115,11 +1116,9 @@ dist_patch_DATA =						\
 | 
			
		|||
  %D%/packages/patches/emacs-deferred-fix-number-of-arguments.patch	\
 | 
			
		||||
  %D%/packages/patches/emacs-elpy-dup-test-name.patch		\
 | 
			
		||||
  %D%/packages/patches/emacs-exec-path.patch			\
 | 
			
		||||
  %D%/packages/patches/emacs-ess-fix-obsolete-function-alias.patch	\
 | 
			
		||||
  %D%/packages/patches/emacs-git-email-missing-parens.patch	\
 | 
			
		||||
  %D%/packages/patches/emacs-fix-scheme-indent-function.patch	\
 | 
			
		||||
  %D%/packages/patches/emacs-json-reformat-fix-tests.patch	\
 | 
			
		||||
  %D%/packages/patches/emacs-haskell-mode-no-redefine-builtin.patch	\
 | 
			
		||||
  %D%/packages/patches/emacs-helpful-fix-tests.patch	\
 | 
			
		||||
  %D%/packages/patches/emacs-highlight-stages-add-gexp.patch	\
 | 
			
		||||
  %D%/packages/patches/emacs-lispy-fix-thread-last-test.patch   \
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -71,6 +71,7 @@
 | 
			
		|||
  #:use-module (gnu packages glib)
 | 
			
		||||
  #:use-module (gnu packages gnupg)
 | 
			
		||||
  #:use-module (gnu packages golang)
 | 
			
		||||
  #:use-module (gnu packages golang-web)
 | 
			
		||||
  #:use-module (gnu packages gperf)
 | 
			
		||||
  #:use-module (gnu packages gtk)
 | 
			
		||||
  #:use-module (gnu packages guile)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,5 +1,5 @@
 | 
			
		|||
;;; GNU Guix --- Functional package management for GNU
 | 
			
		||||
;;; Copyright © 2015-2023 Ricardo Wurmus <rekado@elephly.net>
 | 
			
		||||
;;; Copyright © 2015-2024 Ricardo Wurmus <rekado@elephly.net>
 | 
			
		||||
;;; Copyright © 2016, 2017, 2018, 2020, 2021 Roel Janssen <roel@gnu.org>
 | 
			
		||||
;;; Copyright © 2016 Pjotr Prins <pjotr.guix@thebird.nl>
 | 
			
		||||
;;; Copyright © 2016 Ben Woodcroft <donttrustben@gmail.com>
 | 
			
		||||
| 
						 | 
				
			
			@ -7324,13 +7324,13 @@ global-scaling and full-quantile normalization.")
 | 
			
		|||
(define-public r-edger
 | 
			
		||||
  (package
 | 
			
		||||
    (name "r-edger")
 | 
			
		||||
    (version "4.0.3")
 | 
			
		||||
    (version "4.0.5")
 | 
			
		||||
    (source (origin
 | 
			
		||||
              (method url-fetch)
 | 
			
		||||
              (uri (bioconductor-uri "edgeR" version))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "0sz46pwa1bsqrff2igswfhhj1fcwzn34zrlawy4fnb58z48kccb0"))))
 | 
			
		||||
                "16cghh83v14jdq5n6xkm3jxj87n6l6zrxjgqdwb2ffgc26vkpb7w"))))
 | 
			
		||||
    (properties `((upstream-name . "edgeR")))
 | 
			
		||||
    (build-system r-build-system)
 | 
			
		||||
    (propagated-inputs
 | 
			
		||||
| 
						 | 
				
			
			@ -7462,6 +7462,37 @@ chromosome region or transcript models of lincRNA genes.")
 | 
			
		|||
    ;; No version specified
 | 
			
		||||
    (license license:lgpl3+)))
 | 
			
		||||
 | 
			
		||||
(define-public r-epidish
 | 
			
		||||
  (package
 | 
			
		||||
    (name "r-epidish")
 | 
			
		||||
    (version "2.18.0")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method url-fetch)
 | 
			
		||||
       (uri (bioconductor-uri "EpiDISH" version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32 "170ym3y6gd1kxghz2g5ynvgi1wrxx87b568cjcvzidpqkrkg87s6"))))
 | 
			
		||||
    (properties `((upstream-name . "EpiDISH")))
 | 
			
		||||
    (build-system r-build-system)
 | 
			
		||||
    (propagated-inputs (list r-e1071
 | 
			
		||||
                             r-locfdr
 | 
			
		||||
                             r-mass
 | 
			
		||||
                             r-matrix
 | 
			
		||||
                             r-matrixstats
 | 
			
		||||
                             r-quadprog
 | 
			
		||||
                             r-stringr))
 | 
			
		||||
    (native-inputs (list r-knitr))
 | 
			
		||||
    (home-page "https://github.com/sjczheng/EpiDISH")
 | 
			
		||||
    (synopsis "Epigenetic dissection of intra-sample-heterogeneity")
 | 
			
		||||
    (description
 | 
			
		||||
     "@code{EpiDISH} is a R package to infer the proportions of a priori known
 | 
			
		||||
cell-types present in a sample representing a mixture of such cell-types.
 | 
			
		||||
Right now, the package can be used on DNAm data of whole blood, generic
 | 
			
		||||
epithelial tissue and breast tissue.  Besides, the package provides a function
 | 
			
		||||
that allows the identification of differentially methylated cell-types and
 | 
			
		||||
their directionality of change in Epigenome-Wide Association Studies.")
 | 
			
		||||
    (license license:gpl2)))
 | 
			
		||||
 | 
			
		||||
(define-public r-fastseg
 | 
			
		||||
  (package
 | 
			
		||||
    (name "r-fastseg")
 | 
			
		||||
| 
						 | 
				
			
			@ -10314,6 +10345,49 @@ includes methods formerly found in the scran package, and the new fast and
 | 
			
		|||
comprehensive scDblFinder method.")
 | 
			
		||||
    (license license:gpl3)))
 | 
			
		||||
 | 
			
		||||
;; This is a CRAN package, but it depends on packages from Bioconductor.
 | 
			
		||||
(define-public r-scgate
 | 
			
		||||
  (package
 | 
			
		||||
    (name "r-scgate")
 | 
			
		||||
    (version "1.6.0")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method url-fetch)
 | 
			
		||||
       (uri (cran-uri "scGate" version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32 "0h12d36zjc6fvxbhkxrzbpvw49z9fgyn1jc941q70ajw1yqi2hhh"))))
 | 
			
		||||
    (properties `((upstream-name . "scGate")))
 | 
			
		||||
    (build-system r-build-system)
 | 
			
		||||
    (propagated-inputs
 | 
			
		||||
     (list r-biocparallel
 | 
			
		||||
           r-dplyr
 | 
			
		||||
           r-ggplot2
 | 
			
		||||
           r-ggridges
 | 
			
		||||
           r-patchwork
 | 
			
		||||
           r-reshape2
 | 
			
		||||
           r-seurat
 | 
			
		||||
           r-ucell))
 | 
			
		||||
    (native-inputs (list r-knitr))
 | 
			
		||||
    (home-page "https://github.com/carmonalab/scGate")
 | 
			
		||||
    (synopsis
 | 
			
		||||
     "Marker-based cell type purification for single-cell sequencing data")
 | 
			
		||||
    (description
 | 
			
		||||
     "This package provides a method to purify a cell type or cell population
 | 
			
		||||
of interest from heterogeneous datasets.  scGate package automatizes
 | 
			
		||||
marker-based purification of specific cell populations, without requiring
 | 
			
		||||
training data or reference gene expression profiles.  scGate takes as input a
 | 
			
		||||
gene expression matrix stored in a Seurat object and a @acronym{GM, gating
 | 
			
		||||
model}, consisting of a set of marker genes that define the cell population of
 | 
			
		||||
interest.  It evaluates the strength of signature marker expression in each
 | 
			
		||||
cell using the rank-based method UCell, and then performs @acronym{kNN,
 | 
			
		||||
k-nearest neighbor} smoothing by calculating the mean UCell score across
 | 
			
		||||
neighboring cells.  kNN-smoothing aims at compensating for the large degree of
 | 
			
		||||
sparsity in scRNAseq data.  Finally, a universal threshold over kNN-smoothed
 | 
			
		||||
signature scores is applied in binary decision trees generated from the
 | 
			
		||||
user-provided gating model, to annotate cells as either “pure” or “impure”,
 | 
			
		||||
with respect to the cell population of interest.")
 | 
			
		||||
    (license license:gpl3)))
 | 
			
		||||
 | 
			
		||||
;; This is a CRAN package, but it depends on packages from Bioconductor.
 | 
			
		||||
(define-public r-scistreer
 | 
			
		||||
  (package
 | 
			
		||||
| 
						 | 
				
			
			@ -10436,6 +10510,38 @@ expression information.  The package functions as a wrapper for Startrac and
 | 
			
		|||
powerTCR R packages.")
 | 
			
		||||
    (license license:gpl2)))
 | 
			
		||||
 | 
			
		||||
(define-public r-scrnaseq
 | 
			
		||||
  (package
 | 
			
		||||
    (name "r-scrnaseq")
 | 
			
		||||
    (version "2.16.0")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method url-fetch)
 | 
			
		||||
       (uri (bioconductor-uri "scRNAseq" version
 | 
			
		||||
                              'experiment))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32 "0dbh3sqq7lkkdf7vls5qg7fbn6y74c7hsigb4d69pvk934ll88aw"))))
 | 
			
		||||
    (properties `((upstream-name . "scRNAseq")))
 | 
			
		||||
    (build-system r-build-system)
 | 
			
		||||
    (propagated-inputs (list r-annotationdbi
 | 
			
		||||
                             r-annotationhub
 | 
			
		||||
                             r-biocgenerics
 | 
			
		||||
                             r-ensembldb
 | 
			
		||||
                             r-experimenthub
 | 
			
		||||
                             r-genomicfeatures
 | 
			
		||||
                             r-genomicranges
 | 
			
		||||
                             r-s4vectors
 | 
			
		||||
                             r-singlecellexperiment
 | 
			
		||||
                             r-summarizedexperiment))
 | 
			
		||||
    (native-inputs (list r-knitr))
 | 
			
		||||
    (home-page "https://bioconductor.org/packages/scRNAseq")
 | 
			
		||||
    (synopsis "Collection of public single-cell RNA-seq datasets")
 | 
			
		||||
    (description
 | 
			
		||||
     "This package contains gene-level counts for a collection of public
 | 
			
		||||
@code{scRNA-seq} datasets, provided as @code{SingleCellExperiment} objects
 | 
			
		||||
with cell- and gene-level metadata.")
 | 
			
		||||
    (license license:cc0)))
 | 
			
		||||
 | 
			
		||||
(define-public r-scry
 | 
			
		||||
  (package
 | 
			
		||||
    (name "r-scry")
 | 
			
		||||
| 
						 | 
				
			
			@ -10793,6 +10899,44 @@ identifier translation via the GDC API.")
 | 
			
		|||
     "This package implements widgets to provide user interfaces.")
 | 
			
		||||
    (license license:artistic2.0)))
 | 
			
		||||
 | 
			
		||||
(define-public r-toast
 | 
			
		||||
  (package
 | 
			
		||||
    (name "r-toast")
 | 
			
		||||
    (version "1.16.0")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method url-fetch)
 | 
			
		||||
       (uri (bioconductor-uri "TOAST" version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32 "00wpgs2zdrgrh9xmp6m5h9xgv85mhdi36qvwg9gwbz9i7cfabmy1"))))
 | 
			
		||||
    (properties `((upstream-name . "TOAST")))
 | 
			
		||||
    (build-system r-build-system)
 | 
			
		||||
    (propagated-inputs (list r-corpcor
 | 
			
		||||
                             r-doparallel
 | 
			
		||||
                             r-epidish
 | 
			
		||||
                             r-ggally
 | 
			
		||||
                             r-ggplot2
 | 
			
		||||
                             r-limma
 | 
			
		||||
                             r-nnls
 | 
			
		||||
                             r-quadprog
 | 
			
		||||
                             r-summarizedexperiment
 | 
			
		||||
                             r-tidyr))
 | 
			
		||||
    (native-inputs (list r-knitr))
 | 
			
		||||
    (home-page "https://bioconductor.org/packages/TOAST")
 | 
			
		||||
    (synopsis "Tools for the analysis of heterogeneous tissues")
 | 
			
		||||
    (description
 | 
			
		||||
     "This package is devoted to analyzing high-throughput data (e.g. gene
 | 
			
		||||
expression microarray, DNA methylation microarray, RNA-seq) from complex
 | 
			
		||||
tissues.  Current functionalities include
 | 
			
		||||
 | 
			
		||||
@enumerate
 | 
			
		||||
@item detect cell-type specific or cross-cell type differential signals
 | 
			
		||||
@item tree-based differential analysis
 | 
			
		||||
@item improve variable selection in reference-free deconvolution
 | 
			
		||||
@item partial reference-free deconvolution with prior knowledge.
 | 
			
		||||
@end enumerate")
 | 
			
		||||
    (license license:gpl2)))
 | 
			
		||||
 | 
			
		||||
;; TODO: check javascript
 | 
			
		||||
(define-public r-trackviewer
 | 
			
		||||
  (package
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -130,6 +130,7 @@
 | 
			
		|||
  #:use-module (gnu packages pdf)
 | 
			
		||||
  #:use-module (gnu packages perl)
 | 
			
		||||
  #:use-module (gnu packages perl-check)
 | 
			
		||||
  #:use-module (gnu packages perl-web)
 | 
			
		||||
  #:use-module (gnu packages pkg-config)
 | 
			
		||||
  #:use-module (gnu packages popt)
 | 
			
		||||
  #:use-module (gnu packages protobuf)
 | 
			
		||||
| 
						 | 
				
			
			@ -574,6 +575,30 @@ BED, GFF/GTF, VCF.")
 | 
			
		|||
whole-genome bisulfite sequencing (WGBS) reads from directional protocol.")
 | 
			
		||||
    (license license:asl2.0)))
 | 
			
		||||
 | 
			
		||||
(define-public bustools
 | 
			
		||||
  (package
 | 
			
		||||
    (name "bustools")
 | 
			
		||||
    (version "0.43.2")
 | 
			
		||||
    (source (origin
 | 
			
		||||
              (method git-fetch)
 | 
			
		||||
              (uri (git-reference
 | 
			
		||||
                    (url "https://github.com/BUStools/bustools")
 | 
			
		||||
                    (commit (string-append "v" version))))
 | 
			
		||||
              (file-name (git-file-name name version))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "068kjlc4d528269nl5mc3j8h2c95r1v545d3fi1iw1ckg8rba0hg"))))
 | 
			
		||||
    (build-system cmake-build-system)
 | 
			
		||||
    (arguments (list #:tests? #f))          ;no test target
 | 
			
		||||
    (inputs (list zlib))
 | 
			
		||||
    (home-page "https://bustools.github.io")
 | 
			
		||||
    (synopsis "Tools for working with BUS files")
 | 
			
		||||
    (description "bustools is a program for manipulating BUS files for single
 | 
			
		||||
cell RNA-Seq datasets.  It can be used to error correct barcodes, collapse
 | 
			
		||||
UMIs, produce gene count or transcript compatibility count matrices, and is useful
 | 
			
		||||
for many other tasks.")
 | 
			
		||||
    (license license:bsd-2)))
 | 
			
		||||
 | 
			
		||||
(define-public cellsnp-lite
 | 
			
		||||
  ;; Last release is from November 2021 and does not contain fixes.
 | 
			
		||||
  (let ((commit "0885d746b0b1ea65c8ef92f8943ca7669ca9734a")
 | 
			
		||||
| 
						 | 
				
			
			@ -617,6 +642,50 @@ Compared to cellSNP, this package is more efficient with higher speed and less
 | 
			
		|||
memory usage.")
 | 
			
		||||
      (license license:asl2.0))))
 | 
			
		||||
 | 
			
		||||
(define-public cpat
 | 
			
		||||
  (package
 | 
			
		||||
    (name "cpat")
 | 
			
		||||
    (version "3.0.4")
 | 
			
		||||
    (source (origin
 | 
			
		||||
              (method url-fetch)
 | 
			
		||||
              (uri (pypi-uri "CPAT" version))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "0dfrwwbhv1n4nh2a903d1qfb30fgxgya89sa70aci3wzf8h2z0vd"))
 | 
			
		||||
              (modules '((guix build utils)))
 | 
			
		||||
              (snippet
 | 
			
		||||
               '(for-each delete-file-recursively
 | 
			
		||||
                          (list ".eggs"
 | 
			
		||||
                                "lib/__pycache__/"
 | 
			
		||||
                                "lib/cpmodule/__pycache__/")))))
 | 
			
		||||
    (build-system pyproject-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     (list
 | 
			
		||||
      #:phases
 | 
			
		||||
      '(modify-phases %standard-phases
 | 
			
		||||
         (replace 'check
 | 
			
		||||
           (lambda* (#:key tests? #:allow-other-keys)
 | 
			
		||||
             (when tests?
 | 
			
		||||
               (with-directory-excursion "test"
 | 
			
		||||
                 ;; There is no test4.fa
 | 
			
		||||
                 (substitute* "test.sh"
 | 
			
		||||
                   ((".*-g test4.fa.*") ""))
 | 
			
		||||
                 (invoke "bash" "test.sh"))))))))
 | 
			
		||||
    (propagated-inputs
 | 
			
		||||
     (list python-numpy python-pysam))
 | 
			
		||||
    (inputs
 | 
			
		||||
     (list r-minimal))
 | 
			
		||||
    (home-page "https://wlcb.oit.uci.edu/cpat/")
 | 
			
		||||
    (synopsis "Alignment-free distinction between coding and noncoding RNA")
 | 
			
		||||
    (description
 | 
			
		||||
     "CPAT is a method to distinguish coding and noncoding RNA by using a
 | 
			
		||||
logistic regression model based on four pure sequence-based, linguistic
 | 
			
		||||
features: ORF size, ORF coverage, Ficket TESTCODE, and Hexamer usage bias.
 | 
			
		||||
Linguistic features based method does not require other genomes or protein
 | 
			
		||||
databases to perform alignment and is more robust.  Because it is
 | 
			
		||||
alignment-free, it runs much faster and also easier to use.")
 | 
			
		||||
    (license license:gpl2+)))
 | 
			
		||||
 | 
			
		||||
(define-public pbcopper
 | 
			
		||||
  (package
 | 
			
		||||
    (name "pbcopper")
 | 
			
		||||
| 
						 | 
				
			
			@ -1070,6 +1139,42 @@ of single-cell data using Seurat, RcppML nmf, SingleCellExperiments and
 | 
			
		|||
similar.")
 | 
			
		||||
      (license license:gpl2+))))
 | 
			
		||||
 | 
			
		||||
(define-public r-stacas
 | 
			
		||||
  (package
 | 
			
		||||
    (name "r-stacas")
 | 
			
		||||
    (version "2.2.0")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method git-fetch)
 | 
			
		||||
       (uri (git-reference
 | 
			
		||||
             (url "https://github.com/carmonalab/STACAS")
 | 
			
		||||
             (commit version)))
 | 
			
		||||
       (file-name (git-file-name name version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32 "13i0h5i6vlbrb8ndq9gr81560z9d74b2c7m3rjfzls01irjza9hm"))))
 | 
			
		||||
    (properties `((upstream-name . "STACAS")))
 | 
			
		||||
    (build-system r-build-system)
 | 
			
		||||
    (propagated-inputs
 | 
			
		||||
     (list r-biocneighbors
 | 
			
		||||
           r-biocparallel
 | 
			
		||||
           r-ggplot2
 | 
			
		||||
           r-ggridges
 | 
			
		||||
           r-pbapply
 | 
			
		||||
           r-r-utils
 | 
			
		||||
           r-seurat))
 | 
			
		||||
    (home-page "https://github.com/carmonalab/STACAS")
 | 
			
		||||
    (synopsis "Sub-type anchoring correction for alignment in Seurat")
 | 
			
		||||
    (description
 | 
			
		||||
     "This package implements methods for batch correction and integration of
 | 
			
		||||
scRNA-seq datasets, based on the Seurat anchor-based integration framework.
 | 
			
		||||
In particular, STACAS is optimized for the integration of heterogenous
 | 
			
		||||
datasets with only limited overlap between cell sub-types (e.g. TIL sets of
 | 
			
		||||
CD8 from tumor with CD8/CD4 T cells from lymphnode), for which the default
 | 
			
		||||
Seurat alignment methods would tend to over-correct biological differences.
 | 
			
		||||
The 2.0 version of the package allows the users to incorporate explicit
 | 
			
		||||
information about cell-types in order to assist the integration process.")
 | 
			
		||||
    (license license:gpl3)))
 | 
			
		||||
 | 
			
		||||
(define-public r-stringendo
 | 
			
		||||
  (let ((commit "15594b1bba11048a812874bafec0eea1dcc8618a")
 | 
			
		||||
        (revision "1"))
 | 
			
		||||
| 
						 | 
				
			
			@ -1156,6 +1261,32 @@ shape.  This package provides an @code{htmlwidget} for building streamgraph
 | 
			
		|||
visualizations.")
 | 
			
		||||
      (license license:expat))))
 | 
			
		||||
 | 
			
		||||
(define-public r-wasabi
 | 
			
		||||
  (let ((commit "8c33cabde8d18c2657cd6e38e7cb834f87cf9846")
 | 
			
		||||
        (revision "1"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "r-wasabi")
 | 
			
		||||
      (version (git-version "1.0.1" revision commit))
 | 
			
		||||
      (source
 | 
			
		||||
       (origin
 | 
			
		||||
         (method git-fetch)
 | 
			
		||||
         (uri (git-reference
 | 
			
		||||
               (url "https://github.com/COMBINE-lab/wasabi")
 | 
			
		||||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name name version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "0rpdj6n4cnx8n2zl60dzgl638474sg49dknwi9x3qb4g56dpphfa"))))
 | 
			
		||||
      (properties `((upstream-name . "wasabi")))
 | 
			
		||||
      (build-system r-build-system)
 | 
			
		||||
      (propagated-inputs (list r-data-table r-rhdf5 r-rjson))
 | 
			
		||||
      (home-page "https://github.com/COMBINE-lab/wasabi")
 | 
			
		||||
      (synopsis "Use Sailfish and Salmon with Sleuth")
 | 
			
		||||
      (description
 | 
			
		||||
       "This package converts the output of the Sailfish and Salmon RNA-seq
 | 
			
		||||
quantification tools so that it can be used with the Sleuth differential
 | 
			
		||||
analysis package.")
 | 
			
		||||
      (license license:bsd-3))))
 | 
			
		||||
 | 
			
		||||
(define-public pbbam
 | 
			
		||||
  (package
 | 
			
		||||
    (name "pbbam")
 | 
			
		||||
| 
						 | 
				
			
			@ -2259,6 +2390,40 @@ sequencing data and the end result are tables of UMI-unique DamID and CEL-Seq
 | 
			
		|||
counts.")
 | 
			
		||||
    (license license:expat)))
 | 
			
		||||
 | 
			
		||||
(define-public python-snaptools
 | 
			
		||||
  (package
 | 
			
		||||
    (name "python-snaptools")
 | 
			
		||||
    (version "1.4.8")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method url-fetch)
 | 
			
		||||
       (uri (pypi-uri "snaptools" version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32
 | 
			
		||||
         "1s5373g5jjbshh3q39zy7dlxr7nda6ksxq9d1gw46h82c4fsmfbn"))))
 | 
			
		||||
    (build-system pyproject-build-system)
 | 
			
		||||
    (propagated-inputs
 | 
			
		||||
     (list python-future
 | 
			
		||||
           python-h5py
 | 
			
		||||
           python-louvain
 | 
			
		||||
           python-numpy
 | 
			
		||||
           python-pybedtools
 | 
			
		||||
           python-pysam))
 | 
			
		||||
    (home-page "https://github.com/r3fang/SnapTools")
 | 
			
		||||
    (synopsis "Tools for processing snap files" )
 | 
			
		||||
    (description
 | 
			
		||||
     "@code{SnapTools} can operate on snap files the following types of
 | 
			
		||||
operations:
 | 
			
		||||
 | 
			
		||||
@itemize
 | 
			
		||||
@item index the reference genome before alignment;
 | 
			
		||||
@item align reads to the corresponding reference genome;
 | 
			
		||||
@item pre-process by convert pair-end reads into fragments, checking the
 | 
			
		||||
  mapping quality score, alingment and filtration;
 | 
			
		||||
@item create the cell-by-bin matrix.
 | 
			
		||||
@end itemize")
 | 
			
		||||
    (license license:asl2.0)))
 | 
			
		||||
 | 
			
		||||
(define-public python-bioframe
 | 
			
		||||
  (package
 | 
			
		||||
    (name "python-bioframe")
 | 
			
		||||
| 
						 | 
				
			
			@ -4893,6 +5058,126 @@ be of arbitrary length. Repeats with pattern size in the range from 1 to 2000
 | 
			
		|||
bases are detected.")
 | 
			
		||||
    (license license:agpl3+)))
 | 
			
		||||
 | 
			
		||||
(define-public trinityrnaseq
 | 
			
		||||
  (package
 | 
			
		||||
    (name "trinityrnaseq")
 | 
			
		||||
    (version "2.13.2")
 | 
			
		||||
    (source (origin
 | 
			
		||||
              (method git-fetch)
 | 
			
		||||
              (uri (git-reference
 | 
			
		||||
                    (url "https://github.com/trinityrnaseq/trinityrnaseq.git")
 | 
			
		||||
                    (commit (string-append "Trinity-v" version))
 | 
			
		||||
                    (recursive? #true)))
 | 
			
		||||
              (file-name (git-file-name name version))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "1qszrxqbx4q5pavpgm4rkrh1z1v1mf7qx83vv3fnlqdmncnsf1gv"))))
 | 
			
		||||
    (build-system gnu-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     (list
 | 
			
		||||
      #:test-target "test"
 | 
			
		||||
      #:modules
 | 
			
		||||
      '((guix build gnu-build-system)
 | 
			
		||||
        (guix build utils)
 | 
			
		||||
        (ice-9 match)
 | 
			
		||||
        (srfi srfi-1))
 | 
			
		||||
      #:make-flags
 | 
			
		||||
      #~(list (string-append "CC=" #$(cc-for-target)))
 | 
			
		||||
      #:phases
 | 
			
		||||
      #~(modify-phases %standard-phases
 | 
			
		||||
          (replace 'configure
 | 
			
		||||
            (lambda _
 | 
			
		||||
              (setenv "SHELL" (which "sh"))
 | 
			
		||||
              (setenv "CONFIG_SHELL" (which "sh"))
 | 
			
		||||
              ;; Do not require version.h, which triggers a local build of a
 | 
			
		||||
              ;; vendored htslib.
 | 
			
		||||
              (substitute* "trinity-plugins/bamsifter/Makefile"
 | 
			
		||||
                (("sift_bam_max_cov.cpp htslib/version.h")
 | 
			
		||||
                 "sift_bam_max_cov.cpp"))))
 | 
			
		||||
          (add-after 'build 'build-plugins
 | 
			
		||||
            (lambda _
 | 
			
		||||
              ;; Run this in the subdirectory to avoid running the
 | 
			
		||||
              ;; tests right here.
 | 
			
		||||
              (with-directory-excursion "trinity-plugins"
 | 
			
		||||
                (invoke "make" "plugins"))))
 | 
			
		||||
          ;; The install script uses rsync, provides no overrides for the
 | 
			
		||||
          ;; default location at /usr/local/bin, and patching it would change
 | 
			
		||||
          ;; all lines that do something.
 | 
			
		||||
          (replace 'install
 | 
			
		||||
            (lambda* (#:key inputs #:allow-other-keys)
 | 
			
		||||
              (let ((share (string-append #$output "/share/trinity/"))
 | 
			
		||||
                    (bin   (string-append #$output "/bin/")))
 | 
			
		||||
                (mkdir-p bin)
 | 
			
		||||
                (copy-recursively "." share)
 | 
			
		||||
                (delete-file (string-append share "/Chrysalis/build/CMakeFiles/CMakeOutput.log"))
 | 
			
		||||
                (delete-file (string-append share "/Inchworm/build/CMakeFiles/CMakeOutput.log"))
 | 
			
		||||
 | 
			
		||||
                (wrap-program (string-append share "Trinity")
 | 
			
		||||
                  `("R_LIBS_SITE" ":" = (,(getenv "R_LIBS_SITE")))
 | 
			
		||||
                  `("PERL5LIB"    ":" = (,(getenv "PERL5LIB")))
 | 
			
		||||
                  `("PYTHONPATH"  ":" = (,(getenv "GUIX_PYTHONPATH")))
 | 
			
		||||
                  `("PATH"        ":" =
 | 
			
		||||
                    ,(cons (string-append share "/trinity-plugins/BIN")
 | 
			
		||||
                           (filter-map (match-lambda
 | 
			
		||||
                                         ((name . dir)
 | 
			
		||||
                                          (string-append dir "/bin")))
 | 
			
		||||
                                       inputs))))
 | 
			
		||||
                (symlink (string-append share "Trinity")
 | 
			
		||||
                         (string-append bin "Trinity"))))))))
 | 
			
		||||
    (inputs
 | 
			
		||||
     (list blast+
 | 
			
		||||
           bowtie
 | 
			
		||||
           fastqc
 | 
			
		||||
           hisat
 | 
			
		||||
           htslib
 | 
			
		||||
           icedtea-8
 | 
			
		||||
           jellyfish
 | 
			
		||||
           kallisto
 | 
			
		||||
           multiqc
 | 
			
		||||
           perl
 | 
			
		||||
           perl-uri-escape
 | 
			
		||||
           python-numpy
 | 
			
		||||
           python-wrapper
 | 
			
		||||
           r-ape
 | 
			
		||||
           r-argparse
 | 
			
		||||
           r-biobase
 | 
			
		||||
           r-ctc
 | 
			
		||||
           r-deseq2
 | 
			
		||||
           r-edger
 | 
			
		||||
           r-fastcluster
 | 
			
		||||
           r-glimma
 | 
			
		||||
           r-goplot
 | 
			
		||||
           r-goseq
 | 
			
		||||
           r-gplots
 | 
			
		||||
           r-minimal
 | 
			
		||||
           r-qvalue
 | 
			
		||||
           r-rots
 | 
			
		||||
           r-sm
 | 
			
		||||
           r-tidyverse
 | 
			
		||||
           rsem
 | 
			
		||||
           salmon
 | 
			
		||||
           samtools
 | 
			
		||||
           sra-tools
 | 
			
		||||
           star
 | 
			
		||||
           zlib))
 | 
			
		||||
    (propagated-inputs
 | 
			
		||||
     (list coreutils
 | 
			
		||||
           gzip
 | 
			
		||||
           which))
 | 
			
		||||
    (native-inputs (list cmake))
 | 
			
		||||
    (home-page "https://github.com/trinityrnaseq/trinityrnaseq/wiki")
 | 
			
		||||
    (synopsis "Trinity RNA-Seq de novo transcriptome assembly")
 | 
			
		||||
    (description "Trinity assembles transcript sequences from Illumina RNA-Seq
 | 
			
		||||
data.  Trinity represents a novel method for the efficient and robust de novo
 | 
			
		||||
reconstruction of transcriptomes from RNA-seq data.  Trinity combines three
 | 
			
		||||
independent software modules: Inchworm, Chrysalis, and Butterfly, applied
 | 
			
		||||
sequentially to process large volumes of RNA-seq reads.  Trinity partitions
 | 
			
		||||
the sequence data into many individual de Bruijn graphs, each representing the
 | 
			
		||||
transcriptional complexity at a given gene or locus, and then processes each
 | 
			
		||||
graph independently to extract full-length splicing isoforms and to tease
 | 
			
		||||
apart transcripts derived from paralogous genes.")
 | 
			
		||||
    (license license:bsd-3)))
 | 
			
		||||
 | 
			
		||||
(define-public repeat-masker
 | 
			
		||||
  (package
 | 
			
		||||
    (name "repeat-masker")
 | 
			
		||||
| 
						 | 
				
			
			@ -10313,6 +10598,51 @@ data.  This package includes panel editing or renaming for FCS files,
 | 
			
		|||
bead-based normalization and debarcoding.")
 | 
			
		||||
      (license license:gpl3))))
 | 
			
		||||
 | 
			
		||||
(define-public r-projectils
 | 
			
		||||
  (let ((commit "cc73b97471b4b6eea11ce779b5c4a7dc5c3e1709")
 | 
			
		||||
        (revision "1"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "r-projectils")
 | 
			
		||||
      (version (git-version "3.0.0" revision commit))
 | 
			
		||||
      (source
 | 
			
		||||
       (origin
 | 
			
		||||
         (method git-fetch)
 | 
			
		||||
         (uri (git-reference
 | 
			
		||||
               (url "https://github.com/carmonalab/ProjecTILs")
 | 
			
		||||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name name version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "0dpzvbhhb9andnj7angpj32cgkwd6rs6qgpl6i21pqzcn6vqqhqw"))))
 | 
			
		||||
      (properties `((upstream-name . "ProjecTILs")))
 | 
			
		||||
      (build-system r-build-system)
 | 
			
		||||
      (propagated-inputs
 | 
			
		||||
       (list r-biocneighbors
 | 
			
		||||
             r-biocparallel
 | 
			
		||||
             r-dplyr
 | 
			
		||||
             r-ggplot2
 | 
			
		||||
             r-matrix
 | 
			
		||||
             r-patchwork
 | 
			
		||||
             r-pheatmap
 | 
			
		||||
             r-pracma
 | 
			
		||||
             r-purrr
 | 
			
		||||
             r-rcolorbrewer
 | 
			
		||||
             r-reshape2
 | 
			
		||||
             r-scales
 | 
			
		||||
             r-scgate
 | 
			
		||||
             r-seurat
 | 
			
		||||
             r-seuratobject
 | 
			
		||||
             r-stacas
 | 
			
		||||
             r-ucell
 | 
			
		||||
             r-umap
 | 
			
		||||
             r-uwot))
 | 
			
		||||
      (home-page "https://github.com/carmonalab/ProjecTILs")
 | 
			
		||||
      (synopsis "Reference-based analysis of scRNA-seq data")
 | 
			
		||||
      (description
 | 
			
		||||
       "This package implements methods to project single-cell RNA-seq data
 | 
			
		||||
onto a reference atlas, enabling interpretation of unknown cell transcriptomic
 | 
			
		||||
states in the the context of known, reference states.")
 | 
			
		||||
      (license license:gpl3))))
 | 
			
		||||
 | 
			
		||||
(define-public r-presto
 | 
			
		||||
  (let ((commit "052085db9c88aa70a28d11cc58ebc807999bf0ad")
 | 
			
		||||
        (revision "0"))
 | 
			
		||||
| 
						 | 
				
			
			@ -10527,6 +10857,43 @@ analysis of cell types, subtypes, transcriptional gradients,cell-cycle
 | 
			
		|||
variation, gene modules and their regulatory models and more.")
 | 
			
		||||
      (license license:expat))))
 | 
			
		||||
 | 
			
		||||
(define-public r-sleuth
 | 
			
		||||
  (package
 | 
			
		||||
    (name "r-sleuth")
 | 
			
		||||
    (version "0.30.1")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method git-fetch)
 | 
			
		||||
       (uri (git-reference
 | 
			
		||||
             (url "https://github.com/pachterlab/sleuth")
 | 
			
		||||
             (commit (string-append "v" version))))
 | 
			
		||||
       (file-name (git-file-name name version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32 "09xgc7r6iisjkk0c0wn0q56zy0aph386kphwixfzq4422y7vlqci"))))
 | 
			
		||||
    (properties `((upstream-name . "sleuth")))
 | 
			
		||||
    (build-system r-build-system)
 | 
			
		||||
    (propagated-inputs (list r-aggregation
 | 
			
		||||
                             r-data-table
 | 
			
		||||
                             r-dplyr
 | 
			
		||||
                             r-ggplot2
 | 
			
		||||
                             r-lazyeval
 | 
			
		||||
                             r-matrixstats
 | 
			
		||||
                             r-pheatmap
 | 
			
		||||
                             r-reshape2
 | 
			
		||||
                             r-rhdf5
 | 
			
		||||
                             r-shiny
 | 
			
		||||
                             r-tidyr))
 | 
			
		||||
    (native-inputs (list r-knitr))
 | 
			
		||||
    (home-page "https://github.com/pachterlab/sleuth")
 | 
			
		||||
    (synopsis "Tools for investigating RNA-Seq")
 | 
			
		||||
    (description
 | 
			
		||||
     "Sleuth is a program for differential analysis of RNA-Seq data.
 | 
			
		||||
It makes use of quantification uncertainty estimates obtained via Kallisto for
 | 
			
		||||
accurate differential analysis of isoforms or genes, allows testing in the
 | 
			
		||||
context of experiments with complex designs, and supports interactive
 | 
			
		||||
exploratory data analysis via sleuth live.")
 | 
			
		||||
    (license license:gpl3)))
 | 
			
		||||
 | 
			
		||||
(define-public r-snapatac
 | 
			
		||||
  (package
 | 
			
		||||
    (name "r-snapatac")
 | 
			
		||||
| 
						 | 
				
			
			@ -16602,7 +16969,16 @@ the HiCExplorer and pyGenomeTracks packages.")
 | 
			
		|||
       (file-name (git-file-name name version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32
 | 
			
		||||
         "1yavgxry38g326z10bclvdf8glmma05fxj5m73h15m1r2l9xmw3v"))))
 | 
			
		||||
         "1yavgxry38g326z10bclvdf8glmma05fxj5m73h15m1r2l9xmw3v"))
 | 
			
		||||
       (modules '((guix build utils)))
 | 
			
		||||
       ;; setup.py is malformed. The requirements are defined using a catchall
 | 
			
		||||
       ;; pattern for the patch version number. This has been fixed in version
 | 
			
		||||
       ;; 3.7.3, but we cannot upgrade to this version yet, since some Guix
 | 
			
		||||
       ;; packages are not new enough. (See upstream commit
 | 
			
		||||
       ;; 4845c715ec7b105e938d0c2426e27d0181690bfe for the fix).
 | 
			
		||||
       (snippet '(substitute* "setup.py"
 | 
			
		||||
                   (("\\.\\*")
 | 
			
		||||
                    "")))))
 | 
			
		||||
    (build-system pyproject-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     (list
 | 
			
		||||
| 
						 | 
				
			
			@ -20324,24 +20700,28 @@ aligner.")
 | 
			
		|||
       (uri (pypi-uri "scvelo" version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32 "0h5ha1459ljs0qgpnlfsw592i8dxqn6p9bl08l1ikpwk36baxb7z"))))
 | 
			
		||||
    (build-system python-build-system)
 | 
			
		||||
    (build-system pyproject-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     `(#:phases
 | 
			
		||||
       (modify-phases %standard-phases
 | 
			
		||||
     (list
 | 
			
		||||
       #:test-flags
 | 
			
		||||
       ;; XXX: these two tests fail for unknown reasons
 | 
			
		||||
       '(list "-k" "not test_perfect_fit and not test_perfect_fit_2d")
 | 
			
		||||
       #:phases
 | 
			
		||||
       #~(modify-phases %standard-phases
 | 
			
		||||
           ;; Numba needs a writable dir to cache functions.
 | 
			
		||||
           (add-before 'check 'set-numba-cache-dir
 | 
			
		||||
             (lambda _
 | 
			
		||||
               (setenv "NUMBA_CACHE_DIR" "/tmp")))
 | 
			
		||||
           (replace 'check
 | 
			
		||||
           (lambda* (#:key outputs tests? #:allow-other-keys)
 | 
			
		||||
             (lambda* (#:key tests? test-flags #:allow-other-keys)
 | 
			
		||||
               (when tests?
 | 
			
		||||
                 ;; The discovered test file names must match the names of the
 | 
			
		||||
                 ;; compiled files, so we cannot run the tests from
 | 
			
		||||
                 ;; /tmp/guix-build-*.
 | 
			
		||||
                 (with-directory-excursion
 | 
			
		||||
                   (string-append (assoc-ref outputs "out")
 | 
			
		||||
                     (string-append #$output
 | 
			
		||||
                                    "/lib/python3.10/site-packages/scvelo/core/tests/")
 | 
			
		||||
                 (invoke "pytest" "-v"))))))))
 | 
			
		||||
                   (apply invoke "pytest" "-v" test-flags))))))))
 | 
			
		||||
    (propagated-inputs
 | 
			
		||||
     (list python-anndata
 | 
			
		||||
           python-hnswlib
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,7 +1,7 @@
 | 
			
		|||
;;; GNU Guix --- Functional package management for GNU
 | 
			
		||||
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
 | 
			
		||||
;;; Copyright © 2014, 2015, 2018, 2019 Mark H Weaver <mhw@netris.org>
 | 
			
		||||
;;; Copyright © 2017, 2020 Efraim Flashner <efraim@flashner.co.il>
 | 
			
		||||
;;; Copyright © 2017, 2020, 2024 Efraim Flashner <efraim@flashner.co.il>
 | 
			
		||||
;;; Copyright © 2018, 2020, 2022 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
 | 
			
		||||
;;; Copyright © 2019 Carl Dong <contact@carldong.me>
 | 
			
		||||
;;; Copyright © 2019 Léo Le Bouter <lle-bout@zaclys.net>
 | 
			
		||||
| 
						 | 
				
			
			@ -323,6 +323,9 @@ or false to signal an error."
 | 
			
		|||
     ((string=? system "powerpc64-linux") "/lib/ld64.so.1")
 | 
			
		||||
     ((string=? system "alpha-linux") "/lib/ld-linux.so.2")
 | 
			
		||||
 | 
			
		||||
     ;; TODO: Differentiate between x86_64-linux-gnu and x86_64-linux-gnux32.
 | 
			
		||||
     ((string=? system "x86_64-linux-gnux32") "/lib/ld-linux-x32.so.2")
 | 
			
		||||
 | 
			
		||||
     ;; XXX: This one is used bare-bones, without a libc, so add a case
 | 
			
		||||
     ;; here just so we can keep going.
 | 
			
		||||
     ((string=? system "arm-eabi") "no-ld.so")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -39,7 +39,7 @@
 | 
			
		|||
;;; Copyright © 2021 Hugo Lecomte <hugo.lecomte@inria.fr>
 | 
			
		||||
;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be>
 | 
			
		||||
;;; Copyright © 2022, 2023 David Elsing <david.elsing@posteo.net>
 | 
			
		||||
;;; Copyright © 2022 Sharlatan Hellseher <sharlatanus@gmail.com>
 | 
			
		||||
;;; Copyright © 2022, 2023 Sharlatan Hellseher <sharlatanus@gmail.com>
 | 
			
		||||
;;; Copyright © 2022 jgart <jgart@dismail.de>
 | 
			
		||||
;;; Copyright © 2023 Luis Felipe López Acevedo <luis.felipe.la@protonmail.com>
 | 
			
		||||
;;; Copyright © 2023 Timo Wilken <guix@twilken.net>
 | 
			
		||||
| 
						 | 
				
			
			@ -1069,7 +1069,7 @@ but it works for any C/C++ project.")
 | 
			
		|||
(define-public actionlint
 | 
			
		||||
  (package
 | 
			
		||||
    (name "actionlint")
 | 
			
		||||
    (version "1.6.23")
 | 
			
		||||
    (version "1.6.26")
 | 
			
		||||
    (source (origin
 | 
			
		||||
              (method git-fetch)
 | 
			
		||||
              (uri (git-reference
 | 
			
		||||
| 
						 | 
				
			
			@ -1078,7 +1078,7 @@ but it works for any C/C++ project.")
 | 
			
		|||
              (file-name (git-file-name name version))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "07is4920a40zrl7mfldg0az2pisi7f6dv4vh3ijn3nzb4i7fqbni"))))
 | 
			
		||||
                "0j4ni2cryvqn3qim1r6q6sargh0wig6l4vjjwc40cgqvvkrdla04"))))
 | 
			
		||||
    (build-system go-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     '(#:import-path "github.com/rhysd/actionlint/cmd/actionlint"
 | 
			
		||||
| 
						 | 
				
			
			@ -1087,7 +1087,7 @@ but it works for any C/C++ project.")
 | 
			
		|||
    (inputs (list go-github-com-fatih-color
 | 
			
		||||
                  go-github-com-mattn-go-colorable
 | 
			
		||||
                  go-github-com-mattn-go-runewidth
 | 
			
		||||
                  go-github-com-robfig-cron-1.2
 | 
			
		||||
                  go-github-com-robfig-cron
 | 
			
		||||
                  go-golang.org-x-sync-errgroup
 | 
			
		||||
                  go-golang.org-x-sync-semaphore
 | 
			
		||||
                  go-gopkg-in-yaml-v3))
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -21,6 +21,7 @@
 | 
			
		|||
  #:use-module (guix build-system go)
 | 
			
		||||
  #:use-module (guix git-download)
 | 
			
		||||
  #:use-module (gnu packages golang)
 | 
			
		||||
  #:use-module (gnu packages golang-web)
 | 
			
		||||
  #:use-module (gnu packages version-control)
 | 
			
		||||
  #:use-module (gnu packages textutils)
 | 
			
		||||
  #:use-module ((guix licenses) #:prefix license:)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -7437,6 +7437,10 @@ consistency with the base functions in the evd package is provided, so that user
 | 
			
		|||
can safely interchange most code.")
 | 
			
		||||
    (license license:gpl3)))
 | 
			
		||||
 | 
			
		||||
;; This package contains minified JavaScript: jExcel CE Spreadsheet,
 | 
			
		||||
;; version 3.9.1.  It is not clear how to obtain this particular
 | 
			
		||||
;; version as there is no tag for 3.9.1.  There only is 3.6.1 and
 | 
			
		||||
;; 4.2.0 at https://github.com/jspreadsheet/ce.
 | 
			
		||||
(define-public r-excelr
 | 
			
		||||
  (package
 | 
			
		||||
    (name "r-excelr")
 | 
			
		||||
| 
						 | 
				
			
			@ -7452,37 +7456,44 @@ can safely interchange most code.")
 | 
			
		|||
    (properties `((upstream-name . "excelR")))
 | 
			
		||||
    (build-system r-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     `(#:phases
 | 
			
		||||
       (modify-phases %standard-phases
 | 
			
		||||
     (list
 | 
			
		||||
      #:modules
 | 
			
		||||
      '((guix build r-build-system)
 | 
			
		||||
        (guix build minify-build-system)
 | 
			
		||||
        (guix build utils))
 | 
			
		||||
      #:imported-modules
 | 
			
		||||
      `(,@%r-build-system-modules
 | 
			
		||||
        (guix build minify-build-system))
 | 
			
		||||
      #:phases
 | 
			
		||||
      #~(modify-phases (@ (guix build r-build-system) %standard-phases)
 | 
			
		||||
          (add-after 'unpack 'process-javascript
 | 
			
		||||
            (lambda* (#:key inputs #:allow-other-keys)
 | 
			
		||||
             (with-directory-excursion "inst/htmlwidgets/lib/jexcel/js/"
 | 
			
		||||
               (let ((source (assoc-ref inputs "js-jexcel"))
 | 
			
		||||
                     (target "jexcel.min.js"))
 | 
			
		||||
                 (format #true "Processing ~a --> ~a~%"
 | 
			
		||||
                         source target)
 | 
			
		||||
                 (invoke "esbuild" source "--minify"
 | 
			
		||||
                         (string-append "--outfile=" target)))))))))
 | 
			
		||||
              (with-directory-excursion "inst/htmlwidgets/lib/jexcel/js"
 | 
			
		||||
                (minify (search-input-file inputs "/dist/jexcel.js")
 | 
			
		||||
                        #:target "jexcel.min.js")))))))
 | 
			
		||||
    (propagated-inputs (list r-htmlwidgets r-jsonlite))
 | 
			
		||||
    (native-inputs
 | 
			
		||||
     `(("esbuild" ,esbuild)
 | 
			
		||||
       ;; There is no tag for this particular commit, but comparison of the
 | 
			
		||||
       ;; contents of the JavaScript files point to this commit as the most
 | 
			
		||||
       ;; likely source.
 | 
			
		||||
       ("js-jexcel"
 | 
			
		||||
        ,(origin
 | 
			
		||||
           (method url-fetch)
 | 
			
		||||
           (uri (string-append "https://raw.githubusercontent.com/jspreadsheet/ce/"
 | 
			
		||||
                               "8af1960f76e6803bebc5750013d2ebe95354e88a/dist/jexcel.js"))
 | 
			
		||||
     (list esbuild
 | 
			
		||||
           ;; There is no tag for this particular commit, but comparison of
 | 
			
		||||
           ;; the contents of the JavaScript files point to this commit as the
 | 
			
		||||
           ;; most likely source.
 | 
			
		||||
           (let* ((commit "8af1960f76e6803bebc5750013d2ebe95354e88a")
 | 
			
		||||
                  (version (git-version "3.9.1" "0" commit)))
 | 
			
		||||
             (origin
 | 
			
		||||
               (method git-fetch)
 | 
			
		||||
               (uri (git-reference
 | 
			
		||||
                     (url "https://github.com/jspreadsheet/ce")
 | 
			
		||||
                     (commit commit)))
 | 
			
		||||
               (file-name (git-file-name "jexcel" version))
 | 
			
		||||
               (sha256
 | 
			
		||||
                (base32
 | 
			
		||||
             "0y88hsr9d8cpnvdmbm17m328pc4kc5wbcv02kzmhm0bryzhviw7h"))))))
 | 
			
		||||
    (propagated-inputs (list r-htmlwidgets r-jsonlite))
 | 
			
		||||
                 "1zk0wc4h0vax7zgimhwqq2icrvjr84agm3qv42l16gim7gq7fqfq"))))))
 | 
			
		||||
    (home-page "https://github.com/Swechhya/excelR")
 | 
			
		||||
    (synopsis "Wrapper of the JavaScript library jExcel")
 | 
			
		||||
    (description
 | 
			
		||||
     "This package provides an R interface to the jExcel library to
 | 
			
		||||
create web-based interactive tables and spreadsheets compatible with
 | 
			
		||||
spreadsheet software.")
 | 
			
		||||
     "This package provides an R interface to the jExcel library to create
 | 
			
		||||
web-based interactive tables and spreadsheets compatible with spreadsheet
 | 
			
		||||
software.")
 | 
			
		||||
    (license license:expat)))
 | 
			
		||||
 | 
			
		||||
(define-public r-extremes
 | 
			
		||||
| 
						 | 
				
			
			@ -9498,14 +9509,14 @@ modeling for empirical income distributions.")
 | 
			
		|||
(define-public r-vcd
 | 
			
		||||
  (package
 | 
			
		||||
    (name "r-vcd")
 | 
			
		||||
    (version "1.4-11")
 | 
			
		||||
    (version "1.4-12")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method url-fetch)
 | 
			
		||||
       (uri (cran-uri "vcd" version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32
 | 
			
		||||
         "0ch9ks25ab4h4fh4y267s0psvc4ndyaplk8ddva2j54yd1ayhm3s"))))
 | 
			
		||||
         "127dkln826ah5ydp3pmd5bqyns9m9m6yrjnmn7fir4r9al8yycf9"))))
 | 
			
		||||
    (build-system r-build-system)
 | 
			
		||||
    (propagated-inputs
 | 
			
		||||
     (list r-colorspace r-lmtest r-mass))
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -108,6 +108,7 @@
 | 
			
		|||
  #:use-module (gnu packages gnupg)
 | 
			
		||||
  #:use-module (gnu packages golang)
 | 
			
		||||
  #:use-module (gnu packages golang-check)
 | 
			
		||||
  #:use-module (gnu packages golang-web)
 | 
			
		||||
  #:use-module (gnu packages gperf)
 | 
			
		||||
  #:use-module (gnu packages gtk)
 | 
			
		||||
  #:use-module (gnu packages guile)
 | 
			
		||||
| 
						 | 
				
			
			@ -1600,14 +1601,14 @@ types are supported, as is encryption.")
 | 
			
		|||
(define-public emacs-rec-mode
 | 
			
		||||
  (package
 | 
			
		||||
    (name "emacs-rec-mode")
 | 
			
		||||
    (version "1.9.1")
 | 
			
		||||
    (version "1.9.3")
 | 
			
		||||
    (source (origin
 | 
			
		||||
              (method url-fetch)
 | 
			
		||||
              (uri (string-append "https://elpa.gnu.org/packages/"
 | 
			
		||||
                                  "rec-mode-" version ".tar"))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "0f60bw07l6kk1kkjjxsk30p6rxj9mpngaxqy8piyabnijfgjzd3s"))
 | 
			
		||||
                "15m0h84fcrcxpx67mc9any4ap2dcqysfjm1d2a7sx4clx8h3mgk0"))
 | 
			
		||||
              (snippet #~(begin (delete-file "rec-mode.info")))))
 | 
			
		||||
    (build-system emacs-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -69,25 +69,16 @@
 | 
			
		|||
(define-public sddm
 | 
			
		||||
  (package
 | 
			
		||||
    (name "sddm")
 | 
			
		||||
    (version "0.19.0")
 | 
			
		||||
    (version "0.20.0")
 | 
			
		||||
    (source (origin
 | 
			
		||||
              (method url-fetch)
 | 
			
		||||
              (uri (string-append
 | 
			
		||||
                    "https://github.com/sddm/sddm"
 | 
			
		||||
                    "/releases/download/v" version "/"
 | 
			
		||||
                    "sddm-" version ".tar.xz"))
 | 
			
		||||
              (method git-fetch)
 | 
			
		||||
              (uri (git-reference
 | 
			
		||||
                    (url "https://github.com/sddm/sddm")
 | 
			
		||||
                    (commit (string-append "v" version))))
 | 
			
		||||
              (file-name (git-file-name name version))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "0hcdysw8ibr66vk8i7v56l0v5ijvhlq67v4460mc2xf2910g2m72"))
 | 
			
		||||
              (snippet
 | 
			
		||||
               #~(begin
 | 
			
		||||
                   ;; https://github.com/sddm/sddm/issues/1536
 | 
			
		||||
                   ;; https://github.com/sddm/sddm/commit/e93bf95c54ad8c2a1604f8d7be05339164b19308
 | 
			
		||||
                   ;; Commit comes shortly after the 0.19.0 release.
 | 
			
		||||
                   (use-modules ((guix build utils)))
 | 
			
		||||
                   (substitute* "src/daemon/XorgDisplayServer.cpp"
 | 
			
		||||
                     (("m_cookie\\[i\\] = digits\\[dis\\(gen\\)\\]")
 | 
			
		||||
                      "m_cookie[i] = QLatin1Char(digits[dis(gen)])"))))))
 | 
			
		||||
                "1450zv03d3mbid27986p4mdshw9qf3ar8crl4idybf7khxgan22y"))))
 | 
			
		||||
    (build-system qt-build-system)
 | 
			
		||||
    (native-inputs
 | 
			
		||||
     (list extra-cmake-modules pkg-config qttools-5))
 | 
			
		||||
| 
						 | 
				
			
			@ -109,36 +100,39 @@
 | 
			
		|||
           shadow
 | 
			
		||||
           wayland))
 | 
			
		||||
    (arguments
 | 
			
		||||
     `(#:configure-flags
 | 
			
		||||
       ,#~(list
 | 
			
		||||
            ;; This option currently does nothing, but will presumably be enabled
 | 
			
		||||
            ;; if/when <https://github.com/sddm/sddm/pull/616> is merged.
 | 
			
		||||
     (list
 | 
			
		||||
      #:configure-flags
 | 
			
		||||
      #~(list
 | 
			
		||||
         "-DENABLE_WAYLAND=ON"
 | 
			
		||||
         "-DENABLE_PAM=ON"
 | 
			
		||||
         ;; Both flags are required for elogind support.
 | 
			
		||||
            "-DNO_SYSTEMD=ON" "-DUSE_ELOGIND=ON"
 | 
			
		||||
         "-DNO_SYSTEMD=ON"
 | 
			
		||||
         "-DUSE_ELOGIND=ON"
 | 
			
		||||
         "-DCONFIG_FILE=/etc/sddm.conf"
 | 
			
		||||
         ;; Set path to /etc/login.defs.
 | 
			
		||||
         ;; An alternative would be to use -DUID_MIN and -DUID_MAX.
 | 
			
		||||
         (string-append "-DLOGIN_DEFS_PATH="
 | 
			
		||||
                        #$(this-package-input "shadow")
 | 
			
		||||
                        "/etc/login.defs")
 | 
			
		||||
         (string-append "-DCMAKE_CXX_FLAGS=-I"
 | 
			
		||||
                        #$(this-package-input
 | 
			
		||||
                           "qtdeclarative") "/include/qt5")
 | 
			
		||||
         (string-append "-DQT_IMPORTS_DIR="
 | 
			
		||||
                        #$output "/lib/qt5/qml")
 | 
			
		||||
         (string-append "-DCMAKE_INSTALL_SYSCONFDIR="
 | 
			
		||||
                        #$output "/etc"))
 | 
			
		||||
      #:phases
 | 
			
		||||
       (modify-phases %standard-phases
 | 
			
		||||
      #~(modify-phases %standard-phases
 | 
			
		||||
          (add-after 'unpack 'embed-loginctl-reference
 | 
			
		||||
            (lambda _
 | 
			
		||||
              (substitute* "CMakeLists.txt"
 | 
			
		||||
               (("/usr/bin/loginctl") (which "loginctl")))
 | 
			
		||||
               #t)))))
 | 
			
		||||
                (("/usr/bin/loginctl")
 | 
			
		||||
                 (which "loginctl"))))))))
 | 
			
		||||
    (synopsis "QML based X11 and Wayland display manager")
 | 
			
		||||
    (description "SDDM is a display manager for X11 and Wayland aiming to be
 | 
			
		||||
fast, simple and beautiful.  SDDM is themeable and puts no restrictions on the
 | 
			
		||||
user interface design.  It uses QtQuick which gives the designer the ability to
 | 
			
		||||
create smooth, animated user interfaces.")
 | 
			
		||||
user interface design.  It uses QtQuick which gives the designer the ability
 | 
			
		||||
to create smooth, animated user interfaces.")
 | 
			
		||||
    (home-page "https://github.com/sddm/sddm")
 | 
			
		||||
    ;; QML files are MIT licensed and images are CC BY 3.0.
 | 
			
		||||
    (license (list license:gpl2+ license:expat license:cc-by3.0))))
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
										
											
												File diff suppressed because it is too large
												Load diff
											
										
									
								
							| 
						 | 
				
			
			@ -1098,7 +1098,7 @@ Emacs).")
 | 
			
		|||
(define-public kicad
 | 
			
		||||
  (package
 | 
			
		||||
    (name "kicad")
 | 
			
		||||
    (version "7.0.9")
 | 
			
		||||
    (version "7.0.10")
 | 
			
		||||
    (source (origin
 | 
			
		||||
              (method git-fetch)
 | 
			
		||||
              (uri (git-reference
 | 
			
		||||
| 
						 | 
				
			
			@ -1106,7 +1106,7 @@ Emacs).")
 | 
			
		|||
                    (commit version)))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "1hq9rba1gcks14zwbr8nbicpsil4imslgfch6ll33fhizbks3fq4"))
 | 
			
		||||
                "0rmlkgzgvpd70jzspyrrb2f618fimw52qrhpsp777flmpyh91wly"))
 | 
			
		||||
              (file-name (git-file-name name version))))
 | 
			
		||||
    (build-system cmake-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
| 
						 | 
				
			
			@ -1206,7 +1206,7 @@ electrical diagrams), gerbview (viewing Gerber files) and others.")
 | 
			
		|||
              (file-name (git-file-name name version))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "14dg99fvl6av9sn6gig6d6k1sdcf2svxy4fipqcz994z2khhz1sj"))))
 | 
			
		||||
                "0lc7d6hn8ya8m51kjnf59v41pbp03l5ncxir75s21pb92l26xgnv"))))
 | 
			
		||||
    (build-system cmake-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     `(#:configure-flags (list "-DBUILD_FORMATS=html")
 | 
			
		||||
| 
						 | 
				
			
			@ -1240,7 +1240,7 @@ electrical diagrams), gerbview (viewing Gerber files) and others.")
 | 
			
		|||
              (file-name (git-file-name name version))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "0ynsnjq3z126cjkgm1fjbjvdvpc0walnr42ya9dv46l27kxy2j77"))))
 | 
			
		||||
                "0nlgmxf9z1vf4g350dfkxql1dawgmw275wqxkgszsfxmhdfpmi9v"))))
 | 
			
		||||
    (build-system cmake-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     `(#:tests? #f))                    ; no tests exist
 | 
			
		||||
| 
						 | 
				
			
			@ -1269,7 +1269,7 @@ libraries.")
 | 
			
		|||
              (file-name (git-file-name name version))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "16a4c2xs4i8wbm01a901yxabxk0qdsjkzlccfawddv82bkh4b87h"))))
 | 
			
		||||
                "1az6fzh1lma71mj12bc4bblnmzjayrxhkb8w9rjvlhvvgv33cdmy"))))
 | 
			
		||||
    (synopsis "Official KiCad footprint libraries")
 | 
			
		||||
    (description "This package contains the official KiCad footprint libraries.")))
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			@ -1286,7 +1286,7 @@ libraries.")
 | 
			
		|||
              (file-name (git-file-name name version))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "1cly28vc07i54v487zbb8d1h70nrd3naxvq146b0xnbrjwnd2q28"))))
 | 
			
		||||
                "0xzyi4mgyifwc6dppdzh6jq294mkj0a71cwkqw2ymz1kfbksw626"))))
 | 
			
		||||
    (synopsis "Official KiCad 3D model libraries")
 | 
			
		||||
    (description "This package contains the official KiCad 3D model libraries.")))
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			@ -1303,7 +1303,7 @@ libraries.")
 | 
			
		|||
              (file-name (git-file-name name version))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "11582ldnv7hkljmhaym83962kixq1hjbfmdrn5laq7l4jk3l19vh"))))
 | 
			
		||||
                "0mykfwwik7472i4r0isc5szj3dnmvd0538p0vlmzh4rcgj3pj3vm"))))
 | 
			
		||||
    (synopsis "Official KiCad project and worksheet templates")
 | 
			
		||||
    (description "This package contains the official KiCad project and
 | 
			
		||||
worksheet templates.")))
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -93,6 +93,7 @@
 | 
			
		|||
  #:use-module (gnu packages gnome)
 | 
			
		||||
  #:use-module (gnu packages gnupg)
 | 
			
		||||
  #:use-module (gnu packages golang)
 | 
			
		||||
  #:use-module (gnu packages golang-web)
 | 
			
		||||
  #:use-module (gnu packages graphviz)
 | 
			
		||||
  #:use-module (gnu packages groff)
 | 
			
		||||
  #:use-module (gnu packages gsasl)
 | 
			
		||||
| 
						 | 
				
			
			@ -2299,7 +2300,7 @@ mining.")
 | 
			
		|||
(define-public p2pool
 | 
			
		||||
  (package
 | 
			
		||||
    (name "p2pool")
 | 
			
		||||
    (version "3.7")
 | 
			
		||||
    (version "3.10")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method git-fetch)
 | 
			
		||||
| 
						 | 
				
			
			@ -2308,7 +2309,7 @@ mining.")
 | 
			
		|||
             (commit (string-append "v" version))
 | 
			
		||||
             (recursive? #t)))
 | 
			
		||||
       (file-name (git-file-name name version))
 | 
			
		||||
       (sha256 (base32 "1sghdk8yq8si0bq0z83fji48q8yrq0ymvsxbbh5mscw6223syrjq"))
 | 
			
		||||
       (sha256 (base32 "0lp9slfwaq3wp4x6xpsiazam5lv6dz57m20adzlzzk0anb1ascr0"))
 | 
			
		||||
       (modules '((guix build utils)))
 | 
			
		||||
       (snippet
 | 
			
		||||
        #~(for-each delete-file-recursively
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -196,19 +196,21 @@ is used in some video games and movies.")
 | 
			
		|||
    (license license:zlib)))
 | 
			
		||||
 | 
			
		||||
(define-public dds
 | 
			
		||||
  (let ((commit "d2bc4c2c703941664fc1d73e69caa5233cdeac18")
 | 
			
		||||
        (revision "1"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "dds")
 | 
			
		||||
    (version "2.9.0")
 | 
			
		||||
      (version (git-version "2.9.0" revision commit))
 | 
			
		||||
      (source
 | 
			
		||||
       (origin
 | 
			
		||||
         (method git-fetch)
 | 
			
		||||
         (uri (git-reference
 | 
			
		||||
               (url "https://github.com/dds-bridge/dds")
 | 
			
		||||
             (commit (string-append "v" version))))
 | 
			
		||||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name name version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32
 | 
			
		||||
         "1iv09qic43nvla02lm8zgnkqpjgnc95p8zh3wyifmnmlh1rz02yj"))))
 | 
			
		||||
           "1ishbb69cvyv96xdxshnly0m5ydwljgdf8fwa1cr9rj2qj40q4rm"))))
 | 
			
		||||
      (build-system gnu-build-system)
 | 
			
		||||
      (arguments
 | 
			
		||||
       (list #:phases
 | 
			
		||||
| 
						 | 
				
			
			@ -258,7 +260,7 @@ is used in some video games and movies.")
 | 
			
		|||
      (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)))
 | 
			
		||||
      (license license:asl2.0))))
 | 
			
		||||
 | 
			
		||||
(define-public deutex
 | 
			
		||||
  (package
 | 
			
		||||
| 
						 | 
				
			
			@ -3269,16 +3271,16 @@ progresses the level, or you may regenerate tiles as the world changes.")
 | 
			
		|||
(define-public bbcsdl
 | 
			
		||||
  (package
 | 
			
		||||
    (name "bbcsdl")
 | 
			
		||||
    (version "1.35a")
 | 
			
		||||
    (version "1.39a")
 | 
			
		||||
    (source (origin
 | 
			
		||||
              (method git-fetch)
 | 
			
		||||
              (uri (git-reference
 | 
			
		||||
                    (url "https://github.com/rtrussell/BBCSDL/")
 | 
			
		||||
                    (commit "b9b2a3eb438cb799edb2766055b3c38e9518e3e3")))
 | 
			
		||||
                    (commit "93b0ffae960f4c4f45fdc2202bc6e83ee5ca277c")))
 | 
			
		||||
              (file-name (git-file-name name version))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "1d03xmhrl6ba6w0vwfk46mpyc9d0w3bixxj2d4irx7wl7bh3bfic"))))
 | 
			
		||||
                "03ga14k2hbhflnaynbyx9lwlbxlzx3rv6zqq21yhl183s6d4c0wa"))))
 | 
			
		||||
    (build-system gnu-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     (list
 | 
			
		||||
| 
						 | 
				
			
			@ -3318,6 +3320,7 @@ progresses the level, or you may regenerate tiles as the world changes.")
 | 
			
		|||
                     inputs (string-append "share/fonts/truetype/" font))
 | 
			
		||||
                    (string-append opt "/lib/" font)))
 | 
			
		||||
                 '("DejaVuSans.ttf" "DejaVuSansMono.ttf"
 | 
			
		||||
                   "DejaVuSans-Oblique.ttf"
 | 
			
		||||
                   "FreeSans.ttf" "FreeMono.ttf" "FreeSerif.ttf"))
 | 
			
		||||
                (mkdir bin)
 | 
			
		||||
                (symlink (string-append opt "/bbcsdl")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -78,7 +78,8 @@
 | 
			
		|||
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
 | 
			
		||||
;;; Copyright © 2023 Florian Pelz <pelzflorian@pelzflorian.de>
 | 
			
		||||
;;; Copyright © 2023 Ivana Drazovic <iv.dra@hotmail.com>
 | 
			
		||||
;;; Copyright © 2023 gemmaro <gemmaro.dev@gmail.com>
 | 
			
		||||
;;; Copyright © 2023, 2024 gemmaro <gemmaro.dev@gmail.com>
 | 
			
		||||
;;; Copyright © 2023 Wilko Meyer <w@wmeyer.eu>
 | 
			
		||||
;;;
 | 
			
		||||
;;; This file is part of GNU Guix.
 | 
			
		||||
;;;
 | 
			
		||||
| 
						 | 
				
			
			@ -193,6 +194,7 @@
 | 
			
		|||
  #:use-module (gnu packages protobuf)
 | 
			
		||||
  #:use-module (gnu packages pulseaudio)
 | 
			
		||||
  #:use-module (gnu packages python)
 | 
			
		||||
  #:use-module (gnu packages python-compression)
 | 
			
		||||
  #:use-module (gnu packages python-web)
 | 
			
		||||
  #:use-module (gnu packages python-xyz)
 | 
			
		||||
  #:use-module (gnu packages qt)
 | 
			
		||||
| 
						 | 
				
			
			@ -230,6 +232,7 @@
 | 
			
		|||
  #:use-module (guix build-system meson)
 | 
			
		||||
  #:use-module (guix build-system perl)
 | 
			
		||||
  #:use-module (guix build-system python)
 | 
			
		||||
  #:use-module (guix build-system pyproject)
 | 
			
		||||
  #:use-module (guix build-system qt)
 | 
			
		||||
  #:use-module (guix build-system scons)
 | 
			
		||||
  #:use-module (guix build-system trivial)
 | 
			
		||||
| 
						 | 
				
			
			@ -2367,6 +2370,55 @@ Every puzzle has a complete solution, although there may be more than one.")
 | 
			
		|||
    "PrBoom+ is a Doom source port developed from the original PrBoom project.")
 | 
			
		||||
   (license license:gpl2+)))
 | 
			
		||||
 | 
			
		||||
(define-public redeal
 | 
			
		||||
  (let ((commit "e2e81a477fd31ae548a340b5f0f380594d3d0ad6")
 | 
			
		||||
        (revision "1"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "redeal")
 | 
			
		||||
      (version (git-version "0.2.0" revision commit))
 | 
			
		||||
      (source
 | 
			
		||||
       (origin
 | 
			
		||||
         (method git-fetch)
 | 
			
		||||
         (uri (git-reference
 | 
			
		||||
               (url "https://github.com/anntzer/redeal")
 | 
			
		||||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name name version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32
 | 
			
		||||
           "1vac36bg4ah9gs4hgmp745xq6nnmd7s71vsq99d72ng3sxap0wa3"))))
 | 
			
		||||
      (build-system pyproject-build-system)
 | 
			
		||||
      (arguments
 | 
			
		||||
       (list
 | 
			
		||||
        #:phases
 | 
			
		||||
        #~(modify-phases %standard-phases
 | 
			
		||||
            (add-after 'unpack 'unbundle-dds
 | 
			
		||||
              (lambda* (#:key inputs #:allow-other-keys)
 | 
			
		||||
                (substitute* "setup.py"
 | 
			
		||||
                  (("cmdclass=.*") ""))
 | 
			
		||||
                (let ((libdds (search-input-file inputs "lib/libdds.so")))
 | 
			
		||||
                  (substitute* "redeal/dds.py"
 | 
			
		||||
                    ((" and os.path.exists\\(dll_path\\)") "")
 | 
			
		||||
                    (("dll = DLL\\(dll_path\\)")
 | 
			
		||||
                     (format #f "dll = DLL(~s)" libdds))))))
 | 
			
		||||
            (add-after 'install 'install-examples
 | 
			
		||||
              (lambda _
 | 
			
		||||
                (let* ((doc (string-append #$output "/share/doc/"))
 | 
			
		||||
                       (examples
 | 
			
		||||
                        (string-append doc #$name "-" #$version "/examples")))
 | 
			
		||||
                  (mkdir-p examples)
 | 
			
		||||
                  (copy-recursively "examples" examples)))))))
 | 
			
		||||
      (inputs (list dds `(,python "tk")))
 | 
			
		||||
      (propagated-inputs (list python-colorama))
 | 
			
		||||
      (home-page "https://github.com/anntzer/redeal")
 | 
			
		||||
      (synopsis
 | 
			
		||||
       "Deal generator for bridge card game, written in Python")
 | 
			
		||||
      (description
 | 
			
		||||
       "Redeal is a deal generator written in Python.  It outputs deals
 | 
			
		||||
satisfying whatever conditions you specify --- deals with a double void, deals
 | 
			
		||||
with a strong 2♣ opener opposite a yarborough, etc.  Using Bo Haglund's double
 | 
			
		||||
dummy solver, it can even solve the hands it has generated for you.")
 | 
			
		||||
      (license license:gpl3))))
 | 
			
		||||
 | 
			
		||||
(define-public retux
 | 
			
		||||
  (let ((release "1.6.1")
 | 
			
		||||
        (revision 0))
 | 
			
		||||
| 
						 | 
				
			
			@ -3385,25 +3437,29 @@ a C library, so they can easily be integrated into other programs.")
 | 
			
		|||
(define-public taisei
 | 
			
		||||
  (package
 | 
			
		||||
    (name "taisei")
 | 
			
		||||
    (version "1.3.2")
 | 
			
		||||
    (version "1.4")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method url-fetch)
 | 
			
		||||
       (uri (string-append "https://github.com/taisei-project/"
 | 
			
		||||
                           "taisei/releases/download/v" version
 | 
			
		||||
                           "/taisei-v" version ".tar.xz"))
 | 
			
		||||
                           "/taisei-" version ".tar.xz"))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32 "1g53fcyrlzmvlsb40pw90gaglysv6n1w42hk263iv61ibhdmzh6v"))))
 | 
			
		||||
        (base32 "1glrr99xiyz674d1izgvmk9w1zxanc94d34pacd0wya66bbml0nc"))))
 | 
			
		||||
    (build-system meson-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     `(#:build-type "release"      ;comment out for bug-reporting (and cheats)
 | 
			
		||||
       #:configure-flags
 | 
			
		||||
       (list "-Dr_default=gles30"
 | 
			
		||||
     (list
 | 
			
		||||
      #:build-type "release" ;comment out for bug-reporting (and cheats)
 | 
			
		||||
      #:configure-flags #~(list "-Dr_default=gles30"
 | 
			
		||||
                                "-Dr_gles20=true"
 | 
			
		||||
                                "-Dr_gles30=true"
 | 
			
		||||
                                "-Dshader_transpiler=true")))
 | 
			
		||||
    (native-inputs
 | 
			
		||||
     (list pkg-config python python-docutils python-pygments))
 | 
			
		||||
     (list pkg-config
 | 
			
		||||
           python
 | 
			
		||||
           python-docutils
 | 
			
		||||
           python-pygments
 | 
			
		||||
           python-zstandard))
 | 
			
		||||
    (inputs
 | 
			
		||||
     (list cglm
 | 
			
		||||
           freetype
 | 
			
		||||
| 
						 | 
				
			
			@ -3417,19 +3473,21 @@ a C library, so they can easily be integrated into other programs.")
 | 
			
		|||
           sdl2-mixer
 | 
			
		||||
           shaderc
 | 
			
		||||
           spirv-cross
 | 
			
		||||
           zlib))
 | 
			
		||||
           zlib
 | 
			
		||||
           (list zstd "lib")))
 | 
			
		||||
    (home-page "https://taisei-project.org/")
 | 
			
		||||
    (synopsis "Shoot'em up fangame and libre clone of Touhou Project")
 | 
			
		||||
    (description
 | 
			
		||||
     "The player controls a character (one of three: Good, Bad, and Dead),
 | 
			
		||||
dodges the missiles (lots of it cover the screen, but the character's hitbox
 | 
			
		||||
is very small), and shoot at the adversaries that keep appear on the screen.")
 | 
			
		||||
    (license (list ;;game
 | 
			
		||||
    (license (list
 | 
			
		||||
              ;; game
 | 
			
		||||
              license:expat
 | 
			
		||||
                   ;;resources/00-taisei.pkgdir/bgm/
 | 
			
		||||
                   ;;atlas/portraits/
 | 
			
		||||
              ;; resources/00-taisei.pkgdir/bgm/
 | 
			
		||||
              ;; atlas/portraits/
 | 
			
		||||
              license:cc-by4.0
 | 
			
		||||
                   ;;miscellaneous
 | 
			
		||||
              ;; miscellaneous
 | 
			
		||||
              license:cc0
 | 
			
		||||
              license:public-domain))))
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			@ -3833,7 +3891,7 @@ for common mesh file formats, and collision detection.")
 | 
			
		|||
  (package
 | 
			
		||||
    (inherit irrlicht)
 | 
			
		||||
    (name "irrlicht-for-minetest")
 | 
			
		||||
    (version "1.9.0mt10")
 | 
			
		||||
    (version "1.9.0mt13")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method git-fetch)
 | 
			
		||||
| 
						 | 
				
			
			@ -3843,7 +3901,7 @@ for common mesh file formats, and collision detection.")
 | 
			
		|||
       (file-name (git-file-name name version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32
 | 
			
		||||
         "0y5vchz91khs8dmrkpgc7sqmvzx2yjj6svivvm80r4yppv7s03rw"))))
 | 
			
		||||
         "11pxg0yh50ym1hvh8va5jbbcjz5dsshj3xxvm3qhkgg96vpism06"))))
 | 
			
		||||
    (build-system cmake-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     ;; No check target.
 | 
			
		||||
| 
						 | 
				
			
			@ -10115,6 +10173,36 @@ can be downloaded from @url{https://zero.sjeng.org/best-network}.")
 | 
			
		|||
   (home-page "https://github.com/bernds/q5Go")
 | 
			
		||||
   (license license:gpl2+)))
 | 
			
		||||
 | 
			
		||||
(define-public qcheckers
 | 
			
		||||
  (package
 | 
			
		||||
    (name "qcheckers")
 | 
			
		||||
    (version "0.9.0")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method git-fetch)
 | 
			
		||||
       (uri (git-reference
 | 
			
		||||
             (url "https://github.com/portnov/qcheckers")
 | 
			
		||||
             (commit version)))
 | 
			
		||||
       (file-name (git-file-name name version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32 "05wzql6abzdf6l0vdzki4rfy2zn31mcplh1wkw3ddk8w81pvaymw"))))
 | 
			
		||||
    (build-system qt-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     (list
 | 
			
		||||
      #:tests? #f
 | 
			
		||||
      #:phases
 | 
			
		||||
      #~(modify-phases %standard-phases
 | 
			
		||||
          (replace 'configure
 | 
			
		||||
            (lambda _
 | 
			
		||||
              (invoke "qmake"
 | 
			
		||||
                      (string-append "PREFIX=" #$output)))))))
 | 
			
		||||
    (inputs (list qtbase-5 qtsvg-5))
 | 
			
		||||
    (home-page "https://portnov.github.io/qcheckers/")
 | 
			
		||||
    (synopsis "Qt-based checkers boardgame")
 | 
			
		||||
    (description "QCheckers, formely known as KCheckers, is a is a Qt version
 | 
			
		||||
of the classic boardgame checkers (also known as draughts).")
 | 
			
		||||
    (license license:gpl2+)))
 | 
			
		||||
 | 
			
		||||
(define-public xmoto
 | 
			
		||||
  (package
 | 
			
		||||
    (name "xmoto")
 | 
			
		||||
| 
						 | 
				
			
			@ -10415,6 +10503,31 @@ sunfish, but is written in C rather than Python.  It also has TUI tools for
 | 
			
		|||
using any UCI engine and also to connect UCI engines to Lichess.")
 | 
			
		||||
      (license license:agpl3+))))
 | 
			
		||||
 | 
			
		||||
(define-public morris
 | 
			
		||||
  (package
 | 
			
		||||
    (name "morris")
 | 
			
		||||
    (version "0.3")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method git-fetch)
 | 
			
		||||
       (uri (git-reference
 | 
			
		||||
             (url "https://github.com/farindk/morris")
 | 
			
		||||
             (commit (string-append "v" version))))
 | 
			
		||||
       (file-name (git-file-name name version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32 "1kkcnpkzgybm7rqg7nafd7sqd5m4alns6l4j5zcf3p41jdc9s3iv"))))
 | 
			
		||||
    (build-system glib-or-gtk-build-system)
 | 
			
		||||
    (inputs (list automake autoconf pkg-config intltool
 | 
			
		||||
		 gnu-gettext libtool glib gtk+-2 boost))
 | 
			
		||||
    (arguments `(#:tests? #f))
 | 
			
		||||
    (home-page "http://nine-mens-morris.net/downloads.html")
 | 
			
		||||
    (synopsis "Morris is an implementation of the board game Nine Men's Morris")
 | 
			
		||||
    (description "Morris is an implementation of the board game Nine Men's Morris.
 | 
			
		||||
It supports not only the standard game, but also several rule-variants and different
 | 
			
		||||
board layouts. You can play against the computer, or simply use the program to
 | 
			
		||||
present the board, but play against another human opponent.")
 | 
			
		||||
    (license license:gpl3)))
 | 
			
		||||
 | 
			
		||||
(define-public barrage
 | 
			
		||||
  (package
 | 
			
		||||
    (name "barrage")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -3,7 +3,7 @@
 | 
			
		|||
;;; Copyright © 2014, 2015, 2018 Mark H Weaver <mhw@netris.org>
 | 
			
		||||
;;; Copyright © 2014, 2015, 2016, 2017, 2019, 2021 Ricardo Wurmus <rekado@elephly.net>
 | 
			
		||||
;;; Copyright © 2015, 2023 Andreas Enge <andreas@enge.fr>
 | 
			
		||||
;;; Copyright © 2015-2018, 2020-2023 Efraim Flashner <efraim@flashner.co.il>
 | 
			
		||||
;;; Copyright © 2015-2018, 2020-2024 Efraim Flashner <efraim@flashner.co.il>
 | 
			
		||||
;;; Copyright © 2016 Carlos Sánchez de La Lama <csanchezdll@gmail.com>
 | 
			
		||||
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
 | 
			
		||||
;;; Copyright © 2018, 2020, 2022 Marius Bakke <marius@gnu.org>
 | 
			
		||||
| 
						 | 
				
			
			@ -75,6 +75,9 @@ where the OS part is overloaded to denote a specific ABI---into GCC
 | 
			
		|||
           "--with-mode=thumb"
 | 
			
		||||
           "--with-fpu=neon"))
 | 
			
		||||
 | 
			
		||||
        ((string-match "x86_64-linux-gnux32" target)
 | 
			
		||||
         '("--with-abi=mx32"))
 | 
			
		||||
 | 
			
		||||
        ((and (string-suffix? "-gnu" target)
 | 
			
		||||
              (not (string-contains target "-linux")))
 | 
			
		||||
         ;; Cross-compilation of libcilkrts in GCC 5.5.0 to GNU/Hurd fails
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -690,7 +690,12 @@ glxdemo, glxgears, glxheads, and glxinfo.")
 | 
			
		|||
                  #t))))
 | 
			
		||||
    (build-system gnu-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     (list #:make-flags #~(list (string-append "GLEW_PREFIX=" #$output)
 | 
			
		||||
     (list #:make-flags #~(list #$@(if (%current-target-system)
 | 
			
		||||
                                       #~((string-append "CC=" #$(cc-for-target))
 | 
			
		||||
                                          (string-append "LD=" #$(cc-for-target))
 | 
			
		||||
                                          (string-append "STRIP=" #$(strip-for-target)))
 | 
			
		||||
                                       #~())
 | 
			
		||||
                                (string-append "GLEW_PREFIX=" #$output)
 | 
			
		||||
                                (string-append "GLEW_DEST=" #$output))
 | 
			
		||||
           #:phases
 | 
			
		||||
           #~(modify-phases %standard-phases
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -23,6 +23,7 @@
 | 
			
		|||
;;; Copyright © 2021 Aleksandr Vityazev <avityazev@posteo.org>
 | 
			
		||||
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 | 
			
		||||
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
 | 
			
		||||
;;; Copyright © 2024 Zheng Junjie <873216071@qq.com>
 | 
			
		||||
;;;
 | 
			
		||||
;;; This file is part of GNU Guix.
 | 
			
		||||
;;;
 | 
			
		||||
| 
						 | 
				
			
			@ -236,6 +237,12 @@ generation.")
 | 
			
		|||
       (base32
 | 
			
		||||
        "1r1lvcp67gn5lfrj1g388sd77ca6qwnmxndirdysd71gk362z34f"))))
 | 
			
		||||
    (build-system gnu-build-system)
 | 
			
		||||
    (arguments (if (%current-target-system)
 | 
			
		||||
                   (list #:configure-flags
 | 
			
		||||
                         #~(list (string-append
 | 
			
		||||
                                  "--with-libgpg-error-prefix="
 | 
			
		||||
                                  #$(this-package-input "libgpg-error"))))
 | 
			
		||||
                   '()))
 | 
			
		||||
    (propagated-inputs
 | 
			
		||||
     (list libgpg-error pth))
 | 
			
		||||
    (home-page "https://gnupg.org")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1035,6 +1035,9 @@ variable defined below.  It requires guile-json to be installed."
 | 
			
		|||
                (setenv "MACH_BUILD_PYTHON_NATIVE_PACKAGE_SOURCE" "system")
 | 
			
		||||
                (setenv "MOZ_BUILD_DATE" #$%icecat-build-id) ; avoid timestamp
 | 
			
		||||
 | 
			
		||||
                ;; WM_CLASS (default is "$MOZ_APP_NAME-$MOZ_UPDATE_CHANNEL").
 | 
			
		||||
                (setenv "MOZ_APP_REMOTINGNAME" "Icecat")
 | 
			
		||||
 | 
			
		||||
                ;; XXX TODO: Fix this to work on systems other than x86_64-linux.
 | 
			
		||||
                (setenv "GUIX_PYTHONPATH"
 | 
			
		||||
                        (string-append (getcwd)
 | 
			
		||||
| 
						 | 
				
			
			@ -1092,7 +1095,11 @@ variable defined below.  It requires guile-json to be installed."
 | 
			
		|||
              (let* ((lib (string-append #$output "/lib"))
 | 
			
		||||
                     (gtk #$(this-package-input "gtk+"))
 | 
			
		||||
                     (gtk-share (string-append gtk "/share"))
 | 
			
		||||
                     (ld-libs '#$(map (lambda (label)
 | 
			
		||||
                     (ld-libs '#$(cons
 | 
			
		||||
                                  (file-append
 | 
			
		||||
                                   (this-package-input "libcanberra")
 | 
			
		||||
                                   "/lib/gtk-3.0/modules")
 | 
			
		||||
                                  (map (lambda (label)
 | 
			
		||||
                                         (file-append (this-package-input label) "/lib"))
 | 
			
		||||
                                       '("libpng-apng"
 | 
			
		||||
                                         "libxscrnsaver"
 | 
			
		||||
| 
						 | 
				
			
			@ -1103,7 +1110,7 @@ variable defined below.  It requires guile-json to be installed."
 | 
			
		|||
                                         "pulseaudio"
 | 
			
		||||
                                         ;; For the integration of native notifications
 | 
			
		||||
                                         ;; (same reason as icedove)
 | 
			
		||||
                                        "libnotify"))))
 | 
			
		||||
                                         "libnotify")))))
 | 
			
		||||
                (wrap-program (car (find-files lib "^icecat$"))
 | 
			
		||||
                  `("XDG_DATA_DIRS" prefix (,gtk-share))
 | 
			
		||||
                  ;; The following line is commented out because the icecat
 | 
			
		||||
| 
						 | 
				
			
			@ -1123,7 +1130,7 @@ variable defined below.  It requires guile-json to be installed."
 | 
			
		|||
                  (("NewWindow")        "new-window")
 | 
			
		||||
                  (("NewPrivateWindow") "new-private-window")
 | 
			
		||||
                  (("StartupNotify=true")
 | 
			
		||||
                   "StartupNotify=true\nStartupWMClass=Navigator"))
 | 
			
		||||
                   "StartupNotify=true\nStartupWMClass=Icecat"))
 | 
			
		||||
                (install-file desktop-file applications))))
 | 
			
		||||
          (add-after 'install-desktop-entry 'install-icons
 | 
			
		||||
            (lambda _
 | 
			
		||||
| 
						 | 
				
			
			@ -1775,7 +1782,7 @@ ca495991b7852b855"))
 | 
			
		|||
                    (format #t
 | 
			
		||||
                            "[Desktop Entry]~@
 | 
			
		||||
                            Name=Icedove~@
 | 
			
		||||
                            Exec=~a/bin/icedove~@
 | 
			
		||||
                            Exec=~a/bin/icedove %u~@
 | 
			
		||||
                            Icon=icedove~@
 | 
			
		||||
                            GenericName=Mail/News Client~@
 | 
			
		||||
                            Categories=Network;Email;~@
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
							
								
								
									
										1467
									
								
								gnu/packages/golang-web.scm
									
										
									
									
									
										Normal file
									
								
							
							
						
						
									
										1467
									
								
								gnu/packages/golang-web.scm
									
										
									
									
									
										Normal file
									
								
							
										
											
												File diff suppressed because it is too large
												Load diff
											
										
									
								
							
										
											
												File diff suppressed because it is too large
												Load diff
											
										
									
								
							| 
						 | 
				
			
			@ -1,5 +1,5 @@
 | 
			
		|||
;;; GNU Guix --- Functional package management for GNU
 | 
			
		||||
;;; Copyright © 2017, 2018, 2019, 2020, 2022, 2023 Ricardo Wurmus <rekado@elephly.net>
 | 
			
		||||
;;; Copyright © 2017-2024 Ricardo Wurmus <rekado@elephly.net>
 | 
			
		||||
;;; Copyright © 2018 Joshua Sierles, Nextjournal <joshua@nextjournal.com>
 | 
			
		||||
;;; Copyright © 2018, 2020, 2022 Tobias Geerinckx-Rice <me@tobias.gr>
 | 
			
		||||
;;; Copyright © 2019, 2021, 2022 Efraim Flashner <efraim@flashner.co.il>
 | 
			
		||||
| 
						 | 
				
			
			@ -426,6 +426,48 @@ algorithm for community detection in large networks.")
 | 
			
		|||
large networks.")
 | 
			
		||||
    (license license:gpl3+)))
 | 
			
		||||
 | 
			
		||||
(define-public python-louvain-igraph
 | 
			
		||||
  (package
 | 
			
		||||
    (name "python-louvain-igraph")
 | 
			
		||||
    (version "0.8.1")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method git-fetch)
 | 
			
		||||
       (uri (git-reference
 | 
			
		||||
             (url "https://github.com/vtraag/louvain-igraph")
 | 
			
		||||
             (commit version)))
 | 
			
		||||
       (file-name (git-file-name name version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32
 | 
			
		||||
         "1j2ybihvvzggwjb9zvm829aqb5b94q10h8bw6v0h42xd9w75z9sv"))))
 | 
			
		||||
    (build-system pyproject-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     (list
 | 
			
		||||
      #:phases
 | 
			
		||||
      #~(modify-phases %standard-phases
 | 
			
		||||
          (add-after 'unpack 'find-igraph
 | 
			
		||||
            (lambda _
 | 
			
		||||
              (setenv "SETUPTOOLS_SCM_PRETEND_VERSION" #$version)
 | 
			
		||||
              (substitute* "setup.py"
 | 
			
		||||
                (("/usr/include/igraph")
 | 
			
		||||
                 (string-append #$(this-package-input "igraph")
 | 
			
		||||
                                "/include/igraph"))))))))
 | 
			
		||||
    (propagated-inputs (list python-igraph))
 | 
			
		||||
    (inputs (list igraph))
 | 
			
		||||
    (native-inputs
 | 
			
		||||
     (list python-ddt
 | 
			
		||||
           python-setuptools-scm
 | 
			
		||||
           pkg-config))
 | 
			
		||||
    (home-page "https://github.com/vtraag/louvain-igraph")
 | 
			
		||||
    (synopsis "Implementation of the Louvain algorithm")
 | 
			
		||||
    (description "This package implements the Louvain algorithm for community
 | 
			
		||||
detection in C++ and exposes it to Python.  Besides the relative flexibility
 | 
			
		||||
of the implementation, it also scales well, and can be run on graphs of
 | 
			
		||||
millions of nodes (as long as they can fit in memory).  The core function is
 | 
			
		||||
@code{find_partition} which finds the optimal partition using the louvain
 | 
			
		||||
algorithm for a number of different methods.")
 | 
			
		||||
    (license license:gpl3+)))
 | 
			
		||||
 | 
			
		||||
(define-public faiss
 | 
			
		||||
  (package
 | 
			
		||||
    (name "faiss")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -3565,6 +3565,80 @@ structures.  This package re-uses the SRFI sample implementation.")
 | 
			
		|||
           ;; contains ISC code from the SRFI sample implementation
 | 
			
		||||
           license:isc))))
 | 
			
		||||
 | 
			
		||||
(define-public guile-srfi-133
 | 
			
		||||
  (package
 | 
			
		||||
    (name "guile-srfi-133")
 | 
			
		||||
    (version "0.0.1")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method git-fetch)
 | 
			
		||||
       (uri (git-reference
 | 
			
		||||
             (url "https://github.com/scheme-requests-for-implementation/srfi-133")
 | 
			
		||||
             (commit "db81a114cd3e23375f024baec15482614ec90453")))
 | 
			
		||||
       (file-name (git-file-name name version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32
 | 
			
		||||
         "0a7srl72291yah0aj6rwddhj041v2spximhknjj7hczlparsrm7f"))))
 | 
			
		||||
    (build-system guile-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     (list
 | 
			
		||||
      #:phases
 | 
			
		||||
      #~(modify-phases %standard-phases
 | 
			
		||||
          (add-after 'unpack 'move-create-and-delete-files
 | 
			
		||||
            (lambda _
 | 
			
		||||
              (rename-file "vectors" "srfi")
 | 
			
		||||
              (rename-file "srfi/vectors-test.scm" "srfi/srfi-test.scm")
 | 
			
		||||
              (rename-file "srfi/vectors-impl.scm" "srfi/srfi-impl.scm")
 | 
			
		||||
              (with-output-to-file "srfi/srfi-133.scm"
 | 
			
		||||
                (lambda ()
 | 
			
		||||
                  (display "(define-module (srfi srfi-133)
 | 
			
		||||
  #:replace (;; Constructors
 | 
			
		||||
             vector-copy
 | 
			
		||||
 | 
			
		||||
             ;; Mutators
 | 
			
		||||
             vector-fill! vector-copy!
 | 
			
		||||
 | 
			
		||||
             ;; Conversion
 | 
			
		||||
             vector->list list->vector)
 | 
			
		||||
  #:export (;; Constructors
 | 
			
		||||
            vector-unfold vector-unfold-right vector-reverse-copy
 | 
			
		||||
            vector-append vector-concatenate vector-append-subvectors
 | 
			
		||||
 | 
			
		||||
            ;; Predicates
 | 
			
		||||
            vector-empty? vector=
 | 
			
		||||
 | 
			
		||||
            ;; Iteration
 | 
			
		||||
            vector-fold vector-fold-right vector-map vector-map!
 | 
			
		||||
            vector-for-each vector-count vector-cumulate
 | 
			
		||||
 | 
			
		||||
            ;; Searching
 | 
			
		||||
            vector-index vector-index-right vector-skip vector-skip-right
 | 
			
		||||
            vector-binary-search vector-any vector-every vector-partition
 | 
			
		||||
 | 
			
		||||
            ;; Mutators
 | 
			
		||||
            vector-swap! vector-reverse!
 | 
			
		||||
            vector-reverse-copy! vector-unfold! vector-unfold-right!
 | 
			
		||||
 | 
			
		||||
            ;; Conversion
 | 
			
		||||
            reverse-vector->list reverse-list->vector
 | 
			
		||||
            vector->string string->vector))
 | 
			
		||||
 | 
			
		||||
(include \"srfi-impl.scm\")")))
 | 
			
		||||
              (for-each (lambda (filename)
 | 
			
		||||
                          (delete-file filename))
 | 
			
		||||
                        '("tests/run.scm"
 | 
			
		||||
                          "srfi/vectors.sld"
 | 
			
		||||
                          "srfi/vectors.scm")))))))
 | 
			
		||||
    (native-inputs
 | 
			
		||||
     (list guile-3.0))
 | 
			
		||||
    (home-page "https://github.com/scheme-requests-for-implementation/srfi-133")
 | 
			
		||||
    (synopsis "R7RS-compatible vector library for Guile")
 | 
			
		||||
    (description
 | 
			
		||||
     "This package provides a Guile implementation of
 | 
			
		||||
@uref{https://srfi.schemers.org/srfi-133/srfi-133.html, SRFI-133}, a
 | 
			
		||||
comprehensive library of vector operations.")
 | 
			
		||||
    (license license:expat)))
 | 
			
		||||
 | 
			
		||||
(define-public guile-srfi-145
 | 
			
		||||
  (package
 | 
			
		||||
    (name "guile-srfi-145")
 | 
			
		||||
| 
						 | 
				
			
			@ -3766,6 +3840,56 @@ Either represents the concept of values which are either correct (Right)
 | 
			
		|||
or errors (Left).")
 | 
			
		||||
      (license license:expat))))
 | 
			
		||||
 | 
			
		||||
(define-public guile-srfi-232
 | 
			
		||||
  (package
 | 
			
		||||
    (name "guile-srfi-232")
 | 
			
		||||
    (version "0.0.1")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method git-fetch)
 | 
			
		||||
       (uri (git-reference
 | 
			
		||||
             (url "https://github.com/scheme-requests-for-implementation/srfi-232")
 | 
			
		||||
             (commit "c3f580d220778cd71492aba4fdd0c7040968e705")))
 | 
			
		||||
       (file-name (git-file-name name version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32
 | 
			
		||||
         "0lp4zcqjjj6hwfh3ix71wak1nffgg4npzsg7cdxfn9hf6iwf9xby"))))
 | 
			
		||||
    (build-system guile-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     (list
 | 
			
		||||
      #:phases
 | 
			
		||||
      #~(modify-phases %standard-phases
 | 
			
		||||
          (add-after 'unpack 'move-and-delete-things
 | 
			
		||||
            (lambda _
 | 
			
		||||
              (let* ((srfi-directory (string-append #$output "/srfi")))
 | 
			
		||||
                (mkdir-p "srfi")
 | 
			
		||||
                (with-output-to-file "srfi/srfi-232.scm"
 | 
			
		||||
                  (lambda ()
 | 
			
		||||
                    (display "(define-library (srfi srfi-232)
 | 
			
		||||
 (export curried define-curried)
 | 
			
		||||
 (import (only (guile) import)
 | 
			
		||||
         (scheme base))
 | 
			
		||||
 (include \"../srfi-232.scm\"))")))
 | 
			
		||||
                (for-each (lambda (filename)
 | 
			
		||||
                            (delete-file filename))
 | 
			
		||||
                          '("test-body.scm"
 | 
			
		||||
                            "test-chibi.scm"
 | 
			
		||||
                            "test-srfi-64.scm"))))))))
 | 
			
		||||
    (native-inputs
 | 
			
		||||
     (list guile-3.0))
 | 
			
		||||
    (home-page "https://github.com/scheme-requests-for-implementation/srfi-232")
 | 
			
		||||
    (synopsis "Flexible curried procedures")
 | 
			
		||||
    (description
 | 
			
		||||
     " This package provides an implementation of
 | 
			
		||||
@uref{https://srfi.schemers.org/srfi-232/srfi-232.html, SRFI-232}, which
 | 
			
		||||
describes @code{curried}, a variant of @code{lambda} that creates true curried
 | 
			
		||||
procedures which also behave just like ordinary Scheme procedures.  They can
 | 
			
		||||
be applied to their arguments one by one, all at once, or anywhere in between,
 | 
			
		||||
without any novel syntax.  @code{curried} also supports nullary and variadic
 | 
			
		||||
procedures, and procedures created with it have predictable behavior when
 | 
			
		||||
applied to surplus arguments.")
 | 
			
		||||
    (license license:expat)))
 | 
			
		||||
 | 
			
		||||
(define-public emacsy
 | 
			
		||||
  (package
 | 
			
		||||
    (name "emacsy")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -35,6 +35,7 @@
 | 
			
		|||
  #:use-module (gnu packages gettext)
 | 
			
		||||
  #:use-module (gnu packages glib)
 | 
			
		||||
  #:use-module (gnu packages golang)
 | 
			
		||||
  #:use-module (gnu packages golang-web)
 | 
			
		||||
  #:use-module (gnu packages hardware)
 | 
			
		||||
  #:use-module (gnu packages linux)
 | 
			
		||||
  #:use-module (gnu packages lua)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -2225,20 +2225,24 @@ identical visual appearance.")
 | 
			
		|||
(define-public grim
 | 
			
		||||
  (package
 | 
			
		||||
   (name "grim")
 | 
			
		||||
   (version "1.4.0")
 | 
			
		||||
   (version "1.4.1")
 | 
			
		||||
   (source
 | 
			
		||||
    (origin
 | 
			
		||||
     (method git-fetch)
 | 
			
		||||
     (uri (git-reference
 | 
			
		||||
           (url "https://github.com/emersion/grim")
 | 
			
		||||
           (url "https://git.sr.ht/~emersion/grim")
 | 
			
		||||
           (commit (string-append "v" version))))
 | 
			
		||||
     (file-name (git-file-name name version))
 | 
			
		||||
     (sha256
 | 
			
		||||
      (base32 "1b1k5cmmk7gzis0rncyl98lnhdwpjkdsv9pada5mmgxcpka6f0lp"))))
 | 
			
		||||
      (base32 "1snp4qlj05d0nx4f0qr8kywv0i1xcw5i278ybng1rand2alhkjz5"))))
 | 
			
		||||
   (build-system meson-build-system)
 | 
			
		||||
   (native-inputs (list pkg-config scdoc))
 | 
			
		||||
   (native-inputs (append (if (%current-target-system)
 | 
			
		||||
                              ;; for wayland-scanner
 | 
			
		||||
                              (list pkg-config-for-build wayland)
 | 
			
		||||
                              '())
 | 
			
		||||
                          (list pkg-config scdoc)))
 | 
			
		||||
   (inputs (list pixman libpng libjpeg-turbo wayland wayland-protocols))
 | 
			
		||||
   (home-page "https://github.com/emersion/grim")
 | 
			
		||||
   (home-page "https://sr.ht/~emersion/grim/")
 | 
			
		||||
   (synopsis "Create screenshots from a Wayland compositor")
 | 
			
		||||
   (description "grim can create screenshots from a Wayland compositor.")
 | 
			
		||||
   ;; MIT license.
 | 
			
		||||
| 
						 | 
				
			
			@ -2247,7 +2251,7 @@ identical visual appearance.")
 | 
			
		|||
(define-public slurp
 | 
			
		||||
  (package
 | 
			
		||||
   (name "slurp")
 | 
			
		||||
   (version "1.4.0")
 | 
			
		||||
   (version "1.5.0")
 | 
			
		||||
   (source
 | 
			
		||||
    (origin
 | 
			
		||||
     (method git-fetch)
 | 
			
		||||
| 
						 | 
				
			
			@ -2256,10 +2260,14 @@ identical visual appearance.")
 | 
			
		|||
           (commit (string-append "v" version))))
 | 
			
		||||
     (file-name (git-file-name name version))
 | 
			
		||||
     (sha256
 | 
			
		||||
      (base32 "1i6g4dfiv2mwkjvvrx3wizb1n05xmd4j9nkhdii4klwd1gdrhjwd"))))
 | 
			
		||||
      (base32 "0wlml42c3shma50bsvqzll7p3zn251jaf0jm59q2idks8gg1zkyq"))))
 | 
			
		||||
   (build-system meson-build-system)
 | 
			
		||||
   (native-inputs
 | 
			
		||||
    (list pkg-config scdoc))
 | 
			
		||||
    (append (if (%current-target-system)
 | 
			
		||||
                ;; for wayland-scanner
 | 
			
		||||
                (list wayland pkg-config-for-build)
 | 
			
		||||
                '())
 | 
			
		||||
            (list pkg-config scdoc)))
 | 
			
		||||
   (inputs
 | 
			
		||||
    (list cairo libxkbcommon wayland wayland-protocols))
 | 
			
		||||
   (home-page "https://github.com/emersion/slurp")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -30,6 +30,7 @@
 | 
			
		|||
  #:use-module (guix build-system go)
 | 
			
		||||
  #:use-module (gnu packages golang)
 | 
			
		||||
  #:use-module (gnu packages golang-check)
 | 
			
		||||
  #:use-module (gnu packages golang-web)
 | 
			
		||||
  #:use-module (gnu packages python)
 | 
			
		||||
  #:use-module (gnu packages shells)
 | 
			
		||||
  #:use-module (gnu packages syncthing))
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,6 +1,6 @@
 | 
			
		|||
;;; GNU Guix --- Functional package management for GNU
 | 
			
		||||
;;; Copyright © 2012, 2013, 2018 Ludovic Courtès <ludo@gnu.org>
 | 
			
		||||
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
 | 
			
		||||
;;; Copyright © 2017, 2024 Efraim Flashner <efraim@flashner.co.il>
 | 
			
		||||
;;;
 | 
			
		||||
;;; This file is part of GNU Guix.
 | 
			
		||||
;;;
 | 
			
		||||
| 
						 | 
				
			
			@ -21,6 +21,7 @@
 | 
			
		|||
  #:use-module (guix licenses)
 | 
			
		||||
  #:use-module (guix packages)
 | 
			
		||||
  #:use-module (guix download)
 | 
			
		||||
  #:use-module (guix utils)
 | 
			
		||||
  #:use-module (guix build-system gnu))
 | 
			
		||||
 | 
			
		||||
(define-public libsigsegv
 | 
			
		||||
| 
						 | 
				
			
			@ -40,21 +41,15 @@
 | 
			
		|||
   (arguments
 | 
			
		||||
    `(;; The shared library isn't built by default but some packages need it.
 | 
			
		||||
      #:configure-flags '("--enable-shared")
 | 
			
		||||
 | 
			
		||||
      ;; On MIPS, work around this error:
 | 
			
		||||
      ;;
 | 
			
		||||
      ;; In file included from fault-linux-mips-old.h:18:0,
 | 
			
		||||
      ;;    [...]
 | 
			
		||||
      ;; linux-libre-headers-cross-mips64el-linux-gnu-3.3.8/include/asm/sigcontext.h:57:8: error: redefinition of 'struct sigcontext'
 | 
			
		||||
      ,@(if (string-contains (or (%current-target-system) (%current-system))
 | 
			
		||||
                             "mips64el")
 | 
			
		||||
      ;; On some architectures 'struct sigcontext' gets redefined from
 | 
			
		||||
      ;; %linux-libre-headers/include/asm/sigcontext.h
 | 
			
		||||
      ,@(cond ((%current-target-system)
 | 
			
		||||
               `(#:phases (modify-phases %standard-phases
 | 
			
		||||
                         (add-before 'configure 'patch-mips-old-h
 | 
			
		||||
                            (add-before 'configure 'patch-asm-sigcontext-h
 | 
			
		||||
                              (lambda _
 | 
			
		||||
                             (substitute* "src/fault-linux-mips-old.h"
 | 
			
		||||
                               (("#include <asm/sigcontext\\.h>") ""))
 | 
			
		||||
                             #t))))
 | 
			
		||||
            '())))
 | 
			
		||||
                                (substitute* (find-files "src" "^fault-.*-old\\.h$")
 | 
			
		||||
                                  (("#include <asm/sigcontext\\.h>") "")))))))
 | 
			
		||||
              (else '()))))
 | 
			
		||||
   (description
 | 
			
		||||
    "GNU libsigsegv is a library to handle page faults, which occur when a
 | 
			
		||||
program tries to access an unavailable region of memory, in user mode.  By
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -76,7 +76,7 @@
 | 
			
		|||
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
 | 
			
		||||
;;; Copyright © 2023 dan <i@dan.games>
 | 
			
		||||
;;; Copyright © 2023 Foundation Devices, Inc. <hello@foundationdevices.com>
 | 
			
		||||
;;; Copyright © 2023 Wilko Meyer <w@wmeyer.eu>
 | 
			
		||||
;;; Copyright © 2023, 2024 Wilko Meyer <w@wmeyer.eu>
 | 
			
		||||
;;; Copyright © 2023 Jaeme Sifat <jaeme@runbox.com>
 | 
			
		||||
;;;
 | 
			
		||||
;;; This file is part of GNU Guix.
 | 
			
		||||
| 
						 | 
				
			
			@ -494,17 +494,17 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
 | 
			
		|||
;; The current "stable" kernels. That is, the most recently released major
 | 
			
		||||
;; versions that are still supported upstream.
 | 
			
		||||
 | 
			
		||||
(define-public linux-libre-6.6-version "6.6.8")
 | 
			
		||||
(define-public linux-libre-6.6-version "6.6.9")
 | 
			
		||||
(define-public linux-libre-6.6-gnu-revision "gnu")
 | 
			
		||||
(define deblob-scripts-6.6
 | 
			
		||||
  (linux-libre-deblob-scripts
 | 
			
		||||
   linux-libre-6.6-version
 | 
			
		||||
   linux-libre-6.6-gnu-revision
 | 
			
		||||
   (base32 "0g8m0rb15b0231dv8ji456s75a67szsaim71may3yprplycz6pav")
 | 
			
		||||
   (base32 "1hg3ck1j8288fhlhcvhgs1zzwh3i62nfvphw7x3vsaqr75kiwbjp")))
 | 
			
		||||
   (base32 "0kavbby960k7wg355p3hjb9v1c4gnk8dv3lkfhpz44ayhv7kihg5")))
 | 
			
		||||
(define-public linux-libre-6.6-pristine-source
 | 
			
		||||
  (let ((version linux-libre-6.6-version)
 | 
			
		||||
        (hash (base32 "05i4ayj9wyjkd1s8ixx7bxwcyagqyx8rhj1zvbc3cjqyw4sc8djh")))
 | 
			
		||||
        (hash (base32 "1cs8ym3yq9czjx6sbxpmn16l6a577mc4c1ff7nk1p2gw1jpnbg4f")))
 | 
			
		||||
   (make-linux-libre-source version
 | 
			
		||||
                            (%upstream-linux-source version hash)
 | 
			
		||||
                            deblob-scripts-6.6)))
 | 
			
		||||
| 
						 | 
				
			
			@ -512,17 +512,17 @@ corresponding UPSTREAM-SOURCE (an origin), using the given DEBLOB-SCRIPTS."
 | 
			
		|||
;; The "longterm" kernels — the older releases with long-term upstream support.
 | 
			
		||||
;; Here are the support timelines:
 | 
			
		||||
;; <https://www.kernel.org/category/releases.html>
 | 
			
		||||
(define-public linux-libre-6.1-version "6.1.69")
 | 
			
		||||
(define-public linux-libre-6.1-version "6.1.70")
 | 
			
		||||
(define-public linux-libre-6.1-gnu-revision "gnu")
 | 
			
		||||
(define deblob-scripts-6.1
 | 
			
		||||
  (linux-libre-deblob-scripts
 | 
			
		||||
   linux-libre-6.1-version
 | 
			
		||||
   linux-libre-6.1-gnu-revision
 | 
			
		||||
   (base32 "1sf80f2i4vf888xjcn84ymn4w5ynn30ib9033zwmv7f09yvfhapy")
 | 
			
		||||
   (base32 "1hdibv43xbn1lv83i6qjgfmf1bvqxvq17fryfsq4r4sjgs9212js")))
 | 
			
		||||
   (base32 "1jg2v1nxd6i5x536vmd1l14xhpzrcimpmjfipb1zkrwil102y25f")))
 | 
			
		||||
(define-public linux-libre-6.1-pristine-source
 | 
			
		||||
  (let ((version linux-libre-6.1-version)
 | 
			
		||||
        (hash (base32 "0hdm28k49kmy9r96hckps0bvvaq9m06l72n8ih305rccs6a2cgby")))
 | 
			
		||||
        (hash (base32 "1vxgardfm2fi4c7zkxpljqicllfqqnp835a9lyb7dh2nchk6a4zd")))
 | 
			
		||||
   (make-linux-libre-source version
 | 
			
		||||
                            (%upstream-linux-source version hash)
 | 
			
		||||
                            deblob-scripts-6.1)))
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1038,8 +1038,8 @@ interactive development.")
 | 
			
		|||
  (sbcl-package->ecl-package sbcl-stefil))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-try
 | 
			
		||||
  (let ((commit "a1fffad2ca328b3855f629b633ab1daaeec929c2")
 | 
			
		||||
        (revision "1"))
 | 
			
		||||
  (let ((commit "cf2a8887d091bf297b72ef69e15012e7e849ba3b")
 | 
			
		||||
        (revision "2"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-try")
 | 
			
		||||
      (version (git-version "0.0.1" revision commit))
 | 
			
		||||
| 
						 | 
				
			
			@ -1051,7 +1051,7 @@ interactive development.")
 | 
			
		|||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name "cl-try" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "03dm2i2y4wiyzz9d25zdxm6gdglnvwali0ylp0rfwpk6wf29sj09"))))
 | 
			
		||||
          (base32 "166i3fqwxfv9skz6yf95c95nx0jjqy1ak1131bd0sqmd582gi9mg"))))
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
      (native-inputs
 | 
			
		||||
       (list sbcl-cl-ppcre))
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -32,7 +32,7 @@
 | 
			
		|||
;;; Copyright © 2021 Aleksandr Vityazev <avityazev@posteo.org>
 | 
			
		||||
;;; Copyright © 2021 Jacob MacDonald <jaccarmac@gmail.com>
 | 
			
		||||
;;; Copyright © 2022 Jai Vetrivelan <jaivetrivelan@gmail.com>
 | 
			
		||||
;;; Copyright © 2022, 2023 Paul A. Patience <paul@apatience.com>
 | 
			
		||||
;;; Copyright © 2022, 2023, 2024 Paul A. Patience <paul@apatience.com>
 | 
			
		||||
;;; Copyright © 2022 Thomas Albers Raviola <thomas@thomaslabs.org>
 | 
			
		||||
;;; Copyright © 2022 Arun Isaac <arunisaac@systemreboot.net>
 | 
			
		||||
;;; Copyright © 2022 Trevor Richards <trev@trevdev.ca>
 | 
			
		||||
| 
						 | 
				
			
			@ -1005,11 +1005,11 @@ Common Lisp, heavily influenced by Python's @code{optparse} and
 | 
			
		|||
  (sbcl-package->cl-source-package sbcl-adopt))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-clingon
 | 
			
		||||
  (let ((commit "ff4fda1768551fecdf1c527a3097ae99ba5f40b5")
 | 
			
		||||
        (revision "1"))
 | 
			
		||||
  (let ((commit "379fc41e7b3977661f1454cf35acdbfae046d40d")
 | 
			
		||||
        (revision "0"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-clingon")
 | 
			
		||||
      (version (git-version "0.4.0" revision commit))
 | 
			
		||||
      (version (git-version "0.5.0" revision commit))
 | 
			
		||||
      (source
 | 
			
		||||
       (origin
 | 
			
		||||
         (method git-fetch)
 | 
			
		||||
| 
						 | 
				
			
			@ -1018,7 +1018,7 @@ Common Lisp, heavily influenced by Python's @code{optparse} and
 | 
			
		|||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name "cl-clingon" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "1b5ybq2x8bwsr541cznwv43lf9j5gz1ij52xj181kg32wb3x0y3n"))))
 | 
			
		||||
          (base32 "11p9lplx0fc5ghx601i150vrd46zdbvw0hfrbrrrdqplxaqpywq5"))))
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
      (native-inputs
 | 
			
		||||
       (list sbcl-rove))
 | 
			
		||||
| 
						 | 
				
			
			@ -1510,8 +1510,8 @@ compatible with ANSI-compliant Common Lisp implementations.")
 | 
			
		|||
  (sbcl-package->ecl-package sbcl-cl-ppcre))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-one-more-re-nightmare
 | 
			
		||||
  (let ((commit "09c33feed35797512bf123ccca053cf8ba42bfbd")
 | 
			
		||||
        (revision "0"))
 | 
			
		||||
  (let ((commit "5b0b02e59f90964baf5737abd13300fa82f27667")
 | 
			
		||||
        (revision "1"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-one-more-re-nightmare")
 | 
			
		||||
      (version (git-version "0.0.0" revision commit))
 | 
			
		||||
| 
						 | 
				
			
			@ -1523,7 +1523,7 @@ compatible with ANSI-compliant Common Lisp implementations.")
 | 
			
		|||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name "cl-one-more-re-nightmare" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "0vc0lxvn3anjb63hr26r1l18aw5nbj80w9ja3a32fip6nbwfsrfv"))))
 | 
			
		||||
          (base32 "0mwgjgnp8dsf2zn0290px5q89z93zs0v4dhvs3rcir4mpiw8rbsn"))))
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
      (arguments
 | 
			
		||||
       '(#:asd-test-systems '("one-more-re-nightmare-tests")
 | 
			
		||||
| 
						 | 
				
			
			@ -3152,8 +3152,8 @@ Lisp.")
 | 
			
		|||
  (sbcl-package->ecl-package sbcl-calm))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-esrap
 | 
			
		||||
  (let ((commit "4c82a863871e117f0041b9ef37e61c0b62318aa7")
 | 
			
		||||
        (revision "3"))
 | 
			
		||||
  (let ((commit "d806138342a6b27327649fd5f36e0fe2e0966867")
 | 
			
		||||
        (revision "4"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-esrap")
 | 
			
		||||
      (version (git-version "0.18" revision commit))
 | 
			
		||||
| 
						 | 
				
			
			@ -3163,9 +3163,9 @@ Lisp.")
 | 
			
		|||
         (uri (git-reference
 | 
			
		||||
               (url "https://github.com/scymtym/esrap")
 | 
			
		||||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name "cl-esrap" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "16nc3rhxd61xabja1h9akqqva0cmz2gxk0bkaqy10h492wx93d81"))
 | 
			
		||||
         (file-name (git-file-name "cl-esrap" version))))
 | 
			
		||||
          (base32 "0gs0mfamldhaihnlk0qxg2q4bl8bamq68dif9js9fkl8apg3iykl"))))
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
      (native-inputs
 | 
			
		||||
       (list sbcl-fiveam))
 | 
			
		||||
| 
						 | 
				
			
			@ -3407,8 +3407,8 @@ than the body of the lambda.")
 | 
			
		|||
 | 
			
		||||
(define-public sbcl-nibbles
 | 
			
		||||
  ;; No tagged release since 2018.
 | 
			
		||||
  (let ((commit "dad25240928d5cf8f7df69c4398244e03570bb35")
 | 
			
		||||
        (revision "2"))
 | 
			
		||||
  (let ((commit "a46a67736e07b548cdd7485cb36834f7942313f1")
 | 
			
		||||
        (revision "3"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-nibbles")
 | 
			
		||||
      (version (git-version "0.14" revision commit))
 | 
			
		||||
| 
						 | 
				
			
			@ -3418,9 +3418,9 @@ than the body of the lambda.")
 | 
			
		|||
         (uri (git-reference
 | 
			
		||||
               (url "https://github.com/sharplispers/nibbles/")
 | 
			
		||||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name "cl-nibbles" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "0r6ljlpgjmkf87pmvdwzva8qj15bhznc3ylgcjjqyy4frbx9lygz"))
 | 
			
		||||
         (file-name (git-file-name "nibbles" version))))
 | 
			
		||||
          (base32 "12qjich11hp31dhbvbsixyjbddmr6faaajigrivgbxy9kw6d279j"))))
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
      (native-inputs
 | 
			
		||||
       ;; Tests only.
 | 
			
		||||
| 
						 | 
				
			
			@ -7497,8 +7497,8 @@ port within a range.")
 | 
			
		|||
  (sbcl-package->ecl-package sbcl-find-port))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-numpy-file-format
 | 
			
		||||
  (let ((commit "e97aef6c592a412fdd1afa9a5f09d0b1ce134510")
 | 
			
		||||
        (revision "1"))
 | 
			
		||||
  (let ((commit "e440c7bbc0d86b9abf73acb0fa665b77b82a6c98")
 | 
			
		||||
        (revision "2"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-numpy-file-format")
 | 
			
		||||
      (version (git-version "0.0.0" revision commit))
 | 
			
		||||
| 
						 | 
				
			
			@ -7510,7 +7510,7 @@ port within a range.")
 | 
			
		|||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name "cl-numpy-file-format" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "0j7jjcf6k3anvgpm4nf81g6gbhff44v0v9rai7kwm2bm3abzsjfd"))))
 | 
			
		||||
          (base32 "1n0nixc44z1cymm20wif0l2100ydv0h69l6i6xz5bmwcb2zc4gqr"))))
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
      (inputs
 | 
			
		||||
       (list sbcl-ieee-floats sbcl-trivial-features))
 | 
			
		||||
| 
						 | 
				
			
			@ -8316,8 +8316,8 @@ cookie headers, cookie creation, cookie jar creation and more.")
 | 
			
		|||
  (sbcl-package->ecl-package sbcl-cl-cookie))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-dexador
 | 
			
		||||
  (let ((commit "74a233edb0ebf2b8c696fb8db984ac568fbcc4e5")
 | 
			
		||||
        (revision "1"))
 | 
			
		||||
  (let ((commit "051cbb784ea3015cef9731eb5a624f3122de84b5")
 | 
			
		||||
        (revision "2"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-dexador")
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
| 
						 | 
				
			
			@ -8331,7 +8331,7 @@ cookie headers, cookie creation, cookie jar creation and more.")
 | 
			
		|||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name "cl-dexador" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "14cbykd9j8klm8sz3siq5zk78a0ljd6rdwfq12fi4h1ih50apyfi"))))
 | 
			
		||||
          (base32 "1sggpi43la8dai102fmkzysh7760hvk6q68f0pkbb9187vz8nd3y"))))
 | 
			
		||||
      (inputs
 | 
			
		||||
       (list sbcl-alexandria
 | 
			
		||||
             sbcl-babel
 | 
			
		||||
| 
						 | 
				
			
			@ -8342,22 +8342,19 @@ cookie headers, cookie creation, cookie jar creation and more.")
 | 
			
		|||
             sbcl-cl-base64
 | 
			
		||||
             sbcl-cl-cookie
 | 
			
		||||
             sbcl-cl-ppcre
 | 
			
		||||
             sbcl-cl-reexport
 | 
			
		||||
             sbcl-fast-http
 | 
			
		||||
             sbcl-fast-io
 | 
			
		||||
             sbcl-quri
 | 
			
		||||
             sbcl-trivial-garbage
 | 
			
		||||
             sbcl-trivial-gray-streams
 | 
			
		||||
             sbcl-trivial-mimes
 | 
			
		||||
             sbcl-usocket))
 | 
			
		||||
      ;; These native-inputs are for tests only, which are disabled.
 | 
			
		||||
      ;; Leave them commented since they add a lot to the closure size.
 | 
			
		||||
      ;; (native-inputs
 | 
			
		||||
      ;;  (list sbcl-cl-ppcre
 | 
			
		||||
      ;;        sbcl-clack
 | 
			
		||||
      ;;  (list sbcl-clack
 | 
			
		||||
      ;;        sbcl-lack
 | 
			
		||||
      ;;        sbcl-local-time
 | 
			
		||||
      ;;        sbcl-prove
 | 
			
		||||
      ;;        sbcl-trivial-features))
 | 
			
		||||
      ;;        sbcl-rove))
 | 
			
		||||
      (arguments
 | 
			
		||||
       ;; TODO: Circular dependency: tests depend on clack-test which depends on dexador.
 | 
			
		||||
       `(#:tests? #f
 | 
			
		||||
| 
						 | 
				
			
			@ -13990,8 +13987,8 @@ MOP easier to use.")
 | 
			
		|||
       '(#:tests? #f)))))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-osicat
 | 
			
		||||
  (let ((commit "a45eb3b5826e9175f7c94ba97a00d6b4932f3163")
 | 
			
		||||
        (revision "3"))
 | 
			
		||||
  (let ((commit "982327905b8980ff3173344ca87282e046565732")
 | 
			
		||||
        (revision "4"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-osicat")
 | 
			
		||||
      (version (git-version "0.7.0" revision commit))
 | 
			
		||||
| 
						 | 
				
			
			@ -14004,7 +14001,7 @@ MOP easier to use.")
 | 
			
		|||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name "cl-osicat" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "1ilag0b0xn97acc0m1q93vwp2y3md9a586858zfx04d8wpbvk8sz"))
 | 
			
		||||
          (base32 "10q1dfkhrvp5ia860q10y4wdm11fmxf7xv8zl4viz2np9xzf5v22"))
 | 
			
		||||
         (snippet
 | 
			
		||||
          '(begin
 | 
			
		||||
             ;; The useless release.sh drags `bash' into the closure.
 | 
			
		||||
| 
						 | 
				
			
			@ -17455,19 +17452,20 @@ the @command{flamegraph.pl} script, which is available in the Guix package
 | 
			
		|||
  (sbcl-package->cl-source-package sbcl-flamegraph))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-trivial-benchmark
 | 
			
		||||
  (let ((commit "42d76733dd2e873471c6f1e27d39113293f7dd5c"))
 | 
			
		||||
  (let ((commit "1fbc8d15f09ed8aa426bc73956b8b7c9b2668802")
 | 
			
		||||
        (revision "2"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-trivial-benchmark")
 | 
			
		||||
      (version (git-version "2.0.0" "1" commit))
 | 
			
		||||
      (version (git-version "2.0.0" revision commit))
 | 
			
		||||
      (source
 | 
			
		||||
       (origin
 | 
			
		||||
         (method git-fetch)
 | 
			
		||||
         (uri (git-reference
 | 
			
		||||
               (url "https://github.com/Shinmera/trivial-benchmark/")
 | 
			
		||||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name name version))
 | 
			
		||||
         (file-name (git-file-name "cl-trivial-benchmark" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "0fbzqbpm2ixz85555krl36kbbbjyn699vdj6k383khi3g9y629fa"))))
 | 
			
		||||
          (base32 "1p48wgpady0n8frdcgp7sbg93b0fbvpx1qk5valmanhwr9j3xh88"))))
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
      (inputs
 | 
			
		||||
       (list sbcl-alexandria))
 | 
			
		||||
| 
						 | 
				
			
			@ -17952,34 +17950,30 @@ standard library.")
 | 
			
		|||
  (sbcl-package->cl-source-package sbcl-shlex))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-cmd
 | 
			
		||||
  (let ((commit "dda16c251992d2711dd98a073c436e73355cdb15"))
 | 
			
		||||
  (let ((commit "0164d574ba236e2001ee1d9dba3f4774c7512a8c")
 | 
			
		||||
        (revision "8"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-cmd")
 | 
			
		||||
      (version (git-version "0.0.1" "7" commit))
 | 
			
		||||
      (version (git-version "0.0.1" revision commit))
 | 
			
		||||
      (source
 | 
			
		||||
       (origin
 | 
			
		||||
         (method git-fetch)
 | 
			
		||||
         (uri (git-reference
 | 
			
		||||
               (url "https://github.com/ruricolist/cmd/")
 | 
			
		||||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name name version))
 | 
			
		||||
         (file-name (git-file-name "cl-cmd" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "1m72vir64h21y3z1dmdywr0r3dl9lwawgd5p9g0cl3bgmz2wjgqr"))))
 | 
			
		||||
          (base32 "03wbckzmz6pqdlz7pyar6nfg4vs4bl0b2np7n3kk3qhjbrdakc4m"))))
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
      (inputs
 | 
			
		||||
       `(("alexandria" ,sbcl-alexandria)
 | 
			
		||||
         ("coreutils" ,coreutils)
 | 
			
		||||
         ("procps" ,procps)
 | 
			
		||||
         ("serapeum" ,sbcl-serapeum)
 | 
			
		||||
         ("shlex" ,sbcl-shlex)
 | 
			
		||||
         ("trivia" ,sbcl-trivia)))
 | 
			
		||||
      (arguments
 | 
			
		||||
       `(#:phases
 | 
			
		||||
         (modify-phases %standard-phases
 | 
			
		||||
       (list #:phases
 | 
			
		||||
             #~(modify-phases %standard-phases
 | 
			
		||||
                 (add-after 'unpack 'fix-paths
 | 
			
		||||
                   (lambda* (#:key inputs #:allow-other-keys)
 | 
			
		||||
               (let ((bin (string-append (assoc-ref inputs "coreutils") "/bin"))
 | 
			
		||||
                     (ps-bin (string-append (assoc-ref inputs "procps") "/bin")))
 | 
			
		||||
                     (let ((bin (string-append (assoc-ref inputs "coreutils")
 | 
			
		||||
                                               "/bin"))
 | 
			
		||||
                           (ps-bin (string-append (assoc-ref inputs "procps")
 | 
			
		||||
                                                  "/bin")))
 | 
			
		||||
                       (substitute* "cmd.lisp"
 | 
			
		||||
                         (("\\(def \\+env\\+ \"env\"\\)")
 | 
			
		||||
                          (format #f "(def +env+ \"~a/env\")" bin))
 | 
			
		||||
| 
						 | 
				
			
			@ -17993,6 +17987,13 @@ standard library.")
 | 
			
		|||
                          (format #f "(def +sh+ \"~a\")" (which "sh")))
 | 
			
		||||
                         (("\\(def \\+tr\\+ \"tr\"\\)")
 | 
			
		||||
                          (format #f "(def +tr+ \"~a/tr\")" bin)))))))))
 | 
			
		||||
      (inputs
 | 
			
		||||
       (list coreutils
 | 
			
		||||
             procps
 | 
			
		||||
             sbcl-alexandria
 | 
			
		||||
             sbcl-serapeum
 | 
			
		||||
             sbcl-shlex
 | 
			
		||||
             sbcl-trivia))
 | 
			
		||||
      (home-page "https://github.com/ruricolist/cmd")
 | 
			
		||||
      (synopsis "Conveniently run external programs from Common Lisp")
 | 
			
		||||
      (description
 | 
			
		||||
| 
						 | 
				
			
			@ -18195,18 +18196,20 @@ the origin.")
 | 
			
		|||
  (sbcl-package->cl-source-package sbcl-concrete-syntax-tree))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-eclector
 | 
			
		||||
  (let ((commit "d499b09142c7e39b4ef52e821fa767d5a8d606a0")
 | 
			
		||||
        (revision "0"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-eclector")
 | 
			
		||||
    (version "0.9.0")
 | 
			
		||||
      (version (git-version "0.9.0" revision commit))
 | 
			
		||||
      (source
 | 
			
		||||
       (origin
 | 
			
		||||
         (method git-fetch)
 | 
			
		||||
         (uri (git-reference
 | 
			
		||||
               (url "https://github.com/s-expressionists/Eclector")
 | 
			
		||||
             (commit version)))
 | 
			
		||||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name "cl-eclector" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
        (base32 "10whwpz08fkdcz59sz1b6rn5r1pdns5wnsb1g26gppiv3rrg3cvh"))))
 | 
			
		||||
          (base32 "1sg8wmdpm8pcjwk394way5vs2ya3r995lddmi51q9zfn9hmzb7gn"))))
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
      (native-inputs
 | 
			
		||||
       (list sbcl-fiveam))
 | 
			
		||||
| 
						 | 
				
			
			@ -18230,7 +18233,7 @@ is realized as a restart.
 | 
			
		|||
 | 
			
		||||
It can also produce instances of the concrete syntax tree classes provided by
 | 
			
		||||
the concrete syntax tree library.")
 | 
			
		||||
    (license license:bsd-2)))
 | 
			
		||||
      (license license:bsd-2))))
 | 
			
		||||
 | 
			
		||||
(define-public ecl-eclector
 | 
			
		||||
  (sbcl-package->ecl-package sbcl-eclector))
 | 
			
		||||
| 
						 | 
				
			
			@ -19193,8 +19196,8 @@ Lisp.")
 | 
			
		|||
  (sbcl-package->cl-source-package sbcl-percent-encoding))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-machine-state
 | 
			
		||||
  (let ((commit "afa7392bc5dcb689cd170bcca765fb6ce6e4efc5")
 | 
			
		||||
        (revision "1"))
 | 
			
		||||
  (let ((commit "3d258eea63942e7d2fd7212f1ad8bbcf505634a2")
 | 
			
		||||
        (revision "2"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-machine-state")
 | 
			
		||||
      (version (git-version "1.0.0" revision commit))
 | 
			
		||||
| 
						 | 
				
			
			@ -19204,9 +19207,9 @@ Lisp.")
 | 
			
		|||
         (uri (git-reference
 | 
			
		||||
               (url "https://github.com/Shinmera/machine-state")
 | 
			
		||||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name "machine-state" version))
 | 
			
		||||
         (file-name (git-file-name "cl-machine-state" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "1b897wj06cnalzf5nl6rif1skpa79rzc9a562x1bdhvanhsp7hwa"))))
 | 
			
		||||
          (base32 "1fjf2v8agx75qnna1n8fn54lvb01w1rk1vddi3p45a2xw1kwhzml"))))
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
      (inputs
 | 
			
		||||
       (list sbcl-bordeaux-threads
 | 
			
		||||
| 
						 | 
				
			
			@ -19216,7 +19219,7 @@ Lisp.")
 | 
			
		|||
      (arguments
 | 
			
		||||
       '(#:tests? #f                    ; No tests.
 | 
			
		||||
         #:asd-systems '("machine-state" "machine-state/opengl")))
 | 
			
		||||
      (home-page "https://notabug.org/cage/cl-mount-info.git")
 | 
			
		||||
      (home-page "https://shinmera.github.io/machine-state/")
 | 
			
		||||
      (synopsis "Retrieve machine state information about CPU time, memory usage and more")
 | 
			
		||||
      (description
 | 
			
		||||
       "This library implements various functions to access status information
 | 
			
		||||
| 
						 | 
				
			
			@ -19868,8 +19871,8 @@ abstract, final and singleton classes.")
 | 
			
		|||
  (sbcl-package->cl-source-package sbcl-abstract-classes))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-coalton
 | 
			
		||||
  (let ((commit "ba758062bdc7c316438198601f43900c51df25d8")
 | 
			
		||||
        (revision "3"))
 | 
			
		||||
  (let ((commit "939342495f55991812c2c2767322c5e51e755216")
 | 
			
		||||
        (revision "4"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-coalton")
 | 
			
		||||
      (version (git-version "0.0.1" revision commit))
 | 
			
		||||
| 
						 | 
				
			
			@ -19881,16 +19884,17 @@ abstract, final and singleton classes.")
 | 
			
		|||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name "cl-coalton" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "08sxfla1gyf9pczylaq1cn2j1nr2gzc9w0pk6aarsa4q2770zhf7"))))
 | 
			
		||||
          (base32 "08qzj3v4fvn9h87whyqg650rpap8lva7jr94d1akv6m2z62l5q68"))))
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
      (native-inputs
 | 
			
		||||
       (list sbcl-fiasco))
 | 
			
		||||
      (inputs
 | 
			
		||||
       (list sbcl-alexandria
 | 
			
		||||
             sbcl-concrete-syntax-tree
 | 
			
		||||
             sbcl-eclector
 | 
			
		||||
             sbcl-float-features
 | 
			
		||||
             sbcl-fset
 | 
			
		||||
             sbcl-json-streams
 | 
			
		||||
             sbcl-split-sequence
 | 
			
		||||
             sbcl-named-readtables
 | 
			
		||||
             sbcl-trivial-garbage))
 | 
			
		||||
      (home-page "https://coalton-lang.github.io")
 | 
			
		||||
      (synopsis "Dialect of ML in Common Lisp")
 | 
			
		||||
| 
						 | 
				
			
			@ -20561,6 +20565,118 @@ alternative 4x4 matrix representation.")
 | 
			
		|||
(define-public cl-3d-transforms
 | 
			
		||||
  (sbcl-package->cl-source-package sbcl-3d-transforms))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-type-templates
 | 
			
		||||
  (let ((commit "5b389ebcff61b81585a64d0b899b69fa12aa5f96")
 | 
			
		||||
        (revision "0"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-type-templates")
 | 
			
		||||
      (version (git-version "4.0.0" revision commit))
 | 
			
		||||
      (source
 | 
			
		||||
       (origin
 | 
			
		||||
         (method git-fetch)
 | 
			
		||||
         (uri (git-reference
 | 
			
		||||
               (url "https://github.com/Shinmera/type-templates")
 | 
			
		||||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name "cl-type-templates" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "1zmz3bmwg8ncqbnjwimn8n7q9ik9arnhd5ijd22ap1nwhbnmk1rj"))))
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
      (arguments
 | 
			
		||||
       ;; No tests
 | 
			
		||||
       (list #:tests? #f))
 | 
			
		||||
      (inputs
 | 
			
		||||
       (list sbcl-alexandria
 | 
			
		||||
             sbcl-documentation-utils
 | 
			
		||||
             sbcl-form-fiddle))
 | 
			
		||||
      (home-page "https://shinmera.github.io/type-templates/")
 | 
			
		||||
      (synopsis "Library for defining and expanding templated functions")
 | 
			
		||||
      (description
 | 
			
		||||
       "The Type-Templates library allows you to define types and “template
 | 
			
		||||
functions” that can be expanded into various type-specialized versions to
 | 
			
		||||
eliminate runtime dispatch overhead.  It was specifically designed to
 | 
			
		||||
implement low-level numerical data types and functionality.")
 | 
			
		||||
      (license license:zlib))))
 | 
			
		||||
 | 
			
		||||
(define-public cl-type-templates
 | 
			
		||||
  (sbcl-package->cl-source-package sbcl-type-templates))
 | 
			
		||||
 | 
			
		||||
(define-public ecl-type-templates
 | 
			
		||||
  (sbcl-package->ecl-package sbcl-type-templates))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-3d-math
 | 
			
		||||
  (let ((commit "3831b1706d225def95a7301ef48b393b563f0114")
 | 
			
		||||
        (revision "0"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-3d-math")
 | 
			
		||||
      (version (git-version "1.0.0" revision commit))
 | 
			
		||||
      (source
 | 
			
		||||
       (origin
 | 
			
		||||
         (method git-fetch)
 | 
			
		||||
         (uri (git-reference
 | 
			
		||||
               (url "https://github.com/Shinmera/3d-math")
 | 
			
		||||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name "cl-3d-math" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "052vzx5j7bag9dxvl0j0wrm244js1djldyn31rwxgkq7965rmi5r"))))
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
      (native-inputs
 | 
			
		||||
       (list sbcl-parachute))
 | 
			
		||||
      (inputs
 | 
			
		||||
       (list sbcl-documentation-utils
 | 
			
		||||
             sbcl-type-templates))
 | 
			
		||||
      (home-page "https://shinmera.github.io/3d-math/")
 | 
			
		||||
      (synopsis "Linear algebra for 2D and 3D computations")
 | 
			
		||||
      (description
 | 
			
		||||
       "The @code{3d-math} library implements types, operators, and algorithms
 | 
			
		||||
commonly used in math for 2D and 3D graphics.  It supersedes and combines the
 | 
			
		||||
prior libraries @code{3d-vectors}, @code{3d-matrices}, @code{3d-quaternions},
 | 
			
		||||
and @code{3d-transforms}.  The new API is largely but not entirely backwards
 | 
			
		||||
compatible, and adds new functionality.")
 | 
			
		||||
      (license license:zlib))))
 | 
			
		||||
 | 
			
		||||
(define-public cl-3d-math
 | 
			
		||||
  (sbcl-package->cl-source-package sbcl-3d-math))
 | 
			
		||||
 | 
			
		||||
(define-public ecl-3d-math
 | 
			
		||||
  (sbcl-package->ecl-package sbcl-3d-math))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-3d-spaces
 | 
			
		||||
  (let ((commit "a93f4915affcf65617366297ad8bd2ec77bae702")
 | 
			
		||||
        (revision "0"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-3d-spaces")
 | 
			
		||||
      (version (git-version "1.0.0" revision commit))
 | 
			
		||||
      (source
 | 
			
		||||
       (origin
 | 
			
		||||
         (method git-fetch)
 | 
			
		||||
         (uri (git-reference
 | 
			
		||||
               (url "https://github.com/Shirakumo/3d-spaces")
 | 
			
		||||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name "cl-3d-spaces" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "1m5cg5zy1731dcgkm1p4m53z1zsp387xligxh32pdrnrhc2lzhmf"))))
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
      (native-inputs
 | 
			
		||||
       (list sbcl-parachute))
 | 
			
		||||
      (inputs
 | 
			
		||||
       (list sbcl-3d-math
 | 
			
		||||
             sbcl-documentation-utils
 | 
			
		||||
             sbcl-for
 | 
			
		||||
             sbcl-trivial-extensible-sequences))
 | 
			
		||||
      (home-page "https://shirakumo.github.io/3d-spaces/")
 | 
			
		||||
      (synopsis "Implementations of various spatial query structures")
 | 
			
		||||
      (description
 | 
			
		||||
       "The 3D-Spaces library implements a number of spatial query data
 | 
			
		||||
structures; structures that can answer spatial range queries for optimized
 | 
			
		||||
lookup, particularly suited for games.")
 | 
			
		||||
      (license license:zlib))))
 | 
			
		||||
 | 
			
		||||
(define-public cl-3d-spaces
 | 
			
		||||
  (sbcl-package->cl-source-package sbcl-3d-spaces))
 | 
			
		||||
 | 
			
		||||
(define-public ecl-3d-spaces
 | 
			
		||||
  (sbcl-package->ecl-package sbcl-3d-spaces))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-glsl-toolkit
 | 
			
		||||
  (let ((commit "4c4889e75c635772c4df70b11d6f14e7a596da43")
 | 
			
		||||
        (revision "2"))
 | 
			
		||||
| 
						 | 
				
			
			@ -20785,25 +20901,25 @@ all kind of typesetting applications.")
 | 
			
		|||
  (sbcl-package->cl-source-package sbcl-cl-typesetting))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-shasht
 | 
			
		||||
  (let ((commit "4055327ef8e2aaa8627892ab256350ff3cb15e3c")
 | 
			
		||||
        (revision "1"))
 | 
			
		||||
  (let ((commit "27ba0a8842e103f2d575b3c8bbcfc19bd172d9ea")
 | 
			
		||||
        (revision "2"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-shasht")
 | 
			
		||||
      (version (git-version "0.1.0" revision commit))
 | 
			
		||||
      (version (git-version "0.1" revision commit))
 | 
			
		||||
      (source
 | 
			
		||||
       (origin
 | 
			
		||||
         (method git-fetch)
 | 
			
		||||
         (uri (git-reference
 | 
			
		||||
               (url "https://github.com/yitzchak/shasht")
 | 
			
		||||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name "shasht" version))
 | 
			
		||||
         (file-name (git-file-name "cl-shasht" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "01mh20s5gj0lajq45anxji77ykq1wcg72mn1y9a1k8i7q1ainjlr"))))
 | 
			
		||||
          (base32 "1y7qh8kdhk06243vkmxzdk0y9rax4g8pv28bd01j48ix777mpcdc"))))
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
      (native-inputs
 | 
			
		||||
       (list sbcl-alexandria sbcl-parachute))
 | 
			
		||||
      (inputs
 | 
			
		||||
       (list sbcl-trivial-do))
 | 
			
		||||
       (list sbcl-closer-mop sbcl-trivial-do))
 | 
			
		||||
      (home-page "https://yitzchak.github.io/shasht/")
 | 
			
		||||
      (synopsis "Common Lisp JSON reading and writing library")
 | 
			
		||||
      (description
 | 
			
		||||
| 
						 | 
				
			
			@ -21493,11 +21609,11 @@ application development library.")
 | 
			
		|||
  (sbcl-package->cl-source-package sbcl-cl-glfw3))
 | 
			
		||||
 | 
			
		||||
(define-public sbcl-cl-gltf
 | 
			
		||||
  (let ((commit "7f9193acec80cad775b61b1c7a125c14a7b35a0c")
 | 
			
		||||
  (let ((commit "dab186ebf9169926ccfcdec121a157162ad6ed83")
 | 
			
		||||
        (revision "0"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-cl-gltf")
 | 
			
		||||
      (version (git-version "1.0.0" revision commit))
 | 
			
		||||
      (version (git-version "2.0.0" revision commit))
 | 
			
		||||
      (source
 | 
			
		||||
       (origin
 | 
			
		||||
         (method git-fetch)
 | 
			
		||||
| 
						 | 
				
			
			@ -21506,7 +21622,7 @@ application development library.")
 | 
			
		|||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name "cl-gltf" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "0ni42242a4x052dqlycwrg5j6piwm87s4wgbn2q0a9s3l9f811vk"))))
 | 
			
		||||
          (base32 "0ijy0paph7w037a2k14pv8j44mnj4gwhddhxzyqsz3qwl6fpb7yb"))))
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
      (arguments
 | 
			
		||||
       ;; No tests provided.
 | 
			
		||||
| 
						 | 
				
			
			@ -21733,8 +21849,8 @@ impossible to merge back upstream.")
 | 
			
		|||
 | 
			
		||||
(define-public sbcl-atomics
 | 
			
		||||
  ;; No release in years.
 | 
			
		||||
  (let ((commit "9ee0bdebcd2bb9b242671a75460db13fbf45454c")
 | 
			
		||||
        (revision "1"))
 | 
			
		||||
  (let ((commit "b7477024894e322bff9c85e6d81e5e8d1d4eae59")
 | 
			
		||||
        (revision "2"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "sbcl-atomics")
 | 
			
		||||
      (version (git-version "1.0.0" revision commit))
 | 
			
		||||
| 
						 | 
				
			
			@ -21744,9 +21860,9 @@ impossible to merge back upstream.")
 | 
			
		|||
         (uri (git-reference
 | 
			
		||||
               (url "https://github.com/Shinmera/atomics")
 | 
			
		||||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name "atomics" version))
 | 
			
		||||
         (file-name (git-file-name "cl-atomics" version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "0mp5jdqq0aamdhgnvw149cqqi3zg7dkkibp25qi4rafw1fnpd40z"))))
 | 
			
		||||
          (base32 "1ah6fgvfva0axnhj4sp1qy6gjyw41fkhpnv998di0wbp6hls8j39"))))
 | 
			
		||||
      (build-system asdf-build-system/sbcl)
 | 
			
		||||
      (inputs
 | 
			
		||||
       (list sbcl-documentation-utils))
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -999,7 +999,7 @@ the HTML documentation of TXR.")
 | 
			
		|||
(define-public txr
 | 
			
		||||
  (package
 | 
			
		||||
    (name "txr")
 | 
			
		||||
    (version "292")
 | 
			
		||||
    (version "293")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method git-fetch)
 | 
			
		||||
| 
						 | 
				
			
			@ -1008,7 +1008,7 @@ the HTML documentation of TXR.")
 | 
			
		|||
             (commit (string-append "txr-" version))))
 | 
			
		||||
       (file-name (git-file-name name version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32 "0lly446pinfrr5d4rgsas8c7kqal2g03bbsbmn0yvhvazb39c15g"))))
 | 
			
		||||
        (base32 "1b3vhlnw4ymznnlh9d71qhkcdc1p69a53hilckc3rql9y4jsik57"))))
 | 
			
		||||
    (build-system gnu-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     (list #:configure-flags
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,5 +1,5 @@
 | 
			
		|||
;;; GNU Guix --- Functional package management for GNU
 | 
			
		||||
;;; Copyright © 2015-2023 Ricardo Wurmus <rekado@elephly.net>
 | 
			
		||||
;;; Copyright © 2015-2024 Ricardo Wurmus <rekado@elephly.net>
 | 
			
		||||
;;; Copyright © 2016, 2020-2023 Efraim Flashner <efraim@flashner.co.il>
 | 
			
		||||
;;; Copyright © 2016, 2017, 2020 Marius Bakke <mbakke@fastmail.com>
 | 
			
		||||
;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
 | 
			
		||||
| 
						 | 
				
			
			@ -1151,6 +1151,11 @@ in terms of new algorithms.")
 | 
			
		|||
    (build-system python-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     '(#:phases (modify-phases %standard-phases
 | 
			
		||||
                  (add-after 'unpack 'relax-requirements
 | 
			
		||||
                    (lambda _
 | 
			
		||||
                      ;; Does this difference really matter?
 | 
			
		||||
                      (substitute* "requirements.txt"
 | 
			
		||||
                        (("3.20.1") "3.20.2"))))
 | 
			
		||||
                  (add-before 'build 'pass-cmake-arguments
 | 
			
		||||
                    (lambda* (#:key outputs #:allow-other-keys)
 | 
			
		||||
                      ;; Pass options to the CMake-based build process.
 | 
			
		||||
| 
						 | 
				
			
			@ -1235,7 +1240,13 @@ operators and standard data types.")
 | 
			
		|||
               '(begin
 | 
			
		||||
                  (delete-file-recursively "third_party")
 | 
			
		||||
                  (substitute* "onnx/backend/test/runner/__init__.py"
 | 
			
		||||
                    (("urlretrieve\\(.*") "raise unittest.SkipTest('Skipping download')\n"))))))))
 | 
			
		||||
                    (("urlretrieve\\(.*") "raise unittest.SkipTest('Skipping download')\n"))))))
 | 
			
		||||
    (arguments
 | 
			
		||||
     ;; reuse build system tweaks
 | 
			
		||||
     (substitute-keyword-arguments (package-arguments onnx)
 | 
			
		||||
       ((#:phases phases)
 | 
			
		||||
        #~(modify-phases #$phases
 | 
			
		||||
            (delete 'relax-requirements)))))))
 | 
			
		||||
 | 
			
		||||
(define-public python-onnx
 | 
			
		||||
  ;; This used to be called "python-onnx" because it provided nothing but
 | 
			
		||||
| 
						 | 
				
			
			@ -1262,7 +1273,12 @@ operators and standard data types.")
 | 
			
		|||
              (modules '((guix build utils)))
 | 
			
		||||
              (snippet '(delete-file-recursively "third_party"))))
 | 
			
		||||
    (build-system python-build-system)
 | 
			
		||||
    (arguments (package-arguments onnx))          ;reuse build system tweaks
 | 
			
		||||
    (arguments
 | 
			
		||||
     ;; reuse build system tweaks
 | 
			
		||||
     (substitute-keyword-arguments (package-arguments onnx)
 | 
			
		||||
       ((#:phases phases)
 | 
			
		||||
        #~(modify-phases #$phases
 | 
			
		||||
            (delete 'relax-requirements)))))
 | 
			
		||||
    (native-inputs
 | 
			
		||||
     (list cmake python-pytest python-pytest-runner python-nbval
 | 
			
		||||
           python-coverage))
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -109,6 +109,7 @@
 | 
			
		|||
  #:use-module (gnu packages gnupg)
 | 
			
		||||
  #:use-module (gnu packages golang)
 | 
			
		||||
  #:use-module (gnu packages golang-check)
 | 
			
		||||
  #:use-module (gnu packages golang-web)
 | 
			
		||||
  #:use-module (gnu packages groff)
 | 
			
		||||
  #:use-module (gnu packages gsasl)
 | 
			
		||||
  #:use-module (gnu packages gtk)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -2636,11 +2636,11 @@ replacement.")
 | 
			
		|||
    (license license:gpl2+)))
 | 
			
		||||
 | 
			
		||||
(define-public tdlib
 | 
			
		||||
  (let ((commit "4ed0b23c9c99868ab4d2d28e8ff244687f7b3144")
 | 
			
		||||
  (let ((commit "27c3eaeb4964bd5f18d8488e354abde1a4383e49")
 | 
			
		||||
        (revision "0"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "tdlib")
 | 
			
		||||
      (version (git-version "1.8.20" revision commit))
 | 
			
		||||
      (version (git-version "1.8.23" revision commit))
 | 
			
		||||
      (source
 | 
			
		||||
       (origin
 | 
			
		||||
         (method git-fetch)
 | 
			
		||||
| 
						 | 
				
			
			@ -2648,7 +2648,7 @@ replacement.")
 | 
			
		|||
               (url "https://github.com/tdlib/td")
 | 
			
		||||
               (commit commit)))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "16kprlcnphi89yfwgnlaxjwwb1xx24az8xd710rx8cslb4zv00qw"))
 | 
			
		||||
          (base32 "14f65dfmg2p5hyvi3lffvvazwcd3i3jrrw3c2pwrc5yfgxk3662g"))
 | 
			
		||||
         (file-name (git-file-name name version))))
 | 
			
		||||
      (build-system cmake-build-system)
 | 
			
		||||
      (arguments
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -52,7 +52,7 @@
 | 
			
		|||
(define-public minetest
 | 
			
		||||
  (package
 | 
			
		||||
    (name "minetest")
 | 
			
		||||
    (version "5.7.0")
 | 
			
		||||
    (version "5.8.0")
 | 
			
		||||
    (source (origin
 | 
			
		||||
              (method git-fetch)
 | 
			
		||||
              (uri (git-reference
 | 
			
		||||
| 
						 | 
				
			
			@ -61,7 +61,7 @@
 | 
			
		|||
              (file-name (git-file-name name version))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "008l44zwwsarwk4hn7wx2nj2m21b1iqsphl7g69rrlxj760zl0pl"))
 | 
			
		||||
                "1sww17h8z77w38jk19nsqxn8xcj27msq0glbil7pyj4i0ffprjrr"))
 | 
			
		||||
              (modules '((guix build utils)))
 | 
			
		||||
              (snippet
 | 
			
		||||
               '(begin
 | 
			
		||||
| 
						 | 
				
			
			@ -166,7 +166,7 @@ in different ways.")
 | 
			
		|||
              (file-name (git-file-name name version))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "02kbj1h6jsq6k8x4v2ir0njczdz7nyx6dbym85ixxp3mrqxiws61"))))
 | 
			
		||||
                "1pq4rm15lzwcqv6npgyz6v89hi3zj8zybw25n9i0d27qj786xc4z"))))
 | 
			
		||||
    (build-system copy-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     (list #:install-plan
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -117,7 +117,7 @@ interfacing MPD in the C, C++ & Objective C languages.")
 | 
			
		|||
(define-public mpd
 | 
			
		||||
  (package
 | 
			
		||||
    (name "mpd")
 | 
			
		||||
    (version "0.23.14")
 | 
			
		||||
    (version "0.23.15")
 | 
			
		||||
    (source (origin
 | 
			
		||||
              (method url-fetch)
 | 
			
		||||
              (uri
 | 
			
		||||
| 
						 | 
				
			
			@ -126,7 +126,7 @@ interfacing MPD in the C, C++ & Objective C languages.")
 | 
			
		|||
                              "/mpd-" version ".tar.xz"))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "1lh9nn4a7ng6i08df7rbs8c4nbgmz883pss9p2gswa6m4rsadfc5"))))
 | 
			
		||||
                "06k60ych9crifyx6zfc98hdcihixq5nba1c9rwngib6ik8ik40am"))))
 | 
			
		||||
    (build-system meson-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     (list
 | 
			
		||||
| 
						 | 
				
			
			@ -162,6 +162,7 @@ interfacing MPD in the C, C++ & Objective C languages.")
 | 
			
		|||
                   boost
 | 
			
		||||
                   chromaprint
 | 
			
		||||
                   curl
 | 
			
		||||
                   dbus
 | 
			
		||||
                   elogind
 | 
			
		||||
                   expat
 | 
			
		||||
                   ffmpeg
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -6,7 +6,7 @@
 | 
			
		|||
;;; Copyright © 2016, 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
 | 
			
		||||
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
 | 
			
		||||
;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
 | 
			
		||||
;;; Copyright © 2018, 2019, 2021, 2023 Efraim Flashner <efraim@flashner.co.il>
 | 
			
		||||
;;; Copyright © 2018, 2019, 2021, 2023, 2024 Efraim Flashner <efraim@flashner.co.il>
 | 
			
		||||
;;; Copyright © 2021 Vinicius Monego <monego@posteo.net>
 | 
			
		||||
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 | 
			
		||||
;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
 | 
			
		||||
| 
						 | 
				
			
			@ -71,6 +71,8 @@
 | 
			
		|||
                 ;; they produce different headers.  We need shared.
 | 
			
		||||
                 `("--disable-static"
 | 
			
		||||
                   "--enable-shared"))
 | 
			
		||||
                ((target-x32?)
 | 
			
		||||
                 `("ABI=x32"))
 | 
			
		||||
                (else '())))
 | 
			
		||||
      ;; Remove after core-updates merge.
 | 
			
		||||
      ;; Workaround for gcc-7 transition breakage, -system and cross-build,
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -123,6 +123,7 @@
 | 
			
		|||
  #:use-module (gnu packages gnome)
 | 
			
		||||
  #:use-module (gnu packages gnupg)
 | 
			
		||||
  #:use-module (gnu packages golang)
 | 
			
		||||
  #:use-module (gnu packages golang-web)
 | 
			
		||||
  #:use-module (gnu packages graphviz)
 | 
			
		||||
  #:use-module (gnu packages gstreamer)
 | 
			
		||||
  #:use-module (gnu packages gtk)
 | 
			
		||||
| 
						 | 
				
			
			@ -4449,31 +4450,30 @@ QUIC protocol.")
 | 
			
		|||
               #:deep? #true)))
 | 
			
		||||
       (cons go-golang-org-x-sys-0.8
 | 
			
		||||
             (map p
 | 
			
		||||
                  (list go-golang-zx2c4-com-wireguard
 | 
			
		||||
                        go-golang-org-x-text
 | 
			
		||||
                        go-golang-org-x-net
 | 
			
		||||
                        go-golang-org-x-crypto
 | 
			
		||||
                        go-golang-org-x-tools
 | 
			
		||||
                        go-netns
 | 
			
		||||
                        go-netlink
 | 
			
		||||
                  (list go-github-com-arceliar-ironwood
 | 
			
		||||
                        go-github-com-arceliar-phony
 | 
			
		||||
                        go-github-com-bits-and-blooms-bitset
 | 
			
		||||
                        go-github-com-bits-and-blooms-bloom
 | 
			
		||||
                        go-github-com-quic-go-quic-go
 | 
			
		||||
                        go-github-com-hjson-hjson-go
 | 
			
		||||
                        go-github-com-olekukonko-tablewriter
 | 
			
		||||
                        go-github-com-mitchellh-mapstructure
 | 
			
		||||
                        go-github-com-mattn-go-runewidth
 | 
			
		||||
                        go-github-com-mattn-go-isatty
 | 
			
		||||
                        go-github-com-mattn-go-colorable
 | 
			
		||||
                        go-github-com-kardianos-minwinsvc
 | 
			
		||||
                        go-github-com-hjson-hjson-go
 | 
			
		||||
                        go-github-com-hashicorp-go-syslog
 | 
			
		||||
                        go-github-com-gologme-log
 | 
			
		||||
                        go-github-com-fatih-color
 | 
			
		||||
                        go-github-com-cheggaaa-pb-v3
 | 
			
		||||
                        go-github-com-fatih-color
 | 
			
		||||
                        go-github-com-gologme-log
 | 
			
		||||
                        go-github-com-hashicorp-go-syslog
 | 
			
		||||
                        go-github-com-hjson-hjson-go
 | 
			
		||||
                        go-github-com-kardianos-minwinsvc
 | 
			
		||||
                        go-github-com-mattn-go-colorable
 | 
			
		||||
                        go-github-com-mattn-go-isatty
 | 
			
		||||
                        go-github-com-mattn-go-runewidth
 | 
			
		||||
                        go-github-com-mitchellh-mapstructure
 | 
			
		||||
                        go-github-com-olekukonko-tablewriter
 | 
			
		||||
                        go-github-com-quic-go-quic-go
 | 
			
		||||
                        go-github-com-vividcortex-ewma
 | 
			
		||||
                        go-github-com-arceliar-phony
 | 
			
		||||
                        go-github-com-arceliar-ironwood)))))
 | 
			
		||||
                        go-golang-org-x-crypto
 | 
			
		||||
                        go-golang-org-x-net
 | 
			
		||||
                        go-golang-org-x-text
 | 
			
		||||
                        go-golang-org-x-tools
 | 
			
		||||
                        go-golang-zx2c4-com-wireguard
 | 
			
		||||
                        go-netlink
 | 
			
		||||
                        go-netns)))))
 | 
			
		||||
    (home-page "https://yggdrasil-network.github.io/blog.html")
 | 
			
		||||
    (synopsis
 | 
			
		||||
     "Experiment in scalable routing as an encrypted IPv6 overlay network")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,23 +0,0 @@
 | 
			
		|||
From 9cc5520e1998d03f5dec0fbb1fe71b7cdec38b65 Mon Sep 17 00:00:00 2001
 | 
			
		||||
From: Alex Branham <alex.branham@gmail.com>
 | 
			
		||||
Date: Wed, 6 Jan 2021 06:41:20 -0500
 | 
			
		||||
Subject: [PATCH] Add required when to obsolete function alias
 | 
			
		||||
 | 
			
		||||
Closes #1085
 | 
			
		||||
---
 | 
			
		||||
 lisp/ess-r-package.el | 2 +-
 | 
			
		||||
 1 file changed, 1 insertion(+), 1 deletion(-)
 | 
			
		||||
 | 
			
		||||
diff --git a/lisp/ess-r-package.el b/lisp/ess-r-package.el
 | 
			
		||||
index 260959955..397ce14e6 100644
 | 
			
		||||
--- a/lisp/ess-r-package.el
 | 
			
		||||
+++ b/lisp/ess-r-package.el
 | 
			
		||||
@@ -577,7 +577,7 @@ package mode. Use this function if state of the buffer such as
 | 
			
		||||
   (error "As of ESS 16.04, `ess-developer' is deprecated. Use `ess-r-set-evaluation-env' instead"))
 | 
			
		||||
 
 | 
			
		||||
 (defalias 'ess-toggle-developer 'ess-developer)
 | 
			
		||||
-(define-obsolete-function-alias 'ess-r-devtools-check-package-buildwin 'ess-r-devtools-check-with-winbuilder)
 | 
			
		||||
+(define-obsolete-function-alias 'ess-r-devtools-check-package-buildwin 'ess-r-devtools-check-with-winbuilder "18.04")
 | 
			
		||||
 (define-obsolete-function-alias 'ess-r-devtools-ask 'ess-r-devtools-execute-command "18.04")
 | 
			
		||||
 
 | 
			
		||||
 (make-obsolete-variable 'ess-developer "Please use `ess-developer-select-package' and `ess-r-set-evaluation-env' instead." "16.04")
 | 
			
		||||
| 
						 | 
				
			
			@ -1,75 +0,0 @@
 | 
			
		|||
From faa95a784d2c74c72e70367a5d531df6dd61aeab Mon Sep 17 00:00:00 2001
 | 
			
		||||
From: Steve Purcell <steve@sanityinc.com>
 | 
			
		||||
Date: Sun, 6 Aug 2023 16:41:48 +0200
 | 
			
		||||
Subject: [PATCH] Don't redefine built-in function
 | 
			
		||||
 | 
			
		||||
Fixes #1817
 | 
			
		||||
---
 | 
			
		||||
 tests/haskell-indent-tests.el      | 14 ++++++++------
 | 
			
		||||
 tests/haskell-indentation-tests.el | 14 ++++++++------
 | 
			
		||||
 2 files changed, 16 insertions(+), 12 deletions(-)
 | 
			
		||||
 | 
			
		||||
diff --git a/tests/haskell-indent-tests.el b/tests/haskell-indent-tests.el
 | 
			
		||||
index 7196405b8..9a3de4ad3 100644
 | 
			
		||||
--- a/tests/haskell-indent-tests.el
 | 
			
		||||
+++ b/tests/haskell-indent-tests.el
 | 
			
		||||
@@ -40,11 +40,13 @@
 | 
			
		||||
 ;;                    (haskell-indent-put-region-in-literate (point-min) (point-max) -1)
 | 
			
		||||
 ;;                    (buffer-substring-no-properties (point-min) (point-max))))))
 | 
			
		||||
 
 | 
			
		||||
-(defsubst string-trim-left (string)
 | 
			
		||||
-  "Remove leading whitespace from STRING."
 | 
			
		||||
-  (if (string-match "\\`[ \t\n\r]+" string)
 | 
			
		||||
-      (replace-match "" t t string)
 | 
			
		||||
-    string))
 | 
			
		||||
+(if (fboundp 'string-trim-left)
 | 
			
		||||
+    (defalias 'haskell--string-trim-left 'string-trim-left)
 | 
			
		||||
+  (defun haskell--string-trim-left (string &optional regexp)
 | 
			
		||||
+    "Remove leading whitespace from STRING."
 | 
			
		||||
+    (if (string-match (concat "\\`\\(?:" (or regexp "[ \t\n\r]+") "\\)") string)
 | 
			
		||||
+        (substring string (match-end 0))
 | 
			
		||||
+      string)))
 | 
			
		||||
 
 | 
			
		||||
 (defun haskell-indent-format-info (info)
 | 
			
		||||
   (if (cdr info)
 | 
			
		||||
@@ -128,7 +130,7 @@ macro quotes them for you."
 | 
			
		||||
          :expected-result
 | 
			
		||||
          ,(if allow-failure :failed :passed)
 | 
			
		||||
          (haskell-indent-check
 | 
			
		||||
-          ,(string-trim-left source)
 | 
			
		||||
+          ,(haskell--string-trim-left source)
 | 
			
		||||
           ,@(mapcar (lambda (x)
 | 
			
		||||
                       (list 'quote x))
 | 
			
		||||
                     test-cases))))))
 | 
			
		||||
diff --git a/tests/haskell-indentation-tests.el b/tests/haskell-indentation-tests.el
 | 
			
		||||
index 4889b76a7..cd783a4f4 100644
 | 
			
		||||
--- a/tests/haskell-indentation-tests.el
 | 
			
		||||
+++ b/tests/haskell-indentation-tests.el
 | 
			
		||||
@@ -33,11 +33,13 @@
 | 
			
		||||
 
 | 
			
		||||
 ;;; Code:
 | 
			
		||||
 
 | 
			
		||||
-(defsubst string-trim-left (string)
 | 
			
		||||
-  "Remove leading whitespace from STRING."
 | 
			
		||||
-  (if (string-match "\\`[ \t\n\r]+" string)
 | 
			
		||||
-      (replace-match "" t t string)
 | 
			
		||||
-    string))
 | 
			
		||||
+(if (fboundp 'string-trim-left)
 | 
			
		||||
+    (defalias 'haskell--string-trim-left 'string-trim-left)
 | 
			
		||||
+  (defun haskell--string-trim-left (string &optional regexp)
 | 
			
		||||
+    "Remove leading whitespace from STRING."
 | 
			
		||||
+    (if (string-match (concat "\\`\\(?:" (or regexp "[ \t\n\r]+") "\\)") string)
 | 
			
		||||
+        (substring string (match-end 0))
 | 
			
		||||
+      string)))
 | 
			
		||||
 
 | 
			
		||||
 (defun haskell-indentation-check (source &rest test-cases)
 | 
			
		||||
   "Check if `haskell-indentation-find-indentations' returns expected results.
 | 
			
		||||
@@ -115,7 +117,7 @@ macro quotes them for you."
 | 
			
		||||
          :expected-result
 | 
			
		||||
          ,(if allow-failure :failed :passed)
 | 
			
		||||
          (haskell-indentation-check
 | 
			
		||||
-          ,(string-trim-left source)
 | 
			
		||||
+          ,(haskell--string-trim-left source)
 | 
			
		||||
           ,@(mapcar (lambda (x)
 | 
			
		||||
                       (list 'quote x))
 | 
			
		||||
                     test-cases))))))
 | 
			
		||||
| 
						 | 
				
			
			@ -73,8 +73,8 @@ reconstruct a Plan 9 terminal-like experience from a non-Plan 9 system.")
 | 
			
		|||
 | 
			
		||||
(define-public plan9port
 | 
			
		||||
  ;; no releases
 | 
			
		||||
  (let ((commit "cc4571fec67407652b03d6603ada6580de2194dc")
 | 
			
		||||
        (revision "0"))
 | 
			
		||||
  (let ((commit "f8681acb374fa0d5ed1568dbedb00a4abe1ca6f1")
 | 
			
		||||
        (revision "1"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "plan9port")
 | 
			
		||||
      (version (git-version "0.1.0" revision commit))
 | 
			
		||||
| 
						 | 
				
			
			@ -86,7 +86,7 @@ reconstruct a Plan 9 terminal-like experience from a non-Plan 9 system.")
 | 
			
		|||
                (file-name (git-file-name name version))
 | 
			
		||||
                (sha256
 | 
			
		||||
                 (base32
 | 
			
		||||
                  "1g2kzlghcghs560na6xalfsjq5zwp015wv9wk8wxn26981zs759x"))
 | 
			
		||||
                  "01343jvn8kr63i78h8xlgscn6wihdsr44xzh1cylvhigjbqw8n2x"))
 | 
			
		||||
                (modules '((guix build utils)))
 | 
			
		||||
                (snippet #~(for-each delete-file-recursively
 | 
			
		||||
                                     '("font/luc" ;nonfree
 | 
			
		||||
| 
						 | 
				
			
			@ -94,20 +94,23 @@ reconstruct a Plan 9 terminal-like experience from a non-Plan 9 system.")
 | 
			
		|||
      (build-system gnu-build-system)
 | 
			
		||||
      (arguments
 | 
			
		||||
       (list #:tests? #f ;no tests
 | 
			
		||||
             #:phases #~(modify-phases %standard-phases
 | 
			
		||||
             #:strip-directories #~'("plan9/bin")
 | 
			
		||||
             #:phases
 | 
			
		||||
             #~(modify-phases %standard-phases
 | 
			
		||||
                 (add-after 'unpack 'setup
 | 
			
		||||
                   (lambda _
 | 
			
		||||
                     (let ((dest (string-append #$output "/plan9")))
 | 
			
		||||
                       (delete-file "src/cmd/mk/mk.pdf")
 | 
			
		||||
                       (substitute* "src/cmd/acme/acme.c"
 | 
			
		||||
                         (("/lib/font/bit/lucsans/euro.8.font")
 | 
			
		||||
                                 (string-append #$output
 | 
			
		||||
                          (string-append dest
 | 
			
		||||
                                         "/font/fixed/unicode.5x8.font"))
 | 
			
		||||
                         (("/lib/font/bit/lucm/unicode.9.font")
 | 
			
		||||
                                 (string-append #$output
 | 
			
		||||
                          (string-append dest
 | 
			
		||||
                                         "/font/fixed/unicode.6x9.font")))
 | 
			
		||||
                       (substitute* (find-files "src")
 | 
			
		||||
                         (("/lib/font/bit")
 | 
			
		||||
                                 (string-append #$output "/font")))
 | 
			
		||||
                          (string-append dest "/font")))
 | 
			
		||||
                       (substitute* "bin/9c"
 | 
			
		||||
                         (("which")
 | 
			
		||||
                          (which "which")))
 | 
			
		||||
| 
						 | 
				
			
			@ -120,21 +123,19 @@ reconstruct a Plan 9 terminal-like experience from a non-Plan 9 system.")
 | 
			
		|||
                         (lambda _
 | 
			
		||||
                           (format #t "CC9=~a~%" #$(cc-for-target))
 | 
			
		||||
                           (format #t "FONTSRV=fontsrv~%")))
 | 
			
		||||
                              (setenv "X11"
 | 
			
		||||
                                      #$libx11)
 | 
			
		||||
                              (setenv "PLAN9"
 | 
			
		||||
                                      (getcwd))
 | 
			
		||||
                              (setenv "PLAN9_TARGET"
 | 
			
		||||
                                      #$output)))
 | 
			
		||||
                       (setenv "X11" #$libx11)
 | 
			
		||||
                       (setenv "PLAN9" (getcwd))
 | 
			
		||||
                       (setenv "PLAN9_TARGET" dest))))
 | 
			
		||||
                 (delete 'configure)    ;no configure
 | 
			
		||||
                 (replace 'build
 | 
			
		||||
                   (lambda _
 | 
			
		||||
                     (invoke "./INSTALL" "-b")))
 | 
			
		||||
                 (replace 'install
 | 
			
		||||
                   (lambda _
 | 
			
		||||
                     (invoke "./INSTALL" "-c")
 | 
			
		||||
                     (let ((dest (getenv "PLAN9_TARGET")))
 | 
			
		||||
                       (for-each (lambda (x)
 | 
			
		||||
                                          (let ((out (string-append #$output
 | 
			
		||||
                                                                    "/" x)))
 | 
			
		||||
                                   (let ((out (string-append dest "/" x)))
 | 
			
		||||
                                     (mkdir-p out)
 | 
			
		||||
                                     (copy-recursively x out)))
 | 
			
		||||
                                 ;; TODO: use external sky and dict packages
 | 
			
		||||
| 
						 | 
				
			
			@ -150,15 +151,10 @@ reconstruct a Plan 9 terminal-like experience from a non-Plan 9 system.")
 | 
			
		|||
                                   "tmac"
 | 
			
		||||
                                   "troff"
 | 
			
		||||
                                   "postscript"))
 | 
			
		||||
                              (install-file "rcmain" #$output)))
 | 
			
		||||
                          (add-after 'install 'wrap-executables
 | 
			
		||||
                            (lambda _
 | 
			
		||||
                              (for-each (lambda (exe)
 | 
			
		||||
                                          (wrap-program exe
 | 
			
		||||
                                            `("PLAN9" ":" prefix
 | 
			
		||||
                                              (,#$output))))
 | 
			
		||||
                                        (find-files
 | 
			
		||||
                                         (string-append #$output "/bin")))))
 | 
			
		||||
                       (install-file "rcmain" dest)
 | 
			
		||||
                       (mkdir-p (string-append #$output "/bin"))
 | 
			
		||||
                       (symlink (string-append dest "/bin/9")
 | 
			
		||||
                                (string-append #$output "/bin/9")))))
 | 
			
		||||
                 ;; Plan9 doesn't compress man pages
 | 
			
		||||
                 (delete 'compress-documentation))))
 | 
			
		||||
      (native-inputs (list perl which))
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -9239,6 +9239,105 @@ converting, and viewing many of the proprietary file formats used to store
 | 
			
		|||
experimental data and metadata at the Laboratory for Fluorescence Dynamics.")
 | 
			
		||||
    (license license:bsd-3)))
 | 
			
		||||
 | 
			
		||||
(define-public python-av
 | 
			
		||||
  (package
 | 
			
		||||
    (name "python-av")
 | 
			
		||||
    (version "10.0.0")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method url-fetch)
 | 
			
		||||
       (uri (pypi-uri "av" version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32 "01byqsjclkg65mhr6b4i2r2n4y7af9kdd2c35lxny27121b3vzca"))))
 | 
			
		||||
    (build-system pyproject-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     (list
 | 
			
		||||
      #:test-flags
 | 
			
		||||
      #~(list
 | 
			
		||||
         ;; Tests require outbound access to download data samples from
 | 
			
		||||
         ;; http://fate.ffmpeg.org/fate-suite:
 | 
			
		||||
         ;;
 | 
			
		||||
         ;; E urllib.error.URLError: <urlopen error [Errno -3]
 | 
			
		||||
         ;; Temporary failure in name resolution>
 | 
			
		||||
         ;;
 | 
			
		||||
         "--ignore=tests/test_doctests.py"
 | 
			
		||||
         "--ignore=tests/test_timeout.py"
 | 
			
		||||
         "-k"
 | 
			
		||||
         (string-append
 | 
			
		||||
          "not test_data"
 | 
			
		||||
          " and not test_container_probing"
 | 
			
		||||
          " and not test_stream_probing"
 | 
			
		||||
          " and not test_transcode"
 | 
			
		||||
          " and not test_codec_tag"
 | 
			
		||||
          " and not test_parse"
 | 
			
		||||
          " and not test_decode_audio_sample_count"
 | 
			
		||||
          " and not test_decoded_motion_vectors"
 | 
			
		||||
          " and not test_decoded_motion_vectors_no_flag"
 | 
			
		||||
          " and not test_decoded_time_base"
 | 
			
		||||
          " and not test_decoded_video_frame_count"
 | 
			
		||||
          " and not test_encoding_aac"
 | 
			
		||||
          " and not test_encoding_dnxhd"
 | 
			
		||||
          " and not test_encoding_dvvideo"
 | 
			
		||||
          " and not test_encoding_h264"
 | 
			
		||||
          " and not test_encoding_mjpeg"
 | 
			
		||||
          " and not test_encoding_mp2"
 | 
			
		||||
          " and not test_encoding_mpeg1video"
 | 
			
		||||
          " and not test_encoding_mpeg4"
 | 
			
		||||
          " and not test_encoding_pcm_s24le"
 | 
			
		||||
          " and not test_encoding_png"
 | 
			
		||||
          " and not test_encoding_tiff"
 | 
			
		||||
          " and not test_encoding_xvid"
 | 
			
		||||
          " and not test_reading_from_buffer"
 | 
			
		||||
          " and not test_reading_from_buffer_no_seek"
 | 
			
		||||
          " and not test_reading_from_file"
 | 
			
		||||
          " and not test_reading_from_pipe_readonly"
 | 
			
		||||
          " and not test_reading_from_write_readonly"
 | 
			
		||||
          " and not test_writing_to_custom_io_dash"
 | 
			
		||||
          " and not test_writing_to_custom_io_image2"
 | 
			
		||||
          " and not test_decode_half"
 | 
			
		||||
          " and not test_seek_end"
 | 
			
		||||
          " and not test_seek_float"
 | 
			
		||||
          " and not test_seek_int64"
 | 
			
		||||
          " and not test_seek_middle"
 | 
			
		||||
          " and not test_seek_start"
 | 
			
		||||
          " and not test_stream_seek"
 | 
			
		||||
          " and not test_selection"
 | 
			
		||||
          " and not test_stream_tuples"
 | 
			
		||||
          " and not test_movtext"
 | 
			
		||||
          " and not test_vobsub"
 | 
			
		||||
          " and not test_roundtrip"
 | 
			
		||||
          " and not test_stream_probing"))
 | 
			
		||||
      #:phases
 | 
			
		||||
      #~(modify-phases %standard-phases
 | 
			
		||||
          (add-before 'check 'build-extensions
 | 
			
		||||
            (lambda _
 | 
			
		||||
              (invoke "python" "setup.py" "build_ext" "--inplace"))))))
 | 
			
		||||
    (native-inputs
 | 
			
		||||
     (list pkg-config
 | 
			
		||||
           python-cython
 | 
			
		||||
           python-editorconfig
 | 
			
		||||
           python-numpy
 | 
			
		||||
           python-pillow
 | 
			
		||||
           python-pytest))
 | 
			
		||||
    (inputs
 | 
			
		||||
     ;; XXX: Build is failing with FFmpeg 6.0, unresolved upstream.
 | 
			
		||||
     ;; See https://github.com/PyAV-Org/PyAV/issues/1106
 | 
			
		||||
     (list ffmpeg-5))
 | 
			
		||||
    (home-page "https://github.com/PyAV-Org/PyAV")
 | 
			
		||||
    (synopsis "Pythonic bindings for FFmpeg's libraries")
 | 
			
		||||
    (description
 | 
			
		||||
     "PyAV is a Python library that allows for direct and precise manipulation
 | 
			
		||||
of media through containers, streams, packets, codecs, and frames.  It provides
 | 
			
		||||
access to the powerful FFmpeg libraries while managing the complex details as
 | 
			
		||||
much as possible.
 | 
			
		||||
PyAV also facilitates data transformation and integration with
 | 
			
		||||
other packages such as Numpy and Pillow.  However, working with media is a
 | 
			
		||||
challenging task and PyAV cannot abstract it away or make all the best decisions
 | 
			
		||||
for you.  If you can accomplish your tasks with the ffmpeg command, PyAV may not
 | 
			
		||||
be necessary.  Nonetheless, PyAV is an essential tool when working with media
 | 
			
		||||
that requires its specific capabilities.")
 | 
			
		||||
    (license license:bsd-3)))
 | 
			
		||||
 | 
			
		||||
(define-public python-ffmpeg-python
 | 
			
		||||
  ;; The latest release (0.2.0) is old and its test suite crashs on Python 3.10.
 | 
			
		||||
  (let ((commit "df129c7ba30aaa9ffffb81a48f53aa7253b0b4e6") (revision "0"))
 | 
			
		||||
| 
						 | 
				
			
			@ -30243,6 +30342,45 @@ heterogeneous and multi-platform clusters (including clusters running other
 | 
			
		|||
applications with variable CPU loads).")
 | 
			
		||||
    (license license:bsd-3)))
 | 
			
		||||
 | 
			
		||||
(define-public python-djitellopy
 | 
			
		||||
  (package
 | 
			
		||||
    (name "python-djitellopy")
 | 
			
		||||
    (version "2.5.0")
 | 
			
		||||
    (source
 | 
			
		||||
     (origin
 | 
			
		||||
       (method url-fetch)
 | 
			
		||||
       (uri (pypi-uri "djitellopy" version))
 | 
			
		||||
       (sha256
 | 
			
		||||
        (base32 "1kc0syb4hpn7fay0rxpazmczag6jw3pncrrc6v762jj0afiwkrps"))))
 | 
			
		||||
    (build-system pyproject-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     (list
 | 
			
		||||
      #:tests? #f                       ;no test suite
 | 
			
		||||
      #:phases
 | 
			
		||||
      #~(modify-phases %standard-phases
 | 
			
		||||
          ;; OpenCV does not ship metadata files for its Python library, which
 | 
			
		||||
          ;; makes it invisible to the sanity_check script (see:
 | 
			
		||||
          ;; https://github.com/opencv/opencv/issues/24810).
 | 
			
		||||
          (delete 'sanity-check))))
 | 
			
		||||
    (propagated-inputs
 | 
			
		||||
     (list opencv                       ;for opencv-python
 | 
			
		||||
           python-av
 | 
			
		||||
           python-numpy
 | 
			
		||||
           python-pillow))
 | 
			
		||||
    (home-page "https://github.com/damiafuentes/DJITelloPy")
 | 
			
		||||
    (synopsis
 | 
			
		||||
     "DJI Tello drone video streaming, swarms and state packets library")
 | 
			
		||||
    (description
 | 
			
		||||
     "DJI Tello drone Python interface using the official Tello SDK and Tello
 | 
			
		||||
EDU SDK.  This library has the following features:
 | 
			
		||||
@itemize
 | 
			
		||||
@item Implementation of all tello commands
 | 
			
		||||
@item Retrieve a video stream easily
 | 
			
		||||
@item Receive and parse state packets
 | 
			
		||||
@item Control a swarm of drones.
 | 
			
		||||
@end itemize")
 | 
			
		||||
    (license license:expat)))
 | 
			
		||||
 | 
			
		||||
(define-public python-djvulibre
 | 
			
		||||
  (package
 | 
			
		||||
    (name "python-djvulibre")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -331,7 +331,7 @@ particularly in catching syntax errors.")
 | 
			
		|||
(define-public grml-zsh-config
 | 
			
		||||
  (package
 | 
			
		||||
    (name "grml-zsh-config")
 | 
			
		||||
    (version "0.19.5")
 | 
			
		||||
    (version "0.19.6")
 | 
			
		||||
    (source (origin
 | 
			
		||||
              (method url-fetch)
 | 
			
		||||
              (uri (string-append
 | 
			
		||||
| 
						 | 
				
			
			@ -339,7 +339,7 @@ particularly in catching syntax errors.")
 | 
			
		|||
                    version ".tar.gz"))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "0ifw490z3v9ljccbmm04adz39fj2dmx8mjgayxqj0a9ln90yfdc4"))))
 | 
			
		||||
                "1k1m2fbmvw73qy9mc6k2ygjg6zz8h7nn3d9pvj6jbjadnx4pz770"))))
 | 
			
		||||
    (build-system copy-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     (list
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -6448,7 +6448,7 @@ can load multiple parameters to the current environment.")
 | 
			
		|||
      (license license:gpl3+))))
 | 
			
		||||
 | 
			
		||||
(define-public r-tgutil
 | 
			
		||||
  (let ((commit "0e4a2e84e5cf1f74bc66df0a3d8eac89633fd7b1")
 | 
			
		||||
  (let ((commit "db4ff8b98082f8e4dbdeacb452641d215fd3c7ff")
 | 
			
		||||
        (revision "1"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "r-tgutil")
 | 
			
		||||
| 
						 | 
				
			
			@ -6461,7 +6461,7 @@ can load multiple parameters to the current environment.")
 | 
			
		|||
               (commit commit)))
 | 
			
		||||
         (file-name (git-file-name name version))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "0pmacpzhrigprlpl8b5j4xz7l110ifw98017xwk569dghbf8zrq1"))))
 | 
			
		||||
          (base32 "00rsqs7f896piywh84jr8fkphbbx4jb7radf6znhhj6fip63yn91"))))
 | 
			
		||||
      (properties `((upstream-name . "tgutil")))
 | 
			
		||||
      (build-system r-build-system)
 | 
			
		||||
      (propagated-inputs (list r-broom
 | 
			
		||||
| 
						 | 
				
			
			@ -6481,7 +6481,9 @@ can load multiple parameters to the current environment.")
 | 
			
		|||
                               r-tidyr))
 | 
			
		||||
      (home-page "https://github.com/tanaylab/tgutil")
 | 
			
		||||
      (synopsis "Simple utility functions for Tanay lab code")
 | 
			
		||||
      (description "Shared utility functions for multiple Tanay lab packages.")
 | 
			
		||||
      (description
 | 
			
		||||
       "This package provides simple utility functions that are shared
 | 
			
		||||
across several packages maintained by the Tanay lab.")
 | 
			
		||||
      (license license:gpl3))))
 | 
			
		||||
 | 
			
		||||
(define-public r-catterplots
 | 
			
		||||
| 
						 | 
				
			
			@ -6755,11 +6757,9 @@ Java package that provides routines for various statistical distributions.")
 | 
			
		|||
    (license license:gpl2+)))
 | 
			
		||||
 | 
			
		||||
(define-public emacs-ess
 | 
			
		||||
  ;; Latest release is old.  This is not the latest commit either due to bug
 | 
			
		||||
  ;; reported here: <https://github.com/emacs-ess/ESS/issues/987>.
 | 
			
		||||
  (let ((commit "24da603184ce39246611dd5b8602e769d7ebd5bf")
 | 
			
		||||
  (let ((commit "3691ecc642eab5d016887e42699648e0eeeef566")
 | 
			
		||||
        (version "18.10.2")
 | 
			
		||||
        (revision "0"))
 | 
			
		||||
        (revision "1"))
 | 
			
		||||
    (package
 | 
			
		||||
      (name "emacs-ess")
 | 
			
		||||
      (version (git-version version revision commit))
 | 
			
		||||
| 
						 | 
				
			
			@ -6770,11 +6770,11 @@ Java package that provides routines for various statistical distributions.")
 | 
			
		|||
               (url "https://github.com/emacs-ess/ESS")
 | 
			
		||||
               (commit commit)))
 | 
			
		||||
         (sha256
 | 
			
		||||
          (base32 "0j98lv07nzwzd54d4dgcfz01wy5gj48m0mnirxzh5r45ik2myh1r"))
 | 
			
		||||
          (base32 "19p8djsbgvahpsx1w8i6h3qvpbdr4isjwm3wi82yk2648ri0qsq1"))
 | 
			
		||||
         (file-name (git-file-name name version))
 | 
			
		||||
         (modules '((guix build utils)))
 | 
			
		||||
         (snippet
 | 
			
		||||
          '(begin
 | 
			
		||||
          #~(begin
 | 
			
		||||
              ;; Stop ESS from trying to bundle an external julia-mode.el.
 | 
			
		||||
              (substitute* "lisp/Makefile"
 | 
			
		||||
                ((" \\$\\(JULIAS)") "")
 | 
			
		||||
| 
						 | 
				
			
			@ -6800,30 +6800,66 @@ Java package that provides routines for various statistical distributions.")
 | 
			
		|||
                (("mkdir -p \\$\\(ESSDESTDIR)")
 | 
			
		||||
                 "$(MAKE) -C lisp install; $(MAKE) -C doc install")
 | 
			
		||||
                (("\\$\\(INSTALL) -R \\./\\* \\$\\(ESSDESTDIR)/")
 | 
			
		||||
                "$(MAKE) -C etc install"))
 | 
			
		||||
             #t))
 | 
			
		||||
         (patches
 | 
			
		||||
          (search-patches "emacs-ess-fix-obsolete-function-alias.patch"))))
 | 
			
		||||
                 "$(MAKE) -C etc install"))))))
 | 
			
		||||
      (build-system gnu-build-system)
 | 
			
		||||
      (arguments
 | 
			
		||||
       (let ((base-directory "/share/emacs/site-lisp"))
 | 
			
		||||
         `(#:make-flags (list (string-append "PREFIX=" %output)
 | 
			
		||||
                              (string-append "ETCDIR=" %output
 | 
			
		||||
                                             ,base-directory "/etc")
 | 
			
		||||
                              (string-append "LISPDIR=" %output
 | 
			
		||||
                                             ,base-directory)
 | 
			
		||||
                              (string-append "INFODIR=" %output
 | 
			
		||||
                                             "/share/info"))
 | 
			
		||||
         (list
 | 
			
		||||
          #:modules '((guix build gnu-build-system)
 | 
			
		||||
                      (guix build utils)
 | 
			
		||||
                      (guix build emacs-utils))
 | 
			
		||||
          #:imported-modules `(,@%gnu-build-system-modules
 | 
			
		||||
                               (guix build emacs-build-system)
 | 
			
		||||
                               (guix build emacs-utils))
 | 
			
		||||
          #:make-flags
 | 
			
		||||
          #~(list (string-append "PREFIX=" #$output)
 | 
			
		||||
                  (string-append "ETCDIR=" #$output #$base-directory "/etc")
 | 
			
		||||
                  (string-append "LISPDIR=" #$output #$base-directory)
 | 
			
		||||
                  (string-append "INFODIR=" #$output "/share/info"))
 | 
			
		||||
          #:phases
 | 
			
		||||
           (modify-phases %standard-phases
 | 
			
		||||
          #~(modify-phases %standard-phases
 | 
			
		||||
              (delete 'configure)
 | 
			
		||||
              (add-before 'check 'skip-failing-tests
 | 
			
		||||
                ;; XXX: Skip 10 failing tests (out of 187).
 | 
			
		||||
                (lambda _
 | 
			
		||||
                  (let-syntax
 | 
			
		||||
                      ((disable-tests
 | 
			
		||||
                        (syntax-rules ()
 | 
			
		||||
                          ((_ file ())
 | 
			
		||||
                           (syntax-error "test names list must not be empty"))
 | 
			
		||||
                          ((_ file (test-name ...))
 | 
			
		||||
                           (substitute* file
 | 
			
		||||
                             (((string-append "^\\(ert-deftest " test-name ".*")
 | 
			
		||||
                               all)
 | 
			
		||||
                              (string-append all "(skip-unless nil)\n"))
 | 
			
		||||
                             ...)))))
 | 
			
		||||
                    (disable-tests (list "test/ess-test-inf.el"
 | 
			
		||||
                                         "test/ess-test-r.el")
 | 
			
		||||
                                   ("ess--derive-connection-path"
 | 
			
		||||
                                    "ess-eval-line-test"
 | 
			
		||||
                                    "ess-eval-region-test"
 | 
			
		||||
                                    "ess-mock-remote-process"
 | 
			
		||||
                                    "ess-r-load-ESSR-github-fetch-no"
 | 
			
		||||
                                    "ess-r-load-ESSR-github-fetch-yes"
 | 
			
		||||
                                    "ess-set-working-directory-test"
 | 
			
		||||
                                    "ess-test-r-startup-directory")))
 | 
			
		||||
                  ;; The two tests below use a different syntax.
 | 
			
		||||
                  (emacs-batch-edit-file "test/ess-test-r-eval.el"
 | 
			
		||||
                    '(progn
 | 
			
		||||
                      (mapc (lambda (test)
 | 
			
		||||
                              (goto-char (point-min))
 | 
			
		||||
                              (search-forward (format "etest-deftest %s " test))
 | 
			
		||||
                              (beginning-of-line)
 | 
			
		||||
                              (kill-sexp))
 | 
			
		||||
                            '("ess-r-eval-ns-env-roxy-tracebug-test"
 | 
			
		||||
                              "ess-r-eval-sink-freeze-test"))
 | 
			
		||||
                      (basic-save-buffer)))))
 | 
			
		||||
              (replace 'check
 | 
			
		||||
                (lambda _ (invoke "make" "test")))))))
 | 
			
		||||
      (native-inputs
 | 
			
		||||
       (list perl r-roxygen2 texinfo))
 | 
			
		||||
      (inputs
 | 
			
		||||
       `(("emacs" ,emacs-minimal)
 | 
			
		||||
         ("r-minimal" ,r-minimal)))
 | 
			
		||||
       (list emacs-minimal r-minimal))
 | 
			
		||||
      (propagated-inputs
 | 
			
		||||
       (list emacs-julia-mode))
 | 
			
		||||
      (home-page "https://ess.r-project.org/")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,5 +1,5 @@
 | 
			
		|||
;;; GNU Guix --- Functional package management for GNU
 | 
			
		||||
;;; Copyright © 2015, 2016, 2022 Ricardo Wurmus <rekado@elephly.net>
 | 
			
		||||
;;; Copyright © 2015, 2016, 2022, 2024 Ricardo Wurmus <rekado@elephly.net>
 | 
			
		||||
;;; Copyright © 2016 Nikita <nikita@n0.is>
 | 
			
		||||
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
 | 
			
		||||
;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
 | 
			
		||||
| 
						 | 
				
			
			@ -101,7 +101,9 @@ tasks, synchronization primitives, atomic operations, and more.")
 | 
			
		|||
            (lambda _
 | 
			
		||||
              (substitute* "python/CMakeLists.txt"
 | 
			
		||||
                (("\\$\\{PYTHON_BUILD_WORK_DIR\\}/build")
 | 
			
		||||
                 #$output))
 | 
			
		||||
                 #$output)
 | 
			
		||||
                (("install --prefix.*-f" m)
 | 
			
		||||
                 (string-append m " --root=/")))
 | 
			
		||||
              (substitute* "python/setup.py"
 | 
			
		||||
                (("extra_link_args=tbb_flag,")
 | 
			
		||||
                 (string-append "extra_link_args=['-Wl,-rpath="
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -5,7 +5,7 @@
 | 
			
		|||
;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
 | 
			
		||||
;;; Copyright © 2015 David Thompson <davet@gnu.org>
 | 
			
		||||
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Leo Famulari <leo@famulari.name>
 | 
			
		||||
;;; Copyright © 2016, 2017, 2019, 2021-2023 Efraim Flashner <efraim@flashner.co.il>
 | 
			
		||||
;;; Copyright © 2016, 2017, 2019, 2021-2024 Efraim Flashner <efraim@flashner.co.il>
 | 
			
		||||
;;; Copyright © 2016, 2017, 2018 Nikita <nikita@n0.is>
 | 
			
		||||
;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
 | 
			
		||||
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
 | 
			
		||||
| 
						 | 
				
			
			@ -15,7 +15,7 @@
 | 
			
		|||
;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
 | 
			
		||||
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
 | 
			
		||||
;;; Copyright © 2020, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
 | 
			
		||||
;;; Copyright © 2020, 2021, 2023 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 | 
			
		||||
;;; Copyright © 2020, 2021, 2023, 2024 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 | 
			
		||||
;;; Copyright © 2021 Solene Rapenne <solene@perso.pw>
 | 
			
		||||
;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
 | 
			
		||||
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
 | 
			
		||||
| 
						 | 
				
			
			@ -200,7 +200,7 @@ living in the same process.")
 | 
			
		|||
  (package
 | 
			
		||||
    (name "gnutls")
 | 
			
		||||
    (version "3.7.7")
 | 
			
		||||
    (replacement gnutls-3.8.1)
 | 
			
		||||
    (replacement gnutls-3.8.2)
 | 
			
		||||
    (source (origin
 | 
			
		||||
              (method url-fetch)
 | 
			
		||||
              ;; Note: Releases are no longer on ftp.gnu.org since the
 | 
			
		||||
| 
						 | 
				
			
			@ -305,11 +305,11 @@ required structures.")
 | 
			
		|||
(define-deprecated/public-alias gnutls-latest gnutls)
 | 
			
		||||
 | 
			
		||||
;; Replacement for gnutls@3.7.7 to address GNUTLS-SA-2020-07-14 /
 | 
			
		||||
;; CVE-2023-0361
 | 
			
		||||
(define-public gnutls-3.8.1
 | 
			
		||||
;; CVE-2023-0361 and GNUTLS-SA-2023-10-23 / CVE-2023-5981.
 | 
			
		||||
(define gnutls-3.8.2
 | 
			
		||||
  (package
 | 
			
		||||
    (inherit gnutls)
 | 
			
		||||
    (version "3.8.1")
 | 
			
		||||
    (version "3.8.2")
 | 
			
		||||
    (source (origin
 | 
			
		||||
              (method url-fetch)
 | 
			
		||||
              (uri (string-append "mirror://gnupg/gnutls/v"
 | 
			
		||||
| 
						 | 
				
			
			@ -318,20 +318,7 @@ required structures.")
 | 
			
		|||
              (patches (search-patches "gnutls-skip-trust-store-test.patch"))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "1742jiigwsfhx7nj5rz7dwqr8d46npsph6b68j7siar0mqarx2xs"))))
 | 
			
		||||
    (arguments
 | 
			
		||||
     (if (target-hurd?)
 | 
			
		||||
         ;; Fix reference to undefined 'PATH_MAX'.  This is fixed in GnuTLS
 | 
			
		||||
         ;; commit 3b6ec1e01de4e96d36276dfe34ee9e183f285264.
 | 
			
		||||
         (substitute-keyword-arguments (package-arguments gnutls)
 | 
			
		||||
           ((#:phases phases #~%standard-phases)
 | 
			
		||||
            #~(modify-phases #$phases
 | 
			
		||||
                (add-after 'unpack 'set-path-max
 | 
			
		||||
                  (lambda _
 | 
			
		||||
                    (substitute* "lib/pathbuf.h"
 | 
			
		||||
                      (("^#define GNUTLS_PATH_MAX PATH_MAX")
 | 
			
		||||
                       "#define GNUTLS_PATH_MAX 8192\n")))))))
 | 
			
		||||
         (package-arguments gnutls)))))
 | 
			
		||||
                "0xzgmp1ck5ifvdki4jg29r278w2p1m3a0qz38g99v6zsdw0yarg7"))))))
 | 
			
		||||
 | 
			
		||||
(define-public gnutls/dane
 | 
			
		||||
  ;; GnuTLS with build libgnutls-dane, implementing DNS-based
 | 
			
		||||
| 
						 | 
				
			
			@ -429,6 +416,8 @@ OpenSSL for TARGET."
 | 
			
		|||
             (cond
 | 
			
		||||
              ((target-x86-32? target)
 | 
			
		||||
               "x86")
 | 
			
		||||
              ((target-x32? target)
 | 
			
		||||
               "x32")
 | 
			
		||||
              ((target-x86-64? target)
 | 
			
		||||
               "x86_64")
 | 
			
		||||
              ((target-mips64el? target)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -19,6 +19,7 @@
 | 
			
		|||
 | 
			
		||||
(define-module (gnu packages uucp)
 | 
			
		||||
  #:use-module (gnu packages golang)
 | 
			
		||||
  #:use-module (gnu packages golang-web)
 | 
			
		||||
  #:use-module (gnu packages texinfo)
 | 
			
		||||
  #:use-module (guix licenses)
 | 
			
		||||
  #:use-module (guix packages)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -107,6 +107,7 @@
 | 
			
		|||
  #:use-module (gnu packages gnupg)
 | 
			
		||||
  #:use-module (gnu packages golang)
 | 
			
		||||
  #:use-module (gnu packages golang-check)
 | 
			
		||||
  #:use-module (gnu packages golang-web)
 | 
			
		||||
  #:use-module (gnu packages groff)
 | 
			
		||||
  #:use-module (gnu packages guile)
 | 
			
		||||
  #:use-module (gnu packages guile-xyz)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1657,14 +1657,14 @@ operate properly.")
 | 
			
		|||
(define-public ffmpeg
 | 
			
		||||
  (package
 | 
			
		||||
    (name "ffmpeg")
 | 
			
		||||
    (version "6.0")
 | 
			
		||||
    (version "6.1.1")
 | 
			
		||||
    (source (origin
 | 
			
		||||
              (method url-fetch)
 | 
			
		||||
              (uri (string-append "https://ffmpeg.org/releases/ffmpeg-"
 | 
			
		||||
                                  version ".tar.xz"))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "10kh2f4y4isfqj4xpcqqnzk611jh89ywcjyjnq9c2jcv5p18ggjp"))))
 | 
			
		||||
                "0s7r2qv8gh2a3w568n9xxgcz0q8j5ww1jdsci1hm9f4l1yqg9146"))))
 | 
			
		||||
    (outputs '("out" "debug"))
 | 
			
		||||
    (build-system gnu-build-system)
 | 
			
		||||
    (inputs
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -6,6 +6,7 @@
 | 
			
		|||
;;; Copyright © 2021 Mathieu Othacehe <othacehe@gnu.org>
 | 
			
		||||
;;; Copyright © 2022 Kaelyn Takata <kaelyn.alexi@protonmail.com>
 | 
			
		||||
;;; Copyright © 2022 dan <i@dan.games>
 | 
			
		||||
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
 | 
			
		||||
;;;
 | 
			
		||||
;;; This file is part of GNU Guix.
 | 
			
		||||
;;;
 | 
			
		||||
| 
						 | 
				
			
			@ -270,7 +271,9 @@ interpretation of the specifications for these languages.")
 | 
			
		|||
                             (dirname (dirname
 | 
			
		||||
                                       (search-input-directory
 | 
			
		||||
                                        %build-inputs "include/vulkan"))))
 | 
			
		||||
              "-DBUILD_TESTS=ON")
 | 
			
		||||
              #$@(if (%current-target-system)
 | 
			
		||||
                     #~("-DBUILD_TESTS=OFF" "-DUSE_GAS=OFF")
 | 
			
		||||
                     #~("-DBUILD_TESTS=ON")))
 | 
			
		||||
       #:phases
 | 
			
		||||
       #~(modify-phases %standard-phases
 | 
			
		||||
           (add-after 'unpack 'fix-pkg-config-file
 | 
			
		||||
| 
						 | 
				
			
			@ -299,7 +302,7 @@ interpretation of the specifications for these languages.")
 | 
			
		|||
           python
 | 
			
		||||
           wayland))
 | 
			
		||||
    (inputs
 | 
			
		||||
     (list vulkan-headers))
 | 
			
		||||
     (list vulkan-headers libxrandr))
 | 
			
		||||
    (home-page
 | 
			
		||||
     "https://github.com/KhronosGroup/Vulkan-Loader")
 | 
			
		||||
    (synopsis "Khronos official ICD loader and validation layers for Vulkan")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -142,6 +142,7 @@
 | 
			
		|||
  #:use-module (gnu packages gnunet)
 | 
			
		||||
  #:use-module (gnu packages gnupg)
 | 
			
		||||
  #:use-module (gnu packages golang)
 | 
			
		||||
  #:use-module (gnu packages golang-web)
 | 
			
		||||
  #:use-module (gnu packages gperf)
 | 
			
		||||
  #:use-module (gnu packages graphviz)
 | 
			
		||||
  #:use-module (gnu packages gtk)
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -216,7 +216,7 @@ to share commonly used Xfce widgets among the Xfce applications.")
 | 
			
		|||
(define-public catfish
 | 
			
		||||
  (package
 | 
			
		||||
    (name "catfish")
 | 
			
		||||
    (version "4.16.4")
 | 
			
		||||
    (version "4.18.0")
 | 
			
		||||
    (source (origin
 | 
			
		||||
              (method url-fetch)
 | 
			
		||||
              (uri (string-append "https://archive.xfce.org/src/apps/"
 | 
			
		||||
| 
						 | 
				
			
			@ -224,7 +224,7 @@ to share commonly used Xfce widgets among the Xfce applications.")
 | 
			
		|||
                                  "/catfish-" version ".tar.bz2"))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "1z5m9f4cj473n68rrhhbkq3x5df5k394qp4n27lqqyny6k2h2p3f"))))
 | 
			
		||||
                "16cbsnki7qragwhbfs3h0ja7xg8xlf59ajxhddqm0jkmrirrpbpx"))))
 | 
			
		||||
    (build-system python-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     '(#:phases
 | 
			
		||||
| 
						 | 
				
			
			@ -270,7 +270,7 @@ it to your needs by using several command line options.")
 | 
			
		|||
(define-public elementary-xfce-icon-theme
 | 
			
		||||
  (package
 | 
			
		||||
    (name "elementary-xfce-icon-theme")
 | 
			
		||||
    (version "0.17")
 | 
			
		||||
    (version "0.18")
 | 
			
		||||
    (source (origin
 | 
			
		||||
              (method git-fetch)
 | 
			
		||||
              (uri
 | 
			
		||||
| 
						 | 
				
			
			@ -280,7 +280,7 @@ it to your needs by using several command line options.")
 | 
			
		|||
              (file-name (git-file-name name version))
 | 
			
		||||
              (sha256
 | 
			
		||||
               (base32
 | 
			
		||||
                "0jlawp6rg55w5cm4d7836r660i2pnc5gkzpdjsq7w5875i85arzm"))))
 | 
			
		||||
                "124bdgghkjkpcsfn9a2ad6zqy233pi9jqmv8w8a3ha6q3al2s11s"))))
 | 
			
		||||
    (build-system gnu-build-system)
 | 
			
		||||
    (arguments
 | 
			
		||||
     '(#:tests? #f                      ; no check target
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1803,9 +1803,9 @@ archive' public keys, with GUIX."
 | 
			
		|||
  (chroot-directories guix-configuration-chroot-directories ;list of file-like/strings
 | 
			
		||||
                      (default '()))
 | 
			
		||||
  (max-silent-time  guix-configuration-max-silent-time ;integer
 | 
			
		||||
                    (default 0))
 | 
			
		||||
                    (default 3600))
 | 
			
		||||
  (timeout          guix-configuration-timeout    ;integer
 | 
			
		||||
                    (default 0))
 | 
			
		||||
                    (default (* 3600 24)))
 | 
			
		||||
  (log-compression  guix-configuration-log-compression
 | 
			
		||||
                    (default 'gzip))
 | 
			
		||||
  (discover?        guix-configuration-discover?
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -61,6 +61,8 @@
 | 
			
		|||
            oci-container-service-type
 | 
			
		||||
            oci-container-shepherd-service))
 | 
			
		||||
 | 
			
		||||
(define-maybe file-like)
 | 
			
		||||
 | 
			
		||||
(define-configuration docker-configuration
 | 
			
		||||
  (docker
 | 
			
		||||
   (file-like docker)
 | 
			
		||||
| 
						 | 
				
			
			@ -87,6 +89,9 @@ loop-back communications.")
 | 
			
		|||
  (environment-variables
 | 
			
		||||
   (list '())
 | 
			
		||||
   "Environment variables to set for dockerd")
 | 
			
		||||
  (config-file
 | 
			
		||||
   (maybe-file-like)
 | 
			
		||||
   "JSON configuration file to pass to dockerd")
 | 
			
		||||
  (no-serialization))
 | 
			
		||||
 | 
			
		||||
(define %docker-accounts
 | 
			
		||||
| 
						 | 
				
			
			@ -131,7 +136,8 @@ loop-back communications.")
 | 
			
		|||
         (enable-iptables? (docker-configuration-enable-iptables? config))
 | 
			
		||||
         (environment-variables (docker-configuration-environment-variables config))
 | 
			
		||||
         (proxy (docker-configuration-proxy config))
 | 
			
		||||
         (debug? (docker-configuration-debug? config)))
 | 
			
		||||
         (debug? (docker-configuration-debug? config))
 | 
			
		||||
         (config-file (docker-configuration-config-file config)))
 | 
			
		||||
    (shepherd-service
 | 
			
		||||
           (documentation "Docker daemon.")
 | 
			
		||||
           (provision '(dockerd))
 | 
			
		||||
| 
						 | 
				
			
			@ -144,6 +150,10 @@ loop-back communications.")
 | 
			
		|||
           (start #~(make-forkexec-constructor
 | 
			
		||||
                     (list (string-append #$docker "/bin/dockerd")
 | 
			
		||||
                           "-p" "/var/run/docker.pid"
 | 
			
		||||
                           #$@(if (not (eq? config-file %unset-value))
 | 
			
		||||
                                  (list #~(string-append
 | 
			
		||||
                                           "--config-file=" #$config-file))
 | 
			
		||||
                                  '())
 | 
			
		||||
                           #$@(if debug?
 | 
			
		||||
                                  '("--debug" "--log-level=debug")
 | 
			
		||||
                                  '())
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,5 +1,5 @@
 | 
			
		|||
;;; GNU Guix --- Functional package management for GNU
 | 
			
		||||
;;; Copyright © 2013-2016, 2018-2023 Ludovic Courtès <ludo@gnu.org>
 | 
			
		||||
;;; Copyright © 2013-2016, 2018-2024 Ludovic Courtès <ludo@gnu.org>
 | 
			
		||||
;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
 | 
			
		||||
;;; Copyright © 2018 Carlo Zancanaro <carlo@zancanaro.id.au>
 | 
			
		||||
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
 | 
			
		||||
| 
						 | 
				
			
			@ -371,17 +371,6 @@ as shepherd package."
 | 
			
		|||
          (use-modules (srfi srfi-34)
 | 
			
		||||
                       (system repl error-handling))
 | 
			
		||||
 | 
			
		||||
          (define (call-with-file file flags proc)
 | 
			
		||||
            (let ((port #f))
 | 
			
		||||
              (dynamic-wind
 | 
			
		||||
                (lambda ()
 | 
			
		||||
                  (set! port (open file flags)))
 | 
			
		||||
                (lambda ()
 | 
			
		||||
                  (proc port))
 | 
			
		||||
                (lambda ()
 | 
			
		||||
                  (close-port port)
 | 
			
		||||
                  (set! port #f)))))
 | 
			
		||||
 | 
			
		||||
          ;; There's code run from shepherd that uses 'call-with-input-file' &
 | 
			
		||||
          ;; co.--e.g., the 'urandom-seed' service.  Starting from Shepherd
 | 
			
		||||
          ;; 0.9.2, users need to make sure not to leak non-close-on-exec file
 | 
			
		||||
| 
						 | 
				
			
			@ -389,11 +378,11 @@ as shepherd package."
 | 
			
		|||
          ;; standard bindings with O_CLOEXEC variants.
 | 
			
		||||
          (set! call-with-input-file
 | 
			
		||||
                (lambda (file proc)
 | 
			
		||||
                  (call-with-file file (logior O_RDONLY O_CLOEXEC)
 | 
			
		||||
                  (call-with-port (open file (logior O_RDONLY O_CLOEXEC))
 | 
			
		||||
                    proc)))
 | 
			
		||||
          (set! call-with-output-file
 | 
			
		||||
                (lambda (file proc)
 | 
			
		||||
                  (call-with-file file (logior O_WRONLY O_CREAT O_CLOEXEC)
 | 
			
		||||
                  (call-with-port (open file (logior O_WRONLY O_CREAT O_CLOEXEC))
 | 
			
		||||
                    proc)))
 | 
			
		||||
 | 
			
		||||
          ;; Specify the default environment visible to all the services.
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -981,6 +981,11 @@ argument.")))
 | 
			
		|||
                (lambda (pw)
 | 
			
		||||
                  (string-append (passwd:dir pw) "/.guix-profile"))))
 | 
			
		||||
 | 
			
		||||
       (define home-profile
 | 
			
		||||
         (and=> (getpw (getuid))
 | 
			
		||||
                (lambda (pw)
 | 
			
		||||
                  (string-append (passwd:dir pw) "/.guix-home/profile"))))
 | 
			
		||||
 | 
			
		||||
       ;; If we are able to find the user's profile, we can add it to
 | 
			
		||||
       ;; the search paths set below.  We need to do this so that D-Bus
 | 
			
		||||
       ;; can start services installed by the user.  This allows
 | 
			
		||||
| 
						 | 
				
			
			@ -988,8 +993,12 @@ argument.")))
 | 
			
		|||
       ;; 'evolution') to work even if those services are only available
 | 
			
		||||
       ;; in the user's profile.  See <https://bugs.gnu.org/35267>.
 | 
			
		||||
       (define profiles
 | 
			
		||||
         (append (if home-profile
 | 
			
		||||
                     (list home-profile)
 | 
			
		||||
                     '())
 | 
			
		||||
                 (if user-profile
 | 
			
		||||
             (list user-profile system-profile)
 | 
			
		||||
                     (list user-profile)
 | 
			
		||||
                     '())
 | 
			
		||||
                 (list system-profile)))
 | 
			
		||||
 | 
			
		||||
       (setenv "XDG_CONFIG_DIRS"
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,5 +1,6 @@
 | 
			
		|||
;;; GNU Guix --- Functional package management for GNU
 | 
			
		||||
;;; Copyright © 2022 Mathieu Othacehe <othacehe@gnu.org>
 | 
			
		||||
;;; Copyright © 2023, 2024 Efraim Flashner <efraim@flashner.co.il>
 | 
			
		||||
;;;
 | 
			
		||||
;;; This file is part of GNU Guix.
 | 
			
		||||
;;;
 | 
			
		||||
| 
						 | 
				
			
			@ -21,6 +22,7 @@
 | 
			
		|||
  #:use-module (guix records)
 | 
			
		||||
  #:export (i686-linux
 | 
			
		||||
            x86_64-linux
 | 
			
		||||
            x86_64-linux-x32
 | 
			
		||||
            i686-mingw
 | 
			
		||||
            x86_64-mingw
 | 
			
		||||
            i586-gnu))
 | 
			
		||||
| 
						 | 
				
			
			@ -41,6 +43,14 @@
 | 
			
		|||
   (rust-target "x86_64-unknown-linux-gnu")
 | 
			
		||||
   (glibc-dynamic-linker "/lib/ld-linux-x86-64.so.2")))
 | 
			
		||||
 | 
			
		||||
(define x86_64-linux-x32
 | 
			
		||||
  (platform
 | 
			
		||||
   (target "x86_64-linux-gnux32")
 | 
			
		||||
   (system #f)
 | 
			
		||||
   (linux-architecture "x86_64")
 | 
			
		||||
   (rust-target "x86_64-unknown-linux-gnux32")
 | 
			
		||||
   (glibc-dynamic-linker "/lib/ld-linux-x32.so.2")))
 | 
			
		||||
 | 
			
		||||
(define i686-mingw
 | 
			
		||||
  (platform
 | 
			
		||||
   (target "i686-w64-mingw32")
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -1,5 +1,5 @@
 | 
			
		|||
;;; GNU Guix --- Functional package management for GNU
 | 
			
		||||
;;; Copyright © 2012-2023 Ludovic Courtès <ludo@gnu.org>
 | 
			
		||||
;;; Copyright © 2012-2024 Ludovic Courtès <ludo@gnu.org>
 | 
			
		||||
;;; Copyright © 2013, 2018 Mark H Weaver <mhw@netris.org>
 | 
			
		||||
;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
 | 
			
		||||
;;; Copyright © 2014 Cyril Roelandt <tipecaml@gmail.com>
 | 
			
		||||
| 
						 | 
				
			
			@ -555,7 +555,7 @@ See the \"Application Setup\" section in the manual, for more info.\n"))
 | 
			
		|||
  (leave-on-EPIPE
 | 
			
		||||
   (simple-format #t "~a (~a) ~a~%"
 | 
			
		||||
                  command %guix-package-name %guix-version)
 | 
			
		||||
   (format #t "Copyright ~a 2023 ~a"
 | 
			
		||||
   (format #t "Copyright ~a 2024 ~a"
 | 
			
		||||
           ;; TRANSLATORS: Translate "(C)" to the copyright symbol
 | 
			
		||||
           ;; (C-in-a-circle), if this symbol is available in the user's
 | 
			
		||||
           ;; locale.  Otherwise, do not translate "(C)"; leave it as-is.  */
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -7,7 +7,7 @@
 | 
			
		|||
;;; Copyright © 2015 David Thompson <davet@gnu.org>
 | 
			
		||||
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
 | 
			
		||||
;;; Copyright © 2018, 2020 Marius Bakke <marius@gnu.org>
 | 
			
		||||
;;; Copyright © 2020, 2021 Efraim Flashner <efraim@flashner.co.il>
 | 
			
		||||
;;; Copyright © 2020, 2021, 2024 Efraim Flashner <efraim@flashner.co.il>
 | 
			
		||||
;;; Copyright © 2020, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 | 
			
		||||
;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com>
 | 
			
		||||
;;; Copyright © 2021 Chris Marusich <cmmarusich@gmail.com>
 | 
			
		||||
| 
						 | 
				
			
			@ -97,6 +97,7 @@
 | 
			
		|||
            target-x86-32?
 | 
			
		||||
            target-x86-64?
 | 
			
		||||
            target-x86?
 | 
			
		||||
            target-x32?
 | 
			
		||||
            target-arm32?
 | 
			
		||||
            target-aarch64?
 | 
			
		||||
            target-arm?
 | 
			
		||||
| 
						 | 
				
			
			@ -634,6 +635,8 @@ returned by `config.guess'."
 | 
			
		|||
                       (else triplet))))
 | 
			
		||||
    (cond ((string-match "^arm[^-]*-([^-]+-)?linux-gnueabihf" triplet)
 | 
			
		||||
           "armhf-linux")
 | 
			
		||||
          ;; Otherwise it will show up as x86_64-linux... which isn't wrong.
 | 
			
		||||
          ((string-match "x86_64-linux-gnux32" triplet) "x86_64-linux-gnux32")
 | 
			
		||||
          ((string-match "^([^-]+)-([^-]+-)?linux-gnu.*" triplet)
 | 
			
		||||
           =>
 | 
			
		||||
           (lambda (m)
 | 
			
		||||
| 
						 | 
				
			
			@ -710,6 +713,13 @@ a character other than '@'."
 | 
			
		|||
architecture (x86_64)?"
 | 
			
		||||
  (string-prefix? "x86_64-" target))
 | 
			
		||||
 | 
			
		||||
(define* (target-x32? #:optional (target (or (%current-target-system)
 | 
			
		||||
                                             (%current-system))))
 | 
			
		||||
  "Is the architecture of TARGET a variant of Intel/AMD's 64-bit
 | 
			
		||||
architecture (x86_64) using 32-bit data types?"
 | 
			
		||||
  (and (target-x86-64? target)
 | 
			
		||||
       (string-suffix? "gnux32" target)))
 | 
			
		||||
 | 
			
		||||
(define* (target-x86? #:optional (target (or (%current-target-system)
 | 
			
		||||
                                             (%current-system))))
 | 
			
		||||
  (or (target-x86-32? target) (target-x86-64? target)))
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -32,8 +32,8 @@ Settings::Settings()
 | 
			
		|||
    buildCores = 1;
 | 
			
		||||
    readOnlyMode = false;
 | 
			
		||||
    thisSystem = SYSTEM;
 | 
			
		||||
    maxSilentTime = 0;
 | 
			
		||||
    buildTimeout = 0;
 | 
			
		||||
    maxSilentTime = 3600;
 | 
			
		||||
    buildTimeout = 3600 * 24;
 | 
			
		||||
    useBuildHook = true;
 | 
			
		||||
    printBuildTrace = false;
 | 
			
		||||
    multiplexedBuildOutput = false;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue