232306e535
(Most code removed.) svn: r10096 original commit: 3a06e4a3014615125d275a260ef7a04d5e62d871
16 lines
403 B
Scheme
16 lines
403 B
Scheme
#lang scheme/base
|
|
|
|
(require "search.ss" scheme/cmdline scheme/list)
|
|
|
|
;; Minimal command-line arguments, the query string can contain all
|
|
;; kinds of magic.
|
|
(command-line
|
|
#:handlers
|
|
(lambda (_ . ts)
|
|
(perform-search (apply string-append (add-between ts " "))))
|
|
'("search-terms")
|
|
(lambda (help-str)
|
|
(display help-str)
|
|
(display " See the search page for the syntax of queries\n")
|
|
(exit 0)))
|