{-# LANGUAGE OverloadedStrings #-}

module View.Git
  ( renderGit
  , renderGitIcon
  ) where

import Data.String (fromString)

import Text.Blaze.Html
import Text.Blaze.Html5.Attributes
import qualified Text.Blaze.Html5 as H

import Conf (Conf)
import qualified Conf as Conf

import View.Icon (renderIcon)

renderGit :: Conf -> String -> Html
renderGit conf ref =
  H.div
    ! class_ "git"
    $ H.a
        ! href (fromString $ gitLink conf ref)
        $ do
          renderIcon "git-square"
          fromString ref

renderGitIcon :: Conf -> String -> Html
renderGitIcon conf ref =
  H.a
    ! class_ "git"
    ! href (fromString $ gitLink conf ref)
    $ renderIcon "git-square"

gitLink :: Conf -> String -> String
gitLink conf ref = (Conf.git conf) ++ ref