Prepare ui to handle content search

This commit is contained in:
Eike Kettner
2020-06-21 22:29:58 +02:00
parent 3d82e03a8a
commit af4522c0a7
6 changed files with 139 additions and 51 deletions

View File

@ -9,6 +9,7 @@ module Comp.FixedDropdown exposing
, update
, view
, viewString
, viewStyled
)
import Html exposing (..)
@ -69,11 +70,12 @@ update msg model =
( model, Just item.id )
view : Maybe (Item a) -> Model a -> Html (Msg a)
view selected model =
viewStyled : String -> Maybe (Item a) -> Model a -> Html (Msg a)
viewStyled classes selected model =
div
[ classList
[ ( "ui selection dropdown", True )
, ( classes, True )
, ( "open", model.menuOpen )
]
, onClick ToggleMenu
@ -102,6 +104,11 @@ view selected model =
]
view : Maybe (Item a) -> Model a -> Html (Msg a)
view selected model =
viewStyled "" selected model
viewString : Maybe String -> Model String -> Html (Msg String)
viewString selected model =
view (Maybe.map (\s -> Item s s) selected) model