Convert the audio to OGG

1 files changed, 14 insertions, 1 deletions

diff --git a/copirate/modules/copirate-site.scm b/copirate/modules/copirate-site.scm
index 21b5cb5..a0ebdd5 100644
--- a/copirate/modules/copirate-site.scm
+++ b/copirate/modules/copirate-site.scm
@@ -1,6 +1,7 @@
 (define-module (copirate modules copirate-site)
   #:use-module (guix gexp)
   #:use-module (guix modules)
+  #:use-module (gnu packages audio)
   #:use-module (gnu packages music)
   #:use-module (gnu packages imagemagick)
   #:export
@@ -43,4 +44,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 ".")))))))
+           (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 ".")))))))