Trying to parse list type

This commit is contained in:
Florian Schroedl
2022-10-14 20:54:59 +02:00
parent 17c8927deb
commit cc1064a40a
4 changed files with 126 additions and 22 deletions

View File

@@ -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('*'),