From 8014def1a8da3397d78d1162f9e1b8c3f22d0322 Mon Sep 17 00:00:00 2001 From: Akshay Date: Sat, 26 Dec 2020 10:51:46 +0530 Subject: add transactions and quantities - backend exposes endpoints to perform transactions - frontend introduces a new page to "checkout" cart --- frontend/src/Catalog.elm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'frontend/src/Catalog.elm') diff --git a/frontend/src/Catalog.elm b/frontend/src/Catalog.elm index 6882c73..d00cb92 100644 --- a/frontend/src/Catalog.elm +++ b/frontend/src/Catalog.elm @@ -188,13 +188,13 @@ viewFilters : Model -> Html Msg viewFilters model = let priceRange = - range 0 50000 5000 + range 0 55000 5000 ratingRange = - List.range 1 5 + range 1 6 1 - viewRange = - List.map (\i -> option [] [ text <| String.fromInt i ]) + viewRange default scale = + List.map (\i -> option [ selected (i == default) ] [ text <| String.fromInt i ]) scale inp = Maybe.withDefault 0 << String.toFloat @@ -202,15 +202,15 @@ viewFilters model = div [] [ div [] [ text "Price" - , select [ onInput (ChangePriceLower << inp) ] (viewRange priceRange) + , select [ onInput (ChangePriceLower << inp) ] (viewRange 0 priceRange) , text "to" - , select [ onInput (ChangePriceUpper << inp) ] (viewRange priceRange) + , select [ onInput (ChangePriceUpper << inp) ] (viewRange 50000 priceRange) ] , div [] [ text "Rating" - , select [ onInput (ChangeRatingLower << inp) ] (viewRange ratingRange) + , select [ onInput (ChangeRatingLower << inp) ] (viewRange 1 ratingRange) , text "to" - , select [ onInput (ChangeRatingUpper << inp) ] (viewRange ratingRange) + , select [ onInput (ChangeRatingUpper << inp) ] (viewRange 5 ratingRange) ] ] -- cgit v1.2.3