From c760484c1abfed9cd85db8ec5eb4d659ad16ba2a Mon Sep 17 00:00:00 2001
From: Ryan Kavanagh <rak@rak.ac>
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