diff --git a/src/BlueprintPage/View.elm b/src/BlueprintPage/View.elm index 177289d..da60cac 100644 --- a/src/BlueprintPage/View.elm +++ b/src/BlueprintPage/View.elm @@ -26,7 +26,7 @@ view model id = (instanceNum, instanceView) = Instances.View.view model (\service -> service.blueprint_id == id) in div [ classes "fl w-100 cf ph2-ns" ] - [ div [ classes "fl w-100 mb2" ] + [ div [ classes "fl w-100 mb2 pt2" ] [ span [ classes "fl w-100 f1 lh-title dark-red" ] [ text ("Blueprint: " ++ bi.name) ] , span [ classes "fl w-100 light-red" ] [ text bi.id ] ] diff --git a/src/HubPage/View.elm b/src/HubPage/View.elm index b931ce5..9fa0640 100644 --- a/src/HubPage/View.elm +++ b/src/HubPage/View.elm @@ -12,7 +12,7 @@ import Palette exposing (classes, redFont) view : Model -> Html msg view model = div [] - [ h1 [ redFont ] [ text "Developer Hub" ] + [ h1 [ redFont, classes "pt4" ] [ text "Developer Hub" ] , welcomeText , h3 [] [ text "Featured Blueprints" ] , Blueprints.View.view model diff --git a/src/ModulePage/View.elm b/src/ModulePage/View.elm index 43a8c37..923cb5d 100644 --- a/src/ModulePage/View.elm +++ b/src/ModulePage/View.elm @@ -24,7 +24,7 @@ view model id = (instanceNum, instanceView) = Instances.View.view model filter in div [ classes "fl w-100 cf ph2-ns" ] - [ div [ classes "fl w-100 mb2"] + [ div [ classes "fl w-100 mb2 pt2"] [ span [ classes "fl w-100 f1 lh-title dark-red" ] [ text ("Module: " ++ mi.name) ] ] , div [ classes "fl w-100 bg-white mt2 mh2 ph4 pt3" ] [ viewInfo mi ] diff --git a/src/View.elm b/src/View.elm index 37ae5b9..d0e0534 100644 --- a/src/View.elm +++ b/src/View.elm @@ -17,7 +17,7 @@ limitations under the License. -} import Browser exposing (Document, UrlRequest(..)) -import Html exposing (Html, div, header, img, p, text) +import Html exposing (Html, a, div, header, img, p, text) import Html.Attributes exposing (attribute, style) import Model exposing (Model, Route(..)) import Msg exposing (..) @@ -41,12 +41,16 @@ body model = List.concat [ [ header [ classes "w-100" ] [ div [ classes "fl pa2 pb1 bg-white w-100" ] - [ div [ classes "fl mv1 pl3", style "max-width" "96px"] [img [ classes "v-mid dib mw-100 h-auto", attribute "src" "/images/logo_new.svg"] []] + [ div [ classes "fl mv1 pl3", style "max-width" "96px"] + [ a [ attribute "href" "/"] + [ img [ classes "v-mid dib mw-100 h-auto", attribute "src" "/images/logo_new.svg"] [] + ] + ] , div [ classes "fl pl5 h-100" ] [p [classes "mv2"] [text "Developer Hub"]] ] ] ] - , [div [ classes "w-100 ph4 pa2"] [routeView model model.page]] + , [div [ classes "w-100 pa4 pt2 mt2"] [routeView model model.page]] ]