src/View/Git.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

{-# 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