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

add * and / support

Browse source
This commit is contained in:
David Botton 2024-04-30 23:55:59 -04:00
parent bf4232029c
commit dacb43e9ce
1 changed files with 17 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -53,23 +53,26 @@
(defun repl-on-commmand (panel target data) (defun repl-on-commmand (panel target data)
(cond ((or (equalp data ":e") (cond ((or (equalp data ":e")
(equalp data ":q")) (equalp data ":q"))
(window-close (parent (parent panel)))) (window-close (parent (parent panel))))
((equalp data "(clog-builder-repl)") ((equalp data "(clog-builder-repl)")
(let* ((*default-title-class* *builder-title-class*) (let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*) (*default-border-class* *builder-border-class*)
(win (create-gui-window panel :title "CLOG Builder REPL GUI Window" (win (create-gui-window panel :title "CLOG Builder REPL GUI Window"
:height 400 :width 600 :height 400 :width 600
:has-pinner t :has-pinner t
:client-movement *client-side-movement*))) :client-movement *client-side-movement*)))
(setf clog-user::*body* (window-content win)))) (setf clog-user::*body* (window-content win))))
(t (t
(multiple-value-bind (result new-package) (setf data (format nil "(let ((tmp ~A))
(capture-eval data :clog-obj panel (setf /// //) (setf // /) (setf / (list tmp))
:private-console-win (when *clog-repl-private-console* (setf *** **) (setf ** *) (setf * tmp))" data))
(window-param (parent (parent panel)))) (multiple-value-bind (result new-package)
:capture-console (not *clog-repl-use-console*) (capture-eval data :clog-obj panel
:capture-result (not *clog-repl-send-result-to-console*) :private-console-win (when *clog-repl-private-console*
:eval-in-package (text-value (package-div panel))) (window-param (parent (parent panel))))
(setf (text-value (package-div panel)) :capture-console (not *clog-repl-use-console*)
(string-downcase (package-name new-package))) :capture-result (not *clog-repl-send-result-to-console*)
(clog-terminal:echo target result))))) :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)))))