   (let [splices (splice-all s)]
     (glue splices (partial render-tag tag-reader-map))))
 
+(def ^:dynamic *tag-map* {})
+
 ;;; JEKYLL
 
 (def clean-target fs/delete-dir)

  {:sig [[s/Str Doc :- s/Bool]
         [s/Str Doc Tag-Map :- s/Bool]]}
  ([root doc]
     (write-document! root doc {}))
  ([root {:keys [path content front-matter] :as doc} tag-map]

     (let [content (if (empty? tag-map)
                     content
                     (render-content tag-map content))

  {:sig [[s/Str s/Str s/Any :- s/Bool]
         [s/Str s/Str s/Any Tag-Map :- s/Bool]]}
  ([root name data]
     (write-data! root name data *tag-map*))
  ([root name data tag-map]
     (let [target (format "%s/_data/%s.yaml" root name)
           content (yaml/generate-string data)
           content (if (empty? tag-map)
                     content
                     (render-content tag-map content))]
       (spit target content)
