 
 (defn- content-type [_ input]
   (cond
+    (map? input)          :default
     (string/blank? input) :blank
     (and (string? input) (re-find #"^https?://" input)) :url
     (and (string? input) (re-find #"^\s*\{" input))     :json

    (jdbc/with-db-transaction  [t-con (:connection (u/get-db ctx))]
      (insert-badge-content! (assoc input :id id) {:connection t-con})
      (doseq [tag (:tags input)]
        (insert-badge-content-tag! {:badge-content-id id :tag tag} {:connection t-con}))
      (doseq [a (:alignment input)]
        (insert-badge-content-alignment! (assoc a :badge-content-id id) {:connection t-con})))
    {:badge_content_id id}))


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

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