steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add a word to id3ify directories

db4
Doug Coleman 2009-03-02 19:41:58 -06:00
parent 1a8b97e4d9
commit 14a841cf3e
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/id3/id3.factor
View File

@ -5,7 +5,8 @@ strings kernel math io.mmap io.mmap.uchar accessors syntax
combinators math.ranges unicode.categories byte-arrays combinators math.ranges unicode.categories byte-arrays
io.encodings.string io.encodings.utf16 assocs math.parser io.encodings.string io.encodings.utf16 assocs math.parser
combinators.short-circuit fry namespaces combinators.smart combinators.short-circuit fry namespaces combinators.smart
splitting io.encodings.ascii arrays io.files.info ; splitting io.encodings.ascii arrays io.files.info unicode.case
io.directories.search ;
IN: id3 IN: id3
<PRIVATE <PRIVATE
@ -190,3 +191,7 @@ PRIVATE>
: file-id3-tags ( path -- id3v2-info/f ) : file-id3-tags ( path -- id3v2-info/f )
dup file-info size>> 0 <= [ drop f ] [ (file-id3-tags) ] if ; dup file-info size>> 0 <= [ drop f ] [ (file-id3-tags) ] if ;
: parse-id3s ( path -- seq )
[ >lower ".mp3" tail? ] find-all-files
[ dup file-id3-tags ] { } map>assoc ;