From fe2475c49def53455fa36ddded1746c73d6a7560 Mon Sep 17 00:00:00 2001
From: giles <giles.bradshaw@rose-ash.com>
Date: Sun, 7 Jun 2026 04:04:03 +0000
Subject: [PATCH] content: TOC rendering (toc.sx) + 8 tests (594/594)

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
---
 lib/content/conformance.sh  |  3 +-
 lib/content/scoreboard.json |  5 +--
 lib/content/scoreboard.md   |  3 +-
 lib/content/tests/toc.sx    | 63 ++++++++++++++++++++++++++++++++++
 lib/content/toc.sx          | 68 +++++++++++++++++++++++++++++++++++++
 plans/content-on-sx.md      |  8 ++++-
 6 files changed, 145 insertions(+), 5 deletions(-)
 create mode 100644 lib/content/tests/toc.sx
 create mode 100644 lib/content/toc.sx

diff --git a/lib/content/conformance.sh b/lib/content/conformance.sh
index 4697c991..b2bf0974 100755
--- a/lib/content/conformance.sh
+++ b/lib/content/conformance.sh
@@ -15,7 +15,7 @@ if [ ! -x "$SX_SERVER" ]; then
   fi
 fi
 
-SUITES=(block doc render api meta page page-full markdown text section compose tree-edit clone query transform stats table data wire validate store snapshot crdt crdt-store sync md-import md-doc fed)
+SUITES=(block doc render api meta page page-full markdown text section compose tree-edit clone query toc transform stats table data wire validate store snapshot crdt crdt-store sync md-import md-doc fed)
 
 OUT_JSON="lib/content/scoreboard.json"
 OUT_MD="lib/content/scoreboard.md"
@@ -49,6 +49,7 @@ run_suite() {
 (load "lib/content/tree-edit.sx")
 (load "lib/content/clone.sx")
 (load "lib/content/query.sx")
+(load "lib/content/toc.sx")
 (load "lib/content/transform.sx")
 (load "lib/content/stats.sx")
 (load "lib/content/table.sx")
diff --git a/lib/content/scoreboard.json b/lib/content/scoreboard.json
index 9f9b976b..76d76f3f 100644
--- a/lib/content/scoreboard.json
+++ b/lib/content/scoreboard.json
@@ -14,6 +14,7 @@
     "tree-edit": {"pass": 17, "fail": 0},
     "clone": {"pass": 10, "fail": 0},
     "query": {"pass": 13, "fail": 0},
+    "toc": {"pass": 8, "fail": 0},
     "transform": {"pass": 12, "fail": 0},
     "stats": {"pass": 17, "fail": 0},
     "table": {"pass": 15, "fail": 0},
@@ -29,7 +30,7 @@
     "md-doc": {"pass": 12, "fail": 0},
     "fed": {"pass": 20, "fail": 0}
   },
-  "total_pass": 586,
+  "total_pass": 594,
   "total_fail": 0,
-  "total": 586
+  "total": 594
 }
diff --git a/lib/content/scoreboard.md b/lib/content/scoreboard.md
index e1d94b7e..d1fe2e50 100644
--- a/lib/content/scoreboard.md
+++ b/lib/content/scoreboard.md
@@ -18,6 +18,7 @@ _Generated by `lib/content/conformance.sh`_
 | tree-edit | 17 | 0 | 17 |
 | clone | 10 | 0 | 10 |
 | query | 13 | 0 | 13 |
+| toc | 8 | 0 | 8 |
 | transform | 12 | 0 | 12 |
 | stats | 17 | 0 | 17 |
 | table | 15 | 0 | 15 |
@@ -32,4 +33,4 @@ _Generated by `lib/content/conformance.sh`_
 | md-import | 38 | 0 | 38 |
 | md-doc | 12 | 0 | 12 |
 | fed | 20 | 0 | 20 |
-| **Total** | **586** | **0** | **586** |
+| **Total** | **594** | **0** | **594** |
diff --git a/lib/content/tests/toc.sx b/lib/content/tests/toc.sx
new file mode 100644
index 00000000..5181e081
--- /dev/null
+++ b/lib/content/tests/toc.sx
@@ -0,0 +1,63 @@
+;; Extension — table-of-contents rendering.
+
+(st-bootstrap-classes!)
+(content/bootstrap!)
+(content-bootstrap-section!)
+
+(define nl (str "\n"))
+
+(define
+  d
+  (doc-append
+    (doc-append
+      (doc-append
+        (doc-append (doc-empty "d") (mk-heading "intro" 1 "Intro"))
+        (mk-text "p" "x"))
+      (mk-heading "bg" 2 "Background"))
+    (mk-section "s" (list (mk-heading "deep" 2 "Details")))))
+
+;; ── markdown TOC (indented by level) ──
+(content-test
+  "toc markdown"
+  (content/toc-markdown d)
+  (str
+    "- [Intro](#intro)"
+    nl
+    "  - [Background](#bg)"
+    nl
+    "  - [Details](#deep)"))
+
+;; ── html TOC (anchor links) ──
+(content-test
+  "toc html"
+  (content/toc-html d)
+  "<ul><li><a href=\"#intro\">Intro</a></li><li><a href=\"#bg\">Background</a></li><li><a href=\"#deep\">Details</a></li></ul>")
+
+;; ── html escapes heading text ──
+(content-test
+  "toc html escapes"
+  (content/toc-html
+    (doc-append (doc-empty "d") (mk-heading "h" 1 "A < B")))
+  "<ul><li><a href=\"#h\">A &lt; B</a></li></ul>")
+
+;; ── empty / no headings ──
+(content-test "toc html empty" (content/toc-html (doc-empty "e")) "")
+(content-test "toc markdown empty" (content/toc-markdown (doc-empty "e")) "")
+(content-test
+  "toc no headings"
+  (content/toc-html (doc-append (doc-empty "d") (mk-text "p" "just text")))
+  "")
+
+;; ── single heading ──
+(content-test
+  "toc single md"
+  (content/toc-markdown
+    (doc-append (doc-empty "d") (mk-heading "h" 1 "Only")))
+  "- [Only](#h)")
+
+;; ── deep level indentation ──
+(content-test
+  "toc deep indent"
+  (content/toc-markdown
+    (doc-append (doc-empty "d") (mk-heading "h" 3 "Deep")))
+  "    - [Deep](#h)")
diff --git a/lib/content/toc.sx b/lib/content/toc.sx
new file mode 100644
index 00000000..eb4c8c03
--- /dev/null
+++ b/lib/content/toc.sx
@@ -0,0 +1,68 @@
+;; content-on-sx — table-of-contents rendering.
+;;
+;; Turns content/headings into a user-facing TOC: a Markdown bullet list indented
+;; by heading level, and an HTML <ul> of anchor links (#id). The blog page links
+;; these to heading anchors.
+;;
+;; Requires (loaded by harness): query.sx (content/headings), render.sx
+;; (htmlEscaped).
+
+(define toc-nl (str "\n"))
+(define
+  toc-join
+  (fn
+    (sep parts)
+    (cond
+      ((= (len parts) 0) "")
+      ((= (len parts) 1) (first parts))
+      (else (str (first parts) sep (toc-join sep (rest parts)))))))
+
+(define
+  toc-indent
+  (fn
+    (n)
+    (if (<= n 0) "" (str "  " (toc-indent (- n 1))))))
+(define toc-esc (fn (s) (str (st-send s "htmlEscaped" (list)))))
+
+(define
+  content/toc-markdown
+  (fn
+    (doc)
+    (toc-join
+      toc-nl
+      (map
+        (fn
+          (h)
+          (str
+            (toc-indent (- (get h :level) 1))
+            "- ["
+            (get h :text)
+            "](#"
+            (get h :id)
+            ")"))
+        (content/headings doc)))))
+
+(define
+  content/toc-html
+  (fn
+    (doc)
+    (let
+      ((hs (content/headings doc)))
+      (if
+        (= (len hs) 0)
+        ""
+        (str
+          "<ul>"
+          (toc-join
+            ""
+            (map
+              (fn
+                (h)
+                (str
+                  "<li><a href=\"#"
+                  (get h :id)
+                  "\">"
+                  (toc-esc (get h :text))
+                  "</a></li>"))
+              hs))
+          "</ul>")))))
diff --git a/plans/content-on-sx.md b/plans/content-on-sx.md
index 3fe45e26..d2cd50a3 100644
--- a/plans/content-on-sx.md
+++ b/plans/content-on-sx.md
@@ -19,7 +19,7 @@ injected adapter, not core.
 
 ## Status (rolling)
 
-`bash lib/content/conformance.sh` → **586/586** (Phases 1–4 COMPLETE + extensions: HTML/SX escaping, Markdown render + import/export incl. tables & frontmatter (full round-trip), CRDT replication, tree-aware validation, snapshot cache, doc metadata, plain-text render, nested block trees + deep tree editing, doc stats, table block, HTML page wrapper + SEO page, doc composition + id-remap, portable data + wire serialization, block query + TOC + transforms)
+`bash lib/content/conformance.sh` → **594/594** (Phases 1–4 COMPLETE + extensions: HTML/SX escaping, Markdown render + import/export incl. tables & frontmatter (full round-trip), CRDT replication, tree-aware validation, snapshot cache, doc metadata, plain-text render, nested block trees + deep tree editing, doc stats, table block, HTML page wrapper + SEO page, doc composition + id-remap, portable data + wire serialization, block query + transforms, TOC rendering)
 
 ## Ground rules
 
@@ -96,11 +96,17 @@ lib/content/api.sx ── (content/edit) (content/render) (content/history) ─
 - [x] id remapping / clone (`clone.sx`: content/remap-ids + prefix-ids, collision-free compose)
 - [x] block query + TOC (`query.sx`: content/select/select-type/count-type/headings)
 - [x] block transforms (`transform.sx`: content/map-blocks/map-type/set-field-on)
+- [x] TOC rendering (`toc.sx`: content/toc-markdown + toc-html from headings)
 - [x] portable data serialization (`data.sx`: content/to-data + from-data, round-trips tree)
 - [x] wire serialization (`wire.sx`: content/to-wire + from-wire, SX-text on the wire)
 
 ## Progress log
 
+- 2026-06-07 — Extension: table-of-contents rendering (`toc.sx`).
+  `content/toc-markdown` produces a Markdown bullet list indented by heading
+  level with `[text](#id)` links; `content/toc-html` produces a `<ul>` of escaped
+  anchor links (`#id`). Built from `content/headings`; the blog page's TOC
+  artifact. 8 tests; suite 594/594.
 - 2026-06-07 — Extension: tree-wide block transforms (`transform.sx`). The write
   counterpart to query: `content/map-blocks` (predicate) / `content/map-type` /
   `content/set-field-on` apply a function to every matching block across the tree