Edit sample

src/overtone_midi/utils.clj

@@ -0,0 +1,5 @@
+(ns overtone-midi.utils)
+
+(defn call [^String nm & args]
+    (when-let [fun (ns-resolve *ns* (symbol nm))]
+        (apply fun args)))

src/user.clj

@@ -2,6 +2,8 @@
   (:require [clojure.tools.namespace.repl :refer :all]
             [clojure.java.io :as io]
             [clojure.edn :as edn]
+            [clojure.repl :refer [dir-fn]]
+            [overtone-midi.utils :as utils]
             [overtone-midi.parser :refer [read-and-parse-midi]]
             [overtone-midi.transcriber :refer [to-code]]))
 
@@ -48,17 +50,46 @@
   []
   (println "List resources? Y/n ")
    (if-not (= (read-line) "n")
-      (doall (map println (midis-resources)))))
+     (doall (map println (midis-resources)))))
+
+(defn- test-transcription
+  [{:keys [file-name]} ]
+  (println "Play sample? Y/n")
+  (if-not (= (read-line) "n")
+    (do
+      (refresh)
+      (let [namespace (str "overtone-midi." file-name)
+            number (dec (count (dir-fn (symbol namespace))))]
+        (println namespace number)
+        (utils/call (str namespace "/sample-" number))))))
+
+
+
+(defn- set-configuration
+  [config midi-events]
+  (select-tempo config)
+  (select-bounds config (count midi-events))
+  (to-code (assoc @config :midi-events
+                      (take (:upper-bound @config)
+                            (drop (:lower-bound @config) midi-events))))
+  (test-transcription @config))
+
+(defn edit-sample
+  [config midi-events]
+  (println "Wanna edit sample? Y/n")
+  (if-not (= (read-line) "n")
+    (do
+      (let [namespace (str "overtone-midi." (:file-name @config))
+            number (dec (count (dir-fn (symbol namespace))))]
+        (ns-unmap (symbol namespace) (symbol (str "sample-" number)))
+        (set-configuration config midi-events)
+        (edit-sample config midi-events)) )))
 
 (defn midi2code
   []
   (list-resources)
   (let [config      (atom {})]
     (select-name config)
     (let [midi-events (read-and-parse-midi (:file-name @config))]
-      (select-tempo config)
-      (select-bounds config (count midi-events))
-      (to-code (assoc @config :midi-events
-                      (take (:upper-bound @config)
-                            (drop (:lower-bound @config) midi-events)))))))
-
+      (set-configuration config midi-events)
+      (edit-sample config midi-events))))