gnu: kurly: Improve package style.

* gnu/packages/curl.scm (kurly): Use G-expressions. Adjust indentation
and fields order.
[phases]{install-documentation}: Remove trailing #t from lambda.
[description]: Adjust fill column.

Change-Id: I9d174bb79e583a305f58f9800847c87bcdaa5329
This commit is contained in:
Sharlatan Hellseher 2024-11-24 20:43:19 +00:00
parent 8eb0475af4
commit 1d38e22cdf
No known key found for this signature in database
GPG key ID: 76D727BFF62CD2B5

View file

@ -203,47 +203,50 @@ tunneling, and so on.")
(prepend libssh2))) (prepend libssh2)))
(properties `((hidden? . #t))))) (properties `((hidden? . #t)))))
;; XXX: It looks like unmaintained, last time updated in 2018.
(define-public kurly (define-public kurly
(package (package
(name "kurly") (name "kurly")
(version "1.2.2") (version "1.2.2")
(source (origin (source
(method git-fetch) (origin
(uri (git-reference (method git-fetch)
(url "https://gitlab.com/davidjpeacock/kurly.git") (uri (git-reference
(commit (string-append "v" version)))) (url "https://gitlab.com/davidjpeacock/kurly")
(file-name (git-file-name name version)) (commit (string-append "v" version))))
(sha256 (file-name (git-file-name name version))
(base32 (sha256
"003jv2k45hg2svhjpy5253ccd250vi2r17x2zhm51iw54kgwxipm")))) (base32 "003jv2k45hg2svhjpy5253ccd250vi2r17x2zhm51iw54kgwxipm"))))
(build-system go-build-system) (build-system go-build-system)
(arguments (arguments
`(#:import-path "gitlab.com/davidjpeacock/kurly" (list
#:install-source? #f #:install-source? #f
#:phases #:import-path "gitlab.com/davidjpeacock/kurly"
(modify-phases %standard-phases #:phases
(add-after 'install 'install-documentation #~(modify-phases %standard-phases
(lambda* (#:key import-path outputs #:allow-other-keys) (add-after 'install 'install-documentation
(let* ((source (string-append "src/" import-path)) (lambda* (#:key import-path #:allow-other-keys)
(out (assoc-ref outputs "out")) (let* ((source (string-append "src/" import-path))
(doc (string-append out "/share/doc/" ,name "-" ,version)) (doc (string-append #$output "/share/doc/"
(man (string-append out "/share/man/man1"))) #$name "-" #$version))
(with-directory-excursion source (man (string-append #$output "/share/man/man1")))
(install-file "README.md" doc) (with-directory-excursion source
(mkdir-p man) (install-file "README.md" doc)
(copy-file "doc/kurly.man" (mkdir-p man)
(string-append man "/kurly.1"))) (copy-file "doc/kurly.man"
#t)))))) (string-append man "/kurly.1")))))))))
(inputs (inputs
(list go-github-com-alsm-ioprogress go-github-com-aki237-nscjar (list go-github-com-alsm-ioprogress
go-github-com-aki237-nscjar
go-github-com-urfave-cli)) go-github-com-urfave-cli))
(synopsis "Command-line HTTP client")
(description "kurly is an alternative to the @code{curl} program written in
Go. kurly is designed to operate in a similar manner to curl, with select
features. Notably, kurly is not aiming for feature parity, but common flags and
mechanisms particularly within the HTTP(S) realm are to be expected. kurly does
not offer a replacement for libcurl.")
(home-page "https://gitlab.com/davidjpeacock/kurly") (home-page "https://gitlab.com/davidjpeacock/kurly")
(synopsis "Command-line HTTP client")
(description
"kurly is an alternative to the @code{curl} program written in Go. kurly
is designed to operate in a similar manner to curl, with select features.
Notably, kurly is not aiming for feature parity, but common flags and
mechanisms particularly within the HTTP(S) realm are to be expected. kurly
does not offer a replacement for libcurl.")
(license license:asl2.0))) (license license:asl2.0)))
(define-public guile-curl (define-public guile-curl