added epub-cover-image support

TODO

@@ -2,6 +2,7 @@ BUGS:
 	No template can access the book title in 'vars'
 
 TODO:
+	add a 'epub-cover-image' option
     add a 'silent' option
 	clean up environment handling in section
 	clean up pandoc format handling

bookbuilder.cabal

@@ -27,6 +27,7 @@ Executable bookbuilder
     base >= 4 && < 5,
     Dangerous >= 0.2.2,
     Focus >= 0.1.2,
+    MissingH >= 1.1,
     Configger >= 0.1,
     Limit >= 1.0,
     bytestring >= 0.9,

src/Target/Config.hs

@@ -21,6 +21,7 @@ import Control.Monad.Trans
 import Control.Monad.Loops
 import Control.Dangerous hiding ( Warning )
 import Data.Char
+import Data.List.Utils hiding ( merge )
 import qualified Data.Configger as Configger
 import Data.Configger ( Config )
 import Data.Maybe
@@ -33,9 +34,10 @@ import Text.Printf
 configFile :: String
 configFile = "config"
 
-variableSection, optionSection :: String
+variableSection, optionSection, localSection :: String
 variableSection = "VARIABLES"
 optionSection = "OPTIONS"
+localSection = "LOCAL"
 
 styleFile, resourceFile, metadataFile :: String
 styleFile = "style.css"
@@ -54,8 +56,12 @@ debugOption = "debug"
 
 -- | Config file loading and manipulation
 
+isCover :: String -> Bool
+isCover f = startswith "cover-image." name || startswith "cover." name
+    where name = takeFileName f
+
 isSpecial :: FilePath -> Bool
-isSpecial = flip elem special . takeFileName where
+isSpecial f = isCover f || (takeFileName f) `elem` special where
     special = [configFile, styleFile, resourceFile, metadataFile]
 
 isConfig :: FilePath -> Bool
@@ -75,7 +81,7 @@ load path = do
     hasStyle <- liftIO $ doesFileExist sfile
     hasResources <- liftIO $ doesFileExist rfile
     hasMetadata <- liftIO $ doesFileExist mfile
-    conf <- raw path
+    basic <- raw path
     let setStyle c = do
         css <- liftIO $ readFile sfile
         return $ setOption styleOption css c
@@ -86,7 +92,10 @@ load path = do
     let setters = [setStyle | hasStyle] ++
                   [setResources | hasResources] ++
                   [setMetadata | hasMetadata]
-    concatM setters conf
+    conf <- concatM setters basic
+    let locals = Configger.items localSection conf
+    let mapped = map (\(x, y) -> (x, path </> y)) locals
+    return $ Configger.mergeSection (variableSection, mapped) conf
 
 merge :: Config -> FilePath -> String -> DangerousT IO Config
 merge conf dir fmt = let name = takeFileName dir in do

src/Target/Pandoc.hs

@@ -54,7 +54,9 @@ write format conf dest doc = case lookup format writers of
     Nothing -> writeFile dest $ defaultWriter opts doc'
     Just r -> writeFile dest $ r opts doc'
     where opts = defaultWriterOptions
-          epubOpts = opts{ writerEPUBMetadata = metadata }
+          epubOpts = opts{ writerEPUBMetadata = metadata
+                         , writerVariables = [("epub-cover-image", cover) |
+                           cover <- Config.values "epub-cover-image" conf] }
           metadata = fromMaybe "" (Config.metadata conf)
           doc' = doc `withDefaultData` conf