31/347: gnu: Add kcontacts-6.

[guix-commits]

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

commit 968f53d6bcdc5ee5e245680e898671e00b8f15f2
Author: Zheng Junjie <zhengjunjie@iscas.ac.cn>
AuthorDate: Fri Mar 8 20:31:02 2024 +0800

    gnu: Add kcontacts-6.
    
    * gnu/packages/kde-frameworks.scm (kcontacts-6): New variable.
    (kcontacts): Inherit above.
    
    Change-Id: Ifabaa96e327b97a3fcdf114f585ddab47ea70442
---
 gnu/packages/kde-frameworks.scm | 47 ++++++++++++++++++++++++++++++++++-------
 1 file changed, 39 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index 188aeeee98..767249b724 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -2309,8 +2309,46 @@ integrated it into your application's other widgets.")
      (list kconfig kwidgetsaddons))
     (arguments '())))
 
+(define-public kcontacts-6
+  (package
+    (name "kcontacts")
+    (version "6.1.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://kde/stable/frameworks/"
+                    (version-major+minor version) "/"
+                    name "-" version ".tar.xz"))
+              (patches
+               (search-patches "kcontacts-incorrect-country-name.patch"))
+              (sha256
+               (base32
+                "0ki6hhhh46k8710nj8q19ah9sqnws2c4q8r0j5s4vkq2hddvxl5y"))))
+    (build-system qt-build-system)
+    (native-inputs (list extra-cmake-modules
+                         ;; for test
+                         iso-codes))
+    (inputs (list qtbase qtdeclarative))
+    (propagated-inputs
+     (list ;; As required by KF6ContactsConfig.cmake.
+      kcodecs-6 kconfig-6 kcoreaddons-6 ki18n-6))
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'check 'check-setup
+            (lambda _ (setenv "HOME" (getcwd)))))))
+    (home-page "https://community.kde.org/Frameworks";)
+    (synopsis "API for contacts/address book data following the vCard 
standard")
+    (description "This library provides a vCard data model, vCard
+input/output, contact group management, locale-aware address formatting, and
+localized country name to ISO 3166-1 alpha 2 code mapping and vice verca.
+")
+    (license license:lgpl2.1+)))
+
 (define-public kcontacts
   (package
+    (inherit kcontacts-6)
     (name "kcontacts")
     (version "5.114.0")
     (source (origin
@@ -2340,14 +2378,7 @@ integrated it into your application's other widgets.")
             (lambda _
               (setenv "HOME" (getcwd))
               (system "Xvfb +extension GLX :1 -screen 0 640x480x24 &")
-              (setenv "DISPLAY" ":1"))))))
-    (home-page "https://community.kde.org/Frameworks";)
-    (synopsis "API for contacts/address book data following the vCard 
standard")
-    (description "This library provides a vCard data model, vCard
-input/output, contact group management, locale-aware address formatting, and
-localized country name to ISO 3166-1 alpha 2 code mapping and vice verca.
-")
-    (license license:lgpl2.1+)))
+              (setenv "DISPLAY" ":1"))))))))
 
 (define-public kcrash
   (package