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)))) (append target (list value))))
((hs-element? target) ((hs-element? target)
(do (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)) target))
(true (str target value))))) (true (str target value)))))
(define (define
@@ -820,7 +821,8 @@
(cond (cond
((nil? target) nil) ((nil? target) nil)
((hs-element? target) ((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))))) (true nil)))))
(define (define

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

@@ -810,7 +810,8 @@
(append target (list value)))) (append target (list value))))
((hs-element? target) ((hs-element? target)
(do (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)) target))
(true (str target value))))) (true (str target value)))))
(define (define
@@ -820,7 +821,8 @@
(cond (cond
((nil? target) nil) ((nil? target) nil)
((hs-element? target) ((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))))) (true nil)))))
(define (define