Trying to parse list type
This commit is contained in:
@@ -77,24 +77,24 @@ let buildStars = func(tokens: seq[ParserToken], org: OrgBlock): OrgBlock {.closu
|
||||
# let buildHeadlineNewline = func(tokens: seq[ParserToken], org: OrgBlock): OrgBlock {.closure.}=
|
||||
# org
|
||||
|
||||
# proc tryBuildHeading(builder: OrgBuilderResult): OrgBuilderResult =
|
||||
# # echo builder
|
||||
# builder
|
||||
# .applyParsersSeqToSingle(
|
||||
# OrgBlock(kind: orgHeading),
|
||||
# @[
|
||||
# (parseHeadingStars, buildStars, false),
|
||||
proc tryBuildHeading(builder: OrgBuilderResult): OrgBuilderResult =
|
||||
# echo builder
|
||||
builder
|
||||
.applyParsersSeqToSingle(
|
||||
OrgBlock(kind: orgHeading),
|
||||
@[
|
||||
(parseHeadingStars, buildStars, false),
|
||||
|
||||
# (@[optional(parseTodoKeyword)], buildTodo, true),
|
||||
# (@[optional(parseDoneKeyword)], buildTodo, true),
|
||||
(@[optional(parseTodoKeyword)], buildTodo, true),
|
||||
(@[optional(parseDoneKeyword)], buildTodo, true),
|
||||
|
||||
# (parseHeadingText, buildHeadlineContent, false),
|
||||
(parseHeadingText, buildHeadlineContent, false),
|
||||
|
||||
# # (parseContentText, buildHeadlineChildren, true),
|
||||
# (parseContentText, buildHeadlineChildren, true),
|
||||
|
||||
# (parseHeadlineNewline, buildHeadlineNewline, false),
|
||||
# ]
|
||||
# )
|
||||
(parseHeadlineNewline, buildHeadlineNewline, false),
|
||||
]
|
||||
)
|
||||
|
||||
# let headingParser = choice(@[
|
||||
# newline + ch('*'),
|
||||
|
||||
Reference in New Issue
Block a user