aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/data/format/css.lux
diff options
context:
space:
mode:
authorEduardo Julian2017-11-29 04:51:04 -0400
committerEduardo Julian2017-11-29 04:51:04 -0400
commit8c5cca122817bc63f4f84cc8351ced3cb67e5eea (patch)
tree8803dd3ed59ddcc6b964354fd312ab9e62e12cd8 /stdlib/source/lux/data/format/css.lux
parent1ef969c8ce0f1a83ffa8d26d779806190ac3eced (diff)
- Changed the identifier separator, from the semi-colon (;) to the period/dot (.).
Diffstat (limited to 'stdlib/source/lux/data/format/css.lux')
-rw-r--r--stdlib/source/lux/data/format/css.lux16
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/lux/data/format/css.lux b/stdlib/source/lux/data/format/css.lux
index 2b0a1a03b..4f148110f 100644
--- a/stdlib/source/lux/data/format/css.lux
+++ b/stdlib/source/lux/data/format/css.lux
@@ -1,4 +1,4 @@
-(;module:
+(.module:
lux
(lux (data [color #+ Color]
[number]
@@ -13,7 +13,7 @@
(type: #export Value Text)
(type: #export Style
- {#;doc "The style associated with a CSS selector."}
+ {#.doc "The style associated with a CSS selector."}
(List [Property Value]))
(type: #export Rule [Selector Style])
@@ -26,20 +26,20 @@
(-> Style Text)
(|> style
(L/map (function [[key val]] (format key ": " val)))
- (text;join-with "; ")))
+ (text.join-with "; ")))
(def: #export (css sheet)
(-> Sheet CSS)
(|> sheet
(L/map (function [[selector style]]
- (if (list;empty? style)
+ (if (list.empty? style)
""
(format selector "{" (inline style) "}"))))
- (text;join-with "\n")))
+ (text.join-with "\n")))
(def: #export (rgb color)
(-> Color Value)
- (let [[red green blue] (color;unpack color)]
+ (let [[red green blue] (color.unpack color)]
(format "rgb(" (|> red nat-to-int %i)
"," (|> green nat-to-int %i)
"," (|> blue nat-to-int %i)
@@ -47,11 +47,11 @@
(def: #export (rgba color alpha)
(-> Color Deg Value)
- (let [[red green blue] (color;unpack color)]
+ (let [[red green blue] (color.unpack color)]
(format "rgba(" (|> red nat-to-int %i)
"," (|> green nat-to-int %i)
"," (|> blue nat-to-int %i)
- "," (if (d/= (:: number;Interval<Deg> top) alpha)
+ "," (if (d/= (:: number.Interval<Deg> top) alpha)
"1.0"
(format "0" (%d alpha)))
")")))