me/guix
Archived
1
0
Fork 0
Code Activity

gnu: khelpcenter: Use G-expressions.

Browse source 
* 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
1 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gnu/packages/kde-systemtools.scm
View file

@ -26,6 +26,7 @@
#:use-module ((guix licenses) #:prefix license:) #:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix gexp)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages freedesktop) #:use-module (gnu packages freedesktop)
@ -164,17 +165,17 @@ Dolphin with the version control systems: Bzr, Git, Mercurial, Subversion.")
qtbase-5 qtbase-5
xapian)) xapian))
(arguments (arguments
`(#:tests? #f ;; 1/1 test fails (list #:tests? #f ;;1/1 test fails
#:phases #:phases #~(modify-phases %standard-phases
(modify-phases %standard-phases
(add-after 'install 'wrap-executable (add-after 'install 'wrap-executable
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")))
;; Since qt-wrap selectors do not wrap for /share/kf5 ;; Since qt-wrap selectors do not wrap for /share/kf5
;; directories, we need this so khelpcenter can find html4.css. ;; directories, we need this so khelpcenter can find html4.css.
(wrap-program (string-append out "/bin/khelpcenter") (wrap-program (string-append #$output
"/bin/khelpcenter")
`("XDG_DATA_DIRS" suffix `("XDG_DATA_DIRS" suffix
(,(string-append (assoc-ref inputs "khtml") "/share")))))))))) (,(string-append (assoc-ref inputs "khtml")
"/share")))))))))
(home-page "https://apps.kde.org/khelpcenter/") (home-page "https://apps.kde.org/khelpcenter/")
(synopsis "KDE documentation viewer") (synopsis "KDE documentation viewer")
(description "KHelpCenter uses meta data files which describe the (description "KHelpCenter uses meta data files which describe the