commit 7f97a4f0181c3c2ddff1131449211c431132269e parent 232306e535bd577d52fac34d33ec1cb5ecd041d7 Author: Eli Barzilay <eli@racket-lang.org> Date: Mon, 2 Jun 2008 23:47:28 +0000 re-added send-main-page svn: r10099 original commit: f3b6c7398f09507c690b9e25c2731a76f136e190 Diffstat:
| M | collects/help/search.ss | | | 14 | +++++++++----- |
1 file changed, 9 insertions(+), 5 deletions(-)
diff --git a/collects/help/search.ss b/collects/help/search.ss @@ -1,14 +1,18 @@ #lang scheme/base (require setup/dirs net/sendurl) -(provide perform-search) +(provide perform-search send-main-page) (define search-page "search/index.html") ;; Almost nothing to do here -- the real work is done in the browser, ;; using javascript. + +(define (send-main-page #:sub [sub #f] + #:fragment [fragment #f] #:query [query #f]) + (let* ([path (build-path (find-user-doc-dir) sub)] + [path (if (file-exists? path) path (build-path (find-doc-dir) sub))]) + (send-url/file path #:fragment fragment #:query query))) + (define (perform-search str) - (let* ([path (build-path (find-user-doc-dir) search-page)] - [path (if (file-exists? path) - path (build-path (find-doc-dir) search-page))]) - (send-url/file path #:query (format "q=~a" str)))) + (send-main-page #:sub search-page #:query (format "q=~a" str)))