aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <colin@cicadas.surf>2022-11-02 10:16:29 -0500
committerColin Okay <colin@cicadas.surf>2022-11-02 10:16:29 -0500
commit5802005a5d3f1cbac66bb7f1549096bbbf76fcf6 (patch)
tree2387c4f307512b16a27f27f0a1613e859b09bdcd
parentf89ed339ff57b09b0ff0a57f76a2aa1165ec780c (diff)
Add: explainer text on invites
-rw-r--r--home.lisp14
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*