mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-15 06:50:20 -08:00
Code Issues Projects Releases Wiki Activity

Tutorial 28 - Minimal CLOG Builder App

Browse source
This commit is contained in:
David Botton 2022-01-27 22:31:30 -05:00
parent 2d0e2ab6c6
commit d3cabdc183
18 changed files with 20358 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tools/clog-builder.lisp
View file

@ -1255,9 +1255,11 @@ z.html()"
""))
(run body)))
(defun clog-builder ()
(defun clog-builder (&key static-root)
"Start clog-builder."
(initialize nil)
(if static-root
(initialize nil :static-root static-root)
(initialize nil))
(set-on-new-window 'on-new-builder :path "/builder")
(set-on-new-window 'on-attach-builder-page :path "/builder-page")
(open-browser :url "http://127.0.0.1:8080/builder"))