dotfiles/mpd/usr/bin/mpd-random-albums

#!/usr/bin/scsh -s
!#

(run (mpc clear))

(for-each (lambda (album)
            (run (mpc findadd album ,album)))
          (run/strings (pipe (mpc list album)
                             (shuf))))
Fix scsh location 2020-04-23 08:19:06 +02:00			`#!/usr/bin/scsh -s`
Add internal border to Emacs frame 2016-09-18 00:03:16 +02:00			`!#`

			`(run (mpc clear))`

			`(for-each (lambda (album)`
			`(run (mpc findadd album ,album)))`
			`(run/strings (pipe (mpc list album)`
			`(shuf))))`