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

move *probe* to clog-gui

Browse source
This commit is contained in:
David Botton 2024-06-02 14:56:21 -04:00
parent 9ed9267d49
commit 46c1f230dd
3 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
source/clog-gui.lisp
View file

@ -98,6 +98,7 @@
(dialog-out-stream class)
(clog-break function)
(clog-probe macro)
(*probe* variable)
(*clog-debug-instance* variable)
"CLOG-GUI - Look and Feel"
@ -118,6 +119,7 @@
;; CLOG GUI based ebugger settings
(defparameter *clog-debug-instance* nil
"Default location to open debugger windows")
(defvar *probe* nil "Result value of a probe")
;; Menus
(defparameter *menu-bar-class* "w3-bar w3-black w3-card-4")
@ -297,7 +299,7 @@ the moment pressed. When time-out is nil, :q quits the probe and cancel
repeats the probe with out changing value. When time-out is nil modal is
always nil. If auto-probe is set, modal and time-out is set to nil and the
probe is run again in auto-probe seconds. If not tile is set, the symbol is
used for title. If save-value is true clog-user:*probe* is set to value of
used for title. If save-value is true clog-gui:*probe* is set to value of
symbol before any change is made by dialog."
`(let ((body (or ,clog-body
*clog-debug-instance*))
@ -311,7 +313,7 @@ symbol before any change is made by dialog."
(setf value (ppcre:regex-replace-all "<" value "&lt;"))
(setf value (ppcre:regex-replace-all ">" value "&gt;"))
(when ,save-value
(setf clog-user:*probe* ovalue))
(setf clog-gui:*probe* ovalue))
(input-dialog body
(format nil "Probe in thread ~A :<br><code>~A</code> New Value?"
(bordeaux-threads:thread-name
@ -351,7 +353,7 @@ symbol before any change is made by dialog."
:title (format nil "clog-probe ~A" title))
:q)
(when ,save-value
(setf clog-user:*probe* ovalue))
(setf clog-gui:*probe* ovalue))
(return)))))
:name (format nil "clog-probe ~A" title))))))

3
source/clog-helpers.lisp
View file

@ -22,14 +22,13 @@
(defpackage #:clog-user
(:use #:cl #:clog #:clog-gui #:clog-web)
(:import-from :clog-tools #:clog-builder-probe)
(:export :*body* :*probe* :clog-repl))
(:export :*body* :clog-repl))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Implementation - CLOG Utilities
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar clog-user:*body* nil "clog-repl access to body")
(defvar clog-user:*probe* nil "Used by probes to return value of symbol")
;;;;;;;;;;;;;;;;;;;;;;
;; clog-install-dir ;;

4
tools/clog-builder-probe.lisp
View file

@ -1,10 +1,10 @@
(in-package :clog-tools)
(defparameter *inspectors*
`((:name "Set object to clog-user:*probe*"
`((:name "Set object to clog-gui:*probe*"
:func ,(lambda (symbol title value clog-obj)
(declare (ignore title value clog-obj))
(setf clog-user:*probe* symbol)))
(setf clog-gui:*probe* symbol)))
(:name "Print to Console"
:func ,(lambda (symbol title value clog-obj)
(declare (ignore symbol))