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 ;; navigation menu
(define (layout title body) (define (layout title . body)
`@html{ `@html{
@head{ @head{
@title{,title} @title{@,title}
} }
@body{ @body{
@h1{,title} @h1{@,title}
@nav{ @nav{
@a[(href "/members")]{"Members"} " | " @a[(href "/members")]{"Members"} " | "
@a[(href "/meetings")]{"Meetings"} " | " @a[(href "/meetings")]{"Meetings"} " | "
@a[(href "/votes")]{"Votes"} @a[(href "/votes")]{"Votes"}
} }
@hr{} @hr{}
,body @,@body
}}) }})
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -86,9 +86,9 @@
;@a[href: "/members/add"]{"Add Member"} ;@a[href: "/members/add"]{"Add Member"}
@table{ @table{
@tr{@th{"ID"} @th{"Nick"} @th{"Name"} @th{"Surname"} @th{"Edit"}} @tr{@th{"ID"} @th{"Nick"} @th{"Name"} @th{"Surname"} @th{"Edit"}}
,@(row-map* @,@(row-map*
(lambda (id nick name surname) (lambda (id nick name surname)
`@tr{@td{,id}@td{,nick}@td{,name}@td{,surname}}) `@tr{@td{@,id}@td{@,nick}@td{@,name}@td{@,surname}})
rows) rows)
} }
})))) }))))