From 979043e0dd2d86ede60fd4882cda4cc1a35dee88 Mon Sep 17 00:00:00 2001
From: Cayetano Santos <csantosb@inventati.org>
Date: Tue, 14 Oct 2025 08:54:57 +0200
Subject: [PATCH] gnu: uuu: Improve style.

* gnu/packages/flashing-tools.scm (uuu)[arguments]: Use G-Expressions.

Change-Id: I121de8ce3e980f3200d52c406519502ed2d59bbf
Signed-off-by: Ekaitz Zarraga <ekaitz@elenq.tech>
---
 gnu/packages/flashing-tools.scm | 41 +++++++++++++++++----------------
 1 file changed, 21 insertions(+), 20 deletions(-)

diff --git a/gnu/packages/flashing-tools.scm b/gnu/packages/flashing-tools.scm
index a0b1c183c5aa0a4f22ea0df43039b7bdd2350845..a62be34053d411affc94e0f41cb39295452e9d69 100644
--- a/gnu/packages/flashing-tools.scm
+++ b/gnu/packages/flashing-tools.scm
@@ -724,30 +724,31 @@ formats, and can perform many different manipulations.")
        (sha256
         (base32
          "0jil04khy0lxllhapdm86yyq9i3xqrlvmf6g5r53qmq9jyvxwlhv"))))
+    (build-system cmake-build-system)
     (arguments
-     `(#:tests? #f                      ; no tests
-       #:modules ((guix build utils)
+     (list
+      #:tests? #f                      ; no tests
+      #:modules '((guix build utils)
                   (ice-9 popen)
                   (srfi srfi-26)
                   (guix build cmake-build-system))
-       #:phases
-       (modify-phases %standard-phases
-         (add-before 'configure 'fix-version-gen
-           (lambda _
-             (call-with-output-file ".tarball-version"
-               (lambda (port)
-                 (display ,version port)))))
-         (add-after 'install 'install-udev-rules
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (uuu (string-append out "/bin/uuu"))
-                    (pipe (open-pipe* OPEN_READ uuu "-udev"))
-                    (rules
-                     (string-append out "/lib/udev/rules.d/70-uuu.rules")))
-               (mkdir-p (string-append out "/lib/udev/rules.d"))
-               (call-with-output-file rules
-                 (cut dump-port pipe <>))))))))
-    (build-system cmake-build-system)
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'configure 'fix-version-gen
+            (lambda _
+              (call-with-output-file ".tarball-version"
+                (lambda (port)
+                  (display #$version port)))))
+          (add-after 'install 'install-udev-rules
+            (lambda _
+              (let* ((uuu (string-append #$output "/bin/uuu"))
+                     (pipe (open-pipe* OPEN_READ uuu "-udev"))
+                     (rules
+                      (string-append
+                       #$output "/lib/udev/rules.d/70-uuu.rules")))
+                (mkdir-p (string-append #$output "/lib/udev/rules.d"))
+                (call-with-output-file rules
+                  (cut dump-port pipe <>))))))))
     (native-inputs
      (list pkg-config))
     (inputs