From debc6d13aa4aba79d957757ba8802cef65187afc Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Sun, 31 Dec 2017 00:26:05 +0300 Subject: Muse reader: automatically translate #cover into #cover-image Amusewiki uses #cover directive to specify cover image. --- src/Text/Pandoc/Readers/Muse.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 7142c249f..d86b47e83 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -179,7 +179,9 @@ directive :: PandocMonad m => MuseParser m () directive = do ext <- getOption readerExtensions (key, value) <- if extensionEnabled Ext_amuse ext then parseAmuseDirective else parseEmacsDirective - updateState $ \st -> st { stateMeta' = B.setMeta key <$> value <*> stateMeta' st } + updateState $ \st -> st { stateMeta' = B.setMeta (translateKey key) <$> value <*> stateMeta' st } + where translateKey "cover" = "cover-image" + translateKey x = x -- -- block parsers -- cgit v1.2.3