[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

Debbugs page

Sharlatan Hellseher wrote 4 years ago
(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
Sharlatan Hellseher wrote 4 years ago
[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
Sharlatan Hellseher wrote 4 years ago
[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
Sharlatan Hellseher wrote 4 years ago
[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
Guillaume Le Vaillant wrote 4 years ago
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-----

Sharlatan Hellseher wrote 4 years ago
[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
Guillaume Le Vaillant wrote 4 years ago
(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
?
Your comment

This issue is archived.

To comment on this conversation send an email to 48297@debbugs.gnu.org

To respond to this issue using the mumi CLI, first switch to it
mumi current 48297
Then, you may apply the latest patchset in this issue (with sign off)
mumi am -- -s
Or, compose a reply to this issue
mumi compose
Or, send patches to this issue
mumi send-email *.patch
You may also tag this issue. See list of standard tags. For example, to set the confirmed and easy tags
mumi command -t +confirmed -t +easy
Or, remove the moreinfo tag and set the help tag
mumi command -t -moreinfo -t +help