mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

view menu

Browse source
This commit is contained in:
David Botton 2024-06-30 00:02:27 -04:00
parent 787f34572f
commit 091b47569b
1 changed files with 45 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

52
tools/clog-builder-panels.lisp
View file

@ -518,13 +518,13 @@ not a temporarily attached one when using select-control."
(menu (create-gui-menu-bar (top-panel box) :main-menu nil)) (menu (create-gui-menu-bar (top-panel box) :main-menu nil))
(m-file (create-gui-menu-drop-down menu :content "File")) (m-file (create-gui-menu-drop-down menu :content "File"))
(m-load (create-gui-menu-item m-file :content "load")) (m-load (create-gui-menu-item m-file :content "load"))
(m-reload (create-gui-menu-item m-file :content "reload"))
(m-save (create-gui-menu-item m-file :content "save (cmd/ctrl-s)")) (m-save (create-gui-menu-item m-file :content "save (cmd/ctrl-s)"))
(m-saveas (create-gui-menu-item m-file :content "save as..")) (m-saveas (create-gui-menu-item m-file :content "save as.."))
(m-reopnp (create-gui-menu-item m-file :content "save, close and reopen as panel")) (m-reopnp (create-gui-menu-item m-file :content "save, close and reopen as panel"))
(m-reopn (create-gui-menu-item m-file :content "save, close and popup this panel")) (m-reopn (create-gui-menu-item m-file :content "save, close and popup this panel"))
(m-reopnb (create-gui-menu-item m-file :content "save, close and popup this panel custom boot file")) (m-reopnb (create-gui-menu-item m-file :content "save, close and popup this panel custom boot file"))
(m-reopnh (create-gui-menu-item m-file :content "save, close and popup this panel no css")) (m-reopnh (create-gui-menu-item m-file :content "save, close and popup this panel no css"))
(m-reopns (create-gui-menu-item m-file :content "save, close and reopen as text source"))
(m-edit (create-gui-menu-drop-down menu :content "Edit")) (m-edit (create-gui-menu-drop-down menu :content "Edit"))
;;(m-undo (create-gui-menu-item m-edit :content "undo")) ;;(m-undo (create-gui-menu-item m-edit :content "undo"))
;;(m-redo (create-gui-menu-item m-edit :content "redo")) ;;(m-redo (create-gui-menu-item m-edit :content "redo"))
@ -537,12 +537,16 @@ not a temporarily attached one when using select-control."
(m-rndras (create-gui-menu-item m-lisp :content "render form to lisp as...")) (m-rndras (create-gui-menu-item m-lisp :content "render form to lisp as..."))
(m-eval (create-gui-menu-item m-lisp :content "evaluate")) (m-eval (create-gui-menu-item m-lisp :content "evaluate"))
(m-test (create-gui-menu-item m-lisp :content "evaluate and test")) (m-test (create-gui-menu-item m-lisp :content "evaluate and test"))
(m-events (create-gui-menu-drop-down menu :content "controls")) (m-events (create-gui-menu-drop-down menu :content "Controls"))
(tmp1 (create-gui-menu-item m-events :content "show control properties" :on-click 'on-show-control-properties-win)) (tmp1 (create-gui-menu-item m-events :content "show control properties" :on-click 'on-show-control-properties-win))
(tmp2 (create-gui-menu-item m-events :content "show controls window" :on-click 'on-show-control-list-win)) (tmp2 (create-gui-menu-item m-events :content "show controls window" :on-click 'on-show-control-list-win))
(tmp3 (create-gui-menu-item m-events :content "show CLOG events" :on-click 'on-show-control-events-win)) (tmp3 (create-gui-menu-item m-events :content "show CLOG events" :on-click 'on-show-control-events-win))
(tmp4 (create-gui-menu-item m-events :content "show JavaScript events" :on-click 'on-show-control-js-events-win)) (tmp4 (create-gui-menu-item m-events :content "show JavaScript events" :on-click 'on-show-control-js-events-win))
(tmp5 (create-gui-menu-item m-events :content "show ParenScript events" :on-click 'on-show-control-ps-events-win)) (tmp5 (create-gui-menu-item m-events :content "show ParenScript events" :on-click 'on-show-control-ps-events-win))
(m-view (create-gui-menu-drop-down menu :content "View"))
(m-vsrc (create-gui-menu-item m-view :content "save and open as clog source"))
(m-html (create-gui-menu-item m-view :content "view HTML"))
(m-htmlq (create-gui-menu-item m-view :content "view as quoted HTML"))
(m-help (create-gui-menu-drop-down menu :content "Help")) (m-help (create-gui-menu-drop-down menu :content "Help"))
(m-helpk (create-gui-menu-item m-help :content "quick start")) (m-helpk (create-gui-menu-item m-help :content "quick start"))
(tool-bar (create-div (top-panel box) :class *builder-title-class*)) (tool-bar (create-div (top-panel box) :class *builder-title-class*))
@ -847,6 +851,10 @@ not a temporarily attached one when using select-control."
(open-file-name fname)))))) (open-file-name fname))))))
(when open-file (when open-file
(open-file-name open-file)) (open-file-name open-file))
(set-on-click m-reload (lambda (obj)
(declare (ignore obj))
(unless (equal file-name "")
(open-file-name file-name))))
(set-on-click btn-load #'load-file) (set-on-click btn-load #'load-file)
(set-on-click m-load #'load-file)) (set-on-click m-load #'load-file))
(labels ((do-save (obj fname data) (labels ((do-save (obj fname data)
@ -885,6 +893,7 @@ not a temporarily attached one when using select-control."
(when fname (when fname
(setf file-name fname) (setf file-name fname)
(do-save obj fname data))) (do-save obj fname data)))
:time-out 600
:initial-filename file-name)) :initial-filename file-name))
(t (t
(if (eql last-date (file-write-date file-name)) (if (eql last-date (file-write-date file-name))
@ -945,6 +954,40 @@ not a temporarily attached one when using select-control."
(save obj data))) (save obj data)))
(set-on-click m-save (lambda (obj) (set-on-click m-save (lambda (obj)
(save obj nil))) (save obj nil)))
(set-on-click m-vsrc (lambda (obj)
(when is-dirty
(save obj nil))
(on-open-file obj :open-file file-name)))
(set-on-click m-html (lambda (obj)
(on-open-file obj :text
(js-query content
(format nil
"var z=~a.clone();~
z.find('*').each(function(){~
var m=$(this).attr('data-clog-name');
if($(this).attr('data-clog-composite-control') == 't'){$(this).text('')}~
if($(this).attr('data-clog-composite-control') == 'b'){$(this).html($(this).attr('data-original-html'))}~
for(n in $(this).get(0).dataset){delete $(this).get(0).dataset[n]}~
if(m){$(this).attr('data-clog-name', m);}~
});~
z.html()"
(jquery content))))))
(set-on-click m-htmlq (lambda (obj)
(on-open-file obj :text
(ppcre:regex-replace-all "\""
(js-query content
(format nil
"var z=~a.clone();~
z.find('*').each(function(){~
var m=$(this).attr('data-clog-name');
if($(this).attr('data-clog-composite-control') == 't'){$(this).text('')}~
if($(this).attr('data-clog-composite-control') == 'b'){$(this).html($(this).attr('data-original-html'))}~
for(n in $(this).get(0).dataset){delete $(this).get(0).dataset[n]}~
if(m){$(this).attr('data-clog-name', m);}~
});~
z.html()"
(jquery content)))
"\\\""))))
(set-on-click m-saveas (lambda (obj) (set-on-click m-saveas (lambda (obj)
(save obj nil :save-as t))) (save obj nil :save-as t)))
(set-on-click m-reopn (lambda (obj) (set-on-click m-reopn (lambda (obj)
@ -957,11 +1000,6 @@ not a temporarily attached one when using select-control."
(save obj nil)) (save obj nil))
(window-close win) (window-close win)
(on-new-builder-panel obj :open-file file-name :open-ext :custom))) (on-new-builder-panel obj :open-file file-name :open-ext :custom)))
(set-on-click m-reopns (lambda (obj)
(when is-dirty
(save obj nil))
(window-close win)
(on-open-file obj :open-file file-name)))
(set-on-click m-reopnb (lambda (obj) (set-on-click m-reopnb (lambda (obj)
(input-dialog obj "Boot file Name?" (input-dialog obj "Boot file Name?"
(lambda (file) (lambda (file)