From 38b6aa2936f2a2b122669776f2bcf1667ddb2a40 Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <sharlatanus@gmail.com>
Date: Thu, 14 Aug 2025 12:06:50 +0100
Subject: [PATCH] gnu: mate-control-center: Apply G-Expressions.

* gnu/packages/mate.scm (mate-control-center): Apply
G-Expressions. Remove trailing #t from lambdas.

Change-Id: Idc20ac96e5dedcb2bd57b28f5e68cb9804e8e19f
---
 gnu/packages/mate.scm | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/gnu/packages/mate.scm b/gnu/packages/mate.scm
index 2fa2d1b537232d7d3f1a5b9ed1c8ba6dfdf9966c..94d3d4042f0a5fed9c9958f6e597b347d588f096 100644
--- a/gnu/packages/mate.scm
+++ b/gnu/packages/mate.scm
@@ -927,22 +927,22 @@ icons on the MATE desktop.  It works on local and remote file systems.")
         (base32 "1g0lg4x3idilaxhwq1s90pajkvv9i012kzrnk0pxqj2jzl2cgwpb"))))
     (build-system glib-or-gtk-build-system)
     (arguments
-     '(#:phases (modify-phases %standard-phases
-                  (add-before 'configure 'use-elogind-as-systemd
-                    (lambda _
-                      (substitute* "configure"
-                        (("systemd") "libelogind"))))
-                  (add-before 'build 'fix-polkit-action
-                    (lambda* (#:key outputs #:allow-other-keys)
-                      ;; Make sure the polkit file refers to the right
-                      ;; executable.
-                      (let ((out (assoc-ref outputs "out")))
-                        (substitute*
-                            '("capplets/display/org.mate.randr.policy.in"
-                              "capplets/display/org.mate.randr.policy")
-                          (("/usr/sbin")
-                           (string-append out "/sbin")))
-                        #t))))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'configure 'use-elogind-as-systemd
+            (lambda _
+              (substitute* "configure"
+                (("systemd") "libelogind"))))
+          (add-before 'build 'fix-polkit-action
+            (lambda _
+              ;; Make sure the polkit file refers to the right
+              ;; executable.
+              (substitute*
+                  '("capplets/display/org.mate.randr.policy.in"
+                    "capplets/display/org.mate.randr.policy")
+                (("/usr/sbin")
+                 (string-append #$output "/sbin"))))))))
     (native-inputs
      (list pkg-config
            intltool