From 20b3dfb8a06fa711d0785e9a1d4d60d758ffa0f0 Mon Sep 17 00:00:00 2001 From: giles Date: Sun, 29 Mar 2026 17:36:27 +0000 Subject: [PATCH] Fix island state loss on SX navigation + cache busting MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Island markers rendered during SX navigation responses had no data-sx-state attribute, so hydration found empty kwargs and path was nil in the copyright display. Now adapter-dom.sx serializes keyword args into data-sx-state on island markers, matching what adapter-html.sx does for SSR. Also fix post-swap to use parent element for outerHTML swaps in SX responses (was using detached old target). Add SX source file hashes to wasm_hash for proper browser cache busting — changing any .sx file now busts the cache. Remove stale .sxbc bytecode cache files. Co-Authored-By: Claude Opus 4.6 (1M context) --- hosts/ocaml/bin/sx_server.ml | 54 +- shared/static/wasm/sx/adapter-dom.sx | 1329 ++++++++++++++++- shared/static/wasm/sx/adapter-dom.sxbc | 1184 --------------- shared/static/wasm/sx/adapter-dom.sxbc.json | 1 - shared/static/wasm/sx/boot.sxbc | 464 ------ shared/static/wasm/sx/boot.sxbc.json | 1 - shared/static/wasm/sx/orchestration.sx | 17 +- shared/static/wasm/sx/orchestration.sxbc | 1193 --------------- shared/static/wasm/sx/orchestration.sxbc.json | 1 - tests/playwright/navigation.spec.js | 278 ++-- web/adapter-dom.sx | 1329 ++++++++++++++++- web/orchestration.sx | 17 +- 12 files changed, 2768 insertions(+), 3100 deletions(-) delete mode 100644 shared/static/wasm/sx/adapter-dom.sxbc delete mode 100644 shared/static/wasm/sx/adapter-dom.sxbc.json delete mode 100644 shared/static/wasm/sx/boot.sxbc delete mode 100644 shared/static/wasm/sx/boot.sxbc.json delete mode 100644 shared/static/wasm/sx/orchestration.sxbc delete mode 100644 shared/static/wasm/sx/orchestration.sxbc.json diff --git a/hosts/ocaml/bin/sx_server.ml b/hosts/ocaml/bin/sx_server.ml index bf2033cd..b7690320 100644 --- a/hosts/ocaml/bin/sx_server.ml +++ b/hosts/ocaml/bin/sx_server.ml @@ -713,13 +713,13 @@ let register_jit_hook env = Sx_ref.jit_call_hook := Some (fun f args -> match f with | Lambda l -> + let fn_name = match l.l_name with Some n -> n | None -> "?" in (match l.l_compiled with | Some cl when not (Sx_vm.is_jit_failed cl) -> (* Cached bytecode — run on VM, fall back to CEK on runtime error. Log once per function name, then stay quiet. Don't disable. *) (try Some (Sx_vm.call_closure cl args cl.vm_env_ref) with e -> - let fn_name = match l.l_name with Some n -> n | None -> "?" in if not (Hashtbl.mem _jit_warned fn_name) then begin Hashtbl.replace _jit_warned fn_name true; Printf.eprintf "[jit] %s runtime fallback to CEK: %s\n%!" fn_name (Printexc.to_string e) @@ -727,7 +727,6 @@ let register_jit_hook env = None) | Some _ -> None (* compile failed or disabled — CEK handles *) | None -> - let fn_name = match l.l_name with Some n -> n | None -> "?" in if !_jit_compiling then None else begin _jit_compiling := true; @@ -1578,9 +1577,16 @@ let http_inject_shell_statics env static_dir sx_sxc = let project_dir = try Sys.getenv "SX_PROJECT_DIR" with Not_found -> Filename.dirname (Filename.dirname static_dir) in let templates_dir = project_dir ^ "/shared/sx/templates" in - let client_libs = [ - templates_dir ^ "/cssx.sx"; - ] in + (* Client libraries: all .sx files in templates/client-libs/ *) + let client_libs_dir = templates_dir ^ "/client-libs" in + let extra_libs = + if Sys.file_exists client_libs_dir && Sys.is_directory client_libs_dir then + Array.to_list (Sys.readdir client_libs_dir) + |> List.filter (fun f -> Filename.check_suffix f ".sx") + |> List.sort String.compare + |> List.map (fun f -> client_libs_dir ^ "/" ^ f) + else [] in + let client_libs = (templates_dir ^ "/cssx.sx") :: extra_libs in List.iter (fun path -> if Sys.file_exists path then begin let src = In_channel.with_open_text path In_channel.input_all in @@ -1614,7 +1620,20 @@ let http_inject_shell_statics env static_dir sx_sxc = (* Compute file hashes for cache busting *) let sx_js_hash = file_hash (static_dir ^ "/scripts/sx-browser.js") in let body_js_hash = file_hash (static_dir ^ "/scripts/body.js") in - let wasm_hash = file_hash (static_dir ^ "/wasm/sx_browser.bc.wasm.js") in + (* Include SX source file hashes so browser cache busts when .sx files change *) + let sx_dir = static_dir ^ "/wasm/sx" in + let sx_files_hash = + if Sys.file_exists sx_dir && Sys.is_directory sx_dir then + let entries = Sys.readdir sx_dir in + Array.sort String.compare entries; + let combined = Array.fold_left (fun acc f -> + if Filename.check_suffix f ".sx" then + acc ^ file_hash (sx_dir ^ "/" ^ f) + else acc + ) "" entries in + String.sub (Digest.string combined |> Digest.to_hex) 0 12 + else "" in + let wasm_hash = file_hash (static_dir ^ "/wasm/sx_browser.bc.wasm.js") ^ sx_files_hash in (* Read CSS for inline injection *) let tw_css = read_css_file (static_dir ^ "/styles/tw.css") in let basics_css = read_css_file (static_dir ^ "/styles/basics.css") in @@ -1674,16 +1693,7 @@ let http_inject_shell_statics env static_dir sx_sxc = ignore (env_bind env "__shell-body-scripts" Nil); ignore (env_bind env "__shell-inline-css" Nil); ignore (env_bind env "__shell-inline-head-js" Nil); - (* init-sx: trigger client-side render when sx-root is empty (SSR failed). - The boot code hydrates existing islands but doesn't do fresh render. - This script forces a render from page-sx after boot completes. *) - ignore (env_bind env "__shell-init-sx" (String - "document.addEventListener('sx:boot-done', function() { \ - var root = document.getElementById('sx-root'); \ - if (root && !root.innerHTML.trim() && typeof SX !== 'undefined' && SX.renderPage) { \ - SX.renderPage(); \ - } \ - });")); + ignore (env_bind env "__shell-init-sx" Nil); Printf.eprintf "[sx-http] Shell statics: defs=%d hash=%s css=%d js=%s wasm=%s\n%!" (String.length component_defs) component_hash (String.length sx_css) sx_js_hash wasm_hash @@ -1789,7 +1799,9 @@ let http_setup_page_helpers env = SxExpr (Printf.sprintf "(pre :class \"text-sm overflow-x-auto\" (code \"%s\"))" escaped) | _ -> Nil); (* component-source — stub *) - bind "component-source" (fun _args -> String "") + bind "component-source" (fun _args -> String ""); + (* handler-source — stub (returns empty, used by example pages) *) + bind "handler-source" (fun _args -> String "") let http_mode port = let env = make_server_env () in @@ -2003,12 +2015,17 @@ let http_mode port = in match work with | Some (fd, path, headers) -> + (* ~10M steps ≈ 3-5 seconds of CEK evaluation *) + Atomic.set Sx_ref._step_count 0; + Atomic.set Sx_ref._step_limit 10_000_000; let response = try let is_ajax = List.exists (fun (k, _) -> k = "sx-request" || k = "hx-request") headers in match http_render_page env path headers with | Some html -> - let resp = http_response ~content_type:"text/html; charset=utf-8" html in + let ct = if is_ajax then "text/sx; charset=utf-8" + else "text/html; charset=utf-8" in + let resp = http_response ~content_type:ct html in if not is_ajax then Hashtbl.replace response_cache path resp; resp | None -> http_response ~status:404 "

Not Found

" @@ -2016,6 +2033,7 @@ let http_mode port = Printf.eprintf "[render] Error for %s: %s\n%!" path (Printexc.to_string e); http_response ~status:500 "

Internal Server Error

" in + Atomic.set Sx_ref._step_limit 0; write_response fd response | None -> () done diff --git a/shared/static/wasm/sx/adapter-dom.sx b/shared/static/wasm/sx/adapter-dom.sx index 38c670ba..55416866 100644 --- a/shared/static/wasm/sx/adapter-dom.sx +++ b/shared/static/wasm/sx/adapter-dom.sx @@ -4,64 +4,1335 @@ (define island-scope? (fn () (not (nil? (scope-peek "sx-island-scope"))))) -(begin (define *memo-cache* (dict)) (define *cyst-counter* 0) (define next-cyst-id (fn () (set! *cyst-counter* (+ *cyst-counter* 1)) (str "sx-cyst-" *cyst-counter*)))) +(begin + (define *memo-cache* (dict)) + (define *cyst-counter* 0) + (define + next-cyst-id + (fn + () + (set! *cyst-counter* (+ *cyst-counter* 1)) + (str "sx-cyst-" *cyst-counter*)))) -(define contains-deref? (fn (expr) (if (not (list? expr)) false (if (empty? expr) false (if (and (= (type-of (first expr)) "symbol") (= (symbol-name (first expr)) "deref")) true (some contains-deref? expr)))))) +(define + contains-deref? + (fn + (expr) + (if + (not (list? expr)) + false + (if + (empty? expr) + false + (if + (and + (= (type-of (first expr)) "symbol") + (= (symbol-name (first expr)) "deref")) + true + (some contains-deref? expr)))))) -(define dom-on :effects (io) (fn (el name handler) (dom-listen el name (if (lambda? handler) (if (= 0 (len (lambda-params handler))) (fn (_e) (trampoline (call-lambda handler (list))) (run-post-render-hooks)) (fn (e) (trampoline (call-lambda handler (list e))) (run-post-render-hooks))) handler)))) +(define + dom-on + :effects (io) + (fn + (el name handler) + (dom-listen + el + name + (if + (lambda? handler) + (if + (= 0 (len (lambda-params handler))) + (fn + (_e) + (trampoline (call-lambda handler (list))) + (run-post-render-hooks)) + (fn + (e) + (trampoline (call-lambda handler (list e))) + (run-post-render-hooks))) + handler)))) -(define render-to-dom :effects (render) (fn (expr (env :as dict) (ns :as string)) (set-render-active! true) (case (type-of expr) "nil" (create-fragment) "boolean" (create-fragment) "raw-html" (dom-parse-html (raw-html-content expr)) "string" (create-text-node expr) "number" (create-text-node (str expr)) "symbol" (render-to-dom (trampoline (eval-expr expr env)) env ns) "keyword" (create-text-node (keyword-name expr)) "dom-node" expr "spread" (do (when (not (island-scope?)) (scope-emit! "element-attrs" (spread-attrs expr))) expr) "dict" (if (has-key? expr "__host_handle") expr (create-fragment)) "list" (if (empty? expr) (create-fragment) (render-dom-list expr env ns)) :else (if (signal? expr) (if (island-scope?) (reactive-text expr) (create-text-node (str (deref expr)))) (create-text-node (str expr)))))) +(define + render-to-dom + :effects (render) + (fn + (expr (env :as dict) (ns :as string)) + (set-render-active! true) + (case + (type-of expr) + "nil" + (create-fragment) + "boolean" + (create-fragment) + "raw-html" + (dom-parse-html (raw-html-content expr)) + "string" + (create-text-node expr) + "number" + (create-text-node (str expr)) + "symbol" + (render-to-dom (trampoline (eval-expr expr env)) env ns) + "keyword" + (create-text-node (keyword-name expr)) + "dom-node" + expr + "spread" + (do + (when + (not (island-scope?)) + (scope-emit! "element-attrs" (spread-attrs expr))) + expr) + "dict" + (if (has-key? expr "__host_handle") expr (create-fragment)) + "list" + (if (empty? expr) (create-fragment) (render-dom-list expr env ns)) + :else (if + (signal? expr) + (if + (island-scope?) + (reactive-text expr) + (create-text-node (str (deref expr)))) + (create-text-node (str expr)))))) -(define render-dom-list :effects (render) (fn (expr (env :as dict) (ns :as string)) (let ((head (first expr))) (cond (= (type-of head) "symbol") (let ((name (symbol-name head)) (args (rest expr))) (cond (= name "raw!") (render-dom-raw args env) (= name "<>") (render-dom-fragment args env ns) (= name "lake") (render-dom-lake args env ns) (= name "marsh") (render-dom-marsh args env ns) (starts-with? name "html:") (render-dom-element (slice name 5) args env ns) (render-dom-form? name) (if (and (contains? HTML_TAGS name) (or (and (> (len args) 0) (= (type-of (first args)) "keyword")) ns)) (render-dom-element name args env ns) (dispatch-render-form name expr env ns)) (and (env-has? env name) (macro? (env-get env name))) (render-to-dom (expand-macro (env-get env name) args env) env ns) (contains? HTML_TAGS name) (render-dom-element name args env ns) (and (starts-with? name "~") (env-has? env name) (island? (env-get env name))) (if (scope-peek "sx-render-markers") (let ((island (env-get env name)) (marker (dom-create-element "span" nil))) (dom-set-attr marker "data-sx-island" (component-name island)) marker) (render-dom-island (env-get env name) args env ns)) (starts-with? name "~") (let ((comp (env-get env name))) (if (component? comp) (render-dom-component comp args env ns) (render-dom-unknown-component name))) (and (> (index-of name "-") 0) (> (len args) 0) (= (type-of (first args)) "keyword")) (render-dom-element name args env ns) ns (render-dom-element name args env ns) (and (= name "deref") (island-scope?)) (let ((sig-or-val (trampoline (eval-expr (first args) env)))) (if (signal? sig-or-val) (reactive-text sig-or-val) (create-text-node (str (deref sig-or-val))))) (and (island-scope?) (contains-deref? expr)) (reactive-text (computed (fn () (trampoline (eval-expr expr env))))) :else (render-to-dom (trampoline (eval-expr expr env)) env ns))) (or (lambda? head) (= (type-of head) "list")) (render-to-dom (trampoline (eval-expr expr env)) env ns) :else (let ((frag (create-fragment))) (for-each (fn (x) (let ((result (render-to-dom x env ns))) (when (not (spread? result)) (dom-append frag result)))) expr) frag))))) +(define + render-dom-list + :effects (render) + (fn + (expr (env :as dict) (ns :as string)) + (let + ((head (first expr))) + (cond + (= (type-of head) "symbol") + (let + ((name (symbol-name head)) (args (rest expr))) + (cond + (= name "raw!") + (render-dom-raw args env) + (= name "<>") + (render-dom-fragment args env ns) + (= name "lake") + (render-dom-lake args env ns) + (= name "marsh") + (render-dom-marsh args env ns) + (starts-with? name "html:") + (render-dom-element (slice name 5) args env ns) + (render-dom-form? name) + (if + (and + (contains? HTML_TAGS name) + (or + (and + (> (len args) 0) + (= (type-of (first args)) "keyword")) + ns)) + (render-dom-element name args env ns) + (dispatch-render-form name expr env ns)) + (and (env-has? env name) (macro? (env-get env name))) + (render-to-dom (expand-macro (env-get env name) args env) env ns) + (contains? HTML_TAGS name) + (render-dom-element name args env ns) + (and + (starts-with? name "~") + (env-has? env name) + (island? (env-get env name))) + (if + (scope-peek "sx-render-markers") + (let + ((island (env-get env name)) + (marker (dom-create-element "span" nil)) + (kw-state (dict))) + (reduce + (fn + (state arg) + (let + ((skip (get state "skip"))) + (if + skip + (assoc state "skip" false "i" (inc (get state "i"))) + (if + (and + (= (type-of arg) "keyword") + (< (inc (get state "i")) (len args))) + (let + ((kname (keyword-name arg)) + (kval + (trampoline + (eval-expr + (nth args (inc (get state "i"))) + env)))) + (dict-set! kw-state kname kval) + (assoc + state + "skip" + true + "i" + (inc (get state "i")))) + (assoc state "i" (inc (get state "i"))))))) + (dict "i" 0 "skip" false) + args) + (dom-set-attr marker "data-sx-island" (component-name island)) + (when + (not (empty-dict? kw-state)) + (dom-set-attr + marker + "data-sx-state" + (sx-serialize kw-state))) + marker) + (render-dom-island (env-get env name) args env ns)) + (starts-with? name "~") + (let + ((comp (env-get env name))) + (if + (component? comp) + (render-dom-component comp args env ns) + (render-dom-unknown-component name))) + (and + (> (index-of name "-") 0) + (> (len args) 0) + (= (type-of (first args)) "keyword")) + (render-dom-element name args env ns) + ns + (render-dom-element name args env ns) + (and (= name "deref") (island-scope?)) + (let + ((sig-or-val (trampoline (eval-expr (first args) env)))) + (if + (signal? sig-or-val) + (reactive-text sig-or-val) + (create-text-node (str (deref sig-or-val))))) + (and (island-scope?) (contains-deref? expr)) + (reactive-text + (computed (fn () (trampoline (eval-expr expr env))))) + :else (render-to-dom (trampoline (eval-expr expr env)) env ns))) + (or (lambda? head) (= (type-of head) "list")) + (render-to-dom (trampoline (eval-expr expr env)) env ns) + :else (let + ((frag (create-fragment))) + (for-each + (fn + (x) + (let + ((result (render-to-dom x env ns))) + (when (not (spread? result)) (dom-append frag result)))) + expr) + frag))))) -(define render-dom-element :effects (render) (fn ((tag :as string) (args :as list) (env :as dict) (ns :as string)) (let ((new-ns (cond (= tag "svg") SVG_NS (= tag "math") MATH_NS :else ns)) (el (dom-create-element tag new-ns))) (scope-push! "element-attrs" nil) (reduce (fn (state arg) (let ((skip (get state "skip"))) (if skip (assoc state "skip" false "i" (inc (get state "i"))) (if (and (= (type-of arg) "keyword") (< (inc (get state "i")) (len args))) (let ((attr-name (keyword-name arg)) (attr-expr (nth args (inc (get state "i"))))) (cond (starts-with? attr-name "on-") (let ((attr-val (trampoline (eval-expr attr-expr env)))) (when (callable? attr-val) (dom-on el (slice attr-name 3) attr-val))) (= attr-name "bind") (let ((attr-val (trampoline (eval-expr attr-expr env)))) (when (signal? attr-val) (bind-input el attr-val))) (= attr-name "ref") (let ((attr-val (trampoline (eval-expr attr-expr env)))) (dict-set! attr-val "current" el)) (= attr-name "key") (let ((attr-val (trampoline (eval-expr attr-expr env)))) (dom-set-attr el "key" (str attr-val))) (island-scope?) (reactive-attr el attr-name (fn () (trampoline (eval-expr attr-expr env)))) :else (let ((attr-val (trampoline (eval-expr attr-expr env)))) (cond (or (nil? attr-val) (= attr-val false)) nil (contains? BOOLEAN_ATTRS attr-name) (when attr-val (dom-set-attr el attr-name "")) (= attr-val true) (dom-set-attr el attr-name "") :else (dom-set-attr el attr-name (str attr-val))))) (assoc state "skip" true "i" (inc (get state "i")))) (do (when (not (contains? VOID_ELEMENTS tag)) (let ((child (render-to-dom arg env new-ns))) (cond (and (spread? child) (island-scope?)) (reactive-spread el (fn () (render-to-dom arg env new-ns))) (spread? child) nil :else (dom-append el child)))) (assoc state "i" (inc (get state "i")))))))) (dict "i" 0 "skip" false) args) (for-each (fn (spread-dict) (for-each (fn ((key :as string)) (let ((val (dict-get spread-dict key))) (if (= key "class") (let ((existing (dom-get-attr el "class"))) (dom-set-attr el "class" (if (and existing (not (= existing ""))) (str existing " " val) val))) (if (= key "style") (let ((existing (dom-get-attr el "style"))) (dom-set-attr el "style" (if (and existing (not (= existing ""))) (str existing ";" val) val))) (dom-set-attr el key (str val)))))) (keys spread-dict))) (scope-emitted "element-attrs")) (scope-pop! "element-attrs") el))) +(define + render-dom-element + :effects (render) + (fn + ((tag :as string) (args :as list) (env :as dict) (ns :as string)) + (let + ((new-ns (cond (= tag "svg") SVG_NS (= tag "math") MATH_NS :else ns)) + (el (dom-create-element tag new-ns))) + (scope-push! "element-attrs" nil) + (reduce + (fn + (state arg) + (let + ((skip (get state "skip"))) + (if + skip + (assoc state "skip" false "i" (inc (get state "i"))) + (if + (and + (= (type-of arg) "keyword") + (< (inc (get state "i")) (len args))) + (let + ((attr-name (keyword-name arg)) + (attr-expr (nth args (inc (get state "i"))))) + (cond + (starts-with? attr-name "on-") + (let + ((attr-val (trampoline (eval-expr attr-expr env)))) + (when + (callable? attr-val) + (dom-on el (slice attr-name 3) attr-val))) + (= attr-name "bind") + (let + ((attr-val (trampoline (eval-expr attr-expr env)))) + (when (signal? attr-val) (bind-input el attr-val))) + (= attr-name "ref") + (let + ((attr-val (trampoline (eval-expr attr-expr env)))) + (dict-set! attr-val "current" el)) + (= attr-name "key") + (let + ((attr-val (trampoline (eval-expr attr-expr env)))) + (dom-set-attr el "key" (str attr-val))) + (island-scope?) + (reactive-attr + el + attr-name + (fn () (trampoline (eval-expr attr-expr env)))) + :else (let + ((attr-val (trampoline (eval-expr attr-expr env)))) + (cond + (or (nil? attr-val) (= attr-val false)) + nil + (contains? BOOLEAN_ATTRS attr-name) + (when attr-val (dom-set-attr el attr-name "")) + (= attr-val true) + (dom-set-attr el attr-name "") + :else (dom-set-attr el attr-name (str attr-val))))) + (assoc state "skip" true "i" (inc (get state "i")))) + (do + (when + (not (contains? VOID_ELEMENTS tag)) + (let + ((child (render-to-dom arg env new-ns))) + (cond + (and (spread? child) (island-scope?)) + (reactive-spread + el + (fn () (render-to-dom arg env new-ns))) + (spread? child) + nil + :else (dom-append el child)))) + (assoc state "i" (inc (get state "i")))))))) + (dict "i" 0 "skip" false) + args) + (for-each + (fn + (spread-dict) + (for-each + (fn + ((key :as string)) + (let + ((val (dict-get spread-dict key))) + (if + (= key "class") + (let + ((existing (dom-get-attr el "class"))) + (dom-set-attr + el + "class" + (if + (and existing (not (= existing ""))) + (str existing " " val) + val))) + (if + (= key "style") + (let + ((existing (dom-get-attr el "style"))) + (dom-set-attr + el + "style" + (if + (and existing (not (= existing ""))) + (str existing ";" val) + val))) + (dom-set-attr el key (str val)))))) + (keys spread-dict))) + (scope-emitted "element-attrs")) + (scope-pop! "element-attrs") + el))) -(define render-dom-component :effects (render) (fn ((comp :as component) (args :as list) (env :as dict) (ns :as string)) (let ((kwargs (dict)) (children (list))) (reduce (fn (state arg) (let ((skip (get state "skip"))) (if skip (assoc state "skip" false "i" (inc (get state "i"))) (if (and (= (type-of arg) "keyword") (< (inc (get state "i")) (len args))) (let ((val (trampoline (eval-expr (nth args (inc (get state "i"))) env)))) (dict-set! kwargs (keyword-name arg) val) (assoc state "skip" true "i" (inc (get state "i")))) (do (append! children arg) (assoc state "i" (inc (get state "i")))))))) (dict "i" 0 "skip" false) args) (let ((local (env-merge (component-closure comp) env))) (for-each (fn (p) (env-bind! local p (if (dict-has? kwargs p) (dict-get kwargs p) nil))) (component-params comp)) (when (component-has-children? comp) (let ((child-frag (create-fragment))) (for-each (fn (c) (let ((result (render-to-dom c env ns))) (when (not (spread? result)) (dom-append child-frag result)))) children) (env-bind! local "children" child-frag))) (render-to-dom (component-body comp) local ns))))) +(define + render-dom-component + :effects (render) + (fn + ((comp :as component) (args :as list) (env :as dict) (ns :as string)) + (let + ((kwargs (dict)) (children (list))) + (reduce + (fn + (state arg) + (let + ((skip (get state "skip"))) + (if + skip + (assoc state "skip" false "i" (inc (get state "i"))) + (if + (and + (= (type-of arg) "keyword") + (< (inc (get state "i")) (len args))) + (let + ((val (trampoline (eval-expr (nth args (inc (get state "i"))) env)))) + (dict-set! kwargs (keyword-name arg) val) + (assoc state "skip" true "i" (inc (get state "i")))) + (do + (append! children arg) + (assoc state "i" (inc (get state "i")))))))) + (dict "i" 0 "skip" false) + args) + (let + ((local (env-merge (component-closure comp) env))) + (for-each + (fn + (p) + (env-bind! + local + p + (if (dict-has? kwargs p) (dict-get kwargs p) nil))) + (component-params comp)) + (when + (component-has-children? comp) + (let + ((child-frag (create-fragment))) + (for-each + (fn + (c) + (let + ((result (render-to-dom c env ns))) + (when + (not (spread? result)) + (dom-append child-frag result)))) + children) + (env-bind! local "children" child-frag))) + (render-to-dom (component-body comp) local ns))))) -(define render-dom-fragment :effects (render) (fn ((args :as list) (env :as dict) (ns :as string)) (let ((frag (create-fragment))) (for-each (fn (x) (let ((result (render-to-dom x env ns))) (when (not (spread? result)) (dom-append frag result)))) args) frag))) +(define + render-dom-fragment + :effects (render) + (fn + ((args :as list) (env :as dict) (ns :as string)) + (let + ((frag (create-fragment))) + (for-each + (fn + (x) + (let + ((result (render-to-dom x env ns))) + (when (not (spread? result)) (dom-append frag result)))) + args) + frag))) -(define render-dom-raw :effects (render) (fn ((args :as list) (env :as dict)) (let ((frag (create-fragment))) (for-each (fn (arg) (let ((val (trampoline (eval-expr arg env)))) (cond (= (type-of val) "string") (dom-append frag (dom-parse-html val)) (= (type-of val) "dom-node") (dom-append frag (dom-clone val)) (not (nil? val)) (dom-append frag (create-text-node (str val)))))) args) frag))) +(define + render-dom-raw + :effects (render) + (fn + ((args :as list) (env :as dict)) + (let + ((frag (create-fragment))) + (for-each + (fn + (arg) + (let + ((val (trampoline (eval-expr arg env)))) + (cond + (= (type-of val) "string") + (dom-append frag (dom-parse-html val)) + (= (type-of val) "dom-node") + (dom-append frag (dom-clone val)) + (not (nil? val)) + (dom-append frag (create-text-node (str val)))))) + args) + frag))) -(define render-dom-unknown-component :effects (render) (fn ((name :as string)) (error (str "Unknown component: " name)))) +(define + render-dom-unknown-component + :effects (render) + (fn ((name :as string)) (error (str "Unknown component: " name)))) -(define RENDER_DOM_FORMS (list "if" "when" "cond" "case" "let" "let*" "letrec" "begin" "do" "define" "defcomp" "defisland" "defmacro" "defstyle" "map" "map-indexed" "filter" "for-each" "portal" "error-boundary" "scope" "provide" "cyst")) +(define + RENDER_DOM_FORMS + (list + "if" + "when" + "cond" + "case" + "let" + "let*" + "letrec" + "begin" + "do" + "define" + "defcomp" + "defisland" + "defmacro" + "defstyle" + "map" + "map-indexed" + "filter" + "for-each" + "portal" + "error-boundary" + "scope" + "provide" + "cyst")) -(define render-dom-form? :effects () (fn ((name :as string)) (contains? RENDER_DOM_FORMS name))) +(define + render-dom-form? + :effects () + (fn ((name :as string)) (contains? RENDER_DOM_FORMS name))) -(define dispatch-render-form :effects (render) (fn ((name :as string) expr (env :as dict) (ns :as string)) (cond (= name "if") (if (island-scope?) (let ((marker (create-comment "r-if")) (current-nodes (list)) (initial-result nil)) (effect (fn () (let ((result (let ((cond-val (trampoline (eval-expr (nth expr 1) env)))) (if cond-val (render-to-dom (nth expr 2) env ns) (if (> (len expr) 3) (render-to-dom (nth expr 3) env ns) (create-fragment)))))) (if (dom-parent marker) (do (for-each (fn (n) (dom-remove n)) current-nodes) (set! current-nodes (if (dom-is-fragment? result) (dom-child-nodes result) (list result))) (dom-insert-after marker result)) (set! initial-result result))))) (if (spread? initial-result) initial-result (let ((frag (create-fragment))) (dom-append frag marker) (when initial-result (set! current-nodes (if (dom-is-fragment? initial-result) (dom-child-nodes initial-result) (list initial-result))) (dom-append frag initial-result)) frag))) (let ((cond-val (trampoline (eval-expr (nth expr 1) env)))) (if cond-val (render-to-dom (nth expr 2) env ns) (if (> (len expr) 3) (render-to-dom (nth expr 3) env ns) (create-fragment))))) (= name "when") (if (island-scope?) (let ((marker (create-comment "r-when")) (current-nodes (list)) (initial-result nil)) (effect (fn () (if (dom-parent marker) (do (for-each (fn (n) (dom-remove n)) current-nodes) (set! current-nodes (list)) (when (trampoline (eval-expr (nth expr 1) env)) (let ((frag (create-fragment))) (for-each (fn (i) (dom-append frag (render-to-dom (nth expr i) env ns))) (range 2 (len expr))) (set! current-nodes (dom-child-nodes frag)) (dom-insert-after marker frag)))) (when (trampoline (eval-expr (nth expr 1) env)) (let ((frag (create-fragment))) (for-each (fn (i) (dom-append frag (render-to-dom (nth expr i) env ns))) (range 2 (len expr))) (set! current-nodes (dom-child-nodes frag)) (set! initial-result frag)))))) (if (spread? initial-result) initial-result (let ((frag (create-fragment))) (dom-append frag marker) (when initial-result (dom-append frag initial-result)) frag))) (if (not (trampoline (eval-expr (nth expr 1) env))) (create-fragment) (let ((frag (create-fragment))) (for-each (fn (i) (dom-append frag (render-to-dom (nth expr i) env ns))) (range 2 (len expr))) frag))) (= name "cond") (if (island-scope?) (let ((marker (create-comment "r-cond")) (current-nodes (list)) (initial-result nil)) (effect (fn () (let ((branch (eval-cond (rest expr) env))) (if (dom-parent marker) (do (for-each (fn (n) (dom-remove n)) current-nodes) (set! current-nodes (list)) (when branch (let ((result (render-to-dom branch env ns))) (set! current-nodes (if (dom-is-fragment? result) (dom-child-nodes result) (list result))) (dom-insert-after marker result)))) (when branch (let ((result (render-to-dom branch env ns))) (set! current-nodes (if (dom-is-fragment? result) (dom-child-nodes result) (list result))) (set! initial-result result))))))) (if (spread? initial-result) initial-result (let ((frag (create-fragment))) (dom-append frag marker) (when initial-result (dom-append frag initial-result)) frag))) (let ((branch (eval-cond (rest expr) env))) (if branch (render-to-dom branch env ns) (create-fragment)))) (= name "case") (render-to-dom (trampoline (eval-expr expr env)) env ns) (or (= name "let") (= name "let*")) (let ((local (process-bindings (nth expr 1) env))) (if (= (len expr) 3) (render-to-dom (nth expr 2) local ns) (let ((frag (create-fragment))) (for-each (fn (i) (let ((result (render-to-dom (nth expr i) local ns))) (when (not (spread? result)) (dom-append frag result)))) (range 2 (len expr))) frag))) (= name "letrec") (let ((bindings (nth expr 1)) (body (slice expr 2)) (local (env-extend env))) (for-each (fn (pair) (let ((pname (if (= (type-of (first pair)) "symbol") (symbol-name (first pair)) (str (first pair))))) (env-bind! local pname nil))) bindings) (for-each (fn (pair) (let ((pname (if (= (type-of (first pair)) "symbol") (symbol-name (first pair)) (str (first pair))))) (env-set! local pname (trampoline (eval-expr (nth pair 1) local))))) bindings) (when (> (len body) 1) (for-each (fn (e) (trampoline (eval-expr e local))) (init body))) (render-to-dom (last body) local ns)) (or (= name "begin") (= name "do")) (if (= (len expr) 2) (render-to-dom (nth expr 1) env ns) (let ((frag (create-fragment))) (for-each (fn (i) (let ((result (render-to-dom (nth expr i) env ns))) (when (not (spread? result)) (dom-append frag result)))) (range 1 (len expr))) frag)) (definition-form? name) (do (trampoline (eval-expr expr env)) (create-fragment)) (= name "map") (let ((coll-expr (nth expr 2))) (if (and (island-scope?) (= (type-of coll-expr) "list") (> (len coll-expr) 1) (= (type-of (first coll-expr)) "symbol") (= (symbol-name (first coll-expr)) "deref")) (let ((f (trampoline (eval-expr (nth expr 1) env))) (sig (trampoline (eval-expr (nth coll-expr 1) env)))) (if (signal? sig) (reactive-list f sig env ns) (let ((coll (deref sig)) (frag (create-fragment))) (for-each (fn (item) (let ((val (if (lambda? f) (render-lambda-dom f (list item) env ns) (render-to-dom (apply f (list item)) env ns)))) (dom-append frag val))) coll) frag))) (let ((f (trampoline (eval-expr (nth expr 1) env))) (coll (trampoline (eval-expr (nth expr 2) env))) (frag (create-fragment))) (for-each (fn (item) (let ((val (if (lambda? f) (render-lambda-dom f (list item) env ns) (render-to-dom (apply f (list item)) env ns)))) (dom-append frag val))) coll) frag))) (= name "map-indexed") (let ((f (trampoline (eval-expr (nth expr 1) env))) (coll (trampoline (eval-expr (nth expr 2) env))) (frag (create-fragment))) (for-each-indexed (fn (i item) (let ((val (if (lambda? f) (render-lambda-dom f (list i item) env ns) (render-to-dom (apply f (list i item)) env ns)))) (dom-append frag val))) coll) frag) (= name "filter") (render-to-dom (trampoline (eval-expr expr env)) env ns) (= name "portal") (render-dom-portal (rest expr) env ns) (= name "error-boundary") (render-dom-error-boundary (rest expr) env ns) (= name "for-each") (let ((f (trampoline (eval-expr (nth expr 1) env))) (coll (trampoline (eval-expr (nth expr 2) env))) (frag (create-fragment))) (for-each (fn (item) (let ((val (if (lambda? f) (render-lambda-dom f (list item) env ns) (render-to-dom (apply f (list item)) env ns)))) (dom-append frag val))) coll) frag) (= name "scope") (let ((scope-name (trampoline (eval-expr (nth expr 1) env))) (rest-args (slice expr 2)) (scope-val nil) (body-exprs nil) (frag (create-fragment))) (if (and (>= (len rest-args) 2) (= (type-of (first rest-args)) "keyword") (= (keyword-name (first rest-args)) "value")) (do (set! scope-val (trampoline (eval-expr (nth rest-args 1) env))) (set! body-exprs (slice rest-args 2))) (set! body-exprs rest-args)) (scope-push! scope-name scope-val) (for-each (fn (e) (dom-append frag (render-to-dom e env ns))) body-exprs) (scope-pop! scope-name) frag) (= name "provide") (let ((prov-name (trampoline (eval-expr (nth expr 1) env))) (prov-val (trampoline (eval-expr (nth expr 2) env))) (frag (create-fragment))) (scope-push! prov-name prov-val) (for-each (fn (i) (dom-append frag (render-to-dom (nth expr i) env ns))) (range 3 (len expr))) (scope-pop! prov-name) frag) (= name "cyst") (let ((cyst-key (if (and (> (len expr) 2) (= (type-of (nth expr 1)) "keyword") (= (keyword-name (nth expr 1)) "key")) (str (trampoline (eval-expr (nth expr 2) env))) (next-cyst-id))) (cached (get *memo-cache* cyst-key))) (if (and cached (host-get cached "isConnected")) cached (let ((container (dom-create-element "div" nil)) (disposers (list)) (body-exprs (if (and (> (len expr) 2) (= (type-of (nth expr 1)) "keyword") (= (keyword-name (nth expr 1)) "key")) (slice expr 3) (slice expr 1)))) (dom-set-attr container "data-sx-cyst" cyst-key) (let ((body-dom (with-island-scope (fn (d) (append! disposers d)) (fn () (let ((frag (create-fragment))) (for-each (fn (child) (dom-append frag (render-to-dom child env ns))) body-exprs) frag))))) (dom-append container body-dom) (dom-set-data container "sx-disposers" disposers) (dict-set! *memo-cache* cyst-key container) container)))) :else (render-to-dom (trampoline (eval-expr expr env)) env ns)))) +(define + dispatch-render-form + :effects (render) + (fn + ((name :as string) expr (env :as dict) (ns :as string)) + (cond + (= name "if") + (if + (island-scope?) + (let + ((marker (create-comment "r-if")) + (current-nodes (list)) + (initial-result nil)) + (effect + (fn + () + (let + ((result (let ((cond-val (trampoline (eval-expr (nth expr 1) env)))) (if cond-val (render-to-dom (nth expr 2) env ns) (if (> (len expr) 3) (render-to-dom (nth expr 3) env ns) (create-fragment)))))) + (if + (dom-parent marker) + (do + (for-each (fn (n) (dom-remove n)) current-nodes) + (set! + current-nodes + (if + (dom-is-fragment? result) + (dom-child-nodes result) + (list result))) + (dom-insert-after marker result)) + (set! initial-result result))))) + (if + (spread? initial-result) + initial-result + (let + ((frag (create-fragment))) + (dom-append frag marker) + (when + initial-result + (set! + current-nodes + (if + (dom-is-fragment? initial-result) + (dom-child-nodes initial-result) + (list initial-result))) + (dom-append frag initial-result)) + frag))) + (let + ((cond-val (trampoline (eval-expr (nth expr 1) env)))) + (if + cond-val + (render-to-dom (nth expr 2) env ns) + (if + (> (len expr) 3) + (render-to-dom (nth expr 3) env ns) + (create-fragment))))) + (= name "when") + (if + (island-scope?) + (let + ((marker (create-comment "r-when")) + (current-nodes (list)) + (initial-result nil)) + (effect + (fn + () + (if + (dom-parent marker) + (do + (for-each (fn (n) (dom-remove n)) current-nodes) + (set! current-nodes (list)) + (when + (trampoline (eval-expr (nth expr 1) env)) + (let + ((frag (create-fragment))) + (for-each + (fn + (i) + (dom-append + frag + (render-to-dom (nth expr i) env ns))) + (range 2 (len expr))) + (set! current-nodes (dom-child-nodes frag)) + (dom-insert-after marker frag)))) + (when + (trampoline (eval-expr (nth expr 1) env)) + (let + ((frag (create-fragment))) + (for-each + (fn + (i) + (dom-append frag (render-to-dom (nth expr i) env ns))) + (range 2 (len expr))) + (set! current-nodes (dom-child-nodes frag)) + (set! initial-result frag)))))) + (if + (spread? initial-result) + initial-result + (let + ((frag (create-fragment))) + (dom-append frag marker) + (when initial-result (dom-append frag initial-result)) + frag))) + (if + (not (trampoline (eval-expr (nth expr 1) env))) + (create-fragment) + (let + ((frag (create-fragment))) + (for-each + (fn + (i) + (dom-append frag (render-to-dom (nth expr i) env ns))) + (range 2 (len expr))) + frag))) + (= name "cond") + (if + (island-scope?) + (let + ((marker (create-comment "r-cond")) + (current-nodes (list)) + (initial-result nil)) + (effect + (fn + () + (let + ((branch (eval-cond (rest expr) env))) + (if + (dom-parent marker) + (do + (for-each (fn (n) (dom-remove n)) current-nodes) + (set! current-nodes (list)) + (when + branch + (let + ((result (render-to-dom branch env ns))) + (set! + current-nodes + (if + (dom-is-fragment? result) + (dom-child-nodes result) + (list result))) + (dom-insert-after marker result)))) + (when + branch + (let + ((result (render-to-dom branch env ns))) + (set! + current-nodes + (if + (dom-is-fragment? result) + (dom-child-nodes result) + (list result))) + (set! initial-result result))))))) + (if + (spread? initial-result) + initial-result + (let + ((frag (create-fragment))) + (dom-append frag marker) + (when initial-result (dom-append frag initial-result)) + frag))) + (let + ((branch (eval-cond (rest expr) env))) + (if branch (render-to-dom branch env ns) (create-fragment)))) + (= name "case") + (render-to-dom (trampoline (eval-expr expr env)) env ns) + (or (= name "let") (= name "let*")) + (let + ((local (process-bindings (nth expr 1) env))) + (if + (= (len expr) 3) + (render-to-dom (nth expr 2) local ns) + (let + ((frag (create-fragment))) + (for-each + (fn + (i) + (let + ((result (render-to-dom (nth expr i) local ns))) + (when (not (spread? result)) (dom-append frag result)))) + (range 2 (len expr))) + frag))) + (= name "letrec") + (let + ((bindings (nth expr 1)) + (body (slice expr 2)) + (local (env-extend env))) + (for-each + (fn + (pair) + (let + ((pname (if (= (type-of (first pair)) "symbol") (symbol-name (first pair)) (str (first pair))))) + (env-bind! local pname nil))) + bindings) + (for-each + (fn + (pair) + (let + ((pname (if (= (type-of (first pair)) "symbol") (symbol-name (first pair)) (str (first pair))))) + (env-set! + local + pname + (trampoline (eval-expr (nth pair 1) local))))) + bindings) + (when + (> (len body) 1) + (for-each (fn (e) (trampoline (eval-expr e local))) (init body))) + (render-to-dom (last body) local ns)) + (or (= name "begin") (= name "do")) + (if + (= (len expr) 2) + (render-to-dom (nth expr 1) env ns) + (let + ((frag (create-fragment))) + (for-each + (fn + (i) + (let + ((result (render-to-dom (nth expr i) env ns))) + (when (not (spread? result)) (dom-append frag result)))) + (range 1 (len expr))) + frag)) + (definition-form? name) + (do (trampoline (eval-expr expr env)) (create-fragment)) + (= name "map") + (let + ((coll-expr (nth expr 2))) + (if + (and + (island-scope?) + (= (type-of coll-expr) "list") + (> (len coll-expr) 1) + (= (type-of (first coll-expr)) "symbol") + (= (symbol-name (first coll-expr)) "deref")) + (let + ((f (trampoline (eval-expr (nth expr 1) env))) + (sig (trampoline (eval-expr (nth coll-expr 1) env)))) + (if + (signal? sig) + (reactive-list f sig env ns) + (let + ((coll (deref sig)) (frag (create-fragment))) + (for-each + (fn + (item) + (let + ((val (if (lambda? f) (render-lambda-dom f (list item) env ns) (render-to-dom (apply f (list item)) env ns)))) + (dom-append frag val))) + coll) + frag))) + (let + ((f (trampoline (eval-expr (nth expr 1) env))) + (coll (trampoline (eval-expr (nth expr 2) env))) + (frag (create-fragment))) + (for-each + (fn + (item) + (let + ((val (if (lambda? f) (render-lambda-dom f (list item) env ns) (render-to-dom (apply f (list item)) env ns)))) + (dom-append frag val))) + coll) + frag))) + (= name "map-indexed") + (let + ((f (trampoline (eval-expr (nth expr 1) env))) + (coll (trampoline (eval-expr (nth expr 2) env))) + (frag (create-fragment))) + (for-each-indexed + (fn + (i item) + (let + ((val (if (lambda? f) (render-lambda-dom f (list i item) env ns) (render-to-dom (apply f (list i item)) env ns)))) + (dom-append frag val))) + coll) + frag) + (= name "filter") + (render-to-dom (trampoline (eval-expr expr env)) env ns) + (= name "portal") + (render-dom-portal (rest expr) env ns) + (= name "error-boundary") + (render-dom-error-boundary (rest expr) env ns) + (= name "for-each") + (let + ((f (trampoline (eval-expr (nth expr 1) env))) + (coll (trampoline (eval-expr (nth expr 2) env))) + (frag (create-fragment))) + (for-each + (fn + (item) + (let + ((val (if (lambda? f) (render-lambda-dom f (list item) env ns) (render-to-dom (apply f (list item)) env ns)))) + (dom-append frag val))) + coll) + frag) + (= name "scope") + (let + ((scope-name (trampoline (eval-expr (nth expr 1) env))) + (rest-args (slice expr 2)) + (scope-val nil) + (body-exprs nil) + (frag (create-fragment))) + (if + (and + (>= (len rest-args) 2) + (= (type-of (first rest-args)) "keyword") + (= (keyword-name (first rest-args)) "value")) + (do + (set! scope-val (trampoline (eval-expr (nth rest-args 1) env))) + (set! body-exprs (slice rest-args 2))) + (set! body-exprs rest-args)) + (scope-push! scope-name scope-val) + (for-each + (fn (e) (dom-append frag (render-to-dom e env ns))) + body-exprs) + (scope-pop! scope-name) + frag) + (= name "provide") + (let + ((prov-name (trampoline (eval-expr (nth expr 1) env))) + (prov-val (trampoline (eval-expr (nth expr 2) env))) + (frag (create-fragment))) + (scope-push! prov-name prov-val) + (for-each + (fn (i) (dom-append frag (render-to-dom (nth expr i) env ns))) + (range 3 (len expr))) + (scope-pop! prov-name) + frag) + (= name "cyst") + (let + ((cyst-key (if (and (> (len expr) 2) (= (type-of (nth expr 1)) "keyword") (= (keyword-name (nth expr 1)) "key")) (str (trampoline (eval-expr (nth expr 2) env))) (next-cyst-id))) + (cached (get *memo-cache* cyst-key))) + (if + (and cached (host-get cached "isConnected")) + cached + (let + ((container (dom-create-element "div" nil)) + (disposers (list)) + (body-exprs + (if + (and + (> (len expr) 2) + (= (type-of (nth expr 1)) "keyword") + (= (keyword-name (nth expr 1)) "key")) + (slice expr 3) + (slice expr 1)))) + (dom-set-attr container "data-sx-cyst" cyst-key) + (let + ((body-dom (with-island-scope (fn (d) (append! disposers d)) (fn () (let ((frag (create-fragment))) (for-each (fn (child) (dom-append frag (render-to-dom child env ns))) body-exprs) frag))))) + (dom-append container body-dom) + (dom-set-data container "sx-disposers" disposers) + (dict-set! *memo-cache* cyst-key container) + container)))) + :else (render-to-dom (trampoline (eval-expr expr env)) env ns)))) -(define render-lambda-dom :effects (render) (fn ((f :as lambda) (args :as list) (env :as dict) (ns :as string)) (let ((local (env-merge (lambda-closure f) env))) (for-each-indexed (fn (i p) (env-bind! local p (nth args i))) (lambda-params f)) (render-to-dom (lambda-body f) local ns)))) +(define + render-lambda-dom + :effects (render) + (fn + ((f :as lambda) (args :as list) (env :as dict) (ns :as string)) + (let + ((local (env-merge (lambda-closure f) env))) + (for-each-indexed + (fn (i p) (env-bind! local p (nth args i))) + (lambda-params f)) + (render-to-dom (lambda-body f) local ns)))) -(define render-dom-island :effects (render mutation) (fn ((island :as island) (args :as list) (env :as dict) (ns :as string)) (let ((kwargs (dict)) (children (list))) (reduce (fn (state arg) (let ((skip (get state "skip"))) (if skip (assoc state "skip" false "i" (inc (get state "i"))) (if (and (= (type-of arg) "keyword") (< (inc (get state "i")) (len args))) (let ((val (trampoline (eval-expr (nth args (inc (get state "i"))) env)))) (dict-set! kwargs (keyword-name arg) val) (assoc state "skip" true "i" (inc (get state "i")))) (do (append! children arg) (assoc state "i" (inc (get state "i")))))))) (dict "i" 0 "skip" false) args) (let ((local (env-merge (component-closure island) env)) (island-name (component-name island))) (for-each (fn (p) (env-bind! local p (if (dict-has? kwargs p) (dict-get kwargs p) nil))) (component-params island)) (when (component-has-children? island) (let ((child-frag (create-fragment))) (for-each (fn (c) (dom-append child-frag (render-to-dom c env ns))) children) (env-bind! local "children" child-frag))) (let ((container (dom-create-element "span" nil)) (disposers (list))) (dom-set-attr container "data-sx-island" island-name) (mark-processed! container "island-hydrated") (let ((body-dom (with-island-scope (fn (disposable) (append! disposers disposable)) (fn () (render-to-dom (component-body island) local ns))))) (dom-append container body-dom) (dom-set-data container "sx-disposers" disposers) container)))))) +(define + render-dom-island + :effects (render mutation) + (fn + ((island :as island) (args :as list) (env :as dict) (ns :as string)) + (let + ((kwargs (dict)) (children (list))) + (reduce + (fn + (state arg) + (let + ((skip (get state "skip"))) + (if + skip + (assoc state "skip" false "i" (inc (get state "i"))) + (if + (and + (= (type-of arg) "keyword") + (< (inc (get state "i")) (len args))) + (let + ((val (trampoline (eval-expr (nth args (inc (get state "i"))) env)))) + (dict-set! kwargs (keyword-name arg) val) + (assoc state "skip" true "i" (inc (get state "i")))) + (do + (append! children arg) + (assoc state "i" (inc (get state "i")))))))) + (dict "i" 0 "skip" false) + args) + (let + ((local (env-merge (component-closure island) env)) + (island-name (component-name island))) + (for-each + (fn + (p) + (env-bind! + local + p + (if (dict-has? kwargs p) (dict-get kwargs p) nil))) + (component-params island)) + (when + (component-has-children? island) + (let + ((child-frag (create-fragment))) + (for-each + (fn (c) (dom-append child-frag (render-to-dom c env ns))) + children) + (env-bind! local "children" child-frag))) + (let + ((container (dom-create-element "span" nil)) (disposers (list))) + (begin + (dom-set-attr container "data-sx-island" island-name) + (when + (not (empty-dict? kwargs)) + (dom-set-attr container "data-sx-state" (sx-serialize kwargs)))) + (mark-processed! container "island-hydrated") + (let + ((body-dom (with-island-scope (fn (disposable) (append! disposers disposable)) (fn () (render-to-dom (component-body island) local ns))))) + (dom-append container body-dom) + (dom-set-data container "sx-disposers" disposers) + container)))))) -(define render-dom-lake :effects (render) (fn ((args :as list) (env :as dict) (ns :as string)) (let ((lake-id nil) (lake-tag "div") (children (list))) (reduce (fn (state arg) (let ((skip (get state "skip"))) (if skip (assoc state "skip" false "i" (inc (get state "i"))) (if (and (= (type-of arg) "keyword") (< (inc (get state "i")) (len args))) (let ((kname (keyword-name arg)) (kval (trampoline (eval-expr (nth args (inc (get state "i"))) env)))) (cond (= kname "id") (set! lake-id kval) (= kname "tag") (set! lake-tag kval)) (assoc state "skip" true "i" (inc (get state "i")))) (do (append! children arg) (assoc state "i" (inc (get state "i")))))))) (dict "i" 0 "skip" false) args) (let ((el (dom-create-element lake-tag nil))) (dom-set-attr el "data-sx-lake" (or lake-id "")) (for-each (fn (c) (dom-append el (render-to-dom c env ns))) children) el)))) +(define + render-dom-lake + :effects (render) + (fn + ((args :as list) (env :as dict) (ns :as string)) + (let + ((lake-id nil) (lake-tag "div") (children (list))) + (reduce + (fn + (state arg) + (let + ((skip (get state "skip"))) + (if + skip + (assoc state "skip" false "i" (inc (get state "i"))) + (if + (and + (= (type-of arg) "keyword") + (< (inc (get state "i")) (len args))) + (let + ((kname (keyword-name arg)) + (kval + (trampoline + (eval-expr (nth args (inc (get state "i"))) env)))) + (cond + (= kname "id") + (set! lake-id kval) + (= kname "tag") + (set! lake-tag kval)) + (assoc state "skip" true "i" (inc (get state "i")))) + (do + (append! children arg) + (assoc state "i" (inc (get state "i")))))))) + (dict "i" 0 "skip" false) + args) + (let + ((el (dom-create-element lake-tag nil))) + (dom-set-attr el "data-sx-lake" (or lake-id "")) + (for-each + (fn (c) (dom-append el (render-to-dom c env ns))) + children) + el)))) -(define render-dom-marsh :effects (render) (fn ((args :as list) (env :as dict) (ns :as string)) (let ((marsh-id nil) (marsh-tag "div") (marsh-transform nil) (children (list))) (reduce (fn (state arg) (let ((skip (get state "skip"))) (if skip (assoc state "skip" false "i" (inc (get state "i"))) (if (and (= (type-of arg) "keyword") (< (inc (get state "i")) (len args))) (let ((kname (keyword-name arg)) (kval (trampoline (eval-expr (nth args (inc (get state "i"))) env)))) (cond (= kname "id") (set! marsh-id kval) (= kname "tag") (set! marsh-tag kval) (= kname "transform") (set! marsh-transform kval)) (assoc state "skip" true "i" (inc (get state "i")))) (do (append! children arg) (assoc state "i" (inc (get state "i")))))))) (dict "i" 0 "skip" false) args) (let ((el (dom-create-element marsh-tag nil))) (dom-set-attr el "data-sx-marsh" (or marsh-id "")) (when marsh-transform (dom-set-data el "sx-marsh-transform" marsh-transform)) (dom-set-data el "sx-marsh-env" env) (for-each (fn (c) (dom-append el (render-to-dom c env ns))) children) el)))) +(define + render-dom-marsh + :effects (render) + (fn + ((args :as list) (env :as dict) (ns :as string)) + (let + ((marsh-id nil) + (marsh-tag "div") + (marsh-transform nil) + (children (list))) + (reduce + (fn + (state arg) + (let + ((skip (get state "skip"))) + (if + skip + (assoc state "skip" false "i" (inc (get state "i"))) + (if + (and + (= (type-of arg) "keyword") + (< (inc (get state "i")) (len args))) + (let + ((kname (keyword-name arg)) + (kval + (trampoline + (eval-expr (nth args (inc (get state "i"))) env)))) + (cond + (= kname "id") + (set! marsh-id kval) + (= kname "tag") + (set! marsh-tag kval) + (= kname "transform") + (set! marsh-transform kval)) + (assoc state "skip" true "i" (inc (get state "i")))) + (do + (append! children arg) + (assoc state "i" (inc (get state "i")))))))) + (dict "i" 0 "skip" false) + args) + (let + ((el (dom-create-element marsh-tag nil))) + (dom-set-attr el "data-sx-marsh" (or marsh-id "")) + (when + marsh-transform + (dom-set-data el "sx-marsh-transform" marsh-transform)) + (dom-set-data el "sx-marsh-env" env) + (for-each + (fn (c) (dom-append el (render-to-dom c env ns))) + children) + el)))) -(define reactive-text :effects (render mutation) (fn (sig) (let ((node (create-text-node (str (deref sig))))) (effect (fn () (dom-set-text-content node (str (deref sig))))) node))) +(define + reactive-text + :effects (render mutation) + (fn + (sig) + (let + ((node (create-text-node (str (deref sig))))) + (effect (fn () (dom-set-text-content node (str (deref sig))))) + node))) -(define reactive-attr :effects (render mutation) (fn (el (attr-name :as string) (compute-fn :as lambda)) (let ((existing (or (dom-get-attr el "data-sx-reactive-attrs") "")) (updated (if (empty? existing) attr-name (str existing "," attr-name)))) (dom-set-attr el "data-sx-reactive-attrs" updated)) (effect (fn () (let ((raw (compute-fn))) (let ((val (if (signal? raw) (deref raw) raw))) (cond (or (nil? val) (= val false)) (dom-remove-attr el attr-name) (= val true) (dom-set-attr el attr-name "") :else (dom-set-attr el attr-name (str val))))))))) +(define + reactive-attr + :effects (render mutation) + (fn + (el (attr-name :as string) (compute-fn :as lambda)) + (let + ((existing (or (dom-get-attr el "data-sx-reactive-attrs") "")) + (updated + (if (empty? existing) attr-name (str existing "," attr-name)))) + (dom-set-attr el "data-sx-reactive-attrs" updated)) + (effect + (fn + () + (let + ((raw (compute-fn))) + (let + ((val (if (signal? raw) (deref raw) raw))) + (cond + (or (nil? val) (= val false)) + (dom-remove-attr el attr-name) + (= val true) + (dom-set-attr el attr-name "") + :else (dom-set-attr el attr-name (str val))))))))) -(define reactive-spread :effects (render mutation) (fn (el (render-fn :as lambda)) (let ((prev-classes (list)) (prev-extra-keys (list))) (let ((existing (or (dom-get-attr el "data-sx-reactive-attrs") ""))) (dom-set-attr el "data-sx-reactive-attrs" (if (empty? existing) "_spread" (str existing ",_spread")))) (effect (fn () (when (not (empty? prev-classes)) (let ((current (or (dom-get-attr el "class") "")) (tokens (filter (fn (c) (not (= c ""))) (split current " "))) (kept (filter (fn (c) (not (some (fn (pc) (= pc c)) prev-classes))) tokens))) (if (empty? kept) (dom-remove-attr el "class") (dom-set-attr el "class" (join " " kept))))) (for-each (fn (k) (dom-remove-attr el k)) prev-extra-keys) (let ((result (render-fn))) (if (spread? result) (let ((attrs (spread-attrs result)) (cls-str (or (dict-get attrs "class") "")) (new-classes (filter (fn (c) (not (= c ""))) (split cls-str " "))) (extra-keys (filter (fn (k) (not (= k "class"))) (keys attrs)))) (set! prev-classes new-classes) (set! prev-extra-keys extra-keys) (when (not (empty? new-classes)) (let ((current (or (dom-get-attr el "class") ""))) (dom-set-attr el "class" (if (and current (not (= current ""))) (str current " " cls-str) cls-str)))) (for-each (fn (k) (dom-set-attr el k (str (dict-get attrs k)))) extra-keys) (run-post-render-hooks)) (do (set! prev-classes (list)) (set! prev-extra-keys (list)))))))))) +(define + reactive-spread + :effects (render mutation) + (fn + (el (render-fn :as lambda)) + (let + ((prev-classes (list)) (prev-extra-keys (list))) + (let + ((existing (or (dom-get-attr el "data-sx-reactive-attrs") ""))) + (dom-set-attr + el + "data-sx-reactive-attrs" + (if (empty? existing) "_spread" (str existing ",_spread")))) + (effect + (fn + () + (when + (not (empty? prev-classes)) + (let + ((current (or (dom-get-attr el "class") "")) + (tokens + (filter (fn (c) (not (= c ""))) (split current " "))) + (kept + (filter + (fn (c) (not (some (fn (pc) (= pc c)) prev-classes))) + tokens))) + (if + (empty? kept) + (dom-remove-attr el "class") + (dom-set-attr el "class" (join " " kept))))) + (for-each (fn (k) (dom-remove-attr el k)) prev-extra-keys) + (let + ((result (render-fn))) + (if + (spread? result) + (let + ((attrs (spread-attrs result)) + (cls-str (or (dict-get attrs "class") "")) + (new-classes + (filter (fn (c) (not (= c ""))) (split cls-str " "))) + (extra-keys + (filter (fn (k) (not (= k "class"))) (keys attrs)))) + (set! prev-classes new-classes) + (set! prev-extra-keys extra-keys) + (when + (not (empty? new-classes)) + (let + ((current (or (dom-get-attr el "class") ""))) + (dom-set-attr + el + "class" + (if + (and current (not (= current ""))) + (str current " " cls-str) + cls-str)))) + (for-each + (fn (k) (dom-set-attr el k (str (dict-get attrs k)))) + extra-keys) + (run-post-render-hooks)) + (do (set! prev-classes (list)) (set! prev-extra-keys (list)))))))))) -(define reactive-fragment :effects (render mutation) (fn ((test-fn :as lambda) (render-fn :as lambda) (env :as dict) (ns :as string)) (let ((marker (create-comment "island-fragment")) (current-nodes (list))) (effect (fn () (for-each (fn (n) (dom-remove n)) current-nodes) (set! current-nodes (list)) (when (test-fn) (let ((frag (render-fn))) (set! current-nodes (dom-child-nodes frag)) (dom-insert-after marker frag))))) marker))) +(define + reactive-fragment + :effects (render mutation) + (fn + ((test-fn :as lambda) + (render-fn :as lambda) + (env :as dict) + (ns :as string)) + (let + ((marker (create-comment "island-fragment")) (current-nodes (list))) + (effect + (fn + () + (for-each (fn (n) (dom-remove n)) current-nodes) + (set! current-nodes (list)) + (when + (test-fn) + (let + ((frag (render-fn))) + (set! current-nodes (dom-child-nodes frag)) + (dom-insert-after marker frag))))) + marker))) -(define render-list-item :effects (render) (fn ((map-fn :as lambda) item (env :as dict) (ns :as string)) (if (lambda? map-fn) (render-lambda-dom map-fn (list item) env ns) (render-to-dom (apply map-fn (list item)) env ns)))) +(define + render-list-item + :effects (render) + (fn + ((map-fn :as lambda) item (env :as dict) (ns :as string)) + (if + (lambda? map-fn) + (render-lambda-dom map-fn (list item) env ns) + (render-to-dom (apply map-fn (list item)) env ns)))) -(define extract-key :effects (render) (fn (node (index :as number)) (let ((k (dom-get-attr node "key"))) (if k (do (dom-remove-attr node "key") k) (let ((dk (dom-get-data node "key"))) (if dk (str dk) (str "__idx_" index))))))) +(define + extract-key + :effects (render) + (fn + (node (index :as number)) + (let + ((k (dom-get-attr node "key"))) + (if + k + (do (dom-remove-attr node "key") k) + (let + ((dk (dom-get-data node "key"))) + (if dk (str dk) (str "__idx_" index))))))) -(define reactive-list :effects (render mutation) (fn ((map-fn :as lambda) (items-sig :as signal) (env :as dict) (ns :as string)) (let ((container (create-fragment)) (marker (create-comment "island-list")) (key-map (dict)) (key-order (list))) (dom-append container marker) (effect (fn () (let ((items (deref items-sig))) (if (dom-parent marker) (let ((new-map (dict)) (new-keys (list)) (has-keys false)) (for-each-indexed (fn (idx item) (let ((rendered (render-list-item map-fn item env ns)) (key (extract-key rendered idx))) (when (and (not has-keys) (not (starts-with? key "__idx_"))) (set! has-keys true)) (if (dict-has? key-map key) (dict-set! new-map key (dict-get key-map key)) (dict-set! new-map key rendered)) (append! new-keys key))) items) (if (not has-keys) (do (dom-remove-children-after marker) (let ((frag (create-fragment))) (for-each (fn (k) (dom-append frag (dict-get new-map k))) new-keys) (dom-insert-after marker frag))) (do (for-each (fn (old-key) (when (not (dict-has? new-map old-key)) (dom-remove (dict-get key-map old-key)))) key-order) (let ((cursor marker)) (for-each (fn (k) (let ((node (dict-get new-map k)) (next (dom-next-sibling cursor))) (when (not (identical? node next)) (dom-insert-after cursor node)) (set! cursor node))) new-keys)))) (set! key-map new-map) (set! key-order new-keys)) (for-each-indexed (fn (idx item) (let ((rendered (render-list-item map-fn item env ns)) (key (extract-key rendered idx))) (dict-set! key-map key rendered) (append! key-order key) (dom-append container rendered))) items))))) container))) +(define + reactive-list + :effects (render mutation) + (fn + ((map-fn :as lambda) + (items-sig :as signal) + (env :as dict) + (ns :as string)) + (let + ((container (create-fragment)) + (marker (create-comment "island-list")) + (key-map (dict)) + (key-order (list))) + (dom-append container marker) + (effect + (fn + () + (let + ((items (deref items-sig))) + (if + (dom-parent marker) + (let + ((new-map (dict)) (new-keys (list)) (has-keys false)) + (for-each-indexed + (fn + (idx item) + (let + ((rendered (render-list-item map-fn item env ns)) + (key (extract-key rendered idx))) + (when + (and + (not has-keys) + (not (starts-with? key "__idx_"))) + (set! has-keys true)) + (if + (dict-has? key-map key) + (dict-set! new-map key (dict-get key-map key)) + (dict-set! new-map key rendered)) + (append! new-keys key))) + items) + (if + (not has-keys) + (do + (dom-remove-children-after marker) + (let + ((frag (create-fragment))) + (for-each + (fn (k) (dom-append frag (dict-get new-map k))) + new-keys) + (dom-insert-after marker frag))) + (do + (for-each + (fn + (old-key) + (when + (not (dict-has? new-map old-key)) + (dom-remove (dict-get key-map old-key)))) + key-order) + (let + ((cursor marker)) + (for-each + (fn + (k) + (let + ((node (dict-get new-map k)) + (next (dom-next-sibling cursor))) + (when + (not (identical? node next)) + (dom-insert-after cursor node)) + (set! cursor node))) + new-keys)))) + (set! key-map new-map) + (set! key-order new-keys)) + (for-each-indexed + (fn + (idx item) + (let + ((rendered (render-list-item map-fn item env ns)) + (key (extract-key rendered idx))) + (dict-set! key-map key rendered) + (append! key-order key) + (dom-append container rendered))) + items))))) + container))) -(define bind-input :effects (render mutation) (fn (el (sig :as signal)) (let ((input-type (lower (or (dom-get-attr el "type") ""))) (is-checkbox (or (= input-type "checkbox") (= input-type "radio")))) (if is-checkbox (dom-set-prop el "checked" (deref sig)) (dom-set-prop el "value" (str (deref sig)))) (effect (fn () (if is-checkbox (dom-set-prop el "checked" (deref sig)) (let ((v (str (deref sig)))) (when (!= (dom-get-prop el "value") v) (dom-set-prop el "value" v)))))) (dom-on el (if is-checkbox "change" "input") (fn (e) (if is-checkbox (reset! sig (dom-get-prop el "checked")) (reset! sig (dom-get-prop el "value")))))))) +(define + bind-input + :effects (render mutation) + (fn + (el (sig :as signal)) + (let + ((input-type (lower (or (dom-get-attr el "type") ""))) + (is-checkbox (or (= input-type "checkbox") (= input-type "radio")))) + (if + is-checkbox + (dom-set-prop el "checked" (deref sig)) + (dom-set-prop el "value" (str (deref sig)))) + (effect + (fn + () + (if + is-checkbox + (dom-set-prop el "checked" (deref sig)) + (let + ((v (str (deref sig)))) + (when + (!= (dom-get-prop el "value") v) + (dom-set-prop el "value" v)))))) + (dom-on + el + (if is-checkbox "change" "input") + (fn + (e) + (if + is-checkbox + (reset! sig (dom-get-prop el "checked")) + (reset! sig (dom-get-prop el "value")))))))) (define *use-cek-reactive* true) (define enable-cek-reactive! (fn () (set! *use-cek-reactive* true))) -(define cek-reactive-text :effects (render mutation) (fn (expr env) (let ((node (create-text-node "")) (update-fn (fn (val) (dom-set-text-content node (str val))))) (let ((initial (cek-run (make-cek-state expr env (list (make-reactive-reset-frame env update-fn true)))))) (dom-set-text-content node (str initial)) node)))) +(define + cek-reactive-text + :effects (render mutation) + (fn + (expr env) + (let + ((node (create-text-node "")) + (update-fn (fn (val) (dom-set-text-content node (str val))))) + (let + ((initial (cek-run (make-cek-state expr env (list (make-reactive-reset-frame env update-fn true)))))) + (dom-set-text-content node (str initial)) + node)))) -(define cek-reactive-attr :effects (render mutation) (fn (el attr-name expr env) (let ((update-fn (fn (val) (cond (or (nil? val) (= val false)) (dom-remove-attr el attr-name) (= val true) (dom-set-attr el attr-name "") :else (dom-set-attr el attr-name (str val)))))) (let ((existing (or (dom-get-attr el "data-sx-reactive-attrs") "")) (updated (if (empty? existing) attr-name (str existing "," attr-name)))) (dom-set-attr el "data-sx-reactive-attrs" updated)) (let ((initial (cek-run (make-cek-state expr env (list (make-reactive-reset-frame env update-fn true)))))) (cek-call update-fn (list initial)))))) +(define + cek-reactive-attr + :effects (render mutation) + (fn + (el attr-name expr env) + (let + ((update-fn (fn (val) (cond (or (nil? val) (= val false)) (dom-remove-attr el attr-name) (= val true) (dom-set-attr el attr-name "") :else (dom-set-attr el attr-name (str val)))))) + (let + ((existing (or (dom-get-attr el "data-sx-reactive-attrs") "")) + (updated + (if (empty? existing) attr-name (str existing "," attr-name)))) + (dom-set-attr el "data-sx-reactive-attrs" updated)) + (let + ((initial (cek-run (make-cek-state expr env (list (make-reactive-reset-frame env update-fn true)))))) + (cek-call update-fn (list initial)))))) -(define render-dom-portal :effects (render) (fn ((args :as list) (env :as dict) (ns :as string)) (let ((selector (trampoline (eval-expr (first args) env))) (target (or (dom-query selector) (dom-ensure-element selector)))) (if (not target) (create-comment (str "portal: " selector " (not found)")) (let ((marker (create-comment (str "portal: " selector))) (frag (create-fragment))) (for-each (fn (child) (dom-append frag (render-to-dom child env ns))) (rest args)) (let ((portal-nodes (dom-child-nodes frag))) (dom-append target frag) (register-in-scope (fn () (for-each (fn (n) (dom-remove n)) portal-nodes)))) marker))))) +(define + render-dom-portal + :effects (render) + (fn + ((args :as list) (env :as dict) (ns :as string)) + (let + ((selector (trampoline (eval-expr (first args) env))) + (target (or (dom-query selector) (dom-ensure-element selector)))) + (if + (not target) + (create-comment (str "portal: " selector " (not found)")) + (let + ((marker (create-comment (str "portal: " selector))) + (frag (create-fragment))) + (for-each + (fn (child) (dom-append frag (render-to-dom child env ns))) + (rest args)) + (let + ((portal-nodes (dom-child-nodes frag))) + (dom-append target frag) + (register-in-scope + (fn () (for-each (fn (n) (dom-remove n)) portal-nodes)))) + marker))))) -(define render-dom-error-boundary :effects (render) (fn ((args :as list) (env :as dict) (ns :as string)) (let ((fallback-expr (first args)) (body-exprs (rest args)) (container (dom-create-element "div" nil)) (retry-version (signal 0))) (dom-set-attr container "data-sx-boundary" "true") (effect (fn () (deref retry-version) (dom-set-prop container "innerHTML" "") (scope-push! "sx-island-scope" nil) (try-catch (fn () (let ((frag (create-fragment))) (for-each (fn (child) (dom-append frag (render-to-dom child env ns))) body-exprs) (dom-append container frag)) (scope-pop! "sx-island-scope")) (fn (err) (scope-pop! "sx-island-scope") (let ((fallback-fn (trampoline (eval-expr fallback-expr env))) (retry-fn (fn () (swap! retry-version (fn (n) (+ n 1)))))) (let ((fallback-dom (if (lambda? fallback-fn) (render-lambda-dom fallback-fn (list err retry-fn) env ns) (render-to-dom (apply fallback-fn (list err retry-fn)) env ns)))) (dom-append container fallback-dom))))))) container))) +(define + render-dom-error-boundary + :effects (render) + (fn + ((args :as list) (env :as dict) (ns :as string)) + (let + ((fallback-expr (first args)) + (body-exprs (rest args)) + (container (dom-create-element "div" nil)) + (retry-version (signal 0))) + (dom-set-attr container "data-sx-boundary" "true") + (effect + (fn + () + (deref retry-version) + (dom-set-prop container "innerHTML" "") + (scope-push! "sx-island-scope" nil) + (try-catch + (fn + () + (let + ((frag (create-fragment))) + (for-each + (fn + (child) + (dom-append frag (render-to-dom child env ns))) + body-exprs) + (dom-append container frag)) + (scope-pop! "sx-island-scope")) + (fn + (err) + (scope-pop! "sx-island-scope") + (let + ((fallback-fn (trampoline (eval-expr fallback-expr env))) + (retry-fn + (fn () (swap! retry-version (fn (n) (+ n 1)))))) + (let + ((fallback-dom (if (lambda? fallback-fn) (render-lambda-dom fallback-fn (list err retry-fn) env ns) (render-to-dom (apply fallback-fn (list err retry-fn)) env ns)))) + (dom-append container fallback-dom))))))) + container))) diff --git a/shared/static/wasm/sx/adapter-dom.sxbc b/shared/static/wasm/sx/adapter-dom.sxbc deleted file mode 100644 index ea1774ff..00000000 --- a/shared/static/wasm/sx/adapter-dom.sxbc +++ /dev/null @@ -1,1184 +0,0 @@ -(sxbc 1 "3bc60b6ea15ee2ba" - (code - :bytecode (1 1 0 128 0 0 5 1 3 0 128 2 0 5 51 5 0 128 4 0 5 52 7 0 0 128 6 0 5 1 9 0 128 8 0 5 51 11 0 128 10 0 5 51 13 0 128 12 0 5 51 15 0 128 14 0 5 51 17 0 128 16 0 5 51 19 0 128 18 0 5 51 21 0 128 20 0 5 51 23 0 128 22 0 5 51 25 0 128 24 0 5 51 27 0 128 26 0 5 51 29 0 128 28 0 5 1 32 0 1 33 0 1 34 0 1 35 0 1 36 0 1 37 0 1 38 0 1 39 0 1 40 0 1 41 0 1 42 0 1 43 0 1 44 0 1 45 0 1 46 0 1 47 0 1 48 0 1 49 0 1 50 0 1 51 0 1 52 0 1 53 0 1 54 0 52 31 0 23 128 30 0 5 51 56 0 128 55 0 5 51 58 0 128 57 0 5 51 60 0 128 59 0 5 51 62 0 128 61 0 5 51 64 0 128 63 0 5 51 66 0 128 65 0 5 51 68 0 128 67 0 5 51 70 0 128 69 0 5 51 72 0 128 71 0 5 51 74 0 128 73 0 5 51 76 0 128 75 0 5 51 78 0 128 77 0 5 51 80 0 128 79 0 5 51 82 0 128 81 0 5 3 128 83 0 5 51 85 0 128 84 0 5 51 87 0 128 86 0 5 51 89 0 128 88 0 5 51 91 0 128 90 0 5 51 93 0 128 92 0 50) - :constants ( - "SVG_NS" - "http://www.w3.org/2000/svg" - "MATH_NS" - "http://www.w3.org/1998/Math/MathML" - "island-scope?" - (code - :bytecode (1 3 0 52 2 0 1 52 1 0 1 52 0 0 1 50) - :constants ( - "not" - "nil?" - "scope-peek" - "sx-island-scope")) - "*memo-cache*" - "dict" - "*cyst-counter*" - 0 - "next-cyst-id" - (code - :bytecode (20 1 0 1 2 0 52 0 0 2 21 1 0 5 1 4 0 20 1 0 52 3 0 2 50) - :constants ( - "+" - "*cyst-counter*" - 1 - "str" - "sx-cyst-")) - "contains-deref?" - (code :arity 1 - :bytecode (16 0 52 1 0 1 52 0 0 1 33 4 0 4 32 69 0 16 0 52 2 0 1 33 4 0 4 32 56 0 16 0 52 5 0 1 52 4 0 1 1 6 0 52 3 0 2 6 33 19 0 5 20 7 0 16 0 52 5 0 1 48 1 1 8 0 52 3 0 2 33 4 0 3 32 9 0 20 10 0 16 0 52 9 0 2 50) - :constants ( - "not" - "list?" - "empty?" - "=" - "type-of" - "first" - "symbol" - "symbol-name" - "deref" - "some" - "contains-deref?")) - "dom-on" - (code :arity 3 - :bytecode (20 0 0 16 0 16 1 16 2 52 1 0 1 33 36 0 1 3 0 16 2 52 5 0 1 52 4 0 1 52 2 0 2 33 8 0 51 6 0 1 2 32 5 0 51 7 0 1 2 32 2 0 16 2 49 3 50) - :constants ( - "dom-listen" - "lambda?" - "=" - 0 - "len" - "lambda-params" - (code :arity 1 :upvalue-count 1 - :bytecode (20 0 0 20 1 0 18 0 52 2 0 0 48 2 48 1 5 20 3 0 49 0 50) - :constants ( - "trampoline" - "call-lambda" - "list" - "run-post-render-hooks")) - (code :arity 1 :upvalue-count 1 - :bytecode (20 0 0 20 1 0 18 0 16 0 52 2 0 1 48 2 48 1 5 20 3 0 49 0 50) - :constants ( - "trampoline" - "call-lambda" - "list" - "run-post-render-hooks")))) - "render-to-dom" - (code :arity 3 - :bytecode (20 0 0 3 48 1 5 16 0 52 1 0 1 6 1 2 0 52 3 0 2 33 9 0 5 20 4 0 49 0 32 106 1 6 1 5 0 52 3 0 2 33 9 0 5 20 4 0 49 0 32 86 1 6 1 6 0 52 3 0 2 33 15 0 5 20 7 0 16 0 52 8 0 1 49 1 32 60 1 6 1 9 0 52 3 0 2 33 11 0 5 20 10 0 16 0 49 1 32 38 1 6 1 11 0 52 3 0 2 33 15 0 5 20 10 0 16 0 52 12 0 1 49 1 32 12 1 6 1 13 0 52 3 0 2 33 27 0 5 20 14 0 20 15 0 20 16 0 16 0 16 1 48 2 48 1 16 1 16 2 49 3 32 230 0 6 1 17 0 52 3 0 2 33 16 0 5 20 10 0 20 18 0 16 0 48 1 49 1 32 203 0 6 1 19 0 52 3 0 2 33 6 0 5 16 0 32 186 0 6 1 20 0 52 3 0 2 33 36 0 5 20 22 0 48 0 52 21 0 1 33 16 0 1 24 0 16 0 52 25 0 1 52 23 0 2 32 1 0 2 5 16 0 32 139 0 6 1 26 0 52 3 0 2 33 26 0 5 16 0 1 28 0 52 27 0 2 33 5 0 16 0 32 5 0 20 4 0 49 0 32 102 0 6 1 29 0 52 3 0 2 33 32 0 5 16 0 52 30 0 1 33 8 0 20 4 0 49 0 32 11 0 20 31 0 16 0 16 1 16 2 49 3 32 59 0 5 20 32 0 16 0 48 1 33 37 0 20 22 0 48 0 33 10 0 20 33 0 16 0 49 1 32 16 0 20 10 0 20 34 0 16 0 48 1 52 12 0 1 49 1 32 11 0 20 10 0 16 0 52 12 0 1 49 1 50) - :constants ( - "set-render-active!" - "type-of" - "nil" - "=" - "create-fragment" - "boolean" - "raw-html" - "dom-parse-html" - "raw-html-content" - "string" - "create-text-node" - "number" - "str" - "symbol" - "render-to-dom" - "trampoline" - "eval-expr" - "keyword" - "keyword-name" - "dom-node" - "spread" - "not" - "island-scope?" - "scope-emit!" - "element-attrs" - "spread-attrs" - "dict" - "has-key?" - "__host_handle" - "list" - "empty?" - "render-dom-list" - "signal?" - "reactive-text" - "deref")) - "render-dom-list" - (code :arity 3 - :bytecode (16 0 52 0 0 1 17 3 16 3 52 2 0 1 1 3 0 52 1 0 2 33 253 2 20 4 0 16 3 48 1 17 4 16 0 52 5 0 1 17 5 16 4 1 6 0 52 1 0 2 33 12 0 20 7 0 16 5 16 1 49 2 32 209 2 16 4 1 8 0 52 1 0 2 33 14 0 20 9 0 16 5 16 1 16 2 49 3 32 183 2 16 4 1 10 0 52 1 0 2 33 14 0 20 11 0 16 5 16 1 16 2 49 3 32 157 2 16 4 1 12 0 52 1 0 2 33 14 0 20 13 0 16 5 16 1 16 2 49 3 32 131 2 16 4 1 15 0 52 14 0 2 33 23 0 20 16 0 16 4 1 18 0 52 17 0 2 16 5 16 1 16 2 49 4 32 96 2 20 19 0 16 4 48 1 33 91 0 20 21 0 16 4 52 20 0 2 6 33 43 0 5 16 5 52 23 0 1 1 24 0 52 22 0 2 6 33 18 0 5 16 5 52 0 0 1 52 2 0 1 1 25 0 52 1 0 2 6 34 3 0 5 16 2 33 16 0 20 16 0 16 4 16 5 16 1 16 2 49 4 32 13 0 20 26 0 16 4 16 0 16 1 16 2 49 4 32 251 1 20 27 0 16 1 16 4 48 2 6 33 14 0 5 20 29 0 16 1 16 4 48 2 52 28 0 1 33 30 0 20 30 0 20 31 0 20 29 0 16 1 16 4 48 2 16 5 16 1 48 3 16 1 16 2 49 3 32 191 1 20 21 0 16 4 52 20 0 2 33 16 0 20 16 0 16 4 16 5 16 1 16 2 49 4 32 163 1 16 4 1 32 0 52 14 0 2 6 33 28 0 5 20 27 0 16 1 16 4 48 2 6 33 14 0 5 20 29 0 16 1 16 4 48 2 52 33 0 1 33 77 0 1 35 0 52 34 0 1 33 44 0 20 29 0 16 1 16 4 48 2 17 6 20 36 0 1 37 0 2 48 2 17 7 20 38 0 16 7 1 39 0 16 6 52 40 0 1 48 3 5 16 7 32 20 0 20 41 0 20 29 0 16 1 16 4 48 2 16 5 16 1 16 2 49 4 32 42 1 16 4 1 32 0 52 14 0 2 33 46 0 20 29 0 16 1 16 4 48 2 17 6 16 6 52 42 0 1 33 16 0 20 43 0 16 6 16 5 16 1 16 2 49 4 32 7 0 20 44 0 16 4 49 1 32 240 0 16 4 1 46 0 52 45 0 2 1 24 0 52 22 0 2 6 33 36 0 5 16 5 52 23 0 1 1 24 0 52 22 0 2 6 33 18 0 5 16 5 52 0 0 1 52 2 0 1 1 25 0 52 1 0 2 33 16 0 20 16 0 16 4 16 5 16 1 16 2 49 4 32 165 0 16 2 33 16 0 20 16 0 16 4 16 5 16 1 16 2 49 4 32 144 0 16 4 1 47 0 52 1 0 2 6 33 6 0 5 20 48 0 48 0 33 59 0 20 49 0 20 50 0 16 5 52 0 0 1 16 1 48 2 48 1 17 6 20 51 0 16 6 48 1 33 10 0 20 52 0 16 6 49 1 32 16 0 20 53 0 20 47 0 16 6 48 1 52 54 0 1 49 1 32 63 0 20 48 0 48 0 6 33 8 0 5 20 55 0 16 0 48 1 33 20 0 20 52 0 20 56 0 51 57 0 1 0 1 1 48 1 49 1 32 23 0 20 30 0 20 49 0 20 50 0 16 0 16 1 48 2 48 1 16 1 16 2 49 3 32 78 0 16 3 52 58 0 1 6 34 14 0 5 16 3 52 2 0 1 1 59 0 52 1 0 2 33 26 0 20 30 0 20 49 0 20 50 0 16 0 16 1 48 2 48 1 16 1 16 2 49 3 32 25 0 20 60 0 48 0 17 4 51 62 0 1 1 1 2 1 4 16 0 52 61 0 2 5 16 4 50) - :constants ( - "first" - "=" - "type-of" - "symbol" - "symbol-name" - "rest" - "raw!" - "render-dom-raw" - "<>" - "render-dom-fragment" - "lake" - "render-dom-lake" - "marsh" - "render-dom-marsh" - "starts-with?" - "html:" - "render-dom-element" - "slice" - 5 - "render-dom-form?" - "contains?" - "HTML_TAGS" - ">" - "len" - 0 - "keyword" - "dispatch-render-form" - "env-has?" - "macro?" - "env-get" - "render-to-dom" - "expand-macro" - "~" - "island?" - "scope-peek" - "sx-render-markers" - "dom-create-element" - "span" - "dom-set-attr" - "data-sx-island" - "component-name" - "render-dom-island" - "component?" - "render-dom-component" - "render-dom-unknown-component" - "index-of" - "-" - "deref" - "island-scope?" - "trampoline" - "eval-expr" - "signal?" - "reactive-text" - "create-text-node" - "str" - "contains-deref?" - "computed" - (code :upvalue-count 2 - :bytecode (20 0 0 20 1 0 18 0 18 1 48 2 49 1 50) - :constants ( - "trampoline" - "eval-expr")) - "lambda?" - "list" - "create-fragment" - "for-each" - (code :arity 1 :upvalue-count 3 - :bytecode (20 0 0 16 0 18 0 18 1 48 3 17 1 16 1 52 2 0 1 52 1 0 1 33 12 0 20 3 0 18 2 16 1 49 2 32 1 0 2 50) - :constants ( - "render-to-dom" - "not" - "spread?" - "dom-append")))) - "render-dom-element" - (code :arity 4 - :bytecode (16 0 1 1 0 52 0 0 2 33 6 0 20 2 0 32 20 0 16 0 1 3 0 52 0 0 2 33 6 0 20 4 0 32 2 0 16 3 17 4 20 5 0 16 0 16 4 48 2 17 5 1 7 0 2 52 6 0 2 5 51 9 0 1 1 1 2 1 5 1 0 1 4 1 11 0 1 12 0 1 13 0 4 52 10 0 4 16 1 52 8 0 3 5 51 15 0 1 5 1 7 0 52 16 0 1 52 14 0 2 5 1 7 0 52 17 0 1 5 16 5 50) - :constants ( - "=" - "svg" - "SVG_NS" - "math" - "MATH_NS" - "dom-create-element" - "scope-push!" - "element-attrs" - "reduce" - (code :arity 2 :upvalue-count 5 - :bytecode (16 0 1 1 0 52 0 0 2 17 2 16 2 33 29 0 16 0 1 1 0 4 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 58 2 16 1 52 6 0 1 1 7 0 52 5 0 2 6 33 24 0 5 16 0 1 3 0 52 0 0 2 52 4 0 1 18 0 52 9 0 1 52 8 0 2 33 154 1 20 10 0 16 1 48 1 17 3 18 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 11 0 2 17 4 16 3 1 13 0 52 12 0 2 33 51 0 20 14 0 20 15 0 16 4 18 1 48 2 48 1 17 5 20 16 0 16 5 48 1 33 21 0 20 17 0 18 2 16 3 1 19 0 52 18 0 2 16 5 48 3 32 1 0 2 32 31 1 16 3 1 20 0 52 5 0 2 33 42 0 20 14 0 20 15 0 16 4 18 1 48 2 48 1 17 5 20 21 0 16 5 48 1 33 12 0 20 22 0 18 2 16 5 48 2 32 1 0 2 32 233 0 16 3 1 23 0 52 5 0 2 33 30 0 20 14 0 20 15 0 16 4 18 1 48 2 48 1 17 5 16 5 1 25 0 18 2 52 24 0 3 32 191 0 16 3 1 26 0 52 5 0 2 33 35 0 20 14 0 20 15 0 16 4 18 1 48 2 48 1 17 5 20 27 0 18 2 1 26 0 16 5 52 28 0 1 48 3 32 144 0 20 29 0 48 0 33 19 0 20 30 0 18 2 16 3 51 31 0 1 4 0 1 48 3 32 117 0 20 14 0 20 15 0 16 4 18 1 48 2 48 1 17 5 16 5 52 32 0 1 6 34 8 0 5 16 5 4 52 5 0 2 33 4 0 2 32 76 0 20 34 0 16 3 52 33 0 2 33 24 0 16 5 33 15 0 20 27 0 18 2 16 3 1 35 0 48 3 32 1 0 2 32 40 0 16 5 3 52 5 0 2 33 15 0 20 27 0 18 2 16 3 1 35 0 48 3 32 15 0 20 27 0 18 2 16 3 16 5 52 28 0 1 48 3 5 16 0 1 1 0 3 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 116 0 20 37 0 18 3 52 33 0 2 52 36 0 1 33 76 0 20 38 0 16 1 18 1 18 4 48 3 17 3 16 3 52 39 0 1 6 33 6 0 5 20 29 0 48 0 33 19 0 20 40 0 18 2 51 41 0 1 1 0 1 0 4 48 2 32 22 0 16 3 52 39 0 1 33 4 0 2 32 9 0 20 42 0 18 2 16 3 48 2 32 1 0 2 5 16 0 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 3 50) - :constants ( - "get" - "skip" - "assoc" - "i" - "inc" - "=" - "type-of" - "keyword" - "<" - "len" - "keyword-name" - "nth" - "starts-with?" - "on-" - "trampoline" - "eval-expr" - "callable?" - "dom-on" - "slice" - 3 - "bind" - "signal?" - "bind-input" - "ref" - "dict-set!" - "current" - "key" - "dom-set-attr" - "str" - "island-scope?" - "reactive-attr" - (code :upvalue-count 2 - :bytecode (20 0 0 20 1 0 18 0 18 1 48 2 49 1 50) - :constants ( - "trampoline" - "eval-expr")) - "nil?" - "contains?" - "BOOLEAN_ATTRS" - "" - "not" - "VOID_ELEMENTS" - "render-to-dom" - "spread?" - "reactive-spread" - (code :upvalue-count 3 - :bytecode (20 0 0 18 0 18 1 18 2 49 3 50) - :constants ( - "render-to-dom")) - "dom-append")) - "dict" - "i" - 0 - "skip" - "for-each" - (code :arity 1 :upvalue-count 1 - :bytecode (51 1 0 1 0 0 0 16 0 52 2 0 1 52 0 0 2 50) - :constants ( - "for-each" - (code :arity 1 :upvalue-count 2 - :bytecode (18 0 16 0 52 0 0 2 17 1 16 0 1 2 0 52 1 0 2 33 64 0 20 3 0 18 1 1 2 0 48 2 17 2 20 4 0 18 1 1 2 0 16 2 6 33 14 0 5 16 2 1 6 0 52 1 0 2 52 5 0 1 33 14 0 16 2 1 8 0 16 1 52 7 0 3 32 2 0 16 1 49 3 32 91 0 16 0 1 9 0 52 1 0 2 33 64 0 20 3 0 18 1 1 9 0 48 2 17 2 20 4 0 18 1 1 9 0 16 2 6 33 14 0 5 16 2 1 6 0 52 1 0 2 52 5 0 1 33 14 0 16 2 1 10 0 16 1 52 7 0 3 32 2 0 16 1 49 3 32 15 0 20 4 0 18 1 16 0 16 1 52 7 0 1 49 3 50) - :constants ( - "dict-get" - "=" - "class" - "dom-get-attr" - "dom-set-attr" - "not" - "" - "str" - " " - "style" - ";")) - "keys")) - "scope-emitted" - "scope-pop!")) - "render-dom-component" - (code :arity 4 - :bytecode (52 0 0 0 17 4 52 1 0 0 17 5 51 3 0 1 1 1 2 1 4 1 5 1 4 0 1 5 0 1 6 0 4 52 0 0 4 16 1 52 2 0 3 5 20 7 0 16 0 52 8 0 1 16 2 48 2 17 6 51 10 0 1 6 1 4 16 0 52 11 0 1 52 9 0 2 5 16 0 52 12 0 1 33 38 0 20 13 0 48 0 17 7 51 14 0 1 2 1 3 1 7 16 5 52 9 0 2 5 20 15 0 16 6 1 16 0 16 7 48 3 32 1 0 2 5 20 17 0 16 0 52 18 0 1 16 6 16 3 49 3 50) - :constants ( - "dict" - "list" - "reduce" - (code :arity 2 :upvalue-count 4 - :bytecode (16 0 1 1 0 52 0 0 2 17 2 16 2 33 29 0 16 0 1 1 0 4 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 154 0 16 1 52 6 0 1 1 7 0 52 5 0 2 6 33 24 0 5 16 0 1 3 0 52 0 0 2 52 4 0 1 18 0 52 9 0 1 52 8 0 2 33 78 0 20 10 0 20 11 0 18 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 12 0 2 18 1 48 2 48 1 17 3 18 2 20 14 0 16 1 48 1 16 3 52 13 0 3 5 16 0 1 1 0 3 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 32 0 20 15 0 18 3 16 1 48 2 5 16 0 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 3 50) - :constants ( - "get" - "skip" - "assoc" - "i" - "inc" - "=" - "type-of" - "keyword" - "<" - "len" - "trampoline" - "eval-expr" - "nth" - "dict-set!" - "keyword-name" - "append!")) - "i" - 0 - "skip" - "env-merge" - "component-closure" - "for-each" - (code :arity 1 :upvalue-count 2 - :bytecode (20 0 0 18 0 16 0 18 1 16 0 52 1 0 2 33 11 0 18 1 16 0 52 2 0 2 32 1 0 2 49 3 50) - :constants ( - "env-bind!" - "dict-has?" - "dict-get")) - "component-params" - "component-has-children?" - "create-fragment" - (code :arity 1 :upvalue-count 3 - :bytecode (20 0 0 16 0 18 0 18 1 48 3 17 1 16 1 52 2 0 1 52 1 0 1 33 12 0 20 3 0 18 2 16 1 49 2 32 1 0 2 50) - :constants ( - "render-to-dom" - "not" - "spread?" - "dom-append")) - "env-bind!" - "children" - "render-to-dom" - "component-body")) - "render-dom-fragment" - (code :arity 3 - :bytecode (20 0 0 48 0 17 3 51 2 0 1 1 1 2 1 3 16 0 52 1 0 2 5 16 3 50) - :constants ( - "create-fragment" - "for-each" - (code :arity 1 :upvalue-count 3 - :bytecode (20 0 0 16 0 18 0 18 1 48 3 17 1 16 1 52 2 0 1 52 1 0 1 33 12 0 20 3 0 18 2 16 1 49 2 32 1 0 2 50) - :constants ( - "render-to-dom" - "not" - "spread?" - "dom-append")))) - "render-dom-raw" - (code :arity 2 - :bytecode (20 0 0 48 0 17 2 51 2 0 1 1 1 2 16 0 52 1 0 2 5 16 2 50) - :constants ( - "create-fragment" - "for-each" - (code :arity 1 :upvalue-count 2 - :bytecode (20 0 0 20 1 0 16 0 18 0 48 2 48 1 17 1 16 1 52 3 0 1 1 4 0 52 2 0 2 33 17 0 20 5 0 18 1 20 6 0 16 1 48 1 49 2 32 68 0 16 1 52 3 0 1 1 7 0 52 2 0 2 33 17 0 20 5 0 18 1 20 8 0 16 1 48 1 49 2 32 35 0 16 1 52 10 0 1 52 9 0 1 33 21 0 20 5 0 18 1 20 11 0 16 1 52 12 0 1 48 1 49 2 32 1 0 2 50) - :constants ( - "trampoline" - "eval-expr" - "=" - "type-of" - "string" - "dom-append" - "dom-parse-html" - "dom-node" - "dom-clone" - "not" - "nil?" - "create-text-node" - "str")))) - "render-dom-unknown-component" - (code :arity 1 - :bytecode (1 2 0 16 0 52 1 0 2 52 0 0 1 50) - :constants ( - "error" - "str" - "Unknown component: ")) - "RENDER_DOM_FORMS" - "list" - "if" - "when" - "cond" - "case" - "let" - "let*" - "letrec" - "begin" - "do" - "define" - "defcomp" - "defisland" - "defmacro" - "defstyle" - "map" - "map-indexed" - "filter" - "for-each" - "portal" - "error-boundary" - "scope" - "provide" - "cyst" - "render-dom-form?" - (code :arity 1 - :bytecode (20 1 0 16 0 52 0 0 2 50) - :constants ( - "contains?" - "RENDER_DOM_FORMS")) - "dispatch-render-form" - (code :arity 4 - :bytecode (16 0 1 1 0 52 0 0 2 33 226 0 20 2 0 48 0 33 124 0 20 3 0 1 4 0 48 1 17 4 52 5 0 0 17 5 2 17 6 20 6 0 51 7 0 1 1 1 2 1 3 1 4 1 5 1 6 48 1 5 16 6 52 8 0 1 33 5 0 16 6 32 67 0 20 9 0 48 0 17 7 20 10 0 16 7 16 4 48 2 5 16 6 33 41 0 20 11 0 16 6 48 1 33 10 0 20 12 0 16 6 48 1 32 6 0 16 6 52 5 0 1 17 5 5 20 10 0 16 7 16 6 48 2 32 1 0 2 5 16 7 32 91 0 20 13 0 20 14 0 16 1 1 16 0 52 15 0 2 16 2 48 2 48 1 17 4 16 4 33 21 0 20 17 0 16 1 1 18 0 52 15 0 2 16 2 16 3 49 3 32 42 0 16 1 52 20 0 1 1 21 0 52 19 0 2 33 21 0 20 17 0 16 1 1 21 0 52 15 0 2 16 2 16 3 49 3 32 5 0 20 9 0 49 0 32 217 7 16 0 1 22 0 52 0 0 2 33 180 0 20 2 0 48 0 33 95 0 20 3 0 1 23 0 48 1 17 4 52 5 0 0 17 5 2 17 6 20 6 0 51 24 0 1 4 1 5 1 1 1 2 1 3 1 6 48 1 5 16 6 52 8 0 1 33 5 0 16 6 32 38 0 20 9 0 48 0 17 7 20 10 0 16 7 16 4 48 2 5 16 6 33 12 0 20 10 0 16 7 16 6 48 2 32 1 0 2 5 16 7 32 74 0 20 13 0 20 14 0 16 1 1 16 0 52 15 0 2 16 2 48 2 48 1 52 25 0 1 33 8 0 20 9 0 49 0 32 38 0 20 9 0 48 0 17 4 51 27 0 1 4 1 1 1 2 1 3 1 18 0 16 1 52 20 0 1 52 28 0 2 52 26 0 2 5 16 4 32 25 7 16 0 1 29 0 52 0 0 2 33 145 0 20 2 0 48 0 33 95 0 20 3 0 1 30 0 48 1 17 4 52 5 0 0 17 5 2 17 6 20 6 0 51 31 0 1 1 1 2 1 4 1 5 1 3 1 6 48 1 5 16 6 52 8 0 1 33 5 0 16 6 32 38 0 20 9 0 48 0 17 7 20 10 0 16 7 16 4 48 2 5 16 6 33 12 0 20 10 0 16 7 16 6 48 2 32 1 0 2 5 16 7 32 39 0 20 32 0 16 1 52 33 0 1 16 2 48 2 17 4 16 4 33 14 0 20 17 0 16 4 16 2 16 3 49 3 32 5 0 20 9 0 49 0 32 124 6 16 0 1 34 0 52 0 0 2 33 26 0 20 17 0 20 13 0 20 14 0 16 1 16 2 48 2 48 1 16 2 16 3 49 3 32 86 6 16 0 1 35 0 52 0 0 2 6 34 10 0 5 16 0 1 36 0 52 0 0 2 33 96 0 20 37 0 16 1 1 16 0 52 15 0 2 16 2 48 2 17 4 16 1 52 20 0 1 1 21 0 52 0 0 2 33 21 0 20 17 0 16 1 1 18 0 52 15 0 2 16 4 16 3 49 3 32 38 0 20 9 0 48 0 17 5 51 38 0 1 1 1 4 1 3 1 5 1 18 0 16 1 52 20 0 1 52 28 0 2 52 26 0 2 5 16 5 32 220 5 16 0 1 39 0 52 0 0 2 33 109 0 16 1 1 16 0 52 15 0 2 17 4 16 1 1 18 0 52 40 0 2 17 5 20 41 0 16 2 48 1 17 6 51 42 0 1 6 16 4 52 26 0 2 5 51 43 0 1 6 16 4 52 26 0 2 5 16 5 52 20 0 1 1 16 0 52 19 0 2 33 18 0 51 44 0 1 6 16 5 52 45 0 1 52 26 0 2 32 1 0 2 5 20 17 0 16 5 52 46 0 1 16 6 16 3 49 3 32 99 5 16 0 1 47 0 52 0 0 2 6 34 10 0 5 16 0 1 48 0 52 0 0 2 33 78 0 16 1 52 20 0 1 1 18 0 52 0 0 2 33 21 0 20 17 0 16 1 1 16 0 52 15 0 2 16 2 16 3 49 3 32 38 0 20 9 0 48 0 17 4 51 38 0 1 1 1 2 1 3 1 4 1 16 0 16 1 52 20 0 1 52 28 0 2 52 26 0 2 5 16 4 32 251 4 20 49 0 16 0 48 1 33 23 0 20 13 0 20 14 0 16 1 16 2 48 2 48 1 5 20 9 0 49 0 32 218 4 16 0 1 50 0 52 0 0 2 33 31 1 16 1 1 18 0 52 15 0 2 17 4 20 2 0 48 0 6 33 77 0 5 16 4 52 51 0 1 1 5 0 52 0 0 2 6 33 59 0 5 16 4 52 20 0 1 1 16 0 52 19 0 2 6 33 41 0 5 16 4 52 52 0 1 52 51 0 1 1 53 0 52 0 0 2 6 33 19 0 5 20 54 0 16 4 52 52 0 1 48 1 1 55 0 52 0 0 2 33 111 0 20 13 0 20 14 0 16 1 1 16 0 52 15 0 2 16 2 48 2 48 1 17 5 20 13 0 20 14 0 16 4 1 16 0 52 15 0 2 16 2 48 2 48 1 17 6 20 56 0 16 6 48 1 33 16 0 20 57 0 16 5 16 6 16 2 16 3 49 4 32 36 0 20 55 0 16 6 48 1 17 7 20 9 0 48 0 17 8 51 58 0 1 5 1 2 1 3 1 8 16 7 52 26 0 2 5 16 8 32 73 0 20 13 0 20 14 0 16 1 1 16 0 52 15 0 2 16 2 48 2 48 1 17 5 20 13 0 20 14 0 16 1 1 18 0 52 15 0 2 16 2 48 2 48 1 17 6 20 9 0 48 0 17 7 51 58 0 1 5 1 2 1 3 1 7 16 6 52 26 0 2 5 16 7 32 175 3 16 0 1 59 0 52 0 0 2 33 76 0 20 13 0 20 14 0 16 1 1 16 0 52 15 0 2 16 2 48 2 48 1 17 4 20 13 0 20 14 0 16 1 1 18 0 52 15 0 2 16 2 48 2 48 1 17 5 20 9 0 48 0 17 6 51 61 0 1 4 1 2 1 3 1 6 16 5 52 60 0 2 5 16 6 32 87 3 16 0 1 62 0 52 0 0 2 33 26 0 20 17 0 20 13 0 20 14 0 16 1 16 2 48 2 48 1 16 2 16 3 49 3 32 49 3 16 0 1 63 0 52 0 0 2 33 18 0 20 64 0 16 1 52 33 0 1 16 2 16 3 49 3 32 19 3 16 0 1 65 0 52 0 0 2 33 18 0 20 66 0 16 1 52 33 0 1 16 2 16 3 49 3 32 245 2 16 0 1 26 0 52 0 0 2 33 76 0 20 13 0 20 14 0 16 1 1 16 0 52 15 0 2 16 2 48 2 48 1 17 4 20 13 0 20 14 0 16 1 1 18 0 52 15 0 2 16 2 48 2 48 1 17 5 20 9 0 48 0 17 6 51 58 0 1 4 1 2 1 3 1 6 16 5 52 26 0 2 5 16 6 32 157 2 16 0 1 67 0 52 0 0 2 33 188 0 20 13 0 20 14 0 16 1 1 16 0 52 15 0 2 16 2 48 2 48 1 17 4 16 1 1 18 0 52 40 0 2 17 5 2 17 6 2 17 7 20 9 0 48 0 17 8 16 5 52 20 0 1 1 18 0 52 68 0 2 6 33 41 0 5 16 5 52 52 0 1 52 51 0 1 1 69 0 52 0 0 2 6 33 19 0 5 20 70 0 16 5 52 52 0 1 48 1 1 71 0 52 0 0 2 33 38 0 20 13 0 20 14 0 16 5 1 16 0 52 15 0 2 16 2 48 2 48 1 17 6 5 16 5 1 18 0 52 40 0 2 17 7 32 4 0 16 5 17 7 5 16 4 16 6 52 72 0 2 5 51 73 0 1 8 1 2 1 3 16 7 52 26 0 2 5 16 4 52 74 0 1 5 16 8 32 213 1 16 0 1 75 0 52 0 0 2 33 103 0 20 13 0 20 14 0 16 1 1 16 0 52 15 0 2 16 2 48 2 48 1 17 4 20 13 0 20 14 0 16 1 1 18 0 52 15 0 2 16 2 48 2 48 1 17 5 20 9 0 48 0 17 6 16 4 16 5 52 72 0 2 5 51 27 0 1 6 1 1 1 2 1 3 1 21 0 16 1 52 20 0 1 52 28 0 2 52 26 0 2 5 16 4 52 74 0 1 5 16 6 32 98 1 16 0 1 76 0 52 0 0 2 33 63 1 16 1 52 20 0 1 1 18 0 52 19 0 2 6 33 47 0 5 16 1 1 16 0 52 15 0 2 52 51 0 1 1 69 0 52 0 0 2 6 33 22 0 5 20 70 0 16 1 1 16 0 52 15 0 2 48 1 1 77 0 52 0 0 2 33 28 0 20 13 0 20 14 0 16 1 1 18 0 52 15 0 2 16 2 48 2 48 1 52 78 0 1 32 5 0 20 79 0 48 0 17 4 20 81 0 16 4 52 80 0 2 17 5 16 5 6 33 11 0 5 20 82 0 16 5 1 83 0 48 2 33 5 0 16 5 32 178 0 20 84 0 1 85 0 2 48 2 17 6 52 5 0 0 17 7 16 1 52 20 0 1 1 18 0 52 19 0 2 6 33 47 0 5 16 1 1 16 0 52 15 0 2 52 51 0 1 1 69 0 52 0 0 2 6 33 22 0 5 20 70 0 16 1 1 16 0 52 15 0 2 48 1 1 77 0 52 0 0 2 33 12 0 16 1 1 21 0 52 40 0 2 32 9 0 16 1 1 16 0 52 40 0 2 17 8 20 86 0 16 6 1 87 0 16 4 48 3 5 20 88 0 51 89 0 1 7 51 90 0 1 2 1 3 1 8 48 2 17 9 20 10 0 16 6 16 9 48 2 5 20 91 0 16 6 1 92 0 16 7 48 3 5 20 81 0 16 4 16 6 52 93 0 3 5 16 6 32 23 0 20 17 0 20 13 0 20 14 0 16 1 16 2 48 2 48 1 16 2 16 3 49 3 50) - :constants ( - "=" - "if" - "island-scope?" - "create-comment" - "r-if" - "list" - "effect" - (code :upvalue-count 6 - :bytecode (20 0 0 20 1 0 18 0 1 3 0 52 2 0 2 18 1 48 2 48 1 17 1 16 1 33 21 0 20 4 0 18 0 1 5 0 52 2 0 2 18 1 18 2 48 3 32 42 0 18 0 52 7 0 1 1 8 0 52 6 0 2 33 21 0 20 4 0 18 0 1 8 0 52 2 0 2 18 1 18 2 48 3 32 5 0 20 9 0 48 0 17 0 20 10 0 18 3 48 1 33 51 0 51 12 0 18 4 52 11 0 2 5 20 13 0 16 0 48 1 33 10 0 20 14 0 16 0 48 1 32 6 0 16 0 52 15 0 1 19 4 5 20 16 0 18 3 16 0 49 2 32 4 0 16 0 19 5 50) - :constants ( - "trampoline" - "eval-expr" - "nth" - 1 - "render-to-dom" - 2 - ">" - "len" - 3 - "create-fragment" - "dom-parent" - "for-each" - (code :arity 1 - :bytecode (20 0 0 16 0 49 1 50) - :constants ( - "dom-remove")) - "dom-is-fragment?" - "dom-child-nodes" - "list" - "dom-insert-after")) - "spread?" - "create-fragment" - "dom-append" - "dom-is-fragment?" - "dom-child-nodes" - "trampoline" - "eval-expr" - "nth" - 1 - "render-to-dom" - 2 - ">" - "len" - 3 - "when" - "r-when" - (code :upvalue-count 6 - :bytecode (20 0 0 18 0 48 1 33 103 0 51 2 0 18 1 52 1 0 2 5 52 3 0 0 19 1 5 20 4 0 20 5 0 18 2 1 7 0 52 6 0 2 18 3 48 2 48 1 33 58 0 20 8 0 48 0 17 0 51 9 0 1 0 0 2 0 3 0 4 1 11 0 18 2 52 12 0 1 52 10 0 2 52 1 0 2 5 20 13 0 16 0 48 1 19 1 5 20 14 0 18 0 16 0 49 2 32 1 0 2 32 78 0 20 4 0 20 5 0 18 2 1 7 0 52 6 0 2 18 3 48 2 48 1 33 53 0 20 8 0 48 0 17 0 51 9 0 1 0 0 2 0 3 0 4 1 11 0 18 2 52 12 0 1 52 10 0 2 52 1 0 2 5 20 13 0 16 0 48 1 19 1 5 16 0 19 5 32 1 0 2 50) - :constants ( - "dom-parent" - "for-each" - (code :arity 1 - :bytecode (20 0 0 16 0 49 1 50) - :constants ( - "dom-remove")) - "list" - "trampoline" - "eval-expr" - "nth" - 1 - "create-fragment" - (code :arity 1 :upvalue-count 4 - :bytecode (20 0 0 18 0 20 1 0 18 1 16 0 52 2 0 2 18 2 18 3 48 3 49 2 50) - :constants ( - "dom-append" - "render-to-dom" - "nth")) - "range" - 2 - "len" - "dom-child-nodes" - "dom-insert-after")) - "not" - "for-each" - (code :arity 1 :upvalue-count 4 - :bytecode (20 0 0 18 0 20 1 0 18 1 16 0 52 2 0 2 18 2 18 3 48 3 49 2 50) - :constants ( - "dom-append" - "render-to-dom" - "nth")) - "range" - "cond" - "r-cond" - (code :upvalue-count 6 - :bytecode (20 0 0 18 0 52 1 0 1 18 1 48 2 17 0 20 2 0 18 2 48 1 33 80 0 51 4 0 18 3 52 3 0 2 5 52 5 0 0 19 3 5 16 0 33 54 0 20 6 0 16 0 18 1 18 4 48 3 17 1 20 7 0 16 1 48 1 33 10 0 20 8 0 16 1 48 1 32 6 0 16 1 52 5 0 1 19 3 5 20 9 0 18 2 16 1 49 2 32 1 0 2 32 55 0 16 0 33 49 0 20 6 0 16 0 18 1 18 4 48 3 17 1 20 7 0 16 1 48 1 33 10 0 20 8 0 16 1 48 1 32 6 0 16 1 52 5 0 1 19 3 5 16 1 19 5 32 1 0 2 50) - :constants ( - "eval-cond" - "rest" - "dom-parent" - "for-each" - (code :arity 1 - :bytecode (20 0 0 16 0 49 1 50) - :constants ( - "dom-remove")) - "list" - "render-to-dom" - "dom-is-fragment?" - "dom-child-nodes" - "dom-insert-after")) - "eval-cond" - "rest" - "case" - "let" - "let*" - "process-bindings" - (code :arity 1 :upvalue-count 4 - :bytecode (20 0 0 18 0 16 0 52 1 0 2 18 1 18 2 48 3 17 1 16 1 52 3 0 1 52 2 0 1 33 12 0 20 4 0 18 3 16 1 49 2 32 1 0 2 50) - :constants ( - "render-to-dom" - "nth" - "not" - "spread?" - "dom-append")) - "letrec" - "slice" - "env-extend" - (code :arity 1 :upvalue-count 1 - :bytecode (16 0 52 2 0 1 52 1 0 1 1 3 0 52 0 0 2 33 14 0 20 4 0 16 0 52 2 0 1 48 1 32 10 0 16 0 52 2 0 1 52 5 0 1 17 1 20 6 0 18 0 16 1 2 49 3 50) - :constants ( - "=" - "type-of" - "first" - "symbol" - "symbol-name" - "str" - "env-bind!")) - (code :arity 1 :upvalue-count 1 - :bytecode (16 0 52 2 0 1 52 1 0 1 1 3 0 52 0 0 2 33 14 0 20 4 0 16 0 52 2 0 1 48 1 32 10 0 16 0 52 2 0 1 52 5 0 1 17 1 20 6 0 18 0 16 1 20 7 0 20 8 0 16 0 1 10 0 52 9 0 2 18 0 48 2 48 1 49 3 50) - :constants ( - "=" - "type-of" - "first" - "symbol" - "symbol-name" - "str" - "env-set!" - "trampoline" - "eval-expr" - "nth" - 1)) - (code :arity 1 :upvalue-count 1 - :bytecode (20 0 0 20 1 0 16 0 18 0 48 2 49 1 50) - :constants ( - "trampoline" - "eval-expr")) - "init" - "last" - "begin" - "do" - "definition-form?" - "map" - "type-of" - "first" - "symbol" - "symbol-name" - "deref" - "signal?" - "reactive-list" - (code :arity 1 :upvalue-count 4 - :bytecode (18 0 52 0 0 1 33 20 0 20 1 0 18 0 16 0 52 2 0 1 18 1 18 2 48 4 32 21 0 20 3 0 18 0 16 0 52 2 0 1 52 4 0 2 18 1 18 2 48 3 17 1 20 5 0 18 3 16 1 49 2 50) - :constants ( - "lambda?" - "render-lambda-dom" - "list" - "render-to-dom" - "apply" - "dom-append")) - "map-indexed" - "for-each-indexed" - (code :arity 2 :upvalue-count 4 - :bytecode (18 0 52 0 0 1 33 22 0 20 1 0 18 0 16 0 16 1 52 2 0 2 18 1 18 2 48 4 32 23 0 20 3 0 18 0 16 0 16 1 52 2 0 2 52 4 0 2 18 1 18 2 48 3 17 2 20 5 0 18 3 16 2 49 2 50) - :constants ( - "lambda?" - "render-lambda-dom" - "list" - "render-to-dom" - "apply" - "dom-append")) - "filter" - "portal" - "render-dom-portal" - "error-boundary" - "render-dom-error-boundary" - "scope" - ">=" - "keyword" - "keyword-name" - "value" - "scope-push!" - (code :arity 1 :upvalue-count 3 - :bytecode (20 0 0 18 0 20 1 0 16 0 18 1 18 2 48 3 49 2 50) - :constants ( - "dom-append" - "render-to-dom")) - "scope-pop!" - "provide" - "cyst" - "key" - "str" - "next-cyst-id" - "get" - "*memo-cache*" - "host-get" - "isConnected" - "dom-create-element" - "div" - "dom-set-attr" - "data-sx-cyst" - "with-island-scope" - (code :arity 1 :upvalue-count 1 - :bytecode (20 0 0 18 0 16 0 49 2 50) - :constants ( - "append!")) - (code :upvalue-count 3 - :bytecode (20 0 0 48 0 17 0 51 2 0 1 0 0 0 0 1 18 2 52 1 0 2 5 16 0 50) - :constants ( - "create-fragment" - "for-each" - (code :arity 1 :upvalue-count 3 - :bytecode (20 0 0 18 0 20 1 0 16 0 18 1 18 2 48 3 49 2 50) - :constants ( - "dom-append" - "render-to-dom")))) - "dom-set-data" - "sx-disposers" - "dict-set!")) - "render-lambda-dom" - (code :arity 4 - :bytecode (20 0 0 16 0 52 1 0 1 16 2 48 2 17 4 51 3 0 1 4 1 1 16 0 52 4 0 1 52 2 0 2 5 20 5 0 16 0 52 6 0 1 16 4 16 3 49 3 50) - :constants ( - "env-merge" - "lambda-closure" - "for-each-indexed" - (code :arity 2 :upvalue-count 2 - :bytecode (20 0 0 18 0 16 1 18 1 16 0 52 1 0 2 49 3 50) - :constants ( - "env-bind!" - "nth")) - "lambda-params" - "render-to-dom" - "lambda-body")) - "render-dom-island" - (code :arity 4 - :bytecode (52 0 0 0 17 4 52 1 0 0 17 5 51 3 0 1 1 1 2 1 4 1 5 1 4 0 1 5 0 1 6 0 4 52 0 0 4 16 1 52 2 0 3 5 20 7 0 16 0 52 8 0 1 16 2 48 2 17 6 16 0 52 9 0 1 17 7 51 11 0 1 6 1 4 16 0 52 12 0 1 52 10 0 2 5 16 0 52 13 0 1 33 38 0 20 14 0 48 0 17 8 51 15 0 1 8 1 2 1 3 16 5 52 10 0 2 5 20 16 0 16 6 1 17 0 16 8 48 3 32 1 0 2 5 20 18 0 1 19 0 2 48 2 17 8 52 1 0 0 17 9 20 20 0 16 8 1 21 0 16 7 48 3 5 20 22 0 16 8 1 23 0 48 2 5 20 24 0 51 25 0 1 9 51 26 0 1 0 1 6 1 3 48 2 17 10 20 27 0 16 8 16 10 48 2 5 20 28 0 16 8 1 29 0 16 9 48 3 5 16 8 50) - :constants ( - "dict" - "list" - "reduce" - (code :arity 2 :upvalue-count 4 - :bytecode (16 0 1 1 0 52 0 0 2 17 2 16 2 33 29 0 16 0 1 1 0 4 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 154 0 16 1 52 6 0 1 1 7 0 52 5 0 2 6 33 24 0 5 16 0 1 3 0 52 0 0 2 52 4 0 1 18 0 52 9 0 1 52 8 0 2 33 78 0 20 10 0 20 11 0 18 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 12 0 2 18 1 48 2 48 1 17 3 18 2 20 14 0 16 1 48 1 16 3 52 13 0 3 5 16 0 1 1 0 3 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 32 0 20 15 0 18 3 16 1 48 2 5 16 0 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 3 50) - :constants ( - "get" - "skip" - "assoc" - "i" - "inc" - "=" - "type-of" - "keyword" - "<" - "len" - "trampoline" - "eval-expr" - "nth" - "dict-set!" - "keyword-name" - "append!")) - "i" - 0 - "skip" - "env-merge" - "component-closure" - "component-name" - "for-each" - (code :arity 1 :upvalue-count 2 - :bytecode (20 0 0 18 0 16 0 18 1 16 0 52 1 0 2 33 11 0 18 1 16 0 52 2 0 2 32 1 0 2 49 3 50) - :constants ( - "env-bind!" - "dict-has?" - "dict-get")) - "component-params" - "component-has-children?" - "create-fragment" - (code :arity 1 :upvalue-count 3 - :bytecode (20 0 0 18 0 20 1 0 16 0 18 1 18 2 48 3 49 2 50) - :constants ( - "dom-append" - "render-to-dom")) - "env-bind!" - "children" - "dom-create-element" - "span" - "dom-set-attr" - "data-sx-island" - "mark-processed!" - "island-hydrated" - "with-island-scope" - (code :arity 1 :upvalue-count 1 - :bytecode (20 0 0 18 0 16 0 49 2 50) - :constants ( - "append!")) - (code :upvalue-count 3 - :bytecode (20 0 0 18 0 52 1 0 1 18 1 18 2 49 3 50) - :constants ( - "render-to-dom" - "component-body")) - "dom-append" - "dom-set-data" - "sx-disposers")) - "render-dom-lake" - (code :arity 3 - :bytecode (2 17 3 1 0 0 17 4 52 1 0 0 17 5 51 3 0 1 0 1 1 1 3 1 4 1 5 1 5 0 1 6 0 1 7 0 4 52 4 0 4 16 0 52 2 0 3 5 20 8 0 16 4 2 48 2 17 6 20 9 0 16 6 1 10 0 16 3 6 34 4 0 5 1 11 0 48 3 5 51 13 0 1 6 1 1 1 2 16 5 52 12 0 2 5 16 6 50) - :constants ( - "div" - "list" - "reduce" - (code :arity 2 :upvalue-count 5 - :bytecode (16 0 1 1 0 52 0 0 2 17 2 16 2 33 29 0 16 0 1 1 0 4 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 187 0 16 1 52 6 0 1 1 7 0 52 5 0 2 6 33 24 0 5 16 0 1 3 0 52 0 0 2 52 4 0 1 18 0 52 9 0 1 52 8 0 2 33 111 0 20 10 0 16 1 48 1 17 3 20 11 0 20 12 0 18 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 13 0 2 18 1 48 2 48 1 17 4 16 3 1 14 0 52 5 0 2 33 7 0 16 4 19 2 32 20 0 16 3 1 15 0 52 5 0 2 33 7 0 16 4 19 3 32 1 0 2 5 16 0 1 1 0 3 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 32 0 20 16 0 18 4 16 1 48 2 5 16 0 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 3 50) - :constants ( - "get" - "skip" - "assoc" - "i" - "inc" - "=" - "type-of" - "keyword" - "<" - "len" - "keyword-name" - "trampoline" - "eval-expr" - "nth" - "id" - "tag" - "append!")) - "dict" - "i" - 0 - "skip" - "dom-create-element" - "dom-set-attr" - "data-sx-lake" - "" - "for-each" - (code :arity 1 :upvalue-count 3 - :bytecode (20 0 0 18 0 20 1 0 16 0 18 1 18 2 48 3 49 2 50) - :constants ( - "dom-append" - "render-to-dom")))) - "render-dom-marsh" - (code :arity 3 - :bytecode (2 17 3 1 0 0 17 4 2 17 5 52 1 0 0 17 6 51 3 0 1 0 1 1 1 3 1 4 1 5 1 6 1 5 0 1 6 0 1 7 0 4 52 4 0 4 16 0 52 2 0 3 5 20 8 0 16 4 2 48 2 17 7 20 9 0 16 7 1 10 0 16 3 6 34 4 0 5 1 11 0 48 3 5 16 5 33 15 0 20 12 0 16 7 1 13 0 16 5 48 3 32 1 0 2 5 20 12 0 16 7 1 14 0 16 1 48 3 5 51 16 0 1 7 1 1 1 2 16 6 52 15 0 2 5 16 7 50) - :constants ( - "div" - "list" - "reduce" - (code :arity 2 :upvalue-count 6 - :bytecode (16 0 1 1 0 52 0 0 2 17 2 16 2 33 29 0 16 0 1 1 0 4 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 206 0 16 1 52 6 0 1 1 7 0 52 5 0 2 6 33 24 0 5 16 0 1 3 0 52 0 0 2 52 4 0 1 18 0 52 9 0 1 52 8 0 2 33 130 0 20 10 0 16 1 48 1 17 3 20 11 0 20 12 0 18 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 13 0 2 18 1 48 2 48 1 17 4 16 3 1 14 0 52 5 0 2 33 7 0 16 4 19 2 32 39 0 16 3 1 15 0 52 5 0 2 33 7 0 16 4 19 3 32 20 0 16 3 1 16 0 52 5 0 2 33 7 0 16 4 19 4 32 1 0 2 5 16 0 1 1 0 3 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 5 32 32 0 20 17 0 18 5 16 1 48 2 5 16 0 1 3 0 16 0 1 3 0 52 0 0 2 52 4 0 1 52 2 0 3 50) - :constants ( - "get" - "skip" - "assoc" - "i" - "inc" - "=" - "type-of" - "keyword" - "<" - "len" - "keyword-name" - "trampoline" - "eval-expr" - "nth" - "id" - "tag" - "transform" - "append!")) - "dict" - "i" - 0 - "skip" - "dom-create-element" - "dom-set-attr" - "data-sx-marsh" - "" - "dom-set-data" - "sx-marsh-transform" - "sx-marsh-env" - "for-each" - (code :arity 1 :upvalue-count 3 - :bytecode (20 0 0 18 0 20 1 0 16 0 18 1 18 2 48 3 49 2 50) - :constants ( - "dom-append" - "render-to-dom")))) - "reactive-text" - (code :arity 1 - :bytecode (20 0 0 20 2 0 16 0 48 1 52 1 0 1 48 1 17 1 20 3 0 51 4 0 1 1 1 0 48 1 5 16 1 50) - :constants ( - "create-text-node" - "str" - "deref" - "effect" - (code :upvalue-count 2 - :bytecode (20 0 0 18 0 20 2 0 18 1 48 1 52 1 0 1 49 2 50) - :constants ( - "dom-set-text-content" - "str" - "deref")))) - "reactive-attr" - (code :arity 3 - :bytecode (20 0 0 16 0 1 1 0 48 2 6 34 4 0 5 1 2 0 17 3 16 3 52 3 0 1 33 5 0 16 1 32 11 0 16 3 1 5 0 16 1 52 4 0 3 17 4 20 6 0 16 0 1 1 0 16 4 48 3 5 20 7 0 51 8 0 1 2 1 0 1 1 49 1 50) - :constants ( - "dom-get-attr" - "data-sx-reactive-attrs" - "" - "empty?" - "str" - "," - "dom-set-attr" - "effect" - (code :upvalue-count 3 - :bytecode (18 0 48 0 17 0 20 0 0 16 0 48 1 33 10 0 20 1 0 16 0 48 1 32 2 0 16 0 17 1 16 1 52 2 0 1 6 34 8 0 5 16 1 4 52 3 0 2 33 12 0 20 4 0 18 1 18 2 49 2 32 40 0 16 1 3 52 3 0 2 33 15 0 20 5 0 18 1 18 2 1 6 0 49 3 32 15 0 20 5 0 18 1 18 2 16 1 52 7 0 1 49 3 50) - :constants ( - "signal?" - "deref" - "nil?" - "=" - "dom-remove-attr" - "dom-set-attr" - "" - "str")))) - "reactive-spread" - (code :arity 2 - :bytecode (52 0 0 0 17 2 52 0 0 0 17 3 20 1 0 16 0 1 2 0 48 2 6 34 4 0 5 1 3 0 17 4 20 4 0 16 0 1 2 0 16 4 52 5 0 1 33 6 0 1 6 0 32 9 0 16 4 1 8 0 52 7 0 2 48 3 5 20 9 0 51 10 0 1 2 1 0 1 3 1 1 49 1 50) - :constants ( - "list" - "dom-get-attr" - "data-sx-reactive-attrs" - "" - "dom-set-attr" - "empty?" - "_spread" - "str" - ",_spread" - "effect" - (code :upvalue-count 4 - :bytecode (18 0 52 1 0 1 52 0 0 1 33 95 0 20 2 0 18 1 1 3 0 48 2 6 34 4 0 5 1 4 0 17 0 51 6 0 16 0 1 8 0 52 7 0 2 52 5 0 2 17 1 51 9 0 0 0 16 1 52 5 0 2 17 2 16 2 52 1 0 1 33 13 0 20 10 0 18 1 1 3 0 48 2 32 19 0 20 11 0 18 1 1 3 0 1 8 0 16 2 52 12 0 2 48 3 32 1 0 2 5 51 14 0 0 1 18 2 52 13 0 2 5 18 3 48 0 17 0 16 0 52 15 0 1 33 179 0 16 0 52 16 0 1 17 1 16 1 1 3 0 52 17 0 2 6 34 4 0 5 1 4 0 17 2 51 6 0 16 2 1 8 0 52 7 0 2 52 5 0 2 17 3 51 18 0 16 1 52 19 0 1 52 5 0 2 17 4 16 3 19 0 5 16 4 19 2 5 16 3 52 1 0 1 52 0 0 1 33 72 0 20 2 0 18 1 1 3 0 48 2 6 34 4 0 5 1 4 0 17 5 20 11 0 18 1 1 3 0 16 5 6 33 14 0 5 16 5 1 4 0 52 20 0 2 52 0 0 1 33 14 0 16 5 1 8 0 16 2 52 21 0 3 32 2 0 16 2 48 3 32 1 0 2 5 51 22 0 0 1 1 1 16 4 52 13 0 2 5 20 23 0 49 0 32 13 0 52 24 0 0 19 0 5 52 24 0 0 19 2 50) - :constants ( - "not" - "empty?" - "dom-get-attr" - "class" - "" - "filter" - (code :arity 1 - :bytecode (16 0 1 2 0 52 1 0 2 52 0 0 1 50) - :constants ( - "not" - "=" - "")) - "split" - " " - (code :arity 1 :upvalue-count 1 - :bytecode (51 2 0 1 0 18 0 52 1 0 2 52 0 0 1 50) - :constants ( - "not" - "some" - (code :arity 1 :upvalue-count 1 - :bytecode (16 0 18 0 52 0 0 2 50) - :constants ( - "=")))) - "dom-remove-attr" - "dom-set-attr" - "join" - "for-each" - (code :arity 1 :upvalue-count 1 - :bytecode (20 0 0 18 0 16 0 49 2 50) - :constants ( - "dom-remove-attr")) - "spread?" - "spread-attrs" - "dict-get" - (code :arity 1 - :bytecode (16 0 1 2 0 52 1 0 2 52 0 0 1 50) - :constants ( - "not" - "=" - "class")) - "keys" - "=" - "str" - (code :arity 1 :upvalue-count 2 - :bytecode (20 0 0 18 0 16 0 18 1 16 0 52 2 0 2 52 1 0 1 49 3 50) - :constants ( - "dom-set-attr" - "str" - "dict-get")) - "run-post-render-hooks" - "list")))) - "reactive-fragment" - (code :arity 4 - :bytecode (20 0 0 1 1 0 48 1 17 4 52 2 0 0 17 5 20 3 0 51 4 0 1 5 1 0 1 1 1 4 48 1 5 16 4 50) - :constants ( - "create-comment" - "island-fragment" - "list" - "effect" - (code :upvalue-count 4 - :bytecode (51 1 0 18 0 52 0 0 2 5 52 2 0 0 19 0 5 18 1 48 0 33 28 0 18 2 48 0 17 0 20 3 0 16 0 48 1 19 0 5 20 4 0 18 3 16 0 49 2 32 1 0 2 50) - :constants ( - "for-each" - (code :arity 1 - :bytecode (20 0 0 16 0 49 1 50) - :constants ( - "dom-remove")) - "list" - "dom-child-nodes" - "dom-insert-after")))) - "render-list-item" - (code :arity 4 - :bytecode (16 0 52 0 0 1 33 20 0 20 1 0 16 0 16 1 52 2 0 1 16 2 16 3 49 4 32 21 0 20 3 0 16 0 16 1 52 2 0 1 52 4 0 2 16 2 16 3 49 3 50) - :constants ( - "lambda?" - "render-lambda-dom" - "list" - "render-to-dom" - "apply")) - "extract-key" - (code :arity 2 - :bytecode (20 0 0 16 0 1 1 0 48 2 17 2 16 2 33 16 0 20 2 0 16 0 1 1 0 48 2 5 16 2 32 35 0 20 3 0 16 0 1 1 0 48 2 17 3 16 3 33 9 0 16 3 52 4 0 1 32 9 0 1 5 0 16 1 52 4 0 2 50) - :constants ( - "dom-get-attr" - "key" - "dom-remove-attr" - "dom-get-data" - "str" - "__idx_")) - "reactive-list" - (code :arity 4 - :bytecode (20 0 0 48 0 17 4 20 1 0 1 2 0 48 1 17 5 52 3 0 0 17 6 52 4 0 0 17 7 20 5 0 16 4 16 5 48 2 5 20 6 0 51 7 0 1 1 1 5 1 0 1 2 1 3 1 6 1 7 1 4 48 1 5 16 4 50) - :constants ( - "create-fragment" - "create-comment" - "island-list" - "dict" - "list" - "dom-append" - "effect" - (code :upvalue-count 8 - :bytecode (20 0 0 18 0 48 1 17 0 20 1 0 18 1 48 1 33 133 0 52 2 0 0 17 1 52 3 0 0 17 2 4 17 3 51 5 0 0 2 0 3 0 4 1 3 0 5 1 1 1 2 16 0 52 4 0 2 5 16 3 52 6 0 1 33 41 0 20 7 0 18 1 48 1 5 20 8 0 48 0 17 4 51 10 0 1 4 1 1 16 2 52 9 0 2 5 20 11 0 18 1 16 4 48 2 32 31 0 51 12 0 1 1 0 5 18 6 52 9 0 2 5 18 1 17 4 51 13 0 1 1 1 4 16 2 52 9 0 2 5 16 1 19 5 5 16 2 19 6 32 21 0 51 14 0 0 2 0 3 0 4 0 5 0 6 0 7 16 0 52 4 0 2 50) - :constants ( - "deref" - "dom-parent" - "dict" - "list" - "for-each-indexed" - (code :arity 2 :upvalue-count 7 - :bytecode (20 0 0 18 0 16 1 18 1 18 2 48 4 17 2 20 1 0 16 2 16 0 48 2 17 3 18 3 52 2 0 1 6 33 14 0 5 16 3 1 4 0 52 3 0 2 52 2 0 1 33 6 0 3 19 3 32 1 0 2 5 18 4 16 3 52 5 0 2 33 19 0 18 5 16 3 18 4 16 3 52 7 0 2 52 6 0 3 32 10 0 18 5 16 3 16 2 52 6 0 3 5 20 8 0 18 6 16 3 49 2 50) - :constants ( - "render-list-item" - "extract-key" - "not" - "starts-with?" - "__idx_" - "dict-has?" - "dict-set!" - "dict-get" - "append!")) - "not" - "dom-remove-children-after" - "create-fragment" - "for-each" - (code :arity 1 :upvalue-count 2 - :bytecode (20 0 0 18 0 18 1 16 0 52 1 0 2 49 2 50) - :constants ( - "dom-append" - "dict-get")) - "dom-insert-after" - (code :arity 1 :upvalue-count 2 - :bytecode (18 0 16 0 52 1 0 2 52 0 0 1 33 16 0 20 2 0 18 1 16 0 52 3 0 2 49 1 32 1 0 2 50) - :constants ( - "not" - "dict-has?" - "dom-remove" - "dict-get")) - (code :arity 1 :upvalue-count 2 - :bytecode (18 0 16 0 52 0 0 2 17 1 20 1 0 18 1 48 1 17 2 16 1 16 2 52 3 0 2 52 2 0 1 33 12 0 20 4 0 18 1 16 1 48 2 32 1 0 2 5 16 1 19 1 50) - :constants ( - "dict-get" - "dom-next-sibling" - "not" - "identical?" - "dom-insert-after")) - (code :arity 2 :upvalue-count 6 - :bytecode (20 0 0 18 0 16 1 18 1 18 2 48 4 17 2 20 1 0 16 2 16 0 48 2 17 3 18 3 16 3 16 2 52 2 0 3 5 20 3 0 18 4 16 3 48 2 5 20 4 0 18 5 16 2 49 2 50) - :constants ( - "render-list-item" - "extract-key" - "dict-set!" - "append!" - "dom-append")))))) - "bind-input" - (code :arity 2 - :bytecode (20 1 0 16 0 1 2 0 48 2 6 34 4 0 5 1 3 0 52 0 0 1 17 2 16 2 1 5 0 52 4 0 2 6 34 10 0 5 16 2 1 6 0 52 4 0 2 17 3 16 3 33 20 0 20 7 0 16 0 1 8 0 20 9 0 16 1 48 1 48 3 32 21 0 20 7 0 16 0 1 10 0 20 9 0 16 1 48 1 52 11 0 1 48 3 5 20 12 0 51 13 0 1 3 1 0 1 1 48 1 5 20 14 0 16 0 16 3 33 6 0 1 15 0 32 3 0 1 16 0 51 17 0 1 3 1 1 1 0 49 3 50) - :constants ( - "lower" - "dom-get-attr" - "type" - "" - "=" - "checkbox" - "radio" - "dom-set-prop" - "checked" - "deref" - "value" - "str" - "effect" - (code :upvalue-count 3 - :bytecode (18 0 33 20 0 20 0 0 18 1 1 1 0 20 2 0 18 2 48 1 49 3 32 48 0 20 2 0 18 2 48 1 52 3 0 1 17 0 20 5 0 18 1 1 6 0 48 2 16 0 52 4 0 2 33 15 0 20 0 0 18 1 1 6 0 16 0 49 3 32 1 0 2 50) - :constants ( - "dom-set-prop" - "checked" - "deref" - "str" - "!=" - "dom-get-prop" - "value")) - "dom-on" - "change" - "input" - (code :arity 1 :upvalue-count 3 - :bytecode (18 0 33 20 0 20 0 0 18 1 20 1 0 18 2 1 2 0 48 2 49 2 32 17 0 20 0 0 18 1 20 1 0 18 2 1 3 0 48 2 49 2 50) - :constants ( - "reset!" - "dom-get-prop" - "checked" - "value")))) - "*use-cek-reactive*" - "enable-cek-reactive!" - (code - :bytecode (3 21 0 0 50) - :constants ( - "*use-cek-reactive*")) - "cek-reactive-text" - (code :arity 2 - :bytecode (20 0 0 1 1 0 48 1 17 2 51 2 0 1 2 17 3 20 3 0 20 4 0 16 0 16 1 20 6 0 16 1 16 3 3 48 3 52 5 0 1 48 3 48 1 17 4 20 7 0 16 2 16 4 52 8 0 1 48 2 5 16 2 50) - :constants ( - "create-text-node" - "" - (code :arity 1 :upvalue-count 1 - :bytecode (20 0 0 18 0 16 0 52 1 0 1 49 2 50) - :constants ( - "dom-set-text-content" - "str")) - "cek-run" - "make-cek-state" - "list" - "make-reactive-reset-frame" - "dom-set-text-content" - "str")) - "cek-reactive-attr" - (code :arity 4 - :bytecode (51 0 0 1 0 1 1 17 4 20 1 0 16 0 1 2 0 48 2 6 34 4 0 5 1 3 0 17 5 16 5 52 4 0 1 33 5 0 16 1 32 11 0 16 5 1 6 0 16 1 52 5 0 3 17 6 20 7 0 16 0 1 2 0 16 6 48 3 5 20 8 0 20 9 0 16 2 16 3 20 11 0 16 3 16 4 3 48 3 52 10 0 1 48 3 48 1 17 5 20 12 0 16 4 16 5 52 10 0 1 49 2 50) - :constants ( - (code :arity 1 :upvalue-count 2 - :bytecode (16 0 52 0 0 1 6 34 8 0 5 16 0 4 52 1 0 2 33 12 0 20 2 0 18 0 18 1 49 2 32 40 0 16 0 3 52 1 0 2 33 15 0 20 3 0 18 0 18 1 1 4 0 49 3 32 15 0 20 3 0 18 0 18 1 16 0 52 5 0 1 49 3 50) - :constants ( - "nil?" - "=" - "dom-remove-attr" - "dom-set-attr" - "" - "str")) - "dom-get-attr" - "data-sx-reactive-attrs" - "" - "empty?" - "str" - "," - "dom-set-attr" - "cek-run" - "make-cek-state" - "list" - "make-reactive-reset-frame" - "cek-call")) - "render-dom-portal" - (code :arity 3 - :bytecode (20 0 0 20 1 0 16 0 52 2 0 1 16 1 48 2 48 1 17 3 20 3 0 16 3 48 1 6 34 8 0 5 20 4 0 16 3 48 1 17 4 16 4 52 5 0 1 33 20 0 20 6 0 1 8 0 16 3 1 9 0 52 7 0 3 49 1 32 75 0 20 6 0 1 8 0 16 3 52 7 0 2 48 1 17 5 20 10 0 48 0 17 6 51 12 0 1 6 1 1 1 2 16 0 52 13 0 1 52 11 0 2 5 20 14 0 16 6 48 1 17 7 20 15 0 16 4 16 6 48 2 5 20 16 0 51 17 0 1 7 48 1 5 16 5 50) - :constants ( - "trampoline" - "eval-expr" - "first" - "dom-query" - "dom-ensure-element" - "not" - "create-comment" - "str" - "portal: " - " (not found)" - "create-fragment" - "for-each" - (code :arity 1 :upvalue-count 3 - :bytecode (20 0 0 18 0 20 1 0 16 0 18 1 18 2 48 3 49 2 50) - :constants ( - "dom-append" - "render-to-dom")) - "rest" - "dom-child-nodes" - "dom-append" - "register-in-scope" - (code :upvalue-count 1 - :bytecode (51 1 0 18 0 52 0 0 2 50) - :constants ( - "for-each" - (code :arity 1 - :bytecode (20 0 0 16 0 49 1 50) - :constants ( - "dom-remove")))))) - "render-dom-error-boundary" - (code :arity 3 - :bytecode (16 0 52 0 0 1 17 3 16 0 52 1 0 1 17 4 20 2 0 1 3 0 2 48 2 17 5 20 4 0 1 5 0 48 1 17 6 20 6 0 16 5 1 7 0 1 8 0 48 3 5 20 9 0 51 10 0 1 6 1 5 1 1 1 2 1 4 1 3 48 1 5 16 5 50) - :constants ( - "first" - "rest" - "dom-create-element" - "div" - "signal" - 0 - "dom-set-attr" - "data-sx-boundary" - "true" - "effect" - (code :upvalue-count 6 - :bytecode (20 0 0 18 0 48 1 5 20 1 0 18 1 1 2 0 1 3 0 48 3 5 1 5 0 2 52 4 0 2 5 20 6 0 51 7 0 0 2 0 3 0 4 0 1 51 8 0 0 5 0 2 0 0 0 3 0 1 49 2 50) - :constants ( - "deref" - "dom-set-prop" - "innerHTML" - "" - "scope-push!" - "sx-island-scope" - "try-catch" - (code :upvalue-count 4 - :bytecode (20 0 0 48 0 17 0 51 2 0 1 0 0 0 0 1 18 2 52 1 0 2 5 20 3 0 18 3 16 0 48 2 5 1 5 0 52 4 0 1 50) - :constants ( - "create-fragment" - "for-each" - (code :arity 1 :upvalue-count 3 - :bytecode (20 0 0 18 0 20 1 0 16 0 18 1 18 2 48 3 49 2 50) - :constants ( - "dom-append" - "render-to-dom")) - "dom-append" - "scope-pop!" - "sx-island-scope")) - (code :arity 1 :upvalue-count 5 - :bytecode (1 1 0 52 0 0 1 5 20 2 0 20 3 0 18 0 18 1 48 2 48 1 17 1 51 4 0 0 2 17 2 16 1 52 5 0 1 33 22 0 20 6 0 16 1 16 0 16 2 52 7 0 2 18 1 18 3 48 4 32 23 0 20 8 0 16 1 16 0 16 2 52 7 0 2 52 9 0 2 18 1 18 3 48 3 17 3 20 10 0 18 4 16 3 49 2 50) - :constants ( - "scope-pop!" - "sx-island-scope" - "trampoline" - "eval-expr" - (code :upvalue-count 1 - :bytecode (20 0 0 18 0 51 1 0 49 2 50) - :constants ( - "swap!" - (code :arity 1 - :bytecode (16 0 1 1 0 52 0 0 2 50) - :constants ( - "+" - 1)))) - "lambda?" - "render-lambda-dom" - "list" - "render-to-dom" - "apply" - "dom-append"))))))))) diff --git a/shared/static/wasm/sx/adapter-dom.sxbc.json b/shared/static/wasm/sx/adapter-dom.sxbc.json deleted file mode 100644 index fae0e6a8..00000000 --- a/shared/static/wasm/sx/adapter-dom.sxbc.json +++ /dev/null @@ -1 +0,0 @@ -{"magic":"SXBC","version":1,"hash":"3bc60b6ea15ee2ba","module":{"bytecode":[1,1,0,128,0,0,5,1,3,0,128,2,0,5,51,5,0,128,4,0,5,52,7,0,0,128,6,0,5,1,9,0,128,8,0,5,51,11,0,128,10,0,5,51,13,0,128,12,0,5,51,15,0,128,14,0,5,51,17,0,128,16,0,5,51,19,0,128,18,0,5,51,21,0,128,20,0,5,51,23,0,128,22,0,5,51,25,0,128,24,0,5,51,27,0,128,26,0,5,51,29,0,128,28,0,5,1,32,0,1,33,0,1,34,0,1,35,0,1,36,0,1,37,0,1,38,0,1,39,0,1,40,0,1,41,0,1,42,0,1,43,0,1,44,0,1,45,0,1,46,0,1,47,0,1,48,0,1,49,0,1,50,0,1,51,0,1,52,0,1,53,0,1,54,0,52,31,0,23,128,30,0,5,51,56,0,128,55,0,5,51,58,0,128,57,0,5,51,60,0,128,59,0,5,51,62,0,128,61,0,5,51,64,0,128,63,0,5,51,66,0,128,65,0,5,51,68,0,128,67,0,5,51,70,0,128,69,0,5,51,72,0,128,71,0,5,51,74,0,128,73,0,5,51,76,0,128,75,0,5,51,78,0,128,77,0,5,51,80,0,128,79,0,5,51,82,0,128,81,0,5,3,128,83,0,5,51,85,0,128,84,0,5,51,87,0,128,86,0,5,51,89,0,128,88,0,5,51,91,0,128,90,0,5,51,93,0,128,92,0,50],"constants":[{"t":"s","v":"SVG_NS"},{"t":"s","v":"http://www.w3.org/2000/svg"},{"t":"s","v":"MATH_NS"},{"t":"s","v":"http://www.w3.org/1998/Math/MathML"},{"t":"s","v":"island-scope?"},{"t":"code","v":{"bytecode":[1,3,0,52,2,0,1,52,1,0,1,52,0,0,1,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"nil?"},{"t":"s","v":"scope-peek"},{"t":"s","v":"sx-island-scope"}]}},{"t":"s","v":"*memo-cache*"},{"t":"s","v":"dict"},{"t":"s","v":"*cyst-counter*"},{"t":"n","v":0},{"t":"s","v":"next-cyst-id"},{"t":"code","v":{"bytecode":[20,1,0,1,2,0,52,0,0,2,21,1,0,5,1,4,0,20,1,0,52,3,0,2,50],"constants":[{"t":"s","v":"+"},{"t":"s","v":"*cyst-counter*"},{"t":"n","v":1},{"t":"s","v":"str"},{"t":"s","v":"sx-cyst-"}]}},{"t":"s","v":"contains-deref?"},{"t":"code","v":{"bytecode":[16,0,52,1,0,1,52,0,0,1,33,4,0,4,32,69,0,16,0,52,2,0,1,33,4,0,4,32,56,0,16,0,52,5,0,1,52,4,0,1,1,6,0,52,3,0,2,6,33,19,0,5,20,7,0,16,0,52,5,0,1,48,1,1,8,0,52,3,0,2,33,4,0,3,32,9,0,20,10,0,16,0,52,9,0,2,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"list?"},{"t":"s","v":"empty?"},{"t":"s","v":"="},{"t":"s","v":"type-of"},{"t":"s","v":"first"},{"t":"s","v":"symbol"},{"t":"s","v":"symbol-name"},{"t":"s","v":"deref"},{"t":"s","v":"some"},{"t":"s","v":"contains-deref?"}],"arity":1}},{"t":"s","v":"dom-on"},{"t":"code","v":{"bytecode":[20,0,0,16,0,16,1,16,2,52,1,0,1,33,36,0,1,3,0,16,2,52,5,0,1,52,4,0,1,52,2,0,2,33,8,0,51,6,0,1,2,32,5,0,51,7,0,1,2,32,2,0,16,2,49,3,50],"constants":[{"t":"s","v":"dom-listen"},{"t":"s","v":"lambda?"},{"t":"s","v":"="},{"t":"n","v":0},{"t":"s","v":"len"},{"t":"s","v":"lambda-params"},{"t":"code","v":{"bytecode":[20,0,0,20,1,0,18,0,52,2,0,0,48,2,48,1,5,20,3,0,49,0,50],"constants":[{"t":"s","v":"trampoline"},{"t":"s","v":"call-lambda"},{"t":"s","v":"list"},{"t":"s","v":"run-post-render-hooks"}],"arity":1,"upvalue-count":1}},{"t":"code","v":{"bytecode":[20,0,0,20,1,0,18,0,16,0,52,2,0,1,48,2,48,1,5,20,3,0,49,0,50],"constants":[{"t":"s","v":"trampoline"},{"t":"s","v":"call-lambda"},{"t":"s","v":"list"},{"t":"s","v":"run-post-render-hooks"}],"arity":1,"upvalue-count":1}}],"arity":3}},{"t":"s","v":"render-to-dom"},{"t":"code","v":{"bytecode":[20,0,0,3,48,1,5,16,0,52,1,0,1,6,1,2,0,52,3,0,2,33,9,0,5,20,4,0,49,0,32,106,1,6,1,5,0,52,3,0,2,33,9,0,5,20,4,0,49,0,32,86,1,6,1,6,0,52,3,0,2,33,15,0,5,20,7,0,16,0,52,8,0,1,49,1,32,60,1,6,1,9,0,52,3,0,2,33,11,0,5,20,10,0,16,0,49,1,32,38,1,6,1,11,0,52,3,0,2,33,15,0,5,20,10,0,16,0,52,12,0,1,49,1,32,12,1,6,1,13,0,52,3,0,2,33,27,0,5,20,14,0,20,15,0,20,16,0,16,0,16,1,48,2,48,1,16,1,16,2,49,3,32,230,0,6,1,17,0,52,3,0,2,33,16,0,5,20,10,0,20,18,0,16,0,48,1,49,1,32,203,0,6,1,19,0,52,3,0,2,33,6,0,5,16,0,32,186,0,6,1,20,0,52,3,0,2,33,36,0,5,20,22,0,48,0,52,21,0,1,33,16,0,1,24,0,16,0,52,25,0,1,52,23,0,2,32,1,0,2,5,16,0,32,139,0,6,1,26,0,52,3,0,2,33,26,0,5,16,0,1,28,0,52,27,0,2,33,5,0,16,0,32,5,0,20,4,0,49,0,32,102,0,6,1,29,0,52,3,0,2,33,32,0,5,16,0,52,30,0,1,33,8,0,20,4,0,49,0,32,11,0,20,31,0,16,0,16,1,16,2,49,3,32,59,0,5,20,32,0,16,0,48,1,33,37,0,20,22,0,48,0,33,10,0,20,33,0,16,0,49,1,32,16,0,20,10,0,20,34,0,16,0,48,1,52,12,0,1,49,1,32,11,0,20,10,0,16,0,52,12,0,1,49,1,50],"constants":[{"t":"s","v":"set-render-active!"},{"t":"s","v":"type-of"},{"t":"s","v":"nil"},{"t":"s","v":"="},{"t":"s","v":"create-fragment"},{"t":"s","v":"boolean"},{"t":"s","v":"raw-html"},{"t":"s","v":"dom-parse-html"},{"t":"s","v":"raw-html-content"},{"t":"s","v":"string"},{"t":"s","v":"create-text-node"},{"t":"s","v":"number"},{"t":"s","v":"str"},{"t":"s","v":"symbol"},{"t":"s","v":"render-to-dom"},{"t":"s","v":"trampoline"},{"t":"s","v":"eval-expr"},{"t":"s","v":"keyword"},{"t":"s","v":"keyword-name"},{"t":"s","v":"dom-node"},{"t":"s","v":"spread"},{"t":"s","v":"not"},{"t":"s","v":"island-scope?"},{"t":"s","v":"scope-emit!"},{"t":"s","v":"element-attrs"},{"t":"s","v":"spread-attrs"},{"t":"s","v":"dict"},{"t":"s","v":"has-key?"},{"t":"s","v":"__host_handle"},{"t":"s","v":"list"},{"t":"s","v":"empty?"},{"t":"s","v":"render-dom-list"},{"t":"s","v":"signal?"},{"t":"s","v":"reactive-text"},{"t":"s","v":"deref"}],"arity":3}},{"t":"s","v":"render-dom-list"},{"t":"code","v":{"bytecode":[16,0,52,0,0,1,17,3,16,3,52,2,0,1,1,3,0,52,1,0,2,33,253,2,20,4,0,16,3,48,1,17,4,16,0,52,5,0,1,17,5,16,4,1,6,0,52,1,0,2,33,12,0,20,7,0,16,5,16,1,49,2,32,209,2,16,4,1,8,0,52,1,0,2,33,14,0,20,9,0,16,5,16,1,16,2,49,3,32,183,2,16,4,1,10,0,52,1,0,2,33,14,0,20,11,0,16,5,16,1,16,2,49,3,32,157,2,16,4,1,12,0,52,1,0,2,33,14,0,20,13,0,16,5,16,1,16,2,49,3,32,131,2,16,4,1,15,0,52,14,0,2,33,23,0,20,16,0,16,4,1,18,0,52,17,0,2,16,5,16,1,16,2,49,4,32,96,2,20,19,0,16,4,48,1,33,91,0,20,21,0,16,4,52,20,0,2,6,33,43,0,5,16,5,52,23,0,1,1,24,0,52,22,0,2,6,33,18,0,5,16,5,52,0,0,1,52,2,0,1,1,25,0,52,1,0,2,6,34,3,0,5,16,2,33,16,0,20,16,0,16,4,16,5,16,1,16,2,49,4,32,13,0,20,26,0,16,4,16,0,16,1,16,2,49,4,32,251,1,20,27,0,16,1,16,4,48,2,6,33,14,0,5,20,29,0,16,1,16,4,48,2,52,28,0,1,33,30,0,20,30,0,20,31,0,20,29,0,16,1,16,4,48,2,16,5,16,1,48,3,16,1,16,2,49,3,32,191,1,20,21,0,16,4,52,20,0,2,33,16,0,20,16,0,16,4,16,5,16,1,16,2,49,4,32,163,1,16,4,1,32,0,52,14,0,2,6,33,28,0,5,20,27,0,16,1,16,4,48,2,6,33,14,0,5,20,29,0,16,1,16,4,48,2,52,33,0,1,33,77,0,1,35,0,52,34,0,1,33,44,0,20,29,0,16,1,16,4,48,2,17,6,20,36,0,1,37,0,2,48,2,17,7,20,38,0,16,7,1,39,0,16,6,52,40,0,1,48,3,5,16,7,32,20,0,20,41,0,20,29,0,16,1,16,4,48,2,16,5,16,1,16,2,49,4,32,42,1,16,4,1,32,0,52,14,0,2,33,46,0,20,29,0,16,1,16,4,48,2,17,6,16,6,52,42,0,1,33,16,0,20,43,0,16,6,16,5,16,1,16,2,49,4,32,7,0,20,44,0,16,4,49,1,32,240,0,16,4,1,46,0,52,45,0,2,1,24,0,52,22,0,2,6,33,36,0,5,16,5,52,23,0,1,1,24,0,52,22,0,2,6,33,18,0,5,16,5,52,0,0,1,52,2,0,1,1,25,0,52,1,0,2,33,16,0,20,16,0,16,4,16,5,16,1,16,2,49,4,32,165,0,16,2,33,16,0,20,16,0,16,4,16,5,16,1,16,2,49,4,32,144,0,16,4,1,47,0,52,1,0,2,6,33,6,0,5,20,48,0,48,0,33,59,0,20,49,0,20,50,0,16,5,52,0,0,1,16,1,48,2,48,1,17,6,20,51,0,16,6,48,1,33,10,0,20,52,0,16,6,49,1,32,16,0,20,53,0,20,47,0,16,6,48,1,52,54,0,1,49,1,32,63,0,20,48,0,48,0,6,33,8,0,5,20,55,0,16,0,48,1,33,20,0,20,52,0,20,56,0,51,57,0,1,0,1,1,48,1,49,1,32,23,0,20,30,0,20,49,0,20,50,0,16,0,16,1,48,2,48,1,16,1,16,2,49,3,32,78,0,16,3,52,58,0,1,6,34,14,0,5,16,3,52,2,0,1,1,59,0,52,1,0,2,33,26,0,20,30,0,20,49,0,20,50,0,16,0,16,1,48,2,48,1,16,1,16,2,49,3,32,25,0,20,60,0,48,0,17,4,51,62,0,1,1,1,2,1,4,16,0,52,61,0,2,5,16,4,50],"constants":[{"t":"s","v":"first"},{"t":"s","v":"="},{"t":"s","v":"type-of"},{"t":"s","v":"symbol"},{"t":"s","v":"symbol-name"},{"t":"s","v":"rest"},{"t":"s","v":"raw!"},{"t":"s","v":"render-dom-raw"},{"t":"s","v":"<>"},{"t":"s","v":"render-dom-fragment"},{"t":"s","v":"lake"},{"t":"s","v":"render-dom-lake"},{"t":"s","v":"marsh"},{"t":"s","v":"render-dom-marsh"},{"t":"s","v":"starts-with?"},{"t":"s","v":"html:"},{"t":"s","v":"render-dom-element"},{"t":"s","v":"slice"},{"t":"n","v":5},{"t":"s","v":"render-dom-form?"},{"t":"s","v":"contains?"},{"t":"s","v":"HTML_TAGS"},{"t":"s","v":">"},{"t":"s","v":"len"},{"t":"n","v":0},{"t":"s","v":"keyword"},{"t":"s","v":"dispatch-render-form"},{"t":"s","v":"env-has?"},{"t":"s","v":"macro?"},{"t":"s","v":"env-get"},{"t":"s","v":"render-to-dom"},{"t":"s","v":"expand-macro"},{"t":"s","v":"~"},{"t":"s","v":"island?"},{"t":"s","v":"scope-peek"},{"t":"s","v":"sx-render-markers"},{"t":"s","v":"dom-create-element"},{"t":"s","v":"span"},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"data-sx-island"},{"t":"s","v":"component-name"},{"t":"s","v":"render-dom-island"},{"t":"s","v":"component?"},{"t":"s","v":"render-dom-component"},{"t":"s","v":"render-dom-unknown-component"},{"t":"s","v":"index-of"},{"t":"s","v":"-"},{"t":"s","v":"deref"},{"t":"s","v":"island-scope?"},{"t":"s","v":"trampoline"},{"t":"s","v":"eval-expr"},{"t":"s","v":"signal?"},{"t":"s","v":"reactive-text"},{"t":"s","v":"create-text-node"},{"t":"s","v":"str"},{"t":"s","v":"contains-deref?"},{"t":"s","v":"computed"},{"t":"code","v":{"bytecode":[20,0,0,20,1,0,18,0,18,1,48,2,49,1,50],"constants":[{"t":"s","v":"trampoline"},{"t":"s","v":"eval-expr"}],"upvalue-count":2}},{"t":"s","v":"lambda?"},{"t":"s","v":"list"},{"t":"s","v":"create-fragment"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,16,0,18,0,18,1,48,3,17,1,16,1,52,2,0,1,52,1,0,1,33,12,0,20,3,0,18,2,16,1,49,2,32,1,0,2,50],"constants":[{"t":"s","v":"render-to-dom"},{"t":"s","v":"not"},{"t":"s","v":"spread?"},{"t":"s","v":"dom-append"}],"arity":1,"upvalue-count":3}}],"arity":3}},{"t":"s","v":"render-dom-element"},{"t":"code","v":{"bytecode":[16,0,1,1,0,52,0,0,2,33,6,0,20,2,0,32,20,0,16,0,1,3,0,52,0,0,2,33,6,0,20,4,0,32,2,0,16,3,17,4,20,5,0,16,0,16,4,48,2,17,5,1,7,0,2,52,6,0,2,5,51,9,0,1,1,1,2,1,5,1,0,1,4,1,11,0,1,12,0,1,13,0,4,52,10,0,4,16,1,52,8,0,3,5,51,15,0,1,5,1,7,0,52,16,0,1,52,14,0,2,5,1,7,0,52,17,0,1,5,16,5,50],"constants":[{"t":"s","v":"="},{"t":"s","v":"svg"},{"t":"s","v":"SVG_NS"},{"t":"s","v":"math"},{"t":"s","v":"MATH_NS"},{"t":"s","v":"dom-create-element"},{"t":"s","v":"scope-push!"},{"t":"s","v":"element-attrs"},{"t":"s","v":"reduce"},{"t":"code","v":{"bytecode":[16,0,1,1,0,52,0,0,2,17,2,16,2,33,29,0,16,0,1,1,0,4,1,3,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,2,0,5,32,58,2,16,1,52,6,0,1,1,7,0,52,5,0,2,6,33,24,0,5,16,0,1,3,0,52,0,0,2,52,4,0,1,18,0,52,9,0,1,52,8,0,2,33,154,1,20,10,0,16,1,48,1,17,3,18,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,11,0,2,17,4,16,3,1,13,0,52,12,0,2,33,51,0,20,14,0,20,15,0,16,4,18,1,48,2,48,1,17,5,20,16,0,16,5,48,1,33,21,0,20,17,0,18,2,16,3,1,19,0,52,18,0,2,16,5,48,3,32,1,0,2,32,31,1,16,3,1,20,0,52,5,0,2,33,42,0,20,14,0,20,15,0,16,4,18,1,48,2,48,1,17,5,20,21,0,16,5,48,1,33,12,0,20,22,0,18,2,16,5,48,2,32,1,0,2,32,233,0,16,3,1,23,0,52,5,0,2,33,30,0,20,14,0,20,15,0,16,4,18,1,48,2,48,1,17,5,16,5,1,25,0,18,2,52,24,0,3,32,191,0,16,3,1,26,0,52,5,0,2,33,35,0,20,14,0,20,15,0,16,4,18,1,48,2,48,1,17,5,20,27,0,18,2,1,26,0,16,5,52,28,0,1,48,3,32,144,0,20,29,0,48,0,33,19,0,20,30,0,18,2,16,3,51,31,0,1,4,0,1,48,3,32,117,0,20,14,0,20,15,0,16,4,18,1,48,2,48,1,17,5,16,5,52,32,0,1,6,34,8,0,5,16,5,4,52,5,0,2,33,4,0,2,32,76,0,20,34,0,16,3,52,33,0,2,33,24,0,16,5,33,15,0,20,27,0,18,2,16,3,1,35,0,48,3,32,1,0,2,32,40,0,16,5,3,52,5,0,2,33,15,0,20,27,0,18,2,16,3,1,35,0,48,3,32,15,0,20,27,0,18,2,16,3,16,5,52,28,0,1,48,3,5,16,0,1,1,0,3,1,3,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,2,0,5,32,116,0,20,37,0,18,3,52,33,0,2,52,36,0,1,33,76,0,20,38,0,16,1,18,1,18,4,48,3,17,3,16,3,52,39,0,1,6,33,6,0,5,20,29,0,48,0,33,19,0,20,40,0,18,2,51,41,0,1,1,0,1,0,4,48,2,32,22,0,16,3,52,39,0,1,33,4,0,2,32,9,0,20,42,0,18,2,16,3,48,2,32,1,0,2,5,16,0,1,3,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,2,0,3,50],"constants":[{"t":"s","v":"get"},{"t":"s","v":"skip"},{"t":"s","v":"assoc"},{"t":"s","v":"i"},{"t":"s","v":"inc"},{"t":"s","v":"="},{"t":"s","v":"type-of"},{"t":"s","v":"keyword"},{"t":"s","v":"<"},{"t":"s","v":"len"},{"t":"s","v":"keyword-name"},{"t":"s","v":"nth"},{"t":"s","v":"starts-with?"},{"t":"s","v":"on-"},{"t":"s","v":"trampoline"},{"t":"s","v":"eval-expr"},{"t":"s","v":"callable?"},{"t":"s","v":"dom-on"},{"t":"s","v":"slice"},{"t":"n","v":3},{"t":"s","v":"bind"},{"t":"s","v":"signal?"},{"t":"s","v":"bind-input"},{"t":"s","v":"ref"},{"t":"s","v":"dict-set!"},{"t":"s","v":"current"},{"t":"s","v":"key"},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"str"},{"t":"s","v":"island-scope?"},{"t":"s","v":"reactive-attr"},{"t":"code","v":{"bytecode":[20,0,0,20,1,0,18,0,18,1,48,2,49,1,50],"constants":[{"t":"s","v":"trampoline"},{"t":"s","v":"eval-expr"}],"upvalue-count":2}},{"t":"s","v":"nil?"},{"t":"s","v":"contains?"},{"t":"s","v":"BOOLEAN_ATTRS"},{"t":"s","v":""},{"t":"s","v":"not"},{"t":"s","v":"VOID_ELEMENTS"},{"t":"s","v":"render-to-dom"},{"t":"s","v":"spread?"},{"t":"s","v":"reactive-spread"},{"t":"code","v":{"bytecode":[20,0,0,18,0,18,1,18,2,49,3,50],"constants":[{"t":"s","v":"render-to-dom"}],"upvalue-count":3}},{"t":"s","v":"dom-append"}],"arity":2,"upvalue-count":5}},{"t":"s","v":"dict"},{"t":"s","v":"i"},{"t":"n","v":0},{"t":"s","v":"skip"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[51,1,0,1,0,0,0,16,0,52,2,0,1,52,0,0,2,50],"constants":[{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[18,0,16,0,52,0,0,2,17,1,16,0,1,2,0,52,1,0,2,33,64,0,20,3,0,18,1,1,2,0,48,2,17,2,20,4,0,18,1,1,2,0,16,2,6,33,14,0,5,16,2,1,6,0,52,1,0,2,52,5,0,1,33,14,0,16,2,1,8,0,16,1,52,7,0,3,32,2,0,16,1,49,3,32,91,0,16,0,1,9,0,52,1,0,2,33,64,0,20,3,0,18,1,1,9,0,48,2,17,2,20,4,0,18,1,1,9,0,16,2,6,33,14,0,5,16,2,1,6,0,52,1,0,2,52,5,0,1,33,14,0,16,2,1,10,0,16,1,52,7,0,3,32,2,0,16,1,49,3,32,15,0,20,4,0,18,1,16,0,16,1,52,7,0,1,49,3,50],"constants":[{"t":"s","v":"dict-get"},{"t":"s","v":"="},{"t":"s","v":"class"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"not"},{"t":"s","v":""},{"t":"s","v":"str"},{"t":"s","v":" "},{"t":"s","v":"style"},{"t":"s","v":";"}],"arity":1,"upvalue-count":2}},{"t":"s","v":"keys"}],"arity":1,"upvalue-count":1}},{"t":"s","v":"scope-emitted"},{"t":"s","v":"scope-pop!"}],"arity":4}},{"t":"s","v":"render-dom-component"},{"t":"code","v":{"bytecode":[52,0,0,0,17,4,52,1,0,0,17,5,51,3,0,1,1,1,2,1,4,1,5,1,4,0,1,5,0,1,6,0,4,52,0,0,4,16,1,52,2,0,3,5,20,7,0,16,0,52,8,0,1,16,2,48,2,17,6,51,10,0,1,6,1,4,16,0,52,11,0,1,52,9,0,2,5,16,0,52,12,0,1,33,38,0,20,13,0,48,0,17,7,51,14,0,1,2,1,3,1,7,16,5,52,9,0,2,5,20,15,0,16,6,1,16,0,16,7,48,3,32,1,0,2,5,20,17,0,16,0,52,18,0,1,16,6,16,3,49,3,50],"constants":[{"t":"s","v":"dict"},{"t":"s","v":"list"},{"t":"s","v":"reduce"},{"t":"code","v":{"bytecode":[16,0,1,1,0,52,0,0,2,17,2,16,2,33,29,0,16,0,1,1,0,4,1,3,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,2,0,5,32,154,0,16,1,52,6,0,1,1,7,0,52,5,0,2,6,33,24,0,5,16,0,1,3,0,52,0,0,2,52,4,0,1,18,0,52,9,0,1,52,8,0,2,33,78,0,20,10,0,20,11,0,18,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,12,0,2,18,1,48,2,48,1,17,3,18,2,20,14,0,16,1,48,1,16,3,52,13,0,3,5,16,0,1,1,0,3,1,3,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,2,0,5,32,32,0,20,15,0,18,3,16,1,48,2,5,16,0,1,3,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,2,0,3,50],"constants":[{"t":"s","v":"get"},{"t":"s","v":"skip"},{"t":"s","v":"assoc"},{"t":"s","v":"i"},{"t":"s","v":"inc"},{"t":"s","v":"="},{"t":"s","v":"type-of"},{"t":"s","v":"keyword"},{"t":"s","v":"<"},{"t":"s","v":"len"},{"t":"s","v":"trampoline"},{"t":"s","v":"eval-expr"},{"t":"s","v":"nth"},{"t":"s","v":"dict-set!"},{"t":"s","v":"keyword-name"},{"t":"s","v":"append!"}],"arity":2,"upvalue-count":4}},{"t":"s","v":"i"},{"t":"n","v":0},{"t":"s","v":"skip"},{"t":"s","v":"env-merge"},{"t":"s","v":"component-closure"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,18,0,16,0,18,1,16,0,52,1,0,2,33,11,0,18,1,16,0,52,2,0,2,32,1,0,2,49,3,50],"constants":[{"t":"s","v":"env-bind!"},{"t":"s","v":"dict-has?"},{"t":"s","v":"dict-get"}],"arity":1,"upvalue-count":2}},{"t":"s","v":"component-params"},{"t":"s","v":"component-has-children?"},{"t":"s","v":"create-fragment"},{"t":"code","v":{"bytecode":[20,0,0,16,0,18,0,18,1,48,3,17,1,16,1,52,2,0,1,52,1,0,1,33,12,0,20,3,0,18,2,16,1,49,2,32,1,0,2,50],"constants":[{"t":"s","v":"render-to-dom"},{"t":"s","v":"not"},{"t":"s","v":"spread?"},{"t":"s","v":"dom-append"}],"arity":1,"upvalue-count":3}},{"t":"s","v":"env-bind!"},{"t":"s","v":"children"},{"t":"s","v":"render-to-dom"},{"t":"s","v":"component-body"}],"arity":4}},{"t":"s","v":"render-dom-fragment"},{"t":"code","v":{"bytecode":[20,0,0,48,0,17,3,51,2,0,1,1,1,2,1,3,16,0,52,1,0,2,5,16,3,50],"constants":[{"t":"s","v":"create-fragment"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,16,0,18,0,18,1,48,3,17,1,16,1,52,2,0,1,52,1,0,1,33,12,0,20,3,0,18,2,16,1,49,2,32,1,0,2,50],"constants":[{"t":"s","v":"render-to-dom"},{"t":"s","v":"not"},{"t":"s","v":"spread?"},{"t":"s","v":"dom-append"}],"arity":1,"upvalue-count":3}}],"arity":3}},{"t":"s","v":"render-dom-raw"},{"t":"code","v":{"bytecode":[20,0,0,48,0,17,2,51,2,0,1,1,1,2,16,0,52,1,0,2,5,16,2,50],"constants":[{"t":"s","v":"create-fragment"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,20,1,0,16,0,18,0,48,2,48,1,17,1,16,1,52,3,0,1,1,4,0,52,2,0,2,33,17,0,20,5,0,18,1,20,6,0,16,1,48,1,49,2,32,68,0,16,1,52,3,0,1,1,7,0,52,2,0,2,33,17,0,20,5,0,18,1,20,8,0,16,1,48,1,49,2,32,35,0,16,1,52,10,0,1,52,9,0,1,33,21,0,20,5,0,18,1,20,11,0,16,1,52,12,0,1,48,1,49,2,32,1,0,2,50],"constants":[{"t":"s","v":"trampoline"},{"t":"s","v":"eval-expr"},{"t":"s","v":"="},{"t":"s","v":"type-of"},{"t":"s","v":"string"},{"t":"s","v":"dom-append"},{"t":"s","v":"dom-parse-html"},{"t":"s","v":"dom-node"},{"t":"s","v":"dom-clone"},{"t":"s","v":"not"},{"t":"s","v":"nil?"},{"t":"s","v":"create-text-node"},{"t":"s","v":"str"}],"arity":1,"upvalue-count":2}}],"arity":2}},{"t":"s","v":"render-dom-unknown-component"},{"t":"code","v":{"bytecode":[1,2,0,16,0,52,1,0,2,52,0,0,1,50],"constants":[{"t":"s","v":"error"},{"t":"s","v":"str"},{"t":"s","v":"Unknown component: "}],"arity":1}},{"t":"s","v":"RENDER_DOM_FORMS"},{"t":"s","v":"list"},{"t":"s","v":"if"},{"t":"s","v":"when"},{"t":"s","v":"cond"},{"t":"s","v":"case"},{"t":"s","v":"let"},{"t":"s","v":"let*"},{"t":"s","v":"letrec"},{"t":"s","v":"begin"},{"t":"s","v":"do"},{"t":"s","v":"define"},{"t":"s","v":"defcomp"},{"t":"s","v":"defisland"},{"t":"s","v":"defmacro"},{"t":"s","v":"defstyle"},{"t":"s","v":"map"},{"t":"s","v":"map-indexed"},{"t":"s","v":"filter"},{"t":"s","v":"for-each"},{"t":"s","v":"portal"},{"t":"s","v":"error-boundary"},{"t":"s","v":"scope"},{"t":"s","v":"provide"},{"t":"s","v":"cyst"},{"t":"s","v":"render-dom-form?"},{"t":"code","v":{"bytecode":[20,1,0,16,0,52,0,0,2,50],"constants":[{"t":"s","v":"contains?"},{"t":"s","v":"RENDER_DOM_FORMS"}],"arity":1}},{"t":"s","v":"dispatch-render-form"},{"t":"code","v":{"bytecode":[16,0,1,1,0,52,0,0,2,33,226,0,20,2,0,48,0,33,124,0,20,3,0,1,4,0,48,1,17,4,52,5,0,0,17,5,2,17,6,20,6,0,51,7,0,1,1,1,2,1,3,1,4,1,5,1,6,48,1,5,16,6,52,8,0,1,33,5,0,16,6,32,67,0,20,9,0,48,0,17,7,20,10,0,16,7,16,4,48,2,5,16,6,33,41,0,20,11,0,16,6,48,1,33,10,0,20,12,0,16,6,48,1,32,6,0,16,6,52,5,0,1,17,5,5,20,10,0,16,7,16,6,48,2,32,1,0,2,5,16,7,32,91,0,20,13,0,20,14,0,16,1,1,16,0,52,15,0,2,16,2,48,2,48,1,17,4,16,4,33,21,0,20,17,0,16,1,1,18,0,52,15,0,2,16,2,16,3,49,3,32,42,0,16,1,52,20,0,1,1,21,0,52,19,0,2,33,21,0,20,17,0,16,1,1,21,0,52,15,0,2,16,2,16,3,49,3,32,5,0,20,9,0,49,0,32,217,7,16,0,1,22,0,52,0,0,2,33,180,0,20,2,0,48,0,33,95,0,20,3,0,1,23,0,48,1,17,4,52,5,0,0,17,5,2,17,6,20,6,0,51,24,0,1,4,1,5,1,1,1,2,1,3,1,6,48,1,5,16,6,52,8,0,1,33,5,0,16,6,32,38,0,20,9,0,48,0,17,7,20,10,0,16,7,16,4,48,2,5,16,6,33,12,0,20,10,0,16,7,16,6,48,2,32,1,0,2,5,16,7,32,74,0,20,13,0,20,14,0,16,1,1,16,0,52,15,0,2,16,2,48,2,48,1,52,25,0,1,33,8,0,20,9,0,49,0,32,38,0,20,9,0,48,0,17,4,51,27,0,1,4,1,1,1,2,1,3,1,18,0,16,1,52,20,0,1,52,28,0,2,52,26,0,2,5,16,4,32,25,7,16,0,1,29,0,52,0,0,2,33,145,0,20,2,0,48,0,33,95,0,20,3,0,1,30,0,48,1,17,4,52,5,0,0,17,5,2,17,6,20,6,0,51,31,0,1,1,1,2,1,4,1,5,1,3,1,6,48,1,5,16,6,52,8,0,1,33,5,0,16,6,32,38,0,20,9,0,48,0,17,7,20,10,0,16,7,16,4,48,2,5,16,6,33,12,0,20,10,0,16,7,16,6,48,2,32,1,0,2,5,16,7,32,39,0,20,32,0,16,1,52,33,0,1,16,2,48,2,17,4,16,4,33,14,0,20,17,0,16,4,16,2,16,3,49,3,32,5,0,20,9,0,49,0,32,124,6,16,0,1,34,0,52,0,0,2,33,26,0,20,17,0,20,13,0,20,14,0,16,1,16,2,48,2,48,1,16,2,16,3,49,3,32,86,6,16,0,1,35,0,52,0,0,2,6,34,10,0,5,16,0,1,36,0,52,0,0,2,33,96,0,20,37,0,16,1,1,16,0,52,15,0,2,16,2,48,2,17,4,16,1,52,20,0,1,1,21,0,52,0,0,2,33,21,0,20,17,0,16,1,1,18,0,52,15,0,2,16,4,16,3,49,3,32,38,0,20,9,0,48,0,17,5,51,38,0,1,1,1,4,1,3,1,5,1,18,0,16,1,52,20,0,1,52,28,0,2,52,26,0,2,5,16,5,32,220,5,16,0,1,39,0,52,0,0,2,33,109,0,16,1,1,16,0,52,15,0,2,17,4,16,1,1,18,0,52,40,0,2,17,5,20,41,0,16,2,48,1,17,6,51,42,0,1,6,16,4,52,26,0,2,5,51,43,0,1,6,16,4,52,26,0,2,5,16,5,52,20,0,1,1,16,0,52,19,0,2,33,18,0,51,44,0,1,6,16,5,52,45,0,1,52,26,0,2,32,1,0,2,5,20,17,0,16,5,52,46,0,1,16,6,16,3,49,3,32,99,5,16,0,1,47,0,52,0,0,2,6,34,10,0,5,16,0,1,48,0,52,0,0,2,33,78,0,16,1,52,20,0,1,1,18,0,52,0,0,2,33,21,0,20,17,0,16,1,1,16,0,52,15,0,2,16,2,16,3,49,3,32,38,0,20,9,0,48,0,17,4,51,38,0,1,1,1,2,1,3,1,4,1,16,0,16,1,52,20,0,1,52,28,0,2,52,26,0,2,5,16,4,32,251,4,20,49,0,16,0,48,1,33,23,0,20,13,0,20,14,0,16,1,16,2,48,2,48,1,5,20,9,0,49,0,32,218,4,16,0,1,50,0,52,0,0,2,33,31,1,16,1,1,18,0,52,15,0,2,17,4,20,2,0,48,0,6,33,77,0,5,16,4,52,51,0,1,1,5,0,52,0,0,2,6,33,59,0,5,16,4,52,20,0,1,1,16,0,52,19,0,2,6,33,41,0,5,16,4,52,52,0,1,52,51,0,1,1,53,0,52,0,0,2,6,33,19,0,5,20,54,0,16,4,52,52,0,1,48,1,1,55,0,52,0,0,2,33,111,0,20,13,0,20,14,0,16,1,1,16,0,52,15,0,2,16,2,48,2,48,1,17,5,20,13,0,20,14,0,16,4,1,16,0,52,15,0,2,16,2,48,2,48,1,17,6,20,56,0,16,6,48,1,33,16,0,20,57,0,16,5,16,6,16,2,16,3,49,4,32,36,0,20,55,0,16,6,48,1,17,7,20,9,0,48,0,17,8,51,58,0,1,5,1,2,1,3,1,8,16,7,52,26,0,2,5,16,8,32,73,0,20,13,0,20,14,0,16,1,1,16,0,52,15,0,2,16,2,48,2,48,1,17,5,20,13,0,20,14,0,16,1,1,18,0,52,15,0,2,16,2,48,2,48,1,17,6,20,9,0,48,0,17,7,51,58,0,1,5,1,2,1,3,1,7,16,6,52,26,0,2,5,16,7,32,175,3,16,0,1,59,0,52,0,0,2,33,76,0,20,13,0,20,14,0,16,1,1,16,0,52,15,0,2,16,2,48,2,48,1,17,4,20,13,0,20,14,0,16,1,1,18,0,52,15,0,2,16,2,48,2,48,1,17,5,20,9,0,48,0,17,6,51,61,0,1,4,1,2,1,3,1,6,16,5,52,60,0,2,5,16,6,32,87,3,16,0,1,62,0,52,0,0,2,33,26,0,20,17,0,20,13,0,20,14,0,16,1,16,2,48,2,48,1,16,2,16,3,49,3,32,49,3,16,0,1,63,0,52,0,0,2,33,18,0,20,64,0,16,1,52,33,0,1,16,2,16,3,49,3,32,19,3,16,0,1,65,0,52,0,0,2,33,18,0,20,66,0,16,1,52,33,0,1,16,2,16,3,49,3,32,245,2,16,0,1,26,0,52,0,0,2,33,76,0,20,13,0,20,14,0,16,1,1,16,0,52,15,0,2,16,2,48,2,48,1,17,4,20,13,0,20,14,0,16,1,1,18,0,52,15,0,2,16,2,48,2,48,1,17,5,20,9,0,48,0,17,6,51,58,0,1,4,1,2,1,3,1,6,16,5,52,26,0,2,5,16,6,32,157,2,16,0,1,67,0,52,0,0,2,33,188,0,20,13,0,20,14,0,16,1,1,16,0,52,15,0,2,16,2,48,2,48,1,17,4,16,1,1,18,0,52,40,0,2,17,5,2,17,6,2,17,7,20,9,0,48,0,17,8,16,5,52,20,0,1,1,18,0,52,68,0,2,6,33,41,0,5,16,5,52,52,0,1,52,51,0,1,1,69,0,52,0,0,2,6,33,19,0,5,20,70,0,16,5,52,52,0,1,48,1,1,71,0,52,0,0,2,33,38,0,20,13,0,20,14,0,16,5,1,16,0,52,15,0,2,16,2,48,2,48,1,17,6,5,16,5,1,18,0,52,40,0,2,17,7,32,4,0,16,5,17,7,5,16,4,16,6,52,72,0,2,5,51,73,0,1,8,1,2,1,3,16,7,52,26,0,2,5,16,4,52,74,0,1,5,16,8,32,213,1,16,0,1,75,0,52,0,0,2,33,103,0,20,13,0,20,14,0,16,1,1,16,0,52,15,0,2,16,2,48,2,48,1,17,4,20,13,0,20,14,0,16,1,1,18,0,52,15,0,2,16,2,48,2,48,1,17,5,20,9,0,48,0,17,6,16,4,16,5,52,72,0,2,5,51,27,0,1,6,1,1,1,2,1,3,1,21,0,16,1,52,20,0,1,52,28,0,2,52,26,0,2,5,16,4,52,74,0,1,5,16,6,32,98,1,16,0,1,76,0,52,0,0,2,33,63,1,16,1,52,20,0,1,1,18,0,52,19,0,2,6,33,47,0,5,16,1,1,16,0,52,15,0,2,52,51,0,1,1,69,0,52,0,0,2,6,33,22,0,5,20,70,0,16,1,1,16,0,52,15,0,2,48,1,1,77,0,52,0,0,2,33,28,0,20,13,0,20,14,0,16,1,1,18,0,52,15,0,2,16,2,48,2,48,1,52,78,0,1,32,5,0,20,79,0,48,0,17,4,20,81,0,16,4,52,80,0,2,17,5,16,5,6,33,11,0,5,20,82,0,16,5,1,83,0,48,2,33,5,0,16,5,32,178,0,20,84,0,1,85,0,2,48,2,17,6,52,5,0,0,17,7,16,1,52,20,0,1,1,18,0,52,19,0,2,6,33,47,0,5,16,1,1,16,0,52,15,0,2,52,51,0,1,1,69,0,52,0,0,2,6,33,22,0,5,20,70,0,16,1,1,16,0,52,15,0,2,48,1,1,77,0,52,0,0,2,33,12,0,16,1,1,21,0,52,40,0,2,32,9,0,16,1,1,16,0,52,40,0,2,17,8,20,86,0,16,6,1,87,0,16,4,48,3,5,20,88,0,51,89,0,1,7,51,90,0,1,2,1,3,1,8,48,2,17,9,20,10,0,16,6,16,9,48,2,5,20,91,0,16,6,1,92,0,16,7,48,3,5,20,81,0,16,4,16,6,52,93,0,3,5,16,6,32,23,0,20,17,0,20,13,0,20,14,0,16,1,16,2,48,2,48,1,16,2,16,3,49,3,50],"constants":[{"t":"s","v":"="},{"t":"s","v":"if"},{"t":"s","v":"island-scope?"},{"t":"s","v":"create-comment"},{"t":"s","v":"r-if"},{"t":"s","v":"list"},{"t":"s","v":"effect"},{"t":"code","v":{"bytecode":[20,0,0,20,1,0,18,0,1,3,0,52,2,0,2,18,1,48,2,48,1,17,1,16,1,33,21,0,20,4,0,18,0,1,5,0,52,2,0,2,18,1,18,2,48,3,32,42,0,18,0,52,7,0,1,1,8,0,52,6,0,2,33,21,0,20,4,0,18,0,1,8,0,52,2,0,2,18,1,18,2,48,3,32,5,0,20,9,0,48,0,17,0,20,10,0,18,3,48,1,33,51,0,51,12,0,18,4,52,11,0,2,5,20,13,0,16,0,48,1,33,10,0,20,14,0,16,0,48,1,32,6,0,16,0,52,15,0,1,19,4,5,20,16,0,18,3,16,0,49,2,32,4,0,16,0,19,5,50],"constants":[{"t":"s","v":"trampoline"},{"t":"s","v":"eval-expr"},{"t":"s","v":"nth"},{"t":"n","v":1},{"t":"s","v":"render-to-dom"},{"t":"n","v":2},{"t":"s","v":">"},{"t":"s","v":"len"},{"t":"n","v":3},{"t":"s","v":"create-fragment"},{"t":"s","v":"dom-parent"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,16,0,49,1,50],"constants":[{"t":"s","v":"dom-remove"}],"arity":1}},{"t":"s","v":"dom-is-fragment?"},{"t":"s","v":"dom-child-nodes"},{"t":"s","v":"list"},{"t":"s","v":"dom-insert-after"}],"upvalue-count":6}},{"t":"s","v":"spread?"},{"t":"s","v":"create-fragment"},{"t":"s","v":"dom-append"},{"t":"s","v":"dom-is-fragment?"},{"t":"s","v":"dom-child-nodes"},{"t":"s","v":"trampoline"},{"t":"s","v":"eval-expr"},{"t":"s","v":"nth"},{"t":"n","v":1},{"t":"s","v":"render-to-dom"},{"t":"n","v":2},{"t":"s","v":">"},{"t":"s","v":"len"},{"t":"n","v":3},{"t":"s","v":"when"},{"t":"s","v":"r-when"},{"t":"code","v":{"bytecode":[20,0,0,18,0,48,1,33,103,0,51,2,0,18,1,52,1,0,2,5,52,3,0,0,19,1,5,20,4,0,20,5,0,18,2,1,7,0,52,6,0,2,18,3,48,2,48,1,33,58,0,20,8,0,48,0,17,0,51,9,0,1,0,0,2,0,3,0,4,1,11,0,18,2,52,12,0,1,52,10,0,2,52,1,0,2,5,20,13,0,16,0,48,1,19,1,5,20,14,0,18,0,16,0,49,2,32,1,0,2,32,78,0,20,4,0,20,5,0,18,2,1,7,0,52,6,0,2,18,3,48,2,48,1,33,53,0,20,8,0,48,0,17,0,51,9,0,1,0,0,2,0,3,0,4,1,11,0,18,2,52,12,0,1,52,10,0,2,52,1,0,2,5,20,13,0,16,0,48,1,19,1,5,16,0,19,5,32,1,0,2,50],"constants":[{"t":"s","v":"dom-parent"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,16,0,49,1,50],"constants":[{"t":"s","v":"dom-remove"}],"arity":1}},{"t":"s","v":"list"},{"t":"s","v":"trampoline"},{"t":"s","v":"eval-expr"},{"t":"s","v":"nth"},{"t":"n","v":1},{"t":"s","v":"create-fragment"},{"t":"code","v":{"bytecode":[20,0,0,18,0,20,1,0,18,1,16,0,52,2,0,2,18,2,18,3,48,3,49,2,50],"constants":[{"t":"s","v":"dom-append"},{"t":"s","v":"render-to-dom"},{"t":"s","v":"nth"}],"arity":1,"upvalue-count":4}},{"t":"s","v":"range"},{"t":"n","v":2},{"t":"s","v":"len"},{"t":"s","v":"dom-child-nodes"},{"t":"s","v":"dom-insert-after"}],"upvalue-count":6}},{"t":"s","v":"not"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,18,0,20,1,0,18,1,16,0,52,2,0,2,18,2,18,3,48,3,49,2,50],"constants":[{"t":"s","v":"dom-append"},{"t":"s","v":"render-to-dom"},{"t":"s","v":"nth"}],"arity":1,"upvalue-count":4}},{"t":"s","v":"range"},{"t":"s","v":"cond"},{"t":"s","v":"r-cond"},{"t":"code","v":{"bytecode":[20,0,0,18,0,52,1,0,1,18,1,48,2,17,0,20,2,0,18,2,48,1,33,80,0,51,4,0,18,3,52,3,0,2,5,52,5,0,0,19,3,5,16,0,33,54,0,20,6,0,16,0,18,1,18,4,48,3,17,1,20,7,0,16,1,48,1,33,10,0,20,8,0,16,1,48,1,32,6,0,16,1,52,5,0,1,19,3,5,20,9,0,18,2,16,1,49,2,32,1,0,2,32,55,0,16,0,33,49,0,20,6,0,16,0,18,1,18,4,48,3,17,1,20,7,0,16,1,48,1,33,10,0,20,8,0,16,1,48,1,32,6,0,16,1,52,5,0,1,19,3,5,16,1,19,5,32,1,0,2,50],"constants":[{"t":"s","v":"eval-cond"},{"t":"s","v":"rest"},{"t":"s","v":"dom-parent"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,16,0,49,1,50],"constants":[{"t":"s","v":"dom-remove"}],"arity":1}},{"t":"s","v":"list"},{"t":"s","v":"render-to-dom"},{"t":"s","v":"dom-is-fragment?"},{"t":"s","v":"dom-child-nodes"},{"t":"s","v":"dom-insert-after"}],"upvalue-count":6}},{"t":"s","v":"eval-cond"},{"t":"s","v":"rest"},{"t":"s","v":"case"},{"t":"s","v":"let"},{"t":"s","v":"let*"},{"t":"s","v":"process-bindings"},{"t":"code","v":{"bytecode":[20,0,0,18,0,16,0,52,1,0,2,18,1,18,2,48,3,17,1,16,1,52,3,0,1,52,2,0,1,33,12,0,20,4,0,18,3,16,1,49,2,32,1,0,2,50],"constants":[{"t":"s","v":"render-to-dom"},{"t":"s","v":"nth"},{"t":"s","v":"not"},{"t":"s","v":"spread?"},{"t":"s","v":"dom-append"}],"arity":1,"upvalue-count":4}},{"t":"s","v":"letrec"},{"t":"s","v":"slice"},{"t":"s","v":"env-extend"},{"t":"code","v":{"bytecode":[16,0,52,2,0,1,52,1,0,1,1,3,0,52,0,0,2,33,14,0,20,4,0,16,0,52,2,0,1,48,1,32,10,0,16,0,52,2,0,1,52,5,0,1,17,1,20,6,0,18,0,16,1,2,49,3,50],"constants":[{"t":"s","v":"="},{"t":"s","v":"type-of"},{"t":"s","v":"first"},{"t":"s","v":"symbol"},{"t":"s","v":"symbol-name"},{"t":"s","v":"str"},{"t":"s","v":"env-bind!"}],"arity":1,"upvalue-count":1}},{"t":"code","v":{"bytecode":[16,0,52,2,0,1,52,1,0,1,1,3,0,52,0,0,2,33,14,0,20,4,0,16,0,52,2,0,1,48,1,32,10,0,16,0,52,2,0,1,52,5,0,1,17,1,20,6,0,18,0,16,1,20,7,0,20,8,0,16,0,1,10,0,52,9,0,2,18,0,48,2,48,1,49,3,50],"constants":[{"t":"s","v":"="},{"t":"s","v":"type-of"},{"t":"s","v":"first"},{"t":"s","v":"symbol"},{"t":"s","v":"symbol-name"},{"t":"s","v":"str"},{"t":"s","v":"env-set!"},{"t":"s","v":"trampoline"},{"t":"s","v":"eval-expr"},{"t":"s","v":"nth"},{"t":"n","v":1}],"arity":1,"upvalue-count":1}},{"t":"code","v":{"bytecode":[20,0,0,20,1,0,16,0,18,0,48,2,49,1,50],"constants":[{"t":"s","v":"trampoline"},{"t":"s","v":"eval-expr"}],"arity":1,"upvalue-count":1}},{"t":"s","v":"init"},{"t":"s","v":"last"},{"t":"s","v":"begin"},{"t":"s","v":"do"},{"t":"s","v":"definition-form?"},{"t":"s","v":"map"},{"t":"s","v":"type-of"},{"t":"s","v":"first"},{"t":"s","v":"symbol"},{"t":"s","v":"symbol-name"},{"t":"s","v":"deref"},{"t":"s","v":"signal?"},{"t":"s","v":"reactive-list"},{"t":"code","v":{"bytecode":[18,0,52,0,0,1,33,20,0,20,1,0,18,0,16,0,52,2,0,1,18,1,18,2,48,4,32,21,0,20,3,0,18,0,16,0,52,2,0,1,52,4,0,2,18,1,18,2,48,3,17,1,20,5,0,18,3,16,1,49,2,50],"constants":[{"t":"s","v":"lambda?"},{"t":"s","v":"render-lambda-dom"},{"t":"s","v":"list"},{"t":"s","v":"render-to-dom"},{"t":"s","v":"apply"},{"t":"s","v":"dom-append"}],"arity":1,"upvalue-count":4}},{"t":"s","v":"map-indexed"},{"t":"s","v":"for-each-indexed"},{"t":"code","v":{"bytecode":[18,0,52,0,0,1,33,22,0,20,1,0,18,0,16,0,16,1,52,2,0,2,18,1,18,2,48,4,32,23,0,20,3,0,18,0,16,0,16,1,52,2,0,2,52,4,0,2,18,1,18,2,48,3,17,2,20,5,0,18,3,16,2,49,2,50],"constants":[{"t":"s","v":"lambda?"},{"t":"s","v":"render-lambda-dom"},{"t":"s","v":"list"},{"t":"s","v":"render-to-dom"},{"t":"s","v":"apply"},{"t":"s","v":"dom-append"}],"arity":2,"upvalue-count":4}},{"t":"s","v":"filter"},{"t":"s","v":"portal"},{"t":"s","v":"render-dom-portal"},{"t":"s","v":"error-boundary"},{"t":"s","v":"render-dom-error-boundary"},{"t":"s","v":"scope"},{"t":"s","v":">="},{"t":"s","v":"keyword"},{"t":"s","v":"keyword-name"},{"t":"s","v":"value"},{"t":"s","v":"scope-push!"},{"t":"code","v":{"bytecode":[20,0,0,18,0,20,1,0,16,0,18,1,18,2,48,3,49,2,50],"constants":[{"t":"s","v":"dom-append"},{"t":"s","v":"render-to-dom"}],"arity":1,"upvalue-count":3}},{"t":"s","v":"scope-pop!"},{"t":"s","v":"provide"},{"t":"s","v":"cyst"},{"t":"s","v":"key"},{"t":"s","v":"str"},{"t":"s","v":"next-cyst-id"},{"t":"s","v":"get"},{"t":"s","v":"*memo-cache*"},{"t":"s","v":"host-get"},{"t":"s","v":"isConnected"},{"t":"s","v":"dom-create-element"},{"t":"s","v":"div"},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"data-sx-cyst"},{"t":"s","v":"with-island-scope"},{"t":"code","v":{"bytecode":[20,0,0,18,0,16,0,49,2,50],"constants":[{"t":"s","v":"append!"}],"arity":1,"upvalue-count":1}},{"t":"code","v":{"bytecode":[20,0,0,48,0,17,0,51,2,0,1,0,0,0,0,1,18,2,52,1,0,2,5,16,0,50],"constants":[{"t":"s","v":"create-fragment"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,18,0,20,1,0,16,0,18,1,18,2,48,3,49,2,50],"constants":[{"t":"s","v":"dom-append"},{"t":"s","v":"render-to-dom"}],"arity":1,"upvalue-count":3}}],"upvalue-count":3}},{"t":"s","v":"dom-set-data"},{"t":"s","v":"sx-disposers"},{"t":"s","v":"dict-set!"}],"arity":4}},{"t":"s","v":"render-lambda-dom"},{"t":"code","v":{"bytecode":[20,0,0,16,0,52,1,0,1,16,2,48,2,17,4,51,3,0,1,4,1,1,16,0,52,4,0,1,52,2,0,2,5,20,5,0,16,0,52,6,0,1,16,4,16,3,49,3,50],"constants":[{"t":"s","v":"env-merge"},{"t":"s","v":"lambda-closure"},{"t":"s","v":"for-each-indexed"},{"t":"code","v":{"bytecode":[20,0,0,18,0,16,1,18,1,16,0,52,1,0,2,49,3,50],"constants":[{"t":"s","v":"env-bind!"},{"t":"s","v":"nth"}],"arity":2,"upvalue-count":2}},{"t":"s","v":"lambda-params"},{"t":"s","v":"render-to-dom"},{"t":"s","v":"lambda-body"}],"arity":4}},{"t":"s","v":"render-dom-island"},{"t":"code","v":{"bytecode":[52,0,0,0,17,4,52,1,0,0,17,5,51,3,0,1,1,1,2,1,4,1,5,1,4,0,1,5,0,1,6,0,4,52,0,0,4,16,1,52,2,0,3,5,20,7,0,16,0,52,8,0,1,16,2,48,2,17,6,16,0,52,9,0,1,17,7,51,11,0,1,6,1,4,16,0,52,12,0,1,52,10,0,2,5,16,0,52,13,0,1,33,38,0,20,14,0,48,0,17,8,51,15,0,1,8,1,2,1,3,16,5,52,10,0,2,5,20,16,0,16,6,1,17,0,16,8,48,3,32,1,0,2,5,20,18,0,1,19,0,2,48,2,17,8,52,1,0,0,17,9,20,20,0,16,8,1,21,0,16,7,48,3,5,20,22,0,16,8,1,23,0,48,2,5,20,24,0,51,25,0,1,9,51,26,0,1,0,1,6,1,3,48,2,17,10,20,27,0,16,8,16,10,48,2,5,20,28,0,16,8,1,29,0,16,9,48,3,5,16,8,50],"constants":[{"t":"s","v":"dict"},{"t":"s","v":"list"},{"t":"s","v":"reduce"},{"t":"code","v":{"bytecode":[16,0,1,1,0,52,0,0,2,17,2,16,2,33,29,0,16,0,1,1,0,4,1,3,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,2,0,5,32,154,0,16,1,52,6,0,1,1,7,0,52,5,0,2,6,33,24,0,5,16,0,1,3,0,52,0,0,2,52,4,0,1,18,0,52,9,0,1,52,8,0,2,33,78,0,20,10,0,20,11,0,18,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,12,0,2,18,1,48,2,48,1,17,3,18,2,20,14,0,16,1,48,1,16,3,52,13,0,3,5,16,0,1,1,0,3,1,3,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,2,0,5,32,32,0,20,15,0,18,3,16,1,48,2,5,16,0,1,3,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,2,0,3,50],"constants":[{"t":"s","v":"get"},{"t":"s","v":"skip"},{"t":"s","v":"assoc"},{"t":"s","v":"i"},{"t":"s","v":"inc"},{"t":"s","v":"="},{"t":"s","v":"type-of"},{"t":"s","v":"keyword"},{"t":"s","v":"<"},{"t":"s","v":"len"},{"t":"s","v":"trampoline"},{"t":"s","v":"eval-expr"},{"t":"s","v":"nth"},{"t":"s","v":"dict-set!"},{"t":"s","v":"keyword-name"},{"t":"s","v":"append!"}],"arity":2,"upvalue-count":4}},{"t":"s","v":"i"},{"t":"n","v":0},{"t":"s","v":"skip"},{"t":"s","v":"env-merge"},{"t":"s","v":"component-closure"},{"t":"s","v":"component-name"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,18,0,16,0,18,1,16,0,52,1,0,2,33,11,0,18,1,16,0,52,2,0,2,32,1,0,2,49,3,50],"constants":[{"t":"s","v":"env-bind!"},{"t":"s","v":"dict-has?"},{"t":"s","v":"dict-get"}],"arity":1,"upvalue-count":2}},{"t":"s","v":"component-params"},{"t":"s","v":"component-has-children?"},{"t":"s","v":"create-fragment"},{"t":"code","v":{"bytecode":[20,0,0,18,0,20,1,0,16,0,18,1,18,2,48,3,49,2,50],"constants":[{"t":"s","v":"dom-append"},{"t":"s","v":"render-to-dom"}],"arity":1,"upvalue-count":3}},{"t":"s","v":"env-bind!"},{"t":"s","v":"children"},{"t":"s","v":"dom-create-element"},{"t":"s","v":"span"},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"data-sx-island"},{"t":"s","v":"mark-processed!"},{"t":"s","v":"island-hydrated"},{"t":"s","v":"with-island-scope"},{"t":"code","v":{"bytecode":[20,0,0,18,0,16,0,49,2,50],"constants":[{"t":"s","v":"append!"}],"arity":1,"upvalue-count":1}},{"t":"code","v":{"bytecode":[20,0,0,18,0,52,1,0,1,18,1,18,2,49,3,50],"constants":[{"t":"s","v":"render-to-dom"},{"t":"s","v":"component-body"}],"upvalue-count":3}},{"t":"s","v":"dom-append"},{"t":"s","v":"dom-set-data"},{"t":"s","v":"sx-disposers"}],"arity":4}},{"t":"s","v":"render-dom-lake"},{"t":"code","v":{"bytecode":[2,17,3,1,0,0,17,4,52,1,0,0,17,5,51,3,0,1,0,1,1,1,3,1,4,1,5,1,5,0,1,6,0,1,7,0,4,52,4,0,4,16,0,52,2,0,3,5,20,8,0,16,4,2,48,2,17,6,20,9,0,16,6,1,10,0,16,3,6,34,4,0,5,1,11,0,48,3,5,51,13,0,1,6,1,1,1,2,16,5,52,12,0,2,5,16,6,50],"constants":[{"t":"s","v":"div"},{"t":"s","v":"list"},{"t":"s","v":"reduce"},{"t":"code","v":{"bytecode":[16,0,1,1,0,52,0,0,2,17,2,16,2,33,29,0,16,0,1,1,0,4,1,3,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,2,0,5,32,187,0,16,1,52,6,0,1,1,7,0,52,5,0,2,6,33,24,0,5,16,0,1,3,0,52,0,0,2,52,4,0,1,18,0,52,9,0,1,52,8,0,2,33,111,0,20,10,0,16,1,48,1,17,3,20,11,0,20,12,0,18,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,13,0,2,18,1,48,2,48,1,17,4,16,3,1,14,0,52,5,0,2,33,7,0,16,4,19,2,32,20,0,16,3,1,15,0,52,5,0,2,33,7,0,16,4,19,3,32,1,0,2,5,16,0,1,1,0,3,1,3,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,2,0,5,32,32,0,20,16,0,18,4,16,1,48,2,5,16,0,1,3,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,2,0,3,50],"constants":[{"t":"s","v":"get"},{"t":"s","v":"skip"},{"t":"s","v":"assoc"},{"t":"s","v":"i"},{"t":"s","v":"inc"},{"t":"s","v":"="},{"t":"s","v":"type-of"},{"t":"s","v":"keyword"},{"t":"s","v":"<"},{"t":"s","v":"len"},{"t":"s","v":"keyword-name"},{"t":"s","v":"trampoline"},{"t":"s","v":"eval-expr"},{"t":"s","v":"nth"},{"t":"s","v":"id"},{"t":"s","v":"tag"},{"t":"s","v":"append!"}],"arity":2,"upvalue-count":5}},{"t":"s","v":"dict"},{"t":"s","v":"i"},{"t":"n","v":0},{"t":"s","v":"skip"},{"t":"s","v":"dom-create-element"},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"data-sx-lake"},{"t":"s","v":""},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,18,0,20,1,0,16,0,18,1,18,2,48,3,49,2,50],"constants":[{"t":"s","v":"dom-append"},{"t":"s","v":"render-to-dom"}],"arity":1,"upvalue-count":3}}],"arity":3}},{"t":"s","v":"render-dom-marsh"},{"t":"code","v":{"bytecode":[2,17,3,1,0,0,17,4,2,17,5,52,1,0,0,17,6,51,3,0,1,0,1,1,1,3,1,4,1,5,1,6,1,5,0,1,6,0,1,7,0,4,52,4,0,4,16,0,52,2,0,3,5,20,8,0,16,4,2,48,2,17,7,20,9,0,16,7,1,10,0,16,3,6,34,4,0,5,1,11,0,48,3,5,16,5,33,15,0,20,12,0,16,7,1,13,0,16,5,48,3,32,1,0,2,5,20,12,0,16,7,1,14,0,16,1,48,3,5,51,16,0,1,7,1,1,1,2,16,6,52,15,0,2,5,16,7,50],"constants":[{"t":"s","v":"div"},{"t":"s","v":"list"},{"t":"s","v":"reduce"},{"t":"code","v":{"bytecode":[16,0,1,1,0,52,0,0,2,17,2,16,2,33,29,0,16,0,1,1,0,4,1,3,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,2,0,5,32,206,0,16,1,52,6,0,1,1,7,0,52,5,0,2,6,33,24,0,5,16,0,1,3,0,52,0,0,2,52,4,0,1,18,0,52,9,0,1,52,8,0,2,33,130,0,20,10,0,16,1,48,1,17,3,20,11,0,20,12,0,18,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,13,0,2,18,1,48,2,48,1,17,4,16,3,1,14,0,52,5,0,2,33,7,0,16,4,19,2,32,39,0,16,3,1,15,0,52,5,0,2,33,7,0,16,4,19,3,32,20,0,16,3,1,16,0,52,5,0,2,33,7,0,16,4,19,4,32,1,0,2,5,16,0,1,1,0,3,1,3,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,2,0,5,32,32,0,20,17,0,18,5,16,1,48,2,5,16,0,1,3,0,16,0,1,3,0,52,0,0,2,52,4,0,1,52,2,0,3,50],"constants":[{"t":"s","v":"get"},{"t":"s","v":"skip"},{"t":"s","v":"assoc"},{"t":"s","v":"i"},{"t":"s","v":"inc"},{"t":"s","v":"="},{"t":"s","v":"type-of"},{"t":"s","v":"keyword"},{"t":"s","v":"<"},{"t":"s","v":"len"},{"t":"s","v":"keyword-name"},{"t":"s","v":"trampoline"},{"t":"s","v":"eval-expr"},{"t":"s","v":"nth"},{"t":"s","v":"id"},{"t":"s","v":"tag"},{"t":"s","v":"transform"},{"t":"s","v":"append!"}],"arity":2,"upvalue-count":6}},{"t":"s","v":"dict"},{"t":"s","v":"i"},{"t":"n","v":0},{"t":"s","v":"skip"},{"t":"s","v":"dom-create-element"},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"data-sx-marsh"},{"t":"s","v":""},{"t":"s","v":"dom-set-data"},{"t":"s","v":"sx-marsh-transform"},{"t":"s","v":"sx-marsh-env"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,18,0,20,1,0,16,0,18,1,18,2,48,3,49,2,50],"constants":[{"t":"s","v":"dom-append"},{"t":"s","v":"render-to-dom"}],"arity":1,"upvalue-count":3}}],"arity":3}},{"t":"s","v":"reactive-text"},{"t":"code","v":{"bytecode":[20,0,0,20,2,0,16,0,48,1,52,1,0,1,48,1,17,1,20,3,0,51,4,0,1,1,1,0,48,1,5,16,1,50],"constants":[{"t":"s","v":"create-text-node"},{"t":"s","v":"str"},{"t":"s","v":"deref"},{"t":"s","v":"effect"},{"t":"code","v":{"bytecode":[20,0,0,18,0,20,2,0,18,1,48,1,52,1,0,1,49,2,50],"constants":[{"t":"s","v":"dom-set-text-content"},{"t":"s","v":"str"},{"t":"s","v":"deref"}],"upvalue-count":2}}],"arity":1}},{"t":"s","v":"reactive-attr"},{"t":"code","v":{"bytecode":[20,0,0,16,0,1,1,0,48,2,6,34,4,0,5,1,2,0,17,3,16,3,52,3,0,1,33,5,0,16,1,32,11,0,16,3,1,5,0,16,1,52,4,0,3,17,4,20,6,0,16,0,1,1,0,16,4,48,3,5,20,7,0,51,8,0,1,2,1,0,1,1,49,1,50],"constants":[{"t":"s","v":"dom-get-attr"},{"t":"s","v":"data-sx-reactive-attrs"},{"t":"s","v":""},{"t":"s","v":"empty?"},{"t":"s","v":"str"},{"t":"s","v":","},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"effect"},{"t":"code","v":{"bytecode":[18,0,48,0,17,0,20,0,0,16,0,48,1,33,10,0,20,1,0,16,0,48,1,32,2,0,16,0,17,1,16,1,52,2,0,1,6,34,8,0,5,16,1,4,52,3,0,2,33,12,0,20,4,0,18,1,18,2,49,2,32,40,0,16,1,3,52,3,0,2,33,15,0,20,5,0,18,1,18,2,1,6,0,49,3,32,15,0,20,5,0,18,1,18,2,16,1,52,7,0,1,49,3,50],"constants":[{"t":"s","v":"signal?"},{"t":"s","v":"deref"},{"t":"s","v":"nil?"},{"t":"s","v":"="},{"t":"s","v":"dom-remove-attr"},{"t":"s","v":"dom-set-attr"},{"t":"s","v":""},{"t":"s","v":"str"}],"upvalue-count":3}}],"arity":3}},{"t":"s","v":"reactive-spread"},{"t":"code","v":{"bytecode":[52,0,0,0,17,2,52,0,0,0,17,3,20,1,0,16,0,1,2,0,48,2,6,34,4,0,5,1,3,0,17,4,20,4,0,16,0,1,2,0,16,4,52,5,0,1,33,6,0,1,6,0,32,9,0,16,4,1,8,0,52,7,0,2,48,3,5,20,9,0,51,10,0,1,2,1,0,1,3,1,1,49,1,50],"constants":[{"t":"s","v":"list"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"data-sx-reactive-attrs"},{"t":"s","v":""},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"empty?"},{"t":"s","v":"_spread"},{"t":"s","v":"str"},{"t":"s","v":",_spread"},{"t":"s","v":"effect"},{"t":"code","v":{"bytecode":[18,0,52,1,0,1,52,0,0,1,33,95,0,20,2,0,18,1,1,3,0,48,2,6,34,4,0,5,1,4,0,17,0,51,6,0,16,0,1,8,0,52,7,0,2,52,5,0,2,17,1,51,9,0,0,0,16,1,52,5,0,2,17,2,16,2,52,1,0,1,33,13,0,20,10,0,18,1,1,3,0,48,2,32,19,0,20,11,0,18,1,1,3,0,1,8,0,16,2,52,12,0,2,48,3,32,1,0,2,5,51,14,0,0,1,18,2,52,13,0,2,5,18,3,48,0,17,0,16,0,52,15,0,1,33,179,0,16,0,52,16,0,1,17,1,16,1,1,3,0,52,17,0,2,6,34,4,0,5,1,4,0,17,2,51,6,0,16,2,1,8,0,52,7,0,2,52,5,0,2,17,3,51,18,0,16,1,52,19,0,1,52,5,0,2,17,4,16,3,19,0,5,16,4,19,2,5,16,3,52,1,0,1,52,0,0,1,33,72,0,20,2,0,18,1,1,3,0,48,2,6,34,4,0,5,1,4,0,17,5,20,11,0,18,1,1,3,0,16,5,6,33,14,0,5,16,5,1,4,0,52,20,0,2,52,0,0,1,33,14,0,16,5,1,8,0,16,2,52,21,0,3,32,2,0,16,2,48,3,32,1,0,2,5,51,22,0,0,1,1,1,16,4,52,13,0,2,5,20,23,0,49,0,32,13,0,52,24,0,0,19,0,5,52,24,0,0,19,2,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"empty?"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"class"},{"t":"s","v":""},{"t":"s","v":"filter"},{"t":"code","v":{"bytecode":[16,0,1,2,0,52,1,0,2,52,0,0,1,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"="},{"t":"s","v":""}],"arity":1}},{"t":"s","v":"split"},{"t":"s","v":" "},{"t":"code","v":{"bytecode":[51,2,0,1,0,18,0,52,1,0,2,52,0,0,1,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"some"},{"t":"code","v":{"bytecode":[16,0,18,0,52,0,0,2,50],"constants":[{"t":"s","v":"="}],"arity":1,"upvalue-count":1}}],"arity":1,"upvalue-count":1}},{"t":"s","v":"dom-remove-attr"},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"join"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,18,0,16,0,49,2,50],"constants":[{"t":"s","v":"dom-remove-attr"}],"arity":1,"upvalue-count":1}},{"t":"s","v":"spread?"},{"t":"s","v":"spread-attrs"},{"t":"s","v":"dict-get"},{"t":"code","v":{"bytecode":[16,0,1,2,0,52,1,0,2,52,0,0,1,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"="},{"t":"s","v":"class"}],"arity":1}},{"t":"s","v":"keys"},{"t":"s","v":"="},{"t":"s","v":"str"},{"t":"code","v":{"bytecode":[20,0,0,18,0,16,0,18,1,16,0,52,2,0,2,52,1,0,1,49,3,50],"constants":[{"t":"s","v":"dom-set-attr"},{"t":"s","v":"str"},{"t":"s","v":"dict-get"}],"arity":1,"upvalue-count":2}},{"t":"s","v":"run-post-render-hooks"},{"t":"s","v":"list"}],"upvalue-count":4}}],"arity":2}},{"t":"s","v":"reactive-fragment"},{"t":"code","v":{"bytecode":[20,0,0,1,1,0,48,1,17,4,52,2,0,0,17,5,20,3,0,51,4,0,1,5,1,0,1,1,1,4,48,1,5,16,4,50],"constants":[{"t":"s","v":"create-comment"},{"t":"s","v":"island-fragment"},{"t":"s","v":"list"},{"t":"s","v":"effect"},{"t":"code","v":{"bytecode":[51,1,0,18,0,52,0,0,2,5,52,2,0,0,19,0,5,18,1,48,0,33,28,0,18,2,48,0,17,0,20,3,0,16,0,48,1,19,0,5,20,4,0,18,3,16,0,49,2,32,1,0,2,50],"constants":[{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,16,0,49,1,50],"constants":[{"t":"s","v":"dom-remove"}],"arity":1}},{"t":"s","v":"list"},{"t":"s","v":"dom-child-nodes"},{"t":"s","v":"dom-insert-after"}],"upvalue-count":4}}],"arity":4}},{"t":"s","v":"render-list-item"},{"t":"code","v":{"bytecode":[16,0,52,0,0,1,33,20,0,20,1,0,16,0,16,1,52,2,0,1,16,2,16,3,49,4,32,21,0,20,3,0,16,0,16,1,52,2,0,1,52,4,0,2,16,2,16,3,49,3,50],"constants":[{"t":"s","v":"lambda?"},{"t":"s","v":"render-lambda-dom"},{"t":"s","v":"list"},{"t":"s","v":"render-to-dom"},{"t":"s","v":"apply"}],"arity":4}},{"t":"s","v":"extract-key"},{"t":"code","v":{"bytecode":[20,0,0,16,0,1,1,0,48,2,17,2,16,2,33,16,0,20,2,0,16,0,1,1,0,48,2,5,16,2,32,35,0,20,3,0,16,0,1,1,0,48,2,17,3,16,3,33,9,0,16,3,52,4,0,1,32,9,0,1,5,0,16,1,52,4,0,2,50],"constants":[{"t":"s","v":"dom-get-attr"},{"t":"s","v":"key"},{"t":"s","v":"dom-remove-attr"},{"t":"s","v":"dom-get-data"},{"t":"s","v":"str"},{"t":"s","v":"__idx_"}],"arity":2}},{"t":"s","v":"reactive-list"},{"t":"code","v":{"bytecode":[20,0,0,48,0,17,4,20,1,0,1,2,0,48,1,17,5,52,3,0,0,17,6,52,4,0,0,17,7,20,5,0,16,4,16,5,48,2,5,20,6,0,51,7,0,1,1,1,5,1,0,1,2,1,3,1,6,1,7,1,4,48,1,5,16,4,50],"constants":[{"t":"s","v":"create-fragment"},{"t":"s","v":"create-comment"},{"t":"s","v":"island-list"},{"t":"s","v":"dict"},{"t":"s","v":"list"},{"t":"s","v":"dom-append"},{"t":"s","v":"effect"},{"t":"code","v":{"bytecode":[20,0,0,18,0,48,1,17,0,20,1,0,18,1,48,1,33,133,0,52,2,0,0,17,1,52,3,0,0,17,2,4,17,3,51,5,0,0,2,0,3,0,4,1,3,0,5,1,1,1,2,16,0,52,4,0,2,5,16,3,52,6,0,1,33,41,0,20,7,0,18,1,48,1,5,20,8,0,48,0,17,4,51,10,0,1,4,1,1,16,2,52,9,0,2,5,20,11,0,18,1,16,4,48,2,32,31,0,51,12,0,1,1,0,5,18,6,52,9,0,2,5,18,1,17,4,51,13,0,1,1,1,4,16,2,52,9,0,2,5,16,1,19,5,5,16,2,19,6,32,21,0,51,14,0,0,2,0,3,0,4,0,5,0,6,0,7,16,0,52,4,0,2,50],"constants":[{"t":"s","v":"deref"},{"t":"s","v":"dom-parent"},{"t":"s","v":"dict"},{"t":"s","v":"list"},{"t":"s","v":"for-each-indexed"},{"t":"code","v":{"bytecode":[20,0,0,18,0,16,1,18,1,18,2,48,4,17,2,20,1,0,16,2,16,0,48,2,17,3,18,3,52,2,0,1,6,33,14,0,5,16,3,1,4,0,52,3,0,2,52,2,0,1,33,6,0,3,19,3,32,1,0,2,5,18,4,16,3,52,5,0,2,33,19,0,18,5,16,3,18,4,16,3,52,7,0,2,52,6,0,3,32,10,0,18,5,16,3,16,2,52,6,0,3,5,20,8,0,18,6,16,3,49,2,50],"constants":[{"t":"s","v":"render-list-item"},{"t":"s","v":"extract-key"},{"t":"s","v":"not"},{"t":"s","v":"starts-with?"},{"t":"s","v":"__idx_"},{"t":"s","v":"dict-has?"},{"t":"s","v":"dict-set!"},{"t":"s","v":"dict-get"},{"t":"s","v":"append!"}],"arity":2,"upvalue-count":7}},{"t":"s","v":"not"},{"t":"s","v":"dom-remove-children-after"},{"t":"s","v":"create-fragment"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,18,0,18,1,16,0,52,1,0,2,49,2,50],"constants":[{"t":"s","v":"dom-append"},{"t":"s","v":"dict-get"}],"arity":1,"upvalue-count":2}},{"t":"s","v":"dom-insert-after"},{"t":"code","v":{"bytecode":[18,0,16,0,52,1,0,2,52,0,0,1,33,16,0,20,2,0,18,1,16,0,52,3,0,2,49,1,32,1,0,2,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"dict-has?"},{"t":"s","v":"dom-remove"},{"t":"s","v":"dict-get"}],"arity":1,"upvalue-count":2}},{"t":"code","v":{"bytecode":[18,0,16,0,52,0,0,2,17,1,20,1,0,18,1,48,1,17,2,16,1,16,2,52,3,0,2,52,2,0,1,33,12,0,20,4,0,18,1,16,1,48,2,32,1,0,2,5,16,1,19,1,50],"constants":[{"t":"s","v":"dict-get"},{"t":"s","v":"dom-next-sibling"},{"t":"s","v":"not"},{"t":"s","v":"identical?"},{"t":"s","v":"dom-insert-after"}],"arity":1,"upvalue-count":2}},{"t":"code","v":{"bytecode":[20,0,0,18,0,16,1,18,1,18,2,48,4,17,2,20,1,0,16,2,16,0,48,2,17,3,18,3,16,3,16,2,52,2,0,3,5,20,3,0,18,4,16,3,48,2,5,20,4,0,18,5,16,2,49,2,50],"constants":[{"t":"s","v":"render-list-item"},{"t":"s","v":"extract-key"},{"t":"s","v":"dict-set!"},{"t":"s","v":"append!"},{"t":"s","v":"dom-append"}],"arity":2,"upvalue-count":6}}],"upvalue-count":8}}],"arity":4}},{"t":"s","v":"bind-input"},{"t":"code","v":{"bytecode":[20,1,0,16,0,1,2,0,48,2,6,34,4,0,5,1,3,0,52,0,0,1,17,2,16,2,1,5,0,52,4,0,2,6,34,10,0,5,16,2,1,6,0,52,4,0,2,17,3,16,3,33,20,0,20,7,0,16,0,1,8,0,20,9,0,16,1,48,1,48,3,32,21,0,20,7,0,16,0,1,10,0,20,9,0,16,1,48,1,52,11,0,1,48,3,5,20,12,0,51,13,0,1,3,1,0,1,1,48,1,5,20,14,0,16,0,16,3,33,6,0,1,15,0,32,3,0,1,16,0,51,17,0,1,3,1,1,1,0,49,3,50],"constants":[{"t":"s","v":"lower"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"type"},{"t":"s","v":""},{"t":"s","v":"="},{"t":"s","v":"checkbox"},{"t":"s","v":"radio"},{"t":"s","v":"dom-set-prop"},{"t":"s","v":"checked"},{"t":"s","v":"deref"},{"t":"s","v":"value"},{"t":"s","v":"str"},{"t":"s","v":"effect"},{"t":"code","v":{"bytecode":[18,0,33,20,0,20,0,0,18,1,1,1,0,20,2,0,18,2,48,1,49,3,32,48,0,20,2,0,18,2,48,1,52,3,0,1,17,0,20,5,0,18,1,1,6,0,48,2,16,0,52,4,0,2,33,15,0,20,0,0,18,1,1,6,0,16,0,49,3,32,1,0,2,50],"constants":[{"t":"s","v":"dom-set-prop"},{"t":"s","v":"checked"},{"t":"s","v":"deref"},{"t":"s","v":"str"},{"t":"s","v":"!="},{"t":"s","v":"dom-get-prop"},{"t":"s","v":"value"}],"upvalue-count":3}},{"t":"s","v":"dom-on"},{"t":"s","v":"change"},{"t":"s","v":"input"},{"t":"code","v":{"bytecode":[18,0,33,20,0,20,0,0,18,1,20,1,0,18,2,1,2,0,48,2,49,2,32,17,0,20,0,0,18,1,20,1,0,18,2,1,3,0,48,2,49,2,50],"constants":[{"t":"s","v":"reset!"},{"t":"s","v":"dom-get-prop"},{"t":"s","v":"checked"},{"t":"s","v":"value"}],"arity":1,"upvalue-count":3}}],"arity":2}},{"t":"s","v":"*use-cek-reactive*"},{"t":"s","v":"enable-cek-reactive!"},{"t":"code","v":{"bytecode":[3,21,0,0,50],"constants":[{"t":"s","v":"*use-cek-reactive*"}]}},{"t":"s","v":"cek-reactive-text"},{"t":"code","v":{"bytecode":[20,0,0,1,1,0,48,1,17,2,51,2,0,1,2,17,3,20,3,0,20,4,0,16,0,16,1,20,6,0,16,1,16,3,3,48,3,52,5,0,1,48,3,48,1,17,4,20,7,0,16,2,16,4,52,8,0,1,48,2,5,16,2,50],"constants":[{"t":"s","v":"create-text-node"},{"t":"s","v":""},{"t":"code","v":{"bytecode":[20,0,0,18,0,16,0,52,1,0,1,49,2,50],"constants":[{"t":"s","v":"dom-set-text-content"},{"t":"s","v":"str"}],"arity":1,"upvalue-count":1}},{"t":"s","v":"cek-run"},{"t":"s","v":"make-cek-state"},{"t":"s","v":"list"},{"t":"s","v":"make-reactive-reset-frame"},{"t":"s","v":"dom-set-text-content"},{"t":"s","v":"str"}],"arity":2}},{"t":"s","v":"cek-reactive-attr"},{"t":"code","v":{"bytecode":[51,0,0,1,0,1,1,17,4,20,1,0,16,0,1,2,0,48,2,6,34,4,0,5,1,3,0,17,5,16,5,52,4,0,1,33,5,0,16,1,32,11,0,16,5,1,6,0,16,1,52,5,0,3,17,6,20,7,0,16,0,1,2,0,16,6,48,3,5,20,8,0,20,9,0,16,2,16,3,20,11,0,16,3,16,4,3,48,3,52,10,0,1,48,3,48,1,17,5,20,12,0,16,4,16,5,52,10,0,1,49,2,50],"constants":[{"t":"code","v":{"bytecode":[16,0,52,0,0,1,6,34,8,0,5,16,0,4,52,1,0,2,33,12,0,20,2,0,18,0,18,1,49,2,32,40,0,16,0,3,52,1,0,2,33,15,0,20,3,0,18,0,18,1,1,4,0,49,3,32,15,0,20,3,0,18,0,18,1,16,0,52,5,0,1,49,3,50],"constants":[{"t":"s","v":"nil?"},{"t":"s","v":"="},{"t":"s","v":"dom-remove-attr"},{"t":"s","v":"dom-set-attr"},{"t":"s","v":""},{"t":"s","v":"str"}],"arity":1,"upvalue-count":2}},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"data-sx-reactive-attrs"},{"t":"s","v":""},{"t":"s","v":"empty?"},{"t":"s","v":"str"},{"t":"s","v":","},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"cek-run"},{"t":"s","v":"make-cek-state"},{"t":"s","v":"list"},{"t":"s","v":"make-reactive-reset-frame"},{"t":"s","v":"cek-call"}],"arity":4}},{"t":"s","v":"render-dom-portal"},{"t":"code","v":{"bytecode":[20,0,0,20,1,0,16,0,52,2,0,1,16,1,48,2,48,1,17,3,20,3,0,16,3,48,1,6,34,8,0,5,20,4,0,16,3,48,1,17,4,16,4,52,5,0,1,33,20,0,20,6,0,1,8,0,16,3,1,9,0,52,7,0,3,49,1,32,75,0,20,6,0,1,8,0,16,3,52,7,0,2,48,1,17,5,20,10,0,48,0,17,6,51,12,0,1,6,1,1,1,2,16,0,52,13,0,1,52,11,0,2,5,20,14,0,16,6,48,1,17,7,20,15,0,16,4,16,6,48,2,5,20,16,0,51,17,0,1,7,48,1,5,16,5,50],"constants":[{"t":"s","v":"trampoline"},{"t":"s","v":"eval-expr"},{"t":"s","v":"first"},{"t":"s","v":"dom-query"},{"t":"s","v":"dom-ensure-element"},{"t":"s","v":"not"},{"t":"s","v":"create-comment"},{"t":"s","v":"str"},{"t":"s","v":"portal: "},{"t":"s","v":" (not found)"},{"t":"s","v":"create-fragment"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,18,0,20,1,0,16,0,18,1,18,2,48,3,49,2,50],"constants":[{"t":"s","v":"dom-append"},{"t":"s","v":"render-to-dom"}],"arity":1,"upvalue-count":3}},{"t":"s","v":"rest"},{"t":"s","v":"dom-child-nodes"},{"t":"s","v":"dom-append"},{"t":"s","v":"register-in-scope"},{"t":"code","v":{"bytecode":[51,1,0,18,0,52,0,0,2,50],"constants":[{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,16,0,49,1,50],"constants":[{"t":"s","v":"dom-remove"}],"arity":1}}],"upvalue-count":1}}],"arity":3}},{"t":"s","v":"render-dom-error-boundary"},{"t":"code","v":{"bytecode":[16,0,52,0,0,1,17,3,16,0,52,1,0,1,17,4,20,2,0,1,3,0,2,48,2,17,5,20,4,0,1,5,0,48,1,17,6,20,6,0,16,5,1,7,0,1,8,0,48,3,5,20,9,0,51,10,0,1,6,1,5,1,1,1,2,1,4,1,3,48,1,5,16,5,50],"constants":[{"t":"s","v":"first"},{"t":"s","v":"rest"},{"t":"s","v":"dom-create-element"},{"t":"s","v":"div"},{"t":"s","v":"signal"},{"t":"n","v":0},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"data-sx-boundary"},{"t":"s","v":"true"},{"t":"s","v":"effect"},{"t":"code","v":{"bytecode":[20,0,0,18,0,48,1,5,20,1,0,18,1,1,2,0,1,3,0,48,3,5,1,5,0,2,52,4,0,2,5,20,6,0,51,7,0,0,2,0,3,0,4,0,1,51,8,0,0,5,0,2,0,0,0,3,0,1,49,2,50],"constants":[{"t":"s","v":"deref"},{"t":"s","v":"dom-set-prop"},{"t":"s","v":"innerHTML"},{"t":"s","v":""},{"t":"s","v":"scope-push!"},{"t":"s","v":"sx-island-scope"},{"t":"s","v":"try-catch"},{"t":"code","v":{"bytecode":[20,0,0,48,0,17,0,51,2,0,1,0,0,0,0,1,18,2,52,1,0,2,5,20,3,0,18,3,16,0,48,2,5,1,5,0,52,4,0,1,50],"constants":[{"t":"s","v":"create-fragment"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,18,0,20,1,0,16,0,18,1,18,2,48,3,49,2,50],"constants":[{"t":"s","v":"dom-append"},{"t":"s","v":"render-to-dom"}],"arity":1,"upvalue-count":3}},{"t":"s","v":"dom-append"},{"t":"s","v":"scope-pop!"},{"t":"s","v":"sx-island-scope"}],"upvalue-count":4}},{"t":"code","v":{"bytecode":[1,1,0,52,0,0,1,5,20,2,0,20,3,0,18,0,18,1,48,2,48,1,17,1,51,4,0,0,2,17,2,16,1,52,5,0,1,33,22,0,20,6,0,16,1,16,0,16,2,52,7,0,2,18,1,18,3,48,4,32,23,0,20,8,0,16,1,16,0,16,2,52,7,0,2,52,9,0,2,18,1,18,3,48,3,17,3,20,10,0,18,4,16,3,49,2,50],"constants":[{"t":"s","v":"scope-pop!"},{"t":"s","v":"sx-island-scope"},{"t":"s","v":"trampoline"},{"t":"s","v":"eval-expr"},{"t":"code","v":{"bytecode":[20,0,0,18,0,51,1,0,49,2,50],"constants":[{"t":"s","v":"swap!"},{"t":"code","v":{"bytecode":[16,0,1,1,0,52,0,0,2,50],"constants":[{"t":"s","v":"+"},{"t":"n","v":1}],"arity":1}}],"upvalue-count":1}},{"t":"s","v":"lambda?"},{"t":"s","v":"render-lambda-dom"},{"t":"s","v":"list"},{"t":"s","v":"render-to-dom"},{"t":"s","v":"apply"},{"t":"s","v":"dom-append"}],"arity":1,"upvalue-count":5}}],"upvalue-count":6}}],"arity":3}}]}} \ No newline at end of file diff --git a/shared/static/wasm/sx/boot.sxbc b/shared/static/wasm/sx/boot.sxbc deleted file mode 100644 index 373a23a5..00000000 --- a/shared/static/wasm/sx/boot.sxbc +++ /dev/null @@ -1,464 +0,0 @@ -(sxbc 1 "8dd29bf7bc354b48" - (code - :bytecode (1 1 0 128 0 0 5 51 3 0 128 2 0 5 51 5 0 128 4 0 5 51 7 0 128 6 0 5 51 9 0 128 8 0 5 51 11 0 128 10 0 5 51 13 0 128 12 0 5 51 15 0 128 14 0 5 51 17 0 128 16 0 5 52 19 0 0 128 18 0 5 51 21 0 128 20 0 5 51 23 0 128 22 0 5 51 25 0 128 24 0 5 51 27 0 128 26 0 5 51 29 0 128 28 0 5 51 31 0 128 30 0 5 52 19 0 0 128 32 0 5 52 19 0 0 128 33 0 5 51 35 0 128 34 0 5 51 37 0 128 36 0 5 51 39 0 128 38 0 5 51 41 0 128 40 0 5 51 43 0 128 42 0 50) - :constants ( - "HEAD_HOIST_SELECTOR" - "meta, title, link[rel='canonical'], script[type='application/ld+json']" - "hoist-head-elements-full" - (code :arity 1 - :bytecode (20 0 0 16 0 20 1 0 48 2 17 1 51 3 0 16 1 52 2 0 2 50) - :constants ( - "dom-query-all" - "HEAD_HOIST_SELECTOR" - "for-each" - (code :arity 1 - :bytecode (20 1 0 16 0 48 1 52 0 0 1 17 1 16 1 1 3 0 52 2 0 2 33 30 0 20 4 0 20 5 0 16 0 48 1 48 1 5 20 6 0 20 7 0 16 0 48 1 16 0 49 2 32 205 0 16 1 1 8 0 52 2 0 2 33 103 0 20 9 0 16 0 1 10 0 48 2 17 2 20 9 0 16 0 1 11 0 48 2 17 3 16 2 33 20 0 20 12 0 1 14 0 16 2 1 15 0 52 13 0 3 48 1 32 1 0 2 5 16 3 33 20 0 20 12 0 1 16 0 16 3 1 15 0 52 13 0 3 48 1 32 1 0 2 5 20 6 0 20 7 0 16 0 48 1 16 0 48 2 5 20 17 0 16 0 49 1 32 90 0 16 1 1 18 0 52 2 0 2 6 33 18 0 5 20 9 0 16 0 1 19 0 48 2 1 20 0 52 2 0 2 33 34 0 20 12 0 1 21 0 48 1 5 20 6 0 20 7 0 16 0 48 1 16 0 48 2 5 20 17 0 16 0 49 1 32 22 0 20 6 0 20 7 0 16 0 48 1 16 0 48 2 5 20 17 0 16 0 49 1 50) - :constants ( - "lower" - "dom-tag-name" - "=" - "title" - "set-document-title" - "dom-text-content" - "dom-remove-child" - "dom-parent" - "meta" - "dom-get-attr" - "name" - "property" - "remove-head-element" - "str" - "meta[name=\"" - "\"]" - "meta[property=\"" - "dom-append-to-head" - "link" - "rel" - "canonical" - "link[rel=\"canonical\"]")))) - "sx-mount" - (code :arity 3 - :bytecode (20 0 0 16 0 48 1 17 3 16 3 33 90 0 20 2 0 16 3 48 1 52 1 0 1 33 42 0 20 3 0 16 1 16 2 48 2 17 4 20 4 0 16 3 1 5 0 48 2 5 20 6 0 16 3 16 4 48 2 5 20 7 0 16 3 48 1 32 1 0 2 5 20 8 0 16 3 48 1 5 20 9 0 16 3 48 1 5 20 10 0 16 3 48 1 5 20 11 0 49 0 32 1 0 2 50) - :constants ( - "resolve-mount-target" - "empty?" - "dom-child-list" - "sx-render-with-env" - "dom-set-text-content" - "" - "dom-append" - "hoist-head-elements-full" - "process-elements" - "sx-hydrate-elements" - "sx-hydrate-islands" - "run-post-render-hooks")) - "resolve-suspense" - (code :arity 2 - :bytecode (20 0 0 2 48 1 5 20 1 0 1 3 0 16 0 1 4 0 52 2 0 3 48 1 17 2 16 2 33 93 0 20 5 0 16 1 48 1 17 3 20 6 0 2 48 1 17 4 20 7 0 16 2 1 8 0 48 2 5 51 10 0 1 2 1 4 16 3 52 9 0 2 5 20 11 0 16 2 48 1 5 20 12 0 16 2 48 1 5 20 13 0 16 2 48 1 5 20 14 0 48 0 5 20 15 0 16 2 1 16 0 1 17 0 16 0 65 1 0 49 3 32 14 0 20 18 0 1 19 0 16 0 52 2 0 2 49 1 50) - :constants ( - "process-sx-scripts" - "dom-query" - "str" - "[data-suspense=\"" - "\"]" - "parse" - "get-render-env" - "dom-set-text-content" - "" - "for-each" - (code :arity 1 :upvalue-count 2 - :bytecode (20 0 0 18 0 20 1 0 16 0 18 1 2 48 3 49 2 50) - :constants ( - "dom-append" - "render-to-dom")) - "process-elements" - "sx-hydrate-elements" - "sx-hydrate-islands" - "run-post-render-hooks" - "dom-dispatch" - "sx:resolved" - "id" - "log-warn" - "resolveSuspense: no element for id=")) - "sx-hydrate-elements" - (code :arity 1 - :bytecode (20 0 0 16 0 6 34 6 0 5 20 1 0 48 0 1 2 0 48 2 17 1 51 4 0 16 1 52 3 0 2 50) - :constants ( - "dom-query-all" - "dom-body" - "[data-sx]" - "for-each" - (code :arity 1 - :bytecode (20 1 0 16 0 1 2 0 48 2 52 0 0 1 33 22 0 20 3 0 16 0 1 2 0 48 2 5 20 4 0 16 0 2 49 2 32 1 0 2 50) - :constants ( - "not" - "is-processed?" - "hydrated" - "mark-processed!" - "sx-update-element")))) - "sx-update-element" - (code :arity 2 - :bytecode (20 0 0 16 0 48 1 17 2 16 2 33 96 0 20 1 0 16 2 1 2 0 48 2 17 3 16 3 33 75 0 20 3 0 16 2 48 1 17 4 20 4 0 16 4 16 1 48 2 17 5 20 5 0 16 3 16 5 48 2 17 6 20 6 0 16 2 1 7 0 48 2 5 20 8 0 16 2 16 6 48 2 5 16 1 33 14 0 20 9 0 16 2 16 4 16 1 49 3 32 1 0 2 32 1 0 2 32 1 0 2 50) - :constants ( - "resolve-mount-target" - "dom-get-attr" - "data-sx" - "parse-env-attr" - "merge-envs" - "sx-render-with-env" - "dom-set-text-content" - "" - "dom-append" - "store-env-attr")) - "sx-render-component" - (code :arity 3 - :bytecode (16 0 1 1 0 52 0 0 2 33 5 0 16 0 32 9 0 1 1 0 16 0 52 2 0 2 17 3 20 3 0 16 2 48 1 17 4 20 4 0 16 4 16 3 48 2 17 5 16 5 52 6 0 1 52 5 0 1 33 16 0 1 8 0 16 3 52 2 0 2 52 7 0 1 32 40 0 16 3 52 10 0 1 52 9 0 1 17 6 51 12 0 1 6 1 1 16 1 52 13 0 1 52 11 0 2 5 20 14 0 16 6 16 4 2 49 3 50) - :constants ( - "starts-with?" - "~" - "str" - "get-render-env" - "env-get" - "not" - "component?" - "error" - "Unknown component: " - "list" - "make-symbol" - "for-each" - (code :arity 1 :upvalue-count 2 - :bytecode (20 0 0 18 0 20 1 0 20 2 0 16 0 48 1 48 1 48 2 5 20 0 0 18 0 18 1 16 0 52 3 0 2 49 2 50) - :constants ( - "append!" - "make-keyword" - "to-kebab" - "dict-get")) - "keys" - "render-to-dom")) - "process-sx-scripts" - (code :arity 1 - :bytecode (20 0 0 16 0 48 1 17 1 51 2 0 16 1 52 1 0 2 50) - :constants ( - "query-sx-scripts" - "for-each" - (code :arity 1 - :bytecode (20 1 0 16 0 1 2 0 48 2 52 0 0 1 33 173 0 20 3 0 16 0 1 2 0 48 2 5 20 4 0 16 0 48 1 17 1 20 5 0 16 0 1 6 0 48 2 33 12 0 20 7 0 16 0 16 1 49 2 32 125 0 16 1 52 8 0 1 6 34 11 0 5 16 1 52 10 0 1 52 9 0 1 33 4 0 2 32 97 0 20 5 0 16 0 1 11 0 48 2 33 21 0 20 12 0 16 1 48 1 17 2 51 14 0 16 2 52 13 0 2 32 63 0 20 5 0 16 0 1 15 0 48 2 33 43 0 20 16 0 16 0 1 15 0 48 2 17 2 20 17 0 16 2 48 1 17 3 16 3 33 13 0 20 18 0 16 3 16 1 2 49 3 32 1 0 2 32 7 0 20 19 0 16 1 49 1 32 1 0 2 50) - :constants ( - "not" - "is-processed?" - "script" - "mark-processed!" - "dom-text-content" - "dom-has-attr?" - "data-components" - "process-component-script" - "nil?" - "empty?" - "trim" - "data-init" - "sx-parse" - "for-each" - (code :arity 1 - :bytecode (20 0 0 16 0 49 1 50) - :constants ( - "cek-eval")) - "data-mount" - "dom-get-attr" - "dom-query" - "sx-mount" - "sx-load-components")))) - "process-component-script" - (code :arity 2 - :bytecode (20 0 0 16 0 1 1 0 48 2 17 2 16 2 52 2 0 1 33 38 0 16 1 6 33 15 0 5 16 1 52 5 0 1 52 4 0 1 52 3 0 1 33 10 0 20 6 0 16 1 49 1 32 1 0 2 32 239 0 16 1 6 33 15 0 5 16 1 52 5 0 1 52 4 0 1 52 3 0 1 17 3 20 7 0 1 8 0 48 1 17 4 16 4 16 2 52 9 0 2 33 103 0 16 3 33 41 0 20 10 0 1 8 0 16 2 48 2 5 20 10 0 1 11 0 16 1 48 2 5 20 6 0 16 1 48 1 5 20 12 0 1 13 0 48 1 32 54 0 20 7 0 1 11 0 48 1 17 5 16 5 33 28 0 20 6 0 16 5 48 1 5 20 12 0 1 15 0 16 2 1 16 0 52 14 0 3 48 1 32 11 0 20 17 0 48 0 5 20 18 0 48 0 32 84 0 16 3 33 50 0 20 10 0 1 8 0 16 2 48 2 5 20 10 0 1 11 0 16 1 48 2 5 20 6 0 16 1 48 1 5 20 12 0 1 19 0 16 2 1 16 0 52 14 0 3 48 1 32 29 0 20 20 0 1 8 0 48 1 5 20 20 0 1 11 0 48 1 5 20 17 0 48 0 5 20 18 0 48 0 5 20 21 0 16 2 49 1 50) - :constants ( - "dom-get-attr" - "data-hash" - "nil?" - "not" - "empty?" - "trim" - "sx-load-components" - "local-storage-get" - "sx-components-hash" - "=" - "local-storage-set" - "sx-components-src" - "log-info" - "components: downloaded (cookie stale)" - "str" - "components: cached (" - ")" - "clear-sx-comp-cookie" - "browser-reload" - "components: downloaded (" - "local-storage-remove" - "set-sx-comp-cookie")) - "_page-routes" - "list" - "process-page-scripts" - (code - :bytecode (20 0 0 48 0 17 0 20 1 0 1 3 0 16 0 52 4 0 1 1 5 0 52 2 0 3 48 1 5 51 7 0 16 0 52 6 0 2 5 20 1 0 1 8 0 20 9 0 52 4 0 1 1 10 0 52 2 0 3 49 1 50) - :constants ( - "query-page-scripts" - "log-info" - "str" - "pages: found " - "len" - " script tags" - "for-each" - (code :arity 1 - :bytecode (20 1 0 16 0 1 2 0 48 2 52 0 0 1 33 128 0 20 3 0 16 0 1 2 0 48 2 5 20 4 0 16 0 48 1 17 1 20 5 0 1 7 0 16 1 33 9 0 16 1 52 8 0 1 32 3 0 1 9 0 52 6 0 2 48 1 5 16 1 6 33 15 0 5 16 1 52 11 0 1 52 10 0 1 52 0 0 1 33 43 0 20 12 0 16 1 48 1 17 2 20 5 0 1 13 0 16 2 52 8 0 1 1 14 0 52 6 0 3 48 1 5 51 16 0 16 2 52 15 0 2 32 8 0 20 17 0 1 18 0 49 1 32 1 0 2 50) - :constants ( - "not" - "is-processed?" - "pages" - "mark-processed!" - "dom-text-content" - "log-info" - "str" - "pages: script text length=" - "len" - 0 - "empty?" - "trim" - "parse" - "pages: parsed " - " entries" - "for-each" - (code :arity 1 - :bytecode (20 0 0 20 1 0 16 0 1 3 0 20 4 0 16 0 1 6 0 52 5 0 2 48 1 65 1 0 52 2 0 2 49 2 50) - :constants ( - "append!" - "_page-routes" - "merge" - "parsed" - "parse-route-pattern" - "get" - "path")) - "log-warn" - "pages: script tag is empty")) - "pages: " - "_page-routes" - " routes loaded")) - "sx-hydrate-islands" - (code :arity 1 - :bytecode (20 0 0 16 0 6 34 6 0 5 20 1 0 48 0 1 2 0 48 2 17 1 20 3 0 1 5 0 16 1 52 6 0 1 1 7 0 16 0 33 6 0 1 8 0 32 3 0 1 9 0 52 4 0 4 48 1 5 51 11 0 16 1 52 10 0 2 50) - :constants ( - "dom-query-all" - "dom-body" - "[data-sx-island]" - "log-info" - "str" - "sx-hydrate-islands: " - "len" - " island(s) in " - "subtree" - "document" - "for-each" - (code :arity 1 - :bytecode (20 0 0 16 0 1 1 0 48 2 33 25 0 20 2 0 1 4 0 20 5 0 16 0 1 6 0 48 2 52 3 0 2 49 1 32 41 0 20 2 0 1 7 0 20 5 0 16 0 1 6 0 48 2 52 3 0 2 48 1 5 20 8 0 16 0 1 1 0 48 2 5 20 9 0 16 0 49 1 50) - :constants ( - "is-processed?" - "island-hydrated" - "log-info" - "str" - " skip (already hydrated): " - "dom-get-attr" - "data-sx-island" - " hydrating: " - "mark-processed!" - "hydrate-island")))) - "hydrate-island" - (code :arity 1 - :bytecode (20 0 0 16 0 1 1 0 48 2 17 1 20 0 0 16 0 1 2 0 48 2 6 34 4 0 5 1 3 0 17 2 1 5 0 16 1 52 4 0 2 17 3 20 6 0 2 48 1 17 4 20 7 0 16 4 16 3 48 2 17 5 16 5 52 9 0 1 6 34 7 0 5 16 5 52 10 0 1 52 8 0 1 33 17 0 20 11 0 1 12 0 16 3 52 4 0 2 49 1 32 149 0 20 14 0 16 2 48 1 52 13 0 1 6 34 4 0 5 65 0 0 17 6 52 15 0 0 17 7 20 16 0 16 5 52 17 0 1 16 4 48 2 17 8 51 19 0 1 8 1 6 16 5 52 20 0 1 52 18 0 2 5 20 21 0 51 22 0 1 7 1 5 1 8 51 23 0 1 3 48 2 17 9 20 24 0 16 0 1 25 0 48 2 5 20 26 0 16 0 16 9 48 2 5 20 27 0 16 0 1 28 0 16 7 48 3 5 20 29 0 16 0 48 1 5 20 30 0 1 31 0 16 3 1 32 0 16 7 52 33 0 1 1 34 0 52 4 0 5 49 1 50) - :constants ( - "dom-get-attr" - "data-sx-island" - "data-sx-state" - "{}" - "str" - "~" - "get-render-env" - "env-get" - "not" - "component?" - "island?" - "log-warn" - "hydrate-island: unknown island " - "first" - "sx-parse" - "list" - "env-merge" - "component-closure" - "for-each" - (code :arity 1 :upvalue-count 2 - :bytecode (20 0 0 18 0 16 0 18 1 16 0 52 1 0 2 33 11 0 18 1 16 0 52 2 0 2 32 1 0 2 49 3 50) - :constants ( - "env-bind!" - "dict-has?" - "dict-get")) - "component-params" - "cek-try" - (code :upvalue-count 3 - :bytecode (20 0 0 51 1 0 0 0 51 2 0 0 1 0 2 49 2 50) - :constants ( - "with-island-scope" - (code :arity 1 :upvalue-count 1 - :bytecode (20 0 0 18 0 16 0 49 2 50) - :constants ( - "append!")) - (code :upvalue-count 2 - :bytecode (20 0 0 18 0 52 1 0 1 18 1 2 49 3 50) - :constants ( - "render-to-dom" - "component-body")))) - (code :arity 1 :upvalue-count 1 - :bytecode (20 0 0 1 2 0 18 0 1 3 0 16 0 52 1 0 4 48 1 5 20 4 0 1 5 0 2 48 2 17 1 20 6 0 16 1 1 7 0 1 8 0 48 3 5 20 6 0 16 1 1 9 0 1 10 0 48 3 5 20 11 0 16 1 1 12 0 18 0 1 13 0 16 0 52 1 0 4 48 2 5 16 1 50) - :constants ( - "log-warn" - "str" - "hydrate-island FAILED: " - " — " - "dom-create-element" - "div" - "dom-set-attr" - "class" - "sx-island-error" - "style" - "padding:8px;margin:4px 0;border:1px solid #ef4444;border-radius:4px;background:#fef2f2;color:#b91c1c;font-family:monospace;font-size:12px;white-space:pre-wrap" - "dom-set-text-content" - "Island error: " - " -")) - "dom-set-text-content" - "" - "dom-append" - "dom-set-data" - "sx-disposers" - "process-elements" - "log-info" - "hydrated island: " - " (" - "len" - " disposers)")) - "dispose-island" - (code :arity 1 - :bytecode (20 0 0 16 0 1 1 0 48 2 17 1 16 1 33 24 0 51 3 0 16 1 52 2 0 2 5 20 4 0 16 0 1 1 0 2 48 3 32 1 0 2 5 20 5 0 16 0 1 6 0 49 2 50) - :constants ( - "dom-get-data" - "sx-disposers" - "for-each" - (code :arity 1 - :bytecode (20 0 0 16 0 48 1 33 7 0 16 0 49 0 32 1 0 2 50) - :constants ( - "callable?")) - "dom-set-data" - "clear-processed!" - "island-hydrated")) - "dispose-islands-in" - (code :arity 1 - :bytecode (16 0 33 98 0 20 0 0 16 0 1 1 0 48 2 17 1 16 1 6 33 11 0 5 16 1 52 3 0 1 52 2 0 1 33 62 0 51 5 0 16 1 52 4 0 2 17 2 16 2 52 3 0 1 52 2 0 1 33 34 0 20 6 0 1 8 0 16 2 52 9 0 1 1 10 0 52 7 0 3 48 1 5 20 12 0 16 2 52 11 0 2 32 1 0 2 32 1 0 2 32 1 0 2 50) - :constants ( - "dom-query-all" - "[data-sx-island]" - "not" - "empty?" - "filter" - (code :arity 1 - :bytecode (20 1 0 16 0 1 2 0 48 2 52 0 0 1 50) - :constants ( - "not" - "is-processed?" - "island-hydrated")) - "log-info" - "str" - "disposing " - "len" - " island(s)" - "for-each" - "dispose-island")) - "force-dispose-islands-in" - (code :arity 1 - :bytecode (16 0 33 70 0 20 0 0 16 0 1 1 0 48 2 17 1 16 1 6 33 11 0 5 16 1 52 3 0 1 52 2 0 1 33 34 0 20 4 0 1 6 0 16 1 52 7 0 1 1 8 0 52 5 0 3 48 1 5 20 10 0 16 1 52 9 0 2 32 1 0 2 32 1 0 2 50) - :constants ( - "dom-query-all" - "[data-sx-island]" - "not" - "empty?" - "log-info" - "str" - "force-disposing " - "len" - " island(s)" - "for-each" - "dispose-island")) - "*pre-render-hooks*" - "*post-render-hooks*" - "register-pre-render-hook" - (code :arity 1 - :bytecode (20 0 0 20 1 0 16 0 49 2 50) - :constants ( - "append!" - "*pre-render-hooks*")) - "register-post-render-hook" - (code :arity 1 - :bytecode (20 0 0 20 1 0 16 0 49 2 50) - :constants ( - "append!" - "*post-render-hooks*")) - "run-pre-render-hooks" - (code - :bytecode (51 1 0 20 2 0 52 0 0 2 50) - :constants ( - "for-each" - (code :arity 1 - :bytecode (20 0 0 16 0 2 49 2 50) - :constants ( - "cek-call")) - "*pre-render-hooks*")) - "run-post-render-hooks" - (code - :bytecode (20 0 0 1 2 0 20 4 0 52 3 0 1 1 5 0 52 1 0 3 48 1 5 51 7 0 20 4 0 52 6 0 2 50) - :constants ( - "log-info" - "str" - "run-post-render-hooks: " - "len" - "*post-render-hooks*" - " hooks" - "for-each" - (code :arity 1 - :bytecode (20 0 0 1 2 0 16 0 52 3 0 1 1 4 0 20 5 0 16 0 48 1 1 6 0 16 0 52 7 0 1 52 1 0 6 48 1 5 20 8 0 16 0 2 49 2 50) - :constants ( - "log-info" - "str" - " hook type: " - "type-of" - " callable: " - "callable?" - " lambda: " - "lambda?" - "cek-call")))) - "boot-init" - (code - :bytecode (20 0 0 1 2 0 20 3 0 52 1 0 2 48 1 5 20 4 0 48 0 5 20 5 0 48 0 5 20 6 0 2 48 1 5 20 7 0 2 48 1 5 20 8 0 2 48 1 5 20 9 0 48 0 5 20 10 0 2 48 1 5 20 11 0 20 12 0 48 0 1 13 0 51 14 0 49 3 50) - :constants ( - "log-info" - "str" - "sx-browser " - "SX_VERSION" - "init-css-tracking" - "process-page-scripts" - "process-sx-scripts" - "sx-hydrate-elements" - "sx-hydrate-islands" - "run-post-render-hooks" - "process-elements" - "dom-listen" - "dom-window" - "popstate" - (code :arity 1 - :bytecode (20 0 0 1 1 0 49 1 50) - :constants ( - "handle-popstate" - 0))))))) diff --git a/shared/static/wasm/sx/boot.sxbc.json b/shared/static/wasm/sx/boot.sxbc.json deleted file mode 100644 index 83f4805a..00000000 --- a/shared/static/wasm/sx/boot.sxbc.json +++ /dev/null @@ -1 +0,0 @@ -{"magic":"SXBC","version":1,"hash":"8dd29bf7bc354b48","module":{"bytecode":[1,1,0,128,0,0,5,51,3,0,128,2,0,5,51,5,0,128,4,0,5,51,7,0,128,6,0,5,51,9,0,128,8,0,5,51,11,0,128,10,0,5,51,13,0,128,12,0,5,51,15,0,128,14,0,5,51,17,0,128,16,0,5,52,19,0,0,128,18,0,5,51,21,0,128,20,0,5,51,23,0,128,22,0,5,51,25,0,128,24,0,5,51,27,0,128,26,0,5,51,29,0,128,28,0,5,51,31,0,128,30,0,5,52,19,0,0,128,32,0,5,52,19,0,0,128,33,0,5,51,35,0,128,34,0,5,51,37,0,128,36,0,5,51,39,0,128,38,0,5,51,41,0,128,40,0,5,51,43,0,128,42,0,50],"constants":[{"t":"s","v":"HEAD_HOIST_SELECTOR"},{"t":"s","v":"meta, title, link[rel='canonical'], script[type='application/ld+json']"},{"t":"s","v":"hoist-head-elements-full"},{"t":"code","v":{"bytecode":[20,0,0,16,0,20,1,0,48,2,17,1,51,3,0,16,1,52,2,0,2,50],"constants":[{"t":"s","v":"dom-query-all"},{"t":"s","v":"HEAD_HOIST_SELECTOR"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,1,0,16,0,48,1,52,0,0,1,17,1,16,1,1,3,0,52,2,0,2,33,30,0,20,4,0,20,5,0,16,0,48,1,48,1,5,20,6,0,20,7,0,16,0,48,1,16,0,49,2,32,205,0,16,1,1,8,0,52,2,0,2,33,103,0,20,9,0,16,0,1,10,0,48,2,17,2,20,9,0,16,0,1,11,0,48,2,17,3,16,2,33,20,0,20,12,0,1,14,0,16,2,1,15,0,52,13,0,3,48,1,32,1,0,2,5,16,3,33,20,0,20,12,0,1,16,0,16,3,1,15,0,52,13,0,3,48,1,32,1,0,2,5,20,6,0,20,7,0,16,0,48,1,16,0,48,2,5,20,17,0,16,0,49,1,32,90,0,16,1,1,18,0,52,2,0,2,6,33,18,0,5,20,9,0,16,0,1,19,0,48,2,1,20,0,52,2,0,2,33,34,0,20,12,0,1,21,0,48,1,5,20,6,0,20,7,0,16,0,48,1,16,0,48,2,5,20,17,0,16,0,49,1,32,22,0,20,6,0,20,7,0,16,0,48,1,16,0,48,2,5,20,17,0,16,0,49,1,50],"constants":[{"t":"s","v":"lower"},{"t":"s","v":"dom-tag-name"},{"t":"s","v":"="},{"t":"s","v":"title"},{"t":"s","v":"set-document-title"},{"t":"s","v":"dom-text-content"},{"t":"s","v":"dom-remove-child"},{"t":"s","v":"dom-parent"},{"t":"s","v":"meta"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"name"},{"t":"s","v":"property"},{"t":"s","v":"remove-head-element"},{"t":"s","v":"str"},{"t":"s","v":"meta[name=\""},{"t":"s","v":"\"]"},{"t":"s","v":"meta[property=\""},{"t":"s","v":"dom-append-to-head"},{"t":"s","v":"link"},{"t":"s","v":"rel"},{"t":"s","v":"canonical"},{"t":"s","v":"link[rel=\"canonical\"]"}],"arity":1}}],"arity":1}},{"t":"s","v":"sx-mount"},{"t":"code","v":{"bytecode":[20,0,0,16,0,48,1,17,3,16,3,33,90,0,20,2,0,16,3,48,1,52,1,0,1,33,42,0,20,3,0,16,1,16,2,48,2,17,4,20,4,0,16,3,1,5,0,48,2,5,20,6,0,16,3,16,4,48,2,5,20,7,0,16,3,48,1,32,1,0,2,5,20,8,0,16,3,48,1,5,20,9,0,16,3,48,1,5,20,10,0,16,3,48,1,5,20,11,0,49,0,32,1,0,2,50],"constants":[{"t":"s","v":"resolve-mount-target"},{"t":"s","v":"empty?"},{"t":"s","v":"dom-child-list"},{"t":"s","v":"sx-render-with-env"},{"t":"s","v":"dom-set-text-content"},{"t":"s","v":""},{"t":"s","v":"dom-append"},{"t":"s","v":"hoist-head-elements-full"},{"t":"s","v":"process-elements"},{"t":"s","v":"sx-hydrate-elements"},{"t":"s","v":"sx-hydrate-islands"},{"t":"s","v":"run-post-render-hooks"}],"arity":3}},{"t":"s","v":"resolve-suspense"},{"t":"code","v":{"bytecode":[20,0,0,2,48,1,5,20,1,0,1,3,0,16,0,1,4,0,52,2,0,3,48,1,17,2,16,2,33,93,0,20,5,0,16,1,48,1,17,3,20,6,0,2,48,1,17,4,20,7,0,16,2,1,8,0,48,2,5,51,10,0,1,2,1,4,16,3,52,9,0,2,5,20,11,0,16,2,48,1,5,20,12,0,16,2,48,1,5,20,13,0,16,2,48,1,5,20,14,0,48,0,5,20,15,0,16,2,1,16,0,1,17,0,16,0,65,1,0,49,3,32,14,0,20,18,0,1,19,0,16,0,52,2,0,2,49,1,50],"constants":[{"t":"s","v":"process-sx-scripts"},{"t":"s","v":"dom-query"},{"t":"s","v":"str"},{"t":"s","v":"[data-suspense=\""},{"t":"s","v":"\"]"},{"t":"s","v":"parse"},{"t":"s","v":"get-render-env"},{"t":"s","v":"dom-set-text-content"},{"t":"s","v":""},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,18,0,20,1,0,16,0,18,1,2,48,3,49,2,50],"constants":[{"t":"s","v":"dom-append"},{"t":"s","v":"render-to-dom"}],"arity":1,"upvalue-count":2}},{"t":"s","v":"process-elements"},{"t":"s","v":"sx-hydrate-elements"},{"t":"s","v":"sx-hydrate-islands"},{"t":"s","v":"run-post-render-hooks"},{"t":"s","v":"dom-dispatch"},{"t":"s","v":"sx:resolved"},{"t":"s","v":"id"},{"t":"s","v":"log-warn"},{"t":"s","v":"resolveSuspense: no element for id="}],"arity":2}},{"t":"s","v":"sx-hydrate-elements"},{"t":"code","v":{"bytecode":[20,0,0,16,0,6,34,6,0,5,20,1,0,48,0,1,2,0,48,2,17,1,51,4,0,16,1,52,3,0,2,50],"constants":[{"t":"s","v":"dom-query-all"},{"t":"s","v":"dom-body"},{"t":"s","v":"[data-sx]"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,1,0,16,0,1,2,0,48,2,52,0,0,1,33,22,0,20,3,0,16,0,1,2,0,48,2,5,20,4,0,16,0,2,49,2,32,1,0,2,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"is-processed?"},{"t":"s","v":"hydrated"},{"t":"s","v":"mark-processed!"},{"t":"s","v":"sx-update-element"}],"arity":1}}],"arity":1}},{"t":"s","v":"sx-update-element"},{"t":"code","v":{"bytecode":[20,0,0,16,0,48,1,17,2,16,2,33,96,0,20,1,0,16,2,1,2,0,48,2,17,3,16,3,33,75,0,20,3,0,16,2,48,1,17,4,20,4,0,16,4,16,1,48,2,17,5,20,5,0,16,3,16,5,48,2,17,6,20,6,0,16,2,1,7,0,48,2,5,20,8,0,16,2,16,6,48,2,5,16,1,33,14,0,20,9,0,16,2,16,4,16,1,49,3,32,1,0,2,32,1,0,2,32,1,0,2,50],"constants":[{"t":"s","v":"resolve-mount-target"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"data-sx"},{"t":"s","v":"parse-env-attr"},{"t":"s","v":"merge-envs"},{"t":"s","v":"sx-render-with-env"},{"t":"s","v":"dom-set-text-content"},{"t":"s","v":""},{"t":"s","v":"dom-append"},{"t":"s","v":"store-env-attr"}],"arity":2}},{"t":"s","v":"sx-render-component"},{"t":"code","v":{"bytecode":[16,0,1,1,0,52,0,0,2,33,5,0,16,0,32,9,0,1,1,0,16,0,52,2,0,2,17,3,20,3,0,16,2,48,1,17,4,20,4,0,16,4,16,3,48,2,17,5,16,5,52,6,0,1,52,5,0,1,33,16,0,1,8,0,16,3,52,2,0,2,52,7,0,1,32,40,0,16,3,52,10,0,1,52,9,0,1,17,6,51,12,0,1,6,1,1,16,1,52,13,0,1,52,11,0,2,5,20,14,0,16,6,16,4,2,49,3,50],"constants":[{"t":"s","v":"starts-with?"},{"t":"s","v":"~"},{"t":"s","v":"str"},{"t":"s","v":"get-render-env"},{"t":"s","v":"env-get"},{"t":"s","v":"not"},{"t":"s","v":"component?"},{"t":"s","v":"error"},{"t":"s","v":"Unknown component: "},{"t":"s","v":"list"},{"t":"s","v":"make-symbol"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,18,0,20,1,0,20,2,0,16,0,48,1,48,1,48,2,5,20,0,0,18,0,18,1,16,0,52,3,0,2,49,2,50],"constants":[{"t":"s","v":"append!"},{"t":"s","v":"make-keyword"},{"t":"s","v":"to-kebab"},{"t":"s","v":"dict-get"}],"arity":1,"upvalue-count":2}},{"t":"s","v":"keys"},{"t":"s","v":"render-to-dom"}],"arity":3}},{"t":"s","v":"process-sx-scripts"},{"t":"code","v":{"bytecode":[20,0,0,16,0,48,1,17,1,51,2,0,16,1,52,1,0,2,50],"constants":[{"t":"s","v":"query-sx-scripts"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,1,0,16,0,1,2,0,48,2,52,0,0,1,33,173,0,20,3,0,16,0,1,2,0,48,2,5,20,4,0,16,0,48,1,17,1,20,5,0,16,0,1,6,0,48,2,33,12,0,20,7,0,16,0,16,1,49,2,32,125,0,16,1,52,8,0,1,6,34,11,0,5,16,1,52,10,0,1,52,9,0,1,33,4,0,2,32,97,0,20,5,0,16,0,1,11,0,48,2,33,21,0,20,12,0,16,1,48,1,17,2,51,14,0,16,2,52,13,0,2,32,63,0,20,5,0,16,0,1,15,0,48,2,33,43,0,20,16,0,16,0,1,15,0,48,2,17,2,20,17,0,16,2,48,1,17,3,16,3,33,13,0,20,18,0,16,3,16,1,2,49,3,32,1,0,2,32,7,0,20,19,0,16,1,49,1,32,1,0,2,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"is-processed?"},{"t":"s","v":"script"},{"t":"s","v":"mark-processed!"},{"t":"s","v":"dom-text-content"},{"t":"s","v":"dom-has-attr?"},{"t":"s","v":"data-components"},{"t":"s","v":"process-component-script"},{"t":"s","v":"nil?"},{"t":"s","v":"empty?"},{"t":"s","v":"trim"},{"t":"s","v":"data-init"},{"t":"s","v":"sx-parse"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,16,0,49,1,50],"constants":[{"t":"s","v":"cek-eval"}],"arity":1}},{"t":"s","v":"data-mount"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"dom-query"},{"t":"s","v":"sx-mount"},{"t":"s","v":"sx-load-components"}],"arity":1}}],"arity":1}},{"t":"s","v":"process-component-script"},{"t":"code","v":{"bytecode":[20,0,0,16,0,1,1,0,48,2,17,2,16,2,52,2,0,1,33,38,0,16,1,6,33,15,0,5,16,1,52,5,0,1,52,4,0,1,52,3,0,1,33,10,0,20,6,0,16,1,49,1,32,1,0,2,32,239,0,16,1,6,33,15,0,5,16,1,52,5,0,1,52,4,0,1,52,3,0,1,17,3,20,7,0,1,8,0,48,1,17,4,16,4,16,2,52,9,0,2,33,103,0,16,3,33,41,0,20,10,0,1,8,0,16,2,48,2,5,20,10,0,1,11,0,16,1,48,2,5,20,6,0,16,1,48,1,5,20,12,0,1,13,0,48,1,32,54,0,20,7,0,1,11,0,48,1,17,5,16,5,33,28,0,20,6,0,16,5,48,1,5,20,12,0,1,15,0,16,2,1,16,0,52,14,0,3,48,1,32,11,0,20,17,0,48,0,5,20,18,0,48,0,32,84,0,16,3,33,50,0,20,10,0,1,8,0,16,2,48,2,5,20,10,0,1,11,0,16,1,48,2,5,20,6,0,16,1,48,1,5,20,12,0,1,19,0,16,2,1,16,0,52,14,0,3,48,1,32,29,0,20,20,0,1,8,0,48,1,5,20,20,0,1,11,0,48,1,5,20,17,0,48,0,5,20,18,0,48,0,5,20,21,0,16,2,49,1,50],"constants":[{"t":"s","v":"dom-get-attr"},{"t":"s","v":"data-hash"},{"t":"s","v":"nil?"},{"t":"s","v":"not"},{"t":"s","v":"empty?"},{"t":"s","v":"trim"},{"t":"s","v":"sx-load-components"},{"t":"s","v":"local-storage-get"},{"t":"s","v":"sx-components-hash"},{"t":"s","v":"="},{"t":"s","v":"local-storage-set"},{"t":"s","v":"sx-components-src"},{"t":"s","v":"log-info"},{"t":"s","v":"components: downloaded (cookie stale)"},{"t":"s","v":"str"},{"t":"s","v":"components: cached ("},{"t":"s","v":")"},{"t":"s","v":"clear-sx-comp-cookie"},{"t":"s","v":"browser-reload"},{"t":"s","v":"components: downloaded ("},{"t":"s","v":"local-storage-remove"},{"t":"s","v":"set-sx-comp-cookie"}],"arity":2}},{"t":"s","v":"_page-routes"},{"t":"s","v":"list"},{"t":"s","v":"process-page-scripts"},{"t":"code","v":{"bytecode":[20,0,0,48,0,17,0,20,1,0,1,3,0,16,0,52,4,0,1,1,5,0,52,2,0,3,48,1,5,51,7,0,16,0,52,6,0,2,5,20,1,0,1,8,0,20,9,0,52,4,0,1,1,10,0,52,2,0,3,49,1,50],"constants":[{"t":"s","v":"query-page-scripts"},{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":"pages: found "},{"t":"s","v":"len"},{"t":"s","v":" script tags"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,1,0,16,0,1,2,0,48,2,52,0,0,1,33,128,0,20,3,0,16,0,1,2,0,48,2,5,20,4,0,16,0,48,1,17,1,20,5,0,1,7,0,16,1,33,9,0,16,1,52,8,0,1,32,3,0,1,9,0,52,6,0,2,48,1,5,16,1,6,33,15,0,5,16,1,52,11,0,1,52,10,0,1,52,0,0,1,33,43,0,20,12,0,16,1,48,1,17,2,20,5,0,1,13,0,16,2,52,8,0,1,1,14,0,52,6,0,3,48,1,5,51,16,0,16,2,52,15,0,2,32,8,0,20,17,0,1,18,0,49,1,32,1,0,2,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"is-processed?"},{"t":"s","v":"pages"},{"t":"s","v":"mark-processed!"},{"t":"s","v":"dom-text-content"},{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":"pages: script text length="},{"t":"s","v":"len"},{"t":"n","v":0},{"t":"s","v":"empty?"},{"t":"s","v":"trim"},{"t":"s","v":"parse"},{"t":"s","v":"pages: parsed "},{"t":"s","v":" entries"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,20,1,0,16,0,1,3,0,20,4,0,16,0,1,6,0,52,5,0,2,48,1,65,1,0,52,2,0,2,49,2,50],"constants":[{"t":"s","v":"append!"},{"t":"s","v":"_page-routes"},{"t":"s","v":"merge"},{"t":"s","v":"parsed"},{"t":"s","v":"parse-route-pattern"},{"t":"s","v":"get"},{"t":"s","v":"path"}],"arity":1}},{"t":"s","v":"log-warn"},{"t":"s","v":"pages: script tag is empty"}],"arity":1}},{"t":"s","v":"pages: "},{"t":"s","v":"_page-routes"},{"t":"s","v":" routes loaded"}]}},{"t":"s","v":"sx-hydrate-islands"},{"t":"code","v":{"bytecode":[20,0,0,16,0,6,34,6,0,5,20,1,0,48,0,1,2,0,48,2,17,1,20,3,0,1,5,0,16,1,52,6,0,1,1,7,0,16,0,33,6,0,1,8,0,32,3,0,1,9,0,52,4,0,4,48,1,5,51,11,0,16,1,52,10,0,2,50],"constants":[{"t":"s","v":"dom-query-all"},{"t":"s","v":"dom-body"},{"t":"s","v":"[data-sx-island]"},{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":"sx-hydrate-islands: "},{"t":"s","v":"len"},{"t":"s","v":" island(s) in "},{"t":"s","v":"subtree"},{"t":"s","v":"document"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,16,0,1,1,0,48,2,33,25,0,20,2,0,1,4,0,20,5,0,16,0,1,6,0,48,2,52,3,0,2,49,1,32,41,0,20,2,0,1,7,0,20,5,0,16,0,1,6,0,48,2,52,3,0,2,48,1,5,20,8,0,16,0,1,1,0,48,2,5,20,9,0,16,0,49,1,50],"constants":[{"t":"s","v":"is-processed?"},{"t":"s","v":"island-hydrated"},{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":" skip (already hydrated): "},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"data-sx-island"},{"t":"s","v":" hydrating: "},{"t":"s","v":"mark-processed!"},{"t":"s","v":"hydrate-island"}],"arity":1}}],"arity":1}},{"t":"s","v":"hydrate-island"},{"t":"code","v":{"bytecode":[20,0,0,16,0,1,1,0,48,2,17,1,20,0,0,16,0,1,2,0,48,2,6,34,4,0,5,1,3,0,17,2,1,5,0,16,1,52,4,0,2,17,3,20,6,0,2,48,1,17,4,20,7,0,16,4,16,3,48,2,17,5,16,5,52,9,0,1,6,34,7,0,5,16,5,52,10,0,1,52,8,0,1,33,17,0,20,11,0,1,12,0,16,3,52,4,0,2,49,1,32,149,0,20,14,0,16,2,48,1,52,13,0,1,6,34,4,0,5,65,0,0,17,6,52,15,0,0,17,7,20,16,0,16,5,52,17,0,1,16,4,48,2,17,8,51,19,0,1,8,1,6,16,5,52,20,0,1,52,18,0,2,5,20,21,0,51,22,0,1,7,1,5,1,8,51,23,0,1,3,48,2,17,9,20,24,0,16,0,1,25,0,48,2,5,20,26,0,16,0,16,9,48,2,5,20,27,0,16,0,1,28,0,16,7,48,3,5,20,29,0,16,0,48,1,5,20,30,0,1,31,0,16,3,1,32,0,16,7,52,33,0,1,1,34,0,52,4,0,5,49,1,50],"constants":[{"t":"s","v":"dom-get-attr"},{"t":"s","v":"data-sx-island"},{"t":"s","v":"data-sx-state"},{"t":"s","v":"{}"},{"t":"s","v":"str"},{"t":"s","v":"~"},{"t":"s","v":"get-render-env"},{"t":"s","v":"env-get"},{"t":"s","v":"not"},{"t":"s","v":"component?"},{"t":"s","v":"island?"},{"t":"s","v":"log-warn"},{"t":"s","v":"hydrate-island: unknown island "},{"t":"s","v":"first"},{"t":"s","v":"sx-parse"},{"t":"s","v":"list"},{"t":"s","v":"env-merge"},{"t":"s","v":"component-closure"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,18,0,16,0,18,1,16,0,52,1,0,2,33,11,0,18,1,16,0,52,2,0,2,32,1,0,2,49,3,50],"constants":[{"t":"s","v":"env-bind!"},{"t":"s","v":"dict-has?"},{"t":"s","v":"dict-get"}],"arity":1,"upvalue-count":2}},{"t":"s","v":"component-params"},{"t":"s","v":"cek-try"},{"t":"code","v":{"bytecode":[20,0,0,51,1,0,0,0,51,2,0,0,1,0,2,49,2,50],"constants":[{"t":"s","v":"with-island-scope"},{"t":"code","v":{"bytecode":[20,0,0,18,0,16,0,49,2,50],"constants":[{"t":"s","v":"append!"}],"arity":1,"upvalue-count":1}},{"t":"code","v":{"bytecode":[20,0,0,18,0,52,1,0,1,18,1,2,49,3,50],"constants":[{"t":"s","v":"render-to-dom"},{"t":"s","v":"component-body"}],"upvalue-count":2}}],"upvalue-count":3}},{"t":"code","v":{"bytecode":[20,0,0,1,2,0,18,0,1,3,0,16,0,52,1,0,4,48,1,5,20,4,0,1,5,0,2,48,2,17,1,20,6,0,16,1,1,7,0,1,8,0,48,3,5,20,6,0,16,1,1,9,0,1,10,0,48,3,5,20,11,0,16,1,1,12,0,18,0,1,13,0,16,0,52,1,0,4,48,2,5,16,1,50],"constants":[{"t":"s","v":"log-warn"},{"t":"s","v":"str"},{"t":"s","v":"hydrate-island FAILED: "},{"t":"s","v":" — "},{"t":"s","v":"dom-create-element"},{"t":"s","v":"div"},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"class"},{"t":"s","v":"sx-island-error"},{"t":"s","v":"style"},{"t":"s","v":"padding:8px;margin:4px 0;border:1px solid #ef4444;border-radius:4px;background:#fef2f2;color:#b91c1c;font-family:monospace;font-size:12px;white-space:pre-wrap"},{"t":"s","v":"dom-set-text-content"},{"t":"s","v":"Island error: "},{"t":"s","v":"\n"}],"arity":1,"upvalue-count":1}},{"t":"s","v":"dom-set-text-content"},{"t":"s","v":""},{"t":"s","v":"dom-append"},{"t":"s","v":"dom-set-data"},{"t":"s","v":"sx-disposers"},{"t":"s","v":"process-elements"},{"t":"s","v":"log-info"},{"t":"s","v":"hydrated island: "},{"t":"s","v":" ("},{"t":"s","v":"len"},{"t":"s","v":" disposers)"}],"arity":1}},{"t":"s","v":"dispose-island"},{"t":"code","v":{"bytecode":[20,0,0,16,0,1,1,0,48,2,17,1,16,1,33,24,0,51,3,0,16,1,52,2,0,2,5,20,4,0,16,0,1,1,0,2,48,3,32,1,0,2,5,20,5,0,16,0,1,6,0,49,2,50],"constants":[{"t":"s","v":"dom-get-data"},{"t":"s","v":"sx-disposers"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,16,0,48,1,33,7,0,16,0,49,0,32,1,0,2,50],"constants":[{"t":"s","v":"callable?"}],"arity":1}},{"t":"s","v":"dom-set-data"},{"t":"s","v":"clear-processed!"},{"t":"s","v":"island-hydrated"}],"arity":1}},{"t":"s","v":"dispose-islands-in"},{"t":"code","v":{"bytecode":[16,0,33,98,0,20,0,0,16,0,1,1,0,48,2,17,1,16,1,6,33,11,0,5,16,1,52,3,0,1,52,2,0,1,33,62,0,51,5,0,16,1,52,4,0,2,17,2,16,2,52,3,0,1,52,2,0,1,33,34,0,20,6,0,1,8,0,16,2,52,9,0,1,1,10,0,52,7,0,3,48,1,5,20,12,0,16,2,52,11,0,2,32,1,0,2,32,1,0,2,32,1,0,2,50],"constants":[{"t":"s","v":"dom-query-all"},{"t":"s","v":"[data-sx-island]"},{"t":"s","v":"not"},{"t":"s","v":"empty?"},{"t":"s","v":"filter"},{"t":"code","v":{"bytecode":[20,1,0,16,0,1,2,0,48,2,52,0,0,1,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"is-processed?"},{"t":"s","v":"island-hydrated"}],"arity":1}},{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":"disposing "},{"t":"s","v":"len"},{"t":"s","v":" island(s)"},{"t":"s","v":"for-each"},{"t":"s","v":"dispose-island"}],"arity":1}},{"t":"s","v":"force-dispose-islands-in"},{"t":"code","v":{"bytecode":[16,0,33,70,0,20,0,0,16,0,1,1,0,48,2,17,1,16,1,6,33,11,0,5,16,1,52,3,0,1,52,2,0,1,33,34,0,20,4,0,1,6,0,16,1,52,7,0,1,1,8,0,52,5,0,3,48,1,5,20,10,0,16,1,52,9,0,2,32,1,0,2,32,1,0,2,50],"constants":[{"t":"s","v":"dom-query-all"},{"t":"s","v":"[data-sx-island]"},{"t":"s","v":"not"},{"t":"s","v":"empty?"},{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":"force-disposing "},{"t":"s","v":"len"},{"t":"s","v":" island(s)"},{"t":"s","v":"for-each"},{"t":"s","v":"dispose-island"}],"arity":1}},{"t":"s","v":"*pre-render-hooks*"},{"t":"s","v":"*post-render-hooks*"},{"t":"s","v":"register-pre-render-hook"},{"t":"code","v":{"bytecode":[20,0,0,20,1,0,16,0,49,2,50],"constants":[{"t":"s","v":"append!"},{"t":"s","v":"*pre-render-hooks*"}],"arity":1}},{"t":"s","v":"register-post-render-hook"},{"t":"code","v":{"bytecode":[20,0,0,20,1,0,16,0,49,2,50],"constants":[{"t":"s","v":"append!"},{"t":"s","v":"*post-render-hooks*"}],"arity":1}},{"t":"s","v":"run-pre-render-hooks"},{"t":"code","v":{"bytecode":[51,1,0,20,2,0,52,0,0,2,50],"constants":[{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,16,0,2,49,2,50],"constants":[{"t":"s","v":"cek-call"}],"arity":1}},{"t":"s","v":"*pre-render-hooks*"}]}},{"t":"s","v":"run-post-render-hooks"},{"t":"code","v":{"bytecode":[20,0,0,1,2,0,20,4,0,52,3,0,1,1,5,0,52,1,0,3,48,1,5,51,7,0,20,4,0,52,6,0,2,50],"constants":[{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":"run-post-render-hooks: "},{"t":"s","v":"len"},{"t":"s","v":"*post-render-hooks*"},{"t":"s","v":" hooks"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,1,2,0,16,0,52,3,0,1,1,4,0,20,5,0,16,0,48,1,1,6,0,16,0,52,7,0,1,52,1,0,6,48,1,5,20,8,0,16,0,2,49,2,50],"constants":[{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":" hook type: "},{"t":"s","v":"type-of"},{"t":"s","v":" callable: "},{"t":"s","v":"callable?"},{"t":"s","v":" lambda: "},{"t":"s","v":"lambda?"},{"t":"s","v":"cek-call"}],"arity":1}}]}},{"t":"s","v":"boot-init"},{"t":"code","v":{"bytecode":[20,0,0,1,2,0,20,3,0,52,1,0,2,48,1,5,20,4,0,48,0,5,20,5,0,48,0,5,20,6,0,2,48,1,5,20,7,0,2,48,1,5,20,8,0,2,48,1,5,20,9,0,48,0,5,20,10,0,2,48,1,5,20,11,0,20,12,0,48,0,1,13,0,51,14,0,49,3,50],"constants":[{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":"sx-browser "},{"t":"s","v":"SX_VERSION"},{"t":"s","v":"init-css-tracking"},{"t":"s","v":"process-page-scripts"},{"t":"s","v":"process-sx-scripts"},{"t":"s","v":"sx-hydrate-elements"},{"t":"s","v":"sx-hydrate-islands"},{"t":"s","v":"run-post-render-hooks"},{"t":"s","v":"process-elements"},{"t":"s","v":"dom-listen"},{"t":"s","v":"dom-window"},{"t":"s","v":"popstate"},{"t":"code","v":{"bytecode":[20,0,0,1,1,0,49,1,50],"constants":[{"t":"s","v":"handle-popstate"},{"t":"n","v":0}],"arity":1}}]}}]}} \ No newline at end of file diff --git a/shared/static/wasm/sx/orchestration.sx b/shared/static/wasm/sx/orchestration.sx index aab32928..06e5a667 100644 --- a/shared/static/wasm/sx/orchestration.sx +++ b/shared/static/wasm/sx/orchestration.sx @@ -299,7 +299,11 @@ () (let ((swap-result (swap-dom-nodes target content swap-style))) - (post-swap (or swap-result target))))))))))))) + (post-swap + (if + (= swap-style "outerHTML") + (dom-parent (or swap-result target)) + (or swap-result target)))))))))))))) (define handle-html-response @@ -325,8 +329,15 @@ use-transition (fn () - (swap-html-string target html swap-style) - (post-swap target)))) + (let + ((swap-root (swap-html-string target html swap-style))) + (log-info + (str + "swap-root: " + (if swap-root (dom-tag-name swap-root) "nil") + " target: " + (dom-tag-name target))) + (post-swap (or swap-root target)))))) (let ((container (dom-create-element "div" nil))) (dom-set-inner-html container (dom-body-inner-html doc)) diff --git a/shared/static/wasm/sx/orchestration.sxbc b/shared/static/wasm/sx/orchestration.sxbc deleted file mode 100644 index 0431415e..00000000 --- a/shared/static/wasm/sx/orchestration.sxbc +++ /dev/null @@ -1,1193 +0,0 @@ -(sxbc 1 "1056e285184b2535" - (code - :bytecode (52 1 0 0 128 0 0 5 1 3 0 128 2 0 5 51 5 0 128 4 0 5 51 7 0 128 6 0 5 51 9 0 128 8 0 5 51 11 0 128 10 0 5 51 13 0 128 12 0 5 51 15 0 128 14 0 5 51 17 0 128 16 0 5 51 19 0 128 18 0 5 51 21 0 128 20 0 5 51 23 0 128 22 0 5 51 25 0 128 24 0 5 51 27 0 128 26 0 5 51 29 0 128 28 0 5 51 31 0 128 30 0 5 51 33 0 128 32 0 5 51 35 0 128 34 0 5 51 37 0 128 36 0 5 52 1 0 0 128 38 0 5 1 40 0 128 39 0 5 51 42 0 128 41 0 5 51 44 0 128 43 0 5 51 46 0 128 45 0 5 51 48 0 128 47 0 5 51 50 0 128 49 0 5 51 52 0 128 51 0 5 51 54 0 128 53 0 5 52 1 0 0 128 55 0 5 51 57 0 128 56 0 5 51 59 0 128 58 0 5 51 61 0 128 60 0 5 51 63 0 128 62 0 5 3 128 64 0 5 52 66 0 0 128 65 0 5 51 68 0 128 67 0 5 51 70 0 128 69 0 5 51 72 0 128 71 0 5 51 74 0 128 73 0 5 51 76 0 128 75 0 5 51 78 0 128 77 0 5 51 80 0 128 79 0 5 51 82 0 128 81 0 5 51 84 0 128 83 0 5 51 86 0 128 85 0 5 51 88 0 128 87 0 5 51 90 0 128 89 0 5 51 92 0 128 91 0 5 51 94 0 128 93 0 5 51 96 0 128 95 0 5 51 98 0 128 97 0 5 51 100 0 128 99 0 5 51 102 0 128 101 0 5 1 105 0 52 104 0 1 128 103 0 5 51 107 0 128 106 0 5 51 109 0 128 108 0 5 51 111 0 128 110 0 5 51 113 0 128 112 0 5 51 115 0 128 114 0 50) - :constants ( - "_preload-cache" - "dict" - "_css-hash" - "" - "dispatch-trigger-events" - (code :arity 2 - :bytecode (16 1 33 55 0 20 0 0 16 1 48 1 17 2 16 2 33 20 0 51 2 0 1 0 1 2 16 2 52 3 0 1 52 1 0 2 32 18 0 51 4 0 1 0 16 1 1 6 0 52 5 0 2 52 1 0 2 32 1 0 2 50) - :constants ( - "try-parse-json" - "for-each" - (code :arity 1 :upvalue-count 2 - :bytecode (20 0 0 18 0 16 0 18 1 16 0 52 1 0 2 49 3 50) - :constants ( - "dom-dispatch" - "get")) - "keys" - (code :arity 1 :upvalue-count 1 - :bytecode (16 0 52 0 0 1 17 1 16 1 52 2 0 1 52 1 0 1 33 16 0 20 3 0 18 0 16 1 52 4 0 0 49 3 32 1 0 2 50) - :constants ( - "trim" - "not" - "empty?" - "dom-dispatch" - "dict")) - "split" - ",")) - "init-css-tracking" - (code - :bytecode (20 0 0 1 1 0 48 1 17 0 16 0 33 29 0 20 2 0 16 0 1 3 0 48 2 17 1 16 1 33 8 0 16 1 21 4 0 32 1 0 2 32 1 0 2 50) - :constants ( - "dom-query" - "meta[name=\"sx-css-classes\"]" - "dom-get-attr" - "content" - "_css-hash")) - "execute-request" - (code :arity 3 - :bytecode (20 0 0 16 0 48 1 6 34 3 0 5 16 1 17 3 16 3 52 1 0 1 33 9 0 20 2 0 2 49 1 32 249 0 16 3 1 4 0 52 3 0 2 17 4 16 3 1 5 0 52 3 0 2 17 5 20 6 0 16 0 1 7 0 48 2 17 6 16 6 6 33 12 0 5 20 9 0 16 6 48 1 52 8 0 1 33 9 0 20 2 0 2 49 1 32 185 0 20 6 0 16 0 1 10 0 48 2 17 6 16 6 6 33 12 0 5 20 11 0 16 6 48 1 52 8 0 1 33 9 0 20 2 0 2 49 1 32 143 0 20 6 0 16 0 1 12 0 48 2 17 6 16 6 33 10 0 20 13 0 16 6 48 1 32 1 0 2 17 7 16 6 6 33 7 0 5 16 7 52 1 0 1 33 9 0 20 2 0 2 49 1 32 88 0 16 4 52 1 0 1 6 34 23 0 5 16 5 52 1 0 1 6 34 12 0 5 20 14 0 16 0 48 1 52 8 0 1 33 9 0 20 2 0 2 49 1 32 43 0 20 15 0 16 0 16 4 16 4 16 5 16 7 33 23 0 16 2 6 34 5 0 5 52 17 0 0 1 18 0 16 7 52 16 0 3 32 2 0 16 2 49 5 50) - :constants ( - "get-verb-info" - "nil?" - "promise-resolve" - "get" - "method" - "url" - "dom-get-attr" - "sx-media" - "not" - "browser-media-matches?" - "sx-confirm" - "browser-confirm" - "sx-prompt" - "browser-prompt" - "validate-for-request" - "do-fetch" - "assoc" - "dict" - "SX-Prompt")) - "do-fetch" - (code :arity 5 - :bytecode (20 0 0 16 0 1 1 0 48 2 17 5 16 5 1 3 0 52 2 0 2 33 10 0 20 4 0 16 0 48 1 32 1 0 2 5 20 5 0 16 0 48 1 17 6 16 6 6 33 13 0 5 16 0 16 6 52 7 0 2 52 6 0 1 33 10 0 20 8 0 16 6 48 1 32 1 0 2 5 20 9 0 48 0 17 6 20 10 0 16 0 16 6 48 2 5 20 5 0 16 0 48 1 17 7 16 7 33 12 0 20 11 0 16 7 16 6 48 2 32 1 0 2 5 20 12 0 16 0 16 2 16 3 48 3 17 7 16 7 1 14 0 52 13 0 2 17 8 16 7 1 15 0 52 13 0 2 17 9 16 7 1 16 0 52 13 0 2 17 10 20 17 0 16 0 20 18 0 48 0 20 19 0 48 3 17 11 20 20 0 48 0 17 12 16 4 33 20 0 51 22 0 1 11 1 4 16 4 52 23 0 1 52 21 0 2 32 1 0 2 5 16 10 33 14 0 16 11 1 25 0 16 10 52 24 0 3 32 1 0 2 5 16 12 33 14 0 16 11 1 26 0 16 12 52 24 0 3 32 1 0 2 5 20 27 0 20 28 0 16 8 48 2 17 13 20 29 0 16 0 48 1 17 14 20 30 0 16 0 48 1 17 15 20 31 0 16 0 48 1 17 16 20 32 0 16 0 1 33 0 48 2 5 20 34 0 16 0 1 35 0 1 36 0 48 3 5 20 37 0 16 0 1 38 0 1 14 0 16 8 1 40 0 16 2 52 39 0 4 48 3 5 20 41 0 1 14 0 16 8 1 40 0 16 2 1 42 0 16 11 1 15 0 16 9 1 43 0 20 44 0 16 6 48 1 1 45 0 20 46 0 16 8 48 1 1 47 0 16 13 52 39 0 14 51 48 0 1 0 1 15 1 16 1 14 1 8 1 1 1 4 1 2 51 49 0 1 0 1 15 1 16 1 14 1 2 1 8 49 3 50) - :constants ( - "dom-get-attr" - "sx-sync" - "=" - "replace" - "abort-previous" - "resolve-target" - "not" - "identical?" - "abort-previous-target" - "new-abort-controller" - "track-controller" - "track-controller-target" - "build-request-body" - "get" - "url" - "body" - "content-type" - "build-request-headers" - "loaded-component-names" - "_css-hash" - "csrf-token" - "for-each" - (code :arity 1 :upvalue-count 2 - :bytecode (18 0 16 0 18 1 16 0 52 1 0 2 52 0 0 3 50) - :constants ( - "dict-set!" - "get")) - "keys" - "dict-set!" - "Content-Type" - "X-CSRFToken" - "preload-cache-get" - "_preload-cache" - "apply-optimistic" - "show-indicator" - "disable-elements" - "dom-add-class" - "sx-request" - "dom-set-attr" - "aria-busy" - "true" - "dom-dispatch" - "sx:beforeRequest" - "dict" - "method" - "fetch-request" - "headers" - "signal" - "controller-signal" - "cross-origin" - "cross-origin?" - "preloaded" - (code :arity 4 :upvalue-count 8 - :bytecode (20 0 0 18 0 18 1 18 2 48 3 5 20 1 0 18 3 48 1 5 16 0 52 2 0 1 33 86 0 20 3 0 18 0 1 4 0 1 6 0 16 1 1 7 0 16 3 52 5 0 4 48 3 5 16 3 6 33 14 0 5 16 3 52 9 0 1 1 10 0 52 8 0 2 33 20 0 20 11 0 18 0 18 4 18 5 18 6 16 2 16 3 49 6 32 15 0 20 12 0 18 0 18 5 18 7 18 4 18 6 49 5 32 37 0 20 3 0 18 0 1 13 0 1 6 0 16 1 52 5 0 2 48 3 5 20 11 0 18 0 18 4 18 5 18 6 16 2 16 3 49 6 50) - :constants ( - "clear-loading-state" - "revert-optimistic" - "not" - "dom-dispatch" - "sx:responseError" - "dict" - "status" - "text" - ">" - "len" - 0 - "handle-fetch-success" - "handle-retry" - "sx:afterRequest")) - (code :arity 1 :upvalue-count 6 - :bytecode (20 0 0 18 0 18 1 18 2 48 3 5 20 1 0 18 3 48 1 5 20 3 0 16 0 48 1 52 2 0 1 33 47 0 20 4 0 1 6 0 18 4 1 7 0 18 5 1 8 0 16 0 52 5 0 6 48 1 5 20 9 0 18 0 1 10 0 1 12 0 16 0 52 11 0 2 49 3 32 1 0 2 50) - :constants ( - "clear-loading-state" - "revert-optimistic" - "not" - "abort-error?" - "log-warn" - "str" - "sx:fetch error " - " " - " — " - "dom-dispatch" - "sx:requestError" - "dict" - "error")))) - "handle-fetch-success" - (code :arity 6 - :bytecode (20 0 0 16 4 48 1 17 6 16 6 1 2 0 52 1 0 2 17 7 16 7 33 8 0 16 7 21 3 0 32 1 0 2 5 20 4 0 16 0 16 6 1 5 0 52 1 0 2 48 2 5 20 6 0 16 0 16 6 16 5 48 3 5 16 6 1 7 0 52 1 0 2 33 17 0 20 8 0 16 6 1 7 0 52 1 0 2 49 1 32 31 1 16 6 1 9 0 52 1 0 2 33 8 0 20 10 0 49 0 32 11 1 16 6 1 11 0 52 1 0 2 33 17 0 20 12 0 16 6 1 11 0 52 1 0 2 49 1 32 238 0 16 6 1 13 0 52 1 0 2 33 17 0 20 14 0 16 6 1 13 0 52 1 0 2 48 1 32 7 0 20 15 0 16 0 48 1 17 7 20 16 0 16 6 1 17 0 52 1 0 2 6 34 11 0 5 20 18 0 16 0 1 19 0 48 2 20 20 0 20 21 0 48 0 1 22 0 48 2 48 2 17 8 16 8 1 23 0 52 1 0 2 17 9 16 8 1 24 0 52 1 0 2 17 10 16 6 1 25 0 52 1 0 2 6 34 4 0 5 1 26 0 17 11 16 11 1 28 0 52 27 0 2 33 18 0 20 29 0 16 0 16 7 16 5 16 9 16 10 48 5 32 15 0 20 30 0 16 0 16 7 16 5 16 9 16 10 48 5 5 20 4 0 16 0 16 6 1 31 0 52 1 0 2 48 2 5 20 32 0 16 0 16 1 16 6 48 3 5 20 33 0 51 34 0 1 6 1 0 1 35 0 48 2 5 20 36 0 16 0 1 37 0 1 39 0 16 7 1 40 0 16 9 52 38 0 4 49 3 50) - :constants ( - "process-response-headers" - "get" - "css-hash" - "_css-hash" - "dispatch-trigger-events" - "trigger" - "process-cache-directives" - "redirect" - "browser-navigate" - "refresh" - "browser-reload" - "location" - "fetch-location" - "retarget" - "dom-query" - "resolve-target" - "parse-swap-spec" - "reswap" - "dom-get-attr" - "sx-swap" - "dom-has-class?" - "dom-body" - "sx-transitions" - "style" - "transition" - "content-type" - "" - "contains?" - "text/sx" - "handle-sx-response" - "handle-html-response" - "trigger-swap" - "handle-history" - "set-timeout" - (code :upvalue-count 2 - :bytecode (18 0 1 1 0 52 0 0 2 33 19 0 20 2 0 18 1 18 0 1 1 0 52 0 0 2 48 2 32 1 0 2 5 20 3 0 18 1 49 1 50) - :constants ( - "get" - "trigger-settle" - "dispatch-trigger-events" - "process-settle-hooks")) - 20 - "dom-dispatch" - "sx:afterSwap" - "dict" - "target" - "swap")) - "handle-sx-response" - (code :arity 5 - :bytecode (20 0 0 16 2 48 1 17 5 20 1 0 16 5 48 1 17 6 16 6 52 2 0 1 17 7 16 7 52 4 0 1 52 3 0 1 33 106 0 20 5 0 16 7 48 1 17 8 20 6 0 1 7 0 2 48 2 17 9 20 8 0 16 9 16 8 48 2 5 20 9 0 16 9 51 10 0 48 2 5 20 11 0 16 0 1 12 0 48 2 17 10 16 10 33 12 0 20 13 0 16 9 16 10 48 2 32 7 0 20 14 0 16 9 48 1 17 11 20 15 0 16 1 48 1 5 20 16 0 16 4 51 17 0 1 1 1 11 1 3 49 2 32 1 0 2 50) - :constants ( - "strip-component-scripts" - "extract-response-css" - "trim" - "not" - "empty?" - "sx-render" - "dom-create-element" - "div" - "dom-append" - "process-oob-swaps" - (code :arity 3 - :bytecode (20 0 0 16 0 48 1 5 20 1 0 16 0 16 1 16 2 48 3 5 20 2 0 16 0 48 1 5 20 3 0 16 0 49 1 50) - :constants ( - "dispose-islands-in" - "swap-dom-nodes" - "sx-hydrate" - "process-elements")) - "dom-get-attr" - "sx-select" - "select-from-container" - "children-to-fragment" - "dispose-islands-in" - "with-transition" - (code :upvalue-count 3 - :bytecode (20 0 0 18 0 18 1 18 2 48 3 17 0 20 1 0 16 0 6 34 3 0 5 18 0 49 1 50) - :constants ( - "swap-dom-nodes" - "post-swap")))) - "handle-html-response" - (code :arity 5 - :bytecode (20 0 0 16 2 48 1 17 5 16 5 33 119 0 20 1 0 16 0 1 2 0 48 2 17 6 20 3 0 16 1 48 1 5 16 6 33 30 0 20 4 0 16 5 16 6 48 2 17 7 20 5 0 16 4 51 6 0 1 1 1 7 1 3 49 2 32 61 0 20 7 0 1 8 0 2 48 2 17 7 20 9 0 16 7 20 10 0 16 5 48 1 48 2 5 20 11 0 16 7 51 12 0 48 2 5 20 13 0 16 7 48 1 5 20 5 0 16 4 51 14 0 1 1 1 7 1 3 49 2 32 1 0 2 50) - :constants ( - "dom-parse-html-document" - "dom-get-attr" - "sx-select" - "dispose-islands-in" - "select-html-from-doc" - "with-transition" - (code :upvalue-count 3 - :bytecode (20 0 0 18 0 18 1 18 2 48 3 5 20 1 0 18 0 49 1 50) - :constants ( - "swap-html-string" - "post-swap")) - "dom-create-element" - "div" - "dom-set-inner-html" - "dom-body-inner-html" - "process-oob-swaps" - (code :arity 3 - :bytecode (20 0 0 16 0 48 1 5 20 1 0 16 0 16 1 16 2 48 3 5 20 2 0 16 0 49 1 50) - :constants ( - "dispose-islands-in" - "swap-dom-nodes" - "post-swap")) - "hoist-head-elements" - (code :upvalue-count 3 - :bytecode (20 0 0 18 0 20 1 0 18 1 48 1 18 2 48 3 5 20 2 0 18 0 49 1 50) - :constants ( - "swap-dom-nodes" - "children-to-fragment" - "post-swap")))) - "handle-retry" - (code :arity 5 - :bytecode (20 0 0 16 0 1 1 0 48 2 17 5 20 2 0 16 5 48 1 17 6 16 6 33 97 0 20 0 0 16 0 1 3 0 48 2 6 34 10 0 5 16 6 1 5 0 52 4 0 2 17 7 16 7 16 6 1 5 0 52 4 0 2 52 6 0 2 17 8 20 7 0 16 0 1 3 0 20 9 0 16 8 16 6 1 10 0 52 4 0 2 48 2 52 8 0 1 48 3 5 20 11 0 51 12 0 1 0 1 1 1 2 1 3 1 4 16 8 49 2 32 1 0 2 50) - :constants ( - "dom-get-attr" - "sx-retry" - "parse-retry-spec" - "data-sx-retry-ms" - "get" - "start-ms" - "parse-int" - "dom-set-attr" - "str" - "next-retry-ms" - "cap-ms" - "set-timeout" - (code :upvalue-count 5 - :bytecode (20 0 0 18 0 18 1 18 2 18 3 18 4 49 5 50) - :constants ( - "do-fetch")))) - "bind-triggers" - (code :arity 2 - :bytecode (20 0 0 20 1 0 16 0 1 2 0 48 2 48 1 6 34 13 0 5 20 3 0 20 4 0 16 0 48 1 48 1 17 2 51 6 0 1 0 1 1 16 2 52 5 0 2 50) - :constants ( - "parse-trigger-spec" - "dom-get-attr" - "sx-trigger" - "default-trigger" - "dom-tag-name" - "for-each" - (code :arity 1 :upvalue-count 2 - :bytecode (20 0 0 16 0 48 1 17 1 16 0 1 2 0 52 1 0 2 17 2 16 1 1 4 0 52 3 0 2 33 22 0 20 5 0 51 6 0 0 0 16 2 1 7 0 52 1 0 2 49 2 32 152 0 16 1 1 8 0 52 3 0 2 33 25 0 20 9 0 18 0 51 6 0 0 0 4 16 2 1 10 0 52 1 0 2 49 4 32 115 0 16 1 1 11 0 52 3 0 2 33 30 0 20 12 0 51 6 0 0 0 16 2 1 10 0 52 1 0 2 6 34 4 0 5 1 13 0 49 2 32 73 0 16 1 1 14 0 52 3 0 2 33 25 0 20 9 0 18 0 51 6 0 0 0 3 16 2 1 10 0 52 1 0 2 49 4 32 36 0 16 1 1 15 0 52 3 0 2 33 23 0 20 16 0 18 0 16 0 1 15 0 52 1 0 2 16 2 18 1 49 4 32 1 0 2 50) - :constants ( - "classify-trigger" - "get" - "modifiers" - "=" - "poll" - "set-interval" - (code :upvalue-count 1 - :bytecode (20 0 0 18 0 2 2 49 3 50) - :constants ( - "execute-request")) - "interval" - "intersect" - "observe-intersection" - "delay" - "load" - "set-timeout" - 0 - "revealed" - "event" - "bind-event")))) - "bind-event" - (code :arity 4 - :bytecode (2 17 4 2 17 5 16 2 1 1 0 52 0 0 2 33 17 0 20 2 0 16 2 1 1 0 52 0 0 2 48 1 32 2 0 16 0 17 6 16 6 33 49 0 20 3 0 16 6 16 1 51 4 0 1 2 1 0 1 5 1 1 1 4 16 2 1 5 0 52 0 0 2 33 11 0 1 5 0 3 52 6 0 2 32 1 0 2 49 4 32 1 0 2 50) - :constants ( - "get" - "from" - "dom-query" - "dom-add-listener" - (code :arity 1 :upvalue-count 5 - :bytecode (3 17 1 18 0 1 1 0 52 0 0 2 33 33 0 20 2 0 18 1 48 1 17 2 16 2 18 2 52 3 0 2 33 6 0 4 17 1 32 4 0 16 2 19 2 32 1 0 2 5 16 1 6 33 26 0 5 18 3 1 5 0 52 3 0 2 6 33 8 0 5 20 6 0 16 0 48 1 52 4 0 1 33 36 1 18 3 1 7 0 52 3 0 2 6 34 25 0 5 18 3 1 5 0 52 3 0 2 6 33 11 0 5 20 8 0 18 1 1 9 0 48 2 33 10 0 20 10 0 16 0 48 1 32 1 0 2 5 20 11 0 18 1 48 1 17 2 18 3 1 5 0 52 3 0 2 6 33 50 0 5 16 2 1 12 0 52 0 0 2 1 13 0 52 3 0 2 6 33 29 0 5 20 8 0 18 1 1 9 0 48 2 6 33 14 0 5 18 0 1 14 0 52 0 0 2 52 4 0 1 17 3 4 17 4 16 3 33 34 0 20 15 0 20 16 0 16 2 1 17 0 52 0 0 2 48 1 20 18 0 18 1 1 19 0 48 2 48 2 17 4 32 1 0 2 5 16 4 33 29 0 20 20 0 16 2 1 17 0 52 0 0 2 48 1 5 20 21 0 1 22 0 1 22 0 49 2 32 84 0 16 3 33 24 0 20 23 0 1 25 0 16 2 1 17 0 52 0 0 2 52 24 0 2 48 1 32 1 0 2 5 18 0 1 14 0 52 0 0 2 33 32 0 20 26 0 18 4 48 1 5 20 27 0 51 28 0 0 1 18 0 1 14 0 52 0 0 2 48 2 19 4 32 9 0 20 29 0 18 1 2 2 49 3 32 1 0 2 50) - :constants ( - "get" - "changed" - "dom-value" - "=" - "not" - "click" - "event-modifier-key?" - "submit" - "dom-has-attr?" - "href" - "prevent-default" - "get-verb-info" - "method" - "GET" - "delay" - "try-client-route" - "url-pathname" - "url" - "dom-get-attr" - "sx-target" - "browser-push-state" - "browser-scroll-to" - 0 - "log-info" - "str" - "sx:route server fetch " - "clear-timeout" - "set-timeout" - (code :upvalue-count 1 - :bytecode (20 0 0 18 0 2 2 49 3 50) - :constants ( - "execute-request")) - "execute-request")) - "once" - "dict")) - "post-swap" - (code :arity 1 - :bytecode (20 0 0 1 2 0 16 0 33 10 0 20 3 0 16 0 48 1 32 3 0 1 4 0 52 1 0 2 48 1 5 20 5 0 16 0 48 1 5 20 6 0 16 0 48 1 5 20 7 0 16 0 48 1 5 20 8 0 16 0 48 1 5 20 9 0 48 0 5 20 10 0 16 0 49 1 50) - :constants ( - "log-info" - "str" - "post-swap: root=" - "dom-tag-name" - "nil" - "activate-scripts" - "sx-process-scripts" - "sx-hydrate" - "sx-hydrate-islands" - "run-post-render-hooks" - "process-elements")) - "process-settle-hooks" - (code :arity 1 - :bytecode (20 0 0 16 0 1 1 0 48 2 17 1 16 1 6 33 11 0 5 16 1 52 3 0 1 52 2 0 1 33 21 0 20 4 0 16 1 48 1 17 2 51 6 0 16 2 52 5 0 2 32 1 0 2 50) - :constants ( - "dom-get-attr" - "sx-on-settle" - "not" - "empty?" - "sx-parse" - "for-each" - (code :arity 1 - :bytecode (20 0 0 16 0 20 1 0 52 2 0 0 48 1 49 2 50) - :constants ( - "eval-expr" - "env-extend" - "dict")))) - "activate-scripts" - (code :arity 1 - :bytecode (16 0 33 24 0 20 0 0 16 0 1 1 0 48 2 17 1 51 3 0 16 1 52 2 0 2 32 1 0 2 50) - :constants ( - "dom-query-all" - "script" - "for-each" - (code :arity 1 - :bytecode (20 1 0 16 0 1 2 0 48 2 52 0 0 1 6 33 15 0 5 20 1 0 16 0 1 3 0 48 2 52 0 0 1 33 42 0 20 4 0 16 0 48 1 17 1 20 5 0 16 1 1 3 0 1 6 0 48 3 5 20 7 0 20 8 0 16 0 48 1 16 1 16 0 49 3 32 1 0 2 50) - :constants ( - "not" - "dom-has-attr?" - "data-components" - "data-sx-activated" - "create-script-clone" - "dom-set-attr" - "true" - "dom-replace-child" - "dom-parent")))) - "process-oob-swaps" - (code :arity 2 - :bytecode (20 0 0 16 0 48 1 17 2 51 2 0 1 1 16 2 52 1 0 2 50) - :constants ( - "find-oob-swaps" - "for-each" - (code :arity 1 :upvalue-count 1 - :bytecode (16 0 1 1 0 52 0 0 2 17 1 20 2 0 16 1 48 1 17 2 16 0 1 3 0 52 0 0 2 17 3 16 0 1 4 0 52 0 0 2 17 4 20 5 0 16 3 48 1 33 17 0 20 6 0 20 5 0 16 3 48 1 16 3 48 2 32 1 0 2 5 16 2 33 13 0 18 0 16 2 16 3 16 4 49 3 32 1 0 2 50) - :constants ( - "get" - "target-id" - "dom-query-by-id" - "element" - "swap-type" - "dom-parent" - "dom-remove-child")))) - "hoist-head-elements" - (code :arity 1 - :bytecode (51 1 0 20 2 0 16 0 1 3 0 48 2 52 0 0 2 5 51 1 0 20 2 0 16 0 1 4 0 48 2 52 0 0 2 50) - :constants ( - "for-each" - (code :arity 1 - :bytecode (20 0 0 16 0 48 1 33 17 0 20 1 0 20 0 0 16 0 48 1 16 0 48 2 32 1 0 2 5 20 2 0 16 0 49 1 50) - :constants ( - "dom-parent" - "dom-remove-child" - "dom-append-to-head")) - "dom-query-all" - "style[data-sx-css]" - "link[rel=\"stylesheet\"]")) - "process-boosted" - (code :arity 1 - :bytecode (51 1 0 20 2 0 16 0 6 34 6 0 5 20 3 0 48 0 1 4 0 48 2 52 0 0 2 50) - :constants ( - "for-each" - (code :arity 1 - :bytecode (20 0 0 16 0 49 1 50) - :constants ( - "boost-descendants")) - "dom-query-all" - "dom-body" - "[sx-boost]")) - "boost-descendants" - (code :arity 1 - :bytecode (20 0 0 16 0 1 1 0 48 2 17 1 51 3 0 1 1 20 4 0 16 0 1 5 0 48 2 52 2 0 2 5 51 6 0 1 1 20 4 0 16 0 1 7 0 48 2 52 2 0 2 50) - :constants ( - "dom-get-attr" - "sx-boost" - "for-each" - (code :arity 1 :upvalue-count 1 - :bytecode (20 1 0 16 0 1 2 0 48 2 52 0 0 1 6 33 8 0 5 20 3 0 16 0 48 1 33 160 0 20 4 0 16 0 1 2 0 48 2 5 20 5 0 16 0 1 6 0 48 2 52 0 0 1 6 33 21 0 5 18 0 6 33 14 0 5 18 0 1 8 0 52 7 0 2 52 0 0 1 33 15 0 20 9 0 16 0 1 6 0 18 0 48 3 32 1 0 2 5 20 5 0 16 0 1 10 0 48 2 52 0 0 1 33 16 0 20 9 0 16 0 1 10 0 1 11 0 48 3 32 1 0 2 5 20 5 0 16 0 1 12 0 48 2 52 0 0 1 33 16 0 20 9 0 16 0 1 12 0 1 8 0 48 3 32 1 0 2 5 20 13 0 16 0 20 14 0 16 0 1 15 0 48 2 49 2 32 1 0 2 50) - :constants ( - "not" - "is-processed?" - "boost" - "should-boost-link?" - "mark-processed!" - "dom-has-attr?" - "sx-target" - "=" - "true" - "dom-set-attr" - "sx-swap" - "innerHTML" - "sx-push-url" - "bind-client-route-link" - "dom-get-attr" - "href")) - "dom-query-all" - "a[href]" - (code :arity 1 :upvalue-count 1 - :bytecode (20 1 0 16 0 1 2 0 48 2 52 0 0 1 6 33 8 0 5 20 3 0 16 0 48 1 33 165 0 20 4 0 16 0 1 2 0 48 2 5 20 6 0 16 0 1 7 0 48 2 6 34 4 0 5 1 8 0 52 5 0 1 17 1 20 6 0 16 0 1 9 0 48 2 6 34 6 0 5 20 10 0 48 0 17 2 20 11 0 16 0 1 12 0 48 2 52 0 0 1 6 33 21 0 5 18 0 6 33 14 0 5 18 0 1 14 0 52 13 0 2 52 0 0 1 33 15 0 20 15 0 16 0 1 12 0 18 0 48 3 32 1 0 2 5 20 11 0 16 0 1 16 0 48 2 52 0 0 1 33 16 0 20 15 0 16 0 1 16 0 1 17 0 48 3 32 1 0 2 5 20 18 0 16 0 16 1 16 2 49 3 32 1 0 2 50) - :constants ( - "not" - "is-processed?" - "boost" - "should-boost-form?" - "mark-processed!" - "upper" - "dom-get-attr" - "method" - "GET" - "action" - "browser-location-href" - "dom-has-attr?" - "sx-target" - "=" - "true" - "dom-set-attr" - "sx-swap" - "innerHTML" - "bind-boost-form")) - "form")) - "_page-data-cache" - "_page-data-cache-ttl" - 30000 - "page-data-cache-key" - (code :arity 2 - :bytecode (16 0 17 2 16 1 52 0 0 1 6 34 11 0 5 16 1 52 2 0 1 52 1 0 1 33 5 0 16 2 32 42 0 52 3 0 0 17 3 51 5 0 1 3 1 1 16 1 52 2 0 1 52 4 0 2 5 16 2 1 7 0 1 9 0 16 3 52 8 0 2 52 6 0 3 50) - :constants ( - "nil?" - "empty?" - "keys" - "list" - "for-each" - (code :arity 1 :upvalue-count 2 - :bytecode (20 0 0 18 0 16 0 1 2 0 18 1 16 0 52 3 0 2 52 1 0 3 49 2 50) - :constants ( - "append!" - "str" - "=" - "get")) - "str" - ":" - "join" - "&")) - "page-data-cache-get" - (code :arity 1 - :bytecode (20 1 0 16 0 52 0 0 2 17 1 16 1 52 2 0 1 33 4 0 2 32 52 0 20 5 0 48 0 16 1 1 6 0 52 0 0 2 52 4 0 2 20 7 0 52 3 0 2 33 15 0 20 1 0 16 0 2 52 8 0 3 5 2 32 9 0 16 1 1 9 0 52 0 0 2 50) - :constants ( - "get" - "_page-data-cache" - "nil?" - ">" - "-" - "now-ms" - "ts" - "_page-data-cache-ttl" - "dict-set!" - "data")) - "page-data-cache-set" - (code :arity 2 - :bytecode (20 1 0 16 0 1 2 0 16 1 1 3 0 20 4 0 48 0 65 2 0 52 0 0 3 50) - :constants ( - "dict-set!" - "_page-data-cache" - "data" - "ts" - "now-ms")) - "invalidate-page-cache" - (code :arity 1 - :bytecode (51 1 0 1 0 20 3 0 52 2 0 1 52 0 0 2 5 20 4 0 1 5 0 1 6 0 1 7 0 16 0 65 2 0 48 1 5 20 8 0 1 10 0 16 0 52 9 0 2 49 1 50) - :constants ( - "for-each" - (code :arity 1 :upvalue-count 1 - :bytecode (16 0 18 0 52 0 0 2 6 34 16 0 5 16 0 18 0 1 3 0 52 2 0 2 52 1 0 2 33 13 0 20 5 0 16 0 2 52 4 0 3 32 1 0 2 50) - :constants ( - "=" - "starts-with?" - "str" - ":" - "dict-set!" - "_page-data-cache")) - "keys" - "_page-data-cache" - "sw-post-message" - "type" - "invalidate" - "page" - "log-info" - "str" - "sx:cache invalidate ")) - "invalidate-all-page-cache" - (code - :bytecode (52 0 0 0 21 1 0 5 20 2 0 1 3 0 1 4 0 1 5 0 1 6 0 65 2 0 48 1 5 20 7 0 1 8 0 49 1 50) - :constants ( - "dict" - "_page-data-cache" - "sw-post-message" - "type" - "invalidate" - "page" - "*" - "log-info" - "sx:cache invalidate *")) - "update-page-cache" - (code :arity 2 - :bytecode (20 0 0 16 0 52 1 0 0 48 2 17 2 20 2 0 16 2 16 1 48 2 5 20 3 0 1 5 0 16 0 52 4 0 2 49 1 50) - :constants ( - "page-data-cache-key" - "dict" - "page-data-cache-set" - "log-info" - "str" - "sx:cache update ")) - "process-cache-directives" - (code :arity 3 - :bytecode (20 0 0 16 0 1 1 0 48 2 17 3 16 3 33 30 0 16 3 1 3 0 52 2 0 2 33 8 0 20 4 0 48 0 32 7 0 20 5 0 16 3 48 1 32 1 0 2 5 16 1 1 7 0 52 6 0 2 17 3 16 3 33 30 0 16 3 1 3 0 52 2 0 2 33 8 0 20 4 0 48 0 32 7 0 20 5 0 16 3 48 1 32 1 0 2 5 16 1 1 8 0 52 6 0 2 17 3 16 3 33 30 0 20 9 0 16 2 48 1 17 4 16 4 33 12 0 20 10 0 16 3 16 4 49 2 32 1 0 2 32 1 0 2 50) - :constants ( - "dom-get-attr" - "sx-cache-invalidate" - "=" - "*" - "invalidate-all-page-cache" - "invalidate-page-cache" - "get" - "cache-invalidate" - "cache-update" - "parse-sx-data" - "update-page-cache")) - "_optimistic-snapshots" - "optimistic-cache-update" - (code :arity 2 - :bytecode (20 0 0 16 0 48 1 17 2 16 2 33 35 0 16 1 16 2 48 1 17 3 20 2 0 16 0 16 2 52 1 0 3 5 20 3 0 16 0 16 3 48 2 5 16 3 32 1 0 2 50) - :constants ( - "page-data-cache-get" - "dict-set!" - "_optimistic-snapshots" - "page-data-cache-set")) - "optimistic-cache-revert" - (code :arity 1 - :bytecode (20 1 0 16 0 52 0 0 2 17 1 16 1 33 25 0 20 2 0 16 0 16 1 48 2 5 20 1 0 16 0 52 3 0 2 5 16 1 32 1 0 2 50) - :constants ( - "get" - "_optimistic-snapshots" - "page-data-cache-set" - "dict-delete!")) - "optimistic-cache-confirm" - (code :arity 1 - :bytecode (20 1 0 16 0 52 0 0 2 50) - :constants ( - "dict-delete!" - "_optimistic-snapshots")) - "submit-mutation" - (code :arity 6 - :bytecode (20 0 0 16 0 16 1 48 2 17 6 20 1 0 16 6 16 4 48 2 17 7 16 7 33 14 0 20 2 0 16 0 16 1 16 7 48 3 32 1 0 2 5 20 3 0 16 2 16 3 51 4 0 1 6 1 0 1 1 1 5 51 5 0 1 6 1 0 1 1 1 5 49 4 50) - :constants ( - "page-data-cache-key" - "optimistic-cache-update" - "try-rerender-page" - "execute-action" - (code :arity 1 :upvalue-count 4 - :bytecode (16 0 33 12 0 20 0 0 18 0 16 0 48 2 32 1 0 2 5 20 1 0 18 0 48 1 5 16 0 33 14 0 20 2 0 18 1 18 2 16 0 48 3 32 1 0 2 5 20 3 0 1 5 0 18 1 52 4 0 2 48 1 5 18 3 33 10 0 18 3 1 6 0 49 1 32 1 0 2 50) - :constants ( - "page-data-cache-set" - "optimistic-cache-confirm" - "try-rerender-page" - "log-info" - "str" - "sx:optimistic confirmed " - "confirmed")) - (code :arity 1 :upvalue-count 4 - :bytecode (20 0 0 18 0 48 1 17 1 16 1 33 14 0 20 1 0 18 1 18 2 16 1 48 3 32 1 0 2 5 20 2 0 1 4 0 18 1 1 5 0 16 0 52 3 0 4 48 1 5 18 3 33 10 0 18 3 1 6 0 49 1 32 1 0 2 50) - :constants ( - "optimistic-cache-revert" - "try-rerender-page" - "log-warn" - "str" - "sx:optimistic reverted " - ": " - "reverted")))) - "_is-online" - "_offline-queue" - "list" - "offline-is-online?" - (code - :bytecode (20 0 0 50) - :constants ( - "_is-online")) - "offline-set-online!" - (code :arity 1 - :bytecode (16 0 21 0 0 50) - :constants ( - "_is-online")) - "offline-queue-mutation" - (code :arity 5 - :bytecode (20 0 0 16 2 16 3 48 2 17 5 1 2 0 16 0 1 3 0 16 1 1 4 0 16 2 1 5 0 16 3 1 6 0 20 7 0 48 0 1 8 0 1 9 0 52 1 0 12 17 6 20 10 0 20 11 0 16 6 48 2 5 20 12 0 16 5 16 4 48 2 17 7 16 7 33 14 0 20 13 0 16 2 16 3 16 7 48 3 32 1 0 2 5 20 14 0 1 16 0 16 0 1 17 0 20 11 0 52 18 0 1 1 19 0 52 15 0 5 48 1 5 16 6 50) - :constants ( - "page-data-cache-key" - "dict" - "action" - "payload" - "page" - "params" - "timestamp" - "now-ms" - "status" - "pending" - "append!" - "_offline-queue" - "optimistic-cache-update" - "try-rerender-page" - "log-info" - "str" - "sx:offline queued " - " (" - "len" - " pending)")) - "offline-sync" - (code - :bytecode (51 1 0 20 2 0 52 0 0 2 17 0 16 0 52 4 0 1 52 3 0 1 33 34 0 20 5 0 1 7 0 16 0 52 8 0 1 1 9 0 52 6 0 3 48 1 5 51 11 0 16 0 52 10 0 2 32 1 0 2 50) - :constants ( - "filter" - (code :arity 1 - :bytecode (16 0 1 2 0 52 1 0 2 1 3 0 52 0 0 2 50) - :constants ( - "=" - "get" - "status" - "pending")) - "_offline-queue" - "not" - "empty?" - "log-info" - "str" - "sx:offline syncing " - "len" - " mutations" - "for-each" - (code :arity 1 - :bytecode (20 0 0 16 0 1 2 0 52 1 0 2 16 0 1 3 0 52 1 0 2 51 4 0 1 0 51 5 0 1 0 49 4 50) - :constants ( - "execute-action" - "get" - "action" - "payload" - (code :arity 1 :upvalue-count 1 - :bytecode (18 0 1 1 0 1 2 0 52 0 0 3 5 20 3 0 1 5 0 18 0 1 7 0 52 6 0 2 52 4 0 2 49 1 50) - :constants ( - "dict-set!" - "status" - "synced" - "log-info" - "str" - "sx:offline synced " - "get" - "action")) - (code :arity 1 :upvalue-count 1 - :bytecode (18 0 1 1 0 1 2 0 52 0 0 3 5 20 3 0 1 5 0 18 0 1 7 0 52 6 0 2 1 8 0 16 0 52 4 0 4 49 1 50) - :constants ( - "dict-set!" - "status" - "failed" - "log-warn" - "str" - "sx:offline sync failed " - "get" - "action" - ": ")))))) - "offline-pending-count" - (code - :bytecode (51 2 0 20 3 0 52 1 0 2 52 0 0 1 50) - :constants ( - "len" - "filter" - (code :arity 1 - :bytecode (16 0 1 2 0 52 1 0 2 1 3 0 52 0 0 2 50) - :constants ( - "=" - "get" - "status" - "pending")) - "_offline-queue")) - "offline-aware-mutation" - (code :arity 6 - :bytecode (20 0 0 33 20 0 20 1 0 16 0 16 1 16 2 16 3 16 4 16 5 49 6 32 32 0 20 2 0 16 2 16 3 16 0 16 1 16 4 48 5 5 16 5 33 10 0 16 5 1 3 0 49 1 32 1 0 2 50) - :constants ( - "_is-online" - "submit-mutation" - "offline-queue-mutation" - "queued")) - "current-page-layout" - (code - :bytecode (20 0 0 20 1 0 48 0 48 1 17 0 20 2 0 16 0 20 3 0 48 2 17 1 16 1 52 4 0 1 33 6 0 1 5 0 32 17 0 16 1 1 7 0 52 6 0 2 6 34 4 0 5 1 5 0 50) - :constants ( - "url-pathname" - "browser-location-href" - "find-matching-route" - "_page-routes" - "nil?" - "" - "get" - "layout")) - "swap-rendered-content" - (code :arity 3 - :bytecode (20 0 0 16 0 48 1 5 20 1 0 16 0 1 2 0 48 2 5 20 3 0 16 0 16 1 48 2 5 20 4 0 16 0 48 1 5 20 5 0 16 0 48 1 5 20 6 0 16 0 48 1 5 20 7 0 16 0 48 1 5 20 8 0 48 0 5 20 9 0 16 0 1 10 0 1 12 0 16 2 52 11 0 2 48 3 5 20 13 0 1 15 0 16 2 52 14 0 2 49 1 50) - :constants ( - "dispose-islands-in" - "dom-set-text-content" - "" - "dom-append" - "hoist-head-elements-full" - "process-elements" - "sx-hydrate-elements" - "sx-hydrate-islands" - "run-post-render-hooks" - "dom-dispatch" - "sx:clientRoute" - "dict" - "pathname" - "log-info" - "str" - "sx:route client ")) - "resolve-route-target" - (code :arity 1 - :bytecode (16 0 6 33 14 0 5 16 0 1 2 0 52 1 0 2 52 0 0 1 33 10 0 20 3 0 16 0 49 1 32 1 0 2 50) - :constants ( - "not" - "=" - "true" - "dom-query")) - "deps-satisfied?" - (code :arity 1 - :bytecode (16 0 1 1 0 52 0 0 2 17 1 20 2 0 48 0 17 2 16 1 52 3 0 1 6 34 7 0 5 16 1 52 4 0 1 33 4 0 3 32 11 0 51 6 0 1 2 16 1 52 5 0 2 50) - :constants ( - "get" - "deps" - "loaded-component-names" - "nil?" - "empty?" - "every?" - (code :arity 1 :upvalue-count 1 - :bytecode (18 0 16 0 52 0 0 2 50) - :constants ( - "contains?")))) - "try-client-route" - (code :arity 2 - :bytecode (20 0 0 16 0 20 1 0 48 2 17 2 16 2 52 2 0 1 33 29 0 20 3 0 1 5 0 20 1 0 52 6 0 1 1 7 0 16 0 52 4 0 4 48 1 5 4 32 233 2 16 2 1 9 0 52 8 0 2 6 34 4 0 5 1 10 0 17 3 20 11 0 48 0 17 4 16 3 16 4 52 13 0 2 52 12 0 1 33 29 0 20 3 0 1 14 0 16 4 1 15 0 16 3 1 16 0 16 0 52 4 0 6 48 1 5 4 32 163 2 16 2 1 17 0 52 8 0 2 17 5 16 2 1 18 0 52 8 0 2 6 34 4 0 5 65 0 0 17 6 16 2 1 19 0 52 8 0 2 17 7 16 2 1 20 0 52 8 0 2 17 8 16 5 52 2 0 1 6 34 7 0 5 16 5 52 21 0 1 33 19 0 20 22 0 1 23 0 16 0 52 4 0 2 48 1 5 4 32 72 2 20 24 0 16 1 48 1 17 9 16 9 52 2 0 1 33 19 0 20 22 0 1 25 0 16 1 52 4 0 2 48 1 5 4 32 35 2 20 26 0 16 2 48 1 52 12 0 1 33 19 0 20 3 0 1 27 0 16 8 52 4 0 2 48 1 5 4 32 2 2 16 2 1 28 0 52 8 0 2 17 10 16 10 6 33 11 0 5 16 10 52 21 0 1 52 12 0 1 17 11 16 2 1 29 0 52 8 0 2 17 12 16 12 33 78 0 16 12 1 30 0 52 8 0 2 6 34 5 0 5 52 31 0 0 17 13 16 12 1 32 0 52 8 0 2 6 34 5 0 5 52 31 0 0 17 14 20 3 0 1 33 0 16 8 1 34 0 16 13 52 6 0 1 1 35 0 16 14 52 6 0 1 1 36 0 52 4 0 7 48 1 32 1 0 2 5 16 11 33 10 0 20 37 0 16 10 48 1 32 1 0 2 5 16 2 1 38 0 52 8 0 2 33 44 0 20 3 0 1 39 0 16 0 52 4 0 2 48 1 5 20 40 0 16 9 16 0 20 41 0 16 9 20 42 0 48 0 20 43 0 48 3 48 3 5 3 32 59 1 16 2 1 44 0 52 8 0 2 33 194 0 20 45 0 16 8 16 7 48 2 17 13 20 46 0 16 13 48 1 17 14 16 14 33 123 0 16 6 16 7 16 14 52 47 0 3 17 15 16 11 33 36 0 20 3 0 1 48 0 16 0 52 4 0 2 48 1 5 20 49 0 16 5 16 15 51 50 0 1 0 1 9 48 3 5 3 32 67 0 20 51 0 16 5 16 15 48 2 17 16 16 16 52 2 0 1 33 19 0 20 22 0 1 52 0 16 0 52 4 0 2 48 1 5 4 32 28 0 20 3 0 1 53 0 16 0 52 4 0 2 48 1 5 20 54 0 16 9 16 16 16 0 48 3 5 3 32 43 0 20 3 0 1 55 0 16 0 52 4 0 2 48 1 5 20 56 0 16 8 16 7 51 57 0 1 13 1 6 1 7 1 11 1 5 1 0 1 9 48 3 5 3 32 109 0 16 11 33 42 0 20 3 0 1 58 0 16 0 52 4 0 2 48 1 5 20 49 0 16 5 16 6 16 7 52 47 0 2 51 59 0 1 0 1 9 48 3 5 3 32 62 0 16 6 16 7 52 47 0 2 17 13 20 51 0 16 5 16 13 48 2 17 14 16 14 52 2 0 1 33 19 0 20 3 0 1 60 0 16 0 52 4 0 2 48 1 5 4 32 13 0 20 54 0 16 9 16 14 16 0 48 3 5 3 50) - :constants ( - "find-matching-route" - "_page-routes" - "nil?" - "log-info" - "str" - "sx:route no match (" - "len" - " routes) " - "get" - "layout" - "" - "current-page-layout" - "not" - "=" - "sx:route server (layout: " - " -> " - ") " - "content" - "closure" - "params" - "name" - "empty?" - "log-warn" - "sx:route no content for " - "resolve-route-target" - "sx:route target not found: " - "deps-satisfied?" - "sx:route deps miss for " - "io-deps" - "render-plan" - "server" - "list" - "client" - "sx:route plan " - " — " - " server, " - " client" - "register-io-deps" - "stream" - "sx:route streaming " - "fetch-streaming" - "build-request-headers" - "loaded-component-names" - "_css-hash" - "has-data" - "page-data-cache-key" - "page-data-cache-get" - "merge" - "sx:route client+cache+async " - "try-async-eval-content" - (code :arity 1 :upvalue-count 2 - :bytecode (16 0 52 0 0 1 33 48 0 20 1 0 1 3 0 18 0 1 4 0 52 2 0 3 48 1 5 20 5 0 18 1 18 0 20 6 0 18 1 20 7 0 48 0 20 8 0 48 3 1 9 0 49 4 32 11 0 20 10 0 18 1 16 0 18 0 49 3 50) - :constants ( - "nil?" - "log-warn" - "str" - "sx:route cache+async eval failed for " - " — server fallback" - "fetch-and-restore" - "build-request-headers" - "loaded-component-names" - "_css-hash" - 0 - "swap-rendered-content")) - "try-eval-content" - "sx:route cached eval failed for " - "sx:route client+cache " - "swap-rendered-content" - "sx:route client+data " - "resolve-page-data" - (code :arity 1 :upvalue-count 7 - :bytecode (20 0 0 18 0 16 0 48 2 5 18 1 18 2 16 0 52 1 0 3 17 1 18 3 33 19 0 20 2 0 18 4 16 1 51 3 0 0 5 0 6 49 3 32 79 0 20 4 0 18 4 16 1 48 2 17 2 16 2 52 5 0 1 33 48 0 20 6 0 1 8 0 18 5 1 9 0 52 7 0 3 48 1 5 20 10 0 18 6 18 5 20 11 0 18 6 20 12 0 48 0 20 13 0 48 3 1 14 0 49 4 32 11 0 20 15 0 18 6 16 2 18 5 49 3 50) - :constants ( - "page-data-cache-set" - "merge" - "try-async-eval-content" - (code :arity 1 :upvalue-count 2 - :bytecode (16 0 52 0 0 1 33 48 0 20 1 0 1 3 0 18 0 1 4 0 52 2 0 3 48 1 5 20 5 0 18 1 18 0 20 6 0 18 1 20 7 0 48 0 20 8 0 48 3 1 9 0 49 4 32 11 0 20 10 0 18 1 16 0 18 0 49 3 50) - :constants ( - "nil?" - "log-warn" - "str" - "sx:route data+async eval failed for " - " — server fallback" - "fetch-and-restore" - "build-request-headers" - "loaded-component-names" - "_css-hash" - 0 - "swap-rendered-content")) - "try-eval-content" - "nil?" - "log-warn" - "str" - "sx:route data eval failed for " - " — server fallback" - "fetch-and-restore" - "build-request-headers" - "loaded-component-names" - "_css-hash" - 0 - "swap-rendered-content")) - "sx:route client+async " - (code :arity 1 :upvalue-count 2 - :bytecode (16 0 52 0 0 1 33 48 0 20 1 0 1 3 0 18 0 1 4 0 52 2 0 3 48 1 5 20 5 0 18 1 18 0 20 6 0 18 1 20 7 0 48 0 20 8 0 48 3 1 9 0 49 4 32 11 0 20 10 0 18 1 16 0 18 0 49 3 50) - :constants ( - "nil?" - "log-warn" - "str" - "sx:route async eval failed for " - " — server fallback" - "fetch-and-restore" - "build-request-headers" - "loaded-component-names" - "_css-hash" - 0 - "swap-rendered-content")) - "sx:route server (eval failed) ")) - "bind-client-route-link" - (code :arity 2 - :bytecode (20 0 0 16 0 16 1 51 1 0 1 0 1 1 49 3 50) - :constants ( - "bind-client-route-click" - (code :upvalue-count 2 - :bytecode (20 0 0 18 0 18 1 49 2 50) - :constants ( - "bind-boost-link")))) - "process-sse" - (code :arity 1 - :bytecode (51 1 0 20 2 0 16 0 6 34 6 0 5 20 3 0 48 0 1 4 0 48 2 52 0 0 2 50) - :constants ( - "for-each" - (code :arity 1 - :bytecode (20 1 0 16 0 1 2 0 48 2 52 0 0 1 33 21 0 20 3 0 16 0 1 2 0 48 2 5 20 4 0 16 0 49 1 32 1 0 2 50) - :constants ( - "not" - "is-processed?" - "sse" - "mark-processed!" - "bind-sse")) - "dom-query-all" - "dom-body" - "[sx-sse]")) - "bind-sse" - (code :arity 1 - :bytecode (20 0 0 16 0 1 1 0 48 2 17 1 16 1 33 37 0 20 2 0 16 1 16 0 48 2 17 2 20 3 0 16 0 48 1 17 3 20 4 0 16 2 16 3 51 5 0 1 0 49 3 32 1 0 2 50) - :constants ( - "dom-get-attr" - "sx-sse" - "event-source-connect" - "parse-sse-swap" - "event-source-listen" - (code :arity 1 :upvalue-count 1 - :bytecode (20 0 0 18 0 16 0 49 2 50) - :constants ( - "bind-sse-swap")))) - "bind-sse-swap" - (code :arity 2 - :bytecode (20 0 0 16 0 48 1 17 2 20 1 0 20 2 0 16 0 1 3 0 48 2 20 4 0 20 5 0 48 0 1 6 0 48 2 48 2 17 3 16 3 1 8 0 52 7 0 2 17 4 16 3 1 9 0 52 7 0 2 17 5 16 1 52 10 0 1 17 6 16 6 52 12 0 1 52 11 0 1 33 88 0 20 13 0 16 2 48 1 5 16 6 1 15 0 52 14 0 2 33 49 0 20 16 0 16 6 48 1 17 7 20 17 0 1 18 0 2 48 2 17 8 20 19 0 16 8 16 7 48 2 5 20 20 0 16 5 51 21 0 1 2 1 8 1 4 49 2 32 16 0 20 20 0 16 5 51 22 0 1 2 1 6 1 4 49 2 32 1 0 2 50) - :constants ( - "resolve-target" - "parse-swap-spec" - "dom-get-attr" - "sx-swap" - "dom-has-class?" - "dom-body" - "sx-transitions" - "get" - "style" - "transition" - "trim" - "not" - "empty?" - "dispose-islands-in" - "starts-with?" - "(" - "sx-render" - "dom-create-element" - "div" - "dom-append" - "with-transition" - (code :upvalue-count 3 - :bytecode (20 0 0 18 0 20 1 0 18 1 48 1 18 2 48 3 5 20 2 0 18 0 49 1 50) - :constants ( - "swap-dom-nodes" - "children-to-fragment" - "post-swap")) - (code :upvalue-count 3 - :bytecode (20 0 0 18 0 18 1 18 2 48 3 5 20 1 0 18 0 49 1 50) - :constants ( - "swap-html-string" - "post-swap")))) - "bind-inline-handlers" - (code :arity 1 - :bytecode (51 1 0 20 2 0 16 0 6 34 6 0 5 20 3 0 48 0 1 4 0 48 2 52 0 0 2 50) - :constants ( - "for-each" - (code :arity 1 - :bytecode (51 1 0 1 0 20 2 0 16 0 48 1 52 0 0 2 50) - :constants ( - "for-each" - (code :arity 1 :upvalue-count 1 - :bytecode (16 0 52 0 0 1 17 1 16 0 1 2 0 52 1 0 2 17 2 16 1 1 4 0 52 3 0 2 33 83 0 16 1 1 6 0 52 5 0 2 17 3 20 8 0 18 0 1 10 0 16 3 52 9 0 2 48 2 52 7 0 1 33 45 0 20 11 0 18 0 1 10 0 16 3 52 9 0 2 48 2 5 20 12 0 16 2 48 1 17 4 20 13 0 18 0 16 3 51 14 0 0 0 1 4 49 3 32 1 0 2 32 1 0 2 50) - :constants ( - "first" - "nth" - 1 - "starts-with?" - "sx-on:" - "slice" - 6 - "not" - "is-processed?" - "str" - "on:" - "mark-processed!" - "sx-parse" - "dom-on" - (code :arity 1 :upvalue-count 2 - :bytecode (20 0 0 52 1 0 0 48 1 17 1 20 2 0 16 1 1 3 0 16 0 48 3 5 20 2 0 16 1 1 4 0 18 0 48 3 5 20 2 0 16 1 1 5 0 20 6 0 16 0 48 1 48 3 5 51 8 0 1 1 18 1 52 7 0 2 50) - :constants ( - "env-extend" - "dict" - "env-bind!" - "event" - "this" - "detail" - "event-detail" - "for-each" - (code :arity 1 :upvalue-count 1 - :bytecode (20 0 0 16 0 18 0 49 2 50) - :constants ( - "eval-expr")))))) - "dom-attr-list")) - "dom-query-all" - "dom-body" - "[sx-on\\:]")) - "bind-preload-for" - (code :arity 1 - :bytecode (20 0 0 16 0 1 1 0 48 2 17 1 16 1 33 76 0 16 1 1 3 0 52 2 0 2 33 13 0 1 3 0 1 5 0 52 4 0 2 32 7 0 1 6 0 52 4 0 1 17 2 16 1 1 3 0 52 2 0 2 33 6 0 1 7 0 32 3 0 1 8 0 17 3 20 9 0 16 0 16 2 16 3 51 10 0 1 0 49 4 32 1 0 2 50) - :constants ( - "dom-get-attr" - "sx-preload" - "=" - "mousedown" - "list" - "touchstart" - "mouseover" - 0 - 100 - "bind-preload" - (code :upvalue-count 1 - :bytecode (20 0 0 18 0 48 1 17 0 16 0 33 32 0 20 1 0 16 0 1 3 0 52 2 0 2 20 4 0 18 0 20 5 0 48 0 20 6 0 48 3 49 2 32 1 0 2 50) - :constants ( - "get-verb-info" - "do-preload" - "get" - "url" - "build-request-headers" - "loaded-component-names" - "_css-hash")))) - "do-preload" - (code :arity 2 - :bytecode (20 1 0 20 2 0 16 0 48 2 52 0 0 1 33 15 0 20 3 0 16 0 16 1 20 2 0 49 3 32 1 0 2 50) - :constants ( - "nil?" - "preload-cache-get" - "_preload-cache" - "fetch-preload")) - "VERB_SELECTOR" - "str" - "[sx-get],[sx-post],[sx-put],[sx-delete],[sx-patch]" - "process-elements" - (code :arity 1 - :bytecode (20 0 0 16 0 6 34 6 0 5 20 1 0 48 0 20 2 0 48 2 17 1 51 4 0 16 1 52 3 0 2 5 20 5 0 16 0 48 1 5 20 6 0 16 0 48 1 5 20 7 0 16 0 48 1 5 20 8 0 16 0 49 1 50) - :constants ( - "dom-query-all" - "dom-body" - "VERB_SELECTOR" - "for-each" - (code :arity 1 - :bytecode (20 1 0 16 0 1 2 0 48 2 52 0 0 1 33 21 0 20 3 0 16 0 1 2 0 48 2 5 20 4 0 16 0 49 1 32 1 0 2 50) - :constants ( - "not" - "is-processed?" - "verb" - "mark-processed!" - "process-one")) - "process-boosted" - "process-sse" - "bind-inline-handlers" - "process-emit-elements")) - "process-one" - (code :arity 1 - :bytecode (20 0 0 16 0 48 1 17 1 16 1 33 41 0 20 2 0 16 0 1 3 0 48 2 52 1 0 1 33 20 0 20 4 0 16 0 16 1 48 2 5 20 5 0 16 0 49 1 32 1 0 2 32 1 0 2 50) - :constants ( - "get-verb-info" - "not" - "dom-has-attr?" - "sx-disable" - "bind-triggers" - "bind-preload-for")) - "process-emit-elements" - (code :arity 1 - :bytecode (20 0 0 16 0 6 34 6 0 5 20 1 0 48 0 1 2 0 48 2 17 1 51 4 0 16 1 52 3 0 2 50) - :constants ( - "dom-query-all" - "dom-body" - "[data-sx-emit]" - "for-each" - (code :arity 1 - :bytecode (20 1 0 16 0 1 2 0 48 2 52 0 0 1 33 52 0 20 3 0 16 0 1 2 0 48 2 5 20 4 0 16 0 1 5 0 48 2 17 1 16 1 33 20 0 20 6 0 16 0 1 7 0 51 8 0 1 0 1 1 49 3 32 1 0 2 32 1 0 2 50) - :constants ( - "not" - "is-processed?" - "emit" - "mark-processed!" - "dom-get-attr" - "data-sx-emit" - "dom-on" - "click" - (code :arity 1 :upvalue-count 2 - :bytecode (20 0 0 18 0 1 1 0 48 2 17 1 16 1 33 10 0 20 2 0 16 1 48 1 32 4 0 52 3 0 0 17 2 20 4 0 18 0 18 1 16 2 49 3 50) - :constants ( - "dom-get-attr" - "data-sx-emit-detail" - "json-parse" - "dict" - "dom-dispatch")))))) - "handle-popstate" - (code :arity 1 - :bytecode (20 0 0 48 0 17 1 20 1 0 1 2 0 48 1 17 2 16 2 33 44 0 20 3 0 16 2 1 4 0 48 2 17 4 16 4 6 33 14 0 5 16 4 1 7 0 52 6 0 2 52 5 0 1 33 5 0 16 4 32 1 0 2 32 1 0 2 17 3 16 3 6 34 4 0 5 1 8 0 17 3 20 1 0 16 3 48 1 17 4 20 9 0 16 1 48 1 17 5 16 4 33 58 0 20 10 0 16 5 16 3 48 2 33 13 0 20 11 0 1 12 0 16 0 49 2 32 30 0 20 13 0 16 4 20 14 0 48 0 20 15 0 48 3 17 6 20 16 0 16 4 16 1 16 6 16 0 49 4 32 1 0 2 50) - :constants ( - "browser-location-href" - "dom-query" - "[sx-boost]" - "dom-get-attr" - "sx-boost" - "not" - "=" - "true" - "#main-panel" - "url-pathname" - "try-client-route" - "browser-scroll-to" - 0 - "build-request-headers" - "loaded-component-names" - "_css-hash" - "fetch-and-restore")) - "engine-init" - (code - :bytecode (20 0 0 48 0 5 20 1 0 2 48 1 5 20 2 0 2 48 1 5 20 3 0 2 49 1 50) - :constants ( - "init-css-tracking" - "sx-process-scripts" - "sx-hydrate" - "process-elements"))))) diff --git a/shared/static/wasm/sx/orchestration.sxbc.json b/shared/static/wasm/sx/orchestration.sxbc.json deleted file mode 100644 index 8bd538e9..00000000 --- a/shared/static/wasm/sx/orchestration.sxbc.json +++ /dev/null @@ -1 +0,0 @@ -{"magic":"SXBC","version":1,"hash":"1056e285184b2535","module":{"bytecode":[52,1,0,0,128,0,0,5,1,3,0,128,2,0,5,51,5,0,128,4,0,5,51,7,0,128,6,0,5,51,9,0,128,8,0,5,51,11,0,128,10,0,5,51,13,0,128,12,0,5,51,15,0,128,14,0,5,51,17,0,128,16,0,5,51,19,0,128,18,0,5,51,21,0,128,20,0,5,51,23,0,128,22,0,5,51,25,0,128,24,0,5,51,27,0,128,26,0,5,51,29,0,128,28,0,5,51,31,0,128,30,0,5,51,33,0,128,32,0,5,51,35,0,128,34,0,5,51,37,0,128,36,0,5,52,1,0,0,128,38,0,5,1,40,0,128,39,0,5,51,42,0,128,41,0,5,51,44,0,128,43,0,5,51,46,0,128,45,0,5,51,48,0,128,47,0,5,51,50,0,128,49,0,5,51,52,0,128,51,0,5,51,54,0,128,53,0,5,52,1,0,0,128,55,0,5,51,57,0,128,56,0,5,51,59,0,128,58,0,5,51,61,0,128,60,0,5,51,63,0,128,62,0,5,3,128,64,0,5,52,66,0,0,128,65,0,5,51,68,0,128,67,0,5,51,70,0,128,69,0,5,51,72,0,128,71,0,5,51,74,0,128,73,0,5,51,76,0,128,75,0,5,51,78,0,128,77,0,5,51,80,0,128,79,0,5,51,82,0,128,81,0,5,51,84,0,128,83,0,5,51,86,0,128,85,0,5,51,88,0,128,87,0,5,51,90,0,128,89,0,5,51,92,0,128,91,0,5,51,94,0,128,93,0,5,51,96,0,128,95,0,5,51,98,0,128,97,0,5,51,100,0,128,99,0,5,51,102,0,128,101,0,5,1,105,0,52,104,0,1,128,103,0,5,51,107,0,128,106,0,5,51,109,0,128,108,0,5,51,111,0,128,110,0,5,51,113,0,128,112,0,5,51,115,0,128,114,0,50],"constants":[{"t":"s","v":"_preload-cache"},{"t":"s","v":"dict"},{"t":"s","v":"_css-hash"},{"t":"s","v":""},{"t":"s","v":"dispatch-trigger-events"},{"t":"code","v":{"bytecode":[16,1,33,55,0,20,0,0,16,1,48,1,17,2,16,2,33,20,0,51,2,0,1,0,1,2,16,2,52,3,0,1,52,1,0,2,32,18,0,51,4,0,1,0,16,1,1,6,0,52,5,0,2,52,1,0,2,32,1,0,2,50],"constants":[{"t":"s","v":"try-parse-json"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,18,0,16,0,18,1,16,0,52,1,0,2,49,3,50],"constants":[{"t":"s","v":"dom-dispatch"},{"t":"s","v":"get"}],"arity":1,"upvalue-count":2}},{"t":"s","v":"keys"},{"t":"code","v":{"bytecode":[16,0,52,0,0,1,17,1,16,1,52,2,0,1,52,1,0,1,33,16,0,20,3,0,18,0,16,1,52,4,0,0,49,3,32,1,0,2,50],"constants":[{"t":"s","v":"trim"},{"t":"s","v":"not"},{"t":"s","v":"empty?"},{"t":"s","v":"dom-dispatch"},{"t":"s","v":"dict"}],"arity":1,"upvalue-count":1}},{"t":"s","v":"split"},{"t":"s","v":","}],"arity":2}},{"t":"s","v":"init-css-tracking"},{"t":"code","v":{"bytecode":[20,0,0,1,1,0,48,1,17,0,16,0,33,29,0,20,2,0,16,0,1,3,0,48,2,17,1,16,1,33,8,0,16,1,21,4,0,32,1,0,2,32,1,0,2,50],"constants":[{"t":"s","v":"dom-query"},{"t":"s","v":"meta[name=\"sx-css-classes\"]"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"content"},{"t":"s","v":"_css-hash"}]}},{"t":"s","v":"execute-request"},{"t":"code","v":{"bytecode":[20,0,0,16,0,48,1,6,34,3,0,5,16,1,17,3,16,3,52,1,0,1,33,9,0,20,2,0,2,49,1,32,249,0,16,3,1,4,0,52,3,0,2,17,4,16,3,1,5,0,52,3,0,2,17,5,20,6,0,16,0,1,7,0,48,2,17,6,16,6,6,33,12,0,5,20,9,0,16,6,48,1,52,8,0,1,33,9,0,20,2,0,2,49,1,32,185,0,20,6,0,16,0,1,10,0,48,2,17,6,16,6,6,33,12,0,5,20,11,0,16,6,48,1,52,8,0,1,33,9,0,20,2,0,2,49,1,32,143,0,20,6,0,16,0,1,12,0,48,2,17,6,16,6,33,10,0,20,13,0,16,6,48,1,32,1,0,2,17,7,16,6,6,33,7,0,5,16,7,52,1,0,1,33,9,0,20,2,0,2,49,1,32,88,0,16,4,52,1,0,1,6,34,23,0,5,16,5,52,1,0,1,6,34,12,0,5,20,14,0,16,0,48,1,52,8,0,1,33,9,0,20,2,0,2,49,1,32,43,0,20,15,0,16,0,16,4,16,4,16,5,16,7,33,23,0,16,2,6,34,5,0,5,52,17,0,0,1,18,0,16,7,52,16,0,3,32,2,0,16,2,49,5,50],"constants":[{"t":"s","v":"get-verb-info"},{"t":"s","v":"nil?"},{"t":"s","v":"promise-resolve"},{"t":"s","v":"get"},{"t":"s","v":"method"},{"t":"s","v":"url"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"sx-media"},{"t":"s","v":"not"},{"t":"s","v":"browser-media-matches?"},{"t":"s","v":"sx-confirm"},{"t":"s","v":"browser-confirm"},{"t":"s","v":"sx-prompt"},{"t":"s","v":"browser-prompt"},{"t":"s","v":"validate-for-request"},{"t":"s","v":"do-fetch"},{"t":"s","v":"assoc"},{"t":"s","v":"dict"},{"t":"s","v":"SX-Prompt"}],"arity":3}},{"t":"s","v":"do-fetch"},{"t":"code","v":{"bytecode":[20,0,0,16,0,1,1,0,48,2,17,5,16,5,1,3,0,52,2,0,2,33,10,0,20,4,0,16,0,48,1,32,1,0,2,5,20,5,0,16,0,48,1,17,6,16,6,6,33,13,0,5,16,0,16,6,52,7,0,2,52,6,0,1,33,10,0,20,8,0,16,6,48,1,32,1,0,2,5,20,9,0,48,0,17,6,20,10,0,16,0,16,6,48,2,5,20,5,0,16,0,48,1,17,7,16,7,33,12,0,20,11,0,16,7,16,6,48,2,32,1,0,2,5,20,12,0,16,0,16,2,16,3,48,3,17,7,16,7,1,14,0,52,13,0,2,17,8,16,7,1,15,0,52,13,0,2,17,9,16,7,1,16,0,52,13,0,2,17,10,20,17,0,16,0,20,18,0,48,0,20,19,0,48,3,17,11,20,20,0,48,0,17,12,16,4,33,20,0,51,22,0,1,11,1,4,16,4,52,23,0,1,52,21,0,2,32,1,0,2,5,16,10,33,14,0,16,11,1,25,0,16,10,52,24,0,3,32,1,0,2,5,16,12,33,14,0,16,11,1,26,0,16,12,52,24,0,3,32,1,0,2,5,20,27,0,20,28,0,16,8,48,2,17,13,20,29,0,16,0,48,1,17,14,20,30,0,16,0,48,1,17,15,20,31,0,16,0,48,1,17,16,20,32,0,16,0,1,33,0,48,2,5,20,34,0,16,0,1,35,0,1,36,0,48,3,5,20,37,0,16,0,1,38,0,1,14,0,16,8,1,40,0,16,2,52,39,0,4,48,3,5,20,41,0,1,14,0,16,8,1,40,0,16,2,1,42,0,16,11,1,15,0,16,9,1,43,0,20,44,0,16,6,48,1,1,45,0,20,46,0,16,8,48,1,1,47,0,16,13,52,39,0,14,51,48,0,1,0,1,15,1,16,1,14,1,8,1,1,1,4,1,2,51,49,0,1,0,1,15,1,16,1,14,1,2,1,8,49,3,50],"constants":[{"t":"s","v":"dom-get-attr"},{"t":"s","v":"sx-sync"},{"t":"s","v":"="},{"t":"s","v":"replace"},{"t":"s","v":"abort-previous"},{"t":"s","v":"resolve-target"},{"t":"s","v":"not"},{"t":"s","v":"identical?"},{"t":"s","v":"abort-previous-target"},{"t":"s","v":"new-abort-controller"},{"t":"s","v":"track-controller"},{"t":"s","v":"track-controller-target"},{"t":"s","v":"build-request-body"},{"t":"s","v":"get"},{"t":"s","v":"url"},{"t":"s","v":"body"},{"t":"s","v":"content-type"},{"t":"s","v":"build-request-headers"},{"t":"s","v":"loaded-component-names"},{"t":"s","v":"_css-hash"},{"t":"s","v":"csrf-token"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[18,0,16,0,18,1,16,0,52,1,0,2,52,0,0,3,50],"constants":[{"t":"s","v":"dict-set!"},{"t":"s","v":"get"}],"arity":1,"upvalue-count":2}},{"t":"s","v":"keys"},{"t":"s","v":"dict-set!"},{"t":"s","v":"Content-Type"},{"t":"s","v":"X-CSRFToken"},{"t":"s","v":"preload-cache-get"},{"t":"s","v":"_preload-cache"},{"t":"s","v":"apply-optimistic"},{"t":"s","v":"show-indicator"},{"t":"s","v":"disable-elements"},{"t":"s","v":"dom-add-class"},{"t":"s","v":"sx-request"},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"aria-busy"},{"t":"s","v":"true"},{"t":"s","v":"dom-dispatch"},{"t":"s","v":"sx:beforeRequest"},{"t":"s","v":"dict"},{"t":"s","v":"method"},{"t":"s","v":"fetch-request"},{"t":"s","v":"headers"},{"t":"s","v":"signal"},{"t":"s","v":"controller-signal"},{"t":"s","v":"cross-origin"},{"t":"s","v":"cross-origin?"},{"t":"s","v":"preloaded"},{"t":"code","v":{"bytecode":[20,0,0,18,0,18,1,18,2,48,3,5,20,1,0,18,3,48,1,5,16,0,52,2,0,1,33,86,0,20,3,0,18,0,1,4,0,1,6,0,16,1,1,7,0,16,3,52,5,0,4,48,3,5,16,3,6,33,14,0,5,16,3,52,9,0,1,1,10,0,52,8,0,2,33,20,0,20,11,0,18,0,18,4,18,5,18,6,16,2,16,3,49,6,32,15,0,20,12,0,18,0,18,5,18,7,18,4,18,6,49,5,32,37,0,20,3,0,18,0,1,13,0,1,6,0,16,1,52,5,0,2,48,3,5,20,11,0,18,0,18,4,18,5,18,6,16,2,16,3,49,6,50],"constants":[{"t":"s","v":"clear-loading-state"},{"t":"s","v":"revert-optimistic"},{"t":"s","v":"not"},{"t":"s","v":"dom-dispatch"},{"t":"s","v":"sx:responseError"},{"t":"s","v":"dict"},{"t":"s","v":"status"},{"t":"s","v":"text"},{"t":"s","v":">"},{"t":"s","v":"len"},{"t":"n","v":0},{"t":"s","v":"handle-fetch-success"},{"t":"s","v":"handle-retry"},{"t":"s","v":"sx:afterRequest"}],"arity":4,"upvalue-count":8}},{"t":"code","v":{"bytecode":[20,0,0,18,0,18,1,18,2,48,3,5,20,1,0,18,3,48,1,5,20,3,0,16,0,48,1,52,2,0,1,33,47,0,20,4,0,1,6,0,18,4,1,7,0,18,5,1,8,0,16,0,52,5,0,6,48,1,5,20,9,0,18,0,1,10,0,1,12,0,16,0,52,11,0,2,49,3,32,1,0,2,50],"constants":[{"t":"s","v":"clear-loading-state"},{"t":"s","v":"revert-optimistic"},{"t":"s","v":"not"},{"t":"s","v":"abort-error?"},{"t":"s","v":"log-warn"},{"t":"s","v":"str"},{"t":"s","v":"sx:fetch error "},{"t":"s","v":" "},{"t":"s","v":" — "},{"t":"s","v":"dom-dispatch"},{"t":"s","v":"sx:requestError"},{"t":"s","v":"dict"},{"t":"s","v":"error"}],"arity":1,"upvalue-count":6}}],"arity":5}},{"t":"s","v":"handle-fetch-success"},{"t":"code","v":{"bytecode":[20,0,0,16,4,48,1,17,6,16,6,1,2,0,52,1,0,2,17,7,16,7,33,8,0,16,7,21,3,0,32,1,0,2,5,20,4,0,16,0,16,6,1,5,0,52,1,0,2,48,2,5,20,6,0,16,0,16,6,16,5,48,3,5,16,6,1,7,0,52,1,0,2,33,17,0,20,8,0,16,6,1,7,0,52,1,0,2,49,1,32,31,1,16,6,1,9,0,52,1,0,2,33,8,0,20,10,0,49,0,32,11,1,16,6,1,11,0,52,1,0,2,33,17,0,20,12,0,16,6,1,11,0,52,1,0,2,49,1,32,238,0,16,6,1,13,0,52,1,0,2,33,17,0,20,14,0,16,6,1,13,0,52,1,0,2,48,1,32,7,0,20,15,0,16,0,48,1,17,7,20,16,0,16,6,1,17,0,52,1,0,2,6,34,11,0,5,20,18,0,16,0,1,19,0,48,2,20,20,0,20,21,0,48,0,1,22,0,48,2,48,2,17,8,16,8,1,23,0,52,1,0,2,17,9,16,8,1,24,0,52,1,0,2,17,10,16,6,1,25,0,52,1,0,2,6,34,4,0,5,1,26,0,17,11,16,11,1,28,0,52,27,0,2,33,18,0,20,29,0,16,0,16,7,16,5,16,9,16,10,48,5,32,15,0,20,30,0,16,0,16,7,16,5,16,9,16,10,48,5,5,20,4,0,16,0,16,6,1,31,0,52,1,0,2,48,2,5,20,32,0,16,0,16,1,16,6,48,3,5,20,33,0,51,34,0,1,6,1,0,1,35,0,48,2,5,20,36,0,16,0,1,37,0,1,39,0,16,7,1,40,0,16,9,52,38,0,4,49,3,50],"constants":[{"t":"s","v":"process-response-headers"},{"t":"s","v":"get"},{"t":"s","v":"css-hash"},{"t":"s","v":"_css-hash"},{"t":"s","v":"dispatch-trigger-events"},{"t":"s","v":"trigger"},{"t":"s","v":"process-cache-directives"},{"t":"s","v":"redirect"},{"t":"s","v":"browser-navigate"},{"t":"s","v":"refresh"},{"t":"s","v":"browser-reload"},{"t":"s","v":"location"},{"t":"s","v":"fetch-location"},{"t":"s","v":"retarget"},{"t":"s","v":"dom-query"},{"t":"s","v":"resolve-target"},{"t":"s","v":"parse-swap-spec"},{"t":"s","v":"reswap"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"sx-swap"},{"t":"s","v":"dom-has-class?"},{"t":"s","v":"dom-body"},{"t":"s","v":"sx-transitions"},{"t":"s","v":"style"},{"t":"s","v":"transition"},{"t":"s","v":"content-type"},{"t":"s","v":""},{"t":"s","v":"contains?"},{"t":"s","v":"text/sx"},{"t":"s","v":"handle-sx-response"},{"t":"s","v":"handle-html-response"},{"t":"s","v":"trigger-swap"},{"t":"s","v":"handle-history"},{"t":"s","v":"set-timeout"},{"t":"code","v":{"bytecode":[18,0,1,1,0,52,0,0,2,33,19,0,20,2,0,18,1,18,0,1,1,0,52,0,0,2,48,2,32,1,0,2,5,20,3,0,18,1,49,1,50],"constants":[{"t":"s","v":"get"},{"t":"s","v":"trigger-settle"},{"t":"s","v":"dispatch-trigger-events"},{"t":"s","v":"process-settle-hooks"}],"upvalue-count":2}},{"t":"n","v":20},{"t":"s","v":"dom-dispatch"},{"t":"s","v":"sx:afterSwap"},{"t":"s","v":"dict"},{"t":"s","v":"target"},{"t":"s","v":"swap"}],"arity":6}},{"t":"s","v":"handle-sx-response"},{"t":"code","v":{"bytecode":[20,0,0,16,2,48,1,17,5,20,1,0,16,5,48,1,17,6,16,6,52,2,0,1,17,7,16,7,52,4,0,1,52,3,0,1,33,106,0,20,5,0,16,7,48,1,17,8,20,6,0,1,7,0,2,48,2,17,9,20,8,0,16,9,16,8,48,2,5,20,9,0,16,9,51,10,0,48,2,5,20,11,0,16,0,1,12,0,48,2,17,10,16,10,33,12,0,20,13,0,16,9,16,10,48,2,32,7,0,20,14,0,16,9,48,1,17,11,20,15,0,16,1,48,1,5,20,16,0,16,4,51,17,0,1,1,1,11,1,3,49,2,32,1,0,2,50],"constants":[{"t":"s","v":"strip-component-scripts"},{"t":"s","v":"extract-response-css"},{"t":"s","v":"trim"},{"t":"s","v":"not"},{"t":"s","v":"empty?"},{"t":"s","v":"sx-render"},{"t":"s","v":"dom-create-element"},{"t":"s","v":"div"},{"t":"s","v":"dom-append"},{"t":"s","v":"process-oob-swaps"},{"t":"code","v":{"bytecode":[20,0,0,16,0,48,1,5,20,1,0,16,0,16,1,16,2,48,3,5,20,2,0,16,0,48,1,5,20,3,0,16,0,49,1,50],"constants":[{"t":"s","v":"dispose-islands-in"},{"t":"s","v":"swap-dom-nodes"},{"t":"s","v":"sx-hydrate"},{"t":"s","v":"process-elements"}],"arity":3}},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"sx-select"},{"t":"s","v":"select-from-container"},{"t":"s","v":"children-to-fragment"},{"t":"s","v":"dispose-islands-in"},{"t":"s","v":"with-transition"},{"t":"code","v":{"bytecode":[20,0,0,18,0,18,1,18,2,48,3,17,0,20,1,0,16,0,6,34,3,0,5,18,0,49,1,50],"constants":[{"t":"s","v":"swap-dom-nodes"},{"t":"s","v":"post-swap"}],"upvalue-count":3}}],"arity":5}},{"t":"s","v":"handle-html-response"},{"t":"code","v":{"bytecode":[20,0,0,16,2,48,1,17,5,16,5,33,119,0,20,1,0,16,0,1,2,0,48,2,17,6,20,3,0,16,1,48,1,5,16,6,33,30,0,20,4,0,16,5,16,6,48,2,17,7,20,5,0,16,4,51,6,0,1,1,1,7,1,3,49,2,32,61,0,20,7,0,1,8,0,2,48,2,17,7,20,9,0,16,7,20,10,0,16,5,48,1,48,2,5,20,11,0,16,7,51,12,0,48,2,5,20,13,0,16,7,48,1,5,20,5,0,16,4,51,14,0,1,1,1,7,1,3,49,2,32,1,0,2,50],"constants":[{"t":"s","v":"dom-parse-html-document"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"sx-select"},{"t":"s","v":"dispose-islands-in"},{"t":"s","v":"select-html-from-doc"},{"t":"s","v":"with-transition"},{"t":"code","v":{"bytecode":[20,0,0,18,0,18,1,18,2,48,3,5,20,1,0,18,0,49,1,50],"constants":[{"t":"s","v":"swap-html-string"},{"t":"s","v":"post-swap"}],"upvalue-count":3}},{"t":"s","v":"dom-create-element"},{"t":"s","v":"div"},{"t":"s","v":"dom-set-inner-html"},{"t":"s","v":"dom-body-inner-html"},{"t":"s","v":"process-oob-swaps"},{"t":"code","v":{"bytecode":[20,0,0,16,0,48,1,5,20,1,0,16,0,16,1,16,2,48,3,5,20,2,0,16,0,49,1,50],"constants":[{"t":"s","v":"dispose-islands-in"},{"t":"s","v":"swap-dom-nodes"},{"t":"s","v":"post-swap"}],"arity":3}},{"t":"s","v":"hoist-head-elements"},{"t":"code","v":{"bytecode":[20,0,0,18,0,20,1,0,18,1,48,1,18,2,48,3,5,20,2,0,18,0,49,1,50],"constants":[{"t":"s","v":"swap-dom-nodes"},{"t":"s","v":"children-to-fragment"},{"t":"s","v":"post-swap"}],"upvalue-count":3}}],"arity":5}},{"t":"s","v":"handle-retry"},{"t":"code","v":{"bytecode":[20,0,0,16,0,1,1,0,48,2,17,5,20,2,0,16,5,48,1,17,6,16,6,33,97,0,20,0,0,16,0,1,3,0,48,2,6,34,10,0,5,16,6,1,5,0,52,4,0,2,17,7,16,7,16,6,1,5,0,52,4,0,2,52,6,0,2,17,8,20,7,0,16,0,1,3,0,20,9,0,16,8,16,6,1,10,0,52,4,0,2,48,2,52,8,0,1,48,3,5,20,11,0,51,12,0,1,0,1,1,1,2,1,3,1,4,16,8,49,2,32,1,0,2,50],"constants":[{"t":"s","v":"dom-get-attr"},{"t":"s","v":"sx-retry"},{"t":"s","v":"parse-retry-spec"},{"t":"s","v":"data-sx-retry-ms"},{"t":"s","v":"get"},{"t":"s","v":"start-ms"},{"t":"s","v":"parse-int"},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"str"},{"t":"s","v":"next-retry-ms"},{"t":"s","v":"cap-ms"},{"t":"s","v":"set-timeout"},{"t":"code","v":{"bytecode":[20,0,0,18,0,18,1,18,2,18,3,18,4,49,5,50],"constants":[{"t":"s","v":"do-fetch"}],"upvalue-count":5}}],"arity":5}},{"t":"s","v":"bind-triggers"},{"t":"code","v":{"bytecode":[20,0,0,20,1,0,16,0,1,2,0,48,2,48,1,6,34,13,0,5,20,3,0,20,4,0,16,0,48,1,48,1,17,2,51,6,0,1,0,1,1,16,2,52,5,0,2,50],"constants":[{"t":"s","v":"parse-trigger-spec"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"sx-trigger"},{"t":"s","v":"default-trigger"},{"t":"s","v":"dom-tag-name"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,16,0,48,1,17,1,16,0,1,2,0,52,1,0,2,17,2,16,1,1,4,0,52,3,0,2,33,22,0,20,5,0,51,6,0,0,0,16,2,1,7,0,52,1,0,2,49,2,32,152,0,16,1,1,8,0,52,3,0,2,33,25,0,20,9,0,18,0,51,6,0,0,0,4,16,2,1,10,0,52,1,0,2,49,4,32,115,0,16,1,1,11,0,52,3,0,2,33,30,0,20,12,0,51,6,0,0,0,16,2,1,10,0,52,1,0,2,6,34,4,0,5,1,13,0,49,2,32,73,0,16,1,1,14,0,52,3,0,2,33,25,0,20,9,0,18,0,51,6,0,0,0,3,16,2,1,10,0,52,1,0,2,49,4,32,36,0,16,1,1,15,0,52,3,0,2,33,23,0,20,16,0,18,0,16,0,1,15,0,52,1,0,2,16,2,18,1,49,4,32,1,0,2,50],"constants":[{"t":"s","v":"classify-trigger"},{"t":"s","v":"get"},{"t":"s","v":"modifiers"},{"t":"s","v":"="},{"t":"s","v":"poll"},{"t":"s","v":"set-interval"},{"t":"code","v":{"bytecode":[20,0,0,18,0,2,2,49,3,50],"constants":[{"t":"s","v":"execute-request"}],"upvalue-count":1}},{"t":"s","v":"interval"},{"t":"s","v":"intersect"},{"t":"s","v":"observe-intersection"},{"t":"s","v":"delay"},{"t":"s","v":"load"},{"t":"s","v":"set-timeout"},{"t":"n","v":0},{"t":"s","v":"revealed"},{"t":"s","v":"event"},{"t":"s","v":"bind-event"}],"arity":1,"upvalue-count":2}}],"arity":2}},{"t":"s","v":"bind-event"},{"t":"code","v":{"bytecode":[2,17,4,2,17,5,16,2,1,1,0,52,0,0,2,33,17,0,20,2,0,16,2,1,1,0,52,0,0,2,48,1,32,2,0,16,0,17,6,16,6,33,49,0,20,3,0,16,6,16,1,51,4,0,1,2,1,0,1,5,1,1,1,4,16,2,1,5,0,52,0,0,2,33,11,0,1,5,0,3,52,6,0,2,32,1,0,2,49,4,32,1,0,2,50],"constants":[{"t":"s","v":"get"},{"t":"s","v":"from"},{"t":"s","v":"dom-query"},{"t":"s","v":"dom-add-listener"},{"t":"code","v":{"bytecode":[3,17,1,18,0,1,1,0,52,0,0,2,33,33,0,20,2,0,18,1,48,1,17,2,16,2,18,2,52,3,0,2,33,6,0,4,17,1,32,4,0,16,2,19,2,32,1,0,2,5,16,1,6,33,26,0,5,18,3,1,5,0,52,3,0,2,6,33,8,0,5,20,6,0,16,0,48,1,52,4,0,1,33,36,1,18,3,1,7,0,52,3,0,2,6,34,25,0,5,18,3,1,5,0,52,3,0,2,6,33,11,0,5,20,8,0,18,1,1,9,0,48,2,33,10,0,20,10,0,16,0,48,1,32,1,0,2,5,20,11,0,18,1,48,1,17,2,18,3,1,5,0,52,3,0,2,6,33,50,0,5,16,2,1,12,0,52,0,0,2,1,13,0,52,3,0,2,6,33,29,0,5,20,8,0,18,1,1,9,0,48,2,6,33,14,0,5,18,0,1,14,0,52,0,0,2,52,4,0,1,17,3,4,17,4,16,3,33,34,0,20,15,0,20,16,0,16,2,1,17,0,52,0,0,2,48,1,20,18,0,18,1,1,19,0,48,2,48,2,17,4,32,1,0,2,5,16,4,33,29,0,20,20,0,16,2,1,17,0,52,0,0,2,48,1,5,20,21,0,1,22,0,1,22,0,49,2,32,84,0,16,3,33,24,0,20,23,0,1,25,0,16,2,1,17,0,52,0,0,2,52,24,0,2,48,1,32,1,0,2,5,18,0,1,14,0,52,0,0,2,33,32,0,20,26,0,18,4,48,1,5,20,27,0,51,28,0,0,1,18,0,1,14,0,52,0,0,2,48,2,19,4,32,9,0,20,29,0,18,1,2,2,49,3,32,1,0,2,50],"constants":[{"t":"s","v":"get"},{"t":"s","v":"changed"},{"t":"s","v":"dom-value"},{"t":"s","v":"="},{"t":"s","v":"not"},{"t":"s","v":"click"},{"t":"s","v":"event-modifier-key?"},{"t":"s","v":"submit"},{"t":"s","v":"dom-has-attr?"},{"t":"s","v":"href"},{"t":"s","v":"prevent-default"},{"t":"s","v":"get-verb-info"},{"t":"s","v":"method"},{"t":"s","v":"GET"},{"t":"s","v":"delay"},{"t":"s","v":"try-client-route"},{"t":"s","v":"url-pathname"},{"t":"s","v":"url"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"sx-target"},{"t":"s","v":"browser-push-state"},{"t":"s","v":"browser-scroll-to"},{"t":"n","v":0},{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":"sx:route server fetch "},{"t":"s","v":"clear-timeout"},{"t":"s","v":"set-timeout"},{"t":"code","v":{"bytecode":[20,0,0,18,0,2,2,49,3,50],"constants":[{"t":"s","v":"execute-request"}],"upvalue-count":1}},{"t":"s","v":"execute-request"}],"arity":1,"upvalue-count":5}},{"t":"s","v":"once"},{"t":"s","v":"dict"}],"arity":4}},{"t":"s","v":"post-swap"},{"t":"code","v":{"bytecode":[20,0,0,1,2,0,16,0,33,10,0,20,3,0,16,0,48,1,32,3,0,1,4,0,52,1,0,2,48,1,5,20,5,0,16,0,48,1,5,20,6,0,16,0,48,1,5,20,7,0,16,0,48,1,5,20,8,0,16,0,48,1,5,20,9,0,48,0,5,20,10,0,16,0,49,1,50],"constants":[{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":"post-swap: root="},{"t":"s","v":"dom-tag-name"},{"t":"s","v":"nil"},{"t":"s","v":"activate-scripts"},{"t":"s","v":"sx-process-scripts"},{"t":"s","v":"sx-hydrate"},{"t":"s","v":"sx-hydrate-islands"},{"t":"s","v":"run-post-render-hooks"},{"t":"s","v":"process-elements"}],"arity":1}},{"t":"s","v":"process-settle-hooks"},{"t":"code","v":{"bytecode":[20,0,0,16,0,1,1,0,48,2,17,1,16,1,6,33,11,0,5,16,1,52,3,0,1,52,2,0,1,33,21,0,20,4,0,16,1,48,1,17,2,51,6,0,16,2,52,5,0,2,32,1,0,2,50],"constants":[{"t":"s","v":"dom-get-attr"},{"t":"s","v":"sx-on-settle"},{"t":"s","v":"not"},{"t":"s","v":"empty?"},{"t":"s","v":"sx-parse"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,16,0,20,1,0,52,2,0,0,48,1,49,2,50],"constants":[{"t":"s","v":"eval-expr"},{"t":"s","v":"env-extend"},{"t":"s","v":"dict"}],"arity":1}}],"arity":1}},{"t":"s","v":"activate-scripts"},{"t":"code","v":{"bytecode":[16,0,33,24,0,20,0,0,16,0,1,1,0,48,2,17,1,51,3,0,16,1,52,2,0,2,32,1,0,2,50],"constants":[{"t":"s","v":"dom-query-all"},{"t":"s","v":"script"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,1,0,16,0,1,2,0,48,2,52,0,0,1,6,33,15,0,5,20,1,0,16,0,1,3,0,48,2,52,0,0,1,33,42,0,20,4,0,16,0,48,1,17,1,20,5,0,16,1,1,3,0,1,6,0,48,3,5,20,7,0,20,8,0,16,0,48,1,16,1,16,0,49,3,32,1,0,2,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"dom-has-attr?"},{"t":"s","v":"data-components"},{"t":"s","v":"data-sx-activated"},{"t":"s","v":"create-script-clone"},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"true"},{"t":"s","v":"dom-replace-child"},{"t":"s","v":"dom-parent"}],"arity":1}}],"arity":1}},{"t":"s","v":"process-oob-swaps"},{"t":"code","v":{"bytecode":[20,0,0,16,0,48,1,17,2,51,2,0,1,1,16,2,52,1,0,2,50],"constants":[{"t":"s","v":"find-oob-swaps"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[16,0,1,1,0,52,0,0,2,17,1,20,2,0,16,1,48,1,17,2,16,0,1,3,0,52,0,0,2,17,3,16,0,1,4,0,52,0,0,2,17,4,20,5,0,16,3,48,1,33,17,0,20,6,0,20,5,0,16,3,48,1,16,3,48,2,32,1,0,2,5,16,2,33,13,0,18,0,16,2,16,3,16,4,49,3,32,1,0,2,50],"constants":[{"t":"s","v":"get"},{"t":"s","v":"target-id"},{"t":"s","v":"dom-query-by-id"},{"t":"s","v":"element"},{"t":"s","v":"swap-type"},{"t":"s","v":"dom-parent"},{"t":"s","v":"dom-remove-child"}],"arity":1,"upvalue-count":1}}],"arity":2}},{"t":"s","v":"hoist-head-elements"},{"t":"code","v":{"bytecode":[51,1,0,20,2,0,16,0,1,3,0,48,2,52,0,0,2,5,51,1,0,20,2,0,16,0,1,4,0,48,2,52,0,0,2,50],"constants":[{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,16,0,48,1,33,17,0,20,1,0,20,0,0,16,0,48,1,16,0,48,2,32,1,0,2,5,20,2,0,16,0,49,1,50],"constants":[{"t":"s","v":"dom-parent"},{"t":"s","v":"dom-remove-child"},{"t":"s","v":"dom-append-to-head"}],"arity":1}},{"t":"s","v":"dom-query-all"},{"t":"s","v":"style[data-sx-css]"},{"t":"s","v":"link[rel=\"stylesheet\"]"}],"arity":1}},{"t":"s","v":"process-boosted"},{"t":"code","v":{"bytecode":[51,1,0,20,2,0,16,0,6,34,6,0,5,20,3,0,48,0,1,4,0,48,2,52,0,0,2,50],"constants":[{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,16,0,49,1,50],"constants":[{"t":"s","v":"boost-descendants"}],"arity":1}},{"t":"s","v":"dom-query-all"},{"t":"s","v":"dom-body"},{"t":"s","v":"[sx-boost]"}],"arity":1}},{"t":"s","v":"boost-descendants"},{"t":"code","v":{"bytecode":[20,0,0,16,0,1,1,0,48,2,17,1,51,3,0,1,1,20,4,0,16,0,1,5,0,48,2,52,2,0,2,5,51,6,0,1,1,20,4,0,16,0,1,7,0,48,2,52,2,0,2,50],"constants":[{"t":"s","v":"dom-get-attr"},{"t":"s","v":"sx-boost"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,1,0,16,0,1,2,0,48,2,52,0,0,1,6,33,8,0,5,20,3,0,16,0,48,1,33,160,0,20,4,0,16,0,1,2,0,48,2,5,20,5,0,16,0,1,6,0,48,2,52,0,0,1,6,33,21,0,5,18,0,6,33,14,0,5,18,0,1,8,0,52,7,0,2,52,0,0,1,33,15,0,20,9,0,16,0,1,6,0,18,0,48,3,32,1,0,2,5,20,5,0,16,0,1,10,0,48,2,52,0,0,1,33,16,0,20,9,0,16,0,1,10,0,1,11,0,48,3,32,1,0,2,5,20,5,0,16,0,1,12,0,48,2,52,0,0,1,33,16,0,20,9,0,16,0,1,12,0,1,8,0,48,3,32,1,0,2,5,20,13,0,16,0,20,14,0,16,0,1,15,0,48,2,49,2,32,1,0,2,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"is-processed?"},{"t":"s","v":"boost"},{"t":"s","v":"should-boost-link?"},{"t":"s","v":"mark-processed!"},{"t":"s","v":"dom-has-attr?"},{"t":"s","v":"sx-target"},{"t":"s","v":"="},{"t":"s","v":"true"},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"sx-swap"},{"t":"s","v":"innerHTML"},{"t":"s","v":"sx-push-url"},{"t":"s","v":"bind-client-route-link"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"href"}],"arity":1,"upvalue-count":1}},{"t":"s","v":"dom-query-all"},{"t":"s","v":"a[href]"},{"t":"code","v":{"bytecode":[20,1,0,16,0,1,2,0,48,2,52,0,0,1,6,33,8,0,5,20,3,0,16,0,48,1,33,165,0,20,4,0,16,0,1,2,0,48,2,5,20,6,0,16,0,1,7,0,48,2,6,34,4,0,5,1,8,0,52,5,0,1,17,1,20,6,0,16,0,1,9,0,48,2,6,34,6,0,5,20,10,0,48,0,17,2,20,11,0,16,0,1,12,0,48,2,52,0,0,1,6,33,21,0,5,18,0,6,33,14,0,5,18,0,1,14,0,52,13,0,2,52,0,0,1,33,15,0,20,15,0,16,0,1,12,0,18,0,48,3,32,1,0,2,5,20,11,0,16,0,1,16,0,48,2,52,0,0,1,33,16,0,20,15,0,16,0,1,16,0,1,17,0,48,3,32,1,0,2,5,20,18,0,16,0,16,1,16,2,49,3,32,1,0,2,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"is-processed?"},{"t":"s","v":"boost"},{"t":"s","v":"should-boost-form?"},{"t":"s","v":"mark-processed!"},{"t":"s","v":"upper"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"method"},{"t":"s","v":"GET"},{"t":"s","v":"action"},{"t":"s","v":"browser-location-href"},{"t":"s","v":"dom-has-attr?"},{"t":"s","v":"sx-target"},{"t":"s","v":"="},{"t":"s","v":"true"},{"t":"s","v":"dom-set-attr"},{"t":"s","v":"sx-swap"},{"t":"s","v":"innerHTML"},{"t":"s","v":"bind-boost-form"}],"arity":1,"upvalue-count":1}},{"t":"s","v":"form"}],"arity":1}},{"t":"s","v":"_page-data-cache"},{"t":"s","v":"_page-data-cache-ttl"},{"t":"n","v":30000},{"t":"s","v":"page-data-cache-key"},{"t":"code","v":{"bytecode":[16,0,17,2,16,1,52,0,0,1,6,34,11,0,5,16,1,52,2,0,1,52,1,0,1,33,5,0,16,2,32,42,0,52,3,0,0,17,3,51,5,0,1,3,1,1,16,1,52,2,0,1,52,4,0,2,5,16,2,1,7,0,1,9,0,16,3,52,8,0,2,52,6,0,3,50],"constants":[{"t":"s","v":"nil?"},{"t":"s","v":"empty?"},{"t":"s","v":"keys"},{"t":"s","v":"list"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,18,0,16,0,1,2,0,18,1,16,0,52,3,0,2,52,1,0,3,49,2,50],"constants":[{"t":"s","v":"append!"},{"t":"s","v":"str"},{"t":"s","v":"="},{"t":"s","v":"get"}],"arity":1,"upvalue-count":2}},{"t":"s","v":"str"},{"t":"s","v":":"},{"t":"s","v":"join"},{"t":"s","v":"&"}],"arity":2}},{"t":"s","v":"page-data-cache-get"},{"t":"code","v":{"bytecode":[20,1,0,16,0,52,0,0,2,17,1,16,1,52,2,0,1,33,4,0,2,32,52,0,20,5,0,48,0,16,1,1,6,0,52,0,0,2,52,4,0,2,20,7,0,52,3,0,2,33,15,0,20,1,0,16,0,2,52,8,0,3,5,2,32,9,0,16,1,1,9,0,52,0,0,2,50],"constants":[{"t":"s","v":"get"},{"t":"s","v":"_page-data-cache"},{"t":"s","v":"nil?"},{"t":"s","v":">"},{"t":"s","v":"-"},{"t":"s","v":"now-ms"},{"t":"s","v":"ts"},{"t":"s","v":"_page-data-cache-ttl"},{"t":"s","v":"dict-set!"},{"t":"s","v":"data"}],"arity":1}},{"t":"s","v":"page-data-cache-set"},{"t":"code","v":{"bytecode":[20,1,0,16,0,1,2,0,16,1,1,3,0,20,4,0,48,0,65,2,0,52,0,0,3,50],"constants":[{"t":"s","v":"dict-set!"},{"t":"s","v":"_page-data-cache"},{"t":"s","v":"data"},{"t":"s","v":"ts"},{"t":"s","v":"now-ms"}],"arity":2}},{"t":"s","v":"invalidate-page-cache"},{"t":"code","v":{"bytecode":[51,1,0,1,0,20,3,0,52,2,0,1,52,0,0,2,5,20,4,0,1,5,0,1,6,0,1,7,0,16,0,65,2,0,48,1,5,20,8,0,1,10,0,16,0,52,9,0,2,49,1,50],"constants":[{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[16,0,18,0,52,0,0,2,6,34,16,0,5,16,0,18,0,1,3,0,52,2,0,2,52,1,0,2,33,13,0,20,5,0,16,0,2,52,4,0,3,32,1,0,2,50],"constants":[{"t":"s","v":"="},{"t":"s","v":"starts-with?"},{"t":"s","v":"str"},{"t":"s","v":":"},{"t":"s","v":"dict-set!"},{"t":"s","v":"_page-data-cache"}],"arity":1,"upvalue-count":1}},{"t":"s","v":"keys"},{"t":"s","v":"_page-data-cache"},{"t":"s","v":"sw-post-message"},{"t":"s","v":"type"},{"t":"s","v":"invalidate"},{"t":"s","v":"page"},{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":"sx:cache invalidate "}],"arity":1}},{"t":"s","v":"invalidate-all-page-cache"},{"t":"code","v":{"bytecode":[52,0,0,0,21,1,0,5,20,2,0,1,3,0,1,4,0,1,5,0,1,6,0,65,2,0,48,1,5,20,7,0,1,8,0,49,1,50],"constants":[{"t":"s","v":"dict"},{"t":"s","v":"_page-data-cache"},{"t":"s","v":"sw-post-message"},{"t":"s","v":"type"},{"t":"s","v":"invalidate"},{"t":"s","v":"page"},{"t":"s","v":"*"},{"t":"s","v":"log-info"},{"t":"s","v":"sx:cache invalidate *"}]}},{"t":"s","v":"update-page-cache"},{"t":"code","v":{"bytecode":[20,0,0,16,0,52,1,0,0,48,2,17,2,20,2,0,16,2,16,1,48,2,5,20,3,0,1,5,0,16,0,52,4,0,2,49,1,50],"constants":[{"t":"s","v":"page-data-cache-key"},{"t":"s","v":"dict"},{"t":"s","v":"page-data-cache-set"},{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":"sx:cache update "}],"arity":2}},{"t":"s","v":"process-cache-directives"},{"t":"code","v":{"bytecode":[20,0,0,16,0,1,1,0,48,2,17,3,16,3,33,30,0,16,3,1,3,0,52,2,0,2,33,8,0,20,4,0,48,0,32,7,0,20,5,0,16,3,48,1,32,1,0,2,5,16,1,1,7,0,52,6,0,2,17,3,16,3,33,30,0,16,3,1,3,0,52,2,0,2,33,8,0,20,4,0,48,0,32,7,0,20,5,0,16,3,48,1,32,1,0,2,5,16,1,1,8,0,52,6,0,2,17,3,16,3,33,30,0,20,9,0,16,2,48,1,17,4,16,4,33,12,0,20,10,0,16,3,16,4,49,2,32,1,0,2,32,1,0,2,50],"constants":[{"t":"s","v":"dom-get-attr"},{"t":"s","v":"sx-cache-invalidate"},{"t":"s","v":"="},{"t":"s","v":"*"},{"t":"s","v":"invalidate-all-page-cache"},{"t":"s","v":"invalidate-page-cache"},{"t":"s","v":"get"},{"t":"s","v":"cache-invalidate"},{"t":"s","v":"cache-update"},{"t":"s","v":"parse-sx-data"},{"t":"s","v":"update-page-cache"}],"arity":3}},{"t":"s","v":"_optimistic-snapshots"},{"t":"s","v":"optimistic-cache-update"},{"t":"code","v":{"bytecode":[20,0,0,16,0,48,1,17,2,16,2,33,35,0,16,1,16,2,48,1,17,3,20,2,0,16,0,16,2,52,1,0,3,5,20,3,0,16,0,16,3,48,2,5,16,3,32,1,0,2,50],"constants":[{"t":"s","v":"page-data-cache-get"},{"t":"s","v":"dict-set!"},{"t":"s","v":"_optimistic-snapshots"},{"t":"s","v":"page-data-cache-set"}],"arity":2}},{"t":"s","v":"optimistic-cache-revert"},{"t":"code","v":{"bytecode":[20,1,0,16,0,52,0,0,2,17,1,16,1,33,25,0,20,2,0,16,0,16,1,48,2,5,20,1,0,16,0,52,3,0,2,5,16,1,32,1,0,2,50],"constants":[{"t":"s","v":"get"},{"t":"s","v":"_optimistic-snapshots"},{"t":"s","v":"page-data-cache-set"},{"t":"s","v":"dict-delete!"}],"arity":1}},{"t":"s","v":"optimistic-cache-confirm"},{"t":"code","v":{"bytecode":[20,1,0,16,0,52,0,0,2,50],"constants":[{"t":"s","v":"dict-delete!"},{"t":"s","v":"_optimistic-snapshots"}],"arity":1}},{"t":"s","v":"submit-mutation"},{"t":"code","v":{"bytecode":[20,0,0,16,0,16,1,48,2,17,6,20,1,0,16,6,16,4,48,2,17,7,16,7,33,14,0,20,2,0,16,0,16,1,16,7,48,3,32,1,0,2,5,20,3,0,16,2,16,3,51,4,0,1,6,1,0,1,1,1,5,51,5,0,1,6,1,0,1,1,1,5,49,4,50],"constants":[{"t":"s","v":"page-data-cache-key"},{"t":"s","v":"optimistic-cache-update"},{"t":"s","v":"try-rerender-page"},{"t":"s","v":"execute-action"},{"t":"code","v":{"bytecode":[16,0,33,12,0,20,0,0,18,0,16,0,48,2,32,1,0,2,5,20,1,0,18,0,48,1,5,16,0,33,14,0,20,2,0,18,1,18,2,16,0,48,3,32,1,0,2,5,20,3,0,1,5,0,18,1,52,4,0,2,48,1,5,18,3,33,10,0,18,3,1,6,0,49,1,32,1,0,2,50],"constants":[{"t":"s","v":"page-data-cache-set"},{"t":"s","v":"optimistic-cache-confirm"},{"t":"s","v":"try-rerender-page"},{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":"sx:optimistic confirmed "},{"t":"s","v":"confirmed"}],"arity":1,"upvalue-count":4}},{"t":"code","v":{"bytecode":[20,0,0,18,0,48,1,17,1,16,1,33,14,0,20,1,0,18,1,18,2,16,1,48,3,32,1,0,2,5,20,2,0,1,4,0,18,1,1,5,0,16,0,52,3,0,4,48,1,5,18,3,33,10,0,18,3,1,6,0,49,1,32,1,0,2,50],"constants":[{"t":"s","v":"optimistic-cache-revert"},{"t":"s","v":"try-rerender-page"},{"t":"s","v":"log-warn"},{"t":"s","v":"str"},{"t":"s","v":"sx:optimistic reverted "},{"t":"s","v":": "},{"t":"s","v":"reverted"}],"arity":1,"upvalue-count":4}}],"arity":6}},{"t":"s","v":"_is-online"},{"t":"s","v":"_offline-queue"},{"t":"s","v":"list"},{"t":"s","v":"offline-is-online?"},{"t":"code","v":{"bytecode":[20,0,0,50],"constants":[{"t":"s","v":"_is-online"}]}},{"t":"s","v":"offline-set-online!"},{"t":"code","v":{"bytecode":[16,0,21,0,0,50],"constants":[{"t":"s","v":"_is-online"}],"arity":1}},{"t":"s","v":"offline-queue-mutation"},{"t":"code","v":{"bytecode":[20,0,0,16,2,16,3,48,2,17,5,1,2,0,16,0,1,3,0,16,1,1,4,0,16,2,1,5,0,16,3,1,6,0,20,7,0,48,0,1,8,0,1,9,0,52,1,0,12,17,6,20,10,0,20,11,0,16,6,48,2,5,20,12,0,16,5,16,4,48,2,17,7,16,7,33,14,0,20,13,0,16,2,16,3,16,7,48,3,32,1,0,2,5,20,14,0,1,16,0,16,0,1,17,0,20,11,0,52,18,0,1,1,19,0,52,15,0,5,48,1,5,16,6,50],"constants":[{"t":"s","v":"page-data-cache-key"},{"t":"s","v":"dict"},{"t":"s","v":"action"},{"t":"s","v":"payload"},{"t":"s","v":"page"},{"t":"s","v":"params"},{"t":"s","v":"timestamp"},{"t":"s","v":"now-ms"},{"t":"s","v":"status"},{"t":"s","v":"pending"},{"t":"s","v":"append!"},{"t":"s","v":"_offline-queue"},{"t":"s","v":"optimistic-cache-update"},{"t":"s","v":"try-rerender-page"},{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":"sx:offline queued "},{"t":"s","v":" ("},{"t":"s","v":"len"},{"t":"s","v":" pending)"}],"arity":5}},{"t":"s","v":"offline-sync"},{"t":"code","v":{"bytecode":[51,1,0,20,2,0,52,0,0,2,17,0,16,0,52,4,0,1,52,3,0,1,33,34,0,20,5,0,1,7,0,16,0,52,8,0,1,1,9,0,52,6,0,3,48,1,5,51,11,0,16,0,52,10,0,2,32,1,0,2,50],"constants":[{"t":"s","v":"filter"},{"t":"code","v":{"bytecode":[16,0,1,2,0,52,1,0,2,1,3,0,52,0,0,2,50],"constants":[{"t":"s","v":"="},{"t":"s","v":"get"},{"t":"s","v":"status"},{"t":"s","v":"pending"}],"arity":1}},{"t":"s","v":"_offline-queue"},{"t":"s","v":"not"},{"t":"s","v":"empty?"},{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":"sx:offline syncing "},{"t":"s","v":"len"},{"t":"s","v":" mutations"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,16,0,1,2,0,52,1,0,2,16,0,1,3,0,52,1,0,2,51,4,0,1,0,51,5,0,1,0,49,4,50],"constants":[{"t":"s","v":"execute-action"},{"t":"s","v":"get"},{"t":"s","v":"action"},{"t":"s","v":"payload"},{"t":"code","v":{"bytecode":[18,0,1,1,0,1,2,0,52,0,0,3,5,20,3,0,1,5,0,18,0,1,7,0,52,6,0,2,52,4,0,2,49,1,50],"constants":[{"t":"s","v":"dict-set!"},{"t":"s","v":"status"},{"t":"s","v":"synced"},{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":"sx:offline synced "},{"t":"s","v":"get"},{"t":"s","v":"action"}],"arity":1,"upvalue-count":1}},{"t":"code","v":{"bytecode":[18,0,1,1,0,1,2,0,52,0,0,3,5,20,3,0,1,5,0,18,0,1,7,0,52,6,0,2,1,8,0,16,0,52,4,0,4,49,1,50],"constants":[{"t":"s","v":"dict-set!"},{"t":"s","v":"status"},{"t":"s","v":"failed"},{"t":"s","v":"log-warn"},{"t":"s","v":"str"},{"t":"s","v":"sx:offline sync failed "},{"t":"s","v":"get"},{"t":"s","v":"action"},{"t":"s","v":": "}],"arity":1,"upvalue-count":1}}],"arity":1}}]}},{"t":"s","v":"offline-pending-count"},{"t":"code","v":{"bytecode":[51,2,0,20,3,0,52,1,0,2,52,0,0,1,50],"constants":[{"t":"s","v":"len"},{"t":"s","v":"filter"},{"t":"code","v":{"bytecode":[16,0,1,2,0,52,1,0,2,1,3,0,52,0,0,2,50],"constants":[{"t":"s","v":"="},{"t":"s","v":"get"},{"t":"s","v":"status"},{"t":"s","v":"pending"}],"arity":1}},{"t":"s","v":"_offline-queue"}]}},{"t":"s","v":"offline-aware-mutation"},{"t":"code","v":{"bytecode":[20,0,0,33,20,0,20,1,0,16,0,16,1,16,2,16,3,16,4,16,5,49,6,32,32,0,20,2,0,16,2,16,3,16,0,16,1,16,4,48,5,5,16,5,33,10,0,16,5,1,3,0,49,1,32,1,0,2,50],"constants":[{"t":"s","v":"_is-online"},{"t":"s","v":"submit-mutation"},{"t":"s","v":"offline-queue-mutation"},{"t":"s","v":"queued"}],"arity":6}},{"t":"s","v":"current-page-layout"},{"t":"code","v":{"bytecode":[20,0,0,20,1,0,48,0,48,1,17,0,20,2,0,16,0,20,3,0,48,2,17,1,16,1,52,4,0,1,33,6,0,1,5,0,32,17,0,16,1,1,7,0,52,6,0,2,6,34,4,0,5,1,5,0,50],"constants":[{"t":"s","v":"url-pathname"},{"t":"s","v":"browser-location-href"},{"t":"s","v":"find-matching-route"},{"t":"s","v":"_page-routes"},{"t":"s","v":"nil?"},{"t":"s","v":""},{"t":"s","v":"get"},{"t":"s","v":"layout"}]}},{"t":"s","v":"swap-rendered-content"},{"t":"code","v":{"bytecode":[20,0,0,16,0,48,1,5,20,1,0,16,0,1,2,0,48,2,5,20,3,0,16,0,16,1,48,2,5,20,4,0,16,0,48,1,5,20,5,0,16,0,48,1,5,20,6,0,16,0,48,1,5,20,7,0,16,0,48,1,5,20,8,0,48,0,5,20,9,0,16,0,1,10,0,1,12,0,16,2,52,11,0,2,48,3,5,20,13,0,1,15,0,16,2,52,14,0,2,49,1,50],"constants":[{"t":"s","v":"dispose-islands-in"},{"t":"s","v":"dom-set-text-content"},{"t":"s","v":""},{"t":"s","v":"dom-append"},{"t":"s","v":"hoist-head-elements-full"},{"t":"s","v":"process-elements"},{"t":"s","v":"sx-hydrate-elements"},{"t":"s","v":"sx-hydrate-islands"},{"t":"s","v":"run-post-render-hooks"},{"t":"s","v":"dom-dispatch"},{"t":"s","v":"sx:clientRoute"},{"t":"s","v":"dict"},{"t":"s","v":"pathname"},{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":"sx:route client "}],"arity":3}},{"t":"s","v":"resolve-route-target"},{"t":"code","v":{"bytecode":[16,0,6,33,14,0,5,16,0,1,2,0,52,1,0,2,52,0,0,1,33,10,0,20,3,0,16,0,49,1,32,1,0,2,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"="},{"t":"s","v":"true"},{"t":"s","v":"dom-query"}],"arity":1}},{"t":"s","v":"deps-satisfied?"},{"t":"code","v":{"bytecode":[16,0,1,1,0,52,0,0,2,17,1,20,2,0,48,0,17,2,16,1,52,3,0,1,6,34,7,0,5,16,1,52,4,0,1,33,4,0,3,32,11,0,51,6,0,1,2,16,1,52,5,0,2,50],"constants":[{"t":"s","v":"get"},{"t":"s","v":"deps"},{"t":"s","v":"loaded-component-names"},{"t":"s","v":"nil?"},{"t":"s","v":"empty?"},{"t":"s","v":"every?"},{"t":"code","v":{"bytecode":[18,0,16,0,52,0,0,2,50],"constants":[{"t":"s","v":"contains?"}],"arity":1,"upvalue-count":1}}],"arity":1}},{"t":"s","v":"try-client-route"},{"t":"code","v":{"bytecode":[20,0,0,16,0,20,1,0,48,2,17,2,16,2,52,2,0,1,33,29,0,20,3,0,1,5,0,20,1,0,52,6,0,1,1,7,0,16,0,52,4,0,4,48,1,5,4,32,233,2,16,2,1,9,0,52,8,0,2,6,34,4,0,5,1,10,0,17,3,20,11,0,48,0,17,4,16,3,16,4,52,13,0,2,52,12,0,1,33,29,0,20,3,0,1,14,0,16,4,1,15,0,16,3,1,16,0,16,0,52,4,0,6,48,1,5,4,32,163,2,16,2,1,17,0,52,8,0,2,17,5,16,2,1,18,0,52,8,0,2,6,34,4,0,5,65,0,0,17,6,16,2,1,19,0,52,8,0,2,17,7,16,2,1,20,0,52,8,0,2,17,8,16,5,52,2,0,1,6,34,7,0,5,16,5,52,21,0,1,33,19,0,20,22,0,1,23,0,16,0,52,4,0,2,48,1,5,4,32,72,2,20,24,0,16,1,48,1,17,9,16,9,52,2,0,1,33,19,0,20,22,0,1,25,0,16,1,52,4,0,2,48,1,5,4,32,35,2,20,26,0,16,2,48,1,52,12,0,1,33,19,0,20,3,0,1,27,0,16,8,52,4,0,2,48,1,5,4,32,2,2,16,2,1,28,0,52,8,0,2,17,10,16,10,6,33,11,0,5,16,10,52,21,0,1,52,12,0,1,17,11,16,2,1,29,0,52,8,0,2,17,12,16,12,33,78,0,16,12,1,30,0,52,8,0,2,6,34,5,0,5,52,31,0,0,17,13,16,12,1,32,0,52,8,0,2,6,34,5,0,5,52,31,0,0,17,14,20,3,0,1,33,0,16,8,1,34,0,16,13,52,6,0,1,1,35,0,16,14,52,6,0,1,1,36,0,52,4,0,7,48,1,32,1,0,2,5,16,11,33,10,0,20,37,0,16,10,48,1,32,1,0,2,5,16,2,1,38,0,52,8,0,2,33,44,0,20,3,0,1,39,0,16,0,52,4,0,2,48,1,5,20,40,0,16,9,16,0,20,41,0,16,9,20,42,0,48,0,20,43,0,48,3,48,3,5,3,32,59,1,16,2,1,44,0,52,8,0,2,33,194,0,20,45,0,16,8,16,7,48,2,17,13,20,46,0,16,13,48,1,17,14,16,14,33,123,0,16,6,16,7,16,14,52,47,0,3,17,15,16,11,33,36,0,20,3,0,1,48,0,16,0,52,4,0,2,48,1,5,20,49,0,16,5,16,15,51,50,0,1,0,1,9,48,3,5,3,32,67,0,20,51,0,16,5,16,15,48,2,17,16,16,16,52,2,0,1,33,19,0,20,22,0,1,52,0,16,0,52,4,0,2,48,1,5,4,32,28,0,20,3,0,1,53,0,16,0,52,4,0,2,48,1,5,20,54,0,16,9,16,16,16,0,48,3,5,3,32,43,0,20,3,0,1,55,0,16,0,52,4,0,2,48,1,5,20,56,0,16,8,16,7,51,57,0,1,13,1,6,1,7,1,11,1,5,1,0,1,9,48,3,5,3,32,109,0,16,11,33,42,0,20,3,0,1,58,0,16,0,52,4,0,2,48,1,5,20,49,0,16,5,16,6,16,7,52,47,0,2,51,59,0,1,0,1,9,48,3,5,3,32,62,0,16,6,16,7,52,47,0,2,17,13,20,51,0,16,5,16,13,48,2,17,14,16,14,52,2,0,1,33,19,0,20,3,0,1,60,0,16,0,52,4,0,2,48,1,5,4,32,13,0,20,54,0,16,9,16,14,16,0,48,3,5,3,50],"constants":[{"t":"s","v":"find-matching-route"},{"t":"s","v":"_page-routes"},{"t":"s","v":"nil?"},{"t":"s","v":"log-info"},{"t":"s","v":"str"},{"t":"s","v":"sx:route no match ("},{"t":"s","v":"len"},{"t":"s","v":" routes) "},{"t":"s","v":"get"},{"t":"s","v":"layout"},{"t":"s","v":""},{"t":"s","v":"current-page-layout"},{"t":"s","v":"not"},{"t":"s","v":"="},{"t":"s","v":"sx:route server (layout: "},{"t":"s","v":" -> "},{"t":"s","v":") "},{"t":"s","v":"content"},{"t":"s","v":"closure"},{"t":"s","v":"params"},{"t":"s","v":"name"},{"t":"s","v":"empty?"},{"t":"s","v":"log-warn"},{"t":"s","v":"sx:route no content for "},{"t":"s","v":"resolve-route-target"},{"t":"s","v":"sx:route target not found: "},{"t":"s","v":"deps-satisfied?"},{"t":"s","v":"sx:route deps miss for "},{"t":"s","v":"io-deps"},{"t":"s","v":"render-plan"},{"t":"s","v":"server"},{"t":"s","v":"list"},{"t":"s","v":"client"},{"t":"s","v":"sx:route plan "},{"t":"s","v":" — "},{"t":"s","v":" server, "},{"t":"s","v":" client"},{"t":"s","v":"register-io-deps"},{"t":"s","v":"stream"},{"t":"s","v":"sx:route streaming "},{"t":"s","v":"fetch-streaming"},{"t":"s","v":"build-request-headers"},{"t":"s","v":"loaded-component-names"},{"t":"s","v":"_css-hash"},{"t":"s","v":"has-data"},{"t":"s","v":"page-data-cache-key"},{"t":"s","v":"page-data-cache-get"},{"t":"s","v":"merge"},{"t":"s","v":"sx:route client+cache+async "},{"t":"s","v":"try-async-eval-content"},{"t":"code","v":{"bytecode":[16,0,52,0,0,1,33,48,0,20,1,0,1,3,0,18,0,1,4,0,52,2,0,3,48,1,5,20,5,0,18,1,18,0,20,6,0,18,1,20,7,0,48,0,20,8,0,48,3,1,9,0,49,4,32,11,0,20,10,0,18,1,16,0,18,0,49,3,50],"constants":[{"t":"s","v":"nil?"},{"t":"s","v":"log-warn"},{"t":"s","v":"str"},{"t":"s","v":"sx:route cache+async eval failed for "},{"t":"s","v":" — server fallback"},{"t":"s","v":"fetch-and-restore"},{"t":"s","v":"build-request-headers"},{"t":"s","v":"loaded-component-names"},{"t":"s","v":"_css-hash"},{"t":"n","v":0},{"t":"s","v":"swap-rendered-content"}],"arity":1,"upvalue-count":2}},{"t":"s","v":"try-eval-content"},{"t":"s","v":"sx:route cached eval failed for "},{"t":"s","v":"sx:route client+cache "},{"t":"s","v":"swap-rendered-content"},{"t":"s","v":"sx:route client+data "},{"t":"s","v":"resolve-page-data"},{"t":"code","v":{"bytecode":[20,0,0,18,0,16,0,48,2,5,18,1,18,2,16,0,52,1,0,3,17,1,18,3,33,19,0,20,2,0,18,4,16,1,51,3,0,0,5,0,6,49,3,32,79,0,20,4,0,18,4,16,1,48,2,17,2,16,2,52,5,0,1,33,48,0,20,6,0,1,8,0,18,5,1,9,0,52,7,0,3,48,1,5,20,10,0,18,6,18,5,20,11,0,18,6,20,12,0,48,0,20,13,0,48,3,1,14,0,49,4,32,11,0,20,15,0,18,6,16,2,18,5,49,3,50],"constants":[{"t":"s","v":"page-data-cache-set"},{"t":"s","v":"merge"},{"t":"s","v":"try-async-eval-content"},{"t":"code","v":{"bytecode":[16,0,52,0,0,1,33,48,0,20,1,0,1,3,0,18,0,1,4,0,52,2,0,3,48,1,5,20,5,0,18,1,18,0,20,6,0,18,1,20,7,0,48,0,20,8,0,48,3,1,9,0,49,4,32,11,0,20,10,0,18,1,16,0,18,0,49,3,50],"constants":[{"t":"s","v":"nil?"},{"t":"s","v":"log-warn"},{"t":"s","v":"str"},{"t":"s","v":"sx:route data+async eval failed for "},{"t":"s","v":" — server fallback"},{"t":"s","v":"fetch-and-restore"},{"t":"s","v":"build-request-headers"},{"t":"s","v":"loaded-component-names"},{"t":"s","v":"_css-hash"},{"t":"n","v":0},{"t":"s","v":"swap-rendered-content"}],"arity":1,"upvalue-count":2}},{"t":"s","v":"try-eval-content"},{"t":"s","v":"nil?"},{"t":"s","v":"log-warn"},{"t":"s","v":"str"},{"t":"s","v":"sx:route data eval failed for "},{"t":"s","v":" — server fallback"},{"t":"s","v":"fetch-and-restore"},{"t":"s","v":"build-request-headers"},{"t":"s","v":"loaded-component-names"},{"t":"s","v":"_css-hash"},{"t":"n","v":0},{"t":"s","v":"swap-rendered-content"}],"arity":1,"upvalue-count":7}},{"t":"s","v":"sx:route client+async "},{"t":"code","v":{"bytecode":[16,0,52,0,0,1,33,48,0,20,1,0,1,3,0,18,0,1,4,0,52,2,0,3,48,1,5,20,5,0,18,1,18,0,20,6,0,18,1,20,7,0,48,0,20,8,0,48,3,1,9,0,49,4,32,11,0,20,10,0,18,1,16,0,18,0,49,3,50],"constants":[{"t":"s","v":"nil?"},{"t":"s","v":"log-warn"},{"t":"s","v":"str"},{"t":"s","v":"sx:route async eval failed for "},{"t":"s","v":" — server fallback"},{"t":"s","v":"fetch-and-restore"},{"t":"s","v":"build-request-headers"},{"t":"s","v":"loaded-component-names"},{"t":"s","v":"_css-hash"},{"t":"n","v":0},{"t":"s","v":"swap-rendered-content"}],"arity":1,"upvalue-count":2}},{"t":"s","v":"sx:route server (eval failed) "}],"arity":2}},{"t":"s","v":"bind-client-route-link"},{"t":"code","v":{"bytecode":[20,0,0,16,0,16,1,51,1,0,1,0,1,1,49,3,50],"constants":[{"t":"s","v":"bind-client-route-click"},{"t":"code","v":{"bytecode":[20,0,0,18,0,18,1,49,2,50],"constants":[{"t":"s","v":"bind-boost-link"}],"upvalue-count":2}}],"arity":2}},{"t":"s","v":"process-sse"},{"t":"code","v":{"bytecode":[51,1,0,20,2,0,16,0,6,34,6,0,5,20,3,0,48,0,1,4,0,48,2,52,0,0,2,50],"constants":[{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,1,0,16,0,1,2,0,48,2,52,0,0,1,33,21,0,20,3,0,16,0,1,2,0,48,2,5,20,4,0,16,0,49,1,32,1,0,2,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"is-processed?"},{"t":"s","v":"sse"},{"t":"s","v":"mark-processed!"},{"t":"s","v":"bind-sse"}],"arity":1}},{"t":"s","v":"dom-query-all"},{"t":"s","v":"dom-body"},{"t":"s","v":"[sx-sse]"}],"arity":1}},{"t":"s","v":"bind-sse"},{"t":"code","v":{"bytecode":[20,0,0,16,0,1,1,0,48,2,17,1,16,1,33,37,0,20,2,0,16,1,16,0,48,2,17,2,20,3,0,16,0,48,1,17,3,20,4,0,16,2,16,3,51,5,0,1,0,49,3,32,1,0,2,50],"constants":[{"t":"s","v":"dom-get-attr"},{"t":"s","v":"sx-sse"},{"t":"s","v":"event-source-connect"},{"t":"s","v":"parse-sse-swap"},{"t":"s","v":"event-source-listen"},{"t":"code","v":{"bytecode":[20,0,0,18,0,16,0,49,2,50],"constants":[{"t":"s","v":"bind-sse-swap"}],"arity":1,"upvalue-count":1}}],"arity":1}},{"t":"s","v":"bind-sse-swap"},{"t":"code","v":{"bytecode":[20,0,0,16,0,48,1,17,2,20,1,0,20,2,0,16,0,1,3,0,48,2,20,4,0,20,5,0,48,0,1,6,0,48,2,48,2,17,3,16,3,1,8,0,52,7,0,2,17,4,16,3,1,9,0,52,7,0,2,17,5,16,1,52,10,0,1,17,6,16,6,52,12,0,1,52,11,0,1,33,88,0,20,13,0,16,2,48,1,5,16,6,1,15,0,52,14,0,2,33,49,0,20,16,0,16,6,48,1,17,7,20,17,0,1,18,0,2,48,2,17,8,20,19,0,16,8,16,7,48,2,5,20,20,0,16,5,51,21,0,1,2,1,8,1,4,49,2,32,16,0,20,20,0,16,5,51,22,0,1,2,1,6,1,4,49,2,32,1,0,2,50],"constants":[{"t":"s","v":"resolve-target"},{"t":"s","v":"parse-swap-spec"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"sx-swap"},{"t":"s","v":"dom-has-class?"},{"t":"s","v":"dom-body"},{"t":"s","v":"sx-transitions"},{"t":"s","v":"get"},{"t":"s","v":"style"},{"t":"s","v":"transition"},{"t":"s","v":"trim"},{"t":"s","v":"not"},{"t":"s","v":"empty?"},{"t":"s","v":"dispose-islands-in"},{"t":"s","v":"starts-with?"},{"t":"s","v":"("},{"t":"s","v":"sx-render"},{"t":"s","v":"dom-create-element"},{"t":"s","v":"div"},{"t":"s","v":"dom-append"},{"t":"s","v":"with-transition"},{"t":"code","v":{"bytecode":[20,0,0,18,0,20,1,0,18,1,48,1,18,2,48,3,5,20,2,0,18,0,49,1,50],"constants":[{"t":"s","v":"swap-dom-nodes"},{"t":"s","v":"children-to-fragment"},{"t":"s","v":"post-swap"}],"upvalue-count":3}},{"t":"code","v":{"bytecode":[20,0,0,18,0,18,1,18,2,48,3,5,20,1,0,18,0,49,1,50],"constants":[{"t":"s","v":"swap-html-string"},{"t":"s","v":"post-swap"}],"upvalue-count":3}}],"arity":2}},{"t":"s","v":"bind-inline-handlers"},{"t":"code","v":{"bytecode":[51,1,0,20,2,0,16,0,6,34,6,0,5,20,3,0,48,0,1,4,0,48,2,52,0,0,2,50],"constants":[{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[51,1,0,1,0,20,2,0,16,0,48,1,52,0,0,2,50],"constants":[{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[16,0,52,0,0,1,17,1,16,0,1,2,0,52,1,0,2,17,2,16,1,1,4,0,52,3,0,2,33,83,0,16,1,1,6,0,52,5,0,2,17,3,20,8,0,18,0,1,10,0,16,3,52,9,0,2,48,2,52,7,0,1,33,45,0,20,11,0,18,0,1,10,0,16,3,52,9,0,2,48,2,5,20,12,0,16,2,48,1,17,4,20,13,0,18,0,16,3,51,14,0,0,0,1,4,49,3,32,1,0,2,32,1,0,2,50],"constants":[{"t":"s","v":"first"},{"t":"s","v":"nth"},{"t":"n","v":1},{"t":"s","v":"starts-with?"},{"t":"s","v":"sx-on:"},{"t":"s","v":"slice"},{"t":"n","v":6},{"t":"s","v":"not"},{"t":"s","v":"is-processed?"},{"t":"s","v":"str"},{"t":"s","v":"on:"},{"t":"s","v":"mark-processed!"},{"t":"s","v":"sx-parse"},{"t":"s","v":"dom-on"},{"t":"code","v":{"bytecode":[20,0,0,52,1,0,0,48,1,17,1,20,2,0,16,1,1,3,0,16,0,48,3,5,20,2,0,16,1,1,4,0,18,0,48,3,5,20,2,0,16,1,1,5,0,20,6,0,16,0,48,1,48,3,5,51,8,0,1,1,18,1,52,7,0,2,50],"constants":[{"t":"s","v":"env-extend"},{"t":"s","v":"dict"},{"t":"s","v":"env-bind!"},{"t":"s","v":"event"},{"t":"s","v":"this"},{"t":"s","v":"detail"},{"t":"s","v":"event-detail"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,0,0,16,0,18,0,49,2,50],"constants":[{"t":"s","v":"eval-expr"}],"arity":1,"upvalue-count":1}}],"arity":1,"upvalue-count":2}}],"arity":1,"upvalue-count":1}},{"t":"s","v":"dom-attr-list"}],"arity":1}},{"t":"s","v":"dom-query-all"},{"t":"s","v":"dom-body"},{"t":"s","v":"[sx-on\\:]"}],"arity":1}},{"t":"s","v":"bind-preload-for"},{"t":"code","v":{"bytecode":[20,0,0,16,0,1,1,0,48,2,17,1,16,1,33,76,0,16,1,1,3,0,52,2,0,2,33,13,0,1,3,0,1,5,0,52,4,0,2,32,7,0,1,6,0,52,4,0,1,17,2,16,1,1,3,0,52,2,0,2,33,6,0,1,7,0,32,3,0,1,8,0,17,3,20,9,0,16,0,16,2,16,3,51,10,0,1,0,49,4,32,1,0,2,50],"constants":[{"t":"s","v":"dom-get-attr"},{"t":"s","v":"sx-preload"},{"t":"s","v":"="},{"t":"s","v":"mousedown"},{"t":"s","v":"list"},{"t":"s","v":"touchstart"},{"t":"s","v":"mouseover"},{"t":"n","v":0},{"t":"n","v":100},{"t":"s","v":"bind-preload"},{"t":"code","v":{"bytecode":[20,0,0,18,0,48,1,17,0,16,0,33,32,0,20,1,0,16,0,1,3,0,52,2,0,2,20,4,0,18,0,20,5,0,48,0,20,6,0,48,3,49,2,32,1,0,2,50],"constants":[{"t":"s","v":"get-verb-info"},{"t":"s","v":"do-preload"},{"t":"s","v":"get"},{"t":"s","v":"url"},{"t":"s","v":"build-request-headers"},{"t":"s","v":"loaded-component-names"},{"t":"s","v":"_css-hash"}],"upvalue-count":1}}],"arity":1}},{"t":"s","v":"do-preload"},{"t":"code","v":{"bytecode":[20,1,0,20,2,0,16,0,48,2,52,0,0,1,33,15,0,20,3,0,16,0,16,1,20,2,0,49,3,32,1,0,2,50],"constants":[{"t":"s","v":"nil?"},{"t":"s","v":"preload-cache-get"},{"t":"s","v":"_preload-cache"},{"t":"s","v":"fetch-preload"}],"arity":2}},{"t":"s","v":"VERB_SELECTOR"},{"t":"s","v":"str"},{"t":"s","v":"[sx-get],[sx-post],[sx-put],[sx-delete],[sx-patch]"},{"t":"s","v":"process-elements"},{"t":"code","v":{"bytecode":[20,0,0,16,0,6,34,6,0,5,20,1,0,48,0,20,2,0,48,2,17,1,51,4,0,16,1,52,3,0,2,5,20,5,0,16,0,48,1,5,20,6,0,16,0,48,1,5,20,7,0,16,0,48,1,5,20,8,0,16,0,49,1,50],"constants":[{"t":"s","v":"dom-query-all"},{"t":"s","v":"dom-body"},{"t":"s","v":"VERB_SELECTOR"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,1,0,16,0,1,2,0,48,2,52,0,0,1,33,21,0,20,3,0,16,0,1,2,0,48,2,5,20,4,0,16,0,49,1,32,1,0,2,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"is-processed?"},{"t":"s","v":"verb"},{"t":"s","v":"mark-processed!"},{"t":"s","v":"process-one"}],"arity":1}},{"t":"s","v":"process-boosted"},{"t":"s","v":"process-sse"},{"t":"s","v":"bind-inline-handlers"},{"t":"s","v":"process-emit-elements"}],"arity":1}},{"t":"s","v":"process-one"},{"t":"code","v":{"bytecode":[20,0,0,16,0,48,1,17,1,16,1,33,41,0,20,2,0,16,0,1,3,0,48,2,52,1,0,1,33,20,0,20,4,0,16,0,16,1,48,2,5,20,5,0,16,0,49,1,32,1,0,2,32,1,0,2,50],"constants":[{"t":"s","v":"get-verb-info"},{"t":"s","v":"not"},{"t":"s","v":"dom-has-attr?"},{"t":"s","v":"sx-disable"},{"t":"s","v":"bind-triggers"},{"t":"s","v":"bind-preload-for"}],"arity":1}},{"t":"s","v":"process-emit-elements"},{"t":"code","v":{"bytecode":[20,0,0,16,0,6,34,6,0,5,20,1,0,48,0,1,2,0,48,2,17,1,51,4,0,16,1,52,3,0,2,50],"constants":[{"t":"s","v":"dom-query-all"},{"t":"s","v":"dom-body"},{"t":"s","v":"[data-sx-emit]"},{"t":"s","v":"for-each"},{"t":"code","v":{"bytecode":[20,1,0,16,0,1,2,0,48,2,52,0,0,1,33,52,0,20,3,0,16,0,1,2,0,48,2,5,20,4,0,16,0,1,5,0,48,2,17,1,16,1,33,20,0,20,6,0,16,0,1,7,0,51,8,0,1,0,1,1,49,3,32,1,0,2,32,1,0,2,50],"constants":[{"t":"s","v":"not"},{"t":"s","v":"is-processed?"},{"t":"s","v":"emit"},{"t":"s","v":"mark-processed!"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"data-sx-emit"},{"t":"s","v":"dom-on"},{"t":"s","v":"click"},{"t":"code","v":{"bytecode":[20,0,0,18,0,1,1,0,48,2,17,1,16,1,33,10,0,20,2,0,16,1,48,1,32,4,0,52,3,0,0,17,2,20,4,0,18,0,18,1,16,2,49,3,50],"constants":[{"t":"s","v":"dom-get-attr"},{"t":"s","v":"data-sx-emit-detail"},{"t":"s","v":"json-parse"},{"t":"s","v":"dict"},{"t":"s","v":"dom-dispatch"}],"arity":1,"upvalue-count":2}}],"arity":1}}],"arity":1}},{"t":"s","v":"handle-popstate"},{"t":"code","v":{"bytecode":[20,0,0,48,0,17,1,20,1,0,1,2,0,48,1,17,2,16,2,33,44,0,20,3,0,16,2,1,4,0,48,2,17,4,16,4,6,33,14,0,5,16,4,1,7,0,52,6,0,2,52,5,0,1,33,5,0,16,4,32,1,0,2,32,1,0,2,17,3,16,3,6,34,4,0,5,1,8,0,17,3,20,1,0,16,3,48,1,17,4,20,9,0,16,1,48,1,17,5,16,4,33,58,0,20,10,0,16,5,16,3,48,2,33,13,0,20,11,0,1,12,0,16,0,49,2,32,30,0,20,13,0,16,4,20,14,0,48,0,20,15,0,48,3,17,6,20,16,0,16,4,16,1,16,6,16,0,49,4,32,1,0,2,50],"constants":[{"t":"s","v":"browser-location-href"},{"t":"s","v":"dom-query"},{"t":"s","v":"[sx-boost]"},{"t":"s","v":"dom-get-attr"},{"t":"s","v":"sx-boost"},{"t":"s","v":"not"},{"t":"s","v":"="},{"t":"s","v":"true"},{"t":"s","v":"#main-panel"},{"t":"s","v":"url-pathname"},{"t":"s","v":"try-client-route"},{"t":"s","v":"browser-scroll-to"},{"t":"n","v":0},{"t":"s","v":"build-request-headers"},{"t":"s","v":"loaded-component-names"},{"t":"s","v":"_css-hash"},{"t":"s","v":"fetch-and-restore"}],"arity":1}},{"t":"s","v":"engine-init"},{"t":"code","v":{"bytecode":[20,0,0,48,0,5,20,1,0,2,48,1,5,20,2,0,2,48,1,5,20,3,0,2,49,1,50],"constants":[{"t":"s","v":"init-css-tracking"},{"t":"s","v":"sx-process-scripts"},{"t":"s","v":"sx-hydrate"},{"t":"s","v":"process-elements"}]}}]}} \ No newline at end of file diff --git a/tests/playwright/navigation.spec.js b/tests/playwright/navigation.spec.js index 02f5a30e..386a76cb 100644 --- a/tests/playwright/navigation.spec.js +++ b/tests/playwright/navigation.spec.js @@ -1,120 +1,12 @@ // Navigation tests for sx-docs -// Verifies client-side navigation works correctly after sx-host migration. +// Verifies navigation works correctly with the OCaml sx-host. const { test, expect } = require('playwright/test'); const BASE_URL = process.env.SX_TEST_URL || 'http://localhost:8013'; -test.describe('Client-side Navigation', () => { +test.describe('Page Navigation', () => { - test('layout stays vertical after clicking nav link', async ({ page }) => { - await page.goto(BASE_URL + '/sx/(geography)', { waitUntil: 'networkidle' }); - await page.waitForTimeout(2000); - - // Click "Reactive Islands" nav link - await page.click('a[href*="geography.(reactive"]:not([href*="runtime"])'); - await page.waitForTimeout(3000); - - // Page should have navigated - expect(page.url()).toContain('reactive'); - - // After navigation, the page title/heading should be visible and centered - // NOT pushed to the right side by the header - const heading = await page.locator('h1, h2').first().boundingBox(); - const viewport = page.viewportSize(); - - if (heading && viewport) { - // The heading should be centered-ish, not pushed far right - // If it's past 60% of viewport width, layout is broken (side-by-side) - expect(heading.x).toBeLessThan(viewport.width * 0.5); - } - - // The page should NOT have two visible columns where header and content - // are side by side - const screenshot = await page.screenshot(); - // Just verify the content area starts near the top - if (heading) { - expect(heading.y).toBeLessThan(400); // Content should be within first 400px - } - }); - - test('content updates after navigation', async ({ page }) => { - await page.goto(BASE_URL + '/sx/(geography)', { waitUntil: 'networkidle' }); - - // Geography page should have "Geography" heading - const geoText = await page.textContent('body'); - expect(geoText).toContain('Geography'); - - // Click on "CEK Machine" link - const cekLink = page.locator('a:has-text("CEK Machine")'); - if (await cekLink.count() > 0) { - await cekLink.first().click(); - await page.waitForTimeout(3000); - - // Content should now mention CEK - const bodyText = await page.textContent('body'); - expect(bodyText).toContain('CEK'); - } - }); - - test('no raw SX component calls visible after navigation', async ({ page }) => { - await page.goto(BASE_URL + '/sx/(geography)', { waitUntil: 'networkidle' }); - - // Click a nav link - await page.click('a[href*="hypermedia"]:not([href*="example"])'); - await page.waitForTimeout(3000); - - // Check no raw SX calls visible in the main content area - const mainText = await page.locator('#main-panel, #root-panel, main').first().textContent(); - // ~cssx/tw calls should be expanded, not visible as text - const rawCssx = (mainText.match(/~cssx\/tw/g) || []).length; - expect(rawCssx).toBeLessThan(3); // Allow a few in documentation text - }); - - test('header island survives navigation', async ({ page }) => { - await page.goto(BASE_URL + '/sx/(geography)', { waitUntil: 'networkidle' }); - await page.waitForSelector('[data-sx-island="layouts/header"]', { timeout: 10000 }); - - // Header should have the logo - const headerText = await page.locator('[data-sx-island="layouts/header"]').textContent(); - expect(headerText).toContain('sx'); - - // Navigate - await page.click('a[href*="hypermedia"]:not([href*="example"])'); - await page.waitForTimeout(3000); - - // Header should still be present and have content - const headerAfter = await page.locator('[data-sx-island="layouts/header"]'); - await expect(headerAfter).toBeVisible(); - const headerTextAfter = await headerAfter.textContent(); - expect(headerTextAfter).toContain('sx'); - }); - - test('navigation does not create side-by-side layout', async ({ page }) => { - await page.goto(BASE_URL + '/sx/(geography)', { waitUntil: 'networkidle' }); - await page.waitForTimeout(2000); - - // Navigate to Hypermedia - await page.click('a[href*="geography.(hypermedia"]:not([href*="example"])'); - await page.waitForTimeout(3000); - - // The header/nav should NOT be beside the content (side by side) - // Check that there's no element with the logo text at x < 300 - // while content heading is at x > 300 - const logo = await page.locator('[data-sx-island="layouts/header"]').boundingBox(); - const heading = await page.locator('h1, h2').first().boundingBox(); - - if (logo && heading) { - // Both should be roughly centered, not one left and one right - const logoCenter = logo.x + logo.width / 2; - const headingCenter = heading.x + heading.width / 2; - const drift = Math.abs(logoCenter - headingCenter); - // If drift > 300px, they're side by side (broken layout) - expect(drift).toBeLessThan(300); - } - }); - - test('browser back button restores previous page content', async ({ page }) => { - // Collect console errors + test('clicking nav button navigates to new page', async ({ page }) => { const errors = []; page.on('console', msg => { if (msg.type() === 'error') errors.push(msg.text()); @@ -123,89 +15,127 @@ test.describe('Client-side Navigation', () => { await page.goto(BASE_URL + '/sx/(geography)', { waitUntil: 'networkidle' }); await page.waitForTimeout(2000); - // Navigate forward to Hypermedia - await page.click('a[href*="geography.(hypermedia"]:not([href*="example"])'); + // Click "Reactive Islands" nav link + await page.click('a[href*="geography.(reactive)"]:not([href*="runtime"])'); await page.waitForTimeout(3000); - // Verify navigation worked — URL must contain hypermedia - expect(page.url()).toContain('hypermedia'); + // Should have navigated — URL must contain reactive + expect(page.url()).toContain('reactive'); - // Go back - await page.goBack(); - await page.waitForTimeout(3000); + // Page should show Reactive Islands content + const body = await page.textContent('body'); + expect(body).toContain('Reactive Islands'); - // URL should return - expect(page.url()).toContain('geography'); - expect(page.url()).not.toContain('hypermedia'); - - // Content MUST change back — the main heading should say Geography, - // NOT still show Hypermedia content - const heading = await page.locator('#main-panel h1, #main-panel h2').first(); - await expect(heading).toContainText('Geography', { timeout: 5000 }); - - // No JIT errors should have occurred during navigation - const jitErrors = errors.filter(e => e.includes('Not callable: nil')); - expect(jitErrors.length).toBe(0); + // No SX evaluation errors + const sxErrors = errors.filter(e => e.includes('Undefined symbol')); + expect(sxErrors).toHaveLength(0); }); - test('back button preserves layout (no side-by-side)', async ({ page }) => { - await page.goto(BASE_URL + '/sx/(geography)', { waitUntil: 'networkidle' }); - await page.waitForTimeout(2000); - - // Navigate forward - await page.click('a[href*="geography.(reactive"]:not([href*="runtime"])'); - await page.waitForTimeout(3000); - - // Go back - await page.goBack(); - await page.waitForTimeout(3000); - - // Check layout is vertical — heading should be within top part of page - const heading = await page.locator('h1, h2').first().boundingBox(); - if (heading) { - expect(heading.y).toBeLessThan(500); - const viewport = page.viewportSize(); - if (viewport) { - expect(heading.x).toBeLessThan(viewport.width * 0.5); - } - } - }); - - test('no JIT errors during navigation', async ({ page }) => { + test('clicking header logo navigates home', async ({ page }) => { const errors = []; page.on('console', msg => { - if (msg.type() === 'error' && msg.text().includes('FAIL')) { - errors.push(msg.text()); - } + if (msg.type() === 'error') errors.push(msg.text()); }); await page.goto(BASE_URL + '/sx/(geography)', { waitUntil: 'networkidle' }); await page.waitForTimeout(2000); - // Navigate - await page.click('a[href*="geography.(hypermedia"]:not([href*="example"])'); + // Click the logo in the header island + await page.click('[data-sx-island="layouts/header"] a[href="/sx/"]'); await page.waitForTimeout(3000); - // Check for JIT errors — these indicate broken CSSX function resolution - const jitErrors = errors.filter(e => e.includes('Not callable: nil')); - expect(jitErrors.length).toBe(0); + // Should have navigated to home + expect(page.url()).toMatch(/\/sx\/?$/); + + // No SX evaluation errors + const sxErrors = errors.filter(e => e.includes('Undefined symbol')); + expect(sxErrors).toHaveLength(0); }); - test('full page width is used (no side-by-side split)', async ({ page }) => { + test('back button works after navigation', async ({ page }) => { + const errors = []; + page.on('console', msg => { + if (msg.type() === 'error') errors.push(msg.text()); + }); + + await page.goto(BASE_URL + '/sx/(geography)', { waitUntil: 'networkidle' }); + await page.waitForTimeout(2000); + + // Navigate to Reactive Islands + await page.click('a[href*="geography.(reactive)"]:not([href*="runtime"])'); + await page.waitForTimeout(3000); + expect(page.url()).toContain('reactive'); + + // Go back + await page.goBack(); + await page.waitForTimeout(3000); + + // Should be back at Geography + expect(page.url()).toContain('geography'); + expect(page.url()).not.toContain('reactive'); + + // Geography heading should be visible + const heading = await page.locator('h1, h2').first(); + await expect(heading).toContainText('Geography', { timeout: 5000 }); + + // No SX errors + const sxErrors = errors.filter(e => e.includes('Undefined symbol')); + expect(sxErrors).toHaveLength(0); + }); + + test('no console errors on page load', async ({ page }) => { + const errors = []; + page.on('console', msg => { + if (msg.type() === 'error' && !msg.text().includes('404')) + errors.push(msg.text()); + }); + + await page.goto(BASE_URL + '/sx/(geography)', { waitUntil: 'networkidle' }); + await page.waitForTimeout(3000); + + // No JIT or SX errors + const sxErrors = errors.filter(e => + e.includes('Undefined symbol') || e.includes('Not callable')); + expect(sxErrors).toHaveLength(0); + }); + + test('copyright shows current route after SX navigation', async ({ page }) => { + await page.goto(BASE_URL + '/sx/', { waitUntil: 'networkidle' }); + await page.waitForTimeout(3000); + + // Mark the page to verify SX navigation (not full reload) + await page.evaluate(() => window.__sx_nav_marker = true); + + // Before: copyright shows the current path + const before = await page.evaluate(() => + document.querySelector('[data-sx-lake="copyright"]')?.textContent); + expect(before).toContain('/sx/'); + + // Navigate via SX (sx-get link) + await page.click('a[sx-get*="(geography)"]'); + await page.waitForTimeout(3000); + + // Verify SX navigation (marker survives SX nav, lost on reload) + const marker = await page.evaluate(() => window.__sx_nav_marker); + expect(marker).toBe(true); + + // After: copyright must still show a route path + const after = await page.evaluate(() => + document.querySelector('[data-sx-lake="copyright"]')?.textContent); + expect(after).toContain('geography'); + }); + + test('header island renders with SSR', async ({ page }) => { await page.goto(BASE_URL + '/sx/(geography)', { waitUntil: 'networkidle' }); - // Navigate to a child page - await page.click('a[href*="reactive"]:not([href*="runtime"])'); - await page.waitForTimeout(3000); + // Header should be visible + const header = page.locator('[data-sx-island="layouts/header"]'); + await expect(header).toBeVisible(); - // The main content area should use most of the viewport width - const viewport = page.viewportSize(); - const content = await page.locator('h1, h2, [id="main-panel"]').first().boundingBox(); + // Should contain the logo + await expect(header).toContainText('sx'); - if (content && viewport) { - // Content should not be squeezed to one side - // It should start within the first 40% of viewport width - expect(content.x).toBeLessThan(viewport.width * 0.4); - } + // Should contain copyright + await expect(header).toContainText('Giles Bradshaw'); }); }); diff --git a/web/adapter-dom.sx b/web/adapter-dom.sx index 38c670ba..55416866 100644 --- a/web/adapter-dom.sx +++ b/web/adapter-dom.sx @@ -4,64 +4,1335 @@ (define island-scope? (fn () (not (nil? (scope-peek "sx-island-scope"))))) -(begin (define *memo-cache* (dict)) (define *cyst-counter* 0) (define next-cyst-id (fn () (set! *cyst-counter* (+ *cyst-counter* 1)) (str "sx-cyst-" *cyst-counter*)))) +(begin + (define *memo-cache* (dict)) + (define *cyst-counter* 0) + (define + next-cyst-id + (fn + () + (set! *cyst-counter* (+ *cyst-counter* 1)) + (str "sx-cyst-" *cyst-counter*)))) -(define contains-deref? (fn (expr) (if (not (list? expr)) false (if (empty? expr) false (if (and (= (type-of (first expr)) "symbol") (= (symbol-name (first expr)) "deref")) true (some contains-deref? expr)))))) +(define + contains-deref? + (fn + (expr) + (if + (not (list? expr)) + false + (if + (empty? expr) + false + (if + (and + (= (type-of (first expr)) "symbol") + (= (symbol-name (first expr)) "deref")) + true + (some contains-deref? expr)))))) -(define dom-on :effects (io) (fn (el name handler) (dom-listen el name (if (lambda? handler) (if (= 0 (len (lambda-params handler))) (fn (_e) (trampoline (call-lambda handler (list))) (run-post-render-hooks)) (fn (e) (trampoline (call-lambda handler (list e))) (run-post-render-hooks))) handler)))) +(define + dom-on + :effects (io) + (fn + (el name handler) + (dom-listen + el + name + (if + (lambda? handler) + (if + (= 0 (len (lambda-params handler))) + (fn + (_e) + (trampoline (call-lambda handler (list))) + (run-post-render-hooks)) + (fn + (e) + (trampoline (call-lambda handler (list e))) + (run-post-render-hooks))) + handler)))) -(define render-to-dom :effects (render) (fn (expr (env :as dict) (ns :as string)) (set-render-active! true) (case (type-of expr) "nil" (create-fragment) "boolean" (create-fragment) "raw-html" (dom-parse-html (raw-html-content expr)) "string" (create-text-node expr) "number" (create-text-node (str expr)) "symbol" (render-to-dom (trampoline (eval-expr expr env)) env ns) "keyword" (create-text-node (keyword-name expr)) "dom-node" expr "spread" (do (when (not (island-scope?)) (scope-emit! "element-attrs" (spread-attrs expr))) expr) "dict" (if (has-key? expr "__host_handle") expr (create-fragment)) "list" (if (empty? expr) (create-fragment) (render-dom-list expr env ns)) :else (if (signal? expr) (if (island-scope?) (reactive-text expr) (create-text-node (str (deref expr)))) (create-text-node (str expr)))))) +(define + render-to-dom + :effects (render) + (fn + (expr (env :as dict) (ns :as string)) + (set-render-active! true) + (case + (type-of expr) + "nil" + (create-fragment) + "boolean" + (create-fragment) + "raw-html" + (dom-parse-html (raw-html-content expr)) + "string" + (create-text-node expr) + "number" + (create-text-node (str expr)) + "symbol" + (render-to-dom (trampoline (eval-expr expr env)) env ns) + "keyword" + (create-text-node (keyword-name expr)) + "dom-node" + expr + "spread" + (do + (when + (not (island-scope?)) + (scope-emit! "element-attrs" (spread-attrs expr))) + expr) + "dict" + (if (has-key? expr "__host_handle") expr (create-fragment)) + "list" + (if (empty? expr) (create-fragment) (render-dom-list expr env ns)) + :else (if + (signal? expr) + (if + (island-scope?) + (reactive-text expr) + (create-text-node (str (deref expr)))) + (create-text-node (str expr)))))) -(define render-dom-list :effects (render) (fn (expr (env :as dict) (ns :as string)) (let ((head (first expr))) (cond (= (type-of head) "symbol") (let ((name (symbol-name head)) (args (rest expr))) (cond (= name "raw!") (render-dom-raw args env) (= name "<>") (render-dom-fragment args env ns) (= name "lake") (render-dom-lake args env ns) (= name "marsh") (render-dom-marsh args env ns) (starts-with? name "html:") (render-dom-element (slice name 5) args env ns) (render-dom-form? name) (if (and (contains? HTML_TAGS name) (or (and (> (len args) 0) (= (type-of (first args)) "keyword")) ns)) (render-dom-element name args env ns) (dispatch-render-form name expr env ns)) (and (env-has? env name) (macro? (env-get env name))) (render-to-dom (expand-macro (env-get env name) args env) env ns) (contains? HTML_TAGS name) (render-dom-element name args env ns) (and (starts-with? name "~") (env-has? env name) (island? (env-get env name))) (if (scope-peek "sx-render-markers") (let ((island (env-get env name)) (marker (dom-create-element "span" nil))) (dom-set-attr marker "data-sx-island" (component-name island)) marker) (render-dom-island (env-get env name) args env ns)) (starts-with? name "~") (let ((comp (env-get env name))) (if (component? comp) (render-dom-component comp args env ns) (render-dom-unknown-component name))) (and (> (index-of name "-") 0) (> (len args) 0) (= (type-of (first args)) "keyword")) (render-dom-element name args env ns) ns (render-dom-element name args env ns) (and (= name "deref") (island-scope?)) (let ((sig-or-val (trampoline (eval-expr (first args) env)))) (if (signal? sig-or-val) (reactive-text sig-or-val) (create-text-node (str (deref sig-or-val))))) (and (island-scope?) (contains-deref? expr)) (reactive-text (computed (fn () (trampoline (eval-expr expr env))))) :else (render-to-dom (trampoline (eval-expr expr env)) env ns))) (or (lambda? head) (= (type-of head) "list")) (render-to-dom (trampoline (eval-expr expr env)) env ns) :else (let ((frag (create-fragment))) (for-each (fn (x) (let ((result (render-to-dom x env ns))) (when (not (spread? result)) (dom-append frag result)))) expr) frag))))) +(define + render-dom-list + :effects (render) + (fn + (expr (env :as dict) (ns :as string)) + (let + ((head (first expr))) + (cond + (= (type-of head) "symbol") + (let + ((name (symbol-name head)) (args (rest expr))) + (cond + (= name "raw!") + (render-dom-raw args env) + (= name "<>") + (render-dom-fragment args env ns) + (= name "lake") + (render-dom-lake args env ns) + (= name "marsh") + (render-dom-marsh args env ns) + (starts-with? name "html:") + (render-dom-element (slice name 5) args env ns) + (render-dom-form? name) + (if + (and + (contains? HTML_TAGS name) + (or + (and + (> (len args) 0) + (= (type-of (first args)) "keyword")) + ns)) + (render-dom-element name args env ns) + (dispatch-render-form name expr env ns)) + (and (env-has? env name) (macro? (env-get env name))) + (render-to-dom (expand-macro (env-get env name) args env) env ns) + (contains? HTML_TAGS name) + (render-dom-element name args env ns) + (and + (starts-with? name "~") + (env-has? env name) + (island? (env-get env name))) + (if + (scope-peek "sx-render-markers") + (let + ((island (env-get env name)) + (marker (dom-create-element "span" nil)) + (kw-state (dict))) + (reduce + (fn + (state arg) + (let + ((skip (get state "skip"))) + (if + skip + (assoc state "skip" false "i" (inc (get state "i"))) + (if + (and + (= (type-of arg) "keyword") + (< (inc (get state "i")) (len args))) + (let + ((kname (keyword-name arg)) + (kval + (trampoline + (eval-expr + (nth args (inc (get state "i"))) + env)))) + (dict-set! kw-state kname kval) + (assoc + state + "skip" + true + "i" + (inc (get state "i")))) + (assoc state "i" (inc (get state "i"))))))) + (dict "i" 0 "skip" false) + args) + (dom-set-attr marker "data-sx-island" (component-name island)) + (when + (not (empty-dict? kw-state)) + (dom-set-attr + marker + "data-sx-state" + (sx-serialize kw-state))) + marker) + (render-dom-island (env-get env name) args env ns)) + (starts-with? name "~") + (let + ((comp (env-get env name))) + (if + (component? comp) + (render-dom-component comp args env ns) + (render-dom-unknown-component name))) + (and + (> (index-of name "-") 0) + (> (len args) 0) + (= (type-of (first args)) "keyword")) + (render-dom-element name args env ns) + ns + (render-dom-element name args env ns) + (and (= name "deref") (island-scope?)) + (let + ((sig-or-val (trampoline (eval-expr (first args) env)))) + (if + (signal? sig-or-val) + (reactive-text sig-or-val) + (create-text-node (str (deref sig-or-val))))) + (and (island-scope?) (contains-deref? expr)) + (reactive-text + (computed (fn () (trampoline (eval-expr expr env))))) + :else (render-to-dom (trampoline (eval-expr expr env)) env ns))) + (or (lambda? head) (= (type-of head) "list")) + (render-to-dom (trampoline (eval-expr expr env)) env ns) + :else (let + ((frag (create-fragment))) + (for-each + (fn + (x) + (let + ((result (render-to-dom x env ns))) + (when (not (spread? result)) (dom-append frag result)))) + expr) + frag))))) -(define render-dom-element :effects (render) (fn ((tag :as string) (args :as list) (env :as dict) (ns :as string)) (let ((new-ns (cond (= tag "svg") SVG_NS (= tag "math") MATH_NS :else ns)) (el (dom-create-element tag new-ns))) (scope-push! "element-attrs" nil) (reduce (fn (state arg) (let ((skip (get state "skip"))) (if skip (assoc state "skip" false "i" (inc (get state "i"))) (if (and (= (type-of arg) "keyword") (< (inc (get state "i")) (len args))) (let ((attr-name (keyword-name arg)) (attr-expr (nth args (inc (get state "i"))))) (cond (starts-with? attr-name "on-") (let ((attr-val (trampoline (eval-expr attr-expr env)))) (when (callable? attr-val) (dom-on el (slice attr-name 3) attr-val))) (= attr-name "bind") (let ((attr-val (trampoline (eval-expr attr-expr env)))) (when (signal? attr-val) (bind-input el attr-val))) (= attr-name "ref") (let ((attr-val (trampoline (eval-expr attr-expr env)))) (dict-set! attr-val "current" el)) (= attr-name "key") (let ((attr-val (trampoline (eval-expr attr-expr env)))) (dom-set-attr el "key" (str attr-val))) (island-scope?) (reactive-attr el attr-name (fn () (trampoline (eval-expr attr-expr env)))) :else (let ((attr-val (trampoline (eval-expr attr-expr env)))) (cond (or (nil? attr-val) (= attr-val false)) nil (contains? BOOLEAN_ATTRS attr-name) (when attr-val (dom-set-attr el attr-name "")) (= attr-val true) (dom-set-attr el attr-name "") :else (dom-set-attr el attr-name (str attr-val))))) (assoc state "skip" true "i" (inc (get state "i")))) (do (when (not (contains? VOID_ELEMENTS tag)) (let ((child (render-to-dom arg env new-ns))) (cond (and (spread? child) (island-scope?)) (reactive-spread el (fn () (render-to-dom arg env new-ns))) (spread? child) nil :else (dom-append el child)))) (assoc state "i" (inc (get state "i")))))))) (dict "i" 0 "skip" false) args) (for-each (fn (spread-dict) (for-each (fn ((key :as string)) (let ((val (dict-get spread-dict key))) (if (= key "class") (let ((existing (dom-get-attr el "class"))) (dom-set-attr el "class" (if (and existing (not (= existing ""))) (str existing " " val) val))) (if (= key "style") (let ((existing (dom-get-attr el "style"))) (dom-set-attr el "style" (if (and existing (not (= existing ""))) (str existing ";" val) val))) (dom-set-attr el key (str val)))))) (keys spread-dict))) (scope-emitted "element-attrs")) (scope-pop! "element-attrs") el))) +(define + render-dom-element + :effects (render) + (fn + ((tag :as string) (args :as list) (env :as dict) (ns :as string)) + (let + ((new-ns (cond (= tag "svg") SVG_NS (= tag "math") MATH_NS :else ns)) + (el (dom-create-element tag new-ns))) + (scope-push! "element-attrs" nil) + (reduce + (fn + (state arg) + (let + ((skip (get state "skip"))) + (if + skip + (assoc state "skip" false "i" (inc (get state "i"))) + (if + (and + (= (type-of arg) "keyword") + (< (inc (get state "i")) (len args))) + (let + ((attr-name (keyword-name arg)) + (attr-expr (nth args (inc (get state "i"))))) + (cond + (starts-with? attr-name "on-") + (let + ((attr-val (trampoline (eval-expr attr-expr env)))) + (when + (callable? attr-val) + (dom-on el (slice attr-name 3) attr-val))) + (= attr-name "bind") + (let + ((attr-val (trampoline (eval-expr attr-expr env)))) + (when (signal? attr-val) (bind-input el attr-val))) + (= attr-name "ref") + (let + ((attr-val (trampoline (eval-expr attr-expr env)))) + (dict-set! attr-val "current" el)) + (= attr-name "key") + (let + ((attr-val (trampoline (eval-expr attr-expr env)))) + (dom-set-attr el "key" (str attr-val))) + (island-scope?) + (reactive-attr + el + attr-name + (fn () (trampoline (eval-expr attr-expr env)))) + :else (let + ((attr-val (trampoline (eval-expr attr-expr env)))) + (cond + (or (nil? attr-val) (= attr-val false)) + nil + (contains? BOOLEAN_ATTRS attr-name) + (when attr-val (dom-set-attr el attr-name "")) + (= attr-val true) + (dom-set-attr el attr-name "") + :else (dom-set-attr el attr-name (str attr-val))))) + (assoc state "skip" true "i" (inc (get state "i")))) + (do + (when + (not (contains? VOID_ELEMENTS tag)) + (let + ((child (render-to-dom arg env new-ns))) + (cond + (and (spread? child) (island-scope?)) + (reactive-spread + el + (fn () (render-to-dom arg env new-ns))) + (spread? child) + nil + :else (dom-append el child)))) + (assoc state "i" (inc (get state "i")))))))) + (dict "i" 0 "skip" false) + args) + (for-each + (fn + (spread-dict) + (for-each + (fn + ((key :as string)) + (let + ((val (dict-get spread-dict key))) + (if + (= key "class") + (let + ((existing (dom-get-attr el "class"))) + (dom-set-attr + el + "class" + (if + (and existing (not (= existing ""))) + (str existing " " val) + val))) + (if + (= key "style") + (let + ((existing (dom-get-attr el "style"))) + (dom-set-attr + el + "style" + (if + (and existing (not (= existing ""))) + (str existing ";" val) + val))) + (dom-set-attr el key (str val)))))) + (keys spread-dict))) + (scope-emitted "element-attrs")) + (scope-pop! "element-attrs") + el))) -(define render-dom-component :effects (render) (fn ((comp :as component) (args :as list) (env :as dict) (ns :as string)) (let ((kwargs (dict)) (children (list))) (reduce (fn (state arg) (let ((skip (get state "skip"))) (if skip (assoc state "skip" false "i" (inc (get state "i"))) (if (and (= (type-of arg) "keyword") (< (inc (get state "i")) (len args))) (let ((val (trampoline (eval-expr (nth args (inc (get state "i"))) env)))) (dict-set! kwargs (keyword-name arg) val) (assoc state "skip" true "i" (inc (get state "i")))) (do (append! children arg) (assoc state "i" (inc (get state "i")))))))) (dict "i" 0 "skip" false) args) (let ((local (env-merge (component-closure comp) env))) (for-each (fn (p) (env-bind! local p (if (dict-has? kwargs p) (dict-get kwargs p) nil))) (component-params comp)) (when (component-has-children? comp) (let ((child-frag (create-fragment))) (for-each (fn (c) (let ((result (render-to-dom c env ns))) (when (not (spread? result)) (dom-append child-frag result)))) children) (env-bind! local "children" child-frag))) (render-to-dom (component-body comp) local ns))))) +(define + render-dom-component + :effects (render) + (fn + ((comp :as component) (args :as list) (env :as dict) (ns :as string)) + (let + ((kwargs (dict)) (children (list))) + (reduce + (fn + (state arg) + (let + ((skip (get state "skip"))) + (if + skip + (assoc state "skip" false "i" (inc (get state "i"))) + (if + (and + (= (type-of arg) "keyword") + (< (inc (get state "i")) (len args))) + (let + ((val (trampoline (eval-expr (nth args (inc (get state "i"))) env)))) + (dict-set! kwargs (keyword-name arg) val) + (assoc state "skip" true "i" (inc (get state "i")))) + (do + (append! children arg) + (assoc state "i" (inc (get state "i")))))))) + (dict "i" 0 "skip" false) + args) + (let + ((local (env-merge (component-closure comp) env))) + (for-each + (fn + (p) + (env-bind! + local + p + (if (dict-has? kwargs p) (dict-get kwargs p) nil))) + (component-params comp)) + (when + (component-has-children? comp) + (let + ((child-frag (create-fragment))) + (for-each + (fn + (c) + (let + ((result (render-to-dom c env ns))) + (when + (not (spread? result)) + (dom-append child-frag result)))) + children) + (env-bind! local "children" child-frag))) + (render-to-dom (component-body comp) local ns))))) -(define render-dom-fragment :effects (render) (fn ((args :as list) (env :as dict) (ns :as string)) (let ((frag (create-fragment))) (for-each (fn (x) (let ((result (render-to-dom x env ns))) (when (not (spread? result)) (dom-append frag result)))) args) frag))) +(define + render-dom-fragment + :effects (render) + (fn + ((args :as list) (env :as dict) (ns :as string)) + (let + ((frag (create-fragment))) + (for-each + (fn + (x) + (let + ((result (render-to-dom x env ns))) + (when (not (spread? result)) (dom-append frag result)))) + args) + frag))) -(define render-dom-raw :effects (render) (fn ((args :as list) (env :as dict)) (let ((frag (create-fragment))) (for-each (fn (arg) (let ((val (trampoline (eval-expr arg env)))) (cond (= (type-of val) "string") (dom-append frag (dom-parse-html val)) (= (type-of val) "dom-node") (dom-append frag (dom-clone val)) (not (nil? val)) (dom-append frag (create-text-node (str val)))))) args) frag))) +(define + render-dom-raw + :effects (render) + (fn + ((args :as list) (env :as dict)) + (let + ((frag (create-fragment))) + (for-each + (fn + (arg) + (let + ((val (trampoline (eval-expr arg env)))) + (cond + (= (type-of val) "string") + (dom-append frag (dom-parse-html val)) + (= (type-of val) "dom-node") + (dom-append frag (dom-clone val)) + (not (nil? val)) + (dom-append frag (create-text-node (str val)))))) + args) + frag))) -(define render-dom-unknown-component :effects (render) (fn ((name :as string)) (error (str "Unknown component: " name)))) +(define + render-dom-unknown-component + :effects (render) + (fn ((name :as string)) (error (str "Unknown component: " name)))) -(define RENDER_DOM_FORMS (list "if" "when" "cond" "case" "let" "let*" "letrec" "begin" "do" "define" "defcomp" "defisland" "defmacro" "defstyle" "map" "map-indexed" "filter" "for-each" "portal" "error-boundary" "scope" "provide" "cyst")) +(define + RENDER_DOM_FORMS + (list + "if" + "when" + "cond" + "case" + "let" + "let*" + "letrec" + "begin" + "do" + "define" + "defcomp" + "defisland" + "defmacro" + "defstyle" + "map" + "map-indexed" + "filter" + "for-each" + "portal" + "error-boundary" + "scope" + "provide" + "cyst")) -(define render-dom-form? :effects () (fn ((name :as string)) (contains? RENDER_DOM_FORMS name))) +(define + render-dom-form? + :effects () + (fn ((name :as string)) (contains? RENDER_DOM_FORMS name))) -(define dispatch-render-form :effects (render) (fn ((name :as string) expr (env :as dict) (ns :as string)) (cond (= name "if") (if (island-scope?) (let ((marker (create-comment "r-if")) (current-nodes (list)) (initial-result nil)) (effect (fn () (let ((result (let ((cond-val (trampoline (eval-expr (nth expr 1) env)))) (if cond-val (render-to-dom (nth expr 2) env ns) (if (> (len expr) 3) (render-to-dom (nth expr 3) env ns) (create-fragment)))))) (if (dom-parent marker) (do (for-each (fn (n) (dom-remove n)) current-nodes) (set! current-nodes (if (dom-is-fragment? result) (dom-child-nodes result) (list result))) (dom-insert-after marker result)) (set! initial-result result))))) (if (spread? initial-result) initial-result (let ((frag (create-fragment))) (dom-append frag marker) (when initial-result (set! current-nodes (if (dom-is-fragment? initial-result) (dom-child-nodes initial-result) (list initial-result))) (dom-append frag initial-result)) frag))) (let ((cond-val (trampoline (eval-expr (nth expr 1) env)))) (if cond-val (render-to-dom (nth expr 2) env ns) (if (> (len expr) 3) (render-to-dom (nth expr 3) env ns) (create-fragment))))) (= name "when") (if (island-scope?) (let ((marker (create-comment "r-when")) (current-nodes (list)) (initial-result nil)) (effect (fn () (if (dom-parent marker) (do (for-each (fn (n) (dom-remove n)) current-nodes) (set! current-nodes (list)) (when (trampoline (eval-expr (nth expr 1) env)) (let ((frag (create-fragment))) (for-each (fn (i) (dom-append frag (render-to-dom (nth expr i) env ns))) (range 2 (len expr))) (set! current-nodes (dom-child-nodes frag)) (dom-insert-after marker frag)))) (when (trampoline (eval-expr (nth expr 1) env)) (let ((frag (create-fragment))) (for-each (fn (i) (dom-append frag (render-to-dom (nth expr i) env ns))) (range 2 (len expr))) (set! current-nodes (dom-child-nodes frag)) (set! initial-result frag)))))) (if (spread? initial-result) initial-result (let ((frag (create-fragment))) (dom-append frag marker) (when initial-result (dom-append frag initial-result)) frag))) (if (not (trampoline (eval-expr (nth expr 1) env))) (create-fragment) (let ((frag (create-fragment))) (for-each (fn (i) (dom-append frag (render-to-dom (nth expr i) env ns))) (range 2 (len expr))) frag))) (= name "cond") (if (island-scope?) (let ((marker (create-comment "r-cond")) (current-nodes (list)) (initial-result nil)) (effect (fn () (let ((branch (eval-cond (rest expr) env))) (if (dom-parent marker) (do (for-each (fn (n) (dom-remove n)) current-nodes) (set! current-nodes (list)) (when branch (let ((result (render-to-dom branch env ns))) (set! current-nodes (if (dom-is-fragment? result) (dom-child-nodes result) (list result))) (dom-insert-after marker result)))) (when branch (let ((result (render-to-dom branch env ns))) (set! current-nodes (if (dom-is-fragment? result) (dom-child-nodes result) (list result))) (set! initial-result result))))))) (if (spread? initial-result) initial-result (let ((frag (create-fragment))) (dom-append frag marker) (when initial-result (dom-append frag initial-result)) frag))) (let ((branch (eval-cond (rest expr) env))) (if branch (render-to-dom branch env ns) (create-fragment)))) (= name "case") (render-to-dom (trampoline (eval-expr expr env)) env ns) (or (= name "let") (= name "let*")) (let ((local (process-bindings (nth expr 1) env))) (if (= (len expr) 3) (render-to-dom (nth expr 2) local ns) (let ((frag (create-fragment))) (for-each (fn (i) (let ((result (render-to-dom (nth expr i) local ns))) (when (not (spread? result)) (dom-append frag result)))) (range 2 (len expr))) frag))) (= name "letrec") (let ((bindings (nth expr 1)) (body (slice expr 2)) (local (env-extend env))) (for-each (fn (pair) (let ((pname (if (= (type-of (first pair)) "symbol") (symbol-name (first pair)) (str (first pair))))) (env-bind! local pname nil))) bindings) (for-each (fn (pair) (let ((pname (if (= (type-of (first pair)) "symbol") (symbol-name (first pair)) (str (first pair))))) (env-set! local pname (trampoline (eval-expr (nth pair 1) local))))) bindings) (when (> (len body) 1) (for-each (fn (e) (trampoline (eval-expr e local))) (init body))) (render-to-dom (last body) local ns)) (or (= name "begin") (= name "do")) (if (= (len expr) 2) (render-to-dom (nth expr 1) env ns) (let ((frag (create-fragment))) (for-each (fn (i) (let ((result (render-to-dom (nth expr i) env ns))) (when (not (spread? result)) (dom-append frag result)))) (range 1 (len expr))) frag)) (definition-form? name) (do (trampoline (eval-expr expr env)) (create-fragment)) (= name "map") (let ((coll-expr (nth expr 2))) (if (and (island-scope?) (= (type-of coll-expr) "list") (> (len coll-expr) 1) (= (type-of (first coll-expr)) "symbol") (= (symbol-name (first coll-expr)) "deref")) (let ((f (trampoline (eval-expr (nth expr 1) env))) (sig (trampoline (eval-expr (nth coll-expr 1) env)))) (if (signal? sig) (reactive-list f sig env ns) (let ((coll (deref sig)) (frag (create-fragment))) (for-each (fn (item) (let ((val (if (lambda? f) (render-lambda-dom f (list item) env ns) (render-to-dom (apply f (list item)) env ns)))) (dom-append frag val))) coll) frag))) (let ((f (trampoline (eval-expr (nth expr 1) env))) (coll (trampoline (eval-expr (nth expr 2) env))) (frag (create-fragment))) (for-each (fn (item) (let ((val (if (lambda? f) (render-lambda-dom f (list item) env ns) (render-to-dom (apply f (list item)) env ns)))) (dom-append frag val))) coll) frag))) (= name "map-indexed") (let ((f (trampoline (eval-expr (nth expr 1) env))) (coll (trampoline (eval-expr (nth expr 2) env))) (frag (create-fragment))) (for-each-indexed (fn (i item) (let ((val (if (lambda? f) (render-lambda-dom f (list i item) env ns) (render-to-dom (apply f (list i item)) env ns)))) (dom-append frag val))) coll) frag) (= name "filter") (render-to-dom (trampoline (eval-expr expr env)) env ns) (= name "portal") (render-dom-portal (rest expr) env ns) (= name "error-boundary") (render-dom-error-boundary (rest expr) env ns) (= name "for-each") (let ((f (trampoline (eval-expr (nth expr 1) env))) (coll (trampoline (eval-expr (nth expr 2) env))) (frag (create-fragment))) (for-each (fn (item) (let ((val (if (lambda? f) (render-lambda-dom f (list item) env ns) (render-to-dom (apply f (list item)) env ns)))) (dom-append frag val))) coll) frag) (= name "scope") (let ((scope-name (trampoline (eval-expr (nth expr 1) env))) (rest-args (slice expr 2)) (scope-val nil) (body-exprs nil) (frag (create-fragment))) (if (and (>= (len rest-args) 2) (= (type-of (first rest-args)) "keyword") (= (keyword-name (first rest-args)) "value")) (do (set! scope-val (trampoline (eval-expr (nth rest-args 1) env))) (set! body-exprs (slice rest-args 2))) (set! body-exprs rest-args)) (scope-push! scope-name scope-val) (for-each (fn (e) (dom-append frag (render-to-dom e env ns))) body-exprs) (scope-pop! scope-name) frag) (= name "provide") (let ((prov-name (trampoline (eval-expr (nth expr 1) env))) (prov-val (trampoline (eval-expr (nth expr 2) env))) (frag (create-fragment))) (scope-push! prov-name prov-val) (for-each (fn (i) (dom-append frag (render-to-dom (nth expr i) env ns))) (range 3 (len expr))) (scope-pop! prov-name) frag) (= name "cyst") (let ((cyst-key (if (and (> (len expr) 2) (= (type-of (nth expr 1)) "keyword") (= (keyword-name (nth expr 1)) "key")) (str (trampoline (eval-expr (nth expr 2) env))) (next-cyst-id))) (cached (get *memo-cache* cyst-key))) (if (and cached (host-get cached "isConnected")) cached (let ((container (dom-create-element "div" nil)) (disposers (list)) (body-exprs (if (and (> (len expr) 2) (= (type-of (nth expr 1)) "keyword") (= (keyword-name (nth expr 1)) "key")) (slice expr 3) (slice expr 1)))) (dom-set-attr container "data-sx-cyst" cyst-key) (let ((body-dom (with-island-scope (fn (d) (append! disposers d)) (fn () (let ((frag (create-fragment))) (for-each (fn (child) (dom-append frag (render-to-dom child env ns))) body-exprs) frag))))) (dom-append container body-dom) (dom-set-data container "sx-disposers" disposers) (dict-set! *memo-cache* cyst-key container) container)))) :else (render-to-dom (trampoline (eval-expr expr env)) env ns)))) +(define + dispatch-render-form + :effects (render) + (fn + ((name :as string) expr (env :as dict) (ns :as string)) + (cond + (= name "if") + (if + (island-scope?) + (let + ((marker (create-comment "r-if")) + (current-nodes (list)) + (initial-result nil)) + (effect + (fn + () + (let + ((result (let ((cond-val (trampoline (eval-expr (nth expr 1) env)))) (if cond-val (render-to-dom (nth expr 2) env ns) (if (> (len expr) 3) (render-to-dom (nth expr 3) env ns) (create-fragment)))))) + (if + (dom-parent marker) + (do + (for-each (fn (n) (dom-remove n)) current-nodes) + (set! + current-nodes + (if + (dom-is-fragment? result) + (dom-child-nodes result) + (list result))) + (dom-insert-after marker result)) + (set! initial-result result))))) + (if + (spread? initial-result) + initial-result + (let + ((frag (create-fragment))) + (dom-append frag marker) + (when + initial-result + (set! + current-nodes + (if + (dom-is-fragment? initial-result) + (dom-child-nodes initial-result) + (list initial-result))) + (dom-append frag initial-result)) + frag))) + (let + ((cond-val (trampoline (eval-expr (nth expr 1) env)))) + (if + cond-val + (render-to-dom (nth expr 2) env ns) + (if + (> (len expr) 3) + (render-to-dom (nth expr 3) env ns) + (create-fragment))))) + (= name "when") + (if + (island-scope?) + (let + ((marker (create-comment "r-when")) + (current-nodes (list)) + (initial-result nil)) + (effect + (fn + () + (if + (dom-parent marker) + (do + (for-each (fn (n) (dom-remove n)) current-nodes) + (set! current-nodes (list)) + (when + (trampoline (eval-expr (nth expr 1) env)) + (let + ((frag (create-fragment))) + (for-each + (fn + (i) + (dom-append + frag + (render-to-dom (nth expr i) env ns))) + (range 2 (len expr))) + (set! current-nodes (dom-child-nodes frag)) + (dom-insert-after marker frag)))) + (when + (trampoline (eval-expr (nth expr 1) env)) + (let + ((frag (create-fragment))) + (for-each + (fn + (i) + (dom-append frag (render-to-dom (nth expr i) env ns))) + (range 2 (len expr))) + (set! current-nodes (dom-child-nodes frag)) + (set! initial-result frag)))))) + (if + (spread? initial-result) + initial-result + (let + ((frag (create-fragment))) + (dom-append frag marker) + (when initial-result (dom-append frag initial-result)) + frag))) + (if + (not (trampoline (eval-expr (nth expr 1) env))) + (create-fragment) + (let + ((frag (create-fragment))) + (for-each + (fn + (i) + (dom-append frag (render-to-dom (nth expr i) env ns))) + (range 2 (len expr))) + frag))) + (= name "cond") + (if + (island-scope?) + (let + ((marker (create-comment "r-cond")) + (current-nodes (list)) + (initial-result nil)) + (effect + (fn + () + (let + ((branch (eval-cond (rest expr) env))) + (if + (dom-parent marker) + (do + (for-each (fn (n) (dom-remove n)) current-nodes) + (set! current-nodes (list)) + (when + branch + (let + ((result (render-to-dom branch env ns))) + (set! + current-nodes + (if + (dom-is-fragment? result) + (dom-child-nodes result) + (list result))) + (dom-insert-after marker result)))) + (when + branch + (let + ((result (render-to-dom branch env ns))) + (set! + current-nodes + (if + (dom-is-fragment? result) + (dom-child-nodes result) + (list result))) + (set! initial-result result))))))) + (if + (spread? initial-result) + initial-result + (let + ((frag (create-fragment))) + (dom-append frag marker) + (when initial-result (dom-append frag initial-result)) + frag))) + (let + ((branch (eval-cond (rest expr) env))) + (if branch (render-to-dom branch env ns) (create-fragment)))) + (= name "case") + (render-to-dom (trampoline (eval-expr expr env)) env ns) + (or (= name "let") (= name "let*")) + (let + ((local (process-bindings (nth expr 1) env))) + (if + (= (len expr) 3) + (render-to-dom (nth expr 2) local ns) + (let + ((frag (create-fragment))) + (for-each + (fn + (i) + (let + ((result (render-to-dom (nth expr i) local ns))) + (when (not (spread? result)) (dom-append frag result)))) + (range 2 (len expr))) + frag))) + (= name "letrec") + (let + ((bindings (nth expr 1)) + (body (slice expr 2)) + (local (env-extend env))) + (for-each + (fn + (pair) + (let + ((pname (if (= (type-of (first pair)) "symbol") (symbol-name (first pair)) (str (first pair))))) + (env-bind! local pname nil))) + bindings) + (for-each + (fn + (pair) + (let + ((pname (if (= (type-of (first pair)) "symbol") (symbol-name (first pair)) (str (first pair))))) + (env-set! + local + pname + (trampoline (eval-expr (nth pair 1) local))))) + bindings) + (when + (> (len body) 1) + (for-each (fn (e) (trampoline (eval-expr e local))) (init body))) + (render-to-dom (last body) local ns)) + (or (= name "begin") (= name "do")) + (if + (= (len expr) 2) + (render-to-dom (nth expr 1) env ns) + (let + ((frag (create-fragment))) + (for-each + (fn + (i) + (let + ((result (render-to-dom (nth expr i) env ns))) + (when (not (spread? result)) (dom-append frag result)))) + (range 1 (len expr))) + frag)) + (definition-form? name) + (do (trampoline (eval-expr expr env)) (create-fragment)) + (= name "map") + (let + ((coll-expr (nth expr 2))) + (if + (and + (island-scope?) + (= (type-of coll-expr) "list") + (> (len coll-expr) 1) + (= (type-of (first coll-expr)) "symbol") + (= (symbol-name (first coll-expr)) "deref")) + (let + ((f (trampoline (eval-expr (nth expr 1) env))) + (sig (trampoline (eval-expr (nth coll-expr 1) env)))) + (if + (signal? sig) + (reactive-list f sig env ns) + (let + ((coll (deref sig)) (frag (create-fragment))) + (for-each + (fn + (item) + (let + ((val (if (lambda? f) (render-lambda-dom f (list item) env ns) (render-to-dom (apply f (list item)) env ns)))) + (dom-append frag val))) + coll) + frag))) + (let + ((f (trampoline (eval-expr (nth expr 1) env))) + (coll (trampoline (eval-expr (nth expr 2) env))) + (frag (create-fragment))) + (for-each + (fn + (item) + (let + ((val (if (lambda? f) (render-lambda-dom f (list item) env ns) (render-to-dom (apply f (list item)) env ns)))) + (dom-append frag val))) + coll) + frag))) + (= name "map-indexed") + (let + ((f (trampoline (eval-expr (nth expr 1) env))) + (coll (trampoline (eval-expr (nth expr 2) env))) + (frag (create-fragment))) + (for-each-indexed + (fn + (i item) + (let + ((val (if (lambda? f) (render-lambda-dom f (list i item) env ns) (render-to-dom (apply f (list i item)) env ns)))) + (dom-append frag val))) + coll) + frag) + (= name "filter") + (render-to-dom (trampoline (eval-expr expr env)) env ns) + (= name "portal") + (render-dom-portal (rest expr) env ns) + (= name "error-boundary") + (render-dom-error-boundary (rest expr) env ns) + (= name "for-each") + (let + ((f (trampoline (eval-expr (nth expr 1) env))) + (coll (trampoline (eval-expr (nth expr 2) env))) + (frag (create-fragment))) + (for-each + (fn + (item) + (let + ((val (if (lambda? f) (render-lambda-dom f (list item) env ns) (render-to-dom (apply f (list item)) env ns)))) + (dom-append frag val))) + coll) + frag) + (= name "scope") + (let + ((scope-name (trampoline (eval-expr (nth expr 1) env))) + (rest-args (slice expr 2)) + (scope-val nil) + (body-exprs nil) + (frag (create-fragment))) + (if + (and + (>= (len rest-args) 2) + (= (type-of (first rest-args)) "keyword") + (= (keyword-name (first rest-args)) "value")) + (do + (set! scope-val (trampoline (eval-expr (nth rest-args 1) env))) + (set! body-exprs (slice rest-args 2))) + (set! body-exprs rest-args)) + (scope-push! scope-name scope-val) + (for-each + (fn (e) (dom-append frag (render-to-dom e env ns))) + body-exprs) + (scope-pop! scope-name) + frag) + (= name "provide") + (let + ((prov-name (trampoline (eval-expr (nth expr 1) env))) + (prov-val (trampoline (eval-expr (nth expr 2) env))) + (frag (create-fragment))) + (scope-push! prov-name prov-val) + (for-each + (fn (i) (dom-append frag (render-to-dom (nth expr i) env ns))) + (range 3 (len expr))) + (scope-pop! prov-name) + frag) + (= name "cyst") + (let + ((cyst-key (if (and (> (len expr) 2) (= (type-of (nth expr 1)) "keyword") (= (keyword-name (nth expr 1)) "key")) (str (trampoline (eval-expr (nth expr 2) env))) (next-cyst-id))) + (cached (get *memo-cache* cyst-key))) + (if + (and cached (host-get cached "isConnected")) + cached + (let + ((container (dom-create-element "div" nil)) + (disposers (list)) + (body-exprs + (if + (and + (> (len expr) 2) + (= (type-of (nth expr 1)) "keyword") + (= (keyword-name (nth expr 1)) "key")) + (slice expr 3) + (slice expr 1)))) + (dom-set-attr container "data-sx-cyst" cyst-key) + (let + ((body-dom (with-island-scope (fn (d) (append! disposers d)) (fn () (let ((frag (create-fragment))) (for-each (fn (child) (dom-append frag (render-to-dom child env ns))) body-exprs) frag))))) + (dom-append container body-dom) + (dom-set-data container "sx-disposers" disposers) + (dict-set! *memo-cache* cyst-key container) + container)))) + :else (render-to-dom (trampoline (eval-expr expr env)) env ns)))) -(define render-lambda-dom :effects (render) (fn ((f :as lambda) (args :as list) (env :as dict) (ns :as string)) (let ((local (env-merge (lambda-closure f) env))) (for-each-indexed (fn (i p) (env-bind! local p (nth args i))) (lambda-params f)) (render-to-dom (lambda-body f) local ns)))) +(define + render-lambda-dom + :effects (render) + (fn + ((f :as lambda) (args :as list) (env :as dict) (ns :as string)) + (let + ((local (env-merge (lambda-closure f) env))) + (for-each-indexed + (fn (i p) (env-bind! local p (nth args i))) + (lambda-params f)) + (render-to-dom (lambda-body f) local ns)))) -(define render-dom-island :effects (render mutation) (fn ((island :as island) (args :as list) (env :as dict) (ns :as string)) (let ((kwargs (dict)) (children (list))) (reduce (fn (state arg) (let ((skip (get state "skip"))) (if skip (assoc state "skip" false "i" (inc (get state "i"))) (if (and (= (type-of arg) "keyword") (< (inc (get state "i")) (len args))) (let ((val (trampoline (eval-expr (nth args (inc (get state "i"))) env)))) (dict-set! kwargs (keyword-name arg) val) (assoc state "skip" true "i" (inc (get state "i")))) (do (append! children arg) (assoc state "i" (inc (get state "i")))))))) (dict "i" 0 "skip" false) args) (let ((local (env-merge (component-closure island) env)) (island-name (component-name island))) (for-each (fn (p) (env-bind! local p (if (dict-has? kwargs p) (dict-get kwargs p) nil))) (component-params island)) (when (component-has-children? island) (let ((child-frag (create-fragment))) (for-each (fn (c) (dom-append child-frag (render-to-dom c env ns))) children) (env-bind! local "children" child-frag))) (let ((container (dom-create-element "span" nil)) (disposers (list))) (dom-set-attr container "data-sx-island" island-name) (mark-processed! container "island-hydrated") (let ((body-dom (with-island-scope (fn (disposable) (append! disposers disposable)) (fn () (render-to-dom (component-body island) local ns))))) (dom-append container body-dom) (dom-set-data container "sx-disposers" disposers) container)))))) +(define + render-dom-island + :effects (render mutation) + (fn + ((island :as island) (args :as list) (env :as dict) (ns :as string)) + (let + ((kwargs (dict)) (children (list))) + (reduce + (fn + (state arg) + (let + ((skip (get state "skip"))) + (if + skip + (assoc state "skip" false "i" (inc (get state "i"))) + (if + (and + (= (type-of arg) "keyword") + (< (inc (get state "i")) (len args))) + (let + ((val (trampoline (eval-expr (nth args (inc (get state "i"))) env)))) + (dict-set! kwargs (keyword-name arg) val) + (assoc state "skip" true "i" (inc (get state "i")))) + (do + (append! children arg) + (assoc state "i" (inc (get state "i")))))))) + (dict "i" 0 "skip" false) + args) + (let + ((local (env-merge (component-closure island) env)) + (island-name (component-name island))) + (for-each + (fn + (p) + (env-bind! + local + p + (if (dict-has? kwargs p) (dict-get kwargs p) nil))) + (component-params island)) + (when + (component-has-children? island) + (let + ((child-frag (create-fragment))) + (for-each + (fn (c) (dom-append child-frag (render-to-dom c env ns))) + children) + (env-bind! local "children" child-frag))) + (let + ((container (dom-create-element "span" nil)) (disposers (list))) + (begin + (dom-set-attr container "data-sx-island" island-name) + (when + (not (empty-dict? kwargs)) + (dom-set-attr container "data-sx-state" (sx-serialize kwargs)))) + (mark-processed! container "island-hydrated") + (let + ((body-dom (with-island-scope (fn (disposable) (append! disposers disposable)) (fn () (render-to-dom (component-body island) local ns))))) + (dom-append container body-dom) + (dom-set-data container "sx-disposers" disposers) + container)))))) -(define render-dom-lake :effects (render) (fn ((args :as list) (env :as dict) (ns :as string)) (let ((lake-id nil) (lake-tag "div") (children (list))) (reduce (fn (state arg) (let ((skip (get state "skip"))) (if skip (assoc state "skip" false "i" (inc (get state "i"))) (if (and (= (type-of arg) "keyword") (< (inc (get state "i")) (len args))) (let ((kname (keyword-name arg)) (kval (trampoline (eval-expr (nth args (inc (get state "i"))) env)))) (cond (= kname "id") (set! lake-id kval) (= kname "tag") (set! lake-tag kval)) (assoc state "skip" true "i" (inc (get state "i")))) (do (append! children arg) (assoc state "i" (inc (get state "i")))))))) (dict "i" 0 "skip" false) args) (let ((el (dom-create-element lake-tag nil))) (dom-set-attr el "data-sx-lake" (or lake-id "")) (for-each (fn (c) (dom-append el (render-to-dom c env ns))) children) el)))) +(define + render-dom-lake + :effects (render) + (fn + ((args :as list) (env :as dict) (ns :as string)) + (let + ((lake-id nil) (lake-tag "div") (children (list))) + (reduce + (fn + (state arg) + (let + ((skip (get state "skip"))) + (if + skip + (assoc state "skip" false "i" (inc (get state "i"))) + (if + (and + (= (type-of arg) "keyword") + (< (inc (get state "i")) (len args))) + (let + ((kname (keyword-name arg)) + (kval + (trampoline + (eval-expr (nth args (inc (get state "i"))) env)))) + (cond + (= kname "id") + (set! lake-id kval) + (= kname "tag") + (set! lake-tag kval)) + (assoc state "skip" true "i" (inc (get state "i")))) + (do + (append! children arg) + (assoc state "i" (inc (get state "i")))))))) + (dict "i" 0 "skip" false) + args) + (let + ((el (dom-create-element lake-tag nil))) + (dom-set-attr el "data-sx-lake" (or lake-id "")) + (for-each + (fn (c) (dom-append el (render-to-dom c env ns))) + children) + el)))) -(define render-dom-marsh :effects (render) (fn ((args :as list) (env :as dict) (ns :as string)) (let ((marsh-id nil) (marsh-tag "div") (marsh-transform nil) (children (list))) (reduce (fn (state arg) (let ((skip (get state "skip"))) (if skip (assoc state "skip" false "i" (inc (get state "i"))) (if (and (= (type-of arg) "keyword") (< (inc (get state "i")) (len args))) (let ((kname (keyword-name arg)) (kval (trampoline (eval-expr (nth args (inc (get state "i"))) env)))) (cond (= kname "id") (set! marsh-id kval) (= kname "tag") (set! marsh-tag kval) (= kname "transform") (set! marsh-transform kval)) (assoc state "skip" true "i" (inc (get state "i")))) (do (append! children arg) (assoc state "i" (inc (get state "i")))))))) (dict "i" 0 "skip" false) args) (let ((el (dom-create-element marsh-tag nil))) (dom-set-attr el "data-sx-marsh" (or marsh-id "")) (when marsh-transform (dom-set-data el "sx-marsh-transform" marsh-transform)) (dom-set-data el "sx-marsh-env" env) (for-each (fn (c) (dom-append el (render-to-dom c env ns))) children) el)))) +(define + render-dom-marsh + :effects (render) + (fn + ((args :as list) (env :as dict) (ns :as string)) + (let + ((marsh-id nil) + (marsh-tag "div") + (marsh-transform nil) + (children (list))) + (reduce + (fn + (state arg) + (let + ((skip (get state "skip"))) + (if + skip + (assoc state "skip" false "i" (inc (get state "i"))) + (if + (and + (= (type-of arg) "keyword") + (< (inc (get state "i")) (len args))) + (let + ((kname (keyword-name arg)) + (kval + (trampoline + (eval-expr (nth args (inc (get state "i"))) env)))) + (cond + (= kname "id") + (set! marsh-id kval) + (= kname "tag") + (set! marsh-tag kval) + (= kname "transform") + (set! marsh-transform kval)) + (assoc state "skip" true "i" (inc (get state "i")))) + (do + (append! children arg) + (assoc state "i" (inc (get state "i")))))))) + (dict "i" 0 "skip" false) + args) + (let + ((el (dom-create-element marsh-tag nil))) + (dom-set-attr el "data-sx-marsh" (or marsh-id "")) + (when + marsh-transform + (dom-set-data el "sx-marsh-transform" marsh-transform)) + (dom-set-data el "sx-marsh-env" env) + (for-each + (fn (c) (dom-append el (render-to-dom c env ns))) + children) + el)))) -(define reactive-text :effects (render mutation) (fn (sig) (let ((node (create-text-node (str (deref sig))))) (effect (fn () (dom-set-text-content node (str (deref sig))))) node))) +(define + reactive-text + :effects (render mutation) + (fn + (sig) + (let + ((node (create-text-node (str (deref sig))))) + (effect (fn () (dom-set-text-content node (str (deref sig))))) + node))) -(define reactive-attr :effects (render mutation) (fn (el (attr-name :as string) (compute-fn :as lambda)) (let ((existing (or (dom-get-attr el "data-sx-reactive-attrs") "")) (updated (if (empty? existing) attr-name (str existing "," attr-name)))) (dom-set-attr el "data-sx-reactive-attrs" updated)) (effect (fn () (let ((raw (compute-fn))) (let ((val (if (signal? raw) (deref raw) raw))) (cond (or (nil? val) (= val false)) (dom-remove-attr el attr-name) (= val true) (dom-set-attr el attr-name "") :else (dom-set-attr el attr-name (str val))))))))) +(define + reactive-attr + :effects (render mutation) + (fn + (el (attr-name :as string) (compute-fn :as lambda)) + (let + ((existing (or (dom-get-attr el "data-sx-reactive-attrs") "")) + (updated + (if (empty? existing) attr-name (str existing "," attr-name)))) + (dom-set-attr el "data-sx-reactive-attrs" updated)) + (effect + (fn + () + (let + ((raw (compute-fn))) + (let + ((val (if (signal? raw) (deref raw) raw))) + (cond + (or (nil? val) (= val false)) + (dom-remove-attr el attr-name) + (= val true) + (dom-set-attr el attr-name "") + :else (dom-set-attr el attr-name (str val))))))))) -(define reactive-spread :effects (render mutation) (fn (el (render-fn :as lambda)) (let ((prev-classes (list)) (prev-extra-keys (list))) (let ((existing (or (dom-get-attr el "data-sx-reactive-attrs") ""))) (dom-set-attr el "data-sx-reactive-attrs" (if (empty? existing) "_spread" (str existing ",_spread")))) (effect (fn () (when (not (empty? prev-classes)) (let ((current (or (dom-get-attr el "class") "")) (tokens (filter (fn (c) (not (= c ""))) (split current " "))) (kept (filter (fn (c) (not (some (fn (pc) (= pc c)) prev-classes))) tokens))) (if (empty? kept) (dom-remove-attr el "class") (dom-set-attr el "class" (join " " kept))))) (for-each (fn (k) (dom-remove-attr el k)) prev-extra-keys) (let ((result (render-fn))) (if (spread? result) (let ((attrs (spread-attrs result)) (cls-str (or (dict-get attrs "class") "")) (new-classes (filter (fn (c) (not (= c ""))) (split cls-str " "))) (extra-keys (filter (fn (k) (not (= k "class"))) (keys attrs)))) (set! prev-classes new-classes) (set! prev-extra-keys extra-keys) (when (not (empty? new-classes)) (let ((current (or (dom-get-attr el "class") ""))) (dom-set-attr el "class" (if (and current (not (= current ""))) (str current " " cls-str) cls-str)))) (for-each (fn (k) (dom-set-attr el k (str (dict-get attrs k)))) extra-keys) (run-post-render-hooks)) (do (set! prev-classes (list)) (set! prev-extra-keys (list)))))))))) +(define + reactive-spread + :effects (render mutation) + (fn + (el (render-fn :as lambda)) + (let + ((prev-classes (list)) (prev-extra-keys (list))) + (let + ((existing (or (dom-get-attr el "data-sx-reactive-attrs") ""))) + (dom-set-attr + el + "data-sx-reactive-attrs" + (if (empty? existing) "_spread" (str existing ",_spread")))) + (effect + (fn + () + (when + (not (empty? prev-classes)) + (let + ((current (or (dom-get-attr el "class") "")) + (tokens + (filter (fn (c) (not (= c ""))) (split current " "))) + (kept + (filter + (fn (c) (not (some (fn (pc) (= pc c)) prev-classes))) + tokens))) + (if + (empty? kept) + (dom-remove-attr el "class") + (dom-set-attr el "class" (join " " kept))))) + (for-each (fn (k) (dom-remove-attr el k)) prev-extra-keys) + (let + ((result (render-fn))) + (if + (spread? result) + (let + ((attrs (spread-attrs result)) + (cls-str (or (dict-get attrs "class") "")) + (new-classes + (filter (fn (c) (not (= c ""))) (split cls-str " "))) + (extra-keys + (filter (fn (k) (not (= k "class"))) (keys attrs)))) + (set! prev-classes new-classes) + (set! prev-extra-keys extra-keys) + (when + (not (empty? new-classes)) + (let + ((current (or (dom-get-attr el "class") ""))) + (dom-set-attr + el + "class" + (if + (and current (not (= current ""))) + (str current " " cls-str) + cls-str)))) + (for-each + (fn (k) (dom-set-attr el k (str (dict-get attrs k)))) + extra-keys) + (run-post-render-hooks)) + (do (set! prev-classes (list)) (set! prev-extra-keys (list)))))))))) -(define reactive-fragment :effects (render mutation) (fn ((test-fn :as lambda) (render-fn :as lambda) (env :as dict) (ns :as string)) (let ((marker (create-comment "island-fragment")) (current-nodes (list))) (effect (fn () (for-each (fn (n) (dom-remove n)) current-nodes) (set! current-nodes (list)) (when (test-fn) (let ((frag (render-fn))) (set! current-nodes (dom-child-nodes frag)) (dom-insert-after marker frag))))) marker))) +(define + reactive-fragment + :effects (render mutation) + (fn + ((test-fn :as lambda) + (render-fn :as lambda) + (env :as dict) + (ns :as string)) + (let + ((marker (create-comment "island-fragment")) (current-nodes (list))) + (effect + (fn + () + (for-each (fn (n) (dom-remove n)) current-nodes) + (set! current-nodes (list)) + (when + (test-fn) + (let + ((frag (render-fn))) + (set! current-nodes (dom-child-nodes frag)) + (dom-insert-after marker frag))))) + marker))) -(define render-list-item :effects (render) (fn ((map-fn :as lambda) item (env :as dict) (ns :as string)) (if (lambda? map-fn) (render-lambda-dom map-fn (list item) env ns) (render-to-dom (apply map-fn (list item)) env ns)))) +(define + render-list-item + :effects (render) + (fn + ((map-fn :as lambda) item (env :as dict) (ns :as string)) + (if + (lambda? map-fn) + (render-lambda-dom map-fn (list item) env ns) + (render-to-dom (apply map-fn (list item)) env ns)))) -(define extract-key :effects (render) (fn (node (index :as number)) (let ((k (dom-get-attr node "key"))) (if k (do (dom-remove-attr node "key") k) (let ((dk (dom-get-data node "key"))) (if dk (str dk) (str "__idx_" index))))))) +(define + extract-key + :effects (render) + (fn + (node (index :as number)) + (let + ((k (dom-get-attr node "key"))) + (if + k + (do (dom-remove-attr node "key") k) + (let + ((dk (dom-get-data node "key"))) + (if dk (str dk) (str "__idx_" index))))))) -(define reactive-list :effects (render mutation) (fn ((map-fn :as lambda) (items-sig :as signal) (env :as dict) (ns :as string)) (let ((container (create-fragment)) (marker (create-comment "island-list")) (key-map (dict)) (key-order (list))) (dom-append container marker) (effect (fn () (let ((items (deref items-sig))) (if (dom-parent marker) (let ((new-map (dict)) (new-keys (list)) (has-keys false)) (for-each-indexed (fn (idx item) (let ((rendered (render-list-item map-fn item env ns)) (key (extract-key rendered idx))) (when (and (not has-keys) (not (starts-with? key "__idx_"))) (set! has-keys true)) (if (dict-has? key-map key) (dict-set! new-map key (dict-get key-map key)) (dict-set! new-map key rendered)) (append! new-keys key))) items) (if (not has-keys) (do (dom-remove-children-after marker) (let ((frag (create-fragment))) (for-each (fn (k) (dom-append frag (dict-get new-map k))) new-keys) (dom-insert-after marker frag))) (do (for-each (fn (old-key) (when (not (dict-has? new-map old-key)) (dom-remove (dict-get key-map old-key)))) key-order) (let ((cursor marker)) (for-each (fn (k) (let ((node (dict-get new-map k)) (next (dom-next-sibling cursor))) (when (not (identical? node next)) (dom-insert-after cursor node)) (set! cursor node))) new-keys)))) (set! key-map new-map) (set! key-order new-keys)) (for-each-indexed (fn (idx item) (let ((rendered (render-list-item map-fn item env ns)) (key (extract-key rendered idx))) (dict-set! key-map key rendered) (append! key-order key) (dom-append container rendered))) items))))) container))) +(define + reactive-list + :effects (render mutation) + (fn + ((map-fn :as lambda) + (items-sig :as signal) + (env :as dict) + (ns :as string)) + (let + ((container (create-fragment)) + (marker (create-comment "island-list")) + (key-map (dict)) + (key-order (list))) + (dom-append container marker) + (effect + (fn + () + (let + ((items (deref items-sig))) + (if + (dom-parent marker) + (let + ((new-map (dict)) (new-keys (list)) (has-keys false)) + (for-each-indexed + (fn + (idx item) + (let + ((rendered (render-list-item map-fn item env ns)) + (key (extract-key rendered idx))) + (when + (and + (not has-keys) + (not (starts-with? key "__idx_"))) + (set! has-keys true)) + (if + (dict-has? key-map key) + (dict-set! new-map key (dict-get key-map key)) + (dict-set! new-map key rendered)) + (append! new-keys key))) + items) + (if + (not has-keys) + (do + (dom-remove-children-after marker) + (let + ((frag (create-fragment))) + (for-each + (fn (k) (dom-append frag (dict-get new-map k))) + new-keys) + (dom-insert-after marker frag))) + (do + (for-each + (fn + (old-key) + (when + (not (dict-has? new-map old-key)) + (dom-remove (dict-get key-map old-key)))) + key-order) + (let + ((cursor marker)) + (for-each + (fn + (k) + (let + ((node (dict-get new-map k)) + (next (dom-next-sibling cursor))) + (when + (not (identical? node next)) + (dom-insert-after cursor node)) + (set! cursor node))) + new-keys)))) + (set! key-map new-map) + (set! key-order new-keys)) + (for-each-indexed + (fn + (idx item) + (let + ((rendered (render-list-item map-fn item env ns)) + (key (extract-key rendered idx))) + (dict-set! key-map key rendered) + (append! key-order key) + (dom-append container rendered))) + items))))) + container))) -(define bind-input :effects (render mutation) (fn (el (sig :as signal)) (let ((input-type (lower (or (dom-get-attr el "type") ""))) (is-checkbox (or (= input-type "checkbox") (= input-type "radio")))) (if is-checkbox (dom-set-prop el "checked" (deref sig)) (dom-set-prop el "value" (str (deref sig)))) (effect (fn () (if is-checkbox (dom-set-prop el "checked" (deref sig)) (let ((v (str (deref sig)))) (when (!= (dom-get-prop el "value") v) (dom-set-prop el "value" v)))))) (dom-on el (if is-checkbox "change" "input") (fn (e) (if is-checkbox (reset! sig (dom-get-prop el "checked")) (reset! sig (dom-get-prop el "value")))))))) +(define + bind-input + :effects (render mutation) + (fn + (el (sig :as signal)) + (let + ((input-type (lower (or (dom-get-attr el "type") ""))) + (is-checkbox (or (= input-type "checkbox") (= input-type "radio")))) + (if + is-checkbox + (dom-set-prop el "checked" (deref sig)) + (dom-set-prop el "value" (str (deref sig)))) + (effect + (fn + () + (if + is-checkbox + (dom-set-prop el "checked" (deref sig)) + (let + ((v (str (deref sig)))) + (when + (!= (dom-get-prop el "value") v) + (dom-set-prop el "value" v)))))) + (dom-on + el + (if is-checkbox "change" "input") + (fn + (e) + (if + is-checkbox + (reset! sig (dom-get-prop el "checked")) + (reset! sig (dom-get-prop el "value")))))))) (define *use-cek-reactive* true) (define enable-cek-reactive! (fn () (set! *use-cek-reactive* true))) -(define cek-reactive-text :effects (render mutation) (fn (expr env) (let ((node (create-text-node "")) (update-fn (fn (val) (dom-set-text-content node (str val))))) (let ((initial (cek-run (make-cek-state expr env (list (make-reactive-reset-frame env update-fn true)))))) (dom-set-text-content node (str initial)) node)))) +(define + cek-reactive-text + :effects (render mutation) + (fn + (expr env) + (let + ((node (create-text-node "")) + (update-fn (fn (val) (dom-set-text-content node (str val))))) + (let + ((initial (cek-run (make-cek-state expr env (list (make-reactive-reset-frame env update-fn true)))))) + (dom-set-text-content node (str initial)) + node)))) -(define cek-reactive-attr :effects (render mutation) (fn (el attr-name expr env) (let ((update-fn (fn (val) (cond (or (nil? val) (= val false)) (dom-remove-attr el attr-name) (= val true) (dom-set-attr el attr-name "") :else (dom-set-attr el attr-name (str val)))))) (let ((existing (or (dom-get-attr el "data-sx-reactive-attrs") "")) (updated (if (empty? existing) attr-name (str existing "," attr-name)))) (dom-set-attr el "data-sx-reactive-attrs" updated)) (let ((initial (cek-run (make-cek-state expr env (list (make-reactive-reset-frame env update-fn true)))))) (cek-call update-fn (list initial)))))) +(define + cek-reactive-attr + :effects (render mutation) + (fn + (el attr-name expr env) + (let + ((update-fn (fn (val) (cond (or (nil? val) (= val false)) (dom-remove-attr el attr-name) (= val true) (dom-set-attr el attr-name "") :else (dom-set-attr el attr-name (str val)))))) + (let + ((existing (or (dom-get-attr el "data-sx-reactive-attrs") "")) + (updated + (if (empty? existing) attr-name (str existing "," attr-name)))) + (dom-set-attr el "data-sx-reactive-attrs" updated)) + (let + ((initial (cek-run (make-cek-state expr env (list (make-reactive-reset-frame env update-fn true)))))) + (cek-call update-fn (list initial)))))) -(define render-dom-portal :effects (render) (fn ((args :as list) (env :as dict) (ns :as string)) (let ((selector (trampoline (eval-expr (first args) env))) (target (or (dom-query selector) (dom-ensure-element selector)))) (if (not target) (create-comment (str "portal: " selector " (not found)")) (let ((marker (create-comment (str "portal: " selector))) (frag (create-fragment))) (for-each (fn (child) (dom-append frag (render-to-dom child env ns))) (rest args)) (let ((portal-nodes (dom-child-nodes frag))) (dom-append target frag) (register-in-scope (fn () (for-each (fn (n) (dom-remove n)) portal-nodes)))) marker))))) +(define + render-dom-portal + :effects (render) + (fn + ((args :as list) (env :as dict) (ns :as string)) + (let + ((selector (trampoline (eval-expr (first args) env))) + (target (or (dom-query selector) (dom-ensure-element selector)))) + (if + (not target) + (create-comment (str "portal: " selector " (not found)")) + (let + ((marker (create-comment (str "portal: " selector))) + (frag (create-fragment))) + (for-each + (fn (child) (dom-append frag (render-to-dom child env ns))) + (rest args)) + (let + ((portal-nodes (dom-child-nodes frag))) + (dom-append target frag) + (register-in-scope + (fn () (for-each (fn (n) (dom-remove n)) portal-nodes)))) + marker))))) -(define render-dom-error-boundary :effects (render) (fn ((args :as list) (env :as dict) (ns :as string)) (let ((fallback-expr (first args)) (body-exprs (rest args)) (container (dom-create-element "div" nil)) (retry-version (signal 0))) (dom-set-attr container "data-sx-boundary" "true") (effect (fn () (deref retry-version) (dom-set-prop container "innerHTML" "") (scope-push! "sx-island-scope" nil) (try-catch (fn () (let ((frag (create-fragment))) (for-each (fn (child) (dom-append frag (render-to-dom child env ns))) body-exprs) (dom-append container frag)) (scope-pop! "sx-island-scope")) (fn (err) (scope-pop! "sx-island-scope") (let ((fallback-fn (trampoline (eval-expr fallback-expr env))) (retry-fn (fn () (swap! retry-version (fn (n) (+ n 1)))))) (let ((fallback-dom (if (lambda? fallback-fn) (render-lambda-dom fallback-fn (list err retry-fn) env ns) (render-to-dom (apply fallback-fn (list err retry-fn)) env ns)))) (dom-append container fallback-dom))))))) container))) +(define + render-dom-error-boundary + :effects (render) + (fn + ((args :as list) (env :as dict) (ns :as string)) + (let + ((fallback-expr (first args)) + (body-exprs (rest args)) + (container (dom-create-element "div" nil)) + (retry-version (signal 0))) + (dom-set-attr container "data-sx-boundary" "true") + (effect + (fn + () + (deref retry-version) + (dom-set-prop container "innerHTML" "") + (scope-push! "sx-island-scope" nil) + (try-catch + (fn + () + (let + ((frag (create-fragment))) + (for-each + (fn + (child) + (dom-append frag (render-to-dom child env ns))) + body-exprs) + (dom-append container frag)) + (scope-pop! "sx-island-scope")) + (fn + (err) + (scope-pop! "sx-island-scope") + (let + ((fallback-fn (trampoline (eval-expr fallback-expr env))) + (retry-fn + (fn () (swap! retry-version (fn (n) (+ n 1)))))) + (let + ((fallback-dom (if (lambda? fallback-fn) (render-lambda-dom fallback-fn (list err retry-fn) env ns) (render-to-dom (apply fallback-fn (list err retry-fn)) env ns)))) + (dom-append container fallback-dom))))))) + container))) diff --git a/web/orchestration.sx b/web/orchestration.sx index aab32928..06e5a667 100644 --- a/web/orchestration.sx +++ b/web/orchestration.sx @@ -299,7 +299,11 @@ () (let ((swap-result (swap-dom-nodes target content swap-style))) - (post-swap (or swap-result target))))))))))))) + (post-swap + (if + (= swap-style "outerHTML") + (dom-parent (or swap-result target)) + (or swap-result target)))))))))))))) (define handle-html-response @@ -325,8 +329,15 @@ use-transition (fn () - (swap-html-string target html swap-style) - (post-swap target)))) + (let + ((swap-root (swap-html-string target html swap-style))) + (log-info + (str + "swap-root: " + (if swap-root (dom-tag-name swap-root) "nil") + " target: " + (dom-tag-name target))) + (post-swap (or swap-root target)))))) (let ((container (dom-create-element "div" nil))) (dom-set-inner-html container (dom-body-inner-html doc))