git.iko.soy/typeable/pandoc
on 2.8 help sign in
typeable/pandoc/tools/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