gnu: celestia: Update to 1.6.3.

* gnu/packages/astronomy.scm (celestia): Update to 1.6.3.
[source]: Use Git tag.
[build-system]: Switch to the GNU build system; CMake build files are gone.
[arguments]: Adjust #:configure-flags accordingly.
Add a new patch-lua-version phase.
[native-inputs]: Add autoconf and automake.
[inputs]: Remove eigen, fmt-7, and glew.
* (celestia-gtk): Adjust accordingly.
[inputs]: Add cairo, libxmu, libtheora, and pango-1.42.
[arguments]: Use SUBSTITUTE-KEYWORD-ARGUMENTS and adjust #:configure-flags.

Co-authored-by: Tobias Geerinckx-Rice <me@tobias.gr>

gnu/packages/astronomy.scm

@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2016 John Darrington <jmd@gnu.org>
-;;; Copyright © 2018–2022 Tobias Geerinckx-Rice <me@tobias.gr>
+;;; Copyright © 2018–2023 Tobias Geerinckx-Rice <me@tobias.gr>
 ;;; Copyright © 2018, 2019, 2020, 2021, 2022 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2019 by Amar Singh <nly@disroot.org>
 ;;; Copyright © 2020 R Veera Kumar <vkor@vkten.in>
@@ -1175,54 +1175,67 @@ any arbitrary astrometric projection defined in the WCS standard.")
     (license license:gpl3+)))
 
 (define-public celestia
-  (let ((commit "9dbdf29c4ac3d20afb2d9a80d3dff241ecf81dce"))
+  (package
-    (package
+    (name "celestia")
-      (name "celestia")
+    (version "1.6.3")
-      (version (git-version "1.6.1" "815" commit))
+    (source
-      (source (origin
+     (origin
-                (method git-fetch)
+       (method git-fetch)
-                (uri (git-reference
+       (uri (git-reference
-                      (url "https://github.com/celestiaproject/celestia")
+             (url "https://github.com/celestiaproject/celestia")
-                      (commit commit)))
+             (commit version)))
-                (file-name (git-file-name name version))
+       (file-name (git-file-name name version))
-                (sha256
+       (sha256
-                 (base32
+        (base32 "0dzci5n7gcnm1vq916gsn9zddkhbzhbsakqxrpnmvzibsqznn6c8"))))
-                  "00xibg87l1arzifakgj7s828x9pszcgx7x7ij88a561ig49ryh78"))))
+    (build-system gnu-build-system)
-      (build-system cmake-build-system)
+    (arguments
-      (arguments
+     (list
-       (list
+      #:modules
-        #:configure-flags
+      `((guix build gnu-build-system)
-        #~(list "-DENABLE_GLUT=ON"
+        (guix build utils)
-                "-DENABLE_QT=OFF")
+        (srfi srfi-1)
-        #:tests? #f))                            ; no tests
+        (srfi srfi-71))
-      (native-inputs
+      #:configure-flags
-       (list gettext-minimal
+      #~(list "--with-glut"
-             libgit2
+              (string-append "--with-lua=" #$(this-package-input "lua")))
-             libtool
+      #:phases
-             perl
+      #~(modify-phases %standard-phases
-             pkg-config))
+          (add-after 'unpack 'patch-lua-version
-      (inputs
+            (lambda _
-       (list eigen
+              (let* ((_ version (package-name->name+version
-             fmt-7
+                                 #$(this-package-input "lua")))
-             freeglut
+                     (components (string-split version #\.))
-             glew
+                     (major+minor (string-join (take components 2) ".")))
-             glu
+                (substitute* "configure.ac"
-             libjpeg-turbo
+                  (("lua5.3")
-             libpng
+                   (string-append "lua-" major+minor)))))))))
-             libtheora
+    (native-inputs
-             mesa))
+     (list autoconf
-      (propagated-inputs
+           automake
-       (list lua))
+           gettext-minimal
-      (home-page "https://celestia.space/")
+           libgit2
-      (synopsis "Real-time 3D visualization of space")
+           libtool
-      (description
+           perl
-       "This simulation program lets you explore our universe in three
+           pkg-config))
+    (inputs
+     (list freeglut
+           glu
+           libjpeg-turbo
+           libpng
+           libtheora
+           mesa))
+    (propagated-inputs
+     (list lua))
+    (home-page "https://celestia.space/")
+    (synopsis "Real-time 3D visualization of space")
+    (description
+     "This simulation program lets you explore our universe in three
 dimensions.  Celestia simulates many different types of celestial objects.
 From planets and moons to star clusters and galaxies, you can visit every
 object in the expandable database and view it from any point in space and
 time.  The position and movement of solar system objects is calculated
 accurately in real time at any rate desired.")
-      (license license:gpl2+))))
+    (license license:gpl2+)))
 
 
 (define-public celestia-gtk
@@ -1231,13 +1244,15 @@ accurately in real time at any rate desired.")
     (inputs
      (modify-inputs (package-inputs celestia)
        (replace "freeglut" gtk+-2)
-       (prepend gtkglext)))
+       (prepend cairo gtkglext libxmu libtheora pango-1.42)))
     (arguments
-     (list
+     (substitute-keyword-arguments (package-arguments celestia)
-      #:configure-flags
+       ((#:configure-flags flags '())
-      #~(list "-DENABLE_GTK=ON"
+        #~(append #$flags
-              "-DENABLE_QT=OFF")
+                  (list "--enable-cairo"
-       #:tests? #f))))
+                        "--enable-theora"
+                        "--without-glut"
+                        "--with-gtk")))))))
 
 (define-public python-astropy
   (package