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

batch command line rendering of .clog files

Browse source
This commit is contained in:
David Botton 2022-08-31 13:58:17 -04:00
parent 417aedd981
commit 780918d1ed
4 changed files with 40 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

16
demos/01-demo.lisp
View file

@ -173,9 +173,17 @@
(let ((app (make-instance 'app-data)))
(setf (connection-data-item body "app-data") app))
(display-splash body)
(start-game body))
(start-game body)
;; When *app-mode* set only run the game once and then shutdown the app
(when *app-mode*
(clog:shutdown)
(uiop:quit)))
(defun start-demo (&key (host "0.0.0.0") (port 8080))
"Start demo."
(defparameter *app-mode* nil)
(defun start-demo (&key (host "0.0.0.0") (port 8080) app)
"Start demo. If app is t, runs one game and shutsdown."
(initialize 'on-new-window :host host :port port)
(open-browser :url (format nil "http://127.0.0.1:~A" port)))
(if app
(setf *app-mode* app)
(open-browser :url (format nil "http://127.0.0.1:~A" port))))