[basic login functionality with menu highlighting works. huzza
thomashartman1@gmail.com**20080906101630] hunk ./src/Misc.hs 100
+
+alltrue ps x = foldr g True ps
+  where g p b = b && p x
+nonetrue ps x = alltrue (map opposite ps) x
+  where opposite p x = not . p $ x
hunk ./src/View.hs 25
-    ( renderTemplateDir "templates" [] "menuNotLoggedIn" )
+    ( renderTemplateDir "templates" kvMenustyleActivelink "menuNotLoggedIn" )
hunk ./src/View.hs 31
-
hunk ./src/View.hs 34
-    defaultMenuActivelinks
+    ( traceIt defaultMenuActivelinks )
hunk ./src/View.hs 56
+
hunk ./src/View.hs 61
+                        , "register"
hunk ./src/View.hs 64
-        stylify tmpl = (tmpl, ( ("menustyle" ++ ) . capitalize . (map toLower) ) tmpl)
+        stylify tmpl = (tmpl, ( ("menustyle" ++ ) . capitalize . stripPunctuation . (map toLower) ) tmpl)
hunk ./src/View.hs 67
-        stripPunctuation = filtermany [ '-', '_' ]
-        filtermany chars = filter (alltrue (map (\c -> (==c) ) chars) )
+        stripPunctuation = filter $ alltrue $ map (/=) [ '-', '_' ] 
+
+
+
hunk ./src/View.hs 73
-alltrue ps x = foldr g True ps
-  where g p b = b && p x
hunk ./templates/menuLoggedIn.st 1
-<a href="/tutorial/actions/logout">logout $ user $ </a>
+<a href="/tutorial/actions/logout"> logout $ user $ </a>
hunk ./templates/menubar.st 8
-           |<a class="$ menustyleView\-all\-users $" href="/tutorial/view-all-users">view all users</a>
+           |<a class="$ menustyleViewallusers $" href="/tutorial/view-all-users">view all users</a>