* [bug#48297] [PATCH 2/2]
2021-05-08 20:53 [bug#48297] [PATCH 1/4]: Add new Common Lisp systems: messagebox, glsl-toolkit, simple-tasks, trivial-main-thread Sharlatan Hellseher
@ 2021-05-08 20:54 ` Sharlatan Hellseher
2021-05-08 20:54 ` [bug#48297] [PATCH 3/4] Sharlatan Hellseher
` (3 subsequent siblings)
4 siblings, 0 replies; 7+ messages in thread
From: Sharlatan Hellseher @ 2021-05-08 20:54 UTC (permalink / raw)
To: 48297
[-- 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
^ permalink raw reply related [flat|nested] 7+ messages in thread
* [bug#48297] [PATCH 3/4]
2021-05-08 20:53 [bug#48297] [PATCH 1/4]: Add new Common Lisp systems: messagebox, glsl-toolkit, simple-tasks, trivial-main-thread Sharlatan Hellseher
2021-05-08 20:54 ` [bug#48297] [PATCH 2/2] Sharlatan Hellseher
@ 2021-05-08 20:54 ` Sharlatan Hellseher
2021-05-08 20:55 ` [bug#48297] [PATCH 4/4] Sharlatan Hellseher
` (2 subsequent siblings)
4 siblings, 0 replies; 7+ messages in thread
From: Sharlatan Hellseher @ 2021-05-08 20:54 UTC (permalink / raw)
To: 48297
[-- 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
^ permalink raw reply related [flat|nested] 7+ messages in thread
* [bug#48297] [PATCH 4/4]
2021-05-08 20:53 [bug#48297] [PATCH 1/4]: Add new Common Lisp systems: messagebox, glsl-toolkit, simple-tasks, trivial-main-thread Sharlatan Hellseher
2021-05-08 20:54 ` [bug#48297] [PATCH 2/2] Sharlatan Hellseher
2021-05-08 20:54 ` [bug#48297] [PATCH 3/4] Sharlatan Hellseher
@ 2021-05-08 20:55 ` Sharlatan Hellseher
2021-05-10 7:56 ` [bug#48297] [PATCH 1/4]: Add new Common Lisp systems: messagebox, glsl-toolkit, simple-tasks, trivial-main-thread Guillaume Le Vaillant
2021-05-10 19:29 ` [bug#48297] [PATCH 1/4]: (fix) Add messagebox Sharlatan Hellseher
4 siblings, 0 replies; 7+ messages in thread
From: Sharlatan Hellseher @ 2021-05-08 20:55 UTC (permalink / raw)
To: 48297
[-- 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
^ permalink raw reply related [flat|nested] 7+ messages in thread
* [bug#48297] [PATCH 1/4]: Add new Common Lisp systems: messagebox, glsl-toolkit, simple-tasks, trivial-main-thread
2021-05-08 20:53 [bug#48297] [PATCH 1/4]: Add new Common Lisp systems: messagebox, glsl-toolkit, simple-tasks, trivial-main-thread Sharlatan Hellseher
` (2 preceding siblings ...)
2021-05-08 20:55 ` [bug#48297] [PATCH 4/4] Sharlatan Hellseher
@ 2021-05-10 7:56 ` Guillaume Le Vaillant
2021-05-10 19:29 ` [bug#48297] [PATCH 1/4]: (fix) Add messagebox Sharlatan Hellseher
4 siblings, 0 replies; 7+ messages in thread
From: Guillaume Le Vaillant @ 2021-05-10 7:56 UTC (permalink / raw)
To: Sharlatan Hellseher; +Cc: 48297
[-- 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 --]
^ permalink raw reply [flat|nested] 7+ messages in thread
* [bug#48297] [PATCH 1/4]: (fix) Add messagebox
2021-05-08 20:53 [bug#48297] [PATCH 1/4]: Add new Common Lisp systems: messagebox, glsl-toolkit, simple-tasks, trivial-main-thread Sharlatan Hellseher
` (3 preceding siblings ...)
2021-05-10 7:56 ` [bug#48297] [PATCH 1/4]: Add new Common Lisp systems: messagebox, glsl-toolkit, simple-tasks, trivial-main-thread Guillaume Le Vaillant
@ 2021-05-10 19:29 ` Sharlatan Hellseher
2021-05-11 8:21 ` bug#48297: " Guillaume Le Vaillant
4 siblings, 1 reply; 7+ messages in thread
From: Sharlatan Hellseher @ 2021-05-10 19:29 UTC (permalink / raw)
To: 48297
[-- 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
^ permalink raw reply related [flat|nested] 7+ messages in thread