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

clog popups

Browse source
This commit is contained in:
David Botton 2024-03-08 16:28:49 -05:00
parent 4bb3dfbefa
commit 0001feccc6
4 changed files with 70 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

7
tools/clog-builder.lisp
View file

@ -2614,7 +2614,9 @@ It parse the string TEXT without using READ functions."
(let ((app (make-instance 'builder-app-data))
(file (form-data-item (form-get-data body) "open-file")))
(setf (connection-data-item body "builder-app-data") app)
(setf (title (html-document body)) "CLOG Builder - Source Editor")
(if file
(setf (title (html-document body)) file)
(setf (title (html-document body)) (format nil "CLOG Builder - Source Editor")))
(clog-gui-initialize body)
(add-class body "w3-blue-grey")
(on-open-file body :open-file file :maximized t)))
@ -2730,7 +2732,7 @@ It parse the string TEXT without using READ functions."
<tr><td>cmd/ctl-s</td><td> Save</td></tr>
<tr><td>ctl-=</td><td>Expand region</td></tr>
<tr><td>opt/alt-m</td><td>Macroexpand</td></tr>
</table>"
</table><p><a target='_blank' href='https://github.com/ajaxorg/ace/wiki/Default-Keyboard-Shortcuts'>Default Keybindings</a>"
:width 400 :height 300
:title "Help")))
(set-on-window-size-done win
@ -2773,7 +2775,6 @@ It parse the string TEXT without using READ functions."
(setf is-dirty t)))
(set-on-event ace "clog-save-ace"
(lambda (obj)
(declare (ignore obj))
(unless (equal file-name "")
(add-class btn-save "w3-animate-top")
(write-file (text-value ace) file-name :clog-obj obj)