coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

HS: hs-append/hs-append! use outerHTML when value is DOM element (+1 test)

Browse Source
This commit is contained in:
giles
2026-04-26 21:45:15 +00:00
parent 606b5da1a1
commit cc800c3004
2 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lib/hyperscript/runtime.sx
View File

@@ -810,7 +810,8 @@
(append target (list value))))
((hs-element? target)
(do
(dom-insert-adjacent-html target "beforeend" (str value))
(dom-insert-adjacent-html target "beforeend"
(if (hs-element? value) (host-get value "outerHTML") (str value)))
target))
(true (str target value)))))
(define
@@ -820,7 +821,8 @@
(cond
((nil? target) nil)
((hs-element? target)
(dom-insert-adjacent-html target "beforeend" (str value)))
(dom-insert-adjacent-html target "beforeend"
(if (hs-element? value) (host-get value "outerHTML") (str value))))
(true nil)))))
(define

6
shared/static/wasm/sx/hs-runtime.sx
View File

@@ -810,7 +810,8 @@
(append target (list value))))
((hs-element? target)
(do
(dom-insert-adjacent-html target "beforeend" (str value))
(dom-insert-adjacent-html target "beforeend"
(if (hs-element? value) (host-get value "outerHTML") (str value)))
target))
(true (str target value)))))
(define
@@ -820,7 +821,8 @@
(cond
((nil? target) nil)
((hs-element? target)
(dom-insert-adjacent-html target "beforeend" (str value)))
(dom-insert-adjacent-html target "beforeend"
(if (hs-element? value) (host-get value "outerHTML") (str value))))
(true nil)))))
(define