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