diff options
Diffstat (limited to 'stdlib/source/library/lux/data/format/css/value.lux')
| -rw-r--r-- | stdlib/source/library/lux/data/format/css/value.lux | 35 |
1 files changed, 18 insertions, 17 deletions
diff --git a/stdlib/source/library/lux/data/format/css/value.lux b/stdlib/source/library/lux/data/format/css/value.lux index 54de6d97a..20b15f0eb 100644 --- a/stdlib/source/library/lux/data/format/css/value.lux +++ b/stdlib/source/library/lux/data/format/css/value.lux @@ -804,7 +804,7 @@ (def: .public (cubic_bezier p0 p1 p2 p3) (-> Frac Frac Frac Frac (Value Timing)) (|> (list p0 p1 p2 p3) - (list\map %number) + (list\each %number) (..apply "cubic-bezier"))) (template [<name> <brand>] @@ -972,7 +972,7 @@ (let [[now after] next] (..apply <function> (list& (:representation Angle angle) (with_hint now) - (list\map with_hint after)))))] + (list\each with_hint after)))))] [linear_gradient "linear-gradient"] [repeating_linear_gradient "repeating-linear-gradient"] @@ -1099,7 +1099,7 @@ [now after] next] (..apply <function> (list& (..shape shape) (with_hint now) - (list\map with_hint after)))))] + (list\each with_hint after)))))] [radial_gradient "radial-gradient"] [repeating_radial_gradient "repeating-radial-gradient"] @@ -1123,10 +1123,11 @@ :abstraction))) (type: .public Rectangle - {#top (Value Length) - #right (Value Length) - #bottom (Value Length) - #left (Value Length)}) + (Record + {#top (Value Length) + #right (Value Length) + #bottom (Value Length) + #left (Value Length)})) (def: .public (clip rectangle) (-> Rectangle (Value Clip)) @@ -1171,7 +1172,7 @@ (case options (#.Item _) (|> options - (list\map ..font_name) + (list\each ..font_name) (text.interposed ",") (:abstraction Value)) @@ -1210,10 +1211,10 @@ (-> (List (List (Maybe (Value Grid)))) (Value Grid_Template)) (let [empty (: (Value Grid) (:abstraction "."))] - (|>> (list\map (|>> (list\map (|>> (maybe.else empty) - :representation)) - (text.interposed ..grid_column_separator) - (text.enclosed ["'" "'"]))) + (|>> (list\each (|>> (list\each (|>> (maybe.else empty) + :representation)) + (text.interposed ..grid_column_separator) + (text.enclosed ["'" "'"]))) (text.interposed ..grid_row_separator) :abstraction))) @@ -1247,7 +1248,7 @@ (def: .public (quotes [left0 right0] [left1 right1]) (-> [Quote Quote] [Quote Quote] (Value Quotes)) (|> (list left0 right0 left1 right1) - (list\map (|>> ..quote_text %.text)) + (list\each (|>> ..quote_text %.text)) (text.interposed ..quote_separator) :abstraction)) @@ -1257,7 +1258,7 @@ [Frac Frac] (Value Transform)) (|> (list a b c d tx ty) - (list\map %number) + (list\each %number) (..apply "matrix"))) (def: .public (matrix_3d [a0 b0 c0 d0] [a1 b1 c1 d1] [a2 b2 c2 d2] [a3 b3 c3 d3]) @@ -1267,14 +1268,14 @@ [Frac Frac Frac Frac] (Value Transform)) (|> (list a0 b0 c0 d0 a1 b1 c1 d1 a2 b2 c2 d2 a3 b3 c3 d3) - (list\map %number) + (list\each %number) (..apply "matrix3d"))) (template [<name> <function> <input_types> <input_values>] [(`` (def: .public (<name> [(~~ (template.spliced <input_values>))]) (-> [(~~ (template.spliced <input_types>))] (Value Transform)) (|> (list (~~ (template.spliced <input_values>))) - (list\map %number) + (list\each %number) (..apply <function>))))] [translate_2d "translate" [Frac Frac] [x y]] @@ -1296,7 +1297,7 @@ [(`` (def: .public (<name> [(~~ (template.spliced <input_values>))]) (-> [(~~ (template.spliced <input_types>))] (Value Transform)) (|> (list (~~ (template.spliced <input_values>))) - (list\map ..angle) + (list\each ..angle) (..apply <function>))))] [rotate_2d "rotate" [Angle] [angle]] |