From 77c0d609385f805948bf161f00efb77e997b35f7 Mon Sep 17 00:00:00 2001 From: arne Date: Sat, 14 Oct 2023 10:49:18 +0200 Subject: [PATCH] Add identifier --- looptober.clj | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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))