You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 lines
577 B
Racket
22 lines
577 B
Racket
11 years ago
|
#lang racket/base
|
||
|
|
(require racket/list racket/set)
|
||
|
|
(require "readability.rkt" "file-tools.rkt" "world.rkt")
|
||
|
|
|
||
|
|
|
||
|
|
(define (pd which)
|
||
|
|
(->path (format "/Users/MB/git/~a" which)))
|
||
|
|
|
||
|
|
|
||
|
|
(define (ineligible-path? f)
|
||
|
|
(or (not (visible? f)) (member f RESERVED_PATHS)))
|
||
|
|
|
||
|
|
(define (unique-members xs)
|
||
|
|
(set->list (list->set xs)))
|
||
|
|
|
||
|
|
(define (route-index [dir pollen-project-directory])
|
||
|
|
(define unique-eligible-paths
|
||
|
|
(unique-members (map ->output-path
|
||
|
|
(filter-not ineligible-path? (directory-list dir)))))
|
||
|
|
unique-eligible-paths)
|
||
|
|
|
||
|
|
(route-index (pd "foobar"))
|