pandocTools/extractRaw.hs

   1 -- extractRaw.hs
   2 import Text.Pandoc
   3
   4 class RawContainer a where
   5   extractRaw :: a -> [String]
   6
   7 instance RawContainer Inline where
   8   extractRaw (HtmlInline s) = [s]
   9   extractRaw _ = []
  10
  11 instance RawContainer Block where
  12   extractRaw (RawHtml s) = [s]
  13   extractRaw _ = []
  14
  15 readDoc = readHtml defaultParserState{
  16                         stateParseRaw=True
  17                    }
  18
  19 main = interact (unlines . queryWith extractRaw . readDoc)
  20