From 4d38f491cad7d49cbd29009b7418401fa6bc2e0a Mon Sep 17 00:00:00 2001
From: Ryan Culpepper <ryanc@racket-lang.org>
Date: Fri, 1 Jul 2011 20:13:52 -0600
Subject: [PATCH] moved algol60 and honu docs to experimental category remove
 empty doc categories

---
 collects/algol60/info.rkt                     |  2 +-
 collects/scribblings/honu/info.rkt            |  2 +-
 collects/scribblings/main/private/manuals.rkt | 62 ++++++++++---------
 3 files changed, 34 insertions(+), 32 deletions(-)

diff --git a/collects/algol60/info.rkt b/collects/algol60/info.rkt
index 8b7e8bb6aa..28f9c3579b 100644
--- a/collects/algol60/info.rkt
+++ b/collects/algol60/info.rkt
@@ -2,4 +2,4 @@
 
 (define tools '(("tool.ss")))
 (define tool-names '("Algol 60"))
-(define scribblings '(("algol60.scrbl" () (other))))
+(define scribblings '(("algol60.scrbl" () (experimental 40))))
diff --git a/collects/scribblings/honu/info.rkt b/collects/scribblings/honu/info.rkt
index 231583a151..328edf4286 100644
--- a/collects/scribblings/honu/info.rkt
+++ b/collects/scribblings/honu/info.rkt
@@ -1,3 +1,3 @@
 #lang setup/infotab
 
-(define scribblings '(("honu.scrbl" (multi-page) (other))))
+(define scribblings '(("honu.scrbl" (multi-page) (experimental 40))))
diff --git a/collects/scribblings/main/private/manuals.rkt b/collects/scribblings/main/private/manuals.rkt
index c67114f039..230f22d00a 100644
--- a/collects/scribblings/main/private/manuals.rkt
+++ b/collects/scribblings/main/private/manuals.rkt
@@ -113,35 +113,37 @@
          (lambda (sec)
            (let ([docs (filter (lambda (doc) (eq? (car doc) (sec-cat sec)))
                                docs)])
-             (list*
-              (plain-line (hspace 1))
-              (plain-line (let loop ([s (sec-label sec)])
-                            (match s
-                              [(list 'elem parts ...)
-                               (apply elem (map loop parts))]
-                              [(list 'link text doc-mod-path)
-                               (seclink "top" #:doc doc-mod-path #:underline? #f text)]
-                              [(list 'link text doc-mod-path tag)
-                               (seclink tag #:doc doc-mod-path #:underline? #f text)]
-                              [_ s])))
-              (add-sections
-               (sec-cat sec)
-               (lambda (str)
-                 (plain-line
-                  (make-element (if (string=? str "") "sepspace" "septitle")
-                                (list 'nbsp str))))
-               (sort (map (lambda (doc)
-                            (list (cadr doc) (line (cadddr (cdr doc))) (caddr doc)))
-                          docs)
-                     (lambda (ad bd)
-                       (if (= (car ad) (car bd))
-                         (let ([str (lambda (x)
-                                      (element->string
-                                       (cadr (paragraph-content
-                                              (car (flow-paragraphs
-                                                    (caadr x)))))
-                                       renderer part resolve-info))])
-                           (string-ci<? (str ad) (str bd)))
-                         (> (car ad) (car bd)))))))))
+             (cond [(pair? docs)
+                    (list*
+                     (plain-line (hspace 1))
+                     (plain-line (let loop ([s (sec-label sec)])
+                                   (match s
+                                     [(list 'elem parts ...)
+                                      (apply elem (map loop parts))]
+                                     [(list 'link text doc-mod-path)
+                                      (seclink "top" #:doc doc-mod-path #:underline? #f text)]
+                                     [(list 'link text doc-mod-path tag)
+                                      (seclink tag #:doc doc-mod-path #:underline? #f text)]
+                                     [_ s])))
+                     (add-sections
+                      (sec-cat sec)
+                      (lambda (str)
+                        (plain-line
+                         (make-element (if (string=? str "") "sepspace" "septitle")
+                                       (list 'nbsp str))))
+                      (sort (map (lambda (doc)
+                                   (list (cadr doc) (line (cadddr (cdr doc))) (caddr doc)))
+                                 docs)
+                            (lambda (ad bd)
+                              (if (= (car ad) (car bd))
+                                  (let ([str (lambda (x)
+                                               (element->string
+                                                (cadr (paragraph-content
+                                                       (car (flow-paragraphs
+                                                             (caadr x)))))
+                                                renderer part resolve-info))])
+                                    (string-ci<? (str ad) (str bd)))
+                                  (> (car ad) (car bd)))))))]
+                   [else null])))
          sections))))
     (make-delayed-block contents)))