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

Better support of importing raw html

Browse source
This commit is contained in:
David Botton 2022-01-16 11:36:42 -05:00
parent 5b3205cd29
commit 0aafec2da8
1 changed files with 35 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

49
tools/clog-builder.lisp
View file

@ -327,10 +327,15 @@ not a temporary attached one when using select-control."
(panel-id (html-id content)))
(clrhash (get-control-list app panel-id))
;; Assign any elements with no id an id, name and type
(clog::js-execute win (format nil "var clog_id=~A; $('*').each(function() {var e = $(this);~
if(e.attr('id') === undefined) {$(this).attr('id','A' + clog_id++);}~
if(e.attr('data-clog-name') === undefined) {$(this).attr('data-clog-name', 'none')}~
if(e.attr('data-clog-type') === undefined) {$(this).attr('data-clog-type', 'div')}})" panel-uid))
(clog::js-execute win (format nil
"var clog_id=~A; var clog_nid=1;~
$(~A).find('*').each(function() {var e = $(this);~
if(e.attr('id') === undefined) {$(this).attr('id','A' + clog_id++);}~
if(e.attr('data-clog-name') === undefined) {$(this).attr('data-clog-name', 'none-' + clog_nid++)}~
if(e.attr('data-clog-type') === undefined) {$(this).attr('data-clog-type', 'div')\}~
})"
panel-uid
(clog::jquery content)))
(labels ((add-siblings (control)
(let (dct)
(loop
@ -357,17 +362,32 @@ of controls and double click to select control."
(when (equal (html-id control) "undefined") (return))
(setf dln (attribute control "data-clog-name"))
(unless (equal dln "undefined")
(let ((list-item (create-div win :content (format nil "↕ ~A~A" sim dln))))
(setf (background-color list-item) :lightgray)
(let ((list-item (create-div win :content (format nil "↕ ~A~A" sim dln)))
(status (hiddenp (get-placer control))))
(if status
(setf (background-color list-item) :gray)
(setf (background-color list-item) :lightgray))
(setf (draggablep list-item) t)
(setf (attribute list-item "data-clog-control") (html-id control))
;; double click to select item
(set-on-double-click list-item (lambda (obj)
(let* ((html-id (attribute obj "data-clog-control"))
(control (get-from-control-list app
panel-id
html-id)))
(select-control control))))
;; click to select item
(set-on-click list-item
(lambda (obj)
(let* ((html-id (attribute obj "data-clog-control"))
(control (get-from-control-list app
panel-id
html-id)))
(select-control control))))
(set-on-double-click list-item
(lambda (obj)
(let* ((html-id (attribute obj "data-clog-control"))
(control (get-from-control-list app
panel-id
html-id))
(placer (get-placer control))
(state (hiddenp placer)))
(setf (hiddenp placer) (not state))
(select-control control)
(on-populate-control-list-win content))))
;; drag and drop to change
(set-on-drag-over list-item (lambda (obj)(declare (ignore obj))()))
(set-on-drop list-item (lambda (obj data)
@ -670,7 +690,8 @@ of controls and double click to select control."
(place-inside-bottom-of (bottom-panel box)
(get-placer control))
(let ((vname (attribute control "data-clog-name")))
(unless (equal vname "none")
(unless (and (>= (length vname) 5)
(equalp (subseq vname 0 5) "none-"))
(push (format nil *builder-template2*
vname
html-id