git.iko.soy/typeable/pandoc
on 2.0 help sign in
typeable/pandoc/man/capitalizeHeaders.hs
20 lines 506 B history raw
1import Text.Pandoc.JSON
2import Text.Pandoc.Walk
3import Data.Char (toUpper)
5main :: IO ()
6main = toJSONFilter capitalizeHeaders
8capitalizeHeaders :: Block -> Block
9capitalizeHeaders (Header 1 attr xs) = Header 1 attr $ walk capitalize xs
10capitalizeHeaders x = x
12capitalize :: Inline -> Inline
13capitalize (Str xs) = Str $ map toUpper xs
14capitalize x = x
16{-
17capitalizeHeaderLinks :: Inline -> Inline
18capitalizeHeaderLinks (Link xs t@('#':_,_)) = Link (walk capitalize xs) t
19capitalizeHeaderLinks x = x
20-}