Code cleanup

src/overtone_midi/piano_midi.clj

@@ -68,16 +68,15 @@
   "Plays event on piano at specified time. "
 
   [{:keys [note velocity duration] :as event} time]
-  (println event)
-  (println "Plays " note " whith velocity " velocity " for "  (/ duration 1000 ) )
   (live/at time
     (piano
           :note note
           :velocity velocity
           :sustain (.floatValue (/ duration 1000) ))))
 
 (defn play-on-piano
-  "Plays sequence of events on piano."
+  "Plays sequence of events on piano.
+   Make it faster/slower by using tempo."
 
   ([events] (play-on-piano events 1))
   ([events tempo]
@@ -89,12 +88,11 @@
           next-time           (+ time in-between-time)]
       (when (not (nil? actuals))
         (do
-          (println "In between time " in-between-time)
           (doall
             (map #(live-piano % time) actuals))
           (recur next-time next (rest ev-rest))))))))
 
 
 (comment
   (def midif (midi "love-dream"))
-  (play-on-piano (take 300 (parse-midi midif))))
+  (play-on-piano (parse-midi midif))))

test/overtone_midi/core_test.clj

@@ -2,6 +2,4 @@
   (:require [clojure.test :refer :all]
             [overtone-midi.core :refer :all]))
 
-(deftest a-test
-  (testing "FIXME, I fail."
-    (is (= 0 1))))
+(deftest a-test)