diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/web/css.lux (renamed from stdlib/source/library/lux/data/format/css.lux) | 0 | ||||
-rw-r--r-- | stdlib/source/library/lux/web/css/class.lux (renamed from stdlib/source/library/lux/data/format/css/class.lux) | 0 | ||||
-rw-r--r-- | stdlib/source/library/lux/web/css/font.lux (renamed from stdlib/source/library/lux/data/format/css/font.lux) | 0 | ||||
-rw-r--r-- | stdlib/source/library/lux/web/css/id.lux (renamed from stdlib/source/library/lux/data/format/css/id.lux) | 0 | ||||
-rw-r--r-- | stdlib/source/library/lux/web/css/property.lux (renamed from stdlib/source/library/lux/data/format/css/property.lux) | 0 | ||||
-rw-r--r-- | stdlib/source/library/lux/web/css/query.lux (renamed from stdlib/source/library/lux/data/format/css/query.lux) | 0 | ||||
-rw-r--r-- | stdlib/source/library/lux/web/css/selector.lux (renamed from stdlib/source/library/lux/data/format/css/selector.lux) | 0 | ||||
-rw-r--r-- | stdlib/source/library/lux/web/css/style.lux (renamed from stdlib/source/library/lux/data/format/css/style.lux) | 0 | ||||
-rw-r--r-- | stdlib/source/library/lux/web/css/value.lux (renamed from stdlib/source/library/lux/data/format/css/value.lux) | 17 |
9 files changed, 8 insertions, 9 deletions
diff --git a/stdlib/source/library/lux/data/format/css.lux b/stdlib/source/library/lux/web/css.lux index 517dd9f53..517dd9f53 100644 --- a/stdlib/source/library/lux/data/format/css.lux +++ b/stdlib/source/library/lux/web/css.lux diff --git a/stdlib/source/library/lux/data/format/css/class.lux b/stdlib/source/library/lux/web/css/class.lux index 46e980a47..46e980a47 100644 --- a/stdlib/source/library/lux/data/format/css/class.lux +++ b/stdlib/source/library/lux/web/css/class.lux diff --git a/stdlib/source/library/lux/data/format/css/font.lux b/stdlib/source/library/lux/web/css/font.lux index f69a8f602..f69a8f602 100644 --- a/stdlib/source/library/lux/data/format/css/font.lux +++ b/stdlib/source/library/lux/web/css/font.lux diff --git a/stdlib/source/library/lux/data/format/css/id.lux b/stdlib/source/library/lux/web/css/id.lux index fc93ec1bb..fc93ec1bb 100644 --- a/stdlib/source/library/lux/data/format/css/id.lux +++ b/stdlib/source/library/lux/web/css/id.lux diff --git a/stdlib/source/library/lux/data/format/css/property.lux b/stdlib/source/library/lux/web/css/property.lux index 192f0395a..192f0395a 100644 --- a/stdlib/source/library/lux/data/format/css/property.lux +++ b/stdlib/source/library/lux/web/css/property.lux diff --git a/stdlib/source/library/lux/data/format/css/query.lux b/stdlib/source/library/lux/web/css/query.lux index de3defe3b..de3defe3b 100644 --- a/stdlib/source/library/lux/data/format/css/query.lux +++ b/stdlib/source/library/lux/web/css/query.lux diff --git a/stdlib/source/library/lux/data/format/css/selector.lux b/stdlib/source/library/lux/web/css/selector.lux index 292e27300..292e27300 100644 --- a/stdlib/source/library/lux/data/format/css/selector.lux +++ b/stdlib/source/library/lux/web/css/selector.lux diff --git a/stdlib/source/library/lux/data/format/css/style.lux b/stdlib/source/library/lux/web/css/style.lux index d1bd1899d..d1bd1899d 100644 --- a/stdlib/source/library/lux/data/format/css/style.lux +++ b/stdlib/source/library/lux/web/css/style.lux diff --git a/stdlib/source/library/lux/data/format/css/value.lux b/stdlib/source/library/lux/web/css/value.lux index 035d45c10..37c8580a0 100644 --- a/stdlib/source/library/lux/data/format/css/value.lux +++ b/stdlib/source/library/lux/web/css/value.lux @@ -832,19 +832,18 @@ (def .public (rgb color) (-> color.Color (Value Color)) - (let [[red green blue] (color.rgb color)] - (..apply "rgb" (list (%.nat (rgb.number red)) - (%.nat (rgb.number green)) - (%.nat (rgb.number blue)))))) + (let [color (color.rgb color)] + (..apply "rgb" (list (%.nat (rgb.red color)) + (%.nat (rgb.green color)) + (%.nat (rgb.blue color)))))) (def .public (rgba pigment) (-> Pigment (Value Color)) - (let [(open "/[0]") pigment - [red green blue] /#color] - (..apply "rgba" (list (%.nat (rgb.number red)) - (%.nat (rgb.number green)) - (%.nat (rgb.number blue)) + (let [(open "/[0]") pigment] + (..apply "rgba" (list (%.nat (rgb.red /#color)) + (%.nat (rgb.green /#color)) + (%.nat (rgb.blue /#color)) (if (r.= (of r.interval top) /#alpha) "1.0" (format "0" (%.rev /#alpha))))))) |