           ;; setup appropriate association
           ;;
           (add-association tag target-path)
-          (as-json {:status 1}))))))
+          (as-json))))))
 
 (defn handle-get-all-tags []
   (let [s (seq (get-all-tags))]

  "Handle creation of new tags"
  [name target]
  (add-tag name target (random-html-color))
  (as-json {:status 1}))

(defn handle-remove-tag
  "Handle deletion of tags"
  [name]
  (remove-tag name)
  (as-json {:success 1}))

(defn handle-active-downloads
  "Handle active downloads"

;;
(def ws-downloads-channels (atom []))

(defn as-json
  ([]
   (as-json nil))
  ([m]
   { :status 200
    :headers { "Content-Type" "application/json; charset=utf-8" }
    :body (when-not (nil? m) (json/write-str m)) }))

(defn as-json-error
  ([code error-message]
