remove unused blurb fields

svn: r8526

collects/errortrace/info.ss

@@ -1,9 +1,3 @@
 (module info setup/infotab
   (define name "Errortrace")
-  (define doc.txt "doc.txt")
-  (define blurb
-    (list
-     "Errortrace is a Poor Man's stack-trace-on-exceptions/profiler for "
-     "MzScheme. Errortrace is not a complete debugger, and a real debugger "
-     "in DrScheme is imminent; meanwhile, using errortrace might be better "
-     "than nothing.")))
+  (define doc.txt "doc.txt"))

collects/ffi/info.ss

@@ -1,4 +1,2 @@
 (module info setup/infotab
-  (define name "Foreign Function Interfaces")
-  (define blurb
-    '("A few foreign interfaces to various libraries.")))
+  (define name "Foreign Function Interfaces"))

collects/games/info.ss

@@ -7,17 +7,5 @@
     (list "cards" "paint-by-numbers" "same" "lights-out" "aces" "spider"
 	  "memory" "pousse" "crazy8s"
           "gcalc" "parcheesi" "gl-board-game"
-	  "jewel" "doors"))
-  (define blurb 
-    (list "Demos a few small "
-	  '(a ((MZSCHEME "
-(begin
-  (require (lib |mred.ss| |mred|))
-  (parameterize ([current-custodian (make-custodian)]) 
-    (parameterize ([current-eventspace (make-eventspace)])
-      (queue-callback 
-       (lambda ()
-         (exit-handler void) 
-         (dynamic-require (quote (lib |games.ss| |games|)) #f))))))")) "games")
-	  " implemented in Scheme.")))
+	  "jewel" "doors")))
 

collects/help/doc.txt

@@ -355,13 +355,3 @@ Each index entry is a list of four strings:
     "How to Create Help Desk Documents"
 
 See plt/doc/mzscheme/hdindex for an example.
-
-
-The _'blurb field_ of the _info.ss_ file
-- - - - - - - - - - - - - - - - - - - - 
-
-The 'blurb field of the info.txt file should be a list of xexprs (see the
-xml documentation for information on the xexpr datatype) that correspond to
-the html that help desk can parse. If a collection's info.ss file returns
-such a list, the blurb is inserted into the ``installed components'' page
-of the help desk documentation.

collects/launcher/info.ss

@@ -1,6 +1,3 @@
 (module info setup/infotab
-  (define name "Launcher")
-  (define blurb
-    (list "Lets you run your program as a stand-alone program, "
-	  "with out starting up DrScheme first.")))
+  (define name "Launcher"))
 

collects/macro-debugger/syntax-browser/info.ss

@@ -1,5 +1,2 @@
 (module info setup/infotab
-  (define name "Macro Debugger - Syntax Browser")
-  (define blurb '("The syntax-browser displays lexical context and hygiene information "
-                  "on syntax objects using colors and highlighting."))
-  )
+  (define name "Macro Debugger - Syntax Browser"))

collects/mysterx/info.ss

@@ -3,10 +3,4 @@
 (module info setup/infotab
   (define name "MysterX")
   (define doc.txt "doc.txt")
-  (define blurb
-    (list
-     "MysterX is an extension that lets you use Scheme to script "
-     "ActiveX controls and other COM components under Windows. "
-     "MysterX also has a programmable Web browser with support for "
-     "Dynamic HTML."))
   (define post-install-collection "installer.ss"))

collects/mzcom/info.ss

@@ -3,7 +3,4 @@
 (module info setup/infotab
   (define name "MzCOM")
   (define doc.txt "doc.txt")
-  (define blurb
-    (list
-      "MzCOM is a COM class that makes Scheme available to any COM client."))
   (define post-install-collection "installer.ss"))

collects/mztake/info.ss

@@ -1,7 +1,6 @@
 (module info setup/infotab
   (define name "MzTake Debugger")
   (define tools '(("debug-tool.ss")))
-  (define blurb '("MzTake is a scripted debugger for PLT Scheme."))
   (define tool-names '("MzTake Debugger"))
   (define tool-icons '(("emblem-ohno.png" "mztake" "icons")))
 )

collects/net/info.ss

@@ -1,8 +1,3 @@
 (module info setup/infotab
   (define name "Net")
-  (define doc.txt "doc.txt")
-
-  (define blurb
-    (list
-     "The net collection provides a suite of libraries to handle standard "
-     "internet-based protocols.")))
+  (define doc.txt "doc.txt"))

collects/openssl/info.ss

@@ -1,5 +1,3 @@
 (module info setup/infotab
   (define name "SSL Driver")
-  (define scribblings '(("openssl.scrbl")))
-  (define blurb '("The SSL collection provides a driver for using the OpenSSL "
-		  "secure connection library.")))
+  (define scribblings '(("openssl.scrbl"))))

collects/planet/info.ss

@@ -2,8 +2,4 @@
   (define name "PLaneT")
   (define doc.txt "doc.txt")
   (define mzscheme-launcher-names '("planet"))
-  (define mzscheme-launcher-libraries '("planet.ss"))
-  (define blurb 
-    (list
-     "The PLaneT collection provides a suite of libraries to implement the "
-     "PLaneT module distribution system.")))
+  (define mzscheme-launcher-libraries '("planet.ss")))

collects/readline/info.ss

@@ -1,7 +1,4 @@
 
 (module info setup/infotab
   (define name "readline")
-  (define scribblings '(("readline.scrbl")))
-  (define blurb
-    `("The readline collection provides glue for using GNU's readline library"
-      " with the MzScheme read-eval-print-loop.")))
+  (define scribblings '(("readline.scrbl"))))

collects/scribble/info.ss

@@ -1,6 +1,5 @@
 (module info setup/infotab
   (define name "Scribble")
-  (define blurb '("Text and documention typesetting."))
   (define mzscheme-launcher-names '("scribble"))
   (define mzscheme-launcher-libraries '("scribble.ss"))
   (define compile-omit-files '("test-reader.ss")))

collects/skipper/info.ss

@@ -1,7 +1,6 @@
 (module info setup/infotab
   (define name "Skipper")
   #;(define tools '(("debug-tool.ss")))
-  (define blurb '("Experimental Debugger"))
   #;(define tool-names '("Skipper"))
   #;(define tool-icons '(("icon-big.png" "skipper")))
 )

collects/slatex/info.ss

@@ -7,14 +7,6 @@
   ;(define tools (list (list "slatex-lang.ss")))
   ;(define tool-names (list "SLaTeX Language"))
 
-  (define blurb
-    (list "SLaTeX is a pre-processor for LaTeX that formats Scheme code. "
-	  "For more information, see "
-	  `(tt () "slatxdoc.dvi")
-	  " in the "
-	  `(tt () ,(path->string (build-path (collection-path "slatex") "slatex-code")))
-	  " directory on this machine."))
-
   (define mzscheme-launcher-names (list "SLaTeX" "PDF SLaTeX"))
   (define mzscheme-launcher-libraries
     (list "slatex-launcher.ss"

collects/srfi/info.ss

@@ -32,9 +32,6 @@
 
 (module info setup/infotab
   (define name "srfi")
-  (define doc.txt "doc.txt")
-
-  (define blurb '("SRFI collects together ports to PLT Scheme of the Scheme Request for Implementation libraries.  For further details about the SRFI process see " (a ((href "http://srfi.schemers.org/")) "http://srfi.schemers.org/")))
-  )
+  (define doc.txt "doc.txt"))
 
 ;;; info.ss ends here

collects/srpersist/info.ss

@@ -6,6 +6,4 @@
 (module info setup/infotab
   (define name "SrPersist")
   (define doc.txt "doc.txt")
-  (define compile-omit-files '("info.ss" "srpersist.ss"))
-  (define blurb
-    '("SrPersist is an extension for using ODBC databases from Scheme.")))
+  (define compile-omit-files '("info.ss" "srpersist.ss")))

collects/swindle/info.ss

@@ -3,7 +3,6 @@
 (module info setup/infotab
   ;;
   (define name "Swindle")
-  (define blurb '("Swindle extensions for MzScheme -- CLOS and more."))
   (define mzscheme-launcher-names '("swindle"))
   (define mzscheme-launcher-flags '(("-li" "swindle")))
   ;;

collects/test-box-recovery/info.ss

@@ -2,7 +2,6 @@
 (module info setup/infotab
   (define doc.txt "doc.txt")
   (define name "Test Box Recovery")
-  (define blurb '("Tool for v370 and later to open old programs with test-case boxes"))
   (define categories '(devtools))
   (define required-core-version "370")
   (define tools (list '("tool.ss")))

collects/trace/info.ss

@@ -1,6 +1,3 @@
 (module info setup/infotab
   (define name "Calltrace")
-  (define doc.txt "doc.txt")
-  (define blurb
-    (list
-     "Calltrace is a simple annotater that enables call tracing.")))
+  (define doc.txt "doc.txt"))

collects/xml/info.ss

@@ -3,7 +3,5 @@
   (define doc.txt "doc.txt")
   ;; the XML tool has been moved to the stepper collection, so that 
   ;; the stepper can create xml snips.  See collects/stepper/tool.ss for (a bit) more information
-  (define blurb
-    `("The XML collection provides functions for reading, writing, and manipulating XML documents."))
   (define tools '(("text-box-tool.ss")))
   (define tool-names '("Text Box")))