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

Append intance url to creator's account if necessary

Browse source
This commit is contained in:
arne 2023-10-04 12:02:45 +02:00
commit eadb7ba0e0
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
looptober.clj
View file

@ -63,9 +63,11 @@
;; TODO: :location ;; TODO: :location
[::xspf/trackList [::xspf/trackList
(map (fn [status] (map (fn [status]
(let [file (audio-attachment status)] (let [file (audio-attachment status)
acct (-> status :account :acct)]
[::xspf/track [::xspf/track
[::xspf/creator (-> status :account :acct)] [::xspf/creator (str acct (when-not (re-find #"@" acct)
(str "@" (.getHost (java.net.URL. (-> status :url))))))]
[::xspf/image (-> status :account :avatar)] [::xspf/image (-> status :account :avatar)]
[::xspf/annotation (str (when (not= "" (:spoiler_text status)) [::xspf/annotation (str (when (not= "" (:spoiler_text status))
(str (:spoiler_text status) "\n\n")) (str (:spoiler_text status) "\n\n"))