Document and move tryParseBuild

src/org/org_text_delimiter.nim

@@ -8,6 +8,7 @@ import ./org_types
 import ../utils/fp
 import ../parser/parser_internals
 import ../parser/parser_types
+import ../parser/builder_api
 
 let parseBetweenDelimiter* = proc(start: (Parser -> ParserResult), stop: (Parser -> ParserResult)): (Parser -> ParserResult) {.closure.} =
   ignore(start) +
@@ -74,7 +75,7 @@ proc makeOrgToken*(orgTokenFn: string -> OrgBuilderT): (seq[ParserToken], seq[Or
   return proc(parserTokens: seq[ParserToken], builderTokens: seq[OrgBuilderT]): seq[OrgBuilderT] =
     return builderTokens & parserTokens.foldl(a & b.tokenStringValue(), "").orgTokenFn()
 
-proc parseText[T](
+proc tryParseBuild[T](
   builder: Builder[T],
   builderFns: seq[tuple[
     parserFn: Parser -> ParserResult,
@@ -149,7 +150,7 @@ when isMainModule:
       parser: initParser("Regular *bold* /italic/ _underline_ =verbatim= ~code~ +strikethrough+"),
       tree: newSeq[OrgBuilderT](),
   )))
-  .flatMap((builder: OrgBuilder) => parseText(
+  .flatMap((builder: OrgBuilder) => tryParseBuild(
     builder = builder,
     builderFns = @[
       (boldParser, makeOrgToken(makeBoldToken)),

src/org/org_types.nim

@@ -4,7 +4,14 @@ type
   orgElementKind* = enum
     orgRawText,
     orgText,
+
+    # Formating
     orgBoldText,
+    orgItalicText,
+    orgUnderlineText,
+    orgVerbatimText,
+    orgCodeText,
+    orgStrikeThroughText,
   OrgElement* = ref object
     children*: seq[OrgElement]
     content*: string
@@ -12,13 +19,27 @@ type
     case kind*: orgElementKind
     of orgRawText: discard
     of orgText: discard
+
+    # Formating
     of orgBoldText: discard
+    of orgItalicText: discard
+    of orgUnderlineText: discard
+    of orgVerbatimText: discard
+    of orgCodeText: discard
+    of orgStrikeThroughText: discard
 
 proc `$`*(x: orgElementKind): string =
   case x:
-    of orgRawText: "Text (Raw)"
-    of orgText: "Text"
-    of orgBoldText: "Text (Bold)"
+    of orgRawText:            "Text (Raw)"
+    of orgText:               "Text"
+
+    # Formating
+    of orgBoldText:           "Text (Bold)"
+    of orgItalicText:         "Text (Italic)"
+    of orgUnderlineText:      "Text (Underline)"
+    of orgVerbatimText:       "Text (Verbatim)"
+    of orgCodeText:           "Text (Code)"
+    of orgStrikeThroughText:  "Text (StrikeThrough)"
 
 proc `$`*(x: OrgElement): string =
   &"""OrgElement(