diff options
Diffstat (limited to 'mpd/usr')
-rwxr-xr-x | mpd/usr/bin/mpd-random-albums | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/mpd/usr/bin/mpd-random-albums b/mpd/usr/bin/mpd-random-albums new file mode 100755 index 0000000..8adcd19 --- /dev/null +++ b/mpd/usr/bin/mpd-random-albums @@ -0,0 +1,12 @@ +#!/usr/local/bin/scsh -s +!# + +(define (add-album album) + (run (mpc findadd album ,album))) + +(run (mpc clear)) + +(for-each (lambda (album) + (run (mpc findadd album ,album))) + (run/strings (pipe (mpc list album) + (shuf)))) |