Skip to content

Instantly share code, notes, and snippets.

@timvisher

timvisher/gist:1044912

Created June 24, 2011 14:42
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 timvisher/1044912 to your computer and use it in GitHub Desktop.
Save timvisher/1044912 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
wallpaper-manager-core.core> (first (map #(assoc % :imported-at (time-coerce/to-long (:imported-at %))) (map #(assoc % :imported-at (time-coerce/from-long (fs/mtime (wallpaper->thumbnail-path %)))) (read-string (slurp (str preferences-home "/library.clj"))))))
{:imported-at 1308914971000, :thumbnail-resolution {:extension "png", :width 1920, :height 1200}, :source "upload", :title "wallpaper-1130627", :tags #{"1440x900" "1920x1200" "16:10" "1280x800"}, :resolutions #{{:extension "png", :width 1920, :height 1200} {:extension "png", :width 1440, :height 900} {:extension "png", :width 1280, :height 800}}}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment