mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-07 03:00:49 -08:00
Code Issues Projects Releases Wiki Activity

restarts pop by default on the builder panel that launched the app

Browse source
This commit is contained in:
David Botton 2024-04-04 23:48:15 -04:00
parent 011e28637f
commit bee6c88eaa
4 changed files with 17 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
tools/clog-builder-projects.lisp
View file

@ -57,6 +57,9 @@
(defun projects-run (panel)
(let ((val (text-value (entry-point panel))))
(unless (equal val "")
(setf clog:*clog-debug* (lambda (event data)
(with-clog-debugger (panel :title val)
(funcall event data))))
(let ((result (capture-eval (format nil "(~A)" val) :clog-obj panel
:eval-in-package "clog-user")))
(clog-web-alert (connection-body panel) "Result"