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

better redirection of console to builder

Browse source
This commit is contained in:
David Botton 2024-04-14 23:34:31 -04:00
parent 9e6b8ce7e1
commit 11c19eedeb
4 changed files with 52 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -55,11 +55,15 @@
(on-dir-win panel :dir (asdf:system-source-directory sys))))))
(defun projects-run (panel)
(let ((val (text-value (entry-point panel))))
(let ((app (connection-data-item panel "builder-app-data"))
(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))))
(setf clog:*clog-debug*
(lambda (event data)
(with-clog-debugger (panel
:title val
:standard-output (stdout app))
(funcall event data))))
(capture-eval (format nil "(~A)" val) :clog-obj panel
:capture-console nil
:capture-result nil