From 538d1a8804332a0886b085d682fce22a25cba3db Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 8 Nov 2014 19:27:17 -0500 Subject: [PATCH] Quote search terms --- TODO.md | 2 -- src/packages.rkt | 2 +- 2 files changed, 1 insertion(+), 3 deletions(-) diff --git a/TODO.md b/TODO.md index 110a253..40ac6ab 100644 --- a/TODO.md +++ b/TODO.md @@ -11,8 +11,6 @@ Some way of getting a list of all packages Want to be able to sort result tables -Searching for e.g. "(list 1 2)" causes a regexp compilation failure. - you should be able to specify git repos over http/https you should be able to specify subdirs in git repos you should check the existence of repos/github repos/urls/etc via XHR diff --git a/src/packages.rkt b/src/packages.rkt index ddb2971..0038419 100644 --- a/src/packages.rkt +++ b/src/packages.rkt @@ -194,7 +194,7 @@ (regexp-match? re (@ pkg _SEARCHABLE-TEXT_)))) (define (package-search text tags) - (define res (map (lambda (r) (pregexp (format "(?i:~a)" r))) (string-split text))) + (define res (map (lambda (r) (regexp (regexp-quote r))) (string-split text))) (define packages (manager-rpc 'packages)) (sort-package-names (filter (lambda (package-name)