@@ -452,8 +452,14 @@ blockToMarkdown' opts (Plain inlines) = do
452452 | otherwise -> contents
453453 return $ contents' <> cr
454454-- title beginning with fig: indicates figure
455−blockToMarkdown' opts (Para [Image attr alt (src,'f':'i':'g':':':tit)]) =
456− blockToMarkdown opts (Para [Image attr alt (src,tit)])
455+blockToMarkdown' opts (Para [Image attr alt (src,'f':'i':'g':':':tit)])
456+ | isEnabled Ext_raw_html opts &&
457+ not (isEnabled Ext_link_attributes opts) &&
458+ attr /= nullAttr = -- use raw HTML
459+ (text . T.unpack . T.strip) <$>
460+ writeHtml5String opts{ writerTemplate = Nothing }
461+ (Pandoc nullMeta [Para [Image attr alt (src,"fig:" ++ tit)]])
462+ | otherwise = blockToMarkdown opts (Para [Image attr alt (src,tit)])
457463blockToMarkdown' opts (Para inlines) =
458464 (<> blankline) `fmap` blockToMarkdown opts (Plain inlines)
459465blockToMarkdown' opts (LineBlock lns) =
@@ -619,7 +625,7 @@ blockToMarkdown' opts t@(Table caption aligns widths headers rows) = do
619625 (all null headers) aligns' widths' headers rows
620626 | isEnabled Ext_raw_html opts -> fmap (id,) $
621627 (text . T.unpack) <$>
622− (writeHtml5String def $ Pandoc nullMeta [t])
628+ (writeHtml5String opts{ writerTemplate = Nothing } $ Pandoc nullMeta [t])
623629 | hasSimpleCells &&
624630 isEnabled Ext_pipe_tables opts -> do
625631 rawHeaders <- padRow <$> mapM (blockListToMarkdown opts) headers
@@ -1172,7 +1178,7 @@ inlineToMarkdown opts lnk@(Link attr txt (src, tit))
11721178 not (isEnabled Ext_link_attributes opts) &&
11731179 attr /= nullAttr = -- use raw HTML
11741180 (text . T.unpack . T.strip) <$>
1175− writeHtml5String def (Pandoc nullMeta [Plain [lnk]])
1181+ writeHtml5String opts{ writerTemplate = Nothing } (Pandoc nullMeta [Plain [lnk]])
11761182 | otherwise = do
11771183 plain <- asks envPlain
11781184 linktext <- inlineListToMarkdown opts txt
@@ -1212,7 +1218,7 @@ inlineToMarkdown opts img@(Image attr alternate (source, tit))
12121218 not (isEnabled Ext_link_attributes opts) &&
12131219 attr /= nullAttr = -- use raw HTML
12141220 (text . T.unpack . T.strip) <$>
1215− writeHtml5String def (Pandoc nullMeta [Plain [img]])
1221+ writeHtml5String opts{ writerTemplate = Nothing } (Pandoc nullMeta [Plain [img]])
12161222 | otherwise = do
12171223 plain <- asks envPlain
12181224 let txt = if null alternate || alternate == [Str source]