Skip to content

Instantly share code, notes, and snippets.

@duncanmak

duncanmak/Utilities.clj

Created October 29, 2009 20:25
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save duncanmak/221780 to your computer and use it in GitHub Desktop.
Save duncanmak/221780 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Utilities.clj
(defn thumbnail-info [dir i]
(let [thumbs (.listFiles dir (with-suffix i))]
(when-not (empty? thumbs)
(let [image (IJ/openImage (.getAbsolutePath (first thumbs)))]
{:width (.getWidth image)
:height (.getHeight image)}))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment