a04c15a422
+ Removed `--man1`, `--man5` options (breaking change). + Removed `Text.Pandoc.ManPages` module (breaking API change). + Version bump to 1.15 because of the breaking changes, even though they involve features that have only been in pandoc for a day. + Makefile target for `man/man1/pandoc.1`. This uses pandoc to create the man page from README using a custom template and filters. + Added `man/` directory with template and filters needed to build man page. + We no longer have two man pages: pandoc.1 and pandoc_markdown.5. Now there is just pandoc.1, which has all the content from README. This change was needed because of the extensive cross-references between parts of the README. + Removed old `data/pandoc.1.template` and `data/pandoc_markdown.5.template`.
18 lines
527 B
Haskell
18 lines
527 B
Haskell
import Text.Pandoc.JSON
|
|
import Text.Pandoc.Walk
|
|
import Data.Char (toUpper)
|
|
|
|
main :: IO ()
|
|
main = toJSONFilter capitalizeHeaders
|
|
|
|
capitalizeHeaders :: Block -> Block
|
|
capitalizeHeaders (Header 1 attr xs) = Header 1 attr $ walk capitalize xs
|
|
capitalizeHeaders x = walk capitalizeHeaderLinks x
|
|
|
|
capitalize :: Inline -> Inline
|
|
capitalize (Str xs) = Str $ map toUpper xs
|
|
capitalize x = x
|
|
|
|
capitalizeHeaderLinks :: Inline -> Inline
|
|
capitalizeHeaderLinks (Link xs t@('#':_,_)) = Link (walk capitalize xs) t
|
|
capitalizeHeaderLinks x = x
|