Subject: [bug#64798] [PATCH 017/209] gnu: kauth: use G-expressions.

From: Zheng Junjie <[email-masked]>
Date: Sun, 23 Jul 2023 16:21:24 +0800

* gnu/packages/kde-frameworks.scm (kauth)[arguments]:
Rewrite as G-expressions.
---
 gnu/packages/kde-frameworks.scm | 37 +++++++++++++++++----------------
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/gnu/packages/kde-frameworks.scm b/gnu/packages/kde-frameworks.scm
index 7263c7d173..daffee7c7c 100644
--- a/gnu/packages/kde-frameworks.scm
+++ b/gnu/packages/kde-frameworks.scm
@@ -1561,24 +1561,25 @@ (define-public kauth
     (inputs
      (list kcoreaddons polkit-qt qtbase-5))
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'fix-cmake-install-directories
-           (lambda _
-             ;; Make packages using kauth put their policy files and helpers
-             ;; into their own prefix.
-             (substitute* "KF5AuthConfig.cmake.in"
-               (("@KAUTH_POLICY_FILES_INSTALL_DIR@")
-                "${KDE_INSTALL_DATADIR}/polkit-1/actions")
-               (("@KAUTH_HELPER_INSTALL_DIR@")
-                "${KDE_INSTALL_LIBEXECDIR}")
-               (("@KAUTH_HELPER_INSTALL_ABSOLUTE_DIR@")
-                "${KDE_INSTALL_LIBEXECDIR}"))))
-         (replace 'check
-           (lambda* (#:key tests? #:allow-other-keys)
-             (when tests?
-               (setenv "DBUS_FATAL_WARNINGS" "0")
-               (invoke "dbus-launch" "ctest")))))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'fix-cmake-install-directories
+            (lambda _
+              ;; Make packages using kauth put their policy files and helpers
+              ;; into their own prefix.
+              (substitute* "KF5AuthConfig.cmake.in"
+                (("@KAUTH_POLICY_FILES_INSTALL_DIR@")
+                 "${KDE_INSTALL_DATADIR}/polkit-1/actions")
+                (("@KAUTH_HELPER_INSTALL_DIR@")
+                 "${KDE_INSTALL_LIBEXECDIR}")
+                (("@KAUTH_HELPER_INSTALL_ABSOLUTE_DIR@")
+                 "${KDE_INSTALL_LIBEXECDIR}"))))
+          (replace 'check
+            (lambda* (#:key tests? #:allow-other-keys)
+              (when tests?
+                (setenv "DBUS_FATAL_WARNINGS" "0")
+                (invoke "dbus-launch" "ctest")))))))
     (home-page "https://community.kde.org/Frameworks")
     (synopsis "Execute actions as privileged user")
     (description "KAuth provides a convenient, system-integrated way to offload
-- 
2.41.0