diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/data/format/css/selector.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/lux/data/format/css/selector.lux b/stdlib/source/lux/data/format/css/selector.lux index 7b80e4973..3c01a76a3 100644 --- a/stdlib/source/lux/data/format/css/selector.lux +++ b/stdlib/source/lux/data/format/css/selector.lux @@ -18,7 +18,7 @@ (abstract: #export (Generic brand) {} Any) -(do-template [<generic> <brand>] +(template [<generic> <brand>] [(abstract: <brand> {} Any) (type: #export <generic> (Generic <brand>))] @@ -47,7 +47,7 @@ (-> Tag (Selector Cannot-Chain)) (|>> :abstraction)) - (do-template [<name> <type> <prefix> <kind>] + (template [<name> <type> <prefix> <kind>] [(def: #export <name> (-> <type> (Selector <kind>)) (|>> (format <prefix>) :abstraction))] @@ -56,8 +56,8 @@ [class Class "." Can-Chain] ) - (do-template [<right> <left> <combo> <combinator>+] - [(`` (do-template [<combinator> <name>] + (template [<right> <left> <combo> <combinator>+] + [(`` (template [<combinator> <name>] [(def: #export (<name> right left) (-> (Selector <right>) (Selector <left>) (Selector <combo>)) (:abstraction (format (:representation left) @@ -87,7 +87,7 @@ (-> Attribute (Selector Can-Chain)) (:abstraction (format "[" attribute "]"))) - (do-template [<check> <name>] + (template [<check> <name>] [(def: #export (<name> attribute value) (-> Attribute Text (Selector Can-Chain)) (:abstraction (format "[" attribute <check> value "]")))] @@ -100,8 +100,8 @@ ["*=" contains?] ) - (do-template [<kind> <pseudo>+] - [(`` (do-template [<name> <pseudo>] + (template [<kind> <pseudo>+] + [(`` (template [<name> <pseudo>] [(def: #export <name> (Selector Can-Chain) (:abstraction <pseudo>))] @@ -170,7 +170,7 @@ (-> Nat Index) (|>> %n :abstraction)) - (do-template [<name> <index>] + (template [<name> <index>] [(def: #export <name> Index (:abstraction <index>))] [odd "odd"] @@ -189,7 +189,7 @@ (%n (.nat variable))) (%i constant))))) - (do-template [<name> <pseudo>] + (template [<name> <pseudo>] [(def: #export (<name> index) (-> Index (Selector Can-Chain)) (|> (:representation index) |