19 lines
508 B
Scheme
19 lines
508 B
Scheme
#lang scheme/base
|
|
|
|
(require "search.ss"
|
|
browser/external
|
|
setup/dirs
|
|
mzlib/cmdline)
|
|
|
|
(define search-terms '())
|
|
(command-line "Help Desk"
|
|
(current-command-line-arguments)
|
|
(args search-term (set! search-terms search-term)))
|
|
|
|
(cond
|
|
[(null? search-terms)
|
|
(let ([dest-path (build-path (find-doc-dir) "start" "index.html")])
|
|
(send-url (format "file://~a" (path->string dest-path))))]
|
|
[else
|
|
(generate-search-results search-terms)])
|