f/yenu
1
0
Fork 0
Code Issues 6 Pull requests Projects Releases 1 Packages 1 Wiki Activity

Don't scale small images #14

Browse source
This commit is contained in:
Aaron Fischer 2017-05-03 23:17:47 +02:00
parent 34d724292b
commit 68ee12d2cf
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/clj/yenu/helpers/images.clj
View file

@ -48,7 +48,10 @@
(crop-from resized-img crop-margin 0 width width))))) (crop-from resized-img crop-margin 0 width width)))))
(defn scale-normal [width height] (defn scale-normal [width height]
(resize-fn width height ultra-quality)) #(let [image-file % [orig-width orig-height] (dimensions (utils/buffered-image image-file))]
(if (and (< orig-width width) (< orig-height height))
((resize-fn orig-width orig-height ultra-quality) %)
((resize-fn width height ultra-quality) %))))
(defn remove-metadata [filepath file] (defn remove-metadata [filepath file]
(if (contains? #{".jpg" ".jpeg" ".jpe"} (s/lower-case (fs/extension filepath))) (if (contains? #{".jpg" ".jpeg" ".jpe"} (s/lower-case (fs/extension filepath)))