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/TimerEdition.elm | 77 ----------------------------------------------
 1 file changed, 77 deletions(-)
 delete mode 100644 src/Model/TimerEdition.elm

(limited to 'src/Model/TimerEdition.elm')

diff --git a/src/Model/TimerEdition.elm b/src/Model/TimerEdition.elm
deleted file mode 100644
index 2ec98b7..0000000
--- a/src/Model/TimerEdition.elm
+++ /dev/null
@@ -1,77 +0,0 @@
-module Model.TimerEdition
-  ( TimerEdition
-  , Numbers
-  , newTimerEdition
-  , keyCodeToNumberChar
-  , toTime
-  , toMinutesAndSeconds
-  ) where
-
-import Time (Time)
-import List
-import Array
-import String
-import Keyboard (KeyCode)
-
-import Model.Id (..)
-
-import Utils.List (..)
-import Utils.Maybe (..)
-
-type alias TimerEdition =
-  { id : Id
-  , numbers : Numbers
-  }
-
-type alias Numbers = List Char
-
-newTimerEdition id =
-  { id = id
-  , numbers = []
-  }
-
-keyCodeToNumberChar : KeyCode -> Maybe Char
-keyCodeToNumberChar 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 : Numbers -> Time
-toTime numbers =
-  numbers
-    |> toMinutesAndSeconds
-    |> \(a, b) -> (stringToInt a, stringToInt b)
-    |> \(minutes, seconds) -> (toFloat minutes) * 60 * 1000 + (toFloat seconds) * 1000
-
-toMinutesAndSeconds : Numbers -> (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