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

learn usage of thread-last

Browse source
This commit is contained in:
jem 2020-05-13 19:46:51 +02:00
parent 418ff67282
commit 2187df1058
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/mastodon_api.cljs
View file

@ -114,10 +114,10 @@
([mastodon-config status-text media-ids callback] ([mastodon-config status-text media-ids callback]
(let [{:mastodon-bot.mastodon-api/keys [sensitive? signature visibility]} mastodon-config] (let [{:mastodon-bot.mastodon-api/keys [sensitive? signature visibility]} mastodon-config]
(-> (.post (mastodon-client mastodon-config) "statuses" (-> (.post (mastodon-client mastodon-config) "statuses"
(clj->js (merge {:status (-> status-text (clj->js (merge {:status (->> status-text
(partial resolve-urls mastodon-config) (resolve-urls mastodon-config)
(partial perform-replacements mastodon-config) (perform-replacements mastodon-config)
(partial set-signature mastodon-config))} (set-signature mastodon-config))}
(when media-ids {:media_ids media-ids}) (when media-ids {:media_ids media-ids})
(when sensitive? {:sensitive sensitive?}) (when sensitive? {:sensitive sensitive?})
(when visibility {:visibility visibility})))) (when visibility {:visibility visibility}))))