From 23f04635cc26e1b0553088f28553f518488a9fc8 Mon Sep 17 00:00:00 2001 From: Joris Date: Wed, 1 May 2019 15:52:32 +0200 Subject: Setup personal page with Hakyll --- src/View/Git.hs | 37 ------------------------------------- 1 file changed, 37 deletions(-) delete mode 100644 src/View/Git.hs (limited to 'src/View/Git.hs') 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 -- cgit v1.2.3