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

foo

Browse source
This commit is contained in:
TMA 2026-03-15 01:29:57 +01:00
parent 8e8b9c3100
commit b1c987f07d
1 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/brmelect.scm
View file

@ -128,7 +128,7 @@
`@div{
@a[(href "/meetings/add")]{"Add Meeting"}
@table{
@tr{ @th{ID} @th{Title} @th{Start} @th{End} }
@tr{ @th{ID} @th{Title} @th{Start} @th{End} @th{Actions}}
@,@(row-map*
(lambda (meeting-id title from to)
`@tr{
@ -136,12 +136,25 @@
@td{@,title}
@td{@,from}
@td{@,to}
@td{@a[(href @,(string-append "/admin/meeting/" (number->string meeting-id)))]{details}}
})
rows)
}
}))))
;@td{,(->string from)}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; /foo -- debug endpoint
(define-resource (foo-bar-baz "foo" id params)
(make-html-response
200
(layout
"FOO"
`@div{
@,(resource-context-method (current-resource-context))
@p{"Foo successfully frobnicated for meeting " (number->string id) "."}
@a[(href (string-append "/admin/meeting/" (number->string id)))]{Back to Meeting}
})))
;; Returns (possibly cached) SQLite3 DB handle
;(define (brmelect-db)
; (let ((cdb (*cached-brmelect-db*)))