Added table tags
Getty Ritter
8 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) |