Browse Source

nuked needless code

master
wes 12 years ago
parent
commit
44ce7508ed
  1. 8
      lazyplay.rkt

8
lazyplay.rkt

@ -32,15 +32,9 @@
(define (play-list)
(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
(define (sort-paths paths)
(sort paths <
#:key sortgetter))
(sort paths string<?))
; abusing hash tables to be sets
(define played