TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-03-25 16:45:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add reset search form button

Browse Source
This commit is contained in:
Eike Kettner 2019-12-31 01:39:55 +01:00
parent c73cdd82ab
commit 7d047b13c9
4 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
modules/webapp/src/main/elm/Comp/SearchMenu.elm
View File

@ -123,6 +123,7 @@ type Msg
| GetEquipResp (Result Http.Error EquipmentList)
| GetPersonResp (Result Http.Error ReferenceList)
| SetName String
| ResetForm
makeTagModel : Comp.Dropdown.Model Tag
@ -216,6 +217,13 @@ update flags msg model =
]
)
ResetForm ->
let
next =
update flags Init emptyModel
in
{ next | stateChange = True }
GetTagsResp (Ok tags) ->
let
tagList =

1
modules/webapp/src/main/elm/Page/Home/Data.elm
View File

@ -33,6 +33,7 @@ emptyModel =
type Msg
= Init
| SearchMenuMsg Comp.SearchMenu.Msg
| ResetSearch
| ItemListMsg Comp.ItemList.Msg
| ItemSearchResp (Result Http.Error ItemLightList)
| DoSearch

3
modules/webapp/src/main/elm/Page/Home/Update.elm
View File

@ -21,6 +21,9 @@ update key flags msg model =
]
model
ResetSearch ->
update key flags (SearchMenuMsg Comp.SearchMenu.ResetForm) model
SearchMenuMsg m ->
let
nextState =

7
modules/webapp/src/main/elm/Page/Home/View.elm
View File

@ -20,6 +20,13 @@ view model =
]
, div [ class "right floated menu" ]
[ a
[ class "item"
, onClick ResetSearch
, href "#"
]
[ i [ class "undo icon" ] []
]
, a
[ class "item"
, onClick DoSearch
, href ""