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

Docx reader: Ignore zero (or negative) indent

Browse Source 
If a block has an indentation less than or equal to zero, it should not be
treated as a block quote.
This commit is contained in:
Jesse Rosenthal
2014-06-24 15:06:25 -04:00
parent a8866bc121
commit 69743cd598
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/Docx.hs
+8 -5
View File
@@ -132,7 +132,6 @@ runStyleToContainers rPr =
divAttrToContainers :: [String] -> [(String, String)] -> [Container Block]
divAttrToContainers [] [] = []
divAttrToContainers (c:cs) _ | isJust (isHeaderClass c) =
let n = fromJust (isHeaderClass c)
in
@@ -151,10 +150,14 @@ divAttrToContainers (c:cs) kvs | c `elem` listParagraphDivs =
divAttrToContainers (c:cs) kvs | c `elem` blockQuoteDivs =
(Container BlockQuote) : (divAttrToContainers (cs \\ blockQuoteDivs) kvs)
divAttrToContainers (_:cs) kvs = divAttrToContainers cs kvs
divAttrToContainers [] (kv:kvs) | fst kv == "indent" =
(Container BlockQuote) : divAttrToContainers [] kvs
divAttrToContainers [] (_:kvs) =
divAttrToContainers [] kvs
divAttrToContainers [] kvs | isJust (lookup "indent" kvs) =
let kvs' = filter (\(k,_) -> k /= "indent") kvs
in
case fromJust (lookup "indent" kvs) of
"0" -> divAttrToContainers [] kvs'
('-' : _) -> divAttrToContainers [] kvs'
_ -> (Container BlockQuote) : divAttrToContainers [] kvs'
divAttrToContainers _ _ = []
parStyleToContainers :: ParagraphStyle -> [Container Block]