From e1618bd69e8439600facdcd84c0dd5c06f90b56e Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Sun, 26 May 2024 08:57:31 -0600 Subject: make about-us CMS again --- lisp/webapps/woodriverlessons/site.lisp | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'lisp/webapps/woodriverlessons/site.lisp') diff --git a/lisp/webapps/woodriverlessons/site.lisp b/lisp/webapps/woodriverlessons/site.lisp index dafe289..10fa297 100644 --- a/lisp/webapps/woodriverlessons/site.lisp +++ b/lisp/webapps/woodriverlessons/site.lisp @@ -86,6 +86,15 @@ (defmacro .about-us () `(about-us-json)) +(defmacro .about-us-view () + `(about-us-view-json)) + +(defmacro .about-us-modify () + `(about-us-modify-json)) + +(defmacro .about-us-modify-submit () + `(about-us-modify-submit-json content)) + (defmacro .testimonials () `(testimonials-json)) @@ -172,6 +181,9 @@ (define-endpoint :get "/password" () .password) (define-endpoint :post "/password/submit" ((id :parameter-type 'integer) (pwd :parameter-type 'string) (pwd2 :parameter-type 'string)) .password-submit) (define-endpoint :get "/about-us" () .about-us) +(define-endpoint :get "/about-us/view" () .about-us-view) +(define-endpoint :post "/about-us/modify" () .about-us-modify) +(define-endpoint :post "/about-us/modify/submit" ((content :parameter-type 'string)) .about-us-modify-submit) (define-endpoint :get "/testimonials" () .testimonials) (define-endpoint :get "/testimonials/view" () .testimonials-view) (define-endpoint :post "/testimonials/modify" () .testimonials-modify) -- cgit v1.3