diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx.hs | 4 | ||||
| -rw-r--r-- | test/docx/block_quotes.docx | bin | 28138 -> 12153 bytes | |||
| -rw-r--r-- | test/docx/block_quotes_parse_indent.native | 3 | ||||
| -rw-r--r-- | test/docx/golden/block_quotes.docx | bin | 10025 -> 10062 bytes |
4 files changed, 5 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index c91372553..c1dd3dff4 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -23,7 +23,7 @@ implemented, [-] means partially implemented): - [X] Para - [X] CodeBlock (styled with `SourceCode`) - - [X] BlockQuote (styled with `Quote`, `BlockQuote`, or, optionally, + - [X] BlockQuote (styled with `Quote`, `BlockQuote`, `Intense Quote` or, optionally, indented) - [X] OrderedList - [X] BulletList @@ -244,7 +244,7 @@ isCodeDiv = hasStylesInheritedFrom ["Source Code", "SourceCode", "source_code"] isBlockQuote :: ParStyle -> Bool isBlockQuote = isInheritedFromStyles [ - "Quote", "Block Text", "Block Quote", "Block Quotation" + "Quote", "Block Text", "Block Quote", "Block Quotation", "Intense Quote" ] runElemToInlines :: RunElem -> Inlines diff --git a/test/docx/block_quotes.docx b/test/docx/block_quotes.docx Binary files differindex aa2fef00e..dd72d6646 100644 --- a/test/docx/block_quotes.docx +++ b/test/docx/block_quotes.docx diff --git a/test/docx/block_quotes_parse_indent.native b/test/docx/block_quotes_parse_indent.native index 842b3606a..531b9edcc 100644 --- a/test/docx/block_quotes_parse_indent.native +++ b/test/docx/block_quotes_parse_indent.native @@ -2,6 +2,9 @@ ,Para [Str "This",Space,Str "is",Space,Str "the",Space,Str "proper",Space,Str "way,",Space,Str "with",Space,Str "a",Space,Str "style"] ,BlockQuote [Para [Str "I",Space,Str "don\8217t",Space,Str "know",Space,Str "why",Space,Str "this",Space,Str "would",Space,Str "be",Space,Str "in",Space,Str "italics,",Space,Str "but",Space,Str "so",Space,Str "it",Space,Str "appears",Space,Str "to",Space,Str "be",Space,Str "on",Space,Str "my",Space,Str "screen."]] +,Para [Str "And",Space,Str "this",Space,Str "is",Space,Str "also",Space,Str "a",Space,Str "proper",Space,Str "way,",Space,Str "with",Space,Str "a",Space,Str "different", Space, Str "style"] +,BlockQuote + [Para [Str "This",Space,Str "is",Space,Str "called",Space,Str "the",Space,Str "Intense",Space,Str "Quote",Space,Str "style."]] ,Para [Str "And",Space,Str "this",Space,Str "is",Space,Str "the",Space,Str "way",Space,Str "that",Space,Str "most",Space,Str "people",Space,Str "do",Space,Str "it:"] ,BlockQuote [Para [Str "I",Space,Str "just",Space,Str "indented",Space,Str "this,",Space,Str "so",Space,Str "it",Space,Str "looks",Space,Str "like",Space,Str "a",Space,Str "block",Space,Str "quote.",Space,Str "I",Space,Str "think",Space,Str "this",Space,Str "is",Space,Str "how",Space,Str "most",Space,Str "people",Space,Str "do",Space,Str "block",Space,Str "quotes",Space,Str "in",Space,Str "their",Space,Str "documents."]] diff --git a/test/docx/golden/block_quotes.docx b/test/docx/golden/block_quotes.docx Binary files differindex 544530a54..5d75e8302 100644 --- a/test/docx/golden/block_quotes.docx +++ b/test/docx/golden/block_quotes.docx |