07/27: gnu: gpredict: Improve package style.

[guix-commits]

bavier pushed a commit to branch master
in repository guix.

commit d3a93691ac77578f8006774a588ffc84edb6eb41
Author: Sharlatan Hellseher <sharlatanus@gmail.com>
AuthorDate: Fri Nov 17 12:15:51 2023 +0000

    gnu: gpredict: Improve package style.
    
    * gnu/packages/astronomy.scm (gpredict): Improve package style. Reorder
    fields to be similar with others to ease review.
    [native-inputs]: Remove labels.
    [arguments]: Use G-expressions. Drop trailing #t in phases.
    
    Change-Id: I0e0216825ce2c9e77632a43dd604ab4abbdf3e83
    Signed-off-by: Eric Bavier <bavier@posteo.net>
---
 gnu/packages/astronomy.scm | 27 ++++++++++++---------------
 1 file changed, 12 insertions(+), 15 deletions(-)

diff --git a/gnu/packages/astronomy.scm b/gnu/packages/astronomy.scm
index 386a5302d6..e03660969b 100644
--- a/gnu/packages/astronomy.scm
+++ b/gnu/packages/astronomy.scm
@@ -3153,23 +3153,21 @@ Mercator, Mollweide, Peters, polyconic, orthographic 
and rectangular.")
        (sha256
         (base32 "0hwf97kng1zy8rxyglw04x89p0bg07zq30hgghm20yxiw2xc8ng7"))))
     (build-system gnu-build-system)
+    (arguments
+     (list
+      #:configure-flags #~(list "CFLAGS=-O2 -g -fcommon")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'fix-tests
+            (lambda _
+              ;; Remove reference to non-existent file.
+              (substitute* "po/POTFILES.in"
+                (("src/gtk-sat-tree\\.c") "")))))))
     (native-inputs
-     `(("intltool" ,intltool)
-       ("gettext" ,gettext-minimal)
-       ("pkg-config" ,pkg-config)))
+     (list gettext-minimal intltool pkg-config))
     (inputs
      (list curl glib goocanvas gtk+))
-    (arguments
-     `(#:configure-flags '("CFLAGS=-O2 -g -fcommon")
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'fix-tests
-           (lambda _
-             ;; Remove reference to non-existent file.
-             (substitute* "po/POTFILES.in"
-               (("src/gtk-sat-tree\\.c")
-                ""))
-             #t)))))
+    (home-page "http://gpredict.oz9aec.net/index.php";)
     (synopsis "Satellite tracking and orbit prediction application")
     (description
      "Gpredict is a real-time satellite tracking and orbit prediction
@@ -3177,7 +3175,6 @@ application.  It can track a large number of satellites 
and display their
 position and other data in lists, tables, maps, and polar plots (radar view).
 Gpredict can also predict the time of future passes for a satellite, and
 provide you with detailed information about each pass.")
-    (home-page "http://gpredict.oz9aec.net/index.php";)
     (license license:gpl2+)))
 
 (define-public sgp4