@@ -1640,6 +1640,12 @@ looseItem = do
16401640 skipopts
16411641 return mempty
16421642
1643+epigraph :: PandocMonad m => LP m Blocks
1644+epigraph = do
1645+ p1 <- grouped blocks
1646+ p2 <- grouped blocks
1647+ return $ divWith ("", ["epigraph"], []) (p1 <> p2)
1648+
16431649resetCaption :: PandocMonad m => LP m ()
16441650resetCaption = updateState $ \st -> st{ sCaption = (Nothing, Nothing) }
16451651
@@ -1795,6 +1801,8 @@ blockCommands = M.fromList
17951801 , ("usepackage", include "usepackage")
17961802 -- preamble
17971803 , ("PackageError", mempty <$ (braced >> braced >> braced))
1804+ -- epigraph package
1805+ , ("epigraph", epigraph)
17981806 ]
17991807
18001808