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

ctl-s or command-s to save event or file

Browse source
This commit is contained in:
David Botton 2022-08-24 22:48:31 -04:00
parent 50e88e1b86
commit bdc53410aa
1 changed files with 26 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

26
tools/clog-builder.lisp
View file

@ -1193,6 +1193,19 @@ of controls and double click to select control."
(declare (ignore obj))
(when (current-editor-is-lisp app)
(on-new-sys-browser editor :search data))))
;; setup save key
(js-execute editor
(format nil
"~A.commands.addCommand({
name: 'save-ace',
bindKey: {win: 'Ctl-s', mac: 'Command-s'},
exec: function(editor) {
~A.trigger('clog-save-ace');
},
readOnly: true,
});"
(clog-ace::js-ace editor)
(jquery editor)))
;; eval form
(js-execute editor
(format nil
@ -1315,6 +1328,11 @@ of controls and double click to select control."
(set-geometry (events-list app) :top 5 :left 5 :right 5)
(setf (event-editor app) (clog-ace:create-clog-ace-element content))
(setf (clog-ace:read-only-p (event-editor app)) t)
(set-on-event (event-editor app) "clog-save-ace"
(lambda (obj)
;; toggle focus to force a save of event
(focus (events-list app))
(focus (event-editor app))))
;; currently there is only one auto complete for page
(clog-ace:set-on-auto-complete (event-editor app)
(lambda (obj prefix)
@ -2374,6 +2392,14 @@ of controls and double click to select control."
file-name))
(lambda (fname)
(open-file-name fname))))))
(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)
(sleep .5)
(remove-class btn-save "w3-animate-top"))))
(set-on-mouse-click btn-save
(lambda (obj data)
(cond ((or (equal file-name "")