02/07: gnu: Add celestia-gtk.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 67d24b15ca634ac4820f9b7b410a6a2980bdab4a
Author: Amar Singh <address@hidden>
Date:   Thu Jun 13 22:53:22 2019 +0530

    gnu: Add celestia-gtk.
    
    * gnu/packages/astronomy.scm (celestia-gtk): New variable.
    
    Co-authored-by: Ludovic Courtès <address@hidden>
---
 gnu/packages/astronomy.scm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/astronomy.scm b/gnu/packages/astronomy.scm
index 59fa11b..81c7481 100644
--- a/gnu/packages/astronomy.scm
+++ b/gnu/packages/astronomy.scm
@@ -38,9 +38,12 @@
   #: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))
+  #:use-module (guix build-system gnu)
+  #:use-module (srfi srfi-1))
 
 (define-public cfitsio
   (package
@@ -234,3 +237,15 @@ 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")
+    (inputs
+     (append (alist-delete "freeglut" (package-inputs celestia))
+             `(("gtk2" ,gtk+-2)
+               ("gtkglext" ,gtkglext))))
+    (arguments
+     `(#:configure-flags '("-DENABLE_GTK=ON" "-DENABLE_QT=OFF")
+       #:tests? #f))))