Search by tag category via web ui

This commit is contained in:
Eike Kettner
2020-08-06 22:23:35 +02:00
parent 070c2b5e5f
commit a6a6e334d5
3 changed files with 69 additions and 4 deletions

View File

@ -18,7 +18,7 @@ import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (onCheck)
import Http
import Util.List
import Util.Tag
type alias Model =
@ -148,8 +148,7 @@ update sett msg model =
GetTagsResp (Ok tl) ->
let
categories =
List.filterMap .category tl.items
|> Util.List.distinct
Util.Tag.getCategories tl.items
in
( { model
| tagColorModel =