         (io.perun.print-meta/print-meta ~(vec (map map-fn (perun/get-meta fileset))))))
     fileset))
 
+(defn trace
+  [kw entries]
+  (map #(update-in % [:perun/trace] (fnil conj []) kw) entries))
+
 (def ^:private filedata-deps
   '[[com.novemberain/pantomime "2.8.0"]])
 

   establish metadata structure."
  []
  (boot/with-pre-wrap fileset
    (let [updated-files (add-filedata (boot/user-files fileset))]
      (perun/set-meta fileset updated-files))))

(def ^:private images-dimensions-deps

  (let [pod (create-pod ttr-deps)]
    (boot/with-pre-wrap fileset
      (let [files         (perun/get-meta fileset)
            updated-files (trace :perun/word-count
                                 (pod/with-call-in @pod
                                   (io.perun.word-count/count-words ~files)))]
        (perun/report-debug "word-count" "counted words" (map :word-count updated-files))
        (perun/set-meta fileset updated-files)))))

