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

gnu: borg: Split up the monolithic man page.

Browse source 
* gnu/packages/backup.scm (borg)[arguments]: Rewrite 'install-docs'
phase to install one man page per Borg sub-command.
This commit is contained in:
Leo Famulari 2017-10-24 00:33:38 -04:00
parent db4411b42b
commit 6ee4fd2ae1
No known key found for this signature in database
GPG key ID: 2646FA30BACA7F08
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/packages/backup.scm
View file

@ -519,7 +519,7 @@ (define-public borg
"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 @@ (define-public borg
'("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)