(ns sliva.pages.gibanica
  (:require [reagent.core :as reagent]
            [sliva.data :refer [appstate]]
            [sliva.pages.navigation :refer [navigation]]
            [sliva.socket :refer [send-message]]))

(defn motion-track [event]
  (let [pospesek (.-acceleration event)
        gibX (.-x pospesek)
        gibY (.-y pospesek)
        gibZ (.-z pospesek)
        cas (-> (js/Date.)
                (.valueOf))]
    (send-message "gibanica" cas gibX gibY gibZ)))

(defn start-motion-track []
  (.addEventListener js/window "devicemotion" motion-track))

(defn stop-motion-track []
  (.removeEventListener js/window "devicemotion" motion-track))

(defn gibanica []
  (reagent/create-class
   {:display-name "gibanica"
    :reagent-render (fn [] [:div
                           [:h1 "gibaj me!"]
                           [navigation]])
    :component-did-mount #(start-motion-track)
    :component-will-unmount #(stop-motion-track)}))