@@ -25,19 +25,30 @@
 
 (provide (all-defined-out)
          (all-from-out "crystalize.rkt" "snippets-html.rkt"))
 
 (module setup racket/base
-  (require syntax/modresolve pollen/setup)
+  (require syntax/modresolve
+           racket/runtime-path
+           pollen/setup)
   (provide (all-defined-out))
   (define poly-targets '(html))
-  (define block-tags (cons 'title default-block-tags))
+  (define block-tags (append '(title style dt) default-block-tags))
+
+  (define-runtime-path tags-html.rkt     "tags-html.rkt")
+  (define-runtime-path snippets-html.rkt "snippets-html.rkt")
+  (define-runtime-path dust.rkt          "dust.rkt")
+  (define-runtime-path crystalize.rkt    "crystalize.rkt")
   (define cache-watchlist
-    (map resolve-module-path '("tags-html.rkt"
-                               "snippets-html.rkt"
-                               "dust.rkt"
-                               "crystalize.rkt"))))
+    (map resolve-module-path
+         (list tags-html.rkt
+               snippets-html.rkt
+               dust.rkt
+               crystalize.rkt))))
+
+(case (current-poly-target)
+  [(html) (spell-of-summoning!)])
 
 ;; Macro for defining tag functions that automatically branch based on the 
 ;; current output format and the list of poly-targets in the setup module.
 ;; Use this macro when you know you will need keyword arguments.
 ;;
@@ -87,19 +98,23 @@
 (poly-branch-tag smallcaps)
 (poly-branch-tag center)
 (poly-branch-tag section)
 (poly-branch-tag subsection)
 (poly-branch-tag code)
+(poly-branch-tag dialogue)
+(poly-branch-tag say)
+(poly-branch-tag index)
 (poly-branch-kwargs-tag blockcode)
 (poly-branch-kwargs-tag verse)          ; [#:title ""] [#:italic "no"]
 
 (poly-branch-tag link)
 (poly-branch-tag url)
 (poly-branch-tag fn)
 (poly-branch-tag fndef)
 
 (poly-branch-kwargs-tag note)
+(poly-branch-tag block)
 
 ;; Not yet implemented
 ; (poly-branch-tag table)         ; #:columns ""
 ; (poly-branch-tag inline-math)
 ; (poly-branch-tag margin-note)