Plaster
New
List
Login
common-lisp
default
anonymous
2024.05.08 20:37:34
(defun htmlize (node) (cl-who:with-html-output-to-string (s) (:script :src "https://unpkg.com/htmx.org@1.9.12") ;;TODO move to static assets (:form :hx-post *form-post* :hx-swap "none" :hx-trigger "change" (:input :type "hidden" :name "pivot") (:div :|hx-on:change| (cl-who:escape-string "this.previousElementSibling.value = htmx.closest(event.target, '[data-name]').dataset.name || ''") (cl-who:str (htmlize-level node))))))
Raw
Annotate
Repaste
Edit