>From c8dd3c6871da910761ea8908f6bc9866c7f3c5ac Mon Sep 17 00:00:00 2001
From: Amar Singh <address@hidden>
Date: Thu, 13 Jun 2019 22:53:22 +0530
Subject: [PATCH 2/2] gnu: Add celestia-gtk.

* gnu/packages/astronomy.scm (celestia-gtk): New variable.
---
 gnu/packages/astronomy.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/gnu/packages/astronomy.scm b/gnu/packages/astronomy.scm
index c0ddbca033..206b9b0b5a 100644
--- a/gnu/packages/astronomy.scm
+++ b/gnu/packages/astronomy.scm
@@ -38,6 +38,8 @@
   #:use-module (gnu packages perl)
   #:use-module (gnu packages gl)
   #:use-module (gnu packages qt)
+  #:use-module (gnu packages gtk)
+  #:use-module (gnu packages gnome)
   #:use-module (gnu packages maths)
   #:use-module (guix build-system cmake)
   #:use-module (guix build-system gnu))
@@ -238,3 +240,18 @@ 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))))
+
+(define-public celestia-gtk
+  (package (inherit celestia)
+           (name "celestia-gtk")
+           (version (package-version celestia))
+           (inputs
+            (append (filter (lambda (x)
+                              (not (equal? (car x) "freeglut")))
+                            (package-inputs celestia))
+                    `(("gtk2" ,gtk+-2)
+                      ("gtkglext" ,gtkglext))))
+           (arguments
+            `(#:configure-flags '("-DENABLE_GTK=ON" "-DENABLE_QT=OFF")
+              #:tests? #f))))
+
-- 
2.22.0