Changeset 26693 in project


Ignore:
Timestamp:
05/13/12 20:16:43 (8 years ago)
Author:
Moritz Heidkamp
Message:

sxml-informal: I for one welcome our new scrutinizing overlord (thanks to Bex Quality Assurance, Ltd. for pointing out the problem)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/sxml-informal/trunk/sxml-informal.scm

    r25377 r26693  
    1919                                                  (apply part (cons (car element) args))
    2020                                                (cons (or expanded-element (car element))
    21                                                       (append (cdr element) classes))))
     21                                                      (append (cdr element) (filter identity classes)))))
    2222                                            '(())
    2323                                            parts))
     
    3333
    3434         (error (lambda (el name #!key error)
    35                   (and error
    36                        (let ((error (if (and (list? error) (= 1 (length error)))
    37                                         (car error)
    38                                         error)))
     35                  (if error
     36                      (let ((error (if (and (list? error) (= 1 (length error)))
     37                                       (car error)
     38                                       error)))
    3939                         
    40                          (values (cond ((string? error)
    41                                         (append el `((span (@ (class "error")) ,error))))
    42                                        ((pair? error)
    43                                         (if (symbol? (car error))
    44                                             error
    45                                             (append el `((ul (@ (class "errors"))
    46                                                              ,@(map (cut list 'li <>) error))))))
    47                                        (else #f))
    48                                  "invalid")))))
     40                        (values (cond ((string? error)
     41                                       (append el `((span (@ (class "error")) ,error))))
     42                                      ((pair? error)
     43                                       (if (symbol? (car error))
     44                                           error
     45                                           (append el `((ul (@ (class "errors"))
     46                                                            ,@(map (cut list 'li <>) error))))))
     47                                      (else #f))
     48                                "invalid"))
     49                      (values #f #f))))
    4950
    5051         (input (lambda (type #!optional extend)
     
    9798
    9899    `((field . ,(lambda (tag args)
    99                   (let ((name (car args)))
    100                     ((or (alist-ref name fields)
    101                          (error 'sxml-informal "invalid field" name))
    102                      name
    103                      (cdr args)))))
     100                  (let* ((name (car args))
     101                         (field (alist-ref name fields)))
     102                    (if field
     103                        (field name (cdr args))
     104                        (error 'sxml-informal "invalid field" name)))))
    104105      (fields *macro* . ,(lambda (tag elements)
    105106                           (receive (options elements)
Note: See TracChangeset for help on using the changeset viewer.