git.iko.soy/typeable/pandoc
on ee7a458 help sign in
typeable/pandoc/Setup.hs
88 lines 3.8 kB history raw
1import Distribution.Simple
2import Distribution.PackageDescription ( emptyHookedBuildInfo )
3import Control.Exception ( bracket_ )
4import System.Process ( runCommand, runProcess, waitForProcess )
5import System.FilePath ( (</>), (<.>) )
6import System.Directory
7import System.IO ( stderr )
8import System.Exit
9import System.Time
10import System.IO.Error ( isDoesNotExistError )
11import Data.Maybe ( fromJust, isNothing, catMaybes )
13main = defaultMainWithHooks $
14 simpleUserHooks { runTests = runTestSuite
15 , preConf = checkReferenceODT
16 , postBuild = makeManPages }
18-- | Run test suite.
19runTestSuite _ _ _ _ = do
20 inDirectory "tests" $ runCommand "runhaskell RunTests.hs" >>= waitForProcess
21 return ()
23-- | If reference.odt needs rebuilding, build it.
24checkReferenceODT _ _ = inDirectory "odt-styles" $ do
25 let refodt = "reference.odt"
26 let deps = [ "meta.xml", "content.xml", "settings.xml", "META-INF/manifest.xml",
27 "Thumbnails/thumbnail.png", "styles.xml", "mimetype" ]
28 modifiedDeps <- modifiedDependencies refodt deps
29 if null modifiedDeps
30 then return ()
31 else makeReferenceODT modifiedDeps
32 return emptyHookedBuildInfo
34-- | Create reference.odt by zipping up sources in odt-styles directory.
35makeReferenceODT :: [FilePath] -> IO ()
36makeReferenceODT sources = do
37 zipPathMaybe <- findExecutable "zip"
38 if isNothing zipPathMaybe
39 then error $ "The 'zip' command, which is needed to build reference.odt\n" ++
40 "from sources in the odt-styles directory, was not found.\n" ++
41 "Try again after installing zip (http://www.info-zip.org/Zip.html).\n" ++
42 "Or use the pandoc source tarball, which contains a prebuilt reference.odt."
43 else do
44 putStrLn "Creating reference.odt:"
45 ec <- runProcess (fromJust zipPathMaybe) (["-9", "-r", "reference.odt"] ++ sources)
46 Nothing Nothing Nothing Nothing (Just stderr) >>= waitForProcess
47 case ec of
48 ExitSuccess -> return ()
49 _ -> error "Error creating ODT."
51-- | Build man pages from markdown sources in man/man1/.
52makeManPages _ _ _ _ = do
53 mapM makeManPage ["pandoc.1", "hsmarkdown.1", "markdown2pdf.1", "html2markdown.1"]
54 return ()
56-- | Build a man page from markdown source in man/man1.
57makeManPage manpage = do
58 let manDir = "man" </> "man1"
59 let pandoc = "dist" </> "build" </> "pandoc" </> "pandoc"
60 let page = manDir </> manpage
61 let source = manDir </> manpage <.> "md"
62 modifiedDeps <- modifiedDependencies page [source]
63 if null modifiedDeps
64 then return ()
65 else do
66 ec <- runProcess pandoc ["-s", "-r", "markdown", "-w", "man", "-o", page, source]
67 Nothing Nothing Nothing Nothing (Just stderr) >>= waitForProcess
68 case ec of
69 ExitSuccess -> putStrLn $ "Created " ++ manDir </> manpage
70 _ -> error $ "Error creating " ++ manDir </> manpage
72-- | Returns a list of 'dependencies' that have been modified after 'file'.
73modifiedDependencies :: FilePath -> [FilePath] -> IO [FilePath]
74modifiedDependencies file dependencies = do
75 fileModTime <- catch (getModificationTime file) $
76 \e -> if isDoesNotExistError e
77 then return (TOD 0 0) -- the minimum ClockTime
78 else ioError e
79 depModTimes <- mapM getModificationTime dependencies
80 let modified = zipWith (\dep time -> if time > fileModTime then Just dep else Nothing) dependencies depModTimes
81 return $ catMaybes modified
83-- | Perform an IO action in a directory.
84inDirectory :: FilePath -> IO a -> IO a
85inDirectory dir action = do
86 oldDir <- getCurrentDirectory
87 bracket_ (setCurrentDirectory dir) (setCurrentDirectory oldDir) action