Generate opam file, dune.3, omd.2.0.0~alpha3, emit tables!

.gitignore

@@ -1,3 +1,3 @@
 _build
 *.install
-.merlin
+_opam

dune-project

@@ -1,2 +1,19 @@
-(lang dune 2.0)
+(lang dune 3.6)
 (name md2mld)
+
+(generate_opam_files true)
+(formatting (enabled_for dune))
+
+(license "ISC")
+(source (github mseri/md2mld))
+(documentation "https://mseri.github.io/md2mld/")
+(authors "Marcello Seri <marcello.seri@gmail.com>")
+(maintainers "Marcello Seri <marcello.seri@gmail.com>")
+
+(package
+ (name md2mld)
+ (synopsis "Little cli tool to convert md files into mld files")
+ (depends
+  (ocaml (>= "4.08"))
+  base-bytes
+  (omd (>= "2.0.0~alpha3"))))

md2mld.opam

@@ -1,20 +1,31 @@
+# This file is generated by dune, edit dune-project instead
 opam-version: "2.0"
-name: "md2mld"
 synopsis: "Little cli tool to convert md files into mld files"
-maintainer: "Marcello Seri <marcello.seri@gmail.com>"
-authors: "Marcello Seri <marcello.seri@gmail.com>"
+maintainer: ["Marcello Seri <marcello.seri@gmail.com>"]
+authors: ["Marcello Seri <marcello.seri@gmail.com>"]
 license: "ISC"
 homepage: "https://github.com/mseri/md2mld"
 doc: "https://mseri.github.io/md2mld/"
 bug-reports: "https://github.com/mseri/md2mld/issues"
 depends: [
+  "dune" {>= "3.6"}
   "ocaml" {>= "4.08"}
-  "dune" {>= "2.0"}
   "base-bytes"
-  "omd" {>= "2.0.0~alpha2"}
+  "omd" {>= "2.0.0~alpha3"}
+  "odoc" {with-doc}
 ]
 build: [
   ["dune" "subst"] {dev}
-  ["dune" "build" "-p" name "-j" jobs "@install" "@runtest" {with-test}]
+  [
+    "dune"
+    "build"
+    "-p"
+    name
+    "-j"
+    jobs
+    "@install"
+    "@runtest" {with-test}
+    "@doc" {with-doc}
+  ]
 ]
 dev-repo: "git+https://github.com/mseri/md2mld.git"

src/backend.ml

@@ -219,6 +219,18 @@ let rec block ctx (bl : 'attr Omd.block) =
       , inline text
       , "}" )
   | Definition_list _ -> Null
+  | Table (_attr, header, rows) ->
+     (* Heavy syntax, no alignment defined yet *)
+     let header =
+       let rows = concat_map (fun (cell, _align) -> Surround ("{th ", inline cell, "}")) header in
+       Surround ("{tr ", rows, "}") in
+     let rows =
+       concat_map (fun row ->
+           let row = concat_map (fun cell -> Surround ("{td ", inline cell, "}")) row in
+           Surround ("{tr ", row, "}"))
+         rows
+     in
+     Surround ("{table ", concat header rows, "}")
 
 
 let of_doc ?(min_head_lvl = 0) doc =

tests/test.expected

@@ -41,3 +41,4 @@ another code block?
 {!module:Module} <-- An explicit cross reference
 
 {!Module} <-- An inferred cross reference
+{table {tr {th foo}{th bar}{th tut}}{tr {td {e baz}}{td bim}{td [who]}}{tr {td per}{td {b lol}}{td dit}}}

tests/test.md

@@ -33,4 +33,10 @@ And this is a link [Hello](https://ocaml.org).
 
 <module:Module> <-- An explicit cross reference
 
-<ref:Module> <-- An inferred cross reference
+<ref:Module> <-- An inferred cross reference
+
+
+| foo   | bar     | tut   |
+|:----- | ------- | -----:|
+| _baz_ | bim     | `who` |
+| per   | **lol** | dit   |