git.iko.soy/typeable/pandoc
on master help sign in
Treat tabs as spaces in ODT Reader. (#7185)
commit40da6c402beb64e47838254c04228098129165df authorniszet <niszet0016@gmail.com> dateThu 1 Apr 2021, 08:44 (6 years ago) parentfd0873c
4 files changed+9−1
compare with master
unifiedsplit
src/Text/Pandoc/Readers/Odt/ContentReader.hs+7−1 test/Tests/Readers/Odt.hs+1 test/odt/native/tab.native+1 test/odt/odt/tab.odt
src/Text/Pandoc/Readers/Odt/ContentReader.hs+7−1
@@ -577,7 +577,10 @@ read_spaces = matchingElement NsText "s" (
577577read_line_break :: InlineMatcher
578578read_line_break = matchingElement NsText "line-break"
579579 $ returnV linebreak
580−
580+--
581+read_tab :: InlineMatcher
582+read_tab = matchingElement NsText "tab"
583+ $ returnV space
581584--
582585read_span :: InlineMatcher
583586read_span = matchingElement NsText "span"
@@ -585,6 +588,7 @@ read_span = matchingElement NsText "span"
585588 $ matchChildContent [ read_span
586589 , read_spaces
587590 , read_line_break
591+ , read_tab
588592 , read_link
589593 , read_note
590594 , read_citation
@@ -604,6 +608,7 @@ read_paragraph = matchingElement NsText "p"
604608 $ matchChildContent [ read_span
605609 , read_spaces
606610 , read_line_break
611+ , read_tab
607612 , read_link
608613 , read_note
609614 , read_citation
@@ -630,6 +635,7 @@ read_header = matchingElement NsText "h"
630635 children <- ( matchChildContent [ read_span
631636 , read_spaces
632637 , read_line_break
638+ , read_tab
633639 , read_link
634640 , read_note
635641 , read_citation
test/Tests/Readers/Odt.hs+1
@@ -176,6 +176,7 @@ namesOfTestsComparingToNative = [ "blockquote"
176176 , "referenceToText"
177177 , "simpleTable"
178178 , "simpleTableWithCaption"
179+ , "tab"
179180-- , "table"
180181 , "textMixedStyles"
181182 , "tableWithContents"
test/odt/native/tab.nativenew file+1
@@ -0,0 +1 @@
1+[Para [Str "Three",Space,Str "tabs",Space,Str "between",Space,Str "A",Space,Str "and",Space,Str "B",Space,Str "will",Space,Str "be",Space,Str "converted",Space,Str "to",Space,Str "one",Space,Str "Space:",Space,Str "A",Space,Str "B."]]
test/odt/odt/tab.odtnew file

Binary file not shown.