bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 3d4b9088cdbacba7b83b58c1950c6ed608e55e33
parent d289bbb2a289cf24df770d75bb5deb97526b5243
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Fri, 11 Jul 2008 09:50:29 +0000

* some fixes to make-search.ss
* rename search-context.html to .htm to avoid being deleted by
  setup/scribble
* added context to help/search interface

svn: r10717

original commit: bb562f9ee4e267d8f295d8838877e0a8c79d22c8

Diffstat:
M
collects/help/search.ss
 | 
11
++++++++---

1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/collects/help/search.ss b/collects/help/search.ss
@@ -3,7 +3,7 @@
 (require setup/dirs net/sendurl net/uri-codec)
 (provide perform-search send-main-page)
 
-(define search-page "search/index.html")
+(define search-dir "search/")
 
 ;; Almost nothing to do here -- the real work is done in the browser,
 ;; using javascript.
@@ -14,5 +14,10 @@
          [path (if (file-exists? path) path (build-path (find-doc-dir) sub))])
     (send-url/file path #:fragment fragment #:query query)))
 
-(define (perform-search str)
-  (send-main-page #:sub search-page #:query (format "q=~a" (uri-encode str))))
+(define (perform-search str [context #f])
+  (let* ([page (if context "search-context.htm" "index.html")]
+         [query (format "q=~a" (uri-encode str))]
+         [query (if context
+                  (format "~a&hq=~a" query (uri-encode context))
+                  query)])
+    (send-main-page #:sub (string-append search-dir page) #:query query)))