summaryrefslogtreecommitdiff
path: root/home.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'home.lisp')
-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*