module Blunt.Markup where
import Lucid
import Blunt.Script (script)
import Blunt.Style (style)
import Data.ByteString.Lazy (ByteString)
markup :: ByteString
markup = renderBS html
html :: Html ()
html = doctypehtml_ $ do
head_ $ do
meta_ [charset_ "utf-8"]
meta_
[ name_ "viewport"
, content_ "initial-scale = 1, maximum-scale = 1, minimum-scale = 1, width = device-width"
]
title_ "Blunt"
style_ [] style
body_ $ do
h1_ "Blunt"
dl_ $ do
dt_ "Input"
dd_ $ do
input_
[ id_ "input"
, placeholder_ "sum xs = foldr (+) 0 xs"
, autocomplete_ "off"
, autofocus_
, spellcheck_ "off"
, term "autocapitalize" "none"
, term "autocorrect" "off"
]
dt_ "Pointfree"
dd_ (div_ [id_ "pointfree"] "")
dt_ "Pointful"
dd_ (div_ [id_ "pointful"] "")
p_ $ do
a_ [href_ "https://github.com/tfausak/blunt"] $ do
"github.com/tfausak/blunt"
script_ [] script