cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

add dom:to-list for directly converting dom elements to nested list format

Browse source
This commit is contained in:
Helmut Merz 2025-03-23 17:05:08 +01:00
parent e507bf0c1f
commit a4c87d4845
2 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
test/test-web.lisp
View file

@ -49,6 +49,7 @@
(== parsed '(((:a :href "https://example.com") "Link"))) (== parsed '(((:a :href "https://example.com") "Link")))
;(== (dom:from-list parsed) ((dom:a '(:href "https://example.com") "Link"))) ;(== (dom:from-list parsed) ((dom:a '(:href "https://example.com") "Link")))
(== (dom:render (dom:from-list parsed)) inp) (== (dom:render (dom:from-list parsed)) inp)
(== (dom:to-list (dom:a '(:href "https://example.com") "Link")) (car parsed))
)) ))
(deftest test-dom () (deftest test-dom ()

14
web/dom.lisp
View file

@ -10,7 +10,7 @@
#:dlist #:dlist
#:a #:dd #:div #:dl #:dt #:label #:a #:dd #:div #:dl #:dt #:label
#:br #:input #:br #:input
#:parse #:from-list)) #:parse #:from-list #:to-list))
(in-package :scopes/web/dom) (in-package :scopes/web/dom)
(defvar *this* *package*) (defvar *this* *package*)
@ -147,8 +147,6 @@
;;;; conversions (for testing or manipulation of HTML using dom) ;;;; conversions (for testing or manipulation of HTML using dom)
(defun to-list (&rest elems))
(defun parse (html) (defun parse (html)
(hp:parse-html html)) (hp:parse-html html))
@ -167,3 +165,13 @@
(setf attr (cdr tag) tag (car tag))) (setf attr (cdr tag) tag (car tag)))
(apply (sym tag) attr (from-list (cdr part)))))))) (apply (sym tag) attr (from-list (cdr part))))))))
(defgeneric to-list (s)
(:method ((s string)) s)
(:method ((s symbol)) s)
(:method ((s cons)) (reverse (mapcar #'to-list s))))
(defmethod to-list ((el xml-element))
(let* ((attrs (attrs el))
(tag (util:to-keyword (tag el)))
(head (if attrs (cons tag attrs) tag)))
(cons head (to-list (body el)))))