Add the clone functionality on payments

1 files changed, 12 insertions, 3 deletions

diff --git a/src/client/elm/Dialog/Model.elm b/src/client/elm/Dialog/Model.elm
index 2ac4591..6256fea 100644
--- a/src/client/elm/Dialog/Model.elm
+++ b/src/client/elm/Dialog/Model.elm
@@ -3,6 +3,7 @@ module Dialog.Model exposing
   , AddPayment
   , init
   , addPaymentInitial
+  , clonePaymentInitial
   )
 
 import Date exposing (Date)
@@ -13,7 +14,7 @@ import Form.Field as Field exposing (Field)
 import Form.Validate as Validate exposing (Validation)
 import Validation
 
-import Model.Payment as Payment
+import Model.Payment as Payment exposing (Payment, Frequency)
 import Model.Translations exposing (Translations)
 
 type alias Model =
@@ -24,7 +25,7 @@ type alias AddPayment =
   { name : String
   , cost : Int
   , date : Date
-  , frequency : Payment.Frequency
+  , frequency : Frequency
   }
 
 init : Model
@@ -32,12 +33,20 @@ init =
   { addPayment = Form.initial [] addPaymentValidation
   }
 
-addPaymentInitial : Translations -> Date -> Payment.Frequency -> List (String, Field)
+addPaymentInitial : Translations -> Date -> Frequency -> List (String, Field)
 addPaymentInitial translations date frequency =
   [ ("date", Field.Text (Date.shortView date translations))
   , ("frequency", Field.Radio (toString frequency))
   ]
 
+clonePaymentInitial : Translations -> Date -> Payment -> List (String, Field)
+clonePaymentInitial translations date payment =
+  [ ("name", Field.Text payment.name)
+  , ("cost", Field.Text (toString payment.cost))
+  , ("date", Field.Text (Date.shortView date translations))
+  , ("frequency", Field.Radio (toString payment.frequency))
+  ]
+
 addPaymentValidation : Validation String AddPayment
 addPaymentValidation =
   Validate.form4 AddPayment