mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-05 18:20:36 -08:00
Code Issues Projects Releases Wiki Activity

style corrections

Browse source
This commit is contained in:
David Botton 2021-02-11 20:11:26 -05:00
parent 6e287abe7a
commit 11dade515c
3 changed files with 22 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

21
demos/03-demo.lisp
View file

@ -87,6 +87,16 @@
(escape-string (read-file fname))
(html-id (current-window obj)))))))
(defun do-ide-file-save-as (obj)
(let ((cw (current-window obj)))
(when cw
(get-file-name obj "Save As.."
(lambda (fname)
(setf (window-title cw) fname)
(write-file (js-query obj (format nil "editor_~A.getValue()"
(html-id cw)))
fname))))))
(defun do-ide-file-save (obj)
(if (equalp (window-title (current-window obj)) "New Window")
(do-ide-file-save-as obj)
@ -99,17 +109,6 @@
(sleep 2)
(setf (window-title cw) fname))))
(defun do-ide-file-save-as (obj)
(let ((cw (current-window obj)))
(when cw
(get-file-name obj "Save As.."
(lambda (fname)
(setf (window-title cw) fname)
(write-file (js-query obj (format nil "editor_~A.getValue()"
(html-id cw)))
fname))))))
(defun do-ide-edit-copy (obj)
(let ((cw (current-window obj)))
(when cw