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

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

7
source/clog-gui.lisp
View file

@ -214,14 +214,17 @@
;; with-clog-debugger ;;
;;;;;;;;;;;;;;;;;;;;;;;;
(defmacro with-clog-debugger ((clog-obj) &body body)
(defmacro with-clog-debugger ((clog-obj &key title) &body body)
"body uses a clog-gui based debugged instead of the console"
`(with-open-stream (out-stream (make-instance 'dialog-out-stream))
(with-open-stream (in-stream (make-instance 'dialog-in-stream :clog-obj ,clog-obj :source out-stream))
(labels ((my-debugger (condition encapsulation)
(ignore-errors
(let ((restart (one-of-dialog ,clog-obj condition (compute-restarts)
:title "Available Restarts")))
:title (format nil "Available Restarts~A"
(if ,title
(format nil " for ~A" ,title)
"")))))
(when restart
(let ((*debugger-hook* encapsulation))
(invoke-restart-interactively restart)))))))