Separate client and server watch

1 files changed, 40 insertions, 0 deletions

diff --git a/src/client/LoggedIn/Home/Model.elm b/src/client/LoggedIn/Home/Model.elm
new file mode 100644
index 0000000..ace1593
--- /dev/null
+++ b/src/client/LoggedIn/Home/Model.elm
@@ -0,0 +1,40 @@
+module LoggedIn.Home.Model exposing
+  ( Model
+  , Search
+  , init
+  , searchInitial
+  , validation
+  )
+
+import Form exposing (Form)
+import Form.Validate as Validate exposing (Validation)
+import Form.Field as Field exposing (Field)
+
+import Model.User exposing (Users, UserId)
+import Model.Payment as Payment exposing (PaymentId, Payments, Frequency(..))
+import Model.Payer exposing (Payers)
+
+type alias Model =
+  { currentPage : Int
+  , search : Form String Search
+  }
+
+type alias Search =
+  { name : Maybe String
+  , frequency : Frequency
+  }
+
+init : Model
+init =
+  { currentPage = 1
+  , search = Form.initial (searchInitial Punctual) validation
+  }
+
+searchInitial : Frequency -> List (String, Field)
+searchInitial frequency = [ ("frequency", Field.string (toString frequency)) ]
+
+validation : Validation String Search
+validation =
+  Validate.map2 Search
+    (Validate.field "name" (Validate.maybe Validate.string))
+    (Validate.field "frequency" Payment.validateFrequency)