| By | Chris Done |
| At | 2011-06-05 |
| Title | Some more highlighting style fixes. |
| Description |
Edit file src/Text/Formlet.hs 33188 → 33188
18 18 import Control.Applicative
19 19 import Control.Monad.Error
20 20 import Control.Monad.Reader
21 21 import Control.Monad.Trans.Error (ErrorList(..))
22 22 import Control.Monad.Writer
- 23 import Data.List (nub)
24 23 import qualified Data.Map as M
25 24 import Data.Maybe
26 25 import Data.Monoid.Operator
27 26 import Data.Text (Text)
28 27 import qualified Data.Text as T
… … … … Edit file src/Amelie/View/Style.hs 33188 → 33188
108 108 lineNumbers
109 109 110 110 subRule "pre" $ do
111 111 margin "0"
112 112 + 113 subRule "td" $ do
+ 114 verticalAlign "top"
+ 115 113 116 -- | Tokens colours and styles.
114 117 tokens :: CSS (Either Property Rule)
115 118 tokens = do
116 119 subRule ".highlight" $ do
117 120 tokenColor "cm" "#555"
+ 121 tokenColor "c1" "#555"
118 122 tokenColor "kr" "#397460"
119 123 tokenColor "s" "#366354"
120 124 tokenColor "sc" "#366354"
121 125 tokenColor "se" "#743838"
122 126 tokenColor "kt" "#4F4371"
123 127 tokenColor "ow" "#333"
124 128 tokenColor "o" "#3E394D"
125 129 tokenColor "n" "#343634"
126 130 tokenColor "nf" "#222"
+ 131 -- This is a weird one.
+ 132 subRule ".c1 + .t" $ do
+ 133 display "none"
127 134 128 135 where token name props = subRule ("." ++ name) $ props129 136 tokenColor name col = token name $ color col
130 137 131 138 -- | The line number part.
… … … …