diff options
Diffstat (limited to 'guix.scm')
-rw-r--r-- | guix.scm | 13 |
1 files changed, 13 insertions, 0 deletions
@@ -1,5 +1,6 @@ (use-modules (guix gexp) (guix modules) + (gnu packages audio) (gnu packages music) (gnu packages imagemagick)) @@ -46,4 +47,16 @@ (up (lambda (name stat result) #t)) (skip (lambda (name stat result) #t)) (error (lambda (name stat errno result) #t))) + (file-system-fold enter? leaf down up skip error #t ".")) + (let ((enter? (lambda (name stat result) #t)) + (leaf (lambda (name stat result) + (when (string-prefix? "./" name) + (set! name (substring name (string-length "./")))) + (when (string-suffix? ".midi" name) + (invoke #$(file-append timidity++ "/bin/timidity") + "-Ov" name)))) + (down (lambda (name stat result) #t)) + (up (lambda (name stat result) #t)) + (skip (lambda (name stat result) #t)) + (error (lambda (name stat errno result) #t))) (file-system-fold enter? leaf down up skip error #t ".")))))) |