The quit-yo-jibber jabber client is a clojure wrapper around jive software's smack talk xmpp library. Forked from xmpp-clj, this version aims to be more general, allowing for chat clients as well as chatbots.
Add quit-yo-jibber to your deps (project.clj):
[quit-yo-jibber "0.6.0"]
and use the main file
(ns my.namespace
(:require [quit-yo-jibber :refer :all]))
Define your connection params (host, domain and port are optional arguments, but it defaults to gtalk settings):
;; Connection Info
(def connect-info {:username "some.bot@gmail.com"
:password "*****"})
I recommend that you don't define these in code, but (read-string (slurp)) in a credentials file which you don't put into version control.
Create a function to respond to a message:
(defn handle-message [conn msg]
(str "You said " (:body msg)))
You may also optionally create a function to deal with people changing presence:
(defn handle-presence [conn pre]
(log :info (:from pre) " is now " (if (:online? pre) "online" "offline"))
Now make a connection with some callbacks defined (The var around handle-message means that you can re-define it and the underlying java listener will call your newly defined function, rather than staying on the old implementation):
(def conn (make-connection connect-info (var handle-message) (var handle-presence))
Next, fire up your chat client, add your new buddy, and send him a message. The response should look someting like this:
me: hello chatbot chatbot: You said hello chatbot
If you want to send a message unprompted, without first receiving one, you can use the send-message function like so:
(send-message conn "person@gmail.com" "I wouldn't like not to speak unless spoken to")
If you want to ask a particular user a question and deal with a response, there's a convenient send-question which you can give a function to call when it receives a response. You can ask further questions or await further responses within the body of the callback. If you wish to await a further response without sending another message, send a nil message-body.
(defn cookie? [conn msg] (if (= (:body msg) "yes") "COOKIE" "Oh, okay."))
(send-question conn "person@gmail.com" "Would you like a cookie?" cookie?)
You can get roster information like so (see also the roster, available, on-their-phone and on-their-desktop functions):
(online conn)
=> ("me@example.com", "person@gmail.com", "friend@yahoo.com")
And you can test for online status and such with the online? and away? predicates like so:
(online? conn "me@example.com")
=> false ;; because it's a fake email address. Of course they're not online.
When you're done with a connection, you can log out and close it like so: (close-connection conn)
- Bugfix: online? predicate
- Bugfix: make-connection properly supports optionally providing message and presence handlers
- Improved on-their-phone list and predicate, taking into account more client types
- Added in on-their-desktop list and predicate
- Add in send-question and awaiting-response? commands to the API for easily asking questions and receiving responses from individual users.
- Move presence handlers into the core API. You may now optionally specify a presence handler function as the last argument to make-connection.
- Set sent message type to chat - this means that asterisk bold and underbar underline formatting are properly understood by the gtalk client
- Filter out only messages which contain a body, rather than chat type messages which were actually typing notifications causing extra events to fire in previous versions
- Fix presence listeners
- Added experimental ability to set-availability (experimental - not in core namespace but accessible in quit-yo-jibber.presence)
- Add in API for detecting whether users are active on their android phone or a PC
- API revision - major release
Open up an issue