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

move clog-db-admin to run from /dbadmin and added the ability to set to a different port than 8080

Browse source
This commit is contained in:
David Botton 2022-05-25 22:21:36 -04:00
parent 58a20ed770
commit 6256d746bc
2 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tools/clog-builder.lisp
View file

@ -1520,11 +1520,11 @@ of controls and double click to select control."
;; return empty string to prevent nav off page
""))))
(defun clog-builder (&key static-root)
(defun clog-builder (&key (port 8080) static-root)
"Start clog-builder."
(if static-root
(initialize nil :static-root static-root)
(initialize nil))
(initialize nil :port port :static-root static-root)
(initialize nil :port port))
(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"))
(open-browser :url (format nil "http://127.0.0.1:~A/builder" port)))