10 lines
205 B
Text
10 lines
205 B
Text
|
#!/usr/local/bin/scsh -s
|
||
|
|
!#
|
||
|
|
|
||
|
|
(run (mpc clear))
|
||
|
|
|
||
|
|
(for-each (lambda (album)
|
||
|
|
(run (mpc findadd album ,album)))
|
||
|
|
(run/strings (pipe (mpc list album)
|
||
|
|
(shuf))))
|