extended help-desk to construct custom queries

svn: r10102

collects/drscheme/private/help-desk.ss

@@ -64,13 +64,14 @@
     (super-new)))
 
 (define (goto-plt-license)
-  (send-url
-    (url->string
-     (path->url (build-path (find-doc-dir) "license" "index.html")))))
+  (send-main-page "license/index.html"))
 
+(define (help-desk [key #f] #:module [mod #f] #:manual [man #f])
+  (if (or key mod man)
+    (perform-search (string-append (or key "")
+                                   (if mod (format " L:~a" mod) "")
+                                   (if man (format " T:~a" man) "")))
+    (send-main-page)))
+
+;; here for legacy code that should be removed
 (define (get-docs) '())
-
-(define help-desk
-  (case-lambda
-    [() (send-main-page)]
-    [(key) (perform-search key)]))