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

setup: Don’t count main docs as user docs when tidying

Browse Source
This commit is contained in:
Alexis King 2020-06-18 03:36:47 -05:00 committed by Matthew Flatt
parent da64bc22bb
commit dc007a8502
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
pkgs/racket-index/setup/scribble.rkt
View File

@ -412,23 +412,22 @@
(not latex-dest) (not latex-dest)
infos) infos)
(log-setup-info "tidying database") (log-setup-info "tidying database")
(define files (make-hash))
(define tidy-docs (if tidy? (define tidy-docs (if tidy?
docs docs
(map info-doc infos))) (map info-doc infos)))
(define (get-files! main?) (define (get-files main?)
(define files (make-hash))
(for ([doc (in-list tidy-docs)] (for ([doc (in-list tidy-docs)]
#:when (eq? main? (main-doc? doc))) #:when (eq? main? (main-doc? doc)))
(hash-set! files (sxref-path latex-dest doc "in.sxref") #t) (hash-set! files (sxref-path latex-dest doc "in.sxref") #t)
(for ([c (in-range (add1 (doc-out-count doc)))]) (for ([c (in-range (add1 (doc-out-count doc)))])
(hash-set! files (sxref-path latex-dest doc (format "out~a.sxref" c)) #t)))) (hash-set! files (sxref-path latex-dest doc (format "out~a.sxref" c)) #t)))
files)
(unless avoid-main? (unless avoid-main?
(get-files! #t) (doc-db-clean-files main-db (get-files #t)))
(doc-db-clean-files main-db files))
(when (and (file-exists? user-db) (when (and (file-exists? user-db)
(not (equal? main-db user-db))) (not (equal? main-db user-db)))
(get-files! #f) (doc-db-clean-files user-db (get-files #f)))))
(doc-db-clean-files user-db files))))
(define (make-loop first? iter) (define (make-loop first? iter)
(let ([infos (filter-not info-failed? infos)] (let ([infos (filter-not info-failed? infos)]