diff options
| author | evuez <julien@mulga.net> | 2024-04-01 15:17:30 +0200 |
|---|---|---|
| committer | evuez <julien@mulga.net> | 2024-04-03 22:45:36 +0200 |
| commit | 985974c264804ff788b3b5242fef707d4b7fa9a6 (patch) | |
| tree | d80f83db178c3fd1b83b3b749793d47236dde35d /src/Html.hs | |
| download | webmaild-985974c264804ff788b3b5242fef707d4b7fa9a6.tar.gz | |
Initial commit
Diffstat (limited to 'src/Html.hs')
| -rw-r--r-- | src/Html.hs | 88 |
1 files changed, 88 insertions, 0 deletions
diff --git a/src/Html.hs b/src/Html.hs new file mode 100644 index 0000000..dd60e16 --- /dev/null +++ b/src/Html.hs @@ -0,0 +1,88 @@ +module Html (span, html, p, hr, div_, iframe, img, main_, ul, li, table, td, th, tr, a) where + +import Data.List (unwords) +import Intro + +type Attr = (String, String) + +html :: [String] -> String +html xs = + concat + [ "<html>" + , "<head>" + , script + [ "function resizeIframe(x) { \ + \ x.style.height = x.contentWindow.document.documentElement.scrollHeight + 'px'; \ + \}" + ] + , "</head>" + , "<body>" + , style + [ ":root { font-size: 16px; }" + , "* { padding: 0; margin: 0; }" + , "body { display: flex; flex-direction: column; gap: 1rem; padding: 1rem; }" + , "hr { height: 0; border: 0; border-top: 1px solid #000; }" + , "table { border-collapse: collapse; width: 100%; }" + , "td, th { border: 1px solid #000; padding: 0.4rem; }" + , "iframe { width: 100%; min-height: 80vh; border: none; }" + , "main { display: flex; flex-direction: column; gap: 1rem; }" + , ".part { background-color: #eee; }" + , ".part-body { padding: 1rem; }" + ] + , concat xs + , "</body></html>" + ] + +hr :: String +hr = "<hr>" + +style :: [String] -> String +style xs = concat ["<style>", concat xs, "</style>"] + +script :: [String] -> String +script xs = concat ["<script>", concat xs, "</script>"] + +iframe :: [Attr] -> [String] -> String +iframe xs ys = concat ["<iframe onload='resizeIframe(this)' ", attrs xs, ">", concat ys, "</iframe>"] + +div_ :: [Attr] -> [String] -> String +div_ xs ys = concat ["<div ", attrs xs, ">", concat ys, "</div>"] + +main_ :: [String] -> String +main_ xs = concat ["<main>", concat xs, "</main>"] + +p :: [String] -> String +p xs = concat ["<p>", concat xs, "</p>"] + +span :: [String] -> String +span xs = concat ["<span>", concat xs, "</span>"] + +a :: [Attr] -> [String] -> String +a xs ys = concat ["<a ", attrs xs, ">", concat ys, "</a>"] + +table :: [String] -> String +table xs = concat ["<table>", concat xs, "</table>"] + +td :: [String] -> String +td xs = concat ["<td>", concat xs, "</td>"] + +th :: [String] -> String +th xs = concat ["<th>", concat xs, "</th>"] + +tr :: [String] -> String +tr xs = concat ["<tr>", concat xs, "</tr>"] + +ul :: [String] -> String +ul xs = concat ["<ul>", concat xs, "</ul>"] + +li :: [String] -> String +li xs = concat ["<li>", concat xs, "</li>"] + +img :: [Attr] -> String +img xs = concat ["<img ", attrs xs, ">"] + +attr :: Attr -> String +attr (k, v) = concat [k, "='", v, "'"] + +attrs :: [Attr] -> String +attrs xs = unwords (attr <$> xs) |