1 files changed, 46 insertions, 0 deletions
diff --git a/src/client/elm/LoggedIn/Income/Model.elm b/src/client/elm/LoggedIn/Income/Model.elm
new file mode 100644
index 0000000..fdfb964
--- /dev/null
+++ b/src/client/elm/LoggedIn/Income/Model.elm
@@ -0,0 +1,46 @@
+module LoggedIn.Income.Model
+  ( Model
+  , AddIncome
+  , init
+  ) where
+
+import String exposing (toInt, split)
+import Date exposing (Date)
+import Date.Utils exposing (dateFromFields)
+import Utils.Date exposing (numToMonth)
+
+import Form exposing (Form)
+import Form.Validate as Validate exposing (..)
+import Form.Error exposing (Error(InvalidString))
+
+type alias Model =
+  { addIncome : Form () AddIncome
+  }
+
+type alias AddIncome =
+  { creation : Date
+  , amount : Int
+  }
+
+init : Model
+init =
+  { addIncome = Form.initial [] validate
+  }
+
+validate : Validation () AddIncome
+validate =
+  form2 AddIncome
+    (get "creation" dateValidation)
+    (get "amount" (int `andThen` (minInt 1)))
+
+dateValidation : Validation () Date
+dateValidation =
+  customValidation string (\str ->
+    case split "/" str of
+      [day, month, year] ->
+        case (toInt day, toInt month, toInt year) of
+          (Ok dayNum, Ok monthNum, Ok yearNum) ->
+            Ok (dateFromFields yearNum (numToMonth monthNum) dayNum 0 0 0 0)
+          _ -> Err InvalidString
+      _ -> Err InvalidString
+  )