OSC translation layer

osctranslation.clj

(ns oscplay.core)
(use 'overtone.osc)

(def PORT 8000)

(def mappings [{:from "/1/toggle1"
                :to   "/ardour/toggle1"}
               {:from "/1/toggle2"
                :to   "/ardour/toggle2"}])

(def server (osc-server PORT))
(def client (osc-client "localhost" PORT))

(map 
  (fn [mapping]
    (osc-handle server (:from mapping) 
                (fn [msg]
                    (osc-send client (:to mapping) (first (:args msg))))))
  mappings
  )