aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/View/LoggedIn
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/View/LoggedIn')
-rw-r--r--src/client/elm/View/LoggedIn/AddPayment.elm127
1 files changed, 0 insertions, 127 deletions
diff --git a/src/client/elm/View/LoggedIn/AddPayment.elm b/src/client/elm/View/LoggedIn/AddPayment.elm
deleted file mode 100644
index 010ecd3..0000000
--- a/src/client/elm/View/LoggedIn/AddPayment.elm
+++ /dev/null
@@ -1,127 +0,0 @@
-module View.LoggedIn.AddPayment
- ( addPayment
- ) where
-
-import Result exposing (..)
-import Signal exposing (Address)
-
-import Html as H exposing (..)
-import Html.Attributes exposing (..)
-import Html.Events exposing (..)
-
-import LoggedIn.Action as LoggedInAction
-import LoggedIn.Model as LoggedInModel
-
-import Model exposing (Model)
-import Model.Payment exposing (PaymentFrequency(..))
-import Model.Translations exposing (getMessage)
-import Model.Action as Action exposing (..)
-import Model.Action.AddPaymentAction exposing (..)
-
-import Model.View.LoggedIn.AddPayment exposing (..)
-
-import View.Events exposing (onSubmitPrevDefault)
-import View.Icon exposing (..)
-
-import Utils.Maybe exposing (isJust)
-import Utils.Either exposing (toMaybeError)
-
-addPayment : Address Action -> Model -> LoggedInModel.Model -> Html
-addPayment address model loggedInModel =
- H.form
- [ let update =
- if loggedInModel.add.waitingServer
- then
- Action.NoOp
- else
- UpdateLoggedIn <| LoggedInAction.AddPayment loggedInModel.add.name loggedInModel.add.cost loggedInModel.add.frequency
- in onSubmitPrevDefault address update
- , class "addPayment"
- ]
- [ addPaymentName address loggedInModel.add
- , addPaymentCost address model loggedInModel.add
- , paymentFrequency address model loggedInModel.add
- , button
- [ type' "submit"
- , classList
- [ ("add", True)
- , ("waitingServer", loggedInModel.add.waitingServer)
- ]
- ]
- [ text (getMessage "Add" model.translations)
- , if loggedInModel.add.waitingServer then renderSpinIcon else text ""
- ]
- ]
-
-addPaymentName : Address Action -> AddPayment -> Html
-addPaymentName address addPayment =
- div
- [ classList
- [ ("name", True)
- , ("error", isJust addPayment.nameError)
- ]
- ]
- [ input
- [ id "nameInput"
- , value addPayment.name
- , on "input" targetValue (Signal.message address << UpdateLoggedIn << LoggedInAction.UpdateAdd << UpdateName)
- , maxlength 20
- ]
- []
- , label
- [ for "nameInput" ]
- [ renderIcon "shopping-cart" ]
- , case addPayment.nameError of
- Just error ->
- div [ class "errorMessage" ] [ text error ]
- Nothing ->
- text ""
- ]
-
-addPaymentCost : Address Action -> Model -> AddPayment -> Html
-addPaymentCost address model addPayment =
- div
- [ classList
- [ ("cost", True)
- , ("error", isJust addPayment.costError)
- ]
- ]
- [ input
- [ id "costInput"
- , value addPayment.cost
- , on "input" targetValue (Signal.message address << UpdateLoggedIn << LoggedInAction.UpdateAdd << UpdateCost)
- , maxlength 7
- ]
- []
- , label
- [ for "costInput" ]
- [ text model.conf.currency ]
- , case addPayment.costError of
- Just error ->
- div [ class "errorMessage" ] [ text error ]
- Nothing ->
- text ""
- ]
-
-paymentFrequency : Address Action -> Model -> AddPayment -> Html
-paymentFrequency address model addPayment =
- button
- [ type' "button"
- , class "frequency"
- , onClick address (UpdateLoggedIn << LoggedInAction.UpdateAdd <| ToggleFrequency)
- ]
- [ div
- [ classList
- [ ("punctual", True)
- , ("selected", addPayment.frequency == Punctual)
- ]
- ]
- [ text (getMessage "Punctual" model.translations) ]
- , div
- [ classList
- [ ("monthly", True)
- , ("selected", addPayment.frequency == Monthly)
- ]
- ]
- [ text (getMessage "Monthly" model.translations) ]
- ]