content: document metadata (meta.sx) + Ghost title plumbing + 27 tests (365/365)

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>

lib/content/doc.sx

@@ -5,6 +5,9 @@
 ;; and returns a NEW document — the input is never mutated, so any version is the
 ;; head of an op stream (replay-friendly for persist + CRDT merge).
 ;;
+;; CtDoc also carries optional metadata (title/slug/tags) — see meta.sx for the
+;; ergonomic API; they default nil and do not affect block operations.
+;;
 ;; Op shapes (data, not objects — they are the persist event payload):
 ;;   {:op "insert" :block <blk> :after <id|nil>}   ; after nil = prepend
 ;;   {:op "update" :id <id> :field <name> :value <v>}
@@ -16,10 +19,16 @@
   (fn
     ()
     (begin
-      (st-class-define! "CtDoc" "Object" (list "id" "blocks"))
+      (st-class-define!
+        "CtDoc"
+        "Object"
+        (list "id" "blocks" "title" "slug" "tags"))
       (ct-def-method! "CtDoc" "id" "id ^ id")
       (ct-def-method! "CtDoc" "blocks" "blocks ^ blocks")
       (ct-def-method! "CtDoc" "type" "type ^ #document")
+      (ct-def-method! "CtDoc" "title" "title ^ title")
+      (ct-def-method! "CtDoc" "slug" "slug ^ slug")
+      (ct-def-method! "CtDoc" "tags" "tags ^ tags")
       true)))
 
 ;; ── construction ──