From ce470567c4421da7d073685cf845fdc4448aadc0 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Wed, 19 Jun 2024 13:13:42 -0700
Subject: Rename classes with convention

---
 site/invites.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'site/invites.lisp')

diff --git a/site/invites.lisp b/site/invites.lisp
index dc1f31c..dab6a1b 100644
--- a/site/invites.lisp
+++ b/site/invites.lisp
@@ -1,6 +1,6 @@
 (in-package #:vampire)
 
-(wknd:defendpoint invites
+(wknd:defendpoint create.invite
   :using user-known
   :post :to "invites"
   :handle
@@ -14,7 +14,7 @@
     (or (plusp uses) (null uses))))
 
 
-(wknd:defendpoint create-new-account
+(wknd:defendpoint create.user
   :post :to "new-account"
   :parameters
   (username string)
@@ -26,7 +26,7 @@
   :authenticate (and
 		 (equal password password2)
 		 (setf invite (object-with-key invite-code)))
-  :authorize (invite-validp invite)
+  :authorize (invite-valid-p invite)
   :handle (progn
 	    (db:with-transaction ()
 	      (when (uses-remaining invite)
@@ -44,7 +44,7 @@
 
 (defun new-account-page ()
   (page (:title "V A M P I R E ~ JOIN")
-    (:form :method "POST" :action (wknd:route-to 'create-new-account)
+    (:form :method "POST" :action (wknd:route-to 'create.user)
            (:input :placeholder "Invite Code" :name "invite-code")(:br)
            (:input :placeholder "Username" :name "username")(:br)
            (:input :placeholder "Password" :name "password" :type "password")(:br)
-- 
cgit v1.2.3