gnu: pinfo: Update to 3d76eec.

* gnu/packages/texinfo.scm (pinfo): Update to commit
3d76eecde211e41ccc28b04e229f159b3f924399.
[arguments]: Use gexps.
[inputs, native-inputs]: Remove labels.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
( 2022-06-15 22:01:32 +01:00 committed by Ludovic Courtès
parent 0de3d44a16
commit 3e24393e87
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -9,6 +9,7 @@
;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr> ;;; Copyright © 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be> ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2022 ( <paren@disroot.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -27,6 +28,7 @@
(define-module (gnu packages texinfo) (define-module (gnu packages texinfo)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
#:use-module (guix gexp)
#:use-module (guix licenses) #:use-module (guix licenses)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils) #:use-module (guix utils)
@ -254,43 +256,36 @@ (define-public texi2html-1.82
(base32 "1wdli2szkgm3l0vx8rf6lylw0b0m47dlz9iy004n928nqkzix76n")))))) (base32 "1wdli2szkgm3l0vx8rf6lylw0b0m47dlz9iy004n928nqkzix76n"))))))
(define-public pinfo (define-public pinfo
(let ((commit "3d76eecde211e41ccc28b04e229f159b3f924399")
(revision "0"))
(package (package
(name "pinfo") (name "pinfo")
(version "0.6.13") ;; Latest tag is completely broken and does not build.
(version (git-version "0.6.13" revision commit))
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
(url "https://github.com/baszoetekouw/pinfo") (url "https://github.com/baszoetekouw/pinfo")
(commit (string-append "v" version)))) (commit commit)))
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "0qym323d9my5l4bhw9vry453hhlxhjjvy8mcdi38sk0bqqid0vd1"))))
"173d2p22irwiabvr4z6qvr6zpr6ysfkhmadjlyhyiwd7z62larvy"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (list #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'remove-Werror
(lambda _
(substitute* "configure.ac"
(("-Werror") ""))
#t))
(add-after 'unpack 'embed-reference-to-clear (add-after 'unpack 'embed-reference-to-clear
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* '("src/manual.c" (let ((ncurses (assoc-ref inputs "ncurses")))
(substitute* (list "src/manual.c"
"src/mainfunction.c" "src/mainfunction.c"
"src/utils.c") "src/utils.c")
(("\"clear\"") (("\"clear\"")
(string-append "\"" (which "clear") "\""))) (string-append "\"" ncurses "/bin/clear\"")))))))))
#t)))))
(inputs (inputs
(list ncurses readline)) (list ncurses readline))
(native-inputs (native-inputs
`(("autoconf" ,autoconf) (list autoconf automake gettext-minimal libtool texinfo))
("automake" ,automake)
("gettext" ,gettext-minimal)
("libtool" ,libtool)
("texinfo" ,texinfo)))
(home-page "https://github.com/baszoetekouw/pinfo") (home-page "https://github.com/baszoetekouw/pinfo")
(synopsis "Lynx-style Info file and man page reader") (synopsis "Lynx-style Info file and man page reader")
(description (description
@ -299,4 +294,4 @@ (define-public pinfo
It supports many colors. Pinfo also supports viewing of manual pages -- they It supports many colors. Pinfo also supports viewing of manual pages -- they
are colorized like in the midnight commander's viewer, and additionally they are colorized like in the midnight commander's viewer, and additionally they
are hypertextualized.") are hypertextualized.")
(license gpl2+))) (license gpl2+))))