[Clojure]Clojure(Java)でスクリーンショット

java.awt.Robot を用いると簡単にスクリーンショットが撮れるようです。

(import [java.awt Rectangle Robot])

(defn save-rectangle [^Rectangle rect fmt file]
  (-> (Robot.)
      (.createScreenCapture rect)
      (javax.imageio.ImageIO/write fmt file)))

(defn save-screen [fmt file]
  (-> (java.awt.Toolkit/getDefaultToolkit)
      .getScreenSize
      Rectangle.
      (save-rectangle fmt file)))

(save-screen "png" (java.io.File. "tmp.png"))