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

Add support for videos

Browse source
This commit is contained in:
arne 2023-10-07 10:06:40 +02:00
commit 24103f906a
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
looptober.clj
View file

@ -30,8 +30,8 @@
(concat result (when (seq result)
(paginate url token pred min-id (:id (last result))))))))
(defn audio-attachment [status]
(find-in #(= (:type %) "audio") (-> status :media_attachments)))
(defn audio-or-video-attachment [status]
(find-in #(#{"audio" "video"} (:type %)) (-> status :media_attachments)))
(defn fetch-loops
([instance-url token]
@ -50,7 +50,7 @@
(and (neg? (compare (:id max-status) (:id status)))
(neg? (compare (:created_at max-status "2023-10-01T00:00:00.000Z") (:created_at status)))))
(:id max-status))]
(concat (filterv audio-attachment new-statuses) statuses))])
(concat (filterv audio-or-video-attachment new-statuses) statuses))])
[_ statuses] (get updated cache-key)]
statuses)
statuses))))
@ -64,7 +64,7 @@
;; TODO: :location
[::xspf/trackList
(map (fn [status]
(let [file (audio-attachment status)
(let [file (audio-or-video-attachment status)
acct (-> status :account :acct)]
[::xspf/track
[::xspf/creator (str acct (when-not (re-find #"@" acct)