Build out list items
This commit is contained in:
@@ -10,6 +10,10 @@ import ./org_types
|
|||||||
import ./org_builder_api
|
import ./org_builder_api
|
||||||
import ./org_builder_link.nim
|
import ./org_builder_link.nim
|
||||||
import ../parser/parser
|
import ../parser/parser
|
||||||
|
import ../utils/fp
|
||||||
|
|
||||||
|
import fusion/matching
|
||||||
|
{.experimental: "caseStmtMacros".}
|
||||||
|
|
||||||
# let lineTokenizer = (builder: OrgInlineBuilder) => tryTokenize(
|
# let lineTokenizer = (builder: OrgInlineBuilder) => tryTokenize(
|
||||||
# builder = builder,
|
# builder = builder,
|
||||||
@@ -60,7 +64,10 @@ proc buildListItem(builder: OrgBuilder): OrgBuilderResult =
|
|||||||
.flatMap(listContentParser)
|
.flatMap(listContentParser)
|
||||||
.map(flattenTokens)
|
.map(flattenTokens)
|
||||||
|
|
||||||
echo listContent
|
let y = case (beforeSpaces, listType, listContent):
|
||||||
|
of (Some(@a), Some(@b), Some(@c)): c.tokens.tokensToString()
|
||||||
|
else: ""
|
||||||
|
echo y
|
||||||
|
|
||||||
builder.ok()
|
builder.ok()
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user