From 82ed686e6d4cdec7be0f5068b2bb3777b73877db Mon Sep 17 00:00:00 2001
From: TMA <tma+hs@jikos.cz>
Date: Sun, 15 Mar 2026 00:40:44 +0100
Subject: [PATCH] meetings

---
 src/brmelect.scm | 30 ++++++++++++++++++++++++++++--
 1 file changed, 28 insertions(+), 2 deletions(-)

diff --git a/src/brmelect.scm b/src/brmelect.scm
index 04b90eb..4625fe6 100644
--- a/src/brmelect.scm
+++ b/src/brmelect.scm
@@ -75,9 +75,9 @@
      }})
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; members
+;; /admin/members
 (define-resource (members "admin" "members" parameters)
-  (let ((rows (query-db "SELECT member_id,nick,name,surname FROM brm.members ORDER BY member_id")))
+  (let ((rows (query-db "SELECT member_id,nick,name,surname FROM brm.members ORDER BY nick")))
     (make-html-response
       200
       (layout
@@ -116,6 +116,32 @@
 ;             @input[type: "submit" name: "submit" value: "Create"]{}
 ;           }))))
 ;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; /admin/meetings
+(define-resource (meetings "admin" "meetings" parameters)
+  (let ((rows
+         (query-db "SELECT meeting_id,title,lower(held_on),upper(held_on) FROM brm.meetings ORDER BY meeting_id")))
+    (make-html-response
+     200
+     (layout
+      "Meetings"
+      `@div{
+         @a[(href "/meetings/add")]{"Add Meeting"}
+         @table{
+           @tr{ @th{ID} @th{Title} @th{Start} @th{End} }
+           @,@(row-map*
+              (lambda (meeting-id title from to)
+                `@tr{
+                   @td{,(number->string meeting-id)}
+                   @td{,title}
+                   @td{,from}
+                   @td{,to}
+                 })
+              rows)
+         }
+      }))))
+                   ;@td{,(->string from)}
+
 ;; Returns (possibly cached) SQLite3 DB handle
 ;(define (brmelect-db)
 ;  (let ((cdb (*cached-brmelect-db*)))