feat: added proposition page

This commit is contained in:
Nick 2024-11-11 21:57:27 -06:00
parent 81b3c4b106
commit 6a9280118c
9 changed files with 264 additions and 35 deletions

View file

@ -0,0 +1,27 @@
module Config.Colour exposing (..)
import Element exposing (..)
import Element.Background as B
import Element.Font as F
import Html.Attributes as H exposing (style)
type alias Theme =
{ nonHighlightedText : Color
, nonHighlightedDarkText : Color
, highlightText : Color
, highlightTextHover : Color
, backgroundColour : Color
, debugColour : Color
}
colourTheme : Theme
colourTheme =
{ nonHighlightedText = rgb255 212 212 212
, nonHighlightedDarkText = rgb255 126 126 126
, highlightText = rgb255 204 102 0
, highlightTextHover = rgb255 120 60 0
, backgroundColour = rgb255 40 40 40
, debugColour = rgb255 227 28 121
}

View file

@ -1,5 +1,6 @@
module Config.Theme exposing (..)
module Config.Format exposing (..)
import Config.Colour exposing (..)
import Element exposing (..)
import Element.Background as B
import Element.Font as F
@ -25,27 +26,6 @@ pageList =
]
type alias Theme =
{ nonHighlightedText : Color
, nonHighlightedDarkText : Color
, highlightText : Color
, highlightTextHover : Color
, backgroundColour : Color
, debugColour : Color
}
colourTheme : Theme
colourTheme =
{ nonHighlightedText = rgb255 212 212 212
, nonHighlightedDarkText = rgb255 126 126 126
, highlightText = rgb255 204 102 0
, highlightTextHover = rgb255 120 60 0
, backgroundColour = rgb255 40 40 40
, debugColour = rgb255 227 28 121
}
transitionStyle : Attribute msg
transitionStyle =
htmlAttribute <| style "transition" "all .2s"
@ -119,10 +99,24 @@ paragraphLinkFormat =
]
paragraphSpacing : Attribute msg
paragraphSpacing =
spacing 8
paragraphText : List (Attr () msg)
paragraphText =
[ F.color colourTheme.nonHighlightedText
, spacing 8
, paragraphSpacing
, paragraphFontSize
]
paragraphHightlightedBoldText : List (Attr () msg)
paragraphHightlightedBoldText =
[ F.color colourTheme.highlightText
, F.bold
, paragraphSpacing
, paragraphFontSize
]
@ -149,6 +143,11 @@ paragraphAlignLeft =
[ alignLeft, paragraphWidth ]
++ paragraphText
paragraphAlignCenter : List (Attr () msg)
paragraphAlignCenter =
[ centerX, paragraphWidth ]
++ paragraphText
paragraphColumnFormat : List (Attribute msg)
paragraphColumnFormat =

View file

@ -1,7 +1,5 @@
module Config.Identity exposing (..)
import Element exposing (..)
type alias PageInput =
{ pageHome : String