guix_mirror_bot pushed a commit to branch master
in repository guix.

commit 38b6aa2936f2a2b122669776f2bcf1667ddb2a40
Author: Sharlatan Hellseher <[email protected]>
AuthorDate: Thu Aug 14 12:06:50 2025 +0100

    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 2fa2d1b537..94d3d4042f 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

Reply via email to