Help Desk header

original commit: 4cb5111cdfef5ff8d953d06f373bc33d0bb6c0b0

collects/help/private/search.ss

@@ -31,27 +31,30 @@
   ; gets the standard title of the documentation, from the
   ; known docs list.
   (define (get-std-doc-title path doc)
-    (let ([a (assoc doc known-docs)])
+    (cond
-       (if a
+     [(string=? doc "help")
-           (cdr a)
+      "PLT Help Desk"]
-           (let ([index-file (build-path path doc "index.htm")])
+     [(assoc doc known-docs)
-             (if (file-exists? index-file)
+      => (lambda (a) (cdr a))]
-                 (call-with-input-file index-file
+     [else
-                   (lambda (port)
+      (let ([index-file (build-path path doc "index.htm")])
-                     (let loop ()
+	(if (file-exists? index-file)
-		       (let ([l (read-line port)])
+	    (call-with-input-file index-file
-			 (cond
+	      (lambda (port)
-			  [(eof-object? l)
+		(let loop ()
-			   doc]
+		  (let ([l (read-line port)])
-			  [(regexp-match re:title l)
+		    (cond
-			   =>
+		     [(eof-object? l)
-			   (lambda (m)
+		      doc]
-			     (apply
+		     [(regexp-match re:title l)
-			      string
+		      =>
-			      (map (lambda (x) (if (char-whitespace? x) #\space x))
+		      (lambda (m)
-				   (string->list (cadr m)))))]
+			(apply
-			  [else (loop)])))))
+			 string
-		 doc)))))
+			 (map (lambda (x) (if (char-whitespace? x) #\space x))
+			      (string->list (cadr m)))))]
+		     [else (loop)])))))
+	    doc))]))
             
   (define (reset-doc-lists)
   ; Locate standard HTML documentation