13 lines
268 B
Text
13 lines
268 B
Text
|
#!/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))))
|