diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/data/format/css/selector.lux | 44 |
1 files changed, 22 insertions, 22 deletions
diff --git a/stdlib/source/library/lux/data/format/css/selector.lux b/stdlib/source/library/lux/data/format/css/selector.lux index 47a394603..fc53d8731 100644 --- a/stdlib/source/library/lux/data/format/css/selector.lux +++ b/stdlib/source/library/lux/data/format/css/selector.lux @@ -9,7 +9,7 @@ [number ["i" int]]] [type - abstract] + [abstract {"-" pattern}]] [macro ["[0]" template]]]] ["[0]" // "_" @@ -40,20 +40,20 @@ (def: .public selector (-> (Selector Any) Text) - (|>> :representation)) + (|>> representation)) (def: .public any (Selector Cannot_Chain) - (:abstraction "*")) + (abstraction "*")) (def: .public tag (-> Tag (Selector Cannot_Chain)) - (|>> :abstraction)) + (|>> abstraction)) (template [<name> <type> <prefix> <kind> <out>] [(def: .public <name> (-> <type> (Selector <kind>)) - (|>> <out> (format <prefix>) :abstraction))] + (|>> <out> (format <prefix>) abstraction))] [id ID "#" Unique //id.id] [class Class "." Can_Chain //class.class] @@ -63,9 +63,9 @@ [(`` (template [<combinator> <name>] [(def: .public (<name> right left) (-> (Selector <right>) (Selector <left>) (Selector Composite)) - (:abstraction (format (:representation left) - <combinator> - (:representation right))))] + (abstraction (format (representation left) + <combinator> + (representation right))))] (~~ (template.spliced <combinator>+))))] @@ -91,12 +91,12 @@ (def: .public (with? attribute) (-> Attribute (Selector Can_Chain)) - (:abstraction (format "[" attribute "]"))) + (abstraction (format "[" attribute "]"))) (template [<check> <name>] [(def: .public (<name> attribute value) (-> Attribute Text (Selector Can_Chain)) - (:abstraction (format "[" attribute <check> value "]")))] + (abstraction (format "[" attribute <check> value "]")))] ["=" same?] ["~=" has?] @@ -110,7 +110,7 @@ [(`` (template [<name> <pseudo>] [(def: .public <name> (Selector <kind>) - (:abstraction <pseudo>))] + (abstraction <pseudo>))] (~~ (template.spliced <pseudo>+))))] @@ -158,24 +158,24 @@ locale.code (text.enclosed ["(" ")"]) (format ":lang") - :abstraction)) + abstraction)) (def: .public not (-> (Selector Any) (Selector Can_Chain)) - (|>> :representation + (|>> representation (text.enclosed ["(" ")"]) (format ":not") - :abstraction)) + abstraction)) (abstract: .public Index Text (def: .public index (-> Nat Index) - (|>> %.nat :abstraction)) + (|>> %.nat abstraction)) (template [<name> <index>] - [(def: .public <name> Index (:abstraction <index>))] + [(def: .public <name> Index (abstraction <index>))] [odd "odd"] [even "even"] @@ -189,18 +189,18 @@ (def: .public (formula input) (-> Formula Index) (let [(open "_[0]") input] - (:abstraction (format (if (i.< +0 _#variable) - (%.int _#variable) - (%.nat (.nat _#variable))) - (%.int _#constant))))) + (abstraction (format (if (i.< +0 _#variable) + (%.int _#variable) + (%.nat (.nat _#variable))) + (%.int _#constant))))) (template [<name> <pseudo>] [(def: .public (<name> index) (-> Index (Selector Can_Chain)) - (|> (:representation index) + (|> (representation index) (text.enclosed ["(" ")"]) (format <pseudo>) - (:abstraction Selector)))] + (abstraction Selector)))] [nth_child ":nth-child"] [nth_last_child ":nth-last-child"] |