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

8
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]
(->> (js->edn tweets) (if (nil? error)
(map parse-tweet) (->> (js->edn tweets)
(post-items last-post-time)))) (map parse-tweet)
(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")))