Source file omd.ml

module Pre = Block.Pre

include Ast

type doc = block list

let parse_inline defs s =
  Parser.inline defs (Parser.P.of_string s)

let parse_inlines (md, defs) =
  let defs =
    let f (def : link_def) = {def with label = Parser.normalize def.label} in
    List.map f defs
  in
  List.map (Mapper.map (parse_inline defs)) md

let of_channel ic =
  parse_inlines (Pre.of_channel ic)

let of_string s =
  parse_inlines (Pre.of_string s)

let to_html doc =
  Html.to_string (Html.of_doc doc)

let to_sexp ast =
  Format.asprintf "@[%a@]@." Sexp.print (Sexp.create ast)