suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

re-added send-main-page

Browse Source 
svn: r10099

original commit: f3b6c7398f09507c690b9e25c2731a76f136e190
This commit is contained in:
Eli Barzilay 2008-06-02 23:47:28 +00:00
parent 232306e535
commit 7f97a4f018
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/help/search.ss
View File

@ -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)))