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 | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/stdlib/source/library/lux/data/format/css/value.lux b/stdlib/source/library/lux/data/format/css/value.lux index 6886dad69..035d45c10 100644 --- a/stdlib/source/library/lux/data/format/css/value.lux +++ b/stdlib/source/library/lux/data/format/css/value.lux @@ -6,6 +6,7 @@ [data ["[0]" product] ["[0]" color (.only) + [pigment (.only Pigment)] ["[0]" rgb]] ["[0]" text (.only) ["%" \\format (.only Format format)]] @@ -837,16 +838,16 @@ (%.nat (rgb.number blue)))))) (def .public (rgba pigment) - (-> color.Pigment + (-> Pigment (Value Color)) - (let [(open "_[0]") pigment - [red green blue] (color.rgb _#color)] + (let [(open "/[0]") pigment + [red green blue] /#color] (..apply "rgba" (list (%.nat (rgb.number red)) (%.nat (rgb.number green)) (%.nat (rgb.number blue)) - (if (r.= (at r.interval top) _#alpha) + (if (r.= (of r.interval top) /#alpha) "1.0" - (format "0" (%.rev _#alpha))))))) + (format "0" (%.rev /#alpha))))))) (with_template [<name> <suffix>] [(def .public (<name> value) |