From e46e242b8d7cc08e2f3edfc7effee706d058d201 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Sun, 16 Aug 2026 13:28:23 -0600 Subject: migrate to react --- lisp/service/profile-service.lisp | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lisp/service/profile-service.lisp') diff --git a/lisp/service/profile-service.lisp b/lisp/service/profile-service.lisp index 256d599..d14e3c7 100644 --- a/lisp/service/profile-service.lisp +++ b/lisp/service/profile-service.lisp @@ -59,3 +59,8 @@ (set-user user) (setf (session-value :message) "Profile saved successfully.")) (setf (session-value :errormsg) "An error occured.")))))) + +(define-endpoint ("/profile" :method :get) () profile-json) +(define-endpoint ("/profile/view" :method :get) () profile-view-json) +(define-endpoint ("/profile/modify" :method :post) () profile-modify-json) +(define-endpoint ("/profile/modify/submit" :method :post) (&post (id :parameter-type 'integer) (username :parameter-type 'string) (first_name :parameter-type 'string) (last_name :parameter-type 'string) (email :parameter-type 'string) (phone :parameter-type 'string)) profile-modify-submit-json id username first_name last_name email phone) -- cgit v1.3