Sphereとともに

scalaとかplayframeworkとか。技術ブログにしたいなと。環境は Windows7x64, mac です。たまに声優さん情報が混ざります。最近ちょっとClojure触りました。

clojure で clipboardの値を取得する。

(import '(java.awt Toolkit)
         '(java.awt.datatransfer Clipboard DataFlavor))

(def toolkit (Toolkit/getDefaultToolkit))
(def clip (.getSystemClipboard toolkit))

(defn get-clipboard [] 
  (String. (.getData clip DataFlavor/stringFlavor)))


(while true (do 
              (Thread/sleep 10000)
              (println (get-clipboard))))