jbrechtel
7eaf6ab7e7
- Database.hs: effectful DB effect with all operations + convenience wrappers - Types.hs: stripped Aeson (kept ToJSON/FromJSON on IDs), added form types - Route.hs, Style.hs, View/Layout.hs: support modules - All Page modules: Login, Signup, Dashboard, Chores, Household, Activity - Main.hs: Hyperbole app entry point with router - Known issue: Hyperbole view DSL syntax needs cleanup in page modules (tag calls need $ none suffix, form elements need field wrappers)
34 lines
1.0 KiB
Haskell
34 lines
1.0 KiB
Haskell
{-# 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)"
|