5ea2176 · typeable/pandoc

48

49data WriterReader = WriterReader {

50 options :: WriterOptions -- Writer options

51− , stListLevel :: String -- String at beginning of list items, e.g. "**"

51+ , listLevel :: String -- String at beginning of list items, e.g. "**"

52− , stUseTags :: Bool -- True if we should use HTML tags because we're in a complex list

52+ , useTags :: Bool -- True if we should use HTML tags because we're in a complex list

53 }

54

55type MediaWikiWriter = ReaderT WriterReader (State WriterState)

58writeMediaWiki :: WriterOptions -> Pandoc -> String

59writeMediaWiki opts document =

60 let initialState = WriterState { stNotes = False }

61− env = WriterReader { options = opts, stListLevel = [], stUseTags = False }

61+ env = WriterReader { options = opts, listLevel = [], useTags = False }

62 in evalState (runReaderT (pandocToMediaWiki document) env) initialState

63

64-- | Return MediaWiki representation of document.

110 return $ "[[Image:" ++ src ++ "|frame|none" ++ opt ++ "]]\n"

111

112blockToMediaWiki (Para inlines) = do

113− useTags <- asks stUseTags

113+ tags <- asks useTags

114− listLevel <- asks stListLevel

114+ lev <- asks listLevel

115 contents <- inlineListToMediaWiki inlines

116− return $ if useTags

116+ return $ if tags

117 then "<p>" ++ contents ++ "</p>"

118− else contents ++ if null listLevel then "\n" else ""

118+ else contents ++ if null lev then "\n" else ""

119

120blockToMediaWiki (RawBlock f str)

121 | f == Format "mediawiki" = return str

162 return $ "{|\n" ++ caption ++ tableBody ++ "|}\n"

163

164blockToMediaWiki x@(BulletList items) = do

165− useTags <- fmap (|| not (isSimpleList x)) $ asks stUseTags

165+ tags <- fmap (|| not (isSimpleList x)) $ asks useTags

166− if useTags

166+ if tags

167 then do

168− contents <- local (\ s -> s { stUseTags = True }) $ mapM listItemToMediaWiki items

168+ contents <- local (\ s -> s { useTags = True }) $ mapM listItemToMediaWiki items

169 return $ "<ul>\n" ++ vcat contents ++ "</ul>\n"

170 else do

171− listLevel <- asks stListLevel

171+ lev <- asks listLevel

172− contents <- local (\s -> s { stListLevel = stListLevel s ++ "*" }) $ mapM listItemToMediaWiki items

172+ contents <- local (\s -> s { listLevel = listLevel s ++ "*" }) $ mapM listItemToMediaWiki items

173− return $ vcat contents ++ if null listLevel then "\n" else ""

173+ return $ vcat contents ++ if null lev then "\n" else ""

174

175blockToMediaWiki x@(OrderedList attribs items) = do

176− useTags <- fmap (|| not (isSimpleList x)) $ asks stUseTags

176+ tags <- fmap (|| not (isSimpleList x)) $ asks useTags

177− if useTags

177+ if tags

178 then do

179− contents <- local (\s -> s { stUseTags = True }) $ mapM listItemToMediaWiki items

179+ contents <- local (\s -> s { useTags = True }) $ mapM listItemToMediaWiki items

180 return $ "<ol" ++ listAttribsToString attribs ++ ">\n" ++ vcat contents ++ "</ol>\n"

181 else do

182− listLevel <- asks stListLevel

182+ lev <- asks listLevel

183− contents <- local (\s -> s { stListLevel = stListLevel s ++ "#" }) $ mapM listItemToMediaWiki items

183+ contents <- local (\s -> s { listLevel = listLevel s ++ "#" }) $ mapM listItemToMediaWiki items

184− return $ vcat contents ++ if null listLevel then "\n" else ""

184+ return $ vcat contents ++ if null lev then "\n" else ""

185

186blockToMediaWiki x@(DefinitionList items) = do

187− useTags <- fmap (|| not (isSimpleList x)) $ asks stUseTags

187+ tags <- fmap (|| not (isSimpleList x)) $ asks useTags

188− if useTags

188+ if tags

189 then do

190− contents <- local (\s -> s { stUseTags = True }) $ mapM definitionListItemToMediaWiki items

190+ contents <- local (\s -> s { useTags = True }) $ mapM definitionListItemToMediaWiki items

191 return $ "<dl>\n" ++ vcat contents ++ "</dl>\n"

192 else do

193− listLevel <- asks stListLevel

193+ lev <- asks listLevel

194− contents <- local (\s -> s { stListLevel = stListLevel s ++ ";" }) $ mapM definitionListItemToMediaWiki items

194+ contents <- local (\s -> s { listLevel = listLevel s ++ ";" }) $ mapM definitionListItemToMediaWiki items

195− return $ vcat contents ++ if null listLevel then "\n" else ""

195+ return $ vcat contents ++ if null lev then "\n" else ""

196

197-- Auxiliary functions for lists:

198

211listItemToMediaWiki :: [Block] -> MediaWikiWriter String

212listItemToMediaWiki items = do

213 contents <- blockListToMediaWiki items

214− useTags <- asks stUseTags

214+ tags <- asks useTags

215− if useTags

215+ if tags

216 then return $ "<li>" ++ contents ++ "</li>"

217 else do

218− marker <- asks stListLevel

218+ marker <- asks listLevel

219 return $ marker ++ " " ++ contents

220

221-- | Convert definition list item (label, list of blocks) to MediaWiki.

224definitionListItemToMediaWiki (label, items) = do

225 labelText <- inlineListToMediaWiki label

226 contents <- mapM blockListToMediaWiki items

227− useTags <- asks stUseTags

227+ tags <- asks useTags

228− if useTags

228+ if tags

229 then return $ "<dt>" ++ labelText ++ "</dt>\n" ++

230 intercalate "\n" (map (\d -> "<dd>" ++ d ++ "</dd>") contents)

231 else do

232− marker <- asks stListLevel

232+ marker <- asks listLevel

233 return $ marker ++ " " ++ labelText ++ "\n" ++

234 intercalate "\n" (map (\d -> init marker ++ ": " ++ d) contents)

235