diff --git a/src/brmelect.scm b/src/brmelect.scm index 4296494..1ecead6 100644 --- a/src/brmelect.scm +++ b/src/brmelect.scm @@ -68,6 +68,7 @@ @title{foo} } @body{ +@h1{web foo} @div[(class "navbar navbar-inverse navbar-fixed-top")]{ @div[(class "navbar-inner")]{ @div[(class "container")]{ @@ -98,7 +99,7 @@ td { border: 1pt solid; padding: 0.5ex 0.5em; }") @head{@title{brmelect Web Ballot} @style[(type "text/css")]{@,brmelect-style}} @body{ - +@h1{web ballot} }})) (define-resource (elect "elect" "config" parameters) @@ -107,7 +108,7 @@ td { border: 1pt solid; padding: 0.5ex 0.5em; }") `@html{ @head{@title{brmelect web config}} @body{ - +@h1{web config} }})) (cgi-main-loop handle-request)