TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-03-28 17:55:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

Save search query state

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
modules/webapp/src/main/elm/Comp/EquipmentManage.elm
View File

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

11
modules/webapp/src/main/elm/Comp/OrgManage.elm
View File

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

11
modules/webapp/src/main/elm/Comp/PersonManage.elm
View File

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

11
modules/webapp/src/main/elm/Comp/TagManage.elm
View File

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