[Working on edit page, got rid of checkboxes, adding autocomplete
jupdike@gmail.com**20071213214654] {
hunk ./Template.hs 7
-import List ( intersperse, transpose )
+import List ( intersperse, transpose, sort )
hunk ./Template.hs 121
-
hunk ./Template.hs 123
+linkcssAts = ["rel"-->"stylesheet", "type"-->"text/css"]
+linkcss fname = "link" `with` (linkcssAts ++ ["href"-->fname])
+
hunk ./Template.hs 312
-                         [ [bb [txt "Tags"]] ],
-                         [ xtags ],
-                         [ [bb [txt "Other Tags"], spacePad, spacePad, spacePad, xtagsbox] ],
+                         -- [ [bb [txt "Tags"]] ],
+                         -- [ xtags ],
+                         [ [bb [txt "Tags"], spacePad, spacePad, spacePad, xtagsbox] ],
hunk ./Template.hs 323
-                   xtagsbox = "input" `with` ["size"-->"65", "name"-->"tagsbox", "type"-->"text",
-                                              "value"-->""]
+                   xtagsbox = divv "statesautocomplete" [ xtagsinput, divv "statescontainer" [] ]
+                   xtagsinput = "input" `with` ["size"-->"65", "name"-->"tagsbox", "type"-->"text",
+                                              "value"--> xtagsstr]
+--                   xtagsbox = "input" `with` ["size"-->"65", "name"-->"tagsbox", "type"-->"text",
+--                                              "value"--> xtagsstr]
+                   xtagsstr = concat $ intersperse ", " $ sort $ filter (/="") keepers
+                               where keepers = map (\(x,checked) -> if checked then x else "") tags
hunk ./Template.hs 337
+divv id x = Elm "div" ["id"-->id] x
+
hunk ./Template.hs 363
-    [("searchbar", script "scripts/search.js")
-    ,("loginform", script "scripts/login.js")
-    ,("renamepage", script "scripts/rename.js")
+    [("searchbar", [script "scripts/search.js"])
+    ,("editpage", [script "http://yui.yahooapis.com/2.3.1/build/yahoo-dom-event/yahoo-dom-event.js?_yuiversion=2.3.1",
+                   script "http://yui.yahooapis.com/2.3.1/build/animation/animation.js?_yuiversion=2.3.1",
+                   script "http://yui.yahooapis.com/2.3.1/build/autocomplete/autocomplete-min.js?_yuiversion=2.3.1",
+                   linkcss "http://yui.yahooapis.com/2.3.1/build/fonts/fonts-min.css?_yuiversion=2.3.1",
+                   linkcss "http://yui.yahooapis.com/2.3.1/build/autocomplete/assets/skins/sam/autocomplete.css?_yuiversion=2.3.1",
+                   script "2data.py"
+                   ])
+    ,("loginform", [script "scripts/login.js"])
+    ,("renamepage", [script "scripts/rename.js"])
hunk ./Template.hs 423
-     let somescripts = lmap widgetsScriptsEnv (findVarSubsts d)
+     let somescripts = concat $ lmap widgetsScriptsEnv (findVarSubsts d)
}