bin/leda.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

module M = Gemini.MimeTextGemini.MimeTextGemini

let test_gemini = "=> /blah   mylink\r\n\
  => /blah\r\n\
  ```\r\n\
  preformatted 1\r\n\
  preformatted 2\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 = M.gemini_to_canon_str (M.str_to_gemini s)

let main = print_endline (test_parse test_gemini)