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-eval.lisp
View file

@ -3,12 +3,14 @@
(defun on-open-console (obj)
(let ((app (connection-data-item obj "builder-app-data")))
(if (console-win app)
(window-focus (console-win app))
(progn
(setf (hiddenp (console-win app)) nil)
(window-focus (console-win app)))
(let* ((win (on-open-file obj :title "CLOG Builder Console"
:editor-use-console-for-evals t)))
(set-on-window-close win (lambda (obj)
(declare (ignore obj))
(setf (console-win app) nil)))
(set-on-window-can-close win (lambda (obj)
(setf (hiddenp obj) t)
nil))
(setf (console-win app) win)))))
;;;;;;;;;;;;;;;;;;;;;;;;
@ -103,7 +105,7 @@ provide an interactive console.)"))
(when restart
(let ((*debugger-hook* encapsulation))
(invoke-restart-interactively restart))))
(end-of-file () ; cancel was pressed
(end-of-file () ; no reset chosen
(reset-ace)))
(format t "Error - ~A~%" condition))))
(unless (stringp form)