-- Hoogle documentation, generated by Haddock
-- See Hoogle, http://www.haskell.org/hoogle/


-- | eDSL for CSS
--   
--   See the <a>Css</a> module description
@package css-simple
@version 0.1.0.0


module Css.Internal

-- | AST-like CSS Rule representation
data Rule

-- | Rule: selector, inner rules/declarations, next
Rule :: !Text -> !Rule -> !Rule -> Rule

-- | Declaration: property, value, next
Declaration :: !Text -> !Text -> !Rule -> Rule

-- | Leaf: text This is used to allow creating the declarations without
--   using of functions
Leaf :: !Text -> Rule

-- | Empty
Empty :: Rule

-- | Css monad - newtype wrapper around Control.Monad.Writer.Writer monad
newtype Css a
Css :: Writer Rule a -> Css a
[runCss] :: Css a -> Writer Rule a

-- | Rendering configuration
data Config
Config :: !Text -> !Text -> !Text -> Config

-- | Newline symbol
[_newline] :: Config -> !Text

-- | Indentation
[_indent] :: Config -> !Text

-- | Small spacing
[_spacing] :: Config -> !Text

-- | Pretty render configuration
pretty :: Config

-- | Compact render configuration
compact :: Config

-- | Used to render the Css Rules with pretty config
renderRule :: Rule -> Text

-- | Render the Css Rules with certain configuration
renderRuleWith :: Rule -> Config -> Text

-- | Helper function for render rules Actually this is the main rendering
--   functions, while the rest of the functions are something like
--   front-end
renderRuleWith' :: Rule -> Config -> Builder -> Builder

-- | Render the Css Monad with pretty config as Text
renderCss :: Css () -> Text

-- | Render the Css Monad with certain config as Text
renderCssWith :: Css () -> Config -> Text

-- | Render the Css Monad and print it to stdout
putCss :: Css () -> IO ()

-- | Render the CSS with certain configuration and print it to stdout
putCssWith :: Css () -> Config -> IO ()

-- | Render the Css Monad and save it to the filePath
renderCssToFile :: Css () -> FilePath -> IO ()

-- | Render the Css Monad with certain config and save it to the filepath
renderCssToFileWith :: Css () -> Config -> FilePath -> IO ()

-- | Infix version of <a>rule</a>
(?) :: Text -> Css () -> Css ()

-- | Create new rule
--   
--   <h4><b>Examples</b></h4>
--   
--   <pre>
--   &gt;&gt;&gt; rule "body" (background "#000000") &lt;&gt; rule ".wrapper" (width "90vw" &lt;&gt; maxWidth "72rem")
--   body {
--       background: #000000;
--   }
--   .wrapper {
--       width: 90vw;
--       max-width: 72rem;
--   }
--   </pre>
rule :: Text -> Css () -> Css ()

-- | Infix version of <a>declaration</a>
(|>) :: Text -> Text -> Css ()

-- | Create new declaration
--   
--   <h4><b>Examples</b></h4>
--   
--   <pre>
--   &gt;&gt;&gt; declaration "width" "90vw"
--   width: 90vw;
--   </pre>
declaration :: Text -> Text -> Css ()

-- | Utility function to extract the Css Rule from Css Monad
getRules :: Css () -> Rule
instance GHC.Base.Monad Css.Internal.Css
instance GHC.Base.Applicative Css.Internal.Css
instance GHC.Base.Functor Css.Internal.Css
instance Control.Monad.Writer.Class.MonadWriter Css.Internal.Rule Css.Internal.Css
instance GHC.Base.Semigroup (Css.Internal.Css ())
instance GHC.Base.Monoid (Css.Internal.Css ())
instance Data.String.IsString (Css.Internal.Css ())
instance (a GHC.Types.~ Css.Internal.Css (), b GHC.Types.~ Css.Internal.Css ()) => Data.String.IsString (a -> b)
instance GHC.Show.Show (Css.Internal.Css ())
instance GHC.Base.Semigroup Css.Internal.Rule
instance GHC.Base.Monoid Css.Internal.Rule
instance GHC.Show.Show Css.Internal.Rule


module Css.Properties

-- | CSS Property "accent-color"
accentColor :: Text -> Css ()

-- | CSS Property "align-content"
alignContent :: Text -> Css ()

-- | CSS Property "align-items"
alignItems :: Text -> Css ()

-- | CSS Property "align-self"
alignSelf :: Text -> Css ()

-- | CSS Property "all"
all :: Text -> Css ()

-- | CSS Property "animation"
animation :: Text -> Css ()

-- | CSS Property "animation-delay"
animationDelay :: Text -> Css ()

-- | CSS Property "animation-direction"
animationDirection :: Text -> Css ()

-- | CSS Property "animation-duration"
animationDuration :: Text -> Css ()

-- | CSS Property "animation-fill-mode"
animationFillMode :: Text -> Css ()

-- | CSS Property "animation-iteration-count"
animationIterationCount :: Text -> Css ()

-- | CSS Property "animation-name"
animationName :: Text -> Css ()

-- | CSS Property "animation-play-state"
animationPlayState :: Text -> Css ()

-- | CSS Property "animation-timing-function"
animationTimingFunction :: Text -> Css ()

-- | CSS Property "backdrop-filter"
backdropFilter :: Text -> Css ()

-- | CSS Property "backface-visibility"
backfaceVisibility :: Text -> Css ()

-- | CSS Property "background"
background :: Text -> Css ()

-- | CSS Property "background-attachment"
backgroundAttachment :: Text -> Css ()

-- | CSS Property "background-blend-mode"
backgroundBlendMode :: Text -> Css ()

-- | CSS Property "background-clip"
backgroundClip :: Text -> Css ()

-- | CSS Property "background-color"
backgroundColor :: Text -> Css ()

-- | CSS Property "background-image"
backgroundImage :: Text -> Css ()

-- | CSS Property "background-origin"
backgroundOrigin :: Text -> Css ()

-- | CSS Property "background-position"
backgroundPosition :: Text -> Css ()

-- | CSS Property "background-repeat"
backgroundRepeat :: Text -> Css ()

-- | CSS Property "background-size"
backgroundSize :: Text -> Css ()

-- | CSS Property "border"
border :: Text -> Css ()

-- | CSS Property "border-bottom"
borderBottom :: Text -> Css ()

-- | CSS Property "border-bottom-color"
borderBottomColor :: Text -> Css ()

-- | CSS Property "border-bottom-left-radius"
borderBottomLeftRadius :: Text -> Css ()

-- | CSS Property "border-bottom-right-radius"
borderBottomRightRadius :: Text -> Css ()

-- | CSS Property "border-bottom-style"
borderBottomStyle :: Text -> Css ()

-- | CSS Property "border-bottom-width"
borderBottomWidth :: Text -> Css ()

-- | CSS Property "border-collapse"
borderCollapse :: Text -> Css ()

-- | CSS Property "border-color"
borderColor :: Text -> Css ()

-- | CSS Property "border-image"
borderImage :: Text -> Css ()

-- | CSS Property "border-image-outset"
borderImageOutset :: Text -> Css ()

-- | CSS Property "border-image-repeat"
borderImageRepeat :: Text -> Css ()

-- | CSS Property "border-image-slice"
borderImageSlice :: Text -> Css ()

-- | CSS Property "border-image-source"
borderImageSource :: Text -> Css ()

-- | CSS Property "border-image-width"
borderImageWidth :: Text -> Css ()

-- | CSS Property "border-left"
borderLeft :: Text -> Css ()

-- | CSS Property "border-left-color"
borderLeftColor :: Text -> Css ()

-- | CSS Property "border-left-style"
borderLeftStyle :: Text -> Css ()

-- | CSS Property "border-left-width"
borderLeftWidth :: Text -> Css ()

-- | CSS Property "border-radius"
borderRadius :: Text -> Css ()

-- | CSS Property "border-right"
borderRight :: Text -> Css ()

-- | CSS Property "border-right-color"
borderRightColor :: Text -> Css ()

-- | CSS Property "border-right-style"
borderRightStyle :: Text -> Css ()

-- | CSS Property "border-right-width"
borderRightWidth :: Text -> Css ()

-- | CSS Property "border-spacing"
borderSpacing :: Text -> Css ()

-- | CSS Property "border-style"
borderStyle :: Text -> Css ()

-- | CSS Property "border-top"
borderTop :: Text -> Css ()

-- | CSS Property "border-top-color"
borderTopColor :: Text -> Css ()

-- | CSS Property "border-top-left-radius"
borderTopLeftRadius :: Text -> Css ()

-- | CSS Property "border-top-right-radius"
borderTopRightRadius :: Text -> Css ()

-- | CSS Property "border-top-style"
borderTopStyle :: Text -> Css ()

-- | CSS Property "border-top-width"
borderTopWidth :: Text -> Css ()

-- | CSS Property "border-width"
borderWidth :: Text -> Css ()

-- | CSS Property "bottom"
bottom :: Text -> Css ()

-- | CSS Property "box-decoration-break"
boxDecorationBreak :: Text -> Css ()

-- | CSS Property "box-shadow"
boxShadow :: Text -> Css ()

-- | CSS Property "box-sizing"
boxSizing :: Text -> Css ()

-- | CSS Property "break-after"
breakAfter :: Text -> Css ()

-- | CSS Property "break-before"
breakBefore :: Text -> Css ()

-- | CSS Property "break-inside"
breakInside :: Text -> Css ()

-- | CSS Property "caption-side"
captionSide :: Text -> Css ()

-- | CSS Property "caret-color"
caretColor :: Text -> Css ()

-- | CSS Property "@charset"
charset :: Text -> Css ()

-- | CSS Property "clear"
clear :: Text -> Css ()

-- | CSS Property "clip"
clip :: Text -> Css ()

-- | CSS Property "color"
color :: Text -> Css ()

-- | CSS Property "column-count"
columnCount :: Text -> Css ()

-- | CSS Property "column-fill"
columnFill :: Text -> Css ()

-- | CSS Property "column-gap"
columnGap :: Text -> Css ()

-- | CSS Property "column-rule"
columnRule :: Text -> Css ()

-- | CSS Property "column-rule-color"
columnRuleColor :: Text -> Css ()

-- | CSS Property "column-rule-style"
columnRuleStyle :: Text -> Css ()

-- | CSS Property "column-rule-width"
columnRuleWidth :: Text -> Css ()

-- | CSS Property "column-span"
columnSpan :: Text -> Css ()

-- | CSS Property "column-width"
columnWidth :: Text -> Css ()

-- | CSS Property "columns"
columns :: Text -> Css ()

-- | CSS Property "content"
content :: Text -> Css ()

-- | CSS Property "counter-increment"
counterIncrement :: Text -> Css ()

-- | CSS Property "counter-reset"
counterReset :: Text -> Css ()

-- | CSS Property "cursor"
cursor :: Text -> Css ()

-- | CSS Property "direction"
direction :: Text -> Css ()

-- | CSS Property "display"
display :: Text -> Css ()

-- | CSS Property "empty-cells"
emptyCells :: Text -> Css ()

-- | CSS Property "filter"
filter :: Text -> Css ()

-- | CSS Property "flex"
flex :: Text -> Css ()

-- | CSS Property "flex-basis"
flexBasis :: Text -> Css ()

-- | CSS Property "flex-direction"
flexDirection :: Text -> Css ()

-- | CSS Property "flex-flow"
flexFlow :: Text -> Css ()

-- | CSS Property "flex-grow"
flexGrow :: Text -> Css ()

-- | CSS Property "flex-shrink"
flexShrink :: Text -> Css ()

-- | CSS Property "flex-wrap"
flexWrap :: Text -> Css ()

-- | CSS Property "float"
float :: Text -> Css ()

-- | CSS Property "font"
font :: Text -> Css ()

-- | CSS Property "@font-face"
fontFace :: Text -> Css ()

-- | CSS Property "font-family"
fontFamily :: Text -> Css ()

-- | CSS Property "font-feature-settings"
fontFeatureSettings :: Text -> Css ()

-- | CSS Property "@font-feature-values"
fontFeatureValues :: Text -> Css ()

-- | CSS Property "font-kerning"
fontKerning :: Text -> Css ()

-- | CSS Property "font-language-override"
fontLanguageOverride :: Text -> Css ()

-- | CSS Property "font-size"
fontSize :: Text -> Css ()

-- | CSS Property "font-size-adjust"
fontSizeAdjust :: Text -> Css ()

-- | CSS Property "font-stretch"
fontStretch :: Text -> Css ()

-- | CSS Property "font-style"
fontStyle :: Text -> Css ()

-- | CSS Property "font-synthesis"
fontSynthesis :: Text -> Css ()

-- | CSS Property "font-variant"
fontVariant :: Text -> Css ()

-- | CSS Property "font-variant-alternates"
fontVariantAlternates :: Text -> Css ()

-- | CSS Property "font-variant-caps"
fontVariantCaps :: Text -> Css ()

-- | CSS Property "font-variant-east-asian"
fontVariantEastAsian :: Text -> Css ()

-- | CSS Property "font-variant-ligatures"
fontVariantLigatures :: Text -> Css ()

-- | CSS Property "font-variant-numeric"
fontVariantNumeric :: Text -> Css ()

-- | CSS Property "font-variant-position"
fontVariantPosition :: Text -> Css ()

-- | CSS Property "font-weight"
fontWeight :: Text -> Css ()

-- | CSS Property "gap"
gap :: Text -> Css ()

-- | CSS Property "grid"
grid :: Text -> Css ()

-- | CSS Property "grid-area"
gridArea :: Text -> Css ()

-- | CSS Property "grid-auto-columns"
gridAutoColumns :: Text -> Css ()

-- | CSS Property "grid-auto-flow"
gridAutoFlow :: Text -> Css ()

-- | CSS Property "grid-auto-rows"
gridAutoRows :: Text -> Css ()

-- | CSS Property "grid-column"
gridColumn :: Text -> Css ()

-- | CSS Property "grid-column-end"
gridColumnEnd :: Text -> Css ()

-- | CSS Property "grid-column-gap"
gridColumnGap :: Text -> Css ()

-- | CSS Property "grid-column-start"
gridColumnStart :: Text -> Css ()

-- | CSS Property "grid-gap"
gridGap :: Text -> Css ()

-- | CSS Property "grid-row"
gridRow :: Text -> Css ()

-- | CSS Property "grid-row-end"
gridRowEnd :: Text -> Css ()

-- | CSS Property "grid-row-gap"
gridRowGap :: Text -> Css ()

-- | CSS Property "grid-row-start"
gridRowStart :: Text -> Css ()

-- | CSS Property "grid-template"
gridTemplate :: Text -> Css ()

-- | CSS Property "grid-template-areas"
gridTemplateAreas :: Text -> Css ()

-- | CSS Property "grid-template-columns"
gridTemplateColumns :: Text -> Css ()

-- | CSS Property "grid-template-rows"
gridTemplateRows :: Text -> Css ()

-- | CSS Property "hanging-punctuation"
hangingPunctuation :: Text -> Css ()

-- | CSS Property "height"
height :: Text -> Css ()

-- | CSS Property "hyphens"
hyphens :: Text -> Css ()

-- | CSS Property "image-rendering"
imageRendering :: Text -> Css ()

-- | CSS Property "@import"
import_ :: Text -> Css ()

-- | CSS Property "isolation"
isolation :: Text -> Css ()

-- | CSS Property "justify-content"
justifyContent :: Text -> Css ()

-- | CSS Property "@keyframes"
keyframes :: Text -> Css ()

-- | CSS Property "left"
left :: Text -> Css ()

-- | CSS Property "letter-spacing"
letterSpacing :: Text -> Css ()

-- | CSS Property "line-break"
lineBreak :: Text -> Css ()

-- | CSS Property "line-height"
lineHeight :: Text -> Css ()

-- | CSS Property "list-style"
listStyle :: Text -> Css ()

-- | CSS Property "list-style-image"
listStyleImage :: Text -> Css ()

-- | CSS Property "list-style-position"
listStylePosition :: Text -> Css ()

-- | CSS Property "list-style-type"
listStyleType :: Text -> Css ()

-- | CSS Property "margin"
margin :: Text -> Css ()

-- | CSS Property "margin-bottom"
marginBottom :: Text -> Css ()

-- | CSS Property "margin-left"
marginLeft :: Text -> Css ()

-- | CSS Property "margin-right"
marginRight :: Text -> Css ()

-- | CSS Property "margin-top"
marginTop :: Text -> Css ()

-- | CSS Property "mask"
mask :: Text -> Css ()

-- | CSS Property "mask-clip"
maskClip :: Text -> Css ()

-- | CSS Property "mask-composite"
maskComposite :: Text -> Css ()

-- | CSS Property "mask-image"
maskImage :: Text -> Css ()

-- | CSS Property "mask-mode"
maskMode :: Text -> Css ()

-- | CSS Property "mask-origin"
maskOrigin :: Text -> Css ()

-- | CSS Property "mask-position"
maskPosition :: Text -> Css ()

-- | CSS Property "mask-repeat"
maskRepeat :: Text -> Css ()

-- | CSS Property "mask-size"
maskSize :: Text -> Css ()

-- | CSS Property "mask-type"
maskType :: Text -> Css ()

-- | CSS Property "max-height"
maxHeight :: Text -> Css ()

-- | CSS Property "max-width"
maxWidth :: Text -> Css ()

-- | CSS Property "@media"
media :: Text -> Css ()

-- | CSS Property "min-height"
minHeight :: Text -> Css ()

-- | CSS Property "min-width"
minWidth :: Text -> Css ()

-- | CSS Property "mix-blend-mode"
mixBlendMode :: Text -> Css ()

-- | CSS Property "object-fit"
objectFit :: Text -> Css ()

-- | CSS Property "object-position"
objectPosition :: Text -> Css ()

-- | CSS Property "opacity"
opacity :: Text -> Css ()

-- | CSS Property "order"
order :: Text -> Css ()

-- | CSS Property "orphans"
orphans :: Text -> Css ()

-- | CSS Property "outline"
outline :: Text -> Css ()

-- | CSS Property "outline-color"
outlineColor :: Text -> Css ()

-- | CSS Property "outline-offset"
outlineOffset :: Text -> Css ()

-- | CSS Property "outline-style"
outlineStyle :: Text -> Css ()

-- | CSS Property "outline-width"
outlineWidth :: Text -> Css ()

-- | CSS Property "overflow"
overflow :: Text -> Css ()

-- | CSS Property "overflow-wrap"
overflowWrap :: Text -> Css ()

-- | CSS Property "overflow-x"
overflowX :: Text -> Css ()

-- | CSS Property "overflow-y"
overflowY :: Text -> Css ()

-- | CSS Property "padding"
padding :: Text -> Css ()

-- | CSS Property "padding-bottom"
paddingBottom :: Text -> Css ()

-- | CSS Property "padding-left"
paddingLeft :: Text -> Css ()

-- | CSS Property "padding-right"
paddingRight :: Text -> Css ()

-- | CSS Property "padding-top"
paddingTop :: Text -> Css ()

-- | CSS Property "page-break-after"
pageBreakAfter :: Text -> Css ()

-- | CSS Property "page-break-before"
pageBreakBefore :: Text -> Css ()

-- | CSS Property "page-break-inside"
pageBreakInside :: Text -> Css ()

-- | CSS Property "perspective"
perspective :: Text -> Css ()

-- | CSS Property "perspective-origin"
perspectiveOrigin :: Text -> Css ()

-- | CSS Property "pointer-events"
pointerEvents :: Text -> Css ()

-- | CSS Property "position"
position :: Text -> Css ()

-- | CSS Property "quotes"
quotes :: Text -> Css ()

-- | CSS Property "resize"
resize :: Text -> Css ()

-- | CSS Property "right"
right :: Text -> Css ()

-- | CSS Property "row-gap"
rowGap :: Text -> Css ()

-- | CSS Property "scroll-behavior"
scrollBehavior :: Text -> Css ()

-- | CSS Property "tab-size"
tabSize :: Text -> Css ()

-- | CSS Property "table-layout"
tableLayout :: Text -> Css ()

-- | CSS Property "text-align"
textAlign :: Text -> Css ()

-- | CSS Property "text-align-last"
textAlignLast :: Text -> Css ()

-- | CSS Property "text-combine-upright"
textCombineUpright :: Text -> Css ()

-- | CSS Property "text-decoration"
textDecoration :: Text -> Css ()

-- | CSS Property "text-decoration-color"
textDecorationColor :: Text -> Css ()

-- | CSS Property "text-decoration-line"
textDecorationLine :: Text -> Css ()

-- | CSS Property "text-decoration-style"
textDecorationStyle :: Text -> Css ()

-- | CSS Property "text-decoration-thickness"
textDecorationThickness :: Text -> Css ()

-- | CSS Property "text-emphasis"
textEmphasis :: Text -> Css ()

-- | CSS Property "text-indent"
textIndent :: Text -> Css ()

-- | CSS Property "text-justify"
textJustify :: Text -> Css ()

-- | CSS Property "text-orientation"
textOrientation :: Text -> Css ()

-- | CSS Property "text-overflow"
textOverflow :: Text -> Css ()

-- | CSS Property "text-shadow"
textShadow :: Text -> Css ()

-- | CSS Property "text-transform"
textTransform :: Text -> Css ()

-- | CSS Property "text-underline-position"
textUnderlinePosition :: Text -> Css ()

-- | CSS Property "top"
top :: Text -> Css ()

-- | CSS Property "transform"
transform :: Text -> Css ()

-- | CSS Property "transform-origin"
transformOrigin :: Text -> Css ()

-- | CSS Property "transform-style"
transformStyle :: Text -> Css ()

-- | CSS Property "transition"
transition :: Text -> Css ()

-- | CSS Property "transition-delay"
transitionDelay :: Text -> Css ()

-- | CSS Property "transition-duration"
transitionDuration :: Text -> Css ()

-- | CSS Property "transition-property"
transitionProperty :: Text -> Css ()

-- | CSS Property "transition-timing-function"
transitionTimingFunction :: Text -> Css ()

-- | CSS Property "unicode-bidi"
unicodeBidi :: Text -> Css ()

-- | CSS Property "user-select"
userSelect :: Text -> Css ()

-- | CSS Property "vertical-align"
verticalAlign :: Text -> Css ()

-- | CSS Property "visibility"
visibility :: Text -> Css ()

-- | CSS Property "white-space"
whiteSpace :: Text -> Css ()

-- | CSS Property "widows"
widows :: Text -> Css ()

-- | CSS Property "width"
width :: Text -> Css ()

-- | CSS Property "word-break"
wordBreak :: Text -> Css ()

-- | CSS Property "word-spacing"
wordSpacing :: Text -> Css ()

-- | CSS Property "word-wrap"
wordWrap :: Text -> Css ()

-- | CSS Property "writing-mode"
writingMode :: Text -> Css ()

-- | CSS Property "z-index"
zIndex :: Text -> Css ()


-- | This library provides an eDSL for creating the CSS files. It uses the
--   Writer Monad to fill the CSS AST-like representation, which then can
--   be rendered as a text.
--   
--   Note: OverloadedStrings are necessary for comfort work
--   
--   <pre>
--   &gt;&gt;&gt; :set -XOverloadedStrings
--   </pre>
--   
--   To create any Css rule you can use the <a>rule</a> function, which
--   takes the name of the selector as an argument.
--   
--   It also can be used for creating media queries.
--   
--   <pre>
--   &gt;&gt;&gt; rule ".wrapper" (maxWidth "72rem")
--   .wrapper {
--       max-width: 72rem;
--   }
--   </pre>
--   
--   Or, if you prefer infix notation:
--   
--   <pre>
--   &gt;&gt;&gt; ".wrapper" ? (maxWidth "72rem")
--   .wrapper {
--       max-width: 72rem;
--   }
--   </pre>
--   
--   Or, without any function if the type is specified:
--   
--   <pre>
--   &gt;&gt;&gt; ".wrapper" (maxWidth "72rem") :: Css ()
--   .wrapper {
--       max-width: 72rem;
--   }
--   </pre>
--   
--   Rules may be nested in other rules:
--   
--   <pre>
--   &gt;&gt;&gt; rule "@media only screen and (min-width: 48rem)" (rule ".wrapper" (maxWidth "72rem"))
--   @media only screen and (min-width: 48rem) {
--       .wrapper {
--           max-width: 72rem;
--       }
--   }
--   </pre>
--   
--   Css Monad also has a Semigroup and Monoid instance, so the elements
--   are juxtaposed via semigroup's append:
--   
--   <pre>
--   &gt;&gt;&gt; rule "body" (background "#000000") &lt;&gt; rule ".wrapper" (width "90vw" &lt;&gt; maxWidth "72rem")
--   body {
--       background: #000000;
--   }
--   .wrapper {
--       width: 90vw;
--       max-width: 72rem;
--   }
--   </pre>
--   
--   Same example using do-notation:
--   
--   <pre>
--   -- This example requires OverloadedStrings and BlockArguments extensions
--   
--   sampleStyles :: Css ()
--   sampleStyles = do
--       "body" do
--           background "#000000"
--   
--       ".wrapper" do
--           width "90vw"
--           maxWidth "72rem"
--   </pre>
--   
--   If some property is not provided in <a>Properties</a> you can create a
--   new with either declaration or infix (|&gt;):
--   
--   <pre>
--   &gt;&gt;&gt; declaration "width" "90vw"
--   width: 90vw;
--   
--   &gt;&gt;&gt; "width" |&gt; "90vw"
--   width: 90vw;
--   </pre>
--   
--   Or without functions if the type is specified:
--   
--   <pre>
--   -- Requires OverloadedStrings and BlockArguments
--   
--   sampleStyles :: Css ()
--   sampleStyles = do
--   "body" do
--       "background" "#000000"
--   </pre>
module Css

-- | AST-like CSS Rule representation
data Rule

-- | Rule: selector, inner rules/declarations, next
Rule :: !Text -> !Rule -> !Rule -> Rule

-- | Declaration: property, value, next
Declaration :: !Text -> !Text -> !Rule -> Rule

-- | Leaf: text This is used to allow creating the declarations without
--   using of functions
Leaf :: !Text -> Rule

-- | Empty
Empty :: Rule

-- | Css monad - newtype wrapper around Control.Monad.Writer.Writer monad
newtype Css a
Css :: Writer Rule a -> Css a
[runCss] :: Css a -> Writer Rule a

-- | Rendering configuration
data Config
Config :: !Text -> !Text -> !Text -> Config

-- | Newline symbol
[_newline] :: Config -> !Text

-- | Indentation
[_indent] :: Config -> !Text

-- | Small spacing
[_spacing] :: Config -> !Text

-- | Pretty render configuration
pretty :: Config

-- | Compact render configuration
compact :: Config

-- | Used to render the Css Rules with pretty config
renderRule :: Rule -> Text

-- | Render the Css Rules with certain configuration
renderRuleWith :: Rule -> Config -> Text

-- | Render the Css Monad with pretty config as Text
renderCss :: Css () -> Text

-- | Render the Css Monad with certain config as Text
renderCssWith :: Css () -> Config -> Text

-- | Render the Css Monad and print it to stdout
putCss :: Css () -> IO ()

-- | Render the CSS with certain configuration and print it to stdout
putCssWith :: Css () -> Config -> IO ()

-- | Render the Css Monad and save it to the filePath
renderCssToFile :: Css () -> FilePath -> IO ()

-- | Render the Css Monad with certain config and save it to the filepath
renderCssToFileWith :: Css () -> Config -> FilePath -> IO ()

-- | Create new rule
--   
--   <h4><b>Examples</b></h4>
--   
--   <pre>
--   &gt;&gt;&gt; rule "body" (background "#000000") &lt;&gt; rule ".wrapper" (width "90vw" &lt;&gt; maxWidth "72rem")
--   body {
--       background: #000000;
--   }
--   .wrapper {
--       width: 90vw;
--       max-width: 72rem;
--   }
--   </pre>
rule :: Text -> Css () -> Css ()

-- | Infix version of <a>rule</a>
(?) :: Text -> Css () -> Css ()

-- | Create new declaration
--   
--   <h4><b>Examples</b></h4>
--   
--   <pre>
--   &gt;&gt;&gt; declaration "width" "90vw"
--   width: 90vw;
--   </pre>
declaration :: Text -> Text -> Css ()

-- | Infix version of <a>declaration</a>
(|>) :: Text -> Text -> Css ()