47 lines
804 B
Tcl
47 lines
804 B
Tcl
lang HTML:
|
|
HEADER := $HTML"<!DOCTYPE HTML>"
|
|
func HTML(t:Text->HTML):
|
|
t = t:replace_all({
|
|
$/&/="&",
|
|
$/</="<",
|
|
$/>/=">",
|
|
$/"/=""",
|
|
$/'/="'",
|
|
})
|
|
|
|
return HTML.without_escaping(t)
|
|
|
|
func HTML(i:Int->HTML):
|
|
return HTML.without_escaping("$i")
|
|
|
|
func paragraph(content:HTML->HTML):
|
|
return $HTML"<p>$content</p>"
|
|
|
|
func main():
|
|
>> HTML.HEADER
|
|
= $HTML"<!DOCTYPE HTML>"
|
|
|
|
>> HTML.HEADER[1]
|
|
= $HTML"<"
|
|
|
|
>> HTML.HEADER.text_content
|
|
= "<!DOCTYPE HTML>"
|
|
|
|
>> user := "I <3 hax"
|
|
>> html := $HTML"Hello $user!"
|
|
= $HTML"Hello I <3 hax!"
|
|
>> html ++ $HTML"<br>"
|
|
= $HTML"Hello I <3 hax!<br>"
|
|
|
|
>> $HTML"$(1 + 2)"
|
|
= $HTML"3"
|
|
|
|
>> $HTML"$(Int8(3))"
|
|
= $HTML"3"
|
|
|
|
>> html:paragraph()
|
|
= $HTML"<p>Hello I <3 hax!</p>"
|
|
|
|
>> Text(html)
|
|
= '$HTML"Hello I <3 hax!"'
|