add md lists support

testing/md.test.nix

@@ -28,6 +28,48 @@ in with md; [
     expected = elems.code code;
   }))
 
+  (it "matches a list of one element" (
+  {
+    actual = list ''
+    - something
+    '';
+    expected = { matched = true; block = elems.List ["something\n"];};
+  }))
+
+  (it "matches a list of many elements" (
+  {
+    actual = list ''
+    - something
+    - something else
+    '';
+    expected = { matched = true; block = elems.List ["something\n" "something else\n"];};
+  }))
+
+  (it "matches a list with no whitespace around" (
+  {
+    actual = list 
+    "- something\n- something else";
+    expected = { matched = true; block = elems.List ["something\n" "something else"];};
+  }))
+
+
+  (it "doesnt match not a list" (
+  let
+  str = "blah blah";
+  in
+  {
+    actual = list str;
+    expected = { matched = false; block = str;};
+  }))
+
+  (it "makes a list" (
+  {
+    actual = mdBlock ''
+      - something
+    '';
+    expected = elems.List ["something\n"];
+  }))
+
   (it "processes md block" {
     actual = readMd ''
       # foo bar