Skip to content

Instantly share code, notes, and snippets.

@vito

vito/html.atomo.hs

Created August 7, 2010 21:38
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save vito/513228 to your computer and use it in GitHub Desktop.
Save vito/513228 to your computer and use it in GitHub Desktop.
Download ZIP
a little HTML DSL in Atomo (incomplete)
Raw
html.atomo.hs
HTML = Object clone
Association = Object clone
a -> b := Association clone do: { from = a; to = b }
Self-Closing = ["base", "meta", "link", "hr", "br", "param", "img", "area", "input", "col", "frame"]
-- creating elements with no content
-- keyword dispatch adds attributes
(h: HTML) did-not-understand: (m: Message) := {
elem = HTML new do: {
tag = m particle name
attribute-mode = True
}
h content << elem
elem
} call
-- creating elements with content
(h: HTML) did-not-understand: (m: Message) at: 0 := {
if: h attribute-mode
then: {
attr-names = m particle names
attr-values = m targets tail
attrs = attr-names zip: attr-values with: @->
h attributes = h attributes .. attrs
}
else: {
content = m targets (at: 1)
attr-names = m particle names tail
attr-values = m targets (drop: 2)
elem = HTML new do: {
tag = m particle names (at: 0)
attributes = attr-names zip: attr-values with: @->
}
if: (content is-a?: Block)
then: { elem do: content }
else: { elem content = [content] }
h content << elem
}
} call
(h: HTML) cdata: x :=
h content << x
(h: HTML) doctype :=
h cdata: "<!DOCTYPE html>"
(h: HTML) as: String := {
c = h content (map: { c |
if: (c is-a?: String)
then: { c }
else: { c as: String }
}) concat
attrs = h attributes (map: { a |
" " .. a from .. "=\"" .. a to .. "\""
}) concat
if: (h tag empty?)
then: { c }
else: {
if: (c empty? && (Self-Closing contains?: h tag))
then: { "<" .. h tag .. attrs .. " />" }
else: {
"<" .. h tag .. attrs .. ">" .. c .. "</" .. h tag .. ">"
}
}
} call
HTML new :=
HTML clone do: {
tag = ""
attributes = []
content = []
attribute-mode = False
}
HTML new (do: {
doctype
html: {
head: {
meta do: {
http-equiv: "content-type"
content: "text/html; charset=utf-8"
}
title: "Getting Started"
link rel: "stylesheet" type: "text/css" href: "a.css"
}
body: {
p: "foo"
div: {
span: "blah!"
}
} class: "some-class" id: "hello"
}
}) print
Raw
output.html
<!DOCTYPE html><html><head><meta http-equiv="content-type" content="text/html; charset=utf-8" /><title>Getting Started</title><link rel="stylesheet" type="text/css" href="a.css" /></head><body class="some-class" id="hello"><p>foo</p><div><span>blah!</span></div></body></html>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment