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

find and set packages for evals

Browse source
This commit is contained in:
David Botton 2022-08-03 23:45:44 -04:00
parent a70e84a062
commit 74cd1a58f5
4 changed files with 35 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -6,15 +6,15 @@
(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\">"
"<div style=\"--pixel-density:0.994318; --char-width:7.24432; box-sizing: content-box; position: absolute; inset: 30px 0px 0px;\" class=\"terminal\" id=\"CLOGB3868568690\" 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=\"Current Package\" class=\"w3-black\" id=\"CLOGB3868568691\" 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
(attach-as-child clog-obj "CLOGB3868568691" :clog-type
'clog:clog-form-element :new-id t))
(setf (slot-value panel 'terminal)
(attach-as-child clog-obj "CLOGB3868051526" :clog-type
(attach-as-child clog-obj "CLOGB3868568690" :clog-type
'clog-terminal:clog-terminal-element :new-id t))
(let ((target (terminal panel)))
(declare (ignorable target))