multicol :: Pandoc -> Pandoc
multicol doc@(Pandoc meta _) = walk (columnize b) doc
  where b = case lookupMeta "documentclass" meta of
              Just (MetaString "scrartcl") -> True
              _                            -> False
multicol :: Pandoc -> Pandoc
multicol doc@(Pandoc meta _) = walk (columnize b) doc
  where b = case lookupMeta "documentclass" meta of
              Just (MetaString "scrartcl") -> True
              _                            -> False
multicol doc@(Pandoc meta _) = walk (columnize b) doc
  where b = case lookupMeta "documentclass" meta of
              Just (MetaString "scrartcl") -> True
              _                            -> False