31 lines
948 B
Clojure
31 lines
948 B
Clojure
(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)}))
|
|
|