diff options
| -rw-r--r-- | src/main.lisp | 5 |
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") |