From 149cc9acadadb83a6f18b89cdf9a794f66f02773 Mon Sep 17 00:00:00 2001
From: "Artyom V. Poptsov" <poptsov.artyom@gmail.com>
Date: Wed, 5 Feb 2025 21:57:04 +0300
Subject: [PATCH] gnu: translate2geda: Use GEXPs.

* gnu/packages/engineering.scm (translate2geda): Use GEXPs.  Improve package
style.

Change-Id: I6573a7299b268143b09be3ebbb14d7f7943ae591
---
 gnu/packages/engineering.scm | 36 +++++++++++++++++++-----------------
 1 file changed, 19 insertions(+), 17 deletions(-)

diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm
index e786ea30569..0766b1910fd 100644
--- a/gnu/packages/engineering.scm
+++ b/gnu/packages/engineering.scm
@@ -954,24 +954,26 @@ as well as pick-place files.")
                   "1h062bbpw8nk0jamkya1k4lsgaia796jyviiz2gkdi6k1bxhwgpa"))))
       (build-system ant-build-system)
       (arguments
-       `(#:tests? #f ; there are no tests
-         #:jar-name "translate2geda.jar"
-         #:source-dir "."
-         #:main-class "translate2geda"
-         #:phases
-         (modify-phases %standard-phases
-           (add-after 'install 'install-bin
-             (lambda* (#:key inputs outputs #:allow-other-keys)
-               (let* ((out (assoc-ref outputs "out"))
-                      (bin (string-append out "/bin"))
-                      (wrapper (string-append bin "/translate2geda")))
-                 (mkdir-p bin)
-                 (with-output-to-file wrapper
+       (list #:tests? #f ; there are no tests
+             #:jar-name "translate2geda.jar"
+             #:source-dir "."
+             #:main-class "translate2geda"
+             #:phases
+             #~(modify-phases %standard-phases
+                 (add-after 'install 'install-bin
                    (lambda _
-                     (format #t "#!/bin/sh~%exec ~a -jar ~a/share/java/translate2geda.jar"
-                             (which "java") out)))
-                 (chmod wrapper #o555))
-               #t)))))
+                     (let* ((bin (string-append #$output "/bin"))
+                            (wrapper (string-append bin "/translate2geda"))
+                            (jar "/share/java/translate2geda.jar"))
+                       (mkdir-p bin)
+                       (with-output-to-file wrapper
+                         (lambda _
+                           (format #t
+                                   "#!/bin/sh~%exec ~a -jar ~a~a~%"
+                                   (which "java")
+                                   #$output
+                                   jar)))
+                       (chmod wrapper #o555)))))))
       (home-page "https://github.com/erichVK5/translate2geda")
       (synopsis "Utility for converting symbol and footprint formats to gEDA")
       (description