1 module Utils.Html where
3 import Data.Text qualified as Text
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
12 -- Use filter from https://codepen.io/sosuke/pen/Pjoqqp to change the color.
13 openIconic :: Text -> H.Html
16 ! A.src [fmt|/static/icons/open-iconic/svg/{iconName}.svg|]
17 ! A.alt [fmt|{iconName}|]
19 classes :: [Text] -> A.Attribute
20 classes = A.class_ . H.textValue . Text.intercalate " "
22 smallCaps :: [Text] -> A.Attribute
24 classes ("tracking-wider" : cs)
25 <> A.style "font-variant: small-caps"