@@ -134,7 +134,6 @@ data Opt = Opt
134 , optDumpArgs :: Bool -- ^ Output command-line arguments
134 , optDumpArgs :: Bool -- ^ Output command-line arguments
135 , optIgnoreArgs :: Bool -- ^ Ignore command-line arguments
135 , optIgnoreArgs :: Bool -- ^ Ignore command-line arguments
136 , optStrict :: Bool -- ^ Use strict markdown syntax
136 , optStrict :: Bool -- ^ Use strict markdown syntax
137− , optExtensions :: [(Bool, Extension)]-- ^ Extensions to enable/disable
138 , optReferenceLinks :: Bool -- ^ Use reference links in writing markdown, rst
137 , optReferenceLinks :: Bool -- ^ Use reference links in writing markdown, rst
139 , optWrapText :: Bool -- ^ Wrap text
138 , optWrapText :: Bool -- ^ Wrap text
140 , optColumns :: Int -- ^ Line length in characters
139 , optColumns :: Int -- ^ Line length in characters
@@ -188,7 +187,6 @@ defaultOpts = Opt
188 , optDumpArgs = False
187 , optDumpArgs = False
189 , optIgnoreArgs = False
188 , optIgnoreArgs = False
190 , optStrict = False
189 , optStrict = False
191− , optExtensions = []
192 , optReferenceLinks = False
190 , optReferenceLinks = False
193 , optWrapText = True
191 , optWrapText = True
194 , optColumns = 72
192 , optColumns = 72
@@ -242,24 +240,6 @@ options =
242 (\opt -> return opt { optStrict = True } ))
240 (\opt -> return opt { optStrict = True } ))
243 "" -- "Disable markdown syntax extensions"
241 "" -- "Disable markdown syntax extensions"
245− , Option "e" ["enable"]
248− ext <- readExtension arg
249− return opt { optExtensions =
250− (True,ext) : optExtensions opt } )
252− "" -- "Enable specific markdown syntax extensions"
254− , Option "d" ["disable"]
257− ext <- readExtension arg
258− return opt { optExtensions =
259− (False,ext) : optExtensions opt } )
261− "" -- "Disable specific markdown syntax extensions"
263 , Option "R" ["parse-raw"]
243 , Option "R" ["parse-raw"]
265 (\opt -> return opt { optParseRaw = True }))
245 (\opt -> return opt { optParseRaw = True }))
@@ -840,7 +820,6 @@ main = do
840 , optDumpArgs = dumpArgs
820 , optDumpArgs = dumpArgs
841 , optIgnoreArgs = ignoreArgs
821 , optIgnoreArgs = ignoreArgs
842 , optStrict = strict
822 , optStrict = strict
843− , optExtensions = exts
844 , optReferenceLinks = referenceLinks
823 , optReferenceLinks = referenceLinks
845 , optWrapText = wrap
824 , optWrapText = wrap
846 , optColumns = columns
825 , optColumns = columns
@@ -967,12 +946,7 @@ main = do
967 then strictExtensions
946 then strictExtensions
968 else pandocExtensions
947 else pandocExtensions
970− let extensions = foldl (\acc (inc,ext) -> if inc
971− then Set.insert ext acc
972− else Set.delete ext acc)
975− let readerOpts = def{ readerExtensions = extensions
949+ let readerOpts = def{ readerExtensions = defaultExts
976 , readerSmart = smart || (texLigatures &&
950 , readerSmart = smart || (texLigatures &&
977 (laTeXOutput || writerName' == "context"))
951 (laTeXOutput || writerName' == "context"))
978 , readerStandalone = standalone'
952 , readerStandalone = standalone'
@@ -998,7 +972,7 @@ main = do
998 writerIgnoreNotes = False,
972 writerIgnoreNotes = False,
999 writerNumberSections = numberSections,
973 writerNumberSections = numberSections,
1000 writerSectionDivs = sectionDivs,
974 writerSectionDivs = sectionDivs,
1001− writerExtensions = extensions,
975+ writerExtensions = defaultExts,
1002 writerReferenceLinks = referenceLinks,
976 writerReferenceLinks = referenceLinks,
1003 writerWrapText = wrap,
977 writerWrapText = wrap,
1004 writerColumns = columns,
978 writerColumns = columns,