generator/Utils/Html.hs

   1 module Utils.Html where
   2
   3 import Data.Text qualified as Text
   4 import PyF
   5 import Relude
   6 import Text.Blaze.Html5 ((!))
   7 import Text.Blaze.Html5 qualified as H
   8 import Text.Blaze.Html5.Attributes qualified as A
   9 import Text.Blaze.Internal qualified as A
  10 import Prelude ()
  11
  12 -- Use filter from https://codepen.io/sosuke/pen/Pjoqqp to change the color.
  13 openIconic :: Text -> H.Html
  14 openIconic iconName =
  15   H.img
  16     ! A.src [fmt|/static/icons/open-iconic/svg/{iconName}.svg|]
  17     ! A.alt [fmt|{iconName}|]
  18
  19 classes :: [Text] -> A.Attribute
  20 classes = A.class_ . H.textValue . Text.intercalate " "
  21
  22 smallCaps :: [Text] -> A.Attribute
  23 smallCaps cs =
  24   classes ("tracking-wider" : cs)
  25     <> A.style "font-variant: small-caps"