brmlab/brmelect
9
0
Fork 0
forked from brmlab/brmelect-github
Code Pull requests Activity

fix again

Browse source
This commit is contained in:
TMA 2026-03-15 00:04:25 +01:00
parent 5b2e3ae870
commit 677fa5b4f4
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/brmelect.scm
View file

@ -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)
}
}))))