From b02fe9a1368928f889f79eaa1f911ba04c7ea40d Mon Sep 17 00:00:00 2001 From: Nick Date: Sun, 29 Dec 2024 19:33:40 -0600 Subject: [PATCH] feat: added link to home page --- .../src/Config/Helpers/Cards/Inner/Helpers.elm | 17 ++++++++++++++--- frontend/src/Pages/Home_.elm | 11 +++++++++-- 2 files changed, 23 insertions(+), 5 deletions(-) diff --git a/frontend/src/Config/Helpers/Cards/Inner/Helpers.elm b/frontend/src/Config/Helpers/Cards/Inner/Helpers.elm index c149f26..2be8c31 100755 --- a/frontend/src/Config/Helpers/Cards/Inner/Helpers.elm +++ b/frontend/src/Config/Helpers/Cards/Inner/Helpers.elm @@ -78,7 +78,10 @@ detailTitleLink : ThemeColor -> String -> Element msg detailTitleLink colour item = el (getHoverColours colour - ++ titleFormat colour + ++ (titleFormat colour + ++ [ pointer + ] + ) ) <| text item @@ -88,7 +91,11 @@ detailTitleLinkWide : ThemeColor -> String -> Element msg detailTitleLinkWide colour item = paragraph (getHoverColours colour - ++ (titleFormat colour ++ [ width fill ]) + ++ (titleFormat colour + ++ [ width fill + , pointer + ] + ) ) [ text item ] @@ -97,7 +104,11 @@ detailBodyLink : ThemeColor -> String -> Element msg detailBodyLink colour item = el (getHoverColours colour - ++ bodyFormat colour + ++ (bodyFormat colour + ++ [ width fill + , pointer + ] + ) ) <| text item diff --git a/frontend/src/Pages/Home_.elm b/frontend/src/Pages/Home_.elm index 289f655..845cbf4 100755 --- a/frontend/src/Pages/Home_.elm +++ b/frontend/src/Pages/Home_.elm @@ -1,6 +1,7 @@ module Pages.Home_ exposing (Model, Msg, page) import Config.Data.Identity exposing (pageNames) +import Config.Helpers.Cards.Inner.Helpers exposing (bodyFormat, detailBodyLink, detailBodyMaker) import Config.Helpers.Format exposing ( paragraphFontSize @@ -13,7 +14,7 @@ import Config.Helpers.Response , topLevelContainer ) import Config.Helpers.Viewport exposing (resetViewport) -import Config.Style.Colour.Helpers exposing (colourTheme) +import Config.Style.Colour.Helpers exposing (ThemeColor(..), colourTheme) import Config.Style.Glow exposing (glowDeepDarkGrey) import Config.Style.Icons.Icons exposing @@ -187,5 +188,11 @@ homePage device image = , paragraphFontSize , centerX ] - [ text "upRootNutrition is an open source project, created by Nick Hiebert, designed to elevate the quality of nutrition science communication in online discourse. By applying more rigorous systems of reasoning, such as formal logic and semantic analysis, upRootNutrition aims to cut through the misinformation and sophistry that are endemic on social media." ] + [ text "upRootNutrition is an " + , newTabLink [] + { url = "https://gitlab.com/upRootNutrition/website" + , label = detailBodyLink TextLightOrange "open source project" + } + , text " created by Nick Hiebert, designed to elevate the quality of nutrition science communication in online discourse. By applying more rigorous systems of reasoning, such as formal logic and semantic analysis, upRootNutrition aims to cut through the misinformation and sophistry that are endemic on social media." + ] ]