module Text.HTML.Moe2.DSL.Kawaii where


import Text.HTML.Moe2.Element
import Text.HTML.Moe2.Type (MoeUnit)
import Text.HTML.Moe2.DSL.Markdown
import Text.HTML.Moe2.Attribute
import Text.HTML.Moe2.DSL.HTML
import Text.HTML.Moe2.Utils
import MPS.Env ((-))
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] - (/)

js :: String -> MoeUnit
js x = script ! [_type "text/javascript", src x] - (/)

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