mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-06 10:40:45 -08:00
35 lines
2.2 KiB
Common Lisp
35 lines
2.2 KiB
Common Lisp
(in-package "CLOG-TOOLS")
|
|
(defclass clog-builder-repl (clog:clog-panel)
|
|
((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
|
|
"<div style=\"--pixel-density:0.994318; --char-width:7.24432; box-sizing: content-box; position: absolute; inset: 30px 0px 0px;\" class=\"terminal\" id=\"CLOGB3868051526\" data-clog-name=\"terminal\"></div><input type=\"TEXT\" value=\"clog-user\" style=\"box-sizing: content-box; position: absolute; inset: 0px 0px 338.5px; height: 25px;\" placeholder=\"\" class=\"w3-black\" id=\"CLOGB3868051527\" data-clog-name=\"package-div\">"
|
|
:hidden hidden :class class :html-id html-id
|
|
:auto-place auto-place)
|
|
'clog-builder-repl)))
|
|
(setf (slot-value panel 'package-div)
|
|
(attach-as-child clog-obj "CLOGB3868051527" :clog-type
|
|
'clog:clog-form-element :new-id t))
|
|
(setf (slot-value panel 'terminal)
|
|
(attach-as-child clog-obj "CLOGB3868051526" :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))
|
|
(multiple-value-bind (result new-package)
|
|
(capture-eval data :clog-obj panel
|
|
: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))))
|
|
panel))
|