summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorckonstanski <carlos.konstanski@olo.com>2024-05-27 20:20:29 -0600
committerckonstanski <carlos.konstanski@olo.com>2024-05-27 20:20:29 -0600
commit3052334256694a5450ed2b88a4c624d2fa216ecf (patch)
tree60c3b09f935767fc4e5bf16ce2c7ccfa9e1e01e8
parenta96e0fb1a8266c15f01e5ca07eb1e6dc23bace6a (diff)
gallery layout
-rw-r--r--lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs53
1 files changed, 28 insertions, 25 deletions
diff --git a/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs b/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs
index ebaf1b6..6066008 100644
--- a/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs
+++ b/lisp/webapps/woodriverlessons/clojurescript/woodriverlessons/src/core.cljs
@@ -603,31 +603,34 @@
[:h5 {:style "text-align: center"} "No results found."]
:else
(for [rec results]
- (let [onclick (cond (get jsonobj "adminP")
- (str (namespace ::x) ".on_gallery_modify_clicked(" (get rec "id") ")")
- :else
- "javascript:void")]
- [:span {:style "width:720px; height:425px"}
- [:table
- [:tr
- [:td
- (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; vertical-align:top"}
- [:img {:src "/static/images/delete.png"
- :onclick (str (namespace ::x) ".on_gallery_delete_clicked(" (get rec "id") ")")}]])]
- [:tr
- [:td {:onclick onclick} (get rec "description")]]]])))))
+ [:span {:style "width:720px; height:425px"}
+ [:table
+ [:tr
+ [:td
+ (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; vertical-align:top"}
+ [:img {:src "/static/images/edit.png"
+ :onclick (str (namespace ::x) ".on_gallery_modify_clicked(" (get rec "id") ")")}]
+ [:br]
+ [:img {:src "/static/images/delete.png"
+ :onclick (str (namespace ::x) ".on_gallery_delete_clicked(" (get rec "id") ")")}]])]
+ [:tr
+ [:td (get rec "description")]]
+ [:tr
+ [:td "&nbsp;"]]
+ [:tr
+ [:td "&nbsp;"]]]]))))
(defn handler-gallery-view [response]
(let [jsonobj (js->clj (js/JSON.parse response))]