From e774d11af63764a7457d842ecd74b30a183fa71e Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Sun, 6 Sep 2026 22:04:28 -0600 Subject: migrate to react --- lisp/service/home-service.lisp | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'lisp/service/home-service.lisp') diff --git a/lisp/service/home-service.lisp b/lisp/service/home-service.lisp index da6ded6..63011e5 100644 --- a/lisp/service/home-service.lisp +++ b/lisp/service/home-service.lisp @@ -9,10 +9,11 @@ :accessor content)) (:documentation "")) -(defmethod initialize-instance :after ((home-service home-service) &key) - t) - (defun home-json (&optional message errormsg) (with-noauth (instance home-service) - (when (not (org-ckons-core::null-or-empty-p message)) (setf (message instance) message)) - (when (not (org-ckons-core::null-or-empty-p errormsg)) (setf (errormsg instance) errormsg)))) + (setf (message instance) message) + (setf (errormsg instance) errormsg))) + + +(define-endpoint ("/home" :method :get) () home-json) +(define-endpoint ("/home" :method :post) (&post (message :parameter-type 'string) (errormsg :parameter-type 'string)) home-json message errormsg) -- cgit v1.3