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

Add :no-tag: search

Browse Source
This commit is contained in:
Jay McCarthy 2013-09-05 07:44:57 -06:00
parent 2bb92b1709
commit 9831aa5d39
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -245,6 +245,8 @@
(equal? ring (package-ref info 'ring))]
[(regexp #rx"^author:(.*?)$" (list _ author))
(member author (author->list (package-ref info 'author)))]
[":no-tag:"
(empty? (package-ref info 'tags))]
[_
(define term-rx (regexp-quote term))
(for/or ([tag (list* pkg-name (package-ref info 'tags))])
@ -340,7 +342,9 @@
`(p ,@(for/list ([t (in-list tags)])
`(span (a ([href ,(main-url page/search (snoc terms t))])
,t)
" "))))
" "))
(a ([href ,(main-url page/search (snoc terms ":no-tag:"))])
":no-tag:")))
(define (page/search req terms)
(define pkgs (package-list/search terms))