Я запускаю этот пример в clojurescript: https://www.w3schools.com/tags/tryit.asp?filename=tryhtml5_canvas_drawimage И у меня есть следующее. (Игнорировать, что означает сегментация или сегментированный):
(def run-segmentation (with-meta identity {:component-did-mount #(dispatch [:run-segmentation])}))
[run-segmentation
[:div
[:canvas {:id "img-editing"}]
[:img {:src "/run-segmentation" :id "segmented"}]]]
Файл css:
#segmented {
border: 1px solid green;
height: 277px;
width: 220px;
}
#img-editing {
border: 2px solid blue;
width:240px;
height:297px;
}
Прослушиватель событий:
(reg-event-db
:run-segmentation
(fn [db _]
(set! (.-onload img)
(fn []
(let [c (js/document.getElementById "img-editing")
ctx (.getContext c "2d")
img (js/document.getElementById "segmented")]
(.drawImage ctx img 10 10))))
db))
Но вывод не не то, что ожидается:
Что я делаю не так?