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

repl playground added

Browse source
This commit is contained in:
David Botton 2024-04-19 08:46:28 -04:00
parent e475e35237
commit bcf4ff7e55
4 changed files with 25 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tools/clog-builder-repl.lisp
View file

@ -17,7 +17,8 @@
(win (create-gui-window obj :title "CLOG Builder REPL"
:top 40 :left 225
:width 600 :height 400
:client-movement *client-side-movement*)))
:client-movement *client-side-movement*))
(repl (create-clog-builder-repl (window-content win))))
(when *clog-repl-private-console*
(let ((pcon (on-open-repl-console obj win)))
(setf (window-param win) pcon)
@ -25,8 +26,9 @@
(declare (ignore obj))
(window-close pcon))))
(window-focus win))
(set-geometry (create-clog-builder-repl (window-content win))
:units "%" :width 100 :height 100)))
(setup-lisp-ace (playground repl) (status repl))
(setf (clog-ace:theme (playground repl)) "ace/theme/terminal")
(set-geometry repl :units "%" :width 100 :height 100)))
(defun repl-on-create (panel target)
(declare (ignore target))