From c150d6378d82742ada68fd5655a010488d2d3778 Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Sun, 1 Mar 2020 15:17:40 +0100 Subject: gnu: dehydrated: Install documentation. * gnu/packages/tls.scm (dehydrated)[arguments]: Install compressed man page and other basic documentation. --- gnu/packages/tls.scm | 21 ++++++++++++++++----- 1 file changed, 16 insertions(+), 5 deletions(-) (limited to 'gnu/packages/tls.scm') diff --git a/gnu/packages/tls.scm b/gnu/packages/tls.scm index 89d3e46aa8..2e927635cc 100644 --- a/gnu/packages/tls.scm +++ b/gnu/packages/tls.scm @@ -918,28 +918,39 @@ coding footprint.") "0dgskgbdd95p13jx6s13p77y15wngb5cm6p4305cf2s54w0bvahh")))) (build-system trivial-build-system) (arguments - `(#:modules ((guix build utils)) + `(#:modules ((guix build utils) + (srfi srfi-26)) #:builder (begin - (use-modules (guix build utils)) + (use-modules (guix build utils) + (srfi srfi-26)) (let* ((source (assoc-ref %build-inputs "source")) (tar (assoc-ref %build-inputs "tar")) (gz (assoc-ref %build-inputs "gzip")) (out (assoc-ref %outputs "out")) (bin (string-append out "/bin")) - (doc (string-append out "/share/doc/")) + (doc (string-append out "/share/doc/" ,name "-" ,version)) + (man (string-append out "/share/man")) (bash (in-vicinity (assoc-ref %build-inputs "bash") "bin"))) (setenv "PATH" (string-append gz "/bin")) (invoke (string-append tar "/bin/tar") "xvf" source) (chdir (string-append ,name "-" ,version)) + (copy-recursively "docs" doc) + (install-file "LICENSE" doc) + + (mkdir-p man) + (rename-file (string-append doc "/man") + (string-append man "/man1")) + (for-each (cut invoke "gzip" "-9" <>) + (find-files man ".*")) + (install-file "dehydrated" bin) - (install-file "LICENSE" (string-append doc ,name "-" ,version)) (with-directory-excursion bin (patch-shebang "dehydrated" (list bash)) - ;; Do not try to write in the store. + ;; Do not try to write to the store. (substitute* "dehydrated" (("SCRIPTDIR=\"\\$.*\"") "SCRIPTDIR=~/.dehydrated")) -- cgit v1.2.3