From e5c22a9fba37616dd3e19e66f009c4b70ec58a6a Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <sharlatanus@gmail.com>
Date: Thu, 24 Jul 2025 07:39:05 +0100
Subject: [PATCH] gnu: python-pycparser: Improve style.

* gnu/packages/python-xyz.scm (python-pycparser): Use G-expressions, fix
indentation.

Change-Id: I006ae084642e0e15468a2717a59e64cfdf050108
---
 gnu/packages/python-xyz.scm | 43 +++++++++++++++++++------------------
 1 file changed, 22 insertions(+), 21 deletions(-)

diff --git a/gnu/packages/python-xyz.scm b/gnu/packages/python-xyz.scm
index 1a89153ab26..b46f9058254 100644
--- a/gnu/packages/python-xyz.scm
+++ b/gnu/packages/python-xyz.scm
@@ -13037,30 +13037,31 @@ a multithreaded image-processing system with low memory needs.")
     (version "2.21")
     (source
      (origin
-      (method url-fetch)
-      (uri (pypi-uri "pycparser" version))
-      (sha256
-       (base32
-        "01kjlyn5w2nn2saj8w1rhq7v26328pd91xwgqn32z1zp2bngsi76"))))
+       (method url-fetch)
+       (uri (pypi-uri "pycparser" version))
+       (sha256
+        (base32
+         "01kjlyn5w2nn2saj8w1rhq7v26328pd91xwgqn32z1zp2bngsi76"))))
     (outputs '("out" "doc"))
     (build-system python-build-system)
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (replace 'check
-           (lambda _
-             (invoke "python" "-m" "unittest" "discover")))
-         (add-after 'install 'install-doc
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((data (string-append (assoc-ref outputs "doc") "/share"))
-                    (doc (string-append data "/doc/" ,name "-" ,version))
-                    (examples (string-append doc "/examples")))
-               (mkdir-p examples)
-               (for-each (lambda (file)
-                           (copy-file (string-append "." file)
-                                      (string-append doc file)))
-                         '("/README.rst" "/CHANGES" "/LICENSE"))
-               (copy-recursively "examples" examples)))))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (replace 'check
+            (lambda _
+              (invoke "python" "-m" "unittest" "discover")))
+          (add-after 'install 'install-doc
+            (lambda _
+              (let* ((data (string-append #$output:doc "/share"))
+                     (doc (string-append data "/doc/" #$name "-" #$version))
+                     (examples (string-append doc "/examples")))
+                (mkdir-p examples)
+                (for-each (lambda (file)
+                            (copy-file (string-append "." file)
+                                       (string-append doc file)))
+                          '("/README.rst" "/CHANGES" "/LICENSE"))
+                (copy-recursively "examples" examples)))))))
     (home-page "https://github.com/eliben/pycparser")
     (synopsis "C parser in Python")
     (description