chiark / gitweb /
gremlin/gremlin.in: Use `https' scheme for Wikipedia link.
[autoys] / make-multidisc-playlists / make-multidisc-playlists
1 #! /bin/sh -e
2
3 cd $HOME/jb
4 find . -type f -name '?-??. *' -print | sed 's:/[^/]*$::' | uniq |
5 while read d; do
6   (cd "$d"
7    p=$(echo "$d" | sed 's:^.*/\([^/]*\)/\([^/]*\)$:\1 - \2.m3u:')
8    updatep=nil
9    for f in ?-??.*; do
10      if [ ! "$p" -nt "$f" ]; then updatep=t; break; fi
11    done
12    case $updatep in nil) continue ;; esac
13    { echo "#EXTM3U"
14      for f in ?-??.*; do m3u-extinf "$f"; echo "$f"; done
15    } >"$p.new"
16    rm -f *.m3u
17    mv "$p".new "$p"
18    echo "$d/$p")
19 done
20