me
/
guix
Archived
1
0
Fork 0
Code

Merge branch 'master' into core-updates

master
Marius Bakke 2020-04-13 20:26:21 +02:00
parent 9d89818a35 bad368b0d7
commit fc58cb5bd2
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
63 changed files with 762 additions and 461 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

176
doc/build.scm
View File

@ -220,8 +220,11 @@ its <pre class=\"lisp\"> blocks (as produced by 'makeinfo --html')."
(syntax-highlight scheme) (syntax-highlight scheme)
(syntax-highlight lexers) (syntax-highlight lexers)
(guix build utils) (guix build utils)
(srfi srfi-1)
(srfi srfi-26)
(ice-9 match) (ice-9 match)
(ice-9 threads)) (ice-9 threads)
(ice-9 vlist))
(define (pair-open/close lst) (define (pair-open/close lst)
;; Pair 'open' and 'close' tags produced by 'highlights' and ;; Pair 'open' and 'close' tags produced by 'highlights' and
@ -255,10 +258,11 @@ its <pre class=\"lisp\"> blocks (as produced by 'makeinfo --html')."
level (reverse result))) level (reverse result)))
(values (reverse result) "" '()))))) (values (reverse result) "" '())))))
(define (highlights->sxml* highlights) (define (highlights->sxml* highlights anchors)
;; Like 'highlights->sxml', but handle nested 'paren tags. This ;; Like 'highlights->sxml', but handle nested 'paren tags. This
;; allows for paren matching highlights via appropriate CSS ;; allows for paren matching highlights via appropriate CSS
;; "hover" properties. ;; "hover" properties. When a symbol is encountered, look it up
;; in ANCHORS, a vhash, and emit the corresponding href, if any.
(define (tag->class tag) (define (tag->class tag)
(string-append "syntax-" (symbol->string tag))) (string-append "syntax-" (symbol->string tag)))
@ -269,8 +273,16 @@ its <pre class=\"lisp\"> blocks (as produced by 'makeinfo --html')."
(number->string level)))) (number->string level))))
,open ,open
(span (@ (class "syntax-symbol")) (span (@ (class "syntax-symbol"))
,@(highlights->sxml* body)) ,@(highlights->sxml* body anchors))
,close)) ,close))
(('symbol text)
;; Check whether we can emit a hyperlink for TEXT.
(match (vhash-assoc text anchors)
(#f
`(span (@ (class ,(tag->class 'symbol))) ,text))
((_ . target)
`(a (@ (class ,(tag->class 'symbol)) (href ,target))
,text))))
((tag text) ((tag text)
`(span (@ (class ,(tag->class tag))) ,text))) `(span (@ (class ,(tag->class tag))) ,text)))
highlights)) highlights))
@ -301,35 +313,109 @@ its <pre class=\"lisp\"> blocks (as produced by 'makeinfo --html')."
(pk 'unsupported-code-snippet something) (pk 'unsupported-code-snippet something)
(primitive-exit 1))))) (primitive-exit 1)))))
(define (syntax-highlight sxml) (define (syntax-highlight sxml anchors)
;; Recurse over SXML and syntax-highlight code snippets. ;; Recurse over SXML and syntax-highlight code snippets.
(match sxml (let loop ((sxml sxml))
(('*TOP* decl body ...) (match sxml
`(*TOP* ,decl ,@(map syntax-highlight body))) (('*TOP* decl body ...)
(('head things ...) `(*TOP* ,decl ,@(map loop body)))
`(head ,@things (('head things ...)
(link (@ (rel "stylesheet") `(head ,@things
(type "text/css") (link (@ (rel "stylesheet")
(href #$syntax-css-url))))) (type "text/css")
(('pre ('@ ('class "lisp")) code-snippet ...) (href #$syntax-css-url)))))
`(pre (@ (class "lisp")) (('pre ('@ ('class "lisp")) code-snippet ...)
,@(highlights->sxml* `(pre (@ (class "lisp"))
(pair-open/close ,@(highlights->sxml*
(highlight lex-scheme (pair-open/close
(concatenate-snippets code-snippet)))))) (highlight lex-scheme
((tag ('@ attributes ...) body ...) (concatenate-snippets code-snippet)))
`(,tag (@ ,@attributes) ,@(map syntax-highlight body))) anchors)))
((tag body ...) ((tag ('@ attributes ...) body ...)
`(,tag ,@(map syntax-highlight body))) `(,tag (@ ,@attributes) ,@(map loop body)))
((? string? str) ((tag body ...)
str))) `(,tag ,@(map loop body)))
((? string? str)
str))))
(define (process-html file) (define (underscore-decode str)
;; Decode STR, an "underscore-encoded" string as produced by
;; makeinfo for indexes, such as "_0025base_002dservices" for
;; "%base-services".
(let loop ((str str)
(result '()))
(match (string-index str #\_)
(#f
(string-concatenate-reverse (cons str result)))
(index
(let ((char (string->number
(substring str (+ index 1) (+ index 5))
16)))
(loop (string-drop str (+ index 5))
(append (list (string (integer->char char))
(string-take str index))
result)))))))
(define (anchor-id->key id)
;; Convert ID, an anchor ID such as
;; "index-pam_002dlimits_002dservice" to the corresponding key,
;; "pam-limits-service" in this example. Drop the suffix of
;; duplicate anchor IDs like "operating_002dsystem-1".
(let ((id (if (any (cut string-suffix? <> id)
'("-1" "-2" "-3" "-4" "-5"))
(string-drop-right id 2)
id)))
(underscore-decode
(string-drop id (string-length "index-")))))
(define* (collect-anchors file #:optional (vhash vlist-null))
;; Collect the anchors that appear in FILE, a makeinfo-generated
;; file. Grab those from <dt> tags, which corresponds to
;; Texinfo @deftp, @defvr, etc. Return VHASH augmented with
;; more name/reference pairs.
(define string-or-entity?
(match-lambda
((? string?) #t)
(('*ENTITY* _ ...) #t)
(_ #f)))
(define (worthy-entry? lst)
;; Attempt to match:
;; Scheme Variable: <strong>x</strong>
;; but not:
;; <code>cups-configuration</code> parameter: …
(let loop ((lst lst))
(match lst
(((? string-or-entity?) rest ...)
(loop rest))
((('strong _ ...) _ ...)
#t)
(_ #f))))
(let ((shtml (call-with-input-file file html->shtml)))
(let loop ((shtml shtml)
(vhash vhash))
(match shtml
(('dt ('@ ('id id)) rest ...)
(if (and (string-prefix? "index-" id)
(worthy-entry? rest))
(vhash-cons (anchor-id->key id)
(string-append (basename file)
"#" id)
vhash)
vhash))
((tag ('@ _ ...) body ...)
(fold loop vhash body))
((tag body ...)
(fold loop vhash body))
(_ vhash)))))
(define (process-html file anchors)
;; Parse FILE and perform syntax highlighting for its Scheme ;; Parse FILE and perform syntax highlighting for its Scheme
;; snippets. Install the result to #$output. ;; snippets. Install the result to #$output.
(format (current-error-port) "processing ~a...~%" file) (format (current-error-port) "processing ~a...~%" file)
(let* ((shtml (call-with-input-file file html->shtml)) (let* ((shtml (call-with-input-file file html->shtml))
(highlighted (syntax-highlight shtml)) (highlighted (syntax-highlight shtml anchors))
(base (string-drop file (string-length #$input))) (base (string-drop file (string-length #$input)))
(target (string-append #$output base))) (target (string-append #$output base)))
(mkdir-p (dirname target)) (mkdir-p (dirname target))
@ -352,17 +438,43 @@ its <pre class=\"lisp\"> blocks (as produced by 'makeinfo --html')."
(pk 'error-link file target (strerror errno)) (pk 'error-link file target (strerror errno))
(primitive-exit 3)))))) (primitive-exit 3))))))
(define (html? file stat)
(string-suffix? ".html" file))
;; Install a UTF-8 locale so we can process UTF-8 files. ;; Install a UTF-8 locale so we can process UTF-8 files.
(setenv "GUIX_LOCPATH" (setenv "GUIX_LOCPATH"
#+(file-append glibc-utf8-locales "/lib/locale")) #+(file-append glibc-utf8-locales "/lib/locale"))
(setlocale LC_ALL "en_US.utf8") (setlocale LC_ALL "en_US.utf8")
;; First process the mono-node 'guix.html' files.
(n-par-for-each (parallel-job-count) (n-par-for-each (parallel-job-count)
(lambda (file) (lambda (mono)
(if (string-suffix? ".html" file) (let ((anchors (collect-anchors mono)))
(process-html file) (process-html mono anchors)))
(copy-as-is file))) (find-files #$input "^guix(\\.[a-zA-Z_-]+)?\\.html$"))
(find-files #$input))))))
;; Next process the multi-node HTML files in two phases: (1)
;; collect the list of anchors, and (2) perform
;; syntax-highlighting.
(let* ((multi (find-files #$input "^html_node$"
#:directories? #t))
(anchors (n-par-map (parallel-job-count)
(lambda (multi)
(cons multi
(fold collect-anchors vlist-null
(find-files multi html?))))
multi)))
(n-par-for-each (parallel-job-count)
(lambda (file)
(let ((anchors (assoc-ref anchors (dirname file))))
(process-html file anchors)))
(append-map (lambda (multi)
(find-files multi html?))
multi)))
;; Last, copy non-HTML files as is.
(for-each copy-as-is
(find-files #$input (negate html?)))))))
(computed-file name build)) (computed-file name build))

6
gnu/packages/batik.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Danny Milosavljevic <dannym@scratchpost.org> ;;; Copyright © 2018 Danny Milosavljevic <dannym@scratchpost.org>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -198,7 +199,7 @@ SAC is an interface for CSS parsers.")
(define-public java-xmlgraphics-commons (define-public java-xmlgraphics-commons
(package (package
(name "java-xmlgraphics-commons") (name "java-xmlgraphics-commons")
(version "2.3") (version "2.4")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -206,8 +207,7 @@ SAC is an interface for CSS parsers.")
"mirror://apache/xmlgraphics/commons/source/xmlgraphics-commons-" "mirror://apache/xmlgraphics/commons/source/xmlgraphics-commons-"
version "-src.tar.gz")) version "-src.tar.gz"))
(sha256 (sha256
(base32 (base32 "0zdkngb896cr35jq1v859j2kpqyn6a87k6a893h394hgvnz7yi3v"))
"0a432a4ca3vgnbada5cy9mlmfzmq6hi4i176drfxrp17q2d43w23"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
`(begin `(begin

8
gnu/packages/bioconductor.scm
View File

@ -3501,8 +3501,8 @@ phenotype of interest.")
(synopsis "Fast gene set enrichment analysis") (synopsis "Fast gene set enrichment analysis")
(description (description
"The package implements an algorithm for fast gene set enrichment "The package implements an algorithm for fast gene set enrichment
analysis. Using the fast algorithm allows to make more permutations and get analysis. Using the fast algorithm makes more permutations and gets
more fine grained p-values, which allows to use accurate stantard approaches more fine grained p-values, which allows using accurate standard approaches
to multiple hypothesis correction.") to multiple hypothesis correction.")
(license license:expat))) (license license:expat)))
@ -4271,7 +4271,7 @@ investigation using RNA-seq data.")
(home-page "https://bioconductor.org/packages/AUCell/") (home-page "https://bioconductor.org/packages/AUCell/")
(synopsis "Analysis of gene set activity in single-cell RNA-seq data") (synopsis "Analysis of gene set activity in single-cell RNA-seq data")
(description (description
"AUCell allows to identify cells with active gene sets (e.g. signatures, "AUCell identifies cells with active gene sets (e.g. signatures,
gene modules, etc) in single-cell RNA-seq data. AUCell uses the @dfn{Area gene modules, etc) in single-cell RNA-seq data. AUCell uses the @dfn{Area
Under the Curve} (AUC) to calculate whether a critical subset of the input Under the Curve} (AUC) to calculate whether a critical subset of the input
gene set is enriched within the expressed genes for each cell. The gene set is enriched within the expressed genes for each cell. The
@ -6426,7 +6426,7 @@ parametric mixture model. The protein binding sites (clusters) are then
resolved at high resolution and cluster statistics are estimated using a resolved at high resolution and cluster statistics are estimated using a
rigorous Bayesian framework. Post-processing of the results, data export for rigorous Bayesian framework. Post-processing of the results, data export for
UCSC genome browser visualization and motif search analysis are provided. In UCSC genome browser visualization and motif search analysis are provided. In
addition, the package allows to integrate RNA-Seq data to estimate the False addition, the package integrates RNA-Seq data to estimate the False
Discovery Rate of cluster detection. Key functions support parallel multicore Discovery Rate of cluster detection. Key functions support parallel multicore
computing. While wavClusteR was designed for PAR-CLIP data analysis, it can computing. While wavClusteR was designed for PAR-CLIP data analysis, it can
be applied to the analysis of other NGS data obtained from experimental be applied to the analysis of other NGS data obtained from experimental

4
gnu/packages/bioinformatics.scm
View File

@ -8401,7 +8401,7 @@ system. It is used to analyze experimental crosses for identifying
genes contributing to variation in quantitative traits (so-called genes contributing to variation in quantitative traits (so-called
quantitative trait loci, QTLs). quantitative trait loci, QTLs).
Using a hidden Markov model, R/qtl allows to estimate genetic maps, to Using a hidden Markov model, R/qtl estimates genetic maps, to
identify genotyping errors, and to perform single-QTL and two-QTL, identify genotyping errors, and to perform single-QTL and two-QTL,
two-dimensional genome scans.") two-dimensional genome scans.")
(license license:gpl3))) (license license:gpl3)))
@ -8532,7 +8532,7 @@ of other R packages who wish to make use of HTSlib.")
(home-page "https://bioconductor.org/packages/bamsignals") (home-page "https://bioconductor.org/packages/bamsignals")
(synopsis "Extract read count signals from bam files") (synopsis "Extract read count signals from bam files")
(description (description
"This package allows to efficiently obtain count vectors from indexed bam "This package efficiently obtains count vectors from indexed bam
files. It counts the number of nucleotide sequence reads in given genomic files. It counts the number of nucleotide sequence reads in given genomic
ranges and it computes reads profiles and coverage profiles. It also handles ranges and it computes reads profiles and coverage profiles. It also handles
paired-end data.") paired-end data.")

14
gnu/packages/build-tools.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com> ;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com>
;;; Copyright © 2018 Tomáš Čech <sleep_walker@gnu.org> ;;; Copyright © 2018 Tomáš Čech <sleep_walker@gnu.org>
;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2018, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2019 Brett Gilio <brettg@gnu.org> ;;; Copyright © 2019 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2019 Jonathan Brielmaier <jonathan.brielmaier@web.de> ;;; Copyright © 2019 Jonathan Brielmaier <jonathan.brielmaier@web.de>
@ -103,8 +103,8 @@ generate such a compilation database.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public gn (define-public gn
(let ((commit "6e5ba2e7210823cf7ccce3eb2a23336a4e7f1349") (let ((commit "ec938ddaa276646eb8f1ab33e160c156011d8217")
(revision "1666")) ;as returned by `git describe`, used below (revision "1736")) ;as returned by `git describe`, used below
(package (package
(name "gn") (name "gn")
(version (git-version "0.0" revision commit)) (version (git-version "0.0" revision commit))
@ -114,7 +114,7 @@ generate such a compilation database.")
(uri (git-reference (url home-page) (commit commit))) (uri (git-reference (url home-page) (commit commit)))
(sha256 (sha256
(base32 (base32
"157ax65sixjm0i1j89wvny48v1mbsl4pbvv5vqinjc6r0fryaf2r")) "0j1qjwp2biw12s6npzpx4z8nvih7pyn68q6cz2k4700bk9y0d574"))
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
@ -135,8 +135,10 @@ generate such a compilation database.")
(call-with-output-file "out/last_commit_position.h" (call-with-output-file "out/last_commit_position.h"
(lambda (port) (lambda (port)
(format port (format port
"#define LAST_COMMIT_POSITION \"~a (~a)\"\n" (string-append
,revision ,(string-take commit 8)) "#define LAST_COMMIT_POSITION_NUM ~a\n"
"#define LAST_COMMIT_POSITION \"~a (~a)\"\n")
,revision ,revision ,(string-take commit 8))
#t)))) #t))))
(replace 'build (replace 'build
(lambda _ (lambda _

8
gnu/packages/check.scm
View File

@ -582,14 +582,14 @@ but it works for any C/C++ project.")
(define-public python-parameterized (define-public python-parameterized
(package (package
(name "python-parameterized") (name "python-parameterized")
(version "0.7.1") (version "0.7.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "parameterized" version)) (uri (pypi-uri "parameterized" version))
(sha256 (sha256
(base32 (base32
"1vapry9lyfb2mlpgk2wh9079hzxzq5120bsczncxxay663mdp53a")))) "0g1q6n7fkanjv7i1djzw62f46xf573jvza7afabh3baqjqxy7rpd"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
'(#:phases (modify-phases %standard-phases '(#:phases (modify-phases %standard-phases
@ -1952,8 +1952,8 @@ possible to write plugins to add your own checks.")
(synopsis (synopsis
"Simple extension to have parametrized unit tests") "Simple extension to have parametrized unit tests")
(description (description
"This package allows to create parametrized unit-tests that work with the standard "This package creates parameterized unit-tests that work with the standard
unittest package. A parametrized test case is automatically converted to multiple test unittest package. A parameterized test case is automatically converted to multiple test
cases. Since they are TestCase subclasses, they work with other test suites that cases. Since they are TestCase subclasses, they work with other test suites that
recognize TestCases.") recognize TestCases.")
(license license:bsd-2))) (license license:bsd-2)))

42
gnu/packages/chromium.scm
View File

@ -135,8 +135,11 @@
"third_party/dawn" ;ASL2.0 "third_party/dawn" ;ASL2.0
"third_party/depot_tools/owners.py" ;BSD-3 "third_party/depot_tools/owners.py" ;BSD-3
"third_party/devtools-frontend" ;BSD-3 "third_party/devtools-frontend" ;BSD-3
"third_party/devtools-frontend/src/front_end/third_party/fabricjs" ;Expat
"third_party/devtools-frontend/src/front_end/third_party/wasmparser" ;ASL2.0
"third_party/devtools-frontend/src/third_party/axe-core" ;MPL2.0 "third_party/devtools-frontend/src/third_party/axe-core" ;MPL2.0
"third_party/devtools-frontend/src/third_party/pyjson5" ;ASL2.0 "third_party/devtools-frontend/src/third_party/pyjson5" ;ASL2.0
"third_party/devtools-frontend/src/third_party/typescript" ;ASL2.0
"third_party/dom_distiller_js" ;BSD-3 "third_party/dom_distiller_js" ;BSD-3
"third_party/emoji-segmenter" ;ASL2.0 "third_party/emoji-segmenter" ;ASL2.0
"third_party/flatbuffers" ;ASL2.0 "third_party/flatbuffers" ;ASL2.0
@ -196,7 +199,6 @@
"third_party/qcms" ;Expat "third_party/qcms" ;Expat
"third_party/rnnoise" ;BSD-3 "third_party/rnnoise" ;BSD-3
"third_party/s2cellid" ;ASL2.0 "third_party/s2cellid" ;ASL2.0
"third_party/sfntly" ;ASL2.0
"third_party/skia" ;BSD-3 "third_party/skia" ;BSD-3
"third_party/skia/include/third_party/skcms" ;BSD-3 "third_party/skia/include/third_party/skcms" ;BSD-3
"third_party/skia/third_party/skcms" ;BSD-3 "third_party/skia/third_party/skcms" ;BSD-3
@ -206,7 +208,6 @@
"third_party/spirv-headers" ;ASL2.0 "third_party/spirv-headers" ;ASL2.0
"third_party/SPIRV-Tools" ;ASL2.0 "third_party/SPIRV-Tools" ;ASL2.0
"third_party/sqlite" ;Public domain "third_party/sqlite" ;Public domain
"third_party/ungoogled" ;BSD-3
"third_party/usb_ids" ;BSD-3 "third_party/usb_ids" ;BSD-3
"third_party/usrsctp" ;BSD-2 "third_party/usrsctp" ;BSD-2
"third_party/wayland/wayland_scanner_wrapper.py" ;BSD-3 "third_party/wayland/wayland_scanner_wrapper.py" ;BSD-3
@ -247,9 +248,9 @@ from forcing GEXP-PROMISE."
#:system system #:system system
#:guile-for-build guile))) #:guile-for-build guile)))
(define %chromium-version "80.0.3987.163") (define %chromium-version "81.0.4044.92")
(define %ungoogled-revision "516e2d990a50a4bbeb8c583e56333c2935e2af95") (define %ungoogled-revision "b484ad4c0bdb696c86d941798ae6b0e2bd0db35d")
(define %debian-revision "debian/80.0.3987.116-1") (define %debian-revision "debian/81.0.4044.92-1")
(define package-revision "0") (define package-revision "0")
(define %package-version (string-append %chromium-version "-" (define %package-version (string-append %chromium-version "-"
package-revision "." package-revision "."
@ -263,7 +264,7 @@ from forcing GEXP-PROMISE."
%chromium-version ".tar.xz")) %chromium-version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"0ikk4cgz3jgjhyncsvlqvlc03y7jywjpa6v34fwsjxs88flyzpdn")))) "0i0szd749ihb08rxnsmsbxq75b6x952wpk94jwc0ncv6gb83zkx2"))))
(define %ungoogled-origin (define %ungoogled-origin
(origin (origin
@ -274,7 +275,7 @@ from forcing GEXP-PROMISE."
(string-take %ungoogled-revision 7))) (string-take %ungoogled-revision 7)))
(sha256 (sha256
(base32 (base32
"0nm55qq4ahw9haf5g7hmzic4mr2xjgpay7lxps7xjp7s1pda4g0q")))) "071a33idn2zcix6z8skn7y85mhb9w5s0bh0fvrjm269y7cmjrh3l"))))
(define %debian-origin (define %debian-origin
(origin (origin
@ -288,7 +289,7 @@ from forcing GEXP-PROMISE."
(_ (string-take %debian-revision 7))))) (_ (string-take %debian-revision 7)))))
(sha256 (sha256
(base32 (base32
"1cc5sp566dd8f2grgr770xwbxgxf58dk1w7q3s8pmv4js5h3pwq8")))) "0srgbcqga3l75bfkv3bnmjk416189nazsximvzdx2k5n8v5k4p3m"))))
;; This is a "computed" origin that does the following: ;; This is a "computed" origin that does the following:
;; *) Runs the Ungoogled scripts on a pristine Chromium tarball. ;; *) Runs the Ungoogled scripts on a pristine Chromium tarball.
@ -319,8 +320,7 @@ from forcing GEXP-PROMISE."
(list #+(canonical-package patch) (list #+(canonical-package patch)
#+(canonical-package xz) #+(canonical-package xz)
#+(canonical-package tar) #+(canonical-package tar)
#+python-2 #+python-wrapper))
#+python))
(copy-recursively #+ungoogled-source "/tmp/ungoogled") (copy-recursively #+ungoogled-source "/tmp/ungoogled")
@ -338,11 +338,11 @@ from forcing GEXP-PROMISE."
(format #t "Ungooglifying...~%") (format #t "Ungooglifying...~%")
(force-output) (force-output)
(invoke "python3" "utils/prune_binaries.py" chromium-dir (invoke "python" "utils/prune_binaries.py" chromium-dir
"pruning.list") "pruning.list")
(invoke "python3" "utils/patches.py" "apply" (invoke "python" "utils/patches.py" "apply"
chromium-dir "patches") chromium-dir "patches")
(invoke "python3" "utils/domain_substitution.py" "apply" "-r" (invoke "python" "utils/domain_substitution.py" "apply" "-r"
"domain_regex.list" "-f" "domain_substitution.list" "domain_regex.list" "-f" "domain_substitution.list"
"-c" "/tmp/domainscache.tar.gz" chromium-dir) "-c" "/tmp/domainscache.tar.gz" chromium-dir)
@ -390,13 +390,13 @@ from forcing GEXP-PROMISE."
(format #t "Pruning third party files...~%") (format #t "Pruning third party files...~%")
(force-output) (force-output)
(apply invoke "python" (apply invoke (string-append #+python-2 "/bin/python")
"build/linux/unbundle/remove_bundled_libraries.py" "build/linux/unbundle/remove_bundled_libraries.py"
"--do-remove" preserved-files) "--do-remove" preserved-files)
(format #t "Replacing GN files...~%") (format #t "Replacing GN files...~%")
(force-output) (force-output)
(invoke "python3" "build/linux/unbundle/replace_gn_files.py" (invoke "python" "build/linux/unbundle/replace_gn_files.py"
"--system-libraries" "ffmpeg" "flac" "fontconfig" "--system-libraries" "ffmpeg" "flac" "fontconfig"
"freetype" "harfbuzz-ng" "icu" "libdrm" "libevent" "freetype" "harfbuzz-ng" "icu" "libdrm" "libevent"
"libjpeg" "libpng" "libvpx" "libwebp" "libxml" "libjpeg" "libpng" "libvpx" "libwebp" "libxml"
@ -450,7 +450,6 @@ from forcing GEXP-PROMISE."
;; directory for an exhaustive list of supported flags. ;; directory for an exhaustive list of supported flags.
;; (Note: The 'configure' phase will do that for you.) ;; (Note: The 'configure' phase will do that for you.)
(list "is_debug=false" (list "is_debug=false"
"is_cfi=false"
"use_gold=false" "use_gold=false"
"use_lld=false" "use_lld=false"
"clang_use_chrome_plugins=false" "clang_use_chrome_plugins=false"
@ -636,8 +635,13 @@ from forcing GEXP-PROMISE."
(setenv "AR" "ar") (setenv "NM" "nm") (setenv "AR" "ar") (setenv "NM" "nm")
(setenv "CC" "clang") (setenv "CXX" "clang++") (setenv "CC" "clang") (setenv "CXX" "clang++")
;; Do not optimize away null pointer safety checks. (setenv "CXXFLAGS"
(setenv "CXXFLAGS" "-fno-delete-null-pointer-checks") (string-join
'(;; Do not optimize away null pointer safety checks.
"-fno-delete-null-pointer-checks"
;; Disable warnings about unknown warnings that require
;; Clang plugins or newer versions.
"-Wno-unknown-warning-option")))
;; TODO: pre-compile instead. Avoids a race condition. ;; TODO: pre-compile instead. Avoids a race condition.
(setenv "PYTHONDONTWRITEBYTECODE" "1") (setenv "PYTHONDONTWRITEBYTECODE" "1")
@ -782,7 +786,7 @@ from forcing GEXP-PROMISE."
("glib" ,glib) ("glib" ,glib)
("gtk+" ,gtk+) ("gtk+" ,gtk+)
("harfbuzz" ,harfbuzz) ("harfbuzz" ,harfbuzz)
("icu4c" ,icu4c) ("icu4c" ,icu4c-66.1)
("jsoncpp" ,jsoncpp) ("jsoncpp" ,jsoncpp)
("lcms" ,lcms) ("lcms" ,lcms)
("libevent" ,libevent) ("libevent" ,libevent)

6
gnu/packages/cran.scm
View File

@ -11532,7 +11532,7 @@ JASA, 94:496-509.")
(home-page "https://cran.r-project.org/web/packages/etm") (home-page "https://cran.r-project.org/web/packages/etm")
(synopsis "Empirical transition matrix") (synopsis "Empirical transition matrix")
(description (description
"The @dfn{empirical transition matrix} (etm) package permits to estimate "The @dfn{empirical transition matrix} (etm) package estimates
the matrix of transition probabilities for any time-inhomogeneous multistate the matrix of transition probabilities for any time-inhomogeneous multistate
model with finite state space using the Aalen-Johansen estimator.") model with finite state space using the Aalen-Johansen estimator.")
(license license:expat))) (license license:expat)))
@ -13880,7 +13880,7 @@ redirection on the fly, which appears to be very useful for teaching purposes,
as the student can keep a copy of the produced output to keep all that they as the student can keep a copy of the produced output to keep all that they
did during the course. The package comes with a vignette describing how to did during the course. The package comes with a vignette describing how to
write HTML reports for statistical analysis. Finally, a driver for Sweave write HTML reports for statistical analysis. Finally, a driver for Sweave
allows to parse HTML flat files containing R code and to automatically write parses HTML flat files containing R code and to automatically write
the corresponding outputs (tables and graphs).") the corresponding outputs (tables and graphs).")
(license license:gpl2+))) (license license:gpl2+)))
@ -15863,7 +15863,7 @@ be used further by e.g. graphic devices.")
"This package provides several layout algorithms to visualize networks "This package provides several layout algorithms to visualize networks
which are not part of the igraph library. Most are based on the concept of which are not part of the igraph library. Most are based on the concept of
stress majorization by Gansner et al. (2004) stress majorization by Gansner et al. (2004)
<doi:10.1007/978-3-540-31843-9_25>. Some more specific algorithms allow to <doi:10.1007/978-3-540-31843-9_25>. Some more specific algorithms
emphasize hidden group structures in networks or focus on specific nodes.") emphasize hidden group structures in networks or focus on specific nodes.")
(license license:expat))) (license license:expat)))

13
gnu/packages/databases.scm
View File

@ -225,7 +225,7 @@ standard Go idioms.")
(define-public ephemeralpg (define-public ephemeralpg
(package (package
(name "ephemeralpg") (name "ephemeralpg")
(version "2.9") (version "3.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -233,17 +233,14 @@ standard Go idioms.")
"https://eradman.com/ephemeralpg/code/ephemeralpg-" "https://eradman.com/ephemeralpg/code/ephemeralpg-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 "1ghp3kya4lxvfwz3c022cx9vqf55jbf9sjw60bxjcb5sszklyc89")))) (base32 "1j0g7g114ma7y7sadbng5p1ss1zsm9zpicm77qspym6565733vvh"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:make-flags (list "CC=gcc" '(#:make-flags (list "CC=gcc"
(string-append "PREFIX=" %output)) (string-append "PREFIX=" %output))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'configure) (delete 'configure) ; no configure script
(replace 'check
(lambda* (#:key inputs #:allow-other-keys)
(invoke "ruby" "test.rb")))
(add-after 'install 'wrap (add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
@ -255,11 +252,13 @@ standard Go idioms.")
"/bin") "/bin")
;; For getsocket. ;; For getsocket.
,(string-append out "/bin"))))) ,(string-append out "/bin")))))
#t))))) #t)))
#:test-target "test"))
(inputs (inputs
`(("postgresql" ,postgresql) `(("postgresql" ,postgresql)
("util-linux" ,util-linux))) ("util-linux" ,util-linux)))
(native-inputs (native-inputs
;; For tests.
`(("ruby" ,ruby) `(("ruby" ,ruby)
("which" ,which))) ("which" ,which)))
(home-page "https://eradman.com/ephemeralpg/") (home-page "https://eradman.com/ephemeralpg/")

36
gnu/packages/datastructures.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015, 2016, 2018, 2019 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015, 2016, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2016, 2017, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Meiyo Peng <meiyo.peng@gmail.com> ;;; Copyright © 2018 Meiyo Peng <meiyo.peng@gmail.com>
;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
;;; ;;;
@ -105,17 +105,20 @@ and time-efficient for good hash functions.")
(define-public ssdeep (define-public ssdeep
(package (package
(name "ssdeep") (name "ssdeep")
(version "2.13") (version "2.14.1")
(source (origin (source
(method url-fetch) (origin
(uri (string-append "mirror://sourceforge/ssdeep/" (method url-fetch)
name "-" version "/" (uri (string-append "https://github.com/ssdeep-project/ssdeep/"
name "-" version ".tar.gz")) "releases/download/release-" version "/"
(sha256 "ssdeep-" version ".tar.gz"))
(base32 (sha256
"1igqy0j7jrklb8fdlrm6ald4cyl1fda5ipfl8crzyl6bax2ajk3f")))) (base32 "04qkjc6kksxkv7xbnk32rwmf3a8czdv2vvrdzfs0kw06h73snbpz"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(home-page "http://ssdeep.sourceforge.net") (arguments
`(#:configure-flags
(list "--disable-static")))
(home-page "https://ssdeep-project.github.io")
(synopsis "Context-triggered piecewise hashing algorithm") (synopsis "Context-triggered piecewise hashing algorithm")
(description "ssdeep computes and matches context triggered piecewise (description "ssdeep computes and matches context triggered piecewise
hashes (CTPH), also called fuzzy checksums. It can identify similar files hashes (CTPH), also called fuzzy checksums. It can identify similar files
@ -126,14 +129,14 @@ in between these sequences may be different in both content and length.")
(define-public liburcu (define-public liburcu
(package (package
(name "liburcu") (name "liburcu")
(version "0.11.1") (version "0.12.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://www.lttng.org/files/urcu/" (uri (string-append "https://www.lttng.org/files/urcu/"
"userspace-rcu-" version ".tar.bz2")) "userspace-rcu-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"0l1kxgzch4m8fxiz2hc8fwg56hrvzzspp7n0svnl7i7iycdrgfcj")))) "15wzk3nyy6gh6i7xhksxzs8fjar1g4ddz51iahk1v7lq0vjip6s0"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("perl" ,perl))) ; for tests `(("perl" ,perl))) ; for tests
@ -149,7 +152,7 @@ queues, stacks, and doubly-linked lists.")
(define-public uthash (define-public uthash
(package (package
(name "uthash") (name "uthash")
(version "2.0.2") (version "2.1.0")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -158,8 +161,7 @@ queues, stacks, and doubly-linked lists.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "0k80bjbb6ss5wpmfmfji6xbyjm990hg9kcshwwnhdnh73vxkcd1m"))))
"0kslz8k6lssh7fl7ayzwlj62p0asxs3dq03357ls5ywjad238gqg"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("perl" ,perl))) `(("perl" ,perl)))
@ -178,7 +180,7 @@ queues, stacks, and doubly-linked lists.")
;; There is no top-level Makefile to do this for us. ;; There is no top-level Makefile to do this for us.
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(doc (string-append out "/share/doc/" ,name)) (doc (string-append out "/share/doc/" ,name "-" ,version))
(include (string-append out "/include"))) (include (string-append out "/include")))
;; Don't install HTML files: they're just the below .txt files ;; Don't install HTML files: they're just the below .txt files
;; dolled up, can be stale, and regeneration requires asciidoc. ;; dolled up, can be stale, and regeneration requires asciidoc.

7
gnu/packages/debian.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -117,7 +117,7 @@ contains the archive keys used for that.")
(define-public debootstrap (define-public debootstrap
(package (package
(name "debootstrap") (name "debootstrap")
(version "1.0.119") (version "1.0.123")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -126,8 +126,7 @@ contains the archive keys used for that.")
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "0fr5ir8arzisx71jybbk4xz85waz50lf2y052nfimzh6vv9dx54c"))))
"0p0p8qmlsbvpfa0r7ifghr67zrrc96d83r9qwahzaxyxkvnhr4x4"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases

4
gnu/packages/diffoscope.scm
View File

@ -68,7 +68,7 @@
#:use-module (ice-9 match)) #:use-module (ice-9 match))
(define-public diffoscope (define-public diffoscope
(let ((version "138")) (let ((version "139"))
(package (package
(name "diffoscope") (name "diffoscope")
(version version) (version version)
@ -80,7 +80,7 @@
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"1lsxwyqaaxmin8h06l0352f0kh0l9brbqfn0zv8hmb64bp5r20nr")))) "1k4yjyvmn5nfdapkwgkr9gzpn18kr4c58n0f32pfkx4yakfqkk4i"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
`(#:phases (modify-phases %standard-phases `(#:phases (modify-phases %standard-phases

4
gnu/packages/disk.scm
View File

@ -624,7 +624,7 @@ passphrases.")
(define-public ndctl (define-public ndctl
(package (package
(name "ndctl") (name "ndctl")
(version "67") (version "68")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -633,7 +633,7 @@ passphrases.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"076jgw1g2aafqgnq705in0wnabysqk46dq5yxdv1qzgjmyhka39n")))) "0xmim7z4qp6x2ggndnbwd940c73pa1qlf3hxyn3qh5pyr69nh9y8"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("asciidoc" ,asciidoc) `(("asciidoc" ,asciidoc)

6
gnu/packages/display-managers.scm
View File

@ -5,7 +5,7 @@
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Sou Bunnbu <iyzsong@gmail.com> ;;; Copyright © 2017 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -199,7 +199,7 @@ display manager which supports different greeters.")
(define-public lightdm-gtk-greeter (define-public lightdm-gtk-greeter
(package (package
(name "lightdm-gtk-greeter") (name "lightdm-gtk-greeter")
(version "2.0.2") (version "2.0.7")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -208,7 +208,7 @@ display manager which supports different greeters.")
"/+download/lightdm-gtk-greeter-" version ".tar.gz")) "/+download/lightdm-gtk-greeter-" version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1436sdm83xqhxyr1rzqxhsl8if2xmidlvb341xcv6dv83lyxkrlf")))) "1g7wc3d3vqfa7mrdhx1w9ywydgjbffla6rbrxq9k3sc62br97qms"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("exo" ,exo) `(("exo" ,exo)

17
gnu/packages/dns.scm
View File

@ -13,6 +13,7 @@
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019 Chris Marusich <cmmarusich@gmail.com> ;;; Copyright © 2019 Chris Marusich <cmmarusich@gmail.com>
;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2020 Pierre Langlois <pierre.langlois@gmx.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -75,7 +76,7 @@
(define-public dnsmasq (define-public dnsmasq
(package (package
(name "dnsmasq") (name "dnsmasq")
(version "2.80") (version "2.81")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -83,17 +84,7 @@
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"1fv3g8vikj3sn37x1j6qsywn09w1jipvlv34j3q5qrljbrwa5ayd")) "1yzq6anwgr5rlnwydpszb51cyhp2vjq29b24ck19flbwac1sk73l"))))
(modules '((guix build utils)))
(snippet
'(begin
;; The SIOCGSTAMP ioctl is defined in <linux/sockios.h> instead
;; of <asm/sockios.h> starting with linux-libre-headers 5.2.
;; Remove this for dnsmasq versions > 2.80.
(substitute* "src/dnsmasq.h"
(("#if defined\\(HAVE_LINUX_NETWORK\\)" all)
(string-append all "\n#include <linux/sockios.h>")))
#t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))
@ -315,7 +306,7 @@ the two.")
(synopsis "Asynchronous resolver library by the OpenBSD project") (synopsis "Asynchronous resolver library by the OpenBSD project")
(description (description
"libasr is a free, simple and portable asynchronous resolver library. "libasr is a free, simple and portable asynchronous resolver library.
It allows to run DNS queries and perform hostname resolutions in a fully It runs DNS queries and performs hostname resolution in a fully
asynchronous fashion.") asynchronous fashion.")
(license (list license:isc (license (list license:isc
license:bsd-2 ; last part of getrrsetbyname_async.c license:bsd-2 ; last part of getrrsetbyname_async.c

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

@ -1565,7 +1565,7 @@ configuration language. It features:
@itemize @itemize
@item Syntax highlighting @item Syntax highlighting
@item Multiline support for String @item Multiline support for String
@item Basic indendation, commenting @item Basic indentation, commenting
@item Automatic formatting on save using dhall-format. @item Automatic formatting on save using dhall-format.
@item Error highlighting. @item Error highlighting.
@end itemize") @end itemize")
@ -2019,7 +2019,7 @@ written in the Go programming language.")
(build-system emacs-build-system) (build-system emacs-build-system)
(home-page "https://github.com/jd/google-maps.el") (home-page "https://github.com/jd/google-maps.el")
(synopsis "Access Google Maps from Emacs") (synopsis "Access Google Maps from Emacs")
(description "The @code{google-maps} package allows to display Google (description "The @code{google-maps} package displays Google
Maps directly inside Emacs.") Maps directly inside Emacs.")
(license license:gpl3+))) (license license:gpl3+)))
@ -6912,7 +6912,7 @@ maximizes flexibility (at the expense of conciseness).")
`(("ert-runner" ,emacs-ert-runner))) `(("ert-runner" ,emacs-ert-runner)))
(home-page "https://github.com/technomancy/find-file-in-project") (home-page "https://github.com/technomancy/find-file-in-project")
(synopsis "File/directory finder for Emacs") (synopsis "File/directory finder for Emacs")
(description "@code{find-file-in-project} allows to find files or (description "@code{find-file-in-project} finds files or
directories quickly in the current project. The project root is detected directories quickly in the current project. The project root is detected
automatically when Git, Subversion or Mercurial are used. It also provides automatically when Git, Subversion or Mercurial are used. It also provides
functions to assist in reviewing changes on files.") functions to assist in reviewing changes on files.")
@ -7896,17 +7896,29 @@ Lua programming language}.")
(define-public emacs-ebuild-mode (define-public emacs-ebuild-mode
(package (package
(name "emacs-ebuild-mode") (name "emacs-ebuild-mode")
(version "1.37") (version "1.50")
(source (origin (source
(method url-fetch) (origin
(uri (string-append (method url-fetch)
"https://dev.gentoo.org/~ulm/emacs/ebuild-mode" (uri (string-append
"-" version ".tar.xz")) "https://dev.gentoo.org/~ulm/emacs/"
(file-name (string-append name "-" version ".tar.xz")) "ebuild-mode-" version ".tar.xz"))
(sha256 (file-name (string-append name "-" version ".tar.xz"))
(base32 (sha256
"07dzrdjjczkxdfdgi60h4jjkvzi4p0k9rij2wpfp8s03ay3qldpp")))) (base32 "0bgi98vx6ahxijw69kfdiy3rkjdg7yi6k3bkjyasak5920m6fj1d"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys)
(invoke "make" "ebuild-mode.info")
(install-file "ebuild-mode.info"
(string-append (assoc-ref outputs "out")
"/share/info"))
#t)))))
(native-inputs
`(("texinfo" ,texinfo)))
(home-page "https://devmanual.gentoo.org") (home-page "https://devmanual.gentoo.org")
(synopsis "Major modes for Gentoo package files") (synopsis "Major modes for Gentoo package files")
(description (description
@ -8476,6 +8488,17 @@ passive voice.")
(sha256 (sha256
(base32 "0jwpgfzjvf1hd3mx582pw86hysdryaqzp69hk6azi9kmq4bzk87d")))) (base32 "0jwpgfzjvf1hd3mx582pw86hysdryaqzp69hk6azi9kmq4bzk87d"))))
(build-system emacs-build-system) (build-system emacs-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'install-documentation
(lambda* (#:key outputs #:allow-other-keys)
(let* ((share (string-append (assoc-ref outputs "out") "/share"))
(info-dir (string-append share "/info"))
(doc-dir (string-append share "/doc/" ,name "-" ,version)))
(install-file "org" info-dir)
(install-file "orgcard.pdf" doc-dir))
#t)))))
(home-page "https://orgmode.org/") (home-page "https://orgmode.org/")
(synopsis "Outline-based notes management and organizer") (synopsis "Outline-based notes management and organizer")
(description "Org is an Emacs mode for keeping notes, maintaining TODO (description "Org is an Emacs mode for keeping notes, maintaining TODO
@ -12331,6 +12354,49 @@ keychains. The keychain entries are displayed in a directory-like structure
and can be consulted and modified.") and can be consulted and modified.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public emacs-psc-ide
;; There is no proper release. The base version is extracted from the
;; "Version" keyword in the main file.
(let ((commit "7fc2b841be25f5bc5e1eb7d0634436181c38b3fe")
(revision "1"))
(package
(name "emacs-psc-ide")
(version (git-version "0.1.0" revision commit))
(source
(origin
(method git-fetch)
(uri
(git-reference
(url "https://github.com/purescript-emacs/psc-ide-emacs")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0r0fymyai30jimm34z1cmav4wgij8ci6s1d9y7qigygfbbfrdsmj"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-company" ,emacs-company)
("emacs-dash" ,emacs-dash)
("emacs-flycheck" ,emacs-flycheck)
("emacs-let-alist" ,emacs-let-alist)
("emacs-s" ,emacs-s)
("emacs-seq" ,emacs-seq)))
(home-page "https://github.com/purescript-emacs/psc-ide-emacs")
(synopsis "Emacs integration for PureScript's psc-ide tool")
(description
"This package provices Emacs integration for @code{psc-ide}, an IDE
protocol for PureScript programming language. It features:
@itemize
@item Completions
@item Type at point
@item Go to definition
@item Automatic imports
@item Case split
@item Build system integration, and
@item Flycheck support
@end itemize")
(license license:gpl3+))))
(define-public emacs-evil-anzu (define-public emacs-evil-anzu
(package (package
(name "emacs-evil-anzu") (name "emacs-evil-anzu")
@ -12418,8 +12484,8 @@ match and total match information in the mode-line in various search modes.")
(home-page "https://github.com/skeeto/elisp-finalize") (home-page "https://github.com/skeeto/elisp-finalize")
(synopsis "Finalizers for Emacs Lisp") (synopsis "Finalizers for Emacs Lisp")
(description (description
"This package will allows to immediately run a callback (a finalizer) "This package runs a callback (a finalizer)
after its registered lisp object has been garbage collected. This allows for after its registered lisp object has been garbage collected. This allows
extra resources, such as buffers and processes, to be cleaned up after the extra resources, such as buffers and processes, to be cleaned up after the
object has been freed.") object has been freed.")
(license license:unlicense))) (license license:unlicense)))
@ -12525,7 +12591,7 @@ object @code{nil} corresponds 1:1 with @code{NULL} in the database.")
(home-page "https://github.com/emacscollective/closql") (home-page "https://github.com/emacscollective/closql")
(synopsis "Store EIEIO objects using EmacSQL") (synopsis "Store EIEIO objects using EmacSQL")
(description (description
"This package allows to store uniform EIEIO objects in an EmacSQL "This package stores uniform EIEIO objects in an EmacSQL
database. SQLite is used as backend. This library imposes some restrictions database. SQLite is used as backend. This library imposes some restrictions
on what kind of objects can be stored; it isn't intended to store arbitrary on what kind of objects can be stored; it isn't intended to store arbitrary
objects. All objects have to share a common superclass and subclasses cannot objects. All objects have to share a common superclass and subclasses cannot
@ -13334,7 +13400,7 @@ navigate and display hierarchy structures.")
(home-page "https://github.com/ahungry/md4rd") (home-page "https://github.com/ahungry/md4rd")
(synopsis "Emacs Mode for Reddit") (synopsis "Emacs Mode for Reddit")
(description (description
"This package allows to read Reddit from within Emacs interactively.") "This package allows reading Reddit from within Emacs interactively.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public emacs-pulseaudio-control (define-public emacs-pulseaudio-control
@ -13368,7 +13434,7 @@ navigate and display hierarchy structures.")
(home-page "https://github.com/flexibeast/pulseaudio-control") (home-page "https://github.com/flexibeast/pulseaudio-control")
(synopsis "Control @code{pulseaudio} from Emacs") (synopsis "Control @code{pulseaudio} from Emacs")
(description (description
"This package allows to control @code{pulseaudio} from Emacs.") "This package allows controlling @code{pulseaudio} from Emacs.")
(license license:gpl3+)))) (license license:gpl3+))))
(define-public emacs-datetime (define-public emacs-datetime
@ -13891,7 +13957,7 @@ key again.")
(build-system emacs-build-system) (build-system emacs-build-system)
(home-page "https://github.com/dimitri/mbsync-el") (home-page "https://github.com/dimitri/mbsync-el")
(synopsis "Interface to mbsync for Emacs") (synopsis "Interface to mbsync for Emacs")
(description "This package allows to call the @code{mbsync} from (description "This package calls @code{mbsync} from
within Emacs.") within Emacs.")
(license license:gpl3+)))) (license license:gpl3+))))
@ -14087,7 +14153,7 @@ throw a shell history.")
`(("emacs-makey" ,emacs-makey))) `(("emacs-makey" ,emacs-makey)))
(home-page "https://framagit.org/steckerhalter/discover-my-major/") (home-page "https://framagit.org/steckerhalter/discover-my-major/")
(synopsis "Discover key bindings for the current Emacs major mode") (synopsis "Discover key bindings for the current Emacs major mode")
(description "This package provides allows to discover key bindings and (description "This package discovers key bindings and
their meaning for the current Emacs major-mode.") their meaning for the current Emacs major-mode.")
(license license:gpl3+))) (license license:gpl3+)))
@ -17494,7 +17560,7 @@ targets the Emacs based IDEs (CIDER, ESS, Geiser, Robe, SLIME etc.)")
(home-page "https://github.com/jorgenschaefer/emacs-buttercup") (home-page "https://github.com/jorgenschaefer/emacs-buttercup")
(synopsis "Behavior driven emacs lisp testing framework") (synopsis "Behavior driven emacs lisp testing framework")
(description "Buttercup is a behavior-driven development framework for (description "Buttercup is a behavior-driven development framework for
testing Emacs Lisp code. It allows to group related tests so they can share testing Emacs Lisp code. It groups related tests so they can share
common set-up and tear-down code, and allows the programmer to \"spy\" on common set-up and tear-down code, and allows the programmer to \"spy\" on
functions to ensure they are called with the right arguments during testing.") functions to ensure they are called with the right arguments during testing.")
(license license:gpl3+))) (license license:gpl3+)))
@ -22299,7 +22365,7 @@ conversion program}, a Japanese input method on Emacs.")
(home-page "https://github.com/clemera/objed") (home-page "https://github.com/clemera/objed")
(synopsis "Navigate and edit text objects") (synopsis "Navigate and edit text objects")
(description (description
"@code{emacs-objed} allows to navigate and edit text objects. It "@code{emacs-objed} allows navigating and editing text objects. It
enables modal editing and composition of commands, too. It combines ideas of enables modal editing and composition of commands, too. It combines ideas of
other Editors like Vim or Kakoune and tries to align them with regular Emacs other Editors like Vim or Kakoune and tries to align them with regular Emacs
conventions.") conventions.")

4
gnu/packages/finance.scm
View File

@ -390,11 +390,11 @@ This package provides the Emacs mode.")
(synopsis "Free Elster client, for sending Germany VAT declarations") (synopsis "Free Elster client, for sending Germany VAT declarations")
(description (description
"Geierlein is a free Elster client, i.e. an application that "Geierlein is a free Elster client, i.e. an application that
allows to send VAT declarations to Germany's fiscal authorities. sends VAT declarations to Germany's fiscal authorities.
Currently it is *not* possible to send returns that are due annually Currently it is *not* possible to send returns that are due annually
(especially the income tax return) since the fiscal authority doesn't (especially the income tax return) since the fiscal authority doesn't
allow to do that off the ERiC library (which is proprietary however). allow doing that off the ERiC library (which is proprietary however).
It's not clear at the moment whether one day it will be possible to It's not clear at the moment whether one day it will be possible to
do so.") do so.")
(license license:agpl3+))) (license license:agpl3+)))

4
gnu/packages/freedesktop.scm
View File

@ -1671,8 +1671,8 @@ encoding names are iconv-compatible.")
(home-page "https://github.com/coldfix/udiskie") (home-page "https://github.com/coldfix/udiskie")
(synopsis "Automounter for removable media") (synopsis "Automounter for removable media")
(description (description
"The @command{udiskie} program is a udisks2 front-end that allows to "The @command{udiskie} program is a udisks2 front-end that
manage removable media such as CDs or flash drives from userspace. manages removable media such as CDs or flash drives from userspace.
Its features include: Its features include:

19
gnu/packages/games.scm
View File

@ -2961,20 +2961,14 @@ world}, @uref{http://evolonline.org, Evol Online} and
(define openttd-engine (define openttd-engine
(package (package
(name "openttd-engine") (name "openttd-engine")
(version "1.9.3") (version "1.10.0")
(source (source
(origin (method url-fetch) (origin (method url-fetch)
(uri (string-append "https://proxy.binaries.openttd.org/openttd-releases/" (uri (string-append "https://cdn.openttd.org/openttd-releases/"
version "/openttd-" version "-source.tar.xz")) version "/openttd-" version "-source.tar.xz"))
(sha256 (sha256
(base32 (base32
"0ijq72kgx997ggw40i5f4a3nf7y2g72z37l47i18yjvgbdzy320r")) "0lz2y2rjc23k0d97y65cqhy2splw9cmrbvhgz0iqps8xkan1m8hv"))))
(modules '((guix build utils)))
(snippet
;; The DOS port contains proprietary software.
'(begin
(delete-file-recursively "os/dos")
#t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; no "check" target `(#:tests? #f ; no "check" target
@ -3024,15 +3018,15 @@ engine. When you start it you will be prompted to download a graphics set.")
(define openttd-opengfx (define openttd-opengfx
(package (package
(name "openttd-opengfx") (name "openttd-opengfx")
(version "0.5.5") (version "0.6.0")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://binaries.openttd.org/extra/opengfx/" (uri (string-append "https://cdn.openttd.org/opengfx-releases/"
version "/opengfx-" version "-source.tar.xz")) version "/opengfx-" version "-source.tar.xz"))
(sha256 (sha256
(base32 (base32
"009fa1bdin1bk0ynzhzc30hzkmmwzmwkk6j591ax3f6w75l28n49")))) "0qxc6gl2gxcrn1np88dnjgbaaakkkx96b13rcmy1spryc8c09hyr"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:make-flags (list "CC=gcc" '(#:make-flags (list "CC=gcc"
@ -3062,6 +3056,7 @@ engine. When you start it you will be prompted to download a graphics set.")
("gimp" ,gimp) ("gimp" ,gimp)
("grfcodec" ,grfcodec) ("grfcodec" ,grfcodec)
("nml" ,nml) ("nml" ,nml)
("which" ,which)
("python" ,python-2))) ("python" ,python-2)))
(home-page "http://dev.openttdcoop.org/projects/opengfx") (home-page "http://dev.openttdcoop.org/projects/opengfx")
(synopsis "Base graphics set for OpenTTD") (synopsis "Base graphics set for OpenTTD")

6
gnu/packages/geo.scm
View File

@ -1153,8 +1153,8 @@ persisted.
(copy-file "JMapViewer.jar" (string-append dir "JMapViewer.jar")))))))) (copy-file "JMapViewer.jar" (string-append dir "JMapViewer.jar"))))))))
(home-page "https://wiki.openstreetmap.org/wiki/JMapViewer") (home-page "https://wiki.openstreetmap.org/wiki/JMapViewer")
(synopsis "OSM map integration in Java") (synopsis "OSM map integration in Java")
(description "JMapViewer is a Java component which allows to easily (description "JMapViewer is a Java component which easily
integrate an OSM map view into your Java application. It is maintained as integrates an OSM map view into your Java application. It is maintained as
an independent project by the JOSM team.") an independent project by the JOSM team.")
(license license:gpl2))) (license license:gpl2)))
@ -1292,7 +1292,7 @@ an independent project by the JOSM team.")
(synopsis "OSM editor") (synopsis "OSM editor")
(description "JOSM is an extensible editor for OpenStreetMap (OSM). It (description "JOSM is an extensible editor for OpenStreetMap (OSM). It
supports loading GPX tracks, background imagery and OSM data from local supports loading GPX tracks, background imagery and OSM data from local
sources as well as from online sources and allows to edit the OSM data (nodes, sources as well as from online sources and allows editing the OSM data (nodes,
ways, and relations) and their metadata tags.") ways, and relations) and their metadata tags.")
(license license:gpl2+))) (license license:gpl2+)))

83
gnu/packages/gimp.scm
View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016, 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017, 2018, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Leo Famulari <leo@famulari.name> ;;; Copyright © 2018 Leo Famulari <leo@famulari.name>
;;; Copyright © 2018 Thorsten Wilms <t_w_@freenet.de> ;;; Copyright © 2018 Thorsten Wilms <t_w_@freenet.de>
@ -191,7 +191,7 @@ buffers.")
("gexiv2" ,gexiv2) ("gexiv2" ,gexiv2)
("gtk+" ,gtk+-2) ("gtk+" ,gtk+-2)
("libmypaint" ,libmypaint) ("libmypaint" ,libmypaint)
("mypaint-brushes" ,mypaint-brushes) ("mypaint-brushes" ,mypaint-brushes-1.3)
("exif" ,libexif) ; optional, EXIF + XMP support ("exif" ,libexif) ; optional, EXIF + XMP support
("lcms" ,lcms) ; optional, color management ("lcms" ,lcms) ; optional, color management
("librsvg" ,librsvg) ; optional, SVG support ("librsvg" ,librsvg) ; optional, SVG support
@ -278,7 +278,7 @@ inverse fourier transform.")
(define-public libmypaint (define-public libmypaint
(package (package
(name "libmypaint") (name "libmypaint")
(version "1.3.0") (version "1.5.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://github.com/mypaint/libmypaint/" (uri (string-append "https://github.com/mypaint/libmypaint/"
@ -286,7 +286,7 @@ inverse fourier transform.")
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"0wd6jk69vmhsq1mdw96v0fh7b28n3glkr5ca466zcq7agzaxj1va")))) "0aqcv4fyscpfhknxgfpq0v84aj2nzigqvpi4zgv2zkl41h51by5f"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("intltool" ,intltool) `(("intltool" ,intltool)
@ -306,34 +306,42 @@ brushstrokes which is used by MyPaint and GIMP.")
(define-public mypaint-brushes (define-public mypaint-brushes
(package (package
(name "mypaint-brushes") (name "mypaint-brushes")
(version "1.3.0") (version "2.0.2")
(source (origin (source
(method git-fetch) (origin
(uri (git-reference (method git-fetch)
(url "https://github.com/Jehan/mypaint-brushes.git") (uri (git-reference
(commit (string-append "v" version)))) (url "https://github.com/mypaint/mypaint-brushes.git")
(file-name (git-file-name name version)) (commit (string-append "v" version))))
(sha256 (file-name (git-file-name name version))
(base32 (sha256
"1iz89z6v2mp8j1lrf942k561s8311i3s34ap36wh4rybb2lq15m0")))) (base32 "0kcqz13vzpy24dhmrx9hbs6s7hqb8y305vciznm15h277sabpmw9"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'relax-dependency-version
(lambda _
(substitute* "autogen.sh"
(("automake-1.13") "automake")
(("aclocal-1.13") "aclocal"))
#t)))))
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)
("automake" ,automake))) ("automake" ,automake)))
(synopsis "Default brushes for MyPaint") (synopsis "Default brushes for MyPaint")
(description "This package provides the default set of brushes for (description "This package provides the default set of brushes for
MyPaint.") MyPaint.")
(home-page "https://github.com/Jehan/mypaint-brushes") (home-page "https://github.com/mypaint/mypaint-brushes/")
(license license:cc0))) ;; Scripts are distributed under GPL2+ terms, brushes are provided as
;; public domain or under CC0 terms.
(license (list license:gpl2+ license:cc0 license:public-domain))))
(define-public mypaint-brushes-1.3
(package
(inherit mypaint-brushes)
(name "mypaint-brushes")
(version "1.3.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mypaint/mypaint-brushes.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1c95l1vfz7sbrdlzrbz7h1p6s1k113kyjfd9wfnxlm0p6562cz3j"))))))
(define-public gimp-resynthesizer (define-public gimp-resynthesizer
;; GIMP does not respect any plugin search path environment variable, so after ;; GIMP does not respect any plugin search path environment variable, so after
@ -345,13 +353,14 @@ MyPaint.")
(version "2.0.3") (version "2.0.3")
(source (source
(origin (origin
(method url-fetch) (method git-fetch)
(uri (string-append "https://github.com/bootchk/resynthesizer/archive/v" (uri (git-reference
version ".tar.gz")) (url "https://github.com/bootchk/resynthesizer")
(commit (string-append "v" version))))
(sha256 (sha256
(base32 (base32
"0l3404w6rqny7h3djskxf149gzx6x4qhndgbh3403c9lbh4pi1kr")) "1jwc8bhhm21xhrgw56nzbma6fwg59gc8anlmyns7jdiw83y0zx3j"))
(file-name (string-append name "-" version ".tar.gz")))) (file-name (git-file-name name version))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`( ;; Turn off tests to avoid: `( ;; Turn off tests to avoid:
@ -359,11 +368,11 @@ MyPaint.")
#:tests? #f #:tests? #f
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'set-env (add-after 'unpack 'set-env
(lambda _ (lambda _
(setenv "CONFIG_SHELL" (which "sh")) (setenv "CONFIG_SHELL" (which "sh"))
#t)) #t))
(add-after 'configure 'set-prefix (add-after 'configure 'set-prefix
;; Install plugin under $prefix, not under GIMP's libdir. ;; Install plugin under $prefix, not under GIMP's libdir.
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((target (string-append (assoc-ref outputs "out") (let ((target (string-append (assoc-ref outputs "out")
@ -372,8 +381,8 @@ MyPaint.")
(package-version gimp)) (package-version gimp))
".0"))) ".0")))
(substitute* (list "src/resynthesizer/Makefile" (substitute* (list "src/resynthesizer/Makefile"
"src/resynthesizer-gui/Makefile") "src/resynthesizer-gui/Makefile")
(("GIMP_LIBDIR = .*") (("GIMP_LIBDIR = .*")
(string-append "GIMP_LIBDIR = " target "\n"))) (string-append "GIMP_LIBDIR = " target "\n")))
(mkdir-p target) (mkdir-p target)
#t)))))) #t))))))

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

@ -359,7 +359,7 @@ control.")
(propagated-inputs (propagated-inputs
`(("glib" ,glib))) `(("glib" ,glib)))
(synopsis "Hide app icon from GNOME's panel") (synopsis "Hide app icon from GNOME's panel")
(description "This extension allows to hide the icon and/or title of the (description "This extension hides the icon and/or title of the
currently focused application in the top panel of the GNOME shell.") currently focused application in the top panel of the GNOME shell.")
(home-page (home-page
"https://github.com/michael-rapp/gnome-shell-extension-hide-app-icon/") "https://github.com/michael-rapp/gnome-shell-extension-hide-app-icon/")

6
gnu/packages/gnome.scm
View File

@ -9162,7 +9162,7 @@ configurable file renaming. ")
(define-public workrave (define-public workrave
(package (package
(name "workrave") (name "workrave")
(version "1.10.37") (version "1.10.42")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -9173,7 +9173,7 @@ configurable file renaming. ")
version))))) version)))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "01cxy7606hx9wgxl550l4p2xa9hsy0rk7swsp58hyi842z2z0y13")))) (base32 "03i9kk8r1wgrfkkbwikx8wxaw4r4kn62vismr2zdq5g34fkkjh95"))))
(build-system glib-or-gtk-build-system) (build-system glib-or-gtk-build-system)
(arguments (arguments
;; The only tests are maintainer tests (in po/), which fail. ;; The only tests are maintainer tests (in po/), which fail.
@ -9640,7 +9640,7 @@ repository and commit your work.")
(description (description
"Gamin is a file and directory monitoring system defined to be a subset "Gamin is a file and directory monitoring system defined to be a subset
of the FAM (File Alteration Monitor) system. This is a service provided by a of the FAM (File Alteration Monitor) system. This is a service provided by a
library which allows to detect when a file or a directory has been modified.") library which detects when a file or a directory has been modified.")
(license license:gpl2+))) (license license:gpl2+)))
(define-public gnome-mahjongg (define-public gnome-mahjongg

2
gnu/packages/golang.scm
View File

@ -3281,7 +3281,7 @@ are semantically equal in Go (for writing tests).")
(synopsis "Synchronization, error propagation, and Context cancellation (synopsis "Synchronization, error propagation, and Context cancellation
for groups of goroutines working on subtasks of a common task.") for groups of goroutines working on subtasks of a common task.")
(description "This package provides synchronization, error propagation, (description "This package provides synchronization, error propagation,
and Context cancelation for groups of goroutines working on subtasks of a and Context cancellation for groups of goroutines working on subtasks of a
common task.") common task.")
(home-page "https://godoc.org/golang.org/x/sync/errgroup") (home-page "https://godoc.org/golang.org/x/sync/errgroup")
(license license:bsd-3)))) (license license:bsd-3))))

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

@ -5,14 +5,14 @@
;;; Copyright © 2016 Alex Sassmannshausen <alex@pompo.co> ;;; Copyright © 2016 Alex Sassmannshausen <alex@pompo.co>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016 Erik Edrosa <erik.edrosa@gmail.com> ;;; Copyright © 2016 Erik Edrosa <erik.edrosa@gmail.com>
;;; Copyright © 2016, 2019 Eraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2019, 2020 Eraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016, 2017 Alex Kost <alezost@gmail.com> ;;; Copyright © 2016, 2017 Alex Kost <alezost@gmail.com>
;;; Copyright © 2016, 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org> ;;; Copyright © 2016, 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org>
;;; Copyright © 2016 Amirouche <amirouche@hypermove.net> ;;; Copyright © 2016 Amirouche <amirouche@hypermove.net>
;;; Copyright © 2016, 2019 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016, 2019 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2017 Andy Wingo <wingo@igalia.com> ;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
;;; Copyright © 2017 David Thompson <davet@gnu.org> ;;; Copyright © 2017 David Thompson <davet@gnu.org>
;;; Copyright © 2017, 2018, 2019 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2017, 2018, 2019, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org> ;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org>
;;; Copyright © 2017 ng0 <ng0@n0.is> ;;; Copyright © 2017 ng0 <ng0@n0.is>
;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
@ -1140,7 +1140,7 @@ microblogging service.")
(define-public guile-parted (define-public guile-parted
(package (package
(name "guile-parted") (name "guile-parted")
(version "0.0.2") (version "0.0.3")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -1149,20 +1149,8 @@ microblogging service.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"01qmv6xnbbq3wih0dl9bscvca2d7zx7bjiqf35y6dkaqsp8nvdxf")) "0kwi777fhfb4rq6fik9bwqzr63k82qjl94dm5lyyyal4rh724xrc"))
(modules '((guix build utils))) (modules '((guix build utils)))))
(snippet
'(begin
;; Allow builds with Guile 3.0.
(substitute* "configure.ac"
(("^GUILE_PKG.*")
"GUILE_PKG([3.0 2.2 2.0])\n"))
;; Remove "guile.m4" since it contains an obsolete version
;; of 'GUILE_PKG' that doesn't work with development
;; versions such as 2.9.
(delete-file "m4/guile.m4")
#t))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:make-flags '(#:make-flags
@ -2186,14 +2174,14 @@ is no support for parsing block and inline level HTML.")
(define-public mcron (define-public mcron
(package (package
(name "mcron") (name "mcron")
(version "1.1.3") (version "1.1.4")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnu/mcron/mcron-" (uri (string-append "mirror://gnu/mcron/mcron-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"00kv7fgllzjpis0g1m9csycp4f6l11774m09dqy255cvmim2g743")))) "1521w3h33bhdlg6qc66sq4dwv3qsx8r8x6srq4ca6kaahy6dszw8"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
'(#:phases (modify-phases %standard-phases '(#:phases (modify-phases %standard-phases

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

@ -10780,7 +10780,7 @@ provided. Skylighting is intended to be the successor to highlighting-kate.")
(home-page (home-page
"https://github.com/feuerbach/smallcheck") "https://github.com/feuerbach/smallcheck")
(synopsis "Property-based testing library") (synopsis "Property-based testing library")
(description "SmallCheck is a testing library that allows to verify (description "SmallCheck is a testing library that verifies
properties for all test cases up to some depth. The test cases are generated properties for all test cases up to some depth. The test cases are generated
automatically by SmallCheck.") automatically by SmallCheck.")
(license license:bsd-3))) (license license:bsd-3)))

20
gnu/packages/icu4c.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2019, 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com> ;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -114,6 +114,24 @@ C/C++ part.")
#t))))))) #t)))))))
(native-inputs '()))) (native-inputs '())))
(define-public icu4c-66.1
(package
(inherit icu4c)
(version "66.1")
(source (origin
(method url-fetch)
(uri (string-append
"https://github.com/unicode-org/icu/releases/download/release-"
(string-map (lambda (x) (if (char=? x #\.) #\- x)) version)
"/icu4c-"
(string-map (lambda (x) (if (char=? x #\.) #\_ x)) version)
"-src.tgz"))
(patch-flags '("-p2"))
(patches (search-patches "icu4c-CVE-2020-10531.patch"))
(sha256
(base32
"0bharwzc9nzkbrcf405z2nb3h7q0711z450arz0mjmdrk8hg58sj"))))))
(define-public java-icu4j (define-public java-icu4j
(package (package
(name "java-icu4j") (name "java-icu4j")

6
gnu/packages/irc.scm
View File

@ -170,14 +170,14 @@ SILC and ICB protocols via plugins.")
(define-public weechat (define-public weechat
(package (package
(name "weechat") (name "weechat")
(version "2.7.1") (version "2.8")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://weechat.org/files/src/weechat-" (uri (string-append "https://weechat.org/files/src/weechat-"
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"0haw0c35mf4r47j24issc9caq0da3fy7gjfq3454fm3ap3n2yxcx")))) "1301lrb3xnm9dcw3av82rkqjzqxxwwhrq0p6i37h6fxdxnas4gjm"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(native-inputs (native-inputs
`(("gettext" ,gettext-minimal) `(("gettext" ,gettext-minimal)
@ -193,7 +193,7 @@ SILC and ICB protocols via plugins.")
("zlib" ,zlib) ("zlib" ,zlib)
;; Scripting language plug-ins. ;; Scripting language plug-ins.
("guile" ,guile-2.2) ("guile" ,guile-3.0)
("lua" ,lua-5.1) ("lua" ,lua-5.1)
("perl" ,perl) ("perl" ,perl)
("python" ,python) ("python" ,python)

8
gnu/packages/java.scm
View File

@ -4422,7 +4422,7 @@ on the XPP3 API (XML Pull Parser).")))
(description "ASM is an all purpose Java bytecode manipulation and (description "ASM is an all purpose Java bytecode manipulation and
analysis framework. It can be used to modify existing classes or dynamically analysis framework. It can be used to modify existing classes or dynamically
generate classes, directly in binary form. The provided common generate classes, directly in binary form. The provided common
transformations and analysis algorithms allow to easily assemble custom transformations and analysis algorithms allow easily assembling custom
complex transformations and code analysis tools.") complex transformations and code analysis tools.")
(license license:bsd-3))) (license license:bsd-3)))
@ -7426,7 +7426,7 @@ import org.antlr.grammar.v2.ANTLRTreePrinter;"))
(home-page "https://github.com/barteo/microemu") (home-page "https://github.com/barteo/microemu")
(synopsis "J2ME CLDC emulator") (synopsis "J2ME CLDC emulator")
(description "Microemulator is a Java 2 Micro Edition (J2ME) CLDC/MIDP (description "Microemulator is a Java 2 Micro Edition (J2ME) CLDC/MIDP
Emulator. It allows to demonstrate MIDlet based applications in web browser Emulator. It demonstrates MIDlet based applications in web browser
applet and can be run as a standalone java application.") applet and can be run as a standalone java application.")
(license (list license:asl2.0 (license (list license:asl2.0
;; or altenatively: ;; or altenatively:
@ -8821,7 +8821,7 @@ make data-binding work.")
("hamcrest" ,java-hamcrest-core))) ("hamcrest" ,java-hamcrest-core)))
(home-page "https://hdrhistogram.github.io/HdrHistogram") (home-page "https://hdrhistogram.github.io/HdrHistogram")
(synopsis "High dynamic range histogram") (synopsis "High dynamic range histogram")
(description "Hdrhistogram allows to create histograms that support (description "Hdrhistogram creates histograms that support
recording and analyzing sampled data value counts across a configurable integer recording and analyzing sampled data value counts across a configurable integer
value range with configurable value precision within the range. Value precision value range with configurable value precision within the range. Value precision
is expressed as the number of significant digits in the value recording, and is expressed as the number of significant digits in the value recording, and
@ -11651,7 +11651,7 @@ the application using Java to Lisp integration APIs.")
(description "JSON Processing (JSON-P) is a Java API to process (e.g. (description "JSON Processing (JSON-P) is a Java API to process (e.g.
parse, generate, transform and query) JSON messages. It produces and parse, generate, transform and query) JSON messages. It produces and
consumes JSON text in a streaming fashion (similar to StAX API for XML) consumes JSON text in a streaming fashion (similar to StAX API for XML)
and allows to build a Java object model for JSON text using API classes and allows building a Java object model for JSON text using API classes
(similar to DOM API for XML).") (similar to DOM API for XML).")
;; either gpl2 only with classpath exception, or epl2.0. ;; either gpl2 only with classpath exception, or epl2.0.
(license (list license:gpl2 (license (list license:gpl2

2
gnu/packages/julia.scm
View File

@ -409,7 +409,7 @@
("openlibm" ,openlibm) ("openlibm" ,openlibm)
("mbedtls" ,mbedtls-apache) ("mbedtls" ,mbedtls-apache)
("curl" ,curl) ("curl" ,curl)
("libgit2" ,libgit2) ("libgit2" ,libgit2-0.28)
("libssh2" ,libssh2) ("libssh2" ,libssh2)
("fortran" ,gfortran) ("fortran" ,gfortran)
("libuv" ,libuv-julia) ("libuv" ,libuv-julia)

2
gnu/packages/kde-internet.scm
View File

@ -452,7 +452,7 @@ a full-featured client for BitTorrent.")
`(#:tests? #f)) ;; 2/7 tests fail (due to network issues?) `(#:tests? #f)) ;; 2/7 tests fail (due to network issues?)
(home-page "https://cgit.kde.org/libgravatar.git") (home-page "https://cgit.kde.org/libgravatar.git")
(synopsis "Online avatar lookup library") (synopsis "Online avatar lookup library")
(description "This library allows to retrieve avatar images based on a (description "This library retrieves avatar images based on a
hash from a person's email address, as well as local caching to avoid hash from a person's email address, as well as local caching to avoid
unnecessary network operations.") unnecessary network operations.")
(license ;; GPL for programs, LGPL for libraries (license ;; GPL for programs, LGPL for libraries

2
gnu/packages/kde-multimedia.scm
View File

@ -191,7 +191,7 @@ This package is part of the KDE multimedia module.")
(home-page "https://kde.org/applications/multimedia/org.kde.elisa") (home-page "https://kde.org/applications/multimedia/org.kde.elisa")
(synopsis "Powerful music player for Plasma 5") (synopsis "Powerful music player for Plasma 5")
(description "Elisa is a simple music player aiming to provide a nice (description "Elisa is a simple music player aiming to provide a nice
experience for its users. Elisa allows to browse music by album, artist or experience for its users. Elisa browses music by album, artist or
all tracks. The music is indexed using either a private indexer or an indexer all tracks. The music is indexed using either a private indexer or an indexer
using Baloo. The private one can be configured to scan music on chosen paths. using Baloo. The private one can be configured to scan music on chosen paths.
The Baloo one is much faster because Baloo is providing all needed data from The Baloo one is much faster because Baloo is providing all needed data from

8
gnu/packages/kde-pim.scm
View File

@ -623,7 +623,7 @@ functions for accessing calendar data using the kcalcore API.")
("qtxmlpatterns" ,qtxmlpatterns))) ("qtxmlpatterns" ,qtxmlpatterns)))
(home-page "https://cgit.kde.org/kdav.git") (home-page "https://cgit.kde.org/kdav.git")
(synopsis "DAV protocol implementation with KJobs") (synopsis "DAV protocol implementation with KJobs")
(description "This is a DAV protocol implemention with KJobs. Calendars (description "This is a DAV protocol implementation with KJobs. Calendars
and todos are supported, using either GroupDAV or CalDAV, and contacts are and todos are supported, using either GroupDAV or CalDAV, and contacts are
supported using GroupDAV or CardDAV.") supported using GroupDAV or CardDAV.")
(license ;; GPL for programs, LGPL for libraries (license ;; GPL for programs, LGPL for libraries
@ -670,7 +670,7 @@ supported using GroupDAV or CardDAV.")
("qtbase" ,qtbase))) ("qtbase" ,qtbase)))
(home-page "https://cgit.kde.org/kdepim-apps-libs.git") (home-page "https://cgit.kde.org/kdepim-apps-libs.git")
(synopsis "KDE PIM mail related libraries and data files") (synopsis "KDE PIM mail related libraries and data files")
(description "This packages provides mail related libraries and data files (description "This package provides mail related libraries and data files
for KDE PIM.") for KDE PIM.")
(license ;; GPL for programs, LGPL for libraries (license ;; GPL for programs, LGPL for libraries
(list license:gpl2+ license:lgpl2.0+)))) (list license:gpl2+ license:lgpl2.0+))))
@ -1095,7 +1095,7 @@ and retrieving certificates from LDAP servers.")
(description "KMail supports multiple accounts, mail filtering and email (description "KMail supports multiple accounts, mail filtering and email
encryption. The program let you configure your workflow and it has good encryption. The program let you configure your workflow and it has good
integration into KDE (Plasma Desktop) but is also useable with other Desktop integration into KDE (Plasma Desktop) but is also useable with other Desktop
Envionments. Environments.
KMail is the email component of Kontact, the integrated personal information KMail is the email component of Kontact, the integrated personal information
manager from KDE.") manager from KDE.")
@ -1346,7 +1346,7 @@ using a Qt/KMime C++ API.")
`(#:tests? #f)) ;; TODO many test fail for quite different reasons `(#:tests? #f)) ;; TODO many test fail for quite different reasons
(home-page "https://cgit.kde.org/messagelib.git") (home-page "https://cgit.kde.org/messagelib.git")
(synopsis "KDE PIM messaging libraries") (synopsis "KDE PIM messaging libraries")
(description "This packages provides several libraries for messages, (description "This package provides several libraries for messages,
e.g. a message list, a mime tree parse, a template parser and the e.g. a message list, a mime tree parse, a template parser and the
kwebengineviewer.") kwebengineviewer.")
(license ;; GPL for programs, LGPL for libraries (license ;; GPL for programs, LGPL for libraries

2
gnu/packages/kde-systemtools.scm
View File

@ -83,7 +83,7 @@
(description "Dolphin is a file manager for KDE focusing on usability. (description "Dolphin is a file manager for KDE focusing on usability.
The main features of Dolphin are: The main features of Dolphin are:
@itemize @itemize
@item Navigation bar for URLs, which allows to navigate quickly @item Navigation bar for URLs, which navigates quickly
through the file hierarchy. through the file hierarchy.
@item View properties are remembered for each folder. @item View properties are remembered for each folder.
@item Split of views is supported. @item Split of views is supported.

2
gnu/packages/linphone.scm
View File

@ -101,7 +101,7 @@ framework for writing, administering, and running unit tests in C.")
("mbedtls" ,mbedtls-apache))) ("mbedtls" ,mbedtls-apache)))
(synopsis "Belledonne Communications Tool Box") (synopsis "Belledonne Communications Tool Box")
(description "BcToolBox is an utilities library used by Belledonne (description "BcToolBox is an utilities library used by Belledonne
Communications softwares like belle-sip, mediastreamer2 and linphone.") Communications software like belle-sip, mediastreamer2 and linphone.")
(home-page "https://gitlab.linphone.org/BC/public/bctoolbox") (home-page "https://gitlab.linphone.org/BC/public/bctoolbox")
(license license:gpl2+))) (license license:gpl2+)))

8
gnu/packages/linux.scm
View File

@ -1534,16 +1534,16 @@ slabtop, and skill.")
(define-public e2fsprogs (define-public e2fsprogs
(package (package
(name "e2fsprogs") (name "e2fsprogs")
(version "1.45.5") (version "1.45.6")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
"mirror://kernel.org/linux/kernel/people/tytso/" "mirror://kernel.org/linux/kernel/people/tytso/"
name "/v" version "/" "e2fsprogs/v" version "/"
name "-" version ".tar.xz")) "e2fsprogs-" version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"1pmf8inp736l587rqq7qsd8bv0mmg5cwrivxg5p5awqgv70crypr")))) "0mj2yizwygs7xww8jfy5mxjn8ww4pvc0b1hg1p2vsnirailsx9zz"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs `(("util-linux" ,util-linux "lib"))) (inputs `(("util-linux" ,util-linux "lib")))
(native-inputs `(("pkg-config" ,pkg-config) (native-inputs `(("pkg-config" ,pkg-config)

2
gnu/packages/lirc.scm
View File

@ -98,7 +98,7 @@
"LIRC allows computers to send and receive IR signals of many commonly "LIRC allows computers to send and receive IR signals of many commonly
used remote controls. The most important part of LIRC is the @code{lircd} used remote controls. The most important part of LIRC is the @code{lircd}
daemon that decodes IR signals received by the device drivers. The second daemon that decodes IR signals received by the device drivers. The second
daemon program @code{lircmd} allows to translate IR signals to mouse movements. daemon program @code{lircmd} translates IR signals to mouse movements.
The user space applications allow you to control your computer with a remote The user space applications allow you to control your computer with a remote
control: you can send X events to applications, start programs and much more control: you can send X events to applications, start programs and much more
on just one button press.") on just one button press.")

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

@ -10,7 +10,7 @@
;;; Copyright © 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net> ;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net>
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com> ;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2018, 2020 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2019, 2020 Katherine Cox-Buday <cox.katherine.e@gmail.com> ;;; Copyright © 2019, 2020 Katherine Cox-Buday <cox.katherine.e@gmail.com>
;;; Copyright © 2019 Jesse Gildersleve <jessejohngildersleve@protonmail.com> ;;; Copyright © 2019 Jesse Gildersleve <jessejohngildersleve@protonmail.com>
@ -53,6 +53,7 @@
#:use-module (gnu packages c) #:use-module (gnu packages c)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages databases) #:use-module (gnu packages databases)
#:use-module (gnu packages enchant)
#:use-module (gnu packages glib) #:use-module (gnu packages glib)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages imagemagick) #:use-module (gnu packages imagemagick)
@ -2785,8 +2786,8 @@ advantage of the library is the ability to concisely define command line
options once and then use this definition for parsing and extraction of options once and then use this definition for parsing and extraction of
command line arguments, as well as printing description of command line command line arguments, as well as printing description of command line
options (you get --help for free). This way you don't need to repeat options (you get --help for free). This way you don't need to repeat
yourself. Also, @command{unix-opts} doesn't depend on anything and allows to yourself. Also, @command{unix-opts} doesn't depend on anything and
precisely control behavior of the parser via Common Lisp restarts.") precisely controls the behavior of the parser via Common Lisp restarts.")
(license license:expat))) (license license:expat)))
(define-public cl-unix-opts (define-public cl-unix-opts
@ -3046,10 +3047,10 @@ is a library for creating graphical user interfaces.")
(sbcl-package->cl-source-package sbcl-cl-cffi-gtk)) (sbcl-package->cl-source-package sbcl-cl-cffi-gtk))
(define-public sbcl-cl-webkit (define-public sbcl-cl-webkit
(let ((commit "4832c99c31e0eb1fcce3779d119343ae8a423952")) (let ((commit "d97115ca601838dfa60ea7afbb88641d7a526dba"))
(package (package
(name "sbcl-cl-webkit") (name "sbcl-cl-webkit")
(version (git-version "2.4" "1" commit)) (version (git-version "2.4" "2" commit))
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -3059,7 +3060,7 @@ is a library for creating graphical user interfaces.")
(file-name (git-file-name "cl-webkit" version)) (file-name (git-file-name "cl-webkit" version))
(sha256 (sha256
(base32 (base32
"0sn7m181wfg1q49q45dlsry8c38x7pziqcs0frnymk6yvgndybxd")))) "0sdb2l2h5xv5c1m2mfq31i9yl6zjf512fvwwzlvk9nvisyhc4xi3"))))
(build-system asdf-build-system/sbcl) (build-system asdf-build-system/sbcl)
(inputs (inputs
`(("cffi" ,sbcl-cffi) `(("cffi" ,sbcl-cffi)
@ -5508,7 +5509,7 @@ and @code{kqueue(2)}), a pathname library and file-system utilities.")
(native-inputs (native-inputs
`(("fiveam" ,sbcl-fiveam))) `(("fiveam" ,sbcl-fiveam)))
(synopsis "IEEE 754 binary representation for floats in Common Lisp") (synopsis "IEEE 754 binary representation for floats in Common Lisp")
(description "This is a Common Lisp library that allows to convert (description "This is a Common Lisp library that converts
floating point values to IEEE 754 binary representation.") floating point values to IEEE 754 binary representation.")
(license license:bsd-3)))) (license license:bsd-3))))
@ -6422,7 +6423,7 @@ power of CXML is available when necessary.")
("cl-xmlspam" ,sbcl-cl-xmlspam) ("cl-xmlspam" ,sbcl-cl-xmlspam)
("ironclad" ,sbcl-ironclad))) ("ironclad" ,sbcl-ironclad)))
(synopsis "D-Bus client library for Common Lisp") (synopsis "D-Bus client library for Common Lisp")
(description "This is a Common Lisp library that allows to publish D-Bus (description "This is a Common Lisp library that publishes D-Bus
objects as well as send and notify other objects connected to a bus.") objects as well as send and notify other objects connected to a bus.")
(license license:bsd-2)))) (license license:bsd-2))))
@ -11318,3 +11319,42 @@ in DEFPACKAGE.")
(define-public cl-trivial-package-local-nicknames (define-public cl-trivial-package-local-nicknames
(sbcl-package->cl-source-package sbcl-trivial-package-local-nicknames)) (sbcl-package->cl-source-package sbcl-trivial-package-local-nicknames))
(define-public sbcl-enchant
(let ((commit "6af162a7bf10541cbcfcfa6513894900329713fa"))
(package
(name "sbcl-enchant")
(version (git-version "0.0.0" "1" commit))
(home-page "https://github.com/tlikonen/cl-enchant")
(source
(origin
(method git-fetch)
(uri (git-reference
(url home-page)
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "19yh5ihirzi1d8xqy1cjqipzd6ly3245cfxa5s9xx496rryz0s01"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("enchant" ,enchant)
("cffi" ,sbcl-cffi)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "load-enchant.lisp"
(("libenchant")
(string-append
(assoc-ref inputs "enchant") "/lib/libenchant-2"))))))))
(synopsis "Common Lisp interface for the Enchant spell-checker library")
(description
"Enchant is a Common Lisp interface for the Enchant spell-checker
library. The Enchant library is a generic spell-checker library which uses
other spell-checkers transparently as back-end. The library supports the
multiple checkers, including Aspell and Hunspell.")
(license license:public-domain))))
(define-public cl-enchant
(sbcl-package->cl-source-package sbcl-enchant))

2
gnu/packages/llvm.scm
View File

@ -883,7 +883,7 @@ SOURCE-FILES found in SOURCE-PACKAGE."
(string-append clang "/bin/clang-format")))) (string-append clang "/bin/clang-format"))))
#t))))) #t)))))
(synopsis "Format code using clang-format") (synopsis "Format code using clang-format")
(description "This package allows to filter code through @code{clang-format} (description "This package filters code through @code{clang-format}
to fix its formatting. @code{clang-format} is a tool that formats to fix its formatting. @code{clang-format} is a tool that formats
C/C++/Obj-C code according to a set of style options, see C/C++/Obj-C code according to a set of style options, see
@url{https://clang.llvm.org/docs/ClangFormatStyleOptions.html}."))) @url{https://clang.llvm.org/docs/ClangFormatStyleOptions.html}.")))

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

@ -570,8 +570,8 @@ optimizing, and searching weighted finite-state transducers (FSTs).")
(synopsis "Machine learning toolbox") (synopsis "Machine learning toolbox")
(description (description
"The Shogun Machine learning toolbox provides a wide range of unified and "The Shogun Machine learning toolbox provides a wide range of unified and
efficient Machine Learning (ML) methods. The toolbox seamlessly allows to efficient Machine Learning (ML) methods. The toolbox seamlessly
combine multiple data representations, algorithm classes, and general purpose combines multiple data representations, algorithm classes, and general purpose
tools. This enables both rapid prototyping of data pipelines and extensibility tools. This enables both rapid prototyping of data pipelines and extensibility
in terms of new algorithms.") in terms of new algorithms.")
(license license:gpl3+))) (license license:gpl3+)))

4
gnu/packages/maths.scm
View File

@ -5018,7 +5018,7 @@ cubes.")
("pkg-config" ,pkg-config))) ("pkg-config" ,pkg-config)))
(home-page "http://numerik.mi.fu-berlin.de/dune-subgrid/index.php") (home-page "http://numerik.mi.fu-berlin.de/dune-subgrid/index.php")
(synopsis "Distributed and Unified Numerics Environment") (synopsis "Distributed and Unified Numerics Environment")
(description "The dune-subgrid module allows to mark elements of (description "The dune-subgrid module marks elements of
another hierarchical dune grid. The set of marked elements can then be another hierarchical dune grid. The set of marked elements can then be
accessed as a hierarchical dune grid in its own right. Dune-Subgrid accessed as a hierarchical dune grid in its own right. Dune-Subgrid
provides the full grid interface including adaptive mesh refinement.") provides the full grid interface including adaptive mesh refinement.")
@ -5485,7 +5485,7 @@ researchers and developers alike to get started on SAT.")
It provides basic and advanced functionality. Features include customizable It provides basic and advanced functionality. Features include customizable
functions, unit calculations, and conversions, physical constants, symbolic functions, unit calculations, and conversions, physical constants, symbolic
calculations (including integrals and equations), arbitrary precision, calculations (including integrals and equations), arbitrary precision,
uncertainity propagation, interval arithmetic, plotting and a user-friendly uncertainty propagation, interval arithmetic, plotting and a user-friendly
cli.") cli.")
(license license:gpl2+))) (license license:gpl2+)))

1
gnu/packages/matrix.scm
View File

@ -20,6 +20,7 @@
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages check) #:use-module (gnu packages check)
#:use-module (gnu packages databases) #:use-module (gnu packages databases)
#:use-module (gnu packages monitoring)
#:use-module (gnu packages python-crypto) #:use-module (gnu packages python-crypto)
#:use-module (gnu packages python-web) #:use-module (gnu packages python-web)
#:use-module (gnu packages python-xyz) #:use-module (gnu packages python-xyz)

108
gnu/packages/messaging.scm
View File

@ -9,7 +9,7 @@
;;; Copyright © 2016 Andy Patterson <ajpatter@uwaterloo.ca> ;;; Copyright © 2016 Andy Patterson <ajpatter@uwaterloo.ca>
;;; Copyright © 2016, 2017, 2018, 2019 Clément Lassieur <clement@lassieur.org> ;;; Copyright © 2016, 2017, 2018, 2019 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com> ;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com>
;;; Copyright © 2017, 2018 Arun Isaac <arunisaac@systemreboot.net> ;;; Copyright © 2017, 2018, 2020 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org> ;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org>
;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
@ -728,68 +728,52 @@ on Axolotl and PEP.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public dino (define-public dino
;; The only release tarball is for version 0.0, but it is very old and fails (package
;; to build. (name "dino")
(let ((commit "8e14ac6d714b7f88e16de31a6c795e811dc27417") (version "0.1.0")
(revision "4")) (source
(package (origin
(name "dino") (method url-fetch)
(version (git-version "0.0" revision commit)) (uri (string-append "https://github.com/dino/dino/releases/download/v"
(source (origin version "/dino-" version ".tar.gz"))
(method git-fetch) (sha256
(uri (git-reference (base32
(url "https://github.com/dino/dino.git") "0dcq2jhpywgxrp9x1qqmrl2z50hazspqj547b9zz70apy3y4418h"))))
(commit commit))) (build-system cmake-build-system)
(file-name (git-file-name name version)) (arguments
(sha256 `(#:tests? #f
(base32 #:parallel-build? #f ; not supported
"0xfmwnc2f8lsvmp7m8ggikzqjaw5z6wmxrv6j5ljha5ckffrdd9m")))) #:modules ((guix build cmake-build-system)
(build-system cmake-build-system) ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
(arguments (guix build utils))
`(#:tests? #f ; there are no tests #:imported-modules (,@%gnu-build-system-modules
#:parallel-build? #f ; not supported (guix build cmake-build-system)
; Use our libsignal-protocol-c instead of the git submodule. (guix build glib-or-gtk-build-system))
#:configure-flags '("-DSHARED_SIGNAL_PROTOCOL=yes") #:phases
#:modules ((guix build cmake-build-system) (modify-phases %standard-phases
((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:) (add-after 'install 'glib-or-gtk-wrap
(guix build utils)) (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)))))
#:imported-modules (,@%gnu-build-system-modules (inputs
(guix build cmake-build-system) `(("libgee" ,libgee)
(guix build glib-or-gtk-build-system)) ("libsignal-protocol-c" ,libsignal-protocol-c)
#:phases ("libgcrypt" ,libgcrypt)
(modify-phases %standard-phases ("libsoup" ,libsoup)
;; The signal-protocol plugin accesses internal headers of ("qrencode" ,qrencode)
;; libsignal-protocol-c, so we need to put the sources there. ("sqlite" ,sqlite)
(add-after 'unpack 'unpack-sources ("gpgme" ,gpgme)
(lambda* (#:key inputs #:allow-other-keys) ("gtk+" ,gtk+)
(with-directory-excursion "plugins/signal-protocol/libsignal-protocol-c" ("glib-networking" ,glib-networking)
(invoke "tar" "xvf" ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
(assoc-ref inputs "libsignal-protocol-c-source") (native-inputs
"--strip-components=1")))) `(("pkg-config" ,pkg-config)
(add-after 'install 'glib-or-gtk-wrap ("glib" ,glib "bin")
(assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))))) ("vala" ,vala)
(inputs ("gettext" ,gettext-minimal)))
`(("libgee" ,libgee) (home-page "https://dino.im")
("libsignal-protocol-c" ,libsignal-protocol-c) (synopsis "Graphical Jabber (XMPP) client")
("libgcrypt" ,libgcrypt) (description "Dino is a Jabber (XMPP) client which aims to fit well into
("libsoup" ,libsoup)
("qrencode" ,qrencode)
("sqlite" ,sqlite)
("gpgme" ,gpgme)
("gtk+" ,gtk+)
("glib-networking" ,glib-networking)
("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
(native-inputs
`(("pkg-config" ,pkg-config)
("libsignal-protocol-c-source" ,(package-source libsignal-protocol-c))
("glib" ,glib "bin")
("vala" ,vala)
("gettext" ,gettext-minimal)))
(home-page "https://dino.im")
(synopsis "Graphical Jabber (XMPP) client")
(description "Dino is a Jabber (XMPP) client which aims to fit well into
a graphical desktop environment like GNOME.") a graphical desktop environment like GNOME.")
(license license:gpl3+)))) (license license:gpl3+)))
(define-public prosody (define-public prosody
(package (package

6
gnu/packages/monitoring.scm
View File

@ -5,6 +5,7 @@
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Gábor Boskovits <boskovits@gmail.com> ;;; Copyright © 2018 Gábor Boskovits <boskovits@gmail.com>
;;; Copyright © 2018, 2019 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2018, 2019 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2020 Alex ter Weele <alex.ter.weele@gmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -371,14 +372,13 @@ demand.")
(define-public python-prometheus-client (define-public python-prometheus-client
(package (package
(name "python-prometheus-client") (name "python-prometheus-client")
(version "0.5.0") (version "0.7.1")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
(uri (pypi-uri "prometheus_client" version)) (uri (pypi-uri "prometheus_client" version))
(sha256 (sha256
(base32 (base32 "1ni2yv4ixwz32nz39ckia76lvggi7m19y5f702w5qczbnfi29kbi"))))
"0g7rpv1pq2lab1nfqdx98z9d3bqwc400alg1j4ynrpjkrbsizhg8"))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
'(;; No included tests. '(;; No included tests.

6
gnu/packages/ocaml.scm
View File

@ -1179,7 +1179,7 @@ GNU CC attributes. It provides also a C pretty printer as an example of use.")
(home-page "https://github.com/c-cube/qcheck") (home-page "https://github.com/c-cube/qcheck")
(synopsis "QuickCheck inspired property-based testing for OCaml") (synopsis "QuickCheck inspired property-based testing for OCaml")
(description "QuickCheck inspired property-based testing for OCaml. This (description "QuickCheck inspired property-based testing for OCaml. This
module allows to check invariants (properties of some types) over randomly module checks invariants (properties of some types) over randomly
generated instances of the type. It provides combinators for generating generated instances of the type. It provides combinators for generating
instances and printing them.") instances and printing them.")
(license license:lgpl3+))) (license license:lgpl3+)))
@ -1534,7 +1534,7 @@ manipulate such data.")
(delete 'configure)))) (delete 'configure))))
(home-page "http://erratique.ch/software/mtime") (home-page "http://erratique.ch/software/mtime")
(synopsis "Monotonic wall-clock time for OCaml") (synopsis "Monotonic wall-clock time for OCaml")
(description "Access monotonic wall-clock time. It allows to measure time (description "Access monotonic wall-clock time. It measures time
spans without being subject to operating system calendar time adjustments.") spans without being subject to operating system calendar time adjustments.")
(license license:isc))) (license license:isc)))
@ -2266,7 +2266,7 @@ radix-64 representation. It is specified in RFC 4648.")
`(("ocamlbuild" ,ocamlbuild))) `(("ocamlbuild" ,ocamlbuild)))
(home-page "https://forge.ocamlcore.org/projects/ocamlify") (home-page "https://forge.ocamlcore.org/projects/ocamlify")
(synopsis "Include files in OCaml code") (synopsis "Include files in OCaml code")
(description "OCamlify allows to create OCaml source code by including (description "OCamlify creates OCaml source code by including
whole files into OCaml string or string list. The code generated can be whole files into OCaml string or string list. The code generated can be
compiled as a standard OCaml file. It allows embedding external resources as compiled as a standard OCaml file. It allows embedding external resources as
OCaml code.") OCaml code.")

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

@ -12,7 +12,7 @@
;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Jelle Licht <jlicht@fsfe.org> ;;; Copyright © 2017 Jelle Licht <jlicht@fsfe.org>
;;; Copyright © 2017, 2019 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2017, 2019 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2017 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2017, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com> ;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2017 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2018 Marius Bakke <mbakke@fastmail.com>
@ -119,7 +119,7 @@ human.")
(define-public keepassxc (define-public keepassxc
(package (package
(name "keepassxc") (name "keepassxc")
(version "2.5.3") (version "2.5.4")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -127,7 +127,7 @@ human.")
"/releases/download/" version "/keepassxc-" "/releases/download/" version "/keepassxc-"
version "-src.tar.xz")) version "-src.tar.xz"))
(sha256 (sha256
(base32 "1sx647mp1xikig50p9bb6vxv18ymdfj3wkxj6qfdr1zfcv7gn005")))) (base32 "0jndssyvpl8bc5i2q3d6kq1ppynchxx9nvp1qhd2pc0qqc0hhpm5"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
'(#:configure-flags '("-DWITH_XC_ALL=YES" '(#:configure-flags '("-DWITH_XC_ALL=YES"
@ -846,8 +846,8 @@ winner of the 2015 Password Hashing Competition.")
("python-pytest-mock" ,python-pytest-mock))) ("python-pytest-mock" ,python-pytest-mock)))
(home-page "https://github.com/languitar/pass-git-helper") (home-page "https://github.com/languitar/pass-git-helper")
(synopsis "Git credential helper interfacing with pass") (synopsis "Git credential helper interfacing with pass")
(description "pass-git-helper is a git credential helper which allows to (description "pass-git-helper is a git credential helper which
use pass, the standard unix password manager, as the credential backend for uses pass, the standard unix password manager, as the credential backend for
your git repositories. This is achieved by explicitly defining mappings your git repositories. This is achieved by explicitly defining mappings
between hosts and entries in the password store.") between hosts and entries in the password store.")
(license license:lgpl3+))) (license license:lgpl3+)))

6
gnu/packages/pdf.scm
View File

@ -135,7 +135,7 @@ where Flyer Composer steps in, creating a PDF which holds your flyer four
times. If you have a second page, Flyer Composer can arrange it the same way times. If you have a second page, Flyer Composer can arrange it the same way
- even if the second page is in a separate PDF file. - even if the second page is in a separate PDF file.
This package contains both the commnd line tool and the gui too.") This package contains both the command line tool and the gui too.")
(license license:agpl3+))) (license license:agpl3+)))
(define-public flyer-composer-cli (define-public flyer-composer-cli
@ -162,7 +162,7 @@ where Flyer Composer steps in, creating a PDF which holds your flyer four
times. If you have a second page, Flyer Composer can arrange it the same way times. If you have a second page, Flyer Composer can arrange it the same way
- even if the second page is in a separate PDF file. - even if the second page is in a separate PDF file.
This package contains only the commnd line tool. If you like to use the gui, This package contains only the command line tool. If you like to use the gui,
please install the @code{flyer-composer-gui} package."))) please install the @code{flyer-composer-gui} package.")))
(define-public poppler (define-public poppler
@ -885,7 +885,7 @@ Xournal++ features:
@item Fill shape functionality @item Fill shape functionality
@item PDF Export (with and without paper style) @item PDF Export (with and without paper style)
@item PNG Export (with and without transparent background) @item PNG Export (with and without transparent background)
@item Allow to map different tools / colors etc. to stylus buttons / @item Map different tools / colors etc. to stylus buttons /
mouse buttons mouse buttons
@item Sidebar with Page Previews with advanced page sorting, PDF @item Sidebar with Page Previews with advanced page sorting, PDF
Bookmarks and Layers (can be individually hidden, editing layer can be Bookmarks and Layers (can be individually hidden, editing layer can be

2
gnu/packages/perl.scm
View File

@ -343,7 +343,7 @@ sometimes even without using a single syscall.")
(build-system perl-build-system) (build-system perl-build-system)
(home-page "https://metacpan.org/pod/Attribute::Util") (home-page "https://metacpan.org/pod/Attribute::Util")
(synopsis "Assorted general utility attributes") (synopsis "Assorted general utility attributes")
(description "This packages provides various utility functions. When used (description "This package provides various utility functions. When used
without argument, this module provides four universally accessible attributes without argument, this module provides four universally accessible attributes
of general interest as follows: of general interest as follows:
@itemize @itemize

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

@ -2832,8 +2832,7 @@ environments and back.")
"PyYAML is a YAML parser and emitter for Python. PyYAML features a "PyYAML is a YAML parser and emitter for Python. PyYAML features a
complete YAML 1.1 parser, Unicode support, pickle support, capable extension complete YAML 1.1 parser, Unicode support, pickle support, capable extension
API, and sensible error messages. PyYAML supports standard YAML tags and API, and sensible error messages. PyYAML supports standard YAML tags and
provides Python-specific tags that allow to represent an arbitrary Python provides Python-specific tags that represent an arbitrary Python object.")
object.")
(license license:expat))) (license license:expat)))
(define-public python2-pyyaml (define-public python2-pyyaml
@ -3562,7 +3561,7 @@ receive files via the SCP1 protocol, as implemented by the OpenSSH
;; Note: As of version 1.7 the documentation is not worth building. ;; Note: As of version 1.7 the documentation is not worth building.
(home-page "https://github.com/jaraco/rst.linker") (home-page "https://github.com/jaraco/rst.linker")
(synopsis "Sphinx plugin to add links and timestamps") (synopsis "Sphinx plugin to add links and timestamps")
(description "rst.linker allows to automatically replace text by a (description "rst.linker automatically replaces text by a
reStructuredText external reference or timestamps. It's primary purpose is to reStructuredText external reference or timestamps. It's primary purpose is to
augment the changelog, but it can be used for other documents, too.") augment the changelog, but it can be used for other documents, too.")
(license license:expat))) (license license:expat)))
@ -12738,7 +12737,7 @@ by system tools such as ps and top).
Changing the title is mostly useful in multi-process systems, for Changing the title is mostly useful in multi-process systems, for
example when a master process is forked: changing the children's title example when a master process is forked: changing the children's title
allows to identify the task each process is busy with. The technique allows identifying the task each process is busy with. The technique
is used by PostgreSQL and the OpenSSH Server for example.") is used by PostgreSQL and the OpenSSH Server for example.")
(license license:bsd-3) (license license:bsd-3)
(properties `((python2-variant . ,(delay python2-setproctitle)))))) (properties `((python2-variant . ,(delay python2-setproctitle))))))
@ -19141,7 +19140,7 @@ logging in Python. It also provides some custom formatters and handlers.")
(home-page "https://github.com/jd/pifpaf") (home-page "https://github.com/jd/pifpaf")
(synopsis "Tools and fixtures to manage daemons for testing in Python") (synopsis "Tools and fixtures to manage daemons for testing in Python")
(description "Pifpaf is a suite of fixtures and a command-line tool that (description "Pifpaf is a suite of fixtures and a command-line tool that
allows to start and stop daemons for a quick throw-away usage. This is typically starts and stops daemons for a quick throw-away usage. This is typically
useful when needing these daemons to run integration testing. It originally useful when needing these daemons to run integration testing. It originally
evolved from its precursor @code{overtest}.") evolved from its precursor @code{overtest}.")
(license license:asl2.0))) (license license:asl2.0)))
@ -19349,28 +19348,6 @@ simple and fast to verify, and decouple authorization policy from the
enforcement of that policy.") enforcement of that policy.")
(license license:expat))) (license license:expat)))
(define-public python-prometheus-client
(package
(name "python-prometheus-client")
(version "0.7.1")
(source
(origin
(method url-fetch)
(uri (pypi-uri "prometheus_client" version))
(sha256
(base32 "1ni2yv4ixwz32nz39ckia76lvggi7m19y5f702w5qczbnfi29kbi"))))
(build-system python-build-system)
(arguments
;; TODO: No tests in the PyPI distribution.
`(#:tests? #f))
(propagated-inputs
`(("python-twisted" ,python-twisted)))
(home-page "https://github.com/prometheus/client_python")
(synopsis "Prometheus instrumentation library")
(description
"This is the official Python client for the Prometheus monitoring server.")
(license license:asl2.0)))
(define-public python-ldap3 (define-public python-ldap3
(package (package
(name "python-ldap3") (name "python-ldap3")

4
gnu/packages/ruby.scm
View File

@ -1810,8 +1810,8 @@ the output produced by running shell commands.")
("ruby-nenv" ,ruby-nenv))) ("ruby-nenv" ,ruby-nenv)))
(native-inputs (native-inputs
`(("bundler" ,bundler))) `(("bundler" ,bundler)))
(synopsis "Wrapper libray for notification libraries") (synopsis "Wrapper library for notification libraries")
(description "Notiffany is a Ruby wrapper libray for notification (description "Notiffany is a Ruby wrapper library for notification
libraries such as Libnotify.") libraries such as Libnotify.")
(home-page "https://github.com/guard/notiffany") (home-page "https://github.com/guard/notiffany")
(license license:expat))) (license license:expat)))

4
gnu/packages/sagemath.scm
View File

@ -331,7 +331,7 @@ coefficients of which are modular integers.")
(define-public brial (define-public brial
(package (package
(name "brial") (name "brial")
(version "1.2.7") (version "1.2.8")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -340,7 +340,7 @@ coefficients of which are modular integers.")
(commit version))) (commit version)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1s0wmbb42sq6a5kxgzsz5srphclmfa4cvxdx2h9kzp0da2zcp3cm")))) (base32 "0qhgckd4fvbs40jw14mvw89rccv94d3df27kipd27hxd4cx7y80y"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)

6
gnu/packages/statistics.scm
View File

@ -1505,7 +1505,7 @@ understand the language at a deeper level.")
(home-page "https://github.com/hadley/memoise") (home-page "https://github.com/hadley/memoise")
(synopsis "Memoise functions for R") (synopsis "Memoise functions for R")
(description (description
"This R package allows to cache the results of a function so that when "This R package caches the results of a function so that when
you call it again with the same arguments it returns the pre-computed value.") you call it again with the same arguments it returns the pre-computed value.")
(license license:expat))) (license license:expat)))
@ -4781,7 +4781,7 @@ can be efficiently implemented directly in the R language.")
(home-page "http://robustbase.r-forge.r-project.org/") (home-page "http://robustbase.r-forge.r-project.org/")
(synopsis "Basic robust statistics") (synopsis "Basic robust statistics")
(description (description
"This package allows to analyze data with robust methods such as "This package analyzes data with robust methods such as
regression methodology including model selections and multivariate statistics.") regression methodology including model selections and multivariate statistics.")
(license license:gpl2+))) (license license:gpl2+)))
@ -5257,7 +5257,7 @@ to Applied regression, Second Edition, Sage, 2011.")
(home-page "https://github.com/kforner/rcpp_progress") (home-page "https://github.com/kforner/rcpp_progress")
(synopsis "Interruptible progress bar for C++ in R packages") (synopsis "Interruptible progress bar for C++ in R packages")
(description (description
"This package allows to display a progress bar in the R console for long running "This package displays a progress bar in the R console for long running
computations taking place in C++ code, and support for interrupting those computations computations taking place in C++ code, and support for interrupting those computations
even in multithreaded code, typically using OpenMP.") even in multithreaded code, typically using OpenMP.")
(license license:gpl3+))) (license license:gpl3+)))

43
gnu/packages/syncthing.scm
View File

@ -2,6 +2,7 @@
;;; Copyright © 2016 Petter <petter@mykolab.ch> ;;; Copyright © 2016 Petter <petter@mykolab.ch>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Leo Famulari <leo@famulari.name> ;;; Copyright © 2016, 2017, 2018, 2019, 2020 Leo Famulari <leo@famulari.name>
;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -1022,29 +1023,27 @@ quoting, commenting, and escaping.")
(license asl2.0)))) (license asl2.0))))
(define-public go-github-com-audriusbutkevicius-pfilter (define-public go-github-com-audriusbutkevicius-pfilter
(let ((commit "c55ef6137fc6f075801eac099cc2687ede0f101d") (package
(revision "3")) (name "go-github-com-audriusbutkevicius-pfilter")
(package (version "0.0.5")
(name "go-github-com-audriusbutkevicius-pfilter") (source
(version (git-version "0.0.0" revision commit)) (origin
(source (method git-fetch)
(origin (uri (git-reference
(method git-fetch) (url "https://github.com/AudriusButkevicius/pfilter.git")
(uri (git-reference (commit version)))
(url "https://github.com/AudriusButkevicius/pfilter.git") (file-name (git-file-name name version))
(commit commit))) (sha256
(file-name (git-file-name name version)) (base32
(sha256 "0xzhwyd0w21bhvzl5pinn22hp0y6h44rh3s2ppql69rafc6zd3c6"))))
(base32 (build-system go-build-system)
"0xzhwyd0w21bhvzl5pinn22hp0y6h44rh3s2ppql69rafc6zd3c6")))) (arguments
(build-system go-build-system) '(#:import-path "github.com/AudriusButkevicius/pfilter"))
(arguments (synopsis "Filter packets into multiple virtual connections")
'(#:import-path "github.com/AudriusButkevicius/pfilter")) (description "Pfilter is a Go package for filtering packets into multiple
(synopsis "Filter packets into multiple virtual connections")
(description "Pfilter is a Go package for filtering packets into multiple
virtual connections from a single physical connection.") virtual connections from a single physical connection.")
(home-page "https://github.com/AudriusButkevicius/pfilter") (home-page "https://github.com/AudriusButkevicius/pfilter")
(license expat)))) (license expat)))
(define-public go-github-com-ccding-go-stun (define-public go-github-com-ccding-go-stun
(let ((commit "be486d185f3dfcb2dbf8429332da50a0da7f95a6") (let ((commit "be486d185f3dfcb2dbf8429332da50a0da7f95a6")

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

@ -9,6 +9,7 @@
;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2019 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -30,12 +31,14 @@
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix build-system cmake)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system cmake) #:use-module (guix build-system cmake)
#:use-module (guix build-system glib-or-gtk) #:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system python) #:use-module (guix build-system python)
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages aspell)
#:use-module (gnu packages assembly) #:use-module (gnu packages assembly)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
#:use-module (gnu packages boost) #:use-module (gnu packages boost)
@ -49,6 +52,7 @@
#:use-module (gnu packages haskell-xyz) #:use-module (gnu packages haskell-xyz)
#:use-module (gnu packages libbsd) #:use-module (gnu packages libbsd)
#:use-module (gnu packages libreoffice) #:use-module (gnu packages libreoffice)
#:use-module (gnu packages llvm)
#:use-module (gnu packages lua) #:use-module (gnu packages lua)
#:use-module (gnu packages ncurses) #:use-module (gnu packages ncurses)
#:use-module (gnu packages pcre) #:use-module (gnu packages pcre)
@ -61,6 +65,7 @@
#:use-module (gnu packages ruby) #:use-module (gnu packages ruby)
#:use-module (gnu packages terminals) #:use-module (gnu packages terminals)
#:use-module (gnu packages texinfo) #:use-module (gnu packages texinfo)
#:use-module (gnu packages version-control)
#:use-module (gnu packages xml) #:use-module (gnu packages xml)
#:use-module (gnu packages xorg)) #:use-module (gnu packages xorg))
@ -187,6 +192,97 @@ interface similar to many user-friendly editors. JOE has some of the key
bindings and many of the powerful features of GNU Emacs.") bindings and many of the powerful features of GNU Emacs.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public jucipp
(package
(name "jucipp")
(version "1.5.1")
(home-page "https://gitlab.com/cppit/jucipp")
(source (origin
(method git-fetch)
(uri (git-reference (url home-page)
(commit (string-append "v" version))
;; Two submodules are required which are
;; developed alongside JuCi++ and difficult
;; to package separately.
(recursive? #t)))
(file-name (git-file-name name version))
(sha256
(base32 "0v7fmsya2zn1xx59bkv4cbyinmcnv52hm4j40nbfwalcks631xrr"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags '("-DBUILD_TESTING=ON"
;; These arguments are here to facilitate an "in-source"
;; build using "./build" instead of the default "../build".
;; The test suite expects that to be the case.
"..")
#:out-of-source? #f
#:phases (modify-phases %standard-phases
(add-before 'configure 'enter-build-directory
(lambda _
(mkdir "build")
(chdir "build")
#t))
;; This phase is necessary to fix a test failure, see
;; <https://gitlab.com/cppit/jucipp/-/issues/423>.
(add-after 'unpack 'add-reference-to-clang-internal-header
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/compile_commands.cc"
((".*-I/usr/lib/clang.*" all)
(string-append "arguments.emplace_back(\"-I"
(assoc-ref inputs "libclang")
"/lib/clang/"
,@(list (package-version clang))
"/include\");\n"
all)))
#t))
(add-after 'unpack 'patch-tiny-process-library
(lambda _
(with-directory-excursion "lib/tiny-process-library"
(substitute* '("process_unix.cpp"
"tests/io_test.cpp")
(("/bin/sh") (which "sh"))))
#t))
(add-after 'unpack 'disable-git-test
(lambda _
(substitute* "tests/CMakeLists.txt"
;; Disable the git test, as it requires the full checkout.
(("add_test\\(git_test.*\\)") ""))
#t))
(add-before 'check 'pre-check
(lambda* (#:key inputs #:allow-other-keys)
;; Tests do not expect HOME to be empty.
(setenv "HOME" "/etc")
;; Most tests require an X server.
(let ((xorg-server (assoc-ref inputs "xorg-server"))
(display ":1"))
(setenv "DISPLAY" display)
(system (string-append xorg-server "/bin/Xvfb "
display " &")))
#t)))))
(native-inputs
`(("pkg-config" ,pkg-config)
("xorg-server" ,xorg-server-for-tests)))
(inputs
`(("aspell" ,aspell)
("boost" ,boost)
("gtkmm" ,gtkmm)
("gtksourceviewmm" ,gtksourceviewmm)
("libclang" ,clang)
("libgit2" ,libgit2)))
(synopsis "Lightweight C++ IDE")
(description
"juCi++ is a small @dfn{IDE} (Integrated Development Environment)
designed especially towards libclang with speed, stability, and ease of use
in mind.
It supports autocompletion, on-the-fly warnings and errors, syntax
highlighting, and integrates with Git as well as the CMake and Meson build
systems.")
(license license:expat)))
(define-public leafpad (define-public leafpad
(package (package
(name "leafpad") (name "leafpad")
@ -812,7 +908,7 @@ The basic features of Geany are:
`(("ncurses" ,ncurses))) `(("ncurses" ,ncurses)))
(home-page "http://www.moria.de/~michael/fe/") (home-page "http://www.moria.de/~michael/fe/")
(synopsis "Small folding editor") (synopsis "Small folding editor")
(description "Fe is a small folding editor. It allows to fold (description "Fe is a small folding editor. It folds
arbitrary text regions; it is not bound to syntactic units. arbitrary text regions; it is not bound to syntactic units.
Fe has no configuration or extension language and requires no setup. Fe has no configuration or extension language and requires no setup.

18
gnu/packages/version-control.scm
View File

@ -684,6 +684,24 @@ write native speed custom Git applications in any language with bindings.")
;; GPLv2 with linking exception ;; GPLv2 with linking exception
(license license:gpl2))) (license license:gpl2)))
(define-public libgit2-0.28
(package
(inherit libgit2)
(version "0.28.5")
(source
(origin
(method url-fetch)
(uri (string-append "https://github.com/libgit2/libgit2/releases/"
"download/v" version
"/libgit2-" version ".tar.gz"))
(sha256
(base32
"0hjgpqjjmkciw1i8jqkx9q2vhdc4fc99qajhrj2bq8ziwsp6hyrb"))
(patches (search-patches "libgit2-mtime-0.patch"))
(modules '((guix build utils)))
(snippet '(begin
(delete-file-recursively "deps") #t))))))
(define-public git-crypt (define-public git-crypt
(package (package
(name "git-crypt") (name "git-crypt")

2
gnu/packages/web.scm
View File

@ -1273,7 +1273,7 @@ Browsers and other web clients can use it to avoid privacy-leaking
highlighting parts of the domain in a user interface, and sorting domain lists highlighting parts of the domain in a user interface, and sorting domain lists
by site. by site.
Libpsl has built-in PSL data for fast access, allows to load PSL data from Libpsl has built-in PSL data for fast access, allowing to load PSL data from
files, checks if a given domain is a public suffix, provides immediate cookie files, checks if a given domain is a public suffix, provides immediate cookie
domain verification, finds the longest public part of a given domain, finds domain verification, finds the longest public part of a given domain, finds
the shortest private part of a given domain, works with international the shortest private part of a given domain, works with international

8
gnu/packages/wine.scm
View File

@ -4,7 +4,7 @@
;;; Copyright © 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com> ;;; Copyright © 2017, 2018, 2019 Rutger Helling <rhelling@mykolab.com>
;;; Copyright © 2017, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2017, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz> ;;; Copyright © 2019 Pierre Neidhardt <mail@ambrevar.xyz>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -328,7 +328,7 @@ integrate Windows applications into your desktop.")
(define-public wine-staging-patchset-data (define-public wine-staging-patchset-data
(package (package
(name "wine-staging-patchset-data") (name "wine-staging-patchset-data")
(version "5.3") (version "5.6")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -337,7 +337,7 @@ integrate Windows applications into your desktop.")
(commit (string-append "v" version)))) (commit (string-append "v" version))))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 "1mvhrvshyrj7lgjgka735z6j8idwd6j58bpg5nz1slgmlh1llrs6")))) (base32 "1i9yiwbyxl0vshc4gbgnhp53m1ray8pkiii876gbiaf93k1irk0d"))))
(build-system trivial-build-system) (build-system trivial-build-system)
(native-inputs (native-inputs
`(("bash" ,bash) `(("bash" ,bash)
@ -387,7 +387,7 @@ integrate Windows applications into your desktop.")
"/wine-" version ".tar.xz"))) "/wine-" version ".tar.xz")))
(file-name (string-append name "-" version ".tar.xz")) (file-name (string-append name "-" version ".tar.xz"))
(sha256 (sha256
(base32 "1pkzj3656ad0vmc7ciwfzn45lb2kxwbyymfwnqaa105dicicf6wv")))) (base32 "1rh0pk8mbi3bb0di13swzxn7nwnrbfsfizdv472vv3ymf5z8l6ah"))))
(inputs `(("autoconf" ,autoconf) ; for autoreconf (inputs `(("autoconf" ,autoconf) ; for autoreconf
("ffmpeg" ,ffmpeg) ("ffmpeg" ,ffmpeg)
("gtk+" ,gtk+) ("gtk+" ,gtk+)

8
gnu/packages/xdisorg.scm
View File

@ -604,7 +604,7 @@ System style license, and has no special dependencies.")
(home-page "http://tomas.styblo.name/wmctrl/") (home-page "http://tomas.styblo.name/wmctrl/")
(synopsis "Command-line tool to control X window managers") (synopsis "Command-line tool to control X window managers")
(description (description
"Wmctrl allows to interact with an X window manager that is compatible "Wmctrl interacts with an X window manager that is compatible
with the EWMH/NetWM specification. It can query the window manager for with the EWMH/NetWM specification. It can query the window manager for
information, and request for certain window management actions (resize and information, and request for certain window management actions (resize and
move windows, switch between desktops, etc.).") move windows, switch between desktops, etc.).")
@ -637,7 +637,7 @@ move windows, switch between desktops, etc.).")
(home-page "https://github.com/resurrecting-open-source-projects/scrot") (home-page "https://github.com/resurrecting-open-source-projects/scrot")
(synopsis "Command-line screen capture utility for X Window System") (synopsis "Command-line screen capture utility for X Window System")
(description (description
"Scrot allows to save a screenshot of a full screen, a window or a part "Scrot saves a screenshot of a full screen, a window or a part
of the screen selected by mouse.") of the screen selected by mouse.")
;; This license removes a clause about X Consortium from the original ;; This license removes a clause about X Consortium from the original
;; X11 license. ;; X11 license.
@ -1057,7 +1057,7 @@ within a single process.")
(home-page "https://github.com/alols/xcape") (home-page "https://github.com/alols/xcape")
(synopsis "Use a modifier key in X.org as another key") (synopsis "Use a modifier key in X.org as another key")
(description (description
"This utility for X.org allows to use modifier key as another key when "This utility for X.org uses a modifier key as another key when
pressed and released on its own. The default behaviour is to generate the pressed and released on its own. The default behaviour is to generate the
Escape key when Left Control is pressed and released on its own.") Escape key when Left Control is pressed and released on its own.")
(license license:gpl3+))) (license license:gpl3+)))
@ -1733,7 +1733,7 @@ commandline).")
`(#:tests? #f)) `(#:tests? #f))
(synopsis "Use external screen locker on events") (synopsis "Use external screen locker on events")
(description "@code{xss-lock} listens to X signals to fire up a (description "@code{xss-lock} listens to X signals to fire up a
user-defined screensaver. In effect this allows to automatically lock the user-defined screensaver. In effect this automatically locks the
screen when closing a laptop lid or after a period of user inactivity (as set screen when closing a laptop lid or after a period of user inactivity (as set
with @code{xset s TIMEOUT}). The notifier command, if specified, is executed with @code{xset s TIMEOUT}). The notifier command, if specified, is executed
first. Additionally, xss-lock uses the inhibition logic to lock the screen first. Additionally, xss-lock uses the inhibition logic to lock the screen

57
gnu/packages/xfce.scm
View File

@ -204,7 +204,7 @@ to share commonly used Xfce widgets among the Xfce applications.")
(define-public exo (define-public exo
(package (package
(name "exo") (name "exo")
(version "0.12.10") (version "0.12.11")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://archive.xfce.org/src/xfce/" (uri (string-append "https://archive.xfce.org/src/xfce/"
@ -212,7 +212,7 @@ to share commonly used Xfce widgets among the Xfce applications.")
"exo-" version ".tar.bz2")) "exo-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"1b3w4pf9gkcp13h63nf93k95hkw0ij7v5y7wjklqd1qifm8xd3w4")))) "1dp5s64g6572h9zvx9js7qc72s728qsd9y7hl7hg6rwaq0cjb2gc"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
@ -222,7 +222,7 @@ to share commonly used Xfce widgets among the Xfce applications.")
`(("gtk+-3" ,gtk+) `(("gtk+-3" ,gtk+)
("libxfce4util" ,libxfce4util))) ("libxfce4util" ,libxfce4util)))
(inputs (inputs
`(;; FIXME Refered to in exo-1.pc but conflict with gtk+-3 `(;; FIXME Referred to in exo-1.pc but conflict with gtk+-3.
("gtk+-2" ,gtk+-2) ("gtk+-2" ,gtk+-2)
("libxfce4ui" ,libxfce4ui) ("libxfce4ui" ,libxfce4ui)
("perl-uri" ,perl-uri))) ("perl-uri" ,perl-uri)))
@ -238,7 +238,7 @@ development.")
(define-public garcon (define-public garcon
(package (package
(name "garcon") (name "garcon")
(version "0.6.4") (version "0.7.0")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://archive.xfce.org/src/xfce/" (uri (string-append "https://archive.xfce.org/src/xfce/"
@ -246,17 +246,17 @@ development.")
"garcon-" version ".tar.bz2")) "garcon-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"0bbngb4bn1m325j7y40gky36kn2nlsvqs6xp0wy76x3s0d9lfpnp")))) "08r4dfvdvl178cjajm7ww16lwb7jsfqh3yz614mn84c0a0dvdhw2"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("intltool" ,intltool) ("intltool" ,intltool)
("glib:bin" ,glib "bin"))) ("glib:bin" ,glib "bin")))
(inputs (inputs
`(("gtk+-2" ,gtk+-2))); required by garcon-gtk2-1.pc `(("gtk+-2" ,gtk+-2))) ; required by garcon-gtk2-1.pc
(propagated-inputs (propagated-inputs
`(("gtk+-3" ,gtk+) ; required by garcon-gtk3-1.pc `(("gtk+-3" ,gtk+) ; required by garcon-gtk3-1.pc
("libxfce4ui" ,libxfce4ui))) ; required by garcon-gtk3-1.pc ("libxfce4ui" ,libxfce4ui))) ; required by garcon-gtk3-1.pc
(home-page "https://www.xfce.org/") (home-page "https://www.xfce.org/")
(synopsis "Implementation of the freedesktop.org menu specification") (synopsis "Implementation of the freedesktop.org menu specification")
(description (description
@ -387,7 +387,7 @@ applications menu, workspace switcher and more.")
(define-public xfce4-clipman-plugin (define-public xfce4-clipman-plugin
(package (package
(name "xfce4-clipman-plugin") (name "xfce4-clipman-plugin")
(version "1.4.4") (version "1.6.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://archive.xfce.org/src/panel-plugins/" (uri (string-append "https://archive.xfce.org/src/panel-plugins/"
@ -395,7 +395,7 @@ applications menu, workspace switcher and more.")
"xfce4-clipman-plugin-" version ".tar.bz2")) "xfce4-clipman-plugin-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"1819kjn7gs30zhhj2ppfw4zjpcgj9amw1vvppjsavsff1xflrq88")))) "1d6fxdzy9b511hqcyj7825fx67q6zqk6cln4g3x9d498jrvk3s5k"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(native-inputs (native-inputs
`(("intltool" ,intltool) `(("intltool" ,intltool)
@ -418,19 +418,20 @@ matching them against regular expressions.")
(define-public xfce4-pulseaudio-plugin (define-public xfce4-pulseaudio-plugin
(package (package
(name "xfce4-pulseaudio-plugin") (name "xfce4-pulseaudio-plugin")
(version "0.4.2") (version "0.4.3")
(source (origin (source
(method url-fetch) (origin
(uri (string-append "https://archive.xfce.org/src/panel-plugins/" (method url-fetch)
name "/" (version-major+minor version) "/" (uri (string-append "https://archive.xfce.org/src/panel-plugins/"
name "-" version ".tar.bz2")) "xfce4-pulseaudio-plugin/"
(sha256 (version-major+minor version) "/"
(base32 "xfce4-pulseaudio-plugin-" version ".tar.bz2"))
"0851b0vs5xmy3cq899khcghmkqwvh9rnzwavi17msrsq4jyaxs2a")))) (sha256
(base32 "0nv1lbkshfzar87f6xq1ib120pjja24r7135rbc42wqkw8vq4las"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases
;; For dbus/dbus-glib.h in pulseaudio-config.h ;; For dbus/dbus-glib.h in pulseaudio-config.h.
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'set-paths 'augment-cflags (add-after 'set-paths 'augment-cflags
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
@ -464,7 +465,7 @@ keys for controlling the audio volume.")
(define-public xfce4-whiskermenu-plugin (define-public xfce4-whiskermenu-plugin
(package (package
(name "xfce4-whiskermenu-plugin") (name "xfce4-whiskermenu-plugin")
(version "2.3.4") (version "2.4.3")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -472,7 +473,7 @@ keys for controlling the audio volume.")
"xfce4-whiskermenu-plugin/" (version-major+minor version) "/" "xfce4-whiskermenu-plugin/" (version-major+minor version) "/"
"xfce4-whiskermenu-plugin-" version ".tar.bz2")) "xfce4-whiskermenu-plugin-" version ".tar.bz2"))
(sha256 (sha256
(base32 "03jpcbdpkgg825g7mr630wxynachymsrnyhz32mkl0jsd4sxxlw4")))) (base32 "1w2zvqr0g6miliv3nb0shljfawwc1brdn2fyz4kvfg7b3klyxyir"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
@ -563,15 +564,15 @@ your system in categories, so you can quickly find and launch them.")
(define-public xfce4-session (define-public xfce4-session
(package (package
(name "xfce4-session") (name "xfce4-session")
(version "4.14.0") (version "4.14.2")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://archive.xfce.org/src/xfce/" (uri (string-append "https://archive.xfce.org/src/xfce/"
name "/" (version-major+minor version) "/" "xfce4-session/" (version-major+minor version) "/"
name "-" version ".tar.bz2")) "xfce4-session-" version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"0gq4a8yiw58hb4d5dhvprxvzamqfg8qblmiqcw0b97mn9svnvyql")) "1bwpylcn7x9i301yz45wvkzah9bncv9b44nf4hh9ln4i1jka9qzv"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(begin '(begin
@ -602,7 +603,7 @@ your system in categories, so you can quickly find and launch them.")
(synopsis "Xfce session manager") (synopsis "Xfce session manager")
(description (description
"Session manager for Xfce, it will restore your session on startup and "Session manager for Xfce, it will restore your session on startup and
allows you to shutdown the computer from Xfce.") allows you to shut down the computer from Xfce.")
(license gpl2+))) (license gpl2+)))
(define-public xfce4-settings (define-public xfce4-settings
@ -1160,7 +1161,7 @@ A plugin for the Xfce panel is also available.")
(define-public xfce4-screensaver (define-public xfce4-screensaver
(package (package
(name "xfce4-screensaver") (name "xfce4-screensaver")
(version "0.1.9") (version "0.1.10")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "https://archive.xfce.org/src/apps/" (uri (string-append "https://archive.xfce.org/src/apps/"
@ -1170,7 +1171,7 @@ A plugin for the Xfce panel is also available.")
version ".tar.bz2")) version ".tar.bz2"))
(sha256 (sha256
(base32 (base32
"11p48yyjgy6crwfbyvm16yg0rkzn90ssd2wygzmwvwrx3wkzyhsp")))) "0mqxbyq9np6jzky8y35dlxxmk78q2w0jvwg9kh7a4ib7vmw1qvsq"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:phases

2
gnu/packages/xiph.scm
View File

@ -74,7 +74,7 @@
'(#:configure-flags '("--disable-static"))) '(#:configure-flags '("--disable-static")))
(synopsis "Library for manipulating the ogg multimedia format") (synopsis "Library for manipulating the ogg multimedia format")
(description (description
"The libogg library allows to manipulate the ogg multimedia container "The libogg library manipulates the ogg multimedia container
format, which encapsulates raw compressed data and allows the interleaving of format, which encapsulates raw compressed data and allows the interleaving of
audio and video data. In addition to encapsulation and interleaving of audio and video data. In addition to encapsulation and interleaving of
multiple data streams, ogg provides packet framing, error detection, and multiple data streams, ogg provides packet framing, error detection, and

2
gnu/services/virtualization.scm
View File

@ -285,7 +285,7 @@ and max_workers parameter.")
(string "3:remote 4:event") (string "3:remote 4:event")
"Logging filters. "Logging filters.
A filter allows to select a different logging level for a given category A filter allows selecting a different logging level for a given category
of logs of logs
The format for a filter is one of: The format for a filter is one of:
@itemize @itemize

51
guix/build/julia-build-system.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Nicolò Balzarotti <nicolo@nixo.xyz> ;;; Copyright © 2019, 2020 Nicolò Balzarotti <nicolo@nixo.xyz>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -37,53 +37,46 @@
;; subpath where we store the package content ;; subpath where we store the package content
(define %package-path "/share/julia/packages/") (define %package-path "/share/julia/packages/")
(define (generate-load-path inputs outputs)
(string-append
(string-join (map (match-lambda
((_ . path)
(string-append path %package-path)))
;; Restrict to inputs beginning with "julia-".
(filter (match-lambda
((name . _)
(string-prefix? "julia-" name)))
inputs))
":")
(string-append ":" (assoc-ref outputs "out") %package-path)
;; stdlib is always required to find Julia's standard libraries.
;; usually there are other two paths in this variable:
;; "@" and "@v#.#"
":@stdlib"))
(define* (install #:key source inputs outputs #:allow-other-keys) (define* (install #:key source inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(package-dir (string-append out %package-path (package-dir (string-append out %package-path
(string-append (strip-store-file-name source))))
(strip-store-file-name source)))))
(setenv "JULIA_LOAD_PATH" (generate-load-path inputs outputs))
(mkdir-p package-dir) (mkdir-p package-dir)
(copy-recursively source package-dir)) (copy-recursively (getcwd) package-dir))
#t) #t)
;; TODO: Precompilation is working, but I don't know how to tell
;; julia to use use it. If (on rantime) we set HOME to
;; store path, julia tries to write files there (failing)
(define* (precompile #:key source inputs outputs #:allow-other-keys) (define* (precompile #:key source inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(builddir (string-append out "/share/julia/")) (builddir (string-append out "/share/julia/"))
(package (strip-store-file-name source))) (package (strip-store-file-name source)))
(mkdir-p builddir) (mkdir-p builddir)
;; With a patch, SOURCE_DATE_EPOCH is honored
(setenv "SOURCE_DATE_EPOCH" "1")
(setenv "JULIA_DEPOT_PATH" builddir) (setenv "JULIA_DEPOT_PATH" builddir)
(setenv "JULIA_LOAD_PATH" (generate-load-path inputs outputs)) ;; Add new package dir to the load path.
;; Actual precompilation (setenv "JULIA_LOAD_PATH"
(invoke-julia (string-append "using " package))) (string-append builddir "packages/" ":"
(or (getenv "JULIA_LOAD_PATH")
"")))
;; Actual precompilation:
(invoke-julia
;; When using Julia as a user, Julia writes precompile cache to the first
;; entry of the DEPOT_PATH list (by default, the home dir). We want to
;; write it to the store, so let's push the store path as the first
;; element of DEPOT_PATH. Once the cache file exists, this hack is not
;; needed anymore (like in the check phase). If the user install new
;; packages, those will be installed and precompiled in the home dir.
(string-append "pushfirst!(DEPOT_PATH, pop!(DEPOT_PATH)); using " package)))
#t) #t)
(define* (check #:key source inputs outputs #:allow-other-keys) (define* (check #:key source inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(package (strip-store-file-name source)) (package (strip-store-file-name source))
(builddir (string-append out "/share/julia/"))) (builddir (string-append out "/share/julia/")))
;; With a patch, SOURCE_DATE_EPOCH is honored
(setenv "SOURCE_DATE_EPOCH" "1")
(setenv "JULIA_DEPOT_PATH" builddir) (setenv "JULIA_DEPOT_PATH" builddir)
(setenv "JULIA_LOAD_PATH" (generate-load-path inputs outputs)) (setenv "JULIA_LOAD_PATH" (string-append builddir "packages/"))
(invoke-julia (string-append "using Pkg;Pkg.test(\"" package "\")"))) (invoke-julia (string-append "using Pkg;Pkg.test(\"" package "\")")))
#t) #t)

7
guix/self.scm
View File

@ -489,6 +489,13 @@ TRANSLATIONS, an alist of msgid and msgstr."
(computed-file "guix-manual" build)) (computed-file "guix-manual" build))
(define-syntax-rule (prevent-inlining! identifier ...)
(begin (set! identifier identifier) ...))
;; XXX: These procedures are actually used by 'doc/build.scm'. Protect them
;; from inlining on Guile 3.
(prevent-inlining! file-append* translate-texi-manuals info-manual)
(define* (guile-module-union things #:key (name "guix-module-union")) (define* (guile-module-union things #:key (name "guix-module-union"))
"Return the union of the subset of THINGS (packages, computed files, etc.) "Return the union of the subset of THINGS (packages, computed files, etc.)
that provide Guile modules." that provide Guile modules."