[bug#63254] [PATCH 1/5] gnu: Add pugl.

[Sughosha]

* gnu/packages/gl.scm (pugl): New variable.
---
 gnu/packages/gl.scm | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

diff --git a/gnu/packages/gl.scm b/gnu/packages/gl.scm
index 3a63d70c7a..e59d051f2e 100644
--- a/gnu/packages/gl.scm
+++ b/gnu/packages/gl.scm
@@ -44,6 +44,7 @@ (define-module (gnu packages gl)
   #:use-module (gnu packages fontutils)
   #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages gettext)
+  #:use-module (gnu packages gtk)
   #:use-module (gnu packages guile)
   #:use-module (gnu packages image)
   #:use-module (gnu packages linux)
@@ -922,6 +923,40 @@ (define-public nanovg-for-extempore
 and visualizations.")
       (license license:zlib))))
 
+(define-public pugl
+  ;; No tags are available.
+  (let ((revision "0")
+        (commit "9b5a0871c1a8771dbe204e60f437653a67abd42a"))
+    (package
+      (name "pugl")
+      (version (git-version "0" revision commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                       (url "https://gitlab.com/lv2/pugl";)
+                       (commit commit)))
+                (file-name (git-file-name name version))
+                (sha256
+                 (base32
+                  "16gcjz44d27j9ck7frpksy0jqscask2fvln9pb23k6xpq2lky3ar"))
+                (modules '((guix build utils)))
+                ;; Unbundle "sphinxygen".
+                (snippet
+                 '(delete-file-recursively "subprojects"))))
+      (build-system meson-build-system)
+      (arguments
+       (list #:tests? #f ;tests contain manual tests
+             #:configure-flags
+             #~(list "-Ddocs=disabled"))) ;requires "sphinxygen"
+      (native-inputs (list pkg-config))
+      (inputs (list cairo glu libx11 libxrandr libxcursor libxext mesa))
+      (home-page "http://drobilla.net/software/pugl.html";)
+      (synopsis "API for embeddable GUIs")
+      (description
+       "Pugl (PlUgin Graphics Library) is a portability layer for GUIs which is
+suitable for use in plugins and applications.")
+      (license license:bsd-0))))
+
 (define-public gl2ps
   (package
     (name "gl2ps")
-- 
2.39.2