Module Textile_html (.ml)

module Textile_html: sig .. end

Facilities for converting textile into html

exception Invalid_textile of string

Raises only when function receives invalid AST, for example, with Header 10.

val of_stream : ?escape_cdata:bool ->
       ?escape_nott:bool -> Textile.block Stream.t -> string Stream.t

Function will not escape special HTML chars if escape is false. Default is true.

val of_block : ?escape_cdata:bool -> ?escape_nott:bool -> Textile.block -> string

The same, but takes one textile block.

Example of use:

let () =

  let to_lines path =

    let chan = open_in path in

    Stream.from

      (fun _ ->

        try Some (input_line chan)

        with End_of_file -> None) in

  let lines = to_lines "test.txt" in

  let textile = Textile_pasrer.of_stream lines in

  Stream.iter print_endline (Textile_html.of_block textile)