[menu working better
thomashartman1@gmail.com**20080824185217] hunk ./src/Misc.hs 36
-traceTrue x = trace (show x) True
+traceTrue x = trace (show x ++ "\n\n") True
hunk ./src/Misc.hs 51
-traceIt x = trace (show x) x
+traceIt x = trace (show x ++ "\n\n") x
hunk ./src/Misc.hs 68
-renderDef attrs tmplname grp =
+renderDef attrs tmplname grp | traceTrue ("renderDef",("attrs", attrs), ("tmplname",tmplname),("grp",grp) ) =
hunk ./src/View.hs 6
+import qualified Data.Map as M
+import Debug.Trace
hunk ./src/View.hs 19
-getMenuAttrs tmpl = [("homeSelected",""),
- ("loginSelected"," is selected "),
- ("loggedInAsSelected",""),
- ("viewAllUsersSelected","")]
+getMenuAttrs tmpl | traceTrue ("getMenuAttrs tmpl", tmpl)= M.toList $ snd $ M.updateLookupWithKey f menukey $ M.fromList templateAttributes
+ where f k v | k == menukey = Just "menuitemselected"
+ | otherwise = Just v
+ templateAttributes = [("menuHomeSelected","menuitem"),
+ ("menuLoginSelected","menuitem"),
+ ("menuLoggedInAsSelected","menuitem"),
+ ("menuViewAllUsersSelected","menuitem")]
+ menukey = maybe ("error, bad tmpl: " ++ tmpl) id ( lookup tmpl menuValsTable )
+
+menuValsTable = [("home","menuHomeSelected"),
+ ("login","menuLoginSelected"),
+ ("list","menuViewAllUsersSelected")]
+
+
+t = getMenuAttrs "home"
hunk ./src/View.hs 41
-renderTut attrs tmpl = withTutTemplate ( renderDef (traceMsg "attrs in View.hs" attrs) tmpl )
+renderTut attrs tmpl | traceTrue (("attrs",attrs),("tmpl",tmpl)) = withTutTemplate ( renderDef ({-traceMsg "attrs in View.hs" -} attrs) tmpl )
hunk ./templates/base.st 12
- login selected: $ loginSelected $
+ loggged in as: $ loginSelected $ (when this works, get rid of "logged in as link" below)
hunk ./templates/header.st 16
-
- |
- |Logged in as
- |View all users
+
+ |
+ |
+ |