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

lisp eval for file and copy-buf

Browse source
This commit is contained in:
David Botton 2021-02-08 01:35:38 -05:00
parent 04e73eb80e
commit 777d81f6b6
2 changed files with 28 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

21
demos/03-demo.lisp
View file

@ -194,6 +194,25 @@
(html-id (current-win app))
(escape-string (copy-buf app))))))
(defun do-ide-lisp-eval-buf (obj)
(let* ((app (connection-data-item obj "app-data"))
(form (copy-buf app))
(result (eval (read-from-string form))))
(do-ide-file-new obj)
(js-execute obj (format nil "editor_~A.setValue('~A')"
(html-id (current-win app))
(escape-string result)))))
(defun do-ide-lisp-eval-file (obj)
(let* ((app (connection-data-item obj "app-data"))
(form (js-query obj (format nil "editor_~A.getValue()"
(html-id (current-win app)))))
(result (eval (read-from-string form))))
(do-ide-file-new obj)
(js-execute obj (format nil "editor_~A.setValue('~A')"
(html-id (current-win app))
(escape-string result)))))
(defun on-new-window (body)
(let ((app (make-instance 'app-data)))
(setf (connection-data-item body "app-data") app)
@ -206,6 +225,8 @@
(set-on-click (attach-as-child body "ide-edit-copy") #'do-ide-edit-copy)
(set-on-click (attach-as-child body "ide-edit-cut") #'do-ide-edit-cut)
(set-on-click (attach-as-child body "ide-edit-paste") #'do-ide-edit-paste)
(set-on-click (attach-as-child body "ide-lisp-eval-buf") #'do-ide-lisp-eval-buf)
(set-on-click (attach-as-child body "ide-lisp-eval-file") #'do-ide-lisp-eval-file)
(set-on-click (attach-as-child body "ide-help-about") #'do-ide-help-about)
(run body)))