Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Fix extract-changes.hs to use new changelog.md format.

Browse source
This commit is contained in:
John MacFarlane 2019-11-22 09:42:04 -08:00
parent 36f02e1673
commit 415ddbe228
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tools/extract-changes.hs
View file

@ -7,6 +7,9 @@ import Text.Pandoc.JSON
main = toJSONFilter extractFirst main = toJSONFilter extractFirst
extractFirst :: Pandoc -> Pandoc extractFirst :: Pandoc -> Pandoc
extractFirst (Pandoc meta (Para{} : BulletList bs : _)) = extractFirst (Pandoc meta bs) =
Pandoc meta [BulletList bs] let bs' = dropWhile (not . isSubhead) bs
extractFirst x = x in Pandoc meta (takeWhile (not . isSubhead) (drop 1 bs'))
isSubhead (Header 2 _ _) = True
isSubhead _ = False