restored Getting Started link
This commit is contained in:
parent
e66275c3f5
commit
8ebda770a6
|
@ -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)))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user