Add part2
This commit is contained in:
57
intro/part2/src/Main.elm
Normal file
57
intro/part2/src/Main.elm
Normal file
@@ -0,0 +1,57 @@
|
||||
module Main exposing (main)
|
||||
|
||||
import Html exposing (..)
|
||||
import Html.Attributes exposing (..)
|
||||
|
||||
|
||||
viewTags tags =
|
||||
let
|
||||
renderedTags =
|
||||
-- 👉 TODO use `List.map` and `viewTag` to render the 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 [] []
|
||||
|
||||
|
||||
main =
|
||||
let
|
||||
tags =
|
||||
[ "elm", "fun", "programming", "compilers" ]
|
||||
in
|
||||
div [ class "home-page" ]
|
||||
[ viewBanner
|
||||
, div [ class "container page" ]
|
||||
[ div [ class "row" ]
|
||||
[ div [ class "col-md-9" ] [ viewFeed ]
|
||||
, div [ class "col-md-3" ]
|
||||
[ div [ class "sidebar" ]
|
||||
[ p [] [ text "Popular Tags" ]
|
||||
|
||||
-- 👉 TODO instead of passing [] to viewTags, pass the actual tags
|
||||
, viewTags []
|
||||
]
|
||||
]
|
||||
]
|
||||
]
|
||||
]
|
||||
|
||||
|
||||
viewBanner =
|
||||
div [ class "banner" ]
|
||||
[ div [ class "container" ]
|
||||
[ h1 [ class "logo-font" ] [ text "conduit" ]
|
||||
, p [] [ text "A place to share your knowledge." ]
|
||||
]
|
||||
]
|
||||
|
||||
|
||||
viewFeed =
|
||||
div [ class "feed-toggle" ] [ text "(We’ll display some articles here later.)" ]
|
||||
Reference in New Issue
Block a user