clojure で twitter4j を使ってみた。

update-tweet.clj

(ns org.example.twitter4j.tweets
  (:import (twitter4j Status Twitter TwitterException TwitterFactory)
           (twitter4j.auth AccessToken RequestToken)
           (java.io BufferedReader IOException InputStreamReader)))

(let [twitter (TwitterFactory/getSingleton)]
  (let [request-token (.getOAuthRequestToken twitter)
        access-token  (atom nil)]
    (println "Got request token.")
    (println (str "Reuest token: " (str (.getToken request-token))))
    (println (str "Reuest token secret: " (str (.getTokenSecret request-token))))

    (while (nil? @access-token)
      (println "Open the following URL and grant access to your account:")
      (println (.getAuthorizationURL request-token))
      (print "Enter the PIN(if available) and hit enter after you granted access.[PIN]:")
      (flush)

      (let [pin (readLine)]
        (reset! access-token (if (> (.length pin) 0)
                               (.getOAuthAccessToken twitter request-token pin)
                               (.getOAuthAccessToken twitter request-token)))))

    (println "Got access token.")
    (println (str "Access token: " (.getToken @access-token)))
    (println (str "Access token secret: " (.getTokenSecret @access-token)))

    (let [status (.updateStatus twitter "Hello, Twitter4j！！")]
      (println (str "Successfully updated the status to [" (.getText status) "].")))))