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

add use-clog-debugger option to clog-repl

Browse source
This commit is contained in:
David Botton 2024-05-17 16:01:40 -04:00
parent 438e7ede6f
commit 1acc47dc69
3 changed files with 20 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
source/clog-gui.lisp
View file

@ -91,10 +91,11 @@
(server-file-dialog function)
"CLOG-GUI - Debugger"
(with-clog-debugger macro)
(one-of-dialog function)
(dialog-in-stream class)
(dialog-out-stream class)
(with-clog-debugger macro)
(one-of-dialog function)
(dialog-in-stream class)
(dialog-out-stream class)
(*clog-debug-instance* variable)
"CLOG-GUI - Look and Feel"
(*menu-bar-class* variable)
@ -111,6 +112,10 @@
;; Default Settings
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; CLOG GUI based ebugger settings
(defparameter *clog-debug-instance* nil
"Default location to open debugger windows")
;; Menus
(defparameter *menu-bar-class* "w3-bar w3-black w3-card-4")
(defparameter *menu-bar-drop-down-class* "w3-dropdown-content w3-bar-block w3-card-4")
@ -285,6 +290,8 @@ NOTE: use-clog-debugger should not be set for security issues
(when jquery-ui
(load-script (html-document clog-body) jquery-ui))
(when (and use-clog-debugger (not clog-connection:*disable-clog-debugging*))
(unless *clog-debug-instance*
(setf *clog-debug-instance* clog-body))
(setf (connection-data-item clog-body "clog-debug")
(lambda (event data)
(with-clog-debugger (clog-body :standard-output standard-output)