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, 17 insertions, 15 deletions
diff --git a/stdlib/source/library/lux/data/format/css.lux b/stdlib/source/library/lux/data/format/css.lux
index a3ff932e7..52a44d226 100644
--- a/stdlib/source/library/lux/data/format/css.lux
+++ b/stdlib/source/library/lux/data/format/css.lux
@@ -21,32 +21,34 @@
["#." style (#+ Style)]
["#." query (#+ Query)]])
-(abstract: #export Common Any)
-(abstract: #export Special Any)
+(abstract: .public Common {} Any)
+(abstract: .public Special {} Any)
-(abstract: #export (CSS brand)
+(abstract: .public (CSS brand)
+ {}
+
Text
- (def: #export css
+ (def: .public css
(-> (CSS Any) Text)
(|>> :representation))
- (def: #export empty
+ (def: .public empty
(CSS Common)
(:abstraction ""))
- (def: #export (rule selector style)
+ (def: .public (rule selector style)
(-> (Selector Any) Style (CSS Common))
(:abstraction (format (/selector.selector selector) "{" (/style.inline style) "}")))
- (def: #export char_set
+ (def: .public char_set
(-> Encoding (CSS Special))
(|>> encoding.name
%.text
(text.enclosed ["@charset " ";"])
:abstraction))
- (def: #export (font font)
+ (def: .public (font font)
(-> Font (CSS Special))
(let [with_unicode (case (get@ #/font.unicode_range font)
(#.Some unicode_range)
@@ -69,7 +71,7 @@
(format "@font-face")
:abstraction)))
- (def: #export (import url query)
+ (def: .public (import url query)
(-> URL (Maybe Query) (CSS Special))
(:abstraction (format (format "@import url(" (%.text url) ")")
(case query
@@ -83,11 +85,11 @@
(def: css_separator
text.new_line)
- (type: #export Frame
+ (type: .public Frame
{#when Percentage
#what Style})
- (def: #export (key_frames animation frames)
+ (def: .public (key_frames animation frames)
(-> (Value Animation) (List Frame) (CSS Special))
(:abstraction (format "@keyframes " (/value.value animation) " {"
(|> frames
@@ -102,11 +104,11 @@
(:abstraction (format (:representation <pre>) ..css_separator
(:representation <post>))))
- (def: #export (and pre post)
+ (def: .public (and pre post)
(-> (CSS Any) (CSS Any) (CSS Any))
(!compose pre post))
- (def: #export (alter combinator selector css)
+ (def: .public (alter combinator selector css)
(-> Combinator (Selector Any) (CSS Common) (CSS Common))
(|> css
:representation
@@ -115,13 +117,13 @@
(text.join_with ..css_separator)
:abstraction))
- (def: #export (dependent combinator selector style inner)
+ (def: .public (dependent combinator selector style inner)
(-> Combinator (Selector Any) Style (CSS Common) (CSS Common))
(!compose (..rule selector style)
(..alter combinator selector inner)))
(template [<name> <combinator>]
- [(def: #export <name>
+ [(def: .public <name>
(-> (Selector Any) Style (CSS Common) (CSS Common))
(..dependent <combinator>))]