diff options
| author |  Tom Willemse | 2016-09-18 00:03:16 +0200 |
|---|---|---|
| committer | Tom Willemse | 2016-09-18 00:03:16 +0200 |
| commit | d8b15e8ea8afaa5a7001462b644589f113531a7e (patch) | |
| tree | 1070c3b596e5cb2076c4436d1672faccfc36b309 /mpd-random-albums | |
| download | mpd-random-albums-d8b15e8ea8afaa5a7001462b644589f113531a7e.tar.gz mpd-random-albums-d8b15e8ea8afaa5a7001462b644589f113531a7e.zip | |
Add internal border to Emacs frame
Diffstat (limited to 'mpd-random-albums')
| -rwxr-xr-x | mpd-random-albums | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/mpd-random-albums b/mpd-random-albums new file mode 100755 index 0000000..8adcd19 --- /dev/null +++ b/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)))) |