   "Handle creation of new tags"
   [name target]
   (add-tag name target (random-html-color))
-  (as-json {:status 1}))
+  (as-json))
 
 (defn handle-remove-tag
   "Handle deletion of tags"
   [name]
   (remove-tag name)
-  (as-json {:success 1}))
+  (as-json))
 
 (defn handle-active-downloads
   "Handle active downloads"

          ;; setup appropriate association
          ;;
          (add-association tag target-path)
          (as-json {:status 1}))))))

(defn handle-get-all-tags []
  (let [s (seq (get-all-tags))]

;;
(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]
