formatting
This commit is contained in:
parent
59f0da8a12
commit
9a73ec0215
1 changed files with 19 additions and 19 deletions
14
README.md
14
README.md
|
@ -5,18 +5,19 @@ 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)
|
(define (chat)
|
||||||
(let ((jid (read-input "jid: "))
|
(let ((jid (read-input "jid: "))
|
||||||
(pass (read-input "password: "))
|
(pass (read-input "password: "))
|
||||||
(to (read-input "chat with: ")))
|
(to (read-input "chat with: ")))
|
||||||
|
@ -26,8 +27,6 @@ Should eventually implement XMPP-Core and XMPP-IM to conform with RFCs 3920 and
|
||||||
(let ((msg (read-line (current-input-port))))
|
(let ((msg (read-line (current-input-port))))
|
||||||
(send (message to msg))
|
(send (message to msg))
|
||||||
(loop))))))
|
(loop))))))
|
||||||
</code>
|
|
||||||
|
|
||||||
|
|
||||||
## 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
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue