mpd-random-albums


1
2
3
4
5
6
7
8
9
10
11
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))))