From c0a479da2220475ae7048f370521c30de32fa613 Mon Sep 17 00:00:00 2001
From: Corey O'Connor <coreyoconnor@gmail.com>
Date: Sat, 4 Feb 2012 19:26:35 -0800
Subject: [PATCH] start expanding out the nav widget

---
 src/Yesod/CoreBot/Bliki/Widgets.hs | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

diff --git a/src/Yesod/CoreBot/Bliki/Widgets.hs b/src/Yesod/CoreBot/Bliki/Widgets.hs
index ad93e2b..65f0ed4 100644
--- a/src/Yesod/CoreBot/Bliki/Widgets.hs
+++ b/src/Yesod/CoreBot/Bliki/Widgets.hs
@@ -9,9 +9,20 @@ import Yesod.CoreBot.Bliki.Base
 import Yesod.CoreBot.Bliki.Config
 import Yesod.CoreBot.Bliki.Resources.Base
 
-data NavWidget = NavWidget
+data NavWidget master where
+    NavWidget :: forall master . Yesod master => Bliki_ master -> NavWidget master
 
-instance ToWidget sub master NavWidget where
-    toWidget _ = do
-        return ()
+instance ToWidget sub master ( NavWidget master ) where
+    toWidget (NavWidget bliki) = do
+            main_URL <- approot <$> ( lift $ getYesod )
+            let cfg = config $ data_res bliki
+                blog_update_log = blog_routes cfg BlogIndexR
+                wiki_index = wiki_routes cfg $ WikiIndexR []
+            [whamlet|
+                <ul .nav_sidebar>
+                    <li>
+                        <a href=#{main_URL}>Main
+                    <li><a href=@{blog_update_log}>Blog
+                    <li><a href=@{wiki_index}>Wiki
+            |]