aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/web/css
diff options
context:
space:
mode:
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)))))))