aboutsummaryrefslogtreecommitdiff
path: root/src/client/View
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/View')
-rw-r--r--src/client/View/Date.elm59
-rw-r--r--src/client/View/Events.elm19
-rw-r--r--src/client/View/Expand.elm25
-rw-r--r--src/client/View/Header.elm36
-rw-r--r--src/client/View/Icon.elm12
-rw-r--r--src/client/View/Loading.elm8
-rw-r--r--src/client/View/LoggedIn.elm30
-rw-r--r--src/client/View/LoggedIn/Account.elm130
-rw-r--r--src/client/View/LoggedIn/Add.elm122
-rw-r--r--src/client/View/LoggedIn/Monthly.elm89
-rw-r--r--src/client/View/LoggedIn/Paging.elm100
-rw-r--r--src/client/View/LoggedIn/Table.elm97
-rw-r--r--src/client/View/Page.elm31
-rw-r--r--src/client/View/Price.elm38
-rw-r--r--src/client/View/SignIn.elm57
15 files changed, 0 insertions, 853 deletions
diff --git a/src/client/View/Date.elm b/src/client/View/Date.elm
deleted file mode 100644
index 81c5112..0000000
--- a/src/client/View/Date.elm
+++ /dev/null
@@ -1,59 +0,0 @@
-module View.Date
- ( renderShortDate
- , renderLongDate
- ) where
-
-import Date exposing (..)
-import String
-
-import Model.Translations exposing (..)
-
-renderShortDate : Date -> Translations -> String
-renderShortDate date translations =
- let params =
- [ String.pad 2 '0' (toString (Date.day date))
- , String.pad 2 '0' (toString (getMonthNumber (Date.month date)))
- , toString (Date.year date)
- ]
- in getParamMessage params "ShortDate" translations
-
-renderLongDate : Date -> Translations -> String
-renderLongDate date translations =
- let params =
- [ toString (Date.day date)
- , (getMessage (getMonthKey (Date.month date)) translations)
- , toString (Date.year date)
- ]
- in getParamMessage params "LongDate" translations
-
-getMonthNumber : Month -> Int
-getMonthNumber month =
- case month of
- Jan -> 1
- Feb -> 2
- Mar -> 3
- Apr -> 4
- May -> 5
- Jun -> 6
- Jul -> 7
- Aug -> 8
- Sep -> 9
- Oct -> 10
- Nov -> 11
- Dec -> 12
-
-getMonthKey : Month -> String
-getMonthKey month =
- case month of
- Jan -> "January"
- Feb -> "February"
- Mar -> "March"
- Apr -> "April"
- May -> "May"
- Jun -> "June"
- Jul -> "July"
- Aug -> "August"
- Sep -> "September"
- Oct -> "October"
- Nov -> "November"
- Dec -> "December"
diff --git a/src/client/View/Events.elm b/src/client/View/Events.elm
deleted file mode 100644
index 1eb9027..0000000
--- a/src/client/View/Events.elm
+++ /dev/null
@@ -1,19 +0,0 @@
-module View.Events
- ( onSubmitPrevDefault
- ) where
-
-import Signal
-import Json.Decode as Json
-import Html exposing (..)
-import Html.Events exposing (..)
-import Html.Attributes exposing (..)
-
-onSubmitPrevDefault : Signal.Address a -> a -> Attribute
-onSubmitPrevDefault address value =
- onWithOptions
- "submit"
- { defaultOptions | preventDefault <- True }
- Json.value
- (\_ ->
- Signal.message address value
- )
diff --git a/src/client/View/Expand.elm b/src/client/View/Expand.elm
deleted file mode 100644
index 53b4fe5..0000000
--- a/src/client/View/Expand.elm
+++ /dev/null
@@ -1,25 +0,0 @@
-module View.Expand
- ( expand
- , ExpandType(..)
- ) where
-
-import Html exposing (..)
-import Html.Attributes exposing (..)
-
-import View.Icon exposing (renderIcon)
-
-type ExpandType = ExpandUp | ExpandDown
-
-expand : ExpandType -> Bool -> Html
-expand expandType isExpanded =
- div
- [ class "expand" ]
- [ renderIcon (chevronIcon expandType isExpanded) ]
-
-chevronIcon : ExpandType -> Bool -> String
-chevronIcon expandType isExpanded =
- case (expandType, isExpanded) of
- (ExpandUp, True) -> "chevron-down"
- (ExpandUp, False) -> "chevron-up"
- (ExpandDown, True) -> "chevron-up"
- (ExpandDown, False) -> "chevron-down"
diff --git a/src/client/View/Header.elm b/src/client/View/Header.elm
deleted file mode 100644
index 9d31183..0000000
--- a/src/client/View/Header.elm
+++ /dev/null
@@ -1,36 +0,0 @@
-module View.Header
- ( renderHeader
- ) where
-
-import Html exposing (..)
-import Html.Attributes exposing (..)
-import Html.Events exposing (..)
-
-import ServerCommunication as SC
-import ServerCommunication exposing (serverCommunications)
-
-import Model exposing (Model)
-import Model.View exposing (..)
-import Model.Translations exposing (getMessage)
-
-import View.Icon exposing (renderIcon)
-
-renderHeader : Model -> Html
-renderHeader model =
- header
- []
- [ h1
- []
- [ text (getMessage "SharedCost" model.translations) ]
- , case model.view of
- LoadingView ->
- text ""
- SignInView _ ->
- text ""
- LoggedInView _ ->
- button
- [ class "signOut"
- , onClick serverCommunications.address SC.SignOut
- ]
- [ renderIcon "power-off" ]
- ]
diff --git a/src/client/View/Icon.elm b/src/client/View/Icon.elm
deleted file mode 100644
index f22c1a2..0000000
--- a/src/client/View/Icon.elm
+++ /dev/null
@@ -1,12 +0,0 @@
-module View.Icon
- ( renderIcon
- ) where
-
-import Html exposing (..)
-import Html.Attributes exposing (..)
-
-renderIcon : String -> Html
-renderIcon iconClass =
- i
- [ class <| "fa fa-fw fa-" ++ iconClass ]
- []
diff --git a/src/client/View/Loading.elm b/src/client/View/Loading.elm
deleted file mode 100644
index f8c6cd6..0000000
--- a/src/client/View/Loading.elm
+++ /dev/null
@@ -1,8 +0,0 @@
-module View.Loading
- ( renderLoading
- ) where
-
-import Html exposing (..)
-
-renderLoading : Html
-renderLoading = text ""
diff --git a/src/client/View/LoggedIn.elm b/src/client/View/LoggedIn.elm
deleted file mode 100644
index 96916e0..0000000
--- a/src/client/View/LoggedIn.elm
+++ /dev/null
@@ -1,30 +0,0 @@
-module View.LoggedIn
- ( renderLoggedIn
- ) where
-
-import Html exposing (..)
-import Html.Attributes exposing (..)
-
-import Model exposing (Model)
-import Model.Payment exposing (Payments)
-import Model.View.LoggedInView exposing (LoggedInView)
-
-import View.LoggedIn.Add exposing (addPayment)
-import View.LoggedIn.Monthly exposing (monthlyPayments)
-import View.LoggedIn.Account exposing (account)
-import View.LoggedIn.Table exposing (paymentsTable)
-import View.LoggedIn.Paging exposing (paymentsPaging)
-
-renderLoggedIn : Model -> LoggedInView -> Html
-renderLoggedIn model loggedInView =
- div
- [ class "loggedIn" ]
- [ addPayment model loggedInView
- , div
- [ class "expandables" ]
- [ account model loggedInView
- , monthlyPayments model loggedInView
- ]
- , paymentsTable model loggedInView
- , paymentsPaging loggedInView
- ]
diff --git a/src/client/View/LoggedIn/Account.elm b/src/client/View/LoggedIn/Account.elm
deleted file mode 100644
index 706f7cc..0000000
--- a/src/client/View/LoggedIn/Account.elm
+++ /dev/null
@@ -1,130 +0,0 @@
-module View.LoggedIn.Account
- ( account
- ) where
-
-import Html exposing (..)
-import Html as H exposing (..)
-import Html.Attributes exposing (..)
-import Html.Events exposing (..)
-import List
-
-import ServerCommunication as SC exposing (serverCommunications)
-
-import Update exposing (..)
-import Update.LoggedIn exposing (..)
-import Update.LoggedIn.Account exposing (..)
-
-import Model exposing (Model)
-import Model.User exposing (getUserName)
-import Model.Payer exposing (..)
-import Model.View.LoggedInView exposing (LoggedInView)
-import Model.Translations exposing (getParamMessage, getMessage)
-import Model.View.LoggedIn.Account exposing (..)
-
-import View.Expand exposing (..)
-import View.Price exposing (price)
-import View.Events exposing (onSubmitPrevDefault)
-
-import Utils.Either exposing (toMaybeError)
-
-account : Model -> LoggedInView -> Html
-account model loggedInView =
- let account = loggedInView.account
- in div
- [ classList
- [ ("account", True)
- , ("detail", account.visibleDetail)
- ]
- ]
- [ exceedingPayers model loggedInView
- , if account.visibleDetail
- then income model account
- else text ""
- ]
-
-exceedingPayers : Model -> LoggedInView -> Html
-exceedingPayers model loggedInView =
- button
- [ class "header"
- , onClick actions.address (UpdateLoggedIn << UpdateAccount <| ToggleDetail)
- ]
- ( (List.map (exceedingPayer model loggedInView) (getOrderedExceedingPayers model.currentTime loggedInView.account.payers))
- ++ [ expand ExpandDown loggedInView.account.visibleDetail ]
- )
-
-exceedingPayer : Model -> LoggedInView -> ExceedingPayer -> Html
-exceedingPayer model loggedInView payer =
- div
- [ class "exceedingPayer" ]
- [ span
- [ class "userName" ]
- [ payer.userId
- |> getUserName loggedInView.users
- |> Maybe.withDefault "−"
- |> text
- ]
- , span
- [ class "amount" ]
- [ text ("+ " ++ (price model payer.amount)) ]
- ]
-
-income : Model -> Account -> Html
-income model account =
- case account.incomeEdition of
- Just edition ->
- incomeEdition model account edition
- Nothing ->
- incomeRead model account
-
-incomeRead : Model -> Account -> Html
-incomeRead model account =
- div
- [ class "income" ]
- [ ( case getCurrentIncome account of
- Nothing ->
- text (getMessage "NoIncome" model.translations)
- Just income ->
- text (getParamMessage [price model income] "Income" model.translations)
- )
- , toggleIncomeEdition "editIncomeEdition" (getMessage "Edit" model.translations)
- ]
-
-incomeEdition : Model -> Account -> IncomeEdition -> Html
-incomeEdition model account edition =
- H.form
- [ case validateIncome edition.income model.translations of
- Ok validatedAmount ->
- onSubmitPrevDefault serverCommunications.address (SC.SetIncome model.currentTime validatedAmount)
- Err error ->
- onSubmitPrevDefault actions.address (UpdateLoggedIn << UpdateAccount << UpdateEditionError <| error)
- , class "income"
- ]
- [ label
- [ for "incomeInput" ]
- [ text (getMessage "NewIncome" model.translations) ]
- , input
- [ id "incomeInput"
- , value edition.income
- , on "input" targetValue (Signal.message actions.address << UpdateLoggedIn << UpdateAccount << UpdateIncomeEdition)
- , maxlength 10
- ]
- []
- , button
- [ type' "submit"
- , class "validateIncomeEdition"
- ]
- [ text (getMessage "Validate" model.translations) ]
- , toggleIncomeEdition "undoIncomeEdition" (getMessage "Undo" model.translations)
- , case edition.error of
- Just error -> div [ class "error" ] [ text error ]
- Nothing -> text ""
- ]
-
-toggleIncomeEdition : String -> String -> Html
-toggleIncomeEdition className name =
- button
- [ type' "button"
- , class className
- , onClick actions.address (UpdateLoggedIn << UpdateAccount <| ToggleIncomeEdition)
- ]
- [ text name ]
diff --git a/src/client/View/LoggedIn/Add.elm b/src/client/View/LoggedIn/Add.elm
deleted file mode 100644
index 572bdf6..0000000
--- a/src/client/View/LoggedIn/Add.elm
+++ /dev/null
@@ -1,122 +0,0 @@
-module View.LoggedIn.Add
- ( addPayment
- ) where
-
-import Html as H exposing (..)
-import Html.Attributes exposing (..)
-import Html.Events exposing (..)
-import Reads exposing (readInt)
-import Result exposing (..)
-
-import ServerCommunication as SC exposing (serverCommunications)
-
-import Update exposing (..)
-import Update.LoggedIn exposing (..)
-import Update.LoggedIn.Add exposing (..)
-
-import Model exposing (Model)
-import Model.View.LoggedIn.Add exposing (..)
-import Model.Translations exposing (getMessage)
-import Model.View.LoggedInView exposing (LoggedInView)
-
-import View.Events exposing (onSubmitPrevDefault)
-import View.Icon exposing (renderIcon)
-
-import Utils.Maybe exposing (isJust)
-import Utils.Either exposing (toMaybeError)
-
-addPayment : Model -> LoggedInView -> Html
-addPayment model loggedInView =
- H.form
- [ case (validateName loggedInView.add.name model.translations, validateCost loggedInView.add.cost model.translations) of
- (Ok name, Ok cost) ->
- let action =
- case loggedInView.add.frequency of
- Punctual -> SC.AddPayment loggedInView.account.me name cost
- Monthly -> SC.AddMonthlyPayment name cost
- in onSubmitPrevDefault serverCommunications.address action
- (resName, resCost) ->
- onSubmitPrevDefault actions.address (UpdateLoggedIn <| UpdateAdd <| AddError (toMaybeError resName) (toMaybeError resCost))
- , class "addPayment"
- ]
- [ addPaymentName loggedInView.add
- , addPaymentCost model loggedInView.add
- , paymentFrequency model loggedInView.add
- , button
- [ type' "submit"
- , class "add" ]
- [ text (getMessage "Add" model.translations)]
- ]
-
-addPaymentName : AddPayment -> Html
-addPaymentName addPayment =
- div
- [ classList
- [ ("name", True)
- , ("error", isJust addPayment.nameError)
- ]
- ]
- [ input
- [ id "nameInput"
- , value addPayment.name
- , on "input" targetValue (Signal.message actions.address << UpdateLoggedIn << UpdateAdd << UpdateName)
- , maxlength 20
- ]
- []
- , label
- [ for "nameInput" ]
- [ renderIcon "shopping-cart" ]
- , case addPayment.nameError of
- Just error ->
- div [ class "errorMessage" ] [ text error ]
- Nothing ->
- text ""
- ]
-
-addPaymentCost : Model -> AddPayment -> Html
-addPaymentCost model addPayment =
- div
- [ classList
- [ ("cost", True)
- , ("error", isJust addPayment.costError)
- ]
- ]
- [ input
- [ id "costInput"
- , value addPayment.cost
- , on "input" targetValue (Signal.message actions.address << UpdateLoggedIn << UpdateAdd << UpdateCost)
- , maxlength 7
- ]
- []
- , label
- [ for "costInput" ]
- [ text model.config.currency ]
- , case addPayment.costError of
- Just error ->
- div [ class "errorMessage" ] [ text error ]
- Nothing ->
- text ""
- ]
-
-paymentFrequency : Model -> AddPayment -> Html
-paymentFrequency model addPayment =
- button
- [ type' "button"
- , class "frequency"
- , onClick actions.address (UpdateLoggedIn << 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) ]
- ]
diff --git a/src/client/View/LoggedIn/Monthly.elm b/src/client/View/LoggedIn/Monthly.elm
deleted file mode 100644
index a274015..0000000
--- a/src/client/View/LoggedIn/Monthly.elm
+++ /dev/null
@@ -1,89 +0,0 @@
-module View.LoggedIn.Monthly
- ( monthlyPayments
- ) where
-
-import String
-
-import Html exposing (..)
-import Html.Attributes exposing (..)
-import Html.Events exposing (..)
-
-import Update exposing (..)
-import Update.LoggedIn exposing (..)
-import Update.LoggedIn.Monthly exposing (..)
-
-import Model exposing (Model)
-import Model.View.LoggedIn.Monthly exposing (Monthly)
-import Model.Payment exposing (Payments, Payment)
-import Model.View.LoggedInView exposing (LoggedInView)
-import Model.Translations exposing (getMessage, getParamMessage)
-
-import ServerCommunication as SC exposing (serverCommunications)
-
-import View.Icon exposing (renderIcon)
-import View.Expand exposing (..)
-import View.Price exposing (price)
-
-monthlyPayments : Model -> LoggedInView -> Html
-monthlyPayments model loggedInView =
- let monthly = loggedInView.monthly
- in if List.length monthly.payments == 0
- then
- text ""
- else
- div
- [ classList
- [ ("monthlyPayments", True)
- , ("detail", monthly.visibleDetail)
- ]
- ]
- [ monthlyCount model monthly
- , if monthly.visibleDetail then paymentsTable model loggedInView monthly else text ""
- ]
-
-monthlyCount : Model -> Monthly -> Html
-monthlyCount model monthly =
- let count = List.length monthly.payments
- total = List.sum << List.map .cost <| monthly.payments
- key = if count > 1 then "PluralMonthlyCount" else "SingularMonthlyCount"
- in button
- [ class "header"
- , onClick actions.address (UpdateLoggedIn << UpdateMonthly <| ToggleDetail)
- ]
- [ text (getParamMessage [toString count, price model total] key model.translations)
- , expand ExpandDown monthly.visibleDetail
- ]
-
-paymentsTable : Model -> LoggedInView -> Monthly -> Html
-paymentsTable model loggedInView monthly =
- div
- [ class "table" ]
- ( monthly.payments
- |> List.sortBy (String.toLower << .name)
- |> List.map (paymentLine model loggedInView)
- )
-
-paymentLine : Model -> LoggedInView -> Payment -> Html
-paymentLine model loggedInView payment =
- a
- [ classList
- [ ("row", True)
- , ("edition", loggedInView.paymentEdition == Just payment.id)
- ]
- , onClick actions.address (UpdateLoggedIn (ToggleEdit payment.id))
- ]
- [ div [ class "cell category" ] [ text (payment.name) ]
- , div
- [ classList
- [ ("cell cost", True)
- , ("refund", payment.cost < 0)
- ]
- ]
- [ text (price model payment.cost) ]
- , div
- [ class "cell delete"
- , onClick serverCommunications.address (SC.DeleteMonthlyPayment payment.id)
- ]
- [ button [] [ renderIcon "times" ]
- ]
- ]
diff --git a/src/client/View/LoggedIn/Paging.elm b/src/client/View/LoggedIn/Paging.elm
deleted file mode 100644
index 93d7f1d..0000000
--- a/src/client/View/LoggedIn/Paging.elm
+++ /dev/null
@@ -1,100 +0,0 @@
-module View.LoggedIn.Paging
- ( paymentsPaging
- ) where
-
-import Html exposing (..)
-import Html.Attributes exposing (..)
-import Html.Events exposing (..)
-
-import Model.View.LoggedInView exposing (..)
-import Model.Payment exposing (perPage)
-
-import ServerCommunication as SC exposing (serverCommunications)
-
-import Update exposing (..)
-import Update.LoggedIn exposing (..)
-
-import View.Icon exposing (renderIcon)
-
-showedPages : Int
-showedPages = 5
-
-paymentsPaging : LoggedInView -> Html
-paymentsPaging loggedInView =
- let maxPage = ceiling (toFloat loggedInView.paymentsCount / toFloat perPage)
- pages = truncatePages loggedInView.currentPage [1..maxPage]
- in if maxPage == 1
- then
- text ""
- else
- div
- [ class "pages" ]
- ( ( if loggedInView.currentPage > 1
- then [ firstPage, previousPage loggedInView ]
- else []
- )
- ++ ( List.map (paymentsPage loggedInView) pages)
- ++ ( if loggedInView.currentPage < maxPage
- then [ nextPage loggedInView, lastPage maxPage ]
- else []
- )
- )
-
-truncatePages : Int -> List Int -> List Int
-truncatePages currentPage pages =
- let totalPages = List.length pages
- showedLeftPages = ceiling ((toFloat showedPages - 1) / 2)
- showedRightPages = floor ((toFloat showedPages - 1) / 2)
- truncatedPages =
- if | currentPage < showedLeftPages ->
- [1..showedPages]
- | currentPage > totalPages - showedRightPages ->
- [(totalPages - showedPages)..totalPages]
- | otherwise ->
- [(currentPage - showedLeftPages)..(currentPage + showedRightPages)]
- in List.filter (flip List.member pages) truncatedPages
-
-firstPage : Html
-firstPage =
- button
- [ class "page"
- , onClick serverCommunications.address (SC.UpdatePage 1)
- ]
- [ renderIcon "fast-backward" ]
-
-previousPage : LoggedInView -> Html
-previousPage loggedInView =
- button
- [ class "page"
- , onClick serverCommunications.address (SC.UpdatePage (loggedInView.currentPage - 1))
- ]
- [ renderIcon "backward" ]
-
-nextPage : LoggedInView -> Html
-nextPage loggedInView =
- button
- [ class "page"
- , onClick serverCommunications.address (SC.UpdatePage (loggedInView.currentPage + 1))
- ]
- [ renderIcon "forward" ]
-
-lastPage : Int -> Html
-lastPage maxPage =
- button
- [ class "page"
- , onClick serverCommunications.address (SC.UpdatePage maxPage)
- ]
- [ renderIcon "fast-forward" ]
-
-paymentsPage : LoggedInView -> Int -> Html
-paymentsPage loggedInView page =
- let onCurrentPage = page == loggedInView.currentPage
- in button
- [ classList
- [ ("page", True)
- , ("current", onCurrentPage)
- ]
- , onClick serverCommunications.address <|
- if onCurrentPage then SC.NoCommunication else SC.UpdatePage page
- ]
- [ text (toString page) ]
diff --git a/src/client/View/LoggedIn/Table.elm b/src/client/View/LoggedIn/Table.elm
deleted file mode 100644
index f5a08b5..0000000
--- a/src/client/View/LoggedIn/Table.elm
+++ /dev/null
@@ -1,97 +0,0 @@
-module View.LoggedIn.Table
- ( paymentsTable
- ) where
-
-import Html exposing (..)
-import Html.Attributes exposing (..)
-import Html.Events exposing (..)
-import Dict exposing (..)
-
-import Date
-import Date exposing (Date)
-
-import String exposing (append)
-
-import Model exposing (Model)
-import Model.User exposing (getUserName)
-import Model.Payment exposing (..)
-import Model.View.LoggedInView exposing (LoggedInView)
-import Model.Translations exposing (getMessage)
-
-import ServerCommunication as SC exposing (serverCommunications)
-
-import Update exposing (..)
-import Update.LoggedIn exposing (..)
-
-import View.Icon exposing (renderIcon)
-import View.Date exposing (..)
-import View.Price exposing (price)
-
-paymentsTable : Model -> LoggedInView -> Html
-paymentsTable model loggedInView =
- div
- [ class "table" ]
- ( headerLine model :: paymentLines model loggedInView)
-
-headerLine : Model -> Html
-headerLine model =
- div
- [ class "header" ]
- [ div [ class "cell category" ] [ renderIcon "shopping-cart" ]
- , div [ class "cell cost" ] [ text model.config.currency ]
- , div [ class "cell user" ] [ renderIcon "user" ]
- , div [ class "cell date" ] [ renderIcon "calendar" ]
- , div [ class "cell" ] []
- ]
-
-paymentLines : Model -> LoggedInView -> List Html
-paymentLines model loggedInView =
- loggedInView.payments
- |> List.sortBy (Date.toTime << .creation)
- |> List.reverse
- |> List.map (paymentLine model loggedInView)
-
-paymentLine : Model -> LoggedInView -> Payment -> Html
-paymentLine model loggedInView payment =
- a
- [ classList
- [ ("row", True)
- , ("edition", loggedInView.paymentEdition == Just payment.id)
- ]
- , onClick actions.address (UpdateLoggedIn (ToggleEdit payment.id))
- ]
- [ div [ class "cell category" ] [ text payment.name ]
- , div
- [ classList
- [ ("cell cost", True)
- , ("refund", payment.cost < 0)
- ]
- ]
- [ text (price model payment.cost) ]
- , div
- [ class "cell user" ]
- [ payment.userId
- |> getUserName loggedInView.users
- |> Maybe.withDefault "−"
- |> text
- ]
- , div
- [ class "cell date" ]
- [ span
- [ class "shortDate" ]
- [ text (renderShortDate payment.creation model.translations) ]
- , span
- [ class "longDate" ]
- [ text (renderLongDate payment.creation model.translations) ]
- ]
- , if loggedInView.account.me == payment.userId
- then
- div
- [ class "cell delete" ]
- [ button
- [ onClick serverCommunications.address (SC.DeletePayment payment loggedInView.currentPage) ]
- [ renderIcon "times" ]
- ]
- else
- div [ class "cell" ] []
- ]
diff --git a/src/client/View/Page.elm b/src/client/View/Page.elm
deleted file mode 100644
index 763734d..0000000
--- a/src/client/View/Page.elm
+++ /dev/null
@@ -1,31 +0,0 @@
-module View.Page
- ( renderPage
- ) where
-
-import Html exposing (..)
-
-import Model exposing (Model)
-import Model.View exposing (..)
-
-import View.Header exposing (renderHeader)
-import View.Loading exposing (renderLoading)
-import View.SignIn exposing (renderSignIn)
-import View.LoggedIn exposing (renderLoggedIn)
-
-renderPage : Model -> Html
-renderPage model =
- div
- []
- [ renderHeader model
- , renderMain model
- ]
-
-renderMain : Model -> Html
-renderMain model =
- case model.view of
- LoadingView ->
- renderLoading
- SignInView signInView ->
- renderSignIn model signInView
- LoggedInView loggedInView ->
- renderLoggedIn model loggedInView
diff --git a/src/client/View/Price.elm b/src/client/View/Price.elm
deleted file mode 100644
index 286bcaa..0000000
--- a/src/client/View/Price.elm
+++ /dev/null
@@ -1,38 +0,0 @@
-module View.Price
- ( price
- ) where
-
-import String exposing (..)
-
-import Model exposing (Model)
-import Model.Translations exposing (getMessage)
-
-price : Model -> Int -> String
-price model amount =
- ( formatInt amount
- ++ " "
- ++ model.config.currency
- )
-
-formatInt : Int -> String
-formatInt n =
- abs n
- |> toString
- |> toList
- |> List.reverse
- |> group 3
- |> List.intersperse [' ']
- |> List.concat
- |> List.reverse
- |> fromList
- |> append (if n < 0 then "-" else "")
-
-group : Int -> List a -> List (List a)
-group n xs =
- if List.length xs <= n
- then
- [xs]
- else
- let take = List.take n xs
- drop = List.drop n xs
- in take :: (group n drop)
diff --git a/src/client/View/SignIn.elm b/src/client/View/SignIn.elm
deleted file mode 100644
index 2a6cbca..0000000
--- a/src/client/View/SignIn.elm
+++ /dev/null
@@ -1,57 +0,0 @@
-module View.SignIn
- ( renderSignIn
- ) where
-
-import Html as H exposing (..)
-import Html.Attributes exposing (..)
-import Html.Events exposing (..)
-
-import Json.Decode as Json
-
-import Update exposing (..)
-import Update.SignIn exposing (..)
-
-import ServerCommunication as SC
-import ServerCommunication exposing (serverCommunications)
-
-import Model exposing (Model)
-import Model.View.SignInView exposing (..)
-import Model.Translations exposing (getMessage)
-
-import View.Events exposing (onSubmitPrevDefault)
-
-renderSignIn : Model -> SignInView -> Html
-renderSignIn model signInView =
- div
- [ class "signIn" ]
- [ H.form
- [ onSubmitPrevDefault serverCommunications.address (SC.SignIn signInView.login) ]
- [ input
- [ value signInView.login
- , on "input" targetValue (Signal.message actions.address << UpdateSignIn << UpdateLogin)
- ]
- []
- , button
- []
- [ text (getMessage "SignIn" model.translations)]
- ]
- , div
- [ class "result" ]
- [ signInResult model signInView ]
- ]
-
-signInResult : Model -> SignInView -> Html
-signInResult model signInView =
- case signInView.result of
- Just result ->
- case result of
- Ok login ->
- div
- [ class "success" ]
- [ text (getMessage "SignInEmailSent" model.translations) ]
- Err error ->
- div
- [ class "error" ]
- [ text error ]
- Nothing ->
- text ""
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-23 01:35:15 +0000