25/39: gnu: khelpcenter: Fix program.

[guix-commits]

mbakke pushed a commit to branch staging
in repository guix.

commit bf771c9e96a807eae267b1678fac3750297769b6
Author: Brendan Tildesley <mail@brendan.scot>
AuthorDate: Sun Feb 6 18:32:30 2022 +1100

    gnu: khelpcenter: Fix program.
    
    * gnu/packages/kde-systemtools.scm (khelpcenter): Wrap XDG_DATA_DIRS to
    point to khtml where it can find the html4.css file, otherwise
    khelpcenter fails to launch.
    
    Signed-off-by: Marius Bakke <marius@gnu.org>
---
 gnu/packages/kde-systemtools.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/kde-systemtools.scm b/gnu/packages/kde-systemtools.scm
index b79f72a4ed..809a9ddb7a 100644
--- a/gnu/packages/kde-systemtools.scm
+++ b/gnu/packages/kde-systemtools.scm
@@ -160,7 +160,17 @@ Dolphin with the version control systems: Bzr, Git, 
Mercurial, Subversion.")
            qtbase-5
            xapian))
     (arguments
-     `(#:tests? #f)) ;; 1/1 test fails
+     `(#:tests? #f  ;; 1/1 test fails
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'wrap-executable
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out")))
+               ;; Since qt-wrap selectors do not wrap for /share/kf5
+               ;; directories, we need this so khelpcenter can find html4.css.
+               (wrap-program (string-append out "/bin/khelpcenter")
+                 `("XDG_DATA_DIRS" suffix
+                   (,(string-append (assoc-ref inputs "khtml") 
"/share"))))))))))
     (home-page "https://apps.kde.org/khelpcenter/";)
     (synopsis "KDE documentation viewer")
     (description "KHelpCenter uses meta data files which describe the