git.iko.soy/typeable/pandoc
on master help sign in
Modified main 'pandoc' program so that if it is called with program
b9eeba9fiddlosopher
src/Main.hs+18−7
compare with master
unifiedsplit
@@ -342,7 +342,12 @@ defaultWriterName x =
342main = do
342main = do
343
343
344 args <- getArgs
344 args <- getArgs
345+ prg <- getProgName
346+ let compatMode = (prg == "hsmarkdown")
347+
348+ let (actions, sources, errors) = if compatMode
349+ then ([], args, [])
345− let (actions, sources, errors) = getOpt Permute options args
350+ else getOpt Permute options args
346
351
347 if (not (null errors))
352 if (not (null errors))
348 then do
353 then do
@@ -353,8 +358,14 @@ main = do
353 else
358 else
354 return ()
359 return ()
355
360
361+ let defaultOpts' = if compatMode
362+ then defaultOpts { optReader = "markdown"
363+ , optWriter = "html"
364+ , optStrict = True }
365+ else defaultOpts
366+
356 -- thread option data structure through all supplied option actions
367 -- thread option data structure through all supplied option actions
357− opts <- foldl (>>=) (return defaultOpts) actions
368+ opts <- foldl (>>=) (return defaultOpts') actions
358
369
359 let Opt { optPreserveTabs = preserveTabs
370 let Opt { optPreserveTabs = preserveTabs
360 , optTabStop = tabStop
371 , optTabStop = tabStop
@@ -408,11 +419,11 @@ main = do
408 let addBlank str = str ++ "\n\n"
419 let addBlank str = str ++ "\n\n"
409 let removeCRs str = filter (/= '\r') str -- remove DOS-style line endings
420 let removeCRs str = filter (/= '\r') str -- remove DOS-style line endings
410 let filter = tabFilter . addBlank . removeCRs
421 let filter = tabFilter . addBlank . removeCRs
422+ let startParserState =
411− let startParserState = defaultParserState { stateParseRaw = parseRaw,
423+ defaultParserState { stateParseRaw = parseRaw,
412− stateTabStop = tabStop,
424+ stateTabStop = tabStop,
413− stateStandalone = standalone &&
425+ stateStandalone = standalone && (not strict),
414− (not strict),
415− stateStrict = strict }
426+ stateStrict = strict }
416 let csslink = if (css == "")
427 let csslink = if (css == "")
417 then ""
428 then ""
418 else "<link rel=\"stylesheet\" href=\"" ++ css ++
429 else "<link rel=\"stylesheet\" href=\"" ++ css ++