feat: added some stuff

This commit is contained in:
Nick 2024-12-01 02:56:13 -06:00
parent f73dab4579
commit 36f9c89214
21 changed files with 573 additions and 155 deletions

View file

@ -0,0 +1,80 @@
module Headers.Helpers exposing (..)
import Config.CardFormat exposing (..)
import Config.Colour exposing (..)
import Config.Format exposing (..)
import Config.StrengthBar exposing (..)
import Config.ToolTip exposing (..)
import Effect exposing (Effect)
import Element as E exposing (..)
import Element.Background as B exposing (..)
import Element.Border as D
import Element.Font as F
import Headers.Types exposing (..)
import Html.Attributes as H exposing (style)
import Interviews.Types exposing (..)
import Layouts
import Page exposing (Page)
import Route exposing (Route)
import Shared
import View exposing (View)
headerMaker : Header -> Element msg
headerMaker header =
row
topLevelBox
[ column
[ E.width <| px 785
, D.width 5
, D.color colourTheme.backgroundDarkGrey
, D.roundEach
{ topLeft = 32
, topRight = 32
, bottomRight = 32
, bottomLeft = 32
}
]
[ paragraph
(nonHighlightedTitleFormat
++ [ F.size 20
, B.color colourTheme.textDarkOrange
, paddingEach
{ top = 6
, bottom = 3
, left = 25
, right = 15
}
, alignBottom
, width fill
, F.center
, D.roundEach
{ topLeft = 26
, topRight = 26
, bottomRight = 0
, bottomLeft = 0
}
]
)
[ text header.headerTitle ]
, cardFormatter
[ cardContentSpacing
[ column
fieldSpacer
[ paragraph
(paragraphFormat
++ [ F.size 18
, F.center
]
)
[ text header.headerBody ]
]
]
]
]
]
headerTitle : Header -> String
headerTitle header =
header.headerTitle

View file

@ -0,0 +1,10 @@
module Headers.Pages.Arguments exposing (..)
import Headers.Types exposing (..)
argumentHeader : Header
argumentHeader =
{ headerTitle = "DEBATE"
, headerBody = "This page features arguments that I hold to be sound. I'm open to hearing all challenges, as I am ready to engage with and defend any argument listed."
}

View file

@ -0,0 +1,10 @@
module Headers.Pages.Contact exposing (..)
import Headers.Types exposing (..)
contactHeader : Header
contactHeader =
{ headerTitle = "CONTACT"
, headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj"
}

View file

@ -0,0 +1,10 @@
module Headers.Pages.CuckList exposing (..)
import Headers.Types exposing (..)
cuckListHeader : Header
cuckListHeader =
{ headerTitle = "CUCKLIST"
, headerBody = "This page features a list of morons who wrote cheques with their mouths that their asses couldn't cash. Each person included in this list has dodged debating me."
}

View file

@ -0,0 +1,10 @@
module Headers.Pages.Donate exposing (..)
import Headers.Types exposing (..)
donateHeader : Header
donateHeader =
{ headerTitle = "DONATE"
, headerBody = "My site, research, and content all cost time and money to run. If you find my contributions valuable, please consider supporting my work on any of the platforms listed below!"
}

View file

@ -0,0 +1,10 @@
module Headers.Pages.HyperBlog exposing (..)
import Headers.Types exposing (..)
hyperBlogHeader : Header
hyperBlogHeader =
{ headerTitle = "HYPERBLOG"
, headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj"
}

View file

@ -0,0 +1,10 @@
module Headers.Pages.Interviews exposing (..)
import Headers.Types exposing (..)
interviewHeader : Header
interviewHeader =
{ headerTitle = "INTERVIEWS"
, headerBody = "This page showcases various podcasts and shows I've been on. If youd like to have me as a guest on your podcast, feel free to reach outId love to share my perspectives with your audience!"
}

View file

@ -0,0 +1,10 @@
module Headers.Pages.NutriDex exposing (..)
import Headers.Types exposing (..)
nutriDexHeader : Header
nutriDexHeader =
{ headerTitle = "NUTRIDEX"
, headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj"
}

View file

@ -0,0 +1,10 @@
module Headers.Pages.Services exposing (..)
import Headers.Types exposing (..)
servicesHeader : Header
servicesHeader =
{ headerTitle = "SERVICES"
, headerBody = "Bundle any of the services below to receive a $10 discount per hour. For example, two Debate Analysis sessions would cost $140 total, instead of $80/hr. All prices are in CAD."
}

View file

@ -0,0 +1,7 @@
module Headers.Types exposing (..)
type alias Header =
{ headerTitle : String
, headerBody : String
}