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

adjust reply window message

Browse source
This commit is contained in:
David Botton 2024-04-07 11:01:48 -04:00
parent abe677a983
commit b0b4c6b238
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tools/panel-clog-builder-repl.clog vendored
View file

@ -1 +1 @@
<data id="I3921450725" data-in-package="clog-tools" data-custom-slots="" data-clog-next-id="4" data-clog-title="clog-builder-repl"></data><input type="TEXT" value="clog-user" data-clog-type="input" data-clog-name="package-div" style="box-sizing: content-box; position: absolute; inset: 0px 0px 338.5px; height: 25px;" placeholder="Current Package" class="w3-black"><div style="--pixel-density: 1; --char-width: 6.60156; box-sizing: content-box; position: absolute; inset: 30px 0px 0px;" class="terminal" data-clog-type="clog-terminal" data-clog-composite-control="t" data-clog-terminal-prompt="> " data-clog-terminal-greetings="CLOG Builder REPL" data-clog-name="terminal" data-on-command="(repl-on-commmand panel target data)" data-on-create="(repl-on-create panel target)"></div> <data id="I3921490745" data-in-package="clog-tools" data-custom-slots="" data-clog-next-id="4" data-clog-title="clog-builder-repl"></data><input type="TEXT" value="clog-user" data-clog-type="input" data-clog-name="package-div" style="box-sizing: content-box; position: absolute; inset: 0px 0px 338.5px; height: 25px;" placeholder="Current Package" class="w3-black"><div style="--pixel-density: 1; --char-width: 6.60156; box-sizing: content-box; position: absolute; inset: 30px 0px 0px;" class="terminal" data-clog-type="clog-terminal" data-clog-composite-control="t" data-clog-terminal-prompt="> " data-clog-terminal-greetings="CLOG Builder REPL - (clog-repl) or (clog-builder-repl) for GUI using *body*" data-clog-name="terminal" data-on-command="(repl-on-commmand panel target data)" data-on-create="(repl-on-create panel target)"></div>

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

@ -7,20 +7,20 @@
(let ((panel (let ((panel
(change-class (change-class
(clog:create-div clog-obj :content (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=\"CLOGB3921450521\" data-clog-name=\"package-div\"><div style=\"--pixel-density: 1; --char-width: 6.60156; box-sizing: content-box; position: absolute; inset: 30px 0px 0px;\" class=\"terminal\" id=\"CLOGB3921450522\" 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=\"CLOGB3921490709\" data-clog-name=\"package-div\"><div style=\"--pixel-density: 1; --char-width: 6.60156; box-sizing: content-box; position: absolute; inset: 30px 0px 0px;\" class=\"terminal\" id=\"CLOGB3921490710\" data-clog-name=\"terminal\"></div>"
:hidden hidden :class class :html-id html-id :hidden hidden :class class :html-id html-id
:auto-place auto-place) :auto-place auto-place)
'clog-builder-repl))) 'clog-builder-repl)))
(setf (slot-value panel 'terminal) (setf (slot-value panel 'terminal)
(attach-as-child clog-obj "CLOGB3921450522" :clog-type (attach-as-child clog-obj "CLOGB3921490710" :clog-type
'clog-terminal:clog-terminal-element :new-id t)) 'clog-terminal:clog-terminal-element :new-id t))
(setf (slot-value panel 'package-div) (setf (slot-value panel 'package-div)
(attach-as-child clog-obj "CLOGB3921450521" :clog-type (attach-as-child clog-obj "CLOGB3921490709" :clog-type
'clog:clog-form-element :new-id t)) 'clog:clog-form-element :new-id t))
(let ((target (terminal panel))) (let ((target (terminal panel)))
(declare (ignorable target)) (declare (ignorable target))
(clog-terminal:attach-clog-terminal target :greetings (clog-terminal:attach-clog-terminal target :greetings
"CLOG Builder REPL") "CLOG Builder REPL - (clog-repl) or (clog-builder-repl) for GUI using *body*")
(clog-terminal:prompt target "> ") (clog-terminal:prompt target "> ")
(repl-on-create panel target)) (repl-on-create panel target))
(clog-terminal:set-on-command (terminal panel) (clog-terminal:set-on-command (terminal panel)