Commit
+25 -9 +/-1 browse
| 1 | diff --git a/lib/config.ml b/lib/config.ml |
| 2 | index 2b7ca23..6eafaf5 100644 |
| 3 | --- a/lib/config.ml |
| 4 | +++ b/lib/config.ml |
| 5 | @@ -53,14 +53,14 @@ module StylePair = struct |
| 6 | |
| 7 | let style_of_string = function |
| 8 | (* TODO: uhhh.... *) |
| 9 | - | "Foreground Black" | "Black" | "black" -> Foreground Black |
| 10 | - | "Foreground Red" | "Red" | "red" -> Foreground Red |
| 11 | - | "Foreground Green" | "Green" | "green" -> Foreground Green |
| 12 | - | "Foreground Yellow" | "Yellow" | "yellow" -> Foreground Yellow |
| 13 | - | "Foreground Blue" | "Blue" | "blue" -> Foreground Blue |
| 14 | - | "Foreground Magenta" | "Magenta" | "magenta" -> Foreground Magenta |
| 15 | - | "Foreground Cyan" | "Cyan" | "cyan" -> Foreground Cyan |
| 16 | - | "Foreground White" | "White" | "white" -> Foreground White |
| 17 | + | "Foreground Black" -> Foreground Black |
| 18 | + | "Foreground Red" -> Foreground Red |
| 19 | + | "Foreground Green" -> Foreground Green |
| 20 | + | "Foreground Yellow" -> Foreground Yellow |
| 21 | + | "Foreground Blue" -> Foreground Blue |
| 22 | + | "Foreground Magenta" -> Foreground Magenta |
| 23 | + | "Foreground Cyan" -> Foreground Cyan |
| 24 | + | "Foreground White" -> Foreground White |
| 25 | | "Background Black" -> Background Black |
| 26 | | "Background Red" -> Background Red |
| 27 | | "Background Green" -> Background Green |
| 28 | @@ -75,8 +75,24 @@ module StylePair = struct |
| 29 | | name -> failwith (Core.sprintf "bad color: %s" name) |
| 30 | |
| 31 | let style_to_string = function |
| 32 | - | Foreground Blue -> "Foreground Blue" |
| 33 | + | Foreground Black -> "Foreground Black" |
| 34 | | Foreground Red -> "Foreground Red" |
| 35 | + | Foreground Green -> "Foreground Green" |
| 36 | + | Foreground Yellow -> "Foreground Yellow" |
| 37 | + | Foreground Blue -> "Foreground Blue" |
| 38 | + | Foreground Magenta -> "Foreground Magenta" |
| 39 | + | Foreground Cyan -> "Foreground Cyan" |
| 40 | + | Foreground White -> "Foreground White" |
| 41 | + | Background Black -> "Background Black" |
| 42 | + | Background Red -> "Background Red" |
| 43 | + | Background Green -> "Background Green" |
| 44 | + | Background Yellow -> "Background Yellow" |
| 45 | + | Background Blue -> "Background Blue" |
| 46 | + | Background Magenta -> "Background Magenta" |
| 47 | + | Background Cyan -> "Background Cyan" |
| 48 | + | Background White -> "Background White" |
| 49 | + | Bold -> "Bold" |
| 50 | + | Inverse -> "Inverse" |
| 51 | | Underlined -> "Underlined" |
| 52 | | _ -> failwith "no" |
| 53 |