Need mapthen to make the melody and bass easy.

ctford · May 25, 2013 · 23a3422 · 23a3422
1 parent ca8f3a4
commit 23a3422
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/jazz/standards/in_the_mood.clj b/src/jazz/standards/in_the_mood.clj
@@ -13,6 +13,8 @@
                   (- (timing (+ start duration)) (timing start)))))
        (where :time timing)))
 
+(defn mapthen [f notes] (->> notes (map f) (reduce #(then %2 %1))))
+
 (defmethod play-note :beat [note] ((sample (freesound-path 802))))
 (defmethod play-note :default [{midi :pitch, start :time, duration :duration}]
   (let [id (sampled-piano midi)]