From 8ebda770a6c7a392c24fa093576c041a4da6b2c8 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Thu, 7 Jul 2011 01:45:39 -0600 Subject: [PATCH] restored Getting Started link --- collects/scribblings/main/private/manuals.rkt | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/collects/scribblings/main/private/manuals.rkt b/collects/scribblings/main/private/manuals.rkt index 16de75f74b..bb4230c6dc 100644 --- a/collects/scribblings/main/private/manuals.rkt +++ b/collects/scribblings/main/private/manuals.rkt @@ -113,7 +113,11 @@ (lambda (sec) (let ([docs (filter (lambda (doc) (eq? (car doc) (sec-cat sec))) docs)]) - (cond [(pair? docs) + (cond [(and (null? docs) (string? (sec-label sec))) + ;; Drop section if it contains no manuals, + ;; *unless* the section label contains a link. + null] + [else (list* (plain-line (hspace 1)) (plain-line (let loop ([s (sec-label sec)]) @@ -143,7 +147,6 @@ (caadr x))))) renderer part resolve-info))]) (string-ci (car ad) (car bd)))))))] - [else null]))) + (> (car ad) (car bd)))))))]))) sections)))) (make-delayed-block contents)))