Delete account/sx/sx_components.py — all rendering now in .sx

Phase 1 of zero-Python rendering: account service.

- Auth pages (login, device, check-email) use _render_auth_page() helper
  calling render_to_sx() + full_page_sx() directly in routes
- Newsletter toggle POST renders inline via render_to_sx()
- Newsletter page helper returns data dict; defpage :data slot fetches,
  :content slot renders via ~account-newsletters-content defcomp
- Fragment page uses (frag ...) IO primitive directly in .sx
- Defpage _eval_slot now uses async_eval_slot_to_sx which expands
  component bodies server-side (executing IO) but serializes tags as SX
- Fix pre-existing OOB ParseError: _eval_slot was producing HTML instead
  of s-expressions for component content slots
- Fix market url_for endpoint: defpage_market_home (app-level, not blueprint)
- Fix events calendar nav: wrap multiple SX parts in fragment

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>

account/sxc/pages/__init__.py

@@ -54,6 +54,7 @@ async def _account_oob(ctx: dict, **kw: Any) -> str:
 async def _account_mobile(ctx: dict, **kw: Any) -> str:
     from shared.sx.helpers import mobile_menu_sx, mobile_root_nav_sx, render_to_sx
     from shared.sx.parser import SxExpr
+
     ctx = _inject_account_nav(ctx)
     nav_items = await render_to_sx("auth-nav-items",
         account_url=_call_url(ctx, "account_url", ""),
@@ -97,18 +98,16 @@ def _register_account_helpers() -> None:
     from shared.sx.pages import register_page_helpers
 
     register_page_helpers("account", {
-        "newsletters-content": _h_newsletters_content,
-        "fragment-content": _h_fragment_content,
+        "newsletters-data": _h_newsletters_data,
     })
 
 
-async def _h_newsletters_content(**kw):
-    """Fetch newsletter data, return assembled defcomp call."""
+async def _h_newsletters_data(**kw):
+    """Fetch newsletter data — returns dict merged into defpage env."""
     from quart import g
     from sqlalchemy import select
     from shared.models import UserNewsletter
     from shared.models.ghost_membership_entities import GhostNewsletter
-    from shared.sx.helpers import render_to_sx
 
     result = await g.s.execute(
         select(GhostNewsletter).order_by(GhostNewsletter.name)
@@ -135,31 +134,6 @@ async def _h_newsletters_content(**kw):
     if account_url is None:
         from shared.infrastructure.urls import account_url as _account_url
         account_url = _account_url
-    # Call account_url to get the base URL string
     account_url_str = account_url("") if callable(account_url) else str(account_url or "")
 
-    return await render_to_sx("account-newsletters-content",
-        newsletter_list=newsletter_list,
-        account_url=account_url_str)
-
-
-async def _h_fragment_content(slug=None, **kw):
-    from quart import g, abort
-    from shared.infrastructure.fragments import fetch_fragment
-
-    if not slug or not g.get("user"):
-        return ""
-    fragment_html = await fetch_fragment(
-        "events", "account-page",
-        params={"slug": slug, "user_id": str(g.user.id)},
-    )
-    if not fragment_html:
-        abort(404)
-    from shared.sx.parser import SxExpr
-    if isinstance(fragment_html, SxExpr):
-        return fragment_html.source
-    s = str(fragment_html) if fragment_html else ""
-    if not s:
-        return ""
-    from shared.sx.helpers import render_to_sx
-    return await render_to_sx("rich-text", html=s)
+    return {"newsletter-list": newsletter_list, "account-url": account_url_str}

account/sxc/pages/account.sx

@@ -18,7 +18,10 @@
   :path "/newsletters/"
   :auth :login
   :layout :account
-  :content (newsletters-content))
+  :data (newsletters-data)
+  :content (~account-newsletters-content
+    :newsletter-list newsletter-list
+    :account-url account-url))
 
 ;; ---------------------------------------------------------------------------
 ;; Fragment pages (tickets, bookings, etc. from events service)
@@ -28,4 +31,10 @@
   :path "/<slug>/"
   :auth :login
   :layout :account
-  :content (fragment-content slug))
+  :content (let* ((user (current-user))
+                  (result (frag "events" "account-page"
+                            :slug slug
+                            :user-id (str (get user "id")))))
+             (if (or (nil? result) (empty? result))
+               (abort 404)
+               result)))