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

gnu: Add pinfo.

Browse source 
* gnu/packages/texinfo.scm (pinfo): New variable.
This commit is contained in:
Ricardo Wurmus 2019-12-15 23:10:49 +01:00
parent 34982a4622
commit e703f6d8ef
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 54 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

55
gnu/packages/texinfo.scm
View file

@ -4,6 +4,7 @@
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
;;;
;;; This file is part of GNU Guix.
;;;
@ -25,11 +26,15 @@ (define-module (gnu packages texinfo)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix build-system gnu)
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
#:use-module (gnu packages compression)
#:use-module (gnu packages gettext)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages perl))
#:use-module (gnu packages perl)
#:use-module (gnu packages readline))
(define-public texinfo
(package
@ -183,3 +188,51 @@ (define-public texi2html
Texi2HTML.")
;; Files in /lib under lgpl2.1+ and x11
(license gpl2+)))
(define-public pinfo
(package
(name "pinfo")
(version "0.6.13")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/baszoetekouw/pinfo.git")
(commit (string-append "v" version))))
(sha256
(base32
"173d2p22irwiabvr4z6qvr6zpr6ysfkhmadjlyhyiwd7z62larvy"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'remove-Werror
(lambda _
(substitute* "configure.ac"
(("-Werror") ""))
#t))
(add-after 'unpack 'embed-reference-to-clear
(lambda* (#:key inputs #:allow-other-keys)
(substitute* '("src/manual.c"
"src/mainfunction.c"
"src/utils.c")
(("\"clear\"")
(string-append "\"" (which "clear") "\"")))
#t)))))
(inputs
`(("ncurses" ,ncurses)
("readline" ,readline)))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("gettext" ,gnu-gettext)
("libtool" ,libtool)
("texinfo" ,texinfo)))
(home-page "https://github.com/baszoetekouw/pinfo")
(synopsis "Lynx-style Info file and man page reader")
(description
"Pinfo is an Info file viewer. Pinfo is similar in use to the Lynx web
browser. You just move across info nodes, and select links, follow them, etc.
It supports many colors. Pinfo also supports viewing of manual pages -- they
are colorized like in the midnight commander's viewer, and additionaly they
are hypertextualized.")
(license gpl2+)))