Subject: bug#36197: closed ([Patch] gnu: add celestia; celestia-gtk)

From: [email-masked] (GNU bug Tracking System)
Date: Fri, 29 Mar 2024 15:04:04 +0000

Your bug report

#36197: [Patch] gnu: add celestia; celestia-gtk

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
36197: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=36197
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: [Patch] gnu: add celestia; celestia-gtk
From: Sharlatan Hellseher <[email-masked]>
To: [email-masked]
Date: Fri, 29 Mar 2024 15:03:32 +0000
List-Id: <debbugs-submit.debbugs.gnu.org>

Hi!

Celestia is on the latest version and periodically checked for
updates.

Closing this issue as no more relevant.

Thanks,
Oleg

Subject: [Patch] gnu: add celestia; celestia-gtk
From: Amar Singh <[email-masked]>
To: [email-masked]
Date: Thu, 13 Jun 2019 23:45:05 +0530
List-Id: <debbugs-submit.debbugs.gnu.org>

Added Celestia; space visualisation and simulator to (gnu packages
astronomy).

Tests are disabled because the project does not include any tests.

>From dba590074e9a0c7cf3dc8440492190de732feaea Mon Sep 17 00:00:00 2001
From: Amar Singh <[email-masked]>
Date: Sun, 19 May 2019 12:39:48 +0530
Subject: [PATCH 1/2] gnu: Add celestia.

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

diff --git a/gnu/packages/astronomy.scm b/gnu/packages/astronomy.scm
index 9ddb9e1d52..c0ddbca033 100644
--- a/gnu/packages/astronomy.scm
+++ b/gnu/packages/astronomy.scm
@@ -2,6 +2,7 @@
 ;;; Copyright © 2016 John Darrington <[email-masked]>
 ;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <[email-masked]>
 ;;; Copyright © 2018, 2019 Efraim Flashner <[email-masked]>
+;;; Copyright © 2019 by Amar Singh<[email-masked]>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -22,11 +23,18 @@
   #:use-module (guix packages)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix download)
+  #:use-module (guix git-download)
   #:use-module (guix utils)
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages image)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages gettext)
+  #:use-module (gnu packages version-control)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages xiph)
+  #:use-module (gnu packages pretty-print)
+  #:use-module (gnu packages algebra)
+  #:use-module (gnu packages lua)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages gl)
   #:use-module (gnu packages qt)
@@ -176,3 +184,57 @@ programs for the manipulation and analysis of astronomical data.")
 can be used to control telescopes over a serial port for tracking celestial
 objects.")
     (license license:gpl2+)))
+
+(define-public celestia
+  (let ((commit "9dbdf29c4ac3d20afb2d9a80d3dff241ecf81dce"))
+    (package
+      (name "celestia")
+      (version
+       (git-version "1.6.1" "815" commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri
+          (git-reference
+           (url
+            "https://github.com/celestiaproject/celestia")
+           (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32
+           "00xibg87l1arzifakgj7s828x9pszcgx7x7ij88a561ig49ryh78"))))
+      (build-system cmake-build-system)
+      (native-inputs
+       `(("perl" ,perl)
+         ("libgit2" ,libgit2)
+         ("pkg-config" ,pkg-config)
+         ("libtool" ,libtool)
+         ("gettext" ,gettext-minimal)))
+      (inputs
+       `(("glu" ,glu)
+         ("glew" ,glew)
+         ("libtheora" ,libtheora)
+         ("libjpeg" ,libjpeg)
+         ("libpng" ,libpng)
+         ;; maybe required?
+         ("mesa" ,mesa)
+         ;; optional: fmtlib, Eigen3;
+         ("fmt" ,fmt)
+         ("eigen" ,eigen)
+         ;; glut: for glut interface
+         ("freeglut" ,freeglut)))
+      (propagated-inputs
+       `(("lua" ,lua)))
+      (arguments
+       `(#:configure-flags '("-DENABLE_GLUT=ON" "-DENABLE_QT=OFF")
+         #:tests? #f))
+      (home-page "https://celestia.space/")
+      (synopsis "Real-time 3D visualization of space")
+      (description
+       "The free space simulation that 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))))
-- 
2.22.0

>From c8dd3c6871da910761ea8908f6bc9866c7f3c5ac Mon Sep 17 00:00:00 2001
From: Amar Singh <[email-masked]>
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