giles
b8ead3c223
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 52s
Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
84 lines
2.0 KiB
Plaintext
84 lines
2.0 KiB
Plaintext
;; Extension — global find/replace across text-bearing blocks.
|
|
|
|
(st-bootstrap-classes!)
|
|
(content/bootstrap!)
|
|
(content-bootstrap-section!)
|
|
|
|
(define
|
|
d
|
|
(doc-append
|
|
(doc-append
|
|
(doc-append (doc-empty "d") (mk-heading "h" 1 "Foo title"))
|
|
(mk-text "p" "the Foo is here"))
|
|
(mk-section
|
|
"s"
|
|
(list (mk-text "n" "nested Foo") (mk-image "img" "/foo.png" "Foo alt")))))
|
|
|
|
(define r (content/find-replace d "Foo" "Bar"))
|
|
|
|
;; ── replaces in heading + text ──
|
|
(content-test
|
|
"replace heading"
|
|
(str (blk-send (doc-deep-find r "h") "text"))
|
|
"Bar title")
|
|
(content-test
|
|
"replace text"
|
|
(str (blk-send (doc-deep-find r "p") "text"))
|
|
"the Bar is here")
|
|
(content-test
|
|
"replace nested text"
|
|
(str (blk-send (doc-deep-find r "n") "text"))
|
|
"nested Bar")
|
|
|
|
;; ── does NOT touch image alt/src (not a text field) ──
|
|
(content-test
|
|
"image alt untouched"
|
|
(str (blk-send (doc-deep-find r "img") "alt"))
|
|
"Foo alt")
|
|
(content-test
|
|
"image src untouched"
|
|
(str (blk-send (doc-deep-find r "img") "src"))
|
|
"/foo.png")
|
|
|
|
;; ── immutable ──
|
|
(content-test
|
|
"original unchanged"
|
|
(str (blk-send (doc-deep-find d "p") "text"))
|
|
"the Foo is here")
|
|
|
|
;; ── multiple occurrences in one block ──
|
|
(content-test
|
|
"all occurrences"
|
|
(str
|
|
(blk-send
|
|
(doc-find
|
|
(content/find-replace
|
|
(doc-append (doc-empty "d") (mk-text "p" "a a a"))
|
|
"a"
|
|
"b")
|
|
"p")
|
|
"text"))
|
|
"b b b")
|
|
|
|
;; ── code + quote text replaced ──
|
|
(define
|
|
d2
|
|
(doc-append
|
|
(doc-append (doc-empty "d") (mk-code "c" "sx" "(old)"))
|
|
(mk-quote "q" "src" "old saying")))
|
|
(define r2 (content/find-replace d2 "old" "new"))
|
|
(content-test
|
|
"replace code"
|
|
(str (blk-send (doc-find r2 "c") "text"))
|
|
"(new)")
|
|
(content-test
|
|
"replace quote"
|
|
(str (blk-send (doc-find r2 "q") "text"))
|
|
"new saying")
|
|
|
|
;; ── no match → unchanged render ──
|
|
(content-test
|
|
"no match"
|
|
(asHTML (content/find-replace d "zzz" "qqq"))
|
|
(asHTML d))
|