@@ -84,18 +84,19 @@ writePlain opts document =
84plainify :: Pandoc -> Pandoc
84plainify :: Pandoc -> Pandoc
85plainify = walk go
85plainify = walk go
86 where go :: Inline -> Inline
86 where go :: Inline -> Inline
87− go (Emph xs) = SmallCaps xs
87+ go (Emph xs) = Span ("",[],[]) xs
88− go (Strong xs) = SmallCaps xs
88+ go (Strong xs) = Span ("",[],[]) xs
89− go (Strikeout xs) = SmallCaps xs
89+ go (Strikeout xs) = Span ("",[],[]) xs
90− go (Superscript xs) = SmallCaps xs
90+ go (Superscript xs) = Span ("",[],[]) xs
91− go (Subscript xs) = SmallCaps xs
91+ go (Subscript xs) = Span ("",[],[]) xs
92− go (SmallCaps xs) = SmallCaps xs
92+ go (SmallCaps xs) = Span ("",[],[]) xs
93+ go (Span _ xs) = Span ("",[],[]) xs
93 go (Code _ s) = Str s
94 go (Code _ s) = Str s
94 go (Math _ s) = Str s
95 go (Math _ s) = Str s
95 go (RawInline _ _) = Str ""
96 go (RawInline _ _) = Str ""
96− go (Link xs _) = SmallCaps xs
97+ go (Link xs _) = Span ("",[],[]) xs
97− go (Image xs _) = SmallCaps $ [Str "["] ++ xs ++ [Str "]"]
98+ go (Image xs _) = Span ("",[],[]) $ [Str "["] ++ xs ++ [Str "]"]
98− go (Cite _ cits) = SmallCaps cits
99+ go (Cite _ cits) = Span ("",[],[]) cits
101pandocTitleBlock :: Doc -> [Doc] -> Doc -> Doc
102pandocTitleBlock :: Doc -> [Doc] -> Doc -> Doc