mirror of
https://gitlab.com/upRootNutrition/website.git
synced 2025-06-16 04:25:11 -05:00
79 lines
1.5 KiB
Elm
Executable file
79 lines
1.5 KiB
Elm
Executable file
module Config.Identity exposing (..)
|
|
|
|
|
|
type alias PageInput =
|
|
{ pageHome : String
|
|
, pageContact : String
|
|
, pageDebate : String
|
|
, pageDodgers : String
|
|
, pageHyperBlog : String
|
|
, pageInterviews : String
|
|
, pageNutriDex : String
|
|
, pagePlatforms : String
|
|
, pageServices : String
|
|
, pageSupport : String
|
|
}
|
|
|
|
|
|
pageNames : PageInput
|
|
pageNames =
|
|
{ pageHome = "upRootHealth"
|
|
, pagePlatforms = "platforms"
|
|
, pageServices = "services"
|
|
, pageDodgers = "cuckList"
|
|
, pageDebate = "arguments"
|
|
, pageHyperBlog = "hyperBlog"
|
|
, pageNutriDex = "nutriDex"
|
|
, pageInterviews = "interviews"
|
|
, pageContact = "contact"
|
|
, pageSupport = "support"
|
|
}
|
|
|
|
createPageName : String -> String
|
|
createPageName pageName =
|
|
pageNames.pageHome ++ " :: " ++ pageName
|
|
|
|
|
|
contactName : String
|
|
contactName =
|
|
createPageName pageNames.pageContact
|
|
|
|
|
|
debateName : String
|
|
debateName =
|
|
createPageName pageNames.pageDebate
|
|
|
|
|
|
dodgersName : String
|
|
dodgersName =
|
|
createPageName pageNames.pageDodgers
|
|
|
|
|
|
hyperBlogName : String
|
|
hyperBlogName =
|
|
createPageName pageNames.pageHyperBlog
|
|
|
|
|
|
interviewsName : String
|
|
interviewsName =
|
|
createPageName pageNames.pageInterviews
|
|
|
|
|
|
nutriDexName : String
|
|
nutriDexName =
|
|
createPageName pageNames.pageNutriDex
|
|
|
|
|
|
platformsName : String
|
|
platformsName =
|
|
createPageName pageNames.pagePlatforms
|
|
|
|
|
|
servicesName : String
|
|
servicesName =
|
|
createPageName pageNames.pageServices
|
|
|
|
|
|
supportName : String
|
|
supportName =
|
|
createPageName pageNames.pageSupport
|