giles
4e26b3c0f7
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 1m1s
Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
92 lines
2.5 KiB
Plaintext
92 lines
2.5 KiB
Plaintext
;; Extension — deep tree editing (update/delete/insert into nested sections).
|
|
|
|
(st-bootstrap-classes!)
|
|
(content/bootstrap!)
|
|
(content-bootstrap-section!)
|
|
|
|
;; doc: top / sec[ a, inner[ b ] ]
|
|
(define
|
|
d
|
|
(doc-append
|
|
(doc-append (doc-empty "d") (mk-text "top" "T"))
|
|
(mk-section
|
|
"sec"
|
|
(list
|
|
(mk-text "a" "A")
|
|
(mk-section "inner" (list (mk-text "b" "B")))))))
|
|
|
|
;; ── deep-update a nested block ──
|
|
(define d1 (doc-deep-update d "b" "text" "Edited"))
|
|
(content-test
|
|
"deep-update nested"
|
|
(str (blk-send (doc-deep-find d1 "b") "text"))
|
|
"Edited")
|
|
(content-test
|
|
"deep-update immutable"
|
|
(str (blk-send (doc-deep-find d "b") "text"))
|
|
"B")
|
|
(content-test
|
|
"deep-update top-level"
|
|
(str
|
|
(blk-send
|
|
(doc-deep-find (doc-deep-update d "top" "text" "X") "top")
|
|
"text"))
|
|
"X")
|
|
(content-test
|
|
"deep-update mid-section"
|
|
(str
|
|
(blk-send (doc-deep-find (doc-deep-update d "a" "text" "AA") "a") "text"))
|
|
"AA")
|
|
(content-test
|
|
"deep-update preserves tree"
|
|
(doc-tree-ids d1)
|
|
(doc-tree-ids d))
|
|
|
|
;; ── deep-replace ──
|
|
(define d2 (doc-deep-replace d "b" (mk-heading "b" 3 "H")))
|
|
(content-test
|
|
"deep-replace type"
|
|
(blk-type (doc-deep-find d2 "b"))
|
|
"heading")
|
|
(content-test
|
|
"deep-replace render"
|
|
(asHTML d2)
|
|
"<p>T</p><section><p>A</p><section><h3>H</h3></section></section>")
|
|
|
|
;; ── deep-delete ──
|
|
(define d3 (doc-deep-delete d "b"))
|
|
(content-test "deep-delete removes nested" (doc-deep-find d3 "b") nil)
|
|
(content-test
|
|
"deep-delete tree-ids"
|
|
(doc-tree-ids d3)
|
|
(list "top" "sec" "a" "inner"))
|
|
(content-test "deep-delete immutable" (doc-tree-count d) 5)
|
|
(content-test
|
|
"deep-delete mid-section"
|
|
(doc-tree-ids (doc-deep-delete d "a"))
|
|
(list "top" "sec" "inner" "b"))
|
|
(content-test
|
|
"deep-delete top-level"
|
|
(doc-tree-ids (doc-deep-delete d "top"))
|
|
(list "sec" "a" "inner" "b"))
|
|
|
|
;; ── deep-insert-into a nested section ──
|
|
(define d4 (doc-deep-insert-into d "inner" (mk-text "c" "C")))
|
|
(content-test
|
|
"insert-into nested"
|
|
(doc-tree-ids d4)
|
|
(list "top" "sec" "a" "inner" "b" "c"))
|
|
(content-test
|
|
"insert-into found"
|
|
(str (blk-send (doc-deep-find d4 "c") "text"))
|
|
"C")
|
|
(content-test
|
|
"insert-into outer section"
|
|
(doc-tree-ids (doc-deep-insert-into d "sec" (mk-divider "dv")))
|
|
(list "top" "sec" "a" "inner" "b" "dv"))
|
|
(content-test "insert-into immutable" (doc-tree-count d) 5)
|
|
(content-test
|
|
"insert-into render"
|
|
(asHTML d4)
|
|
"<p>T</p><section><p>A</p><section><p>B</p><p>C</p></section></section>")
|