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

border:none now also becomes border:0 after shorthand generation

parent b54ca447
...@@ -151,9 +151,9 @@ let handle_args args = ...@@ -151,9 +151,9 @@ let handle_args args =
(* unfold before pruning duplicates so that shorthand components are (* unfold before pruning duplicates so that shorthand components are
* correctly pruned *) * correctly pruned *)
|> switch args.shorthands Shorthand.unfold_stylesheet |> switch args.shorthands Shorthand.unfold_stylesheet
|> switch args.simple Simple.compress
|> switch args.duplicates Duplicates.compress |> switch args.duplicates Duplicates.compress
|> switch args.shorthands Shorthand.compress |> switch args.shorthands Shorthand.compress
|> switch args.simple Simple.compress
|> switch args.sort Util.sort_stylesheet |> switch args.sort Util.sort_stylesheet
in in
let output = let output =
......
...@@ -116,6 +116,12 @@ let prerr_loc_msg loc msg = ...@@ -116,6 +116,12 @@ let prerr_loc_msg loc msg =
| _ -> failwith ("expected " ^ #constructor) | _ -> failwith ("expected " ^ #constructor)
let transform_stylesheet f stylesheet = let transform_stylesheet f stylesheet =
let f x =
match f x with
| Expr (Concat [expr] | Nary (_, [expr])) -> Expr expr
| value -> value
in
let rec trav_expr = function let rec trav_expr = function
| Concat terms -> f (Expr (Concat (trav_all_expr terms))) | Concat terms -> f (Expr (Concat (trav_all_expr terms)))
| Function (name, arg) -> f (Expr (Function (name, expect_expr arg))) | Function (name, arg) -> f (Expr (Function (name, expect_expr arg)))
......
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