39/332: gnu: kcontacts: Use G-expressions.

[guix-commits]

iyzsong pushed a commit to branch kde-updates
in repository guix.

commit 156094fc3fa192467a9e3cd2a65eb88ff4804f50
Author: Zheng Junjie <873216071@qq.com>
AuthorDate: Wed Jul 12 13:42:54 2023 +0800

    gnu: kcontacts: Use G-expressions.
    
    * gnu/packages/kde-frameworks.scm (kcontacts)[arguments]:
    Rewrite as G-expressions.
    
    Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
---
 gnu/packages/kde-frameworks.scm | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index 62c7a1d2b5..616f695988 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -1636,15 +1636,16 @@ integrated it into your application's other widgets.")
      (list qtbase-5))
     (propagated-inputs
      (list ;; As required by KF5ContactsConfig.cmake.
-          iso-codes kcodecs kconfig kcoreaddons qtdeclarative-5 ki18n))
+      iso-codes kcodecs kconfig kcoreaddons qtdeclarative-5 ki18n))
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-before 'check 'check-setup
-           (lambda _
-             (setenv "HOME" (getcwd))
-             (system "Xvfb +extension GLX :1 -screen 0 640x480x24 &")
-             (setenv "DISPLAY" ":1"))))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'check 'check-setup
+            (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