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{ `@div{
@a[(href "/meetings/add")]{"Add Meeting"} @a[(href "/meetings/add")]{"Add Meeting"}
@table{ @table{
@tr{ @th{ID} @th{Title} @th{Start} @th{End} } @tr{ @th{ID} @th{Title} @th{Start} @th{End} @th{Actions}}
@,@(row-map* @,@(row-map*
(lambda (meeting-id title from to) (lambda (meeting-id title from to)
`@tr{ `@tr{
@ -136,12 +136,25 @@
@td{@,title} @td{@,title}
@td{@,from} @td{@,from}
@td{@,to} @td{@,to}
@td{@a[(href @,(string-append "/admin/meeting/" (number->string meeting-id)))]{details}}
}) })
rows) rows)
} }
})))) }))))
;@td{,(->string from)} ;@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 ;; Returns (possibly cached) SQLite3 DB handle
;(define (brmelect-db) ;(define (brmelect-db)
; (let ((cdb (*cached-brmelect-db*))) ; (let ((cdb (*cached-brmelect-db*)))