diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-02-24 22:59:44 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-02-24 22:59:44 +0000 |
commit | 5f3a147dfdee17a05fba87ece8629fa19e95a1c9 (patch) | |
tree | 0f785ffaaed60b8ad2b37196d96b872ed3f5b61a /src/pandoc.hs | |
parent | bb639d550662b688cb418e4ef10807b33d991b00 (diff) | |
download | pandoc-5f3a147dfdee17a05fba87ece8629fa19e95a1c9.tar.gz |
Removed plugin support.
Plugins will probably be added in a later version,
but for now we want to avoid the heavy GHC API dependency.
Also, plugins are very slow with the current system.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1548 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/pandoc.hs')
-rw-r--r-- | src/pandoc.hs | 19 |
1 files changed, 3 insertions, 16 deletions
diff --git a/src/pandoc.hs b/src/pandoc.hs index 64b79619c..12605c401 100644 --- a/src/pandoc.hs +++ b/src/pandoc.hs @@ -32,7 +32,7 @@ writers. module Main where import Text.Pandoc import Text.Pandoc.ODT -import Text.Pandoc.Shared ( HTMLMathMethod (..), splitBy, tabFilter, ObfuscationMethod (..) ) +import Text.Pandoc.Shared ( HTMLMathMethod (..), tabFilter, ObfuscationMethod (..) ) import Text.Pandoc.Highlighting ( languages ) import System.Environment ( getArgs, getProgName, getEnvironment ) import System.Exit ( exitWith, ExitCode (..) ) @@ -48,8 +48,7 @@ import System.IO.UTF8 import Text.CSL import Text.Pandoc.Biblio #endif -import Text.Pandoc.Plugins (getPlugin) -import Control.Monad (foldM, when, unless) +import Control.Monad (when, unless) copyrightMessage :: String copyrightMessage = "\nCopyright (C) 2006-8 John MacFarlane\n" ++ @@ -365,15 +364,6 @@ options = "FILENAME") "" -- "File to use for custom header (implies -s)" - , Option "P" ["plugins"] - (ReqArg - (\arg opt -> do - let pluginModules = splitBy ',' arg - plugins <- mapM getPlugin pluginModules - return opt { optPlugins = plugins }) - "MODULE[,MODULE...]") - "" -- "Haskell modules" - , Option "T" ["title-prefix"] (ReqArg (\arg opt -> return opt { optTitlePrefix = arg, @@ -540,7 +530,6 @@ main = do , optReferenceLinks = referenceLinks , optWrapText = wrap , optSanitizeHTML = sanitize - , optPlugins = plugins , optEmailObfuscation = obfuscationMethod #ifdef _CITEPROC , optBiblioFile = biblioFile @@ -653,9 +642,7 @@ main = do return doc #endif - doc'' <- foldM (flip ($)) doc' plugins - - let writerOutput = writer writerOptions doc'' ++ "\n" + let writerOutput = writer writerOptions doc' ++ "\n" case writerName' of "odt" -> saveOpenDocumentAsODT outputFile sourceDirRelative writerOutput |