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

  • Done
  • quality assurance status badge
Details
2 participants
  • Guillaume Le Vaillant
  • Sharlatan Hellseher
Owner
unassigned
Submitted by
Sharlatan Hellseher
Severity
normal
S
S
Sharlatan Hellseher wrote on 8 May 2021 22:53
(address . guix-patches@gnu.org)
CAO+9K5q1yDiyrBwFbzxoKxzr+J9T0=Ro06Vp2aDUaDWEagdt9Q@mail.gmail.com
Hi Guix team!
Free time - new packages :)
Here is other set of patches for Trial game engine.
Toggle snippet (13 lines)
[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
Progress so far:
--
… ??? ????? - ???????????? ?????????????? ?????? ??????? ????????
????? ????? ????? ? ??? ??????, ??????????? ????? ???????, ??
?????????? ?? ? ????????? ??????? ????? ? ?????????????????.
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(+)

Toggle diff (43 lines)
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
S
S
Sharlatan Hellseher wrote on 8 May 2021 22:54
[PATCH 2/2]
(address . 48297@debbugs.gnu.org)
CAO+9K5rXYwfL2UabEZJhPK92DxR-LnPRBUe_qUkF2U8D4XQxtg@mail.gmail.com
--
… ??? ????? - ???????????? ?????????????? ?????? ??????? ????????
????? ????? ????? ? ??? ??????, ??????????? ????? ???????, ??
?????????? ?? ? ????????? ??????? ????? ? ?????????????????.
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(+)

Toggle diff (44 lines)
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
S
S
Sharlatan Hellseher wrote on 8 May 2021 22:54
[PATCH 3/4]
(address . 48297@debbugs.gnu.org)
CAO+9K5ovvYaMLg07nnsYmEtZnKtq-SL+kCeucSehtcBGoYVz3g@mail.gmail.com
--
… ??? ????? - ???????????? ?????????????? ?????? ??????? ????????
????? ????? ????? ? ??? ??????, ??????????? ????? ???????, ??
?????????? ?? ? ????????? ??????? ????? ? ?????????????????.
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(+)

Toggle diff (43 lines)
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
S
S
Sharlatan Hellseher wrote on 8 May 2021 22:55
[PATCH 4/4]
(address . 48297@debbugs.gnu.org)
CAO+9K5oB1n333zq7qyM33MT6=wu8ppk0yhrGrEfqxESSmRNt1g@mail.gmail.com
--
… ??? ????? - ???????????? ?????????????? ?????? ??????? ????????
????? ????? ????? ? ??? ??????, ??????????? ????? ???????, ??
?????????? ?? ? ????????? ??????? ????? ? ?????????????????.
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(+)

Toggle diff (44 lines)
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
G
G
Guillaume Le Vaillant wrote on 10 May 2021 09:56
Re: [bug#48297] [PATCH 1/4]: Add new Common Lisp systems: messagebox, glsl-toolkit, simple-tasks, trivial-main-thread
(name . Sharlatan Hellseher)(address . sharlatanus@gmail.com)(address . 48297@debbugs.gnu.org)
87h7jbuimm.fsf@kitej
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.
-----BEGIN PGP SIGNATURE-----

iIUEAREKAC0WIQTLxZxm7Ce5cXlAaz5r6CCK3yH+PwUCYJjnMQ8cZ2x2QHBvc3Rl
by5uZXQACgkQa+ggit8h/j+BswD/UFVqKIAUTbfgRJQ1tvoj25XZPpYgZQCY+/4B
N7ueZZ0A/iYFkuGhzQL8irLzB1hLvnxJY+rBKBnderM9gu+7pr11
=wEb3
-----END PGP SIGNATURE-----

S
S
Sharlatan Hellseher wrote on 10 May 2021 21:29
[PATCH 1/4]: (fix) Add messagebox
(address . 48297@debbugs.gnu.org)
CAO+9K5rVnCdQrW=P=XP5S9aUdCqXWK3EHHViQ3C7BW0poUK+fg@mail.gmail.com
Hi Guillaume,
Thank you for pointing it out. I've modified the first patch.
--
… ??? ????? - ???????????? ?????????????? ?????? ??????? ????????
????? ????? ????? ? ??? ??????, ??????????? ????? ???????, ??
?????????? ?? ? ????????? ??????? ????? ? ?????????????????.
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(+)

Toggle diff (61 lines)
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
G
G
Guillaume Le Vaillant wrote on 11 May 2021 10:21
(name . Sharlatan Hellseher)(address . sharlatanus@gmail.com)(address . 48297-done@debbugs.gnu.org)
87y2clisuh.fsf@kitej
Patches pushed as df07ecbac6ef76f0f4d47606d85888fbcd2f0454 and following
with a few modifications.
Thanks.
-----BEGIN PGP SIGNATURE-----

iIUEAREKAC0WIQTLxZxm7Ce5cXlAaz5r6CCK3yH+PwUCYJo+dg8cZ2x2QHBvc3Rl
by5uZXQACgkQa+ggit8h/j/kUQD+OwHyTdPZY7bpXtDlZoJDPGV03vdF6EC0TvA1
W7D9tfkA/0qkswQ4hdCOeByPxAh0RrMhwIpE1RHQK431UsOII2w9
=OTbG
-----END PGP SIGNATURE-----

Closed
?