02/03: gnu: Add guile3.0-opengl.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit ad1edd03adb1f4412cc50563c8b8530031c65ed7
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Sat Mar 14 17:30:19 2020 +0100

    gnu: Add guile3.0-opengl.
    
    * gnu/packages/gl.scm (guile3.0-opengl): New variable.
---
 gnu/packages/gl.scm | 22 +++++++++++++++++++++-
 1 file changed, 21 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/gl.scm b/gnu/packages/gl.scm
index b863283..ea9b2c5 100644
--- a/gnu/packages/gl.scm
+++ b/gnu/packages/gl.scm
@@ -4,7 +4,7 @@
 ;;; Copyright © 2014, 2016 David Thompson <address@hidden>
 ;;; Copyright © 2014, 2015, 2016, 2017 Mark H Weaver <address@hidden>
 ;;; Copyright © 2016 ng0 <address@hidden>
-;;; Copyright © 2016, 2017, 2018 Ricardo Wurmus <address@hidden>
+;;; Copyright © 2016, 2017, 2018, 2020 Ricardo Wurmus <address@hidden>
 ;;; Copyright © 2016 David Thompson <address@hidden>
 ;;; Copyright © 2017, 2018, 2019 Efraim Flashner <address@hidden>
 ;;; Copyright © 2017 Arun Isaac <address@hidden>
@@ -603,6 +603,26 @@ extension functionality is exposed in a single header 
file.")
 OpenGL graphics API.")
     (license license:lgpl3+)))
 
+(define-public guile3.0-opengl
+  (package
+    (inherit guile-opengl)
+    (name "guile3.0-opengl")
+    (arguments
+     (substitute-keyword-arguments (package-arguments guile-opengl)
+       ((#:phases phases)
+        `(modify-phases ,phases
+           (add-after 'unpack 'build-with-guile-3.0
+             (lambda _
+               (substitute* "configure"
+                 (("_guile_versions_to_search=\"")
+                  "_guile_versions_to_search=\"3.0 "))
+               #t))))))
+    (inputs
+     `(("guile" ,guile-3.0)
+       ("mesa" ,mesa)
+       ("glu" ,glu)
+       ("freeglut" ,freeglut)))))
+
 (define-public libepoxy
   (package
     (name "libepoxy")