Add dividers

This commit is contained in:
Emi Simpson 2022-02-05 19:20:09 -05:00
parent 43d536f562
commit bc217b2c72
Signed by: Emi
GPG Key ID: 45E9C6E81BD86E7C
2 changed files with 30 additions and 2 deletions

View File

@ -133,7 +133,6 @@ header {
grid-template-columns: repeat(2, 1fr);
gap: 20px;
margin-top: 20px;
margin-bottom: 100px;
.selectable-license {
background: none;
@ -207,6 +206,26 @@ header {
width: 100%;
}
.divider {
display: grid;
grid-template-columns: 1fr 0fr 1fr;
align-items: center;
margin: 0 -100px;
gap: 50px;
font-family: Resistance;
color: #e1c0ed;
margin-top: 110px;
margin-bottom: 30px;
h2 {
white-space: nowrap;
}
div {
border-bottom: 1px solid #bf8cd1;
}
}
.cooler-checkbox {
height: 40px;
width: 40px;

View File

@ -2,7 +2,7 @@ module Main exposing (main)
import Browser
import Sort.Set as Set exposing (Set)
import Html exposing (Html, button, div, h2, input, label, p, section, text, span, h3)
import Html exposing (Html, button, div, h2, h3, input, label, p, section, text, span, h3)
import Html.Events exposing (onCheck, onClick)
import Html.Attributes exposing (class, type_, id)
import Html.Attributes exposing (attribute)
@ -182,13 +182,22 @@ downloads =
]
)
divider : String -> Html Never
divider sectionName =
div [class "divider"]
[ div [] []
, h3 [] [text sectionName]
, div [] []
]
view : Model -> Html Msg
view model =
div [id "elm-area"]
[ viewLicenseChooser model.selected
, Html.map never (divider "Customize")
, case model.selected of
Hippocratic -> view_modules HippocraticMod model.hippocratic
NPL -> view_modules NPLMod model.npl
, Html.map never (divider "Download")
, downloads
]