BigTom

require('./logo.svg');
elm = require('./App.elm');

var width = window.innerWidth;
var height = window.innerHeight;
var root = document.getElementById('root');

var app = elm.App.embed(root, { "width": width,
                                "height": height} );

BigTom

(defn dragging [local-state canvas]
  (fn [evt]
    (let [x-constraint #(gmath/clamp % 0 (.-clientWidth canvas))
          y-constraint #(gmath/clamp % 0 (.-clientHeight canvas))
          dx (-> evt .-dragger .-deltaX)
          dy (-> evt .-dragger .-deltaY)
          x (x-constraint dx)
          y (y-constraint dy)]
      (log "x:  " x " y:  " y)
      (emit :object-moved {:x x :y y}))))