@@ -179,7 +179,9 @@ directive :: PandocMonad m => MuseParser m ()
179directive = do
179directive = do
180 ext <- getOption readerExtensions
180 ext <- getOption readerExtensions
181 (key, value) <- if extensionEnabled Ext_amuse ext then parseAmuseDirective else parseEmacsDirective
181 (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"
185-- block parsers
187-- block parsers