Changeset 2546 in project


Ignore:
Timestamp:
11/30/06 20:02:37 (15 years ago)
Author:
Mario Domenech Goulart
Message:
  • nested scheme lists now produce nested HTML lists (ws:itemize and ws:enumerate)
File:
1 edited

Legend:

Unmodified
Added
Removed
  • web-scheme/web-scheme-formatting-utils.scm

    r1161 r2546  
    5353                        (ws:mapconcat
    5454                         (lambda (item)
    55                            (ws:tag-enclose 'li attribs item))
    56                          (map ->string items)))))))
     55                           (if (list? item)
     56                               (ws:make-list type item args)
     57                               (ws:tag-enclose 'li attribs (->string item))))
     58                         items))))))
    5759
    5860(define (ws:itemize items . args)
Note: See TracChangeset for help on using the changeset viewer.