3 files changed, 1 insertions, 31 deletions
diff --git a/src/unheard/midi_util.clj b/src/unheard/midi_util.clj
deleted file mode 100644
index 382fe87..0000000
--- a/src/unheard/midi_util.clj
+++ /dev/null
@@ -1,4 +0,0 @@
-(ns unheard.midi-util)
-
-(defn control-message? [msg-type]
-  (= :control msg-type))
diff --git a/src/unheard/theory.clj b/src/unheard/theory.clj
index e7ed9eb..5314ea7 100644
--- a/src/unheard/theory.clj
+++ b/src/unheard/theory.clj
@@ -2,7 +2,6 @@
   (:require [missionary.core :as m]
             [unheard.time-object :refer
              [time-object lift phrase timeline point-query]]
-            [clojure.set :refer [union]]
             [unheard.util.missionary :refer [reconcile-merge]]))
 
 (defn note
@@ -42,27 +41,3 @@
   (swap! c inc)
   (swap! v inc)
   (swap! v dec))
-
-(defn poly
-  [& notes]
-  (m/signal (m/cp (apply union (m/?< (apply m/latest vector notes))))))
-
-;; TODO: Group could actually wrap note, rather than using explicitly
-;; WIll introduce a lot of GC churn, though
-(defn group
-  [clock start end content]
-  (m/cp (let [content (m/signal content)]
-          (if (m/?< (m/latest #(<= start % end) clock))
-            (m/?< content)
-            (m/amb #{})))))
-
-;; TODO:
-;; - Note literals turn into numbers
-;; - Represent keyboard as byte array of shorts
-;; - play a note increments, stop a note decrements
-;; - Multiple instruments
-;; - Mapping inputs to vars
-;; - Inputs get declared at the top of a track
-;; - Devices get mapped to declared inputs
-;; - Notion of scenes that change mapping of inputs to vars
-;; - Loops
diff --git a/src/unheard/time_object.clj b/src/unheard/time_object.clj
index 89070f6..62e84b5 100644
--- a/src/unheard/time_object.clj
+++ b/src/unheard/time_object.clj
@@ -1,7 +1,6 @@
 (ns unheard.time-object
   (:require [missionary.core :as m]
-            [unheard.interval :as i]
-            [helins.interval.map :as imap]))
+            [unheard.interval :as i]))
 
 ;; TODO: Update description
 (defn time-object