Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defn tweet
- "send a tweet"
- [user body]
- (println "Sending Tweet!\n" body))
- (defn- handle-tweet
- "figure out what we want to do with a tweet"
- [tweet]
- (let [provider (target-provider tweet)
- recipient (target-recipient tweet)
- url (target-landing-page tweet)
- tweet-body (make-tweet-body recipient provider url)]
- (if (to-reply? recipient)
- (do
- (println "should reply, starting tweet")
- (tweet recipient tweet-body)
- (println "good reply, great success"))
- (println "not replying"))))
- 21:33:14.133 [clojure-agent-send-off-pool-0] INFO twitter-streaming-client.impl - received 1 message lines
- should reply, starting tweet
- good reply, great success
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement