ClojureScript code for accessing the Karotz toy rabbit

core.cljs

(ns clojurekarotz.core
  (:require [clojurekarotz.util :as u]))

(def quit (fn [event] (if (= event "TERMINATED") (js/exit))))

(defn onKarotzConnect [data]
  (.moveRelative (.-ears js/karotz) 5 -5 (fn [_]))
  (.start (.-tts js/karotz) "Buenos dias Clojure. Como estas? Tienes animales?" "es" quit))
(.connectAndStart js/karotz "192.168.1.13" 9123 onKarotzConnect (js-obj))

externs.js

var karotz = {};
karotz.connect = function() {};
karotz.start = function() {};
karotz.ears = function() {};
karotz.ears.moveRelative = function() {};
karotz.tts = function() {};
karotz.tts.start = function() {};

project.clj

(defproject clojurekarotz "1.0.0-SNAPSHOT"
  :description "FIXME: write description"
  :plugins [[lein-cljsbuild "0.1.6"]]
  :dependencies [[org.clojure/clojure "1.3.0"]]
  :cljsbuild {
              :builds [
                       {:source-path "src"
                        :compiler {:output-to "main.js"
                                   :optimizations :advanced
                                   :pretty-print false
                                   :externs ["externs.js"]}}]})

util.cljs

(ns clojurekarotz.util)

(set! (.-connectAndStart js/karotz)
      (fn [host port callback data]
        (try
          (.connect js/karotz host port)
          (js/log "connected")
          (.start js/karotz callback data)
          (catch js/Error e
              (js/log e)))))