guix_mirror_bot pushed a commit to branch master
in repository guix.

commit 9dc5510e2e9c5ccf8169bc577d8ec1bdc0ace957
Author: Sughosha <[email protected]>
AuthorDate: Fri Mar 6 15:11:27 2026 +0530

    gnu: qman: Fix missing commands.
    
    * gnu/packages/man.scm (qman)[arguments]<#:phases>: Add 'patch-paths' phase.
    [inputs]: Add groff, man-db, and xdg-utils.
    
    Fixes: guix/guix#6753
    Merges: https://codeberg.org/guix/guix/pulls/6932
    Change-Id: I359090e89c38bb6636635eb6e96cf95337a5716f
    Signed-off-by: Sharlatan Hellseher <[email protected]>
---
 gnu/packages/man.scm | 30 +++++++++++++++++++++++++++++-
 1 file changed, 29 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/man.scm b/gnu/packages/man.scm
index 73961496cb..80eb176b27 100644
--- a/gnu/packages/man.scm
+++ b/gnu/packages/man.scm
@@ -48,6 +48,7 @@
   #:use-module (gnu packages curl)
   #:use-module (gnu packages dbm)
   #:use-module (gnu packages flex)
+  #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages gawk)
   #:use-module (gnu packages gettext)
   #:use-module (gnu packages groff)
@@ -465,14 +466,41 @@ automatically.")
      (list
       #:out-of-source? #t
       #:configure-flags
-      #~(list "-Dconfigdir=etc/xdg/qman")))
+      #~(list "-Dconfigdir=etc/xdg/qman")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch-paths
+            (lambda _
+              (substitute* '("src/config_def.py"
+                             "man/qman.1")
+                (("\\/usr\\/bin\\/man")
+                 (string-append #$(this-package-input "man-db")
+                                "/bin/man"))
+                (("\\/usr\\/bin\\/groff")
+                 (string-append #$(this-package-input "groff")
+                                "/bin/groff"))
+                (("\\/usr\\/bin\\/whatis")
+                 (string-append #$(this-package-input "man-db")
+                                "/bin/whatis"))
+                (("\\/usr\\/bin\\/apropos")
+                 (string-append #$(this-package-input "man-db")
+                                "/bin/apropos"))
+                (("\\/usr\\/bin\\/xdg\\\\-open")
+                 (string-append #$(this-package-input "xdg-utils")
+                                "/bin/xdg\\-open"))
+                (("\\/usr\\/bin\\/xdg\\\\-email")
+                 (string-append #$(this-package-input "xdg-utils")
+                                "/bin/xdg\\-email"))))))))
     (native-inputs
      (list cmake-minimal
            pkg-config))
     (inputs
      (list cunit
+           groff
+           man-db
            ncurses
            python-cogapp
+           xdg-utils
            zlib))
     (home-page "https://github.com/plp13/qman";)
     (synopsis "Modern man page viewer for terminals")

Reply via email to