mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-04 00:02:57 -08:00
Code Issues Projects Releases Wiki Activity

Added :one-time to allow disablimg events after first fire.

Browse source
This commit is contained in:
David Botton 2021-02-06 22:15:03 -05:00
parent 198c25d4d8
commit 504fa56111
2 changed files with 61 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

4
clog-helpers.lisp
View file

@ -85,7 +85,9 @@
clog-user:*body* to last window openned to /repl."
(unless *clog-running*
(initialize nil :boot-file "/debug.html"))
(set-on-new-window (lambda (body)(setf clog-user::*body* body))
(set-on-new-window (lambda (body)
(cc:debug-mode (connection-id body))
(setf clog-user::*body* body))
:path "/repl")
(open-browser :url "http://127.0.0.1:8080/repl")
(format t "Use clog-user:*body* to access the clog-repl window."))