Set search when clicking on parts of the item card

When user clicks on correspondent etc. on an item card, the search is
set to this value.
This commit is contained in:
Eike Kettner
2020-11-14 01:44:15 +01:00
parent faf97222ea
commit 795cd8bc80
3 changed files with 48 additions and 3 deletions

View File

@ -300,7 +300,11 @@ viewSearchBar flags model =
]
]
[ a
[ class "search-menu-toggle ui blue icon button"
[ classList
[ ( "search-menu-toggle ui icon button", True )
, ( "primary", not (searchMenuFilled model) )
, ( "secondary", searchMenuFilled model )
]
, onClick ToggleSearchMenu
, href "#"
, title "Open search menu"
@ -345,6 +349,15 @@ viewSearchBar flags model =
]
searchMenuFilled : Model -> Bool
searchMenuFilled model =
let
is =
Comp.SearchMenu.getItemSearch model.searchMenuModel
in
is /= Api.Model.ItemSearch.empty
hasMoreSearch : Model -> Bool
hasMoreSearch model =
let