From 44f7a0a4da7cc45d638e4b64fbf47cb1afc51292 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Fri, 7 Aug 2026 19:11:49 -0600 Subject: lots of react migration --- lisp/service/messages-service.lisp | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'lisp/service/messages-service.lisp') diff --git a/lisp/service/messages-service.lisp b/lisp/service/messages-service.lisp index 9dc047a..9690822 100644 --- a/lisp/service/messages-service.lisp +++ b/lisp/service/messages-service.lisp @@ -55,3 +55,7 @@ (error (e) (declare (ignore e)) (setf (session-value :errormsg) (format nil "Error marking message ~a." read))))))) + +(define-endpoint ("/messages" :method :get) () messages-json) +(define-endpoint ("/messages/results" :method :post) (&post (read :parameter-type 'string)) messages-results-json read) +(define-endpoint ("/messages/mark" :method :post) (&post (read :parameter-type 'string) (id :parameter-type 'integer)) messages-mark-json read id) -- cgit v1.3