diff options
Diffstat (limited to 'stdlib/source/library/lux/data/format/css.lux')
-rw-r--r-- | stdlib/source/library/lux/data/format/css.lux | 32 |
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>))] |