diff --git a/src/brmelect.scm b/src/brmelect.scm index 0fdda34..336b0bc 100644 --- a/src/brmelect.scm +++ b/src/brmelect.scm @@ -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*)))