summaryrefslogtreecommitdiff
path: root/man/capitalizeHeaders.hs
diff options
context:
space:
mode:
Diffstat (limited to 'man/capitalizeHeaders.hs')
-rw-r--r--man/capitalizeHeaders.hs4
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
+-}