3d4b9088cd
* rename search-context.html to .htm to avoid being deleted by setup/scribble * added context to help/search interface svn: r10717 original commit: bb562f9ee4e267d8f295d8838877e0a8c79d22c8
24 lines
892 B
Scheme
24 lines
892 B
Scheme
#lang scheme/base
|
|
|
|
(require setup/dirs net/sendurl net/uri-codec)
|
|
(provide perform-search send-main-page)
|
|
|
|
(define search-dir "search/")
|
|
|
|
;; Almost nothing to do here -- the real work is done in the browser,
|
|
;; using javascript.
|
|
|
|
(define (send-main-page #:sub [sub "index.html"]
|
|
#: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 [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)))
|