(go (while true
  (let [{:keys [result image-data]} (<! pict-chan)]
    (when (= result :success)
      (set! (.-src (dom/getElement "image")) (str "data:image/jpeg;base64," image-data))))))