@@ -1640,6 +1640,12 @@ looseItem = do
1640 skipopts
1640 skipopts
1641 return mempty
1641 return mempty
1643+epigraph :: PandocMonad m => LP m Blocks
1645+ p1 <- grouped blocks
1646+ p2 <- grouped blocks
1647+ return $ divWith ("", ["epigraph"], []) (p1 <> p2)
1643resetCaption :: PandocMonad m => LP m ()
1649resetCaption :: PandocMonad m => LP m ()
1644resetCaption = updateState $ \st -> st{ sCaption = (Nothing, Nothing) }
1650resetCaption = updateState $ \st -> st{ sCaption = (Nothing, Nothing) }
@@ -1795,6 +1801,8 @@ blockCommands = M.fromList
1795 , ("usepackage", include "usepackage")
1801 , ("usepackage", include "usepackage")
1796 -- preamble
1802 -- preamble
1797 , ("PackageError", mempty <$ (braced >> braced >> braced))
1803 , ("PackageError", mempty <$ (braced >> braced >> braced))
1804+ -- epigraph package
1805+ , ("epigraph", epigraph)