suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Revise commented code so it can replace exiting code without dependency issues.

Browse Source 
original commit: 31746a2d9e52202e752850012bb509f7e167e2ff
This commit is contained in:
Eli Barzilay 2012-01-26 13:20:13 -05:00
parent 3b50061de1
commit 404c08f8c3
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/help/search.rkt
View File

@ -20,13 +20,14 @@
;; Useful in cases like schools that use systems that have problems ;; Useful in cases like schools that use systems that have problems
;; running a browser on local files (like NEU). If you use this, then ;; running a browser on local files (like NEU). If you use this, then
;; it is a good idea to put the documentation tree somewhere local, to ;; it is a good idea to put the documentation tree somewhere local, to
;; have better interaction times and not overload the PLT server. ;; have better interaction times instead of using the PLT server.
;; (define doc-url "http://download.racket-lang.org/docs/5.0/html/")
;; (define (send-main-page #:sub [sub "index.html"] ;; (define (send-main-page #:sub [sub "index.html"]
;; #:fragment [fragment #f] #:query [query #f]) ;; #:fragment [fragment #f] #:query [query #f]
;; (define (part pfx x) (if x (list pfx x) '())) ;; #:notify [notify void])
;; (send-url (apply string-append doc-url sub ;; (define (part pfx x) (if x (string-append pfx x) ""))
;; (append (part "#" fragment) (part "?" query))))) ;; (send-url (string-append
;; "http://download.racket-lang.org/docs/" (version) "/html/"
;; sub (part "#" fragment) (part "?" query))))
(define (perform-search str [context #f]) (define (perform-search str [context #f])
;; `context' can be a pre-filter query string to use for a context, ;; `context' can be a pre-filter query string to use for a context,