added and error check when fetching Mastodon timeline

This commit is contained in:
dmitri.sotnikov@gmail.com 2019-01-06 10:57:03 -05:00
parent 0fb72210ac
commit 9a97681a3c

View file

@ -119,7 +119,11 @@
(post-status status-text (not-empty ids)))))
(defn get-mastodon-timeline [callback]
(.then (.get mastodon-client "timelines/home" #js {}) #(-> % .-data js->edn callback)))
(.then (.get mastodon-client "timelines/home" #js {})
#(let [response (-> % .-data js->edn)]
(if-let [error (:error response)]
(exit-with-error error)
(callback response)))))
(defn post-items [last-post-time items]
(doseq [{:keys [text media-links]} (->> items