[bug#49345] Add CL-Hunchenissr-Routes and Its Dependencies

[Charles via Guix-patches via <guix-patches@gnu.org>]

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

Sorry about that, the the patch (and some how commit 😢) for cl-portal got deleted and I didn't notice when sending email.
‐‐‐‐‐‐‐ Original Message ‐‐‐‐‐‐‐

On Saturday, July 3rd, 2021 at 7:39 AM, Guillaume Le Vaillant <glv@posteo.net> wrote:

> Charles via Guix-patches via guix-patches@gnu.org skribis:
>
> > Just let me know if this is to big of a change for an email or if anything else is wrong with it.
>
> Having many patches attached to an email is not a problem. However all
>
> your patches have the same "0001" prefix, it would be better if the
>
> prefixes had the right number indicating in which order the patches must
>
> be applied (although in this case it was not hard to find out).
>
> I pushed cl-unification, cl-trivial-with-current-source-form, cl-tailrec
>
> and cl-issr-core with a few modifications as
>
> e2e17903fbb726467d74d8da367f51fa0206a12b and following.
>
> However cl-hunchenissr requires the cl-portal package which is
>
> apparently missing from your patches.
>
> Could you send updated patches for cl-portal, cl-hunchenissr and
>
> cl-hunchenissr-routes?

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0002-gnu-Add-cl-hunchenissr.patch --]
[-- Type: text/x-patch; name=0002-gnu-Add-cl-hunchenissr.patch, Size: 2304 bytes --]

From 79ecf5e6b6729d3958d36982803cfae252abd545 Mon Sep 17 00:00:00 2001
From: Charles <charles.b.jackson@protonmail.com>
Date: Sat, 26 Jun 2021 10:11:54 -0500
Subject: [PATCH] gnu: Add cl-hunchenissr.

* gnu/packages/lisp-xyz.scm (sbcl-hunchenissr): Add new variable.
* gnu/packages/lisp-xyz.scm (ecl-hunchenissr): Add new variable.
* gnu/packages/lisp-xyz.scm (cl-hunchenissr): Add new variable.
---
 gnu/packages/lisp-xyz.scm | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 48d043734c..bb264ac621 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -18313,3 +18313,42 @@ customizable errors.")
 
 (define-public cl-portal
   (sbcl-package->cl-source-package sbcl-portal))
+
+(define-public sbcl-hunchenissr
+  (let ((commit "7df702f2e110999a2f31c7ebad81bfc39ac06670")
+        (revision "1"))
+    (package
+      (name "sbcl-hunchenissr")
+      (version (git-version "1" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/interactive-ssr/hunchenissr")
+               (commit commit)))
+         (sha256
+          (base32 "0826qrvk64pjspdklns29dv3zhzfhd6k42fq030xajv8a7hkcxda"))))
+      (build-system asdf-build-system/sbcl)
+      (inputs
+       `(("sbcl-cl-base64" ,sbcl-cl-base64)
+         ("sbcl-cl-str" ,sbcl-cl-str)
+         ("sbcl-hunchentoot" ,sbcl-hunchentoot)
+         ("sbcl-issr-core" ,sbcl-issr-core)
+         ("sbcl-jonathan" ,sbcl-jonathan)
+         ("sbcl-plump" ,sbcl-plump)
+         ("sbcl-portal" ,sbcl-portal)))
+      (home-page "https://github.com/interactive-ssr/hunchenissr")
+      (synopsis "The Interactive Server Side Rendering backend for The
+Hunchentoot HTTP server")
+      (description "Hunchenissr Works together with issr.js to develpment of
+interactive (changeing without page refreshes) websites making use of websocket
+and Common Lisp server HTML generation instead of mountains of convoluted
+Javascript.")
+      (license license:llgpl))))
+
+(define-public ecl-hunchenissr
+  (sbcl-package->ecl-package sbcl-hunchenissr))
+
+(define-public cl-hunchenissr
+  (sbcl-package->cl-source-package sbcl-hunchenissr))
+
-- 
2.32.0


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #3: 0001-gnu-Add-cl-portal.patch --]
[-- Type: text/x-patch; name=0001-gnu-Add-cl-portal.patch, Size: 2437 bytes --]

From 95ecc5da0036f03ecfd2c997f439b9b6950b87a5 Mon Sep 17 00:00:00 2001
From: Charles <charles.b.jackson@protonmail.com>
Date: Sat, 3 Jul 2021 10:25:05 -0500
Subject: [PATCH] gnu: Add cl-portal.

* gnu/packages/lisp-xyz.scm (sbcl-portal): New public variable.
* gnu/packages/lisp-xyz.scm (ecl-portal): New public variable.
* gnu/packages/lisp-xyz.scm (cl-portal): New public variable.
---
 gnu/packages/lisp-xyz.scm | 40 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 4bc200012e..48d043734c 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -18273,3 +18273,43 @@ and DOM cleaning, to ensure that all remote DOMs are the same.")
 
 (define-public cl-issr-core
   (sbcl-package->cl-source-package sbcl-issr-core))
+
+(define-public sbcl-portal
+  (let ((commit "cc7ba6a54cea6ef63b17dcc6e653d91d9907f59e")
+        (revision "1"))
+    (package
+      (name "sbcl-portal")
+      (version (git-version "1" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/charJe/portal")
+               (commit commit)))
+         (sha256
+          (base32 "0fc81iwb4lpp8d2scdwafkixxwkfmq4gqns522zyb4bh6c1rfmwy"))))
+      (build-system asdf-build-system/sbcl)
+      (inputs
+       `(("sbcl-alexandria" ,sbcl-alexandria)
+         ("sbcl-arrows" ,sbcl-arrows)
+         ("sbcl-cl-base64" ,sbcl-cl-base64)
+         ("sbcl-cl-str" ,sbcl-cl-str)
+         ("sbcl-flexi-streams" ,sbcl-flexi-streams)
+         ("sbcl-global-vars" ,sbcl-global-vars)
+         ("sbcl-ironclad" ,sbcl-ironclad)
+         ("sbcl-parse-float" ,sbcl-parse-float)
+         ("sbcl-usocket-server" ,sbcl-usocket)))
+      (home-page "https://github.com/charJe/portal")
+      (synopsis "Portable Websocket Server for Common Lisp")
+      (description "A websocket server for common lisp using usockets to be
+portable between implementations and operating systems. It has a programming
+interface that allows for multiple websocket apps per server using Common Lisp
+keywords for different websocket events. It has useful restarts and
+customizable errors.")
+      (license license:llgpl))))
+
+(define-public ecl-portal
+  (sbcl-package->ecl-package sbcl-portal))
+
+(define-public cl-portal
+  (sbcl-package->cl-source-package sbcl-portal))
-- 
2.32.0


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #4: 0003-gnu-Add-cl-hunchenissr-routes.patch --]
[-- Type: text/x-patch; name=0003-gnu-Add-cl-hunchenissr-routes.patch, Size: 2370 bytes --]

From 1b95b1ff395533aa4e74b2728b8d2a016000b28f Mon Sep 17 00:00:00 2001
From: Charles <charles.b.jackson@protonmail.com>
Date: Sat, 26 Jun 2021 10:12:34 -0500
Subject: [PATCH] gnu: Add cl-hunchenissr-routes.

* gnu/packages/lisp-xyz.scm (sbcl-hunchenissr-routes): Add new variable.
* gnu/packages/lisp-xyz.scm (ecl-hunchenissr-routes): Add new variable.
* gnu/packages/lisp-xyz.scm (cl-hunchenissr-routes): Add new variable.
---
 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 bb264ac621..c602ee5f2d 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -18352,3 +18352,37 @@ Javascript.")
 (define-public cl-hunchenissr
   (sbcl-package->cl-source-package sbcl-hunchenissr))
 
+(define-public sbcl-hunchenissr-routes
+  (let ((commit "2e831975dc2a6c030f1b518747cf429be8484b31")
+        (revision "1"))
+    (package
+      (name "sbcl-hunchenissr-routes")
+      (version (git-version "0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/interactive-ssr/hunchenissr-routes")
+               (commit commit)))
+         (file-name (git-file-name "hunchenissr-routes" version))
+         (sha256
+          (base32 "1xyqacihxwk4vnffqlg93czmalscglp6sh3bwy3qwb7hdxv6yxz6"))))
+      (build-system asdf-build-system/sbcl)
+      (inputs
+       `(("sbcl-alexandria" ,sbcl-alexandria)
+         ("sbcl-cl-ppcre" ,sbcl-cl-ppcre)
+         ("sbcl-cl-unification" ,sbcl-cl-unification)
+         ("sbcl-hunchenissr" ,sbcl-hunchenissr)))
+      (home-page "https://github.com/interactive-ssr/hunchenissr-routes")
+      (synopsis "Enable path variables when using Hunchenissr for Common Lisp.")
+      (description "Enable path variables in networking routes when using
+Hunchenissr for Common Lisp. If a part of the path (between two slashes) starts
+with a question mark (?), that symbol (without question mark) will bound to
+whatever value was in the same place in the URL (as a string).")
+      (license license:llgpl))))
+
+(define-public ecl-hunchenissr-routes
+  (sbcl-package->ecl-package sbcl-hunchenissr-routes))
+
+(define-public cl-hunchenissr
+  (sbcl-package->cl-source-package sbcl-hunchenissr-routes))
-- 
2.32.0