module Dialog.AddIncome.View exposing ( button ) import Html exposing (..) import Html.Attributes exposing (..) import Html.Events exposing (..) import Html.App as Html import Task import Form exposing (Form) import Form.Field as Field exposing (Field) import Utils.Form as Form import Dialog import Dialog.AddIncome.Model as AddIncome import Dialog.Msg as DialogMsg import Tooltip import View.Form as Form import View.Events exposing (onSubmitPrevDefault) import Msg exposing (Msg) import LoggedIn.Msg as LoggedInMsg import LoggedIn.Home.Msg as HomeMsg import Model.Translations exposing (getMessage) import Model.View exposing (View(LoggedInView)) import LoggedData exposing (LoggedData) import LoggedIn.Home.Model as HomeModel button : String -> LoggedData -> List (String, Field) -> String -> Html Msg -> Maybe String -> Html Msg button className loggedData initialForm title buttonContent tooltip = let dialogConfig = { className = "incomeDialog" , title = getMessage loggedData.translations title , body = \model -> addIncomeForm loggedData model.addIncome , confirm = getMessage loggedData.translations "Confirm" , confirmMsg = submitForm << .addIncome , undo = getMessage loggedData.translations "Undo" } in Html.button ( ( case tooltip of Just message -> Tooltip.show Msg.Tooltip message Nothing -> [] ) ++ [ class className , onClick (Msg.Dialog <| Dialog.OpenWithUpdate dialogConfig (DialogMsg.AddIncomeMsg <| Form.Reset initialForm)) ] ) [ buttonContent ] addIncomeForm : LoggedData -> Form String AddIncome.Model -> Html Msg addIncomeForm loggedData addIncome = let htmlMap = Html.map (Msg.Dialog << Dialog.Update << DialogMsg.AddIncomeMsg) in Html.form [ onSubmitPrevDefault Msg.NoOp ] [ htmlMap <| Form.textInput loggedData.translations addIncome "income" "amount" , htmlMap <| Form.textInput loggedData.translations addIncome "income" "date" , Form.hiddenSubmit (submitForm addIncome) ] submitForm : Form String AddIncome.Model -> Msg submitForm addIncome = case Form.getOutput addIncome of Just data -> case data.id of Just incomeId -> Msg.Dialog <| Dialog.UpdateAndClose <| Msg.EditIncome incomeId data.amount data.date Nothing -> Msg.Dialog <| Dialog.UpdateAndClose <| Msg.CreateIncome data.amount data.date Nothing -> Msg.Dialog <| Dialog.Update <| DialogMsg.AddIncomeMsg <| Form.Submit