読者です 読者をやめる 読者になる 読者になる

Sphereとともに

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

Clojure その22 お遊び

行くよっ

って自分がつぶやいたら

youtube で Q&Aリサイタル を再生するという

意味の分からないやーつ

(ns hello.core
  (:import [twitter4j TwitterFactory Query TwitterException])
  (:use [clojure.java.browse])
  )

;; Twitter からつぶやきを取得
;;  -> lazy-seq
(defn getTweet []
  (try
    (let [twitter (.getInstance (TwitterFactory.))
           userTimeline (.getUserTimeline twitter)]
           userTimeline)
    (catch TwitterException e (println (.getMessage e))))
  )


;; Q&Aリサイタル 再生 youtube
(defn playQ&A []
  (browse-url "https://www.youtube.com/watch?v=UhAhVGuHEbY")
  )

;; 行くよっ! のつぶやきをさがす
(defn findIKUYO [tweet]
    (let [result (re-find #".*行くよっ.*" tweet)]
      (if-not (= nil result)
          (playQ&A)
        ))
  )

(defn -main []
  (findIKUYO (.getText (first (getTweet))))
  )

なんかイマイチスマートじゃない感じあるんだよなー

プログラミングClojure 第2版

プログラミングClojure 第2版