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)))) )
なんかイマイチスマートじゃない感じあるんだよなー
- 作者: Stuart Halloway and Aaron Bedra,川合史朗
- 出版社/メーカー: オーム社
- 発売日: 2013/04/26
- メディア: 単行本(ソフトカバー)
- この商品を含むブログ (9件) を見る