gnu: xplanet: Update package style.

* gnu/packages/astronomy.scm (xplanet)[arguments]: Use G-expressions.
Improve code style.
[inputs]: Remove labels.

Signed-off-by: Tobias Geerinckx-Rice <me@tobias.gr>

gnu/packages/astronomy.scm

@@ -2738,28 +2738,28 @@ R. Seaman's protocol}
          "xplanet-1.3.1-libimage_gif.c.patch"
          "xplanet-1.3.1-xpUtil-Add2017LeapSecond.cpp.patch"))))
     (build-system gnu-build-system)
+    (arguments
+     (list
+      #:configure-flags
+      #~(list
+         ;; No NASA JPL cspice support.
+         "--without-cspice"
+         (string-append "CPPFLAGS=-I" #$(this-package-input "netpbm")
+                        "/include/netpbm"))))
     (native-inputs
      (list pkg-config))
     (inputs
-     `(("libx11" ,libx11)
+     (list freetype
-       ("libxscrnsaver" ,libxscrnsaver)
+           giflib
-       ("libice" ,libice)
+           libice
-       ("freetype" ,freetype)
+           libjpeg-turbo
-       ("pango" ,pango)
+           libpng
-       ("giflib" ,giflib)
+           libtiff
-       ("libjpeg" ,libjpeg-turbo)
+           libx11
-       ("libpng" ,libpng)
+           libxscrnsaver
-       ("libtiff" ,libtiff)
+           netpbm
-       ("netpbm" ,netpbm)
+           pango
-       ("zlib" ,zlib)))
+           zlib))
-    (arguments
-     `(#:configure-flags
-       (let ((netpbm (assoc-ref %build-inputs "netpbm")))
-         (append (list
-                  ;; Give correct path for pnm.h header to configure script
-                  (string-append "CPPFLAGS=-I" netpbm "/include/netpbm")
-                  ;; no nasa jpl cspice support
-                  "--without-cspice" )))))
     (home-page "https://xplanet.sourceforge.net/")
     (synopsis "Planetary body renderer")
     (description