# Gibberish A basic module for IM using the Jabber/XMPP protocol with PLT Scheme. ## Protocol Support Should eventually implement XMPP-Core and XMPP-IM to conform with RFCs 3920 and 3921. ## example chat client (require xmpp) (define (read-input prompt) (display prompt) (read-line (current-input-port))) (define (chat) (let ((jid (read-input "jid: ")) (pass (read-input "password: ")) (to (read-input "chat with: "))) (with-xmpp-session jid pass (set-xmpp-handler 'message print-message) (let loop () (let ((msg (read-line (current-input-port)))) (send (message to msg)) (loop)))))) ## possiby interesting extensions to implement. see http://xmpp.org/extensions/ * XEP-0047: In-Band Bytestreams * XEP-0066: Out of Band Data * XEP-0030: Service Discovery * XEP-0060: Publish-Subscribe * XEP-0045: Multi-User Chat * XEP-0149: Time Periods * XEP-0166: Jingle * XEP-0174: Serverless Messaging * XEP-0199: XMPP Ping * XEP-0224: Attention * XEP-0077: In-Band Registration