Simplified build process using template haskell.

+ Text/Pandoc/ASCIIMathML.hs, Text/Pandoc/DefaultHeaders.hs,
  and Text/Pandoc/Writers/S5.hs are no longer built in Setup.hs
  from templates in the templates/ directory.
+ Instead, they use template haskell to read data at compile
  time from the relevant files in data/.
+ Setup.hs is back to the default simple configuration.
+ Removed old templates and Extra-Tmp-Files field from
  pandoc.cabal.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@1357 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 1 insertions, 68 deletions

diff --git a/Setup.hs b/Setup.hs
index 2162f9860..200a2e51d 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -1,70 +1,3 @@
 import Distribution.Simple
-import Distribution.Simple.Setup
-import Distribution.PackageDescription
-import Distribution.Simple.LocalBuildInfo
-import System.FilePath (combine, joinPath, takeFileName, takeExtension)
-import System.Directory (getDirectoryContents, removeFile, copyFile)
-import System.IO (readFile, writeFile)
-import Control.Monad (foldM)
-import Data.List (isPrefixOf)
-
-main = defaultMainWithHooks $ simpleUserHooks { postConf = myPostConf }
-
-pandocPath = combine "Text" "Pandoc"
-
--- Builds Text/Pandoc/ASCIIMathML.hs, Text/Pandoc/Writers/S5.hs, and
--- Text/Pandoc/Writers/DefaultHeaders.hs from templates and data.
-myPostConf :: Args -> ConfigFlags -> PackageDescription -> LocalBuildInfo -> IO ()
-myPostConf _ configFlags pkgDescription buildInfo = do
-  putStrLn "Generating source files from templates..."
-  fillAsciiMathMLTemplate
-  fillS5WriterTemplate
-  fillDefaultHeadersTemplate
-
--- Fill templateFile with data in dataFiles and write to outputFile.
-fillTemplate :: [FilePath] -> FilePath -> FilePath -> IO ()
-fillTemplate dataFiles templateFile outputFile = do
-  template <- readFile (combine "templates" templateFile)
-  filled <- foldM processFile template $ map (combine "templates") dataFiles
-  writeTemplate (combine pandocPath outputFile) filled 
-
-fillAsciiMathMLTemplate :: IO ()
-fillAsciiMathMLTemplate =
-  fillTemplate ["ASCIIMathML.js.comment", "ASCIIMathML.js.packed"] "ASCIIMathML.hs" "ASCIIMathML.hs"
-
-fillS5WriterTemplate :: IO ()
-fillS5WriterTemplate = 
-  let s5Path = joinPath ["ui", "default"]
-      files = map (combine s5Path) ["slides.js.comment", "slides.js.packed", "s5-core.css", 
-              "framing.css", "pretty.css", "opera.css", "outline.css", "print.css"]
-  in  fillTemplate files "S5.hs" (combine "Writers" "S5.hs")
-
-fillDefaultHeadersTemplate :: IO ()
-fillDefaultHeadersTemplate = do
-  files <- getDirectoryContents (combine "templates" "headers") >>= 
-             return . map (combine "headers") . filter (\x -> takeExtension x == ".header")
-  fillTemplate files "DefaultHeaders.hs" "DefaultHeaders.hs"
-
--- Write the filled template file and print an explanatory message.
-writeTemplate :: FilePath -> String -> IO ()
-writeTemplate outfile contents = do
-  putStrLn $ "  " ++ outfile
-  let warning = "-- This file is generated from a template in the templates subdirectory.\n" ++
-                "-- Modify that file, not this one.\n"
-  writeFile outfile (warning ++ contents)
-
--- Read contents of fpath and insert in template replacing @fpath@.
-processFile :: String -> FilePath -> IO String
-processFile template fpath = do 
-  contents <- readFile fpath >>= return . show
-  return $ substitute ("@" ++ takeFileName fpath ++ "@") contents template
-
--- Replace each occurrence of one sublist in a list with another.
-substitute :: (Eq a) => [a] -> [a] -> [a] -> [a]
-substitute _ _ [] = []
-substitute [] _ lst = lst
-substitute target replacement lst = 
-    if target `isPrefixOf` lst
-       then replacement ++ (substitute target replacement $ drop (length target) lst)
-       else (head lst):(substitute target replacement $ tail lst)
+main = defaultMain