Added arrow key handler

oc-elixir-elm · Jun 14, 2016 · ae350ec · ae350ec
1 parent ed83af3
commit ae350ec
Showing 1 changed file with 28 additions and 0 deletions.
diff --git a/Key.elm b/Key.elm
@@ -0,0 +1,28 @@
+module Key exposing (..)
+
+
+type Key
+    = ArrowLeft
+    | ArrowUp
+    | ArrowRight
+    | ArrowDown
+    | Unknown
+
+
+fromCode : Int -> Key
+fromCode keyCode =
+    case keyCode of
+        37 ->
+            ArrowLeft
+
+        38 ->
+            ArrowUp
+
+        39 ->
+            ArrowRight
+
+        40 ->
+            ArrowDown
+
+        _ ->
+            Unknown