From 97bff3f9dcb5cccd1800380ac215fb1f4a02b281 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
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 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/Text/Pandoc')

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
-- 
cgit v1.2.3