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

more options for startup

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

6
demos/01-demo.lisp
View file

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

2
run-builder
View file

@ -1 +1 @@
sbcl --eval "(ql:quickload :clog/tools)" --eval "(clog-tools:clog-builder :app t)" sbcl --eval "(ql:quickload :clog/tools)" --eval "(clog-tools:clog-builder :port 0 :app t :start-browser t)"

12
tools/clog-builder.lisp
View file

@ -2637,8 +2637,10 @@ of controls and double click to select control."
(defparameter *app-mode* nil) (defparameter *app-mode* nil)
(defun clog-builder (&key (port 8080) app project static-root system) (defun clog-builder (&key (port 8080) (start-browser t)
"Start clog-builder." app project static-root system)
"Start clog-builder. When port is 0 choose a random port. When app is
t, shutdown clog on termination of first window."
(if project (if project
(setf *start-project* (string-downcase (format nil "~A" project))) (setf *start-project* (string-downcase (format nil "~A" project)))
(setf *start-project* nil)) (setf *start-project* nil))
@ -2646,7 +2648,8 @@ of controls and double click to select control."
(setf static-root (merge-pathnames "./www/" (setf static-root (merge-pathnames "./www/"
(asdf:system-source-directory system)))) (asdf:system-source-directory system))))
(when app (when app
(setf *app-mode* t) (setf *app-mode* t))
(when (eql port 0)
(setf port (clog-connection:random-port))) (setf port (clog-connection:random-port)))
(if static-root (if static-root
(initialize nil :port port :static-root static-root) (initialize nil :port port :static-root static-root)
@ -2655,4 +2658,5 @@ of controls and double click to select control."
(set-on-new-window 'on-new-db-admin :path "/dbadmin") (set-on-new-window 'on-new-db-admin :path "/dbadmin")
(set-on-new-window 'on-attach-builder-page :path "/builder-page") (set-on-new-window 'on-attach-builder-page :path "/builder-page")
(set-on-new-window 'on-convert-image :path "/image-to-data") (set-on-new-window 'on-convert-image :path "/image-to-data")
(open-browser :url (format nil "http://127.0.0.1:~A/builder" port))) (when start-browser
(open-browser :url (format nil "http://127.0.0.1:~A/builder" port))))