Remove old ui code in frontend

This commit is contained in:
Eike Kettner
2021-03-09 20:16:05 +01:00
parent ee694dc719
commit b95338e744
90 changed files with 50 additions and 11038 deletions

View File

@ -7,7 +7,6 @@ module Comp.ItemCardList exposing
, prevItem
, update
, updateDrag
, view
, view2
)
@ -140,7 +139,7 @@ updateDrag dm _ msg model =
--- View
--- View2
type alias ViewConfig =
@ -149,56 +148,6 @@ type alias ViewConfig =
}
view : ViewConfig -> UiSettings -> Model -> Html Msg
view cfg settings model =
div
[ classList
[ ( "ui container", True )
, ( "multi-select-mode", isMultiSelectMode cfg )
]
]
(List.map (viewGroup model cfg settings) model.results.groups)
viewGroup : Model -> ViewConfig -> UiSettings -> ItemLightGroup -> Html Msg
viewGroup model cfg settings group =
div [ class "item-group" ]
[ div [ class "ui horizontal divider header item-list" ]
[ i [ class "calendar alternate outline icon" ] []
, text group.name
]
, div [ class "ui stackable three cards" ]
(List.map (viewItem model cfg settings) group.items)
]
viewItem : Model -> ViewConfig -> UiSettings -> ItemLight -> Html Msg
viewItem model cfg settings item =
let
currentClass =
if cfg.current == Just item.id then
"current"
else
""
vvcfg =
Comp.ItemCard.ViewConfig cfg.selection currentClass
cardModel =
Dict.get item.id model.itemCards
|> Maybe.withDefault Comp.ItemCard.init
cardHtml =
Comp.ItemCard.view vvcfg settings cardModel item
in
Html.map (ItemCardMsg item) cardHtml
--- View2
view2 : ViewConfig -> UiSettings -> Model -> Html Msg
view2 cfg settings model =
div