near/computersandblues.looptober
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add identifier

Browse source
This commit is contained in:
arne 2023-10-14 10:49:18 +02:00
commit 77c0d60938
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
looptober.clj
View file

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