TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-23 10:58:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Improve selecting tags in the dropdown a bit

Browse Source 
This is some low hanging fruit, related to #573, #960. At least we see
now the category and the filter is applied to it as well.
This commit is contained in:
eikek
2022-01-14 23:49:08 +01:00
parent 3841b4aadd
commit 348fd50297
2 changed files with 36 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
modules/webapp/src/main/elm/Util/Tag.elm
View File

@ -22,15 +22,19 @@ import Util.List
makeDropdownModel : Comp.Dropdown.Model Tag
makeDropdownModel =
Comp.Dropdown.makeModel
{ multiple = True
, searchable = \n -> n > 0
}
let
init =
Comp.Dropdown.makeModel
{ multiple = True
, searchable = \n -> n > 0
}
in
{ init | searchWithAdditional = True }
tagSettings : String -> DS.DropdownStyle -> Comp.Dropdown.ViewSettings Tag
tagSettings placeholder ds =
{ makeOption = \tag -> { text = tag.name, additional = "" }
{ makeOption = \tag -> { text = tag.name, additional = Maybe.withDefault "" tag.category }
, labelColor =
\tag ->
\settings ->