From 677fa5b4f4a8db7aac90dfc1b0515f333e8c5518 Mon Sep 17 00:00:00 2001 From: TMA Date: Sun, 15 Mar 2026 00:04:25 +0100 Subject: [PATCH] fix again --- src/brmelect.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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) } }))))