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

copy and paste

Browse source
This commit is contained in:
David Botton 2022-01-30 13:43:10 -05:00
parent 73a66379bc
commit a741ee52e4
1 changed files with 72 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

82
tools/clog-builder.lisp
View file

@ -10,7 +10,11 @@
;; Per instance app data
(defclass builder-app-data ()
((next-panel-id
((copy-buf
:accessor copy-buf
:initform ""
:documentation "Copy buffer")
(next-panel-id
:accessor next-panel-id
:initform 0
:documentation "Next new panel id")
@ -161,6 +165,13 @@
(funcall (getf control-record :create) parent
custom-query
:html-id uid))
((eq create-type :paste)
(let ((c (funcall (getf control-record :create) parent
custom-query
:html-id uid)))
(setf control-type-name (attribute c "data-clog-type"))
(change-class c (getf (control-info control-type-name) :clog-type))
c))
((eq create-type :element)
(funcall (getf control-record :create) parent
:html-id uid
@ -823,16 +834,17 @@ z.html()"
:top-height 30 :bottom-height 0))
(tool-bar (top-panel box))
(btn-del (create-button tool-bar :content "Del"))
(btn-sim (create-button tool-bar :content "Simulate"))
(btn-copy (create-button tool-bar :content "Copy"))
(btn-paste (create-button tool-bar :content "Paste"))
(btn-sim (create-button tool-bar :content "Sim"))
(btn-test (create-button tool-bar :content "Run"))
(btn-rndr (create-button tool-bar :content "Render"))
(btn-rndr (create-button tool-bar :content "Rndr"))
(btn-save (create-button tool-bar :content "Save"))
(btn-load (create-button tool-bar :content "Load"))
(content (center-panel box))
(in-simulation nil)
(file-name "")
(render-file-name "")
(panel-uid (get-universal-time)) ;; unique id for panel
(panel-id (html-id content)))
(setf-next-id content 1)
(setf (overflow content) :auto)
@ -862,6 +874,30 @@ z.html()"
(on-populate-control-properties-win content :win win)
(on-populate-control-list-win content)))
;; setup tool bar events
(set-on-click btn-copy (lambda (obj)
(declare (ignore obj))
(when (current-control app)
(setf (copy-buf app)
(js-query content
(format nil
"var z=~a.clone(); z=$('<div />').append(z);~
z.find('*').each(function(){if($(this).attr('id').substring(0,5)=='CLOGB'){$(this).removeAttr('id')}});~
z.html()"
(clog::jquery (current-control app))))))))
(set-on-click btn-paste (lambda (obj)
(declare (ignore obj))
(unless (eq (copy-buf app) "")
(let ((control (create-control content content
`(:name "custom"
:clog-type clog:clog-element
:create clog:create-child
:create-type :paste)
(format nil "CLOGB~A" (get-universal-time))
:custom-query (copy-buf app))))
(setup-control content control :win win)
(select-control control)
(add-sub-controls control content :win win)
(on-populate-control-list-win content)))))
(set-on-click btn-del (lambda (obj)
(declare (ignore obj))
(when (current-control app)
@ -1003,17 +1039,43 @@ z.html()"
:left-width 0 :right-width 0
:top-height 30 :bottom-height 0))
(tool-bar (top-panel pbox))
(btn-del (create-button tool-bar :content "Del"))
(btn-sim (create-button tool-bar :content "Simulate"))
(btn-test (create-button tool-bar :content "Run"))
(btn-rndr (create-button tool-bar :content "Render"))
(btn-save (create-button tool-bar :content "Save"))
(btn-load (create-button tool-bar :content "Load"))
(btn-del (create-button tool-bar :content "Del"))
(btn-copy (create-button tool-bar :content "Copy"))
(btn-paste (create-button tool-bar :content "Paste"))
(btn-sim (create-button tool-bar :content "Sim"))
(btn-test (create-button tool-bar :content "Run"))
(btn-rndr (create-button tool-bar :content "Rndr"))
(btn-save (create-button tool-bar :content "Save"))
(btn-load (create-button tool-bar :content "Load"))
(wcontent (center-panel pbox)))
(create-div wcontent :content
"<br><center>Drop and work with controls on it's window.</center>")
(setf (background-color tool-bar) :silver)
;; setup tool bar events
(set-on-click btn-copy (lambda (obj)
(declare (ignore obj))
(when (current-control app)
(setf (copy-buf app)
(js-query content
(format nil
"var z=~a.clone(); z=$('<div />').append(z);~
z.find('*').each(function(){if($(this).attr('id').substring(0,5)=='CLOGB'){$(this).removeAttr('id')}});~
z.html()"
(clog::jquery (current-control app))))))))
(set-on-click btn-paste (lambda (obj)
(declare (ignore obj))
(unless (eq (copy-buf app) "")
(let ((control (create-control content content
`(:name "custom"
:clog-type clog:clog-element
:create clog:create-child
:create-type :paste)
(format nil "CLOGB~A" (get-universal-time))
:custom-query (copy-buf app))))
(setup-control content control :win win)
(select-control control)
(add-sub-controls control content :win win)
(on-populate-control-list-win content)))))
(set-on-click btn-del (lambda (obj)
(declare (ignore obj))
(when (current-control app)