Split boundary.sx: separate language contract from app-specific declarations

boundary.sx was mixing three concerns in one file:
- Core SX I/O primitives (the language contract)
- Deployment-specific layout I/O (app architecture)
- Per-service page helpers (fully app-specific)

Now split into three tiers:
1. shared/sx/ref/boundary.sx — core I/O only (frag, query, current-user, etc.)
2. shared/sx/ref/boundary-app.sx — deployment layout contexts (*-header-ctx, *-ctx)
3. {service}/sx/boundary.sx — per-service page helpers

The boundary parser loads all three tiers automatically. Validation error
messages now point to the correct file for each tier.

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

shared/sx/ref/boundary.sx

@@ -1,12 +1,12 @@
 ;; ==========================================================================
-;; boundary.sx — SX boundary contract
+;; boundary.sx — SX language boundary contract
 ;;
-;; Declares everything allowed to cross the host-SX boundary:
-;; I/O primitives (Tier 2) and page helpers (Tier 3).
+;; Declares the core I/O primitives that any SX host must provide.
+;; This is the LANGUAGE contract — not deployment-specific.
 ;;
 ;; Pure primitives (Tier 1) are declared in primitives.sx.
-;; This file declares what primitives.sx does NOT cover:
-;; async/side-effectful host functions that need request context.
+;; Deployment-specific I/O (layout contexts) lives in boundary-app.sx.
+;; Per-service page helpers live in {service}/sx/boundary.sx.
 ;;
 ;; Format:
 ;;   (define-io-primitive "name"
@@ -16,13 +16,6 @@
 ;;     :doc "description"
 ;;     :context :request)
 ;;
-;;   (define-page-helper "name"
-;;     :params (param1 param2)
-;;     :returns "type"
-;;     :service "service-name")
-;;
-;; Bootstrappers read this file and emit frozen sets + validation
-;; functions for the target language.
 ;; ==========================================================================
 
 
@@ -34,9 +27,11 @@
 
 
 ;; --------------------------------------------------------------------------
-;; Tier 2: I/O primitives — async, side-effectful, need host context
+;; Tier 2: Core I/O primitives — async, side-effectful, need host context
 ;; --------------------------------------------------------------------------
 
+;; Cross-service communication
+
 (define-io-primitive "frag"
   :params (service frag-type &key)
   :returns "string"
@@ -58,6 +53,15 @@
   :doc "Call an action on another service via internal HTTP."
   :context :request)
 
+(define-io-primitive "service"
+  :params (service-or-method &rest args &key)
+  :returns "any"
+  :async true
+  :doc "Call a domain service method. Two-arg: (service svc method). One-arg: (service method) uses bound handler service."
+  :context :request)
+
+;; Request context
+
 (define-io-primitive "current-user"
   :params ()
   :returns "dict?"
@@ -72,13 +76,6 @@
   :doc "True if current request has HX-Request header."
   :context :request)
 
-(define-io-primitive "service"
-  :params (service-or-method &rest args &key)
-  :returns "any"
-  :async true
-  :doc "Call a domain service method. Two-arg: (service svc method). One-arg: (service method) uses bound handler service."
-  :context :request)
-
 (define-io-primitive "request-arg"
   :params (name &rest default)
   :returns "any"
@@ -93,18 +90,11 @@
   :doc "Current request path."
   :context :request)
 
-(define-io-primitive "nav-tree"
-  :params ()
-  :returns "list"
+(define-io-primitive "request-view-args"
+  :params (key)
+  :returns "any"
   :async true
-  :doc "Navigation tree as list of node dicts."
-  :context :request)
-
-(define-io-primitive "get-children"
-  :params (&key parent-type parent-id)
-  :returns "list"
-  :async true
-  :doc "Fetch child entities for a parent."
+  :doc "Read a URL view argument from the current request."
   :context :request)
 
 (define-io-primitive "g"
@@ -128,6 +118,8 @@
   :doc "Raise HTTP error from SX."
   :context :request)
 
+;; Routing
+
 (define-io-primitive "url-for"
   :params (endpoint &key)
   :returns "string"
@@ -142,105 +134,23 @@
   :doc "Service URL prefix for dev/prod routing."
   :context :request)
 
-(define-io-primitive "root-header-ctx"
+;; Navigation and relations
+
+(define-io-primitive "nav-tree"
   :params ()
-  :returns "dict"
+  :returns "list"
   :async true
-  :doc "Dict with root header values (cart-mini, auth-menu, nav-tree, etc.)."
+  :doc "Navigation tree as list of node dicts."
   :context :request)
 
-(define-io-primitive "post-header-ctx"
-  :params ()
-  :returns "dict"
+(define-io-primitive "get-children"
+  :params (&key parent-type parent-id)
+  :returns "list"
   :async true
-  :doc "Dict with post-level header values."
+  :doc "Fetch child entities for a parent."
   :context :request)
 
-(define-io-primitive "select-colours"
-  :params ()
-  :returns "string"
-  :async true
-  :doc "Shared select/hover CSS class string."
-  :context :request)
-
-(define-io-primitive "account-nav-ctx"
-  :params ()
-  :returns "any"
-  :async true
-  :doc "Account nav fragments, or nil."
-  :context :request)
-
-(define-io-primitive "app-rights"
-  :params ()
-  :returns "dict"
-  :async true
-  :doc "User rights dict from g.rights."
-  :context :request)
-
-(define-io-primitive "federation-actor-ctx"
-  :params ()
-  :returns "dict?"
-  :async true
-  :doc "Serialized ActivityPub actor dict or nil."
-  :context :request)
-
-(define-io-primitive "request-view-args"
-  :params (key)
-  :returns "any"
-  :async true
-  :doc "Read a URL view argument from the current request."
-  :context :request)
-
-(define-io-primitive "cart-page-ctx"
-  :params ()
-  :returns "dict"
-  :async true
-  :doc "Dict with cart page header values."
-  :context :request)
-
-(define-io-primitive "events-calendar-ctx"
-  :params ()
-  :returns "dict"
-  :async true
-  :doc "Dict with events calendar header values."
-  :context :request)
-
-(define-io-primitive "events-day-ctx"
-  :params ()
-  :returns "dict"
-  :async true
-  :doc "Dict with events day header values."
-  :context :request)
-
-(define-io-primitive "events-entry-ctx"
-  :params ()
-  :returns "dict"
-  :async true
-  :doc "Dict with events entry header values."
-  :context :request)
-
-(define-io-primitive "events-slot-ctx"
-  :params ()
-  :returns "dict"
-  :async true
-  :doc "Dict with events slot header values."
-  :context :request)
-
-(define-io-primitive "events-ticket-type-ctx"
-  :params ()
-  :returns "dict"
-  :async true
-  :doc "Dict with ticket type header values."
-  :context :request)
-
-(define-io-primitive "market-header-ctx"
-  :params ()
-  :returns "dict"
-  :async true
-  :doc "Dict with market header data."
-  :context :request)
-
-;; Moved from primitives.py — these need host context (infra/config/Quart)
+;; Config and host context (sync — no await needed)
 
 (define-io-primitive "app-url"
   :params (service &rest path)
@@ -278,185 +188,6 @@
   :context :config)
 
 
-;; --------------------------------------------------------------------------
-;; Tier 3: Page helpers — service-scoped, registered per app
-;; --------------------------------------------------------------------------
-
-;; SX docs service
-(define-page-helper "highlight"
-  :params (code lang)
-  :returns "sx-source"
-  :service "sx")
-
-(define-page-helper "primitives-data"
-  :params ()
-  :returns "dict"
-  :service "sx")
-
-(define-page-helper "special-forms-data"
-  :params ()
-  :returns "dict"
-  :service "sx")
-
-(define-page-helper "reference-data"
-  :params (slug)
-  :returns "dict"
-  :service "sx")
-
-(define-page-helper "attr-detail-data"
-  :params (slug)
-  :returns "dict"
-  :service "sx")
-
-(define-page-helper "header-detail-data"
-  :params (slug)
-  :returns "dict"
-  :service "sx")
-
-(define-page-helper "event-detail-data"
-  :params (slug)
-  :returns "dict"
-  :service "sx")
-
-(define-page-helper "read-spec-file"
-  :params (filename)
-  :returns "string"
-  :service "sx")
-
-(define-page-helper "bootstrapper-data"
-  :params (target)
-  :returns "dict"
-  :service "sx")
-
-(define-page-helper "bundle-analyzer-data"
-  :params ()
-  :returns "dict"
-  :service "sx")
-
-;; Blog service
-(define-page-helper "editor-data"
-  :params (&key)
-  :returns "dict"
-  :service "blog")
-
-(define-page-helper "editor-page-data"
-  :params (&key)
-  :returns "dict"
-  :service "blog")
-
-(define-page-helper "post-admin-data"
-  :params (&key slug)
-  :returns "dict"
-  :service "blog")
-
-(define-page-helper "post-data-data"
-  :params (&key slug)
-  :returns "dict"
-  :service "blog")
-
-(define-page-helper "post-preview-data"
-  :params (&key slug)
-  :returns "dict"
-  :service "blog")
-
-(define-page-helper "post-entries-data"
-  :params (&key slug)
-  :returns "dict"
-  :service "blog")
-
-(define-page-helper "post-settings-data"
-  :params (&key slug)
-  :returns "dict"
-  :service "blog")
-
-(define-page-helper "post-edit-data"
-  :params (&key slug)
-  :returns "dict"
-  :service "blog")
-
-;; Events service
-(define-page-helper "calendar-admin-data"
-  :params (&key calendar-slug)
-  :returns "dict"
-  :service "events")
-
-(define-page-helper "day-admin-data"
-  :params (&key calendar-slug year month day)
-  :returns "dict"
-  :service "events")
-
-(define-page-helper "slots-data"
-  :params (&key calendar-slug)
-  :returns "dict"
-  :service "events")
-
-(define-page-helper "slot-data"
-  :params (&key calendar-slug slot-id)
-  :returns "dict"
-  :service "events")
-
-(define-page-helper "entry-data"
-  :params (&key calendar-slug entry-id)
-  :returns "dict"
-  :service "events")
-
-(define-page-helper "entry-admin-data"
-  :params (&key calendar-slug entry-id year month day)
-  :returns "dict"
-  :service "events")
-
-(define-page-helper "ticket-types-data"
-  :params (&key calendar-slug entry-id year month day)
-  :returns "dict"
-  :service "events")
-
-(define-page-helper "ticket-type-data"
-  :params (&key calendar-slug entry-id ticket-type-id year month day)
-  :returns "dict"
-  :service "events")
-
-(define-page-helper "tickets-data"
-  :params (&key)
-  :returns "dict"
-  :service "events")
-
-(define-page-helper "ticket-detail-data"
-  :params (&key code)
-  :returns "dict"
-  :service "events")
-
-(define-page-helper "ticket-admin-data"
-  :params (&key)
-  :returns "dict"
-  :service "events")
-
-(define-page-helper "markets-data"
-  :params (&key)
-  :returns "dict"
-  :service "events")
-
-;; Market service
-(define-page-helper "all-markets-data"
-  :params (&key)
-  :returns "dict"
-  :service "market")
-
-(define-page-helper "page-markets-data"
-  :params (&key slug)
-  :returns "dict"
-  :service "market")
-
-(define-page-helper "page-admin-data"
-  :params (&key slug)
-  :returns "dict"
-  :service "market")
-
-(define-page-helper "market-home-data"
-  :params (&key page-slug market-slug)
-  :returns "dict"
-  :service "market")
-
-
 ;; --------------------------------------------------------------------------
 ;; Boundary types — what's allowed to cross the host-SX boundary
 ;; --------------------------------------------------------------------------