guix_mirror_bot pushed a commit to branch master
in repository guix.

commit d2de7901e67b26ec740e179b127224048f4cb340
Author: Dariqq <[email protected]>
AuthorDate: Fri Feb 27 13:55:13 2026 +0000

    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 <[email protected]>
---
 gnu/packages/version-control.scm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index a6662ff8b2..650cf76ac8 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?

Reply via email to