diff options
| author | niszet <niszet0016@gmail.com> | 2021-04-01 08:44:34 +0900 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-03-31 16:44:34 -0700 |
| commit | 40da6c402beb64e47838254c04228098129165df (patch) | |
| tree | 8342e7f54bfc33402634b3128ce6e95cbb2d3fd8 /src | |
| parent | fd0873c907ea0bc1fee9ecbca5f2d05e29c5fe5b (diff) | |
| download | pandoc-40da6c402beb64e47838254c04228098129165df.tar.gz | |
Treat tabs as spaces in ODT Reader. (#7185)
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Odt/ContentReader.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Odt/ContentReader.hs b/src/Text/Pandoc/Readers/Odt/ContentReader.hs index df90880fa..c4220b0db 100644 --- a/src/Text/Pandoc/Readers/Odt/ContentReader.hs +++ b/src/Text/Pandoc/Readers/Odt/ContentReader.hs @@ -577,7 +577,10 @@ read_spaces = matchingElement NsText "s" ( read_line_break :: InlineMatcher read_line_break = matchingElement NsText "line-break" $ returnV linebreak - +-- +read_tab :: InlineMatcher +read_tab = matchingElement NsText "tab" + $ returnV space -- read_span :: InlineMatcher read_span = matchingElement NsText "span" @@ -585,6 +588,7 @@ read_span = matchingElement NsText "span" $ matchChildContent [ read_span , read_spaces , read_line_break + , read_tab , read_link , read_note , read_citation @@ -604,6 +608,7 @@ read_paragraph = matchingElement NsText "p" $ matchChildContent [ read_span , read_spaces , read_line_break + , read_tab , read_link , read_note , read_citation @@ -630,6 +635,7 @@ read_header = matchingElement NsText "h" children <- ( matchChildContent [ read_span , read_spaces , read_line_break + , read_tab , read_link , read_note , read_citation |