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

forgot one file

Browse source
This commit is contained in:
jem 2020-05-26 17:11:20 +02:00
parent 9a4d754a1d
commit f6497432a3
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/main/mastodon_bot/twitter_api.cljs
View file

@ -19,10 +19,11 @@
(s/def ::include-replies? boolean?)
(s/def ::account string?)
(s/def ::accounts (s/* ::account))
(def twitter-config? (s/keys :req-un [::access-keys ::include-rts? ::include-replies?]))
(def twitter-auth? (s/keys :req-un [::access-keys]))
(def twitter-transform? (s/keys :req-un [::include-rts? ::include-replies?]))
(defn-spec twitter-client any?
[twitter-config twitter-config?]
[twitter-config twitter-auth?]
(let [{:keys [access-keys]} twitter-config]
(try
(twitter. (clj->js access-keys))
@ -51,7 +52,7 @@
:media-links (keep #(when (= (:type %) "photo") (:media_url_https %)) media)})
(defn-spec user-timeline any?
[twitter-config twitter-config?
[twitter-config twitter-auth?
account ::account
callback fn?]
(let [{:keys [include-rts? include-replies?]} twitter-config]