ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge remote-tracking branch 'origin/master' into core-updates-frozen

Browse source
This commit is contained in:
Efraim Flashner 2021-11-03 14:25:30 +02:00
commit 075df3d3e2
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
46 changed files with 883 additions and 596 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gnu/local.mk
View file

@ -1027,7 +1027,6 @@ dist_patch_DATA = \
%D%/packages/patches/elm-compiler-disable-reactor.patch \
%D%/packages/patches/elm-compiler-fix-map-key.patch \
%D%/packages/patches/emacs-exec-path.patch \
%D%/packages/patches/emacs-exwm-fix-fullscreen-states.patch \
%D%/packages/patches/emacs-fix-scheme-indent-function.patch \
%D%/packages/patches/emacs-ignore-empty-xim-styles.patch \
%D%/packages/patches/emacs-json-reformat-fix-tests.patch \
@ -1287,7 +1286,6 @@ dist_patch_DATA = \
%D%/packages/patches/imagemagick-WriteTHUMBNAILImage-fix.patch \
%D%/packages/patches/inkscape-poppler-0.76.patch \
%D%/packages/patches/instead-use-games-path.patch \
%D%/packages/patches/inkscape-1.1-fix-build-witch-gcc7.5.patch \
%D%/packages/patches/intel-xed-fix-nondeterminism.patch \
%D%/packages/patches/intltool-perl-compatibility.patch \
%D%/packages/patches/iputils-libcap-compat.patch \

4
gnu/packages/admin.scm
View file

@ -3985,7 +3985,7 @@ (define-public inxi-minimal
(let ((real-name "inxi"))
(package
(name "inxi-minimal")
(version "3.3.07-1")
(version "3.3.08-1")
(source
(origin
(method git-fetch)
@ -3994,7 +3994,7 @@ (define-public inxi-minimal
(commit version)))
(file-name (git-file-name real-name version))
(sha256
(base32 "1amf1sry7g99khp9ac8f3m4jfa8rn1jjxvrcg0j9wvv65px7zj0i"))))
(base32 "0kgxyxfw4hkmp9s3nazdqqvbfb4jqwv59mnpaa7g4n63nrqjv06v"))))
(build-system trivial-build-system)
(inputs
`(("bash" ,bash-minimal)

4
gnu/packages/audio.scm
View file

@ -4699,7 +4699,7 @@ (define-public libfdk
(define-public libopenshot-audio
(package
(name "libopenshot-audio")
(version "0.2.0")
(version "0.2.2")
(source (origin
(method git-fetch)
(uri (git-reference
@ -4708,7 +4708,7 @@ (define-public libopenshot-audio
(file-name (git-file-name name version))
(sha256
(base32
"13if0m5mvlqly8gmbhschzb9papkgp3yqivklhb949dhy16m8zgf"))))
"03dygh85riljk7dpn5a5a0d22a2kz45fs13gzwqgnbzzr1k17p2y"))))
(build-system cmake-build-system)
(inputs
`(("alsa-lib" ,alsa-lib)

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

@ -4175,7 +4175,13 @@ (define-public rust-base64-0.13
#:cargo-development-inputs
(("rust-criterion" ,rust-criterion-0.3)
("rust-rand" ,rust-rand-0.6)
("rust-structopt" ,rust-structopt-0.3))))
("rust-structopt" ,rust-structopt-0.3))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-criterion-minor-version
(lambda* _
(substitute* "Cargo.toml"
(("0.3.2") "0.3.3")))))))
(home-page "https://github.com/marshallpierce/rust-base64")
(synopsis "Encodes and decodes base64 as bytes or utf8")
(description
@ -8182,8 +8188,29 @@ (define-public rust-chrono-tz-0.5
TimeZone trait for @code{rust-chrono}.")
(license (list license:expat license:asl2.0))))
(define-public rust-chunked-transfer-1
(package
(name "rust-chunked-transfer")
(version "1.4.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "chunked_transfer" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"0bkdlsrszfcscw3j6yhs7kj6jbp8id47jjk6h9k58px47na5gy7z"))))
(build-system cargo-build-system)
(arguments `(#:skip-build? #t))
(home-page "https://github.com/frewsxcv/rust-chunked-transfer")
(synopsis "Encoder and decoder for HTTP chunked transfer coding")
(description "This package provides an encoder and decoder for HTTP chunked
transfer coding.")
(license license:asl2.0)))
(define-public rust-chunked-transfer-0.3
(package
(inherit rust-chunked-transfer-1)
(name "rust-chunked-transfer")
(version "0.3.1")
(source
@ -8192,15 +8219,7 @@ (define-public rust-chunked-transfer-0.3
(uri (crate-uri "chunked_transfer" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "11yghnd24w0i9p8g368c3pg7qh9nfz7kgri6pywja9pnmakj13a9"))))
(build-system cargo-build-system)
(arguments `(#:skip-build? #t))
(home-page "https://github.com/frewsxcv/rust-chunked-transfer")
(synopsis "Encoder and decoder for HTTP chunked transfer coding")
(description
"This package provides an encoder and decoder for HTTP chunked transfer
coding.")
(license license:asl2.0)))
(base32 "11yghnd24w0i9p8g368c3pg7qh9nfz7kgri6pywja9pnmakj13a9"))))))
(define-public rust-ci-info-0.3
(package
@ -13021,8 +13040,35 @@ (define-public rust-defer-drop-1
thread.")
(license license:mpl2.0)))
(define-public rust-deflate-0.9
(package
(name "rust-deflate")
(version "0.9.1")
(source
(origin
(method url-fetch)
(uri (crate-uri "deflate" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"0w0ww0hrq4bjnihxgbnrri4lj5c8yzg31fyzx36fd9pvvw2vz5az"))))
(build-system cargo-build-system)
(arguments
`(#:tests? #f ; not all test files included
#:cargo-inputs
(("rust-adler32" ,rust-adler32-1)
("rust-gzip-header" ,rust-gzip-header-0.3))
#:cargo-development-inputs
(("rust-miniz-oxide" ,rust-miniz-oxide-0.3))))
(home-page "https://github.com/image-rs/deflate-rs")
(synopsis "DEFLATE, zlib and gzip encoder written in rust")
(description "This package provides a DEFLATE, zlib and gzip encoder
written in rust.")
(license (list license:expat license:asl2.0))))
(define-public rust-deflate-0.8
(package
(inherit rust-deflate-0.9)
(name "rust-deflate")
(version "0.8.6")
(source
@ -13034,20 +13080,14 @@ (define-public rust-deflate-0.8
(sha256
(base32
"0x6iqlayg129w63999kz97m279m0jj4x4sm6gkqlvmp73y70yxvk"))))
(build-system cargo-build-system)
(arguments
`(#:tests? #f ; not all test files included
#:cargo-inputs
(("rust-adler32" ,rust-adler32-1)
("rust-byteorder" ,rust-byteorder-1)
("rust-gzip-header" ,rust-gzip-header-0.3))
(("rust-adler32" ,rust-adler32-1)
("rust-byteorder" ,rust-byteorder-1)
("rust-gzip-header" ,rust-gzip-header-0.3))
#:cargo-development-inputs
(("rust-miniz-oxide" ,rust-miniz-oxide-0.3))))
(home-page "https://github.com/image-rs/deflate-rs")
(synopsis "DEFLATE, zlib and gzip encoder written in rust")
(description
"This package provides a DEFLATE, zlib and gzip encoder written in rust.")
(license (list license:expat license:asl2.0))))
(("rust-miniz-oxide" ,rust-miniz-oxide-0.3))))))
(define-public rust-deflate-0.7
(package
@ -16654,6 +16694,28 @@ (define-public rust-fd-lock-2
(("rust-libc" ,rust-libc-0.2)
("rust-winapi" ,rust-winapi-0.3))))))
(define-public rust-fdlimit-0.1
(package
(name "rust-fdlimit")
(version "0.1.4")
(source
(origin
(method url-fetch)
(uri (crate-uri "fdlimit" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "0g30d6gqkrwy8ylwdy7pqm443iq0p5dmnpz4ks41pirl7dclm98d"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
(("rust-libc" ,rust-libc-0.2))))
(home-page "https://github.com/paritytech/fdlimit")
(synopsis "Utility crate for raising file descriptors limit")
(description "This package provides a Rust library to raise file
descriptors limit.")
(license license:asl2.0)))
(define-public rust-femme-2
(package
(name "rust-femme")
@ -28322,8 +28384,50 @@ (define-public rust-multi-default-trait-impl-0.1
a default trait implementation you've defined.")
(license license:lgpl2.1+)))
(define-public rust-multipart-0.18
(package
(name "rust-multipart")
(version "0.18.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "multipart" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"10libwfbazqcyxcpgpcdf1a66jnzghwlmxlxnffg4rrqhqrwdph0"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-buf-redux" ,rust-buf-redux-0.8)
("rust-clippy" ,rust-clippy-0.0)
("rust-httparse" ,rust-httparse-1)
("rust-hyper" ,rust-hyper-0.10)
("rust-iron" ,rust-iron-0.6)
("rust-lazy-static" ,rust-lazy-static-1)
("rust-log" ,rust-log-0.4)
("rust-mime" ,rust-mime-0.3)
("rust-mime-guess" ,rust-mime-guess-2)
("rust-nickel" ,rust-nickel-0.11)
("rust-quick-error" ,rust-quick-error-1)
("rust-rand" ,rust-rand-0.8)
("rust-rocket" ,rust-rocket-0.4)
("rust-safemem" ,rust-safemem-0.3)
("rust-tempfile" ,rust-tempfile-3)
("rust-tiny-http" ,rust-tiny-http-0.6)
("rust-twoway" ,rust-twoway-0.1))
#:cargo-development-inputs
(("rust-env-logger" ,rust-env-logger-0.5))))
(home-page "https://github.com/abonander/multipart")
(synopsis "Backend-agnostic extension for file uploads in HTTP libraries for Rust")
(description "This package provides a backend-agnostic extension for HTTP
libraries that provides support for POST multipart/form-data requests on both
client and server.")
(license (list license:expat license:asl2.0))))
(define-public rust-multipart-0.17
(package
(inherit rust-multipart-0.18)
(name "rust-multipart")
(version "0.17.1")
(source
@ -28333,7 +28437,6 @@ (define-public rust-multipart-0.17
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "1m3nrydgc56wjixsahipmvjgnxnw2cz7w8ryghsgahwjr3nswl6h"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
@ -28353,15 +28456,9 @@ (define-public rust-multipart-0.17
("rust-safemem" ,rust-safemem-0.3)
("rust-tempfile" ,rust-tempfile-3)
("rust-tiny-http" ,rust-tiny-http-0.6)
("rust-twoway" ,rust-twoway-0.1))))
(home-page "https://github.com/abonander/multipart")
(synopsis
"Backend-agnostic extension for file uploads in HTTP libraries for Rust")
(description
"This package provides a backend-agnostic extension for HTTP libraries
that provides support for POST multipart/form-data requests on both client and
server.")
(license (list license:expat license:asl2.0))))
("rust-twoway" ,rust-twoway-0.1))
#:cargo-development-inputs
(("rust-env-logger" ,rust-env-logger-0.5))))))
(define-public rust-multiversion-0.6
(package
@ -30130,6 +30227,32 @@ (define-public rust-notify-5
"Cross-platform filesystem notification library")
(license (list license:cc0 license:artistic2.0))))
(define-public rust-noise-0.7
(package
(name "rust-noise")
(version "0.7.0")
(source
(origin
(method url-fetch)
(uri (crate-uri "noise" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32
"0hsbw9gpsz8w9msvyvddygagd9wj93hqpg5pxz388laxfkb1s1c2"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-image" ,rust-image-0.23)
("rust-rand" ,rust-rand-0.7)
("rust-rand-xorshift" ,rust-rand-xorshift-0.2))
#:cargo-development-inputs
(("rust-criterion" ,rust-criterion-0.3))))
(home-page "https://github.com/razaekel/noise-rs")
(synopsis "Procedural noise generation library")
(description "This package provides a Rust library to generate smoothly
varying noise for textural use and graphical display.")
(license (list license:asl2.0 license:expat))))
(define-public rust-notify-4
(package
(inherit rust-notify-5)
@ -31722,14 +31845,14 @@ (define-public rust-openssl-probe-0.1
(define-public rust-openssl-sys-0.9
(package
(name "rust-openssl-sys")
(version "0.9.64")
(version "0.9.68")
(source
(origin
(method url-fetch)
(uri (crate-uri "openssl-sys" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "1bsim2zk69q1dw6rixn48l1ci8bmz5kvbkgsks2ci079w0pzr7i0"))
(base32 "0l2ikxygkza3s5q3lvng4mhisdp2vdrvzkhpwhkx8vgnscjiymqw"))
(patches (search-patches "rust-openssl-sys-no-vendor.patch"))))
(build-system cargo-build-system)
(arguments
@ -50856,8 +50979,38 @@ (define-public rust-tint-1
manipulation in Rust.")
(license license:expat)))
(define-public rust-tiny-http-0.8
(package
(name "rust-tiny-http")
(version "0.8.2")
(source
(origin
(method url-fetch)
(uri (crate-uri "tiny-http" version))
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "0fcdwpb2ghk671qjjrk6048hs3yp7f681hxpr68gamk00181prcw"))))
(build-system cargo-build-system)
(arguments
`(#:cargo-inputs
(("rust-ascii" ,rust-ascii-1)
("rust-chrono" ,rust-chrono-0.4)
("rust-chunked-transfer" ,rust-chunked-transfer-1)
("rust-log" ,rust-log-0.4)
("rust-openssl" ,rust-openssl-0.10)
("rust-url" ,rust-url-2))
#:cargo-development-inputs
(("rust-fdlimit" ,rust-fdlimit-0.1)
("rust-rustc-serialize" ,rust-rustc-serialize-0.3)
("rust-sha1" ,rust-sha1-0.6))))
(home-page "https://github.com/tiny-http/tiny-http")
(synopsis "Low level HTTP server library")
(description "This package provides a low level HTTP server library.")
(license (list license:expat license:asl2.0))))
(define-public rust-tiny-http-0.6
(package
(inherit rust-tiny-http-0.8)
(name "rust-tiny-http")
(version "0.6.2")
(source
@ -50867,7 +51020,6 @@ (define-public rust-tiny-http-0.6
(file-name (string-append name "-" version ".tar.gz"))
(sha256
(base32 "0la95daknfh8g951ddb2zdz6av2459rncp6h9dh02pf98h5glq8n"))))
(build-system cargo-build-system)
(arguments
`(#:skip-build? #t
#:cargo-inputs
@ -50876,11 +51028,7 @@ (define-public rust-tiny-http-0.6
("rust-chunked-transfer" ,rust-chunked-transfer-0.3)
("rust-log" ,rust-log-0.4)
("rust-openssl" ,rust-openssl-0.10)
("rust-url" ,rust-url-1))))
(home-page "https://github.com/tiny-http/tiny-http")
(synopsis "Low level HTTP server library")
(description "This package provides a low level HTTP server library.")
(license license:asl2.0)))
("rust-url" ,rust-url-1))))))
(define-public rust-tiny-keccak-2
(package

2
gnu/packages/diffoscope.scm
View file

@ -150,9 +150,9 @@ (define-public diffoscope
("xxd" ,xxd)))
(native-inputs `(("help2man" ,help2man)
;; Below are modules used for tests.
("binwalk" ,binwalk)
("python-pytest" ,python-pytest)
("python-chardet" ,python-chardet)
("python-binwalk" ,python-binwalk)
("python-black" ,python-black)
("python-h5py" ,python-h5py)
("python-pypdf2" ,python-pypdf2)

8
gnu/packages/dunst.scm
View file

@ -38,16 +38,16 @@ (define-module (gnu packages dunst)
(define-public dunst
(package
(name "dunst")
(version "1.6.1")
(version "1.7.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/dunst-project/dunst")
(commit (string-append "v" version))))
(url "https://github.com/dunst-project/dunst")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0lga1kj2vjbj9g9rl93nivngjmk5fkxdxwal8w96x9whwk9jvdga"))))
"0bc8f8h7qvxfx742jb8ggycw3z0il3pgln7lgkdjap2pxccyyrh5"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no check target

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

@ -2114,14 +2114,14 @@ (define-public emacs-eww-lnum
(define emacs-emms-print-metadata
(package
(name "emacs-emms-print-metadata")
(version "7.7")
(version "7.8")
(source
(origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/"
"emms-" version ".tar"))
(sha256
(base32 "0n9nx4wgjxkr8nsxcq8svg0x0qkqj7bsd2j0ihy4jzj29xmyxl0h"))))
(base32 "1nlb9rrdlbcqghph30r9i9m1brbdha818czbms0zhzdisxb0smi0"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags '("emms-print-metadata")
@ -2514,8 +2514,8 @@ (define-public emacs-dhall-mode
(define-public emacs-link-hint
;; Last release was in 2015.
(let ((commit "9fbf196d155016d9b8471a99318ed67a086cf257")
(revision "3"))
(let ((commit "83cd0489b16f013647d0507ef20905a0a91db433")
(revision "4"))
(package
(name "emacs-link-hint")
(version (git-version "0.1" revision commit))
@ -2528,7 +2528,7 @@ (define-public emacs-link-hint
(file-name (git-file-name name version))
(sha256
(base32
"0v2g9gzf2v88ag59q1pf5vhd4qjnz3g4i6gzl27k6fi7pvlxdn39"))))
"0kwaia6i0asr7yqcw1anzq6lf93357cc1fphkvp0llbmxizmkzb3"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-avy" ,emacs-avy)))
@ -3794,7 +3794,7 @@ (define-public emacs-keyfreq
(define-public emacs-olivetti
(package
(name "emacs-olivetti")
(version "2.0.3")
(version "2.0.4")
(source
(origin
(method git-fetch)
@ -3803,7 +3803,7 @@ (define-public emacs-olivetti
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0qhv4ah9bn1mjvivgxp7z1gf91d0cdr2ma5cy5xaja97ispa4l3z"))))
(base32 "0wc0rki4zvzdxs126g5c8d92h1vfn9slfkdx831rr9d0jx93wc7s"))))
(build-system emacs-build-system)
(home-page "https://github.com/rnkn/olivetti")
(synopsis "Emacs minor mode for a nice writing environment")
@ -4330,17 +4330,16 @@ (define-public emacs-el-mock
(define-public emacs-ecukes
(package
(name "emacs-ecukes")
(version "0.6.17")
(home-page "https://github.com/ecukes/ecukes")
(version "0.6.18")
(source
(origin
(method git-fetch)
(uri (git-reference
(url home-page)
(url "https://github.com/ecukes/ecukes")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1isscwz4h3nx62lwfrj899lp2yc27zk1ndgr441d848495ccmshn"))))
(base32 "182qgddfv8nd89y1l55rs5vm5i61ayc8cxbplb8zx0alnid9xrw1"))))
(build-system emacs-build-system)
(arguments
`(#:include (cons* "^feature/" "^reporters/" "^templates/" %default-include)))
@ -4351,6 +4350,7 @@ (define-public emacs-ecukes
("emacs-espuds" ,emacs-espuds)
("emacs-f" ,emacs-f)
("emacs-s" ,emacs-s)))
(home-page "https://github.com/ecukes/ecukes")
(synopsis "Cucumber for Emacs")
(description
"This package provides Ecukes, a Cucumber-inspired integration testing
@ -8203,40 +8203,43 @@ (define-public emacs-solaire-mode
(license license:expat)))
(define-public emacs-embark
(package
(name "emacs-embark")
(version "0.12")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/oantolin/embark")
(commit version)))
(sha256
(base32 "16z7g6ynj4d64wsg49skhwypn5j6awlpsawbz61djsmpzlzjnv36"))
(file-name (git-file-name name version))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-avy" ,emacs-avy)
("emacs-consult" ,emacs-consult)))
(home-page "https://github.com/oantolin/embark")
(synopsis "Emacs mini-buffer actions rooted in keymaps")
(description
"This package provides a sort of right-click contextual menu for Emacs
;; XXX: Upstream did not tag last release. Commit hash below matches
;; version bump.
(let ((commit "bc3e4654329563ab28a96003610634c3a5e5a484"))
(package
(name "emacs-embark")
(version "0.13")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/oantolin/embark")
(commit commit)))
(sha256
(base32 "1x6m6gc32z7kv9nkr8mwhi9mimbwhd37qyxpwj33hml9ygi8s7r6"))
(file-name (git-file-name name version))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-avy" ,emacs-avy)
("emacs-consult" ,emacs-consult)))
(home-page "https://github.com/oantolin/embark")
(synopsis "Emacs mini-buffer actions rooted in keymaps")
(description
"This package provides a sort of right-click contextual menu for Emacs
offering you relevant @emph{actions} to use on a @emph{target} determined by
the context.
In the minibuffer, the target is the current best completion candidate. In
the @code{*Completions*} buffer the target is the completion at point.
n a regular buffer, the target is the region if active, or else the file,
symbol or URL at point.
the @code{*Completions*} buffer the target is the completion at point. In
a regular buffer, the target is the region if active, or else the file, symbol
or URL at point.
The type of actions offered depend on the type of the target. For files you
get offered actions like deleting, copying, renaming, visiting in another
window, running a shell command on the file, etc. For buffers the actions
include switching to or killing the buffer. For package names the actions
include installing, removing or visiting the homepage.")
(license license:gpl3+)))
(license license:gpl3+))))
(define-public emacs-prescient
(package
@ -12295,8 +12298,12 @@ (define-public emacs-org-contrib
;; XXX: ob-sclang.el is packaged separately to avoid the dependency on
;; SuperCollider and qtwebengine. This will be unnecessary in 0.4+
;; release as the file is going to be removed from the repository.
;; XXX: org-contacts.el is now maintained in a separate repository and
;; will soon be removed from org-contrib
(modules '((guix build utils)))
(snippet '(begin (delete-file "lisp/ob-sclang.el")))))
(snippet '(begin (delete-file "lisp/ob-sclang.el")
(delete-file "lisp/org-contacts.el")))))
(build-system emacs-build-system)
(arguments
`(#:phases
@ -12316,6 +12323,30 @@ (define-public emacs-org-contrib
compatible with the Org stable version.")
(license license:gpl3+)))
(define-public emacs-org-contacts
;;; XXX: Upstream made no release yet.
(let ((commit "3d2f39f62aefb0a32d10607703e8b1d4f43821fa")
(revision "0"))
(package
(name "emacs-org-contacts")
(version (git-version "0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/stardiviner/org-contacts.el")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0a654406w8zd1hbp8ckc975jhl9mi14xzqizzwiki625dymiw5g5"))))
(build-system emacs-build-system)
(home-page "https://github.com/stardiviner/org-contacts.el")
(synopsis "Contacts management system for Org mode")
(description "Manage your contacts from Org mode. You can auto
complete email addresses, export contacts to a vCard file, put birthdays
in your Org Agenda, and more.")
(license license:gpl3+))))
(define-public emacs-org-pretty-table
;; There is no release yet.
(let ((commit "1331c600b83d95b28730b1bfcb48369ac1cf12ef")
@ -14046,7 +14077,7 @@ (define-public emacs-xelb
(define-public emacs-exwm
(package
(name "emacs-exwm")
(version "0.24")
(version "0.25")
(synopsis "Emacs X window manager")
(source
(origin
@ -14054,12 +14085,7 @@ (define-public emacs-exwm
(uri (string-append "https://elpa.gnu.org/packages/"
"exwm-" version ".tar"))
(sha256
(base32 "0lj1a3cmbpf4h6x8k6x8cdm1qb51ca6filydnvi5zcda8zpl060s"))
(patches
;; Patch fixing fullscreen view. Applied upstream as
;; edb930005b0ba83051ca8a59b493e9a3c8ef580a. It can be removed in
;; next release.
(search-patches "emacs-exwm-fix-fullscreen-states.patch"))))
(base32 "0imd4v9ccvpsskmfnycz5fgabsvdjp1msg5v8rc7x0v26r3kr4x7"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-xelb" ,emacs-xelb)))
@ -18951,7 +18977,7 @@ (define-public emacs-org-reveal
(define-public emacs-org-re-reveal
(package
(name "emacs-org-re-reveal")
(version "3.12.3")
(version "3.12.4")
(source
(origin
(method git-fetch)
@ -18960,7 +18986,7 @@ (define-public emacs-org-re-reveal
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "08ai87b6nybg0l7y8falb53wwvdv8hr3jzj5q995x48ylw6r1582"))))
(base32 "0j7394zcbzqfk33g2xdyb3fmw3brxy8v66vvf1j9nqlskfddh7bn"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-htmlize" ,emacs-htmlize)
@ -21684,7 +21710,7 @@ (define-public emacs-racer
(define-public emacs-rust-mode
(package
(name "emacs-rust-mode")
(version "1.0.0")
(version "1.0.1")
(source
(origin
(method git-fetch)
@ -21693,7 +21719,7 @@ (define-public emacs-rust-mode
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "08gz7wq1las3bqqs8qhmhmncax4j6kjnyxpfzslby3b1dkclc7ig"))))
(base32 "1chb3a97cwf1pkxn8cm3wc35gfh9k55l7khg7pklmx36isr3csjv"))))
(build-system emacs-build-system)
(arguments
`(#:tests? #false ;FIXME: phase fail with status 127
@ -21706,45 +21732,42 @@ (define-public emacs-rust-mode
license:asl2.0))))
(define-public emacs-rustic
;; XXX: Upstream does not tag releases. Version is extracted from main
;; file.
(let ((commit "bbf129cd128105de51b6c242b2551094b8d8987d")
(revision "0"))
(package
(name "emacs-rustic")
(version (git-version "1.3" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/brotzeit/rustic")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "09dnlvi8kf683n6q3yp4gy9d4idiyg4x6rcij8d90cvygh8i30wd"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-dash" ,emacs-dash)
("emacs-f" ,emacs-f)
("emacs-flycheck" ,emacs-flycheck)
("emacs-lsp-mode" ,emacs-lsp-mode)
("emacs-markdown-mode" ,emacs-markdown-mode)
("emacs-project" ,emacs-project)
("emacs-s" ,emacs-s)
("emacs-spinner" ,emacs-spinner)
("emacs-xterm-color" ,emacs-xterm-color)))
(arguments
;; Tests require rust, cargo, rustfmt, and various crates to be
;; vendored.
`(#:tests? #f
#:phases
(modify-phases %standard-phases
(add-before 'check 'set-without-cask
(lambda _
(setenv "WITHOUT_CASK" "1"))))))
(home-page "https://github.com/brotzeit/rustic")
(synopsis "Rust development environment for Emacs")
(description "Rustic is a fork of Rust mode.
(package
(name "emacs-rustic")
(version "2.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/brotzeit/rustic")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1x06lp0c656zm07n28lnkqp678y4f9zkd9n5m0lramndllrpk3x2"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-dash" ,emacs-dash)
("emacs-f" ,emacs-f)
("emacs-flycheck" ,emacs-flycheck)
("emacs-lsp-mode" ,emacs-lsp-mode)
("emacs-markdown-mode" ,emacs-markdown-mode)
("emacs-project" ,emacs-project)
("emacs-rust-mode" ,emacs-rust-mode)
("emacs-s" ,emacs-s)
("emacs-spinner" ,emacs-spinner)
("emacs-xterm-color" ,emacs-xterm-color)))
(arguments
;; Tests require rust, cargo, rustfmt, and various crates to be
;; vendored.
`(#:tests? #f
#:phases
(modify-phases %standard-phases
(add-before 'check 'set-without-cask
(lambda _
(setenv "WITHOUT_CASK" "1"))))))
(home-page "https://github.com/brotzeit/rustic")
(synopsis "Rust development environment for Emacs")
(description "Rustic is a fork of Rust mode.
In addition to its predecessor, it offers the following features:
@itemize
@item Flycheck integration,
@ -21758,8 +21781,8 @@ (define-public emacs-rustic
@item optional Rust inline documentation,
@item etc.
@end itemize")
(license (list license:expat
license:asl2.0)))))
(license (list license:expat
license:asl2.0))))
(define-public emacs-ztree
;; Upstream provides no tag, but the commit below matches latest release.
@ -23810,7 +23833,7 @@ (define-public emacs-pfuture
(define-public emacs-treemacs
(package
(name "emacs-treemacs")
(version "2.9.4")
(version "2.9.5")
(source
(origin
(method git-fetch)
@ -23819,7 +23842,7 @@ (define-public emacs-treemacs
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1g2fy2qkscqx01av92hpjbr6qld8s1gk59cdjbff8fm0vlx8xk2p"))))
(base32 "01qrprxfwmdzak77k2qa9fc2kb4hxddbvj30avqglj9sjaid9wmq"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-ace-window" ,emacs-ace-window)
@ -24161,16 +24184,16 @@ (define-public emacs-elmacro
(define-public emacs-transient
(package
(name "emacs-transient")
(version "0.3.6")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/magit/transient")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"10k9dzs8y6i0rfckclxm5n3maylmh95993n5dvrs8rbmlcpmihvy"))))
(version "0.3.7")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/magit/transient")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0c7wbd0j0b802bzdpdkrx2q7wm7b9s56rk554dnadkpywhmdiqwn"))))
(build-system emacs-build-system)
(arguments
`(#:tests? #f ;no test suite
@ -25308,14 +25331,14 @@ (define-public emacs-counsel-tramp
(define-public emacs-tramp
(package
(name "emacs-tramp")
(version "2.5.1.3")
(version "2.5.1.4")
(source
(origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/"
"tramp-" version ".tar"))
(sha256
(base32 "1qcwdavfrbw8yyfy5rbzbcfyqavqbz13jncahkqlgwbkqvmgh7y5"))))
(base32 "0mk9r9hj43klah7mwldg4bw7fxcqvrbwv1gj6g90zdfsflqy7nh9"))))
(build-system emacs-build-system)
(arguments
`(#:emacs ,emacs ;need D-Bus
@ -28732,7 +28755,7 @@ (define-public emacs-tshell
(define-public emacs-extmap
(package
(name "emacs-extmap")
(version "1.2")
(version "1.2.1")
(source
(origin
(method git-fetch)
@ -28741,11 +28764,11 @@ (define-public emacs-extmap
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0dl630jl46jz5slpv28l8b745051ghp0g296x5180vl5v88v3hsl"))))
(base32 "00415w4l9wfpw9v0a35dm1av2w1m6s36yr9f9286jg844x6l375f"))))
(build-system emacs-build-system)
(home-page "https://github.com/doublep/extmap")
(synopsis "Externally-stored constant mapping for Emacs Lisp")
(description "A very simple package that lets you build a
(description "Extmap is a very simple package that lets you build a
read-only, constant database that maps Emacs Lisp symbols to
arbitrary Emacs Lisp objects.")
(license license:gpl3+)))
@ -28873,6 +28896,26 @@ (define-public emacs-org-webring
displayed for sharing.")
(license license:gpl3+)))
(define-public emacs-orglink
(package
(name "emacs-orglink")
(version "1.1.6")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/tarsius/orglink")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0ipy1p2cr5i0465hchqazmgn9jrgwzbyrb3prfgkl7z2m1gd7fcg"))))
(build-system emacs-build-system)
(home-page "https://github.com/tarsius/orglink")
(synopsis "Use Org mode links in other modes")
(description "This library implements support for some Org mode link types
in other major modes. Links can be opened and edited like in Org mode.")
(license license:gpl3+)))
(define-public emacs-scpaste
(let ((commit "cd4fa0aafecd839736e0b6cba68b4fc4d7045472")
(revision "0"))

63
gnu/packages/games.scm
View file

@ -7502,7 +7502,7 @@ (define-public gzdoom
(define-public odamex
(package
(name "odamex")
(version "0.9.3")
(version "0.9.5")
(source
(origin
(method url-fetch)
@ -7510,7 +7510,7 @@ (define-public odamex
"mirror://sourceforge/odamex/Odamex/" version "/"
"odamex-src-" version ".tar.bz2"))
(sha256
(base32 "0vmw9ijb6n4wrxjxixakn7l6a6carnvs9wbbzb4vcq1brbzyrb0p"))))
(base32 "1x0c9vnwn336inkfamh4na8xjyfjmzfxfn49j4snqymkypjqw6jq"))))
(build-system cmake-build-system)
(arguments `(#:tests? #f)) ; no tests
(native-inputs
@ -8022,6 +8022,65 @@ (define-public frotz
(home-page "http://frotz.sourceforge.net")
(license license:gpl2+)))
(define-public naev
(package
(name "naev")
(version "0.8.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/naev/naev")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "02rk2fv2nhx5xsi0cariisamab3dpncwps4q3i3ki0y27xpwxzfx"))))
(build-system meson-build-system)
(arguments
;; XXX: Do not add debugging symbols, which cause the build to fail.
`(#:configure-flags (list "--buildtype=release")
#:tests? #f)) ;sole test fails with a missing "/dev/dri" error
(native-inputs
`(("gettext" ,gettext-minimal)
("pkg-config" ,pkg-config)))
(inputs
`(("freetype" ,freetype)
("glpk" ,glpk)
("libpng" ,libpng)
("libvorbis" ,libvorbis)
("libwebp" ,libwebp)
("libxml2" ,libxml2)
("luajit" ,luajit)
("openal" ,openal)
("openblas" ,openblas)
("physfs" ,physfs)
("sdl" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer)))
("suitesparse" ,suitesparse)))
(home-page "https://naev.org/")
(synopsis "Game about space exploration, trade and combat")
(description
"Naev is a 2d action/rpg space game that combines elements from
the action, RPG and simulation genres. You pilot a spaceship from
a top-down perspective, and are more or less free to do what you want.
As the genre name implies, you’re able to trade and engage in combat
at will. Beyond that, there’s an ever-growing number of story-line
missions, equipment, and ships; even the galaxy itself grows larger
with each release. For the literacy-inclined, there are large amounts
of lore accompanying everything from planets to equipment.")
(license (list license:gpl3
license:public-domain
license:expat ;edtaa3func.c
license:bsd-2 ;distance_field.c
license:bsd-3 ;perlin.c
;; Assets.
license:silofl1.1
license:gpl2+
license:cc0
license:cc-by3.0
license:cc-by-sa3.0
license:cc-by4.0
license:cc-by-sa4.0))))
(define-public frotz-dumb-terminal
(package
(name "frotz-dumb-terminal")

13
gnu/packages/gnuzilla.scm
View file

@ -710,8 +710,8 @@ (define all-mozilla-locales
;; XXXX: Workaround 'snippet' limitations.
(define computed-origin-method (@@ (guix packages) computed-origin-method))
(define %icecat-version "91.2.0-guix0-preview1")
(define %icecat-build-id "20211006000000") ;must be of the form YYYYMMDDhhmmss
(define %icecat-version "91.3.0-guix0-preview1")
(define %icecat-build-id "20211102000000") ;must be of the form YYYYMMDDhhmmss
;; 'icecat-source' is a "computed" origin that generates an IceCat tarball
;; from the corresponding upstream Firefox ESR tarball, using the 'makeicecat'
@ -733,11 +733,11 @@ (define icecat-source
"firefox-" upstream-firefox-version ".source.tar.xz"))
(sha256
(base32
"1hs2bvzl0d4kfir3gq997kwxm90ygapqn6xlw47cihnh479wzwry"))))
"0v79c435vfbhsx7pqyq4jm5rv8iysig69wwqhvys1n0jy54m72qj"))))
(upstream-icecat-base-version "91.2.0") ; maybe older than base-version
(upstream-icecat-base-version "91.3.0") ; maybe older than base-version
;;(gnuzilla-commit (string-append "v" upstream-icecat-base-version))
(gnuzilla-commit "1537880dac3087d3779543303f0df83432831166")
(gnuzilla-commit "32631cac00953abbac61dc7ab1a0eafbdd59b53a")
(gnuzilla-source
(origin
(method git-fetch)
@ -749,7 +749,7 @@ (define icecat-source
(string-take gnuzilla-commit 8)))
(sha256
(base32
"16r42hp05qmiifw8ym89328w5b4flp3hngpjwbrzgq23q1qmixa9"))))
"13ckga49h5azf0c6q3c6b6wcmahzyywryxgwmwr1dahsjgy0wwrw"))))
;; 'search-patch' returns either a valid file name or #f, so wrap it
;; in 'assume-valid-file-name' to avoid 'local-file' warnings.
@ -1158,6 +1158,7 @@ (define (runpaths-of-input label)
"/share/mime")
,(string-append (assoc-ref inputs "font-dejavu")
"/share/fonts")
"/run/current-system/profile/share/fonts"
,@(append-map runpaths-of-input
'("mesa" "ffmpeg"))))))
(whitelist-string (string-join whitelist ","))

4
gnu/packages/graphics.scm
View file

@ -932,14 +932,14 @@ (define-public lib2geom
(define-public pstoedit
(package
(name "pstoedit")
(version "3.75")
(version "3.77")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/pstoedit/pstoedit/"
version "/pstoedit-" version ".tar.gz"))
(sha256
(base32
"1kv46g2wsvsvcngkavxl5gnw3l6g5xqnh4kmyx4b39a01d8xiddp"))))
"02av76j75g5sq3bg353yl6dlllda9ihmmk4c8hvgiscix816nv4s"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))

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

@ -3145,6 +3145,16 @@ (define-public guile-gi
(ice-9 rdelim))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'remove-dotted-circle-from-combining-character
;; The test/string.scm files contain ◌̀, which is a dotted circle
;; (U+25cc) followed by an upper combining character (U+0300). The
;; old guile 3.0.2 reader incorrectly ignores the dotted circle,
;; and parses it as the combining character alone, but the new
;; guile reader does not.
;; See https://github.com/spk121/guile-gi/issues/112
(lambda* _
(substitute* "test/string.scm"
(("#\\\\◌̀") "#\\x0300"))))
(add-after 'unpack 'patch-references-to-extension
(lambda* (#:key outputs #:allow-other-keys)
(let ((effective (read-line

12
gnu/packages/haskell-check.scm
View file

@ -1208,7 +1208,7 @@ (define-public ghc-cabal-doctest
(define-public ghc-tasty-silver
(package
(name "ghc-tasty-silver")
(version "3.2.2")
(version "3.2.3")
(source
(origin
(method url-fetch)
@ -1217,7 +1217,7 @@ (define-public ghc-tasty-silver
version
".tar.gz"))
(sha256
(base32 "0zsl6nna8ir215qyxhyh2czx4i16hzw1n1m8jw8ym02j6sp6iz13"))))
(base32 "0nvh2k8iqqkanmp7lpwd3asimyarzisly8wavbdahcxryn0j4xb7"))))
(build-system haskell-build-system)
(inputs
`(("ghc-ansi-terminal" ,ghc-ansi-terminal)
@ -1225,13 +1225,13 @@ (define-public ghc-tasty-silver
("ghc-optparse-applicative" ,ghc-optparse-applicative)
("ghc-process-extras" ,ghc-process-extras)
("ghc-regex-tdfa" ,ghc-regex-tdfa)
("ghc-semigroups" ,ghc-semigroups)
("ghc-tagged" ,ghc-tagged)
("ghc-tasty" ,ghc-tasty)
("ghc-temporary" ,ghc-temporary)))
(native-inputs `(("ghc-tasty-hunit" ,ghc-tasty-hunit)))
(arguments
`(#:cabal-revision
("1" "0mgdk77xz38zc46qbxvss6vnp4yk328zbpw1l0c1n0f5gyf6sbav")))
(native-inputs
`(("ghc-tasty-hunit" ,ghc-tasty-hunit)
("ghc-silently" ,ghc-silently)))
(home-page "https://github.com/phile314/tasty-silver")
(synopsis "Fancy test runner, including support for golden tests")
(description

24
gnu/packages/haskell-crypto.scm
View file

@ -201,7 +201,7 @@ (define-public ghc-cryptohash
(define-public ghc-cryptohash-md5
(package
(name "ghc-cryptohash-md5")
(version "0.11.100.1")
(version "0.11.101.0")
(source
(origin
(method url-fetch)
@ -210,17 +210,13 @@ (define-public ghc-cryptohash-md5
"cryptohash-md5-" version ".tar.gz"))
(sha256
(base32
"1y8q7s2bn4gdknw1wjikdnar2b5pgz3nv3220lxrlgpsf23x82vi"))))
"018g13hkmq5782i24b4518hcd926fl6x6fh5hd7b9wlxwc5dn21v"))))
(build-system haskell-build-system)
(arguments
`(#:cabal-revision
("6" "191nvffcrlyvr5dq99bbdxxl2qx44bla9adkhklyknf7ipqdd4yj")
#:tests? #f)) ; tests require old version of ghc-hunit (0.9)
(native-inputs `(("ghc-base16-bytestring" ,ghc-base16-bytestring)
("ghc-puremd5" ,ghc-puremd5)
("ghc-tasty" ,ghc-tasty)
("ghc-tasty-quickcheck" ,ghc-tasty-quickcheck)
("ghc-hunit" ,ghc-hunit)))
("ghc-tasty-hunit" ,ghc-tasty-hunit)
("ghc-tasty-quickcheck" ,ghc-tasty-quickcheck)))
(home-page "https://github.com/hvr/cryptohash-md5")
(synopsis "MD5 implementation for Haskell")
(description "This Haskell package provides implementation of MD5.")
@ -263,7 +259,7 @@ (define-public ghc-cryptohash-sha1
(define-public ghc-cryptohash-sha256
(package
(name "ghc-cryptohash-sha256")
(version "0.11.102.0")
(version "0.11.102.1")
(source
(origin
(method url-fetch)
@ -272,7 +268,7 @@ (define-public ghc-cryptohash-sha256
"cryptohash-sha256-" version ".tar.gz"))
(sha256
(base32
"0685s4hfighzywvvn05cfff5bl2xz3wq0pfncv6zca4iba3ykmla"))))
"1xkb7iqplbw4fy1122p79xf1zcb7k44rl0wmfj1q06l7cdqxr9vk"))))
(build-system haskell-build-system)
(arguments
`(#:cabal-revision
@ -409,7 +405,7 @@ (define-public ghc-pem
(define-public ghc-puremd5
(package
(name "ghc-puremd5")
(version "2.1.3")
(version "2.1.4")
(source
(origin
(method url-fetch)
@ -418,7 +414,7 @@ (define-public ghc-puremd5
"pureMD5-" version ".tar.gz"))
(sha256
(base32
"0zdilz41cla2ck7mcw1a9702gyg2abq94mqahr4vci9sbs53bwxy"))))
"0qwkvxwi9wh6knn69rg2hvc8ngmv1if77kmpcnp0xqr0l30fwavq"))))
(build-system haskell-build-system)
(inputs `(("ghc-cereal" ,ghc-cereal)
("ghc-crypto-api" ,ghc-crypto-api)
@ -784,7 +780,7 @@ (define-public ghc-tls
(define-public ghc-hsopenssl
(package
(name "ghc-hsopenssl")
(version "0.11.7.1")
(version "0.11.7.2")
(source
(origin
(method url-fetch)
@ -792,7 +788,7 @@ (define-public ghc-hsopenssl
"HsOpenSSL/HsOpenSSL-" version ".tar.gz"))
(sha256
(base32
"1vkcs0crifjpgr1rxkbzkwyhl4zg84m5bfxkp095mgry557gqzm8"))))
"0ysdfl8ck3nzhx597fa13dqf31jq5gzwajlak6r91jajks9w0dl5"))))
(build-system haskell-build-system)
(arguments
`(#:extra-directories ("openssl")))

26
gnu/packages/haskell-web.scm
View file

@ -539,7 +539,7 @@ (define-public ghc-wai-logger
(define-public ghc-wai-extra
(package
(name "ghc-wai-extra")
(version "3.1.6")
(version "3.1.7")
(source
(origin
(method url-fetch)
@ -549,35 +549,32 @@ (define-public ghc-wai-extra
".tar.gz"))
(sha256
(base32
"03bbhmy8dc2ivhgbsrc39wk5kb9ci4p98pb2qcq2w92imy710cj6"))))
"1avf7bjcsbs8l6klp5kkd0cd2dc5n0j0a2yf8813pnwfn5b7qyd4"))))
(build-system haskell-build-system)
(inputs
`(("ghc-ansi-terminal" ,ghc-ansi-terminal)
("ghc-base64-bytestring" ,ghc-base64-bytestring)
("ghc-call-stack" ,ghc-call-stack)
("ghc-cookie" ,ghc-cookie)
("ghc-network" ,ghc-network)
("ghc-lifted-base" ,ghc-lifted-base)
("ghc-streaming-commons" ,ghc-streaming-commons)
("ghc-stringsearch" ,ghc-stringsearch)
("ghc-resourcet" ,ghc-resourcet)
("ghc-fast-logger" ,ghc-fast-logger)
("ghc-wai-logger" ,ghc-wai-logger)
("ghc-zlib" ,ghc-zlib)
("ghc-word8" ,ghc-word8)
("ghc-iproute" ,ghc-iproute)
("ghc-void" ,ghc-void)
("ghc-wai" ,ghc-wai)
("ghc-http-types" ,ghc-http-types)
("ghc-http2" ,ghc-http2)
("ghc-case-insensitive" ,ghc-case-insensitive)
("ghc-data-default-class" ,ghc-data-default-class)
("ghc-unix-compat" ,ghc-unix-compat)
("ghc-vault" ,ghc-vault)
("ghc-aeson" ,ghc-aeson)))
(native-inputs
`(("hspec-discover" ,hspec-discover)
("ghc-hspec" ,ghc-hspec)
("ghc-hunit" ,ghc-hunit)))
("ghc-hunit" ,ghc-hunit)
("ghc-zlib" ,ghc-zlib)))
(home-page "https://github.com/yesodweb/wai")
(synopsis "Some basic WAI handlers and middleware")
(description "This library provides basic WAI handlers and middleware
@ -724,7 +721,7 @@ (define-public ghc-tls-session-manager
(define-public ghc-warp-tls
(package
(name "ghc-warp-tls")
(version "3.3.1")
(version "3.3.2")
(source
(origin
(method url-fetch)
@ -733,7 +730,7 @@ (define-public ghc-warp-tls
"warp-tls-" version ".tar.gz"))
(sha256
(base32
"1k8f3r0l36mgwm69fikprv6pyjzj15702kq25dr9nc3sv5lcs162"))))
"0b9viw26ymzq4q8snfddz3w59sqcf5ankxnw6f99iacxjhk6zs6m"))))
(build-system haskell-build-system)
(inputs
`(("ghc-cryptonite" ,ghc-cryptonite)
@ -742,6 +739,7 @@ (define-public ghc-warp-tls
("ghc-streaming-commons" ,ghc-streaming-commons)
("ghc-tls" ,ghc-tls)
("ghc-tls-session-manager" ,ghc-tls-session-manager)
("ghc-unliftio" ,ghc-unliftio)
("ghc-wai" ,ghc-wai)
("ghc-warp" ,ghc-warp)))
(home-page "https://github.com/yesodweb/wai")
@ -1057,7 +1055,7 @@ (define-public ghc-aeson
(define-public ghc-aeson-pretty
(package
(name "ghc-aeson-pretty")
(version "0.8.8")
(version "0.8.9")
(source (origin
(method url-fetch)
(uri (string-append
@ -1065,7 +1063,7 @@ (define-public ghc-aeson-pretty
version ".tar.gz"))
(sha256
(base32
"09n7gs91y1fbw6gjszrd2na3isnvk3y5rsi90lzjrwywnqfadkl1"))))
"021az9az6xik9c9s3rnar5fr1lgy2h3igibf5ixnc7ps3m2lzg2x"))))
(build-system haskell-build-system)
(inputs
`(("ghc-aeson" ,ghc-aeson)
@ -1090,14 +1088,14 @@ (define-public ghc-aeson-pretty
(define-public ghc-aeson-qq
(package
(name "ghc-aeson-qq")
(version "0.8.3")
(version "0.8.4")
(source (origin
(method url-fetch)
(uri (string-append "https://hackage.haskell.org/package/"
"aeson-qq/aeson-qq-" version ".tar.gz"))
(sha256
(base32
"10plwzz05qc8068av00jak8rcciw99cbxh3lkx522lmzi37jjccg"))))
"0dpklq2xdhrkg1rdc7zfdjnzm6c3qxx2i1xskrqdxpqi84ffnlyh"))))
(build-system haskell-build-system)
(inputs
`(("ghc-base-compat" ,ghc-base-compat)

228
gnu/packages/haskell-xyz.scm
View file

@ -212,7 +212,7 @@ (define-public ghc-adjunctions
(define-public ghc-aeson-compat
(package
(name "ghc-aeson-compat")
(version "0.3.9")
(version "0.3.10")
(source
(origin
(method url-fetch)
@ -221,30 +221,25 @@ (define-public ghc-aeson-compat
"aeson-compat-" version ".tar.gz"))
(sha256
(base32
"1j13gykv4ryvmr14w5blz0nnpdb4p0hpa27wahw3mhb1lwdr8hz0"))))
"0ia3qfdpbrzhwwg4ywpdwca0z1m85k081pcz6jh1sx8qjsvcr71w"))))
(build-system haskell-build-system)
(arguments
`(#:cabal-revision
("7" "15aflmqs5y0yg2p4042yvnhxyp11ndlihs1dxj21bxfdzd1bbkrn")))
(inputs `(("ghc-base-compat" ,ghc-base-compat)
("ghc-aeson" ,ghc-aeson)
("ghc-attoparsec" ,ghc-attoparsec)
("ghc-attoparsec" ,ghc-attoparsec-iso8601)
("ghc-exceptions" ,ghc-exceptions)
("ghc-attoparsec-iso8601" ,ghc-attoparsec-iso8601)
("ghc-hashable" ,ghc-hashable)
("ghc-scientific" ,ghc-scientific)
("ghc-time-locale-compat" ,ghc-time-locale-compat)
("ghc-unordered-containers" ,ghc-unordered-containers)
("ghc-vector" ,ghc-vector)
("ghc-tagged" ,ghc-tagged)
("ghc-semigroups" ,ghc-semigroups)
("ghc-nats" ,ghc-nats)))
("ghc-tagged" ,ghc-tagged)))
(native-inputs
`(("ghc-tasty" ,ghc-tasty)
("ghc-tasty-hunit" ,ghc-tasty-hunit)
("ghc-tasty-quickcheck" ,ghc-tasty-quickcheck)
("ghc-quickcheck" ,ghc-quickcheck)
("ghc-quickcheck-instances" ,ghc-quickcheck-instances)))
("ghc-quickcheck-instances" ,ghc-quickcheck-instances)
("ghc-base-orphans" ,ghc-base-orphans)))
(home-page "https://github.com/phadej/aeson-compat")
(synopsis "Compatibility layer for ghc-aeson")
(description "This Haskell package provides compatibility layer for
@ -506,7 +501,7 @@ (define-public ghc-assoc
(define-public ghc-async
(package
(name "ghc-async")
(version "2.2.3")
(version "2.2.4")
(source
(origin
(method url-fetch)
@ -516,11 +511,12 @@ (define-public ghc-async
".tar.gz"))
(sha256
(base32
"0p4k6872pj0aykbnc19ilam1h8fgskxlwpyg5qisaivr0fhg6yj6"))))
"09d7w3krfhnmf9dp6yffa9wykinhw541wibnjgnlyv77w1dzhka8"))))
(build-system haskell-build-system)
(inputs
`(("ghc-hashable" ,ghc-hashable)
("ghc-hunit" ,ghc-hunit)
`(("ghc-hashable" ,ghc-hashable)))
(native-inputs
`(("ghc-hunit" ,ghc-hunit)
("ghc-test-framework" ,ghc-test-framework)
("ghc-test-framework-hunit" ,ghc-test-framework-hunit)))
(home-page "https://github.com/simonmar/async")
@ -1133,7 +1129,7 @@ (define-public ghc-bitarray
(define-public ghc-blaze-builder
(package
(name "ghc-blaze-builder")
(version "0.4.2.1")
(version "0.4.2.2")
(source
(origin
(method url-fetch)
@ -1143,11 +1139,18 @@ (define-public ghc-blaze-builder
".tar.gz"))
(sha256
(base32
"01hbx82djckj2x74sk9kc79111djq7f2af3zl5i21y9zkjy8js3f"))))
"0rxg6vjr0ji6g1nngrqpl4k1q9w66fwkhld9cqm5yfhx0a69kp1c"))))
(build-system haskell-build-system)
(arguments `(#:tests? #f)) ; FIXME: Missing test libraries.
(inputs
`(("ghc-utf8-string" ,ghc-utf8-string)))
`(("ghc-bytestring-builder" ,ghc-bytestring-builder)
("ghc-semigroups" ,ghc-semigroups)))
(native-inputs
`(("ghc-hunit" ,ghc-hunit)
("ghc-quickcheck" ,ghc-quickcheck)
("ghc-test-framework" ,ghc-test-framework)
("ghc-test-framework-hunit" ,ghc-test-framework-hunit)
("ghc-test-framework-quickcheck2" ,ghc-test-framework-quickcheck2)
("ghc-utf8-string" ,ghc-utf8-string)))
(home-page "https://github.com/lpsmith/blaze-builder")
(synopsis "Efficient buffered output")
(description "This library provides an implementation of the older
@ -1367,7 +1370,7 @@ (define-public ghc-bytestring-handle
(define-public ghc-bytestring-lexing
(package
(name "ghc-bytestring-lexing")
(version "0.5.0.2")
(version "0.5.0.7")
(source
(origin
(method url-fetch)
@ -1376,8 +1379,12 @@ (define-public ghc-bytestring-lexing
version ".tar.gz"))
(sha256
(base32
"0wrzniawhgpphc6yx1v972gyqxdbv0pizaz9bafahrshyb9svy81"))))
"1p7i2haix4m11an3djaq65cnd293hzwqy4cd2i8jxzcl248pk6iy"))))
(build-system haskell-build-system)
(native-inputs
`(("ghc-tasty" ,ghc-tasty)
("ghc-tasty-quickcheck" ,ghc-tasty-quickcheck)
("ghc-tasty-smallcheck" ,ghc-tasty-smallcheck)))
(home-page "http://code.haskell.org/~wren/")
(synopsis "Parse and produce literals from strict or lazy bytestrings")
(description
@ -1645,7 +1652,7 @@ (define-public ghc-cassava
(define-public ghc-cassava-megaparsec
(package
(name "ghc-cassava-megaparsec")
(version "2.0.2")
(version "2.0.4")
(source
(origin
(method url-fetch)
@ -1656,7 +1663,7 @@ (define-public ghc-cassava-megaparsec
".tar.gz"))
(sha256
(base32
"03x1462agrfdagklp8c89b8p4z2hd8nbf6d3895sz770zjkawda7"))))
"0pg9z38jmrylbj683b6pf7psipp7lrdq6mn1hbj8v2gj5lh8yf8n"))))
(build-system haskell-build-system)
(inputs
`(("ghc-cassava" ,ghc-cassava)
@ -4059,7 +4066,7 @@ (define-public ghc-errors
(define-public ghc-esqueleto
(package
(name "ghc-esqueleto")
(version "3.5.2.2")
(version "3.5.3.0")
(source
(origin
(method url-fetch)
@ -4067,7 +4074,7 @@ (define-public ghc-esqueleto
"esqueleto/esqueleto-" version ".tar.gz"))
(sha256
(base32
"19m4lzxhjakf1zbsvwa0xmhcln1wb8ydbsnfyhiwhgvryrhvw9ga"))))
"0z3cf49sha6q965qw2m08jfmb91ki2rsdpnr7l39lka5b4ffxjlz"))))
(build-system haskell-build-system)
(arguments
`(#:tests? #f)) ; TODO: Cannot connect to mysql server.
@ -6063,7 +6070,7 @@ (define-public ghc-hourglass
(define-public ghc-hpack
(package
(name "ghc-hpack")
(version "0.34.4")
(version "0.34.5")
(source
(origin
(method url-fetch)
@ -6071,7 +6078,7 @@ (define-public ghc-hpack
"hpack-" version ".tar.gz"))
(sha256
(base32
"1xszy00al5zzga64gh7nvgqc93242f61kqy8lb09jkm98a8fs4bl"))))
"0gmm6jgi1sgyilphww6apq1x04grqznm7xhyb7g1rj5j7my40ws2"))))
(build-system haskell-build-system)
(inputs
`(("ghc-aeson" ,ghc-aeson)
@ -6189,29 +6196,29 @@ (define-public ghc-hslogger
(define-public ghc-hslua
(package
(name "ghc-hslua")
(version "1.3.0.1")
(version "1.3.0.2")
(source (origin
(method url-fetch)
(uri (string-append "https://hackage.haskell.org/package/"
"hslua/hslua-" version ".tar.gz"))
(sha256
(base32
"1mz8zk13dhgaf24hmmjqnn5hcln96iw73mcjwjilag8388wq72k7"))))
"0p39xm0mmxzs5x6aim11qkb7npn0d9h7li2kwfhry0dijd1vm18i"))))
(build-system haskell-build-system)
(arguments
`(#:configure-flags '("-fsystem-lua")
#:extra-directories ("lua")))
(inputs
`(("lua" ,lua)
("ghc-exceptions" ,ghc-exceptions)
("ghc-fail" ,ghc-fail)))
("ghc-base-compat" ,ghc-base-compat)))
(native-inputs
`(("ghc-tasty" ,ghc-tasty)
("ghc-tasty-expected-failure" ,ghc-tasty-expected-failure)
("ghc-tasty-hunit" ,ghc-tasty-hunit)
("ghc-tasty-quickcheck" ,ghc-tasty-quickcheck)
("ghc-quickcheck" ,ghc-quickcheck)
("ghc-quickcheck-instances" ,ghc-quickcheck-instances)))
("ghc-quickcheck-instances" ,ghc-quickcheck-instances)
("ghc-fail" ,ghc-fail)
("ghc-semigroups" ,ghc-semigroups)))
(home-page "https://hackage.haskell.org/package/hslua")
(synopsis "Lua language interpreter embedding in Haskell")
(description
@ -6790,7 +6797,7 @@ (define-public ghc-iproute
(define-public ghc-ipynb
(package
(name "ghc-ipynb")
(version "0.1.0.1")
(version "0.1.0.2")
(source
(origin
(method url-fetch)
@ -6798,7 +6805,7 @@ (define-public ghc-ipynb
"ipynb/ipynb-" version ".tar.gz"))
(sha256
(base32
"0lwpz0ip7r1rxkirqb6p48ql19fzamqkrnf3khx7bfl5wsxi6yrb"))))
"0qky4l5aaiq7ypwbxh0mr7s572290fi596f18dg68qpyzc49a9kx"))))
(build-system haskell-build-system)
(inputs
`(("ghc-unordered-containers" ,ghc-unordered-containers)
@ -6808,10 +6815,8 @@ (define-public ghc-ipynb
(native-inputs
`(("ghc-tasty" ,ghc-tasty)
("ghc-tasty-hunit" ,ghc-tasty-hunit)
("ghc-aeson-diff" ,ghc-aeson-diff)
("ghc-microlens-aeson" ,ghc-microlens-aeson)
("ghc-microlens" ,ghc-microlens)
("ghc-vector" ,ghc-vector)))
("ghc-microlens" ,ghc-microlens)))
(home-page "https://hackage.haskell.org/package/ipynb")
(synopsis "Data structure for working with Jupyter notebooks")
(description "This library defines a data structure for representing
@ -6871,7 +6876,7 @@ (define-public ghc-json
(define-public ghc-juicypixels
(package
(name "ghc-juicypixels")
(version "3.3.5")
(version "3.3.6")
(source (origin
(method url-fetch)
(uri (string-append "https://hackage.haskell.org/package/"
@ -6879,14 +6884,13 @@ (define-public ghc-juicypixels
version ".tar.gz"))
(sha256
(base32
"0yj4jyf56r3c1r3v1lkx8i8ll0jl8g8y2yv87sa4hwgck52199gc"))))
"1f8giivsqxma19ax78dr7j4gir12iyfqn2mlsd27zzl8dn7dy6w1"))))
(build-system haskell-build-system)
(outputs '("out" "static" "doc"))
(inputs
`(("ghc-zlib" ,ghc-zlib)
("ghc-vector" ,ghc-vector)
("ghc-primitive" ,ghc-primitive)
("ghc-mmap" ,ghc-mmap)))
("ghc-primitive" ,ghc-primitive)))
(home-page "https://github.com/Twinside/Juicy.Pixels")
(synopsis "Picture loading and serialization library")
(description
@ -7578,7 +7582,7 @@ (define-public ghc-lzma
(define-public ghc-lzma-conduit
(package
(name "ghc-lzma-conduit")
(version "1.2.1")
(version "1.2.2")
(source
(origin
(method url-fetch)
@ -7586,7 +7590,7 @@ (define-public ghc-lzma-conduit
"lzma-conduit-" version ".tar.gz"))
(sha256
(base32
"0hm72da7xk9l3zxjh274yg444vf405djxqbkf3q3p2qhicmxlmg9"))))
"1z6q16hzp2r5a4gdbg9akky5l9bfarzzhzswrgvh0v28ax400whb"))))
(build-system haskell-build-system)
(inputs
`(("ghc-conduit" ,ghc-conduit)
@ -8295,7 +8299,7 @@ (define-public ghc-monads-tf
(define-public ghc-mono-traversable
(package
(name "ghc-mono-traversable")
(version "1.0.15.1")
(version "1.0.15.3")
(source
(origin
(method url-fetch)
@ -8304,7 +8308,7 @@ (define-public ghc-mono-traversable
"mono-traversable-" version ".tar.gz"))
(sha256
(base32
"1psxhfjmpv3y54wy8f8dwa43finlj7aw2mry67pg521gxmwmppy2"))))
"1dvlp7r7r1lc3fxkwaz68f1nffg83240q8a989x24x1x67rj1clq"))))
(build-system haskell-build-system)
(outputs '("out" "static" "doc"))
(inputs `(("ghc-unordered-containers" ,ghc-unordered-containers)
@ -8315,7 +8319,6 @@ (define-public ghc-mono-traversable
(native-inputs `(("ghc-hspec" ,ghc-hspec)
("ghc-hunit" ,ghc-hunit)
("ghc-quickcheck" ,ghc-quickcheck)
("ghc-semigroups" ,ghc-semigroups)
("ghc-foldl" ,ghc-foldl)))
(home-page "https://github.com/snoyberg/mono-traversable")
(synopsis "Haskell classes for mapping, folding, and traversing monomorphic
@ -8976,7 +8979,7 @@ (define-public ghc-openglraw
(define-public ghc-operational
(package
(name "ghc-operational")
(version "0.2.3.5")
(version "0.2.4.0")
(source
(origin
(method url-fetch)
@ -8984,7 +8987,7 @@ (define-public ghc-operational
"operational-" version ".tar.gz"))
(sha256
(base32
"1x2abg2q9d26h1vzj40r6k7k3gqgappbs4g9d853vvg77837km4i"))))
"1hwmwbsxzwv68b39rv4gn3da6irv8zm89gqrkc3rdsgwi5ziyn3i"))))
(build-system haskell-build-system)
(inputs
`(("ghc-random" ,ghc-random)))
@ -9135,7 +9138,7 @@ (define-public ghc-jira-wiki-markup
(define-public ghc-emojis
(package
(name "ghc-emojis")
(version "0.1")
(version "0.1.2")
(source
(origin
(method url-fetch)
@ -9143,7 +9146,7 @@ (define-public ghc-emojis
"https://hackage.haskell.org/package/emojis/"
"emojis-" version ".tar.gz"))
(sha256
(base32 "1c6zkj9gmk1y90gbdrn50hyp7mw1mggzhnr2khqd728ryipw60ss"))))
(base32 "09x2xrppwypi369y7rzf3ln2g7c3g9qfckn2gydxpfzglcp9rziw"))))
(build-system haskell-build-system)
(native-inputs
`(("ghc-hunit" ,ghc-hunit)))
@ -9262,7 +9265,7 @@ (define-public ghc-text-zipper
(define-public ghc-doclayout
(package
(name "ghc-doclayout")
(version "0.3.0.2")
(version "0.3.1.1")
(source
(origin
(method url-fetch)
@ -9270,14 +9273,16 @@ (define-public ghc-doclayout
"https://hackage.haskell.org/package/doclayout/"
"doclayout-" version ".tar.gz"))
(sha256
(base32 "1hfqagf5rmdjjx3xzx153d769b2vwarmyx7k7cwh872cgasndb3q"))))
(base32 "1p9kgjlf7y4p1symvkwndgs4lvyw2c45bsgld09y9r4aiqbhdrxp"))))
(build-system haskell-build-system)
(inputs
`(("ghc-safe" ,ghc-safe)))
`(("ghc-safe" ,ghc-safe)
("ghc-emojis" ,ghc-emojis)))
(native-inputs
`(("ghc-tasty" ,ghc-tasty)
("ghc-tasty-golden" ,ghc-tasty-golden)
("ghc-tasty-hunit" ,ghc-tasty-hunit)))
("ghc-tasty-hunit" ,ghc-tasty-hunit)
("ghc-tasty-quickcheck" ,ghc-tasty-quickcheck)))
(home-page "https://github.com/jgm/doclayout")
(synopsis "Pretty-printing library for laying out text documents")
(description
@ -9508,7 +9513,7 @@ (define-public pandoc
(define-public ghc-pandoc-types
(package
(name "ghc-pandoc-types")
(version "1.22")
(version "1.22.1")
(source (origin
(method url-fetch)
(uri (string-append "https://hackage.haskell.org/package/"
@ -9516,7 +9521,7 @@ (define-public ghc-pandoc-types
version ".tar.gz"))
(sha256
(base32
"0kr5n9yw59513pw2rjc65qs55iq0prn16prk4781arqdh7g7a09q"))))
"0z2j306jsiriwhib0201hsllwyck7qcvqci5c25frwsmknr3mls2"))))
(build-system haskell-build-system)
(arguments
`(#:phases
@ -9540,13 +9545,13 @@ (define-public ghc-pandoc-types
#t)))))
(inputs
`(("ghc-syb" ,ghc-syb)
("ghc-aeson" ,ghc-aeson)
("ghc-string-qq" ,ghc-string-qq)))
("ghc-aeson" ,ghc-aeson)))
(native-inputs
`(("ghc-quickcheck" ,ghc-quickcheck)
("ghc-test-framework" ,ghc-test-framework)
("ghc-test-framework-hunit" ,ghc-test-framework-hunit)
("ghc-test-framework-quickcheck2" ,ghc-test-framework-quickcheck2)
("ghc-string-qq" ,ghc-string-qq)
("ghc-hunit" ,ghc-hunit)))
(home-page "https://pandoc.org")
(synopsis "Types for representing a structured document")
@ -9829,7 +9834,7 @@ (define-public ghc-pcre-light
(define-public ghc-persistent
(package
(name "ghc-persistent")
(version "2.13.1.2")
(version "2.13.2.1")
(source
(origin
(method url-fetch)
@ -9838,7 +9843,7 @@ (define-public ghc-persistent
"persistent-" version ".tar.gz"))
(sha256
(base32
"09si4h64i9drqr80a2sxpxhmsinacqx9bvsc3jah5zlm915q092y"))))
"13lp9i94f57qhifdmr1vnsrra34526f7kqa1sybcaj2jh2v3q85k"))))
(build-system haskell-build-system)
(inputs
`(("ghc-aeson" ,ghc-aeson)
@ -10199,16 +10204,16 @@ (define-public ghc-prettyclass
(define-public ghc-prettyprinter
(package
(name "ghc-prettyprinter")
(version "1.7.0")
(version "1.7.1")
(source
(origin
(method url-fetch)
(uri (string-append
"mirror://hackage/package/prettyprinter/prettyprinter-"
"https://hackage.haskell.org/package/prettyprinter/prettyprinter-"
version
".tar.gz"))
(sha256
(base32 "19z04sn0kqxgwcyfn5igjmbxw13xsb3mdhdidkb3kzswib78f6sr"))))
(base32 "0i8b3wjjpdvp5b857j065jwyrpgcnzgk75imrj7i3yhl668acvjy"))))
(build-system haskell-build-system)
(native-inputs
`(("ghc-doctest" ,ghc-doctest)
@ -10230,7 +10235,7 @@ (define-public ghc-prettyprinter
(define-public ghc-prettyprinter-ansi-terminal
(package
(name "ghc-prettyprinter-ansi-terminal")
(version "1.1.2")
(version "1.1.3")
(source
(origin
(method url-fetch)
@ -10238,7 +10243,7 @@ (define-public ghc-prettyprinter-ansi-terminal
"https://hackage.haskell.org/package/prettyprinter-ansi-terminal/"
"prettyprinter-ansi-terminal-" version ".tar.gz"))
(sha256
(base32 "168p5b7fzqs0g8ld26d3k78afgdx4r21dv0hw8ka2c08p4w76sz2"))))
(base32 "1cqxbcmy9ykk4pssq5hp6h51g2h547zfz549awh0c1fni8q3jdw1"))))
(build-system haskell-build-system)
(inputs
`(("ghc-ansi-terminal" ,ghc-ansi-terminal)
@ -11015,7 +11020,7 @@ (define-public ghc-regex-pcre
(define-public ghc-regex-pcre-builtin
(package
(name "ghc-regex-pcre-builtin")
(version "0.95.2.3.8.43")
(version "0.95.2.3.8.44")
(source (origin
(method url-fetch)
(uri (string-append "https://hackage.haskell.org/package/"
@ -11023,7 +11028,7 @@ (define-public ghc-regex-pcre-builtin
version ".tar.gz"))
(sha256
(base32
"02c6vzxcy1zkqwy6w4dsc97xvvdwlh8xr7imrlx2qs2521rvswr7"))))
"0pn55ssrwr05c9sa9jvp0knvzjksz04wn3pmzf5dz4xgbyjadkna"))))
(build-system haskell-build-system)
(inputs
`(("ghc-regex-base" ,ghc-regex-base)))
@ -11773,7 +11778,7 @@ (define-public ghc-semialign
(define-public ghc-semigroupoids
(package
(name "ghc-semigroupoids")
(version "5.3.5")
(version "5.3.6")
(source
(origin
(method url-fetch)
@ -11783,7 +11788,7 @@ (define-public ghc-semigroupoids
".tar.gz"))
(sha256
(base32
"1c66sc9w9724xhlly9wfjhghmnnw99z9al69264i2izk7vhihbsm"))))
"0glhqc9x8i5z3bdg23xvl2lfns95msid3h3x0jksna7i6c8j869n"))))
(build-system haskell-build-system)
(outputs '("out" "static" "doc"))
(inputs
@ -11793,13 +11798,10 @@ (define-public ghc-semigroupoids
("ghc-comonad" ,ghc-comonad)
("ghc-contravariant" ,ghc-contravariant)
("ghc-distributive" ,ghc-distributive)
("ghc-generic-deriving" ,ghc-generic-deriving)
("ghc-hashable" ,ghc-hashable)
("ghc-semigroups" ,ghc-semigroups)
("ghc-tagged" ,ghc-tagged)
("ghc-unordered-containers" ,ghc-unordered-containers)))
(native-inputs
`(("cabal-doctest" ,cabal-doctest)
("ghc-doctest" ,ghc-doctest)))
(home-page "https://github.com/ekmett/semigroupoids")
(synopsis "Semigroupoids operations for Haskell")
(description "This library provides a wide array of (semi)groupoids and
@ -12467,7 +12469,7 @@ (define-public ghc-statistics
(define-public ghc-stm-chans
(package
(name "ghc-stm-chans")
(version "3.0.0.4")
(version "3.0.0.6")
(source
(origin
(method url-fetch)
@ -12476,7 +12478,7 @@ (define-public ghc-stm-chans
"stm-chans-" version ".tar.gz"))
(sha256
(base32
"0f27sp09yha43xk9q55sc185jyjs5h7gq2dhsyx6bm9kz9dzqi13"))))
"04hafqjq8ngvhcavkfx88a0zky8yc7i18q2n9ajav03kns1kwvpa"))))
(build-system haskell-build-system)
(home-page "https://hackage.haskell.org/package/stm-chans")
(synopsis "Additional types of channels for ghc-stm")
@ -13196,23 +13198,24 @@ (define-public ghc-terminal-size
(define-public ghc-texmath
(package
(name "ghc-texmath")
(version "0.12.3.1")
(version "0.12.3.2")
(source (origin
(method url-fetch)
(uri (string-append "https://hackage.haskell.org/package/"
"texmath/texmath-" version ".tar.gz"))
(sha256
(base32
"1qyiihb9h7w7074p495yd4s8dj9adz0dy865gyp822z69jvmkcki"))))
"1d9r3na7hmkgr0j63fs50ssll506l1wyqhw0dpap7jk0rdz8pv6n"))))
(build-system haskell-build-system)
(inputs
`(("ghc-syb" ,ghc-syb)
("ghc-network-uri" ,ghc-network-uri)
("ghc-split" ,ghc-split)
("ghc-temporary" ,ghc-temporary)
("ghc-utf8-string" ,ghc-utf8-string)
("ghc-xml" ,ghc-xml)
("ghc-pandoc-types" ,ghc-pandoc-types)))
(native-inputs
`(("ghc-temporary" ,ghc-temporary)
("ghc-utf8-string" ,ghc-utf8-string)))
(home-page "https://github.com/jgm/texmath")
(synopsis "Conversion between formats used to represent mathematics")
(description
@ -13729,7 +13732,7 @@ (define-public ghc-timezone-olson
(define-public ghc-tldr
(package
(name "ghc-tldr")
(version "0.9.1")
(version "0.9.2")
(source
(origin
(method url-fetch)
@ -13739,10 +13742,11 @@ (define-public ghc-tldr
".tar.gz"))
(sha256
(base32
"0xgj3mf51iv68fhgyrjvxfmzrbcwnk7siaynm213x0kgcyvkwbz0"))))
"1yypb9zhsj9ks7bbw2sayqv3rn9y8z3w5p1xmsnwb4w99dqmvcx5"))))
(build-system haskell-build-system)
(inputs
`(("ghc-ansi-terminal" ,ghc-ansi-terminal)
("ghc-attoparsec" ,ghc-attoparsec)
("ghc-cmark" ,ghc-cmark)
("ghc-http-conduit" ,ghc-http-conduit)
("ghc-optparse-applicative" ,ghc-optparse-applicative)
@ -13872,7 +13876,7 @@ (define-public ghc-transformers-compat
(define-public ghc-tree-diff
(package
(name "ghc-tree-diff")
(version "0.2")
(version "0.2.1")
(source
(origin
(method url-fetch)
@ -13882,7 +13886,7 @@ (define-public ghc-tree-diff
".tar.gz"))
(sha256
(base32
"1ny7mi0n8cyb65q9ihbnm2gxiyya888dw2c4y0hjy8k882wdhf0x"))))
"0bybi4qp7nj9117yza5qqgw2f7s6rk3i7q642jqd7sdn3bx5cnap"))))
(build-system haskell-build-system)
(arguments
`(#:cabal-revision
@ -14042,7 +14046,7 @@ (define-public ghc-turtle
(define-public ghc-typed-process
(package
(name "ghc-typed-process")
(version "0.2.6.1")
(version "0.2.6.3")
(source
(origin
(method url-fetch)
@ -14051,7 +14055,7 @@ (define-public ghc-typed-process
version ".tar.gz"))
(sha256
(base32
"0w4c76qln49967nnhf7f1zj3gbdfqp2qgf5ym8svhqyhp5gh61ws"))))
"071mw4yv4xr5n82si33qbcqcxvcr7h56zlyd8gmsfrsdnacbq47k"))))
(build-system haskell-build-system)
(inputs
`(("ghc-async" ,ghc-async)
@ -14678,7 +14682,7 @@ (define-public ghc-vault
(define-public ghc-vector
(package
(name "ghc-vector")
(version "0.12.3.0")
(version "0.12.3.1")
(outputs '("out" "static" "doc"))
(source
(origin
@ -14689,7 +14693,7 @@ (define-public ghc-vector
".tar.gz"))
(sha256
(base32
"00xp86yad3yv4ja4q07gkmmcf7iwpcnzkkaf91zkx9nxb981iy0m"))))
"0dczbcisxhhix859dng5zhxkn3xvlnllsq60apqzvmyl5g056jpv"))))
(build-system haskell-build-system)
;; FIXME: To simplify upgrading all Haskell packages, we leave the tests
;; disabled for now.
@ -14697,8 +14701,6 @@ (define-public ghc-vector
`(#:tests? #f))
(inputs
`(("ghc-primitive" ,ghc-primitive)
("ghc-random" ,ghc-random)
("ghc-quickcheck" ,ghc-quickcheck)
;; ("ghc-hunit" ,ghc-hunit)
;; ("ghc-test-framework" ,ghc-test-framework)
;; ("ghc-test-framework-hunit" ,ghc-test-framework-hunit)
@ -15129,14 +15131,14 @@ (define-public ghc-wordexp
(define-public ghc-x11
(package
(name "ghc-x11")
(version "1.10.1")
(version "1.10.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://hackage.haskell.org/package/X11/"
"X11-" version ".tar.gz"))
(sha256
(base32 "13a0qf8rwn1s43wcl39f1pcq3h1kw1ddfq205j1ry0j3yafnazxg"))))
(base32 "1ip207l97s8nw4daxp9s254agk8f0wibpf0prx0n695klqyn8bz1"))))
(build-system haskell-build-system)
(arguments
`(#:extra-directories
@ -15146,7 +15148,7 @@ (define-public ghc-x11
("libxrandr" ,libxrandr)
("libxinerama" ,libxinerama)
("libxscrnsaver" ,libxscrnsaver)
("ghc-data-default" ,ghc-data-default)))
("ghc-data-default-class" ,ghc-data-default-class)))
(home-page "https://github.com/haskell-pkg-janitors/X11")
(synopsis "Bindings to the X11 graphics library")
(description
@ -15302,14 +15304,14 @@ (define-public ghc-xml-hamlet
(define-public ghc-yaml
(package
(name "ghc-yaml")
(version "0.11.5.0")
(version "0.11.7.0")
(source (origin
(method url-fetch)
(uri (string-append "https://hackage.haskell.org/package/"
"yaml/yaml-" version ".tar.gz"))
(sha256
(base32
"1bfdsqckzql50j6ni4fa1470cvkmfiy4skb98cdwnj4rss5p93mj"))))
"0s08kw0hqxixxripwjmz7b4yh9130dws3jaj460x8ds8q4b6khbx"))))
(build-system haskell-build-system)
(inputs
`(("ghc-conduit" ,ghc-conduit)
@ -15319,17 +15321,16 @@ (define-public ghc-yaml
("ghc-vector" ,ghc-vector)
("ghc-attoparsec" ,ghc-attoparsec)
("ghc-scientific" ,ghc-scientific)
("ghc-semigroups" ,ghc-semigroups)
("ghc-temporary" ,ghc-temporary)
("ghc-enclosed-exceptions" ,ghc-enclosed-exceptions)
("ghc-base-compat" ,ghc-base-compat)
("ghc-libyaml" ,ghc-libyaml)))
("ghc-libyaml" ,ghc-libyaml)
("ghc-optparse-applicative" ,ghc-optparse-applicative)))
(native-inputs
`(("ghc-hspec" ,ghc-hspec)
("ghc-hunit" ,ghc-hunit)
("ghc-base-compat" ,ghc-base-compat)
("hspec-discover" ,hspec-discover)
("ghc-mockery" ,ghc-mockery)
("ghc-raw-strings-qq" ,ghc-raw-strings-qq)))
("ghc-raw-strings-qq" ,ghc-raw-strings-qq)
("ghc-temporary" ,ghc-temporary)))
(home-page "https://github.com/snoyberg/yaml/")
(synopsis "Parsing and rendering YAML documents")
(description
@ -15449,7 +15450,7 @@ (define-public ghc-zlib-bindings
(define-public ghc-zstd
(package
(name "ghc-zstd")
(version "0.1.2.0")
(version "0.1.3.0")
(source
(origin
(method url-fetch)
@ -15457,7 +15458,7 @@ (define-public ghc-zstd
"zstd/zstd-" version ".tar.gz"))
(sha256
(base32
"0vjw8r11k9kj6c63sfkwz8akq0g32g1bv6n6clvs4g2j12zq1xk8"))))
"0vghl48cxcqy72sqk2gpi7rvy5ya36j13vndaxi6kck6bqivbhm0"))))
(build-system haskell-build-system)
(native-inputs
`(("ghc-quickcheck" ,ghc-quickcheck)
@ -15859,7 +15860,7 @@ (define-public ghc-citeproc
(define-public ghc-commonmark
(package
(name "ghc-commonmark")
(version "0.2.1")
(version "0.2.1.1")
(source
(origin
(method url-fetch)
@ -15868,7 +15869,7 @@ (define-public ghc-commonmark
version
".tar.gz"))
(sha256
(base32 "1vba7v1zaqh811v3j4x42g7mhwvxwgzm997kq1kzd0njby14fq5b"))))
(base32 "105szy7l4ji255fwv0kbfcy3i3a3a4197zgj6s9jb12kwbn6n0c7"))))
(build-system haskell-build-system)
(inputs `(("ghc-unicode-transforms" ,ghc-unicode-transforms)))
(native-inputs
@ -15897,7 +15898,7 @@ (define-public ghc-commonmark
(define-public ghc-commonmark-extensions
(package
(name "ghc-commonmark-extensions")
(version "0.2.1.2")
(version "0.2.2")
(source
(origin
(method url-fetch)
@ -15906,7 +15907,7 @@ (define-public ghc-commonmark-extensions
version
".tar.gz"))
(sha256
(base32 "1ky0j7086a8mqpg26j2nkrc5wfwiw5cd3h3jqncpy59vmj1prkx4"))))
(base32 "0jm6w84p2a2gyaljvnlvjjwrwnir1lss3ps53d0bd8mkvhixxrqr"))))
(build-system haskell-build-system)
(inputs
`(("ghc-network-uri" ,ghc-network-uri)
@ -16155,7 +16156,7 @@ (define-public ghc-template-haskell-compat-v0208
(define-public ghc-mysql
(package
(name "ghc-mysql")
(version "0.2.0.1")
(version "0.2.1")
(source
(origin
(method url-fetch)
@ -16164,7 +16165,7 @@ (define-public ghc-mysql
version
".tar.gz"))
(sha256
(base32 "16m8hv9yy2nf4jwgqg6n9z53n2pzskbc3gwbp2i3kgff8wsmf8sd"))))
(base32 "051w428arxbix06a52dacqjpnkfx42zbazxsd3l9d857dsd0kl3g"))))
(build-system haskell-build-system)
(arguments `(#:tests? #f)) ; TODO: Fails to connect to server.
(inputs
@ -16218,7 +16219,7 @@ (define-public ghc-blaze-textual
(define-public ghc-mysql-simple
(package
(name "ghc-mysql-simple")
(version "0.4.6")
(version "0.4.7")
(source
(origin
(method url-fetch)
@ -16227,7 +16228,7 @@ (define-public ghc-mysql-simple
version
".tar.gz"))
(sha256
(base32 "1am8ck092s9cv4x1ambalil4mlazkp8w5qhjbl4nq0j2hpy73rby"))))
(base32 "1mhmszpq64h8kxr20iaj1laq46wr2gaqc8xxq1k821i7jfxfld6j"))))
(build-system haskell-build-system)
(arguments `(#:tests? #f)) ; TODO: Fails to connect to server.
(inputs
@ -16238,6 +16239,7 @@ (define-public ghc-mysql-simple
("ghc-pcre-light" ,ghc-pcre-light)
("ghc-old-locale" ,ghc-old-locale)
("ghc-blaze-textual" ,ghc-blaze-textual)
("ghc-vector" ,ghc-vector)
("openssl" ,openssl)
("zlib" ,zlib)))
(native-inputs `(("ghc-hspec" ,ghc-hspec)))
@ -16455,7 +16457,7 @@ (define-public ghc-postgresql-simple
(define-public ghc-persistent-postgresql
(package
(name "ghc-persistent-postgresql")
(version "2.13.1.0")
(version "2.13.2.1")
(source
(origin
(method url-fetch)
@ -16464,7 +16466,7 @@ (define-public ghc-persistent-postgresql
version
".tar.gz"))
(sha256
(base32 "05bj3b7kdwaba3szrrsmafxr6vcnvdhq20jk5xx348jnf2flkw0i"))))
(base32 "07pnr8m0nk43jaz6l293lzx4ivyqgnw94fjypazzm008b4irh7ir"))))
(build-system haskell-build-system)
(arguments `(#:tests? #f)) ; TODO: Cannot import MaybeFieldDefsTest.
(inputs

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

@ -1347,7 +1347,7 @@ (define-public python-imgviz
(define-public labelme
(package
(name "labelme")
(version "4.5.9")
(version "4.5.13")
(source
(origin
;; PyPi tarball lacks tests.
@ -1357,7 +1357,7 @@ (define-public labelme
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "12wn291516kdv0wqngz4l04j95g3rwc6cvkcb0gw8rrv4wgc7c66"))))
(base32 "0cmi2xb4dgh7738l259rgwhn9l134f0vnaaqc2gflc5yr3lqhrv2"))))
(build-system python-build-system)
(arguments
`(#:phases

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

@ -809,14 +809,21 @@ (define-public imv
(define-public qiv
(package
(name "qiv")
(version "2.3.1")
(version "2.3.2")
(source
(origin
(method url-fetch)
(uri (string-append "http://spiegl.de/qiv/download/qiv-"
version ".tgz"))
(sha256
(base32 "1rlf5h67vhj7n1y7jqkm9k115nfnzpwngj3kzqsi2lg676srclv7"))))
(base32 "1mc0f2nnas4q0d7zc9r6g4z93i32xlx0p9hl4fn5zkyml24a1q28"))
(modules '((guix build utils)))
(snippet
'(begin
;; Fix a typo. This can probably be removed on the next update.
(substitute* "Makefile"
(("\\$\\(PREFIX\\)/man")
"$(PREFIX)/share/man"))))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
@ -847,8 +854,7 @@ (define-public qiv
;; There must be a running X server and make install doesn't start one.
;; Therefore we must do it.
(system "Xvfb :1 &")
(setenv "DISPLAY" ":1")
#t)))
(setenv "DISPLAY" ":1"))))
#:tests? #f ; there is no check target
#:make-flags
(list

21
gnu/packages/inkscape.scm
View file

@ -120,17 +120,15 @@ (define-public inkscape
(define-public inkscape-1.1
(package
(name "inkscape")
(version "1.1")
(version "1.1.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://media.inkscape.org/dl/"
"resources/file/"
"inkscape-" version ".tar.xz"))
(patches (search-patches "inkscape-1.1-fix-build-witch-gcc7.5.patch"))
(sha256
(base32
"1rlm2wqg8bgdxkdvnadh49wfp0mrbrk7d8n4vdcjyw6z7z7firki"))
(base32 "1bvqg5xfs3m6r7qfdhmgzwhd1hx8wvg3nhvhmalwzcdm6ffhpjmf"))
(modules '((guix build utils)
(ice-9 format)))
(snippet
@ -211,8 +209,7 @@ (define-public inkscape-1.1
;; Lift the requirement on the double-conversion library, as
;; it is only needed by lib2geom, which is now unbundled.
(substitute* "CMakeScripts/DefineDependsandFlags.cmake"
((".*find_package\\(DoubleConversion.*") ""))
#t))))
((".*find_package\\(DoubleConversion.*") ""))))))
(build-system cmake-build-system)
(arguments
`(#:tests? #t
@ -227,8 +224,7 @@ (define-public inkscape-1.1
(add-after 'unpack 'patch-icon-cache-generator
(lambda _
(substitute* "share/icons/application/CMakeLists.txt"
(("gtk-update-icon-cache") "true"))
#t))
(("gtk-update-icon-cache") "true"))))
(add-after 'unpack 'disable-latex-export-tests
;; FIXME: For some reason the test.pdf_tex file generated by the
;; "--export-latex" lacks "some text" in its content when run in
@ -236,14 +232,12 @@ (define-public inkscape-1.1
(lambda _
(substitute* "testfiles/cli_tests/CMakeLists.txt"
(("add_cli_test\\(export-latex")
"message(TEST_DISABLED: export-latex"))
#t))
"message(TEST_DISABLED: export-latex"))))
(add-after 'unpack 'set-home
;; Mute Inkscape warnings during tests.
(lambda _
(setenv "HOME" (getcwd))
(format #t "ARGS is set to: ~a" (getenv "ARGS"))
#t))
(format #t "ARGS is set to: ~a" (getenv "ARGS"))))
;; Move the check phase after the install phase, as when run in the
;; tests, Inkscape relies on files that are not yet installed, such
;; as the "share/inkscape/ui/units.xml" file.
@ -259,8 +253,7 @@ (define-public inkscape-1.1
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(wrap-program (string-append out "/bin/inkscape")
`("GUIX_PYTHONPATH" ":" prefix (,(getenv "GUIX_PYTHONPATH")))))
#t)))))
`("GUIX_PYTHONPATH" ":" prefix (,(getenv "GUIX_PYTHONPATH"))))))))))
(inputs
`(("aspell" ,aspell)
("autotrace" ,autotrace)

4
gnu/packages/irc.scm
View file

@ -422,7 +422,7 @@ (define-public sic
(define-public kirc
(package
(name "kirc")
(version "0.2.7")
(version "0.2.9")
(source (origin
(method git-fetch)
(uri (git-reference
@ -430,7 +430,7 @@ (define-public kirc
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0phx00lr7ya8rx1hskv1wdwbq2vlihiqhnplqdvk1r3m23is7al9"))))
(base32 "0ahmfxhgcvnlgmxxbv9vga5x6krab1n7qq55ygj7hj3x7s7ra419"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no tests

8
gnu/packages/java.scm
View file

@ -2173,14 +2173,15 @@ (define-public openjdk10
(define-public openjdk11
(package
(name "openjdk")
(version "11.28")
(version "11.0.13")
(source (origin
(method url-fetch)
(uri "http://hg.openjdk.java.net/jdk/jdk/archive/76072a077ee1.tar.bz2")
(uri (string-append "https://openjdk-sources.osci.io/openjdk11/openjdk-"
version "-ga.tar.xz"))
(file-name (string-append name "-" version ".tar.bz2"))
(sha256
(base32
"0v705w1s9lrqalzahir78pk397rkk9gfvzq821yv8h3xha0bqi6w"))
"0xavz7msaadprq65p5bhp6sxcyp12p0zlbhb3aaz0cvp21c9pdm9"))
(modules '((guix build utils)))
(snippet
`(begin
@ -2422,6 +2423,7 @@ (define (icedtea-or-openjdk? path)
("libpng" ,libpng)
("libx11" ,libx11)
("libxext" ,libxext)
("libxrandr" ,libxrandr)
("libxrender" ,libxrender)
("libxt" ,libxt)
("libxtst" ,libxtst)))

5
gnu/packages/lego.scm
View file

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2017, 2019 Eric Bavier <bavier@posteo.net>
;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2021 Felix Gruber <felgru@posteo.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -100,7 +101,7 @@ (define-public nqc
(define-public leocad
(package
(name "leocad")
(version "19.07.1")
(version "21.06")
(source (origin
(method git-fetch)
(uri (git-reference
@ -109,7 +110,7 @@ (define-public leocad
(file-name (git-file-name name version))
(sha256
(base32
"02kv1m18g6s4dady9jv4sjivfkrp192bmdw2a3d9lzlp60zks0p2"))))
"1ifbxngkbmg6d8vv08amxbnfvlyjdwzykrjp98lbwvgb0b843ygq"))))
(build-system gnu-build-system)
(native-inputs
`(("qttools" ,qttools))) ; for lrelease

7
gnu/packages/less.scm
View file

@ -59,7 +59,7 @@ (define-public less
(define-public lesspipe
(package
(name "lesspipe")
(version "1.89")
(version "1.90")
(source (origin
(method git-fetch)
(uri (git-reference
@ -68,7 +68,7 @@ (define-public lesspipe
(file-name (git-file-name name version))
(sha256
(base32
"0lxf0m4bgwhpwmwa5q2vklk31yhiaz049kpm4n2hqiyb5mlpa94a"))))
"17gv4nr9fxrk3png477pgiimdz8minp9scmqg2nxa96jfz4sk4li"))))
(build-system gnu-build-system)
(arguments
'(#:tests? #f ; no tests
@ -79,8 +79,7 @@ (define-public lesspipe
(delete-file "Makefile") ; force generating
(invoke "./configure"
(string-append "--prefix=" out)
"--yes")
#t)))
"--yes"))))
(add-before 'install 'patch-tput-and-file
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "lesspipe.sh"

6
gnu/packages/libusb.scm
View file

@ -6,7 +6,7 @@
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Theodoros Foradis <theodoros@foradis.org>
;;; Copyright © 2017 Jonathan Brielmaier <jonathan.brielmaier@web.de>
;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2020, 2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Vagrant Cascadian <vagrant@debian.org>
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2020 Christopher Howard <christopher@librehacker.com>
@ -493,14 +493,14 @@ (define-public usbmuxd
(define-public libmtp
(package
(name "libmtp")
(version "1.1.18")
(version "1.1.19")
(source (origin
(method url-fetch)
(uri (string-append "mirror://sourceforge/libmtp/libmtp/" version
"/libmtp-" version ".tar.gz"))
(sha256
(base32
"1w41l93yi0dmw218daiw36rylkc8rammxx37csh1ij24q18gx03j"))))
"0a1jlf5b2c2vylkvdd3cxjs20a96jlbrdyx7rwai5rzmcdpszd6y"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)))

24
gnu/packages/linux.scm
View file

@ -2786,7 +2786,7 @@ (define-public ebtables
(define-public iproute
(package
(name "iproute2")
(version "5.13.0")
(version "5.15.0")
(source (origin
(method url-fetch)
(uri (string-append
@ -2794,7 +2794,7 @@ (define-public iproute
version ".tar.xz"))
(sha256
(base32
"0dhvdybfm33q9lz73sfnc24pxy2r42xywzb1gdgydjfafhvyb8kj"))))
"1zwin8sjnnwf2a9rjwzb3q8lkhcpy06s29sh05f5gxd7z6jy9qrq"))))
(build-system gnu-build-system)
(arguments
`( ;; There is a test suite, but it wants network namespaces and sudo.
@ -6524,7 +6524,7 @@ (define-public module-init-tools
(define-public mcelog
(package
(name "mcelog")
(version "176")
(version "179")
(source
(origin
(method git-fetch)
@ -6533,14 +6533,13 @@ (define-public mcelog
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1mlwn6ck9qiwqa2vg5wg1gvfva3jv7ygjr7p7bam0qszajs5pirk"))
(base32 "0fz9j0p8jyp4m09wshl8cdhdvrdidf29bjp9hgwvv6xvg8lma06g"))
(modules '((guix build utils)))
(snippet
`(begin
;; The checkout lacks a .git directory, breaking ‘git describe’.
(substitute* "Makefile"
(("\"unknown\"") (string-append "\"v" ,version "\"")))
#t))))
(("\"unknown\"") (string-append "\"v" ,version "\"")))))))
(build-system gnu-build-system)
(arguments
`(#:phases (modify-phases %standard-phases
@ -7296,14 +7295,14 @@ (define-public proot-static
(define-public cpuid
(package
(name "cpuid")
(version "20201006")
(version "20211031")
(source (origin
(method url-fetch)
(uri (string-append "http://www.etallen.com/cpuid/cpuid-"
version ".src.tar.gz"))
(sha256
(base32
"19jnkh57f979b78ak5mpxmdvnkgc33r55cw9shgd2hc380b3zi8k"))))
"13sxb2ar4gypiv0l87lr7hf3qjccwgsg1r92adv9jvrfxcv36pbn"))))
(build-system gnu-build-system)
(arguments
`(#:make-flags
@ -7318,12 +7317,11 @@ (define-public cpuid
;; Make the compressed manpages writable so that the
;; reset-gzip-timestamps phase does not error out.
(substitute* "Makefile"
(("-m 444") "-m 644"))
#t)))))
(("-m 444") "-m 644")))))))
(inputs `(("perl" ,perl)))
(supported-systems '("i686-linux" "x86_64-linux"))
(home-page "http://www.etallen.com/cpuid.html")
(synopsis "Linux tool to dump x86 CPUID information about the CPU(s)")
(synopsis "Dump x86 CPUID processor information")
(description "cpuid dumps detailed information about the CPU(s) gathered
from the CPUID instruction, and also determines the exact model of CPU(s). It
supports Intel, AMD, and VIA CPUs, as well as older Transmeta, Cyrix, UMC,
@ -7361,7 +7359,7 @@ (define-public jmtpfs
(define-public procenv
(package
(name "procenv")
(version "0.58")
(version "0.60")
(source
(origin
(method git-fetch)
@ -7370,7 +7368,7 @@ (define-public procenv
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "137n630qzml4yraqzp2fij8nzn8341nf8d58yzfhk8ddlzi60sfm"))))
(base32 "00d7q0h4qjc8lg435lq77lp2fx6ikm5piq90m81mr1dqqna1g6pz"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)

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

@ -2139,11 +2139,11 @@ (define-public ecl-slime-swank
(sbcl-package->ecl-package sbcl-slime-swank))
(define-public sbcl-mgl-pax
(let ((commit "4ada6eb26364e71addb169ce58e4ba83bc7a8eaa")
(revision "2"))
(let ((commit "a7f904784ae59bbeeeb15a14348cda46ed9bdeb3")
(revision "0"))
(package
(name "sbcl-mgl-pax")
(version (git-version "0.0.3" revision commit))
(version (git-version "0.0.4" revision commit))
(source
(origin
(method git-fetch)
@ -2151,17 +2151,22 @@ (define-public sbcl-mgl-pax
(url "https://github.com/melisgl/mgl-pax")
(commit commit)))
(sha256
(base32 "1s38crgvmd9hgqwsscqpj6m6c10a074zjgg8k5sl15yih1wkpssm"))
(base32 "119pb3485m6hqsqsaqpaq2x8xh5lrbqapw7zaqyq425n75vd1mc8"))
(file-name (git-file-name "mgl-pax" version))))
(build-system asdf-build-system/sbcl)
(inputs
`(("3bmd" ,sbcl-3bmd)
("babel" ,sbcl-babel)
("cl-fad" ,sbcl-cl-fad)
("ironclad" ,sbcl-ironclad)
("alexandria" ,sbcl-alexandria)
("colorize" ,sbcl-colorize)
("md5" ,sbcl-md5)
("named-readtables" ,sbcl-named-readtables)
("pythonic-string-reader" ,sbcl-pythonic-string-reader)
("swank" ,sbcl-slime-swank)))
(arguments
`(#:asd-systems '("mgl-pax"
"mgl-pax/navigate"
"mgl-pax/document"
"mgl-pax/transcribe")))
(synopsis "Exploratory programming environment and documentation generator")
(description
"PAX provides an extremely poor man's Explorable Programming
@ -2467,7 +2472,7 @@ (define-public sbcl-cl-string-match
(origin
(method hg-fetch)
(uri (hg-reference
(url "https://bitbucket.org/vityok/cl-string-match/")
(url "https://github.com/vityok/cl-string-match")
(changeset changeset)))
(sha256
(base32
@ -2489,13 +2494,20 @@ (define-public sbcl-cl-string-match
;; For testing:
`(("lisp-unit" ,sbcl-lisp-unit)))
(arguments
`(#:tests? #f))
`(#:tests? #f
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-dependency
(lambda _
(substitute* "cl-string-match.asd"
((":mgl-pax")
":mgl-pax/document")))))))
(synopsis "Set of utilities to manipulate strings in Common Lisp")
(description
"@command{cl-strings} is a small, portable, dependency-free set of
utilities that make it even easier to manipulate text in Common Lisp. It has
100% test coverage and works at least on sbcl, ecl, ccl, abcl and clisp.")
(home-page "https://bitbucket.org/vityok/cl-string-match/")
(home-page "https://github.com/vityok/cl-string-match")
(license license:bsd-3))))
(define-public cl-string-match
@ -3936,8 +3948,8 @@ (define-public ecl-chunga
(define-public sbcl-cl-who
(let ((version "1.1.4")
(commit "2c08caa4bafba720409af9171feeba3f32e86d32")
(revision "1"))
(commit "0d3826475133271ee8c590937136c1bc41b8cbe0")
(revision "2"))
(package
(name "sbcl-cl-who")
(version (git-version version revision commit))
@ -3947,10 +3959,10 @@ (define-public sbcl-cl-who
(uri (git-reference
(url "https://github.com/edicl/cl-who")
(commit commit)))
(file-name (git-file-name name version))
(file-name (git-file-name "cl-who" version))
(sha256
(base32
"0yjb6sr3yazm288m318kqvj9xk8rm9n1lpimgf65ymqv0i5agxsb"))))
"0sc8nji9q1df04lhsiwsjy1a35996bibl31w5hp5sh8q6sa122dy"))))
(build-system asdf-build-system/sbcl)
(native-inputs
`(("sbcl-flexi-streams" ,sbcl-flexi-streams)))
@ -4010,17 +4022,17 @@ (define-public ecl-chipz
(define-public sbcl-drakma
(package
(name "sbcl-drakma")
(version "2.0.7")
(version "2.0.8")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/edicl/drakma")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(file-name (git-file-name "cl-drakma" version))
(sha256
(base32
"1441idnyif9xzx3ln1p3fg36k2v9h4wasjqrzc8y52j61420qpci"))))
"1wf2zivfvhsh6zvd6wcwfd67bm8s8a1p2fismszc8xb819dqk9yl"))))
(build-system asdf-build-system/sbcl)
(inputs
`(("sbcl-puri" ,sbcl-puri)

37
gnu/packages/mail.scm
View file

@ -522,7 +522,7 @@ (define-public nullmailer
(define-public fetchmail
(package
(name "fetchmail")
(version "6.4.22")
(version "6.4.23")
(source
(origin
(method url-fetch)
@ -530,7 +530,7 @@ (define-public fetchmail
(version-major+minor version) "/"
"fetchmail-" version ".tar.xz"))
(sha256
(base32 "111cc6zfmb53f2a844iiyp3j2symcg8xd4m2kwb04mj3b6yihs6c"))))
(base32 "001394gxji89hfh6jcdrmv9ndimdsz7bndd55i516c8lfc9mwyjz"))))
(build-system gnu-build-system)
(inputs
`(("openssl" ,openssl)))
@ -604,7 +604,7 @@ (define-public mutt
(define-public neomutt
(package
(name "neomutt")
(version "20211015")
(version "20211029")
(source
(origin
(method git-fetch)
@ -613,7 +613,7 @@ (define-public neomutt
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "06rjx81ahrwcl1zhpdgqngr99l0cx1i4fwaaxd6rsn9zsj3ixdir"))))
(base32 "1ad05k98z9r317k2hhxbgdic00iha5r0k0f8224anz60i9kc78w5"))))
(build-system gnu-build-system)
(inputs
`(("cyrus-sasl" ,cyrus-sasl)
@ -705,8 +705,7 @@ (define-public neomutt
(copy-recursively (assoc-ref inputs "neomutt-test-files") "tests")
(with-directory-excursion "tests"
(setenv "NEOMUTT_TEST_DIR" (getcwd)) ; must be absolute
(invoke "bash" "setup.sh")
#t))))))
(invoke "bash" "setup.sh")))))))
(home-page "https://neomutt.org/")
(synopsis "Command-line mail reader based on Mutt")
(description
@ -1170,15 +1169,15 @@ (define-public emacs-mew
(define-public mu
(package
(name "mu")
(version "1.6.6")
(version "1.6.9")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/djcb/mu/releases/"
"download/" version "/"
"download/" version "-signed/"
"mu-" version ".tar.xz"))
(sha256
(base32
"1da3ykqnba3axggxyzsh3kjhy0rbdfdh9pnwprbzww56y8h3vka2"))))
"0n5gvdz6vn6y69f5gx0gndjdl328qjbvi2q048qynhk99w5476cd"))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
@ -1234,7 +1233,7 @@ (define-public mu
(synopsis "Quickly find emails")
(description
"Mu is a tool for dealing with e-mail messages stored in the
Maildir-format. Mu's purpose in life is to help you to quickly find the
Maildir format. Mu's purpose in life is to help you to quickly find the
messages you need; in addition, it allows you to view messages, extract
attachments, create new maildirs, and so on.")
(license license:gpl3+)))
@ -1735,14 +1734,14 @@ (define-public claws-mail
(define-public msmtp
(package
(name "msmtp")
(version "1.8.16")
(version "1.8.18")
(source
(origin
(method url-fetch)
(uri (string-append "https://marlam.de/msmtp/releases/"
"/msmtp-" version ".tar.xz"))
(sha256
(base32 "1n271yr83grpki9szdirnk6wb5rcc319f0gmfabyw3fzyf4msjy0"))))
(base32 "19b0anfrkg4lqp4h13qi2rqgwvipp1ga0id237nwbp7b6ypn5z0l"))))
(build-system gnu-build-system)
(inputs
`(("libsecret" ,libsecret)
@ -1772,8 +1771,7 @@ (define-public msmtp
;; Don't rely on netcat being in the PATH to test for a
;; connection, instead look up and ping debian.org.
(substitute* (string-append bin "/msmtpq")
(("EMAIL_CONN_TEST=n") "EMAIL_CONN_TEST=p"))
#t))))))
(("EMAIL_CONN_TEST=n") "EMAIL_CONN_TEST=p"))))))))
(synopsis
"Simple and easy to use SMTP client with decent sendmail compatibility")
(description
@ -2821,14 +2819,14 @@ (define-public mblaze
(define-public mpop
(package
(name "mpop")
(version "1.4.14")
(version "1.4.16")
(source
(origin
(method url-fetch)
(uri (string-append "https://marlam.de/mpop/releases/"
"mpop-" version ".tar.xz"))
(sha256
(base32 "046wbglvry54id9wik6c020fs09piv3gig3z0nh5nmyhsxjw4i18"))))
(base32 "1yc7lsdy9gvlslvljqg34kvcaf4wvrwlvj6h5awkzlp6x9qva3l7"))))
(build-system gnu-build-system)
(inputs
`(("gnutls" ,gnutls)))
@ -2848,15 +2846,14 @@ (define-public mpop
(define-public mhonarc
(package
(name "mhonarc")
(version "2.6.19")
(version "2.6.24")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://cpan/authors/id/E/EH/EHOOD/MHonArc-"
(uri (string-append "mirror://cpan/authors/id/L/LD/LDIDRY/MHonArc-"
version ".tar.gz"))
(sha256
(base32
"0ll3v93yji334zqp6xfzfxc0127pmjcznmai1l5q6dzawrs2igzq"))))
(base32 "0cszh619i8bfjpyxhfgph20v8lic5zpirr990xdbg7759qvwfza5"))))
(build-system perl-build-system)
(home-page "https://www.mhonarc.org/")
(synopsis "Create HTML archives of mail/news messages")

26
gnu/packages/messaging.scm
View file

@ -239,7 +239,7 @@ (define-public psi
(define-public libgnt
(package
(name "libgnt")
(version "2.14.1")
(version "2.14.3")
(source
(origin
(method url-fetch)
@ -247,7 +247,7 @@ (define-public libgnt
(string-append "mirror://sourceforge/pidgin/libgnt/"
version "/libgnt-" version ".tar.xz"))
(sha256
(base32 "1n2bxg0ignn53c08cp69pj4sdg53kwlqn23rincyjmpr327fdhsy"))))
(base32 "08v14fjcx2wx6c573wllq015l6zc8qkpz8rrl6qhp7crf9zlbxap"))))
(build-system meson-build-system)
(outputs '("out" "doc"))
(arguments
@ -260,16 +260,14 @@ (define-public libgnt
(("'/usr'")
(string-append "'"
(assoc-ref inputs "ncurses")
"'")))
#t))
"'")))))
(add-before 'configure 'patch-docbook-xml
(lambda* (#:key inputs #:allow-other-keys)
(with-directory-excursion "doc"
(substitute* "libgnt-docs.xml"
(("http://www.oasis-open.org/docbook/xml/4.1.2/")
(string-append (assoc-ref inputs "docbook-xml")
"/xml/dtd/docbook/"))))
#t))
"/xml/dtd/docbook/"))))))
(add-after 'install 'move-doc
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
@ -277,8 +275,7 @@ (define-public libgnt
(mkdir-p (string-append doc "/share"))
(rename-file
(string-append out "/share/gtk-doc")
(string-append doc "/share/gtk-doc"))
#t))))))
(string-append doc "/share/gtk-doc"))))))))
(native-inputs
`(("docbook-xml" ,docbook-xml-4.1.2)
("glib:bin" ,glib "bin")
@ -1330,14 +1327,14 @@ (define-public dino
(define-public prosody
(package
(name "prosody")
(version "0.11.9")
(version "0.11.10")
(source (origin
(method url-fetch)
(uri (string-append "https://prosody.im/downloads/source/"
"prosody-" version ".tar.gz"))
(sha256
(base32
"02gzvsaq0l5lx608sfh7hfz14s6yfsr4sr4kzcsqd1cxljp35h6c"))))
"1q84s9cq7cgzd295qxa2iy0r3vd3v3chbck62bdx3pd6skk19my6"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ;tests require "busted"
@ -1353,16 +1350,14 @@ (define-public prosody
;; The configure script aborts when it encounters unexpected
;; arguments. Make it more tolerant.
(substitute* "configure"
(("exit 1") ""))
#t))
(("exit 1") ""))))
(add-after 'unpack 'fix-makefile
(lambda _
(substitute* "GNUmakefile"
;; prosodyctl needs to read the configuration file.
(("^INSTALLEDCONFIG =.*") "INSTALLEDCONFIG = /etc/prosody\n")
;; prosodyctl needs a place to put auto-generated certificates.
(("^INSTALLEDDATA =.*") "INSTALLEDDATA = /var/lib/prosody\n"))
#t))
(("^INSTALLEDDATA =.*") "INSTALLEDDATA = /var/lib/prosody\n"))))
(add-after 'install 'wrap-programs
(lambda* (#:key inputs outputs #:allow-other-keys)
;; Make sure all executables in "bin" find the required Lua
@ -1398,8 +1393,7 @@ (define-public prosody
`("LUA_PATH" ";" = (,lua-path))
`("LUA_CPATH" ";" = (,lua-cpath))
`("PATH" ":" prefix ,path)))
(find-files bin ".*"))
#t))))))
(find-files bin ".*"))))))))
(inputs
`(("libidn" ,libidn)
("openssl" ,openssl)

10
gnu/packages/moreutils.scm
View file

@ -23,6 +23,7 @@ (define-module (gnu packages moreutils)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu)
#:use-module (guix utils)
#:use-module (gnu packages perl)
#:use-module (gnu packages xml)
#:use-module (gnu packages docbook))
@ -30,7 +31,7 @@ (define-module (gnu packages moreutils)
(define-public moreutils
(package
(name "moreutils")
(version "0.65")
(version "0.66")
(source
(origin
(method url-fetch)
@ -38,7 +39,7 @@ (define-public moreutils
"https://git.joeyh.name/index.cgi/moreutils.git/snapshot/"
name "-" version ".tar.gz"))
(sha256
(base32 "10c8b4bwnli4gxwvgmgkc5kin1ksrxsnxmigs7y4rrh4aaszdjb0"))))
(base32 "0k91dvqy3jb070bkmhkdxhi05fr7hqlwpv1nrx329wmgi80rw1yw"))))
(build-system gnu-build-system)
;; For building the manual pages.
(native-inputs
@ -58,8 +59,7 @@ (define-public moreutils
(let* ((out (assoc-ref outputs "out")))
(wrap-program
(string-append out "/bin/ts")
`("PERL5LIB" ":" prefix (,(getenv "PERL5LIB")))))
#t))
`("PERL5LIB" ":" prefix (,(getenv "PERL5LIB")))))))
(delete 'configure)) ; no configure script
#:make-flags
(list (string-append "PREFIX=" (assoc-ref %outputs "out"))
@ -67,7 +67,7 @@ (define-public moreutils
(assoc-ref %build-inputs "docbook-xsl") "/xml/xsl/"
,(package-name docbook-xsl) "-"
,(package-version docbook-xsl))
"CC=gcc")))
(string-append "CC=" ,(cc-for-target)))))
(home-page "https://joeyh.name/code/moreutils/")
(synopsis "Miscellaneous general-purpose command-line tools")
(description

4
gnu/packages/music.scm
View file

@ -3357,14 +3357,14 @@ (define-public aj-snapshot
(define-public qtractor
(package
(name "qtractor")
(version "0.9.23")
(version "0.9.24")
(source (origin
(method url-fetch)
(uri (string-append "https://downloads.sourceforge.net/qtractor/"
"qtractor-" version ".tar.gz"))
(sha256
(base32
"1d2d884x5kfa41skwyh0ihyx5jgc9467617gmfjm379qcgnxq00s"))))
"0bkr3ahpz54ssrvgkg3dw1jxp3hh7ayxr51jy3csm327is9gnd31"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f)) ; no "check" target

41
gnu/packages/networking.scm
View file

@ -2269,14 +2269,14 @@ (define-public libproxy
(define-public proxychains-ng
(package
(name "proxychains-ng")
(version "4.14")
(version "4.15")
(source
(origin
(method url-fetch)
(uri (string-append "http://ftp.barfooze.de/pub/sabotage/tarballs/"
"proxychains-ng-" version ".tar.xz"))
(sha256
(base32 "1bmhfbl1bzc87vl0xwr1wh5xvslfyc41nl2hqzhbj258p0sy004x"))))
(base32 "10ch6rmbw2lwrq1bc9w4glxkws7hvsy5ihasvzf3yg053xzsn1rj"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; there are no tests
@ -2289,12 +2289,10 @@ (define-public proxychains-ng
(substitute* "configure"
(("\\*\\) break ;;" line)
(string-append "[A-Z]*) shift ;;\n"
line)))
#t))
line)))))
(add-before 'configure 'set-up-environment
(lambda _
(setenv "CC" "gcc")
#t)))))
(setenv "CC" ,(cc-for-target)))))))
(synopsis "Redirect any TCP connection through a proxy or proxy chain")
(description "Proxychains-ng is a preloader which hooks calls to sockets
in dynamically linked programs and redirects them through one or more SOCKS or
@ -2503,7 +2501,7 @@ (define-public nzbget
(define-public openvswitch
(package
(name "openvswitch")
(version "2.16.0")
(version "2.16.1")
(source (origin
(method url-fetch)
(uri (string-append
@ -2511,11 +2509,12 @@ (define-public openvswitch
version ".tar.gz"))
(sha256
(base32
"0sldyib85v5lh3qp9af0jgvf304pwdmjd0y7rknfwliykgjvgqsm"))))
"1x0k0pw6jykrfgb8rq56bp2ghxd433d55pmr8mxy9gbzw1nc1vbi"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags
'("--enable-shared"
"--disable-static" ; XXX still installs libopenvswitchavx512.a
"--localstatedir=/var"
"--with-dbdir=/var/lib/openvswitch")
#:phases
@ -4216,32 +4215,34 @@ (define-public netdiscover
(define-public putty
(package
(name "putty")
(version "0.75")
(version "0.76")
(source
(origin
(method url-fetch)
(uri (string-append "http://www.putty.be/" version
"/putty-" version ".tar.gz"))
(uri (list (string-append "https://the.earth.li/~sgtatham/putty/"
version "/putty-" version ".tar.gz")
(string-append "http://www.putty.be/" version
"/putty-" version ".tar.gz")))
(sha256
(base32
"1xgrr1fbirw79zafspg2b6crzfmlfw910y79md4r7gnxgq1kn5yk"))))
(base32 "0gvi8phabszqksj2by5jrjmshm7bpirhgavz0dqyz1xaimxdjz2l"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'configure 'chdir
(lambda _
(chdir "unix")
#t)))))
(chdir "unix"))))))
(inputs
`(("gtk+" ,gtk+)))
(native-inputs
`(("pkg-config" ,pkg-config)
("python" ,python))) ; for tests
(synopsis "Graphical @acronym{SSH} and telnet client")
(description "Putty is a terminal client. It supports @acronym{SSH},
telnet, and raw socket connections with good terminal emulation. It supports
public key authentication and Kerberos single-sign-on. It also includes
command-line @acronym{SFTP} and @acronym{SCP} implementations.")
(synopsis "Graphical @acronym{SSH, Secure SHell} and telnet client")
(description "PuTTY is a graphical text terminal client. It supports
@acronym{SSH, Secure SHell}, telnet, and raw socket connections with good
terminal emulation. It can authenticate with public keys and Kerberos
single-sign-on. It also includes command-line @acronym{SFTP, Secure File
Transfer Protocol} and older @acronym{SCP, Secure Copy Protocol}
implementations.")
(home-page "https://www.chiark.greenend.org.uk/~sgtatham/putty/")
(license license:expat)))

39
gnu/packages/patches/emacs-exwm-fix-fullscreen-states.patch
View file

@ -1,39 +0,0 @@
From edb930005b0ba83051ca8a59b493e9a3c8ef580a Mon Sep 17 00:00:00 2001
From: Chris Feng <chris.w.feng@gmail.com>
Date: Sun, 14 Jun 2020 00:00:00 +0000
Subject: [PATCH] Fix fullscreen states
* exwm-layout.el (exwm-layout-set-fullscreen,
exwm-layout-unset-fullscreen): Use `exwm--id' for interactive use.
(exwm-layout-unset-fullscreen): Mandatorily clear fullscreen states.
---
exwm-layout.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/exwm-layout.el b/exwm-layout.el
index 170c2be..79d0c95 100644
--- a/exwm-layout.el
+++ b/exwm-layout.el
@@ -205,7 +205,7 @@
:border-width 0
:stack-mode xcb:StackMode:Above))
(cl-pushnew xcb:Atom:_NET_WM_STATE_FULLSCREEN exwm--ewmh-state)
- (exwm-layout--set-ewmh-state id)
+ (exwm-layout--set-ewmh-state exwm--id)
(xcb:flush exwm--connection)
(set-window-dedicated-p (get-buffer-window) t)
(exwm-input--release-keyboard exwm--id)))
@@ -233,7 +233,9 @@
(let ((window (get-buffer-window nil t)))
(when window
(exwm-layout--show exwm--id window))))
- (exwm-layout--set-ewmh-state id)
+ (setq exwm--ewmh-state
+ (delq xcb:Atom:_NET_WM_STATE_FULLSCREEN exwm--ewmh-state))
+ (exwm-layout--set-ewmh-state exwm--id)
(xcb:flush exwm--connection)
(set-window-dedicated-p (get-buffer-window) nil)
(when (eq 'line-mode exwm--selected-input-mode)
--
2.26.2

24
gnu/packages/patches/inkscape-1.1-fix-build-witch-gcc7.5.patch
View file

@ -1,24 +0,0 @@
From 0ae15d7e89b984f72780ff7afa8e57dd6ae7765a Mon Sep 17 00:00:00 2001
From: "Boris A. Dekshteyn" <boris.dekshteyn@gmail.com>
Date: Mon, 14 Jun 2021 23:52:16 +1200
Subject: [PATCH] Fix build witch GCC@7.5.
---
src/object/sp-use-reference.h | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/object/sp-use-reference.h b/src/object/sp-use-reference.h
index 5958632059..f07c2a3721 100644
--- a/src/object/sp-use-reference.h
+++ b/src/object/sp-use-reference.h
@@ -14,6 +14,7 @@
#include "sp-item.h"
#include "uri-references.h"
+#include "display/curve.h"
#include <memory>
--
2.32.0

2
gnu/packages/patches/rust-openssl-sys-no-vendor.patch
View file

@ -2,6 +2,8 @@ https://sources.debian.org/data/main/r/rust-openssl-sys/0.9.53-1/debian/patches/
"MIT" licensed according to debian/copyright file
slightly modified to only change the vendored openssl-src dependency
Starting from rust-openssl-sys@0.9.69 Cargo.toml starts searching for openssl-3.0.
--- a/Cargo.toml
+++ b/Cargo.toml
@@ -31,14 +31,11 @@

8
gnu/packages/pdf.scm
View file

@ -284,14 +284,14 @@ (define-public poppler
(define-public poppler-data
(package
(name "poppler-data")
(version "0.4.10")
(version "0.4.11")
(source (origin
(method url-fetch)
(uri (string-append "https://poppler.freedesktop.org/poppler-data"
"-" version ".tar.gz"))
(sha256
(base32
"0c3vjs3p7rjc4yfacnhd865r27czmzwcr4j2z4jldi68dvvcwbvf"))))
"137h4m48gc4v0srnr0gkwaqna6kfdqpy5886if5gjfmh3g6hbv1c"))))
(build-system gnu-build-system)
(arguments
'(#:tests? #f ; no test suite
@ -1104,13 +1104,13 @@ (define-public impressive
(define-public img2pdf
(package
(name "img2pdf")
(version "0.4.2")
(version "0.4.3")
(source
(origin
(method url-fetch)
(uri (pypi-uri "img2pdf" version))
(sha256
(base32 "18kr8j31rrcfs3fiav552d23hv2lbv48ag5hpx9kw4fn0djmikxa"))))
(base32 "17z0bn8kihiyqjd1m5jr80m7ry06l1qn0l8v918xg5gs7q2calcf"))))
(build-system python-build-system)
(propagated-inputs
`(("python-pikepdf" ,python-pikepdf)

16
gnu/packages/pulseaudio.scm
View file

@ -283,7 +283,7 @@ (define-public pulseaudio
(define-public pavucontrol
(package
(name "pavucontrol")
(version "4.0")
(version "5.0")
(source (origin
(method url-fetch)
(uri (string-append
@ -292,11 +292,12 @@ (define-public pavucontrol
".tar.xz"))
(sha256
(base32
"1qhlkl3g8d7h72xjskii3g1l7la2cavwp69909pzmbi2jyn5pi4g"))))
"0yjfiwpaydh5s8v3l78dhwhbsmcl1xsq3p8rvz80m9zinp1p4ayf"))))
(build-system glib-or-gtk-build-system)
(inputs
`(("adwaita-icon-theme" ,adwaita-icon-theme) ;hard-coded theme
("gtkmm" ,gtkmm-3)
("json-glib" ,json-glib)
("libcanberra" ,libcanberra)
("pulseaudio" ,pulseaudio)))
(native-inputs
@ -433,7 +434,7 @@ (define-public pulseaudio-dlna
(define-public pamixer
(package
(name "pamixer")
(version "1.4")
(version "1.5")
(source
(origin
(method git-fetch)
@ -442,19 +443,18 @@ (define-public pamixer
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1i14550n8paijwwnhksv5izgfqm3s5q2773bdfp6vyqybkll55f7"))))
(base32 "1d5arjbsh3q9z693pi2rq553ai9b18iz36ss7q8ff29m0hf62lzd"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; There is no test suite.
`(#:tests? #f ; no test suite
#:make-flags
(list (string-append "PREFIX=" (assoc-ref %outputs "out")))
#:phases
(modify-phases %standard-phases
(delete 'configure) ; There's no configure phase.
(delete 'configure) ; no configure script
(add-before 'install 'mkdir-bin
(lambda _
(mkdir-p (string-append (assoc-ref %outputs "out") "/bin"))
#t)))))
(mkdir-p (string-append (assoc-ref %outputs "out") "/bin")))))))
(inputs
`(("boost" ,boost)
("pulseaudio" ,pulseaudio)))

6
gnu/packages/purescript.scm
View file

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 John Soo <jsoo1@asu.edu>
;;; Copyright © 2020 Bonface Munyoki Kilyungi <bonfacemunyoki@gmail.com>
;;; Copyright © 2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -33,7 +34,7 @@ (define-module (gnu packages purescript)
(define-public purescript
(package
(name "purescript")
(version "0.14.4")
(version "0.14.5")
(source
(origin
(method url-fetch)
@ -42,8 +43,7 @@ (define-public purescript
version
".tar.gz"))
(sha256
(base32
"0qda90yycv2yyjdpfqvmsnxbyxpx55b53cfp9rgnbhbrskr0w2vk"))))
(base32 "06f318hdah076vkviw1ryyg2p0gpbabsp8lbm5x03f2qv92n9j1n"))))
(build-system haskell-build-system)
(inputs
`(("ghc-glob" ,ghc-glob)

25
gnu/packages/python-web.scm
View file

@ -5266,18 +5266,19 @@ (define-public python-httpx
`(#:phases
(modify-phases %standard-phases
(replace 'check
(lambda _
(invoke "pytest" "-vv" "-k"
;; These tests try to open an outgoing connection.
(string-append
"not test_connect_timeout"
" and not test_that_send_cause_async_client_to_be_not_"
"closed"
" and not test_that_async_client_caused_warning_when_"
"being_deleted"
" and not test_that_send_cause_client_to_be_not_closed"
" and not test_async_proxy_close"
" and not test_sync_proxy_close")))))))
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "pytest" "-vv" "-k"
;; These tests try to open an outgoing connection.
(string-append
"not test_connect_timeout"
" and not test_that_send_cause_async_client_to_be_not_"
"closed"
" and not test_that_async_client_caused_warning_when_"
"being_deleted"
" and not test_that_send_cause_client_to_be_not_closed"
" and not test_async_proxy_close"
" and not test_sync_proxy_close"))))))))
(native-inputs
`(("python-autoflake" ,python-autoflake)
("python-black" ,python-black)

12
gnu/packages/python-xyz.scm
View file

@ -16491,10 +16491,10 @@ (define-public python2-binaryornot
`(("python2-enum34" ,python2-enum34)
,@(package-propagated-inputs base))))))
(define-public python-binwalk
(define-public binwalk
(package
(name "python-binwalk")
(version "2.2.0")
(name "binwalk")
(version "2.3.2")
(source
(origin
(method git-fetch)
@ -16503,8 +16503,7 @@ (define-public python-binwalk
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1bxgj569fzwv6jhcbl864nmlsi9x1k1r20aywjxc8b9b1zgqrlvc"))))
(base32 "01dalxw07c42ka4fqpixcacvy42h04ya909lzpmsblr9s2xdgwcm"))))
(build-system python-build-system)
(arguments
`(#:phases
@ -16521,6 +16520,9 @@ (define-public python-binwalk
extracting firmware images")
(license license:expat)))
(define-public python-binwalk
(deprecated-package "python-binwalk" binwalk))
(define-public python-nltk
(package
(name "python-nltk")

7
gnu/packages/samba.scm
View file

@ -396,14 +396,14 @@ (define-public tevent
(define-public ldb
(package
(name "ldb")
(version "2.4.0")
(version "2.4.1")
(source (origin
(method url-fetch)
(uri (string-append "https://www.samba.org/ftp/ldb/ldb-"
version ".tar.gz"))
(sha256
(base32
"10rd1z2llqz8xdx6m7yyxb9a118gx2xxwri18bhkkab9n1w55rvn"))
"13yd7lavbx8bxwnmzl0j7xnl2gl4wmnn0q9g7n3y7bvbnhm07hb9"))
(modules '((guix build utils)))
(snippet
'(begin
@ -412,8 +412,7 @@ (define-public ldb
(unless (or (string-prefix? "third_party/waf" file)
(string-suffix? "wscript" file))
(delete-file file)))
(find-files "third_party"))
#t))))
(find-files "third_party"))))))
(build-system gnu-build-system)
(arguments
'(;; LMDB is only supported on 64-bit systems, yet the test suite

11
gnu/packages/shells.scm
View file

@ -803,14 +803,14 @@ (define-public loksh
(define-public mksh
(package
(name "mksh")
(version "58")
(version "59c")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.mirbsd.org/MirOS/dist/mir/mksh/mksh-R"
version ".tgz"))
(sha256
(base32 "1337zjvzh14yncg9igdry904a3ns52l8rnm1kcq262w7f5xyp2v0"))))
(base32 "01n5ggw33bw4jv4d3148wlw9n4aj7vdn3ffnc66c9w9pldjidbkp"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; tests require access to /dev/tty
@ -829,8 +829,7 @@ (define-public mksh
(install-file "mksh" bin)
(with-directory-excursion bin
(symlink "mksh" "ksh"))
(install-file "mksh.1" man)
#t))))))
(install-file "mksh.1" man)))))))
(home-page "https://www.mirbsd.org/mksh.htm")
(synopsis "Korn Shell from MirBSD")
(description "mksh is an actively developed free implementation of the
@ -842,14 +841,14 @@ (define-public mksh
(define-public oil
(package
(name "oil")
(version "0.9.2")
(version "0.9.3")
(source
(origin
(method url-fetch)
(uri (string-append "https://www.oilshell.org/download/oil-"
version ".tar.gz"))
(sha256
(base32 "0mqf2wmc1p6xr2l54pxv97d0s23wqm1mwwgyzn06aafr93dy3vkg"))))
(base32 "1js5i25wgvz7avsrfygxy96axanc97yvlc69arp0ja9vkcrxv5px"))))
(build-system gnu-build-system)
(arguments
`(#:strip-binaries? #f ; strip breaks the binary

4
gnu/packages/terminals.scm
View file

@ -738,7 +738,7 @@ (define-public cool-retro-term
(define-public foot
(package
(name "foot")
(version "1.6.3")
(version "1.9.2")
(home-page "https://codeberg.org/dnkl/foot")
(source (origin
(method git-fetch)
@ -746,7 +746,7 @@ (define-public foot
(file-name (git-file-name name version))
(sha256
(base32
"0rm7w29wf3gipf69qf7s42qw8857z74gsigrpz9g6vvd1x58f03m"))))
"15h01ijx87i60bdgjjap1ymwlxggsxc6iziykh3bahj8432s1836"))))
(build-system meson-build-system)
(arguments
`(;; Using a "release" build is recommended both for performance, and

66
gnu/packages/video.scm
View file

@ -1076,7 +1076,7 @@ (define-public mkvtoolnix
(define-public pipe-viewer
(package
(name "pipe-viewer")
(version "0.1.4")
(version "0.1.5")
(source
(origin
(method git-fetch)
@ -1086,7 +1086,7 @@ (define-public pipe-viewer
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0d8b3gcr9dndw8qlwfrm0wgp4vjmn8fwd151kmzz7kkw57f5jfch"))))
(base32 "075xc5kvnmyqqj7zijvdrvbkna931h7xf8f8z0ick7yx5fy3pn5j"))))
(build-system perl-build-system)
(arguments
`(#:imported-modules
@ -1704,17 +1704,6 @@ (define-public ffmpeg
audio/video codec library.")
(license license:gpl2+)))
(define-public ffmpeg-4.3
(package/inherit ffmpeg
(version "4.3.2")
(source (origin
(method url-fetch)
(uri (string-append "https://ffmpeg.org/releases/ffmpeg-"
version ".tar.xz"))
(sha256
(base32
"1nyd9jlcy0pqnwzi29a7sg50hq37vb0g3f9l16y3q8yh3m7ydr26"))))))
(define-public ffmpeg-3.4
(package
(inherit ffmpeg)
@ -2098,7 +2087,7 @@ (define-public mplayer
(define-public mpv
(package
(name "mpv")
(version "0.33.1")
(version "0.34.0")
(source (origin
(method git-fetch)
(uri (git-reference
@ -2106,8 +2095,7 @@ (define-public mpv
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"06rw1f55zcsj78ql8w70j9ljp2qb1pv594xj7q9cmq7i92a7hq45"))))
(base32 "0kqckrgvpx42gdmnc644lpwbimwf1am256xd670w2b8sbrjv3bm9"))))
(build-system waf-build-system)
(native-inputs
`(("perl" ,perl) ; for zsh completion file
@ -2151,19 +2139,17 @@ (define-public mpv
("wayland" ,wayland)
("wayland-protocols" ,wayland-protocols)
("libxkbcommon" ,libxkbcommon)
("youtube-dl" ,youtube-dl)
("yt-dlp" ,yt-dlp)
("zlib" ,zlib)))
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after
'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(let ((ytdl (assoc-ref inputs "youtube-dl")))
(substitute* "player/lua/ytdl_hook.lua"
(("\"youtube-dl\",")
(string-append "\"" ytdl "/bin/youtube-dl\",")))
#t)))
(add-after 'unpack 'patch-paths
(lambda* (#:key inputs #:allow-other-keys)
(let ((ytdl (assoc-ref inputs "yt-dlp")))
(substitute* "player/lua/ytdl_hook.lua"
(("\"yt-dlp\",")
(string-append "\"" ytdl "/bin/yt-dlp\","))))))
(add-before 'configure 'build-reproducibly
(lambda _
;; Somewhere in the build system library dependencies are enumerated
@ -4661,7 +4647,7 @@ (define-public vidstab
(define-public libopenshot
(package
(name "libopenshot")
(version "0.2.5")
(version "0.2.7")
(source (origin
(method git-fetch)
(uri (git-reference
@ -4670,11 +4656,11 @@ (define-public libopenshot
(file-name (git-file-name name version))
(sha256
(base32
"1mxjkgjmjzgf628y3rscc6rqf55hxgjpmvwxlncfk1216i5xskwp"))
"0i9bsn8gklm1mvj60l3d3xrxdgy8svpxjfqcwsr308j5zjn30pv8"))
(modules '((guix build utils)))
(snippet '(begin
;; Allow overriding of the python installation dir
(substitute* "src/bindings/python/CMakeLists.txt"
(substitute* "bindings/python/CMakeLists.txt"
(("(SET\\(PYTHON_MODULE_PATH.*)\\)" _ set)
(string-append set " CACHE PATH "
"\"Python bindings directory\")")))
@ -4686,11 +4672,12 @@ (define-public libopenshot
("python" ,python)
("swig" ,swig)
("unittest++" ,unittest-cpp)))
(inputs
`(("alsa-lib" ,alsa-lib)
("zlib" ,zlib)))
(propagated-inputs ;all referenced in installed headers
`(("cppzmq" ,cppzmq)
;; libopenshot doesn't yet build with ffmpeg 4.4 (see:
;; https://github.com/OpenShot/libopenshot/issues/676).
("ffmpeg" ,ffmpeg-4.3)
("ffmpeg" ,ffmpeg)
("imagemagick" ,imagemagick)
("jsoncpp" ,jsoncpp)
("libopenshot-audio" ,libopenshot-audio)
@ -4724,7 +4711,7 @@ (define-public libopenshot
(define-public openshot
(package
(name "openshot")
(version "2.5.1")
(version "2.6.1")
(source (origin
(method git-fetch)
(uri (git-reference
@ -4733,7 +4720,7 @@ (define-public openshot
(file-name (git-file-name name version))
(sha256
(base32
"0qc5i0ay6j2wab1whl41sjb71cj02pg6y79drf7asrprq8b2rmfq"))
"0pa8iwl217503bjlqg2zlrw5lxyq5hvxrf5apxrh3843hj1w1myv"))
(modules '((guix build utils)))
(snippet
'(begin
@ -4758,9 +4745,10 @@ (define-public openshot
#:phases (modify-phases %standard-phases
(delete 'build) ;install phase does all the work
(replace 'check
(lambda _
(setenv "QT_QPA_PLATFORM" "offscreen")
(invoke "python" "src/tests/query_tests.py")))
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(setenv "QT_QPA_PLATFORM" "offscreen")
(invoke "python" "src/tests/query_tests.py"))))
(add-after 'unpack 'patch-font-location
(lambda* (#:key inputs #:allow-other-keys)
(let ((font (assoc-ref inputs "font-dejavu")))
@ -4769,6 +4757,12 @@ (define-public openshot
(("fonts") "share/fonts/truetype")
(("[A-Za-z_-]+.ttf") "DejaVuSans.ttf")))
#t))
;; https://github.com/OpenShot/openshot-qt/issues/4502
(add-before 'ensure-no-mtimes-pre-1980 'fix-symbolic-link
(lambda _
(delete-file "images/Humanity/actions/custom/razor_line_with_razor.png")
(symlink "../../../../src/timeline/media/images/razor_line_with_razor.png"
"images/Humanity/actions/custom/razor_line_with_razor.png")))
(add-before 'install 'set-tmp-home
(lambda _
;; src/classes/info.py "needs" to create several

87
gnu/packages/vim.scm
View file

@ -11,6 +11,7 @@
;;; Copyright © 2020, 2021 Jack Hill <jackhill@jackhill.us>
;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com>
;;; Copyright © 2021 Tissevert <tissevert+guix@marvid.fr>
;;; Copyright © 2021 Foo Chuan Wei <chuanwei.foo@hotmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
@ -43,6 +44,7 @@ (define-module (gnu packages vim)
#:use-module (gnu packages attr)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
#:use-module (gnu packages code)
#:use-module (gnu packages enlightenment)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages gawk)
@ -390,8 +392,8 @@ (define-public vim-neosnippet
(license license:expat))))
(define-public vim-scheme
(let ((commit "99af6befee8bc7d289a523064336474ae063cee3")
(revision "2"))
(let ((commit "e22fc8e199ef52f2efacd08e71c3add90d83b375")
(revision "3"))
(package
(name "vim-scheme")
(version (git-version "0.0.0" revision commit))
@ -399,12 +401,12 @@ (define-public vim-scheme
(origin
(method git-fetch)
(uri (git-reference
(url "http://git.foldling.org/vim-scheme.git")
(url "https://git.foldling.org/vim-scheme.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0w9hnsxg92f1wd83rra0ss07zla7p2r44whr9rqs70hc0xm8ygd6"))))
"04h946vr4f8wxap3wzqs69y2v8n50g2zbk22jsg2kxr4c01z5cbw"))))
(build-system copy-build-system)
(arguments
'(#:install-plan
@ -415,7 +417,7 @@ (define-public vim-scheme
(description
"@code{vim-scheme} provides Scheme support for Vim (R7RS and CHICKEN).")
(home-page "https://foldling.org/git/vim-scheme.git/")
(license license:public-domain))))
(license license:unlicense))))
(define-public vim-luna
(let ((commit "633619953dcf8577168e255230f96b05f28d6371")
@ -1217,3 +1219,78 @@ (define-public vim-gitgutter
buffer.")
(home-page "https://github.com/airblade/vim-gitgutter")
(license license:expat))))
(define-public vim-characterize
(package
(name "vim-characterize")
(version "1.1")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/tpope/vim-characterize")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "0ppsbsd696ih40d9f76mdl9sd9y7p2pvm65qmvq4b2zhkv4xbpxz"))))
(build-system copy-build-system)
(arguments
'(#:install-plan
'(("autoload" "share/vim/vimfiles/")
("doc" "share/vim/vimfiles/")
("plugin" "share/vim/vimfiles/"))))
(home-page "https://github.com/tpope/vim-characterize")
(synopsis "Vim plugin for showing Unicode character metadata")
(description
"In Vim, pressing @code{ga} on a character reveals its representation in
decimal, octal, and hex. Characterize.vim modernizes this with the following
additions:
@itemize
@item Unicode character names: @code{U+00A9 COPYRIGHT SYMBOL}
@item Vim digraphs (type after @code{<C-K>} to insert the character):
@code{Co}, @code{cO}
@item Emoji codes: @code{:copyright:}
@item HTML entities: @code{&copy;}
@end itemize")
(license license:vim)))
(define-public vim-tagbar
(package
(name "vim-tagbar")
(version "3.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/preservim/tagbar")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1fqfs8msmr6d4kpvxqp14sdjvp5fj52q5w5kz71myzcd4kqzmirp"))))
(build-system copy-build-system)
(arguments
'(#:install-plan
'(("autoload" "share/vim/vimfiles/")
("doc" "share/vim/vimfiles/")
("plugin" "share/vim/vimfiles/")
("syntax" "share/vim/vimfiles/"))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'link-univerisal-ctags
(lambda* (#:key inputs #:allow-other-keys)
(let ((ctags (assoc-ref inputs "universal-ctags")))
(substitute* "autoload/tagbar.vim"
(("(.*)universal-ctags']" all leader)
(string-append all "\n"
leader ctags "/bin/ctags']")))))))))
(inputs
`(("universal-ctags" ,universal-ctags)))
(home-page "https://github.com/preservim/tagbar")
(synopsis "Vim plugin that displays tags in a window, ordered by scope")
(description
"Tagbar is a Vim plugin that provides an easy way to browse the tags of
the current file and get an overview of its structure. It does this by creating
a sidebar that displays the ctags-generated tags of the current file, ordered
by their scope. This means that for example methods in C++ are displayed under
the class they are defined in.")
(license license:vim)))

20
gnu/packages/webkit.scm
View file

@ -2,7 +2,7 @@
;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
;;; Copyright © 2015 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015–2021 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com>
@ -40,6 +40,7 @@ (define-module (gnu packages webkit)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages gcc)
#:use-module (gnu packages gettext)
#:use-module (gnu packages ghostscript)
#:use-module (gnu packages gl)
#:use-module (gnu packages glib)
#:use-module (gnu packages gnome)
@ -51,6 +52,7 @@ (define-module (gnu packages webkit)
#:use-module (gnu packages image)
#:use-module (gnu packages libreoffice)
#:use-module (gnu packages linux)
#:use-module (gnu packages llvm)
#:use-module (gnu packages perl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages python)
@ -226,14 +228,14 @@ (define-public wpewebkit
(define-public webkitgtk
(package
(name "webkitgtk")
(version "2.32.4")
(version "2.34.1")
(source (origin
(method url-fetch)
(uri (string-append "https://www.webkitgtk.org/releases/"
"webkitgtk-" version ".tar.xz"))
(sha256
(base32
"1zfkfyhm4i7901pp32wcwcfxax69qgq5k44x0glwaywdg4zjvkh0"))
"1vix0w24m7mq82rzxrk8xvcrkli44gimzs282xs29q2xf0b16g24"))
(patches (search-patches "webkitgtk-share-store.patch"
"webkitgtk-bind-all-fonts.patch"))))
(build-system cmake-build-system)
@ -252,6 +254,9 @@ (define-public webkitgtk
"-DLIB_INSTALL_DIR="
(assoc-ref %outputs "out") "/lib")
;; XXX TODO: Use libsoup@3.
"-DUSE_SOUP2=ON"
;; XXX Adding GStreamer GL support would apparently
;; require adding gst-plugins-bad to the inputs,
;; which might entail a security risk as a result of
@ -290,6 +295,11 @@ (define-public webkitgtk
(("libWPEBackend-fdo-([\\.0-9]+)\\.so" all version)
(string-append wpebackend-fdo "/lib/" all)))
#t)))
(add-before 'configure 'prepare-build-environment
(lambda* (#:key inputs #:allow-other-keys)
(setenv "CC" "clang")
(setenv "CXX" "clang++")
#t))
(add-after 'install 'move-doc-files
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
@ -299,7 +309,8 @@ (define-public webkitgtk
(string-append doc "/share/gtk-doc"))
#t))))))
(native-inputs
`(("bison" ,bison)
`(("clang" ,clang-11)
("bison" ,bison)
("gettext" ,gettext-minimal)
("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
("gobject-introspection" ,gobject-introspection)
@ -323,6 +334,7 @@ (define-public webkitgtk
("harfbuzz" ,harfbuzz)
("hyphen" ,hyphen)
("icu4c" ,icu4c)
("lcms" ,lcms)
("libgcrypt" ,libgcrypt)
("libjpeg" ,libjpeg-turbo)
("libnotify" ,libnotify)

16
gnu/services/configuration.scm
View file

@ -359,10 +359,7 @@ (define* (interpose ls #:optional (delimiter "\n") (grammar 'infix))
(G_ "The GRAMMAR value must be 'infix or 'suffix, but ~a provided.")
grammar)))
(fold-right (lambda (e acc)
(cons #~(begin
(use-modules (ice-9 rdelim))
(with-fluids ((%default-port-encoding "UTF-8"))
(with-input-from-file #$e read-string)))
(cons e
(if (and (null? acc) (eq? grammar 'infix))
acc
(cons delimiter acc))))
@ -387,7 +384,16 @@ (define serialize-file-like empty-serializer)
(define (text-config? config)
(list-of file-like?))
(define (serialize-text-config field-name val)
#~(string-append #$@(interpose val "\n" 'suffix)))
#~(string-append
#$@(interpose
(map
(lambda (e)
#~(begin
(use-modules (ice-9 rdelim))
(with-fluids ((%default-port-encoding "UTF-8"))
(with-input-from-file #$e read-string))))
val)
"\n" 'suffix)))
(define ((generic-serialize-alist-entry serialize-field) entry)
"Apply the SERIALIZE-FIELD procedure on the field and value of ENTRY."

2
guix/import/stackage.scm
View file

@ -48,7 +48,7 @@ (define %stackage-url
(make-parameter "https://www.stackage.org"))
;; Latest LTS version compatible with current GHC.
(define %default-lts-version "18.10")
(define %default-lts-version "18.14")
(define-json-mapping <stackage-lts> make-stackage-lts
stackage-lts?