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

fixed sbcl warning

Browse source
This commit is contained in:
David Botton 2021-03-06 22:38:44 -05:00
parent 3f695ef471
commit 72799a0f4a
1 changed files with 10 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

21
demos/03-demo.lisp
View file

@ -101,6 +101,16 @@
(sleep 2) (sleep 2)
(setf (window-title cw) fname)))) (setf (window-title cw) fname))))
(defun do-ide-edit-copy (obj)
(let ((cw (current-window obj)))
(when cw
(let ((app (connection-data-item obj "app-data")))
(setf (copy-buf app) (js-query obj
(format nil "editor_~A.execCommand('copy');~
navigator.clipboard.writeText(editor_~A.getCopyText());~
editor_~A.getCopyText();"
(html-id cw) (html-id cw) (html-id cw))))))))
(defun do-ide-edit-undo (obj) (defun do-ide-edit-undo (obj)
(let ((cw (current-window obj))) (let ((cw (current-window obj)))
(when cw (when cw
@ -111,20 +121,9 @@
(defun do-ide-edit-redo (obj) (defun do-ide-edit-redo (obj)
(let ((cw (current-window obj))) (let ((cw (current-window obj)))
(when cw (when cw
(do-ide-edit-copy obj)
(js-execute obj (format nil "editor_~A.execCommand('redo')" (js-execute obj (format nil "editor_~A.execCommand('redo')"
(html-id cw)))))) (html-id cw))))))
(defun do-ide-edit-copy (obj)
(let ((cw (current-window obj)))
(when cw
(let ((app (connection-data-item obj "app-data")))
(setf (copy-buf app) (js-query obj
(format nil "editor_~A.execCommand('copy');~
navigator.clipboard.writeText(editor_~A.getCopyText());~
editor_~A.getCopyText();"
(html-id cw) (html-id cw) (html-id cw))))))))
(defun do-ide-edit-cut (obj) (defun do-ide-edit-cut (obj)
(let ((cw (current-window obj))) (let ((cw (current-window obj)))
(when cw (when cw