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

chose better alias

Browse source
This commit is contained in:
jem 2020-05-15 19:31:36 +02:00
parent a794ead21c
commit d7333dd97f
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/main/mastodon_bot/core.cljs
View file

@ -11,10 +11,10 @@
["tumblr" :as tumblr] ["tumblr" :as tumblr]
[mastodon-bot.infra :as infra] [mastodon-bot.infra :as infra]
[mastodon-bot.mastodon-api :as masto] [mastodon-bot.mastodon-api :as masto]
[mastodon-bot.twitter-api :as tw])) [mastodon-bot.twitter-api :as twitter]))
(s/def ::mastodon-config masto/mastodon-config?) (s/def ::mastodon-config masto/mastodon-config?)
(s/def ::twitter tw/twitter-config?) (s/def ::twitter twitter/twitter-config?)
(s/def ::tumblr map?) (s/def ::tumblr map?)
(s/def ::rss map?) (s/def ::rss map?)
@ -107,7 +107,7 @@
last-post-time last-post-time
(for [{:keys [title isoDate pubDate content link]} (-> % infra/js->edn :items)] (for [{:keys [title isoDate pubDate content link]} (-> % infra/js->edn :items)]
{:created-at (js/Date. (or isoDate pubDate)) {:created-at (js/Date. (or isoDate pubDate))
:text (str (trim-text title) "\n\n" (tw/strip-utm link))}))))) :text (str (trim-text title) "\n\n" (twitter/strip-utm link))})))))
(defn tumblr-client [access-keys account] (defn tumblr-client [access-keys account]
(try (try
@ -125,7 +125,7 @@
(when-let [twitter-config (:twitter config)] (when-let [twitter-config (:twitter config)]
(let [{:keys [accounts]} twitter-config] (let [{:keys [accounts]} twitter-config]
(doseq [account accounts] (doseq [account accounts]
(tw/user-timeline (twitter/user-timeline
twitter-config twitter-config
account account
(post-tweets last-post-time))))) (post-tweets last-post-time)))))