[bug#48297] [PATCH 1/4]: Add new Common Lisp systems: messagebox, glsl-toolkit, simple-tasks, trivial-main-thread

[bug#48297] [PATCH 1/4]: Add new Common Lisp systems: messagebox, glsl-toolkit, simple-tasks, trivial-main-thread

[Sharlatan Hellseher]

[-- Attachment #1: Type: text/plain, Size: 1579 bytes --]

Hi Guix team!

Free time - new packages :)

Here is other set of patches for Trial game engine.

--8<---------------cut here---------------start------------->8---
[env: /gnu/store/5sxv0gy7jzaga531zpnfs32bmpvp6vgb-profile] >
./pre-inst-env guix build --rounds=2 sbcl-messagebox ecl-messagebox
sbcl-glsl-toolkit ecl-glsl-toolkit sbcl-simple-tasks ecl-simple-tasks
sbcl-trivial-main-thread ecl-trivial-main-thread
/gnu/store/k9ayxgapb0xi7sd803n261cvngw9qqvv-ecl-trivial-main-thread-1.0.0-1.25f1149
/gnu/store/8k1mlbwb9hbrywq80h3s6z0a1pqc4s3f-sbcl-trivial-main-thread-1.0.0-1.25f1149
/gnu/store/q7mjrp8z7kvb1f2lrj3lrkqmjb6ycalz-ecl-simple-tasks-1.3.0-1.745d4b5
/gnu/store/1dhgb3rglhv7fjslrzmc31kdk25ddbm9-sbcl-simple-tasks-1.3.0-1.745d4b5
/gnu/store/y5a3bnww1p7f4a81zd7c32gr6a644fcr-ecl-glsl-toolkit-1.0.0-1.d00ba19
/gnu/store/88hzg2qmvzpdp6n8cismcqfrp7y74cqf-sbcl-glsl-toolkit-1.0.0-1.d00ba19
/gnu/store/7yhhys3wp5wwgf25hw7yvps0f1w0i0np-ecl-messagebox-1.0.0-1.ea3688d
/gnu/store/cyghig95zwwfnmvys58snh22wc8hc3r7-sbcl-messagebox-1.0.0-1.ea3688d
--8<---------------cut here---------------end--------------->8---

Progress so far:
https://github.com/Hellseher/guix-channel/blob/main/lisp-xyz.org#trial-040
-- 
… наш разум - превосходная объяснительная машина которая способна
найти смысл почти в чем угодно, истолковать любой феномен, но
совершенно не в состоянии принять мысль о непредсказуемости.

[-- Attachment #2: 0001-gnu-Add-messagebox.patch --]
[-- Type: text/x-patch, Size: 2007 bytes --]

From ff5a2aaaa26e51485d12118345ef9dae0ece1f2c Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <sharlatanus@gmail.com>
Date: Sat, 8 May 2021 21:26:15 +0100
Subject: [PATCH 1/4] gnu: Add messagebox

* gnu/packages/lisp-xyz.scm (sbcl-messagebox, ecl-messagebox,
  cl-messagebox): New variables
---
 gnu/packages/lisp-xyz.scm | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 0824fa1d82..2c8966651d 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -16434,3 +16434,36 @@ operations in 3D space.")
 
 (define-public cl-3d-matrices
   (sbcl-package->cl-source-package sbcl-3d-matrices))
+
+(define-public sbcl-messagebox
+  (let ((commit "ea3688d9a9954bee7079c0173bc7b3f327021e9f")
+        (revision "1"))
+    (package
+      (name "sbcl-messagebox")
+      (version (git-version "1.0.0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/Shinmera/messagebox.git")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "0jkbzlca0wvspgsfj0b0hjwlyyy8jlywsldsbkp79q48fc3aa8jd"))))
+      (build-system asdf-build-system/sbcl)
+      (inputs
+       `(("documentation-utils" ,sbcl-documentation-utils)
+         ("trivial-features" ,sbcl-trivial-features)))
+      (home-page "https://shinmera.github.io/messagebox/")
+      (synopsis "Display a native GUI message box")
+      (description
+       "This is a small library to display a native GUI message box.  This can be
+useful to show error messages and other informational pieces should the
+application fail and be unable to do so using its standard UI.")
+      (license license:zlib))))
+
+(define-public ecl-messagebox
+  (sbcl-package->ecl-package sbcl-messagebox))
+
+(define-public cl-messagebox
+  (sbcl-package->cl-source-package sbcl-messagebox))
-- 
2.31.1

[bug#48297] [PATCH 2/2]

[Sharlatan Hellseher]

[-- Attachment #1: Type: text/plain, Size: 356 bytes --]

-- 
… наш разум - превосходная объяснительная машина которая способна
найти смысл почти в чем угодно, истолковать любой феномен, но
совершенно не в состоянии принять мысль о непредсказуемости.

[-- Attachment #2: 0002-gnu-Add-glsl-toolkit.patch --]
[-- Type: text/x-patch, Size: 2080 bytes --]

From b9a7208f70f5a3a9c9bf0be140c7ad0123936197 Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <sharlatanus@gmail.com>
Date: Sat, 8 May 2021 21:31:16 +0100
Subject: [PATCH 2/4] gnu: Add glsl-toolkit

* gnu/packages/lisp-xyz.scm (sbcl-glsl-toolkit, ecl-glsl-toolkit,
  cl-glsl-toolkit): New variables.
---
 gnu/packages/lisp-xyz.scm | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 2c8966651d..55271d2a30 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -16467,3 +16467,37 @@ application fail and be unable to do so using its standard UI.")
 
 (define-public cl-messagebox
   (sbcl-package->cl-source-package sbcl-messagebox))
+
+(define-public sbcl-glsl-toolkit
+  (let ((commit "d00ba1906e3b5eb08ea346ac300a1e77bb999d04")
+        (revision "1"))
+    (package
+      (name "sbcl-glsl-toolkit")
+      (version (git-version "1.0.0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/Shirakumo/glsl-toolkit")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "0as5796yazchq1qkna3srxlz5v7cf7ffny9cbqi41wsa2s20vbh9"))))
+      (build-system asdf-build-system/sbcl)
+      (inputs
+       `(("cl-ppcre" ,sbcl-cl-ppcre)
+         ("documentation-utils" ,sbcl-documentation-utils)
+         ("parse-float" ,sbcl-parse-float)
+         ("trivial-indent" ,sbcl-trivial-indent)))
+      (home-page "https://shirakumo.github.io/glsl-toolkit/")
+      (synopsis "Parser for OpenGL Shader Language source files")
+      (description
+       "This package provides Common Lisp system collecting tools written to
+allow to wrangle OpenGL Shader Language (GLSL) source files.")
+      (license license:zlib))))
+
+(define-public ecl-glsl-toolkit
+  (sbcl-package->ecl-package sbcl-glsl-toolkit))
+
+(define-public cl-glsl-toolkit
+  (sbcl-package->cl-source-package sbcl-glsl-toolkit))
-- 
2.31.1

[bug#48297] [PATCH 3/4]

[Sharlatan Hellseher]

[-- Attachment #1: Type: text/plain, Size: 356 bytes --]

-- 
… наш разум - превосходная объяснительная машина которая способна
найти смысл почти в чем угодно, истолковать любой феномен, но
совершенно не в состоянии принять мысль о непредсказуемости.

[-- Attachment #2: 0003-gnu-Add-simple-tasks.patch --]
[-- Type: text/x-patch, Size: 1930 bytes --]

From 58958091ab7a1c3eb61e9eb080fc5fe892283b56 Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <sharlatanus@gmail.com>
Date: Sat, 8 May 2021 21:34:57 +0100
Subject: [PATCH 3/4] gnu: Add simple-tasks

* gnu/packages/lisp-xyz.scm (sbcl-simple-tasks, ecl-simple-tasks,
  cl-simple-tasks): New packages.
---
 gnu/packages/lisp-xyz.scm | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 55271d2a30..219fd9ff65 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -16501,3 +16501,36 @@ allow to wrangle OpenGL Shader Language (GLSL) source files.")
 
 (define-public cl-glsl-toolkit
   (sbcl-package->cl-source-package sbcl-glsl-toolkit))
+
+(define-public sbcl-simple-tasks
+  (let ((commit "745d4b54eac9bf5d6909792e63ecd2ef8d303cf2")
+        (revision "1"))
+    (package
+      (name "sbcl-simple-tasks")
+      (version (git-version "1.3.0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/Shinmera/simple-tasks")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32
+           "1ls1pij7dvb65g4nam7nvik1218jvfk5iplr48vy290fw3lq7v98"))))
+      (build-system asdf-build-system/sbcl)
+      (inputs
+       `(("array-utils" ,sbcl-array-utils)
+         ("bordeaux-threads" ,sbcl-bordeaux-threads)
+         ("dissect" ,sbcl-dissect)))
+      (home-page "https://shinmera.github.io/simple-tasks/")
+      (synopsis "Simple task scheduling framework")
+      (description
+       "Task scheduling framework for Common Lisp.")
+      (license license:zlib))))
+
+(define-public ecl-simple-tasks
+  (sbcl-package->ecl-package sbcl-simple-tasks))
+
+(define-public cl-simple-tasks
+  (sbcl-package->cl-source-package sbcl-simple-tasks))
-- 
2.31.1

[bug#48297] [PATCH 4/4]

[Sharlatan Hellseher]

[-- Attachment #1: Type: text/plain, Size: 356 bytes --]

-- 
… наш разум - превосходная объяснительная машина которая способна
найти смысл почти в чем угодно, истолковать любой феномен, но
совершенно не в состоянии принять мысль о непредсказуемости.

[-- Attachment #2: 0004-gnu-Add-trivial-main-thread.patch --]
[-- Type: text/x-patch, Size: 2166 bytes --]

From 52a5f2d5b9dc3fdf6fdfcd9b25c395db373f7fff Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <sharlatanus@gmail.com>
Date: Sat, 8 May 2021 21:39:10 +0100
Subject: [PATCH 4/4] gnu: Add trivial-main-thread

* gnu/packages/lisp-xyz.scm (sbcl-trivial-main-thread,
  ecl-trivial-main-thread, cl-trivial-main-thread): New variables.
---
 gnu/packages/lisp-xyz.scm | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 219fd9ff65..bd39cbcdaf 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -16534,3 +16534,37 @@ allow to wrangle OpenGL Shader Language (GLSL) source files.")
 
 (define-public cl-simple-tasks
   (sbcl-package->cl-source-package sbcl-simple-tasks))
+
+(define-public sbcl-trivial-main-thread
+  (let ((commit "25f114973bb69eb63e01d0bbfead31f8e682846a")
+        (revision "1"))
+    (package
+      (name "sbcl-trivial-main-thread")
+      (version (git-version "1.0.0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/Shinmera/trivial-main-thread")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "0bw1887i7396lqg75qvmgjfzz4xbiq9w5dp8wxdgrcsm0qwlraw7"))))
+      (build-system asdf-build-system/sbcl)
+      (inputs
+       `(("bordeaux-threads" ,sbcl-bordeaux-threads)
+         ("simple-tasks" ,sbcl-simple-tasks)
+         ("trivial-features" ,sbcl-trivial-features)))
+      (home-page "https://shinmera.github.io/trivial-main-thread/")
+      (synopsis "Compatibility library to run things in the main thread")
+      (description
+       "This package provides a Common Lisp system which wraps BORDEUX-THREADS
+system to be compatible to run GUI applications in the main thread of the
+implementation.")
+      (license license:zlib))))
+
+(define-public ecl-trivial-main-thread
+  (sbcl-package->ecl-package sbcl-trivial-main-thread))
+
+(define-public cl-trivial-main-thread
+  (sbcl-package->cl-source-package sbcl-trivial-main-thread))
-- 
2.31.1

[bug#48297] [PATCH 1/4]: Add new Common Lisp systems: messagebox, glsl-toolkit, simple-tasks, trivial-main-thread

[Guillaume Le Vaillant]

[-- Attachment #1: Type: text/plain, Size: 261 bytes --]

Hi,

It looks like messagebox calls zenity using the 'run-program'
function (see line 11 in "zenity.lisp").

In order for this to work, you should add zenity as input, and add
a phase replacing "zenity" by the full path the the zenity binary in the
Guix store.

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 247 bytes --]

[bug#48297] [PATCH 1/4]: (fix) Add messagebox

[Sharlatan Hellseher]

[-- Attachment #1: Type: text/plain, Size: 438 bytes --]

Hi Guillaume,

Thank you for pointing it out. I've modified the first patch.

-- 
… наш разум - превосходная объяснительная машина которая способна
найти смысл почти в чем угодно, истолковать любой феномен, но
совершенно не в состоянии принять мысль о непредсказуемости.

[-- Attachment #2: 0001-gnu-Add-messagebox.patch --]
[-- Type: text/x-patch, Size: 2694 bytes --]

From d3e26e981b3a4dc6cc9f7f9220dc35fe1c969557 Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <sharlatanus@gmail.com>
Date: Mon, 10 May 2021 20:08:55 +0100
Subject: [PATCH] gnu: Add messagebox

* gnu/packages/lisp-xyz.scm (sbcl-messagebox, ecl-messagebox,
  cl-messagebox): New variables.
---
 gnu/packages/lisp-xyz.scm | 44 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 0824fa1d82..c73d168932 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -67,6 +67,7 @@
   #:use-module (gnu packages fontutils)
   #:use-module (gnu packages gl)
   #:use-module (gnu packages glib)
+  #:use-module (gnu packages gnome)
   #:use-module (gnu packages gtk)
   #:use-module (gnu packages image)
   #:use-module (gnu packages imagemagick)
@@ -16434,3 +16435,46 @@ operations in 3D space.")
 
 (define-public cl-3d-matrices
   (sbcl-package->cl-source-package sbcl-3d-matrices))
+
+(define-public sbcl-messagebox
+  (let ((commit "ea3688d9a9954bee7079c0173bc7b3f327021e9f")
+        (revision "1"))
+    (package
+      (name "sbcl-messagebox")
+      (version (git-version "1.0.0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/Shinmera/messagebox.git")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "0jkbzlca0wvspgsfj0b0hjwlyyy8jlywsldsbkp79q48fc3aa8jd"))))
+      (build-system asdf-build-system/sbcl)
+      (arguments
+       `(#:phases
+         (modify-phases %standard-phases
+           (add-after 'unpack 'patch-zenity-path
+             (lambda* (#:key inputs #:allow-other-keys)
+               (substitute* "zenity.lisp"
+                 (("\"zenity\"")
+                  (string-append "\"" (assoc-ref inputs "zenity") "/bin/zenity\"")))
+               #t)))))
+      (inputs
+       `(("documentation-utils" ,sbcl-documentation-utils)
+         ("trivial-features" ,sbcl-trivial-features)
+         ("zenity" ,zenity)))
+      (home-page "https://shinmera.github.io/messagebox/")
+      (synopsis "Display a native GUI message box")
+      (description
+       "This is a small library to display a native GUI message box.  This can be
+useful to show error messages and other informational pieces should the
+application fail and be unable to do so using its standard UI.")
+      (license license:zlib))))
+
+(define-public ecl-messagebox
+  (sbcl-package->ecl-package sbcl-messagebox))
+
+(define-public cl-messagebox
+  (sbcl-package->cl-source-package sbcl-messagebox))
-- 
2.31.1

bug#48297: [PATCH 1/4]: (fix) Add messagebox

[Guillaume Le Vaillant]

[-- Attachment #1: Type: text/plain, Size: 107 bytes --]

Patches pushed as df07ecbac6ef76f0f4d47606d85888fbcd2f0454 and following
with a few modifications.
Thanks.

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 247 bytes --]