pandocTools/discardText.hs

   1 -- discardText.hs
   2 import Text.Pandoc
   3
   4 discardText :: [Inline] -> [Inline]
   5 discardText (Space : xs)  = discardText xs
   6 discardText ((Str _) : xs) = discardText xs
   7 discardText (x : xs)     = x : discardText xs
   8 discardText []           = []
   9
  10 readDoc = readHtml defaultParserState{
  11                         stateParseRaw=True
  12                    }
  13
  14 --writeDoc = writeNative defaultWriterOptions
  15 writeDoc = prettyPandoc
  16
  17 main = interact (writeDoc . processWith discardText . readDoc)
  18