suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Adding negated searches

Browse Source
This commit is contained in:
Jay McCarthy 2013-09-05 07:51:07 -06:00
parent bdaa22c68c
commit 291139426d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/plt-services/meta/pkg-index/official/main.rkt
View File

@ -247,6 +247,8 @@
(member author (author->list (package-ref info 'author)))] (member author (author->list (package-ref info 'author)))]
[":no-tag:" [":no-tag:"
(empty? (package-ref info 'tags))] (empty? (package-ref info 'tags))]
[(regexp #rx"^!(.*?)$" (list _ sub))
(not (search-term-eval pkg-name info sub))]
[_ [_
(define term-rx (regexp-quote term)) (define term-rx (regexp-quote term))
(for/or ([tag (list* pkg-name (package-ref info 'tags))]) (for/or ([tag (list* pkg-name (package-ref info 'tags))])