diff options
| author | oquechy <vasilliza@gmail.com> | 2019-06-21 18:27:26 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-06-21 18:27:26 +0200 |
| commit | f0edf603641cc880002c239d4ecf258280a89e73 (patch) | |
| tree | 65eb9e0c768e7a0e20fd69da419bf3e320944237 /src/Text/Pandoc | |
| parent | e67f4c58f2cbe0a0fc5f73d2e726e6c0a403bbea (diff) | |
| download | pandoc-f0edf603641cc880002c239d4ecf258280a89e73.tar.gz | |
Support epigraph command in LaTeX Reader.
Closes #3523.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 6734bc32d..15c5abf46 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -1640,6 +1640,12 @@ looseItem = do skipopts return mempty +epigraph :: PandocMonad m => LP m Blocks +epigraph = do + p1 <- grouped blocks + p2 <- grouped blocks + return $ divWith ("", ["epigraph"], []) (p1 <> p2) + resetCaption :: PandocMonad m => LP m () resetCaption = updateState $ \st -> st{ sCaption = (Nothing, Nothing) } @@ -1795,6 +1801,8 @@ blockCommands = M.fromList , ("usepackage", include "usepackage") -- preamble , ("PackageError", mempty <$ (braced >> braced >> braced)) + -- epigraph package + , ("epigraph", epigraph) ] |