diff options
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 818f66e20..29a6882dd 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -32,7 +32,6 @@ Conversion of Muse text to 'Pandoc' document. -} {- TODO: -- Page breaks (five "*") - Org tables - table.el tables - <cite> tag @@ -312,6 +311,7 @@ blockElements :: PandocMonad m => MuseParser m (F Blocks) blockElements = (mempty <$ blankline) <|> comment <|> separator + <|> pagebreak <|> example <|> exampleTag <|> literalTag @@ -342,6 +342,14 @@ separator = try $ pure B.horizontalRule <* many spaceChar <* eol +-- | Parse a page break +pagebreak :: PandocMonad m => MuseParser m (F Blocks) +pagebreak = try $ pure (B.divWith ("", [], [("style", "page-break-before: always;")]) mempty) + <$ count 6 spaceChar + <* many spaceChar + <* string "* * * * *" + <* manyTill spaceChar eol + headingStart :: PandocMonad m => MuseParser m (String, Int) headingStart = try $ (,) <$> option "" (try (parseAnchor <* manyTill spaceChar eol)) |