18 lines
385 B
Racket
18 lines
385 B
Racket
#lang racket/base
|
|
|
|
(require racket/list
|
|
racket/path
|
|
"util.rkt")
|
|
|
|
(provide find-flac-files
|
|
find-regular-files)
|
|
|
|
(define (sort-paths paths)
|
|
(sort paths string<? #:key path->string))
|
|
|
|
(define (find-regular-files base-dir)
|
|
(sort-paths (directory-file-paths base-dir)))
|
|
|
|
(define (find-flac-files base-dir)
|
|
(filter flac-path? (find-regular-files base-dir)))
|