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.lux32
1 files changed, 16 insertions, 16 deletions
diff --git a/stdlib/source/library/lux/data/format/css.lux b/stdlib/source/library/lux/data/format/css.lux
index df39b6b61..dca23f87c 100644
--- a/stdlib/source/library/lux/data/format/css.lux
+++ b/stdlib/source/library/lux/data/format/css.lux
@@ -30,29 +30,29 @@
(primitive .public (CSS brand)
Text
- (def: .public css
+ (def .public css
(-> (CSS Any) Text)
(|>> representation))
- (def: .public empty
+ (def .public empty
(CSS Any)
(abstraction ""))
(type: .public Style
(List (Ex (_ brand) [(Property brand) (Value brand)])))
- (def: .public (rule selector style)
+ (def .public (rule selector style)
(-> (Selector Any) Style (CSS Common))
(abstraction (format (/selector.selector selector) "{" (/style.inline (/style.style style)) "}")))
- (def: .public char_set
+ (def .public char_set
(-> Encoding (CSS Special))
(|>> encoding.name
%.text
(text.enclosed ["@charset " ";"])
abstraction))
- (def: .public (font font)
+ (def .public (font font)
(-> Font (CSS Special))
(let [with_unicode (case (the /font.#unicode_range font)
{.#Some unicode_range}
@@ -75,7 +75,7 @@
(format "@font-face")
abstraction)))
- (def: .public (import url query)
+ (def .public (import url query)
(-> URL (Maybe Query) (CSS Special))
(abstraction (format (format "@import url(" (%.text url) ")")
(case query
@@ -86,7 +86,7 @@
"")
";")))
- (def: separator
+ (def separator
text.new_line)
(type: .public Frame
@@ -94,7 +94,7 @@
[#when (Value Percentage)
#what Style]))
- (def: .public (key_frames animation frames)
+ (def .public (key_frames animation frames)
(-> (Value Animation) (List Frame) (CSS Special))
(abstraction (format "@keyframes " (/value.value animation) " {"
(|> frames
@@ -105,18 +105,18 @@
(text.interposed ..separator))
"}")))
- (def: !composite
+ (def !composite
(template (!composite <pre> <post>)
[(abstraction
(format (representation <pre>)
..separator
(representation <post>)))]))
- (def: .public (and pre post)
+ (def .public (and pre post)
(All (_ kind) (-> (CSS kind) (CSS kind) (CSS kind)))
(!composite pre post))
- (def: .public (in_context combinator selector css)
+ (def .public (in_context combinator selector css)
(-> Combinator (Selector Any) (CSS Common) (CSS Common))
(|> css
representation
@@ -128,13 +128,13 @@
(text.interposed ..separator)
abstraction))
- (def: .public (dependent combinator selector style inner)
+ (def .public (dependent combinator selector style inner)
(-> Combinator (Selector Any) Style (CSS Common) (CSS Common))
(!composite (..rule selector style)
(..in_context combinator selector inner)))
(with_template [<name> <combinator>]
- [(def: .public <name>
+ [(def .public <name>
(-> (Selector Any) Style (CSS Common) (CSS Common))
(..dependent <combinator>))]
@@ -142,7 +142,7 @@
[with_children /selector.sub]
)
- (def: .public (in_case specializer selector css)
+ (def .public (in_case specializer selector css)
(All (_ kind)
(-> (Specializer kind) (Selector (Generic Any)) (CSS Common) (CSS Common)))
(|> css
@@ -155,14 +155,14 @@
(text.interposed ..separator)
abstraction))
- (def: .public (specialized combinator selector style inner)
+ (def .public (specialized combinator selector style inner)
(All (_ kind)
(-> (Specializer kind) (Selector (Generic Any)) Style (CSS Common) (CSS Common)))
(!composite (..rule selector style)
(..in_case combinator selector inner)))
(with_template [<name> <combinator>]
- [(def: .public <name>
+ [(def .public <name>
(-> (Selector (Generic Any)) Style (CSS Common) (CSS Common))
(..specialized <combinator>))]