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

no arguments => start page

Browse Source 
svn: r10441

original commit: a1a53524c08f53efd64a19f25e8525a328a21d66
This commit is contained in:
Eli Barzilay 2008-06-24 17:35:10 +00:00
parent 1863485d73
commit 80f1f87627
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/help/help.ss
View File

@ -1,13 +1,15 @@
#lang scheme/base
(require "search.ss" scheme/cmdline scheme/list)
(require "search.ss" scheme/cmdline scheme/list scheme/string)
;; 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 " "))))
(if (null? ts)
(send-main-page)
(perform-search (string-append* (add-between ts " ")))))
'("search-terms")
(lambda (help-str)
(display help-str)