moe-2009.9.1: src/Text/HTML/Moe/DSL/Kawaii.hs

module Text.HTML.Moe.DSL.Kawaii where


import Text.HTML.Moe
import Text.HTML.Moe.Type (MoeUnit)
import Text.HTML.Moe.DSL.Markdown
import Prelude hiding ((-), (/), div)

c :: String -> MoeUnit -> MoeUnit
c x = div [_class x]

css :: String -> MoeUnit
css x = link [rel "stylesheet", _type "text/css", href x] (/)

(~>) :: String -> String -> MoeUnit
(~>) = (<>)