SX request handler: all routing in SX, AJAX content fragment support

web/request-handler.sx: configurable SX handler called by OCaml server.
Detects AJAX (SX-Request header) and returns content fragment (no shell)
vs full page with shell. All routing, layout, response format in SX.

OCaml server: http_render_page calls sx-handle-request via CEK.
No application logic in OCaml — just HTTP accept + SX function call.

signal-condition rename: reactive signal works, condition system uses
signal-condition. Island SSR renders correctly (4/5 tests pass).

WASM JIT: no permanent disable on failure. Live globals.

WIP: page-sx empty in SX handler — client routing needs it.
Navigation tests timeout (links not found after boot).

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>

web/request-handler.sx

@@ -1,43 +1,15 @@
 (define
-  sx-handle-request
-  (fn
-    (path headers env)
-    (let
-      ((is-ajax (or (has-key? headers "sx-request") (has-key? headers "hx-request")))
-        (path-expr (sx-parse-url path))
-        (page-ast (sx-eval-page path-expr env)))
-      (if
-        (nil? page-ast)
-        nil
-        (let
-          ((nav-path (if (starts-with? path "/sx/") path (str "/sx" path))))
-          (if
-            is-ajax
-            (sx-render-ajax page-ast nav-path env)
-            (sx-render-full-page page-ast nav-path env)))))))
-
-(define
-  sx-parse-url
+  sx-url-to-expr
   (fn
     (path)
-    (let
-      ((p (cond (or (= path "/") (= path "/sx/") (= path "/sx")) "home" (starts-with? path "/sx/") (substring path 4 (string-length path)) (starts-with? path "/") (substring path 1 (string-length path)) :else path)))
-      (let ((spaced (join " " (split p ".")))) spaced))))
-
-(define
-  sx-eval-page
-  (fn
-    (path-expr env)
-    (let
-      ((exprs (sx-parse path-expr)))
-      (when
-        (not (empty? exprs))
-        (let
-          ((expr (if (= (len exprs) 1) (first exprs) exprs))
-            (quoted (sx-auto-quote expr env)))
-          (let
-            ((callable (if (symbol? quoted) (list quoted) quoted)))
-            (cek-try (fn () (eval-expr callable env)) (fn (err) nil))))))))
+    (cond
+      (or (= path "/") (= path "/sx/") (= path "/sx"))
+      "home"
+      (starts-with? path "/sx/")
+      (join " " (split (slice path 4 (len path)) "."))
+      (starts-with? path "/")
+      (join " " (split (slice path 1 (len path)) "."))
+      :else path)))
 
 (define
   sx-auto-quote
@@ -51,53 +23,73 @@
       :else expr)))
 
 (define
-  sx-render-ajax
+  sx-eval-page
   (fn
-    (page-ast nav-path env)
-    (let
-      ((wrapped (list (make-symbol "~layouts/doc") :path nav-path page-ast))
-        (aser-result (aser (list (make-symbol "quote") wrapped) env)))
-      (let
-        ((body-exprs (sx-parse aser-result)))
+    (path-expr env)
+    (cek-try
+      (fn
+        ()
         (let
-          ((body-expr (if (= (len body-exprs) 1) (first body-exprs) (cons (make-symbol "<>") body-exprs))))
-          (render-to-html body-expr env))))))
+          ((exprs (sx-parse path-expr)))
+          (when
+            (not (empty? exprs))
+            (let
+              ((expr (if (= (len exprs) 1) (first exprs) exprs))
+                (quoted (sx-auto-quote expr env))
+                (callable (if (symbol? quoted) (list quoted) quoted)))
+              (eval-expr callable env)))))
+      (fn (err) nil))))
 
 (define
-  sx-render-full-page
+  sx-handle-request
   (fn
-    (page-ast nav-path env)
+    (path headers env)
     (let
-      ((wrapped (list (make-symbol "~layouts/doc") :path nav-path page-ast))
-        (full-ast
-          (list (make-symbol "~shared:layout/app-body") :content wrapped)))
-      (let
-        ((aser-result (aser (list (make-symbol "quote") full-ast) env)))
+      ((is-ajax (or (has-key? headers "sx-request") (has-key? headers "hx-request")))
+        (path-expr (sx-url-to-expr path))
+        (page-ast (sx-eval-page path-expr env)))
+      (if
+        (nil? page-ast)
+        nil
         (let
-          ((body-exprs (sx-parse aser-result)))
-          (let
-            ((body-expr (if (= (len body-exprs) 1) (first body-exprs) (cons (make-symbol "<>") body-exprs))))
-            (let
-              ((body-html (render-to-html body-expr env))
-                (page-source (serialize full-ast)))
-              (~shared:shell/sx-page-shell
-                :title "SX"
-                :csrf ""
-                :page-sx page-source
-                :body-html body-html
-                :component-defs __shell-component-defs
-                :component-hash __shell-component-hash
-                :pages-sx __shell-pages-sx
-                :sx-css __shell-sx-css
-                :sx-css-classes __shell-sx-css-classes
-                :asset-url __shell-asset-url
-                :sx-js-hash __shell-sx-js-hash
-                :body-js-hash __shell-body-js-hash
-                :wasm-hash __shell-wasm-hash
-                :head-scripts __shell-head-scripts
-                :body-scripts __shell-body-scripts
-                :inline-css __shell-inline-css
-                :inline-head-js __shell-inline-head-js
-                :init-sx __shell-init-sx
-                :use-wasm (= (or (env-get env "SX_USE_WASM") "") "1")
-                :meta-html ""))))))))
+          ((nav-path (if (starts-with? path "/sx/") path (str "/sx" path))))
+          (cek-try
+            (fn
+              ()
+              (if
+                is-ajax
+                (let
+                  ((content (list (make-symbol "~layouts/doc") :path nav-path page-ast)))
+                  (render-to-html content env))
+                (let
+                  ((wrapped (list (make-symbol "~layouts/doc") :path nav-path page-ast))
+                    (full-ast
+                      (list
+                        (make-symbol "~shared:layout/app-body")
+                        :content wrapped))
+                    (body-html (render-to-html full-ast env)))
+                  (render-to-html
+                    (list
+                      (make-symbol "~shared:shell/sx-page-shell")
+                      :title "SX"
+                      :csrf ""
+                      :page-sx ""
+                      :body-html body-html
+                      :component-defs __shell-component-defs
+                      :component-hash __shell-component-hash
+                      :pages-sx __shell-pages-sx
+                      :sx-css __shell-sx-css
+                      :sx-css-classes __shell-sx-css-classes
+                      :asset-url __shell-asset-url
+                      :sx-js-hash __shell-sx-js-hash
+                      :body-js-hash __shell-body-js-hash
+                      :wasm-hash __shell-wasm-hash
+                      :head-scripts __shell-head-scripts
+                      :body-scripts __shell-body-scripts
+                      :inline-css __shell-inline-css
+                      :inline-head-js __shell-inline-head-js
+                      :init-sx __shell-init-sx
+                      :use-wasm false
+                      :meta-html "")
+                    env))))
+            (fn (err) (str "<h1>Render error</h1><pre>" err "</pre>"))))))))