diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-02-20 20:52:00 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-20 20:52:00 +0100 |
| commit | ce8226f1a7d64da56117d2f7f351e06225a84614 (patch) | |
| tree | 9f2d716df0230f5f17372f19b8718dcf86039fd9 /man/capitalizeHeaders.hs | |
| parent | e86e44b98e592d5a5e4c6b43d9b57b195f091ed9 (diff) | |
| parent | 12d96508c62189b4ff8c8b797d34cc9ef177f5ee (diff) | |
| download | pandoc-ce8226f1a7d64da56117d2f7f351e06225a84614.tar.gz | |
Merge commit '9e52ac6bb02afd7b4ed5dad61021a1fa33051203' as 'data/templates'
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 --} |