{-# LANGUAGE OverloadedStrings #-}
module Contexts.Field.RokiDiary (
    module Contexts.Field.RokiDiary.GAdsense
  , font
) where

import           Contexts.Field.RokiDiary.GAdsense

import           Lucid.Base                        (Html)
import           Lucid.Html5

-- c.f.
-- https://fonts.google.com/share?selection.family=Noto%2BSans%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+Sans+JP&family=Ubuntu+Mono&display=swap"
  , Text -> Attribute
rel_ Text
"stylesheet"
  ]