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

configuration of repl

Browse source
This commit is contained in:
David Botton 2024-04-07 00:12:55 -04:00
parent b1268b6a10
commit 46cda1c223
5 changed files with 32 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

16
tools/clog-builder.lisp
View file

@ -237,7 +237,6 @@ clog-builder window.")
:client-movement *client-side-movement*)))
(create-thread-list (window-content win))))
(defun on-repl (obj)
"Open a REPL"
(let* ((*default-title-class* *builder-title-class*)
@ -249,6 +248,21 @@ clog-builder window.")
(set-geometry (create-clog-builder-repl (window-content win))
:units "%" :width 100 :height 100)))
(defun repl-on-create (panel target)
(declare (ignore target))
(when *clog-repl-open-console-on-start*
(on-open-console panel)))
(defun repl-on-commmand (panel target data)
(multiple-value-bind (result new-package)
(capture-eval data :clog-obj panel
:capture-console (not *clog-repl-use-console*)
:capture-result (not *clog-repl-send-result-to-console*)
:eval-in-package (text-value (package-div panel)))
(setf (text-value (package-div panel))
(string-downcase (package-name new-package)))
(clog-terminal:echo target result)))
(defun on-show-callers (body)
"Open callers window"
(let ((*default-title-class* *builder-title-class*)