playing midi notes from overtone to ableton, reason, etc. using MIDI Patchbay

midijam.clj

;; http://notahat.com/midi_patchbay/
;; Create a virtual input and virtual output in MIDI patchbay
;; input name: "Overtone"
;; output name: "yourchoice"

;; In Reason, Ableton, etc. select "yourchoice"
;; as the midi input for a channel.

(ns jam.core
  (:use [overtone.live]))

(def device-name "Overtone")

(def midi-out
  (->> (midi-connected-receivers)
       (filter #(= device-name (:name %)))
       (first)))

(defn play-mary-had-a-little-lamb! []
  (doseq [note [68 66 64 66 68 68 68
                66 66 66 68 71 71
                68 66 64 66 68 68 68
                66 66 68 66 64]]
    (midi-note midi-out note 127 500)
    (Thread/sleep 500)))

(play-mary-had-a-little-lamb!)