From ce159368e6f527c5951e507e27bb0335aeb0204c Mon Sep 17 00:00:00 2001 From: Nick Date: Sun, 15 Dec 2024 03:01:13 -0600 Subject: [PATCH] feat: massive refactor --- .../Helpers.elm => Helpers/Header.elm} | 12 +++++++++-- .../Pages/Headers/Records/Arguments.elm | 14 ------------- .../Config/Pages/Headers/Records/Contact.elm | 14 ------------- .../Config/Pages/Headers/Records/CuckList.elm | 14 ------------- .../Config/Pages/Headers/Records/Debate.elm | 14 ------------- .../Config/Pages/Headers/Records/Donate.elm | 14 ------------- .../Pages/Headers/Records/Gibberish.elm | 15 ------------- .../Pages/Headers/Records/HyperBlog.elm | 14 ------------- .../Pages/Headers/Records/Interviews.elm | 14 ------------- .../Config/Pages/Headers/Records/NutriDex.elm | 14 ------------- .../Config/Pages/Headers/Records/Services.elm | 14 ------------- frontend/src/Config/Pages/Headers/Types.elm | 7 ------- frontend/src/Config/Pages/HyperBlog/Types.elm | 4 ++++ frontend/src/Pages/Contact.elm | 19 ++++++++++++++--- frontend/src/Pages/Debate.elm | 21 ++++++++++++++----- frontend/src/Pages/Debate/Arguments.elm | 18 ++++++++++++++-- frontend/src/Pages/Debate/Cucklist.elm | 18 ++++++++++++++-- frontend/src/Pages/Debate/Gibberish.elm | 19 +++++++++++++++-- frontend/src/Pages/Donate.elm | 19 +++++++++++++++-- frontend/src/Pages/Home_.elm | 5 +++++ frontend/src/Pages/HyperBlog.elm | 19 +++++++++++++++-- frontend/src/Pages/Interviews.elm | 19 +++++++++++++++-- frontend/src/Pages/NotFound_.elm | 5 +++++ frontend/src/Pages/Nutridex.elm | 20 +++++++++++++++--- frontend/src/Pages/Services.elm | 14 +++++++++++-- frontend/src/Pages/Services/Analysis.elm | 6 +++++- frontend/src/Pages/Services/Coaching.elm | 6 +++++- frontend/src/Pages/Services/Elm.elm | 6 +++++- frontend/src/Pages/Services/Nix.elm | 6 +++++- frontend/src/Pages/Services/Nutrition.elm | 6 +++++- 30 files changed, 210 insertions(+), 180 deletions(-) rename frontend/src/Config/{Pages/Headers/Helpers.elm => Helpers/Header.elm} (80%) delete mode 100755 frontend/src/Config/Pages/Headers/Records/Arguments.elm delete mode 100755 frontend/src/Config/Pages/Headers/Records/Contact.elm delete mode 100755 frontend/src/Config/Pages/Headers/Records/CuckList.elm delete mode 100755 frontend/src/Config/Pages/Headers/Records/Debate.elm delete mode 100755 frontend/src/Config/Pages/Headers/Records/Donate.elm delete mode 100755 frontend/src/Config/Pages/Headers/Records/Gibberish.elm delete mode 100755 frontend/src/Config/Pages/Headers/Records/HyperBlog.elm delete mode 100755 frontend/src/Config/Pages/Headers/Records/Interviews.elm delete mode 100755 frontend/src/Config/Pages/Headers/Records/NutriDex.elm delete mode 100755 frontend/src/Config/Pages/Headers/Records/Services.elm delete mode 100755 frontend/src/Config/Pages/Headers/Types.elm diff --git a/frontend/src/Config/Pages/Headers/Helpers.elm b/frontend/src/Config/Helpers/Header.elm similarity index 80% rename from frontend/src/Config/Pages/Headers/Helpers.elm rename to frontend/src/Config/Helpers/Header.elm index 571f364..f396f2e 100755 --- a/frontend/src/Config/Pages/Headers/Helpers.elm +++ b/frontend/src/Config/Helpers/Header.elm @@ -1,7 +1,9 @@ -module Config.Pages.Headers.Helpers exposing (headerMaker) +module Config.Helpers.Header exposing + ( Header + , headerMaker + ) import Config.Helpers.CardFormat exposing (..) -import Config.Pages.Headers.Types exposing (..) import Element as E exposing ( Element @@ -28,3 +30,9 @@ headerMaker header = ] ] ] + + +type alias Header = + { headerTitle : String + , headerBody : String + } diff --git a/frontend/src/Config/Pages/Headers/Records/Arguments.elm b/frontend/src/Config/Pages/Headers/Records/Arguments.elm deleted file mode 100755 index 53622b8..0000000 --- a/frontend/src/Config/Pages/Headers/Records/Arguments.elm +++ /dev/null @@ -1,14 +0,0 @@ -module Config.Pages.Headers.Records.Arguments exposing (..) - -import Config.Pages.Headers.Types exposing (..) - - -argumentHeader : Header -argumentHeader = - let - name = - "Arguments" - in - { headerTitle = String.toUpper name - , 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." - } diff --git a/frontend/src/Config/Pages/Headers/Records/Contact.elm b/frontend/src/Config/Pages/Headers/Records/Contact.elm deleted file mode 100755 index 55bf7d4..0000000 --- a/frontend/src/Config/Pages/Headers/Records/Contact.elm +++ /dev/null @@ -1,14 +0,0 @@ -module Config.Pages.Headers.Records.Contact exposing (..) - -import Config.Pages.Headers.Types exposing (..) - - -contactHeader : Header -contactHeader = - let - name = - "Contact" - in - { headerTitle = String.toUpper name - , headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj" - } diff --git a/frontend/src/Config/Pages/Headers/Records/CuckList.elm b/frontend/src/Config/Pages/Headers/Records/CuckList.elm deleted file mode 100755 index 02d200e..0000000 --- a/frontend/src/Config/Pages/Headers/Records/CuckList.elm +++ /dev/null @@ -1,14 +0,0 @@ -module Config.Pages.Headers.Records.CuckList exposing (..) - -import Config.Pages.Headers.Types exposing (..) - - -cuckListHeader : Header -cuckListHeader = - let - name = - "Cucklist" - in - { headerTitle = String.toUpper name - , 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." - } diff --git a/frontend/src/Config/Pages/Headers/Records/Debate.elm b/frontend/src/Config/Pages/Headers/Records/Debate.elm deleted file mode 100755 index 193ffd5..0000000 --- a/frontend/src/Config/Pages/Headers/Records/Debate.elm +++ /dev/null @@ -1,14 +0,0 @@ -module Config.Pages.Headers.Records.Debate exposing (..) - -import Config.Pages.Headers.Types exposing (..) - - -debateHeader : Header -debateHeader = - let - name = - "Debate" - in - { headerTitle = String.toUpper name - , headerBody = "Here you will find links to various pages relevant to debate, such as formal arguments, a list of debate-dodging cucks, and an inventory of nonsensical terminology." - } diff --git a/frontend/src/Config/Pages/Headers/Records/Donate.elm b/frontend/src/Config/Pages/Headers/Records/Donate.elm deleted file mode 100755 index 00689c4..0000000 --- a/frontend/src/Config/Pages/Headers/Records/Donate.elm +++ /dev/null @@ -1,14 +0,0 @@ -module Config.Pages.Headers.Records.Donate exposing (..) - -import Config.Pages.Headers.Types exposing (..) - - -donateHeader : Header -donateHeader = - let - name = - "Donate" - in - { headerTitle = String.toUpper name - , 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!" - } diff --git a/frontend/src/Config/Pages/Headers/Records/Gibberish.elm b/frontend/src/Config/Pages/Headers/Records/Gibberish.elm deleted file mode 100755 index 01b59ac..0000000 --- a/frontend/src/Config/Pages/Headers/Records/Gibberish.elm +++ /dev/null @@ -1,15 +0,0 @@ -module Config.Pages.Headers.Records.Gibberish exposing (..) - -import Config.Pages.Headers.Types exposing (..) - - -gibberishHeader : Header -gibberishHeader = - let - name = - "Gibberish" - in - { headerTitle = String.toUpper name - - , headerBody = "This page is specifically for terms and ostensible concepts that I think are either nonsensical or so practically useless that its intelligiblity is irrelevant." - } diff --git a/frontend/src/Config/Pages/Headers/Records/HyperBlog.elm b/frontend/src/Config/Pages/Headers/Records/HyperBlog.elm deleted file mode 100755 index 4d6b102..0000000 --- a/frontend/src/Config/Pages/Headers/Records/HyperBlog.elm +++ /dev/null @@ -1,14 +0,0 @@ -module Config.Pages.Headers.Records.HyperBlog exposing (..) - -import Config.Pages.Headers.Types exposing (..) - - -hyperBlogHeader : Header -hyperBlogHeader = - let - name = - "Blog" - in - { headerTitle = String.toUpper name - , headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj" - } diff --git a/frontend/src/Config/Pages/Headers/Records/Interviews.elm b/frontend/src/Config/Pages/Headers/Records/Interviews.elm deleted file mode 100755 index 966e3fe..0000000 --- a/frontend/src/Config/Pages/Headers/Records/Interviews.elm +++ /dev/null @@ -1,14 +0,0 @@ -module Config.Pages.Headers.Records.Interviews exposing (..) - -import Config.Pages.Headers.Types exposing (..) - - -interviewHeader : Header -interviewHeader = - let - name = - "Interviews" - in - { headerTitle = String.toUpper name - , headerBody = "This page showcases various podcasts and shows I've been on. If you’d like to have me as a guest on your podcast, feel free to reach out—I’d love to share my perspectives with your audience!" - } diff --git a/frontend/src/Config/Pages/Headers/Records/NutriDex.elm b/frontend/src/Config/Pages/Headers/Records/NutriDex.elm deleted file mode 100755 index 124725a..0000000 --- a/frontend/src/Config/Pages/Headers/Records/NutriDex.elm +++ /dev/null @@ -1,14 +0,0 @@ -module Config.Pages.Headers.Records.NutriDex exposing (..) - -import Config.Pages.Headers.Types exposing (..) - - -nutriDexHeader : Header -nutriDexHeader = - let - name = - "NutriDex" - in - { headerTitle = String.toUpper name - , headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj" - } diff --git a/frontend/src/Config/Pages/Headers/Records/Services.elm b/frontend/src/Config/Pages/Headers/Records/Services.elm deleted file mode 100755 index fff12bc..0000000 --- a/frontend/src/Config/Pages/Headers/Records/Services.elm +++ /dev/null @@ -1,14 +0,0 @@ -module Config.Pages.Headers.Records.Services exposing (..) - -import Config.Pages.Headers.Types exposing (..) - - -servicesHeader : Header -servicesHeader = - let - name = - "Services" - in - { headerTitle = String.toUpper name - , 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." - } diff --git a/frontend/src/Config/Pages/Headers/Types.elm b/frontend/src/Config/Pages/Headers/Types.elm deleted file mode 100755 index 1a54621..0000000 --- a/frontend/src/Config/Pages/Headers/Types.elm +++ /dev/null @@ -1,7 +0,0 @@ -module Config.Pages.Headers.Types exposing (..) - - -type alias Header = - { headerTitle : String - , headerBody : String - } diff --git a/frontend/src/Config/Pages/HyperBlog/Types.elm b/frontend/src/Config/Pages/HyperBlog/Types.elm index 54e3744..48612d9 100755 --- a/frontend/src/Config/Pages/HyperBlog/Types.elm +++ b/frontend/src/Config/Pages/HyperBlog/Types.elm @@ -1 +1,5 @@ module Config.Pages.HyperBlog.Types exposing (..) + + +asdasd = + [] diff --git a/frontend/src/Pages/Contact.elm b/frontend/src/Pages/Contact.elm index 54820df..9c15be4 100755 --- a/frontend/src/Pages/Contact.elm +++ b/frontend/src/Pages/Contact.elm @@ -31,9 +31,11 @@ import Config.Helpers.StrengthBar import Config.Helpers.ToolTip exposing (..) import Config.Helpers.Viewport exposing (resetViewport) import Config.Pages.Contact.Types exposing (..) -import Config.Pages.Headers.Helpers exposing (..) -import Config.Pages.Headers.Records.Contact exposing (contactHeader) -import Config.Pages.Headers.Types exposing (..) +import Config.Helpers.Header + exposing + ( Header + , headerMaker + ) import Config.Pages.Interviews.Types exposing (..) import Config.Pages.Products.Types exposing (..) import Config.Style.Colour exposing (colourTheme) @@ -142,6 +144,17 @@ contactList device = ) +contactHeader : Header +contactHeader = + let + name = + "Contact" + in + { headerTitle = String.toUpper name + , headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj" + } + + instructionMaker : Element msg instructionMaker = row diff --git a/frontend/src/Pages/Debate.elm b/frontend/src/Pages/Debate.elm index 596dace..81414b0 100755 --- a/frontend/src/Pages/Debate.elm +++ b/frontend/src/Pages/Debate.elm @@ -42,11 +42,11 @@ import Config.Pages.Debate.Arguments.List exposing (argumentListNumber) import Config.Pages.Debate.Cuckery.List exposing (cuckListNumber) import Config.Pages.Debate.Gibberish.List exposing (gibberishListNumber) import Config.Pages.Debate.Types exposing (..) -import Config.Pages.Headers.Helpers exposing (headerMaker) -import Config.Pages.Headers.Records.Arguments exposing (argumentHeader) -import Config.Pages.Headers.Records.CuckList exposing (cuckListHeader) -import Config.Pages.Headers.Records.Debate exposing (debateHeader) -import Config.Pages.Headers.Records.Gibberish exposing (gibberishHeader) +import Config.Helpers.Header + exposing + ( Header + , headerMaker + ) import Config.Style.Colour as T exposing (colourTheme) import Config.Style.Glow exposing @@ -175,6 +175,17 @@ debateList device = ] +debateHeader : Header +debateHeader = + let + name = + "Debate" + in + { headerTitle = String.toUpper name + , headerBody = "Here you will find links to various pages relevant to debate, such as formal arguments, a list of debate-dodging cucks, and an inventory of nonsensical terminology." + } + + desktopDebateMaker : Debate -> Element msg desktopDebateMaker debate = row diff --git a/frontend/src/Pages/Debate/Arguments.elm b/frontend/src/Pages/Debate/Arguments.elm index 0cae8ed..42c0aff 100755 --- a/frontend/src/Pages/Debate/Arguments.elm +++ b/frontend/src/Pages/Debate/Arguments.elm @@ -21,6 +21,11 @@ import Config.Helpers.Format ( paragraphFontSize , paragraphSpacing ) +import Config.Helpers.Header + exposing + ( Header + , headerMaker + ) import Config.Helpers.Response exposing ( pageList @@ -39,8 +44,6 @@ import Config.Pages.Debate.Arguments.List , argumentListNumber ) import Config.Pages.Debate.Arguments.Types exposing (..) -import Config.Pages.Headers.Helpers exposing (headerMaker) -import Config.Pages.Headers.Records.Arguments exposing (argumentHeader) import Config.Style.Colour exposing (colourTheme) import Config.Style.Glow exposing @@ -166,6 +169,17 @@ debateList device = ] +argumentHeader : Header +argumentHeader = + let + name = + "Arguments" + in + { headerTitle = String.toUpper name + , 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." + } + + argumentMaker : Argument -> Element msg argumentMaker argument = row diff --git a/frontend/src/Pages/Debate/Cucklist.elm b/frontend/src/Pages/Debate/Cucklist.elm index 6f1b118..1fabbc6 100755 --- a/frontend/src/Pages/Debate/Cucklist.elm +++ b/frontend/src/Pages/Debate/Cucklist.elm @@ -34,8 +34,11 @@ import Config.Pages.Debate.Cuckery.List , cuckListNumber ) import Config.Pages.Debate.Cuckery.Types exposing (..) -import Config.Pages.Headers.Helpers exposing (headerMaker) -import Config.Pages.Headers.Records.CuckList exposing (cuckListHeader) +import Config.Helpers.Header + exposing + ( Header + , headerMaker + ) import Config.Style.Colour exposing (colourTheme) import Config.Style.Transitions exposing @@ -157,6 +160,17 @@ cucksList device = ] +cuckListHeader : Header +cuckListHeader = + let + name = + "Cucklist" + in + { headerTitle = String.toUpper name + , 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." + } + + desktopCuckMaker : Cuck -> Element msg desktopCuckMaker cuck = row diff --git a/frontend/src/Pages/Debate/Gibberish.elm b/frontend/src/Pages/Debate/Gibberish.elm index cb4e7ac..96d5127 100755 --- a/frontend/src/Pages/Debate/Gibberish.elm +++ b/frontend/src/Pages/Debate/Gibberish.elm @@ -43,8 +43,12 @@ import Config.Pages.Debate.Gibberish.Records.PhilOfLanguage exposing (philOfLang import Config.Pages.Debate.Gibberish.Records.PhilOfMind exposing (philOfMindGibberish) import Config.Pages.Debate.Gibberish.Records.Theology exposing (theologyGibberish) import Config.Pages.Debate.Gibberish.Types exposing (..) -import Config.Pages.Headers.Helpers exposing (headerMaker) -import Config.Pages.Headers.Records.Gibberish exposing (gibberishHeader) +import Config.Helpers.Header exposing (..) +import Config.Helpers.Header + exposing + ( Header + , headerMaker + ) import Config.Style.Colour exposing (colourTheme) import Effect exposing (Effect) import Element as E exposing (..) @@ -170,6 +174,17 @@ gibberishList device = ] +gibberishHeader : Header +gibberishHeader = + let + name = + "Gibberish" + in + { headerTitle = String.toUpper name + , headerBody = "This page is specifically for terms and ostensible concepts that I think are either nonsensical or so practically useless that its intelligiblity is irrelevant." + } + + desktopGibberishMaker : Gibberish -> Element msg desktopGibberishMaker gibberish = row diff --git a/frontend/src/Pages/Donate.elm b/frontend/src/Pages/Donate.elm index 8499e3d..25e4ccb 100755 --- a/frontend/src/Pages/Donate.elm +++ b/frontend/src/Pages/Donate.elm @@ -42,8 +42,12 @@ import Config.Pages.Donate.Records.PayPal exposing (donatePayPal) import Config.Pages.Donate.Records.Stripe exposing (donateStripe) import Config.Pages.Donate.Records.YouTube exposing (donateYouTube) import Config.Pages.Donate.Types exposing (..) -import Config.Pages.Headers.Helpers exposing (headerMaker) -import Config.Pages.Headers.Records.Donate exposing (donateHeader) +import Config.Helpers.Header exposing (..) +import Config.Helpers.Header + exposing + ( Header + , headerMaker + ) import Config.Style.Colour as T exposing (..) import Effect exposing (Effect) import Element as E exposing (..) @@ -167,6 +171,17 @@ donateList device = ] +donateHeader : Header +donateHeader = + let + name = + "Donate" + in + { headerTitle = String.toUpper name + , 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!" + } + + donateMaker : Donate -> Element msg donateMaker donate = row diff --git a/frontend/src/Pages/Home_.elm b/frontend/src/Pages/Home_.elm index d585ef5..c60e595 100755 --- a/frontend/src/Pages/Home_.elm +++ b/frontend/src/Pages/Home_.elm @@ -12,6 +12,11 @@ import Config.Helpers.Response , topLevelContainer ) import Config.Helpers.Viewport exposing (resetViewport) +import Config.Helpers.Header + exposing + ( Header + , headerMaker + ) import Config.Style.Colour exposing (colourTheme) import Config.Style.Glow exposing (glowDeepDarkGrey) import Config.Style.Icons.Icons diff --git a/frontend/src/Pages/HyperBlog.elm b/frontend/src/Pages/HyperBlog.elm index 2c34208..6513daa 100755 --- a/frontend/src/Pages/HyperBlog.elm +++ b/frontend/src/Pages/HyperBlog.elm @@ -23,8 +23,12 @@ import Config.Helpers.Response , topLevelContainer ) import Config.Helpers.Viewport exposing (resetViewport) -import Config.Pages.Headers.Helpers exposing (headerMaker) -import Config.Pages.Headers.Records.NutriDex exposing (nutriDexHeader) +import Config.Helpers.Header exposing (..) +import Config.Helpers.Header + exposing + ( Header + , headerMaker + ) import Config.Style.Colour as T exposing (..) import Config.Style.Icons.Icons exposing (construction) import Effect exposing (Effect) @@ -120,3 +124,14 @@ hyperBlogList device = _ -> [ [ underConstructionMaker (String.toUpper pageNames.pageHyperBlog) ] ] ) + + +hyperBlogHeader : Header +hyperBlogHeader = + let + name = + "Blog" + in + { headerTitle = String.toUpper name + , headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj" + } diff --git a/frontend/src/Pages/Interviews.elm b/frontend/src/Pages/Interviews.elm index 1844c63..6db8933 100755 --- a/frontend/src/Pages/Interviews.elm +++ b/frontend/src/Pages/Interviews.elm @@ -34,8 +34,12 @@ import Config.Helpers.StrengthBar ) import Config.Helpers.ToolTip exposing (tooltip) import Config.Helpers.Viewport exposing (resetViewport) -import Config.Pages.Headers.Helpers exposing (headerMaker) -import Config.Pages.Headers.Records.Interviews exposing (interviewHeader) +import Config.Helpers.Header exposing (..) +import Config.Helpers.Header + exposing + ( Header + , headerMaker + ) import Config.Pages.Interviews.Records.DrShawnBakerPodcast exposing (drShawnBakerPodcast) import Config.Pages.Interviews.Records.FitAndFurious exposing (fitAndFurious) import Config.Pages.Interviews.Records.FoolproofMastery exposing (foolproofMastery) @@ -176,6 +180,17 @@ interviewList device = ] +interviewHeader : Header +interviewHeader = + let + name = + "Interviews" + in + { headerTitle = String.toUpper name + , headerBody = "This page showcases various podcasts and shows I've been on. If you’d like to have me as a guest on your podcast, feel free to reach out—I’d love to share my perspectives with your audience!" + } + + interviewMaker : Interview -> Element msg interviewMaker interview = row diff --git a/frontend/src/Pages/NotFound_.elm b/frontend/src/Pages/NotFound_.elm index 509d480..7651dca 100755 --- a/frontend/src/Pages/NotFound_.elm +++ b/frontend/src/Pages/NotFound_.elm @@ -22,6 +22,11 @@ import Config.Helpers.Response , pageListCenter , topLevelContainer ) +import Config.Helpers.Header + exposing + ( Header + , headerMaker + ) import Effect exposing (Effect) import Element as E exposing (..) import Layouts diff --git a/frontend/src/Pages/Nutridex.elm b/frontend/src/Pages/Nutridex.elm index eedd996..a3b88cf 100755 --- a/frontend/src/Pages/Nutridex.elm +++ b/frontend/src/Pages/Nutridex.elm @@ -34,9 +34,12 @@ import Config.Helpers.StrengthBar ) import Config.Helpers.ToolTip exposing (tooltip) import Config.Helpers.Viewport exposing (resetViewport) -import Config.Pages.Headers.Helpers exposing (headerMaker) -import Config.Pages.Headers.Records.Donate exposing (donateHeader) -import Config.Pages.Headers.Records.NutriDex exposing (nutriDexHeader) +import Config.Helpers.Header exposing (..) +import Config.Helpers.Header + exposing + ( Header + , headerMaker + ) import Config.Pages.Products.Records.NutriDex exposing (productNutriDex) import Config.Pages.Products.Types exposing (..) import Config.Style.Colour exposing (colourTheme) @@ -159,6 +162,17 @@ nutriDexList device = ] +nutriDexHeader : Header +nutriDexHeader = + let + name = + "NutriDex" + in + { headerTitle = String.toUpper name + , headerBody = "fasdklfjasdlk;fjasdl;fjasdfl;kasjdfl;askdja;lsdkjas;ldfj" + } + + nutriDexMaker : NutriDex -> Element msg nutriDexMaker nutridex = row diff --git a/frontend/src/Pages/Services.elm b/frontend/src/Pages/Services.elm index 73c169a..ba5b63d 100755 --- a/frontend/src/Pages/Services.elm +++ b/frontend/src/Pages/Services.elm @@ -22,14 +22,13 @@ import Config.Helpers.Format ( paragraphFontSize , paragraphSpacing ) +import Config.Helpers.Header exposing (..) import Config.Helpers.Response exposing ( pageList , topLevelContainer ) import Config.Helpers.Viewport exposing (resetViewport) -import Config.Pages.Headers.Helpers exposing (headerMaker) -import Config.Pages.Headers.Records.Services exposing (servicesHeader) import Config.Pages.Services.Records.DebateAnalysis exposing (..) import Config.Pages.Services.Records.DebateCoaching exposing (..) import Config.Pages.Services.Records.ElmBuilds exposing (..) @@ -155,6 +154,17 @@ servicesList device = ] +servicesHeader : Header +servicesHeader = + let + name = + "Services" + in + { headerTitle = String.toUpper name + , 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." + } + + serviceMaker : Service msg -> Element msg serviceMaker service = row diff --git a/frontend/src/Pages/Services/Analysis.elm b/frontend/src/Pages/Services/Analysis.elm index 3ff79e0..e84f456 100755 --- a/frontend/src/Pages/Services/Analysis.elm +++ b/frontend/src/Pages/Services/Analysis.elm @@ -5,7 +5,11 @@ import Config.Helpers.CardFormat exposing (..) import Config.Helpers.Format exposing (..) import Config.Helpers.Response exposing (pageList, topLevelContainer) import Config.Helpers.ToolTip exposing (..) -import Config.Pages.Headers.Types exposing (..) +import Config.Helpers.Header + exposing + ( Header + , headerMaker + ) import Config.Pages.Services.Records.DebateAnalysis exposing (..) import Config.Style.Colour exposing (colourTheme) import Config.Style.Transitions diff --git a/frontend/src/Pages/Services/Coaching.elm b/frontend/src/Pages/Services/Coaching.elm index 1811637..e5c474e 100755 --- a/frontend/src/Pages/Services/Coaching.elm +++ b/frontend/src/Pages/Services/Coaching.elm @@ -9,7 +9,11 @@ import Config.Helpers.Response , topLevelContainer ) import Config.Helpers.ToolTip exposing (..) -import Config.Pages.Headers.Types exposing (..) +import Config.Helpers.Header + exposing + ( Header + , headerMaker + ) import Config.Pages.Services.Records.DebateCoaching exposing (servicesDebateCoaching) import Config.Style.Colour exposing (colourTheme) import Config.Style.Transitions diff --git a/frontend/src/Pages/Services/Elm.elm b/frontend/src/Pages/Services/Elm.elm index db554df..4c7b0ee 100755 --- a/frontend/src/Pages/Services/Elm.elm +++ b/frontend/src/Pages/Services/Elm.elm @@ -9,7 +9,11 @@ import Config.Helpers.Response , topLevelContainer ) import Config.Helpers.ToolTip exposing (..) -import Config.Pages.Headers.Types exposing (..) +import Config.Helpers.Header + exposing + ( Header + , headerMaker + ) import Config.Pages.Services.Records.ElmBuilds exposing (servicesElmBuilds) import Config.Style.Colour exposing (..) import Config.Style.Transitions diff --git a/frontend/src/Pages/Services/Nix.elm b/frontend/src/Pages/Services/Nix.elm index 4ae1125..677e72b 100755 --- a/frontend/src/Pages/Services/Nix.elm +++ b/frontend/src/Pages/Services/Nix.elm @@ -9,7 +9,11 @@ import Config.Helpers.Response , topLevelContainer ) import Config.Helpers.ToolTip exposing (..) -import Config.Pages.Headers.Types exposing (..) +import Config.Helpers.Header + exposing + ( Header + , headerMaker + ) import Config.Pages.Services.Records.NixBuilds exposing (servicesNixBuilds) import Config.Style.Colour exposing (..) import Config.Style.Transitions diff --git a/frontend/src/Pages/Services/Nutrition.elm b/frontend/src/Pages/Services/Nutrition.elm index 2f0a89f..0de43c0 100755 --- a/frontend/src/Pages/Services/Nutrition.elm +++ b/frontend/src/Pages/Services/Nutrition.elm @@ -9,7 +9,11 @@ import Config.Helpers.Response , topLevelContainer ) import Config.Helpers.ToolTip exposing (..) -import Config.Pages.Headers.Types exposing (..) +import Config.Helpers.Header + exposing + ( Header + , headerMaker + ) import Config.Pages.Services.Records.NutritionScience exposing (servicesNutritionScience) import Config.Style.Colour exposing (colourTheme) import Config.Style.Transitions