fix the page naming lambda, add demo

closes #18

2 files changed, 5 insertions, 3 deletions

diff --git a/reploy.hs b/reploy.hs
index 13dff27..78574d4 100644
--- a/reploy.hs
+++ b/reploy.hs
@@ -190,8 +190,9 @@ pageName' :: Site (FilePath -> String)
 pageName' = do
   ps <- use pages
   pure $ \mnt' ->
-    just ("template looks for undefined page name : " ++ mnt')
-      $  ps M.!? unAbsolute mnt' >>= (^? pageMeta . key "template" . _String . to T.unpack)
+    just ("lookup for undefined page name : " ++ mnt')
+      $ ps M.!? unAbsolute mnt'
+          >>= (^? pageMeta . key "name" . _String . to T.unpack)
 
 -- | Like `Mu.substitute` but writes (and eventually should throw) stuff on errors
 checkedSubstitute :: Mu.Template -> MT.Value -> IO T.Text
diff --git a/templates/header.html b/templates/header.html
index 1afc80e..d4e4799 100644
--- a/templates/header.html
+++ b/templates/header.html
@@ -1,9 +1,10 @@
 <header>
   Navigation:
   <ul>
+    <li><a href="{{#pageLink}}/{{/pageLink}}">{{#pageName}}/{{/pageName}}</a></li>
     <li><a href="{{#pageLink}}/tag{{/pageLink}}">Tags</a></li>
     <li><a href="{{#pageLink}}/list{{/pageLink}}">List</a></li>
-    <li><a href="{{#pageLink}}/search{{/pageLink}}">Search</a></li>
+    <li><a href="{{#pageLink}}/search{{/pageLink}}">{{#pageName}}/search{{/pageName}}</a></li>
   </ul>
 
   {{?htags}}