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

* Added send-url/file that consumes a path and adds the file://, use

Browse Source 
that in places that show docs.

* Made send-url quote characters that are possibly dangerous for
  subprocesses (good uses should call it wil already quoted urls).
  Also a keyword argument that can disable this, if someone really
  wants to.

* IE7 bug workaround finally working (but will need to switch from
  regedit to mred, to avoid vista warning).

svn: r8467

original commit: dbd27dafc66d0b94924e4287e60bdb3903fad215
This commit is contained in:
Eli Barzilay 2008-01-29 21:38:27 +00:00
parent c2788702f8
commit e2e36b404e
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/help/search.ss
View File

@ -18,11 +18,10 @@
[send-main-page (-> void?)]) [send-main-page (-> void?)])
(define (send-main-page) (define (send-main-page)
(let ([user-dest-path (build-path (find-user-doc-dir) "index.html")] (let* ([path (build-path (find-user-doc-dir) "index.html")]
[dest-path (build-path (find-doc-dir) "index.html")]) [path (if (file-exists? path)
(send-url (format "file://~a" (path->string (if (file-exists? user-dest-path) path (build-path (find-doc-dir) "index.html"))])
user-dest-path (send-url/file path)))
dest-path))))))
;; if there is exactly one exact match for this search key, go directly ;; if there is exactly one exact match for this search key, go directly
;; to that place. Otherwise, go to a page that lists all of the matches. ;; to that place. Otherwise, go to a page that lists all of the matches.
@ -40,9 +39,7 @@
[else [else
(let ([match (car exact-matches)]) (let ([match (car exact-matches)])
(let-values ([(path tag) (xref-tag->path+anchor x (entry-tag match))]) (let-values ([(path tag) (xref-tag->path+anchor x (entry-tag match))])
(send-url (format "file://~a~a" (send-url/file path #:fragment (uri-encode tag))))])))
(path->string path)
(if tag (string-append "#" (uri-encode tag)) "")))))])))
(define (generate-search-results search-keys) (define (generate-search-results search-keys)
(let ([file (next-search-results-file)] (let ([file (next-search-results-file)]
@ -75,7 +72,7 @@
(build-itemization "Exact matches" exact-matches) (build-itemization "Exact matches" exact-matches)
(build-itemization "Containing matches" inexact-matches))])))) (build-itemization "Containing matches" inexact-matches))]))))
file) file)
(send-url (format "file://~a" (path->string file))) (send-url/file file)
(void)))) (void))))
(define (make-extra-content desc) (define (make-extra-content desc)