From cacf6aeaa88aafca29348f82c7eca98dd569f053 Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Fri, 7 Mar 2003 18:45:12 +0000
Subject: [PATCH] downcase! even more identifiers

---
 scheme/httpd/surflets/surflets.scm | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/scheme/httpd/surflets/surflets.scm b/scheme/httpd/surflets/surflets.scm
index aa2bc48..3a5c37d 100644
--- a/scheme/httpd/surflets/surflets.scm
+++ b/scheme/httpd/surflets/surflets.scm
@@ -170,7 +170,7 @@
      (,input-field-trigger
       *preorder*
       . ,(lambda (trigger input-field)
-	   (reformat (input-field-HTML-tree input-field))))
+	   (reformat (input-field-html-tree input-field))))
      
      (surflet-form 
        ;; Must do something to prevent the k-url string to be HTML
@@ -178,7 +178,7 @@
        *preorder*
        . ,(lambda (trigger k-url . args)
 	    (receive (parameters elems)
-		(typed-optionals (list symbol? XML-attribute?) args)
+		(typed-optionals (list symbol? xml-attribute?) args)
 	      (make-surflet-form k-url ; k-url
 				 (car parameters) ; POST, GET or #f=GET
 				 (cadr parameters); attributes
@@ -220,7 +220,7 @@
     . ,(lambda (trigger str) 
 	 (if (string? str) (string->goodHTML str) str))))
 
-(define URL-rule
+(define url-rule
   (cons 'URL 
 	(lambda (tag URI . maybe-text) 
 	  (list "<a href=\"" URI "\">" 
@@ -239,7 +239,7 @@
    (*default* 
     . ,(lambda (tag . elems) (apply (entag tag) elems)))
    ,text-rule
-   ,URL-rule
+   ,url-rule
    ,plain-html-rule))
 
 (define (make-callback function)
@@ -288,12 +288,12 @@
 ;; get-bindings: Transformer will get all bindings of request, not
 ;; only the one concerning the input-field.
 (define-record-type input-field :input-field
-  (real-make-input-field name transformer HTML-tree get-bindings?)
+  (real-make-input-field name transformer html-tree get-bindings?)
   real-input-field?
   (name input-field-name)
   (transformer input-field-transformer)
   (attributes input-field-attributes)
-  (HTML-tree input-field-HTML-tree)
+  (html-tree input-field-html-tree)
   (get-bindings? input-field-get-bindings?))
 
 (define-record-discloser :input-field
@@ -321,11 +321,11 @@
 (define identity (lambda (a) a))
 
 ;; See note at input-field? for reasons for the list.
-(define (make-input-field name transformer HTML-tree)
-  (list input-field-trigger (real-make-input-field name transformer HTML-tree #f)))
+(define (make-input-field name transformer html-tree)
+  (list input-field-trigger (real-make-input-field name transformer html-tree #f)))
 
-(define (make-higher-input-field transformer HTML-tree)
-  (list input-field-trigger (real-make-input-field #f transformer HTML-tree #t)))
+(define (make-higher-input-field transformer html-tree)
+  (list input-field-trigger (real-make-input-field #f transformer html-tree #t)))
 
 ;; PRED-LIST contains list of predicates that recognizes optional
 ;; leading parameters. FURTHER-ATTRIBUTES is the optional parameter
@@ -478,7 +478,7 @@
 	    ((multiple? boolean?)
 	     (attributes xml-attribute?))
 	(let* ((name (generate-input-field-name "select"))
-	       (SXML-options 
+	       (sxml-options 
 		(map (lambda (option)
 		       (cond
 			((string-or-symbol? option) 
@@ -494,14 +494,14 @@
 			(else
 			 (error "not an option" option))))
 		     options))
-	       (SXML `(select (@ ((name ,name)
+	       (sxml `(select (@ ((name ,name)
 				 ,(if multiple? '(multiple) '())
 				 ,(and attributes (cdr attributes))))
 			     #\newline
-			     ,SXML-options)))
+			     ,sxml-options)))
 	  (if multiple?
-	      (make-higher-input-field (make-multiple-transformer name) SXML)
-	      (make-input-field name identity SXML)))))))
+	      (make-higher-input-field (make-multiple-transformer name) sxml)
+	      (make-input-field name identity sxml)))))))
 
 ;; returns a *list* of radio buttons
 (define (make-radio-input-fields values . maybe-further-attributes)