01/03: gnu: git-lfs: Install man pages.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 8b760279766eb182bb15d04e9765c72c081471cc
Author: Prafulla Giri <pratheblackdiamond@gmail.com>
AuthorDate: Tue Aug 25 22:54:56 2020 +0545

    gnu: git-lfs: Install man pages.
    
    * gnu/packages/version-control.scm (git-lfs)[arguments]: Add build
    phases to build and install man pages.
    [native-inputs]: Add ronn-ng.
    
    Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
---
 gnu/packages/version-control.scm | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index fb36da9..0acd255 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -2587,7 +2587,25 @@ interrupted, published, and collaborated on while in 
progress.")
                 "1nf40rbdz901vsahg5cm09pznpina6wimmxl0lmh8pn0mi51yzvc"))))
     (build-system go-build-system)
     (arguments
-     '(#:import-path "github.com/git-lfs/git-lfs"))
+     `(#:import-path "github.com/git-lfs/git-lfs"
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'build 'build-man-pages
+           (lambda _
+             (with-directory-excursion "src/github.com/git-lfs/git-lfs"
+               (invoke "make" "man"))
+             #t))
+         (add-after 'install 'install-man-pages
+           (lambda _
+             (with-directory-excursion "src/github.com/git-lfs/git-lfs/man"
+               (let ((out (assoc-ref %outputs "out")))
+                 (for-each
+                   (lambda (manpage)
+                     (install-file manpage (string-append out 
"/share/man/man1")))
+                   (find-files "." "^git-lfs.*\\.1$"))))
+             #t)))))
+    ;; make `ronn` available during build for man page generation
+    (native-inputs `(("ronn-ng" ,ronn-ng)))
     (home-page "https://git-lfs.github.com/";)
     (synopsis "Git extension for versioning large files")
     (description