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