upRootNutrition/website
1
0
Fork 0
mirror of https://gitlab.com/upRootNutrition/website.git synced 2025-08-10 04:14:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: version 1 done?

Browse source
This commit is contained in:
Nick 2024-12-23 03:15:35 -06:00
parent cf580a71d0
commit d1ba50abd8
30 changed files with 668 additions and 261 deletions
Download patch file Download diff file Expand all files Collapse all files

42
frontend/src/Config/Helpers/Cards/Helpers.elm
View file

@ -14,6 +14,7 @@ import Config.Helpers.Format
, paragraphFontSize
, paragraphSpacing
)
import Config.Helpers.ImageFolders as M exposing (..)
import Config.Helpers.Response exposing (contentContainer)
import Config.Pages.Debate.Arguments.Records.Template exposing (argument)
import Config.Style.Colour exposing (colourTheme)
@ -57,7 +58,7 @@ cardMaker device cardable contents =
True
C.Argument _ ->
True
False
C.Gibberish _ ->
True
@ -265,10 +266,21 @@ cardMaker device cardable contents =
cardImageMaker : String -> Element msg
cardImageMaker image =
let
mobileImageSize =
[ E.width <| px 45
, E.height <| px 45
]
in
el
[ alignRight
, alignTop
, padding 10
, paddingEach
{ top = 20
, bottom = 0
, left = 30
, right = 0
}
]
<|
el
@ -287,14 +299,10 @@ cardMaker device cardable contents =
]
++ (case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
[ E.width <| px 45
, E.height <| px 45
]
mobileImageSize
( Tablet, Portrait ) ->
[ E.width <| px 45
, E.height <| px 45
]
mobileImageSize
_ ->
[ E.width <| px 90
@ -464,7 +472,7 @@ cardMaker device cardable contents =
C.Cuck cuck ->
cardWithImage
cuck.cuckName
("/cucks/" ++ cuck.cuckImage ++ "/" ++ cuck.cuckImage ++ ".png")
(imagePathMaker M.Cuck cuck.cuckImage)
contents
C.BlogArticle blogArticle ->
@ -476,22 +484,20 @@ cardMaker device cardable contents =
cardWithImageWithLink
blogArticle.isNewTabLink
blogArticle.articleName
("/blog/" ++ blogArticle.articleImage ++ "thumb.png")
(imagePathMaker M.BlogCard blogArticle.articleImage)
blogArticle.articleLink
contents
C.Argument argument ->
cardWithNoImageWithLink
argument.isNewTabLink
cardWithNoImage
argument.argumentTitle
argument.proofLink
contents
C.Gibberish gibberish ->
cardWithImageWithLink
gibberish.isNewTabLink
gibberish.gibberishTitle
("/gibberish/" ++ gibberish.gibberishImage ++ ".png")
(imagePathMaker M.Gibberish gibberish.gibberishImage)
gibberish.gibberishLink
contents
@ -499,7 +505,7 @@ cardMaker device cardable contents =
cardWithImageWithLink
service.isNewTabLink
service.serviceName
("/services/" ++ service.serviceImage ++ ".png")
(imagePathMaker M.Service service.serviceImage)
service.serviceLink
contents
@ -507,7 +513,7 @@ cardMaker device cardable contents =
cardWithImageWithLink
debate.isNewTabLink
debate.debateTitle
("/debate/" ++ debate.debateImage ++ ".png")
(imagePathMaker M.Debate debate.debateImage)
debate.debateLink
contents
@ -515,14 +521,14 @@ cardMaker device cardable contents =
cardWithImageWithLink
donate.isNewTabLink
donate.donateName
("/donate/" ++ donate.donateImage ++ ".png")
(imagePathMaker M.Donate donate.donateImage)
donate.donateLink
contents
C.Interview interview ->
cardWithImage
interview.interviewName
("/interviews/" ++ interview.interviewImage ++ ".png")
(imagePathMaker M.Interviews interview.interviewImage)
contents
C.NutriDex nutriDex ->

62
frontend/src/Config/Helpers/ImageFolders.elm Normal file
View file

@ -0,0 +1,62 @@
module Config.Helpers.ImageFolders exposing (..)
imagePathMaker : ImageFolder -> String -> String
imagePathMaker imageFolder name =
case imageFolder of
Cuck ->
"/" ++ getImageFolderString imageFolder ++ "/" ++ name ++ "/" ++ name ++ ".png"
_ ->
"/" ++ getImageFolderString imageFolder ++ "/" ++ name ++ ".png"
getImageFolderString : ImageFolder -> String
getImageFolderString imageFolder =
case imageFolder of
Interviews ->
"interviews"
Gibberish ->
"gibberish"
Cuck ->
"cucks"
BlogArticle ->
"blog"
BlogCard ->
"blog/thumbs"
Argument ->
"arguments"
Service ->
"services"
Debate ->
"debate"
Donate ->
"donate"
NutriDex ->
"nutridex"
ServicePage ->
"services"
type ImageFolder
= Interviews
| Gibberish
| Cuck
| BlogArticle
| BlogCard
| Argument
| Service
| Debate
| Donate
| NutriDex
| ServicePage

51
frontend/src/Config/Helpers/Price.elm Normal file
View file

@ -0,0 +1,51 @@
module Config.Helpers.Price exposing (..)
import Config.Style.Colour exposing (colourTheme)
import Config.Style.Transitions exposing (hoverPageButtonDeepDarkOrange, transitionStyleMedium)
import Element as E exposing (..)
import Element.Background as B exposing (color)
import Element.Border as D exposing (rounded)
import Element.Font as F exposing (center)
import Config.Style.Glow exposing (glowDeepDarkGrey)
buyButton : String -> String -> Element msg
buyButton price url =
el
[ D.width 5
, D.rounded 30
, centerX
, glowDeepDarkGrey
, D.color colourTheme.backgroundLightGrey
, B.color colourTheme.backgroundLightGrey
]
<|
el
[ B.color colourTheme.textDarkOrange
, D.rounded 30
, F.size 25
, F.bold
, transitionStyleMedium
, hoverPageButtonDeepDarkOrange
, paddingEach
{ top = 10
, right = 25
, bottom = 10
, left = 25
}
]
<|
newTabLink []
{ url = url
, label =
row
[ F.center
, paddingEach
{ top = 3
, right = 0
, bottom = 0
, left = 0
}
]
[ text price ]
}

17
frontend/src/Config/Helpers/StrengthBar.elm
View file

@ -10,12 +10,12 @@ import Element.Border as D
barMaker : (Int -> String) -> Int -> Element msg
barMaker getTooltip num =
el
([ height <| px 12
, width fill
, D.rounded 10
, D.color colourTheme.textDarkGrey
, D.width 2
, B.gradient
[ height <| px 12
, width fill
, D.rounded 10
, D.color colourTheme.textDarkGrey
, D.width 2
, B.gradient
{ angle = 1.57
, steps =
List.concat
@ -23,9 +23,8 @@ barMaker getTooltip num =
, List.repeat (10 - num) colourTheme.barRed
]
}
]
++ [ tooltip (getTooltip num) ]
)
, tooltip (getTooltip num)
]
none

6
frontend/src/Config/Pages/Services/Records/ElmBuilds.elm
View file

@ -14,7 +14,7 @@ servicesElmBuilds =
let
name : String
name =
"Custom Elm Sites"
"Front End Development"
in
{ serviceImage = formatName name
, serviceLink = Path.toString Path.Services_Elm
@ -41,8 +41,8 @@ servicesElmBuilds =
, title10 = ""
}
, articleParagraph =
{ paragraph1 = [ text "The site that you're currently viewing this on was written by me in the Elm programming language. I end , chunkMaker servicesElmBuilds.serviceArticle.articleParagraph.paragraph2e. After a while, I realized that I could create high quality work with it, so I'm offering it as a service." ]
, paragraph2 = [ text "Below is an example of a function that I wrote in Elm. In this case, it's the function that is used all over my website to make the strength meters." ]
{ paragraph1 = [ text "The site that you're currently viewing this on was written by me in the Elm programming language. In the process of programming this website, I realized that I could create reasonably high quality work with Elm, so I'm offering it as a service at a fee that reflects my skill level. ", text "If you're in the market for a new frontend for your website, please inquire at ", el [ F.bold, F.color colourTheme.textLightOrange ] <| text "nick@upRootNutrition.com", text "." ]
, paragraph2 = [text "Below is an example of a function that I wrote for this site. This particular function renders all of the circular images on all of the site's information cards. Any time you see one of those images, this function is responsible for it."]
, paragraph3 =
[ text "The source code for this website is viewable on "
, newTabLink []

4
frontend/src/Config/Pages/Services/Records/NixBuilds.elm
View file

@ -41,8 +41,8 @@ servicesNixBuilds =
, title10 = ""
}
, articleParagraph =
{ paragraph1 = [ text "NixOS has become popular in my community, with many people choosing to explore it over Windows, MacOS, and other Linux distributions. Naturally, as a consequence of this, I receive numerous requests for help regarding the Nix programming language and NixOS system configuration. So, to fast-track newcomers and to make my life a little bit easier for both of us, I'm offering to build custom NixOS configurations for interested clients." ]
, paragraph2 = [ text "Below is an example of a nix flake that I wrote. In this case, it's the flake that was used to build the development shell for the production of this very website." ]
{ paragraph1 = [ text "NixOS has become popular in my community, with many people choosing to explore it over Windows, MacOS, and other Linux distributions. Naturally, as a consequence of this, I receive numerous requests for help regarding the Nix programming language and NixOS system configuration. So, to fast-track newcomers and to make my life a little bit easier for both of us, I'm offering to build custom NixOS configurations for interested clients. ", text "If you're interested in having a custom Nix configuration, or having a pre-existing configuration refactored, please inquire at ", el [ F.bold, F.color colourTheme.textLightOrange ] <| text "nick@upRootNutrition.com", text "." ]
, paragraph2 = [ text "Below is an example of a nix flake that I wrote for the devshell that I used to manage and isolate the development environment for this site. All of the packages, pre-defined settings, and tooling used for this site are managed through this flake." ]
, paragraph3 =
[ text "The source code for this website's server is viewable on "
, newTabLink []

2
frontend/src/Config/Style/Colour.elm
View file

@ -18,6 +18,7 @@ type alias Theme =
, backgroundDarkGrey : Color
, backgroundDeepDarkGrey : Color
, backgroundSpreadsheet : Color
, backgroundSpreadsheetDark : Color
, shadow : Color
, barGreen : Color
, barRed : Color
@ -48,6 +49,7 @@ colourTheme =
, backgroundDarkGrey = rgb255 30 30 30
, backgroundDeepDarkGrey = rgb255 20 20 20
, backgroundSpreadsheet = rgb255 36 36 36
, backgroundSpreadsheetDark = rgb255 26 26 26
, shadow = rgb255 10 10 10
, barGreen = rgb255 0 102 0
, barRed = rgb255 102 0 0

8
frontend/src/Config/Style/Icons/Icons.elm
View file

@ -900,18 +900,16 @@ construction =
]
construction2 : SvgTypes.OuterPart msg -> Element msg
construction2 inner =
leaving : SvgTypes.OuterPart msg -> Element msg
leaving inner =
HeSvg.buildSvg inner
{ svgAttributes =
[ SvgAttr.viewBox "0 0 576 512"
-- Using elm-svg because typed-svg has no way of setting the fill to currentColor.
, SvgAttr.fill "currentColor"
]
, svg =
[ path
[ SvgAttr.d "M208 64a48 48 0 1 1 96 0 48 48 0 1 1 -96 0zM9.8 214.8c5.1-12.2 19.1-18 31.4-12.9L60.7 210l22.9-38.1C99.9 144.6 129.3 128 161 128c51.4 0 97 32.9 113.3 81.7l34.6 103.7 79.3 33.1 34.2-45.6c6.4-8.5 16.6-13.3 27.2-12.8s20.3 6.4 25.8 15.5l96 160c5.9 9.9 6.1 22.2 .4 32.2s-16.3 16.2-27.8 16.2l-256 0c-11.1 0-21.4-5.7-27.2-15.2s-6.4-21.2-1.4-31.1l16-32c5.4-10.8 16.5-17.7 28.6-17.7l32 0 22.5-30L22.8 246.2c-12.2-5.1-18-19.1-12.9-31.4zm82.8 91.8l112 48c11.8 5 19.4 16.6 19.4 29.4l0 96c0 17.7-14.3 32-32 32s-32-14.3-32-32l0-74.9-60.6-26-37 111c-5.6 16.8-23.7 25.8-40.5 20.2S-3.9 486.6 1.6 469.9l48-144 11-33 32 13.7z"
[ SvgAttr.d "M320 0c-17.7 0-32 14.3-32 32s14.3 32 32 32l82.7 0L201.4 265.4c-12.5 12.5-12.5 32.8 0 45.3s32.8 12.5 45.3 0L448 109.3l0 82.7c0 17.7 14.3 32 32 32s32-14.3 32-32l0-160c0-17.7-14.3-32-32-32L320 0zM80 32C35.8 32 0 67.8 0 112L0 432c0 44.2 35.8 80 80 80l320 0c44.2 0 80-35.8 80-80l0-112c0-17.7-14.3-32-32-32s-32 14.3-32 32l0 112c0 8.8-7.2 16-16 16L80 448c-8.8 0-16-7.2-16-16l0-320c0-8.8 7.2-16 16-16l112 0c17.7 0 32-14.3 32-32s-14.3-32-32-32L80 32z"
]
[]
]