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

Support for CLOG console

Browse source
This commit is contained in:
David Botton 2024-04-05 15:19:08 -04:00
parent 5574801192
commit caf52fe44d
10 changed files with 127 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -60,12 +60,10 @@
(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"
(format nil "~&result: ~A" result)
:color-class "w3-green"
:time-out 3)))))
(capture-eval (format nil "(~A)" val) :clog-obj panel
:capture-console nil
:capture-result nil
:eval-in-package "clog-user"))))
(defun projects-entry-point-change (panel)
(let* ((sys (text-value (project-list panel)))
@ -197,7 +195,7 @@
(setf (disabledp (run-button panel)) nil))
(t
(alert-toast panel "Warning" "Missing :defsystem-depends-on (:clog)"
:color-class "w3-yellow" :time-out 2))))
:color-class "w3-yellow" :time-out 1))))
(t (c)
(declare (ignore c))
(add-select-option (designtime-list panel) "" "Missing /tools")