add support for user-specific documentation list

svn: r8306

original commit: 1c16d5829ee5c7033922b3f82e23ec7bc8883fa3

collects/help/search.ss

@@ -18,8 +18,11 @@
  [send-main-page (-> void?)])
 
 (define (send-main-page)
-  (let ([dest-path (build-path (find-doc-dir) "index.html")])
-    (send-url (format "file://~a" (path->string dest-path)))))
+  (let ([user-dest-path (build-path (find-user-doc-dir) "index.html")]
+        [dest-path (build-path (find-doc-dir) "index.html")])
+    (send-url (format "file://~a" (path->string (if (file-exists? user-dest-path)
+                                                    user-dest-path
+                                                    dest-path))))))
 
 ;; if there is exactly one exact match for this search key, go directly
 ;; to that place. Otherwise, go to a page that lists all of the matches.

collects/scribble/scribble.css

@@ -374,10 +374,6 @@ i {
   vertical-align: top;
 }
 
-.centered {
-  horiz-align: center; /* not right */
-}
-
 .ghost {
   color: white;
 }