tag mp3s based on directory convention

mp3sort.scm

(import (garlic base)
        (garlic sys)
        (garlic strings))

(define (tag-file dir file data)
  (sh (string-append "id3v2 '" dir file "' -A " (car data) " -a " (cdr data))))

(define (escape-unix-filename-spaces name)
  (string-replace " " "\\ " name))

(define (dir-album name)
  (let* ([slash-split (string-split-all #\/ name)]
         [short (last slash-split)]
         [dot-split (string-split-all #\. short)]
         [artist (car dot-split)]
         [album (cadr dot-split)])
    (cons artist album)))

(define (tag-dir dir)
  (->> (sh-lines (string-append "ls -a " dir))
       (stream-map (lambda (file) (tag-file dir file (dir-album dir))))
       (stream->list)))