This commit is contained in:
Richard Feldman
2018-08-05 04:07:11 -04:00
parent f89b1aa197
commit bf20622319
9 changed files with 35 additions and 100 deletions

View File

@@ -13,9 +13,7 @@ view tags =
, div [ class "col-md-3" ]
[ div [ class "sidebar" ]
[ p [] [ text "Popular Tags" ]
-- TODO instead of passing [] to viewTags, pass the actual tags
, viewTags []
, viewTags tags
]
]
]
@@ -26,18 +24,14 @@ view tags =
viewTags tags =
let
renderedTags =
-- TODO use `List.map` and `viewTag` to render the tags
[]
-- List.map (\tag -> viewTag tag) tags
List.map viewTag tags
in
div [ class "tag-list" ] renderedTags
viewTag tagName =
{- TODO render something like this:
<button class="tag-pill tag-default">tag name goes here</button>
-}
button [] []
button [ class "tag-pill tag-default" ] [ text tagName ]
viewBanner =