diff --git a/src/brmelect.scm b/src/brmelect.scm index ce46e37..deaad3e 100644 --- a/src/brmelect.scm +++ b/src/brmelect.scm @@ -58,20 +58,20 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; navigation menu -(define (layout title body) +(define (layout title . body) `@html{ @head{ - @title{,title} + @title{@,title} } @body{ - @h1{,title} + @h1{@,title} @nav{ @a[(href "/members")]{"Members"} " | " @a[(href "/meetings")]{"Meetings"} " | " @a[(href "/votes")]{"Votes"} } @hr{} - ,body + @,@body }}) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -86,9 +86,9 @@ ;@a[href: "/members/add"]{"Add Member"} @table{ @tr{@th{"ID"} @th{"Nick"} @th{"Name"} @th{"Surname"} @th{"Edit"}} - ,@(row-map* + @,@(row-map* (lambda (id nick name surname) - `@tr{@td{,id}@td{,nick}@td{,name}@td{,surname}}) + `@tr{@td{@,id}@td{@,nick}@td{@,name}@td{@,surname}}) rows) } }))))