lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-27 10:46:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

Muse reader: make listItem generic

Browse Source
This commit is contained in:
Alexander Krotov
2018-01-21 03:26:54 +03:00
parent 5e106ce0b8
commit eaebc5fd19
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/Muse.hs
+3 -3
View File
@@ -432,7 +432,7 @@ listItemContents = do
let col = sourceColumn pos - 1
listItemContents' col
listItem :: PandocMonad m => Int -> MuseParser m () -> MuseParser m (F Blocks)
listItem :: PandocMonad m => Int -> MuseParser m a -> MuseParser m (F Blocks)
listItem n p = try $ do
optionMaybe blankline
count n spaceChar
@@ -449,7 +449,7 @@ bulletList = try $ do
char '-'
void spaceChar <|> lookAhead eol
first <- listItemContents
rest <- many $ listItem (col - 1) (void (char '-'))
rest <- many $ listItem (col - 1) (char '-')
return $ B.bulletList <$> sequence (first : rest)
orderedList :: PandocMonad m => MuseParser m (F Blocks)
@@ -463,7 +463,7 @@ orderedList = try $ do
guard $ delim == Period
void spaceChar <|> lookAhead eol
first <- listItemContents
rest <- many $ listItem (col - 1) (void (orderedListMarker style delim))
rest <- many $ listItem (col - 1) (orderedListMarker style delim)
return $ B.orderedListWith p <$> sequence (first : rest)
definitionListItem :: PandocMonad m => Int -> MuseParser m (F (Inlines, [Blocks]))