85 lines
2.0 KiB
Haskell
85 lines
2.0 KiB
Haskell
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
|
|
|
|
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
|