[bug#42928] [PATCH 2/2] gnu: qttools: Install man pages.

[Timotej Lazar]

* gnu/packages/qt.scm (qttools)[phases]: Add 'install-man-pages.
---
 gnu/packages/qt.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm
index 4ca9786d8b..a3ffb7e79d 100644
--- a/gnu/packages/qt.scm
+++ b/gnu/packages/qt.scm
@@ -1188,7 +1188,15 @@ positioning and geolocation plugins.")))
        ((#:tests? _ #f) #f) ; TODO: Enable the tests
        ((#:phases phases)
         `(modify-phases ,phases
-           (add-after 'install 'install-desktop-files
+           (add-after 'install 'install-man-pages
+             (lambda* (#:key outputs #:allow-other-keys)
+               (let* ((out (assoc-ref outputs "out"))
+                      (man (string-append out "/share/man/man1")))
+                 (with-directory-excursion "src/linguist"
+                   (install-file "lrelease/lrelease.1" man)
+                   (install-file "lupdate/lupdate.1" man)))
+               #t))
+           (add-after 'install-man-pages 'install-desktop-files
              (lambda* (#:key outputs #:allow-other-keys)
                (let* ((out (assoc-ref outputs "out"))
                       (apps (string-append out "/share/applications"))
-- 
2.28.0