gnu: breezy: Install man-pages, bash-completion add bzr symlink.

Since change to pyproject-build-system the man pages no longer got built
and installed.

* gnu/packages/version-control.scm (breezy):
[#:phases]: Add 'build-man, 'install-man, 'install-completion and
'bzr-compat phases.

Merges guix/guix!6740

Change-Id: I73324a5f74bbff5ae6e3b33cf1d159767c942e98
Signed-off-by: Cayetano Santos <csantosb@inventati.org>

1 files changed, 22 insertions, 0 deletions

diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index a6662ff8b24..650cf76ac80 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -231,6 +231,28 @@
                                    (find-files "breezy/tests"))
                 (("#!/bin/sh")
                  (format #f "#!~a" (which "sh"))))))
+          (add-after 'build 'build-man
+            (lambda _
+              (invoke "python3" "tools/generate_docs.py" "man")))
+          (add-after 'install 'install-man
+            (lambda _
+              (let ((man1 (string-append #$output "/share/man/man1")))
+                (install-file "brz.1" man1)
+                (install-file "breezy/git/git-remote-bzr.1" man1))))
+          (add-after 'install 'install-completion
+              (lambda* (#:key outputs #:allow-other-keys)
+                (let* ((bash (string-append #$output
+                                            "/share/bash-completion/completions")))
+                  (install-file "contrib/bash/brz" bash))))
+          (add-after 'install-man 'bzr-compat
+            (lambda _
+              (let ((bin  (string-append #$output "/bin"))
+                    (man1 (string-append #$output "/share/man/man1")))
+                (symlink (in-vicinity bin "brz")
+                         (in-vicinity bin "bzr"))
+                (call-with-output-file (string-append man1 "/bzr.1")
+                  (lambda (port)
+                    (format port ".so man1/brz.1"))))))
           (replace 'check
             (lambda* (#:key tests? #:allow-other-keys)
               (when tests?