yogsototh/freactive
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added touch events.

Browse source
This commit is contained in:
Aaron Craelius 2014-11-15 19:27:54 -05:00
parent 2fba293143
commit c0f144e556
4 changed files with 35 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
.gitignore vendored
View file

@ -9,3 +9,7 @@ pom.xml.asc
/.nrepl-port
\#*\#
*~
.idea
freactive.iml
out
.repl/

13
resources/public/index.html Normal file
View file

@ -0,0 +1,13 @@
<!DOCTYPE html>
<html>
<head lang="en">
<meta charset="UTF-8">
<title></title>
</head>
<body>
<div id="root"></div>
<script src="js/compiled/out/goog/base.js" type="text/javascript"></script>
<script src="js/compiled/app.js" type="text/javascript"></script>
<script type="text/javascript">goog.require("freactive.dom_perf");</script>
</body>
</html>

1
resources/public/js/.gitignore vendored Normal file
View file

@ -0,0 +1 @@
compiled/

23
test/freactive/dom_perf.cljs
View file

@ -23,13 +23,24 @@
(defonce init
(do
(dom/listen! js/window "mousemove" (fn [e]
(reset! mouse-x (.-clientX e))
(reset! mouse-y (.-clientY e))))
(dom/listen! js/window "mousemove"
(fn [e]
(reset! mouse-x (.-clientX e))
(reset! mouse-y (.-clientY e))))
(dom/listen! js/window "resize" (fn [e]
(reset! width (get-window-width))
(reset! height (get-window-height))))))
(dom/listen! js/window "resize"
(fn [e]
(reset! width (get-window-width))
(reset! height (get-window-height))))
(dom/listen! js/window "touchmove"
(fn [e]
(let [touches (.-touches e)]
(when (= 1 (alength touches))
(.preventDefault e)
(let [touch (aget touches 0)]
(reset! mouse-x (.-clientX touch))
(reset! mouse-y (.-clientY touch)))))))))
(defn circle [x y]
[:svg/circle {:cx x :cy y :r 2 :stroke "black" :fill "black"}])