add: purchased accounts

crates/app/src/public/html/components.lisp

@@ -2285,3 +2285,80 @@
         (text "{{ self::note_mover_dirs_listing(dir=subdir, dirs=dirs) }}")
     (text "{%- endif %} {% endfor %}"))
 (text "{%- endmacro %}")
+
+(text "{% macro become_supporter_button() -%}")
+(p
+    (text "You're ")
+    (b
+        (text "not "))
+    (text "currently a supporter! No
+    pressure, but it helps us do some pretty cool
+    things! As a supporter, you'll get:"))
+(ul
+    ("style" "margin-bottom: var(--pad-4)")
+    (li
+        (text "Vanity badge on profile"))
+    (li
+        (text "No more supporter ads (duh)"))
+    (li
+        (text "Ability to upload gif avatars/banners"))
+    (li
+        (text "Be an admin/owner of up to 10 communities"))
+    (li
+        (text "Use custom CSS on your profile"))
+    (li
+        (text "Use community emojis outside of
+        their community"))
+    (li
+        (text "Upload and use gif emojis"))
+    (li
+        (text "Create infinite stack timelines"))
+    (li
+        (text "Upload images to posts"))
+    (li
+        (text "Save infinite post drafts"))
+    (li
+        (text "Ability to search through all posts"))
+    (li
+        (text "Ability to create forges"))
+    (li
+        (text "Create more than 1 app"))
+    (li
+        (text "Create up to 10 stack blocks"))
+    (li
+        (text "Add unlimited users to stacks"))
+    (li
+        (text "Increased proxied image size"))
+    (li
+        (text "Create infinite journals"))
+    (li
+        (text "Create infinite notes in each journal"))
+    (li
+        (text "Publish up to 50 notes"))
+
+    (text "{% if config.security.enable_invite_codes -%}")
+    (li
+        (text "Create up to 48 invite codes")
+        (sup (a ("href" "#footnote-1") (text "1"))))
+    (text "{%- endif %}"))
+(a
+    ("href" "{{ config.stripe.payment_link }}?client_reference_id={{ user.id }}")
+    ("class" "button")
+    ("target" "_blank")
+    (text "Become a supporter ({{ config.stripe.supporter_price_text }})"))
+(span
+    ("class" "fade")
+    (text "Please use your")
+    (b
+        (text " real email "))
+    (text "when
+    completing payment. It is required to manage
+    your billing settings."))
+
+(text "{% if config.security.enable_invite_codes -%}")
+(span
+    ("class" "fade")
+    ("id" "footnote-1")
+    (b (text "1: ")) (text "After your account is at least 1 month old"))
+(text "{%- endif %}")
+(text "{%- endmacro %}")