hledger/tools/pandoc-drop-html-inlines.hs

#!/usr/bin/env stack
{- stack runghc --verbosity info --package pandoc-types -}

import Text.Pandoc.JSON

main :: IO ()
main = toJSONFilter dropHtmlInlines

dropHtmlInlines :: Inline -> Inline
dropHtmlInlines (RawInline (Format "html") _) = Str ""
dropHtmlInlines x = x
tools: rename pandoc filters 2016-04-06 01:46:44 +03:00			`#!/usr/bin/env stack`
tools: remove outdated pandoc-types version from pandoc filters 2017-03-30 07:00:52 +03:00			`{- stack runghc --verbosity info --package pandoc-types -}`
tools: rename pandoc filters 2016-04-06 01:46:44 +03:00
			`import Text.Pandoc.JSON`

			`main :: IO ()`
			`main = toJSONFilter dropHtmlInlines`

			`dropHtmlInlines :: Inline -> Inline`
			`dropHtmlInlines (RawInline (Format "html") _) = Str ""`
			`dropHtmlInlines x = x`