@@ -1,3 +1,4 @@
1+{-# LANGUAGE TypeSynonymInstances #-}
12{-
23Copyright (C) 2009 John MacFarlane <jgm@berkeley.edu>
34
@@ -49,7 +50,9 @@ Conditional keywords should not be indented, or unexpected spacing
4950problems may occur.
5051-}
5152
52−module Text.Pandoc.Templates (renderTemplate, getDefaultTemplate) where
53+module Text.Pandoc.Templates ( renderTemplate
54+ , TemplateTarget
55+ , getDefaultTemplate) where
5356
5457import Text.ParserCombinators.Parsec
5558import Control.Monad (liftM, when)
@@ -57,6 +60,9 @@ import qualified Control.Exception as E (try, IOException)
5760import System.FilePath
5861import Text.Pandoc.Shared (readDataFile)
5962import Data.List (intercalate)
63+import Text.PrettyPrint (text, Doc)
64+import Text.XHtml (primHtml, Html)
65+import Data.ByteString.Lazy.UTF8 (ByteString, fromString)
6066
6167-- | Get the default template, either from the application's user data
6268-- directory (~/.pandoc on unix) or from the cabal data directory.
@@ -79,14 +85,30 @@ adjustPosition str = do
7985 else TemplateState (length lastline) x
8086 return str
8187
88+class TemplateTarget a where
89+ toTarget :: String -> a
90+
91+instance TemplateTarget String where
92+ toTarget = id
93+
94+instance TemplateTarget ByteString where
95+ toTarget = fromString
96+
97+instance TemplateTarget Html where
98+ toTarget = primHtml
99+
100+instance TemplateTarget Doc where
101+ toTarget = text
102+
82103-- | Renders a template
83−renderTemplate :: [(String,String)] -- ^ Assoc. list of values for variables
104+renderTemplate :: TemplateTarget a
105+ => [(String,String)] -- ^ Assoc. list of values for variables
84106 -> String -- ^ Template
85− -> String
107+ -> a
86108renderTemplate vals templ =
87109 case runParser (do x <- parseTemplate; eof; return x) (TemplateState 0 vals) "template" templ of
88110 Left e -> error $ show e
89− Right r -> concat r
111+ Right r -> toTarget $ concat r
90112
91113reservedWords :: [String]
92114reservedWords = ["else","endif"]