Reduce the dashboard thumbnail size

This commit is contained in:
Andrey Antukh 2023-06-23 16:28:11 +02:00
parent 7746649eb8
commit 7977d75e3d
4 changed files with 18 additions and 13 deletions

View file

@ -126,13 +126,15 @@
[clipboard-data]
(when clipboard-data
(let [file-list (-> (.-files ^js clipboard-data))]
(->> (range (.-length file-list))
(map #(.item file-list %))
(->> (range (.-length ^js file-list))
(map #(.item ^js file-list %))
(filter #(str/starts-with? (.-type %) "image/"))))))
(defn create-image-bitmap
[image]
(js/createImageBitmap image))
([image]
(js/createImageBitmap image))
([image options]
(js/createImageBitmap image options)))
(defn request-fullscreen
[el]