 (defn event [ctx subject verb object type]
   ;TODO VALIDATE DATA
   (publish ctx :event {:subject subject :verb verb :object object :type type}))
-

          path (public-path-from-content content-str ext)]
      (save-file-data ctx content path))))

(defn file-from-url
  [ctx url]
  (cond

    (re-find #"^https?"  (str url)) (save-file-from-http-url ctx url)
    (re-find #"^data"    (str url)) (save-file-from-data-url ctx url (.lastIndexOf url ","))
    :else (throw (Exception. (str "Error in file url: " url)))))

(defn file-from-url-fix [ctx url]
   (cond
      (string/blank? url) (throw (Exception. "file-from-url: url parameter missing"))
      (re-find #"^https?"  (str url)) (save-file-from-http-url ctx url)
      (re-find #"^data"    (str url)) (save-file-from-data-url-fix ctx url (.lastIndexOf url ","))
      :else (throw (Exception. (str "Error in file url: " url)))))

(defn str->qr-base64 [text]
  (try
