Disable main controls in groups with no membersHEADmaster

...and emphasise the control that lets users add a member.

This avoids confusion, as it does not make sense to add a transaction or to
settle up in a group with no members.

1 files changed, 3 insertions, 2 deletions

diff --git a/src/main.lisp b/src/main.lisp
index 6f57837..a8e2bfa 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -390,12 +390,13 @@ Example: (funcall (cut princ <> stream) 'a) === (princ 'a stream)."
                (:h1 (who:esc group-name)))
               ((:main :class "container")
                (:section
-                ((:p :class "grid")
+                ((:fieldset :class "grid" :disabled (null members))
                  ((:a :role "button" :href (format nil "/g/~a/txn/" group-id))
                   "Add a transaction")
                  ((:a :role "button" :href (format nil "/g/~a/repay/" group-id))
                   "Settle up"))
-                (:details
+                ;; Open this to make it more obvious how to add a member, when none exist yet.
+                ((:details :open (null members))
                  (:summary "Edit group details or add members")
                  ((:form :action (format nil "/g/~a/" group-id) :method "post")
                   ((:fieldset :role "group")