diff options
Diffstat (limited to 'src/client')
| -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)))) |