Adding negated searches

2013-09-05 07:51:07 -06:00 · 2013-09-05 07:51:07 -06:00 · 291139426d
commit 291139426d
parent bdaa22c68c
1 changed files with 2 additions and 0 deletions
--- a/pkgs/plt-services/meta/pkg-index/official/main.rkt
+++ b/pkgs/plt-services/meta/pkg-index/official/main.rkt
@ -247,6 +247,8 @@
     (member author (author->list (package-ref info 'author)))]
    [":no-tag:"
     (empty? (package-ref info 'tags))]
+    [(regexp #rx"^!(.*?)$" (list _ sub))
+     (not (search-term-eval pkg-name info sub))]
    [_
     (define term-rx (regexp-quote term))
     (for/or ([tag (list* pkg-name (package-ref info 'tags))])