{-# LANGUAGE OverloadedStrings #-}

-- | Neo Brutalism CSS class name constants for Hyperbole views.
-- Use with: \@ att \"class\" nbBoxClass
module Sis.Style
    ( nbBoxClass, nbButtonClass, nbInputClass, nbLabelClass
    , nbBadgeClass, nbFontHeading1Class, nbFontHeading2Class
    , nbNavbarClass, nbContainerClass, nbListItemClass
    , colorRed, colorYellow, colorGreen
    ) where

import Data.Text (Text)

nbBoxClass, nbButtonClass, nbInputClass, nbLabelClass, nbBadgeClass :: Text
nbBoxClass = "nb-box"
nbButtonClass = "nb-button"
nbInputClass = "nb-input"
nbLabelClass = "nb-label"
nbBadgeClass = "nb-badge"

nbFontHeading1Class, nbFontHeading2Class :: Text
nbFontHeading1Class = "nb-font-heading1"
nbFontHeading2Class = "nb-font-heading2"

nbNavbarClass, nbContainerClass, nbListItemClass :: Text
nbNavbarClass = "nb-navbar"
nbContainerClass = "nb-container"
nbListItemClass = "nb-list-item"

colorRed, colorYellow, colorGreen :: Text
colorRed = "var(--nb-red)"
colorYellow = "var(--nb-yellow)"
colorGreen = "var(--nb-green)"