module Text.LaTeX.Guide.Info (
sectionList
, contributors
, Backend (..)
, parseSections
, outputName
, otherResources) where
import Text.LaTeX.Guide.Syntax
import System.FilePath
import System.Directory (getAppUserDataDirectory)
#ifndef MIN_VERSION_base
#define MIN_VERSION_base(x,y,z) 0
#endif
#if !MIN_VERSION_base(4,8,0)
import Data.Monoid (mappend)
#endif
sectionList :: [String]
sectionList = [
"preface"
, "basics"
, "monad"
, "class"
, "packages"
, "epilogue"
]
contributors :: [String]
contributors = [ "GetContented" ]
data Backend = LaTeX | Wiki | HTML
parseSections :: IO [Syntax]
parseSections = do
d <- getAppUserDataDirectory "hatex-guide"
mapM (parseFile . (<.> "htxg") . combine d . combine "src") sectionList
outputName :: String -> FilePath
outputName = mappend "hatex-guide"
otherResources :: [String]
otherResources = [ "machine.png" ]