Handle AST to JSON

Signed-off-by: George Lemon <georgelemon@protonmail.com>

Author: georgelemon

src/marvdown.nim

@@ -75,13 +75,31 @@ elif isMainModule:
         # show stats if `--bench` flag is set
         stdout.writeLine("🔥 Done in " & $benchTime & " sec")
 
+  proc jsonCommand(v: Values) =
+    ## Convert Markdown to JSON via CLI
+    if not v.has("md"):
+      display("Nothing to parse. Missing `.md` doc")
+      QuitFailure.quit
+
+    let
+      filePath = absolutePath(normalizedPath($(v.get("md").getPath)))
+      content = readFile(filePath)
+
+    var md = newMarkdown(content)
+
+    # output JSON to console
+    stdout.writeLine(md.toJson())
+
   # Kapsis CLI Application
   commands:
     html path(`md`), ?filename(`output`),
       bool(--optAnchors),
       bool(--bench):
         ## Write a markdown document to HTML
 
+    json path(`md`):
+      ## Export the markdown AST as JSON
+    
 else:
   # Use Marvdown as Nimble library
   import std/[htmlparser, xmltree]
@@ -100,3 +118,8 @@ else:
     ## Convert Markdown content to XML Node
     var md = newMarkdown(content)
     htmlparser.parseHtml(md.toHtml())
+
+  proc getAst*(content: sink string): string =
+    ## Retrieve the Markdown AST as a stringified JSON
+    var md = newMarkdown(content)
+    md.toJson()

src/marvdown/parser.nim

@@ -11,6 +11,7 @@ import htmlparser {.all.}
 export HtmlTag
 
 import ./lexer, ./ast
+import pkg/jsony
 
 type
   MarkdownParser* = object
@@ -199,14 +200,6 @@ proc parseCheckboxItem(md: var Markdown): MarkdownNode =
     for n in md.parseInline(itemText):
       result.children.items.add(n)
   md.advance()
-  
-  # If there's text after the checkbox, parse it as inline
-  # echo md.parser.curr
-  # if md.parser.curr.kind == mtkText and md.parser.curr.token.len > 0:
-  #   echo md.parser.curr.token
-  #   for n in md.parseInline(md.parser.curr.token.strip()):
-  #     result.children.items.add(n)
-  #   md.advance()
 
 proc parseEmphasis(md: var Markdown): MarkdownNode =
   # Parse emphasis text and add to current paragraph
@@ -692,6 +685,10 @@ proc toHtml*(md: var Markdown): string =
   if md.opts.showFootnotes and md.footnotesHtml.len > 0:
     add result, "<hr><div class=\"footnotes\">" & md.footnotesHtml & "</div>"
 
+proc toJson*(md: Markdown): string =
+  ## Convert the parsed Markdown AST to JSON
+  jsony.toJson(md.ast)
+
 proc getSelectors*(md: Markdown): OrderedTableRef[string, string] =
   ## Get the headline selectors (anchors) from the parsed Markdown
   md.selectors