diff --git a/src/Blueprints/View.elm b/src/Blueprints/View.elm index fd4bbd3..90b1ed5 100644 --- a/src/Blueprints/View.elm +++ b/src/Blueprints/View.elm @@ -35,7 +35,7 @@ view model = viewService : BlueprintInfo -> Html msg viewService blueprint = - div [ classes "fl w-third-ns pr3 lucida" ] + div [ classes "fl w-third pr3 lucida" ] [ a [ attribute "href" ("/blueprint/" ++ blueprint.id), classes "fl w-100 bg-white black mw6 mr3 mb3 ph4 hide-child pa2 br3 element-box ba b--white bw1 no-underline" ] [ div [ classes "w-100 mb3 pt1 b" ] [ text blueprint.name ] , div [ classes "w-100 mb4" ] [ text "By ", span [classes "b"] [text blueprint.author] ] diff --git a/src/Instances/View.elm b/src/Instances/View.elm index a2ad326..ad0f567 100644 --- a/src/Instances/View.elm +++ b/src/Instances/View.elm @@ -7,7 +7,7 @@ import Html.Attributes exposing (attribute) import Instances.Model exposing (Instance) import Model exposing (Model) import Nodes.Model exposing (Identify) -import Palette exposing (classes) +import Palette exposing (classes, shortHashRaw) import Service.Model exposing (Service) @@ -42,8 +42,8 @@ view model filter = viewTable : List Instance -> Html msg viewTable instances = div [ classes "pa1 mt2 bg-white br3" ] - [ div [ classes "mw8 pa2 " ] - [ table [ classes "f6 w-100 center", attribute "cellspacing" "0" ] + [ div [ classes "mw8-ns pa2 " ] + [ table [ classes "f6 w-100 center ws-normal-ns", attribute "cellspacing" "0" ] [ thead [] [ tr [ classes "" ] [ th [ classes "fw6 tl pa3 gray" ] [ text "SERVICE" ] @@ -63,6 +63,6 @@ viewInstance instance = tr [ classes "" ] [ td [ classes "ph3" ] [ p [classes "ws-normal"] [text instance.name ]] , td [ classes "ph3" ] [ p [classes "ws-normal"] [text instance.instance ]] - , td [ classes "ph3" ] [ p [classes "ws-normal"] [text instance.peerId ]] + , td [ classes "ph3" ] [ p [classes "ws-normal"] [text (shortHashRaw 8 instance.peerId) ]] , td [ classes "ph3" ] [ p [classes "ws-normal"] [text instance.ip ]] ] diff --git a/src/Modules/View.elm b/src/Modules/View.elm index b72180d..174bc10 100644 --- a/src/Modules/View.elm +++ b/src/Modules/View.elm @@ -59,7 +59,7 @@ view modules = viewService : ModuleShortInfo -> Html msg viewService moduleInfo = - div [ classes "fl w-third-ns pr3" ] + div [ classes "fl w-third pr3" ] [ a [ attribute "href" ("/module/" ++ moduleInfo.moduleInfo.name), classes "fl w-100 bg-white black mw6 mr2 mb3 ph4 hide-child pa2 br3 element-box ba b--white bw1" ] [ p [ classes "tl di" ] [ div [ classes "fl b w-100 mb1" ] [ text moduleInfo.moduleInfo.name ], div [ classes "fl w-100 mt1 lucida gray" ] [ instancesText moduleInfo.instanceNumber ] ] ] diff --git a/src/View.elm b/src/View.elm index 92e72ef..78f22b7 100644 --- a/src/View.elm +++ b/src/View.elm @@ -56,7 +56,7 @@ body model = layout : List (Html Msg) -> Html Msg layout elms = - div [ classes "mw8 center w-100" ] + div [ classes "mw8-ns center w-100" ] [ div [ classes "fl w-100 bg-near-white" ] ([] ++ elms