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

change 'help' to open the main doc page instead of the docs for 'help' itself

Browse Source 
svn: r13004

original commit: 821a82195e6947a96a97df0f7928e0ba0f799247
This commit is contained in:
Matthew Flatt 2009-01-04 23:15:50 +00:00
parent 113935619f
commit 175881e5a5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/help/search.ss
View File

@ -9,9 +9,11 @@
;; using javascript.
(define (send-main-page #:sub [sub "index.html"]
#:fragment [fragment #f] #:query [query #f])
#:fragment [fragment #f] #:query [query #f]
#:notify [notify void])
(let* ([path (build-path (find-user-doc-dir) sub)]
[path (if (file-exists? path) path (build-path (find-doc-dir) sub))])
(notify path)
(send-url/file path #:fragment fragment #:query query)))
;; This is an example of changing this code to use the online manuals.