aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/data/format/css.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/data/format/css.lux')
-rw-r--r--stdlib/source/library/lux/data/format/css.lux60
1 files changed, 30 insertions, 30 deletions
diff --git a/stdlib/source/library/lux/data/format/css.lux b/stdlib/source/library/lux/data/format/css.lux
index 649e50f5d..dc42d50d2 100644
--- a/stdlib/source/library/lux/data/format/css.lux
+++ b/stdlib/source/library/lux/data/format/css.lux
@@ -13,7 +13,7 @@
[number
["[0]" nat]]]
[type
- [abstract {"-" Frame}]]
+ [abstract {"-" Frame pattern}]]
[world
[net {"+" URL}]]]]
["[0]" / "_"
@@ -32,25 +32,25 @@
(def: .public css
(-> (CSS Any) Text)
- (|>> :representation))
+ (|>> representation))
(def: .public empty
(CSS Any)
- (:abstraction ""))
+ (abstraction ""))
(type: .public Style
(List (Ex (_ brand) [(Property brand) (Value brand)])))
(def: .public (rule selector style)
(-> (Selector Any) Style (CSS Common))
- (:abstraction (format (/selector.selector selector) "{" (/style.inline (/style.style style)) "}")))
+ (abstraction (format (/selector.selector selector) "{" (/style.inline (/style.style style)) "}")))
(def: .public char_set
(-> Encoding (CSS Special))
(|>> encoding.name
%.text
(text.enclosed ["@charset " ";"])
- :abstraction))
+ abstraction))
(def: .public (font font)
(-> Font (CSS Special))
@@ -73,18 +73,18 @@
text.together
(text.enclosed ["{" "}"])
(format "@font-face")
- :abstraction)))
+ abstraction)))
(def: .public (import url query)
(-> URL (Maybe Query) (CSS Special))
- (:abstraction (format (format "@import url(" (%.text url) ")")
- (case query
- {.#Some query}
- (format " " (/query.query query))
-
- {.#None}
- "")
- ";")))
+ (abstraction (format (format "@import url(" (%.text url) ")")
+ (case query
+ {.#Some query}
+ (format " " (/query.query query))
+
+ {.#None}
+ "")
+ ";")))
(def: separator
text.new_line)
@@ -96,20 +96,20 @@
(def: .public (key_frames animation frames)
(-> (Value Animation) (List Frame) (CSS Special))
- (:abstraction (format "@keyframes " (/value.value animation) " {"
- (|> frames
- (list#each (function (_ frame)
- (format (/value.value (the #when frame)) " {"
- (/style.inline (/style.style (the #what frame)))
- "}")))
- (text.interposed ..separator))
- "}")))
+ (abstraction (format "@keyframes " (/value.value animation) " {"
+ (|> frames
+ (list#each (function (_ frame)
+ (format (/value.value (the #when frame)) " {"
+ (/style.inline (/style.style (the #what frame)))
+ "}")))
+ (text.interposed ..separator))
+ "}")))
(template: (!composite <pre> <post>)
- [(:abstraction
- (format (:representation <pre>)
+ [(abstraction
+ (format (representation <pre>)
..separator
- (:representation <post>)))])
+ (representation <post>)))])
(def: .public (and pre post)
(All (_ kind) (-> (CSS kind) (CSS kind) (CSS kind)))
@@ -118,14 +118,14 @@
(def: .public (in_context combinator selector css)
(-> Combinator (Selector Any) (CSS Common) (CSS Common))
(|> css
- :representation
+ representation
(text.all_split_by ..separator)
(list#each (let [prefix (|> selector
(combinator (/selector.tag ""))
/selector.selector)]
(|>> (format prefix))))
(text.interposed ..separator)
- :abstraction))
+ abstraction))
(def: .public (dependent combinator selector style inner)
(-> Combinator (Selector Any) Style (CSS Common) (CSS Common))
@@ -145,14 +145,14 @@
(All (_ kind)
(-> (Specializer kind) (Selector (Generic Any)) (CSS Common) (CSS Common)))
(|> css
- :representation
+ representation
(text.all_split_by ..separator)
(list#each (let [prefix (|> selector
- (specializer (:expected (/selector.tag "")))
+ (specializer (as_expected (/selector.tag "")))
/selector.selector)]
(|>> (format prefix))))
(text.interposed ..separator)
- :abstraction))
+ abstraction))
(def: .public (specialized combinator selector style inner)
(All (_ kind)