342/373: gnu: Add kservice-5.

[guix-commits]

z572 pushed a commit to branch kde-team
in repository guix.

commit 137aafa2f22f345a708e619e96e872e96a74ac68
Author: Zheng Junjie <zhengjunjie@iscas.ac.cn>
AuthorDate: Mon Jul 8 13:46:24 2024 +0800

    gnu: Add kservice-5.
    
    * gnu/packages/kde-frameworks.scm (kservice-5): New variable.
    
    Change-Id: I076f60ef2f9e68dc3fe30d78c737ad9f8859554c
---
 gnu/packages/kde-frameworks.scm | 44 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index 064759df93..f434409aef 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -3739,6 +3739,50 @@ types or handled by application specific code.")
     ;; triple licensed
     (license (list license:gpl2+ license:gpl3+ license:lgpl2.1+))))
 
+(define-public kservice-5
+  (package
+    (inherit kservice)
+    (name "kservice")
+    (version "5.116.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://kde/stable/frameworks/"
+                    (version-major+minor version) "/"
+                    name "-" version ".tar.xz"))
+              (sha256
+               (base32
+                "0sd8yj9a1ja97c515g9shjqyzdz0jd7rn3r06g5659nh2z1w5dsj"))))
+    (propagated-inputs
+     (list kconfig-5 kcoreaddons-5 kdoctools-5))
+    (native-inputs
+     (list bison extra-cmake-modules flex shared-mime-info))
+    (inputs
+     (list kcrash-5 kdbusaddons-5 kdoctools-5 ki18n-5 qtbase-5))
+    (arguments
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'unpack 'patch
+                 ;; Adopted from NixOS' patches "qdiriterator-follow-symlinks" 
and
+                 ;; "no-canonicalize-path".
+                 (lambda _
+                   (substitute* "src/sycoca/kbuildsycoca.cpp"
+                     ;; make QDirIterator follow symlinks
+                     (("^\\s*(QDirIterator it\\(.*, 
QDirIterator::Subdirectories)(\\);)" _ a b)
+                      (string-append a " | QDirIterator::FollowSymlinks" b)))
+                   (substitute* "src/sycoca/vfolder_menu.cpp"
+                     ;; Normalize path, but don't resolve symlinks (taken from
+                     ;; NixOS)
+                     (("^\\s*QString resolved = 
QDir\\(dir\\)\\.canonicalPath\\(\\);")
+                      "QString resolved = QDir::cleanPath(dir);"))))
+               (replace 'check
+                 (lambda* (#:key tests? #:allow-other-keys)
+                   (when tests?
+                     (setenv "HOME" (getcwd))
+                     (setenv "QT_QPA_PLATFORM" "offscreen")
+                     ;; Disable failing tests.
+                     (invoke "ctest" "-E" 
"(kautostarttest|ksycocatest|kapplicationtradertest)")))))))))
+
 (define-public kstatusnotifieritem
   (package
     (name "kstatusnotifieritem")