Add Plump back-end.

plump/cl-html5-parser-plump.asd

@@ -0,0 +1,25 @@
+;;;;  HTML5 parser for Common Lisp
+;;;;
+;;;;  Copyright (C) 2025 Artyom Bologov <mail@aartaka.me>
+;;;;
+;;;;  This library is free software: you can redistribute it and/or modify
+;;;;  it under the terms of the GNU Lesser General Public License as published
+;;;;  by the Free Software Foundation, either version 3 of the License, or
+;;;;  (at your option) any later version.
+;;;;
+;;;;  This library is distributed in the hope that it will be useful,
+;;;;  but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;;;  GNU General Public License for more details.
+;;;;
+;;;;  You should have received a copy of the GNU General Public License
+;;;;  along with this library.  If not, see <http://www.gnu.org/licenses/>.
+
+(defsystem #:cl-html5-parser-plump
+  :name "cl-html5-parser"
+  :description "Plump integration for cl-html5-parser"
+  :licence "GNU Lesser General Public License"
+  :author "Artyom Bologov <mail@aartaka.me>"
+  :depends-on ("cl-html5-parser" "plump")
+  :serial t
+  :components ((:file "plump-dom")))

plump/plump-dom.lisp

@@ -0,0 +1,48 @@
+;;;;  HTML5 parser for Common Lisp
+;;;;
+;;;;  Copyright (C) 2025 Artyom Bologov <mail@aartaka.me>
+;;;;
+;;;;  This library is free software: you can redistribute it and/or modify
+;;;;  it under the terms of the GNU Lesser General Public License as published
+;;;;  by the Free Software Foundation, either version 3 of the License, or
+;;;;  (at your option) any later version.
+;;;;
+;;;;  This library is distributed in the hope that it will be useful,
+;;;;  but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;;;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;;;  GNU General Public License for more details.
+;;;;
+;;;;  You should have received a copy of the GNU General Public License
+;;;;  along with this library.  If not, see <http://www.gnu.org/licenses/>.
+
+(in-package #:html5-parser)
+
+
+(defmethod transform-html5-dom ((to-type (eql :plump)) node &key parent &allow-other-keys)
+  (ecase (node-type node)
+    (:document-type
+     (plump:make-doctype parent (node-system-id node)))
+    ((:document :document-fragment)
+     (let ((root (plump:make-root)))
+       (element-map-children
+        (lambda (child &optional parent xlink-defined)
+          (declare (ignorable parent xlink-defined))
+          (transform-html5-dom to-type child :parent root))
+        node)
+       root))
+    (:element
+     (let ((elem (plump:make-element parent (node-name node))))
+       (element-map-attributes
+        (lambda (name namespace value)
+          (declare (ignorable namespace))
+          (plump:set-attribute elem name value))
+        node)
+       (element-map-children
+        (lambda (child)
+          (transform-html5-dom to-type child :parent elem))
+        node)
+       elem))
+    (:text
+     (plump:make-text-node parent (node-value node)))
+    (:comment
+     (plump:make-comment parent (node-value node)))))