more options for startup

This commit is contained in:
David Botton 2022-08-30 11:34:45 -04:00
parent 8f163a37c7
commit 2a24c972d2
3 changed files with 12 additions and 8 deletions

View file

@ -175,7 +175,7 @@
(display-splash body)
(start-game body))
(defun start-demo ()
(defun start-demo (&key (host "0.0.0.0") (port 8080))
"Start demo."
(initialize 'on-new-window)
(open-browser))
(initialize 'on-new-window :host host :port port)
(open-browser :url (format nil "http://127.0.0.1:~A" port)))