From 481a62fe100e60c666bfc177620abdd8ed0079f3 Mon Sep 17 00:00:00 2001
From: Cayetano Santos <csantosb@inventati.org>
Date: Tue, 26 Aug 2025 21:07:05 +0200
Subject: [PATCH] gnu: libsigrok: Improve style.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* gnu/packages/electronics.scm (libsigrok)[arguments]: Use
G-Expressions.

Change-Id: I6ba9cbf71142577be62187e09fee4d0f89b79ba9
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/electronics.scm | 67 ++++++++++++++++++------------------
 1 file changed, 34 insertions(+), 33 deletions(-)

diff --git a/gnu/packages/electronics.scm b/gnu/packages/electronics.scm
index f206ed677d5..f07586f7114 100644
--- a/gnu/packages/electronics.scm
+++ b/gnu/packages/electronics.scm
@@ -216,39 +216,40 @@ to take care of the OS-specific details when writing software that uses serial p
          (file-name (git-file-name name version))))
       (outputs '("out" "doc"))
       (arguments
-       `(#:tests? #f                      ; tests need USB access
-         #:phases
-         (modify-phases %standard-phases
-           (add-before 'configure 'change-udev-group
-             (lambda _
-               (substitute* (find-files "contrib" "\\.rules$")
-                 (("plugdev") "dialout"))))
-           (add-after 'build 'build-doc
-             (lambda _
-               (invoke "doxygen")))
-           (add-after 'install 'install-doc
-             (lambda* (#:key outputs #:allow-other-keys)
-               (copy-recursively "doxy/html-api"
-                                 (string-append (assoc-ref outputs "doc")
-                                                "/share/doc/libsigrok"))))
-           (add-after 'install-doc 'install-udev-rules
-             (lambda* (#:key outputs #:allow-other-keys)
-               (let* ((out   (assoc-ref outputs "out"))
-                      (rules (string-append out "/lib/udev/rules.d/")))
-                 (for-each (lambda (file)
-                             (install-file file rules))
-                           (find-files "contrib" "\\.rules$")))))
-           (add-after 'install-udev-rules 'install-fw
-             (lambda* (#:key inputs outputs #:allow-other-keys)
-               (let* ((fx2lafw (assoc-ref inputs "sigrok-firmware-fx2lafw"))
-                      (out (assoc-ref outputs "out"))
-                      (dir-suffix "/share/sigrok-firmware/")
-                      (input-dir (string-append fx2lafw dir-suffix))
-                      (output-dir (string-append out dir-suffix)))
-                 (for-each
-                  (lambda (file)
-                    (install-file file output-dir))
-                  (find-files input-dir "."))))))))
+       (list
+        #:tests? #f                      ; tests need USB access
+        #:phases
+        #~(modify-phases %standard-phases
+            (add-before 'configure 'change-udev-group
+              (lambda _
+                (substitute* (find-files "contrib" "\\.rules$")
+                  (("plugdev") "dialout"))))
+            (add-after 'build 'build-doc
+              (lambda _
+                (invoke "doxygen")))
+            (add-after 'install 'install-doc
+              (lambda _
+                (copy-recursively
+                 "doxy/html-api"
+                 (string-append #$output:doc "/share/doc/libsigrok"))))
+            (add-after 'install-doc 'install-udev-rules
+              (lambda _
+                (for-each
+                 (lambda (file)
+                   (install-file
+                    file
+                    (string-append #$output "/lib/udev/rules.d/")))
+                          (find-files "contrib" "\\.rules$"))))
+            (add-after 'install-udev-rules 'install-fw
+              (lambda* (#:key inputs outputs #:allow-other-keys)
+                (let* ((fx2lafw (assoc-ref inputs "sigrok-firmware-fx2lafw"))
+                       (dir-suffix "/share/sigrok-firmware/")
+                       (input-dir (string-append fx2lafw dir-suffix))
+                       (output-dir (string-append #$output dir-suffix)))
+                  (for-each
+                   (lambda (file)
+                     (install-file file output-dir))
+                   (find-files input-dir "."))))))))
       (native-inputs
        (list autoconf automake doxygen graphviz libtool
              sigrok-firmware-fx2lafw pkg-config))