From 24103f906a381db95ea481cd785c4f5ecebdc5b2 Mon Sep 17 00:00:00 2001 From: arne Date: Sat, 7 Oct 2023 10:06:40 +0200 Subject: [PATCH] Add support for videos --- looptober.clj | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/looptober.clj b/looptober.clj index 60e9dac..722f408 100644 --- a/looptober.clj +++ b/looptober.clj @@ -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)