[menuLink
thomashartman1@gmail.com**20080917095025] hunk ./src/Controller.hs 9
+import Text.StringTemplate
hunk ./src/Controller.hs 68
-      consultantlist = paintVList (makeLink url) consultants
+      consultantlist = paintVList (\c -> menuLink Nothing url c c) consultants
hunk ./src/Controller.hs 78
-      joblist = paintVList (makeLink url) jobs
+      joblist = paintVList (\j -> menuLink Nothing url j j) jobs
hunk ./src/Controller.hs 82
--- this could go in view
--- better yet, use StringTemplate machinery.
-paintVList f users  = intercalate "<p>" . map f $ users
-makeLink baseurl x = makeLink_ baseurl x x
-makeLink_ baseurl endurl anchortext = "<a href=" ++ baseurl ++ "/" ++ endurl ++ ">" ++ anchortext ++ "</a>"
-
hunk ./src/Controller.hs 126
+--tutlayoutMenuLinks 
+
hunk ./src/View.hs 8
+import Data.List
hunk ./src/View.hs 135
+-- better yet, use StringTemplate machinery.
+paintVList f users  = intercalate "<p>" . map f $ users
+
+menuLink mbCurrEndurl baseurl endurl anchortext =
+  render . setManyAttrib [("baseurl",baseurl),("endurl",endurl),("anchortext",anchortext)] . newSTMP $ st
+  where selST = "<a class=menuitemSelected href=$baseurl$/$endurl$>$anchortext$</a>"
+        unselST = "<a class=menuitem href=$baseurl$/$endurl$>$anchortext$</a>"
+        st = maybe 
+               unselST
+               (\ceu -> if ceu == endurl then selST else unselST)
+               mbCurrEndurl
+