[Fencommits] fenserve: make potions a css class

Wed May 23 22:48:29 EEST 2007

Wed May 23 22:48:23 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * make potions a css class
diff -rN -u old-fenserve/fendata/Main.hs new-fenserve/fendata/Main.hs

--- old-fenserve/fendata/Main.hs	2007-05-23 22:48:29.000000000 +0300
+++ new-fenserve/fendata/Main.hs	2007-05-23 22:48:29.000000000 +0300
@@ -17,8 +17,14 @@
 import qualified System.IO.Unsafe
 import qualified Control.Exception
 
-header = HTML "<head><style>a.editLink { text-decoration: none; color: inherit; }\
-         \button {cursor: pointer; background: none; border: none; font: inherit; margin: 0; padding: 0}</style></head>"
+header = HTML "<head><style>a.editLink { text-decoration: none; color: inherit} \
+         \button {\
+         \    cursor: pointer; background: none; border: none; \
+         \    font: inherit; margin: 0; padding: 0 } \
+         \.potion {\
+         \    border: dashed black 1px; padding: 2px; \
+         \    margin: 2px; line-height: 90% } \
+         \</style></head>"
 
 type Id = Int
 
@@ -113,7 +119,7 @@
 renderExp' e@(Str _) cx ty = renderExp e cx ty
 renderExp' e cx ty = surround (renderExp e cx ty)
 
-surround s = style "border: dashed black 1px; padding: 2px; margin: 2px; line-height: 90%;" s
+surround s = tag "span" [("class", "potion")] s
 
 slices xs = map (\i -> (take i xs, xs !! i, drop (i+1) xs)) [0..length xs-1]
 


