diff options
| author | ckonstanski <carlos.konstanski@olo.com> | 2024-05-27 16:57:01 -0600 |
|---|---|---|
| committer | ckonstanski <carlos.konstanski@olo.com> | 2024-05-27 16:57:01 -0600 |
| commit | ebd383b0e0a6168f99857126897b07395e24b41c (patch) | |
| tree | b3b37d7dda1d7562ece14e9c2396aa9cf6f72f30 /lisp/webapps/woodriverlessons/site.lisp | |
| parent | 6f397b2cd6b825a105a06591aa30469aab767591 (diff) | |
embed youtobe videos
Diffstat (limited to 'lisp/webapps/woodriverlessons/site.lisp')
| -rw-r--r-- | lisp/webapps/woodriverlessons/site.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/webapps/woodriverlessons/site.lisp b/lisp/webapps/woodriverlessons/site.lisp index a1a6a82..d47b2b6 100644 --- a/lisp/webapps/woodriverlessons/site.lisp +++ b/lisp/webapps/woodriverlessons/site.lisp @@ -105,13 +105,13 @@ `(gallery-add-json)) (defmacro .gallery-add-submit () - `(gallery-add-submit-json description upload)) + `(gallery-add-submit-json description video_embed_url upload)) (defmacro .gallery-modify () `(gallery-modify-json id)) (defmacro .gallery-modify-submit () - `(gallery-modify-submit-json id description upload)) + `(gallery-modify-submit-json id description video_embed_url upload)) (defmacro .gallery-delete () `(gallery-delete-json id)) @@ -205,9 +205,9 @@ (define-endpoint :get "/gallery" () .gallery) (define-endpoint :get "/gallery/view" () .gallery-view) (define-endpoint :post "/gallery/add" () .gallery-add) -(define-endpoint :post "/gallery/add/submit" ((description :parameter-type 'string) (upload :parameter-type 'string)) .gallery-add-submit) +(define-endpoint :post "/gallery/add/submit" ((description :parameter-type 'string) (video_embed_url :parameter-type 'string) (upload :parameter-type 'string)) .gallery-add-submit) (define-endpoint :post "/gallery/modify" ((id :parameter-type 'integer)) .gallery-modify) -(define-endpoint :post "/gallery/modify/submit" ((id :parameter-type 'integer) (description :parameter-type 'string) (upload :parameter-type 'string)) .gallery-modify-submit) +(define-endpoint :post "/gallery/modify/submit" ((id :parameter-type 'integer) (description :parameter-type 'string) (video_embed_url :parameter-type 'string) (upload :parameter-type 'string)) .gallery-modify-submit) (define-endpoint :post "/gallery/delete" ((id :parameter-type 'integer)) .gallery-delete) (define-endpoint :get "/gallery/file/view" ((id :parameter-type 'integer)) .gallery-file-view) (define-endpoint :get "/testimonials" () .testimonials) |