elf
/
mp_suggest
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Organized tag-deriver to surface code smell.

This commit is contained in:
Elf M. Sternberg 2014-12-08 11:16:55 -08:00
parent 634cf57687
commit e079cd21cd
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mp_suggest.hy
View File

@ -156,8 +156,8 @@
(defn derive-tags [mp3s artist-deriver album-deriver genre-deriver title-deriver] (defn derive-tags [mp3s artist-deriver album-deriver genre-deriver title-deriver]
(defn derive-tag [mp3] (defn derive-tag [mp3]
(let [[file (get mp3 0)]] (let [[file (get mp3 0)]]
(, (get mp3 0) (artist-deriver (get mp3 1) file) (album-deriver (get mp3 2) file) (, (get mp3 5) (artist-deriver (get mp3 1) file) (album-deriver (get mp3 2) file)
(genre-deriver (get mp3 3) file) (title-deriver (get mp3 4) file) (get mp3 5)))) (genre-deriver (get mp3 3) file) (title-deriver (get mp3 4) file) (get mp3 0))))
(ap-map (derive-tag it) mp3s)) (ap-map (derive-tag it) mp3s))
; For all the songs, analyze a consist entry (usually genre and album ; For all the songs, analyze a consist entry (usually genre and album
@ -197,7 +197,7 @@
[album-deriver (make-album-deriver opts local-album likely-album)] [album-deriver (make-album-deriver opts local-album likely-album)]
[genre-deriver (make-genre-deriver opts "" likely-genre)] [genre-deriver (make-genre-deriver opts "" likely-genre)]
[title-deriver (make-title-deriver opts "" "")] [title-deriver (make-title-deriver opts "" "")]
[newmp3s (derive-tags mp3s artist-deriver album-deriver genre-deriver title-deriver)] [newmp3s (derive-tags mp3s artist-deriver album-deriver genre-deriver title-deriver)]
[format-string [format-string
@ -207,15 +207,15 @@
"--genre \"{}\"" "--genre \"{}\""
"--song \"{}\"" "--song \"{}\""
"\"{}\""] " ")]] "\"{}\""] " ")]]
(ap-each newmp3s (ap-each newmp3s
(print (.format format-string (print (.format format-string
(get it 5) (get it 0)
(get it 1) (get it 1)
(get it 2) (get it 2)
(get it 3) (get it 3)
(get it 4) (get it 4)
(get it 0)))))) (get it 5))))))
(defmain [&rest args] (defmain [&rest args]
(try (try