From d8b15e8ea8afaa5a7001462b644589f113531a7e Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sun, 18 Sep 2016 00:03:16 +0200
Subject: Add internal border to Emacs frame

---
 mpd-random-albums | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 mpd-random-albums

(limited to 'mpd-random-albums')

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))))
-- 
cgit v1.2.3-54-g00ecf