aboutsummaryrefslogtreecommitdiff
path: root/src/View/Git.hs
diff options
context:
space:
mode:
authorJoris2019-05-01 15:52:32 +0200
committerJoris2019-05-01 17:11:02 +0200
commit23f04635cc26e1b0553088f28553f518488a9fc8 (patch)
tree97037643bab24564046ce4aba90481e3b92a15d3 /src/View/Git.hs
parent0fe906ae7453aa684e998bbcc7a78b62d84f0206 (diff)
Setup personal page with Hakyll
Diffstat (limited to 'src/View/Git.hs')
-rw-r--r--src/View/Git.hs37
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