From f3b6c7398f09507c690b9e25c2731a76f136e190 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 2 Jun 2008 23:47:28 +0000 Subject: [PATCH] re-added send-main-page svn: r10099 --- collects/help/search.ss | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/collects/help/search.ss b/collects/help/search.ss index 8061be10ee..fb653bace1 100644 --- 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)))