diff mbox series

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

Message ID 20200819115318.5655-2-timotej.lazar@araneo.si
State New
Headers show
Series gnu: qttools: Install additional files. | expand

Checks

Context Check Description
cbaines/comparison success View comparision
cbaines/git branch success View Git branch
cbaines/applying patch success View Laminar job

Commit Message

Timotej Lazar Aug. 19, 2020, 11:53 a.m. UTC 
* gnu/packages/qt.scm (qttools)[phases]: Add 'install-man-pages.
---
 gnu/packages/qt.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)
diff mbox series

Patch

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"))