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

correct demo startup

Browse source
This commit is contained in:
David Botton 2024-05-30 20:33:08 -04:00
parent 22ffddeaf6
commit c71228be69
1 changed files with 4 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
demos/01-demo.lisp
View file

@ -184,19 +184,16 @@
(clog:shutdown)
(uiop:quit)))
(defun start-demo (&key (host "0.0.0.0") (port 8080) (start-browser t) clogframe app)
(defun start-demo (&key (host "0.0.0.0") (port *clog-port*) (start-browser t) clogframe app)
"Start demo. If app is t, runs one game and shutsdown."
(when (eql port 0)
(setf port (clog-connection:random-port)))
(initialize 'on-new-window :host host :port port)
(when app
(setf *app-mode* app))
(when clogframe
(uiop:run-program (list "./clogframe"
"CLOG Snake"
(format nil "~A" port)
(format nil "~A" 640) (format nil "~A" 420))))
(format nil "~A" *clog-port*)
"640" "420")))
(when start-browser
(format t "If browser does not start go to http://127.0.0.1:~A" port)
(open-browser :url (format nil "http://127.0.0.1:~A" port))))
(open-browser)))