improve styles

This commit is contained in:
DieMyst 2020-12-02 03:34:53 +03:00
parent ac161db98c
commit 3863c4083a
4 changed files with 11 additions and 11 deletions

View File

@ -30,7 +30,7 @@ view model id =
[ span [ classes "fl w-100 f1 lh-title dark-red" ] [ text ("Blueprint: " ++ bi.name) ]
, span [ classes "fl w-100 light-red" ] [ text bi.id ]
]
, div [ classes "fl w-100 bg-white mt2 mh2 ph4 pt3" ] [ viewInfo bi ]
, div [ classes "fl w-100 bg-white mt2 mh2 ph4 pt3 mb4" ] [ viewInfo bi ]
, h3 [ classes "pt3" ] [ text ("Instances (" ++ (String.fromInt instanceNum) ++ ")") ]
, div [ classes "mt2 bg-white" ]
[ instanceView ]

View File

@ -34,7 +34,7 @@ view model =
viewService : BlueprintInfo -> Html msg
viewService blueprint =
div [ classes "fl w-third-ns pa2" ]
[ a [ attribute "href" ("/blueprint/" ++ blueprint.id), classes "fl bg-white w-100 link dim black mw5 dt hide-child ba b-black pa4 br2 solid" ]
[ a [ attribute "href" ("/blueprint/" ++ blueprint.id), classes "fl bg-white w-100 link dim black mw5 hide-child pa3 br2" ]
[ div [ classes "w-100 mb2 b" ] [ text blueprint.name ]
, div [ classes "w-100 mb4" ] [ text ("By " ++ blueprint.author) ]
, div [ classes "w-100" ] [ instancesText blueprint.instanceNumber ]

View File

@ -42,17 +42,17 @@ view model filter =
viewTable : List Instance -> Html msg
viewTable instances =
div [ classes "pa1" ]
[ div [ classes "mw8" ]
[ div [ classes "mw8 bg-white pa2 br2" ]
[ table [ classes "f6 w-100 center", attribute "cellspacing" "0" ]
[ thead []
[ tr [ classes "stripe-dark" ]
[ th [ classes "fw6 tl pa3 bg-white" ] [ text "SERVICE" ]
, th [ classes "fw6 tl pa3 bg-white" ] [ text "INSTANCE" ]
, th [ classes "fw6 tl pa3 bg-white" ] [ text "NODE" ]
, th [ classes "fw6 tl pa3 bg-white" ] [ text "IP" ]
[ tr [ classes "" ]
[ th [ classes "fw6 tl pa3" ] [ text "SERVICE" ]
, th [ classes "fw6 tl pa3" ] [ text "INSTANCE" ]
, th [ classes "fw6 tl pa3" ] [ text "NODE" ]
, th [ classes "fw6 tl pa3" ] [ text "IP" ]
]
]
, tbody [ classes "lh-copy" ] (instances |> List.map viewInstance)
, tbody [ classes "" ] (instances |> List.map viewInstance)
]
]
]
@ -60,7 +60,7 @@ viewTable instances =
viewInstance : Instance -> Html msg
viewInstance instance =
tr [ classes "stripe-dark" ]
tr [ classes "" ]
[ td [ classes "pa3" ] [ text instance.name ]
, td [ classes "pa3" ] [ text instance.instance ]
, td [ classes "pa3" ] [ text instance.peerId ]

View File

@ -60,7 +60,7 @@ view modules =
viewService : ModuleShortInfo -> Html msg
viewService moduleInfo =
div [ classes "fl w-third-ns pa2" ]
[ a [ attribute "href" ("/module/" ++ moduleInfo.moduleInfo.name), classes "fl w-100 bg-white link dim black mw5 dt hide-child ba b-black pa2 br2 solid" ]
[ a [ attribute "href" ("/module/" ++ moduleInfo.moduleInfo.name), classes "fl w-100 bg-white link dim black mw5 hide-child pa2 br2" ]
[ p [ classes "tl di" ] [ span [ classes "b pl2" ] [ text moduleInfo.moduleInfo.name ], span [ classes "di fr pr2" ] [ instancesText moduleInfo.instanceNumber ] ]
]
]