Index: pollen.rkt
==================================================================
--- pollen.rkt
+++ pollen.rkt
@@ -37,13 +37,14 @@
 
 (provide (all-defined-out)
          (all-from-out "crystalize.rkt" "template-html.rkt"))
 
 (module setup racket/base
-  (require syntax/modresolve)
+  (require syntax/modresolve pollen/setup)
   (provide (all-defined-out))
   (define poly-targets '(html))
+  ;(define block-tags (cons 'note default-block-tags))
   (define cache-watchlist
     (map resolve-module-path '("tags-html.rkt"
                                "template-html.rkt"
                                "dust.rkt"
                                "crystalize.rkt"))))
@@ -105,10 +106,12 @@
 
 (poly-branch-func link)
 (poly-branch-func url)
 (poly-branch-func fn)
 (poly-branch-func fndef)
+
+(poly-branch-tag note)
 
 ;; Not yet implemented
 ; (poly-branch-tag table)         ; #:columns ""
 ; (poly-branch-tag inline-math)
 ; (poly-branch-tag margin-note)

Index: tags-html.rkt
==================================================================
--- tags-html.rkt
+++ tags-html.rkt
@@ -77,11 +77,12 @@
          html-blockcode
          html-verse
          html-link
          html-url
          html-fn
-         html-fndef)
+         html-fndef
+         html-note)
 
 (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"))
@@ -187,5 +188,8 @@
                                                                     (fn-id fn-name)
                                                                     (format "~a" (+ 1 fnref-num)))]] "↩"))])
                 `(li [[id ,(fndef-id fn-name)]] ,@definition-text ,@backrefs))))
   (cond [(null? note-items) ""]
         [else `(section ((class "footnotes")) (hr) (ol ,@note-items))]))
+
+(define-tag-function (html-note attrs elems)
+  (txexpr 'note attrs (decode-paragraphs elems #:force? #t)))