add functions to create js-objs from hickory

src/main/cljs/dda/c4k_common/browser.cljs

@@ -67,12 +67,24 @@
       (.-classList)
       (.add "was-validated")))
 
-(defn replace-element-content
+(defn create-js-obj-from-html
-  [name
+  [html-string]
-   content]
+  (-> js/document
-  (-> (get-element-by-id name)
+      .createRange
-      (.-innerHTML)
+      (.createContextualFragment html-string)))
-      (set! (hr/hickory-to-html content))))
+
+(defn append-to-body
+  [js-obj]
+  (-> js/document
+      .-body
+      (.appendChild js-obj)))
+
+(defn append-hickory
+  [hickory-obj]
+  (-> hickory-obj
+      (hr/hickory-to-html)
+      (create-js-obj-from-html)
+      (append-to-body)))
 
 (defn generate-feedback-tag
   [id]