restored Getting Started link

This commit is contained in:
Ryan Culpepper 2011-07-07 01:45:39 -06:00
parent e66275c3f5
commit 8ebda770a6

View File

@ -113,7 +113,11 @@
(lambda (sec) (lambda (sec)
(let ([docs (filter (lambda (doc) (eq? (car doc) (sec-cat sec))) (let ([docs (filter (lambda (doc) (eq? (car doc) (sec-cat sec)))
docs)]) 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* (list*
(plain-line (hspace 1)) (plain-line (hspace 1))
(plain-line (let loop ([s (sec-label sec)]) (plain-line (let loop ([s (sec-label sec)])
@ -143,7 +147,6 @@
(caadr x))))) (caadr x)))))
renderer part resolve-info))]) renderer part resolve-info))])
(string-ci<? (str ad) (str bd))) (string-ci<? (str ad) (str bd)))
(> (car ad) (car bd)))))))] (> (car ad) (car bd)))))))])))
[else null])))
sections)))) sections))))
(make-delayed-block contents))) (make-delayed-block contents)))