~ruther/guix-local

6ee4fd2ae18523088bf8d703ea78a5729202828e — Leo Famulari 8 years ago db4411b
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.
1 files changed, 4 insertions(+), 4 deletions(-)

M gnu/packages/backup.scm
M gnu/packages/backup.scm => gnu/packages/backup.scm +4 -4
@@ 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)