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

added context label

Browse Source 
svn: r10906

original commit: 5c61c1b997286138a857ccbd1d9d2ed465640c54
This commit is contained in:
Eli Barzilay 2008-07-25 02:05:00 +00:00
parent 29a7a0fa93
commit 81004dcf38
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/help/search.ss
View File

@ -15,9 +15,21 @@
(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)])
;; `context' can be a pre-filter query string to use for a context,
;; optionally a list of one and a label to display for that context.
;; In any case, when a context is specified, the search actually
;; goes through the search-context.html page which tranpolines to
;; the main search page after setting the cookies (so when the
;; search page is refreshed it won't reset the context).
(let* ([label (and (list? context) (= 2 (length context)) (cadr context))]
[context (if (pair? context) (car context) context)]
[page (if context "search-context.htm" "index.html")]
[query (format "q=~a" (uri-encode str))]
[query (if context
(format "~a&hq=~a~a"
query (uri-encode context)
(if label
(format "&label=~a" (uri-encode label))
""))
query)])
(send-main-page #:sub (string-append search-dir page) #:query query)))