summaryrefslogtreecommitdiff
path: root/man/capitalizeHeaders.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2015-07-21 10:24:59 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2015-07-21 10:24:59 -0700
commit7120df9dad6376a6a43b7e870350a016a720a53c (patch)
treeeea825369d6413b333b2ad22bdf1dfb08a4fe653 /man/capitalizeHeaders.hs
parent225f7f1658ffedaa6799159218ded9d93a7f7ed6 (diff)
Don't capitalize header links in man page.
Also regenerated man page from latest README.
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
+-}