Commit a36e7321 authored by Taddeüs Kroes's avatar Taddeüs Kroes

Disabled useless color transformations into hex values

parent 3dbeb341
...@@ -13,11 +13,8 @@ let clip = function ...@@ -13,11 +13,8 @@ let clip = function
| value -> value | value -> value
let rec short = function let rec short = function
| Ident "aqua" -> Hexcolor "0ff"
| Ident "black" -> Hexcolor "000" | Ident "black" -> Hexcolor "000"
| Ident "blue" -> Hexcolor "00f"
| Ident "fuchsia" -> Hexcolor "f0f" | Ident "fuchsia" -> Hexcolor "f0f"
| Ident "lime" -> Hexcolor "0f0"
| Ident "white" -> Hexcolor "fff" | Ident "white" -> Hexcolor "fff"
| Ident "yellow" -> Hexcolor "ff0" | Ident "yellow" -> Hexcolor "ff0"
| Hexcolor "808080" -> Ident "gray" | Hexcolor "808080" -> Ident "gray"
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment