@@ -57,9 +57,10 @@ writeMarkdown opts document =
57-- pictures, or inline formatting).
57-- pictures, or inline formatting).
58writePlain :: WriterOptions -> Pandoc -> String
58writePlain :: WriterOptions -> Pandoc -> String
59writePlain opts document =
59writePlain opts document =
60+ evalState (pandocToMarkdown opts{writerStrictMarkdown = True}
60− evalState (pandocToMarkdown opts document') WriterState{ stNotes = []
61+ document') WriterState{ stNotes = []
61− , stRefs = []
62+ , stRefs = []
62− , stPlain = True }
63+ , stPlain = True }
63 where document' = plainify document
64 where document' = plainify document
65plainify :: Pandoc -> Pandoc
66plainify :: Pandoc -> Pandoc