| blob | 1c043dc4c0b6c0c104c903c818062dc007e4c544 |
1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2012, 2014, 2015, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
3 ;;; Copyright © 2014 David Thompson <dthompson2@worcester.edu>
4 ;;; Copyright © 2015, 2016 Ricardo Wurmus <rekado@elephly.net>
5 ;;; Copyright © 2015 Alex Kost <alezost@gmail.com>
6 ;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il>
7 ;;; Copyright © 2017, 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
8 ;;; Copyright © 2018, 2019 Rutger Helling <rhelling@mykolab.com>
9 ;;; Copyright © 2018, 2019 Marius Bakke <mbakke@fastmail.com>
10 ;;;
11 ;;; This file is part of GNU Guix.
12 ;;;
13 ;;; GNU Guix is free software; you can redistribute it and/or modify it
14 ;;; under the terms of the GNU General Public License as published by
15 ;;; the Free Software Foundation; either version 3 of the License, or (at
16 ;;; your option) any later version.
17 ;;;
18 ;;; GNU Guix is distributed in the hope that it will be useful, but
19 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
20 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 ;;; GNU General Public License for more details.
22 ;;;
23 ;;; You should have received a copy of the GNU General Public License
24 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
26 (define-module (gnu packages man)
27 #:use-module (guix licenses)
28 #:use-module (guix download)
29 #:use-module (guix packages)
30 #:use-module (guix build-system gnu)
31 #:use-module (gnu packages dbm)
32 #:use-module (gnu packages flex)
33 #:use-module (gnu packages gawk)
34 #:use-module (gnu packages groff)
35 #:use-module (gnu packages less)
36 #:use-module (gnu packages perl)
37 #:use-module (gnu packages pkg-config)
38 #:use-module (gnu packages linux))
40 (define-public libpipeline
41 (package
42 (name "libpipeline")
43 (version "1.5.1")
44 (source (origin
45 (method url-fetch)
46 (uri (string-append
47 "mirror://savannah/libpipeline/libpipeline-"
48 version ".tar.gz"))
49 (sha256
50 (base32
51 "0bwh5xz5f2czwb7f564jz1mp4znm8pldnvf65fs0hpw4gmmp0cyn"))))
52 (build-system gnu-build-system)
53 (home-page "http://libpipeline.nongnu.org/")
54 (synopsis "C library for manipulating pipelines of subprocesses")
55 (description
56 "libpipeline is a C library for manipulating pipelines of subprocesses in
57 a flexible and convenient way.")
58 (license gpl3+)))
60 (define-public man-db
61 (package
62 (name "man-db")
63 (version "2.8.5")
64 (source (origin
65 (method url-fetch)
66 (uri (string-append "mirror://savannah/man-db/man-db-"
67 version ".tar.xz"))
68 (sha256
69 (base32
70 "1hgnfcgbllmws8cs6zaxklq8b69i05zynxi87f3zxw9lfms54kdn"))))
71 (build-system gnu-build-system)
72 (arguments
73 `(#:phases
74 (modify-phases %standard-phases
75 (add-after 'patch-source-shebangs 'patch-test-shebangs
76 (lambda* (#:key outputs #:allow-other-keys)
77 ;; Patch shebangs in test scripts.
78 (let ((out (assoc-ref outputs "out")))
79 (for-each (lambda (file)
80 (substitute* file
81 (("#! /bin/sh")
82 (string-append "#!" (which "sh")))))
83 (remove file-is-directory?
84 (find-files "src/tests" ".*")))
85 #t)))
86 (add-after 'unpack 'patch-absolute-paths
87 (lambda* (#:key inputs #:allow-other-keys)
88 (substitute* "src/man.c"
89 (("\"iconv\"")
90 (string-append "\"" (which "iconv") "\"")))
91 ;; Embed an absolute reference to "preconv", otherwise it
92 ;; falls back to searching in PATH and ultimately fails
93 ;; to render unicode data (see <https://bugs.gnu.org/30785>).
94 (substitute* "lib/encodings.c"
95 (("groff_preconv = NULL")
96 (string-append "groff_preconv = \""
97 (assoc-ref inputs "groff-minimal")
98 "/bin/preconv\"")))
99 #t)))
100 #:configure-flags
101 (let ((groff (assoc-ref %build-inputs "groff"))
102 (groff-minimal (assoc-ref %build-inputs "groff-minimal"))
103 (less (assoc-ref %build-inputs "less"))
104 (gzip (assoc-ref %build-inputs "gzip"))
105 (bzip2 (assoc-ref %build-inputs "bzip2"))
106 (xz (assoc-ref %build-inputs "xz"))
107 (util (assoc-ref %build-inputs "util-linux")))
108 ;; Invoke groff, less, gzip, bzip2, and xz directly from the store.
109 (append (list ;; Disable setuid man user.
110 "--disable-setuid"
111 ;; Don't constrain ownership of system-wide cache files.
112 ;; Otherwise creating the manpage database fails with
113 ;; man-db > 2.7.5.
114 "--disable-cache-owner"
115 (string-append "--with-pager=" less "/bin/less")
116 (string-append "--with-gzip=" gzip "/bin/gzip")
117 (string-append "--with-bzip2=" bzip2 "/bin/gzip")
118 (string-append "--with-xz=" xz "/bin/xz")
119 (string-append "--with-col=" util "/bin/col")
120 ;; The default systemd directories ignore --prefix.
121 (string-append "--with-systemdsystemunitdir="
122 %output "/lib/systemd/system")
123 (string-append "--with-systemdtmpfilesdir="
124 %output "/lib/tmpfiles.d"))
125 (map (lambda (prog)
126 (string-append "--with-" prog "=" groff-minimal
127 "/bin/" prog))
128 '("nroff" "eqn" "neqn" "tbl" "refer" "pic"))))
130 ;; At run time we should refer to GROFF-MINIMAL, not GROFF (the latter
131 ;; pulls in Perl.)
132 #:disallowed-references (,groff)
134 #:modules ((guix build gnu-build-system)
135 (guix build utils)
136 (srfi srfi-1))))
137 (native-inputs
138 `(("pkg-config" ,pkg-config)
139 ("groff" ,groff))) ;needed at build time (troff, grops, soelim, etc.)
140 (inputs
141 `(("flex" ,flex)
142 ("gdbm" ,gdbm)
143 ("groff-minimal" ,groff-minimal)
144 ("less" ,less)
145 ("libpipeline" ,libpipeline)
146 ;; FIXME: 4.8 and later can use libseccomp, but it causes test
147 ;; failures in the build chroot.
148 ;;("libseccomp" ,libseccomp)
149 ("util-linux" ,util-linux)))
150 (native-search-paths
151 (list (search-path-specification
152 (variable "MANPATH")
153 (files '("share/man")))))
154 (home-page "http://man-db.nongnu.org/")
155 (synopsis "Standard Unix documentation system")
156 (description
157 "Man-db is an implementation of the standard Unix documentation system
158 accessed using the man command. It uses a Berkeley DB database in place of
159 the traditional flat-text whatis databases.")
160 (license gpl2+)))
162 (define-public man-pages
163 (package
164 (name "man-pages")
165 (version "5.01")
166 (source
167 (origin
168 (method url-fetch)
169 (uri
170 (list (string-append "mirror://kernel.org/linux/docs/man-pages/"
171 "man-pages-" version ".tar.xz")
172 (string-append "mirror://kernel.org/linux/docs/man-pages/Archive/"
173 "man-pages-" version ".tar.xz")))
174 (sha256
175 (base32 "09xn8d8xxwgms6h1bvjlgn3mxz51vxf3ra0ry9f5dqi29qry3z3x"))))
176 (build-system gnu-build-system)
177 (arguments
178 '(#:phases (modify-phases %standard-phases (delete 'configure))
180 ;; The 'all' target depends on three targets that directly populate
181 ;; $(MANDIR) based on its current contents. Doing that in parallel
182 ;; leads to undefined behavior (see <http://bugs.gnu.org/18701>.)
183 #:parallel-build? #f
185 #:tests? #f
186 #:make-flags (list (string-append "MANDIR="
187 (assoc-ref %outputs "out")
188 "/share/man"))))
189 (home-page "https://www.kernel.org/doc/man-pages/")
190 (synopsis "Development manual pages from the Linux project")
191 (description
192 "This package provides traditional Unix \"man pages\" documenting the
193 Linux kernel and C library interfaces employed by user-space programs.")
195 ;; Each man page has its own license; some are GPLv2+, some are MIT/X11.
196 (license gpl2+)))
198 (define-public help2man
199 (package
200 (name "help2man")
201 (version "1.47.6")
202 (source
203 (origin
204 (method url-fetch)
205 (uri (string-append "mirror://gnu/help2man/help2man-"
206 version ".tar.xz"))
207 (sha256
208 (base32
209 "0vz4dlrvy4vc6l7w0a7n668pfa0rdm73wr2gar58wqranyah46yr"))))
210 (build-system gnu-build-system)
211 (arguments `(;; There's no `check' target.
212 #:tests? #f))
213 (inputs
214 `(("perl" ,perl)
215 ;; TODO: Add these optional dependencies.
216 ;; ("perl-LocaleGettext" ,perl-LocaleGettext)
217 ;; ("gettext" ,gettext-minimal)
218 ))
219 (home-page "https://www.gnu.org/software/help2man/")
220 (synopsis "Automatically generate man pages from program --help")
221 (description
222 "GNU help2man is a program that converts the output of standard
223 \"--help\" and \"--version\" command-line arguments into a manual page
224 automatically.")
225 (license gpl3+)))
227 (define-public help2man/latest
228 (package
229 (inherit help2man)
230 (version "1.47.8")
231 (source (origin
232 (method url-fetch)
233 (uri (string-append "mirror://gnu/help2man/help2man-"
234 version ".tar.xz"))
235 (sha256
236 (base32
237 "1p5830h88cx0zn0snwaj0vpph81xicpsirfwlxmcgjrlmn0nm3sj"))))))
239 (define-public scdoc
240 (package
241 (name "scdoc")
242 (version "1.9.4")
243 (source
244 (origin
245 (method url-fetch)
246 (uri (string-append "https://git.sr.ht/%7Esircmpwn/scdoc/archive/" version
247 ".tar.gz"))
248 (file-name (string-append name "-" version ".tar.gz"))
249 (sha256
250 (base32
251 "00zc3rzj97gscby31djlqyczvqpyhrl66i44czwzmmn7rc5j03m1"))))
252 (build-system gnu-build-system)
253 (arguments
254 `(#:make-flags '("CC=gcc")
255 #:phases
256 (modify-phases %standard-phases
257 (delete 'configure)
258 (add-before 'install 'hardcode-paths
259 (lambda* (#:key outputs #:allow-other-keys)
260 (substitute* "Makefile"
261 (("/usr/local") (assoc-ref outputs "out")))
262 #t)))))
263 (home-page "https://git.sr.ht/~sircmpwn/scdoc")
264 (synopsis "Simple man page generator")
265 (description "scdoc is a simple man page generator written for POSIX systems
266 in C99.")
267 ;; MIT license, see /share/doc/scdoc-1.6.0/COPYING.
268 (license expat)))
270 (define-public txt2man
271 (package
272 (name "txt2man")
273 (version "1.6.0")
274 (source
275 (origin
276 (method url-fetch)
277 (uri (string-append
278 "https://github.com/mvertes/txt2man/archive/txt2man-"
279 version ".tar.gz"))
280 (sha256
281 (base32
282 "168cj96974n2z0igin6j1ic1m45zyic7nm5ark7frq8j78rrx4zn"))))
283 (build-system gnu-build-system)
284 (arguments
285 `(#:tests? #f ; no "check" target
286 #:make-flags (list (string-append "prefix=" (assoc-ref %outputs "out")))
287 #:phases (modify-phases %standard-phases (delete 'configure))))
288 (inputs
289 `(("gawk" ,gawk)))
290 (home-page "https://github.com/mvertes/txt2man")
291 (synopsis "Convert text to man page")
292 (description "Txt2man converts flat ASCII text to man page format.")
293 (license gpl2+)))