From 5aeff682246be07bf13c7c50f7899d790de3ad5b Mon Sep 17 00:00:00 2001 From: colin Date: Sun, 26 Nov 2023 08:44:36 -0800 Subject: http-redirect --- src/client/parenscript.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src/client') diff --git a/src/client/parenscript.lisp b/src/client/parenscript.lisp index 2b393bc..141c9cd 100644 --- a/src/client/parenscript.lisp +++ b/src/client/parenscript.lisp @@ -2,7 +2,8 @@ (:use #:cl) (:local-nicknames (#:lzb #:lazybones) (#:a #:alexandria)) - (:export #:generate)) + (:export #:generate + #:generate-js)) (in-package :lazybones/client.parenscript) @@ -142,7 +143,7 @@ is the value of the endpoint's DISPATCH-PATTERN slot." (gensym "MODULE")) (module-name - (intern (lispify (symbol-name (lzb::app-name app))))) + (intern (lispify (concatenate 'string "-" (symbol-name (lzb::app-name app)))))) (defuns (loop :for ep :in (lzb:app-endpoints app) @@ -161,3 +162,5 @@ is the value of the endpoint's DISPATCH-PATTERN slot." ,module) (ps:create))))) +(defun generate-js (app) + (eval `(ps:ps ,(generate app)))) -- cgit v1.2.3