From c8813e2b4da15192310fbb89f15cc02c54f66d2b Mon Sep 17 00:00:00 2001
From: Jake Zerrer <him@jakezerrer.com>
Date: Thu, 6 Nov 2025 11:14:46 -0500
Subject: Move scratch.clj to dev

---
 dev/scratch.clj | 27 +++++++++++++++++++++++++++
 src/scratch.clj | 24 ------------------------
 2 files changed, 27 insertions(+), 24 deletions(-)
 create mode 100644 dev/scratch.clj
 delete mode 100644 src/scratch.clj

diff --git a/dev/scratch.clj b/dev/scratch.clj
new file mode 100644
index 0000000..9459c81
--- /dev/null
+++ b/dev/scratch.clj
@@ -0,0 +1,27 @@
+(ns scratch
+  (:require [unheard.midi :as midi]
+            [unheard.midi.percussion :refer [kick snare]]
+            [unheard.clock :refer [clock]]
+            [unheard.theory :refer [note poly]]
+            [missionary.core :as m]))
+
+#_(print-all-midi-devices)
+
+(def midi-keyboard  "CoreMIDI4J - Minilab3 MIDI")
+
+
+(def run
+  (midi/<bus midi-keyboard
+             (fn [v]
+               (m/ap
+                 ;; 2 is the number of message types, e.g. :key
+                (let [[t f] (m/?> 2 (midi/keyboard v))]
+                  [t (rest (m/?< f))])))))
+
+#_
+(def cancel
+  (run prn prn))
+
+#_
+(cancel)
+
diff --git a/src/scratch.clj b/src/scratch.clj
deleted file mode 100644
index 7c305aa..0000000
--- a/src/scratch.clj
+++ /dev/null
@@ -1,24 +0,0 @@
-(ns scratch
-  (:require [unheard.midi :as midi]
-            [unheard.midi.percussion :refer [kick snare]]
-            [missionary.core :as m]))
-
-#_(print-all-midi-devices)
-
-(def midi-keyboard  "CoreMIDI4J - Minilab3 MIDI")
-
-(def run
-  (midi/<bus midi-keyboard
-             (fn [v]
-               (m/ap
-                 ;; 2 is the number of message types, e.g. :key
-                (let [[t f] (m/?> 2 (midi/keyboard v))]
-                  [t (rest (m/?< f))])))))
-
-#_
-(def cancel
-  (run prn prn))
-
-#_
-(cancel)
-
-- 
cgit v1.2.3