|
@ -32,15 +32,9 @@ |
|
|
(define (play-list) |
|
|
(define (play-list) |
|
|
(sort-paths (filter-paths file-types (file-list)))) ; first commandline argument is the filename |
|
|
(sort-paths (filter-paths file-types (file-list)))) ; first commandline argument is the filename |
|
|
|
|
|
|
|
|
; sortgetter, gets the episode number and converts it to an integer |
|
|
|
|
|
(define (sortgetter file-name) |
|
|
|
|
|
(string->number |
|
|
|
|
|
(second (regexp-match #rx"E([0-9])*" file-name)))) |
|
|
|
|
|
|
|
|
|
|
|
; sort the paths |
|
|
; sort the paths |
|
|
(define (sort-paths paths) |
|
|
(define (sort-paths paths) |
|
|
(sort paths < |
|
|
(sort paths string<?)) |
|
|
#:key sortgetter)) |
|
|
|
|
|
|
|
|
|
|
|
; abusing hash tables to be sets |
|
|
; abusing hash tables to be sets |
|
|
(define played |
|
|
(define played |
|
|