[Fencommits] fenserve: use hover effects in the potion picker, too, but only on the outermost level (if you hover over the questions in the potion you pick, they don't get an additional highlight color)

[Benja Fallenstein]

Thu May 24 13:57:15 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * use hover effects in the potion picker, too, but only on the outermost level (if you hover over the questions in the potion you pick, they don't get an additional highlight color)
diff -rN -u old-fenserve/fendata/Main.hs new-fenserve/fendata/Main.hs
--- old-fenserve/fendata/Main.hs	2007-05-24 13:57:21.000000000 +0300
+++ new-fenserve/fendata/Main.hs	2007-05-24 13:57:21.000000000 +0300
@@ -344,12 +344,13 @@
 edit (exp,old,ty) s = let ?state = s; ?link = False in
     (para ("Select something to replace '" +++ renderExp' old id ty +++ "' "
        +++ "with.") +++ hr
- +++ para ("Variables: " +++ cat [linkExp (Var i) (surround $ renderVar i)+++" " 
+ +++ para ("Variables: " +++ cat [linkExp (Var i) (renderVar i)+++" " 
                                  | i <- [0..25]]) 
  +++ (catFor (filter ((==ty) . expType) $ getPotions s) $ \repl ->
-         para $ li $ linkExp repl $ renderExp' repl id (error "some type"))
+         para $ li $ linkExp repl $ renderExp repl id (error "some type"))
     , s) where linkExp new = tag "a" [("class", "editLink"),
-                   ("href", "potion?exp=" ++ show (subst (-1) new exp))]
+                   ("href", "potion?exp=" ++ show (subst (-1) new exp))] .
+                             tag "span" [("class", "editPotion")]
 
 makeFun :: Request -> MyState -> (HTML, MyState)
 makeFun msg s = let ?state = s; ?link = False in