Permalink
Browse files

Took out removeRawHtmlBlocks.

This blocks html tables and other nice things.
  • Loading branch information...
1 parent 000f182 commit 4b4fc92c181c426640e43f78fb54217f79115895 @jgm committed Jan 24, 2009
Showing with 3 additions and 1 deletion.
  1. +3 −1 Gitit.hs
View
@@ -1252,17 +1252,19 @@ rawContents file params = do
fs <- getFileStore
liftIO $ catch (retrieve fs file rev >>= return . Just) (\e -> if e == NotFound then return Nothing else throwIO e)
+{-
removeRawHtmlBlock :: Block -> Block
removeRawHtmlBlock (RawHtml _) = RawHtml "<!-- raw HTML removed -->"
removeRawHtmlBlock x = x
+-}
readerFor :: PageType -> (String -> Pandoc)
readerFor pt = case pt of
RST -> readRST (defaultParserState { stateSanitizeHTML = True, stateSmart = True })
Markdown -> readMarkdown (defaultParserState { stateSanitizeHTML = True, stateSmart = True })
textToPandoc :: PageType -> String -> Pandoc
-textToPandoc pt s = processPandoc removeRawHtmlBlock $ readerFor pt $ filter (/= '\r') s
+textToPandoc pt s = {- processPandoc removeRawHtmlBlock $ -} readerFor pt $ filter (/= '\r') s
pageAsPandoc :: String -> Params -> Web (Maybe Pandoc)
pageAsPandoc page params = do

0 comments on commit 4b4fc92

Please sign in to comment.