@@ -257,6 +257,9 @@ inlineToNodes opts (SmallCaps xs) =
257 [node (HTML_INLINE (T.pack "</span>")) []]) ++ )
257 [node (HTML_INLINE (T.pack "</span>")) []]) ++ )
258inlineToNodes opts (Link _ ils (url,tit)) =
258inlineToNodes opts (Link _ ils (url,tit)) =
259 (node (LINK (T.pack url) (T.pack tit)) (inlinesToNodes opts ils) :)
259 (node (LINK (T.pack url) (T.pack tit)) (inlinesToNodes opts ils) :)
260+-- title beginning with fig: indicates implicit figure
261+inlineToNodes opts (Image alt ils (url,'f':'i':'g':':':tit)) =
262+ inlineToNodes opts (Image alt ils (url,tit))
260inlineToNodes opts (Image _ ils (url,tit)) =
263inlineToNodes opts (Image _ ils (url,tit)) =
261 (node (IMAGE (T.pack url) (T.pack tit)) (inlinesToNodes opts ils) :)
264 (node (IMAGE (T.pack url) (T.pack tit)) (inlinesToNodes opts ils) :)
262inlineToNodes _ (RawInline fmt xs)
265inlineToNodes _ (RawInline fmt xs)