                                 :alignment   []
                                 :tags        (:tags data)})
       (when (:issuer data)
-        (save-issuer-content! (:issuer data)))
+        (save-issuer-content! ctx (:issuer data)))
       (when (:criteria data)
-        (save-criteria-content! (:criteria data)))
+        (save-criteria-content! ctx (:criteria data)))
       (when (:extensions:OriginalCreator data)
-        (save-creator-content! (get-in data [:extensions:OriginalCreator :url]))))))
+        (save-creator-content! ctx (get-in data [:extensions:OriginalCreator :url]))))))
 
 (defmethod save-badge-content! :default [ctx input]
   (s/validate schemas/BadgeContent input)

  (save-badge-content! ctx (u/http-get input)))

(defmethod save-badge-content! :json [ctx input]
  (let [data (json/read-str input)]
    (merge
      (save-badge-content! ctx {:id ""
                                :name        (:name data)

  (save-creator-content! ctx (with-meta (u/http-get input) {:json-url input})))

(defmethod save-creator-content! :json [ctx input]
  (let [data (json/read-str input :key-fn keyword)]
    (save-creator-content!
      ctx {:id ""
           :name        (:name data)
