diff --git a/tools/clog-builder-repl.clog b/tools/clog-builder-repl.clog index be9639f..e0a5355 100644 --- a/tools/clog-builder-repl.clog +++ b/tools/clog-builder-repl.clog @@ -1 +1,3 @@ -
\ No newline at end of file +
\ No newline at end of file diff --git a/tools/clog-builder-repl.lisp b/tools/clog-builder-repl.lisp index 105216b..707a74b 100644 --- a/tools/clog-builder-repl.lisp +++ b/tools/clog-builder-repl.lisp @@ -1,11 +1,15 @@ (in-package "CLOG-TOOLS") (defclass clog-builder-repl (clog:clog-panel) - ( (clog-terminal-1 :reader clog-terminal-1) + ( (package-div :reader package-div) + (terminal :reader terminal) )) (defun create-clog-builder-repl (clog-obj &key (hidden nil) (class nil) (html-id nil) (auto-place t)) - (let ((panel (change-class (clog:create-div clog-obj :content "
" + (let ((panel (change-class (clog:create-div clog-obj :content "
" :hidden hidden :class class :html-id html-id :auto-place auto-place) 'clog-builder-repl))) - (setf (slot-value panel 'clog-terminal-1) (attach-as-child clog-obj "CLOGB3867322458" :clog-type 'CLOG-TERMINAL:CLOG-TERMINAL-ELEMENT :new-id t)) - (let ((target (clog-terminal-1 panel))) (declare (ignorable target)) (clog-terminal:attach-clog-terminal target :greetings "CLOG Builder REPL") (clog-terminal:prompt target "> ")) - (clog-terminal:set-on-command (clog-terminal-1 panel) (lambda (target data) (declare (ignorable target data)) (clog-terminal:echo target (capture-eval data :clog-obj clog-obj)))) + (setf (slot-value panel 'package-div) (attach-as-child clog-obj "CLOGB3867342312" :clog-type 'CLOG:CLOG-FORM-ELEMENT :new-id t)) + (setf (slot-value panel 'terminal) (attach-as-child clog-obj "CLOGB3867342311" :clog-type 'CLOG-TERMINAL:CLOG-TERMINAL-ELEMENT :new-id t)) + (let ((target (terminal panel))) (declare (ignorable target)) (clog-terminal:attach-clog-terminal target :greetings "CLOG Builder REPL") (clog-terminal:prompt target "> ")) + (clog-terminal:set-on-command (terminal panel) (lambda (target data) (declare (ignorable target data)) (clog-terminal:echo target + (capture-eval data :clog-obj target + :eval-in-package (text-value (package-div panel)))))) panel))