{-# LANGUAGE OverloadedStrings #-}
module Contexts.Field.RokiLog (
    gAdSenseBeforeContentBody
  , footerAdditionalComponent
  , font
) where

import           Contexts.Field.RokiLog.GAdsense
import           Contexts.Field.RokiLog.PowertedBy

import           Lucid.Base                        (Html)
import           Lucid.Html5

footerAdditionalComponent :: Html ()
footerAdditionalComponent :: Html ()
footerAdditionalComponent = Html ()
gAdSenseFooter Html () -> Html () -> Html ()
forall a. Semigroup a => a -> a -> a
<> Html ()
haskellJpLogo

-- c.f.
-- https://fonts.google.com/share?selection.family=Noto%2BSerif%2BJP%7CUbuntu%2BMono
font :: Html ()
font :: Html ()
font = [Attribute] -> Html ()
forall (m :: * -> *). Applicative m => [Attribute] -> HtmlT m ()
link_ [
    Text -> Attribute
href_ Text
"https://fonts.googleapis.com/css2?family=Noto+Serif+JP&family=Ubuntu+Mono&display=swap"
  , Text -> Attribute
rel_ Text
"stylesheet"
  ]