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

list-of-children

Browse source
This commit is contained in:
David Botton 2024-06-23 21:23:22 -04:00
parent 452ee0b1b8
commit 0287d16884
2 changed files with 35 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

33
source/clog-element.lisp
View file

@ -2379,6 +2379,39 @@ used for DOM tree walking or other throw away purposes."))
(defmethod parent-element ((obj clog-element))
(attach-as-child obj (jquery-query obj (format nil "parent().prop('id')"))))
;;;;;;;;;;;;;;;;;;;;;;
;; list-of-children ;;
;;;;;;;;;;;;;;;;;;;;;;
(defgeneric list-of-children (clog-element &key no-attach)
(:documentation "Returns a list of child clog-element objects. If no-attach
is t they are only functional if there previously was an attach or was created
by CLOG, i.e. if just walking the DOM of existing clog-objects these are
like pointers."))
(defmethod list-of-children ((obj clog-element) &key no-attach)
(let ((result (read-from-string (js-query obj (format nil
"const tmpf=function(obj) {
var tmp='(' + obj.prop('id');
obj.children().each(function() {
if ( $(this).children().first() ) {
tmp=tmp + tmpf( $(this) );
} else {
tmp=tmp + $(this).prop('id') + ' '; } } );
return tmp+')';}
tmpf(~A);"
(jquery obj))))))
(labels ((tr (item)
(if no-attach
(make-clog-element (connection-id obj) item :clog-type 'clog-element)
(attach-as-child obj item)))
(ll (lst)
(mapcar (lambda (l)
(if (listp l)
(ll l)
(tr l)))
lst)))
(rest (ll result)))))
;;;;;;;;;;;;;;;;;
;; first-child ;;