From aad93edd216832f9b39556a18457b94730da6fd3 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Wed, 13 Jun 2007 16:17:42 +0000
Subject: [PATCH] Formating

svn: r6629
---
 collects/web-server/docs/reference/lang.scrbl |  5 ++---
 .../web-server/docs/reference/servlet.scrbl   |  9 ++++----
 collects/web-server/docs/web-server.ss        | 21 +++++++------------
 3 files changed, 13 insertions(+), 22 deletions(-)

diff --git a/collects/web-server/docs/reference/lang.scrbl b/collects/web-server/docs/reference/lang.scrbl
index 5a7000ef75..d62074be50 100644
--- a/collects/web-server/docs/reference/lang.scrbl
+++ b/collects/web-server/docs/reference/lang.scrbl
@@ -177,7 +177,6 @@ In the future, we will offer the facilities to:
 @scheme[embed-proc/url] + @scheme[extract-proc/url] and
 @scheme[send/suspend/url] respectively.
 
-@; XXX Make warning cool
 @; ------------------------------------------------------------
 @section[#:tag "lang/file-box.ss"]{File Boxes}
 
@@ -212,8 +211,8 @@ boxes in a safe way.
  Saves @scheme[v] in the file represented by @scheme[fb].
 }
               
-Warning: If you plan on using a load-balancer, make sure your file-boxes
-are on a shared medium.
+@warning{If you plan on using a load-balancer, make sure your file-boxes
+are on a shared medium.}
 
 @; ------------------------------------------------------------
 @section[#:tag "lang/web-param.ss"]{Web Parameters}
diff --git a/collects/web-server/docs/reference/servlet.scrbl b/collects/web-server/docs/reference/servlet.scrbl
index 975a1f3e65..c5fa666e84 100644
--- a/collects/web-server/docs/reference/servlet.scrbl
+++ b/collects/web-server/docs/reference/servlet.scrbl
@@ -109,7 +109,7 @@ related to HTTP request data structures.
  Returns the binding with an id equal to @scheme[id] from @scheme[binds] or @scheme[#f].
 }
                                  
-@; XXX Subtypes of request                                 
+@; XXX Subtypes of request?                          
 @defstruct[request ([method symbol?] 
                     [uri url?] 
                     [headers/raw (listof header?)]
@@ -173,7 +173,6 @@ HTTP responses.
 } 
 
 @; XXX Rename string? option
-@; XXX Format warning cool.                   
 @defstruct[(response/full response/basic)
            ([code number?]
             [message string?]
@@ -209,8 +208,8 @@ HTTP responses.
                   
 @defthing[TEXT/HTML-MIME-TYPE bytes?]{Equivalent to @scheme[#"text/html; charset=utf-8"].}
 
-Warning: If you include a Length header in a response that is inaccurate, there WILL be an error in
-transmission that the server will not catch.
+@warning{If you include a Length header in a response that is inaccurate, there WILL be an error in
+transmission that the server will not catch.}
 
 @; ------------------------------------------------------------
 @section[#:tag "web.ss"]{Web}
@@ -331,7 +330,7 @@ a file, when it is not, then the @scheme[request-bindings] will hold a
 you lose the filename.
 
 @; XXX Move into http/response.ss
-@; XXX Change headers
+@; XXX Change headers to make-header struct
 @defproc[(redirect-to [uri string?]
                       [perm/temp redirection-status? temporarily]
                       [#:headers headers (listof (cons/c symbol? string?)) (list)])
diff --git a/collects/web-server/docs/web-server.ss b/collects/web-server/docs/web-server.ss
index 31f9ce39c1..9cbad56dcf 100644
--- a/collects/web-server/docs/web-server.ss
+++ b/collects/web-server/docs/web-server.ss
@@ -1,27 +1,20 @@
 (module web-server mzscheme
   (require (lib "manual.ss" "scribble")
            (lib "eval.ss" "scribble"))
-  ; XXX Need signature and unit forms and class
-  ; XXX @module form that checks if all exports are documented
-  ; XXX formatlambda, caselambda, defproc-case
-  ; XXX Copyright
-  ; XXX email and href links
-  ; XXX last updated
-  ; XXX multiple tags
-  ; XXX @require
-  ; XXX editting mode drscheme or emacs
-  
-  ; XXX @scheme in code:comment
   
   (define web-server "Web Server")
-  (define webserver "Web Server")
   
-  ; XXX Make look good
+  ; XXX Format better
   (define (author x) 
     (elem (hspace 4)
           (bold x)))
+  
+  ; XXX Format better
+  (define (warning . x)
+    (apply elem "Warning:" x))
 
   (provide (all-from (lib "manual.ss" "scribble"))
            (all-from (lib "eval.ss" "scribble"))
            web-server
-           author))
\ No newline at end of file
+           author
+           warning))
\ No newline at end of file