@@ -176,8 +176,7 @@ parseFormatSpec = parse formatSpec ""
176176readers :: [(String, ReaderOptions -> String -> Pandoc)]
177177readers = [("native" , \_ -> readNative)
178178 ,("json" , \_ -> decodeJSON)
179− ,("strict" , \o -> readMarkdown
180− o{ readerExtensions = strictExtensions } )
179+ ,("strict" , readMarkdown)
181180 ,("markdown" , readMarkdown)
182181 ,("rst" , readRST)
183182 ,("docbook" , readDocBook)
@@ -221,8 +220,7 @@ writers = [
221220 ,("texinfo" , PureStringWriter writeTexinfo)
222221 ,("man" , PureStringWriter writeMan)
223222 ,("markdown" , PureStringWriter writeMarkdown)
224− ,("strict" , PureStringWriter $ \o ->
225− writeMarkdown o{ writerExtensions = strictExtensions } )
223+ ,("strict" , PureStringWriter writeMarkdown)
226224 ,("plain" , PureStringWriter writePlain)
227225 ,("rst" , PureStringWriter writeRST)
228226 ,("mediawiki" , PureStringWriter writeMediaWiki)
@@ -232,6 +230,10 @@ writers = [
232230 ,("asciidoc" , PureStringWriter writeAsciiDoc)
233231 ]
234232
233+getDefaultExtensions :: String -> Set Extension
234+getDefaultExtensions "strict" = strictExtensions
235+getDefaultExtensions _ = pandocExtensions
236+
235237-- | Retrieve reader based on formatSpec (format+extensions).
236238getReader :: String -> Either String (ReaderOptions -> String -> Pandoc)
237239getReader s =
@@ -242,7 +244,7 @@ getReader s =
242244 Nothing -> Left $ "Unknown reader: " ++ readerName
243245 Just r -> Right $ \o ->
244246 r o{ readerExtensions = setExts $
245− readerExtensions o }
247+ getDefaultExtensions readerName }
246248
247249-- | Retrieve writer based on formatSpec (format+extensions).
248250getWriter :: String -> Either String Writer
@@ -254,13 +256,13 @@ getWriter s =
254256 Nothing -> Left $ "Unknown writer: " ++ writerName
255257 Just (PureStringWriter r) -> Right $ PureStringWriter $
256258 \o -> r o{ writerExtensions = setExts $
257− writerExtensions o }
259+ getDefaultExtensions writerName }
258260 Just (IOStringWriter r) -> Right $ IOStringWriter $
259261 \o -> r o{ writerExtensions = setExts $
260− writerExtensions o }
262+ getDefaultExtensions writerName }
261263 Just (IOByteStringWriter r) -> Right $ IOByteStringWriter $
262264 \o -> r o{ writerExtensions = setExts $
263− writerExtensions o }
265+ getDefaultExtensions writerName }
264266
265267{-# DEPRECATED jsonFilter "Use toJsonFilter instead" #-}
266268-- | Converts a transformation on the Pandoc AST into a function