lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-24 16:35:42 +00:00
Code Issues Packages Projects Releases Wiki Activity

Improved normalize.

Browse Source
This commit is contained in:
John MacFarlane
2010-12-25 14:03:43 -08:00
parent 10d85f8b0b
commit 82903cfaf3
1 changed files with 15 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Shared.hs
+15
View File
@@ -263,6 +263,10 @@ normalize = topDown normalizeInlines .
normalizeBlocks :: [Block] -> [Block]
normalizeBlocks (Null : xs) = normalizeBlocks xs
normalizeBlocks (BulletList [] : xs) = normalizeBlocks xs
normalizeBlocks (OrderedList _ [] : xs) = normalizeBlocks xs
normalizeBlocks (DefinitionList [] : xs) = normalizeBlocks xs
normalizeBlocks (RawHtml [] : xs) = normalizeBlocks xs
normalizeBlocks (RawHtml x : RawHtml y : zs) = normalizeBlocks $
RawHtml (x++y) : zs
normalizeBlocks (x:xs) = x : normalizeBlocks xs
@@ -286,6 +290,15 @@ normalizeInlines (Space : ys) =
where isSpace Space = True
isSpace _ = False
rest = normalizeInlines $ dropWhile isSpace ys
normalizeInlines (Emph [] : zs) = normalizeInlines zs
normalizeInlines (Strong [] : zs) = normalizeInlines zs
normalizeInlines (Subscript [] : zs) = normalizeInlines zs
normalizeInlines (Superscript [] : zs) = normalizeInlines zs
normalizeInlines (SmallCaps [] : zs) = normalizeInlines zs
normalizeInlines (Strikeout [] : zs) = normalizeInlines zs
normalizeInlines (TeX [] : zs) = normalizeInlines zs
normalizeInlines (HtmlInline [] : zs) = normalizeInlines zs
normalizeInlines (Code [] : zs) = normalizeInlines zs
normalizeInlines (Emph xs : Emph ys : zs) = normalizeInlines $
Emph (xs ++ ys) : zs
normalizeInlines (Strong xs : Strong ys : zs) = normalizeInlines $
@@ -302,6 +315,8 @@ normalizeInlines (TeX x : TeX y : zs) = normalizeInlines $
TeX (x ++ y) : zs
normalizeInlines (HtmlInline x : HtmlInline y : zs) = normalizeInlines $
HtmlInline (x ++ y) : zs
normalizeInlines (Code x : Code y : zs) = normalizeInlines $
Code (x ++ y) : zs
normalizeInlines (x : xs) = x : normalizeInlines xs
normalizeInlines [] = []