module Utils.Html where

import Data.Text qualified as Text
import PyF
import Relude
import Text.Blaze.Html5 ((!))
import Text.Blaze.Html5 qualified as H
import Text.Blaze.Html5.Attributes qualified as A
import Text.Blaze.Internal qualified as A
import Prelude ()

-- Use filter from https://codepen.io/sosuke/pen/Pjoqqp to change the color.
openIconic :: Text -> H.Html
openIconic iconName =
  H.img
    ! A.src [fmt|/static/icons/open-iconic/svg/{iconName}.svg|]
    ! A.alt [fmt|{iconName}|]

classes :: [Text] -> A.Attribute
classes = A.class_ . H.textValue . Text.intercalate " "

smallCaps :: [Text] -> A.Attribute
smallCaps cs =
  classes ("tracking-wider" : cs)
    <> A.style "font-variant: small-caps"