diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-08-12 23:40:51 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-08-12 23:42:01 -0400 |
| commit | dca55630e641905d5447b9468d0953227f9e704a (patch) | |
| tree | d9682c6eff37bd9391e152f4b6822b25d4327a03 | |
| parent | 378a795eaae7176426080c4164a66b33d511f87f (diff) | |
| download | pandoc-dca55630e641905d5447b9468d0953227f9e704a.tar.gz | |
Docx Reader: Trim line breaks from the beginning and end of Section
Headers.
We might also want to do this elsewhere (for pars, for example).
| m--------- | data/templates | 13 | ||||
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx.hs | 12 |
2 files changed, 18 insertions, 7 deletions
diff --git a/data/templates b/data/templates -Subproject 095196e8d6e873ee36846ca120bf5dfd39e30a8 +Subproject 3befef257ce461ae68760004df938f3ca8397b3 diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index 28f49251c..dcc2122bd 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -455,6 +455,13 @@ isHeaderContainer :: Container Block -> Bool isHeaderContainer (Container f) | Header _ _ _ <- f [] = True isHeaderContainer _ = False +trimLineBreaks :: [Inline] -> [Inline] +trimLineBreaks [] = [] +trimLineBreaks (LineBreak : ils) = trimLineBreaks ils +trimLineBreaks ils + | (LineBreak : ils') <- reverse ils = trimLineBreaks (reverse ils') +trimLineBreaks ils = ils + bodyPartToBlocks :: BodyPart -> DocxContext [Block] bodyPartToBlocks (Paragraph pPr parparts) | any isBlockCodeContainer (parStyleToContainers pPr) = @@ -467,8 +474,9 @@ bodyPartToBlocks (Paragraph pPr parparts) [CodeBlock ("", [], []) (concatMap parPartToString parparts)] bodyPartToBlocks (Paragraph pPr parparts) | any isHeaderContainer (parStyleToContainers pPr) = do - ils <- normalizeSpaces <$> local (\s -> s{docxInHeaderBlock = True}) - (parPartsToInlines parparts) + ils <- (trimLineBreaks . normalizeSpaces) <$> + local (\s -> s{docxInHeaderBlock = True}) + (parPartsToInlines parparts) let (Container hdrFun) = head $ filter isHeaderContainer (parStyleToContainers pPr) Header n attr _ = hdrFun [] hdr <- makeHeaderAnchor $ Header n attr ils |