removed index-page search hacks, added search-page stub

svn: r9994

collects/scribble/basic.ss

@@ -237,8 +237,8 @@
     (lambda (renderer sec ri)
       (define l null)
       (define line-break (if (send renderer index-manual-newlines?)
-                             (make-element 'newline '("\n"))
+                           (make-element 'newline '("\n"))
-                             ""))
+                           ""))
       (define alpha-starts (make-hasheq))
       (hash-for-each
        (let ([parent (collected-info-parent (part-collected-info sec ri))])

collects/scribble/html-render.ss

@@ -105,6 +105,7 @@
 
 (define-serializable-struct literal-anchor (string))
 
+#; ; no need for these index-local searches
 #reader scribble/reader (begin ; easier to format
 
 (define search-script
@@ -607,6 +608,7 @@
                                 (make-element "nonavigation" index-content)
                                 (make-link-element
                                  #f index-content (car (part-tags index)))))
+                    #; ; no need for these index-local searches
                     ,@(if (eq? d index)
                         null
                         `((small nbsp
@@ -909,7 +911,8 @@
                                null))
                           ,@(render-flow d part ri #f))
                      (loop (cdr ds) (cdr as) (cdr vas))))]))))
-      `(,@(if index? `(,search-script ,search-field) '())
+      `(#; ; no need for these index-local searches
+        ,@(if index? `(,search-script ,search-field) '())
         (table ([cellspacing "0"]
                 ,@(if need-inline?
                     '([style "display: inline; vertical-align: top;"])

collects/scribblings/main/config.ss

@@ -16,12 +16,12 @@
   `((start   "PLT Manuals"      user "index.html")
     (search  "Search Manuals"   user "search/index.html")
     ---
-    (index   "Master Index"     user "master-index/index.html")
-    ---
     (license "License"          plt  "license/index.html")
     (acks    "Acknowledgements" plt  "acks/index.html")
     (release "Release Notes"    plt  "release/index.html")
     ---
+    (index   "Master Index"     user "master-index/index.html")
+    ---
     (bugreport "Report a Bug"   #f ,(format "~a?v=~a" bug-url (version)))))
 
 ;; Section definitions for manuals that appear on the start page.

collects/scribblings/main/info.ss

@@ -5,10 +5,10 @@
      (main-doc-root always-run depends-all-main no-depend-on) (omit))
     ("user/start.scrbl"
      (user-doc-root always-run depends-all no-depend-on) (omit))
-    ("master-index.scrbl"
+    ("search.scrbl"       (depends-all-main no-depend-on) (omit))
-     (depends-all-main no-depend-on) (omit))
+    ("master-index.scrbl" (depends-all-main no-depend-on) (omit))
-    ("user/master-index.scrbl"
+    ("user/search.scrbl"       (user-doc depends-all no-depend-on) (omit))
-     (user-doc depends-all no-depend-on) (omit))
+    ("user/master-index.scrbl" (user-doc depends-all no-depend-on) (omit))
     ("license.scrbl" () (omit))
     ("acks.scrbl"    () (omit))
     ("release.scrbl" () (omit))))

collects/scribblings/main/search.scrbl

@@ -0,0 +1,8 @@
+#lang scribble/doc
+@(require scribble/basic
+          scribble/decode
+          "private/utils.ss")
+
+@main-page['search #t]
+
+Search page not implemented yet.

collects/scribblings/main/user/search.scrbl

@@ -0,0 +1,8 @@
+#lang scribble/doc
+@(require scribble/basic
+          scribble/decode
+          "../private/utils.ss")
+
+@main-page['search #f]
+
+Search page not implemented yet.