372/465: gnu: Add kcmutils-5.

[guix-commits]

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

commit f60244c9f5ad2955c367b1d76c737e3a05a05627
Author: Zheng Junjie <zhengjunjie@iscas.ac.cn>
AuthorDate: Mon Jul 8 17:45:03 2024 +0800

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

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index ac58f2a792..c80a8e58db 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -3164,6 +3164,62 @@ using the XBEL format.")
 KCModules can be created with the KConfigWidgets framework.")
     (license license:lgpl2.1+)))
 
+(define-public kcmutils-5
+  (package
+    (inherit kcmutils)
+    (name "kcmutils")
+    (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
+                "06aw308wv3fyl1g60n1i2hxx74f0isdsfwwzidsjk79danyqsa4i"))))
+    (propagated-inputs
+     (list kconfigwidgets-5 kservice-5))
+    (native-inputs
+     (list extra-cmake-modules))
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch
+            (lambda _
+              (substitute* "src/kpluginselector.cpp"
+                ;; make QDirIterator follow symlinks
+                (("^\\s*(QDirIterator it\\(.*, 
QDirIterator::Subdirectories)(\\);)"
+                  _ a b)
+                 (string-append a
+                                " | QDirIterator::FollowSymlinks" b)))
+              (substitute* "src/kcmoduleloader.cpp"
+                ;; print plugin name when loading fails
+                (("^\\s*(qWarning\\(\\) << \"Error loading) (plugin:\")( << 
loader\\.errorString\\(\\);)"
+                  _ a b c)
+                 (string-append a
+                                " KCM plugin\" << mod.service()->library() << 
\":\""
+                                c)))))
+          (add-before 'check 'check-setup
+            (lambda _
+              (setenv "QT_QPA_PLATFORM" "offscreen"))))))
+    (inputs
+     (list kauth-5
+           kcodecs-5
+           kconfig-5
+           kcoreaddons-5
+           kdeclarative-5
+           kguiaddons-5
+           kiconthemes-5
+           kitemviews-5
+           ki18n-5
+           kpackage-5
+           kwidgetsaddons-5
+           kxmlgui-5
+           qtbase-5
+           qtdeclarative-5))))
+
 (define-public kconfigwidgets
   (package
     (name "kconfigwidgets")