Deindent

deindent.hs

import Data.List
import Text.Pandoc.Definition
import Text.Pandoc.JSON
import Text.Pandoc.Walk

-- This pass implements <div class="noindent"> by adding \noindent to
-- the start of every paragraph.
deindentParas :: Block -> Block
deindentParas (Para lines) =
  Para (RawInline (Format "tex") "\\noindent " : lines)
deindentParas x = x

deindentBlocks :: Block -> Block
deindentBlocks (Div (id, classes, other) blocks) =
  if elem "noindent" classes
  then Div (id, (delete "noindent" classes), other) (walk deindentParas blocks)
  else Div (id, classes, other) blocks
deindentBlocks x = x

main :: IO ()
main = toJSONFilter deindentBlocks