diff --git a/looptober.clj b/looptober.clj index 722f408..4182efe 100644 --- a/looptober.clj +++ b/looptober.clj @@ -67,6 +67,8 @@ (let [file (audio-or-video-attachment status) acct (-> status :account :acct)] [::xspf/track + [::xspf/location (:url file)] + [::xspf/identifier (-> status :url)] [::xspf/creator (str acct (when-not (re-find #"@" acct) (str "@" (.getHost (java.net.URL. (-> status :url))))))] [::xspf/image (-> status :account :avatar)] @@ -74,8 +76,7 @@ (str (:spoiler_text status) "\n\n")) (:content status))] [::xspf/info (-> status :url)] - [::xspf/duration (-> file :meta :original :duration (* 1000) int)] - [::xspf/location (:url file)]])) statuses)]])) + [::xspf/duration (-> file :meta :original :duration (* 1000) int)]])) statuses)]])) (defn app [req] (if (= "/" (:uri req))