misc. refactorings. added onchange attribute. Various refactorings.

contrib/cont-responder/cont-html.factor

@@ -277,5 +277,5 @@ USE: logic
   "method" "action" "type" "value" "name" 
   "size" "href" "class" "border" "rows" "cols" 
   "id" "onclick" "style" "valign" "accesskey"
-  "src" "language" "colspan"
+  "src" "language" "colspan" "onchange"
 ] [ define-attribute-word ] each 

contrib/cont-responder/cont-responder.factor

@@ -40,6 +40,7 @@ USE: html
 USE: kernel
 USE: logic
 USE: cont-html
+USE: logging
 
 : expiry-timeout ( -- timeout-seconds )
   #! Number of seconds to timeout continuations in
@@ -268,7 +269,7 @@ DEFER: show
   #! id and calls it with the POST data as an alist on the top
   #! of the stack.
   [ 
-    read-post-request post-request>namespace swap resume-continuation 
+    read-post-request dup log post-request>namespace swap resume-continuation 
   ] with-exit-continuation
   print drop ;
 

contrib/cont-responder/cont-utils.factor

@@ -29,6 +29,8 @@ USE: cont-responder
 USE: lists
 USE: stdio
 USE: stack
+USE: namespaces
+USE: html
 
 : simple-page ( title quot -- )
   #! Call the quotation, with all output going to the
@@ -66,3 +68,12 @@ USE: stack
 : button ( label -- )
   #! Output an HTML submit button with the given label.
   <input type= "submit" value= input/> ;
+
+: with-simple-html-output ( quot -- )
+  #! Run the quotation inside an HTML stream wrapped
+  #! around stdio.
+  <pre> [
+    "stdio" get <html-stream> [
+      call
+    ] with-stream
+  ] </pre> ;

contrib/cont-responder/eval-responder.factor

@@ -105,15 +105,6 @@ USE: vocabularies
     [ <tr> [ <td> [ write-eval-link ] </td> ] </tr> ] each
   ] </table> ;
 
-: with-simple-html-output ( quot -- )
-  #! Run the quotation inside an HTML stream wrapped
-  #! around stdio.
-  <pre> [
-    "stdio" get <html-stream> [
-      call
-    ] with-stream
-  ] </pre> ;
-
 : html-for-word-source ( word-string -- )
   #! Return an html fragment dispaying the source
   #! of the given word.