meissa
/
mastodon-bot
Archived
7
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Handle/report twitter errors

Browse Source
master
Arnout Engelen 4 years ago
parent d72b755485
commit 981444ad7c
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File

4
mastodon_bot/core.cljs
Unescape Escape View File

@ -179,9 +179,11 @@
(defn post-tweets [last-post-time] (defn post-tweets [last-post-time]
(fn [error tweets response] (fn [error tweets response]
(if (nil? error)
(->> (js->edn tweets) (->> (js->edn tweets)
(map parse-tweet) (map parse-tweet)
(post-items last-post-time)))) (post-items last-post-time))
(exit-with-error error))))
(defn strip-utm [news-link] (defn strip-utm [news-link]
(first (string/split news-link #"\?utm"))) (first (string/split news-link #"\?utm")))