34/178: gnu: Add kpackage-6.

[guix-commits]

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

commit 94d725fdf0df4b0da8e6ecb4ee5b2d08c9363621
Author: Zheng Junjie <zhengjunjie@iscas.ac.cn>
AuthorDate: Fri Mar 8 21:46:55 2024 +0800

    gnu: Add kpackage-6.
    
    * gnu/packages/kde-frameworks.scm (kpackage-6): New variable.
    (kpackage): Inherit above.
    
    Change-Id: Ie0a0c6a5ad24280b386f5480f8fb0761950b157d
---
 gnu/packages/kde-frameworks.scm | 58 +++++++++++++++++++++++++++++++++++------
 1 file changed, 50 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index 55c4e93bfe..5b3c6039e7 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -2757,8 +2757,56 @@ covers feedback and persistent events.")
                               (setenv "DBUS_FATAL_WARNINGS" "0")
                               (invoke "dbus-launch" "ctest")))))))))
 
+(define-public kpackage-6
+  (package
+    (name "kpackage")
+    (version "6.1.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://kde/stable/frameworks/"
+                    (version-major+minor version) "/"
+                    name "-" version ".tar.xz"))
+              (sha256
+               (base32
+                "1bsjdc8m31yj7ahxx8fdazhrgcchwlqyxvfvmkws903584mr2xgd"))))
+    (build-system cmake-build-system)
+    (native-inputs
+     (list extra-cmake-modules))
+    (propagated-inputs (list kcoreaddons-6))
+    (inputs
+     (list karchive-6
+           kconfig-6
+           kdoctools-6
+           ki18n-6
+           qtbase))
+    (arguments
+     (list
+      ;; The `plasma-querytest' test is known to fail when tests are run in 
parallel:
+      ;; 
<https://sources.debian.org/src/kpackage/5.107.0-1/debian/changelog/#L92>
+      #:parallel-tests? #f
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'patch
+            (lambda _
+              (substitute* "src/kpackage/package.cpp"
+                (("bool externalPaths = false;")
+                 "bool externalPaths = true;"))
+              (substitute* '("src/kpackage/packageloader.cpp")
+                (("QDirIterator::Subdirectories")
+                 "QDirIterator::Subdirectories | 
QDirIterator::FollowSymlinks"))))
+          (add-before 'check 'check-setup
+            (lambda _ (setenv "HOME" (getcwd)))))))
+    (home-page "https://community.kde.org/Frameworks";)
+    (synopsis "Installation and loading of additional content as packages")
+    (description "The Package framework lets the user install and load packages
+of non binary content such as scripted extensions or graphic assets, as if they
+were traditional plugins.")
+    (license (list license:gpl2+ license:lgpl2.1+))))
+
 (define-public kpackage
   (package
+    (inherit kpackage-6)
     (name "kpackage")
     (version "5.114.0")
     (source (origin
@@ -2770,7 +2818,6 @@ covers feedback and persistent events.")
               (sha256
                (base32
                 "0v165az3k5lfszxy0kl2464573y0dcq92fyfiklwnkkcjsvba69d"))))
-    (build-system cmake-build-system)
     (native-inputs
      (list extra-cmake-modules))
     (inputs
@@ -2780,6 +2827,7 @@ covers feedback and persistent events.")
            kdoctools
            ki18n
            qtbase-5))
+    (propagated-inputs '())
     (arguments
      (list
       #:phases
@@ -2817,13 +2865,7 @@ covers feedback and persistent events.")
                  ""))))
           (add-before 'check 'check-setup
             (lambda _
-              (setenv "HOME" (getcwd)))))))
-    (home-page "https://community.kde.org/Frameworks";)
-    (synopsis "Installation and loading of additional content as packages")
-    (description "The Package framework lets the user install and load packages
-of non binary content such as scripted extensions or graphic assets, as if they
-were traditional plugins.")
-    (license (list license:gpl2+ license:lgpl2.1+))))
+              (setenv "HOME" (getcwd)))))))))
 
 (define-public kpty-6
   (package