fix bps and modules elements, fix table

This commit is contained in:
DieMyst 2020-12-04 16:16:25 +03:00
parent 4206408465
commit 705d58e1b2
4 changed files with 7 additions and 7 deletions

View File

@ -35,7 +35,7 @@ view model =
viewService : BlueprintInfo -> Html msg viewService : BlueprintInfo -> Html msg
viewService blueprint = 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" ] [ 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 mb3 pt1 b" ] [ text blueprint.name ]
, div [ classes "w-100 mb4" ] [ text "By ", span [classes "b"] [text blueprint.author] ] , div [ classes "w-100 mb4" ] [ text "By ", span [classes "b"] [text blueprint.author] ]

View File

@ -7,7 +7,7 @@ import Html.Attributes exposing (attribute)
import Instances.Model exposing (Instance) import Instances.Model exposing (Instance)
import Model exposing (Model) import Model exposing (Model)
import Nodes.Model exposing (Identify) import Nodes.Model exposing (Identify)
import Palette exposing (classes) import Palette exposing (classes, shortHashRaw)
import Service.Model exposing (Service) import Service.Model exposing (Service)
@ -42,8 +42,8 @@ view model filter =
viewTable : List Instance -> Html msg viewTable : List Instance -> Html msg
viewTable instances = viewTable instances =
div [ classes "pa1 mt2 bg-white br3" ] div [ classes "pa1 mt2 bg-white br3" ]
[ div [ classes "mw8 pa2 " ] [ div [ classes "mw8-ns pa2 " ]
[ table [ classes "f6 w-100 center", attribute "cellspacing" "0" ] [ table [ classes "f6 w-100 center ws-normal-ns", attribute "cellspacing" "0" ]
[ thead [] [ thead []
[ tr [ classes "" ] [ tr [ classes "" ]
[ th [ classes "fw6 tl pa3 gray" ] [ text "SERVICE" ] [ th [ classes "fw6 tl pa3 gray" ] [ text "SERVICE" ]
@ -63,6 +63,6 @@ viewInstance instance =
tr [ classes "" ] tr [ classes "" ]
[ td [ classes "ph3" ] [ p [classes "ws-normal"] [text instance.name ]] [ 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.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 ]] , td [ classes "ph3" ] [ p [classes "ws-normal"] [text instance.ip ]]
] ]

View File

@ -59,7 +59,7 @@ view modules =
viewService : ModuleShortInfo -> Html msg viewService : ModuleShortInfo -> Html msg
viewService moduleInfo = 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" ] [ 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 ] ] [ 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 ] ]
] ]

View File

@ -56,7 +56,7 @@ body model =
layout : List (Html Msg) -> Html Msg layout : List (Html Msg) -> Html Msg
layout elms = layout elms =
div [ classes "mw8 center w-100" ] div [ classes "mw8-ns center w-100" ]
[ div [ classes "fl w-100 bg-near-white" ] [ div [ classes "fl w-100 bg-near-white" ]
([] ([]
++ elms ++ elms