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

nested copy and paste

Browse source
This commit is contained in:
David Botton 2022-01-30 15:16:41 -05:00
parent 31ee855ed0
commit 9f5d1b9df7
1 changed files with 16 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

27
tools/clog-builder.lisp
View file

@ -12,7 +12,7 @@
(defclass builder-app-data () (defclass builder-app-data ()
((copy-buf ((copy-buf
:accessor copy-buf :accessor copy-buf
:initform "" :initform nil
:documentation "Copy buffer") :documentation "Copy buffer")
(next-panel-id (next-panel-id
:accessor next-panel-id :accessor next-panel-id
@ -777,9 +777,9 @@ of controls and double click to select control."
(ppcre:regex-replace-all "\\x22" (ppcre:regex-replace-all "\\x22"
(js-query content (js-query content
(format nil (format nil
"var z=~a.clone();~ "var z=~a.clone();~
z.find('*').each(function(){for(n in $(this).get(0).dataset){delete $(this).get(0).dataset[n]}});~ z.find('*').each(function(){for(n in $(this).get(0).dataset){delete $(this).get(0).dataset[n]}});~
z.html()" z.html()"
(clog::jquery content))) (clog::jquery content)))
"\\\\\\\"")) "\\\\\\\""))
cname cname
@ -812,8 +812,9 @@ z.html()"
(write-file (js-query content (write-file (js-query content
(format nil (format nil
"var z=~a.clone();~ "var z=~a.clone();~
z.find('*').each(function(){if($(this).attr('id').substring(0,5)=='CLOGB'){$(this).removeAttr('id')}});~ z.find('*').each(function(){if($(this).attr('id') !== undefined && ~
z.html()" if($(this).attr('id').substring(0,5)=='CLOGB'){$(this).removeAttr('id')}});~
z.html()"
(clog::jquery content))) (clog::jquery content)))
fname) fname)
(destroy data)) (destroy data))
@ -881,12 +882,13 @@ z.html()"
(js-query content (js-query content
(format nil (format nil
"var z=~a.clone(); z=$('<div />').append(z);~ "var z=~a.clone(); z=$('<div />').append(z);~
z.find('*').each(function(){if($(this).attr('id').substring(0,5)=='CLOGB'){$(this).removeAttr('id')}});~ z.find('*').each(function(){if($(this).attr('id') !== undefined && ~
z.html()" $(this).attr('id').substring(0,5)=='CLOGB'){$(this).removeAttr('id')}});~
z.html()"
(clog::jquery (current-control app)))))))) (clog::jquery (current-control app))))))))
(set-on-click btn-paste (lambda (obj) (set-on-click btn-paste (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
(unless (eq (copy-buf app) "") (when (copy-buf app)
(let ((control (create-control content content (let ((control (create-control content content
`(:name "custom" `(:name "custom"
:clog-type clog:clog-element :clog-type clog:clog-element
@ -1059,12 +1061,13 @@ z.html()"
(js-query content (js-query content
(format nil (format nil
"var z=~a.clone(); z=$('<div />').append(z);~ "var z=~a.clone(); z=$('<div />').append(z);~
z.find('*').each(function(){if($(this).attr('id').substring(0,5)=='CLOGB'){$(this).removeAttr('id')}});~ z.find('*').each(function(){if($(this).attr('id') !== undefined && ~
z.html()" $(this).attr('id').substring(0,5)=='CLOGB'){$(this).removeAttr('id')}});~
z.html()"
(clog::jquery (current-control app)))))))) (clog::jquery (current-control app))))))))
(set-on-click btn-paste (lambda (obj) (set-on-click btn-paste (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))
(unless (eq (copy-buf app) "") (when (copy-buf app)
(let ((control (create-control content content (let ((control (create-control content content
`(:name "custom" `(:name "custom"
:clog-type clog:clog-element :clog-type clog:clog-element