[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: gnu: borg: Install more documentation.
From: |
Leo Famulari |
Subject: |
01/01: gnu: borg: Install more documentation. |
Date: |
Wed, 19 Oct 2016 20:00:46 +0000 (UTC) |
lfam pushed a commit to branch master
in repository guix.
commit c21b1a1fbb8c1b776cf831d24dfb1a742a4ded70
Author: Leo Famulari <address@hidden>
Date: Mon Oct 17 22:57:52 2016 -0400
gnu: borg: Install more documentation.
* gnu/packages/backup.scm (borg)[arguments]: Install more documentation in
'install-doc' phase. Use (srfi srfi-26).
---
gnu/packages/backup.scm | 12 ++++++++++--
1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm
index 797c06e..81925ab 100644
--- a/gnu/packages/backup.scm
+++ b/gnu/packages/backup.scm
@@ -426,7 +426,10 @@ detection, and lossless compression.")
delete-file (find-files "borg" "^(c|h|p).*\\.c$")))))
(build-system python-build-system)
(arguments
- `(#:phases
+ `(#:modules ((srfi srfi-26) ; for cut
+ (guix build utils)
+ (guix build python-build-system))
+ #:phases
(modify-phases %standard-phases
(add-after 'unpack 'set-env
(lambda* (#:key inputs #:allow-other-keys)
@@ -439,7 +442,12 @@ detection, and lossless compression.")
(add-after 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys)
(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
(zero? (system* "python3" "setup.py" "build_ext" "--inplace"))
(zero? (system* "make" "-C" "docs" "man"))