gnu: khelpcenter: Use G-expressions.

* gnu/packages/kde-systemtools.scm (khelpcenter)[arguments]:
Rewrite as G-expressions.

Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
This commit is contained in:
Zheng Junjie 2023-07-15 13:43:18 +08:00 committed by 宋文武
parent 9579022987
commit f49a5ddf89
No known key found for this signature in database
GPG key ID: D415BF253B515976

View file

@ -26,6 +26,7 @@ (define-module (gnu packages kde-systemtools)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix utils)
#:use-module (guix gexp)
#:use-module (gnu packages)
#:use-module (gnu packages compression)
#:use-module (gnu packages freedesktop)
@ -164,17 +165,17 @@ (define-public khelpcenter
qtbase-5
xapian))
(arguments
`(#: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"))))))))))
(list #:tests? #f ;;1/1 test fails
#:phases #~(modify-phases %standard-phases
(add-after 'install 'wrap-executable
(lambda* (#:key inputs #:allow-other-keys)
;; Since qt-wrap selectors do not wrap for /share/kf5
;; directories, we need this so khelpcenter can find html4.css.
(wrap-program (string-append #$output
"/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