aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/data/format/css/style.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/data/format/css/style.lux')
-rw-r--r--stdlib/source/library/lux/data/format/css/style.lux32
1 files changed, 18 insertions, 14 deletions
diff --git a/stdlib/source/library/lux/data/format/css/style.lux b/stdlib/source/library/lux/data/format/css/style.lux
index bd8d26787..8ec6a207f 100644
--- a/stdlib/source/library/lux/data/format/css/style.lux
+++ b/stdlib/source/library/lux/data/format/css/style.lux
@@ -1,14 +1,16 @@
(.using
- [library
- [lux "*"
- [data
- [text
- ["%" format {"+" format}]]]
- [type
- abstract]]]
- ["[0]" // "_"
- ["[1][0]" value {"+" Value}]
- ["[1][0]" property {"+" Property}]])
+ [library
+ [lux "*"
+ [data
+ [text
+ ["%" format {"+" format}]]
+ [collection
+ ["[0]" list ("[1]#[0]" mix)]]]
+ [type
+ abstract]]]
+ ["[0]" // "_"
+ ["[1][0]" value {"+" Value}]
+ ["[1][0]" property {"+" Property}]])
(abstract: .public Style
Text
@@ -17,18 +19,20 @@
Style
(:abstraction ""))
- (def: .public separator
- " ")
-
(def: .public (with [property value])
(All (_ brand)
(-> [(Property brand) (Value brand)]
(-> Style Style)))
(|>> :representation
- (format (//property.name property) ": " (//value.value value) ";" ..separator)
+ (format (//property.name property) ": " (//value.value value) ";")
:abstraction))
(def: .public inline
(-> Style Text)
(|>> :representation))
+
+ (def: .public (style config)
+ (-> (List (Ex (_ brand) [(Property brand) (Value brand)]))
+ Style)
+ (list#mix ..with ..empty config))
)