font.ml 324 B

12345678910111213
  1. open Types
  2. let rec shorten = function
  3. | Ident "normal" -> Number (400.0, None)
  4. | Ident "bold" -> Number (700.0, None)
  5. | v -> v
  6. let transform = function
  7. | Declaration ("font-weight", value, imp) ->
  8. Declaration ("font-weight", shorten value, imp)
  9. | v -> v
  10. let compress = Util.transform_stylesheet transform