From 4d12ff855d9f440b2f00b683804b3323e1a8625a Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Wed, 15 Jul 2026 16:14:42 -0600 Subject: added software consulting --- lisp/webapps/bogenherr/site.lisp | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'lisp/webapps/bogenherr/site.lisp') diff --git a/lisp/webapps/bogenherr/site.lisp b/lisp/webapps/bogenherr/site.lisp index 223ac27..b47b9d4 100644 --- a/lisp/webapps/bogenherr/site.lisp +++ b/lisp/webapps/bogenherr/site.lisp @@ -95,6 +95,18 @@ (defmacro .gigs-modify-submit () `(about-us-modify-submit-json "gigs" content)) +(defmacro .programming () + `(about-us-json "programming")) + +(defmacro .programming-view () + `(about-us-view-json "programming")) + +(defmacro .programming-modify () + `(about-us-modify-json "programming")) + +(defmacro .programming-modify-submit () + `(about-us-modify-submit-json "programming" content)) + (defmacro .gallery () `(gallery-json)) @@ -206,6 +218,10 @@ (define-endpoint ("/gigs/view" :method :get) () .gigs-view) (define-endpoint ("/gigs/modify" :method :post) () .gigs-modify) (define-endpoint ("/gigs/modify/submit" :method :post) (&post (content :parameter-type 'string)) .gigs-modify-submit) +(define-endpoint ("/programming" :method :get) () .programming) +(define-endpoint ("/programming/view" :method :get) () .programming-view) +(define-endpoint ("/programming/modify" :method :post) () .programming-modify) +(define-endpoint ("/programming/modify/submit" :method :post) (&post (content :parameter-type 'string)) .programming-modify-submit) (define-endpoint ("/gallery" :method :get) () .gallery) (define-endpoint ("/gallery/view" :method :get) () .gallery-view) (define-endpoint ("/gallery/add" :method :post) () .gallery-add) -- cgit v1.3