add envelope-panel

This commit is contained in:
David Botton 2024-06-26 16:54:11 -04:00
parent 0e2aac306b
commit f75a0d33d2
7 changed files with 46 additions and 13 deletions

View file

@ -93,13 +93,13 @@
\(let \(\(panel \(change-class \(clog:create-div clog-obj :content \"~A\"
:hidden hidden :class class :html-id html-id :auto-place auto-place\) \'~A\)\)\)
~{~A~}~{~A~}~{~A~} panel\)\)~%"
(string-downcase package)
(string-downcase package)
cname ;;defclass
cmembers
cname ;;defun
(ppcre:regex-replace-all "\""
(js-query content
(format nil
(js-query content
(format nil
"var z=~a.clone();~
z.find('*').each(function(){~
var m=$(this).attr('data-clog-name');