diff options
| author | colin <colin@cicadas.surf> | 2023-11-26 08:44:36 -0800 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2023-11-26 08:44:36 -0800 |
| commit | 5aeff682246be07bf13c7c50f7899d790de3ad5b (patch) | |
| tree | 900d8f71226dec93bf7c91b139ff823046ae30d2 /src/client/parenscript.lisp | |
| parent | f0aed2231f077a05f3bcb95cf332dd75866dc9aa (diff) | |
Diffstat (limited to 'src/client/parenscript.lisp')
| -rw-r--r-- | src/client/parenscript.lisp | 7 |
1 files changed, 5 insertions, 2 deletions
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)))) |