02/02: gnu: borg: Split up the monolithic man page.

[Leo Famulari]

lfam pushed a commit to branch master
in repository guix.

commit 6ee4fd2ae18523088bf8d703ea78a5729202828e
Author: Leo Famulari <address@hidden>
Date:   Tue Oct 24 00:33:38 2017 -0400

    gnu: borg: Split up the monolithic man page.
    
    * gnu/packages/backup.scm (borg)[arguments]: Rewrite 'install-docs'
    phase to install one man page per Borg sub-command.
---
 gnu/packages/backup.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm
index 9de120b..55d5ede 100644
--- a/gnu/packages/backup.scm
+++ b/gnu/packages/backup.scm
@@ -519,7 +519,7 @@ detection, and lossless compression.")
                             "and not test_fuse "
                             "and not test_fuse_allow_damaged_files"))))))
          (add-after 'install 'install-doc
-           (lambda* (#:key outputs #:allow-other-keys)
+           (lambda* (#:key inputs outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
                     (man (string-append out "/share/man/man1"))
                     (misc (string-append out "/share/borg/misc")))
@@ -527,11 +527,11 @@ detection, and lossless compression.")
                          '("docs/misc/create_chunker-params.txt"
                            "docs/misc/internals-picture.txt"
                            "docs/misc/prune-example.txt"))
+               (add-installed-pythonpath inputs outputs)
                (and
-                 (zero? (system* "python3" "setup.py" "build_ext" "--inplace"))
-                 (zero? (system* "make" "-C" "docs" "man"))
+                 (zero? (system* "python3" "setup.py" "build_man"))
                  (begin
-                   (install-file "docs/_build/man/borg.1" man)
+                   (copy-recursively "docs/man" man)
                    #t))))))))
     (native-inputs
      `(("python-cython" ,python-cython)