content: SEO page-full w/ meta description (page-full.sx) + 4 tests (485/485)

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
2026-06-07 02:55:23 +00:00
parent d994579598
commit 20867a62c3
6 changed files with 75 additions and 5 deletions
--- 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 markdown text section stats table validate store snapshot crdt crdt-store sync md-import md-doc fed)
+SUITES=(block doc render api meta page page-full markdown text section stats table validate store snapshot crdt crdt-store sync md-import md-doc fed)

 OUT_JSON="lib/content/scoreboard.json"
 OUT_MD="lib/content/scoreboard.md"
@@ -48,6 +48,7 @@ run_suite() {
 (load "lib/content/stats.sx")
 (load "lib/content/table.sx")
 (load "lib/content/page.sx")
+(load "lib/content/page-full.sx")
 (load "lib/content/markdown.sx")
 (load "lib/content/validate.sx")
 (load "lib/content/store.sx")
--- a/lib/content/page-full.sx
+++ b/lib/content/page-full.sx
@@ -0,0 +1,23 @@
+;; content-on-sx — SEO-complete HTML page.
+;;
+;; content/page-full extends content/page with a lang attribute and a
+;; <meta name="description"> drawn from the document excerpt (plain text,
+;; truncated). Composes the page, metadata and text layers.
+;;
+;; Requires (loaded by harness): page.sx (ct-html-escape, content/page-title),
+;; text.sx (content/excerpt), render.sx (asHTML).
+
+(define CONTENT-EXCERPT-LEN 160)
+
+(define
+  content/page-full
+  (fn
+    (doc)
+    (str
+      "<!doctype html><html lang=\"en\"><head><meta charset=\"utf-8\"><title>"
+      (ct-html-escape (content/page-title doc))
+      "</title><meta name=\"description\" content=\""
+      (ct-html-escape (content/excerpt doc CONTENT-EXCERPT-LEN))
+      "\"></head><body>"
+      (asHTML doc)
+      "</body></html>")))
--- a/lib/content/scoreboard.json
+++ b/lib/content/scoreboard.json
@@ -6,6 +6,7 @@
    "api": {"pass": 26, "fail": 0},
    "meta": {"pass": 27, "fail": 0},
    "page": {"pass": 7, "fail": 0},
+    "page-full": {"pass": 4, "fail": 0},
    "markdown": {"pass": 20, "fail": 0},
    "text": {"pass": 20, "fail": 0},
    "section": {"pass": 25, "fail": 0},
@@ -21,7 +22,7 @@
    "md-doc": {"pass": 12, "fail": 0},
    "fed": {"pass": 20, "fail": 0}
  },
-  "total_pass": 481,
+  "total_pass": 485,
  "total_fail": 0,
-  "total": 481
+  "total": 485
 }
--- a/lib/content/scoreboard.md
+++ b/lib/content/scoreboard.md
@@ -10,6 +10,7 @@ _Generated by `lib/content/conformance.sh`_
 | api | 26 | 0 | 26 |
 | meta | 27 | 0 | 27 |
 | page | 7 | 0 | 7 |
+| page-full | 4 | 0 | 4 |
 | markdown | 20 | 0 | 20 |
 | text | 20 | 0 | 20 |
 | section | 25 | 0 | 25 |
@@ -24,4 +25,4 @@ _Generated by `lib/content/conformance.sh`_
 | md-import | 38 | 0 | 38 |
 | md-doc | 12 | 0 | 12 |
 | fed | 20 | 0 | 20 |
-| **Total** | **481** | **0** | **481** |
+| **Total** | **485** | **0** | **485** |
--- a/lib/content/tests/page-full.sx
+++ b/lib/content/tests/page-full.sx
@@ -0,0 +1,39 @@
+;; Extension — SEO-complete HTML page (lang + meta description).
+
+(st-bootstrap-classes!)
+(content/bootstrap!)
+(content-bootstrap-text!)
+
+(define
+  d
+  (doc-with-title
+    (doc-append
+      (doc-append (doc-empty "post") (mk-heading "h" 1 "Hi"))
+      (mk-text "p" "Hello world"))
+    "My Title"))
+
+(content-test
+  "page-full"
+  (content/page-full d)
+  "<!doctype html><html lang=\"en\"><head><meta charset=\"utf-8\"><title>My Title</title><meta name=\"description\" content=\"Hi Hello world\"></head><body><h1>Hi</h1><p>Hello world</p></body></html>")
+
+;; description escaped
+(content-test
+  "page-full escapes description"
+  (content/page-full
+    (doc-with-title
+      (doc-append (doc-empty "x") (mk-text "p" "a < b & c"))
+      "T"))
+  "<!doctype html><html lang=\"en\"><head><meta charset=\"utf-8\"><title>T</title><meta name=\"description\" content=\"a &lt; b &amp; c\"></head><body><p>a &lt; b &amp; c</p></body></html>")
+
+;; title falls back to id, empty description for empty doc
+(content-test
+  "page-full empty"
+  (content/page-full (doc-empty "fallback"))
+  "<!doctype html><html lang=\"en\"><head><meta charset=\"utf-8\"><title>fallback</title><meta name=\"description\" content=\"\"></head><body></body></html>")
+
+;; body reflects edits
+(content-test
+  "page-full reflects edits"
+  (content/page-full (doc-update d "p" "text" "Bye now"))
+  "<!doctype html><html lang=\"en\"><head><meta charset=\"utf-8\"><title>My Title</title><meta name=\"description\" content=\"Hi Bye now\"></head><body><h1>Hi</h1><p>Bye now</p></body></html>")
--- 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` → **481/481** (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, doc stats, table block, HTML page wrapper)
+`bash lib/content/conformance.sh` → **485/485** (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, doc stats, table block, HTML page wrapper + SEO page)

 ## Ground rules

@@ -90,9 +90,14 @@ lib/content/api.sx ── (content/edit) (content/render) (content/history) ─
 - [x] document statistics (`stats.sx`: word/char/block counts, reading time)
 - [x] table block (`table.sx`: CtTable, renders html/sx/text/md, validated)
 - [x] HTML page wrapper (`page.sx`: content/page, escaped title from metadata)
+- [x] SEO page (`page-full.sx`: content/page-full, lang + meta description from excerpt)

 ## Progress log

+- 2026-06-07 — Extension: SEO-complete page (`page-full.sx`). `content/page-full`
+  extends content/page with `<html lang="en">` and a `<meta name="description">`
+  drawn from the document excerpt (plain text, escaped, 160 chars), composing the
+  page/metadata/text layers into the SEO-ready artifact. 4 tests; suite 485/485.
 - 2026-06-07 — Extension: Markdown document export (`md-doc.sx`).
  `content/markdown-doc` emits a `---` frontmatter block from metadata
  (title/slug/tags, only present fields) ahead of the Markdown body, or plain