Added table tags
Getty Ritter
9 years ago
| 132 | 132 | (simple-tag 'li) |
| 133 | 133 | (simple-tag 'h1) |
| 134 | 134 | (simple-tag 'h2) |
| 135 | (simple-tag 'table) | |
| 136 | (simple-tag 'tr) | |
| 137 | (simple-tag 'td) | |
| 138 | (cons 'header (lambda args `(th ,@(map (lambda (x) (list 'td x)) args)))) | |
| 139 | (cons 'row (lambda args `(tr ,@(map (lambda (x) (list 'td x)) args)))) | |
| 135 | 140 | (list-tag 'sub) |
| 136 | 141 | (cons 'p (lambda (n) `(div (@ (class para)) ,@n))) |
| 137 | 142 | (list-tag 'ul) |