Support creating Trips from the frontend
*sigh* ... spent way too much time encoding/decoding date types... I need my database, server, client, and JSON need to agree on types. TL;DR: - Add CSS for elm/datepicker library - Create Common.allErrors to display UI errors - Prefer Data.Time.Calendar.Day instead of newtype Date wrapper around Text
This commit is contained in:
parent
54eb29eae0
commit
249e3113ff
10 changed files with 534 additions and 115 deletions
|
|
@ -1,5 +1,7 @@
|
|||
module UI exposing (..)
|
||||
|
||||
import Date
|
||||
import DatePicker exposing (defaultSettings)
|
||||
import Html exposing (..)
|
||||
import Html.Attributes exposing (..)
|
||||
import Html.Events exposing (..)
|
||||
|
|
@ -284,3 +286,26 @@ absentData { handleFetch } =
|
|||
}
|
||||
]
|
||||
]
|
||||
|
||||
|
||||
datePicker :
|
||||
{ mDate : Maybe Date.Date
|
||||
, prompt : String
|
||||
, prefix : String
|
||||
, picker : DatePicker.DatePicker
|
||||
, onUpdate : DatePicker.Msg -> State.Msg
|
||||
}
|
||||
-> Html State.Msg
|
||||
datePicker { mDate, prompt, prefix, picker, onUpdate } =
|
||||
let
|
||||
settings =
|
||||
{ defaultSettings
|
||||
| placeholder = prompt
|
||||
, inputClassList =
|
||||
[ ( "text-center", True )
|
||||
, ( "py-2", True )
|
||||
]
|
||||
}
|
||||
in
|
||||
div [ [ "w-1/2", "py-4", "mx-auto" ] |> Tailwind.use |> class ]
|
||||
[ DatePicker.view mDate settings picker |> Html.map onUpdate ]
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue