Skip to content

Instantly share code, notes, and snippets.

@jhartikainen

jhartikainen/screen.clj

Created May 31, 2012 14:26
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 2 You must be signed in to fork a gist
  • Save jhartikainen/2843727 to your computer and use it in GitHub Desktop.
Save jhartikainen/2843727 to your computer and use it in GitHub Desktop.
Download ZIP
Take screenshot with Clojure
Raw
screen.clj
(import
'(java.awt Rectangle Dimension Robot Toolkit)
'(java.awt.image BufferedImage)
'(java.io File IOException)
'(javax.imageio ImageIO))
(defn take-screenshot []
(let [screen (.getScreenSize (Toolkit/getDefaultToolkit))
rt (new Robot)
img (.createScreenCapture rt (new Rectangle (int (.getWidth screen)) (int (.getHeight screen))))]
(ImageIO/write img "jpg" (new File (str (System/currentTimeMillis) ".jpg")))))
(take-screenshot)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment