diff options
author | Joris | 2019-05-01 15:52:32 +0200 |
---|---|---|
committer | Joris | 2019-05-01 17:11:02 +0200 |
commit | 23f04635cc26e1b0553088f28553f518488a9fc8 (patch) | |
tree | 97037643bab24564046ce4aba90481e3b92a15d3 /src/View/Git.hs | |
parent | 0fe906ae7453aa684e998bbcc7a78b62d84f0206 (diff) |
Setup personal page with Hakyll
Diffstat (limited to 'src/View/Git.hs')
-rw-r--r-- | src/View/Git.hs | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/src/View/Git.hs b/src/View/Git.hs deleted file mode 100644 index abf5226..0000000 --- a/src/View/Git.hs +++ /dev/null @@ -1,37 +0,0 @@ -{-# 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 |