path: root/bin/leda.ml

module M = Gemini.MimeTextGemini

let test_gemini = "\
  => /blah   mylink\r\n\
  => /blah\r\n\
  ```\r\n\
  preformatted\r\n\
  ``` ending preformatted text\r\n\
  some text\r\n\
  more text\r\n\
  \r\n\
  * unordered list\r\n"

let _ = print_endline test_gemini

let _ = print_endline "\n\n...gets parsed  as...\n\n"

let test_parse s = s (* M.gemini_to_str (M.str_to_gemini s) *)

let _ = print_endline (test_parse test_gemini)