16 lines
492 B
Scheme
16 lines
492 B
Scheme
#lang scheme/base
|
|
|
|
(require setup/dirs
|
|
setup/main-collects)
|
|
|
|
(provide doc-path)
|
|
|
|
(define (doc-path dir name flags)
|
|
(cond [(memq 'main-doc-root flags) (find-doc-dir)]
|
|
[(memq 'user-doc-root flags) (find-user-doc-dir)]
|
|
[(memq 'user-doc flags) (build-path (find-user-doc-dir) name)]
|
|
[(or (memq 'main-doc flags)
|
|
(pair? (path->main-collects-relative dir)))
|
|
(build-path (find-doc-dir) name)]
|
|
[else (build-path dir "doc" name)]))
|