nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: borg: Install more documentation. 

* gnu/packages/backup.scm (borg)[arguments]: Install more documentation in
'install-doc' phase. Use (srfi srfi-26).
This commit is contained in:
Leo Famulari 2016-10-17 22:57:52 -04:00
parent b332c823b7
commit c21b1a1fbb
No known key found for this signature in database
GPG Key ID: 2646FA30BACA7F08
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/packages/backup.scm
View File

@ -426,7 +426,10 @@ detection, and lossless compression.")
delete-file (find-files "borg" "^(c|h|p).*\\.c$"))))) delete-file (find-files "borg" "^(c|h|p).*\\.c$")))))
(build-system python-build-system) (build-system python-build-system)
(arguments (arguments
`(#:phases `(#:modules ((srfi srfi-26) ; for cut
(guix build utils)
(guix build python-build-system))
#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'set-env (add-after 'unpack 'set-env
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
@ -439,7 +442,12 @@ detection, and lossless compression.")
(add-after 'install 'install-doc (add-after 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(man (string-append out "/share/man/man1"))) (man (string-append out "/share/man/man1"))
(misc (string-append out "/share/borg/misc")))
(for-each (cut install-file <> misc)
'("docs/misc/create_chunker-params.txt"
"docs/misc/internals-picture.txt"
"docs/misc/prune-example.txt"))
(and (and
(zero? (system* "python3" "setup.py" "build_ext" "--inplace")) (zero? (system* "python3" "setup.py" "build_ext" "--inplace"))
(zero? (system* "make" "-C" "docs" "man")) (zero? (system* "make" "-C" "docs" "man"))