2018-05-05 13:49:13 -07:00
module Templates.Icons where
import Templates.Urls
import HtmlGen.Html
import HtmlGen.Tags
personIconUrl :: String
personIconUrl = iconUrl ++ " person.svg "
personIcon :: String -> Html
personIcon alt = img alt personIconUrl
authorIcon :: Html
authorIcon = personIcon " Author "
clockIconUrl :: String
clockIconUrl = iconUrl ++ " clock.svg "
clockIcon :: String -> Html
clockIcon alt = img alt clockIconUrl
updatedIcon :: Html
updatedIcon = clockIcon " Updated "
ccbysaIconUrl :: String
ccbysaIconUrl = resUrl ++ " cc-by-sa-small.png "
ccbysaIcon :: Html
ccbysaIcon = img " This work is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License " ccbysaIconUrl %% ( " style " , " border-width:0 " )
license :: Html
license =
divTag ` withClass ` " license "
%> ( href ccbysaUrl ccbysaIcon
%% ( " rel " , " license " ) )
faviconUrl :: String
faviconUrl = baseUrl ++ " favicon.png "
faviconMime :: String
faviconMime = " image/png "
faviconLink :: Html
faviconLink = favicon faviconUrl faviconMime
2018-05-06 12:53:30 -07:00
accountIconClass :: ( String , String )
accountIconClass = ( " class " , " accounticon " )
githubMarkUrl :: String
githubMarkUrl = iconUrl ++ " github-mark-100px.png "
githubMark :: Html
githubMark = img " GitHub " githubMarkUrl %% accountIconClass
linkedinLogoUrl :: String
linkedinLogoUrl = iconUrl ++ " linkedin-logo-100px.png "
linkedinLogo :: Html
linkedinLogo = img " LinkedIn " linkedinLogoUrl %% accountIconClass
redditLogoUrl :: String
redditLogoUrl = iconUrl ++ " reddit-logo-100px.png "
redditLogo :: Html
redditLogo = img " Reddit " redditLogoUrl %% accountIconClass
wikipediaLogoUrl :: String
wikipediaLogoUrl = iconUrl ++ " wikipedia-logo-100px.png "
wikipediaLogo :: Html
wikipediaLogo = img " Wikipedia " wikipediaLogoUrl %% accountIconClass
youtubeLogoUrl :: String
youtubeLogoUrl = iconUrl ++ " youtube-logo-100px.jpeg "
youtubeLogo :: Html
youtubeLogo = img " Youtube " youtubeLogoUrl %% accountIconClass
freenodeLogoUrl :: String
freenodeLogoUrl = iconUrl ++ " freenode-logo.svg "
freenodeLogo :: Html
freenodeLogo = img " Freenode " freenodeLogoUrl %% accountIconClass