Set utf-8 encoding in texinfo headers.
Resolves Issue #153.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1617 788f1e2b-df1e-0410-8736-df70ead52e1b
commit683b8e10b5e2267d99c88909ab7b20662d414b09
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
dateSun 1 Nov 2009, 02:48 (17 years ago)
parent313d2e4
src/Text/Pandoc/Writers/Texinfo.hs+4−2
@@ -104,8 +104,10 @@ texinfoHeader options (Meta title authors date) = do
104104 then empty
105105 else text $ stringToTexinfo date
106106
107− let baseHeader = text $ writerHeader options
108− let header = baseHeader $$ extras
107+ let baseHeader = case writerHeader options of
108+ "" -> empty
109+ x -> text x
110+ let header = text "@documentencoding utf-8" $$ baseHeader $$ extras
109111 return $ text "\\input texinfo" $$
110112 header $$
111113 text "@ifnottex" $$
tests/writer.texinfo+1−1
@@ -1,5 +1,5 @@
11\input texinfo
2−
2+@documentencoding utf-8
33@macro textstrikeout{text}
44~~\text\~~
55@end macro