Add SX editor to post edit page, prevent sx_content clearing on save

- Add sx_content to _post_to_edit_dict so edit page receives existing content
- Add SX/Koenig editor tabs, sx-editor mount point, and SxEditor.mount init
- Only pass sx_content to writer_update when form field is present (prevents
  accidental clearing when editing via Koenig-only path)
- Add csrf_exempt to example API POST/DELETE/PUT demo endpoints
- Add defpage infrastructure (pages.py, layouts.py) and sx docs page definitions
- Add defhandler definitions for example API handlers (examples.sx)

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

sx/bp/pages/routes.py

@@ -8,6 +8,7 @@ from datetime import datetime
 from uuid import uuid4
 
 from quart import Blueprint, Response, make_response, request
+from shared.browser.app.csrf import csrf_exempt
 
 
 def register(url_prefix: str = "/") -> Blueprint:
@@ -145,6 +146,7 @@ def register(url_prefix: str = "/") -> Blueprint:
         oob_comp = _oob_code("click-comp", comp_text)
         return sx_response(f'(<> {sx_src} {oob_wire} {oob_comp})')
 
+    @csrf_exempt
     @bp.post("/examples/api/form")
     async def api_form():
         from shared.sx.helpers import sx_response
@@ -175,6 +177,7 @@ def register(url_prefix: str = "/") -> Blueprint:
         oob_comp = _oob_code("poll-comp", comp_text)
         return sx_response(f'(<> {sx_src} {oob_wire} {oob_comp})')
 
+    @csrf_exempt
     @bp.delete("/examples/api/delete/<item_id>")
     async def api_delete(item_id: str):
         from shared.sx.helpers import sx_response
@@ -200,6 +203,7 @@ def register(url_prefix: str = "/") -> Blueprint:
         oob_comp = _oob_code("edit-comp", comp_text)
         return sx_response(f'(<> {sx_src} {oob_wire} {oob_comp})')
 
+    @csrf_exempt
     @bp.post("/examples/api/edit")
     async def api_edit_save():
         from shared.sx.helpers import sx_response
@@ -295,6 +299,7 @@ def register(url_prefix: str = "/") -> Blueprint:
 
     _jobs: dict[str, int] = {}
 
+    @csrf_exempt
     @bp.post("/examples/api/progress/start")
     async def api_progress_start():
         from shared.sx.helpers import sx_response
@@ -373,6 +378,7 @@ def register(url_prefix: str = "/") -> Blueprint:
         oob_comp = _oob_code("validate-comp", comp_text)
         return sx_response(f'(<> {sx_src} {oob_wire} {oob_comp})')
 
+    @csrf_exempt
     @bp.post("/examples/api/validate/submit")
     async def api_validate_submit():
         from shared.sx.helpers import sx_response
@@ -402,6 +408,7 @@ def register(url_prefix: str = "/") -> Blueprint:
 
     # --- Reset on Submit ---
 
+    @csrf_exempt
     @bp.post("/examples/api/reset-submit")
     async def api_reset_submit():
         from shared.sx.helpers import sx_response
@@ -442,6 +449,7 @@ def register(url_prefix: str = "/") -> Blueprint:
         oob_comp = _oob_code("editrow-comp", comp_text)
         return sx_response(f'(<> {sx_src} {oob_wire} {oob_comp})')
 
+    @csrf_exempt
     @bp.post("/examples/api/editrow/<row_id>")
     async def api_editrow_save(row_id: str):
         from shared.sx.helpers import sx_response
@@ -488,6 +496,7 @@ def register(url_prefix: str = "/") -> Blueprint:
                 _bulk_users[u["id"]] = dict(u)
         return _bulk_users
 
+    @csrf_exempt
     @bp.post("/examples/api/bulk")
     async def api_bulk():
         from shared.sx.helpers import sx_response
@@ -517,6 +526,7 @@ def register(url_prefix: str = "/") -> Blueprint:
 
     _swap_count = {"n": 0}
 
+    @csrf_exempt
     @bp.post("/examples/api/swap-log")
     async def api_swap_log():
         from shared.sx.helpers import sx_response
@@ -682,6 +692,7 @@ def register(url_prefix: str = "/") -> Blueprint:
         oob_comp = _oob_code("pp-comp", comp_text)
         return sx_response(f'(<> {sx_src} {oob_wire} {oob_comp})')
 
+    @csrf_exempt
     @bp.put("/examples/api/putpatch")
     async def api_pp_put():
         from shared.sx.helpers import sx_response
@@ -712,6 +723,7 @@ def register(url_prefix: str = "/") -> Blueprint:
 
     # --- JSON Encoding ---
 
+    @csrf_exempt
     @bp.post("/examples/api/json-echo")
     async def api_json_echo():
         from shared.sx.helpers import sx_response

sx/sxc/handlers/examples.sx

@@ -0,0 +1,367 @@
+;; SX example API handlers — defhandler definitions
+;;
+;; These serve the live demos on the Examples docs pages.
+;; Each handler's source is displayed in the "Server handler" code block
+;; on its corresponding example page (self-referencing via handler-source).
+
+;; ---------------------------------------------------------------------------
+;; Click to Load
+;; ---------------------------------------------------------------------------
+
+(defhandler click (&key)
+  (let ((now (format-time (now) "%H:%M:%S")))
+    (~click-result :time now)))
+
+;; ---------------------------------------------------------------------------
+;; Form Submission
+;; ---------------------------------------------------------------------------
+
+(defhandler form (&key)
+  (let ((name (form-data "name")))
+    (~form-result :name name)))
+
+;; ---------------------------------------------------------------------------
+;; Polling
+;; ---------------------------------------------------------------------------
+
+(defhandler poll (&key)
+  (let ((now   (format-time (now) "%H:%M:%S"))
+        (count (inc-counter "poll" :max 10)))
+    (~poll-result :time now :count count)))
+
+;; ---------------------------------------------------------------------------
+;; Delete Row
+;; ---------------------------------------------------------------------------
+
+(defhandler delete (&key item-id)
+  ;; Empty response — outerHTML swap removes the row
+  "")
+
+;; ---------------------------------------------------------------------------
+;; Inline Edit
+;; ---------------------------------------------------------------------------
+
+(defhandler edit-form (&key)
+  (let ((value (request-arg "value")))
+    (~inline-edit-form :value value)))
+
+(defhandler edit-save (&key)
+  (let ((value (form-data "value")))
+    (~inline-view :value value)))
+
+(defhandler edit-cancel (&key)
+  (let ((value (request-arg "value")))
+    (~inline-view :value value)))
+
+;; ---------------------------------------------------------------------------
+;; Out-of-Band Swaps
+;; ---------------------------------------------------------------------------
+
+(defhandler oob (&key)
+  (let ((now (format-time (now) "%H:%M:%S")))
+    (<>
+      (p :class "text-emerald-600 font-medium" "Box A updated!")
+      (p :class "text-sm text-stone-500" "at " now)
+      (div :id "oob-box-b" :sx-swap-oob "innerHTML"
+        (p :class "text-violet-600 font-medium" "Box B updated via OOB!")
+        (p :class "text-sm text-stone-500" "at " now)))))
+
+;; ---------------------------------------------------------------------------
+;; Lazy Loading
+;; ---------------------------------------------------------------------------
+
+(defhandler lazy (&key)
+  (let ((now (format-time (now) "%H:%M:%S")))
+    (~lazy-result :time now)))
+
+;; ---------------------------------------------------------------------------
+;; Infinite Scroll
+;; ---------------------------------------------------------------------------
+
+(defhandler scroll (&key)
+  (let ((page  (or (parse-int (request-arg "page")) 2))
+        (start (+ (* (- page 1) 5) 1))
+        (next  (+ page 1)))
+    (<>
+      (map (fn (i)
+        (div :class "px-4 py-3 border-b border-stone-100 text-sm text-stone-700"
+          "Item " i " — loaded from page " page))
+        (range start (+ start 5)))
+      (if (<= next 6)
+        (div :id "scroll-sentinel"
+          :sx-get (str "/examples/api/scroll?page=" next)
+          :sx-trigger "intersect once"
+          :sx-target "#scroll-items"
+          :sx-swap "beforeend"
+          :class "p-3 text-center text-stone-400 text-sm"
+          "Loading more...")
+        (div :class "p-3 text-center text-stone-500 text-sm font-medium"
+          "All items loaded.")))))
+
+;; ---------------------------------------------------------------------------
+;; Progress Bar
+;; ---------------------------------------------------------------------------
+
+(defhandler progress-start (&key)
+  (let ((job-id (new-job)))
+    (~progress-status :percent 0 :job-id job-id)))
+
+(defhandler progress-status (&key)
+  (let ((job-id  (request-arg "job"))
+        (percent (advance-job job-id)))
+    (~progress-status :percent percent :job-id job-id)))
+
+;; ---------------------------------------------------------------------------
+;; Active Search
+;; ---------------------------------------------------------------------------
+
+(defhandler search (&key)
+  (let ((q       (request-arg "q"))
+        (results (filter-list LANGUAGES q)))
+    (~search-results :items results :query q)))
+
+;; ---------------------------------------------------------------------------
+;; Inline Validation
+;; ---------------------------------------------------------------------------
+
+(defhandler validate (&key)
+  (let ((email (request-arg "email")))
+    (cond
+      ((not email)
+        (~validation-error :message "Email is required"))
+      ((not (contains? email "@"))
+        (~validation-error :message "Invalid email format"))
+      ((contains? TAKEN_EMAILS (lower email))
+        (~validation-error
+          :message (str email " is already taken")))
+      (t (~validation-ok :email email)))))
+
+;; ---------------------------------------------------------------------------
+;; Value Select
+;; ---------------------------------------------------------------------------
+
+(defhandler values (&key)
+  (let ((cat   (request-arg "category"))
+        (items (get VALUE_SELECT_DATA cat)))
+    (if (empty? items)
+      (option :value "" "No items")
+      (map (fn (i) (option :value i i)) items))))
+
+;; ---------------------------------------------------------------------------
+;; Reset on Submit
+;; ---------------------------------------------------------------------------
+
+(defhandler reset-submit (&key)
+  (let ((msg (or (form-data "message") "(empty)"))
+        (now (format-time (now) "%H:%M:%S")))
+    (~reset-message :message msg :time now)))
+
+;; ---------------------------------------------------------------------------
+;; Edit Row
+;; ---------------------------------------------------------------------------
+
+(defhandler editrow-form (&key row-id)
+  (let ((row (get ROWS row-id)))
+    (~edit-row-form :id row-id
+      :name  (get row "name")
+      :price (get row "price")
+      :stock (get row "stock"))))
+
+(defhandler editrow-save (&key row-id)
+  (let ((name  (form-data "name"))
+        (price (form-data "price"))
+        (stock (form-data "stock")))
+    (~edit-row-view :id row-id
+      :name name :price price :stock stock)))
+
+(defhandler editrow-cancel (&key row-id)
+  (let ((row (get ROWS row-id)))
+    (~edit-row-view :id row-id
+      :name  (get row "name")
+      :price (get row "price")
+      :stock (get row "stock"))))
+
+;; ---------------------------------------------------------------------------
+;; Bulk Update
+;; ---------------------------------------------------------------------------
+
+(defhandler bulk (&key)
+  (let ((action (request-arg "action"))
+        (ids    (form-list "ids"))
+        (status (if (= action "activate")
+                    "active" "inactive")))
+    (update-users ids :status status)
+    (map (fn (u)
+      (~bulk-row
+        :id     (get u "id")
+        :name   (get u "name")
+        :email  (get u "email")
+        :status (get u "status")))
+      USERS)))
+
+;; ---------------------------------------------------------------------------
+;; Swap Positions
+;; ---------------------------------------------------------------------------
+
+(defhandler swap-log (&key)
+  (let ((mode (request-arg "mode"))
+        (n    (inc-counter "swap"))
+        (now  (format-time (now) "%H:%M:%S")))
+    (<>
+      (div :class "px-3 py-2 text-sm text-stone-700"
+        "[" now "] " mode " (#" n ")")
+      (span :id "swap-counter"
+        :sx-swap-oob "innerHTML"
+        :class "self-center text-sm text-stone-500"
+        "Count: " n))))
+
+;; ---------------------------------------------------------------------------
+;; Select Filter (Dashboard)
+;; ---------------------------------------------------------------------------
+
+(defhandler dashboard (&key)
+  (let ((now (format-time (now) "%H:%M:%S")))
+    (<>
+      (div :id "dash-header" :class "p-3 bg-violet-50 rounded mb-3"
+        (h4 :class "font-semibold text-violet-800" "Dashboard Header")
+        (p :class "text-sm text-violet-600" "Generated at " now))
+      (div :id "dash-stats" :class "grid grid-cols-3 gap-3 mb-3"
+        (div :class "p-3 bg-emerald-50 rounded text-center"
+          (p :class "text-2xl font-bold text-emerald-700" "142")
+          (p :class "text-xs text-emerald-600" "Users"))
+        (div :class "p-3 bg-blue-50 rounded text-center"
+          (p :class "text-2xl font-bold text-blue-700" "89")
+          (p :class "text-xs text-blue-600" "Orders"))
+        (div :class "p-3 bg-amber-50 rounded text-center"
+          (p :class "text-2xl font-bold text-amber-700" "$4.2k")
+          (p :class "text-xs text-amber-600" "Revenue")))
+      (div :id "dash-footer" :class "p-3 bg-stone-50 rounded"
+        (p :class "text-sm text-stone-500" "Last updated: " now)))))
+
+;; ---------------------------------------------------------------------------
+;; Tabs
+;; ---------------------------------------------------------------------------
+
+(defhandler tabs (&key tab)
+  (let ((content (get TAB_CONTENT tab)))
+    (<> content
+      (div :id "tab-buttons"
+        :sx-swap-oob "innerHTML"
+        :class "flex border-b border-stone-200"
+        (map (fn (t)
+          (~tab-btn
+            :tab   (first t)
+            :label (last t)
+            :active (if (= (first t) tab) "true" "false")))
+          TAB_LIST)))))
+
+;; ---------------------------------------------------------------------------
+;; Animations
+;; ---------------------------------------------------------------------------
+
+(defhandler animate (&key)
+  (let ((color (random-choice
+           "bg-violet-100" "bg-emerald-100"
+           "bg-blue-100" "bg-amber-100"))
+        (now (format-time (now) "%H:%M:%S")))
+    (~anim-result :color color :time now)))
+
+;; ---------------------------------------------------------------------------
+;; Dialogs
+;; ---------------------------------------------------------------------------
+
+(defhandler dialog (&key)
+  (~dialog-modal
+    :title "Confirm Action"
+    :message "Are you sure you want to proceed?"))
+
+(defhandler dialog-close (&key)
+  "")
+
+;; ---------------------------------------------------------------------------
+;; Keyboard Shortcuts
+;; ---------------------------------------------------------------------------
+
+(defhandler keyboard (&key)
+  (let ((key    (request-arg "key"))
+        (actions {:s "Search panel activated"
+                  :n "New item created"
+                  :h "Help panel opened"})
+        (action (get actions key)))
+    (~kbd-result :key key :action action)))
+
+;; ---------------------------------------------------------------------------
+;; PUT / PATCH
+;; ---------------------------------------------------------------------------
+
+(defhandler pp-edit-all (&key)
+  (let ((p (get-profile)))
+    (~pp-form-full
+      :name  (get p "name")
+      :email (get p "email")
+      :role  (get p "role"))))
+
+(defhandler put-profile (&key)
+  (let ((name  (form-data "name"))
+        (email (form-data "email"))
+        (role  (form-data "role")))
+    (~pp-view :name name :email email :role role)))
+
+(defhandler pp-cancel (&key)
+  (let ((p (get-profile)))
+    (~pp-view
+      :name  (get p "name")
+      :email (get p "email")
+      :role  (get p "role"))))
+
+;; ---------------------------------------------------------------------------
+;; JSON Encoding
+;; ---------------------------------------------------------------------------
+
+(defhandler json-echo (&key)
+  (let ((data (request-json))
+        (body (json-pretty data))
+        (ct   (request-header "content-type")))
+    (~json-result :body body :content-type ct)))
+
+;; ---------------------------------------------------------------------------
+;; Vals & Headers
+;; ---------------------------------------------------------------------------
+
+(defhandler echo-vals (&key)
+  (let ((vals (request-args)))
+    (~echo-result :label "values" :items vals)))
+
+(defhandler echo-headers (&key)
+  (let ((headers (request-headers :prefix "X-")))
+    (~echo-result :label "headers" :items headers)))
+
+;; ---------------------------------------------------------------------------
+;; Loading States
+;; ---------------------------------------------------------------------------
+
+(defhandler slow (&key)
+  (sleep 2000)
+  (let ((now (format-time (now) "%H:%M:%S")))
+    (~loading-result :time now)))
+
+;; ---------------------------------------------------------------------------
+;; Request Abort (sync replace)
+;; ---------------------------------------------------------------------------
+
+(defhandler slow-search (&key)
+  (let ((delay (random-int 500 2000)))
+    (sleep delay)
+    (let ((q (request-arg "q")))
+      (~sync-result :query q :delay delay))))
+
+;; ---------------------------------------------------------------------------
+;; Retry
+;; ---------------------------------------------------------------------------
+
+(defhandler flaky (&key)
+  (let ((n (inc-counter "flaky")))
+    (if (!= (mod n 3) 0)
+      (error 503)
+      (~retry-result :attempt n
+        :message "Success! The endpoint finally responded."))))

sx/sxc/pages/__init__.py

@@ -0,0 +1,169 @@
+"""SX docs defpage setup — registers layouts and page helpers."""
+from __future__ import annotations
+
+from typing import Any
+
+
+def setup_sx_pages() -> None:
+    """Register sx-specific layouts, page helpers, and load page definitions.
+
+    Called during app startup before mount_pages().
+    """
+    _register_sx_layouts()
+    _register_sx_helpers()
+    _load_sx_page_files()
+
+
+def _load_sx_page_files() -> None:
+    """Load defpage definitions from sx/sxc/pages/*.sx."""
+    import os
+    from shared.sx.pages import load_page_dir
+    pages_dir = os.path.dirname(__file__)
+    load_page_dir(pages_dir, "sx")
+
+
+# ---------------------------------------------------------------------------
+# Layouts
+# ---------------------------------------------------------------------------
+
+def _register_sx_layouts() -> None:
+    """Register the sx docs layout presets."""
+    from shared.sx.layouts import register_custom_layout
+
+    register_custom_layout("sx", _sx_full_headers, _sx_oob_headers)
+    register_custom_layout("sx-section", _sx_section_full_headers, _sx_section_oob_headers)
+
+
+def _sx_full_headers(ctx: dict, **kw: Any) -> str:
+    """Full headers for sx home page: root + sx menu row."""
+    from shared.sx.helpers import root_header_sx
+    from sxc.sx_components import _sx_header_sx, _main_nav_sx
+
+    main_nav = _main_nav_sx(kw.get("section"))
+    root_hdr = root_header_sx(ctx)
+    sx_row = _sx_header_sx(main_nav)
+    return "(<> " + root_hdr + " " + sx_row + ")"
+
+
+def _sx_oob_headers(ctx: dict, **kw: Any) -> str:
+    """OOB headers for sx home page."""
+    from shared.sx.helpers import root_header_sx, oob_header_sx
+    from sxc.sx_components import _sx_header_sx, _main_nav_sx
+
+    root_hdr = root_header_sx(ctx)
+    main_nav = _main_nav_sx(kw.get("section"))
+    sx_row = _sx_header_sx(main_nav)
+    rows = "(<> " + root_hdr + " " + sx_row + ")"
+    return oob_header_sx("root-header-child", "sx-header-child", rows)
+
+
+def _sx_section_full_headers(ctx: dict, **kw: Any) -> str:
+    """Full headers for sx section pages: root + sx row + sub row."""
+    from shared.sx.helpers import root_header_sx
+    from sxc.sx_components import (
+        _sx_header_sx, _main_nav_sx, _sub_row_sx,
+    )
+
+    section = kw.get("section", "")
+    sub_label = kw.get("sub_label", section)
+    sub_href = kw.get("sub_href", "/")
+    sub_nav = kw.get("sub_nav", "")
+    selected = kw.get("selected", "")
+
+    root_hdr = root_header_sx(ctx)
+    main_nav = _main_nav_sx(section)
+    sub_row = _sub_row_sx(sub_label, sub_href, sub_nav, selected)
+    sx_row = _sx_header_sx(main_nav, child=sub_row)
+    return "(<> " + root_hdr + " " + sx_row + ")"
+
+
+def _sx_section_oob_headers(ctx: dict, **kw: Any) -> str:
+    """OOB headers for sx section pages."""
+    from shared.sx.helpers import root_header_sx, oob_header_sx
+    from sxc.sx_components import (
+        _sx_header_sx, _main_nav_sx, _sub_row_sx,
+    )
+
+    section = kw.get("section", "")
+    sub_label = kw.get("sub_label", section)
+    sub_href = kw.get("sub_href", "/")
+    sub_nav = kw.get("sub_nav", "")
+    selected = kw.get("selected", "")
+
+    root_hdr = root_header_sx(ctx)
+    main_nav = _main_nav_sx(section)
+    sub_row = _sub_row_sx(sub_label, sub_href, sub_nav, selected)
+    sx_row = _sx_header_sx(main_nav, child=sub_row)
+    rows = "(<> " + root_hdr + " " + sx_row + ")"
+    return oob_header_sx("root-header-child", "sx-header-child", rows)
+
+
+# ---------------------------------------------------------------------------
+# Page helpers — Python functions callable from defpage content expressions
+# ---------------------------------------------------------------------------
+
+def _register_sx_helpers() -> None:
+    """Register Python content builder functions as page helpers."""
+    from shared.sx.pages import register_page_helpers
+    from sxc.sx_components import (
+        _docs_content_sx, _reference_content_sx,
+        _protocol_content_sx, _examples_content_sx,
+        _essay_content_sx,
+        _docs_nav_sx, _reference_nav_sx,
+        _protocols_nav_sx, _examples_nav_sx, _essays_nav_sx,
+    )
+    from content.highlight import highlight as _highlight
+    from content.pages import (
+        DOCS_NAV, REFERENCE_NAV, PROTOCOLS_NAV,
+        EXAMPLES_NAV, ESSAYS_NAV,
+    )
+
+    def _find_current(nav_list, slug, match_fn=None):
+        """Find the current nav label for a slug."""
+        if match_fn:
+            return match_fn(nav_list, slug)
+        for label, href in nav_list:
+            if href.endswith(slug):
+                return label
+        return None
+
+    def _home_content():
+        """Build home page content (uses highlight for hero code block)."""
+        hero_code = _highlight(
+            '(div :class "p-4 bg-white rounded shadow"\n'
+            '  (h1 :class "text-2xl font-bold" "Hello")\n'
+            '  (button :sx-get "/api/data"\n'
+            '    :sx-target "#result"\n'
+            '    "Load data"))', "lisp")
+        return (
+            f'(div :id "main-content"'
+            f' (~sx-hero {hero_code})'
+            f' (~sx-philosophy)'
+            f' (~sx-how-it-works)'
+            f' (~sx-credits))'
+        )
+
+    register_page_helpers("sx", {
+        # Content builders
+        "home-content": _home_content,
+        "docs-content": _docs_content_sx,
+        "reference-content": _reference_content_sx,
+        "protocol-content": _protocol_content_sx,
+        "examples-content": _examples_content_sx,
+        "essay-content": _essay_content_sx,
+        "highlight": _highlight,
+        # Nav builders
+        "docs-nav": _docs_nav_sx,
+        "reference-nav": _reference_nav_sx,
+        "protocols-nav": _protocols_nav_sx,
+        "examples-nav": _examples_nav_sx,
+        "essays-nav": _essays_nav_sx,
+        # Nav data (for current label lookup)
+        "DOCS_NAV": DOCS_NAV,
+        "REFERENCE_NAV": REFERENCE_NAV,
+        "PROTOCOLS_NAV": PROTOCOLS_NAV,
+        "EXAMPLES_NAV": EXAMPLES_NAV,
+        "ESSAYS_NAV": ESSAYS_NAV,
+        # Utility
+        "find-current": _find_current,
+    })

sx/sxc/pages/docs.sx

@@ -0,0 +1,98 @@
+;; SX docs app — declarative page definitions
+;; These replace the GET route handlers in routes.py
+
+;; ---------------------------------------------------------------------------
+;; Home page
+;; ---------------------------------------------------------------------------
+
+(defpage home
+  :path "/"
+  :auth :public
+  :layout :sx
+  :content (home-content))
+
+;; ---------------------------------------------------------------------------
+;; Docs section
+;; ---------------------------------------------------------------------------
+
+(defpage docs-page
+  :path "/docs/<slug>"
+  :auth :public
+  :layout (:sx-section
+    :section "Docs"
+    :sub-label "Docs"
+    :sub-href "/docs/introduction"
+    :sub-nav (docs-nav (find-current DOCS_NAV slug))
+    :selected (or (find-current DOCS_NAV slug) ""))
+  :content (docs-content slug))
+
+;; ---------------------------------------------------------------------------
+;; Reference section
+;; ---------------------------------------------------------------------------
+
+(defpage reference-index
+  :path "/reference/"
+  :auth :public
+  :layout (:sx-section
+    :section "Reference"
+    :sub-label "Reference"
+    :sub-href "/reference/"
+    :sub-nav (reference-nav "Attributes")
+    :selected "Attributes")
+  :content (reference-content ""))
+
+(defpage reference-page
+  :path "/reference/<slug>"
+  :auth :public
+  :layout (:sx-section
+    :section "Reference"
+    :sub-label "Reference"
+    :sub-href "/reference/"
+    :sub-nav (reference-nav (find-current REFERENCE_NAV slug))
+    :selected (or (find-current REFERENCE_NAV slug) ""))
+  :content (reference-content slug))
+
+;; ---------------------------------------------------------------------------
+;; Protocols section
+;; ---------------------------------------------------------------------------
+
+(defpage protocol-page
+  :path "/protocols/<slug>"
+  :auth :public
+  :layout (:sx-section
+    :section "Protocols"
+    :sub-label "Protocols"
+    :sub-href "/protocols/wire-format"
+    :sub-nav (protocols-nav (find-current PROTOCOLS_NAV slug))
+    :selected (or (find-current PROTOCOLS_NAV slug) ""))
+  :content (protocol-content slug))
+
+;; ---------------------------------------------------------------------------
+;; Examples section
+;; ---------------------------------------------------------------------------
+
+(defpage examples-page
+  :path "/examples/<slug>"
+  :auth :public
+  :layout (:sx-section
+    :section "Examples"
+    :sub-label "Examples"
+    :sub-href "/examples/click-to-load"
+    :sub-nav (examples-nav (find-current EXAMPLES_NAV slug))
+    :selected (or (find-current EXAMPLES_NAV slug) ""))
+  :content (examples-content slug))
+
+;; ---------------------------------------------------------------------------
+;; Essays section
+;; ---------------------------------------------------------------------------
+
+(defpage essay-page
+  :path "/essays/<slug>"
+  :auth :public
+  :layout (:sx-section
+    :section "Essays"
+    :sub-label "Essays"
+    :sub-href "/essays/sx-sucks"
+    :sub-nav (essays-nav (find-current ESSAYS_NAV slug))
+    :selected (or (find-current ESSAYS_NAV slug) ""))
+  :content (essay-content slug))