1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
module View.Payment.HeaderForm
( view
, In(..)
, Out(..)
) where
import qualified Data.Map as M
import Data.Text (Text)
import qualified Data.Validation as V
import Reflex.Dom (Dynamic, Event, MonadWidget)
import qualified Reflex.Dom as R
import Common.Model (Category, Currency, Frequency (..),
Income (..), Payment (..), User (..))
import qualified Common.Msg as Msg
import qualified Component.Button as Button
import qualified Component.Input as Input
import qualified Component.Modal as Modal
import qualified Component.Select as Select
import qualified View.Payment.Form as Form
data In t = In
{ _in_reset :: Event t ()
, _in_categories :: [Category]
}
data Out t = Out
{ _out_search :: Event t Text
, _out_frequency :: Event t Frequency
, _out_addPayment :: Event t Payment
}
view :: forall t m. MonadWidget t m => In t -> m (Out t)
view input =
R.divClass "g-PaymentHeaderForm" $ do
(searchName, frequency) <- R.el "div" $ do
searchName <- Input._out_raw <$> (Input.view
( Input.defaultIn { Input._in_label = Msg.get Msg.Search_Name })
("" <$ _in_reset input)
R.never)
let frequencies = M.fromList
[ (Punctual, Msg.get Msg.Payment_PunctualMale)
, (Monthly, Msg.get Msg.Payment_MonthlyMale)
]
frequency <- Select._out_raw <$> (Select.view $ Select.In
{ Select._in_label = ""
, Select._in_initialValue = Punctual
, Select._in_value = R.never
, Select._in_values = R.constDyn frequencies
, Select._in_reset = R.never
, Select._in_isValid = V.Success
, Select._in_validate = R.never
})
return (searchName, frequency)
addPaymentButton <- Button._out_clic <$>
(Button.view $
(Button.defaultIn (R.text $ Msg.get Msg.Payment_Add))
{ Button._in_class = R.constDyn "addPayment"
})
addPayment <- Modal.view $ Modal.In
{ Modal._in_show = addPaymentButton
, Modal._in_content =
Form.view $ Form.In
{ Form._in_categories = _in_categories input
, Form._in_operation = Form.New frequency
}
}
return $ Out
{ _out_search = R.updated searchName
, _out_frequency = R.updated frequency
, _out_addPayment = addPayment
}
|
