mirror of
				https://github.com/TheAnachronism/docspell.git
				synced 2025-10-30 21:40:12 +00:00 
			
		
		
		
	Save search query state
For when coming back from detail view.
This commit is contained in:
		| @@ -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…" | ||||
|                             ] | ||||
|                             [] | ||||
|   | ||||
| @@ -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…" | ||||
|                             ] | ||||
|                             [] | ||||
|   | ||||
| @@ -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…" | ||||
|                             ] | ||||
|                             [] | ||||
|   | ||||
| @@ -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…" | ||||
|                             ] | ||||
|                             [] | ||||
|   | ||||
		Reference in New Issue
	
	Block a user