From 166cd04e4b28770ede854dafc9ae30eae64102fe Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 28 Mar 2016 17:51:14 +0200
Subject: Create an empty but reachable user page

---
 src/client/elm/LoggedIn/Home/Account/Model.elm | 64 ++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 src/client/elm/LoggedIn/Home/Account/Model.elm

(limited to 'src/client/elm/LoggedIn/Home/Account/Model.elm')

diff --git a/src/client/elm/LoggedIn/Home/Account/Model.elm b/src/client/elm/LoggedIn/Home/Account/Model.elm
new file mode 100644
index 0000000..d8bf748
--- /dev/null
+++ b/src/client/elm/LoggedIn/Home/Account/Model.elm
@@ -0,0 +1,64 @@
+module LoggedIn.Home.Account.Model
+  ( Model
+  , IncomeEdition
+  , init
+  , initIncomeEdition
+  , getCurrentIncome
+  , validateIncome
+  ) where
+
+import Result as Result exposing (Result(..))
+import Dict
+import String
+
+import Utils.Dict exposing (mapValues)
+
+import Model.Translations exposing (..)
+import Model.Income exposing (..)
+import Model.User exposing (UserId)
+
+type alias Model =
+  { me : UserId
+  , incomes : Incomes
+  , visibleDetail : Bool
+  , incomeEdition : Maybe IncomeEdition
+  }
+
+init : UserId -> Incomes -> Model
+init me incomes =
+  { me = me
+  , incomes = incomes
+  , visibleDetail = False
+  , incomeEdition = Nothing
+  }
+
+getCurrentIncome : Model -> Maybe Int
+getCurrentIncome account =
+  account.incomes
+    |> Dict.filter (\_ income -> income.userId == account.me)
+    |> Dict.values
+    |> List.sortBy .creation
+    |> List.reverse
+    |> List.head
+    |> Maybe.map .amount
+
+type alias IncomeEdition =
+  { income : String
+  , error : Maybe String
+  }
+
+initIncomeEdition : Int -> IncomeEdition
+initIncomeEdition income =
+  { income = toString income
+  , error = Nothing
+  }
+
+validateIncome : String -> Translations -> Result String Int
+validateIncome amount translations =
+  case String.toInt amount of
+    Ok number ->
+      if number > 0
+        then Ok number
+        else Err <| getMessage "IncomeMustBePositiveNumber" translations
+    Err _ ->
+      Err <| getMessage "IncomeRequired" translations
-- 
cgit v1.2.3