diff options
author | Tom Willemse | 2016-09-18 00:03:16 +0200 |
---|---|---|
committer | Tom Willemse | 2016-09-18 00:03:16 +0200 |
commit | 6be84a24f416910cba2695a822a9dc73bfe14302 (patch) | |
tree | 7fc8170cb4696ff4bfb3ce72888cb86f2af98291 /mpd/usr | |
parent | c9c1d77bc50bc2388e25c8c2c824b4d6e9232dc9 (diff) | |
download | new-dotfiles-6be84a24f416910cba2695a822a9dc73bfe14302.tar.gz new-dotfiles-6be84a24f416910cba2695a822a9dc73bfe14302.zip |
Add internal border to Emacs frame
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)))) |