From 2abb8ffa46cbe86deedb9ddcbb9b042b51285feb Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 22 Mar 2015 12:53:55 +0100
Subject: Editing name first draft

---
 src/Model/Edition/TimeEdition.elm | 60 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 60 insertions(+)
 create mode 100644 src/Model/Edition/TimeEdition.elm

(limited to 'src/Model/Edition/TimeEdition.elm')

diff --git a/src/Model/Edition/TimeEdition.elm b/src/Model/Edition/TimeEdition.elm
new file mode 100644
index 0000000..6999b25
--- /dev/null
+++ b/src/Model/Edition/TimeEdition.elm
@@ -0,0 +1,60 @@
+module Model.Edition.TimeEdition
+  ( keyCodeToChar
+  , toTime
+  , toMinutesAndSeconds
+  ) where
+
+import Time (Time)
+import List
+import Array
+import String
+import Keyboard (KeyCode)
+
+import Utils.List (..)
+import Utils.Maybe (..)
+
+keyCodeToChar : KeyCode -> Maybe Char
+keyCodeToChar code =
+  List.map (flip keyCodeToCharFromZero code) zeroKeyCodes
+    |> List.foldl orElse Nothing
+
+zeroKeyCodes = [48, 96]
+
+keyCodeToCharFromZero : KeyCode -> KeyCode -> Maybe Char
+keyCodeToCharFromZero zero code =
+  let nine = zero + 9
+  in  if code >= zero && code <= nine
+        then ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9']
+               |> Array.fromList
+               |> Array.get (code - zero)
+        else Nothing
+
+toTime : List Char -> Time
+toTime numbers =
+  numbers
+    |> toMinutesAndSeconds
+    |> \(a, b) -> (stringToInt a, stringToInt b)
+    |> \(minutes, seconds) -> (toFloat minutes) * 60 * 1000 + (toFloat seconds) * 1000
+
+toMinutesAndSeconds : List Char -> (String, String)
+toMinutesAndSeconds numbers =
+  numbers
+    |> List.take 4
+    |> List.reverse
+    |> completeBegin '0' 4
+    |> splitAt 2
+    |> \(a, b) -> (String.fromList a, String.fromList b)
+
+completeBegin : a -> Int -> List a -> List a
+completeBegin x count xs =
+  let length = List.length xs
+  in  List.append (repeat (count - length) x) xs
+
+stringToInt : String -> Int
+stringToInt str =
+  str
+    |> String.toInt
+    |> \res ->
+         case res of
+           Ok n -> n
+           Err _ -> 0
-- 
cgit v1.2.3