From a6ae53fe3fce9643f96418b1d48c03c9e6b87a68 Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Mon, 27 May 2024 15:31:30 -0600 Subject: html5 video --- .../woodriverlessons/clojurescript/woodriverlessons/src/core.cljs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'lisp/webapps') diff --git a/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs b/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs index 611744a..437d08b 100644 --- a/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs +++ b/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs @@ -624,9 +624,10 @@ [:img {:height "400" :src (str "/gallery/file/view?id=" (get rec "id"))}] (str/includes? (get rec "mime_type") "video/") - [:embed {:src (str "/gallery/file/view?id=" (get rec "id")) - :type (get rec "mime_type") - :height "400"}])] + [:video {:height "400" + :cotrols "controls"} + [:source {:src (str "/gallery/file/view?id=" (get rec "id")) + :type (get rec "mime_type")}]])] (when (get jsonobj "adminP") [:td {:style "text-align: right;"} [:img {:src "/static/images/delete.png" -- cgit v1.3