bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE

help.rkt (551B)

      1 #lang scheme/base
      2 
      3 (require "search.rkt" scheme/cmdline scheme/list scheme/string
      4          raco/command-name) 
      5 
      6 ;; Minimal command-line arguments, the query string can contain all
      7 ;; kinds of magic.
      8 (command-line
      9  #:program (short-program+command-name)
     10  #:handlers
     11  (lambda (_ . ts)
     12    (if (null? ts)
     13      (send-main-page)
     14      (perform-search (string-append* (add-between ts " ")))))
     15  '("search-terms")
     16  (lambda (help-str)
     17    (display help-str)
     18    (display " See the search page for the syntax of queries\n")
     19    (exit 0)))
     20 
     21 (module test racket/base)