From 97bff3f9dcb5cccd1800380ac215fb1f4a02b281 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Wed, 17 Mar 2010 06:53:48 +0000 Subject: MediaWiki writer: Support images in figures. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1898 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Writers/MediaWiki.hs | 8 ++++++++ tests/writer.mediawiki | 2 +- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/src/Text/Pandoc/Writers/MediaWiki.hs b/src/Text/Pandoc/Writers/MediaWiki.hs index 07fddcfb4..f81fda5d4 100644 --- a/src/Text/Pandoc/Writers/MediaWiki.hs +++ b/src/Text/Pandoc/Writers/MediaWiki.hs @@ -80,6 +80,14 @@ blockToMediaWiki _ Null = return "" blockToMediaWiki opts (Plain inlines) = inlineListToMediaWiki opts inlines +blockToMediaWiki opts (Para [Image txt (src,tit)]) = do + capt <- inlineListToMediaWiki opts txt + let opt = if null txt + then "" + else "|alt=" ++ if null tit then capt else tit ++ + "|caption " ++ capt + return $ "[[Image:" ++ src ++ "|frame|none" ++ opt ++ "]]\n" + blockToMediaWiki opts (Para inlines) = do useTags <- get >>= return . stUseTags listLevel <- get >>= return . stListLevel diff --git a/tests/writer.mediawiki b/tests/writer.mediawiki index 5c60bed9a..942223c2d 100644 --- a/tests/writer.mediawiki +++ b/tests/writer.mediawiki @@ -633,7 +633,7 @@ Auto-links should not occur here: <http://example.com/> From “Voyage dans la Lune” by Georges Melies (1902): -[[Image:lalune.jpg|Voyage dans la Lune]] +[[Image:lalune.jpg|frame|none|alt=Voyage dans la Lune|caption lalune]] Here is a movie [[Image:movie.jpg|movie]] icon. -- cgit v1.2.3