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 | |
| parent | 6f397b2cd6b825a105a06591aa30469aab767591 (diff) | |
embed youtobe videos
Diffstat (limited to 'lisp/webapps/woodriverlessons')
| -rw-r--r-- | lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs | 21 | ||||
| -rw-r--r-- | lisp/webapps/woodriverlessons/site.lisp | 8 |
2 files changed, 16 insertions, 13 deletions
diff --git a/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs b/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs index 8a8d325..cc898be 100644 --- a/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs +++ b/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs @@ -607,7 +607,7 @@ [:tr [:th {:scope "col"} "ID"] [:th {:scope "col"} "Description"] - [:th {:scope "col"} "Image/Video"] + [:th {:scope "col"} "Content"] (when (get jsonobj "adminP") [:th {:scope "col" :style "text-align: right;"} "Del"])]] [:tbody @@ -620,14 +620,17 @@ [:td {:onclick onclick} (get rec "id")] [:td {:onclick onclick} (get rec "description")] [:td - (cond (str/includes? (get rec "mime_type") "image/") - [:img {:height "400" - :src (str "/gallery/file/view?id=" (get rec "id"))}] - (str/includes? (get rec "mime_type") "video/") - [:video {:height "400" - :controls "controls"} - [:source {:src (str "/gallery/file/view?id=" (get rec "id")) - :type (get rec "mime_type")}]])] + (cond (not (= (get rec "video_embed_url") "null")) + [:iframe {:width "720" + :height "405" + :src (get rec "video_embed_url") + :frameborder "0" + :allow "accelerometer; autoplay; clipboard-write; encrypted-media; gyroscope; picture-in-picture; web-share" + :referrerpolicy "strict-origin-when-cross-origin" + :allowfullscreen "allowfullscreen"}] + :else + [:img {:height "405" + :src (str "/gallery/file/view?id=" (get rec "id"))}])] (when (get jsonobj "adminP") [:td {:style "text-align: right;"} [:img {:src "/static/images/delete.png" 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) |