module Lucid.Foundation.Navigation.TopBar where
import Lucid.Base
import Lucid.Html5
import qualified Data.Text as T
import Data.Monoid
fixed_ :: Term arg result => arg -> result
fixed_ =
termWith "div" [class_ "fixed"]
contain_to_grid_ :: Term arg result => arg -> result
contain_to_grid_ =
termWith "div" [class_ "contain-to-grid"]
data_topbar_ :: Attribute
data_topbar_ = data_ "topbar" ""
top_bar_ :: T.Text
top_bar_ = " top-bar "
sticky_ :: T.Text
sticky_ = " sticky "
sticky_on_ :: T.Text -> Attribute
sticky_on_ size =
data_ "options" ("sticky_on: " <> size)
clickable_ :: Attribute
clickable_ =
data_ "options" "is_hover: false"
divider_ :: Monad m => HtmlT m ()
divider_ =
li_ [class_ "divider"] mempty
title_area_ :: Term arg result => arg -> result
title_area_ =
termWith "ul" [class_ "title-area"]