opensource/pandoc
3
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-29 01:41:20 +08:00
Code Issues Packages Projects Releases Wiki Activity

Docx reader: don't let first line indents trigger block quotes.

Browse Source 
This fixes a regression introduced in pandoc 2.15 by PR #7606.
Closes #7655.
This commit is contained in:
John MacFarlane
2021-11-02 14:02:24 -07:00
parent 45bcd7d3f1
commit 938d557844
3 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/Docx/Parse/Styles.hs
+2 -3
View File
@@ -310,9 +310,8 @@ getIndentation ns el = do
, rightParIndent = findAttrByName ns "w" "right" indElement <|>
findAttrByName ns "w" "end" indElement >>=
stringToInteger
, hangingParIndent = (findAttrByName ns "w" "hanging" indElement >>= stringToInteger) <|>
fmap negate
(findAttrByName ns "w" "firstLine" indElement >>= stringToInteger)
, hangingParIndent = findAttrByName ns "w" "hanging" indElement >>=
stringToInteger
}
getElementStyleName :: Coercible T.Text a => NameSpaces -> Element -> Maybe a
test/docx/relative_indentation_blockquotes.docx
BIN
View File
Binary file not shown.
test/docx/relative_indentation_blockquotes.native
+2
View File
@@ -1,4 +1,6 @@
[Header 1 ("indentation-blockquotes",[],[]) [Str "Indentation",Space,Str "blockquotes"]
,Para [Str "Foobar"]
,Para [Str "First",Space,Str "line",Space,Str "indented."]
,Para [Str "Normal",Space,Str "list",Space,Str "paragraph"]
,Para [Str "List",Space,Str "paragraph",Space,Str "with",Space,Str "less",Space,Str "indent"]
,BlockQuote [Para [Str "List",Space,Str "paragraph",Space,Str "with",Space,Str "more",Space,Str "indent"]]]