diff options
Diffstat (limited to 'stdlib/source/lux/data/format/css/selector.lux')
| -rw-r--r-- | stdlib/source/lux/data/format/css/selector.lux | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/stdlib/source/lux/data/format/css/selector.lux b/stdlib/source/lux/data/format/css/selector.lux index 653d74c56..905012aeb 100644 --- a/stdlib/source/lux/data/format/css/selector.lux +++ b/stdlib/source/lux/data/format/css/selector.lux @@ -26,6 +26,7 @@ [Cannot-Chain Cannot-Chain'] ) +(abstract: #export Unique {} Any) (abstract: #export Specific {} Any) (abstract: #export Composite {} Any) @@ -51,24 +52,26 @@ (-> <type> (Selector <kind>)) (|>> (format <prefix>) :abstraction))] - [id ID "#" Specific] + [id ID "#" Unique] [class Class "." Can-Chain] ) - (do-template [<left> <right> <combo> <combinator>+] + (do-template [<right> <left> <combo> <combinator>+] [(`` (do-template [<combinator> <name>] - [(def: #export (<name> left right) - (-> (Selector <left>) (Selector <right>) (Selector <combo>)) + [(def: #export (<name> right left) + (-> (Selector <right>) (Selector <left>) (Selector <combo>)) (:abstraction (format (:representation left) <combinator> (:representation right))))] (~~ (template.splice <combinator>+))))] - [(Generic Any) Can-Chain Can-Chain + [Can-Chain (Generic Any) Can-Chain [["" and]]] - [(Generic Any) Specific Composite + [Unique (Generic Any) Composite [["" for]]] + [Specific (Generic Any) Composite + [["" at]]] [Any Any Composite [["," or] [" " in] |