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

new scheme/cmdline, refine -r/-u to imply -N

Browse Source 
svn: r7989

original commit: 138a38ea04bce3f7f3294887eaae6e980e91b3e5
This commit is contained in:
Matthew Flatt 2007-12-13 15:04:20 +00:00
parent dcc9ec44f5
commit f1072f827d
2 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/help/help.ss
View File

@ -1,18 +1,15 @@
#lang scheme/base #lang scheme/base
(require "search.ss" (require "search.ss"
net/sendurl ; browser/external net/sendurl
setup/dirs setup/dirs
mzlib/cmdline) scheme/cmdline)
(define search-terms '()) (command-line
(command-line "Help Desk" #:args search-term
(current-command-line-arguments) (cond
(args search-term (set! search-terms search-term))) [(null? search-term)
(cond
[(null? search-terms)
(let ([dest-path (build-path (find-doc-dir) "start" "index.html")]) (let ([dest-path (build-path (find-doc-dir) "start" "index.html")])
(send-url (format "file://~a" (path->string dest-path))))] (send-url (format "file://~a" (path->string dest-path))))]
[else [else
(generate-search-results search-terms)]) (generate-search-results search-term)]))

2
collects/help/search.ss
View File

@ -7,7 +7,7 @@
scribble/basic scribble/basic
scribble/manual scribble/manual
(prefix-in scheme: scribble/scheme) (prefix-in scheme: scribble/scheme)
net/sendurl ; browser/external net/sendurl
mzlib/contract) mzlib/contract)
(provide/contract (provide/contract