Allow pages to specify their own template.

myreen · Mar 17, 2017 · 9420dcb · 9420dcb
1 parent 97830f7
commit 9420dcb
Show file tree

Hide file tree

Showing 2 changed files with 55 additions and 2 deletions.
diff --git a/CCWF/Impl.hs b/CCWF/Impl.hs
@@ -6,7 +6,7 @@ import Data.Char
 import Data.List
 import Data.Time
 import Data.Function (on)
-import Data.Maybe (isJust)
+import Data.Maybe (isJust, fromMaybe)
 import System.Directory (doesFileExist)
 import System.FilePath (takeBaseName)
 import Text.Read
@@ -205,15 +205,26 @@ mkMenuCtx self = mconcat
 --   template (i.e. it may include substitutions), and render it as markdown
 --   again. Finally, apply the default template to the end result and
 --   relativize all URLs.
+--   Pages may set a different template by setting the @template@ metadata
+--   variable.
 applyMeAsTemplate :: Context String -> Context String -> Compiler (Item String)
 applyMeAsTemplate pageCtx topCtx = do
+  template <- getTemplate
   getResourceBody
     >>= renderPandoc
     >>= applyAsTemplate pageCtx
     >>= renderPandoc
-    >>= loadAndApplyTemplate "templates/default.html" topCtx
+    >>= loadAndApplyTemplate template topCtx
     >>= relativizeUrls
 
+-- | Get the template to use for the current page.
+--   If no @template@ metadata is given, @default@ is assumed.
+getTemplate :: Compiler Identifier
+getTemplate = do
+  self  <- getUnderlying
+  mtemp <- getMetadataField self "template"
+  return $ fromFilePath $  "templates/" ++ (fromMaybe "default" mtemp) ++ ".html"
+
 -- | Turn a path @p@ (stripped of prefix and extension) into @p/index.html@.
 mkPath :: FilePath -> FilePath
 mkPath "index" = "index.html"

diff --git a/templates/wide.html b/templates/wide.html
@@ -0,0 +1,42 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="UTF-8">
+    <meta name="viewport" content="width=device-width,initial-scale=1">
+    <link rel="stylesheet" href="/css/style.css">
+    <link rel="stylesheet" href="/css/highlighting.css">
+    <script src="/js/scripts.js"></script>
+    <title>$title$ | $coursename$ $year$</title>
+    <body>
+      <div id="widecontent" class="widecontent">
+        $body$
+      </div>
+      <div id="sidebar" class="sidebar">
+        <ul id="sidebarheading">
+          <h2>$coursename$ $year$</h2>
+          <p>$coursecode$</p>
+        </ul>
+        <ul id="menu">
+          $for(menuitems)$
+          <a href="$url$" class="$selected$">
+            <li class="$selected$">
+              $body$
+              $if(submenuitems)$
+              <ul class="submenu">
+                $for(submenuitems)$
+                <a class="submenu" class="unselected" href="$path$"><li>$body$</li></a>
+                $endfor$
+              </ul>
+              $endif$
+            </li>
+          </a>
+          $endfor$
+        </ul>
+        <img src="/images/chalmers.png" width="140px" style="margin-top: 40px;">
+      </div>
+      <div id="topbar" class="topbar" onclick="toggleSidebar('sidebar');">
+        <div>Menu</div> <img src="/images/menubutton.png"></img>
+      </div>
+    </body>
+  </head>
+</html>