From 675a4d3ae44e179a61c25375c2849ada18d07a99 Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <sharlatanus@gmail.com>
Date: Thu, 14 Aug 2025 12:00:39 +0100
Subject: [PATCH] gnu: caja: Improve package style.

* gnu/packages/mate.scm (caja): Use G-expression and apply list style.
[phases]{pre-check}: Remove trailing #t from lambda.
[native-inputs]: Remove ladles.

Change-Id: Ieccbeea784a9392646a452b4d198134fe2cbda7d
---
 gnu/packages/mate.scm | 38 +++++++++++++++++++-------------------
 1 file changed, 19 insertions(+), 19 deletions(-)

diff --git a/gnu/packages/mate.scm b/gnu/packages/mate.scm
index b0e9322b767c0c4e9780ac60389c3f2f70124857..2fa2d1b537232d7d3f1a5b9ed1c8ba6dfdf9966c 100644
--- a/gnu/packages/mate.scm
+++ b/gnu/packages/mate.scm
@@ -807,24 +807,24 @@ hypertext navigation, and table-of-contents bookmarks.")
          "0ylm46wgg7linppid6pdfaixhdb8zgyrxl3lxz17x0am2k718c0y"))))
     (build-system glib-or-gtk-build-system)
     (arguments
-     `(#:configure-flags '("--disable-update-mimedb")
-       #:tests? #f ; tests fail even with display set
-       #:phases
-       (modify-phases %standard-phases
-         (add-before 'check 'pre-check
-           (lambda _
-             ;; Tests require a running X server.
-             (system "Xvfb :1 &")
-             (setenv "DISPLAY" ":1")
-             ;; For the missing /etc/machine-id.
-             (setenv "DBUS_FATAL_WARNINGS" "0")
-             #t)))))
+     (list
+      #:tests? #f ; tests fail even with display set
+      #:configure-flags #~(list "--disable-update-mimedb")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'check 'pre-check
+            (lambda _
+              ;; Tests require a running X server.
+              (system "Xvfb :1 &")
+              (setenv "DISPLAY" ":1")
+              ;; For the missing /etc/machine-id.
+              (setenv "DBUS_FATAL_WARNINGS" "0"))))))
     (native-inputs
-     `(("pkg-config" ,pkg-config)
-       ("intltool" ,intltool)
-       ("glib:bin" ,glib "bin")
-       ("xorg-server" ,xorg-server)
-       ("gobject-introspection" ,gobject-introspection)))
+     (list pkg-config
+           intltool
+           (list glib "bin")
+           xorg-server
+           gobject-introspection))
     (inputs
      (list exempi
            gtk+
@@ -837,8 +837,8 @@ hypertext navigation, and table-of-contents bookmarks.")
            startup-notification))
     (native-search-paths
      (list (search-path-specification
-            (variable "CAJA_EXTENSIONDIR")
-            (files (list "lib/caja/extensions-2.0/**")))))
+             (variable "CAJA_EXTENSIONDIR")
+             (files (list "lib/caja/extensions-2.0/**")))))
     (home-page "https://mate-desktop.org/")
     (synopsis "File manager for the MATE desktop")
     (description