diff options
Diffstat (limited to 'man/capitalizeHeaders.hs')
-rw-r--r-- | man/capitalizeHeaders.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/man/capitalizeHeaders.hs b/man/capitalizeHeaders.hs index d3909df76..863381c1f 100644 --- a/man/capitalizeHeaders.hs +++ b/man/capitalizeHeaders.hs @@ -7,12 +7,14 @@ main = toJSONFilter capitalizeHeaders capitalizeHeaders :: Block -> Block capitalizeHeaders (Header 1 attr xs) = Header 1 attr $ walk capitalize xs -capitalizeHeaders x = walk capitalizeHeaderLinks x +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 +-} |