require "ragex.rb"

# ------------------------------------------------------------------
# --------------------------------- ragex examples // tests

r = Ragex.new
r.html {
	head {
		title { "Hello Ragex" }
		meta({'http-equiv'=>"content-type"}, "text/html; charset=ISO-8859-1") 
		link("stylesheet", "style.css", "text/css")
		meta("author", "Peter Thoman")
	}
	body {
		div("headimg") { img("img/header.png", "Header Image") }
		div("box") {
			div("header") { "I am the header" }
			ul {
				li { tt(:style=>"font-size:large") { "Code" } } # test nondefault params
				li { a("http://metaclassofnil.com") { "I link to a great site!" } }
			}
			div("footer") { "I am the footer" }
		}
		div("box") {
			div("header") { "Form elements test" }
			form("cgi.cgi", "post", "blalb") { # test too many default params
				fieldset { 
					select("selector") {
						optgroup("First Group") { option{"O1"}; option{"O2"} }
						optgroup("Second Group") { option{"O3"}; option{"O4"} }
					} 
					br
					textarea("area", 4, 40) { "Area default text" } # test nonstring params
					br
					button("submitter", "submit") { "Foo me" }
				}
			}
			div("footer") { "Whoa!" }
		}
	}
}


puts "\n\n\n"
r = Ragex.new
r.html_start # test long start only
r.head {
	title { "Ragex nonblock form test (_s/_e)" }
	link("stylesheet", "style.css", "text/css")
	meta("author", "Peter Thoman")
}
r.body_s # test short start only
r.div_s("box")
r.div("header") { "I am the header" }
r.ul {
	li { code(:style=>"font-size:large") { "Code" } } # test nondefault params
	li { a("http://metaclassofnil.com") { "I link to a great site!" } }
}
r.div("footer") { "Entitized? & \" < >" }
r.c_a # shorter = better ;)

puts "\n\n"