starred/Doplarr
1
0
Fork 0
mirror of https://github.com/kiranshila/Doplarr.git synced 2026-08-04 11:05:06 -04:00
Code Issues 56 Packages Projects Releases 10 Wiki Activity

Merge pull request #161 from dhpup/fix/seerr-33-discord-ids

Browse Source 
fix: support discordIds array format for Seerr 3.3 compatibility
This commit is contained in:
Kiran Shila
2026-06-05 10:05:41 -07:00
committed by GitHub
parent 088642d87a a3473a56fe
commit 48b2815dc6
1 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/doplarr/backends/overseerr/impl.clj
View File

@@ -100,17 +100,21 @@
(into [])))
(else #(fatal % "Exception on querying Overseerr users")))))
(defn discord-id [ovsr-id]
(defn discord-ids [ovsr-id]
(a/go
(->> (a/<! (GET (str "/user/" ovsr-id)))
(then #(->> (utils/from-camel %)
(s/select-one [:body :settings :discord-id])))
(else #(fatal % "Exception on querying Overseerr discord id")))))
(then (fn [result]
(let [settings (s/select-one [:body :settings] (utils/from-camel result))]
(or (seq (:discord-ids settings))
(when-let [id (:discord-id settings)] [id])
[]))))
(else #(fatal % "Exception on querying Overseerr discord ids")))))
(defn discord-users []
(a/go-loop [ids (a/<! (all-users))
users {}]
(if (empty? ids)
users
(let [id (first ids)]
(recur (rest ids) (assoc users (a/<! (discord-id id)) id))))))
(let [id (first ids)
disc-ids (a/<! (discord-ids id))]
(recur (rest ids) (merge users (into {} (map #(vector % id) disc-ids))))))))