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

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

29
tools/clog-builder.lisp
View file

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