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

by default repl now includes clog-gui and clog-web

Browse source
This commit is contained in:
David Botton 2022-03-24 11:31:13 -04:00
parent 4c22efb4e9
commit b538754493
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
source/clog-helpers.lisp
View file

@ -89,13 +89,18 @@
;; clog-repl ;;
;;;;;;;;;;;;;;;
(defun clog-repl ()
(defun clog-repl (&key (clog-gui-initialize t) (clog-web-initialize t))
"Set a path /repl that opens a blank page and sets the global
clog-user:*body* to last window openned to /repl."
clog-user:*body* to last window openned to /repl. Debug mode is
set (logging to browser console), "
(unless *clog-running*
(initialize nil :boot-file "/debug.html"))
(set-on-new-window (lambda (body)
(clog-connection:debug-mode (connection-id body))
(when clog-web-initialize
(clog-web:clog-web-initialize body))
(when clog-gui-initialize
(clog-gui:clog-gui-initialize body))
(setf clog-user::*body* body))
:path "/repl")
(open-browser :url "http://127.0.0.1:8080/repl")