diff options
| author | ckonstanski <carlos.konstanski@olo.com> | 2024-05-27 15:25:31 -0600 |
|---|---|---|
| committer | ckonstanski <carlos.konstanski@olo.com> | 2024-05-27 15:25:31 -0600 |
| commit | 2269a053265860b124050dd91868a625ec81673a (patch) | |
| tree | 99a6b47358536007f959e48b0ce74533a8065eeb /lisp/webapps/woodriverlessons/clojurescript | |
| parent | e30ee019294e2abbbd3644b73e4327ae17df4392 (diff) | |
html5 video
Diffstat (limited to 'lisp/webapps/woodriverlessons/clojurescript')
| -rw-r--r-- | lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs b/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs index 94066fa..611744a 100644 --- a/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs +++ b/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs @@ -620,9 +620,13 @@ [:td {:onclick onclick} (get rec "id")] [:td {:onclick onclick} (get rec "description")] [:td - [:embed {:src (str "/gallery/file/view?id=" (get rec "id")) - :type (get rec "mime_type") - :height "400"}]] + (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/") + [:embed {:src (str "/gallery/file/view?id=" (get rec "id")) + :type (get rec "mime_type") + :height "400"}])] (when (get jsonobj "adminP") [:td {:style "text-align: right;"} [:img {:src "/static/images/delete.png" |