mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-26 03:50:58 -08:00
Code Issues Projects Releases Wiki Activity

repl playground

Browse source
This commit is contained in:
David Botton 2024-04-19 13:00:51 -04:00
parent bcf4ff7e55
commit 3c4647a746
7 changed files with 43 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

22
tools/panel-clog-builder-repl.lisp
View file

@ -1,28 +1,32 @@
;;;; CLOG Builder generated code - modify original .clog file and rerender
(in-package :clog-tools)
(defclass clog-builder-repl (clog:clog-panel)
((status :reader status) (playground :reader playground)
(terminal :reader terminal) (package-div :reader package-div)))
((send-to-repl :reader send-to-repl) (status :reader status)
(playground :reader playground) (terminal :reader terminal)
(package-div :reader package-div)))
(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
"<input type=\"TEXT\" value=\"clog-user\" style=\"box-sizing: content-box; position: absolute; inset: 0px 0px 338.5px; height: 25px;\" placeholder=\"Current Package\" class=\"w3-black\" id=\"CLOGB3922517769\" data-clog-name=\"package-div\"><div style=\"--pixel-density: 1; --char-width: 6.60156; box-sizing: content-box; position: absolute; top: 30px; right: 0px; left: 0px; height: 170px;\" class=\"terminal\" id=\"CLOGB3922517770\" data-clog-name=\"terminal\"></div><div style=\"border: thin solid black; box-sizing: content-box; position: absolute; inset: 200px 0px 22px;\" class=\" ace_editor ace_hidpi ace-terminal-theme ace-tm\" id=\"CLOGB3922517771\" data-clog-name=\"playground\"></div><div id=\"CLOGB39225178996\" style=\"box-sizing: content-box; position: absolute; left: 0px; bottom: 0px; right: 0px; height: 20px;\" class=\"w3-black w3-tiny w3-border\" data-clog-name=\"status\">status</div>"
"<input type=\"TEXT\" value=\"clog-user\" style=\"box-sizing: content-box; position: absolute; inset: 0px 0px 338.5px; height: 25px;\" placeholder=\"Current Package\" class=\"w3-black\" id=\"CLOGB3922519800\" data-clog-name=\"package-div\"><div style=\"--pixel-density: 1; --char-width: 6.60156; box-sizing: content-box; position: absolute; top: 30px; right: 0px; left: 0px; height: 170px;\" class=\"terminal\" id=\"CLOGB3922519801\" data-clog-name=\"terminal\"></div><div style=\"border: thin solid black; box-sizing: content-box; position: absolute; inset: 200px 0px 22px;\" class=\" ace_editor ace_hidpi ace-terminal-theme ace-tm\" id=\"CLOGB3922519802\" data-clog-name=\"playground\"></div><div style=\"box-sizing: content-box; position: absolute; left: 0px; bottom: 0px; right: 0px; height: 20px;\" class=\"w3-black w3-tiny w3-border\" id=\"CLOGB3922519803\" data-clog-name=\"status\">status</div><button id=\"CLOGB39225198357\" style=\"box-sizing: content-box; position: absolute; top: 185px; width: 10px; height: 18px; right: 0px;\" class=\"w3-tiny\" data-clog-name=\"send-to-repl\">&gt;</button>"
:hidden hidden :class class :html-id html-id
:auto-place auto-place)
'clog-builder-repl)))
(setf (slot-value panel 'send-to-repl)
(attach-as-child clog-obj "CLOGB39225198357" :clog-type
'clog:clog-button :new-id t))
(setf (slot-value panel 'status)
(attach-as-child clog-obj "CLOGB39225178996" :clog-type
(attach-as-child clog-obj "CLOGB3922519803" :clog-type
'clog:clog-div :new-id t))
(setf (slot-value panel 'playground)
(attach-as-child clog-obj "CLOGB3922517771" :clog-type
(attach-as-child clog-obj "CLOGB3922519802" :clog-type
'clog-ace:clog-ace-element :new-id t))
(setf (slot-value panel 'terminal)
(attach-as-child clog-obj "CLOGB3922517770" :clog-type
(attach-as-child clog-obj "CLOGB3922519801" :clog-type
'clog-terminal:clog-terminal-element :new-id t))
(setf (slot-value panel 'package-div)
(attach-as-child clog-obj "CLOGB3922517769" :clog-type
(attach-as-child clog-obj "CLOGB3922519800" :clog-type
'clog:clog-form-element :new-id t))
(let ((target (terminal panel)))
(declare (ignorable target))
@ -40,4 +44,8 @@
(lambda (target data)
(declare (ignorable target data))
(repl-on-commmand panel target data)))
(clog:set-on-click (send-to-repl panel)
(lambda (target)
(declare (ignorable target))
(repl-on-send-to-repl panel target)))
panel))