Extract elmHubHeader

This commit is contained in:
Richard Feldman
2016-06-25 07:54:46 -07:00
parent 3ae25593c4
commit c25f3e695b

View File

@@ -13,12 +13,16 @@ model =
} }
elmHubHeader =
header []
[ -- TODO add the equivalent of <h1>ElmHub</h1> right before this <span>
span [ class "tagline" ] [ text "Like GitHub, but for Elm things." ]
]
view model = view model =
div [ class "content" ] div [ class "content" ]
[ header [] [ elmHubHeader
[ -- TODO add the equivalent of <h1>ElmHub</h1> right before this <span>
span [ class "tagline" ] [ text "Like GitHub, but for Elm things." ]
]
, ul [ class "results" ] , ul [ class "results" ]
[ li [] [ li []
[ span [ class "star-count" ] [{- TODO display the number of stars -}] [ span [ class "star-count" ] [{- TODO display the number of stars -}]