1 files changed, 44 insertions, 0 deletions
diff --git a/src/Text/Hakyll/Renderables.hs b/src/Text/Hakyll/Renderables.hs
new file mode 100644
index 0000000..17b987d
--- /dev/null
+++ b/src/Text/Hakyll/Renderables.hs
@@ -0,0 +1,44 @@
+module Text.Hakyll.Renderables
+    ( CustomPage,
+      createCustomPage,
+      PagePath,
+      createPagePath
+    ) where
+
+import System.FilePath
+import qualified Data.ByteString.Lazy.Char8 as B
+import qualified Data.Map as M
+import Control.Monad
+import Text.Hakyll.Util
+import Text.Hakyll.Page
+import Text.Hakyll.Renderable
+
+data CustomPage = CustomPage { url :: String,
+                               dependencies :: [FilePath],
+                               mapping :: [(String, Either String (IO B.ByteString))]
+                             }
+
+createCustomPage :: String
+                 -> [FilePath]
+                 -> [(String, Either String (IO B.ByteString))]
+                 -> CustomPage
+createCustomPage = CustomPage
+
+instance Renderable CustomPage where
+    getDependencies = dependencies
+    getURL = url
+    toContext page = do
+        values <- mapM (either (return . B.pack) (>>= return) . snd) (mapping page)
+        let keys = map (B.pack . fst) (mapping page)
+        return $ M.fromList $ (B.pack "url", B.pack $ url page) : zip keys values 
+
+data PagePath = PagePath FilePath
+
+createPagePath :: FilePath -> PagePath
+createPagePath = PagePath
+
+-- We can render filepaths
+instance Renderable PagePath where
+    getDependencies (PagePath path) = return path
+    getURL (PagePath path) = toURL path
+    toContext (PagePath path) = readPage path >>= toContext