From 393525249a4af8311a7e639708b9ff3ebed7a13a Mon Sep 17 00:00:00 2001 From: David Botton Date: Wed, 29 May 2024 20:29:28 -0400 Subject: [PATCH] repl msg enhancements --- source/clog-helpers.lisp | 2 +- tools/clog-builder-repl.lisp | 7 ++++++- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/source/clog-helpers.lisp b/source/clog-helpers.lisp index 6292bc6..dd0b155 100644 --- a/source/clog-helpers.lisp +++ b/source/clog-helpers.lisp @@ -122,7 +122,7 @@ and debugger display for clog events." (setf clog-user:*body* nil))) :path "/repl") (open-browser :url (format nil "http://127.0.0.1:~A/repl" *clog-port*)) - (format t "Use clog-user:*body* to access the clog-repl window.")) + (format nil "Use clog-user:*body* to access the clog-repl window.")) ;;;;;;;;;;;;;;;;;;;;;;; ;; save-body-to-file ;; diff --git a/tools/clog-builder-repl.lisp b/tools/clog-builder-repl.lisp index d1369f7..6fd2d71 100644 --- a/tools/clog-builder-repl.lisp +++ b/tools/clog-builder-repl.lisp @@ -95,7 +95,12 @@ :height 400 :width 600 :has-pinner t :client-movement *client-side-movement*))) - (setf clog-user::*body* (window-content win)))) + (setf clog-user::*body* (window-content win)) + (set-on-window-close win + (lambda (obj) + (when (eq obj clog-user::*body*) + (setf clog-user::*body* nil)))) + (clog-terminal:echo target "Use clog-user:*body* to access the clog-builder-repl window."))) (t (setf data (format nil "(let ((tmp (progn ~A))) (setf /// //) (setf // /) (setf / (list tmp))