From 5802005a5d3f1cbac66bb7f1549096bbbf76fcf6 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Wed, 2 Nov 2022 10:16:29 -0500
Subject: Add: explainer text on invites

---
 home.lisp | 14 ++++++++++----
 1 file 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*
-- 
cgit v1.2.3