Muse reader: automatically translate #cover into #cover-image
Amusewiki uses #cover directive to specify cover image.
commitdebc6d13aa4aba79d957757ba8802cef65187afc
authorAlexander Krotov <ilabdsf@gmail.com>
dateSun 31 Dec 2017, 00:26 (9 years ago)
parent07b06cb
src/Text/Pandoc/Readers/Muse.hs+3−1
@@ -179,7 +179,9 @@ directive :: PandocMonad m => MuseParser m ()
179179directive = do
180180 ext <- getOption readerExtensions
181181 (key, value) <- if extensionEnabled Ext_amuse ext then parseAmuseDirective else parseEmacsDirective
182− updateState $ \st -> st { stateMeta' = B.setMeta key <$> value <*> stateMeta' st }
182+ updateState $ \st -> st { stateMeta' = B.setMeta (translateKey key) <$> value <*> stateMeta' st }
183+ where translateKey "cover" = "cover-image"
184+ translateKey x = x
183185
184186--
185187-- block parsers