Save search query state

For when coming back from detail view.
This commit is contained in:
Eike Kettner 2020-01-03 00:22:07 +01:00
parent 9a300e213d
commit 6eaac50e63
4 changed files with 35 additions and 7 deletions

View File

@ -29,6 +29,7 @@ type alias Model =
, formError : Maybe String
, loading : Bool
, deleteConfirm : Comp.YesNoDimmer.Model
, query : String
}
@ -45,6 +46,7 @@ emptyModel =
, formError = Nothing
, loading = False
, deleteConfirm = Comp.YesNoDimmer.emptyModel
, query = ""
}
@ -188,7 +190,11 @@ update flags msg model =
( { model | deleteConfirm = cm }, cmd )
SetQuery str ->
( model, Api.getEquipments flags str EquipmentResp )
let
m =
{ model | query = str }
in
( m, Api.getEquipments flags str EquipmentResp )
view : Model -> Html Msg
@ -210,6 +216,7 @@ viewTable model =
[ input
[ type_ "text"
, onInput SetQuery
, value model.query
, placeholder "Search"
]
[]

View File

@ -29,6 +29,7 @@ type alias Model =
, formError : Maybe String
, loading : Bool
, deleteConfirm : Comp.YesNoDimmer.Model
, query : String
}
@ -45,6 +46,7 @@ emptyModel =
, formError = Nothing
, loading = False
, deleteConfirm = Comp.YesNoDimmer.emptyModel
, query = ""
}
@ -102,7 +104,7 @@ update flags msg model =
( { model | formModel = m2 }, Cmd.map FormMsg c2 )
LoadOrgs ->
( { model | loading = True }, Api.getOrganizations flags "" OrgResp )
( { model | loading = True }, Api.getOrganizations flags model.query OrgResp )
OrgResp (Ok orgs) ->
let
@ -188,7 +190,11 @@ update flags msg model =
( { model | deleteConfirm = cm }, cmd )
SetQuery str ->
( model, Api.getOrganizations flags str OrgResp )
let
m =
{ model | query = str }
in
( m, Api.getOrganizations flags str OrgResp )
view : Model -> Html Msg
@ -210,6 +216,7 @@ viewTable model =
[ input
[ type_ "text"
, onInput SetQuery
, value model.query
, placeholder "Search"
]
[]

View File

@ -29,6 +29,7 @@ type alias Model =
, formError : Maybe String
, loading : Bool
, deleteConfirm : Comp.YesNoDimmer.Model
, query : String
}
@ -45,6 +46,7 @@ emptyModel =
, formError = Nothing
, loading = False
, deleteConfirm = Comp.YesNoDimmer.emptyModel
, query = ""
}
@ -102,7 +104,7 @@ update flags msg model =
( { model | formModel = m2 }, Cmd.map FormMsg c2 )
LoadPersons ->
( { model | loading = True }, Api.getPersons flags "" PersonResp )
( { model | loading = True }, Api.getPersons flags model.query PersonResp )
PersonResp (Ok orgs) ->
let
@ -188,7 +190,11 @@ update flags msg model =
( { model | deleteConfirm = cm }, cmd )
SetQuery str ->
( model, Api.getPersons flags str PersonResp )
let
m =
{ model | query = str }
in
( m, Api.getPersons flags str PersonResp )
view : Model -> Html Msg
@ -210,6 +216,7 @@ viewTable model =
[ input
[ type_ "text"
, onInput SetQuery
, value model.query
, placeholder "Search"
]
[]

View File

@ -29,6 +29,7 @@ type alias Model =
, formError : Maybe String
, loading : Bool
, deleteConfirm : Comp.YesNoDimmer.Model
, query : String
}
@ -45,6 +46,7 @@ emptyModel =
, formError = Nothing
, loading = False
, deleteConfirm = Comp.YesNoDimmer.emptyModel
, query = ""
}
@ -102,7 +104,7 @@ update flags msg model =
( { model | tagFormModel = m2 }, Cmd.map FormMsg c2 )
LoadTags ->
( { model | loading = True }, Api.getTags flags "" TagResp )
( { model | loading = True }, Api.getTags flags model.query TagResp )
TagResp (Ok tags) ->
let
@ -188,7 +190,11 @@ update flags msg model =
( { model | deleteConfirm = cm }, cmd )
SetQuery str ->
( model, Api.getTags flags str TagResp )
let
m =
{ model | query = str }
in
( m, Api.getTags flags str TagResp )
view : Model -> Html Msg
@ -210,6 +216,7 @@ viewTable model =
[ input
[ type_ "text"
, onInput SetQuery
, value model.query
, placeholder "Search"
]
[]