From cc800c300442e1a27eec8eb5336b5d811e9000d7 Mon Sep 17 00:00:00 2001 From: giles Date: Sun, 26 Apr 2026 21:45:15 +0000 Subject: [PATCH] HS: hs-append/hs-append! use outerHTML when value is DOM element (+1 test) --- lib/hyperscript/runtime.sx | 6 ++++-- shared/static/wasm/sx/hs-runtime.sx | 6 ++++-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/lib/hyperscript/runtime.sx b/lib/hyperscript/runtime.sx index a7ef69b1..474fdc92 100644 --- a/lib/hyperscript/runtime.sx +++ b/lib/hyperscript/runtime.sx @@ -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 diff --git a/shared/static/wasm/sx/hs-runtime.sx b/shared/static/wasm/sx/hs-runtime.sx index a7ef69b1..474fdc92 100644 --- a/shared/static/wasm/sx/hs-runtime.sx +++ b/shared/static/wasm/sx/hs-runtime.sx @@ -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