[table of contents bling -- menu item lit when selected
thomashartman1@gmail.com**20080906143027] hunk ./src/View.hs 16
-  header <- getHeaderArea contentTmpl mbLoggedInAs 
+  let kvMenustyleActivelink = getMenuCssStyles contentTmpl
+  header <- getHeaderArea contentTmpl mbLoggedInAs kvMenustyleActivelink
+  toc <- getTableOfContentsArea contentTmpl kvMenustyleActivelink
hunk ./src/View.hs 20
-      =<< renderTemplateDir "templates" ( [("contentarea",content),("headerarea",header)] ++ attrs) "base"
+      =<< renderTemplateDir "templates" ( [("tocarea",toc)
+                                           , ("contentarea",content)
+                                           , ("headerarea",header)] ++ attrs) "base"
hunk ./src/View.hs 26
-getHeaderArea contentTmpl mbLoggedInAs = do
-  let kvMenustyleActivelink = getMenuCssStyles contentTmpl
+-- this should really take a request arg, not mbLogged inAs.
+getHeaderArea contentTmpl mbLoggedInAs kvMenustyleActivelink = do  
hunk ./src/View.hs 35
+getTableOfContentsArea contentTmpl kvMenustyleActivelink =
+    renderTemplateDir "templates" kvMenustyleActivelink "tableofcontents" 
+
hunk ./src/View.hs 49
+-- In header and table of contents menus: 
hunk ./src/View.hs 51
--- "menuItem" is default
+-- style "menuItem" is default
hunk ./src/View.hs 70
+                        , "prerequisites"
+                        , "overview"
+                        , "run-tutorial-locally"
+                        , "main-function"
+                        , "basic-url-handling"
+                        , "templates-dont-repeat-yourself"
hunk ./templates/base.st 15
-	      <table> <tr> <td valign=top width = 200> $ tableofcontents() $ </td> 
+	      <table> <tr> <td valign=top width = 200> $ tocarea $ </td> 
addfile ./templates/errortemplate.st
hunk ./templates/errortemplate.st 1
-
+<font color=red>
+  $ errormsg $
+</font>
addfile ./templates/tableofcontents.st
hunk ./templates/tableofcontents.st 1
+
+<ul>
+  <li><a class="$ menustyleHome $" href="/tutorial/home/">happs intro
+  <li><a class="$ menustylePrerequisites$" href="/tutorial/prerequisites/">prerequisites
+  <li><a class="$ menustyleOverview $"href="/tutorial/overview">overview</a>
+  <li><a class="$ menustyleRuntutoriallocally $" href="/tutorial/run-tutorial-locally">happs install</a>
+  <li><a class="$ menustyleMainfunction $" href="/tutorial/main-function">main</a>
+  <li><a class="$ menustyleBasicurlhandling $" href="/tutorial/basic-url-handling">happs url handling</a>
+  <li><a class="$ menustyleTemplatesdontrepeatyourself $" href="/tutorial/templates-dont-repeat-yourself">happs templates</a>
+</ul>