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

cleanup

Browse Source
master
Dmitri Sotnikov 4 years ago committed by GitHub
parent 9a216f5fa7
commit dfb1685569
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File

6
mastodon_bot/core.cljs
Unescape Escape View File

@ -179,11 +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) (if error
(exit-with-error 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")))