Add: explainer text on invites

1 files changed, 10 insertions, 4 deletions

diff --git a/home.lisp b/home.lisp
index 5df6aed..1c9933d 100644
--- a/home.lisp
+++ b/home.lisp
@@ -68,10 +68,16 @@
         (form ()
              (button (:bind createbtn :content "Create Invite"))
              (form-element (:number :bind count))
-             (p (:content "Uses are optional. Blank or Zero means unlimited use.")))
-      (setf (minimum count) 0
-            (place-holder count) "Uses"
-            (width count) 70)
+             (p (:bind invite-explainer
+                  :content "Share invite codes with friends to invite
+             them to this server. Optinally say hay many times an
+             invite code can be used by setting the Uses count before
+             clicking the Create Invite button.")))
+      (setf
+       (maximum-width invite-explainer) "500px"
+       (minimum count) 0
+       (place-holder count) "Uses"
+       (width count) 70)
       (set-on-click
        createbtn
        (thunk*