module Dialog.Model exposing ( Model , AddPayment , init , addPaymentInitial , clonePaymentInitial , editPaymentInitial ) import Date exposing (Date) import View.Date as Date import Form exposing (Form) import Form.Field as Field exposing (Field) import Form.Validate as Validate exposing (Validation) import Validation import Model.Payment as Payment exposing (Payment, Frequency, PaymentId) import Model.Translations exposing (Translations) type alias Model = { addPayment : Form String AddPayment } type alias AddPayment = { id : Maybe PaymentId , name : String , cost : Int , date : Date , frequency : Frequency } init : Model init = { addPayment = Form.initial [] addPaymentValidation } 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)) ] editPaymentInitial : Translations -> Payment -> List (String, Field) editPaymentInitial translations payment = [ ("id", Field.Text (toString payment.id)) , ("name", Field.Text payment.name) , ("cost", Field.Text (toString payment.cost)) , ("date", Field.Text (Date.shortView payment.date translations)) , ("frequency", Field.Radio (toString payment.frequency)) ] addPaymentValidation : Validation String AddPayment addPaymentValidation = Validate.form5 AddPayment (Validate.get "id" (Validate.maybe Validate.int)) (Validate.get "name" (Validate.string `Validate.andThen` (Validate.nonEmpty))) (Validate.get "cost" (Validate.int `Validate.andThen` (Validate.minInt 1))) (Validate.get "date" Validation.date) (Validate.get "frequency" Payment.validateFrequency)