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

added shell and repl source files

Browse source
This commit is contained in:
David Botton 2024-04-11 21:24:44 -04:00
parent 535b0af25c
commit 705e1b26c4
4 changed files with 107 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

35
tools/clog-builder-repl.lisp Normal file
View file

@ -0,0 +1,35 @@
(in-package :clog-tools)
(defun on-repl (obj)
"Open a REPL"
(let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*)
(win (create-gui-window obj :title "CLOG Builder REPL"
:top 40 :left 225
:width 600 :height 400
:client-movement *client-side-movement*)))
(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)
(if (equalp data "(clog-builder-repl)")
(let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*)
(win (create-gui-window panel :title "CLOG Builder REPL GUI Window"
:height 400 :width 600
:has-pinner t
:client-movement *client-side-movement*)))
(setf clog-user::*body* (window-content win)))
(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))))

41
tools/clog-builder-shell.lisp Normal file
View file

@ -0,0 +1,41 @@
(in-package :clog-tools)
(defun on-shell (obj)
"Open a shell"
(let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*)
(win (create-gui-window obj :title (format nil "OS Shell - ~A - ~A"
(uiop:operating-system)
(uiop:hostname))
:top 40 :left 225
:width 600 :height 400
:client-movement *client-side-movement*)))
(set-geometry (create-clog-builder-shell (window-content win))
:units "%" :width 100 :height 100)))
(defun shell-on-create (panel target)
(setf (text-value (package-div panel)) (uiop:getcwd))
(clog-terminal:prompt target "$ "))
(defun shell-on-commmand (panel target data)
(handler-case
(if (and (> (length data) 3)
(equalp (subseq data 0 3) "cd "))
(uiop:with-current-directory ((format nil "~A~A"
(subseq data 3 (length data))
(uiop:directory-separator-for-host)))
(setf (text-value (package-div panel)) (uiop:getcwd)))
(uiop:with-current-directory ((text-value (package-div panel)))
(multiple-value-bind (result new-package new-dir)
(capture-eval (format nil "(uiop:run-program \"~A\" :output *standard-output*)(uiop:getcwd)" data)
:clog-obj panel
:eval-form "~A"
:capture-result-form ""
:capture-console t
:capture-result nil)
(declare (ignore new-package))
(setf (text-value (package-div panel)) new-dir)
(clog-terminal:echo target result))))
(error (c)
(clog-terminal:echo target (format nil "~A" c)))))

1
tools/panel-shell.clog vendored Normal file
View file

@ -0,0 +1 @@
<data id="I3921847732" data-in-package="clog-tools" data-custom-slots="" data-clog-next-id="4" data-clog-title="clog-builder-shell"></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="\$\&nbsp;" data-clog-terminal-greetings="CLOG Builder OS Shell" data-clog-name="terminal" data-on-command="(shell-on-commmand panel target data)" data-on-create="(shell-on-create panel target)"></div>

30
tools/panel-shell.lisp Normal file
View file

@ -0,0 +1,30 @@
;;;; CLOG Builder generated code - modify original .clog file and rerender
(in-package :clog-tools)
(defclass clog-builder-shell (clog:clog-panel)
((terminal :reader terminal) (package-div :reader package-div)))
(defun create-clog-builder-shell
(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=\"CLOGB3921847394\" 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=\"CLOGB3921847395\" data-clog-name=\"terminal\"></div>"
:hidden hidden :class class :html-id html-id
:auto-place auto-place)
'clog-builder-shell)))
(setf (slot-value panel 'terminal)
(attach-as-child clog-obj "CLOGB3921847395" :clog-type
'clog-terminal:clog-terminal-element :new-id t))
(setf (slot-value panel 'package-div)
(attach-as-child clog-obj "CLOGB3921847394" :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 OS Shell")
(clog-terminal:prompt target "$ ")
(shell-on-create panel target))
(clog-terminal:set-on-command (terminal panel)
(lambda (target data)
(declare (ignorable target data))
(shell-on-commmand panel target data)))
panel))