git.iko.soy/typeable/pandoc
on free help sign in
typeable/pandoc/extract-changes.hs
9 lines 252 B history raw
1-- Extract changes from latest version in changelog.
2import Text.Pandoc.JSON
4main = toJSONFilter extractFirst
6extractFirst :: Pandoc -> Pandoc
7extractFirst (Pandoc meta (Para{} : BulletList bs : _)) =
8 Pandoc meta [BulletList bs]
9extractFirst x = x