zzkt/gibberish
1
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity

formatting

Browse source
This commit is contained in:
nik gaffney 2009-04-02 18:02:30 +02:00
parent 59f0da8a12
commit 9a73ec0215
1 changed files with 19 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
README.md
View file

@ -5,29 +5,28 @@ A basic module for IM using the Jabber/XMPP protocol with PLT Scheme.
## Protocol Support ## Protocol Support
Should eventually implement XMPP-Core and XMPP-IM to conform with RFCs 3920 and 3921. Should eventually implement XMPP-Core and XMPP-IM to conform with RFCs
3920 and 3921. Progress toward supporting the full protocol is
currently documented in the file 'xmpp.scm'
## example chat client ## example chat client
<code> (require xmpp)
(require xmpp)
(define (read-input prompt) (define (read-input prompt)
(display prompt) (display prompt)
(read-line (current-input-port))) (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))))))
</code>
(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. ## possiby interesting extensions to implement.
@ -45,3 +44,4 @@ see http://xmpp.org/extensions/
* XEP-0224: Attention * XEP-0224: Attention
* XEP-0077: In-Band Registration * XEP-0077: In-Band Registration