me
/
guix
Archived
1
0
Fork 0
Code

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

master
Efraim Flashner 2021-11-03 14:25:30 +02:00
parent aba40a6b7f b2721c3656
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 @@ Python loading in HPC environments.")
(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 @@ Python loading in HPC environments.")
(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 @@ library supports sample rates up to 96 kHz and up to eight channels (7.1
(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 @@ library supports sample rates up to 96 kHz and up to eight channels (7.1
(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 @@ c6e7d37. However, this package works only up to 128 bytes.")
#: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 @@ Python arrow.humanize.")
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 @@ TimeZone trait for @code{rust-chrono}.")
(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 @@ type.")
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 @@ thread.")
(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 @@ it.")
(("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 @@ which defines a default trait implementation, and @code{trait_impl} which uses
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 @@ a default trait implementation you've defined.")
(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 @@ a default trait implementation you've defined.")
("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 @@ with all line endings.")
"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 @@ system for OpenSSL.")
(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 @@ closures after a delay or at a given timestamp.")
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 @@ manipulation in Rust.")
(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 @@ manipulation in Rust.")
("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 @@
("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-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 @@ incrementally confined in Isearch manner.")
(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 @@ configuration language. It features:
(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 @@ configuration language. It features:
(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 @@ a command.")
(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 @@ a command.")
(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 @@ Expectations, but it can be used in other contexts.")
(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 @@ Expectations, but it can be used in other contexts.")
("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 @@ them easier to distinguish from other, less important buffers.")
(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 @@ programming and reproducible research.")
;; 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 @@ receive little if no maintainance and there is no guaranty that they are
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 @@ It should enable you to implement low-level X11 applications.")
(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 @@ It should enable you to implement low-level X11 applications.")
(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 @@ powerful Org contents.")
(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 @@ powerful Org contents.")
(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 @@ docstring of the thing at point.")
(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 @@ docstring of the thing at point.")
(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 @@ source code.")
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 @@ In addition to its predecessor, it offers the following features:
@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 @@ processes for Emacs")
(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 @@ processes for Emacs")
(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 @@ as Emacs Lisp.")
(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 @@ well as an option for visually flashing evaluated s-expressions.")
(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 @@ and Emacs lisp commands.")
(define-public emacs-extmap
(package
(name "emacs-extmap")
(version "1.2")
(version "1.2.1")
(source
(origin
(method git-fetch)
@ -28741,11 +28764,11 @@ and Emacs lisp commands.")
(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 @@ web feed files and correctly parse and format the elements to be
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 @@ Strife, Chex Quest, and fan-created games like Harmony, Hacx and Freedoom.")
(define-public odamex
(package
(name "odamex")
(version "0.9.3")
(version "0.9.5")
(source
(origin
(method url-fetch)
@ -7510,7 +7510,7 @@ Strife, Chex Quest, and fan-created games like Harmony, Hacx and Freedoom.")
"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 @@ ncurses for text display.")
(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 @@ in C/C++.")
;; 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 @@ in C/C++.")
"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 @@ in C/C++.")
(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 @@ in C/C++.")
"/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 @@ basic geometries.")
(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 @@ list of components. This module takes care of that for you.")
(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 @@ environment.")
(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 @@ environment.")
version
".tar.gz"))
(sha256
(base32 "0zsl6nna8ir215qyxhyh2czx4i16hzw1n1m8jw8ym02j6sp6iz13"))))
(base32 "0nvh2k8iqqkanmp7lpwd3asimyarzisly8wavbdahcxryn0j4xb7"))))
(build-system haskell-build-system)
(inputs
`(("ghc-ansi-terminal" ,ghc-ansi-terminal)
@ -1225,13 +1225,13 @@ environment.")
("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 @@ that hides the C implementation.")
(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 @@ that hides the C implementation.")
"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 @@ the C implementation.")
(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 @@ the C implementation.")
"cryptohash-sha256-" version ".tar.gz"))
(sha256
(base32
"0685s4hfighzywvvn05cfff5bl2xz3wq0pfncv6zca4iba3ykmla"))))
"1xkb7iqplbw4fy1122p79xf1zcb7k44rl0wmfj1q06l7cdqxr9vk"))))
(build-system haskell-build-system)
(arguments
`(#:cabal-revision
@ -409,7 +405,7 @@ Mail} (PEM) format.")
(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 @@ Mail} (PEM) format.")
"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 @@ extensions.")
(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 @@ extensions.")
"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 @@ communication between web applications and web servers.")
(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 @@ communication between web applications and web servers.")
".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 @@ limitation, automatic pruning, energy saving and replay resistance.")
(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 @@ limitation, automatic pruning, energy saving and replay resistance.")
"warp-tls-" version ".tar.gz"))
(sha256
(base32
"1k8f3r0l36mgwm69fikprv6pyjzj15702kq25dr9nc3sv5lcs162"))))
"0b9viw26ymzq4q8snfddz3w59sqcf5ankxnw6f99iacxjhk6zs6m"))))
(build-system haskell-build-system)
(inputs
`(("ghc-cryptonite" ,ghc-cryptonite)
@ -742,6 +739,7 @@ limitation, automatic pruning, energy saving and replay resistance.")
("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 @@ naming: in Greek mythology, Aeson was the father of Jason.)")
(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 @@ naming: in Greek mythology, Aeson was the father of Jason.)")
version ".tar.gz"))
(sha256
(base32
"09n7gs91y1fbw6gjszrd2na3isnvk3y5rsi90lzjrwywnqfadkl1"))))
"021az9az6xik9c9s3rnar5fr1lgy2h3igibf5ixnc7ps3m2lzg2x"))))
(build-system haskell-build-system)
(inputs
`(("ghc-aeson" ,ghc-aeson)
@ -1090,14 +1088,14 @@ essentially the opposite of pretty-printing.")
(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 @@ for Haskell.")
(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 @@ for Haskell.")
"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 @@ similar operations (e.g. @code{Either}, @code{These}).")
(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 @@ similar operations (e.g. @code{Either}, @code{These}).")
".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 @@ functions.")
(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 @@ functions.")
".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 @@ Compatibility package for older packages.")
(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 @@ Compatibility package for older packages.")
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 @@ very simple example of encoding CSV data:
(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 @@ very simple example of encoding CSV data:
".tar.gz"))
(sha256
(base32
"03x1462agrfdagklp8c89b8p4z2hd8nbf6d3895sz770zjkawda7"))))
"0pg9z38jmrylbj683b6pf7psipp7lrdq6mn1hbj8v2gj5lh8yf8n"))))
(build-system haskell-build-system)
(inputs
`(("ghc-cassava" ,ghc-cassava)
@ -4059,7 +4066,7 @@ directly uses the type system, rather than out-of-band exceptions.")
(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 @@ directly uses the type system, rather than out-of-band exceptions.")
"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 @@ representations of current time.")
(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 @@ representations of current time.")
"hpack-" version ".tar.gz"))
(sha256
(base32
"1xszy00al5zzga64gh7nvgqc93242f61kqy8lb09jkm98a8fs4bl"))))
"0gmm6jgi1sgyilphww6apq1x04grqznm7xhyb7g1rj5j7my40ws2"))))
(build-system haskell-build-system)
(inputs
`(("ghc-aeson" ,ghc-aeson)
@ -6189,29 +6196,29 @@ handler built in.")
(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 @@ removed. Both IPv4 and IPv6 are supported.")
(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 @@ removed. Both IPv4 and IPv6 are supported.")
"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 @@ removed. Both IPv4 and IPv6 are supported.")
(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 @@ Notation, JSON} is a lightweight data-interchange format.")
(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 @@ Notation, JSON} is a lightweight data-interchange format.")
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 @@ monadic incremental interface is provided as well.")
(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 @@ monadic incremental interface is provided as well.")
"lzma-conduit-" version ".tar.gz"))
(sha256
(base32
"0hm72da7xk9l3zxjh274yg444vf405djxqbkf3q3p2qhicmxlmg9"))))
"1z6q16hzp2r5a4gdbg9akky5l9bfarzzhzswrgvh0v28ax400whb"))))
(build-system haskell-build-system)
(inputs
`(("ghc-conduit" ,ghc-conduit)
@ -8295,7 +8299,7 @@ the @code{mtl-tf} package.")
(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 @@ the @code{mtl-tf} package.")
"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 @@ the @code{mtl-tf} package.")
(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 @@ found at runtime, a userError is thrown.")
(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 @@ found at runtime, a userError is thrown.")
"operational-" version ".tar.gz"))
(sha256
(base32
"1x2abg2q9d26h1vzj40r6k7k3gqgappbs4g9d853vvg77837km4i"))))
"1hwmwbsxzwv68b39rv4gn3da6irv8zm89gqrkc3rdsgwi5ziyn3i"))))
(build-system haskell-build-system)
(inputs
`(("ghc-random" ,ghc-random)))
@ -9135,7 +9138,7 @@ to other formats.")
(define-public ghc-emojis
(package
(name "ghc-emojis")
(version "0.1")
(version "0.1.2")
(source
(origin
(method url-fetch)
@ -9143,7 +9146,7 @@ to other formats.")
"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 @@ Implementations using both of these examples are provided.")
(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 @@ Implementations using both of these examples are provided.")
"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 @@ getDataFileName name = do
(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 @@ getDataFileName name = do
version ".tar.gz"))
(sha256
(base32
"0kr5n9yw59513pw2rjc65qs55iq0prn16prk4781arqdh7g7a09q"))))
"0z2j306jsiriwhib0201hsllwyck7qcvqci5c25frwsmknr3mls2"))))
(build-system haskell-build-system)
(arguments
`(#:phases
@ -9540,13 +9545,13 @@ version = Version [~a] []
#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 @@ syntax and semantics as Perl 5.")
(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 @@ syntax and semantics as Perl 5.")
"persistent-" version ".tar.gz"))
(sha256
(base32
"09si4h64i9drqr80a2sxpxhmsinacqx9bvsc3jah5zlm915q092y"))))
"13lp9i94f57qhifdmr1vnsrra34526f7kqa1sybcaj2jh2v3q85k"))))
(build-system haskell-build-system)
(inputs
`(("ghc-aeson" ,ghc-aeson)
@ -10199,16 +10204,16 @@ types.")
(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 @@ clashes, @code{Text}-based, extensible.")
(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 @@ clashes, @code{Text}-based, extensible.")
"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 @@ expressions.")
(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 @@ expressions.")
version ".tar.gz"))
(sha256
(base32
"02c6vzxcy1zkqwy6w4dsc97xvvdwlh8xr7imrlx2qs2521rvswr7"))))
"0pn55ssrwr05c9sa9jvp0knvzjksz04wn3pmzf5dz4xgbyjadkna"))))
(build-system haskell-build-system)
(inputs
`(("ghc-regex-base" ,ghc-regex-base)))
@ -11773,7 +11778,7 @@ class, forming lattice-like structure.")
(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 @@ class, forming lattice-like structure.")
".tar.gz"))
(sha256
(base32
"1c66sc9w9724xhlly9wfjhghmnnw99z9al69264i2izk7vhihbsm"))))
"0glhqc9x8i5z3bdg23xvl2lfns95msid3h3x0jksna7i6c8j869n"))))
(build-system haskell-build-system)
(outputs '("out" "static" "doc"))
(inputs
@ -11793,13 +11798,10 @@ class, forming lattice-like structure.")
("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 @@ and regression and autocorrelation analysis.
(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 @@ and regression and autocorrelation analysis.
"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 @@ dependency.")
(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 @@ objects from the timezone-series package.")
(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 @@ objects from the timezone-series package.")
".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 @@ but also need those types.")
(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 @@ but also need those types.")
".tar.gz"))
(sha256
(base32
"1ny7mi0n8cyb65q9ihbnm2gxiyya888dw2c4y0hjy8k882wdhf0x"))))
"0bybi4qp7nj9117yza5qqgw2f7s6rk3i7q642jqd7sdn3bx5cnap"))))
(build-system haskell-build-system)
(arguments
`(#:cabal-revision
@ -14042,7 +14046,7 @@ similar functionality.")
(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 @@ similar functionality.")
version ".tar.gz"))
(sha256
(base32
"0w4c76qln49967nnhf7f1zj3gbdfqp2qgf5ym8svhqyhp5gh61ws"))))
"071mw4yv4xr5n82si33qbcqcxvcr7h56zlyd8gmsfrsdnacbq47k"))))
(build-system haskell-build-system)
(inputs
`(("ghc-async" ,ghc-async)
@ -14678,7 +14682,7 @@ representing a store for a single element.")
(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 @@ representing a store for a single element.")
".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 @@ representing a store for a single element.")
`(#: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 @@ word expansion like a posix-shell.")
(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 @@ word expansion like a posix-shell.")
("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 @@ code via quasi-quoting built on top of @code{ghc-shakespeare}.")
(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 @@ code via quasi-quoting built on top of @code{ghc-shakespeare}.")
("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 @@ provides access to the full zlib feature set.")
(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 @@ provides access to the full zlib feature set.")
"zstd/zstd-" version ".tar.gz"))
(sha256
(base32
"0vjw8r11k9kj6c63sfkwz8akq0g32g1bv6n6clvs4g2j12zq1xk8"))))
"0vghl48cxcqy72sqk2gpi7rvy5ya36j13vndaxi6kck6bqivbhm0"))))
(build-system haskell-build-system)
(native-inputs
`(("ghc-quickcheck" ,ghc-quickcheck)
@ -15859,7 +15860,7 @@ entries. For more information about CSL, see @uref{https://citationstyles.org/}
(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 @@ entries. For more information about CSL, see @uref{https://citationstyles.org/}
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 @@ varies linearly with input length.")
(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 @@ varies linearly with input length.")
version
".tar.gz"))
(sha256
(base32 "1ky0j7086a8mqpg26j2nkrc5wfwiw5cd3h3jqncpy59vmj1prkx4"))))
(base32 "0jm6w84p2a2gyaljvnlvjjwrwnir1lss3ps53d0bd8mkvhixxrqr"))))
(build-system haskell-build-system)
(inputs
`(("ghc-network-uri" ,ghc-network-uri)
@ -16155,7 +16156,7 @@ Haskell newer than 2.8.")
(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 @@ Haskell newer than 2.8.")
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 @@ Haskell datatypes in text form using the @code{ghc-blaze-builder} library.")
(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 @@ Haskell datatypes in text form using the @code{ghc-blaze-builder} library.")
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 @@ Haskell datatypes in text form using the @code{ghc-blaze-builder} library.")
("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 @@ server and to receive the results of these queries.")
(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 @@ server and to receive the results of these queries.")
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 @@ segmentation.")
(define-public labelme
(package
(name "labelme")
(version "4.5.9")
(version "4.5.13")
(source
(origin
;; PyPi tarball lacks tests.
@ -1357,7 +1357,7 @@ segmentation.")
(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 @@ with tiling window managers. Features include:
(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 @@ with tiling window managers. Features include:
;; 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 @@ as the native format.")
(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 @@ endif()~%~%"
;; 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 @@ endif()~%~%"
(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 @@ endif()~%~%"
(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 @@ endif()~%~%"
(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 @@ highlighted.
(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 @@ highlighted.
(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 @@ new Date();"))
(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 @@ new Date();"))
("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 @@ restrictions that stem from limitations of the standard RCX firmware.")
(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 @@ restrictions that stem from limitations of the standard RCX firmware.")
(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 @@ text editors.")
(define-public lesspipe
(package
(name "lesspipe")
(version "1.89")
(version "1.90")
(source (origin
(method git-fetch)
(uri (git-reference
@ -68,7 +68,7 @@ text editors.")
(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 @@ text editors.")
(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 @@ over USB.")
(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 @@ that the Ethernet protocol is much simpler than the IP protocol.")
(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 @@ that the Ethernet protocol is much simpler than the IP protocol.")
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 @@ the default @code{nsswitch} and the experimental @code{umich_ldap}.")
(define-public mcelog
(package
(name "mcelog")
(version "176")
(version "179")
(source
(origin
(method git-fetch)
@ -6533,14 +6533,13 @@ the default @code{nsswitch} and the experimental @code{umich_ldap}.")
(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 @@ available in the kernel Linux.")
(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 @@ available in the kernel Linux.")
;; 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 @@ the MTP device as a file system.")
(define-public procenv
(package
(name "procenv")
(version "0.58")
(version "0.60")
(source
(origin
(method git-fetch)
@ -7370,7 +7368,7 @@ the MTP device as a file system.")
(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 @@ processes that doesn't run under Emacs. Lisp processes created by
(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 @@ processes that doesn't run under Emacs. Lisp processes created by
(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 @@ values from a string in Common Lisp.")
(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 @@ values from a string in Common Lisp.")
;; 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 @@ defined in RFC 2616.")
(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 @@ defined in RFC 2616.")
(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 @@ the format used by the popular compression tool bzip2.")
(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 @@ to run without any changes.")
(define-public fetchmail
(package
(name "fetchmail")
(version "6.4.22")
(version "6.4.23")
(source
(origin
(method url-fetch)
@ -530,7 +530,7 @@ to run without any changes.")
(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 @@ operating systems.")
(define-public neomutt
(package
(name "neomutt")
(version "20211015")
(version "20211029")
(source
(origin
(method git-fetch)
@ -613,7 +613,7 @@ operating systems.")
(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 @@ operating systems.")
(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 @@ security functionality including PGP, S/MIME, SSH, and SSL.")
(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 @@ security functionality including PGP, S/MIME, SSH, and SSL.")
(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 @@ addons which can add many functionalities to the base client.")
(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 @@ addons which can add many functionalities to the base client.")
;; 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 @@ easily (one at a time).")
(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 @@ Names} and SOCKS proxies.")
(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 @@ Its design goals are simplicity and stability.")
(define-public libgnt
(package
(name "libgnt")
(version "2.14.1")
(version "2.14.3")
(source
(origin
(method url-fetch)
@ -247,7 +247,7 @@ Its design goals are simplicity and stability.")
(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 @@ Its design goals are simplicity and stability.")
(("'/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 @@ Its design goals are simplicity and stability.")
(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 @@ default.")
(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 @@ default.")
;; 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 @@ default.")
`("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 @@
#: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-public moreutils
(package
(name "moreutils")
(version "0.65")
(version "0.66")
(source
(origin
(method url-fetch)
@ -38,7 +39,7 @@
"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 @@
(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 @@
(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 @@ from the command line.")
(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 @@ libproxy only have to specify which proxy to use.")
(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 @@ libproxy only have to specify which proxy to use.")
(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 @@ procedure calls (RPCs).")
(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 @@ procedure calls (RPCs).")
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 @@ on hub/switched networks. It is based on @acronym{ARP} packets, it will send
(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 @@ please install the @code{flyer-composer-gui} package.")))
(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 @@ the PDF pages.")
(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 @@ sound server.")
(define-public pavucontrol
(package
(name "pavucontrol")
(version "4.0")
(version "5.0")
(source (origin
(method url-fetch)
(uri (string-append
@ -292,11 +292,12 @@ sound server.")
".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 @@ install one or more of the following packages alongside pulseaudio-dlna:
(define-public pamixer
(package
(name "pamixer")
(version "1.4")
(version "1.5")
(source
(origin
(method git-fetch)
@ -442,19 +443,18 @@ install one or more of the following packages alongside pulseaudio-dlna:
(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-public purescript
(package
(name "purescript")
(version "0.14.4")
(version "0.14.5")
(source
(origin
(method url-fetch)
@ -42,8 +43,7 @@
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 @@ Some things HTTP Core does do:
`(#: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 @@ binary or text.")
`(("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 @@ binary or text.")
(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 @@ binary or text.")
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 @@ many event types, including timers, signals, and the classic file descriptor eve
(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 @@ many event types, including timers, signals, and the classic file descriptor eve
(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 @@ interactive POSIX shell targeted at resource-constrained systems.")
(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 @@ interactive POSIX shell targeted at resource-constrained systems.")
(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 @@ Shell (pdksh).")
(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 @@ eye-candy, customizable, and reasonably lightweight.")
(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 @@ eye-candy, customizable, and reasonably lightweight.")
(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 @@ H.264 (MPEG-4 AVC) video streams.")
(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 @@ H.264 (MPEG-4 AVC) video streams.")
(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 @@ convert and stream audio and video. It includes the libavcodec
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 @@ SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
(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 @@ SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
(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 @@ SVCD, DVD, 3ivx, DivX 3/4/5, WMV and H.264 movies.")
("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 @@ create smoother and stable videos.")
(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 @@ create smoother and stable videos.")
(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 @@ create smoother and stable videos.")
("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 @@ API. It includes bindings for Python, Ruby, and other languages.")
(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 @@ API. It includes bindings for Python, Ruby, and other languages.")
(file-name (git-file-name name version))
(sha256
(base32
"0qc5i0ay6j2wab1whl41sjb71cj02pg6y79drf7asrprq8b2rmfq"))
"0pa8iwl217503bjlqg2zlrw5lxyq5hvxrf5apxrh3843hj1w1myv"))
(modules '((guix build utils)))
(snippet
'(begin
@ -4758,9 +4745,10 @@ API. It includes bindings for Python, Ruby, and other languages.")
#: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 @@ API. It includes bindings for Python, Ruby, and other languages.")
(("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 @@
#: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 @@ trouble using them, because you do not have to remember each snippet name.")
(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 @@ trouble using them, because you do not have to remember each snippet name.")
(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 @@ trouble using them, because you do not have to remember each snippet name.")
(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 @@ text object. The signs are always up to date and the plugin never saves your
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 @@
#: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 @@
#: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 @@ acceleration in mind, leveraging common 3D graphics APIs for best performance.")
(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 @@ acceleration in mind, leveraging common 3D graphics APIs for best performance.")
"-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 @@ acceleration in mind, leveraging common 3D graphics APIs for best performance.")
(("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 @@ acceleration in mind, leveraging common 3D graphics APIs for best performance.")
(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 @@ acceleration in mind, leveraging common 3D graphics APIs for best performance.")
("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 @@ DELIMITER interposed LS. Support 'infix and 'suffix GRAMMAR values."
(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 @@ the list result in @code{#t} when applying PRED? on them."
(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 @@
(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?