module Dashi.Style.Pseudo where

import Clay hiding (var)
import Dashi.Style.Border (BorderColour (BorderFocusedColour))
import Dashi.Style.Util

focusable :: Css
focusable :: Css
focusable =
    Refinement
focusVisible
        Refinement -> Css -> Css
& Stroke -> Size LengthUnit -> Color -> Css
outline Stroke
solid (Text -> [Size LengthUnit] -> Size LengthUnit
forall v. (Val v, Other v) => Text -> [v] -> v
var Text
"outline-width" []) (BorderColour -> Color
forall t. Token t => t -> Color
colorToken BorderColour
BorderFocusedColour)

pressable :: Css
pressable :: Css
pressable = do
    CursorValue Value -> Css
forall a. Cursor a => a -> Css
cursor CursorValue Value
pointer
    Css
focusable