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

156
frontend/src/Config/Format.elm Executable file
View file

@ -0,0 +1,156 @@
module Config.Format exposing (..)
import Config.Colour exposing (..)
import Element exposing (..)
import Element.Background as B
import Element.Font as F
import Html.Attributes as H exposing (style)
topLevelContainer : Element msg -> Element msg
topLevelContainer =
el
[ width fill
, height fill
, B.color colourTheme.backgroundColour
]
pageList : List (Attribute msg)
pageList =
[ spacing 40
, centerX
, centerY
, moveDown 60
, alignTop
]
transitionStyle : Attribute msg
transitionStyle =
htmlAttribute <| style "transition" "all .2s"
transitionHighlightedLinkHover : Element msg -> Element msg
transitionHighlightedLinkHover =
el
[ mouseOver [ F.color colourTheme.highlightTextHover ]
, transitionStyle
]
transitionNonHighlightedLinkHover : Element msg -> Element msg
transitionNonHighlightedLinkHover =
el
[ mouseOver [ F.color colourTheme.highlightText ]
, transitionStyle
]
spartanFont : F.Font
spartanFont =
F.typeface "League Spartan"
imageSpacer : Attribute msg
imageSpacer =
spacing 20
navBarLinkFormat : List (Attr () msg)
navBarLinkFormat =
[ F.size 15
-- , F.bold
]
titleFormat : List (Attr () msg)
titleFormat =
[ F.size 23
, F.bold
]
nonHighlightedTitleFormat : List (Attr () msg)
nonHighlightedTitleFormat =
[ F.color colourTheme.nonHighlightedText
]
++ titleFormat
highlightedTitleFormat : List (Attr () msg)
highlightedTitleFormat =
[ F.color colourTheme.highlightText
]
++ titleFormat
paragraphFontSize : Attr decorative msg
paragraphFontSize =
F.size 17
paragraphLinkFormat : { url : String, label : Element msg } -> Element msg
paragraphLinkFormat =
newTabLink
[ paragraphFontSize
, F.color colourTheme.highlightText
]
paragraphSpacing : Attribute msg
paragraphSpacing =
spacing 8
paragraphText : List (Attr () msg)
paragraphText =
[ F.color colourTheme.nonHighlightedText
, paragraphSpacing
, paragraphFontSize
]
paragraphHightlightedBoldText : List (Attr () msg)
paragraphHightlightedBoldText =
[ F.color colourTheme.highlightText
, F.bold
, paragraphSpacing
, paragraphFontSize
]
paragraphFormat : List (Attr () msg)
paragraphFormat =
[]
++ paragraphText
paragraphBoldFormat : List (Attr () msg)
paragraphBoldFormat =
[ F.bold ]
++ paragraphText
paragraphWidth : Attribute msg
paragraphWidth =
width <| px 700
paragraphAlignLeft : List (Attr () msg)
paragraphAlignLeft =
[ alignLeft, paragraphWidth ]
++ paragraphText
paragraphAlignCenter : List (Attr () msg)
paragraphAlignCenter =
[ centerX, paragraphWidth ]
++ paragraphText
paragraphColumnFormat : List (Attribute msg)
paragraphColumnFormat =
[ spacing 20
, paragraphWidth
]