From fe20d9cccdfcf528fd41bd5cdb619dbc18573a17 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 19 Dec 2016 10:49:07 +1300 Subject: [PATCH] Synthesise _SEARCHABLE-TEXT_ for locally-modified packages on demand --- src/packages.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/packages.rkt b/src/packages.rkt index 2291957..4035ff2 100644 --- a/src/packages.rkt +++ b/src/packages.rkt @@ -281,7 +281,11 @@ (define ((package-text-matches? pkg) re) (and (not (tombstone? pkg)) - (regexp-match? re (@ pkg _SEARCHABLE-TEXT_)))) + (regexp-match? re (or (@ pkg _SEARCHABLE-TEXT_) + ;; Packages lacking the _SEARCHABLE-TEXT_ key are _LOCALLY_MODIFIED_. + ;; Synthesise searchable text here; a better (?) alternative would be + ;; to do this at package save time, but this will do for now. + (pkg->searchable-text pkg))))) (define (package-search text tags) (define res (map (lambda (r) (regexp (regexp-quote r #f))) (string-split text)))