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

configuration of repl

Browse source
This commit is contained in:
David Botton 2024-04-07 00:12:55 -04:00
parent b1268b6a10
commit 46cda1c223
5 changed files with 32 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

5
tools/clog-builder-settings.lisp
View file

@ -39,6 +39,11 @@
enableBasicAutocompletion: true,
enableLiveAutocompletion : true")
;; CLOG Builder REPL
(defparameter *clog-repl-use-console* t)
(defparameter *clog-repl-open-console-on-start* nil)
(defparameter *clog-repl-send-result-to-console* t)
;; Builder Look and Feel
(defparameter *builder-window-desktop-class* "w3-blue-grey")

16
tools/clog-builder.lisp
View file

@ -237,7 +237,6 @@ clog-builder window.")
:client-movement *client-side-movement*)))
(create-thread-list (window-content win))))
(defun on-repl (obj)
"Open a REPL"
(let* ((*default-title-class* *builder-title-class*)
@ -249,6 +248,21 @@ clog-builder window.")
(set-geometry (create-clog-builder-repl (window-content win))
:units "%" :width 100 :height 100)))
(defun repl-on-create (panel target)
(declare (ignore target))
(when *clog-repl-open-console-on-start*
(on-open-console panel)))
(defun repl-on-commmand (panel target data)
(multiple-value-bind (result new-package)
(capture-eval data :clog-obj panel
:capture-console (not *clog-repl-use-console*)
:capture-result (not *clog-repl-send-result-to-console*)
: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)))
(defun on-show-callers (body)
"Open callers window"
(let ((*default-title-class* *builder-title-class*)

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

@ -1,8 +1 @@
<data id="I3921332613" 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="(multiple-value-bind (result new-package)
(capture-eval data :clog-obj panel
:capture-console nil
:capture-result nil
: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))"></div>
<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>

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

@ -7,31 +7,24 @@
(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=\"CLOGB3921332482\" 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=\"CLOGB3921332483\" 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=\"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>"
:hidden hidden :class class :html-id html-id
:auto-place auto-place)
'clog-builder-repl)))
(setf (slot-value panel 'terminal)
(attach-as-child clog-obj "CLOGB3921332483" :clog-type
(attach-as-child clog-obj "CLOGB3921450522" :clog-type
'clog-terminal:clog-terminal-element :new-id t))
(setf (slot-value panel 'package-div)
(attach-as-child clog-obj "CLOGB3921332482" :clog-type
(attach-as-child clog-obj "CLOGB3921450521" :clog-type
'clog:clog-form-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:prompt target "> ")
(repl-on-create panel 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
:capture-console nil :capture-result
nil :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))))
(repl-on-commmand panel target data)))
panel))

5
tools/preferences.lisp.sample vendored
View file

@ -39,6 +39,11 @@
;; Disable clog gui debugging
(setf clog-connection:*disable-clog-debugging* nil)
;; CLOG Builder REPL
(setf *clog-repl-use-console* t)
(setf *clog-repl-open-console-on-start* nil)
(setf *clog-repl-send-result-to-console* t)
;; Builder Look and Feel
(setf *builder-window-desktop-class* "w3-blue-grey")