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

import qualified Data.Text.Lazy as TL
import           Lucid.Base     (Html)
import           Lucid.Html5

gAdSenseBeforeContentBody :: Html ()
gAdSenseBeforeContentBody :: HtmlT Identity ()
gAdSenseBeforeContentBody = do
    [Attribute] -> Text -> HtmlT Identity ()
forall arg result. TermRaw arg result => arg -> result
script_ [
        Text -> Attribute
async_ Text
forall a. Monoid a => a
mempty
      , Text -> Attribute
src_ Text
"https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js?client=ca-pub-5658861742931397"
      , Text -> Attribute
crossorigin_ Text
"anonymous"
      ]
        Text
TL.empty
    [Attribute] -> HtmlT Identity () -> HtmlT Identity ()
forall arg result. Term arg result => arg -> result
ins_ [
        Text -> Attribute
class_ Text
"adsbygoogle"
      , Text -> Attribute
forall arg result. TermRaw arg result => arg -> result
style_ Text
"display:block"
      , Text -> Text -> Attribute
data_ Text
"ad-client" Text
"ca-pub-5658861742931397"
      , Text -> Text -> Attribute
data_ Text
"ad-slot" Text
"9716211878"
      , Text -> Text -> Attribute
data_ Text
"ad-format" Text
"auto"
      , Text -> Text -> Attribute
data_ Text
"full-width-responsive" Text
"true"
      ]
        HtmlT Identity ()
forall a. Monoid a => a
mempty
    Text -> HtmlT Identity ()
forall arg result. TermRaw arg result => arg -> result
script_ Text
"(adsbygoogle = window.adsbygoogle || []).push({});"

gAdSenseFooter :: Html ()
gAdSenseFooter :: HtmlT Identity ()
gAdSenseFooter = do
    [Attribute] -> Text -> HtmlT Identity ()
forall arg result. TermRaw arg result => arg -> result
script_ [
        Text -> Attribute
async_ Text
forall a. Monoid a => a
mempty
      , Text -> Attribute
src_ Text
"https://pagead2.googlesyndication.com/pagead/js/adsbygoogle.js?client=ca-pub-5658861742931397"
      , Text -> Attribute
crossorigin_ Text
"anonymous"
      ]
        Text
TL.empty
    [Attribute] -> HtmlT Identity () -> HtmlT Identity ()
forall arg result. Term arg result => arg -> result
ins_ [
        Text -> Attribute
class_ Text
"adsbygoogle"
      , Text -> Attribute
forall arg result. TermRaw arg result => arg -> result
style_ Text
"display:block"
      , Text -> Text -> Attribute
data_ Text
"ad-format" Text
"autorelaxed"
      , Text -> Text -> Attribute
data_ Text
"ad-client" Text
"ca-pub-5658861742931397"
      , Text -> Text -> Attribute
data_ Text
"ad-slot" Text
"7636558034"
      ]
        HtmlT Identity ()
forall a. Monoid a => a
mempty
    Text -> HtmlT Identity ()
forall arg result. TermRaw arg result => arg -> result
script_ Text
"(adsbygoogle = window.adsbygoogle || []).push({});"