jtm.dev/templates/src/Templates/Urls.hs

59 lines
1.4 KiB
Haskell
Raw Normal View History

module Templates.Urls where
baseUrl :: String
2018-09-22 15:33:11 -07:00
baseUrl = "https://jtmar.me"
resUrl :: String
2018-09-22 15:33:11 -07:00
resUrl = baseUrl ++ "/res"
iconUrl :: String
2018-09-22 15:33:11 -07:00
iconUrl = resUrl ++ "/icon"
ccbysaUrl :: String
ccbysaUrl = "http://creativecommons.org/licenses/by-sa/4.0/"
stylesheetCommonUrl :: String
2018-09-22 15:33:11 -07:00
stylesheetCommonUrl = resUrl ++ "/common.css"
projectsUrl :: String
2018-09-22 15:33:11 -07:00
projectsUrl = baseUrl ++ "/projects"
aboutUrl :: String
2018-09-22 15:33:11 -07:00
aboutUrl = baseUrl ++ "/about"
githubUrl :: String
2018-09-22 15:33:11 -07:00
githubUrl = "https://github.com"
githubUserUrl :: String
2018-09-22 15:33:11 -07:00
githubUserUrl = githubUrl ++ "/jammar"
githubProjectUrl :: String -> String
2018-09-22 15:33:11 -07:00
githubProjectUrl name = githubUserUrl ++ "/" ++ name
githubQiplUrl :: String
2018-09-22 15:33:11 -07:00
githubQiplUrl = githubUrl ++ "/" ++ "qipl"
githubQiplProjectUrl :: String -> String
2018-09-22 15:33:11 -07:00
githubQiplProjectUrl name = githubQiplUrl ++ "/" ++ name
resumeUrl :: String
2018-09-22 15:33:11 -07:00
resumeUrl = baseUrl ++ "/resume.pdf"
qiplUrl :: String
qiplUrl = "https://qipl.org"
redditUserUrl :: String
redditUserUrl = "https://reddit.com/user/lijero"
youtubeUserUrl :: String
2018-09-22 15:33:11 -07:00
youtubeUserUrl = "https://www.youtube.com/channel/UC_nCB91N-0zNbFiMoMu6-3w"
wikipediaUserUrl :: String
wikipediaUserUrl = "https://en.wikipedia.org/wiki/User:Lijero"
stackexchangeUserUrl :: String
stackexchangeUserUrl = "https://stackexchange.com/users/10815798/james-martin"
stackexchangeFlairUrl :: String
stackexchangeFlairUrl = "https://stackexchange.com/users/flair/10815798.png"