diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/data/format/css/selector.lux | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/stdlib/source/library/lux/data/format/css/selector.lux b/stdlib/source/library/lux/data/format/css/selector.lux index 2fe5ae11e..ee3291e33 100644 --- a/stdlib/source/library/lux/data/format/css/selector.lux +++ b/stdlib/source/library/lux/data/format/css/selector.lux @@ -38,20 +38,20 @@ (primitive .public (Selector kind) Text - (def: .public selector + (def .public selector (-> (Selector Any) Text) (|>> representation)) - (def: .public any + (def .public any (Selector Cannot_Chain) (abstraction "*")) - (def: .public tag + (def .public tag (-> Tag (Selector Cannot_Chain)) (|>> abstraction)) (with_template [<name> <type> <prefix> <kind> <out>] - [(def: .public <name> + [(def .public <name> (-> <type> (Selector <kind>)) (|>> <out> (format <prefix>) abstraction))] @@ -61,7 +61,7 @@ (with_template [<right> <left> <combinator>+] [(`` (with_template [<combinator> <name>] - [(def: .public (<name> right left) + [(def .public (<name> right left) (-> (Selector <right>) (Selector <left>) (Selector Composite)) (abstraction (format (representation left) <combinator> @@ -89,12 +89,12 @@ (type: .public Combinator (-> (Selector Any) (Selector Any) (Selector Composite))) - (def: .public (with? attribute) + (def .public (with? attribute) (-> Attribute (Selector Can_Chain)) (abstraction (format "[" attribute "]"))) (with_template [<check> <name>] - [(def: .public (<name> attribute value) + [(def .public (<name> attribute value) (-> Attribute Text (Selector Can_Chain)) (abstraction (format "[" attribute <check> value "]")))] @@ -108,7 +108,7 @@ (with_template [<kind> <pseudo>+] [(`` (with_template [<name> <pseudo>] - [(def: .public <name> + [(def .public <name> (Selector <kind>) (abstraction <pseudo>))] @@ -152,7 +152,7 @@ [selection "::selection"]]] ) - (def: .public (language locale) + (def .public (language locale) (-> Locale (Selector Can_Chain)) (|> locale locale.code @@ -160,7 +160,7 @@ (format ":lang") abstraction)) - (def: .public not + (def .public not (-> (Selector Any) (Selector Can_Chain)) (|>> representation (text.enclosed ["(" ")"]) @@ -170,12 +170,12 @@ (primitive .public Index Text - (def: .public index + (def .public index (-> Nat Index) (|>> %.nat abstraction)) (with_template [<name> <index>] - [(def: .public <name> Index (abstraction <index>))] + [(def .public <name> Index (abstraction <index>))] [odd "odd"] [even "even"] @@ -186,7 +186,7 @@ [#constant Int #variable Int])) - (def: .public (formula input) + (def .public (formula input) (-> Formula Index) (let [(open "_[0]") input] (abstraction (format (if (i.< +0 _#variable) @@ -195,7 +195,7 @@ (%.int _#constant))))) (with_template [<name> <pseudo>] - [(def: .public (<name> index) + [(def .public (<name> index) (-> Index (Selector Can_Chain)) (|> (representation index) (text.enclosed ["(" ")"]) |