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

Correct contract and clarify comment

Browse Source
This commit is contained in:
Sorawee Porncharoenwase 2020-02-28 18:21:49 -08:00 committed by Jay McCarthy
parent ee467b6095
commit 5cd2460b85
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/packages.rkt
View File

@ -290,7 +290,7 @@
;; to do this at package save time, but this will do for now. ;; to do this at package save time, but this will do for now.
(pkg->searchable-text pkg))))) (pkg->searchable-text pkg)))))
;; sort-package-names/priority :: (listof string?) (listof (cons/c symbol? package?)) ;; sort-package-names/priority :: (listof string?) (listof (cons/c symbol? package?)) -> (listof symbol?)
;; Rank packages by favoring those whose name prefixes or contains search strings ;; Rank packages by favoring those whose name prefixes or contains search strings
;; and whose description contains search strings ;; and whose description contains search strings
(define (sort-package-names/priority text-list packages) (define (sort-package-names/priority text-list packages)
@ -305,8 +305,9 @@
(define priority (define priority
(for/sum ([text (in-list text-list)]) (for/sum ([text (in-list text-list)])
(cond (cond
;; NOTE: the exact match will be the first prefix lexicographically ;; NOTE: no need to check for string=? (the exact match)
;; so there's no need to consider it ;; because it will also be a prefix, and will be
;; weighted more due to its lexicographic order.
[(string-prefix? pkg-name text) 100] [(string-prefix? pkg-name text) 100]
[(string-contains? pkg-name text) 10] [(string-contains? pkg-name text) 10]
[(and pkg-desc (string-contains? pkg-desc text)) 1] [(and pkg-desc (string-contains? pkg-desc text)) 1]