git.iko.soy/typeable/pandoc
on master help sign in
Muse reader: count only one space as part of list item marker
commit82bcda80c6e8b9e6e4e6c707569df4f9022b042f authorAlexander Krotov <ilabdsf@gmail.com> dateSun 19 Nov 2017, 04:26 (9 years ago) parent163af3f
2 files changed+38−24
compare with master
unifiedsplit
src/Text/Pandoc/Readers/Muse.hs+2−2 test/Tests/Readers/Muse.hs+36−22
src/Text/Pandoc/Readers/Muse.hs+2−2
@@ -392,8 +392,8 @@ listStart marker = try $ do
392392 st <- stateParserContext <$> getState
393393 getPosition >>= \pos -> guard (st == ListItemState || sourceColumn pos /= 1)
394394 markerLength <- marker
395− postWhitespace <- length <$> many1 spaceChar
396− return $ preWhitespace + markerLength + postWhitespace
395+ many1 spaceChar
396+ return $ preWhitespace + markerLength + 1
397397
398398listItemContents :: PandocMonad m => Int -> MuseParser m (F Blocks)
399399listItemContents markerLength = do
test/Tests/Readers/Muse.hs+36−22
@@ -527,28 +527,42 @@ tests =
527527 orderedListWith (1, Decimal, Period) [ para "Item1"
528528 , para "Item2"
529529 ]
530− , "Nested list" =:
531− T.unlines
532− [ " - Item1"
533− , " - Item2"
534− , " - Item3"
535− , " - Item4"
536− , " 1. Nested"
537− , " 2. Ordered"
538− , " 3. List"
539− ] =?>
540− bulletList [ mconcat [ para "Item1"
541− , bulletList [ para "Item2"
542− , para "Item3"
543− ]
544− ]
545− , mconcat [ para "Item4"
546− , orderedListWith (1, Decimal, Period) [ para "Nested"
547− , para "Ordered"
548− , para "List"
549− ]
550− ]
551− ]
530+ , testGroup "Nested lists"
531+ [ "Nested list" =:
532+ T.unlines
533+ [ " - Item1"
534+ , " - Item2"
535+ , " - Item3"
536+ , " - Item4"
537+ , " 1. Nested"
538+ , " 2. Ordered"
539+ , " 3. List"
540+ ] =?>
541+ bulletList [ mconcat [ para "Item1"
542+ , bulletList [ para "Item2"
543+ , para "Item3"
544+ ]
545+ ]
546+ , mconcat [ para "Item4"
547+ , orderedListWith (1, Decimal, Period) [ para "Nested"
548+ , para "Ordered"
549+ , para "List"
550+ ]
551+ ]
552+ ]
553+ , "Incorrectly indented Text::Amuse nested list" =:
554+ T.unlines
555+ [ " - First item"
556+ , " - Not nested item"
557+ ] =?>
558+ bulletList [ para "First item", para "Not nested item"]
559+ , "Text::Amuse includes only one space in list marker" =:
560+ T.unlines
561+ [ " - First item"
562+ , " - Nested item"
563+ ] =?>
564+ bulletList [ para "First item" <> bulletList [ para "Nested item"]]
565+ ]
552566 , "List continuation" =:
553567 T.unlines
554568 [ " - a"