        (let [result# (do ~@body)]
          (print-progress (str "END   " ~msg))
          result#)))
+
 
 (defn- load-speech-recognition-result
   "Loads the speech recognition results for a video."

  (print-progress "Creating index page")
  (create-page "index.html" v-index/render-main-page job))

(defn create-categories-page
  "Creates the overview page for all categories."
  [job]
  (print-progress "Creating categories overview page")
  (create-page "categories.html" v-index/render-categories-page job))

(defn create-videos-page
  "Creates the overview page for all videos."

        predicate (partial multi-filter filters)
        index (proc/video-word-index video :predicate predicate)]
    (assoc video :index index)))


(defn- build-video-statistics
  [{:keys [id results] :as video}]
