content: find-replace covers callout text + 2 tests (752/752)

fr-has-text? now treats callout as text-bearing, matching asText/stats/
summary. content/find-replace previously skipped callout bodies silently.

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

lib/content/find-replace.sx

@@ -1,8 +1,9 @@
 ;; content-on-sx — global find/replace across text-bearing blocks.
 ;;
-;; Replaces every occurrence of `from` with `to` in the text field of text /
-;; heading / code / quote blocks, tree-wide (via the transform layer). For
-;; renaming a term throughout a document. Immutable; case-sensitive.
+;; Replaces every occurrence of `from` with `to` in the `text` field of
+;; text / heading / code / quote / callout blocks, tree-wide (via the transform
+;; layer). For renaming a term throughout a document. Immutable; case-sensitive.
+;; (Same text-bearing set asText/stats/summary treat as content.)
 ;;
 ;; Requires (loaded by harness): block.sx, transform.sx (content/map-blocks).
 
@@ -17,7 +18,9 @@
 
 (define
   fr-has-text?
-  (fn (b) (fr-in? (blk-type b) (list "text" "heading" "code" "quote"))))
+  (fn
+    (b)
+    (fr-in? (blk-type b) (list "text" "heading" "code" "quote" "callout"))))
 
 (define
   content/find-replace

lib/content/scoreboard.json

@@ -21,7 +21,7 @@
     "flatten": {"pass": 10, "fail": 0},
     "transform": {"pass": 12, "fail": 0},
     "normalize": {"pass": 11, "fail": 0},
-    "find-replace": {"pass": 10, "fail": 0},
+    "find-replace": {"pass": 12, "fail": 0},
     "stats": {"pass": 17, "fail": 0},
     "summary": {"pass": 14, "fail": 0},
     "index": {"pass": 13, "fail": 0},
@@ -42,7 +42,7 @@
     "md-doc": {"pass": 12, "fail": 0},
     "fed": {"pass": 20, "fail": 0}
   },
-  "total_pass": 750,
+  "total_pass": 752,
   "total_fail": 0,
-  "total": 750
+  "total": 752
 }

lib/content/scoreboard.md

@@ -25,7 +25,7 @@ _Generated by `lib/content/conformance.sh`_
 | flatten | 10 | 0 | 10 |
 | transform | 12 | 0 | 12 |
 | normalize | 11 | 0 | 11 |
-| find-replace | 10 | 0 | 10 |
+| find-replace | 12 | 0 | 12 |
 | stats | 17 | 0 | 17 |
 | summary | 14 | 0 | 14 |
 | index | 13 | 0 | 13 |
@@ -45,4 +45,4 @@ _Generated by `lib/content/conformance.sh`_
 | md-import | 38 | 0 | 38 |
 | md-doc | 12 | 0 | 12 |
 | fed | 20 | 0 | 20 |
-| **Total** | **750** | **0** | **750** |
+| **Total** | **752** | **0** | **752** |

lib/content/tests/find-replace.sx

@@ -3,6 +3,7 @@
 (st-bootstrap-classes!)
 (content/bootstrap!)
 (content-bootstrap-section!)
+(content-bootstrap-callout!)
 
 (define
   d
@@ -76,6 +77,32 @@
   (str (blk-send (doc-find r2 "q") "text"))
   "new saying")
 
+;; ── callout text is now covered (consistency with asText/stats/summary) ──
+(content-test
+  "replace callout text"
+  (str
+    (blk-send
+      (doc-find
+        (content/find-replace
+          (doc-append (doc-empty "d") (mk-callout "co" "note" "Foo here"))
+          "Foo"
+          "Bar")
+        "co")
+      "text"))
+  "Bar here")
+(content-test
+  "callout kind untouched by text replace"
+  (str
+    (blk-send
+      (doc-find
+        (content/find-replace
+          (doc-append (doc-empty "d") (mk-callout "co" "note" "x"))
+          "note"
+          "X")
+        "co")
+      "kind"))
+  "note")
+
 ;; ── no match → unchanged render ──
 (content-test
   "no match"