diff options
Diffstat (limited to 'man/capitalizeHeaders.hs')
-rw-r--r-- | man/capitalizeHeaders.hs | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/man/capitalizeHeaders.hs b/man/capitalizeHeaders.hs deleted file mode 100644 index 863381c1f..000000000 --- a/man/capitalizeHeaders.hs +++ /dev/null @@ -1,20 +0,0 @@ -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 --} |