82a0cea · typeable/pandoc

git.iko.soy/typeable/pandoc

Muse reader: fix directive parsing

This fixes bugs introduced in commit 4bfab8f04c105f111d8d4e1c3ed7f7b5c75dbd19.

commit82a0ceaf18e589e8916fbd70e0b13e5945bcc99a authorAlexander Krotov <ilabdsf@gmail.com> dateThu 15 Feb 2018, 16:32 (9 years ago) parent9131d62

2 files changed+16−3

unifiedsplit

src/Text/Pandoc/Readers/Muse.hs+1−3

@@ -237,9 +237,7 @@ parseAmuseDirective = do

237237 many blankline

238238 return (key, value)

239239 where

240− endOfDirective = lookAhead $ try (eof <|>

241− void (newline >> blankline) <|>

242− void (newline >> parseDirectiveKey))

240+ endOfDirective = lookAhead $ eof <|> try (newline >> (void blankline <|> void parseDirectiveKey))

243241

244242directive :: PandocMonad m => MuseParser m ()

245243directive = do

test/Tests/Readers/Muse.hs+15

@@ -537,6 +537,21 @@ tests =

537537 , test emacsMuse "Disable tables"

538538 ("#disable-tables t" =?>

539539 Pandoc (setMeta "disable-tables" (MetaInlines $ toList "t") nullMeta) mempty)

540+ , "Multiple directives" =:

541+ T.unlines [ "#title Document title"

542+ , "#subtitle Document subtitle"

543+ ] =?>

544+ Pandoc (setMeta "title" (MetaInlines $ toList "Document title") $

545+ setMeta "subtitle" (MetaInlines $ toList "Document subtitle") nullMeta) mempty

546+ , "Multiline directive" =:

547+ T.unlines [ "#title Document title"

548+ , "#notes First line"

549+ , "and second line"

550+ , "#author Name"

551+ ] =?>

552+ Pandoc (setMeta "title" (MetaInlines $ toList "Document title") $

553+ setMeta "notes" (MetaInlines $ toList "First line\nand second line") $

554+ setMeta "author" (MetaInlines $ toList "Name") nullMeta) mempty

540555 ]

541556 , testGroup "Anchors"

542557 [ "Anchor" =: