feat: v1 finally done?

This commit is contained in:
Nick 2025-01-02 02:33:57 -06:00
parent 9f8d9c3146
commit 07b9330264
245 changed files with 3140 additions and 2197 deletions

View file

@ -1,31 +1,31 @@
module Pages.Services.Analysis exposing (Model, Msg, page)
import Config.Helpers.Articles.Article exposing (contentList)
import Config.Helpers.Cards.Inner.BuyButton exposing (buyButton)
import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker)
import Config.Helpers.Cards.Outer.Types as C exposing (..)
import Config.Helpers.Format exposing (..)
import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..))
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Price exposing (buyButton)
import Config.Helpers.Response exposing (pageList, topLevelContainer)
import Config.Helpers.ServiceFormat exposing (..)
import Config.Helpers.ToolTip exposing (..)
import Config.Helpers.Response
exposing
( pageList
, topLevelContainer
)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Config.Pages.Services.Records.DebateAnalysis exposing (..)
import Config.Pages.Services.Records.DebateAnalysis exposing (servicesDebateAnalysis)
import Config.Style.Colour.Helpers exposing (colourTheme)
import Config.Style.Transitions
exposing
( hoverFontDarkOrange
, transitionStyleFast
, transitionStyleSlow
)
import Effect exposing (Effect)
import Element as E exposing (..)
import Element.Background as B
import Element.Border as D
import Element.Font as F
import Html
import Html.Attributes as H exposing (style)
import Element as E
exposing
( Device
, DeviceClass(..)
, Element
, Orientation(..)
, centerX
, column
, el
, paddingXY
)
import Layouts
import Page exposing (Page)
import Route exposing (Route)
@ -137,7 +137,6 @@ analysisList device =
]
debateAnalysis : BlogArticle
debateAnalysis =
{ articleName = String.toUpper "Debate Analysis"

View file

@ -1,36 +1,31 @@
module Pages.Services.Coaching exposing (Model, Msg, page)
import Config.Helpers.Articles.Article exposing (contentList)
import Config.Helpers.Cards.Inner.BuyButton exposing (buyButton)
import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker)
import Config.Helpers.Cards.Outer.Types as C
import Config.Helpers.Format exposing (..)
import Config.Helpers.Headers.Helpers exposing (..)
import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..))
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Price exposing (buyButton)
import Config.Helpers.Response
exposing
( pageList
, topLevelContainer
)
import Config.Helpers.ServiceFormat exposing (..)
import Config.Helpers.ToolTip exposing (..)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Config.Pages.Services.Records.DebateCoaching exposing (servicesDebateCoaching)
import Config.Style.Colour.Helpers exposing (colourTheme)
import Config.Style.Transitions
exposing
( hoverFontDarkOrange
, transitionStyleFast
, transitionStyleSlow
)
import Effect exposing (Effect)
import Element as E exposing (..)
import Element.Background as B
import Element.Border as D
import Element.Font as F
import Html
import Html.Attributes as H exposing (style)
import Element as E
exposing
( Device
, DeviceClass(..)
, Element
, Orientation(..)
, centerX
, column
, el
, paddingXY
)
import Layouts
import Page exposing (Page)
import Route exposing (Route)
@ -141,6 +136,7 @@ coachingList device =
[ debateCoaching ]
]
debateCoaching : BlogArticle
debateCoaching =
{ articleName = String.toUpper "Debate Tutoring"

View file

@ -1,35 +1,45 @@
module Pages.Services.Elm exposing (Model, Msg, page)
import Config.Helpers.Articles.Article exposing (contentList)
import Config.Helpers.Cards.Inner.BuyButton exposing (buyButton)
import Config.Helpers.Cards.Inner.Text exposing (renderCodeLine)
import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker)
import Config.Helpers.Cards.Outer.Types as C
import Config.Helpers.Format exposing (..)
import Config.Helpers.Headers.Helpers exposing (..)
import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..))
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
exposing
( pageList
, topLevelContainer
)
import Config.Helpers.ServiceFormat exposing (..)
import Config.Helpers.ToolTip exposing (..)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Config.Pages.Services.Records.ElmBuilds exposing (servicesElmBuilds)
import Config.Style.Colour.Helpers exposing (..)
import Config.Style.Transitions
import Config.Style.Colour.Helpers
exposing
( hoverFontDarkOrange
, transitionStyleFast
, transitionStyleSlow
( ThemeColor(..)
, getThemeColor
, syntaxTheme
)
import Effect exposing (Effect)
import Element as E exposing (..)
import Element.Background as B
import Element.Border as D
import Element.Font as F
import Html
import Html.Attributes as H exposing (style)
import Element as E
exposing
( Device
, DeviceClass(..)
, Element
, Orientation(..)
, centerX
, column
, el
, fill
, paddingEach
, paddingXY
, spacing
, text
, width
)
import Element.Background as B exposing (color)
import Element.Border as D exposing (rounded)
import Element.Font as F exposing (color)
import Layouts
import Page exposing (Page)
import Route exposing (Route)
@ -146,8 +156,7 @@ elmBuilds =
, articleImage = ""
, articlePublished = ""
, articleBody = """
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.
If you're in the market for a new frontend for your website, please inquire at [nick@upRootNutrition.com](mailto:).
The site that you're currently viewing this on was written by me in the Elm programming language, and I'm offering frontend development as a service at a fee that reflects my skill level. If you're in the market for a new frontend for your website, please inquire at [nick@upRootNutrition.com](mailto:).
Below is an example of a helper function that I wrote for this site. This particular function extracts the first 80 words from all of my articles' markdown strings, and displays them as blurbs, followed by an ellipsis, in my article cards using my markdown parser.
@ -194,13 +203,13 @@ elmCodeRenderer device =
}
, case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
B.color colourTheme.backgroundDarkGrey
B.color (getThemeColor BackgroundDarkGrey)
( Tablet, Portrait ) ->
B.color colourTheme.backgroundDarkGrey
B.color (getThemeColor BackgroundDarkGrey)
_ ->
B.color colourTheme.backgroundLightGrey
B.color (getThemeColor BackgroundLightGrey)
, D.rounded 10
, width fill
, spacing 8

View file

@ -1,36 +1,47 @@
module Pages.Services.Nix exposing (Model, Msg, page)
import Config.Helpers.Articles.Article exposing (contentList)
import Config.Helpers.Cards.Inner.BuyButton exposing (buyButton)
import Config.Helpers.Cards.Inner.Text exposing (renderCodeLine)
import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker)
import Config.Helpers.Cards.Outer.Types as C
import Config.Helpers.Format exposing (..)
import Config.Helpers.Headers.Helpers exposing (..)
import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..))
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Response
exposing
( pageList
, topLevelContainer
)
import Config.Helpers.ServiceFormat exposing (..)
import Config.Helpers.ToolTip exposing (..)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Config.Pages.Services.Records.NixBuilds exposing (servicesNixBuilds)
import Config.Style.Colour.Helpers exposing (..)
import Config.Style.Colour.Types exposing (..)
import Config.Style.Transitions
import Config.Style.Colour.Helpers
exposing
( hoverFontDarkOrange
, transitionStyleFast
, transitionStyleSlow
( ThemeColor(..)
, getThemeColor
, syntaxTheme
)
import Config.Style.Colour.Types exposing (SyntaxColors)
import Effect exposing (Effect)
import Element as E exposing (..)
import Element.Background as B
import Element.Border as D
import Element.Font as F
import Html
import Html.Attributes as H exposing (style)
import Element as E
exposing
( Device
, DeviceClass(..)
, Element
, Orientation(..)
, centerX
, column
, el
, fill
, paddingEach
, paddingXY
, paragraph
, spacing
, text
, width
)
import Element.Background as B exposing (color)
import Element.Border as D exposing (rounded)
import Element.Font as F exposing (color)
import Layouts
import Page exposing (Page)
import Route exposing (Route)
@ -206,13 +217,13 @@ nixCodeRenderer device =
}
, case ( device.class, device.orientation ) of
( Phone, Portrait ) ->
B.color colourTheme.backgroundDarkGrey
B.color (getThemeColor BackgroundDarkGrey)
( Tablet, Portrait ) ->
B.color colourTheme.backgroundDarkGrey
B.color (getThemeColor BackgroundDarkGrey)
_ ->
B.color colourTheme.backgroundLightGrey
B.color (getThemeColor BackgroundLightGrey)
, D.rounded 10
, width fill
, spacing 8

View file

@ -1,36 +1,31 @@
module Pages.Services.Nutrition exposing (Model, Msg, page)
import Config.Helpers.Articles.Article exposing (contentList)
import Config.Helpers.Cards.Inner.BuyButton exposing (buyButton)
import Config.Helpers.Cards.Outer.Helpers exposing (cardMaker)
import Config.Helpers.Cards.Outer.Types as C
import Config.Helpers.Format exposing (..)
import Config.Helpers.Headers.Helpers exposing (..)
import Config.Helpers.Cards.Outer.Types as C exposing (Cardable(..))
import Config.Helpers.Headers.Types exposing (Header)
import Config.Helpers.Price exposing (buyButton)
import Config.Helpers.Response
exposing
( pageList
, topLevelContainer
)
import Config.Helpers.ServiceFormat exposing (..)
import Config.Helpers.ToolTip exposing (..)
import Config.Helpers.Viewport exposing (resetViewport)
import Config.Pages.Blog.Types exposing (BlogArticle)
import Config.Pages.Services.Records.NutritionScience exposing (servicesNutritionScience)
import Config.Style.Colour.Helpers exposing (colourTheme)
import Config.Style.Transitions
exposing
( hoverFontDarkOrange
, transitionStyleFast
, transitionStyleSlow
)
import Effect exposing (Effect)
import Element as E exposing (..)
import Element.Background as B
import Element.Border as D
import Element.Font as F
import Html
import Html.Attributes as H exposing (style)
import Element as E
exposing
( Device
, DeviceClass(..)
, Element
, Orientation(..)
, centerX
, column
, el
, paddingXY
)
import Layouts
import Page exposing (Page)
import Route exposing (Route)