Index: pollen.rkt ================================================================== --- pollen.rkt +++ pollen.rkt @@ -92,10 +92,11 @@ (poly-branch-tag ul) (poly-branch-tag item) (poly-branch-tag sup) (poly-branch-tag blockquote) (poly-branch-tag newthought) +(poly-branch-tag sep) (poly-branch-tag caps) (poly-branch-tag center) (poly-branch-tag section) (poly-branch-tag subsection) (poly-branch-tag code) Index: tags-html.rkt ================================================================== --- tags-html.rkt +++ tags-html.rkt @@ -58,10 +58,11 @@ html-excerpt* html-item html-section html-subsection html-newthought + html-sep html-caps html-mono html-center html-strike html-block @@ -85,10 +86,11 @@ (define html-item (default-tag-function 'li)) (define html-section (default-tag-function 'h2)) (define html-subsection (default-tag-function 'h3)) (define html-newthought (default-tag-function 'span #:class "newthought")) +(define (html-sep) '(hr)) (define html-caps (default-tag-function 'span #:class "caps")) (define html-center (default-tag-function 'div #:style "text-align: center")) (define html-strike (default-tag-function 'span #:style "text-decoration: line-through")) (define html-dialogue (default-tag-function 'dl #:class "dialogue")) (define html-mono (default-tag-function 'samp))