suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

restored Getting Started link

Browse Source
This commit is contained in:
Ryan Culpepper 2011-07-07 01:45:39 -06:00
parent e66275c3f5
commit 8ebda770a6
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/scribblings/main/private/manuals.rkt
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)))