PLaneT fixes & renames

README.md

@@ -1,5 +1,5 @@
 
-# Gibberish
+# XMPP
 
 A basic module for IM using the Jabber/XMPP protocol with PLT Scheme.
 
@@ -11,7 +11,7 @@ currently documented in the file 'xmpp.ss'
 
 ## Installation
 
-    (require (planet zzkt/gibberish:1:0/xmpp))
+    (require (planet zzkt/xmpp:1:0/xmpp))
  
 ## Example Chat Client
 

gibberish.scrbl

@@ -1,44 +0,0 @@
-#lang scribble/doc
-@(require scribble/manual)
-
-@title{Gibberish}
-
-Gibberish is a module for using the Jabber/XMPP protocol.
-
-@table-of-contents[]
-
-@section{Protocol Support}
-
-It 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.ss'
-
-
-@section{Installation}
-
-(require (planet zzkt/gibberish:1:0/xmpp))
-
-
-@section{Example Chat Client}
-
-@schemeblock[
-             
-             (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))))))
-             ]
-
-and chat away...

info.ss

@@ -1,10 +1,10 @@
 #lang setup/infotab
 
 (define name
-  "gibberish")
+  "xmpp")
   
 (define blurb 
-  '("A client library for the XMPP or Jabber protocol."))
+  '("A library for the XMPP or Jabber protocol."))
 
 (define categories 
   '(xml net))
@@ -24,6 +24,5 @@
 (define release-notes 
   '(""))
 
-;(define scribblings 
+(define scribblings 
-;  '(("gibberish.scrbl" ())))
+  '(("xmpp.scrbl" ())))
-

xmpp.scrbl

@@ -0,0 +1,71 @@
+#lang scribble/doc
+@(require scribble/manual)
+
+@title{XMPP}
+
+A module for using the Jabber/XMPP protocol.
+
+@table-of-contents[]
+
+@section{Protocol Support}
+
+It 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.ss'
+
+
+@section{Installation}
+
+@schemeblock[(require (planet zzkt/xmpp:1:0/xmpp))]
+
+@section{Session}
+
+@schemeblock[
+(with-xmpp-session jid pass body)
+]
+
+@section{Mesaging}
+
+@schemeblock[
+(with-xmpp-session jid pass
+  (send (message to text)))
+]
+
+@section{Presence}
+
+@schemeblock[
+(with-xmpp-session jid pass
+  (send (presence)))
+]
+		   
+@section{Registration}
+
+@section{Response Handling}
+
+@schemeblock[
+(with-xmpp-session jid pass 
+     (set-xmpp-handler 'message print-message))
+]
+ 
+@section{Example Chat Client}
+
+@schemeblock[
+(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))))))
+
+             ]
+
+and chat away...