;; Extension — Markdown import adapter (markdown text -> blocks), inverse of
;; asMarkdown. Round-trips canonical Markdown.

(st-bootstrap-classes!)
(content/bootstrap!)
(content-bootstrap-markdown!)

(define nl (str "\n"))

;; ── headings ──
(define dh (md/import "# Title" "d"))
(content-test "heading import type" (doc-types dh) (list "heading"))
(content-test
  "heading level"
  (blk-send (doc-find dh "b0") "level")
  1)
(content-test
  "heading text"
  (str (blk-send (doc-find dh "b0") "text"))
  "Title")
(content-test
  "h3 import"
  (blk-send (doc-find (md/import "### Deep" "d") "b0") "level")
  3)

;; ── paragraph (consecutive lines join with space) ──
(content-test
  "paragraph join"
  (str
    (blk-send
      (doc-find (md/import (str "hello" nl "world") "d") "b0")
      "text"))
  "hello world")

;; ── blockquote, divider ──
(content-test
  "blockquote"
  (str (blk-send (doc-find (md/import "> quoted" "d") "b0") "text"))
  "quoted")
(content-test "divider" (doc-types (md/import "---" "d")) (list "divider"))

;; ── unordered + ordered lists ──
(define dul (md/import (str "- a" nl "- b" nl "- c") "d"))
(content-test "ul type" (doc-types dul) (list "list"))
(content-test
  "ul not ordered"
  (blk-send (doc-find dul "b0") "ordered")
  false)
(content-test
  "ul items"
  (blk-send (doc-find dul "b0") "items")
  (list "a" "b" "c"))
(define dol (md/import (str "1. x" nl "2. y") "d"))
(content-test "ol ordered" (blk-send (doc-find dol "b0") "ordered") true)
(content-test
  "ol items"
  (blk-send (doc-find dol "b0") "items")
  (list "x" "y"))

;; ── fenced code ──
(define dc (md/import (str "```sx" nl "(+ 1 2)" nl "(* 3 4)" nl "```") "d"))
(content-test "code type" (doc-types dc) (list "code"))
(content-test
  "code language"
  (str (blk-send (doc-find dc "b0") "language"))
  "sx")
(content-test
  "code body"
  (str (blk-send (doc-find dc "b0") "text"))
  (str "(+ 1 2)" nl "(* 3 4)"))

;; ── multiple blocks separated by blank lines ──
(define dm (md/import (str "# H" nl nl "para" nl nl "- a" nl "- b") "d"))
(content-test "multi types" (doc-types dm) (list "heading" "text" "list"))
(content-test "multi ids" (doc-ids dm) (list "b0" "b1" "b2"))

;; ── empty / blank input ──
(content-test "empty input" (doc-ids (md/import "" "d")) (list))
(content-test
  "blank lines only"
  (doc-ids (md/import (str nl nl) "d"))
  (list))

;; ── round-trip: import . export == identity (canonical markdown) ──
(define
  src
  (str
    "# Title"
    nl
    nl
    "hello world"
    nl
    nl
    "> quoted"
    nl
    nl
    "- a"
    nl
    "- b"
    nl
    nl
    "---"))
(content-test "round-trip markdown" (asMarkdown (md/import src "d")) src)
(content-test
  "round-trip code"
  (asMarkdown (md/import (str "```js" nl "x = 1" nl "```") "d"))
  (str "```js" nl "x = 1" nl "```"))

;; ── adapter form ──
(content-test
  "adapter import"
  (doc-types (content/import markdown-adapter "# Hi" "d"))
  (list "heading"))
(content-test
  "adapter export round-trip"
  (content/export markdown-adapter (content/import markdown-adapter src "d"))
  src)

;; ── imported doc validates ──
(content-test "imported doc valid" (content/valid? (md/import src "d")) true)