25 lines
630 B
Haskell
Executable File
25 lines
630 B
Haskell
Executable File
#!/usr/bin/env stack
|
|
-- stack runghc --package pandoc-types
|
|
-- ^ installs pandoc-types in the current stack db when needed
|
|
|
|
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 = 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
|
|
-}
|