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

fix main docs to include installation-specific links/packages

Browse Source
This commit is contained in:
Matthew Flatt 2012-12-02 06:54:25 -07:00
parent 63081b0671
commit d0ff14b17c
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/scribblings/main/private/manuals.rkt
View File

@ -4,6 +4,7 @@
scribble/struct scribble/struct
setup/getinfo setup/getinfo
setup/main-collects setup/main-collects
setup/dirs
scheme/list scheme/list
scheme/match scheme/match
"../config.rkt") "../config.rkt")
@ -15,9 +16,6 @@
(define sections (define sections
(map (lambda (xs) (apply make-sec xs)) manual-sections)) (map (lambda (xs) (apply make-sec xs)) manual-sections))
(define (in-main-collects? dir)
(pair? (path->main-collects-relative dir)))
(define (add-sections cat mk-sep l) (define (add-sections cat mk-sep l)
(if (null? l) (if (null? l)
null null
@ -33,10 +31,14 @@
(define (make-start-page all?) (define (make-start-page all?)
(let* ([recs (find-relevant-directory-records '(scribblings))] (let* ([recs (find-relevant-directory-records '(scribblings))]
[infos (map get-info/full (map directory-record-path recs))] [infos (map get-info/full (map directory-record-path recs))]
[main-dirs (parameterize ([current-library-collection-paths
(list (find-collects-dir))])
(for/hash ([k (in-list (find-relevant-directories '(scribblings) 'no-planet))])
(values k #t)))]
[docs (append-map [docs (append-map
(lambda (i rec) (lambda (i rec)
(define dir (directory-record-path rec)) (define dir (directory-record-path rec))
(define s (and (or all? (in-main-collects? dir)) (define s (and (or all? (hash-ref main-dirs dir #f))
i i
(i 'scribblings))) (i 'scribblings)))
(if (not s) (if (not s)