Use doctemplates 0.3, change type of writerTemplate.

* Require recent doctemplates.  It is more flexible and
  supports partials.
* Changed type of writerTemplate to Maybe Template instead
  of Maybe String.
* Remove code from the LaTeX, Docbook, and JATS writers that looked in
  the template for strings to determine whether it is a book or an
  article, or whether csquotes is used. This was always kludgy and
  unreliable.  To use csquotes for LaTeX, set `csquotes` in your
  variables or metadata. It is no longer sufficient to put
  `\usepackage{csquotes}` in your template or header includes.
  To specify a book style, use the `documentclass` variable or
  `--top-level-division`.
* Change template code to use new API for doctemplates.

1 files changed, 12 insertions, 2 deletions

diff --git a/src/Text/Pandoc/App/OutputSettings.hs b/src/Text/Pandoc/App/OutputSettings.hs
index 31bd64c4c..ae78ba15e 100644
--- a/src/Text/Pandoc/App/OutputSettings.hs
+++ b/src/Text/Pandoc/App/OutputSettings.hs
@@ -163,7 +163,7 @@ optToOutputSettings opts = do
                       return $ ("dzslides-core", dzcore) : vars
                   else return vars)
 
-  templ <- case optTemplate opts of
+  templStr <- case optTemplate opts of
                   _ | not standalone -> return Nothing
                   Nothing -> Just <$> getDefaultTemplate format
                   Just tp -> do
@@ -171,7 +171,7 @@ optToOutputSettings opts = do
                     let tp' = case takeExtension tp of
                                    "" -> tp <.> format
                                    _  -> tp
-                    Just . UTF8.toString <$>
+                    Just . UTF8.toText <$>
                           ((do surl <- stSourceURL <$> getCommonState
                                -- we don't want to look for templates remotely
                                -- unless the full URL is specified:
@@ -188,6 +188,16 @@ optToOutputSettings opts = do
                                        readDataFile ("templates" </> tp')
                                     _ -> throwError e))
 
+  let templatePath = fromMaybe "" $ optTemplate opts
+
+  templ <- case templStr of
+             Nothing -> return Nothing
+             Just ts -> do
+               res <- compileTemplate templatePath ts
+               case res of
+                 Left  e -> throwError $ PandocTemplateError e
+                 Right t -> return $ Just t
+
   case lookup "lang" (optMetadata opts) of
          Just l  -> case parseBCP47 l of
                          Left _   -> return ()