From c760484c1abfed9cd85db8ec5eb4d659ad16ba2a Mon Sep 17 00:00:00 2001 From: Ryan Kavanagh Date: Sat, 30 May 2020 19:16:03 -0400 Subject: Added a build system and adopt modules --- bin/dune | 4 ++++ bin/leda.ml | 20 ++++++++++++++++++++ 2 files changed, 24 insertions(+) create mode 100644 bin/dune create mode 100644 bin/leda.ml (limited to 'bin') diff --git a/bin/dune b/bin/dune new file mode 100644 index 0000000..ddff424 --- /dev/null +++ b/bin/dune @@ -0,0 +1,4 @@ +(executable + (public_name leda) + (name main) + (libraries base gemini)) diff --git a/bin/leda.ml b/bin/leda.ml new file mode 100644 index 0000000..139f5fe --- /dev/null +++ b/bin/leda.ml @@ -0,0 +1,20 @@ +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) -- cgit v1.2.3